diff --git a/src/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd b/src/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd
deleted file mode 100644
index 1cb9e0ef..00000000
--- a/src/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd
+++ /dev/null
@@ -1,270 +0,0 @@
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide s {proc $s args {}}; Hide :;rename set s2;Hide set;s2 1 list]"; set -- : "$@"; $1 = @'
-: heredoc1 - hide from powershell (close sqote for unix shells) ' \
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo]#not necessary but can help avoid errs in testing"
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-@REM {
-@REM DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required and will reduce functionality.
-@REM Even comment lines can be part of the functionality of this script - modify with care.
-@REM Change the value of nextshell in the next line if desired, and code within payload sections as appropriate.
-@SET "nextshell=pwsh"
-@REM nextshell set to pwsh,sh,bash or tclsh
-@REM @ECHO nextshell is %nextshell%
-@SET "validshells=pwsh,sh,bash,tclsh"
-@CALL SET keyRemoved=%%validshells:%nextshell%=%%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix)
-@REM  -- This section intended only to launch the next shell
-@REM  -- Avoid customising this if possible. cmd/batch script is probably the least expressive language.
-@REM  -- custom windows payloads should be in powershell,tclsh or sh/bash code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@IF %nextshell%==pwsh (
-    CALL pwsh -nop -c set-executionpolicy -Scope CurrentUser RemoteSigned
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-    REM test availability of preferred option of powershell7+ pwsh
-    CALL pwsh -nop -nol -c write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    IF !pwshtest_exitcode!==0 CALL pwsh -nop -nol "%~dp0%~n0.ps1" %* & SET task_exitcode=!errorlevel!
-    REM fallback to powershell if pwsh failed 
-    IF NOT !pwshtest_exitcode!==0 (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        CALL powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF %nextshell%==bash (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        CALL %nextshell% "!wslpath!%fname%" %* & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            CALL %nextshell% "%~dp0%fname%" %* & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value %nextshell% valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit
-        )
-    )
-)
-@GOTO :endlib
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@GOTO :eof
-:endlib
-
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit
-@GOTO :exit
-# }
-# rem call %nextshell% "%~dp0%~n0.cmd" %* 
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s2 set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup
-Hide :exit;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    :
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# unbal }
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: cmd exit label - return exitcode 
-:exit
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat b/src/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat
deleted file mode 100644
index aa9039a9..00000000
--- a/src/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat
+++ /dev/null
@@ -1,112 +0,0 @@
-: "[proc : args {}]" ;# *tcl shellbat - call with sh,bash,tclsh on any platform, or with cmd on windows.
-: <<'HIDE_FROM_BASH_AND_SH'
-: ;# leading colon hides from .bat, trailing slash hides next line from tcl \
-@call tclsh "%~dp0%~n0.bat" %*
-: ;#\
-@set taskexitcode=%errorlevel% & goto :exit
-# -*- tcl -*-
-# #################################################################################################
-# This is a tcl shellbat file
-# It is tuned to run when called as a batch file, a tcl script, an sh script or a bash script,
-# so the specific layout and characters used are quite sensitive to change.
-# It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# e.g ./filename.sh.bat in sh or bash or powershell
-# e.g filename.sh or filename.sh.bat at windows command prompt
-# e.g tclsh filename.sh.bat |  sh filename.sh.bat  | bash filename.sh.bat
-# In all cases an arbitrary number of arguments are accepted
-# To avoid the initial commandline on stdout when calling as a batch file on windows, use:
-# cmd /Q /c filename.sh.bat
-# (because we cannot use @if to silence it, as this isn't understood by tcl,sh or bash)
-# #################################################################################################
-#fconfigure stdout -translation crlf
-# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-
-
-#<tcl-payload>
-#<tcl-payload/>
-
-# --- --- --- --- --- --- --- --- --- --- --- --- ---
-# only exit if needed. see exitcode notes at bottom of file and exit there for consistency across invocation methods
-# --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-#--
-#-- bash/sh code follows. 
-#-- protect from tcl using line continuation char on the previous comment for each line, like so: \
-printf "etc"
-#-- or alternatively place sh/bash script within the false==false block
-#-- whilst being careful to balance braces {}
-#-- For more complex needs you should call out to external scripts
-#--
-#-- END marker for hide_from_bash_and_sh\
-HIDE_FROM_BASH_AND_SH
-
-#---------------------------------------------------------
-#-- This if statement hides(mostly) a sh/bash code block from Tcl
-if false==false # else { 
-then
-:
-#---------------------------------------------------------
-    #-- leave as is if all that's required is launching the Tcl payload"
-    #--
-    #-- Note that sh/bash script isn't called when running a .bat from cmd.exe on windows by default
-    #-- adjust line 4:  @call tclsh ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-    #--   if sh/bash scripting needs to run on windows too.
-    #--
-    #printf "start of bash or sh code"
-    
-    #<shell-payload-pre-tcl>
-    #</shell-payload-pre-tcl>
-
-
-    #-- sh/bash launches Tcl here instead of shebang line at top
-    #<shell-launch-tcl>
-    #-- use exec to use exitcode (if any) directly from the tcl script
-    exec /usr/bin/env tclsh "$0" "$@"
-    #</shell-launch-tcl>
-    
-    #-- alternative - if sh/bash script required to run after the tcl call.
-    #/usr/bin/env tclsh "$0" "$@"
-    #tcl_exitcode=$?
-    #echo "tcl_exitcode: ${tcl_exitcode}"
-    
-    #<shell-payload-post-tcl>
-    #</shell-payload-post-tcl>
-    
-    #-- override exitcode example
-    #exit 66
-    
-    #printf "No need for trailing slashes for sh/bash code here\n"
-#---------------------------------------------------------
-fi
-# closing brace for Tcl }
-#---------------------------------------------------------
-
-#-- tcl and shell script now both active
-
-#-- comment for line sample 1 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 1 \n"
-
-#-- comment for line sample 2 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 2 \n"
-
-
-#-- Consistent exitcode from sh,bash,tclsh or cmd
-#-- Call exit in tcl (or sh/bash) code only if explicitly required, otherwise leave this commented out.
-#-- (script might be more widely useable without explicit exit. e.g in tcl: set ::argc 1; set ::argv "val"; source filename.sh.bat )
-#-- exit line unprotected by trailing slash will work for tcl and/or sh/bash
-#exit 0 
-#exit 42
-
-
-
-#-- make sure sh/bash/tcl all skip over .bat style exit \
-: <<'shell_end'
-#-- .bat exit with exitcode from tcl process \
-:exit
-: ;# \
-@exit /B %taskexitcode%
-# .bat has exited \
-shell_end
-
diff --git a/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd b/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd
deleted file mode 100644
index 9daf7ebf..00000000
--- a/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd
+++ /dev/null
@@ -1,742 +0,0 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
-: "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT - except for first double quoted section.
-: shebang line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@GOTO :skip_perl_pod_start ^;
-=begin excludeperl 
-: skip_perl_pod_start
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, (some sh) and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: deck scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@REM in batch scripts - array syntax with square brackets is a simulation of arrays or associative arrays.
-@REM note that many shells linked as sh do not support substition syntax and may fail - e.g dash etc - generally bash should be used in this context
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshelltypes= powershell______ sh______________ wslbash_________ bash____________ tcl_____________ perl____________"
-@REM for batch - only win32 is relevant - but other scripts on other platforms also parse the nextshell block to determine next shell to launch
-@REM nextshellpath and nextshelltype indices (underscore-padded to 16wide) are "other" plus those returned by Tcl platform pkg e.g win32,linux,freebsd,macosx
-@REM The horrible underscore-padded fixed-widths are to keep the batch labels aligned whilst allowing values to be set
-@REM If more than 32 chars needed for a target, it can still be done but overall script padding may need checking/adjusting
-@REM Supporting more explicit oses than those listed may also require script padding adjustment
-: <nextshell>
-@SET "nextshellpath[win32___________]=tclsh___________________________"
-@SET "nextshelltype[win32___________]=tcl_____________"
-@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________"
-@SET "nextshelltype[dragonflybsd____]=tcl_____________"
-@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________"
-@SET "nextshelltype[freebsd_________]=tcl_____________"
-@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________"
-@SET "nextshelltype[netbsd__________]=tcl_____________"
-@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________"
-@SET "nextshelltype[linux___________]=tcl_____________"
-@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________"
-@SET "nextshelltype[macosx__________]=tcl_____________"
-@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________"
-@SET "nextshelltype[other___________]=tcl_____________"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM @ECHO nextshelltype is %nextshelltype[win32___________]%
-@REM @SET "selected_shelltype=%nextshelltype[win32___________]%"
-@SET "selected_shelltype=%nextshelltype[win32___________]%"
-@REM @ECHO selected_shelltype %selected_shelltype%
-@CALL :stringTrimTrailingUnderscores %selected_shelltype% selected_shelltype_trimmed
-@REM @ECHO selected_shelltype_trimmed %selected_shelltype_trimmed%
-@SET "selected_shellpath=%nextshellpath[win32___________]%"
-@CALL :stringTrimTrailingUnderscores %selected_shellpath% selected_shellpath_trimmed
-@CALL SET "keyRemoved=%%validshelltypes:!selected_shelltype!=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     deck scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using deck scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and deck scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@SET "qstrippedargs=args%arglist%"
-@SET "qstrippedargs=%qstrippedargs:"=%"
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@GOTO skip_privileges
-:getPrivileges
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "%selected_shelltype_trimmed%"=="powershell" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "%selected_shelltype_trimmed%"=="wslbash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        %selected_shellpath_trimmed% "!wslpath!%fname%" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  perl or tcl or sh or bash
-        IF NOT "x%keyRemoved%"=="x%validshelltypes%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            REM The compound statement with trailing call is required to stop batch termination confirmation, whilst still capturing exitcode
-            %selected_shellpath_trimmed% "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel! & Call;
-        ) ELSE (
-            ECHO %fname% has invalid nextshelltype value %selected_shelltype% valid options are %validshelltypes%
-            SET task_exitcode=66
-            @REM boundary padding
-            @REM boundary padding
-            @REM boundary padding
-            @REM boundary padding
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@REM boundary padding
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @REM Although drive letters on windows are normally upper case wslbash seems to expect lower case drive letters
-    @CALL :stringToLower %drive ldrive
-    @SET "result=/mnt/%ldrive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-@REM boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-@REM boundary padding
-@REM boundary padding
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-:stringToLower
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "retstring=%~1"
-    @FOR %%A in (a b c d e f g h i j k l m n o p q r s t u v w x y z) DO @(
-        @SET "retstring=!retstring:%%A=%%A!"
-    )
-    @SET "result=!retstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToLower %string% result: %result%
-    )
-)
-@EXIT /B
-@REM boundary padding
-@REM boundary padding
-:stringTrimTrailingUnderscores
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "trimstring=%~1"
-    @REM trim up to 31 underscores from the end of a string using string substitution
-    @SET trimstring=%trimstring%###
-    @SET trimstring=%trimstring:________________###=###%
-    @SET trimstring=%trimstring:________###=###%
-    @SET trimstring=%trimstring:____###=###%
-    @SET trimstring=%trimstring:__###=###%
-    @SET trimstring=%trimstring:_###=###%
-    @SET trimstring=%trimstring:###=%
-    @SET "result=!trimstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringTrimTrailingUnderscores %string% result: %result%
-    )
-)
-@EXIT /B
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM padding
-@REM padding
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${::argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists ::argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${::argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subprocess>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-exitcode=0
-#printf "start of bash or sh code"
-
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subprocess>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- Perl script section
-# -- leave the script below as is, if all that is required is launching the Tcl payload"
-# --
-# -- Note that perl script isn't called by default when simply running this script by name
-# -- adjust  the nextshell value at the top of the script to point to perl
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-=cut
-#!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
-my $exit_code = 0;
-#use ExtUtils::Installed;
-#my $installed = ExtUtils::Installed->new();
-#my @modules = $installed->modules();
-#print "Modules:\n";
-#foreach my $m (@modules) {
-#    print "$m\n";
-#}
-# -- --- ---
-
-
-
-my $scriptname = $0;
-print "perl $scriptname\n";
-my $i =1;
-foreach my $a(@ARGV) {
-    print "Arg # $i: $a\n";
-}
-
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
-
-# -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
-#print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
-exit $exit_code;
-__END__
-
-# end hide sh/bash/perl block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# -- custom script should generally go below the begin_powershell_payload line
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
-function GetDynamicParamDictionary {
-    [CmdletBinding()]
-    param(
-        [Parameter(ValueFromPipeline=$true, Mandatory=$true)]
-        [string] $CommandName
-    )
-
-    begin {
-        # Get a list of params that should be ignored (they're common to all advanced functions)
-        $CommonParameterNames = [System.Runtime.Serialization.FormatterServices]::GetUninitializedObject([type] [System.Management.Automation.Internal.CommonParameters]) | 
-            Get-Member -MemberType Properties | 
-            Select-Object -ExpandProperty Name
-    }
-
-    process {
-        # Create the dictionary that this scriptblock will return:
-        $DynParamDictionary = New-Object System.Management.Automation.RuntimeDefinedParameterDictionary
-
-        # Convert to object array and get rid of Common params:
-        (Get-Command $CommandName | select -exp Parameters).GetEnumerator() | 
-            Where-Object { $CommonParameterNames -notcontains $_.Key } |
-            ForEach-Object {
-                $DynamicParameter = New-Object System.Management.Automation.RuntimeDefinedParameter (
-                    $_.Key,
-                    $_.Value.ParameterType,
-                    $_.Value.Attributes
-                )
-                $DynParamDictionary.Add($_.Key, $DynamicParameter)
-            }
-
-        # Return the dynamic parameters
-        return $DynParamDictionary
-    }
-}
-# GetDynamicParamDictionary 
-# - This can make it easier to share a single set of param definitions between functions
-# - sample usage
-#function ParameterDefinitions {
-#    param(
-#        [Parameter(Mandatory)][string] $myargument
-#    )
-#}
-#function psmain {
-#   [CmdletBinding()]
-#   param()
-#   dynamicparam { GetDynamicParamDictionary ParameterDefinitions }
-#   process {
-#       #called once with $PSBoundParameters dictionary
-#       #can be used to validate arguments, or set a simpler variable name for access
-#       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
-#               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
-#           }
-#           #...
-#       }
-#       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
-#           #...
-#       }
-#   }
-#   end {
-#       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
-#       #myotherfunction @PSBoundParameters
-#   }
-#}
-#psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-no script engine should try to run me
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell3.cmd b/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell3.cmd
deleted file mode 100644
index 17fe4c15..00000000
--- a/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell3.cmd
+++ /dev/null
@@ -1,524 +0,0 @@
-: "[rename set s;proc Hide x {proc $x args {}};Hide :]" "\$(function : {<#pwsh#>})" ^
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide x {proc $x args {}}; Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. (close sqote for unix shells) ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo; Hide @REM]#not necessary but can help avoid errs in testing"
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0.cmd", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell4.cmd b/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell4.cmd
deleted file mode 100644
index a9688b6a..00000000
--- a/src/modules/punk/mix/templates/utility/scriptappwrappers/multishell4.cmd
+++ /dev/null
@@ -1,680 +0,0 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
-: "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT - except for first double quoted section.
-: shebang line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@GOTO :skip_perl_pod_start ^;
-=begin excludeperl 
-: skip_perl_pod_start
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: deck scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh' (^14^) 'perl'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-@SET "shells[14]=perl"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     deck scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using deck scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and deck scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@SET "qstrippedargs=args%arglist%"
-@SET "qstrippedargs=%qstrippedargs:"=%"
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@GOTO skip_privileges
-:getPrivileges
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist%
-            SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            @REM boundary padding
-            @REM boundary padding
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@REM boundary padding
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-@REM boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subproces>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subproces>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-exitcode=0
-#printf "start of bash or sh code"
-
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subproces>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- Perl script section
-# -- leave the script below as is, if all that is required is launching the Tcl payload"
-# --
-# -- Note that perl script isn't called by default when simply running this script by name
-# -- adjust  the nextshell value at the top of the script to point to perl
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-=cut
-#!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
-my $exit_code = 0;
-#use ExtUtils::Installed;
-#my $installed = ExtUtils::Installed->new();
-#my @modules = $installed->modules();
-#print "Modules:\n";
-#foreach my $m (@modules) {
-#    print "$m\n";
-#}
-# -- --- ---
-
-
-
-my $scriptname = $0;
-print "perl $scriptname\n";
-my $i =1;
-foreach my $a(@ARGV) {
-    print "Arg # $i: $a\n";
-}
-
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
-
-# -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
-#print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
-exit $exit_code;
-__END__
-
-# end hide sh/bash/perl block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# -- custom script should generally go below the begin_powershell_payload line
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
-function GetDynamicParamDictionary {
-    [CmdletBinding()]
-    param(
-        [Parameter(ValueFromPipeline=$true, Mandatory=$true)]
-        [string] $CommandName
-    )
-
-    begin {
-        # Get a list of params that should be ignored (they're common to all advanced functions)
-        $CommonParameterNames = [System.Runtime.Serialization.FormatterServices]::GetUninitializedObject([type] [System.Management.Automation.Internal.CommonParameters]) | 
-            Get-Member -MemberType Properties | 
-            Select-Object -ExpandProperty Name
-    }
-
-    process {
-        # Create the dictionary that this scriptblock will return:
-        $DynParamDictionary = New-Object System.Management.Automation.RuntimeDefinedParameterDictionary
-
-        # Convert to object array and get rid of Common params:
-        (Get-Command $CommandName | select -exp Parameters).GetEnumerator() | 
-            Where-Object { $CommonParameterNames -notcontains $_.Key } |
-            ForEach-Object {
-                $DynamicParameter = New-Object System.Management.Automation.RuntimeDefinedParameter (
-                    $_.Key,
-                    $_.Value.ParameterType,
-                    $_.Value.Attributes
-                )
-                $DynParamDictionary.Add($_.Key, $DynamicParameter)
-            }
-
-        # Return the dynamic parameters
-        return $DynParamDictionary
-    }
-}
-# GetDynamicParamDictionary 
-# - This can make it easier to share a single set of param definitions between functions
-# - sample usage
-#function ParameterDefinitions {
-#    param(
-#        [Parameter(Mandatory)][string] $myargument
-#    )
-#}
-#function psmain {
-#   [CmdletBinding()]
-#   param()
-#   dynamicparam { GetDynamicParamDictionary ParameterDefinitions }
-#   process {
-#       #called once with $PSBoundParameters dictionary
-#       #can be used to validate arguments, or set a simpler variable name for access
-#       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
-#               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
-#           }
-#           #...
-#       }
-#       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
-#           #...
-#       }
-#   }
-#   end {
-#       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
-#       #myotherfunction @PSBoundParameters
-#   }
-#}
-#psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-no script engine should try to run me
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/argp-0.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/argp-0.2.tm
deleted file mode 100644
index 1b1f4b78..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/argp-0.2.tm
+++ /dev/null
@@ -1,259 +0,0 @@
-
-# Tcl parser for optional arguments in function calls and
-#  commandline arguments
-#
-# (c) 2001 Bastien Chevreux
-
-#  Index of exported commands
-#     - argp::registerArgs
-#     - argp::setArgDefaults
-#     - argp::setArgsNeeded
-#     - argp::parseArgs
-
-#  Internal commands
-#     - argp::CheckValues
-
-# See end of file for an example on how to use
-
-package provide argp 0.2
-
-namespace eval argp {
-    variable Optstore
-    variable Opttypes {
-	boolean integer double string
-    }
-
-    namespace export {[a-z]*}
-}
-
-
-proc argp::registerArgs { func arglist } {
-    variable Opttypes
-    variable Optstore
-
-    set parentns [string range [uplevel 1 [list namespace current]] 2 end]
-    if { $parentns != "" } {
-	append caller $parentns :: $func
-    } else {
-	set caller $func
-    }
-    set cmangled [string map {:: _} $caller]
-
-    #puts $parentns
-    #puts $caller
-    #puts $cmangled
-
-    set Optstore(keys,$cmangled) {}
-    set Optstore(deflist,$cmangled) {}
-    set Optstore(argneeded,$cmangled) {}
-
-    foreach arg $arglist {
-	foreach {opt type default allowed} $arg {
-	    set optindex [lsearch -glob $Opttypes $type*]
-	    if { $optindex < 0} {
-		return -code error "$caller, unknown type $type while registering arguments.\nAllowed types: [string trim $Opttypes]"
-	    }
-	    set type [lindex $Opttypes $optindex]
-
-	    lappend Optstore(keys,$cmangled) $opt 
-	    set Optstore(type,$opt,$cmangled) $type
-	    set Optstore(default,$opt,$cmangled) $default
-	    set Optstore(allowed,$opt,$cmangled) $allowed
-	    lappend Optstore(deflist,$cmangled) $opt $default
-	}
-    }
-
-    if { [catch {CheckValues $caller $cmangled $Optstore(deflist,$cmangled)} res]} {
-	 return -code error "Error in declaration of optional arguments.\n$res"
-    }
-}
-
-proc argp::setArgDefaults { func arglist } {
-    variable Optstore
-
-    set parentns [string range [uplevel 1 [list namespace current]] 2 end]
-    if { $parentns != "" } {
-	append caller $parentns :: $func
-    } else {
-	set caller $func
-    }
-    set cmangled [string map {:: _} $caller]
-
-    if {![info exists Optstore(deflist,$cmangled)]} {
-	return -code error "Arguments for $caller not registered yet."
-    }
-    set Optstore(deflist,$cmangled) {}
-    foreach {opt default} $arglist {
-	if {![info exists Optstore(default,$opt,$cmangled)]} {
-	    return -code error "$caller, unknown option $opt, must be one of: $Optstore(keys,$cmangled)"
-	}
-	set Optstore(default,$opt,$cmangled) $default
-    }
-
-    # set the new defaultlist
-    foreach opt $Optstore(keys,$cmangled) {
-	lappend Optstore(deflist,$cmangled) $opt $Optstore(default,$opt,$cmangled)
-    }
-}
-
-proc argp::setArgsNeeded { func arglist } {
-    variable Optstore
-
-    set parentns [string range [uplevel 1 [list namespace current]] 2 end]
-    if { $parentns != "" } {
-	append caller $parentns :: $func
-    } else {
-	set caller $func
-    }
-    set cmangled [string map {:: _} $caller]
-
-    #append caller $parentns :: $func
-    #set cmangled ${parentns}_$func
-
-    if {![info exists Optstore(deflist,$cmangled)]} {
-	return -code error "Arguments for $caller not registered yet."
-    }
-
-    set Optstore(argneeded,$cmangled) {}
-    foreach opt $arglist {
-	if {![info exists Optstore(default,$opt,$cmangled)]} {
-	    return -code error "$caller, unknown option $opt, must be one of: $Optstore(keys,$cmangled)"
-	}
-	lappend Optstore(argneeded,$cmangled) $opt 
-    }
-}
-
-
-proc argp::parseArgs { args } {
-    variable Optstore
-
-    if {[llength $args] == 0} {
-	upvar args a opts o
-    } else {
-	upvar args a [lindex $args 0] o
-    }
-
-    if { [ catch { set caller [lindex [info level -1] 0]}]} {
-	set caller "main program"
-	set cmangled ""
-    } else {
-	set cmangled [string map {:: _} $caller]
-    }
-
-    if {![info exists Optstore(deflist,$cmangled)]} {
-	return -code error "Arguments for $caller not registered yet."
-    }
-
-    # set the defaults
-    array set o $Optstore(deflist,$cmangled)
-
-    # but unset the needed arguments
-    foreach key $Optstore(argneeded,$cmangled) {
-	catch { unset o($key) }
-    }
-
-    foreach {key val} $a {
-	if {![info exists Optstore(type,$key,$cmangled)]} {
-	    return -code error "$caller, unknown option $key, must be one of: $Optstore(keys,$cmangled)"
-	}
-	switch -exact -- $Optstore(type,$key,$cmangled) {
-	    boolean -
-	    integer {
-		if { $val == "" } {
-		    return -code error "$caller, $key empty string is not $Optstore(type,$key,$cmangled) value."
-		}
-		if { ![string is $Optstore(type,$key,$cmangled) $val]} {
-		    return -code error "$caller, $key $val is not $Optstore(type,$key,$cmangled) value."
-		}
-	    }
-	    double {
-		if { $val == "" } {
-		    return -code error "$caller, $key empty string is not double value."
-		}
-		if { ![string is double $val]} {
-		    return -code error "$caller, $key $val is not double value."
-		}
-		if { [string is integer $val]} {
-		    set val [expr {$val + .0}]
-		}
-	    }
-	    default {
-	    }
-	}
-	set o($key) $val
-    }
-
-    foreach key $Optstore(argneeded,$cmangled) {
-	if {![info exists o($key)]} {
-	    return -code error "$caller, needed argument $key was not given."
-	}
-    }
-
-    if { [catch { CheckValues $caller $cmangled [array get o]} err]} {
-	return -code error $err
-    }
-
-    return
-}
-
-
-proc argp::CheckValues { caller cmangled checklist } {
-    variable Optstore
-
-    #puts "Checking $checklist"
-
-    foreach {key val} $checklist {
-	if { [llength $Optstore(allowed,$key,$cmangled)] > 0 } {
-	    switch -exact -- $Optstore(type,$key,$cmangled) {
-		string {
-		    if { [lsearch $Optstore(allowed,$key,$cmangled) $val] < 0} {
-			return -code error "$caller, $key $val is not in allowed values: $Optstore(allowed,$key,$cmangled)"
-		    }
-		}
-		double -
-		integer {
-		    set found 0
-		    foreach range $Optstore(allowed,$key,$cmangled) {
-			if {[llength $range] == 1} {
-			    if { $val == [lindex $range 0] } {
-				set found 1
-				break
-			    }
-			} elseif {[llength $range] == 2} {
-			    set low [lindex $range 0]
-			    set high [lindex $range 1]
-
-			    if { ![string is integer $low] \
-				    && [string compare "-" $low] != 0} {
-				return -code error "$caller, $key of type $Optstore(type,$key,$cmangled) has a lower value range that is not integer and not \u00b4-\u00b4: $range"
-			    }
-			    if { ![string is integer $high] \
-				    && [string compare "+" $high] != 0} {
-				return -code error "$caller, $key of type $Optstore(type,$key,$cmangled) has a upper value range that is not integer and not \u00b4+\u00b4: $range"
-			    }
-			    if {[string compare "-" $low] == 0} {
-				if { [string compare "+" $high] == 0 \
-					|| $val <= $high } {
-				    set found 1
-				    break
-				}
-			    }
-			    if { $val >= $low } {
-				if {[string compare "+" $high] == 0 \
-					|| $val <= $high } {
-				    set found 1
-				    break
-				}
-			    }
-			} else {
-			    return -code error "$caller, $key of type $Optstore(type,$key,$cmangled) has an allowed value range containing more than 2 elements: $range"
-			}
-		    }
-		    if { $found == 0 } {
-			return -code error "$caller, $key $val is not covered by allowed ranges: $Optstore(allowed,$key,$cmangled)"
-		    }
-		}
-	    }
-	}
-    }
-}
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/argparsingtest-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/argparsingtest-0.1.0.tm
deleted file mode 100644
index b97d1b4e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/argparsingtest-0.1.0.tm
+++ /dev/null
@@ -1,601 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) Julian Noble 2024
-#
-# @@ Meta Begin
-# Application argparsingtest 0.1.0
-# Meta platform     tcl
-# Meta license      MIT
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_argparsingtest 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}]
-#[require argparsingtest]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of argparsingtest
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by argparsingtest
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::args
-package require struct::set
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package {punk::args}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval argparsingtest::class {
-    #*** !doctools
-    #[subsection {Namespace argparsingtest::class}]
-    #[para] class definitions
-    if {[info commands [namespace current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval argparsingtest {
-    namespace export {[a-z]*}  ;# Convention: export all lowercase
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace argparsingtest}]
-    #[para] Core API functions for argparsingtest
-    #[list_begin definitions]
-
-    proc test1_ni {args} {
-        set defaults [dict create\
-            -return string\
-            -frametype \uFFEF\
-            -show_edge \uFFEF\
-            -show_seps \uFFEF\
-            -x ""\
-            -y b\
-            -z c\
-            -1 1\
-            -2 2\
-            -3 3\
-        ]
-        foreach {k v} $args {
-            if {$k ni [dict keys $defaults]} {
-               error "unrecognised option '$k'. Known options [dict keys $defaults]"
-            }
-        }
-        set opts [dict merge $defaults $args]
-    }
-    proc test1_switchmerge {args} {
-        set defaults [dict create\
-            -return string\
-            -frametype \uFFEF\
-            -show_edge \uFFEF\
-            -show_seps \uFFEF\
-            -x ""\
-            -y b\
-            -z c\
-            -1 1\
-            -2 2\
-            -3 3\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -return - -show_edge - -show_seps - -frametype - -x - -y - -z - -1 - -2 - -3 {}
-                default {
-                    error "unrecognised option '$k'. Known options [dict keys $defaults]"
-                }
-            }
-        }
-        set opts [dict merge $defaults $args]
-    }
-    #if we need to loop to test arg validity anyway - then dict set as we go is slightly faster than a dict merge at the end
-    proc test1_switch {args} {
-        set opts [dict create\
-            -return string\
-            -frametype \uFFEF\
-            -show_edge \uFFEF\
-            -show_seps \uFFEF\
-            -x ""\
-            -y b\
-            -z c\
-            -1 1\
-            -2 2\
-            -3 3\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -return - -show_edge - -show_seps - -frametype - -x - -y - -z - -1 - -2 - -3 {
-                    dict set opts $k $v
-                }
-                default {
-                    error "unrecognised option '$k'. Known options [dict keys $opts]"
-                }
-            }
-        }
-        return $opts
-    }
-    variable switchopts
-    set switchopts [dict create\
-        -return string\
-        -frametype \uFFEF\
-        -show_edge \uFFEF\
-        -show_seps \uFFEF\
-        -x ""\
-        -y b\
-        -z c\
-        -1 1\
-        -2 2\
-        -3 3\
-    ]
-    #slightly slower than just creating the dict within the proc
-    proc test1_switch_nsvar {args} {
-        variable switchopts
-        set opts $switchopts
-        foreach {k v} $args {
-            switch -- $k {
-                -return - -show_edge - -show_seps - -frametype - -x - -y - -z - -1 - -2 - -3 {
-                    dict set opts $k $v
-                }
-                default {
-                    error "unrecognised option '$k'. Known options [dict keys $opts]"
-                }
-            }
-        }
-        return $opts
-    }
-    proc test1_switch2 {args} {
-        set opts [dict create\
-            -return string\
-            -frametype \uFFEF\
-            -show_edge \uFFEF\
-            -show_seps \uFFEF\
-            -x ""\
-            -y b\
-            -z c\
-            -1 1\
-            -2 2\
-            -3 3\
-        ]
-        set switches [lmap v [dict keys $opts] {list $v -}]
-        set switches [concat {*}$switches]
-        set switches [lrange $switches 0 end-1]
-        foreach {k v} $args {
-            switch -- $k\
-            {*}$switches  {
-                dict set opts $k $v
-            }\
-            default {
-                    error "unrecognised option '$k'. Known options [dict keys $opts]"
-            }
-        }
-        return $opts
-    }
-    proc test1_prefix {args} {
-        set opts [dict create\
-            -return string\
-            -frametype \uFFEF\
-            -show_edge \uFFEF\
-            -show_seps \uFFEF\
-            -x ""\
-            -y b\
-            -z c\
-            -1 1\
-            -2 2\
-            -3 3\
-        ]
-        foreach {k v} $args {
-            dict set opts [tcl::prefix::match -message "test1_prefix option $k" {-return -frametype -show_edge -show_seps -x -y -z -1 -2 -3} $k] $v
-        }
-        return $opts
-    }
-    proc test1_prefix2 {args} {
-        set opts [dict create\
-            -return string\
-            -frametype \uFFEF\
-            -show_edge \uFFEF\
-            -show_seps \uFFEF\
-            -x ""\
-            -y b\
-            -z c\
-            -1 1\
-            -2 2\
-            -3 3\
-        ]
-        if {[llength $args]} {
-            set knownflags [dict keys $opts]
-        }
-        foreach {k v} $args {
-            dict set opts [tcl::prefix::match -message "test1_prefix2 option $k" $knownflags $k] $v
-        }
-        return $opts
-    }
-
-    #punk::args is slower than argp - but comparable, and argp doesn't support solo flags
-    proc test1_punkargs {args} {
-        set argd [punk::args::parse $args withdef {
-            @id     -id  ::argparsingtest::test1_punkargs
-            @cmd    -name argtest4 -help "test of punk::args::parse comparative performance"
-            @opts   -anyopts 0
-            -return     -default string -type string
-            -frametype  -default \uFFEF -type string
-            -show_edge  -default \uFFEF -type string
-            -show_seps  -default \uFFEF -type string
-            -join       -type none -multiple 1
-            -x          -default "" -type string
-            -y          -default b -type string
-            -z          -default c -type string
-            -1          -default 1 -type boolean
-            -2          -default 2 -type integer
-            -3          -default 3 -type integer
-            @values
-        }]
-        return [tcl::dict::get $argd opts]
-    }
-
-    punk::args::define {
-        @id     -id ::test1_punkargs_by_id
-        @cmd    -name argtest4 -help "test of punk::args::parse comparative performance"
-        @opts   -anyopts 0
-        -return     -default string -type string
-        -frametype  -default \uFFEF -type string
-        -show_edge  -default \uFFEF -type string
-        -show_seps  -default \uFFEF -type string
-        -join       -type none -multiple 1
-        -x          -default "" -type string
-        -y          -default b -type string
-        -z          -default c -type string
-        -1          -default 1 -type boolean
-        -2          -default 2 -type integer
-        -3          -default 3 -type integer
-        @values
-    }
-    proc test1_punkargs_by_id {args} {
-        set argd [punk::args::get_by_id ::test1_punkargs_by_id $args]
-        return [tcl::dict::get $argd opts]
-    }
-
-    punk::args::define {
-        @id  -id ::argparsingtest::test1_punkargs2
-        @cmd -name argtest4 -help "test of punk::args::parse comparative performance"
-        @leaders -min 0 -max 0
-        @opts -anyopts 0
-        -return     -default string -type string
-        -frametype  -default \uFFEF -type string
-        -show_edge  -default \uFFEF -type string
-        -show_seps  -default \uFFEF -type string
-        -join       -type none -multiple 1
-        -x          -default "" -type string
-        -y          -default b -type string
-        -z          -default c -type string
-        -1          -default 1 -type boolean
-        -2          -default 2 -type integer
-        -3          -default 3 -type integer
-        @values -min 0 -max 0
-    }
-    proc test1_punkargs2 {args} {
-        set argd [punk::args::parse $args withid ::argparsingtest::test1_punkargs2]
-        return [tcl::dict::get $argd opts]
-    }
-
-
-    proc test1_punkargs_validate_ansistripped {args} {
-        set argd [punk::args::parse $args withdef {
-            @id -id ::argparsingtest::test1_punkargs_validate_ansistripped
-            @cmd -name argtest4 -help "test of punk::args::parse comparative performance"
-            @opts -anyopts 0
-            -return     -default string -type string -choices {string object} -help "return type"
-            -frametype  -default \uFFEF -type string
-            -show_edge  -default \uFFEF -type string
-            -show_seps  -default \uFFEF -type string
-            -join       -type none -multiple 1
-            -x          -default "" -type string
-            -y          -default b -type string
-            -z          -default c -type string
-            -1          -default 1 -type boolean -validate_ansistripped true
-            -2          -default 2 -type integer -validate_ansistripped true
-            -3          -default 3 -type integer -validate_ansistripped true
-            @values
-        }]
-        return [tcl::dict::get $argd opts]
-    }
-
-    package require opt
-    variable optlist
-    tcl::OptProc test1_opt {
-        {-return string "return type"}
-        {-frametype \uFFEF "type of frame"}
-        {-show_edge \uFFEF "show table outer borders"}
-        {-show_seps \uFFEF "show separators"}
-        {-join "solo option"}
-        {-x "" "x val"}
-        {-y b "y val"}
-        {-z c "z val"}
-        {-1 1 "1val"}
-        {-2 -int 2  "2val"}
-        {-3 -int 3 "3val"}
-    } {
-        set opts [dict create]
-        foreach v [info locals] {
-            dict set opts $v [set $v]
-        }
-        return $opts
-    }
-
-    package require cmdline
-    #cmdline::getoptions is much faster than typedGetoptions
-    proc test1_cmdline_untyped {args} {
-        set cmdlineopts_untyped {
-            {return.arg   "string" "return val"}
-            {frametype.arg \uFFEF "frame type"}
-            {show_edge.arg \uFFEF "show table borders"}
-            {show_seps.arg \uFFEF "show table seps"}
-            {join        "join the things"}
-            {x.arg  ""  "arg x"}
-            {y.arg  b  "arg y"}
-            {z.arg  c  "arg z"}
-            {1.arg  1  "arg 1"}
-            {2.arg  2  "arg 2"}
-            {3.arg  3  "arg 3"}
-        }
-
-        set usage "usage etc"
-        return [::cmdline::getoptions args $cmdlineopts_untyped $usage]
-    }
-    proc test1_cmdline_typed {args} {
-        set cmdlineopts_typed {
-            {return.arg   "string" "return val"}
-            {frametype.arg \uFFEF "frame type"}
-            {show_edge.arg \uFFEF "show table borders"}
-            {show_seps.arg \uFFEF "show table seps"}
-            {join        "join the things"}
-            {x.arg  ""  "arg x"}
-            {y.arg  b  "arg y"}
-            {z.arg  c  "arg z"}
-            {1.boolean  1  "arg 1"}
-            {2.integer  2  "arg 2"}
-            {3.integer  3  "arg 3"}
-        }
-
-        set usage "usage etc"
-        return [::cmdline::typedGetoptions args $cmdlineopts_typed $usage]
-    }
-
-    catch {
-        package require argp
-        argp::registerArgs test1_argp {
-        {    -return      string  "string"    }
-        {    -frametype   string  \uFFEF    }
-        {    -show_edge   string  \uFFEF    }
-        {    -show_seps   string  \uFFEF    }
-        {    -x           string ""         }
-        {    -y           string b         }
-        {    -z           string  c         }
-        {    -1           boolean 1         }
-        {    -2           integer 2         }
-        {    -3           integer 3         }
-        }
-    }
-    proc test1_argp {args} {
-        argp::parseArgs opts
-        return [array get opts]
-    }
-
-    package require tepam
-    tepam::procedure {test1_tepam} {
-    -args {
-        {-return    -type string -default string}
-        {-frametype -type string -default \uFFEF}
-        {-show_edge -type string -default \uFFEF}
-        {-show_seps -type string -default \uFFEF}
-        {-join      -type none -multiple}
-        {-x         -type string -default ""}
-        {-y         -type string -default b}
-        {-z         -type string -default c}
-        {-1         -type boolean -default 1}
-        {-2         -type integer -default 2}
-        {-3         -type integer -default 3}
-    }
-    } {
-        return [dict create return $return frametype $frametype show_edge $show_edge show_seps $show_seps x $x y $y z $z 1 $1 2 $2 3 $3 join $join]
-    }
-
-    #multiline values use first line of each record to determine amount of indent to trim
-    proc test_multiline {args} {
-        set t3 [textblock::frame t3]
-        set argd [punk::args::parse $args withdef [subst {
-            -template1 -default {
-                ******
-                * t1 *
-                ******
-            }
-                -template2 -default {    ------
-                    ******
-                    * t2 *
-                    ******}
-            -template3 -default {$t3}
-            #substituted or literal values with newlines - no autoindent applied - caller will have to pad appropriately
-            -template3b -default {
-            $t3
-            -----------------
-            $t3
-                   abc\ndef
-            }
-            -template4 -default "******
-            * t4 *
-            ******"
-            -template5 -default "
-
-
-            "
-            -flag -default 0 -type boolean
-        }]]
-        return $argd
-    }
-    proc test_multiline2 {args} {
-        set t3 [textblock::frame t3]
-        set argd [punk::args::parse $args withdef {
-            -template1 -default {
-                ******
-                * t1 *
-                ******
-            }
-                -template2 -default {    ------
-                    ******
-                    * t2 *
-                    ******}
-            -template3 -default {$t3}
-            #substituted or literal values with newlines - no autoindent applied - caller will have to pad appropriately
-            -template3b -default {
-            ${$t3}
-            -----------------
-            ${$t3}
-                   abc\ndef
-            }
-            -template4 -default "******
-            * t4 *
-            ******"
-            -template5 -default "
-                a
-                    ${$t3}
-                        c
-            "
-            -flag -default 0 -type boolean
-        }]
-        return $argd
-    }
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok"
-    #}
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace argparsingtest ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval argparsingtest::lib {
-    namespace export {[a-z]*}  ;# Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace argparsingtest::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace argparsingtest::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval argparsingtest::system {
-    #*** !doctools
-    #[subsection {Namespace argparsingtest::system}]
-    #[para] Internal functions that are not part of the API
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide argparsingtest [namespace eval argparsingtest {
-    variable pkg argparsingtest
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/cksum-1.1.4.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/cksum-1.1.4.tm
deleted file mode 100644
index 0fb17981..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/cksum-1.1.4.tm
+++ /dev/null
@@ -1,200 +0,0 @@
-# cksum.tcl - Copyright (C) 2002 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# Provides a Tcl only implementation of the unix cksum(1) command. This is
-# similar to the sum(1) command but the algorithm is better defined and
-# standardized across multiple platforms by POSIX 1003.2/D11.2
-#
-# This command has been verified against the cksum command from the GNU
-# textutils package version 2.0
-#
-# -------------------------------------------------------------------------
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-# -------------------------------------------------------------------------
-
-package require Tcl 8.5-;                # tcl minimum version
-
-namespace eval ::crc {
-    namespace export cksum
-
-    variable cksum_tbl [list 0x0 \
-           0x04C11DB7 0x09823B6E 0x0D4326D9 0x130476DC 0x17C56B6B \
-           0x1A864DB2 0x1E475005 0x2608EDB8 0x22C9F00F 0x2F8AD6D6 \
-           0x2B4BCB61 0x350C9B64 0x31CD86D3 0x3C8EA00A 0x384FBDBD \
-           0x4C11DB70 0x48D0C6C7 0x4593E01E 0x4152FDA9 0x5F15ADAC \
-           0x5BD4B01B 0x569796C2 0x52568B75 0x6A1936C8 0x6ED82B7F \
-           0x639B0DA6 0x675A1011 0x791D4014 0x7DDC5DA3 0x709F7B7A \
-           0x745E66CD 0x9823B6E0 0x9CE2AB57 0x91A18D8E 0x95609039 \
-           0x8B27C03C 0x8FE6DD8B 0x82A5FB52 0x8664E6E5 0xBE2B5B58 \
-           0xBAEA46EF 0xB7A96036 0xB3687D81 0xAD2F2D84 0xA9EE3033 \
-           0xA4AD16EA 0xA06C0B5D 0xD4326D90 0xD0F37027 0xDDB056FE \
-           0xD9714B49 0xC7361B4C 0xC3F706FB 0xCEB42022 0xCA753D95 \
-           0xF23A8028 0xF6FB9D9F 0xFBB8BB46 0xFF79A6F1 0xE13EF6F4 \
-           0xE5FFEB43 0xE8BCCD9A 0xEC7DD02D 0x34867077 0x30476DC0 \
-           0x3D044B19 0x39C556AE 0x278206AB 0x23431B1C 0x2E003DC5 \
-           0x2AC12072 0x128E9DCF 0x164F8078 0x1B0CA6A1 0x1FCDBB16 \
-           0x018AEB13 0x054BF6A4 0x0808D07D 0x0CC9CDCA 0x7897AB07 \
-           0x7C56B6B0 0x71159069 0x75D48DDE 0x6B93DDDB 0x6F52C06C \
-           0x6211E6B5 0x66D0FB02 0x5E9F46BF 0x5A5E5B08 0x571D7DD1 \
-           0x53DC6066 0x4D9B3063 0x495A2DD4 0x44190B0D 0x40D816BA \
-           0xACA5C697 0xA864DB20 0xA527FDF9 0xA1E6E04E 0xBFA1B04B \
-           0xBB60ADFC 0xB6238B25 0xB2E29692 0x8AAD2B2F 0x8E6C3698 \
-           0x832F1041 0x87EE0DF6 0x99A95DF3 0x9D684044 0x902B669D \
-           0x94EA7B2A 0xE0B41DE7 0xE4750050 0xE9362689 0xEDF73B3E \
-           0xF3B06B3B 0xF771768C 0xFA325055 0xFEF34DE2 0xC6BCF05F \
-           0xC27DEDE8 0xCF3ECB31 0xCBFFD686 0xD5B88683 0xD1799B34 \
-           0xDC3ABDED 0xD8FBA05A 0x690CE0EE 0x6DCDFD59 0x608EDB80 \
-           0x644FC637 0x7A089632 0x7EC98B85 0x738AAD5C 0x774BB0EB \
-           0x4F040D56 0x4BC510E1 0x46863638 0x42472B8F 0x5C007B8A \
-           0x58C1663D 0x558240E4 0x51435D53 0x251D3B9E 0x21DC2629 \
-           0x2C9F00F0 0x285E1D47 0x36194D42 0x32D850F5 0x3F9B762C \
-           0x3B5A6B9B 0x0315D626 0x07D4CB91 0x0A97ED48 0x0E56F0FF \
-           0x1011A0FA 0x14D0BD4D 0x19939B94 0x1D528623 0xF12F560E \
-           0xF5EE4BB9 0xF8AD6D60 0xFC6C70D7 0xE22B20D2 0xE6EA3D65 \
-           0xEBA91BBC 0xEF68060B 0xD727BBB6 0xD3E6A601 0xDEA580D8 \
-           0xDA649D6F 0xC423CD6A 0xC0E2D0DD 0xCDA1F604 0xC960EBB3 \
-           0xBD3E8D7E 0xB9FF90C9 0xB4BCB610 0xB07DABA7 0xAE3AFBA2 \
-           0xAAFBE615 0xA7B8C0CC 0xA379DD7B 0x9B3660C6 0x9FF77D71 \
-           0x92B45BA8 0x9675461F 0x8832161A 0x8CF30BAD 0x81B02D74 \
-           0x857130C3 0x5D8A9099 0x594B8D2E 0x5408ABF7 0x50C9B640 \
-           0x4E8EE645 0x4A4FFBF2 0x470CDD2B 0x43CDC09C 0x7B827D21 \
-           0x7F436096 0x7200464F 0x76C15BF8 0x68860BFD 0x6C47164A \
-           0x61043093 0x65C52D24 0x119B4BE9 0x155A565E 0x18197087 \
-           0x1CD86D30 0x029F3D35 0x065E2082 0x0B1D065B 0x0FDC1BEC \
-           0x3793A651 0x3352BBE6 0x3E119D3F 0x3AD08088 0x2497D08D \
-           0x2056CD3A 0x2D15EBE3 0x29D4F654 0xC5A92679 0xC1683BCE \
-           0xCC2B1D17 0xC8EA00A0 0xD6AD50A5 0xD26C4D12 0xDF2F6BCB \
-           0xDBEE767C 0xE3A1CBC1 0xE760D676 0xEA23F0AF 0xEEE2ED18 \
-           0xF0A5BD1D 0xF464A0AA 0xF9278673 0xFDE69BC4 0x89B8FD09 \
-           0x8D79E0BE 0x803AC667 0x84FBDBD0 0x9ABC8BD5 0x9E7D9662 \
-           0x933EB0BB 0x97FFAD0C 0xAFB010B1 0xAB710D06 0xA6322BDF \
-           0xA2F33668 0xBCB4666D 0xB8757BDA 0xB5365D03 0xB1F740B4 ]
-
-    variable uid
-    if {![info exists uid]} {set uid 0}
-}
-
-# crc::CksumInit -- 
-#
-#	Create and initialize a cksum context. This is cleaned up when we
-#	call CksumFinal to obtain the result.
-#
-proc ::crc::CksumInit {} {
-    variable uid
-    set token [namespace current]::[incr uid]
-    upvar #0 $token state
-    array set state {t 0 l 0}
-    return $token
-}
-
-proc ::crc::CksumUpdate {token data} {
-    variable cksum_tbl
-    upvar #0 $token state
-    set t $state(t)
-    binary scan $data c* r
-    foreach {n} $r {
-        set index [expr { (($t >> 24) ^ ($n & 0xFF)) & 0xFF }]
-        # Since the introduction of built-in bigInt support with Tcl
-        # 8.5, bit-shifting $t to the left no longer overflows,
-        # keeping it 32 bits long.  The value grows bigger and bigger
-        # instead - a severe hit on performance.  For this reason we
-        # do a bitwise AND against 0xFFFFFFFF at each step to keep the
-        # value within limits.
-        set t [expr {0xFFFFFFFF & (($t << 8) ^ [lindex $cksum_tbl $index])}]
-        incr state(l)
-    }
-    set state(t) $t
-    return
-}
-
-proc ::crc::CksumFinal {token} {
-    variable cksum_tbl
-    upvar #0 $token state
-    set t $state(t)
-    for {set i $state(l)} {$i > 0} {set i [expr {$i>>8}]} {
-        set index [expr {(($t >> 24) ^ $i) & 0xFF}]
-        set t [expr {0xFFFFFFFF & (($t << 8) ^ [lindex $cksum_tbl $index])}]
-    }
-    unset state
-    return [expr {~$t & 0xFFFFFFFF}]
-}
-
-# crc::Pop --
-#
-#	Pop the nth element off a list. Used in options processing.
-#
-proc ::crc::Pop {varname {nth 0}} {
-    upvar $varname args
-    set r [lindex $args $nth]
-    set args [lreplace $args $nth $nth]
-    return $r
-}
-
-# Description:
-#  Provide a Tcl equivalent of the unix cksum(1) command.
-# Options:
-#  -filename name  - return a checksum for the specified file.
-#  -format string  - return the checksum using this format string.
-#  -chunksize size - set the chunking read size
-#
-proc ::crc::cksum {args} {
-    array set opts [list -filename {} -channel {} -chunksize 4096 \
-                        -format %u -command {}]
-    while {[string match -* [set option [lindex $args 0]]]} {
-        switch -glob -- $option {
-            -file*   { set opts(-filename) [Pop args 1] }
-            -chan*   { set opts(-channel) [Pop args 1] }
-            -chunk*  { set opts(-chunksize) [Pop args 1] }
-            -for*    { set opts(-format)   [Pop args 1] }
-            -command { set opts(-command)  [Pop args 1] }
-            default {
-                if {[llength $args] == 1} { break }
-                if {[string compare $option "--"] == 0} { Pop args ; break }
-                set err [join [lsort [array names opts -*]] ", "]
-                return -code error "bad option \"option\": must be $err"
-            }
-        }
-        Pop args
-    }
-
-    if {$opts(-filename) != {}} {
-        set opts(-channel) [open $opts(-filename) r]
-        fconfigure $opts(-channel) -translation binary
-    }
-
-    if {$opts(-channel) == {}} {
-
-        if {[llength $args] != 1} {
-            return -code error "wrong # args: should be\
-                cksum ?-format string?\
-                -channel chan | -filename file | string"
-        }
-        set tok [CksumInit]
-        CksumUpdate $tok [lindex $args 0]
-        set r [CksumFinal $tok]
-    
-    } else {
-
-        set tok [CksumInit]
-        while {![eof $opts(-channel)]} {
-            CksumUpdate $tok [read $opts(-channel) $opts(-chunksize)]
-        }
-        set r [CksumFinal $tok]
-
-        if {$opts(-filename) != {}} {
-            close $opts(-channel)
-        }
-    }
-
-    return [format $opts(-format) $r]
-}
-
-# -------------------------------------------------------------------------
-
-package provide cksum 1.1.4
-
-# -------------------------------------------------------------------------
-# Local variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/cmdline-1.5.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/cmdline-1.5.2.tm
deleted file mode 100644
index 4e5e1df9..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/cmdline-1.5.2.tm
+++ /dev/null
@@ -1,933 +0,0 @@
-# cmdline.tcl --
-#
-#	This package provides a utility for parsing command line
-#	arguments that are processed by our various applications.
-#	It also includes a utility routine to determine the
-#	application name for use in command line errors.
-#
-# Copyright (c) 1998-2000 by Ajuba Solutions.
-# Copyright (c) 2001-2015 by Andreas Kupries <andreas_kupries@users.sf.net>.
-# Copyright (c) 2003      by David N. Welton  <davidw@dedasys.com>
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-package require Tcl 8.5-
-package provide cmdline 1.5.2
-
-namespace eval ::cmdline {
-    namespace export getArgv0 getopt getKnownOpt getfiles getoptions \
-	    getKnownOptions usage
-}
-
-# ::cmdline::getopt --
-#
-#	The cmdline::getopt works in a fashion like the standard
-#	C based getopt function.  Given an option string and a
-#	pointer to an array or args this command will process the
-#	first argument and return info on how to proceed.
-#
-# Arguments:
-#	argvVar		Name of the argv list that you
-#			want to process.  If options are found the
-#			arg list is modified and the processed arguments
-#			are removed from the start of the list.
-#	optstring	A list of command options that the application
-#			will accept.  If the option ends in ".arg" the
-#			getopt routine will use the next argument as
-#			an argument to the option.  Otherwise the option
-#			is a boolean that is set to 1 if present.
-#	optVar		The variable pointed to by optVar
-#			contains the option that was found (without the
-#			leading '-' and without the .arg extension).
-#	valVar		Upon success, the variable pointed to by valVar
-#			contains the value for the specified option.
-#			This value comes from the command line for .arg
-#			options, otherwise the value is 1.
-#			If getopt fails, the valVar is filled with an
-#			error message.
-#
-# Results:
-# 	The getopt function returns 1 if an option was found, 0 if no more
-# 	options were found, and -1 if an error occurred.
-
-proc ::cmdline::getopt {argvVar optstring optVar valVar} {
-    upvar 1 $argvVar argsList
-    upvar 1 $optVar option
-    upvar 1 $valVar value
-
-    set result [getKnownOpt argsList $optstring option value]
-
-    if {$result < 0} {
-        # Collapse unknown-option error into any-other-error result.
-        set result -1
-    }
-    return $result
-}
-
-# ::cmdline::getKnownOpt --
-#
-#	The cmdline::getKnownOpt works in a fashion like the standard
-#	C based getopt function.  Given an option string and a
-#	pointer to an array or args this command will process the
-#	first argument and return info on how to proceed.
-#
-# Arguments:
-#	argvVar		Name of the argv list that you
-#			want to process.  If options are found the
-#			arg list is modified and the processed arguments
-#			are removed from the start of the list.  Note that
-#			unknown options and the args that follow them are
-#			left in this list.
-#	optstring	A list of command options that the application
-#			will accept.  If the option ends in ".arg" the
-#			getopt routine will use the next argument as
-#			an argument to the option.  Otherwise the option
-#			is a boolean that is set to 1 if present.
-#	optVar		The variable pointed to by optVar
-#			contains the option that was found (without the
-#			leading '-' and without the .arg extension).
-#	valVar		Upon success, the variable pointed to by valVar
-#			contains the value for the specified option.
-#			This value comes from the command line for .arg
-#			options, otherwise the value is 1.
-#			If getopt fails, the valVar is filled with an
-#			error message.
-#
-# Results:
-# 	The getKnownOpt function returns 1 if an option was found,
-#	0 if no more options were found, -1 if an unknown option was
-#	encountered, and -2 if any other error occurred.
-
-proc ::cmdline::getKnownOpt {argvVar optstring optVar valVar} {
-    upvar 1 $argvVar argsList
-    upvar 1 $optVar  option
-    upvar 1 $valVar  value
-
-    # default settings for a normal return
-    set value ""
-    set option ""
-    set result 0
-
-    # check if we're past the end of the args list
-    if {[llength $argsList] != 0} {
-
-	# if we got -- or an option that doesn't begin with -, return (skipping
-	# the --).  otherwise process the option arg.
-	switch -glob -- [set arg [lindex $argsList 0]] {
-	    "--" {
-		set argsList [lrange $argsList 1 end]
-	    }
-	    "--*" -
-	    "-*" {
-		set option [string range $arg 1 end]
-		if {[string equal [string range $option 0 0] "-"]} {
-		    set option [string range $arg 2 end]
-		}
-
-		# support for format: [-]-option=value
-		set idx [string first "=" $option 1]
-		if {$idx != -1} {
-		    set _val   [string range $option [expr {$idx+1}] end]
-		    set option [string range $option 0   [expr {$idx-1}]]
-		}
-
-		if {[lsearch -exact $optstring $option] != -1} {
-		    # Booleans are set to 1 when present
-		    set value 1
-		    set result 1
-		    set argsList [lrange $argsList 1 end]
-		} elseif {[lsearch -exact $optstring "$option.arg"] != -1} {
-		    set result 1
-		    set argsList [lrange $argsList 1 end]
-
-		    if {[info exists _val]} {
-			set value $_val
-		    } elseif {[llength $argsList]} {
-			set value [lindex $argsList 0]
-			set argsList [lrange $argsList 1 end]
-		    } else {
-			set value "Option \"$option\" requires an argument"
-			set result -2
-		    }
-		} else {
-		    # Unknown option.
-		    set value "Illegal option \"-$option\""
-		    set result -1
-		}
-	    }
-	    default {
-		# Skip ahead
-	    }
-	}
-    }
-
-    return $result
-}
-
-# ::cmdline::getoptions --
-#
-#	Process a set of command line options, filling in defaults
-#	for those not specified.  This also generates an error message
-#	that lists the allowed flags if an incorrect flag is specified.
-#
-# Arguments:
-#	argvVar		The name of the argument list, typically argv.
-#			We remove all known options and their args from it.
-#                       In other words, after the call to this command the
-#                       referenced variable contains only the non-options,
-#                       and unknown options.
-#	optlist		A list-of-lists where each element specifies an option
-#			in the form:
-#				(where flag takes no argument)
-#					flag comment
-#
-#				(or where flag takes an argument)
-#					flag default comment
-#
-#			If flag ends in ".arg" then the value is taken from the
-#			command line. Otherwise it is a boolean and appears in
-#			the result if present on the command line. If flag ends
-#			in ".secret", it will not be displayed in the usage.
-#	usage		Text to include in the usage display. Defaults to
-#			"options:"
-#
-# Results
-#	Name value pairs suitable for using with array set.
-#       A modified `argvVar`.
-
-proc ::cmdline::getoptions {argvVar optlist {usage options:}} {
-    upvar 1 $argvVar argv
-
-    set opts [GetOptionDefaults $optlist result]
-
-    set argc [llength $argv]
-    while {[set err [getopt argv $opts opt arg]]} {
-	if {$err < 0} {
-            set result(?) ""
-            break
-	}
-	set result($opt) $arg
-    }
-    if {[info exist result(?)] || [info exists result(help)]} {
-	Error [usage $optlist $usage] USAGE
-    }
-    return [array get result]
-}
-
-# ::cmdline::getKnownOptions --
-#
-#	Process a set of command line options, filling in defaults
-#	for those not specified.  This ignores unknown flags, but generates
-#	an error message that lists the correct usage if a known option
-#	is used incorrectly.
-#
-# Arguments:
-#	argvVar		The name of the argument list, typically argv.  This
-#			We remove all known options and their args from it.
-#                       In other words, after the call to this command the
-#                       referenced variable contains only the non-options,
-#                       and unknown options.
-#	optlist		A list-of-lists where each element specifies an option
-#			in the form:
-#				flag default comment
-#			If flag ends in ".arg" then the value is taken from the
-#			command line. Otherwise it is a boolean and appears in
-#			the result if present on the command line. If flag ends
-#			in ".secret", it will not be displayed in the usage.
-#	usage		Text to include in the usage display. Defaults to
-#			"options:"
-#
-# Results
-#	Name value pairs suitable for using with array set.
-#       A modified `argvVar`.
-
-proc ::cmdline::getKnownOptions {argvVar optlist {usage options:}} {
-    upvar 1 $argvVar argv
-
-    set opts [GetOptionDefaults $optlist result]
-
-    # As we encounter them, keep the unknown options and their
-    # arguments in this list.  Before we return from this procedure,
-    # we'll prepend these args to the argList so that the application
-    # doesn't lose them.
-
-    set unknownOptions [list]
-
-    set argc [llength $argv]
-    while {[set err [getKnownOpt argv $opts opt arg]]} {
-	if {$err == -1} {
-            # Unknown option.
-
-            # Skip over any non-option items that follow it.
-            # For now, add them to the list of unknownOptions.
-            lappend unknownOptions [lindex $argv 0]
-            set argv [lrange $argv 1 end]
-            while {([llength $argv] != 0) \
-                    && ![string match "-*" [lindex $argv 0]]} {
-                lappend unknownOptions [lindex $argv 0]
-                set argv [lrange $argv 1 end]
-            }
-	} elseif {$err == -2} {
-            set result(?) ""
-            break
-        } else {
-            set result($opt) $arg
-        }
-    }
-
-    # Before returning, prepend the any unknown args back onto the
-    # argList so that the application doesn't lose them.
-    set argv [concat $unknownOptions $argv]
-
-    if {[info exist result(?)] || [info exists result(help)]} {
-	Error [usage $optlist $usage] USAGE
-    }
-    return [array get result]
-}
-
-# ::cmdline::GetOptionDefaults --
-#
-#	This internal procedure processes the option list (that was passed to
-#	the getopt or getKnownOpt procedure).  The defaultArray gets an index
-#	for each option in the option list, the value of which is the option's
-#	default value.
-#
-# Arguments:
-#	optlist		A list-of-lists where each element specifies an option
-#			in the form:
-#				flag default comment
-#			If flag ends in ".arg" then the value is taken from the
-#			command line. Otherwise it is a boolean and appears in
-#			the result if present on the command line. If flag ends
-#			in ".secret", it will not be displayed in the usage.
-#	defaultArrayVar	The name of the array in which to put argument defaults.
-#
-# Results
-#	Name value pairs suitable for using with array set.
-
-proc ::cmdline::GetOptionDefaults {optlist defaultArrayVar} {
-    upvar 1 $defaultArrayVar result
-
-    set opts {? help}
-    foreach opt $optlist {
-	set name [lindex $opt 0]
-	if {[regsub -- {\.secret$} $name {} name] == 1} {
-	    # Need to hide this from the usage display and getopt
-	}
-	lappend opts $name
-	if {[regsub -- {\.arg$} $name {} name] == 1} {
-
-	    # Set defaults for those that take values.
-
-	    set default [lindex $opt 1]
-	    set result($name) $default
-	} else {
-	    # The default for booleans is false
-	    set result($name) 0
-	}
-    }
-    return $opts
-}
-
-# ::cmdline::usage --
-#
-#	Generate an error message that lists the allowed flags.
-#
-# Arguments:
-#	optlist		As for cmdline::getoptions
-#	usage		Text to include in the usage display. Defaults to
-#			"options:"
-#
-# Results
-#	A formatted usage message
-
-proc ::cmdline::usage {optlist {usage {options:}}} {
-    set str "[getArgv0] $usage\n"
-    set longest 20
-    set lines {}
-    foreach opt [concat $optlist \
-	     {{- "Forcibly stop option processing"} {help "Print this message"} {? "Print this message"}}] {
-	set name "-[lindex $opt 0]"
-	if {[regsub -- {\.secret$} $name {} name] == 1} {
-	    # Hidden option
-	    continue
-	}
-	if {[regsub -- {\.arg$} $name {} name] == 1} {
-	    append name " value"
-	    set desc "[lindex $opt 2] <[lindex $opt 1]>"
-	} else {
-	    set desc "[lindex $opt 1]"
-	}
-	set n [string length $name]
-	if {$n > $longest} { set longest $n }
-	# max not available before 8.5 - set longest [expr {max($longest, )}]
-	lappend lines $name $desc
-    }
-    foreach {name desc} $lines {
-	append str "[string trimright [format " %-*s %s" $longest $name $desc]]\n"
-    }
-
-    return $str
-}
-
-# ::cmdline::getfiles --
-#
-#	Given a list of file arguments from the command line, compute
-#	the set of valid files.  On windows, file globbing is performed
-#	on each argument.  On Unix, only file existence is tested.  If
-#	a file argument produces no valid files, a warning is optionally
-#	generated.
-#
-#	This code also uses the full path for each file.  If not
-#	given it prepends [pwd] to the filename.  This ensures that
-#	these files will never conflict with files in our zip file.
-#
-# Arguments:
-#	patterns	The file patterns specified by the user.
-#	quiet		If this flag is set, no warnings will be generated.
-#
-# Results:
-#	Returns the list of files that match the input patterns.
-
-proc ::cmdline::getfiles {patterns quiet} {
-    set result {}
-    if {$::tcl_platform(platform) == "windows"} {
-	foreach pattern $patterns {
-	    set pat [file join $pattern]
-	    set files [glob -nocomplain -- $pat]
-	    if {$files == {}} {
-		if {! $quiet} {
-		    puts stdout "warning: no files match \"$pattern\""
-		}
-	    } else {
-		foreach file $files {
-		    lappend result $file
-		}
-	    }
-	}
-    } else {
-	set result $patterns
-    }
-    set files {}
-    foreach file $result {
-	# Make file an absolute path so that we will never conflict
-	# with files that might be contained in our zip file.
-	set fullPath [file join [pwd] $file]
-
-	if {[file isfile $fullPath]} {
-	    lappend files $fullPath
-	} elseif {! $quiet} {
-	    puts stdout "warning: no files match \"$file\""
-	}
-    }
-    return $files
-}
-
-# ::cmdline::getArgv0 --
-#
-#	This command returns the "sanitized" version of argv0.  It will strip
-#	off the leading path and remove the ".bin" extensions that our apps
-#	use because they must be wrapped by a shell script.
-#
-# Arguments:
-#	None.
-#
-# Results:
-#	The application name that can be used in error messages.
-
-proc ::cmdline::getArgv0 {} {
-    global argv0
-
-    set name [file tail $argv0]
-    return [file rootname $name]
-}
-
-##
-# ### ### ### ######### ######### #########
-##
-# Now the typed versions of the above commands.
-##
-# ### ### ### ######### ######### #########
-##
-
-# typedCmdline.tcl --
-#
-#    This package provides a utility for parsing typed command
-#    line arguments that may be processed by various applications.
-#
-# Copyright (c) 2000 by Ross Palmer Mohn.
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# RCS: @(#) $Id: cmdline.tcl,v 1.28 2011/02/23 17:41:52 andreas_kupries Exp $
-
-namespace eval ::cmdline {
-    namespace export typedGetopt typedGetoptions typedUsage
-
-    # variable cmdline::charclasses --
-    #
-    #    Create regexp list of allowable character classes
-    #    from "string is" error message.
-    #
-    # Results:
-    #    String of character class names separated by "|" characters.
-
-    variable charclasses
-    #checker exclude badKey
-    catch {string is . .} charclasses
-    variable dummy
-    regexp      -- {must be (.+)$} $charclasses dummy charclasses
-    regsub -all -- {, (or )?}      $charclasses {|}   charclasses
-    unset dummy
-}
-
-# ::cmdline::typedGetopt --
-#
-#	The cmdline::typedGetopt works in a fashion like the standard
-#	C based getopt function.  Given an option string and a
-#	pointer to a list of args this command will process the
-#	first argument and return info on how to proceed. In addition,
-#	you may specify a type for the argument to each option.
-#
-# Arguments:
-#	argvVar		Name of the argv list that you want to process.
-#			If options are found, the arg list is modified
-#			and the processed arguments are removed from the
-#			start of the list.
-#
-#	optstring	A list of command options that the application
-#			will accept.  If the option ends in ".xxx", where
-#			xxx is any valid character class to the tcl
-#			command "string is", then typedGetopt routine will
-#			use the next argument as a typed argument to the
-#			option. The argument must match the specified
-#			character classes (e.g. integer, double, boolean,
-#			xdigit, etc.). Alternatively, you may specify
-#			".arg" for an untyped argument.
-#
-#	optVar		Upon success, the variable pointed to by optVar
-#			contains the option that was found (without the
-#			leading '-' and without the .xxx extension).  If
-#			typedGetopt fails the variable is set to the empty
-#			string. SOMETIMES! Different for each -value!
-#
-#	argVar		Upon success, the variable pointed to by argVar
-#			contains the argument for the specified option.
-#			If typedGetopt fails, the variable is filled with
-#			an error message.
-#
-# Argument type syntax:
-#	Option that takes no argument.
-#		foo
-#
-#	Option that takes a typeless argument.
-#		foo.arg
-#
-#	Option that takes a typed argument. Allowable types are all
-#	valid character classes to the tcl command "string is".
-#	Currently must be one of alnum, alpha, ascii, control,
-#	boolean, digit, double, false, graph, integer, lower, print,
-#	punct, space, true, upper, wordchar, or xdigit.
-#		foo.double
-#
-#	Option that takes an argument from a list.
-#		foo.(bar|blat)
-#
-# Argument quantifier syntax:
-#	Option that takes an optional argument.
-#		foo.arg?
-#
-#	Option that takes a list of arguments terminated by "--".
-#		foo.arg+
-#
-#	Option that takes an optional list of arguments terminated by "--".
-#		foo.arg*
-#
-#	Argument quantifiers work on all argument types, so, for
-#	example, the following is a valid option specification.
-#		foo.(bar|blat|blah)?
-#
-# Argument syntax miscellany:
-#	Options may be specified on the command line using a unique,
-#	shortened version of the option name. Given that program foo
-#	has an option list of {bar.alpha blah.arg blat.double},
-#	"foo -b fob" returns an error, but "foo -ba fob"
-#	successfully returns {bar fob}
-#
-# Results:
-#	The typedGetopt function returns one of the following:
-#	 1	a valid option was found
-#	 0	no more options found to process
-#	-1	invalid option
-#	-2	missing argument to a valid option
-#	-3	argument to a valid option does not match type
-#
-# Known Bugs:
-#	When using options which include special glob characters,
-#	you must use the exact option. Abbreviating it can cause
-#	an error in the "cmdline::prefixSearch" procedure.
-
-proc ::cmdline::typedGetopt {argvVar optstring optVar argVar} {
-    variable charclasses
-
-    upvar $argvVar argsList
-
-    upvar $optVar retvar
-    upvar $argVar optarg
-
-    # default settings for a normal return
-    set optarg ""
-    set retvar ""
-    set retval 0
-
-    # check if we're past the end of the args list
-    if {[llength $argsList] != 0} {
-
-        # if we got -- or an option that doesn't begin with -, return (skipping
-        # the --).  otherwise process the option arg.
-        switch -glob -- [set arg [lindex $argsList 0]] {
-            "--" {
-                set argsList [lrange $argsList 1 end]
-            }
-
-            "-*" {
-                # Create list of options without their argument extensions
-
-                set optstr ""
-                foreach str $optstring {
-                    lappend optstr [file rootname $str]
-                }
-
-                set _opt [string range $arg 1 end]
-
-                set i [prefixSearch $optstr [file rootname $_opt]]
-                if {$i != -1} {
-                    set opt [lindex $optstring $i]
-
-                    set quantifier "none"
-                    if {[regexp -- {\.[^.]+([?+*])$} $opt dummy quantifier]} {
-                        set opt [string range $opt 0 end-1]
-                    }
-
-                    if {[string first . $opt] == -1} {
-                        set retval 1
-                        set retvar $opt
-                        set argsList [lrange $argsList 1 end]
-
-                    } elseif {[regexp -- "\\.(arg|$charclasses)\$" $opt dummy charclass]
-                            || [regexp -- {\.\(([^)]+)\)} $opt dummy charclass]} {
-				if {[string equal arg $charclass]} {
-                            set type arg
-			} elseif {[regexp -- "^($charclasses)\$" $charclass]} {
-                            set type class
-                        } else {
-                            set type oneof
-                        }
-
-                        set argsList [lrange $argsList 1 end]
-                        set opt [file rootname $opt]
-
-                        while {1} {
-                            if {[llength $argsList] == 0
-                                    || [string equal "--" [lindex $argsList 0]]} {
-                                if {[string equal "--" [lindex $argsList 0]]} {
-                                    set argsList [lrange $argsList 1 end]
-                                }
-
-                                set oneof ""
-                                if {$type == "arg"} {
-                                    set charclass an
-                                } elseif {$type == "oneof"} {
-                                    set oneof ", one of $charclass"
-                                    set charclass an
-                                }
-
-                                if {$quantifier == "?"} {
-                                    set retval 1
-                                    set retvar $opt
-                                    set optarg ""
-                                } elseif {$quantifier == "+"} {
-                                    set retvar $opt
-                                    if {[llength $optarg] < 1} {
-                                        set retval -2
-                                        set optarg "Option requires at least one $charclass argument$oneof -- $opt"
-                                    } else {
-                                        set retval 1
-                                    }
-                                } elseif {$quantifier == "*"} {
-                                    set retval 1
-                                    set retvar $opt
-                                } else {
-                                    set optarg "Option requires $charclass argument$oneof -- $opt"
-                                    set retvar $opt
-                                    set retval -2
-                                }
-                                set quantifier ""
-                            } elseif {($type == "arg")
-                                    || (($type == "oneof")
-                                    && [string first "|[lindex $argsList 0]|" "|$charclass|"] != -1)
-                                    || (($type == "class")
-                                    && [string is $charclass [lindex $argsList 0]])} {
-                                set retval 1
-                                set retvar $opt
-                                lappend optarg [lindex $argsList 0]
-                                set argsList [lrange $argsList 1 end]
-                            } else {
-                                set oneof ""
-                                if {$type == "arg"} {
-                                    set charclass an
-                                } elseif {$type == "oneof"} {
-                                    set oneof ", one of $charclass"
-                                    set charclass an
-                                }
-                                set optarg "Option requires $charclass argument$oneof -- $opt"
-                                set retvar $opt
-                                set retval -3
-
-                                if {$quantifier == "?"} {
-                                    set retval 1
-                                    set optarg ""
-                                }
-                                set quantifier ""
-                            }
-                             if {![regexp -- {[+*]} $quantifier]} {
-                                break;
-                            }
-                        }
-                    } else {
-                        Error \
-			    "Illegal option type specification: must be one of $charclasses" \
-			    BAD OPTION TYPE
-                    }
-                } else {
-                    set optarg "Illegal option -- $_opt"
-                    set retvar $_opt
-                    set retval -1
-                }
-            }
-	    default {
-		# Skip ahead
-	    }
-        }
-    }
-
-    return $retval
-}
-
-# ::cmdline::typedGetoptions --
-#
-#	Process a set of command line options, filling in defaults
-#	for those not specified. This also generates an error message
-#	that lists the allowed options if an incorrect option is
-#	specified.
-#
-# Arguments:
-#	argvVar		The name of the argument list, typically argv
-#	optlist		A list-of-lists where each element specifies an option
-#			in the form:
-#
-#				option default comment
-#
-#			Options formatting is as described for the optstring
-#			argument of typedGetopt. Default is for optionally
-#			specifying a default value. Comment is for optionally
-#			specifying a comment for the usage display. The
-#			options "--", "-help", and "-?" are automatically included
-#			in optlist.
-#
-# Argument syntax miscellany:
-#	Options formatting and syntax is as described in typedGetopt.
-#	There are two additional suffixes that may be applied when
-#	passing options to typedGetoptions.
-#
-#	You may add ".multi" as a suffix to any option. For options
-#	that take an argument, this means that the option may be used
-#	more than once on the command line and that each additional
-#	argument will be appended to a list, which is then returned
-#	to the application.
-#		foo.double.multi
-#
-#	If a non-argument option is specified as ".multi", it is
-#	toggled on and off for each time it is used on the command
-#	line.
-#		foo.multi
-#
-#	If an option specification does not contain the ".multi"
-#	suffix, it is not an error to use an option more than once.
-#	In this case, the behavior for options with arguments is that
-#	the last argument is the one that will be returned. For
-#	options that do not take arguments, using them more than once
-#	has no additional effect.
-#
-#	Options may also be hidden from the usage display by
-#	appending the suffix ".secret" to any option specification.
-#	Please note that the ".secret" suffix must be the last suffix,
-#	after any argument type specification and ".multi" suffix.
-#		foo.xdigit.multi.secret
-#
-# Results
-#	Name value pairs suitable for using with array set.
-
-proc ::cmdline::typedGetoptions {argvVar optlist {usage options:}} {
-    variable charclasses
-
-    upvar 1 $argvVar argv
-
-    set opts {? help}
-    foreach opt $optlist {
-        set name [lindex $opt 0]
-        if {[regsub -- {\.secret$} $name {} name] == 1} {
-            # Remove this extension before passing to typedGetopt.
-        }
-        if {[regsub -- {\.multi$} $name {} name] == 1} {
-            # Remove this extension before passing to typedGetopt.
-
-            regsub -- {\..*$} $name {} temp
-            set multi($temp) 1
-        }
-        lappend opts $name
-        if {[regsub -- "\\.(arg|$charclasses|\\(.+).?\$" $name {} name] == 1} {
-            # Set defaults for those that take values.
-            # Booleans are set just by being present, or not
-
-            set dflt [lindex $opt 1]
-            if {$dflt != {}} {
-                set defaults($name) $dflt
-            }
-        }
-    }
-    set argc [llength $argv]
-    while {[set err [typedGetopt argv $opts opt arg]]} {
-        if {$err == 1} {
-            if {[info exists result($opt)]
-                    && [info exists multi($opt)]} {
-                # Toggle boolean options or append new arguments
-
-                if {$arg == ""} {
-                    unset result($opt)
-                } else {
-                    set result($opt) "$result($opt) $arg"
-                }
-            } else {
-                set result($opt) "$arg"
-            }
-        } elseif {($err == -1) || ($err == -3)} {
-            Error [typedUsage $optlist $usage] USAGE
-        } elseif {$err == -2 && ![info exists defaults($opt)]} {
-            Error [typedUsage $optlist $usage] USAGE
-        }
-    }
-    if {[info exists result(?)] || [info exists result(help)]} {
-        Error [typedUsage $optlist $usage] USAGE
-    }
-    foreach {opt dflt} [array get defaults] {
-        if {![info exists result($opt)]} {
-            set result($opt) $dflt
-        }
-    }
-    return [array get result]
-}
-
-# ::cmdline::typedUsage --
-#
-#	Generate an error message that lists the allowed flags,
-#	type of argument taken (if any), default value (if any),
-#	and an optional description.
-#
-# Arguments:
-#	optlist		As for cmdline::typedGetoptions
-#
-# Results
-#	A formatted usage message
-
-proc ::cmdline::typedUsage {optlist {usage {options:}}} {
-    variable charclasses
-
-    set str "[getArgv0] $usage\n"
-    set longest 20
-    set lines {}
-    foreach opt [concat $optlist \
-            {{help "Print this message"} {? "Print this message"}}] {
-        set name "-[lindex $opt 0]"
-        if {[regsub -- {\.secret$} $name {} name] == 1} {
-            # Hidden option
-	    continue
-	}
-
-	if {[regsub -- {\.multi$} $name {} name] == 1} {
-	    # Display something about multiple options
-	}
-
-	if {[regexp -- "\\.(arg|$charclasses)\$" $name dummy charclass] ||
-	    [regexp -- {\.\(([^)]+)\)} $opt dummy charclass]
-	} {
-	    regsub -- "\\..+\$" $name {} name
-	    append name " $charclass"
-	    set desc [lindex $opt 2]
-	    set default [lindex $opt 1]
-	    if {$default != ""} {
-		append desc " <$default>"
-	    }
-	} else {
-	    set desc [lindex $opt 1]
-	}
-	lappend accum $name $desc
-	set n [string length $name]
-	if {$n > $longest} { set longest $n }
-	# max not available before 8.5 - set longest [expr {max($longest, [string length $name])}]
-    }
-    foreach {name desc} $accum {
-	append str "[string trimright [format " %-*s %s" $longest $name $desc]]\n"
-    }
-    return $str
-}
-
-# ::cmdline::prefixSearch --
-#
-#	Search a Tcl list for a pattern; searches first for an exact match,
-#	and if that fails, for a unique prefix that matches the pattern
-#	(i.e, first "lsearch -exact", then "lsearch -glob $pattern*"
-#
-# Arguments:
-#	list		list of words
-#	pattern		word to search for
-#
-# Results:
-#	Index of found word is returned. If no exact match or
-#	unique short version is found then -1 is returned.
-
-proc ::cmdline::prefixSearch {list pattern} {
-    # Check for an exact match
-
-    if {[set pos [::lsearch -exact $list $pattern]] > -1} {
-        return $pos
-    }
-
-    # Check for a unique short version
-
-    set slist [lsort $list]
-    if {[set pos [::lsearch -glob $slist $pattern*]] > -1} {
-        # What if there is nothing for the check variable?
-
-        set check [lindex $slist [expr {$pos + 1}]]
-        if {[string first $pattern $check] != 0} {
-            return [::lsearch -exact $list [lindex $slist $pos]]
-        }
-    }
-    return -1
-}
-# ::cmdline::Error --
-#
-#	Internal helper to throw errors with a proper error-code attached.
-#
-# Arguments:
-#	message		text of the error message to throw.
-#	args		additional parts of the error code to use,
-#                       with CMDLINE as basic prefix added by this command.
-#
-# Results:
-#	An error is thrown, always.
-
-proc ::cmdline::Error {message args} {
-    return -code error -errorcode [linsert $args 0 CMDLINE] $message
-}
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/commandstack-0.3.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/commandstack-0.3.tm
deleted file mode 100644
index b2561a20..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/commandstack-0.3.tm
+++ /dev/null
@@ -1,518 +0,0 @@
-
-
-#JMN 2021 - Public Domain
-#cooperative command renaming
-#
-# REVIEW 2024 - code was originally for specific use in packageTrace
-#  - code should be reviewed for more generic utility.
-#  - API is obscure and undocumented.
-#  - unclear if intention was only for builtins
-#  - consider use of newer 'info cmdtype' - (but need also support for safe interps)
-#  - oo dispatch features may be a better implementation - especially for allowing undoing command renames in the middle of a stack.
-#  - document that replacement command should use 'commandstack::get_next_command <cmd> <renamer>' for delegating to command as it was prior to rename
-#changes:
-#2024
-#    - mungecommand to support namespaced commands
-#    - fix mistake - hardcoded _originalcommand_package  -> _originalcommand_<mungedcommand>
-#2021-09-18
-#   - initial version
-#   - e.g Support cooperation between packageSuppress and packageTrace which both rename the package command
-#   - They need to be able to load and unload in any order.
-#
-
-#strive for no other package dependencies here.
-
-
-namespace eval commandstack {
-    variable all_stacks
-    variable debug
-    set debug 0
-    variable known_renamers [list ::packagetrace ::packageSuppress]
-    if {![info exists all_stacks]} {
-        #don't wipe it
-        set all_stacks [dict create]
-    }
-}
-
-namespace eval commandstack::util {
-    #note - we can't use something like md5 to ID proc body text because we don't want to require additional packages.
-    #We could store the full text of the body to compare - but we need to identify magic strings from cooperating packages such as packageTrace
-    #A magic comment was chosen as the identifying method.
-    #The string IMPLEMENTOR_*! is searched for where the text between _ and ! is the name of the package that implemented the proc.
-
-    #return unspecified if the command is a proc with a body but no magic comment ID
-    #return unknown if the command doesn't have a proc body to analyze
-    #otherwise return the package name identified in the magic comment
-    proc get_IMPLEMENTOR {command} {
-        #assert - command has already been resolved to a namespace ie fully qualified
-        if {[llength [info procs $command]]} {
-            #look for *IMPLEMENTOR_*!
-            set prefix IMPLEMENTOR_
-            set suffix "!"
-            set body [uplevel 1 [list info body $command]]
-            if {[string match "*$prefix*$suffix*" $body]} {
-                 set prefixposn [string first "$prefix" $body]
-                 set pkgposn [expr {$prefixposn + [string length $prefix]}]
-                 #set suffixposn [string first $suffix [string range $body $pkgposn $pkgposn+60]]
-                 set suffixposn [string first $suffix $body $pkgposn]
-                 return [string range $body $pkgposn $suffixposn-1]
-            } else {
-                return unspecified
-            }
-        } else {
-            if {[info commands tcl::info::cmdtype] ne ""} {
-                #tcl9 and maybe some tcl 8.7s ?
-                switch -- [tcl::info::cmdtype $command] {
-                    native {
-                        return builtin
-                    }
-                    default {
-                        return undetermined
-                    }
-                }
-            } else {
-                return undetermined
-            }
-        }
-    }
-}
-namespace eval commandstack::renamed_commands {}
-namespace eval commandstack::temp {} ;#where we create proc initially before renaming into place
-
-namespace eval commandstack {
-    namespace export {[a-z]*}
-    proc help {} {
-        return {
-
-        }
-    }
-
-    proc debug {{on_off {}}} {
-        variable debug
-        if {$on_off eq ""} {
-            return $debug
-        } else {
-            if {[string is boolean -strict $debug]} {
-                set debug [expr {$on_off && 1}]
-                return $debug
-            }
-        }
-    }
-
-    proc get_stack {{command ""}} {
-        variable all_stacks
-        if {$command eq ""} {
-            return $all_stacks
-        }
-        set command [uplevel 1 [list namespace which $command]]
-        if {[dict exists $all_stacks $command]} {
-            return [dict get $all_stacks $command]
-        } else {
-            return [list]
-        }
-    }
-
-    #get the implementation to which the renamer (renamer is usually calling namespace) originally renamed it, or the implementation it now points to.
-    #review - performance impact. Possible to use oo for faster dispatch whilst allowing stack re-orgs?
-    #e.g if renaming builtin 'package' - this command is generally called 'a lot'
-    proc get_next_command {command renamer tokenid} {
-        variable all_stacks
-        if {[dict exists $all_stacks $command]} {
-            set stack [dict get $all_stacks $command]
-            #stack is a list of dicts, 1st entry is token {<cmd> <renamer> <tokenid>}
-            set posn [lsearch -index 1 $stack [list $command $renamer $tokenid]]
-            if {$posn > -1} {
-                set record [lindex $stack $posn]
-                return [dict get $record implementation]
-            } else {
-                error "(commandstack::get_next_command) ERROR: unable to determine next command for '$command' using token: $command $renamer $tokenid"
-            }
-        } else {
-            return $command
-        }
-    }
-    proc basecall {command args} {
-        variable all_stacks
-        set command [uplevel 1 [list namespace which $command]]
-        if {[dict exists $all_stacks $command]} {
-            set stack [dict get $all_stacks $command]
-            if {[llength $stack]} {
-                set rec1 [lindex $stack 0]
-                tailcall [dict get $rec1 implementation] {*}$args
-            } else {
-                tailcall $command {*}$args
-            }
-        } else {
-            tailcall $command {*}$args
-        }
-    }
-
-
-    #review.
-    #<renamer> defaults to calling namespace - but can be arbitrary string
-    proc rename_command {args} {
-        #todo: consider -forcebase 1 or similar to allow this rename to point to bottom of stack (original command) bypassing existing renames
-        # - need to consider that upon removing, that any remaining rename that was higher on the stack should not also be diverted to the base - but rather to the next lower in the stack
-        #
-        if {[lindex $args 0] eq "-renamer"} {
-            set renamer [lindex $args 1]
-            set arglist [lrange $args 2 end]
-        } else {
-            set renamer ""
-            set arglist $args
-        }
-        if {[llength $arglist] != 3} {
-            error "commandstack::rename_command usage: rename_command ?-renamer <string>? command procargs procbody"
-        }
-        lassign $arglist command procargs procbody
-
-        set command [uplevel 1 [list namespace which $command]]
-        set mungedcommand [string map {:: _ns_} $command]
-        set mungedrenamer [string map {:: _ns_} $renamer]
-        variable all_stacks
-        variable known_renamers
-        variable renamer_command_tokens ;#monotonically increasing int per <mungedrenamer>::<mungedcommand> representing number of renames ever done.
-        if {$renamer eq ""} {
-            set renamer [uplevel 1 [list namespace current]]
-        }
-        if {$renamer ni $known_renamers} {
-            lappend known_renamers $renamer
-            dict set renamer_command_tokens [list $renamer $command] 0
-        }
-
-        #TODO - reduce emissions to stderr - flag for debug?
-
-        #e.g packageTrace and packageSuppress packages use this convention.
-        set nextinfo [uplevel 1 [list\
-            apply {{command renamer procbody} {
-                #todo - munge dash so we can make names in renamed_commands separable
-                # {- _dash_} ?
-                set mungedcommand [string map {:: _ns_} $command]
-                set mungedrenamer [string map {:: _ns_} $renamer]
-                set tokenid [lindex [dict incr renamer_command_tokens [list $renamer $command]] 1]
-                set next_target ::commandstack::renamed_commands::${mungedcommand}-original-$mungedrenamer-$tokenid   ;#default is to assume we are the only one playing around with it, but we'll check for known associates too.
-                set do_rename 0
-                if {[llength [info procs $command]] || [llength [info commands $next_target]]} {
-                    #$command is not the standard builtin - something has replaced it, could be ourself.
-                    set next_implementor [::commandstack::util::get_IMPLEMENTOR $command]
-                    set munged_next_implementor [string map {:: _ns_} $next_implementor]
-                    #if undetermined/unspecified it could be the latest renamer on the stack - but we can't know for sure something else didn't rename it.
-                    if {[dict exists $::commandstack::all_stacks $command]} {
-                        set comstacks [dict get $::commandstack::all_stacks $command]
-                    } else {
-                        set comstacks [list]
-                    }
-                    set this_renamer_previous_entries [lsearch -all -index 3 $comstacks $renamer] ;#index 3 is value for second dict entry - (value for key 'renamer')
-                    if {[llength $this_renamer_previous_entries]} {
-                        if {$next_implementor eq $renamer} {
-                            #previous renamer was us. Rather than assume our job is done.. compare the implementations
-                            #don't rename if immediate predecessor is same code.
-                            #set topstack [lindex $comstacks end]
-                            #set next_impl [dict get $topstack implementation]
-                            set current_body [info body $command]
-                            lassign [commandstack::lib::split_body $current_body] _ current_code
-                            set current_code [string trim $current_code]
-                            set new_code     [string trim $procbody]
-                            if {$current_code eq $new_code} {
-                                puts stderr "(commandstack::rename_command) WARNING - renamer '$renamer' has already renamed the '$command' command with same procbody - Aborting rename."
-                                puts stderr [::commandstack::show_stack $command]
-                            } else {
-                                puts stderr "(commandstack::rename_command) WARNING - renamer '$renamer' has already renamed the '$command' command - but appears to be with new code - proceeding."
-                                puts stdout "----------"
-                                puts stdout "$current_code"
-                                puts stdout "----------"
-                                puts stdout "$new_code"
-                                puts stdout "----------"
-                                set next_target ::commandstack::renamed_commands::${mungedcommand}-${munged_next_implementor}-$mungedrenamer-$tokenid
-                                set do_rename 1
-                            }
-                        } else {
-                            puts stderr "(commandstack::rename_command) WARNING - renamer '$renamer' has already renamed the '$command' command, but is not immediate predecessor - proceeding anyway... (untested)"
-                            puts stderr
-                            set next_target ::commandstack::renamed_commands::${mungedcommand}-${munged_next_implementor}-$mungedrenamer-$tokenid
-                            set do_rename 1
-                        }
-                    } elseif {$next_implementor in $::commandstack::known_renamers} {
-                        set next_target ::commandstack::renamed_commands::${mungedcommand}-${munged_next_implementor}-$mungedrenamer-$tokenid
-                        set do_rename 1
-                    } elseif {$next_implementor in {builtin}} {
-                        #native/builtin could still have been renamed
-                        set next_target ::commandstack::renamed_commands::${mungedcommand}_${munged_next_implementor}-$mungedrenamer-$tokenid
-                        set do_rename 1
-                    } elseif {$next_implementor in {unspecified undetermined}} {
-                        #could be a standard tcl proc, or from application or package
-                        set next_target ::commandstack::renamed_commands::${mungedcommand}_${munged_next_implementor}-$mungedrenamer-$tokenid
-                        set do_rename 1
-                    } else {
-                        puts stderr "(commandstack::rename_command) Warning - pkg:'$next_implementor' has renamed the '$command' command. Attempting to cooperate. (untested)"
-                        set next_target ::commandstack::renamed_commands::${mungedcommand}_${munged_next_implementor}-$mungedrenamer-$tokenid
-                        set do_rename 1
-                    }
-                } else {
-                    #_originalcommand_<mungedcommand>
-                    #assume builtin/original
-                    set next_implementor original
-                    #rename $command $next_target
-                    set do_rename 1
-                }
-                #There are of course other ways in which $command may have been renamed - but we can't detect.
-                set token [list $command $renamer $tokenid]
-                return [dict create next_target $next_target next_implementor $next_implementor token $token do_rename $do_rename]
-            } } $command $renamer $procbody]
-        ]
-
-
-        variable debug
-        if {$debug} {
-            if {[dict exists $all_stacks $command]} {
-                set stack [dict get $all_stacks $command]
-                puts stderr "(commandstack::rename_command) Subsequent rename of command '$command'. (previous renames: [llength $stack]).  Renaming to [dict get $nextinfo next_target]"
-            } else {
-                #assume this is the original
-                puts stderr "(commandstack::rename_command) 1st detected rename of command '$command'. Renaming to [dict get $nextinfo next_target]"
-            }
-        }
-
-        #token is always first dict entry. (Value needs to be searched with lsearch -index 1 )
-        #renamer is always second dict entry (Value needs to be searched with lsearch -index 3)
-        set new_record [dict create\
-            token               [dict get $nextinfo token]\
-            renamer $renamer\
-            next_implementor    [dict get $nextinfo next_implementor]\
-            next_getter         [list ::commandstack::get_next_command {*}[dict get $nextinfo token]]\
-            implementation      [dict get $nextinfo next_target]\
-        ]
-        if {![dict get $nextinfo do_rename]} {
-            #review
-            puts stderr "no rename performed"
-            return [dict create implementation ""]
-        }
-        catch {rename ::commandstack::temp::testproc ""}
-        set nextinit [string map [list %command% $command %renamer% $renamer %next_getter% [dict get $new_record next_getter] %original_implementation% [dict get $new_record implementation]] {
-            #IMPLEMENTOR_%renamer%!  (mechanism: 'commandstack::rename_command -renamer %renamer% %command% <procargs> <procbody> )
-            set COMMANDSTACKNEXT_ORIGINAL %original_implementation% ;#informational/debug for overriding proc.
-            set COMMANDSTACKNEXT [%next_getter%]
-            #<commandstack_separator>#
-        }]
-        set final_procbody "$nextinit$procbody"
-        #build the proc at a temp location so that if it raises an error we don't adjust the stack or replace the original command
-        #(e.g due to invalid argument specifiers)
-        proc ::commandstack::temp::testproc $procargs $final_procbody
-        uplevel 1 [list rename $command [dict get $nextinfo next_target]]
-        uplevel 1 [list rename ::commandstack::temp::testproc $command]
-        dict lappend all_stacks $command $new_record
-
-
-        return $new_record
-    }
-
-    #todo - concept of 'pop' for renamer. Remove topmost entry specific to the renamer
-    #todo - removal by token to allow renamer to have multiple entries for one command but to remove one that is not the topmost
-    #todo - removal of all entries pertaining to a particular renamer
-    #todo - allow restore to bottom-most implementation (original) - regardless of what renamers have cooperated in the stack?
-
-    #remove by token, or by commandname if called from same context as original rename_command
-    #If only a commandname is supplied, and there were multiple renames from the same context (same -renamer) only the topmost is removed.
-    #A call to remove_rename with no token or renamer, and from a namespace context which didn't perform a rename will not remove anything.
-    #similarly a nonexistant token or renamer will not remove anything and will just return the current stack
-    proc remove_rename {token_or_command} {
-        if {[llength $token_or_command] == 3} {
-            #is token
-            lassign $token_or_command command renamer tokenid
-        } elseif {[llength $token_or_command] == 2} {
-            #command and renamer only supplied
-            lassign $token_or_command command renamer
-            set tokenid ""
-        } elseif {[llength $token_or_command] == 1} {
-            #is command name only
-            set command $token_or_command
-            set renamer [uplevel 1 [list namespace current]]
-            set tokenid ""
-        }
-        set command [uplevel 1 [list namespace which $command]]
-        variable all_stacks
-        variable known_renamers
-        if {$renamer ni $known_renamers} {
-            error "(commandstack::remove_rename) ERROR: renamer $renamer not in list of known_renamers '$known_renamers' for command '$command'. Ensure remove_rename called from same context as rename_command was, or explicitly supply exact token or {<command> <renamer>}"
-        }
-        if {[dict exists $all_stacks $command]} {
-            set stack [dict get $all_stacks $command]
-            if {$tokenid ne ""} {
-                #token_or_command is a token as returned within the rename_command result dictionary
-                #search first dict value
-                set doomed_posn [lsearch -index 1 $stack $token_or_command]
-            } else {
-                #search second dict value
-                set matches [lsearch -all -index 3 $stack $renamer]
-                set doomed_posn [lindex $matches end] ;#we don't have a full token - pop last entry for this renamer
-            }
-            if {$doomed_posn ne "" && $doomed_posn > -1} {
-                set doomed_record [lindex $stack $doomed_posn]
-                if {[llength $stack] == ($doomed_posn + 1)} {
-                #last on stack - put the implemenation from the doomed_record back as the actual command
-                    uplevel #0 [list rename $command ""]
-                    uplevel #0 [list rename [dict get $doomed_record implementation] $command]
-                } elseif {[llength $stack] > ($doomed_posn + 1)} {
-                    #there is at least one more record on the stack - rewrite it to point where the doomed_record pointed
-                    set rewrite_posn [expr {$doomed_posn + 1}]
-                    set rewrite_record [lindex $stack $rewrite_posn]
-
-                    if {[dict get $rewrite_record next_implementor] ne $renamer} {
-                        puts stderr "(commandstack::remove_rename) WARNING: next record on the commandstack didn't record '$renamer' as the next_implementor - not deleting implementation [dict get $rewrite_record implementation]"
-                    } else {
-                        uplevel #0 [list rename [dict get $rewrite_record implementation] ""]
-                    }
-                    dict set rewrite_record next_implementor    [dict get $doomed_record next_implementor]
-                    #don't update next_getter - it always refers to self
-                    dict set rewrite_record implementation      [dict get $doomed_record implementation]
-                    lset stack $rewrite_posn $rewrite_record
-                    dict set all_stacks $command $stack
-                }
-                set stack [lreplace $stack $doomed_posn $doomed_posn]
-                dict set all_stacks $command $stack
-
-            }
-            return $stack
-        }
-        return [list]
-    }
-
-    proc show_stack {{commandname_glob *}} {
-        variable all_stacks
-        if {![regexp {[?*]} $commandname_glob]} {
-            #if caller is attempting exact match - use the calling context to resolve in case they didn't supply namespace
-            set commandname_glob [uplevel 1 [list namespace which $commandname_glob]]
-        }
-        if {[package provide punk::lib] ne "" && [package provide punk] ne ""} {
-            #punk pipeline also needed for patterns
-            return [punk::lib::pdict -channel none  all_stacks $commandname_glob/@*/@*.@*]
-        } else {
-            set result ""
-            set matchedkeys [dict keys $all_stacks $commandname_glob]
-            #don't try to calculate widest on empty list
-            if {[llength $matchedkeys]} {
-                set widest [tcl::mathfunc::max {*}[lmap v $matchedkeys {tcl::string::length $v}]]
-                set indent [string repeat " " [expr {$widest + 3}]]
-                set indent2 "${indent}       " ;#8 spaces for " i = " where i is 4 wide
-                set padkey [string repeat " " 20]
-                foreach k $matchedkeys {
-                    append result "$k = "
-                    set i 0
-                    foreach stackmember [dict get $all_stacks $k] {
-                        if {$i > 0} {
-                            append result "\n$indent"
-                        }
-                        append result [string range "$i   " 0 4] " = "
-                        set j 0
-                        dict for {k v} $stackmember {
-                            if {$j > 0} {
-                                append result "\n$indent2"
-                            }
-                            set displaykey [string range "$k$padkey" 0 20]
-                            append result "$displaykey = $v"
-                            incr j
-                        }
-                        incr i
-                    }
-                    append result \n
-                }
-            }
-            return $result
-        }
-    }
-
-    #review
-    #document when this is to be called. Wiping stacks without undoing renames seems odd.
-    proc Delete_stack {command} {
-        variable all_stacks
-        if {[dict exists $all_stacks $command]} {
-            dict unset all_stacks $command
-            return 1
-        } else {
-            return 1
-        }
-    }
-
-    #can be used to temporarily put a stack aside - should manually rename back when done.
-    #review - document how/when to use. example? intention?
-    proc Rename_stack {oldname newname} {
-        variable all_stacks
-        if {[dict exists $all_stacks $oldname]} {
-            if {[dict exists $all_stacks $newname]} {
-                error "(commandstack::rename_stack) cannot rename $oldname to $newname - $newname already exists in stack"
-            } else {
-                #set stackval [dict get $all_stacks $oldname]
-                #dict unset all_stacks $oldname
-                #dict set all_stacks $newname $stackval
-                dict set all_stacks $newname [lindex [list [dict get $all_stacks $oldname] [dict unset all_stacks $oldname]] 0]
-            }
-        }
-    }
-}
-
-
-
-
-
-
-
-
-namespace eval commandstack::lib {
-    proc splitx {str {regexp {[\t \r\n]+}}} {
-        #snarfed from tcllib textutil::splitx to avoid the dependency
-        # Bugfix 476988
-        if {[string length $str] == 0} {
-            return {}
-        }
-        if {[string length $regexp] == 0} {
-            return [::split $str ""]
-        }
-        if {[regexp $regexp {}]} {
-            return -code error  "splitting on regexp \"$regexp\" would cause infinite loop"
-        }
-
-        set list  {}
-        set start 0
-        while {[regexp -start $start -indices -- $regexp $str match submatch]} {
-            foreach {subStart subEnd} $submatch break
-            foreach {matchStart matchEnd} $match break
-            incr matchStart -1
-            incr matchEnd
-            lappend list [string range $str $start $matchStart]
-            if {$subStart >= $start} {
-                lappend list [string range $str $subStart $subEnd]
-            }
-            set start $matchEnd
-        }
-        lappend list [string range $str $start end]
-        return $list
-    }
-    proc split_body {procbody} {
-        set marker "#<commandstack_separator>#"
-        set header ""
-        set code ""
-        set found_marker 0
-        foreach ln [split $procbody \n] {
-            if {!$found_marker} {
-                if {[string trim $ln] eq $marker} {
-                    set found_marker 1
-                } else {
-                    append header $ln \n
-                }
-            } else {
-                append code $ln \n
-            }
-        }
-        if {$found_marker} {
-            return [list $header $code]
-        } else {
-            return [list "" $procbody]
-        }
-    }
-}
-
-package provide commandstack [namespace eval commandstack {
-    set version 0.3
-}]
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/debug-1.0.6.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/debug-1.0.6.tm
deleted file mode 100644
index c2ee57be..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/debug-1.0.6.tm
+++ /dev/null
@@ -1,306 +0,0 @@
-# Debug - a debug narrative logger.
-# -- Colin McCormack / originally Wub server utilities
-#
-# Debugging areas of interest are represented by 'tokens' which have 
-# independantly settable levels of interest (an integer, higher is more detailed)
-#
-# Debug narrative is provided as a tcl script whose value is [subst]ed in the 
-# caller's scope if and only if the current level of interest matches or exceeds
-# the Debug call's level of detail.  This is useful, as one can place arbitrarily
-# complex narrative in code without unnecessarily evaluating it.
-#
-# TODO: potentially different streams for different areas of interest.
-# (currently only stderr is used.  there is some complexity in efficient
-# cross-threaded streams.)
-
-# # ## ### ##### ######## ############# #####################
-## Requisites
-
-package require Tcl 8.5-
-
-namespace eval ::debug {
-    namespace export -clear \
-	define on off prefix suffix header trailer \
-	names 2array level setting parray pdict \
-	nl tab hexl
-    namespace ensemble create -subcommands {}
-}
-
-# # ## ### ##### ######## ############# #####################
-## API & Implementation
-
-proc ::debug::noop {args} {}
-
-proc ::debug::debug {tag message {level 1}} {
-    variable detail
-    if {$detail($tag) < $level} {
-	#puts stderr "$tag @@@ $detail($tag) >= $level"
-	return
-    }
-
-    variable prefix
-    variable suffix
-    variable header
-    variable trailer
-    variable fds
-
-    if {[info exists fds($tag)]} {
-	set fd $fds($tag)
-    } else {
-	set fd stderr
-    }
-
-    # Assemble the shown text from the user message and the various
-    # prefixes and suffices (global + per-tag).
-
-    set themessage ""
-    if {[info exists prefix(::)]}   { append themessage $prefix(::)   }
-    if {[info exists prefix($tag)]} { append themessage $prefix($tag) }
-    append themessage $message
-    if {[info exists suffix($tag)]} { append themessage $suffix($tag) }
-    if {[info exists suffix(::)]}   { append themessage $suffix(::)   }
-
-    # Resolve variables references and command invokations embedded
-    # into the message with plain text.
-    set code [catch {
-	set smessage [uplevel 1 [list ::subst -nobackslashes $themessage]]
-	set sheader  [uplevel 1 [list ::subst -nobackslashes $header]]
-	set strailer [uplevel 1 [list ::subst -nobackslashes $trailer]]
-    } __ eo]
-
-    # And dump an internal error if that resolution failed.
-    if {$code} {
-	if {[catch {
-	    set caller [info level -1]
-	}]} { set caller GLOBAL }
-	if {[string length $caller] >= 1000} {
-	    set caller "[string range $caller 0 200]...[string range $caller end-200 end]"
-	}
-	foreach line [split $caller \n] {
-	    puts -nonewline $fd "@@(DebugError from $tag ($eo): $line)"
-	}
-	return
-    }
-
-    # From here we have a good message to show. We only shorten it a
-    # bit if its a bit excessive in size.
-
-    if {[string length $smessage] > 4096} {
-	set head [string range $smessage 0 2048]
-	set tail [string range $smessage end-2048 end]
-	set smessage "${head}...(truncated)...$tail"
-    }
-
-    foreach line [split $smessage \n] {
-	puts $fd "$sheader$tag | $line$strailer"
-    }
-    return
-}
-
-# names - return names of debug tags
-proc ::debug::names {} {
-    variable detail
-    return [lsort [array names detail]]
-}
-
-proc ::debug::2array {} {
-    variable detail
-    set result {}
-    foreach n [lsort [array names detail]] {
-	if {[interp alias {} debug.$n] ne "::debug::noop"} {
-	    lappend result $n $detail($n)
-	} else {
-	    lappend result $n -$detail($n)
-	}
-    }
-    return $result
-}
-
-# level - set level and fd for tag
-proc ::debug::level {tag {level ""} {fd {}}} {
-    variable detail
-    # TODO: Force level >=0.
-    if {$level ne ""} {
-	set detail($tag) $level
-    }
-
-    if {![info exists detail($tag)]} {
-	set detail($tag) 1
-    }
-
-    variable fds
-    if {$fd ne {}} {
-	set fds($tag) $fd
-    }
-
-    return $detail($tag)
-}
-
-proc ::debug::header  {text} { variable header  $text }
-proc ::debug::trailer {text} { variable trailer $text }
-
-proc ::debug::define {tag} {
-    if {[interp alias {} debug.$tag] ne {}} return
-    off $tag
-    return
-}
-
-# Set a prefix/suffix to use for tag.
-# The global (tag-independent) prefix/suffix is adressed through tag '::'.
-# This works because colon (:) is an illegal character for user-specified tags.
-
-proc ::debug::prefix {tag {theprefix {}}} {
-    variable prefix
-    set prefix($tag) $theprefix
-
-    if {[interp alias {} debug.$tag] ne {}} return
-    off $tag
-    return
-}
-
-proc ::debug::suffix {tag {theprefix {}}} {
-    variable suffix
-    set suffix($tag) $theprefix
-
-    if {[interp alias {} debug.$tag] ne {}} return
-    off $tag
-    return
-}
-
-# turn on debugging for tag
-proc ::debug::on {tag {level ""} {fd {}}} {
-    variable active
-    set active($tag) 1
-    level $tag $level $fd
-    interp alias {} debug.$tag {} ::debug::debug $tag
-    return
-}
-
-# turn off debugging for tag
-proc ::debug::off {tag {level ""} {fd {}}} {
-    variable active
-    set active($tag) 1
-    level $tag $level $fd
-    interp alias {} debug.$tag {} ::debug::noop
-    return
-}
-
-proc ::debug::setting {args} {
-    if {[llength $args] == 1} {
-	set args [lindex $args 0]
-    }
-    set fd stderr
-    if {[llength $args] % 2} {
-	set fd   [lindex $args end]
-	set args [lrange $args 0 end-1]
-    }
-    foreach {tag level} $args {
-	if {$level > 0} {
-	    level $tag $level $fd
-	    interp alias {} debug.$tag {} ::debug::debug $tag
-	} else {
-	    level $tag [expr {-$level}] $fd
-	    interp alias {} debug.$tag {} ::debug::noop
-	}
-    }
-    return
-}
-
-# # ## ### ##### ######## ############# #####################
-## Convenience commands.
-# Format arrays and dicts as multi-line message.
-# Insert newlines and tabs.
-
-proc ::debug::nl  {} { return \n }
-proc ::debug::tab {} { return \t }
-
-proc ::debug::parray {a {pattern *}} {
-    upvar 1 $a array
-    if {![array exists array]} {
-	error "\"$a\" isn't an array"
-    }
-    pdict [array get array] $pattern
-}
-
-proc ::debug::pdict {dict {pattern *}} {
-    set maxl 0
-    set names [lsort -dict [dict keys $dict $pattern]]
-    foreach name $names {
-	if {[string length $name] > $maxl} {
-	    set maxl [string length $name]
-	}
-    }
-    set maxl [expr {$maxl + 2}]
-    set lines {}
-    foreach name $names {
-	set nameString [format (%s) $name]
-	lappend lines [format "%-*s = %s" \
-			   $maxl $nameString \
-			   [dict get $dict $name]]
-    }
-    return [join $lines \n]
-}
-
-proc ::debug::hexl {data {prefix {}}} {
-    set r {}
-
-    # Convert the data to hex and to characters.
-    binary scan $data H*@0a* hexa asciia
-
-    # Replace non-printing characters in the data with dots.
-    regsub -all -- {[^[:graph:] ]} $asciia {.} asciia
-
-    # Pad with spaces to a full multiple of 32/16.
-    set n [expr {[string length $hexa] % 32}]
-    if {$n < 32} { append hexa   [string repeat { } [expr {32-$n}]] }
-    #puts "pad H [expr {32-$n}]"
-
-    set n [expr {[string length $asciia] % 32}]
-    if {$n < 16} { append asciia [string repeat { } [expr {16-$n}]] }
-    #puts "pad A [expr {32-$n}]"
-
-    # Reassemble formatted, in groups of 16 bytes/characters.
-    # The hex part is handled in groups of 32 nibbles.
-    set addr 0
-    while {[string length $hexa]} {
-	# Get front group of 16 bytes each.
-	set hex    [string range $hexa   0 31]
-	set ascii  [string range $asciia 0 15]
-	# Prep for next iteration
-	set hexa   [string range $hexa   32 end]  
-	set asciia [string range $asciia 16 end]
-
-	# Convert the hex to pairs of hex digits
-	regsub -all -- {..} $hex {& } hex
-
-	# Add the hex and latin-1 data to the result buffer
-	append r $prefix [format %04x $addr] { | } $hex { |} $ascii |\n
-	incr addr 16
-    }
-
-    # And done
-    return $r
-}
-
-# # ## ### ##### ######## ############# #####################
-
-namespace eval debug {
-    variable detail     ; # map: TAG -> level of interest
-    variable prefix     ; # map: TAG -> message prefix to use
-    variable suffix     ; # map: TAG -> message suffix to use
-    variable fds        ; # map: TAG -> handle of open channel to log to.
-    variable header  {} ; # per-line heading, subst'ed
-    variable trailer {} ; # per-line ending, subst'ed
-
-    # Notes:
-    # - The tag '::' is reserved. "prefix" and "suffix" use it to store
-    #   the global message prefix / suffix.
-    # - prefix and suffix are applied per message.
-    # - header and trailer are per line. And should not generate multiple lines!
-}
-
-# # ## ### ##### ######## ############# #####################
-## Ready
-
-package provide debug 1.0.6
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/dictn-0.1.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/dictn-0.1.2.tm
deleted file mode 100644
index 2ed2b1ef..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/dictn-0.1.2.tm
+++ /dev/null
@@ -1,366 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application dictn 0.1.2
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval dictn {
-    namespace export {[a-z]*}
-    namespace ensemble create
-}
-
-
-## ::dictn::append
-#This can of course 'ruin' a nested dict if applied to the wrong element 
-# - i.e using the string op 'append' on an element that is itself a nested dict is analogous to the standard Tcl:
-#     %set list {a b {c d}}
-#     %append list x
-#     a b {c d}x
-#  IOW - don't do that unless you really know that's what you want.
-#
-proc ::dictn::append {dictvar path {value {}}} {
-    if {[llength $path] == 1} {
-        uplevel 1 [list dict append $dictvar $path $value]
-    } else {
-        upvar 1 $dictvar dvar
-
-        ::set str [dict get $dvar {*}$path]
-        append str $val 
-        dict set dvar {*}$path $str
-    }
-}
-
-proc ::dictn::create {args} {
-    ::set data {}    
-    foreach {path val} $args {
-            dict set data {*}$path $val
-    }
-    return $data
-}
-
-proc ::dictn::exists {dictval path} {
-    return [dict exists $dictval {*}$path]
-}
-
-proc ::dictn::filter {dictval path filterType args} {
-    ::set sub [dict get $dictval {*}$path]
-    dict filter $sub $filterType {*}$args
-}
-
-proc ::dictn::for {keyvalvars dictval path body} {
-    ::set sub [dict get $dictval {*}$path]
-    dict for $keyvalvars $sub $body
-}
-
-proc ::dictn::get {dictval {path {}}} {
-    return [dict get $dictval {*}$path]
-}
-
-
-if {[info commands ::tcl::dict::getdef] ne ""} {
-    #tcl 9+
-    proc ::dictn::getdef {dictval path default} {
-        return [dict getdef $dictval {*}$path $default]
-    }
-
-    proc ::dictn::getwithdefault {dictval path default} {
-        return [dict getdef $dictval {*}$path $default]
-    }
-
-    proc ::dictn::incr {dictvar path {increment {}} } {
-        if {$increment eq ""} {
-            ::set increment 1
-        }
-        if {[llength $path] == 1} {
-            uplevel 1 [list dict incr $dictvar $path $increment]
-        } else {
-            upvar 1 $dictvar dvar
-            if {![::info exists dvar]} {
-                dict set dvar {*}$path $increment
-            } else {
-                ::set newval [expr {[dict getdef $dvar {*}$path 0] + $increment}]
-                dict set dvar {*}$path $newval
-            }
-            return $dvar
-        }
-    }
-} else {
-    #tcl < 9
-    proc ::dictn::getdef {dictval path default} {
-        if {[tcl::dict::exists $dictval {*}$path]} {
-            return [tcl::dict::get $dictval {*}$path]
-        } else {
-            return $default 
-        }
-    }
-    proc ::dictn::getwithdefault {dictval path default} {
-        if {[tcl::dict::exists $dictval {*}$path]} {
-            return [tcl::dict::get $dictval {*}$path]
-        } else {
-            return $default 
-        }
-    }
-    proc ::dictn::incr {dictvar path {increment {}} } {
-        if {$increment eq ""} {
-            ::set increment 1
-        }
-        if {[llength $path] == 1} {
-            uplevel 1 [list dict incr $dictvar $path $increment]
-        } else {
-            upvar 1 $dictvar dvar
-            if {![::info exists dvar]} {
-                dict set dvar {*}$path $increment
-            } else {
-                if {![dict exists $dvar {*}$path]} {
-                    ::set val 0
-                } else {
-                    ::set val [dict get $dvar {*}$path]
-                }
-                ::set newval [expr {$val + $increment}]
-                dict set dvar {*}$path $newval
-            }
-            return $dvar
-        }
-    }
-}
-
-proc ::dictn::info {dictval {path {}}} {
-    if {![string length $path]} {
-        return [dict info $dictval]
-    } else {
-        ::set sub [dict get $dictval {*}$path]
-        return [dict info $sub]
-    }
-}
-
-proc ::dictn::keys {dictval {path {}} {glob {}}} {
-    ::set sub [dict get $dictval {*}$path]
-    if {[string length $glob]} {
-        return [dict keys $sub $glob]
-    } else {
-        return [dict keys $sub]
-    }
-}
-
-proc ::dictn::lappend {dictvar path args} {
-    if {[llength $path] == 1} {
-        uplevel 1 [list dict lappend $dictvar $path {*}$args]
-    } else {
-        upvar 1 $dictvar dvar
-
-        ::set list [dict get $dvar {*}$path]
-        ::lappend list {*}$args
-        dict set dvar {*}$path $list
-    }
-}
-
-proc ::dictn::merge {args} {
-    error "nested merge not yet supported"
-}
-
-#dictn remove dictionaryValue ?path ...?
-proc ::dictn::remove {dictval args} {
-    ::set basic [list] ;#buffer basic (1element path) removals to do in a single call.
-
-    foreach path $args {
-        if {[llength $path] == 1} {
-            ::lappend basic $path
-        } else {
-            #extract,modify,replace
-            ::set subpath [lrange $path 0 end-1]
-
-            ::set sub [dict get $dictval {*}$subpath]
-            ::set sub [dict remove $sub [lindex $path end]]
-
-            dict set dictval {*}$subpath $sub
-        }
-    }
-
-    if {[llength $basic]} {
-        return [dict remove $dictval {*}$basic]
-    } else {
-        return $dictval
-    }
-}
-
-
-proc ::dictn::replace {dictval args} {
-    ::set basic [list] ;#buffer basic (1element path) replacements to do in a single call.
-
-    foreach {path val} $args {
-        if {[llength $path] == 1} {
-            ::lappend basic $path $val
-        } else {
-            #extract,modify,replace
-            ::set subpath [lrange $path 0 end-1]
-
-            ::set sub [dict get $dictval {*}$subpath]
-            ::set sub [dict replace $sub [lindex $path end] $val]
-
-            dict set dictval {*}$subpath $sub                        
-        }
-    }
-
-
-    if {[llength $basic]} {
-        return [dict replace $dictval {*}$basic]
-    } else {
-        return $dictval
-    }
-}
-
-
-proc ::dictn::set {dictvar path newval} {
-    upvar 1 $dictvar dvar
-    return [dict set dvar {*}$path $newval]
-}
-
-proc ::dictn::size {dictval {path {}}} {
-    return [dict size [dict get $dictval {*}$path]]
-}
-
-proc ::dictn::unset {dictvar path} {
-    upvar 1 $dictvar dvar
-    return [dict unset dvar {*}$path    
-}
-
-proc ::dictn::update {dictvar args} {
-    ::set body [lindex $args end]
-    ::set maplist [lrange $args 0 end-1]
-
-    upvar 1 $dictvar dvar
-    foreach {path var} $maplist {
-        if {[dict exists $dvar {*}$path]} {
-            uplevel 1 [list set $var [dict get $dvar $path]]
-        }
-    }
-
-    catch {uplevel 1 $body} result
-    
-    foreach {path var} $maplist {
-        if {[dict exists $dvar {*}$path]} {
-            upvar 1 $var $var
-            if {![::info exists $var]} {
-                uplevel 1 [list dict unset $dictvar {*}$path]
-            } else {
-                uplevel 1 [list dict set $dictvar {*}$path [::set $var]]
-            }
-        }        
-    }
-    return $result
-}
-
-#an experiment.
-proc ::dictn::Applyupdate {dictvar args} {
-    ::set body [lindex $args end]
-    ::set maplist [lrange $args 0 end-1]
-
-    upvar 1 $dictvar dvar
-
-    ::set headscript ""
-    ::set i 0
-    foreach {path var} $maplist {
-        if {[dict exists $dvar {*}$path]} {
-            #uplevel 1 [list set $var [dict get $dvar $path]]
-            ::lappend arglist $var 
-            ::lappend vallist [dict get $dvar {*}$path]
-            ::append headscript [string map [list %i% $i %v% $var] {upvar 1 %v% %v%; set %v% [lindex $args %i%]} ]
-            ::append headscript \n
-            ::incr i
-        }
-    }
-
-    ::set body $headscript\r\n$body
-
-    puts stderr "BODY: $body"
-    
-    #set result [apply [list args $body] {*}$vallist]
-    catch {apply [list args $body] {*}$vallist} result
-
-    foreach {path var} $maplist {
-        if {[dict exists $dvar {*}$path] && [::info exists $var]} {
-            dict set dvar {*}$path [::set $var]
-        }        
-    }
-    return $result
-}
-
-proc ::dictn::values {dictval {path {}} {glob {}}} {
-    ::set sub [dict get $dictval {*}$path]
-    if {[string length $glob]} {
-        return [dict values $sub $glob]
-    } else {
-        return [dict values $sub]
-    }
-}
-
-# Standard form:
-#'dictn with dictVariable path body'  
-#
-# Extended form:
-#'dictn with dictVariable path arrayVariable body' 
-#
-proc ::dictn::with {dictvar path args} {
-    if {[llength $args] == 1} {
-        ::set body [lindex $args 0]
-        return [uplevel 1 [list dict with $dictvar {*}$path $body]]
-    } else {
-        upvar 1 $dictvar dvar
-        ::lassign $args arrayname body
-
-        upvar 1 $arrayname arr
-        array set arr [dict get $dvar {*}$path]
-        ::set prevkeys [array names arr]
-
-        catch {uplevel 1 $body} result
-
-
-        foreach k $prevkeys {
-            if {![::info exists arr($k)]} {
-                dict unset $dvar {*}$path $k
-            }
-        }
-        foreach k [array names arr] {
-            dict set $dvar {*}$path $k $arr($k)
-        }
-
-        return $result
-    }   
-}
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide dictn [namespace eval dictn {
-    variable version
-    ::set version 0.1.2 
-}]
-return
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/dictutils-0.2.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/dictutils-0.2.1.tm
deleted file mode 100644
index 12ca495b..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/dictutils-0.2.1.tm
+++ /dev/null
@@ -1,145 +0,0 @@
-# dictutils.tcl --
- #
- #       Various dictionary utilities.
- #
- # Copyright (c) 2007 Neil Madden (nem@cs.nott.ac.uk).
- #
- # License: http://www.cs.nott.ac.uk/~nem/license.terms (Tcl-style).
- #
-
- #2023 0.2.1 - changed "package require Tcl 8.6" to "package require Tcl 8.6-"
- 
- package require Tcl         8.6-
- package provide dictutils   0.2.1
- 
- namespace eval dictutils {
-     namespace export equal apply capture witharray nlappend
-     namespace ensemble create
-
-     # dictutils witharray dictVar arrayVar script --
-     #
-     #       Unpacks the elements of the dictionary in dictVar into the array
-     #       variable arrayVar and then evaluates the script. If the script
-     #       completes with an ok, return or continue status, then the result is copied
-     #       back into the dictionary variable, otherwise it is discarded. A
-     #       [break] can be used to explicitly abort the transaction.
-     #
-     proc witharray {dictVar arrayVar script} {
-         upvar 1 $dictVar dict $arrayVar array
-         array set array $dict
-         try { uplevel 1 $script
-         } on break    {}     { # Discard the result
-         } on continue result - on ok result {
-             set dict [array get array] ;# commit changes
-             return $result
-         } on return   {result opts} {
-             set dict [array get array] ;# commit changes
-             dict incr opts -level ;# remove this proc from level
-             return -options $opts $result
-         }
-         # All other cases will discard the changes and propagage
-     }
- 
-     # dictutils equal equalp d1 d2 --
-     #
-     #       Compare two dictionaries for equality. Two dictionaries are equal
-     #       if they (a) have the same keys, (b) the corresponding values for
-     #       each key in the two dictionaries are equal when compared using the
-     #       equality predicate, equalp (passed as an argument). The equality
-     #       predicate is invoked with the key and the two values from each
-     #       dictionary as arguments.
-     #
-     proc equal {equalp d1 d2} {
-         if {[dict size $d1] != [dict size $d2]} { return 0 }
-         dict for {k v} $d1 {
-             if {![dict exists $d2 $k]} { return 0 }
-             if {![invoke $equalp $k $v [dict get $d2 $k]]} { return 0 }
-         }
-         return 1
-     }
- 
-     # apply dictVar lambdaExpr ?arg1 arg2 ...? --
-     #
-     #       A combination of *dict with* and *apply*, this procedure creates a
-     #       new procedure scope populated with the values in the dictionary
-     #       variable. It then applies the lambdaTerm (anonymous procedure) in
-     #       this new scope. If the procedure completes normally, then any
-     #       changes made to variables in the dictionary are reflected back to
-     #       the dictionary variable, otherwise they are ignored. This provides
-     #       a transaction-style semantics whereby atomic updates to a
-     #       dictionary can be performed. This procedure can also be useful for
-     #       implementing a variety of control constructs, such as mutable
-     #       closures.
-     #
-     proc apply {dictVar lambdaExpr args} {
-         upvar 1 $dictVar dict
-         set env $dict ;# copy
-         lassign $lambdaExpr params body ns
-         if {$ns eq ""} { set ns "::" }
-         set body [format {
-             upvar 1 env __env__
-             dict with __env__ %s
-         } [list $body]]
-         set lambdaExpr [list $params $body $ns]
-         set rc [catch { ::apply $lambdaExpr {*}$args } ret opts]
-         if {$rc == 0} {
-             # Copy back any updates
-             set dict $env
-         }
-         return -options $opts $ret
-     }
- 
-     # capture ?level? ?exclude? ?include? --
-     #
-     #       Captures a snapshot of the current (scalar) variable bindings at
-     #       $level on the stack into a dictionary environment. This dictionary
-     #       can later be used with *dictutils apply* to partially restore the
-     #       scope, creating a first approximation of closures. The *level*
-     #       argument should be of the forms accepted by *uplevel* and
-     #       designates which level to capture. It defaults to 1 as in uplevel.
-     #       The *exclude* argument specifies an optional list of literal
-     #       variable names to avoid when performing the capture. No variables
-     #       matching any item in this list will be captured. The *include*
-     #       argument can be used to specify a list of glob patterns of
-     #       variables to capture. Only variables matching one of these
-     #       patterns are captured. The default is a single pattern "*", for
-     #       capturing all visible variables (as determined by *info vars*).
-     #
-     proc capture {{level 1} {exclude {}} {include {*}}} {
-         if {[string is integer $level]} { incr level }
-         set env [dict create]
-         foreach pattern $include {
-             foreach name [uplevel $level [list info vars $pattern]] {
-                 if {[lsearch -exact -index 0 $exclude $name] >= 0} { continue }
-                 upvar $level $name value
-                 catch { dict set env $name $value } ;# no arrays
-             }
-         }
-         return $env
-     }
- 
-     # nlappend dictVar keyList ?value ...?
-     #
-     #       Append zero or more elements to the list value stored in the given
-     #       dictionary at the path of keys specified in $keyList.  If $keyList
-     #       specifies a non-existent path of keys, nlappend will behave as if
-     #       the path mapped to an empty list.
-     #
-     proc nlappend {dictvar keylist args} {
-         upvar 1 $dictvar dict
-         if {[info exists dict] && [dict exists $dict {*}$keylist]} {
-             set list [dict get $dict {*}$keylist]
-         }
-         lappend list {*}$args
-         dict set dict {*}$keylist $list
-     }
-
-     # invoke cmd args... --
-     #
-     #       Helper procedure to invoke a callback command with arguments at
-     #       the global scope. The helper ensures that proper quotation is
-     #       used. The command is expected to be a list, e.g. {string equal}.
-     #
-     proc invoke {cmd args} { uplevel #0 $cmd $args }
-
- }
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fauxlink-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fauxlink-0.1.1.tm
deleted file mode 100644
index 970e47da..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fauxlink-0.1.1.tm
+++ /dev/null
@@ -1,568 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application fauxlink 0.1.1
-# Meta platform     tcl
-# Meta license      MIT 
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin fauxlink_module_fauxlink 0 0.1.1]
-#[copyright "2024"]
-#[titledesc {faux link application shortcuts}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {.fauxlink .fxlnk}]             [comment {-- Description at end of page heading --}] 
-#[require fauxlink]
-#[keywords symlink faux fake shortcut toml]
-#[description]
-#[para] A cross platform shortcut/symlink alternative.
-#[para] Unapologetically ugly - but practical in certain circumstances.
-#[para] A solution is required for application-driven filesystem links that survives cross platform moves as well as 
-#[para] archiving and packaging systems.
-#[para] The target is specified in a minimally-encoded form in the filename itself - but still human readable.
-#[para] format of name <nominalname>#<encodedtarget>.fauxlink
-#[para] where <nominalname> can be empty - then the effective nominal name is the tail of the <encodedtarget> 
-#[para] The file extension must be .fauxlink or .fxlnk
-#[para] The + symbol substitutes for forward-slashes.
-#[para] Other chars can be encoded using url-like encoding - (but only up to %7E !)
-#[para] We deliberately treat higher % sequences literally.
-#[para] This means actual uri::urn encoded unicode sequences (e.g %E2%99%A5 [lb]heart[rb]) can remain literal for linking to urls.
-#[para] e.g if an actual + or # is required in a filename or path segment they can be encoded as %2B & %23
-#[para] e.g a link to a file file#A.txt in parent dir could be:
-#[para] file%23A.txt#..+file%23A.txt.fauxlink
-#[para] or equivalently (but obviously affecting sorting) #..+file%23A.txt.fauxlink
-#[para] The <nominalname> can be unrelated to the actual target
-#[para] e.g datafile.dat#..+file%23A.txt.fauxlink
-#[para] This system has no filesystem support - and must be completely application driven.
-#[para] This can be useful for example in application test packages which may be tarred or zipped and moved cross platform.
-#[para] The target being fully specified in the name means the file doesn't have to be read for the target to be determined 
-#[para] Extensions to behaviour should be added in the file as text data in Toml format,
-#[para] with custom data being under a single application-chosen table name
-#[para] The toplevel Toml table [lb]fauxlink[rb] is reserved for core extensions to this system.
-#[para] Aside from the 2 used for delimiting (+ #)
-#[para] certain characters which might normally be allowed in filesystems are required to be encoded
-#[para] e.g space and tab are required to be %20 %09
-#[para] Others that require encoding are: * ? \ / | : ; " < >
-#[para] The nul character in raw form, when detected, is always mapped away to the empty string - as very few filesystems support it.
-#[para] Control characters and other punctuation is optional to encode.
-#[para] Generally utf-8 should be used where possible and unicode characters can often be left unencoded on modern systems.
-#[para] Where encoding of unicode is desired in the nominalname,encodedtarget,tag or comment portions it can be specified as %UXXXXXXXX
-#[para] There must be between 1 and 8 X digits following the %U. Interpretation of chars following %U stops at the first non-hex character.
-#[para] This means %Utest would not get any translation as there were no hex digits so it would come out as %Utest
-#
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#https://learn.microsoft.com/en-us/troubleshoot/windows-client/networking/url-encoding-unc-paths-not-url-decoded
-# ie "//server/c/Program files" works but "//server/c/Program%20Files" is now treated by windows as a literal path with %20 in it.
-#Using fauxlink - a link would be:
-# "my-program-files#++server+c+Program%20Files.fauxlink"
-#If we needed the old-style literal %20 it would become
-# "my-program-files#++server+c+Program%2520Files.fauxlink"
-#
-# The file:// scheme on windows supposedly *does* decode %xx (for use in a browser)
-# e.g
-# pfiles#file%3a++++localhost+c+Program%2520files 
-# The browser will work with literal spaces too though - so it could just as well be:
-# pfiles#file%3a++++localhost+c+Program%20files 
-#windows may default to using explorer.exe instead of a browser for file:// urls though
-#and explorer doesn't want the literal %20.  It probably depends what API the file:// url is to be passed to?
-#in a .url shortcut either literal space or %20 will work ie %xx values are decoded 
-
-
-
-#*** !doctools
-#[section Overview]
-#[para] overview of fauxlink
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by fauxlink
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval fauxlink::class {
-    #*** !doctools
-    #[subsection {Namespace fauxlink::class}]
-    #[para] class definitions
-    if {[info commands [namespace current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval fauxlink {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-
-    #todo - enforce utf-8 
-
-    #literal unicode chars supported by modern filesystems - leave as is - REVIEW
-
-
-    variable encode_map
-    variable decode_map 
-    #most filesystems don't allow NULL - map to empty string
-
-    #Make sure % is not in encode_map
-    set encode_map [dict create\
-        \x00    ""\
-        { }     %20\
-        \t      %09\
-        +       %2B\
-        #       %23\
-        *       %2A\
-        ?       %3F\
-        \\      %5C\
-        /       %2F\
-        |       %7C\
-        :       %3A\
-        {;}     %3B\
-        {"}     %22\
-        <       %3C\
-        >       %3E\
-    ]
-    #above have some overlap with ctrl codes below.
-    #no big deal as it's a dict
-
-    #must_encode
-    # + # * ? \ / | : ; " < > <sp> \t 
-    # also NUL to empty string
-
-    # also ctrl chars 01 to 1F (1..31)  
-    for {set i 1} {$i < 32} {incr i} {
-        set ch          [format %c $i]
-        set enc         "%[format %02X $i]"
-        set enc_lower   [string tolower $enc] 
-        dict set encode_map $ch         $enc 
-        dict set decode_map $enc        $ch
-        dict set decode_map $enc_lower  $ch
-    }
-
-    variable must_encode
-    set must_encode [dict keys $encode_map]
-
-
-    #if they are in 
-
-    #decode map doesn't include 
-    #    %00     (nul)
-    #    %2F     "/"
-    #    %2f     "/"
-    #    %7f     (del)
-    #we exlude the forward slash because we already have + for that - and multiple ways to specify it obscure intention.
-    #
-    set decode_map [dict merge $decode_map [dict create\
-        %09     \t\
-        %20     { }\
-        %21     "!"\
-        %22     {"}\
-        %23     "#"\
-        %24     "$"\
-        %25     "%"\
-        %26     "&"\
-        %27     "'"\
-        %28     "("\
-        %29     ")"\
-        %2A     "*"\
-        %2a     "*"\
-        %2B     "+"\
-        %2b     "+"\
-        %2C     ","\
-        %2c     ","\
-        %2D     "-"\
-        %2d     "-"\
-        %2E     "."\
-        %2e     "."\
-        %3A     ":"\
-        %3a     ":"\
-        %3B     {;}\
-        %3b     {;}\
-        %3D     "="\
-        %3C     "<"\
-        %3c     "<"\
-        %3d     "="\
-        %3E     ">"\
-        %3e     ">"\
-        %3F     "?"\
-        %3f     "?"\
-        %40     "@"\
-        %5B     "\["\
-        %5b     "\["\
-        %5C     "\\"\
-        %5c     "\\"\
-        %5D     "\]"\
-        %5d     "\]"\
-        %5E     "^"\
-        %5e     "^"\
-        %60     "`"\
-        %7B     "{"\
-        %7b     "{"\
-        %7C     "|"\
-        %7c     "|"\
-        %7D     "}"\
-        %7d     "}"\
-        %7E     "~"\
-        %7e     "~"\
-    ]]
-    #Don't go above 7f 
-    #if we want to specify p
-
-
-    #*** !doctools
-    #[subsection {Namespace fauxlink}]
-    #[para] Core API functions for fauxlink 
-    #[list_begin definitions]
-    proc Segment_mustencode_check {str} {
-        variable decode_map
-        variable encode_map ;#must_encode
-        set idx 0
-        set err ""
-        foreach ch [split $str ""] {
-            if {[dict exists $encode_map $ch]} {
-                set enc [dict get $encode_map $ch]
-                if {[dict exists $decode_map $enc]} {
-                    append err "  char $idx should be encoded as $enc" \n
-                } else {
-                    append err "  no %xx encoding available. Use %UXX if really required" \n
-                }
-            }
-            incr idx
-        }
-        return $err ;#empty string if ok
-    }
-
-    proc resolve {link} {
-        variable decode_map
-        variable encode_map
-        variable must_encode
-        set ftail [file tail $link]
-        set extension_name [string range [file extension $ftail] 1 end]
-        if {$extension_name ni [list fxlnk fauxlink]} {
-            set is_fauxlink 0
-            #we'll process anyway - but return the result wrapped
-            #This should allow deliberate erroring for the calling dict user if the extension difference is inadvertent
-            #(e.g blindly processing all files in a folder that is normally only .fauxlink files - but then something added that happens
-            # to have # characters in it)
-            #It also means if someone really wants to use the fauxlink semantics on a different file type 
-            # - they can - but just have to access the results differently and take that (minor) risk.
-            #error "fauxlink::resolve refusing to process link $link - file extension must be .fxlnk or .fauxlink"
-            set err_extra "\nnonstandard extension '$extension_name' for fauxlink. (expected .fxlnk or .fauxlink) Check that the call to fauxlink::resolve was deliberate" 
-        } else {
-            set is_fauxlink 1
-            set err_extra ""
-        }
-        set linkspec [file rootname $ftail]
-        # - any # or + within the target path or name should have been uri encoded as %23 and %2b
-        if {[tcl::string::first # $linkspec] < 0} {
-            set err "fauxlink::resolve '$link'. Link must contain a # (usually at start if name matches target)"
-            append err $err_extra
-            error $err
-        }
-        #The 1st 2 parts of split on # are name and target file/dir 
-        #If there are only 3 parts the 3rd part is a comment and there are no 'tags'
-        #if there are 4 parts - the 3rd part is a tagset where each tag begins with @
-        #and each subsequent part is a comment. Empty comments are stripped from the comments list
-        #A tagset can be empty - but if it's not empty it must contain at least one @ and must start with @
-        #e.g name.txt#path#@tag1@tag2#test###.fauxlink
-        #has a name, a target, 2 tags and one comment
-
-        #check namespec already has required chars encoded
-        set segments [split $linkspec #]
-        lassign $segments namespec targetspec
-        #puts stderr "-->namespec $namespec"
-        set nametest [tcl::string::map $encode_map $namespec]
-        #puts stderr "-->nametest $nametest"
-        #nothing should be changed - if there are unencoded chars that must be encoded it is an error
-        if {[tcl::string::length $nametest] ne [tcl::string::length $namespec]} {
-            set err "fauxlink::resolve '$link' invalid chars in name part (section prior to first #)"
-            append err [Segment_mustencode_check $namespec]
-            append err $err_extra
-            error $err
-        }
-        #see comments below regarding 2 rounds and ordering.
-        set name        [decode_unicode_escapes $namespec]
-        set name        [tcl::string::map $decode_map $name]
-        #puts stderr "-->name: $name"
-
-        set targetsegment [split $targetspec +]
-        #check each + delimited part of targetspec already has required chars encoded
-        set pp 0 ;#pathpart index
-        set targetpath_parts [list]
-        foreach pathpart $targetsegment {
-            set targettest [tcl::string::map $encode_map $pathpart]
-            if {[tcl::string::length $targettest] ne [tcl::string::length $pathpart]} {
-                set err "fauxlink::resolve '$link' invalid chars in targetpath (section following first #)"
-                append err [Segment_mustencode_check $pathpart]
-                append err $err_extra
-                error $err
-            }
-            #2 rounds of substitution is possibly asking for trouble..
-            #We allow anything in the resultant segments anyway (as %UXXXX... allows all)
-            #so it's not so much about what can be encoded,
-            # - but it makes it harder to reason about for users
-            # In particular - if we map %XX first it makes %25 -> % substitution tricky
-            # if the user requires a literal %UXXX - they can't do %25UXXX 
-            # the double sub would make it %UXXX -> somechar anyway.
-            #we do unicode first - as a 2nd round of %XX substitutions is unlikely to interfere.
-            #There is still the opportunity to use things like %U00000025 followed by hex-chars
-            # and get some minor surprises, but using %U on ascii is unlikely to be done accidentally - REVIEW
-            set pathpart             [decode_unicode_escapes $pathpart]
-            set pathpart             [tcl::string::map $decode_map $pathpart]
-            lappend targetpath_parts $pathpart
-
-            incr pp
-        }
-        set targetpath [join $targetpath_parts /]
-        if {$name eq ""} {
-            set name [lindex $targetpath_parts end]
-        }
-        #we do the same encoding checks on tags and comments to increase chances of portability
-        set tags [list]
-        set comments [list]
-        switch -- [llength $segments] {
-            2 {
-                #no tags or comments 
-            }
-            3 {
-                #only 3 sections - last is comment - even if looks like tags
-                #to make the 3rd part a tagset, an extra # would be needed
-                set comments [list [lindex $segments 2]]
-            }
-            default {
-                set tagset [lindex $segments 2]
-                if {$tagset eq ""} {
-                    #ok - no tags
-                } else {
-                    if {[string first @ $tagset] != 0} {
-                        set err     "fauxlink::resolve '$link' invalid tagset in 3rd #-delimited segment"
-                        append err  \n " - must begin with @" 
-                        append err $err_extra
-                        error $err
-                    } else {
-                        set tagset [string range $tagset 1 end]
-                        set rawtags [split $tagset @]
-                        set tags [list]
-                        foreach t $rawtags {
-                            if {$t eq ""} {
-                                lappend tags ""
-                            } else {
-                                set tagtest [tcl::string::map $encode_map $t]
-                                if {[tcl::string::length $tagtest] ne [tcl::string::length $t]} {
-                                    set err "fauxlink::resolve '$link' invalid chars in tag [llength $tags]"
-                                    append err [Segment_mustencode_check $t]
-                                    append err $err_extra
-                                    error $err
-                                }
-                                lappend tags [tcl::string::map $decode_map [decode_unicode_escapes $t]]
-                            }
-                        }
-                    }
-                }
-                set rawcomments [lrange $segments 3 end]
-                #set comments  [lsearch -all -inline -not $comments ""]
-                set comments [list]
-                foreach c $rawcomments {
-                    if {$c eq ""} {continue}
-                    set commenttest [tcl::string::map $encode_map $c]
-                    if {[tcl::string::length $commenttest] ne [tcl::string::length $c]} {
-                        set err "fauxlink::resolve '$link' invalid chars in comment [llength $comments]"
-                        append err [Segment_mustencode_check $c]
-                        append err $err_extra
-                        error $err
-                    }
-                    lappend comments [tcl::string::map $decode_map [decode_unicode_escapes $c]]
-                }
-            }
-        }
-
-        set data [dict create name $name targetpath $targetpath tags $tags comments $comments fauxlinkextension $extension_name]
-        if {$is_fauxlink} {
-            #standard .fxlnk or .fauxlink
-            return $data
-        } else {
-            #custom extension - or called in error on wrong type of file but happened to parse.
-            #see comments at top regarding is_fauxlink
-            #make sure no keys in common at top level.
-            return [dict create\
-                linktype $extension_name\
-                note "nonstandard extension returning nonstandard dict with result in data key"\
-                data $data\
-            ] 
-        }
-    }
-    variable map
-
-    #default exclusion of / (%U2f and equivs)
-    #this would allow obfuscation of intention - when we have + for that anyway
-    proc decode_unicode_escapes {str {exclusions {/ \n \r \x00}}} {
-        variable map
-        set ucstart [string first %U $str 0]
-        if {$ucstart < 0} {
-            return $str
-        }
-        set max 8
-        set map [list]
-        set strend [expr {[string length $str]-1}]
-        while {$ucstart >= 0} {
-            set s $ucstart
-            set i [expr {$s +2}] ;#skip the %U
-            set hex ""
-            while {[tcl::string::length $hex] < 8 && $i <= $strend} {
-                set in [string index $str $i]
-                if {[tcl::string::is xdigit -strict $in]} {
-                    append hex $in
-                } else {
-                    break
-                } 
-                incr i
-            } 
-            if {$hex ne ""} {
-                incr i -1
-                lappend map $s $i $hex
-            }
-            set ucstart [tcl::string::first %U $str $i]
-        }
-        set out ""
-        set lastidx -1 
-        set e 0
-        foreach {s e hex} $map {
-            append out [string range $str $lastidx+1 $s-1]
-            set sub [format %c 0x$hex]
-            if {$sub in $exclusions} {
-                append out %U$hex ;#put it back
-            } else {
-                append out $sub
-            }
-            set lastidx $e
-        }
-        if {$e < [tcl::string::length $str]-1} {
-            append out [string range $str $e+1 end]
-        }
-        return $out
-    }
-    proc link_as {name target} {
-
-    }
-
-    #proc sample1 {p1 args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of sample1 
-    #    return "ok" 
-    #}
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace fauxlink ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval fauxlink::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace fauxlink::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace fauxlink::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval fauxlink::system {
-    #*** !doctools
-    #[subsection {Namespace fauxlink::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide fauxlink [namespace eval fauxlink {
-    variable pkg fauxlink
-    variable version
-    set version 0.1.1 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/flagfilter-0.3.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/flagfilter-0.3.tm
deleted file mode 100644
index 00f58e82..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/flagfilter-0.3.tm
+++ /dev/null
@@ -1,2717 +0,0 @@
-#package provide flagfilter [namespace eval flagfilter {list [variable version 0.2.3]$version}]
-#package provide [set ::pkg flagfilter-0.2.3] [namespace eval [lindex [split $pkg -] 0] {list [variable version [lindex [split $pkg -] 1][set ::pkg {}]]$version}]
-#
-#package provide [lindex [set pkg {flagfilter 0.2.3}] 0] [namespace eval [lindex $pkg 0] {list [variable version [lindex $pkg 1][set pkg {}]]$version}]
-package provide [lassign {flagfilter 0.3} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $::ver[set ::ver {}]]$version}]
-
-#Note: this is ugly.. particularly when trying to classify flags that are not fully specified i.e raw passthrough.
-# - we can't know if a flag -x --x  etc is expecting a parameter or not.
-#0.2.2 2023-03  JN - added %match% placeholder support. Can be added to the dispatch command to tell it what command was actually matched. e.g tell xxx.tcl script that it was xxx.tcl when we matched on *.tcl
-
-
-namespace eval flagfilter {
-    package require oolib ;# make 'oolib::collection new' available
-
-    proc do_errorx {msg {code 1}} {
-        if {$::tcl_interactive} {
-            error $msg
-        } else {
-            puts stderr "|>err $msg"
-            exit $code
-        }
-    }
-
-    proc do_error {msg {then error}} {
-        set levels [list debug info notice warn error critical alert emergency]
-        #note we exit or error out even if debug selected - as every do_error call is meant to interrupt code processing at the site of call
-        #this is not just a 'logging' call even though it has syslog-like level descriptors
-        lassign $then type code
-        if {$code eq ""} {
-          set code 1
-        }
-        set type [string tolower $type]
-        if {$type in [concat $levels exit]} {
-            puts -nonewline stderr "|$type> $msg\n"
-        } else {
-            puts -nonewline stderr "|flagfilter> unable to interpret 2nd argument to do_error: '$then' should be one of '$levels'  or 'exit <numericcode>'\n"
-        }
-        flush stderr
-        if {$::tcl_interactive} {
-            #may not always be desirable - but assumed to be more useful not to exit despite request, to aid in debugging
-            if {[string tolower $type] eq "exit"} {
-              puts -nonewline stderr "    (exit suppressed due to tcl_interactive - raising error instead)\n"
-              if {![string is digit -strict $code]} {
-                puts -nonewline stderr "|flagfilter> unable to interpret 2nd argument to do_error: '$then' should be: 'exit <numericcode>'\n"
-              }
-            } 
-            flush stderr
-            return -code error $msg
-        } else {
-            if {$type ne "exit"} {
-              return -code error $msg
-            } else {
-              if {[string is digit -strict $code]} {
-                exit $code
-              } else {
-                puts -nonewline stderr "|flagfilter> unable to interpret 2nd argument to do_error: '$then' should be 'error' or 'exit <numericcode>'\n"
-                flush stderr
-                return -code error $msg
-              }
-            }
-        }
-    }
-    proc scriptdir {} {
-        set possibly_linked_script [file dirname [file normalize [file join [info script] ...]]]
-        if {[file isdirectory $possibly_linked_script]} {
-            return $possibly_linked_script
-        } else {
-            return [file dirname $possibly_linked_script]
-        }
-    }
-
-}
-
-package require overtype
-
-
-namespace eval flagfilter {
-    namespace export get_one_flag_value
-    #review. Tcl can handle args like: {-a -val1 -b -val2} as long as they pair up.
-    #this will ignore flag-like values if they follow a -flag
-    # positional values that happen to start with - can still cause issues
-    #get_flagged_only can return an unpaired list if there are solos, or if it finds no value for the last flaglike element
-    # e.g  from input {something -x -y -z}  we will get {-x -y -z}
-    #
-    #
-
-    #flagfilter::get_flagged_only may not always get things right when looking at a values list with command processors
-    #Even if all solos from commands are supplied in solodict - a flag might be solo only in the context of a particualar commandset
-    #The proper way to get flagged values from an arglist is to run the full parser.
-    #This then should be restricted to use for a specific subset of args where the supplied solodict is known to apply 
-    proc get_flagged_only {arglist solodict} {
-        #solodict - solo flags with defaults
-        set solo_accumulator [dict create] ;#if multiple instances of solo flag found - append defaults to the value to form a list as long as the number of occurrences
-        #puts ">>>get_flagged_only input $arglist solodict:'$solodict'"
-        set result [list]
-        set last_was_flag 0
-        set result [list]
-        set a_idx 0
-        set end_of_options 0
-        foreach a $arglist {
-            if {$a eq "--"} {
-                break
-            }
-            if {[dict exists $solodict $a]} {
-                set last_was_flag 0
-                if {[dict exists $solo_accumulator $a]} {
-                    set soloval [concat [dict get $solo_accumulator $a] [dict get $solodict $a]]
-                } else {
-                    set soloval [dict get $solodict $a]
-                }
-                dict set solo_accumulator $a $soloval
-                #we need to keep order of first appearance
-                set idx [lsearch $result $a]
-                if {$idx < 0} {
-                    lappend result $a $soloval
-                } else {
-                    lset result $idx+1 $soloval
-                }
-            } else {
-                if {!$last_was_flag} {
-                    if {$a eq "--"} {
-
-                    } else {
-                        if {[lindex $arglist $a_idx-1] eq "--"} {
-                            #end of options processing - none of the remaining are considered flags/options no matter what they look like
-                            set last_was_flag 0
-                            break
-                        } else {
-                            if {[string match -* $a]} {
-                                set last_was_flag 1
-                                lappend result $a ;#flag
-                            } else {
-                                #last wasnt, this isn't - don't output
-                                set last_was_flag 0
-                            }
-                        }
-                    }
-                } else {
-                    #we only look for single leading - in the value if last wasn't a flag - but we give -- and soloflags special treatment.
-                    if {$a eq "--"} {
-                        #last was flag
-                        set last_was_flag 0
-                    } else {
-                        lappend result $a ;#value
-                        set last_was_flag 0
-                    }
-                }
-            }
-            incr a_idx
-        }
-        if {([llength $result] % 2) != 0} {
-           set last [lindex $result end]
-           if {[string match -* $last] && ($last ni [dict keys $solodict])} {
-                lappend result 1
-           }
-        }
-        #puts ">>>get_flagged_only returning $result"
-        return $result
-    }
-
-
-    ## get_one_paired_flag_value
-    #best called with 'catch' unless flag known to be in arglist
-    #raises an error if no position available after the flag to retrieve value
-    #raises an error if flag not like -something
-    #raises an error if flag not found in list
-    proc get_one_paired_flag_value {arglist flag} {
-        if {![regexp -- {-{1}[^-]+|-{2}[^-]+} $flag]} {
-            #regexp excludes plain - and --
-            #if {![string match -* $flag]} {}
-            error "get_one_flag_value flag $flag does not look like a flag. Should be something like -$flag or --$flag"
-        }
-        set cindex [lsearch $arglist $flag]
-        if {$cindex >= 0} {
-            set valueindex [expr {$cindex + 1}]
-            if {$valueindex < [llength $arglist]} {
-                #puts stderr "++++++++++++++++++ get_one_flag_value flag '$flag' returning [lindex $arglist $valueindex]"
-                return [lindex $arglist $valueindex]
-            } else {
-                error "flagfilter::get_one_paired_flag_value no value corresponding to flag $flag (found flag, but reached end of list)"
-            }
-        } else {
-            error "flagfilter::get_one_paired_flag_value $flag not found in arglist: '$arglist'"
-        }
-    }
-}
-
-namespace eval flagfilter::obj {
-
-}
-
-
-namespace eval flagfilter {
-    variable run_counter 0  ;#Used by get_new_runid to form an id to represent run of main check_flags function.
-    #used as a basis for some object-instance names etc
-    proc get_new_runid {} {
-        variable run_counter
-        if {[catch {package require Thread}]} {
-            set tid 0
-        } else {
-            set tid [thread::id]
-        }
-        return "ff-[pid]-${tid}-[incr run_counter]"
-    }
-
-    namespace export check_flags
-    proc do_debug {lvl debugconfig msg} {
-        if {$lvl <= [dict get $debugconfig -debugargs]} {
-            foreach ln [split $msg \n] {
-                puts -nonewline stderr "|[dict get $debugconfig -source]> $ln\n"
-                flush stderr
-            }
-        }
-    }
-
-    #----------------------------------------------------------------------
-    #  DO NOT RELY ON tcl::unsupported - it's named that for a reason and is not meant to be parsed
-    #wiki.tcl-lang.org/page/dict+tips+and+tricks
-    proc isdict {v} {
-        if {[string match "value is a list *" [::tcl::unsupported::representation $v]]} {
-            return [expr {!([llength $v] % 2)}]
-        } else {
-            return [string match "value is a dict *" [::tcl::unsupported::representation $v]]
-        } 
-    }
-
-    proc dict_format {dict} {
-        dictformat_rec $dict "" "  "
-    }
-    proc dictformat_rec {dict indent indentstring} {
-        # unpack this dimension 
-        set is_empty 1
-        dict for {key value} $dict { 
-            set is_empty 0
-            if {[isdict $value]} { 
-                append result "$indent[list $key]\n$indent\{\n" 
-                append result "[dictformat_rec $value "$indentstring$indent" $indentstring]\n" 
-                append result "$indent\}\n" 
-            } else { 
-                append result "$indent[list $key] [list $value]\n" 
-            }
-        }
-        if {$is_empty} {
-            #experimental..
-            append result "$indent\n"
-            #append result ""
-        }
-       return $result 
-    }
-    #--------------------------------------------------------------------------
-
-    #solo 'category' includes longopts with value
-    #solo flags include the general list of -soloflags, and those specific to the current -commandprocessors spec (mashopts and singleopts)
-    proc is_this_flag_solo {f solos objp} {
-        if {![string match -* $f]} {
-            #not even flaglike
-            return 0
-        }
-
-
-        if {$f in $solos} {
-            #review! - global -soloflags shouldn't  override the requirements of a commandprocessor!
-            #but.. each commandprocessor needs to understand global solos occuring before our match so that we classify correctly..
-            #todo - this may need to reference v_map and current position in scanlist to do properly
-            return 1
-        }
-        if {$f eq "-"} {
-            #unless the caller declared it as a solo - treat this as a non flag element. (likely use is as a command match)
-            return 0
-        }
-        if {$f eq "--"} {
-            #this is it's own type endofoptions
-            return 0
-        }
-
-        set p_opts [$objp get_combined_opts]
-
-        set mashopts [dict get $p_opts mashopts]
-        set singleopts [dict get $p_opts singleopts]
-        set pairopts [dict get $p_opts pairopts]
-        set longopts [dict get $p_opts longopts]
-      
-        if {$f in $singleopts} {
-            return 1
-        }
-
-        #"any" keywords used by processors to consume anything - where we're not too worried about classifying a flagvalue vs an operand
-        #examine these last so that an explicit configuration of flags as pairopts,mashopts etc can still be classified correctly
-        if {"any" in $singleopts} {
-            return 1
-        }
-        if {[string first "=" $f] >=1} {
-            if {"any" in $longopts} {
-                return 1
-            }
-            #todo foreach longopt - split on = and search
-        }
-
-        #Flag could still be part of a solo if it is in mashopts *and* has a value following it as part of the mash  - but if it's a pairopt, but not mashable - we can rule it out now
-        if {($f in $pairopts) && ($f ni $mashopts)} {
-            return 0
-        }
-        #todo - suport mashes where one of the mashed flags takes an arg - review: only valid if it's last in the mash? 
-        #(presumably so - unless we there was some other value delimiter such as isnumeric or capitalised flags vs lowercase values - but that seems a step too far - would require some sort of mashspec/mash-strategy config)
-        #last part of mash may actually be the value too. which complicates things
-        #linux ls seems to do this for example: 
-        # ls -w 0
-        # ls -lw 0
-        # ls -lw0
-        # also man.. e.g
-        # man -Tdvi 
-        # man -Hlynx
-        # man -H 
-        #  - note this last one. '-H lynx' doesn't work - so it's a mashable opt that can take a value, but is not in pairopts! (-H with no value uses env value for browser)
-        # see also comments in is_this_flag_mash
-        #
-      
-        set flagletters [split [string range $f 1 end] ""]
-        set posn 1
-        set is_solo 1 ;#default assumption to disprove
-        #trailing letters may legitimately not be in mashopts if they are part of a mashed value
-        #we can return 0 if we hit a non-mash flag first.. but at each mashflag we need to test if we can classify as definitely solo or not, or else keep processing
-        foreach l $flagletters {
-            if {"-$l" ni $mashopts} {
-                #presumably an ordinary flag not-known to us
-                return 0
-            } else {
-                if {"-$l" in $pairopts} {
-                    if {$posn == [llength $flagletters]} {
-                        #in pairopts and mash - but no value for it in the mash - thefore not a solo
-                        return 0
-                    } else {
-                        #entire tail is the value - this letter is effectively solo
-                        return 1
-                    }
-                } elseif {"-$l" in $singleopts} {
-                    #not allowed to take a value - keep processing letters
-                } else {
-                    #can take a value! but not if at very end of mash. Either way This is a solo
-                    return 1
-                }
-            }
-        }
-        return $is_solo
-    } 
-    #todo? support global (non-processor specific) mash list?  -mashflags ?
-    proc is_this_flag_mash {f objp} {
-        if {![regexp -- {-{1}[^-]+|-{2}[^-]+} $f]} {
-            #not even flaglike
-            return 0
-        }
-        set optinfo [$objp get_combined_opts];#also applies to tail_processor - *usually* empty values for mashopts etc
-
-        #we look at singleopts because even if the flag is in mashopts - when it is alone we don't classify it as a mash
-        set singleopts pdict get $optinfo singleopts]
-        if {$f in $singleopts} {
-            return 0
-        }
-
-        set pairopts [dict get $optinfo pairopts]
-        if {$f in [dict keys $pairopts]} {
-            #here, the entire arg (f) we are testing is in pairopts - it could still however appear as part of a mash, with or without a trailing value, and with or without other flags before it in the mash (but if neither prefixed,nor tailed then obviously not a mash)
-            return 0
-        }
-        set mashopts [dict get $optinfo mashopts]
-        set flagletters [split [string range $f 1 end] ""]
-        set is_mash 1 ;#to disprove - all letters must be in mashopts to consider it a mash.. unless trailing one also takes a value
-        # .. in which case value could be at the tail of the mash.. or be the next arg in the list
-        # We will take absense from singleopts and pairopts to indicate the mashflag *optionally* takes a value
-        #    (ie such a mashopt is a solo that can take a value only as a mashtail)
-        # presence in pairopts indicates a mashflag must have a value
-        # presense in singleopts indicates mashflag takes no value ever.
-        # mashopt cannot be in both singleopts and pairopts. (NAND)
-        foreach l $flagletters {
-            if {-$l in $pairopts} {
-                if {"-$l" in $mashopts} {
-                    #need to consider any remainder in the mash as this value .. if no remainder - then this is a mash, but not 'solo' because this flag needs to consume the following arg. 
-                    # We are only concerned with mashness here so just stop processing mash elements when we hit the first one that is a pairopt
-                    break
-                } else {
-                    #we require the pairopt to explicitly be listed in mashopts as well as pairopts if it is to be allowed to be part of a mash
-                    set is_mash 0
-                }
-            } elseif {"-$l" in $singleopts} {
-                #singleopt & mashopt - cannot take a value, mashed or otherwise
-                if {"-$l" ni $mashopts} {
-                    set is_mash 0
-                } 
-            } else {
-                if {"-$l" ni $mashopts} {
-                    set is_mash 0
-                } else {
-                    #present only in mashopts - can take a value, but only immediately following in the mash
-                    break
-                }
-            }
-        }
-        return $is_mash
-    }
-    proc is_this_flag_for_me {f objp cf_args} {
-        set processorname [$objp name]
-        set optinfo [$objp get_combined_opts] ;#also applies to tail_processor - *usually* empty values for mashopts etc
-
-        if {$processorname in [list "tail_processor"]} {
-            return 1
-        }
-        if {$processorname in [list "global"]} {
-            #todo - mashflags for global?
-            set defaults [dict get $cf_args -defaults]
-            set extras [dict get $cf_args -extras]
-            set soloflags [dict get $cf_args -soloflags]
-            if {$f in [concat $extras $soloflags [dict keys $defaults]]} {
-                return 1
-            }
-        }
-
-        set singleopts [dict get $optinfo singleopts]
-        if {"any" in [string tolower $singleopts]} {
-            #review semantics of 'all' here. does it mean any -xxx.. will match, or only if also in global -soloflags?
-            return 1
-        }
-        set pairopts [dict get $optinfo pairopts]
-        set allopts [concat $singleopts [dict keys $pairopts]]
-        if {$f in $allopts} {
-            return 1
-        }
-
-        #process mashopts last
-        set mashopts [dict get $optinfo mashopts]
-        if {"any" in [string tolower $mashopts]} {
-            #if 'all' in mashopts - it can eat anything - review - is this even useful?
-            return 1
-        } else {
-            set flagletters [split [string range $f 1 end] ""]
-            set is_mash 1 ;#to disprove - all letters must be in mashopts to consider it a mash
-            foreach l $flagletters {
-                if {"-$l" ni $mashopts} {
-                    set is_mash 0
-                }
-            }
-            return $is_mash
-        }
-
-        return 0
-    }
-    
-
-
-    proc add_dispatch_raw {recordvar parentname v} {
-        upvar $recordvar drecord
-        if {[dict exists $drecord $parentname]} {
-            set dispatchinfo [dict get $drecord $parentname raw]
-            lappend dispatchinfo $v
-            dict set drecord $parentname raw $dispatchinfo
-        }
-    }
-    proc add_dispatch_argument {recordvar parentname k v} {
-        upvar $recordvar drecord
-        if {[dict exists $drecord $parentname]} {
-            set dispatchinfo [dict get $drecord $parentname arguments]
-            lappend dispatchinfo $k $v  ;#e.g  -opt 1
-            dict set drecord $parentname arguments $dispatchinfo
-        }
-    }
-    proc lsearch-all-stride-2 {l search} {
-        set posns [lmap i [lsearch -all $l $search] {expr {($i % 2) == 0 ? $i : [list x]}}]
-        return [lsearch -all -inline -not $posns x]
-    }
-    proc update_dispatch_argument {recordvar parentname k v} {
-        upvar $recordvar drecord
-        if {[dict exists $drecord $parentname]} {
-            set dispatchinfo [dict get $drecord $parentname arguments]
-            #can't assume there aren't repeat values e.g -v -v 
-            #dict set dispatchinfo $k $v
-            if {[package vcompare [info tclversion] 8.7a5] >= 0} {
-                set posns [lsearch -all -stride 2 $dispatchinfo $k]
-            } else {
-                set posns [lsearch-all-stride-2 $dispatchinfo $k]
-            }
-            set lastitem [lindex $posns end]
-            if {[string length $lastitem]} {
-                set val_idx [expr {$lastitem + 1}]
-                set dispatchinfo [lreplace $dispatchinfo[set dispatchinfo {}] $val_idx $val_idx $v] ;# inlineK
-                dict set drecord $parentname arguments $dispatchinfo
-            } else {
-                error "Unable to update dispatch argument $k with value $v in dispatch record for $parentname"
-            }
-            #dict set drecord $parentname $dispatchinfo
-        }
-    }
-
-    #Note the difference between this and is_command_match.
-    #Lack of a 'match' element does not cause a commandspec to skip allocating an operand it encounters
-    #Note that this isn't a general test to be applied to the entire argument list.
-    # - an arg may get matched by an earlier processor making it unavailable to be allocated by another processor
-    #  so this test only applies during the ordered examination of args
-    proc can_this_commandspec_allocate_this_arg {flag cspec cf_args} {
-        set cmdinfo [lindex $cspec 1]
-        if {$cmdinfo eq "tail_processor"} {
-            return 1
-        }
-        if {$cmdinfo eq "global"} {
-            set defaults  [dict get $cf_args -defaults]
-            set soloflags [dict get $cf_args -soloflags]
-            set extras    [dict get $cf_args -extras]
-            if {$flag in [concat $soloflags $extras [dict keys $defaults]]} {
-                return 1
-            }
-        }
-        if {![dict exists $cmdinfo match]} {
-            return 1
-        } 
-        set matchspeclist [dict get $cmdinfo match]
-        foreach matchspec $matchspeclist {
-             if {[regexp -- $matchspec $flag]} {
-                 return 1
-             }
-        }
-        #only block it if there was a match pattern specified but it didn't match
-        return 0
-    }
-    #Note - returns false for a cspec that has no match specified.
-    #A command/subcommand with no match specification is allowed to allocate any value - so be careful with this
-    # - it should not be used to *stop* an arg being allocated if the processor has no 'match' specified, or if it is another type of processor like 'tail_handler'.
-    proc is_command_match {flag cspec} {
-        set pinfo [lindex $cspec 1]
-        if {[dict exists $pinfo match]} {
-            set matchspeclist [dict get $pinfo match]
-            foreach matchspec $matchspeclist {
-                if {[regexp -- $matchspec $flag]} {
-                    return 1
-                }
-            }
-            return 0
-        } else {
-            return 0
-        }
-    }
-    proc is_command_match_any {f commandprocessors} {
-        foreach comspec $commandprocessors {
-            lassign $comspec cmdname cmdinfo
-            if {[dict exists $cmdinfo match]} {
-                set matchlist [dict get $cmdinfo match]
-                foreach matchspec $matchlist {
-                    if {[regexp -- $matchspec $f]} {
-                        #actually a command
-                        return true
-                    }
-                }
-            }
-        }
-        return false
-    }
-
-    #determine if f is potentially a flag that takes a parameter from the next argument.
-    #e.g --x=y  (longopt) does not consume following arg but --something  *might*
-    proc is_candidate_toplevel_param_flag {f solos commandprocessors} {
-      if {[is_command_match_any $f $commandprocessors]} {
-        return false
-      }
-      if {$f in $solos} {
-        return 0
-      }
-      if {$f in {- --}} {
-        return 0
-      }
-      #longopts (--x=blah) and alternative  --x blah
-      #possibly also -x=blah
-      if {[string match -* $f]} {
-          if {[string first "=" $f]>1} {
-              return 0
-          }
-      }
-      return [expr {[string match -* $f]}]
-    } 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-    #review - should we be using control::assert here?
-    #It depends if this is intended to raise error at runtime - would using control::assert and disabling assertions cause problems?
-    #todo - show caller info
-    proc assert_equal {a b} {
-        if {![expr {$a eq $b}]} {
-            error "assert_equal $a $b"
-        }
-    }
-
-
-
-
-
-    #{1 unallocated 2 unallocated 3 unallocated 4 unallocated 5 unallocated 6 unallocated} ;#initial v_map 
-    #1 2 3 4 5 6     ;#original list posns example
-    #  2       6     ;#map_remaining example  (scanlist)
-    #1   3 4 5       ;#map_allocated example
-    #{1 {cmd1 operand} 2 unallocated 3 {cmd2 operand} 4 {cmd2 flag} 5 {cmd2 flagvalue} 6 unallocated} ;#v_map updated example 
-    oo::class create class_vmap {
-        variable o_map
-        variable o_remaining
-        variable o_allocated
-        variable o_values
-        variable o_codemap
-        variable o_flagcategory
-        constructor {values} {
-            set o_codemap [dict create \
-                operand         op \
-                flagvalue       fv \
-                soloflag        so \
-                flag            fl \
-                unallocated     un \
-                endofoptions    eo \
-                ]
-            set o_flagcategory [list "flag" "flagvalue" "soloflag"]
-            set o_values $values
-            #set o_remaining [lsearch -all $values *] ;#create a list of indices e.g 0 1 2 3 4 5 6
-            #lsearch -all <list> * is fast for very small lists - but lseq wins from size around 30+
-            if {[llength $values]} {
-                if {[llength $values] < 30} {
-                    #common case is short lists - but we don't want to penalize large lists
-                    set o_remaining [lsearch -all $values *]
-                } else {
-                    #punk::lib::range wraps lseq if available
-                    set o_remaining [punk::lib::range 0 [llength $values]-1]
-                }
-            } else {
-                set o_remaining [list]
-            }
-            set o_allocated [list]
-            set o_map [list]
-            foreach posn $o_remaining {
-                lappend o_map $posn unallocated
-            }
-        }
-        method load {values rem alloc map} {
-            set o_values $values
-            set o_remaining $rem
-            set o_allocated $alloc
-            set o_map $map
-        }
-        method copy_to {obj} {
-            $obj load $o_values $o_remaining $o_allocated $o_map
-        }
-        method update_map_from {obj} {
-            #very basic sanity check first
-            if {[llength $o_values] ne [llength [$obj get_values]]} {
-                error "[self class].update_map_from cannot update. length of values mismatch"
-            }
-
-            set newmap [$obj get_map]
-        }
-
-        method get_codemap {} {
-            return $o_codemap
-        }
-        method get_values {} {
-            return $o_values
-        }
-        method get_remaining {} {
-            return $o_remaining
-        }
-        method get_allocated {} {
-            return $o_allocated
-        }
-        method get_map {} {
-            return $o_map
-        }
-        method argnum_from_remaining_posn {scanlist_posn} {
-            set vidx [lindex $o_remaining $scanlist_posn]
-            if {![string is digit -strict $vidx]} {
-                return -code error "[self class].argnum_from_remaining_posn cannot determine argnum from scanlist position:$scanlist_posn using unallocated list:'$o_remaining'"
-            }
-            return $vidx
-        }
-
-        method allocate {objp argnum type value} {
-            set processorname [$objp name]
-            if {$processorname eq "tail_processor"} {
-                set owner "unallocated"
-            } else {
-                set owner [$objp parentname]
-            }
-            if {$argnum > [llength $o_values]-1} {
-                return -code error "[self class].allocate cannot allocate argnum:$argnum. Only [llength $o_values] items in value list"
-            }
-            if {$argnum in $o_allocated} {
-                return -code error "[self class].allocate already allocated '$processorname' argnum:'$argnum' type:'$type' val:'$value'  remaining:$o_remaining allocated:$o_allocated map:$o_map"
-            }
-            lappend o_allocated $argnum
-            set o_allocated [lsort -dictionary $o_allocated]
-            dict set o_map $argnum [list $owner $type $value]
-            set scanlist_posn [lsearch $o_remaining $argnum]
-            set o_remaining [lreplace $o_remaining[set o_remaining {}] $scanlist_posn $scanlist_posn] ;#inlineK
-
-
-
-        }
-
-        method get_list_unflagged_by_class {classmatch} {
-            set resultlist [list]
-            dict for {k vinfo} $o_map {
-                lassign $vinfo class type val
-                if {[string match $classmatch $class]} {
-                    switch -- $type {
-                        flag - flagvalue - soloflag {}
-                        default {
-                            lappend resultlist $val
-                        }
-                    }
-                }
-            }
-            return $resultlist
-        }
-
-        method get_list_flagged_by_class {classmatch} {
-            set list_flagged [list]
-            dict for {k vinfo} $o_map {
-                lassign $vinfo class type val
-                if {[string match $classmatch $class]} {
-                    switch -- $type {
-                        flag - flagvalue - soloflag {
-                            lappend list_flagged $val
-                        }
-                    }
-                }
-            }
-            return $list_flagged 
-        }
-
-        method get_merged_flagged_by_class {classmatch} {
-            variable flagcategory
-            set all_flagged [list]
-            set seenflag [dict create] ;#key = -flagname val=earliest vindex
-            dict for {k vinfo} $o_map {
-                lassign $vinfo class type val
-                if {[string match $classmatch $class]} {
-                    set a [llength $all_flagged] ;#index into all_flagged list we are building
-                    switch -- $type {
-                        soloflag {
-                            if {[dict exists $seenflag $val]} {
-                                set seenindex [dict get $seenflag $val]
-                                set seenindexplus [expr {$seenindex+1}]
-                                set existingvals [lindex $all_flagged $seenindexplus]
-                                lappend existingvals 1  ;#1 indicating presence - stored as list rather than a count. todo: consider global or per-solo options to support incrementing instead?
-                                lset all_flagged $seenindexplus $existingvals
-                            } else {
-                                dict set seenflag $val $a
-                                lappend all_flagged $val 1
-                            }
-                        }
-                        flag {
-                            if {![dict exists $seenflag $val]} {
-                                dict set seenflag $val $a
-                                lappend all_flagged $val
-                            }
-                            #no need to do anything if already seen - flagvalue must be next, and it will work out where to go.
-                        }
-                        flagvalue {
-                            set idxflagfor [expr {$k -1}]
-                            set flagforinfo [dict get $o_map $idxflagfor]
-                            lassign $flagforinfo ffclass fftype ffval
-                            #jn "--" following a flag could result in us getting here accidentaly.. review
-                            set seenindex [dict get $seenflag $ffval] 
-                            if {$seenindex == [expr {$a-1}]} {
-                            #usual case - this is a flagvalue following the first instance of the flag
-                            lappend all_flagged $val
-                            } else {
-                                #write the value back to the seenindex+1
-                                set seenindexplus [expr {$seenindex+1}]
-                                set existingvals [lindex $all_flagged $seenindexplus]
-                                lappend existingvals $val  ;#we keep multiples as a list
-                                lset all_flagged $seenindexplus $existingvals
-                            }
-                        }
-                    }
-                }
-            }
-            return $all_flagged
-        }
-        method typedrange_class_type_from_arg {argclass argtype} {
-            #set o_flagcategory [list "flag" "flagvalue" "soloflag"]
-            if {$argclass eq "unallocated"} {
-                switch -- $argtype {
-                    flag - flagvalue - soloflag {
-                        return [list unallocated flagtype]
-                    }
-                    default {
-                        if {![string length $argtype]} {
-                            #should only happen if something wrong with the tail_processor - rather than error out, for now at least make it stand out in the .
-                            set argtype UNKNOWN
-                        }
-                        return [list unallocated ${argtype}type] ;#e.g unallocated_operand, unallocated_endofoptions
-                    }
-                }
-            } else {
-                return [list $argclass argtype] ;# e.g command something
-            }
-        }
-
-        method get_ranges_from_classifications {classifications} {
-            #puts stderr "get_ranges_from_classifications $classifications"
-            #examine classifications and create a list of ranges
-            set ranges [list];# e.g [list {unallocated 0 4} {cmd1 5 7} {unallocated 8 8} {cmd2 9 9} {cmd3 10 10} {unallocated 11 15}]
-            set seen_commands [list] 
-            dict for {posn arginfo} $classifications {
-                set is_new_cmd 0
-                set is_sub_cmd 0
-                set is_continuation 0
-                set rangename [lindex $ranges end 0]
-                set alloc [lindex $arginfo 0]  ;#e.g of form 0 {unallocated operand} 1 {lscmd operand} 2 {lscmd soloflag} 3 {lscmd.dir operand} 4 {unallocated flag}
-                set cmdname ""
-                if {$alloc ne "unallocated"} {
-                    if {$alloc ni $seen_commands} {
-                        if {![llength $seen_commands]} {
-                            set cmdname $alloc
-                            set is_new_cmd 1
-                        } else {
-                            set tail [lindex $seen_commands end]
-                            if {$tail eq "unallocated"} {
-                                set cmdname $alloc
-                                set is_new_cmd 1
-                            } else {
-                                if {[string first . $alloc] >= 0} {
-                                    set prefixcheck [lindex [split $alloc .] 0]
-                                    if {![string equal -length [string length $prefixcheck] $prefixcheck $tail]} {
-                                        #this is not unallocated, not a subcommand of the previous seen ie new command
-                                        set cmdname $alloc
-                                        set is_new_cmd 1
-                                    } else {
-                                        set cmdname $prefixcheck
-                                        set is_sub_cmd 1
-                                        set is_continuation 1
-                                    }
-                                } else {
-                                    set cmdname $alloc
-                                    set is_new_cmd 1
-                                }
-                            }
-                        }
-                    } else {
-                        set cmdname $alloc
-                        set is_continuation 1 
-                    }
-                    if {$is_continuation} {
-                        lassign [lindex $ranges end] _cmd n a b
-                        set ranges [lrange $ranges 0 end-1]
-                        lappend ranges [list command $n $a [incr b]]
-                        flagfilter::assert_equal $b $posn
-                    } elseif {$is_new_cmd} {
-                        lappend seen_commands $alloc
-                        if {$rangename eq ""} {
-                            lappend ranges [list command $cmdname $posn $posn]
-                        } else {
-                            lassign [lindex $ranges end] _cmd n a b
-                            lappend ranges [list command $cmdname [incr b] $posn]
-                            flagfilter::assert_equal $b $posn
-                        }
-                    } else {
-                        error "coding error during dispatch"
-                    }
-                } else {
-                    if {$rangename eq ""} {
-                        lappend ranges [list unallocated mixed 0 0]
-                    } else {
-                        lassign [lindex $ranges end] class n a b
-                        if {$class eq "unallocated"} {
-                            #continuation - extend
-                            set ranges [lrange $ranges 0 end-1]
-                            lappend ranges [list unallocated mixed $a [incr b]]
-                        } else {
-                            #change from allocated to unallocated
-                            lappend ranges [list unallocated mixed [incr b] $posn]
-                            flagfilter::assert_equal $b $posn
-                        }
-                    }
-                }
-            }
-            set rangesbytype [list]
-            foreach oldrange $ranges {
-                lassign $oldrange oldrangeclass oldrangetype A B  ;#A,B for original range bounds,  a,b for bounds of sub-ranges we are creating
-                set last_type ""
-                set newrangelist [list]
-                set inner_range [list 0 0]
-                if {$oldrangeclass ne "unallocated"} {
-                    #pass through - user can split commands further themselves by referencing the classifications map where each arg position is listed
-                    set last_type $oldrangeclass ;#note the deliberate slight misuse - we are using the 'class' here rather than the type as we aren't looking at types within a command range
-                    lappend rangesbytype $oldrange
-                } else {
-                    #puts stdout "???????????????????????????????????????????????A$A  B$B examining old range:'$oldrange'"
-                    for {set i $A} {$i <= $B} {incr i} {
-                        lassign [lindex $rangesbytype end] last_class last_type a b ;#enough just to use the type without the class
-                        set a_info [dict get $classifications $i]
-                        lassign $a_info argclass argtype v
-                        lassign [my typedrange_class_type_from_arg $argclass $argtype] newrangeclass newrangetype
-                        if {$last_type eq ""} {
-                            lappend rangesbytype [list "unallocated" $newrangetype 0 0]
-                        } else {
-                            if {$last_type eq $newrangetype} {
-                                set rangesbytype [lrange $rangesbytype 0 end-1]
-                                lappend rangesbytype [list $last_class $last_type $a $i]
-                            } else {
-                                lappend rangesbytype [list $newrangeclass $newrangetype $i $i]
-                            }
-                        }
-                    }
-                }
-            }
-
-            return [list -ranges $ranges -rangesbytype $rangesbytype]
-        }
-
-        method grid {} {
-            set posns [dict keys $o_map]
-            set col1 [string repeat " " 15]
-            set col [string repeat " " 4]
-            set pline "[overtype::left $col1 {var indices}] "
-            foreach p $posns {
-                append pline [overtype::left $col $p]
-            }
-            set remline "[overtype::left $col1 {unallocated}] "
-            foreach vidx $posns {
-                if {$vidx ni $o_remaining} {
-                    append remline [overtype::left $col "."]
-                } else {
-                    set tp [lindex [dict get $o_map $vidx] 1]
-                    #set tp [string map $o_codemap $tp]
-                    if {[dict exists $o_codemap $tp]} {
-                        set tp [dict get $o_codemap $tp]
-                    }
-                    append remline [overtype::left $col $tp] 
-                }
-            }
-            set cmdlist [list]
-            dict for {vidx info} $o_map {
-                if {[lindex $info 0] ne "unallocated"} {
-                    set c [lindex [split [lindex $info 0] .] 0] 
-                    if {$c ni $cmdlist} {
-                        lappend cmdlist $c
-                    }
-                }
-            }
-            set clinelist [list]
-            foreach c $cmdlist {
-                set cline "[overtype::left $col1 $c] "
-                dict for {vidx info} $o_map {
-                    lassign $info class type v
-                    if {($c eq $class) || [string equal -length [string length "$c."] "$c." $class]} {
-                        #set tp [string map $o_codemap $type]
-                        if {[dict exists $o_codemap $type]} {
-                            set tp [dict get $o_codemap $type]
-                        }
-                        append cline [overtype::left $col $tp]
-                    } else {
-                        append cline [overtype::left $col "."]
-                    }
-                }
-                lappend clinelist $cline
-            } 
-
-
-            set aline "[overtype::left $col1 {allocated}] "
-            foreach vidx $posns {
-                if {$vidx ni $o_allocated} {
-                    append aline [overtype::left $col "."]
-                } else {
-                    set tp [lindex [dict get $o_map $vidx] 1]
-                    #set tp [string map $o_codemap $tp]
-                    if {[dict exists $o_codemap $tp]} {
-                        set tp [dict get $o_codemap $tp]
-                    }
-                    append aline [overtype::left $col $tp]
-                }
-            }
-
-            return "$pline\n$remline\n[join $clinelist \n]\n$aline\n" 
-        }
-
-    }
-
-
-    #!todo - check if -commandprocessors members will collide with existing -flags in values before moving them
-    #!todo - skip optional sub-flag value if the next arg following its parent is a flag i.e proper handling of -commandprocessors {cmd {cmd sub "default}}   when only cmd supplied.
-    #!important to fix. At the moment it could eat a further unflagged item in values later in the list which was intended for a different -commandprocessors member!
-    #add support for -commandprocessors {-cmd {-cmd -othercmd "default"}}  to be a safe way to specify a linked -flag move that does the same.
-    proc allocate_arguments {PROCESSORS solos values cf_args caller} {
-        set runid [lindex [split [namespace tail $PROCESSORS] _] 1] ;# objname is of form PROCESSORS_pid-threadid-counter where "PROCESSORS_" is a literal
-        #puts stderr ">>>>>>> solos: $solos"
-        dict set debugc -debugargs [dict get $cf_args -debugargs]
-        dict set debugc -source "allocate_arguments $caller"
-
-        set defaults [dict get $cf_args -defaults]
-
-        set cmdprocessor_records [$PROCESSORS get_commandspecs]
-
-
-        set sep "\uFFFE" ;#argument-subargument separator (choose something else if this causes problems.. but we want something unlikely (or preferably impossible?) to be in a commandline, ideally a single character, and which at least shows something on screen during debug)
-        set sepstr "\\uFFFE" ;#for human readable error msg
-        #\u001E was tried and doesn't output on some terminals)
-
-        set remaining_unflagged [dict create]
-
-        set extra_flags_from_positionals [list] ;#values moved to -values
-        set moved_to_flagged [dict create]
-
-        #implied_ are values supplied from defaults when a flag or operand was not found
-        set implied_flagged [list]
-        set implied_unflagged [list]
-
-
-        set dispatch [dict create]
-        #sanitize and raise error if sep somehow in values
-        if {[string first $sep $cmdprocessor_records] >= 0} {
-            do_error "allocate_arguments flags error  separator '$sep' ($sepstr) found in values "
-        }
-        #--------------------------------------
-        set VMAP [flagfilter::class_vmap create flagfilter::VMAP_$runid $values]
-        #--------------------------------------
-
-        set unconsumed_flags_and_values [list]
-        set unflagged [dict create]
-
-        ######################
-        #main -commandprocessors loop which scans the valuelist
-        set values_index 0 ;#track where we are up to as we allocate values to unflagged elements
-        set source_values $values ;#start with all including -flagged
-
-        #todo - get rid of most of these flags last_x_was etc - and just do lookups into the v_map
-        # as this will probably involve *lots* of small functiona calls - keep this boolean version and check for performance issues.
-        set a_index 0
-        set is_args_flag 0
-        set last_arg_was_paramflag 0 ;#a flag that expects a parameter to follow
-        set last_arg_was_solo 0
-        set solo_flags [dict keys $solos] ;#solos is a dict of -flag <defaultval> (preprocessed)
-        set end_of_options 0
-        set end_of_options_index -1 ;#as later processors can rescan - we need to make sure they only look at arguments after this point
-        set last_p_found [dict create  by "" index "" item ""]
-        set sequence 0
-        set argerrors [list] ;#despite being a list - we will break out at first entry and return for now.
-        set parsestatus "ok"
-
-        #set LAUNCHED [oolib::collection create col_processors_launched_$runid]
-        #set MATCHED [oolib::collection create col_processors_matched_$runid]
-        #oo::objdefine col_processors_matched_$runid {
-        #    method test {} {
-        #        return 1
-        #    }
-        #}
-
-        #set objp [$PROCESSORS object_from_record $p]  ;#temp convenience
-
-        foreach objp [$PROCESSORS items] {
-            set objparent [$objp parent]
-            #$LAUNCHED add $objp [$objp name]
-            set p [$objp get_def] ;#individual record  e.g {mycmd {match run singleopts {-x}}}  or  {tail_processor {}}
-             
-            lassign $p parentname pinfo
-            set is_sub [$objp is_sub] ;#is subargument - should look to see if last related spec got a value and abort if not.
-            set is_p_flag [$objp is_flag] ;#sub can be a flag even if parent isn't
-            set processorname [$objp name]
-            if {[$objp is_sub]} {
-                if {![[$objp parent] found_match]} {
-                    continue
-                }
-                set p_sub [dict get $pinfo sub]
-            }
-            do_debug 3 $debugc " =========================>> p $p sequence:$sequence a_index $a_index"
-
-            if {$processorname in [list "global" "tail_processor"]} {
-                dict set last_p_found by $processorname
-                #dict set last_p_found index $a_index
-                #dict set last_p_found item $a
-            }
-            # -format {x {sub y  default "default"}} means y is dependent on x being present and shouldn't eat if the next value isn't flaglike
-            # -format {-x {sub -y}} does the same for moving positionals to the flagged list.
-
-
-            #set remaining_values [lrange $source_values $a_index end]
-            #####################################
-            # full rescans for later processors
-            set remaining_values $source_values  ;#source_values shrinks as commands take arguments
-            set a_index 0
-            #####################################
-
-            do_debug 3 $debugc "-------->________>p '$processorname' remaining vals $remaining_values"
-            
-            #!todo - use v_map as an extra determinant to stop sequence for a command-set. (don't extend beyond where args have already been snipped by another command)
-            if {[$objp name] eq "tail_processor"} {
-                set mapcopy [flagfilter::class_vmap new {}] ;#no need to supply values as we are copying data from $VMAP 
-                $VMAP copy_to $mapcopy
-                $objp set_map_object $mapcopy
-            } else { 
-                $objp set_map_object $VMAP
-            }
-            foreach a $remaining_values {
-              set argnum [[$objp get_map_object] argnum_from_remaining_posn $a_index]
-              if {![string is integer -strict $argnum]} {
-                  error "arg '$a'  scan_index:$a_index - calculated argnum:'$argnum' is invalid"
-
-              }
-              set sub_operand 0
-              do_debug 3 $debugc "$argnum        >eoptions_idx:$end_of_options_index a_index:$a_index __________________________________________________________a $a"
-              if {$end_of_options_index > -1} {
-                set end_of_options [expr {$a_index >= $end_of_options_index}]
-              }
-
-              #review - data with leading - may be unintentionally interpreted as a flag
-              if {[string trim $a] eq "--"} {
-                  #generally means end of options processing..
-                  #review - pass -- through??
-                  set last_arg_was_paramflag 0  ;#we don't treat first arg following end_of_options as belonging to the flag! - it is potentially an operand to the command
-                  set is_solo_flag 0
-                  set end_of_options 1
-                  set end_of_options_index $a_index
-                  #if {[lindex $p 0] eq "tail_processor"} {
-                    $objp allocate $argnum "endofoptions" $a
-                    set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                    incr a_index -1
-                  #}
-              } else {
-                      if {($last_arg_was_paramflag) && ([$objp  arg_is_defined_solo_to_me $a])} {
-                          #last flag expecting param - but this flag *known* to be solo
-                          #keep it simple and break out at first solo_flag related error ...unless it is trailing flag in the list
-                          lappend argerrors [list flagerror solo_flag_following_non_solo_flag bad_flag $a]
-                          set last_arg_was_solo 1
-                          break
-                      }
-                      #set is_solo_flag [expr {($a in $solo_flags)}]
-                      #set is_solo_flag [is_this_flag_solo $a $solo_flags $objp]
-                      set is_solo_flag [$objp arg_is_defined_solo_to_me $a]
-
-                      if {!$end_of_options} {
-                        if {!$last_arg_was_paramflag} {
-                          if {!$is_solo_flag} {
-                              set is_args_flag [is_candidate_toplevel_param_flag $a $solo_flags $cmdprocessor_records]
-                              #set is_args_flag [string match -* $a]
-                          }
-                          if {$is_args_flag || $is_solo_flag} {
-                            if {[dict get $last_p_found by] eq $processorname} {
-                              if {![is_this_flag_for_me $a $objp $cf_args]} {
-                                if {$processorname ne "globalXXX"} {
-                                    do_debug 3 $debugc "----breaking--- $processorname already found a value [dict get $last_p_found item] and has now hit an unrecognized option: $a"
-                                    break
-                                }
-                              }
-                            }
-                          }
-                        } else {
-                            #last was flag expecting a param
-                            set is_args_flag 0
-                            set is_solo_flag 0
-                        }
-                      } else {
-                          #end_of_options - ignore solo and other flags now.
-                          set is_args_flag 0
-                          set is_solo_flag 0
-                          set last_arg_was_paramflag 0
-
-                      }
-
-                  #puts stderr "!!!!!!!!!!!!!!!!!!1 here is_args_flag:$is_args_flag"
-                  do_debug 3 $debugc "        >________>________>is_p_flag: $is_p_flag last_arg_was_paramflag:$last_arg_was_paramflag is_args_flag:$is_args_flag is_solo: $is_solo_flag (soloflags:$solo_flags) a:$a "
-                  if {!$is_args_flag && !$is_solo_flag } {
-
-                      if {!$last_arg_was_paramflag} {
-                          if {[dict get $last_p_found by] eq $processorname} {
-                            if {$processorname ne "tail_processor"} {
-                              #we already found our unflagged value - and now we've hit another - time to break and hand it to a subcommand processor if any
-                              do_debug 3 $debugc "----breaking--- $processorname already found a value [dict get $last_p_found item] and has now hit another value: $a"
-                              break
-                            }
-                          }
-                          set sequence_ok 1  ;#default assumption
-                          set can_allocate [can_this_commandspec_allocate_this_arg $a $p $cf_args]
-
-                          if {$can_allocate} {
-                              if {$is_sub} {
-                                  #!todo - use v_map as sequence terminator
-                                  #check if our find is in sequence
-                                  #we are only hunting non-flagged items and the the previous finder removes 1 from the source_values list
-                                  #therefore the a_index of our find should be the same if we are processing the very next argument.
-                                  #we have already checked that it was a related entity which found the last one.
-                                  #todo - review if it matters when parents/siblings don't eat all the way up to the next -flag.
-                                  #todo - implement a 'gather' key to keep eating in sequence and accumulate the values as a list
-                                  if {$a_index > [dict get $last_p_found index]} {
-                                      do_debug 3 $debugc "OUT OF SEQUENCE a_index:$a_index vs last_found index:[dict get $last_p_found index], $processorname disengaging - ignoring value $a and leaving it to the next processor"
-                                      set last_arg_was_paramflag 0
-                                      do_debug 3 $debugc "<--- breaking --->"
-                                      break
-                                  } elseif {$a_index < [dict get $last_p_found index]} {
-                                      #too early.... found something before previous match
-                                      do_debug 3 $debugc "+++++++++++++++out of sequence $processorname - too early.. keeping scanning"
-                                      set sequence_ok 0
-                                  }
-                                  if {$sequence_ok} {
-                                      set sub_operand 1
-                                  }
-                              }
-                          }
-
-                          if {$can_allocate && $sequence_ok} {
-                              #found a non-flagged value in the argumentlist to either reallocate to flagged values or to positional values
-                              if {[dict exists $pinfo dispatch]} {
-                                  if {!$is_sub} {
-                                      #this must be the arg that caused the match
-                                      dict set dispatch $parentname [list command [dict get $pinfo dispatch] matched $a arguments [list] raw [list]]
-                                  } else {
-                                      #todo
-                                      lappend argerrors [list unsupported_dispatch $processorname]
-                                  }
-                              }
-                              if {$sub_operand} {
-                                  if {[dict exists $dispatch $parentname]} {
-                                      #todo - defaults?
-                                      add_dispatch_argument  "dispatch" $parentname $processorname $a
-                                      add_dispatch_raw       "dispatch" $parentname $a
-                                  } else {
-                                      #warning?
-                                      #lappend argerrors [list subcommand_unable_to_add_operand $processorname]
-                                      do_debug 3 $debugc "subcommand $processorname aborting scanning because parent command wasn't activated"
-                                      break
-                                  }
-                              }
-                              do_debug 2 $debugc "        >+++++++>++++++++>++++++++>setting $processorname [if {$is_p_flag} {list -} {}]value  $a"
-                              if {$processorname eq "tail_processor"} {
-                                  set argnum [[$objp get_map_object] argnum_from_remaining_posn $a_index]
-                                  set argname arg$argnum
-                                  lappend remaining_unflagged $argname $a
-                                  lappend unconsumed_flags_and_values $a
-                                  dict set unflagged $argname $a
-                              } elseif {$is_p_flag} {
-                                  $objp set_matched_argument $argnum $a
-                                  if {$is_sub} {
-                                      dict set extra_flags_from_positionals $p_sub $a
-                                  } else {
-                                      dict set extra_flags_from_positionals $parentname $a
-                                  }
-                                  lappend moved_to_flagged $processorname $a
-                                  #if has dependent commands ? - check for deep subcommand match?
-                              } else {
-                                  $objp set_matched_argument $argnum $a
-                                  #lappend positional_values $a
-                                  dict set unflagged $processorname $a
-                              }
-                              do_debug 4 $debugc "        >________>________>________>source_values :'$source_values'"
-                              do_debug 3 $debugc "        >________>________>________>source_values len:[llength $source_values] removing element $a_index val:[lindex $source_values $a_index]"
-
-                              #----------------------------
-                              dict set last_p_found by $processorname
-                              dict set last_p_found index $a_index
-                              dict set last_p_found item $a
-                              #------------------------------
-                              $objp allocate $argnum "operand" $a
-                              set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                              incr values_index       ;#only increment when we allocate a value to one of the members of -commandprocessors
-                              set last_arg_was_paramflag 0
-                              if {$processorname ne "tail_processor"} {
-                                  #don't break until we hit an unrecognized flag or another unflagged value
-                                  incr a_index -1 
-                                  #don't increment a_index before break, because we have shortened the list by 1.
-                                  #do_debug 3 $debugc "----breaking---"
-                                  #break
-                              } else {
-                                  #decrement to compensate for shortened list because tail_processor continues to end
-                                  incr a_index -1
-                              }
-                          }
-
-                      } else {
-                        #last_arg_was_paramflag
-                        set lastarg [dict get $last_p_found item]
-                        #puts stdout "+++ lastarg: $lastarg  source_values: [dict get $last_p_found source_values]  a_index: $a_index" 
-                        if {$processorname eq "tail_processor"} {
-                          lappend unconsumed_flags_and_values $a
-                        }
-                        if {([dict get $last_p_found by] eq $processorname) && [is_this_flag_for_me $lastarg $objp $cf_args]} {
-                          update_dispatch_argument "dispatch" $parentname $lastarg $a
-                          add_dispatch_raw         "dispatch" $parentname $a
-                          dict set last_p_found by $processorname
-                          dict set last_p_found index $a_index
-                          dict set last_p_found item $a
-                          $objp allocate $argnum "flagvalue" $a
-                          set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                          incr a_index -1
-                        }
-                        set last_arg_was_paramflag 0
-                      }
-                  } else {
-                    # is a flag of some sort ({!$is_args_flag && !$is_solo_flag} = false)
-                    if {$processorname eq "tail_processor"} {
-                      lappend unconsumed_flags_and_values $a
-                    }
-                    if {([dict get $last_p_found by] eq $processorname) && [is_this_flag_for_me $a $objp $cf_args]} {
-                      if {$is_solo_flag} {
-                        add_dispatch_argument "dispatch" $parentname $a 1
-                        add_dispatch_raw      "dispatch" $parentname $a
-                        set last_arg_was_solo 1
-                        set last_arg_was_paramflag 0
-                        $objp allocate $argnum "soloflag" $a
-                      } else {
-                        add_dispatch_argument "dispatch" $parentname $a "<pending>"
-                        add_dispatch_raw      "dispatch" $parentname $a
-                        set last_arg_was_solo 0
-                        set last_arg_was_paramflag 1
-                        $objp allocate $argnum "flag" $a
-                      }
-                      dict set last_p_found by $processorname
-                      dict set last_p_found index $a_index
-                      dict set last_p_found item $a
-                      do_debug 4 $debugc "        >2_______>________>________>source_values :'$source_values'"
-                      do_debug 3 $debugc "        >2_______>________>________>source_values len:[llength $source_values] removing element $a_index val:[lindex $source_values $a_index]"
-                      set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                      incr a_index -1
-                    } else {
-                      #auto alternate based on last value.. unless end_of_options
-                      if {!$end_of_options} {
-                          if {$a in $solo_flags} {
-                              set last_arg_was_solo 1
-                              set last_arg_was_paramflag 0
-                          } else {
-                              set last_arg_was_paramflag 1
-                          }
-                      }
-                      if {$a_index eq ([llength $source_values]-1)} {
-                          #puts "XXXXXXXXXXXXXXXXXXX $a_index   source_values:'$source_values'"
-                          #if at end of list don't retain any last..was info.
-                          set last_arg_was_solo 0
-                          set last_arg_was_paramflag 0
-                      }
-                      #skip - don't eat
-                    }
-                  }
-              }
-              incr a_index
-            }
-
-            if {![$objp found_match]} {
-                
-                #after break - we have retained vars: $parent, $sub_operand $pinfo $processorname etc
-                #didn't find an unflagged var - set a default if one was specified.
-                #do nothing otherwise - check_args will determine if it was -required etc.
-                #review - should only apply if parent cmd found something?
-                if {[dict exists $pinfo default]} {
-                    set defaultval [dict get $pinfo default]
-                    if {$is_p_flag} {
-                        if {$is_sub} {
-                          dict set extra_flags_from_positionals $p_sub $defaultval
-                        } else {
-                          dict set extra_flags_from_positionals $processorname $defaultval
-                        }
-                        #lappend moved_to_flagged $processorname $defaultval
-                        lappend implied_flagged $processorname $defaultval
-                        do_debug 3 $debugc "SETTING DEFAULT varname:$processorname $defaultval implied_flagged: $implied_flagged "
-                    } else {
-                        lappend implied_unflagged $processorname $defaultval
-                        dict set unflagged $processorname $defaultval
-                        do_debug 3 $debugc "SETTING DEFAULT varname:$processorname $defaultval moved_to_flagged: $moved_to_flagged "
-                    }
-
-                    if {$is_sub && !$sub_operand} {
-                        if {[dict exists $dispatch $parentname]} {
-                            add_dispatch_argument "dispatch" $parentname $processorname $defaultval
-                        } else {
-                            lappend argerrors [list subcommand_unable_to_add_default_operand $processorname $defaultval]
-                        }
-                    }
-                }
-            }
-
-            if {[$objp name] eq "tail_processor"} {
-                $VMAP update_map_from [$objp get_map_object]
-            }
-
-            if {[llength $argerrors]} {
-                set parsestatus "error"
-                #abort processing at first error - we won't be able to make sense of the remaining args anyway
-                #even the tail_processor won't be able to classify reliably because flag meanings depend on the configured commands
-                break
-            }
-        }
-
-        #assertion - should be none?
-        #set remaining_values [lrange $source_values $a_index end]
-        #do_debug 3 $debugc "-------->________>end of processing - remaining vals $remaining_values"
-
-        do_debug 2 $debugc "========>=========>originals : $values"
-        do_debug 2 $debugc "[$VMAP get_map]"
-        do_debug 2 $debugc "========>=========>unconsumed: $unconsumed_flags_and_values"
-
-
-
-
-
-        set all_flagged  [$VMAP get_merged_flagged_by_class *]
-        set all_flagged_plus [concat $all_flagged $extra_flags_from_positionals]
-        
-        set all_flagged_list [$VMAP get_list_flagged_by_class *]
-        set all_flagged_list [concat $all_flagged_list $extra_flags_from_positionals]
-         
-        set remaining_flagged [$VMAP get_merged_flagged_by_class "unallocated"]
-
-        set remaining_flagged_list [$VMAP get_list_flagged_by_class "unallocated"]
-
-
-        set unflagged_list_in_processing_order [dict values $unflagged]
-        set unflagged_list [$VMAP get_list_unflagged_by_class *]
-
-        set unflagged_list_remaining [$VMAP get_list_unflagged_by_class "unallocated"]
-
-        return [dict create \
-            listremaining $unconsumed_flags_and_values \
-            parseerrors             $argerrors \
-            parsestatus             $parsestatus \
-            flagged                 $all_flagged_plus \
-            flaggedlist             $all_flagged_list \
-            flaggedremaining        $remaining_flagged \
-            flaggedlistremaining    $remaining_flagged_list \
-            unflagged               $unflagged \
-            unflaggedlist           $unflagged_list \
-            unflaggedremaining      $remaining_unflagged \
-            unflaggedlistremaining  $unflagged_list_remaining \
-            flaggednew              $extra_flags_from_positionals \
-            arglist                 [concat $unflagged_list_in_processing_order $all_flagged] \
-            arglistremaining        [concat $unflagged_list_remaining $remaining_flagged] \
-            impliedflagged          $implied_flagged \
-            impliedunflagged        $implied_unflagged \
-            dispatch                $dispatch \
-            classifications         [$VMAP get_map] \
-            gridstring              "\n[$VMAP grid]" \
-            vmapobject              "flagfilter::VMAP_$runid" \
-            ]
-    }
-
-
-
-
-
-
-
-    
-
-    
-
-    #specialisation for collection class to contain commandprocessors
-    # we expect to use only a single instance of this
-    oo::class create col_allprocessors {
-        superclass oolib::collection
-        variable o_commandspecs
-        method add_processor {p} {
-            my add $p [$p name]
-            if {[$p is_sub]} {
-                set parentname [$p parentname]
-                set obj_parent [my item $parentname]
-                set col_siblings [$obj_parent children]
-                $col_siblings add $p [$p name]
-            }
-        }
-        method set_commandspecs {cspecs} {
-            set o_commandspecs $cspecs
-        }
-        method get_commandspecs {} {
-            set o_commandspecs
-        }
-        #treating as singleton.. todo tidy
-        method name_from_record {rec} {
-            lassign $rec parentname pinfo
-            if {[dict exists $pinfo sub]} {
-                set name [join [list $parentname [dict get $pinfo sub]] .]
-            } else {
-                set name $parentname
-            }
-            return $name
-        }
-        method object_from_record {rec} {
-            set name [my name_from_record $rec]
-            return [my item $name]
-        }
-        #basic check if arg may consume the following one - not based on any specific info from processors
-        method arg_appears_standalone {f} {
-            if {(![string match "-*" $f]) && (![string match "/*" $f])} {
-                #not even flaglike
-                return 1
-            }
-            if {$f in {- --}} {
-               return 1 
-            }
-        }
-        #does any processor define it as solo
-        method flag_can_be_solo {f} {
-            foreach objp [my items] {
-                if {[$objp arg_is_defined_solo_to_me $f]} {
-                    return 1
-                }
-            }
-            return 0
-        }
-    }
-    oo::class create col_parents {
-        superclass oolib::collection
-        method add_parent {p} {
-            if {[$p is_sub]} {
-                error "cannot add a sub-processor to the main parents collection"
-            }
-            my add $p [$p name]
-        }
-    }
-    #each parent processor has a children collection which can only accept processors with sub defined.
-    oo::class create col_childprocessors {
-        superclass oolib::collection
-        variable o_ownername
-        method set_owner {parentname} {
-            set o_ownername $parentname
-        }
-        #owner of the collection (a parent processor)
-        method owner {} {
-            return $o_ownername
-        }
-        method add_processor {p} {
-            if {![$p is_sub]} {
-                error "processor must have 'sub' element to add to the parent's collection"
-            }
-            #check name matches this parent..
-            
-            my add $p [$p name]
-        }
-    }
-
-    #todo - rename 'cprocessor' is misleading
-    oo::class create cprocessor {
-        variable o_runid
-        variable o_name
-        variable o_definition
-        variable o_pinfo
-        variable o_parentname
-        variable o_is_sub
-        variable o_col_children
-        variable o_mashopts
-        variable o_singleopts
-        variable o_pairopts
-        variable o_longopts
-        variable o_found_match  ;#we directly matched a command trigger or positional argument
-        variable o_matched_argument
-        variable o_matched_argnum
-        variable o_matchspec
-        variable o_vmap
-        constructor {definition runid} {
-            set o_vmap ""
-            set o_definition $definition
-            set o_runid $runid
-            if {([llength $o_definition] < 2) || ([llength [lindex $o_definition 0]] != 1)} {
-                error "[self class].constructor Unable to interpret definition '$o_definition'"
-            }
-            lassign $o_definition o_parentname o_pinfo
-            if {([llength $o_pinfo] %2) != 0} {
-                error "[self class].constructor second element of definition '$o_definition' not a dict"
-            } 
-            set o_is_sub [dict exists $o_pinfo sub]
-            if {!$o_is_sub} {
-                set o_name $o_parentname
-                set o_col_children [::flagfilter::col_childprocessors new]
-                $o_col_children set_owner $o_name
-            } else {
-                set o_name [join [list $o_parentname [dict get $o_pinfo sub]] .]
-            }
-            if {[dict exists $o_pinfo match]} {
-                set o_matchspec [dict get $o_pinfo match]
-            } else {
-                #review - unix paths? conflict with windows style flag such as /w
-                #must accept empty string
-                set o_matchspec {^[^-^/].*|^$}  ;#match anything that isn't flaglike
-            }
-            set o_found_match 0
-            set o_matched_argument "" ;#need o_found_match to differentiate match of empty string
-            set o_matched_argnum -1
-            #load mashopts etc at construction time as they're static
-            set o_mashopts [list]
-            set o_singleopts [list]
-            set o_pairopts [list]
-            set o_longopts [list]
-            if {[dict exists $o_pinfo mashopts]} {
-                lappend o_mashopts {*}[dict get $o_pinfo mashopts]
-            }
-            if {[dict exists $o_pinfo singleopts]} {
-                lappend o_singleopts {*}[dict get $o_pinfo singleopts]
-            }
-            if {[dict exists $o_pinfo pairopts]} {
-                lappend o_pairopts {*}[dict get $o_pinfo pairopts]
-            }
-            if {[dict exists $o_pinfo longopts]} {
-                lappend o_longopts {*}[dict get $o_pinfo longopts]
-            }
-        }
-        destructor {
-            catch {$o_vmap destroy}
-            if {!$o_is_sub} {
-                $o_col_children destroy
-            }
-        }
-
-        method name {} {
-            return $o_name
-        }
-        #open things up during oo transition..
-        method get_def {} {
-            return $o_definition
-        }
-        method is_flag {} {
-            if {[my is_sub]} {
-                #sub can be a flag even if parent isn't
-                set subname [dict get $o_pinfo sub]
-                return [string match -* $subname]
-            } else {
-                return [string match -* $o_name]
-            }
-        }
-        method has_same_parent {other} {
-           return [expr {[other parentname] eq $o_parentname}]
-        }
-        method is_sub {} {
-            return $o_is_sub
-        }
-
-        method set_map_object {map} {
-            set o_vmap $map
-        }
-        method get_map_object {} {
-            return $o_vmap
-        }
-        method allocate {argnum type val} {
-            if {$o_vmap eq ""} {
-                error "[self class].allocate ($o_name) vmap is not set."
-            }
-            $o_vmap allocate [self object] $argnum $type $val
-        }
-
-        method found_match {} {
-            return $o_found_match
-        }
-        method matched_argument {} {
-            return $o_matched_argument
-        }
-        method matched_argnum {} {
-            return $o_matched_argnum
-        }
-        method set_matched_argument {argnum a} {
-            #could be empty string 
-            if {$o_found_match} {
-                error "[self object].set_matched_argument processor:$o_name already found match '$o_matched_argument' - cannot set again"
-            }
-            if {![my can_match $a]} {
-                error "error [self class].set_matched_argument processor:$o_name cannot match '$a' (matchspec: $o_matchspec)"
-            }
-            set o_found_match 1
-            set o_matched_argument $a
-            set o_matched_argnum $argnum
-        }
-        method has_explicit_matchspec {} {
-            return [dict exists $o_pinfo match]
-        }
-        method matchspec {} {
-            return $o_matchspec
-        }
-        method can_match {a} {
-            if {!$o_found_match} {
-                foreach m $o_matchspec {
-                    if {[regexp -- $m $a]} {
-                        return 1
-                    }
-                }
-                return 0
-            } else {
-                return 0
-            }
-        }
-        #??
-        method can_allocate_flags {} {
-        }
-
-
-
-
-
-        #if we are a parent - this is own name
-        method parentname {} {
-            return $o_parentname
-        }
-        method parent {} {
-            return  [::flagfilter::obj::PARENTS_$o_runid item $o_parentname]
-        }
-        method is_parent {} {
-            return [expr {!$o_is_sub}]
-        }
-        method children {} {
-            if {!$o_is_sub} {
-                return $o_col_children
-            } else {
-                #raise error?
-                return ""
-            }
-        }
-        method mashopts {} {
-            return $o_mashopts
-        }
-        method singleopts {} {
-            return $o_singleopts
-        }
-        method pairopts {} {
-            return $o_pairopts
-        }
-        method longopts {} {
-            return $o_longopts
-        }
-
-        #whether flag categorized as solo by this processor
-        method arg_is_defined_solo_to_me {a} {
-            if {(![string match "-*" $a]) && (![string match "/*" $a])} {
-                #not even flaglike
-                return 0
-            }
-            if {[my can_match $a]} {
-                return 0
-            }
-            if {$a in {- --}} {
-               #specials not defined as solos
-               return 0 
-            }
-
-           if {$o_name eq "global"} {
-
-           } elseif {$o_name eq "tail_processor"} {
-               
-           }
-
-           if {$a in $o_singleopts} {
-               return 1
-           } 
-           if {"any" in $o_singleopts} {
-               return 1
-           }
-           set equalposn [string first "=" $a]
-           if {$equalposn >=1} {
-               if {"any" in $o_longopts} {
-                   return 1
-               } else {
-                   set namepart [string range $a 0 $equalposn-1]
-                   foreach lo $o_longopts {
-                       if {[string match "${namepart}=*" $lo]} {
-                           return 1
-                       }
-                   }
-               }
-           }
-           #Flag could still be part of a solo if it is in mashopts *and* has a value following it as part of the mash  
-           #- but if it's a pairopt, but not mashable - we can rule it out now
-           if {($a in $o_pairopts) && ($a ni $o_mashopts)} {
-               return 0
-           }
-           set flagletters [split [string range $a 1 end] ""]
-           set posn 1
-            #trailing letters may legitimately not be in mashopts if they are part of a mashed value
-            #we can return 0 if we hit a non-mash flag first.. but at each mashflag we need to test if we can classify as definitely solo or not, or else keep processing
-            foreach l $flagletters {
-                if {"-$l" ni $o_mashopts} {
-                    #presumably an ordinary flag not-known to us
-                    return 0
-                } else {
-                    if {"-$l" in $o_pairopts} {
-                        if {$posn == [llength $flagletters]} {
-                            #in pairopts and mash - but no value for it in the mash - thefore not a solo
-                            return 0
-                        } else {
-                            #entire tail is the value - this letter is effectively solo
-                            return 1
-                        }
-                    } elseif {"-$l" in $o_singleopts} {
-                        #not allowed to take a value - keep processing letters
-                    } else {
-                        #can take a value! but not if at very end of mash. Either way This is a solo
-                        return 1
-                    }
-                }
-            }
-            #This object should not treat the flag as a known solo 
-            #- so if it is allowed to consume it, it may fall back on examining the subsequent argument's flaginess(?)
-            return 0
-        }
-
-
-        method get_opts {} {
-            return [list mashopts $o_mashopts singleopts $o_singleopts pairopts $o_pairopts longopts $o_longopts]
-        }
-        #include parent opts
-        #we use the terminology 'option' for "-" prefixed items belonging to a -commandprocessors spec as opposed to more general -flags
-        #Note - this may also be called on the default "tail_processor", which will return empty sets, or an overridden tail_processor which may have data
-        method get_combined_opts {} {
-            set objparent [::flagfilter::obj::PARENTS_$o_runid item $o_parentname]
-            set parentopts [$objparent get_opts]
-            set mashopts   [dict get $parentopts mashopts]
-            set singleopts [dict get $parentopts singleopts]
-            set pairopts   [dict get $parentopts pairopts]
-            set longopts   [dict get $parentopts longopts]
-            if {[my is_sub]} {
-                #this spec is a sub 
-                set subopts [my get_opts] 
-                #does order matter? could use struct::set union ?
-                foreach m [dict get $subopts mashopts] {
-                    if {$m ni $mashopts} {
-                        lappend mashopts $m
-                    }
-                }
-                foreach s [dict get $subopts singleopts] {
-                    if {$s ni $singleopts} {
-                        lappend singleopts $s
-                    }
-                }
-                foreach po [dict get $subopts pairopts] {
-                    if {$po ni $pairopts} {
-                        lappend pairopts $po
-                    }
-                }
-                foreach lo [dict get $subopts longopts] {
-                    if {$lo ni $longopts} {
-                        lappend longopts $lo
-                    }
-                }
-
-            }
-            return [list mashopts $mashopts singleopts $singleopts pairopts $pairopts longopts $longopts]
-        }
-
-    }
-
-
-
-
-
-
-
-
-
-
-
-    proc get_command_info {cmdname cspecs} {
-        foreach item $cspecs {
-            lassign $item cmd specinfo
-            if {$cmd eq $cmdname && [dict exists $specinfo dispatch]} {
-                return $specinfo
-            }
-        }
-        return [list]
-    }
-    #### check_flags
-    # does not support unvalued flags  - unless explicitly specified in -soloflags (global)  or in -singleopts for a commandprocessor
-    #e.g not supported:  v1 v2 -arg1 arg1val -debug -anotherflag anotherflagval
-    #  - unless -soloflags is something like -soloflags {-debug}  or -soloflags {{-debug 1}} where 1 is the default. In this case - we can no longer support accepting a value for -soloflags  - the processor will not assign it an argument from the commandline.
-    #e.g not supported (unless -debug in -soloflags):  v1 v2 -arg1 arg1val -anotherflag anotherflagval -debug
-    #e.g supported:      v2 v2 -arg1 arg1val -debug 1 -anotherflag anotherflagval
-    # supports positional arguments - but only if specified in -commandprocessors 
-    # todo
-    # - supports -- for treating following arg as value even if it looks like a flag
-    # - supports - for reading stdin
-    # expects at least -values
-    # other options -caller <name> -defaults <dict_keyed_on_dashed_flags> -required <list_of_dashed_flags &| ("all"|"none")>  -extras <list_of_dashed_flags|"all"> -commandprocessors
-    #  -soloflags <list of -flag and {-flag default}>  (these are flags that *must* be solo - ie they cannot take an argument ) if no default specified they are boolean defaulting to 1, repeated instances in -values will be appended to a list.
-    #  The only flag that can be a mix of solo or not, is the very last flag in the values list. In this case it must not be in the -soloflags list, but it will default to a boolean 1 to indicate presence.
-    proc check_flags {args} {
-        set runid [flagfilter::get_new_runid]
-        ####################################################
-        #puts "Entered checkflags, args $args"
-        set distanceToTop [info level]
-        set callerlist [list]
-        set was_dispatched_by_another 0  ;#used to 
-        for {set i 1} {$i < $distanceToTop} {incr i} {
-          set callerlevel [expr {$distanceToTop - $i}]
-          set callerinfo [info level $callerlevel]
-          set firstword [lindex $callerinfo 0]
-          if {[string match "*check_flags*" $firstword]} {
-              set was_dispatched_by_another 1
-          }
-          lappend callerlist $firstword
-        }
-        #puts stdout "callerlist: $callerlist"
-
-        #first handle args for check_flags itself
-        if {[catch {lindex [info level -1] 0} caller]} {
-            set caller "<global>"
-        }
-        #puts stderr ">>>>check_flags caller $caller"
-        get_one_paired_flag_value {-x 1} -x ;#
-
-        #manually check for -caller even if unbalanced args
-        #we only need to use get_one_paired_flag_value because we haven't yet checked args is a properly formed paired list and if -caller is present we want to use it for clearer error messages.
-        #use normal dict operations to retrieve other flags.
-        #if failed to retrieve.. fall through to checks below
-        if {![catch {get_one_paired_flag_value $args -caller} flag_value_result]} {
-            set caller $flag_value_result
-        }
-        #puts stderr ">>>>check_flags caller $caller"
-
-
-
-
-        set cf_defaults [dict create\
-            -caller $caller\
-            -return [list arglistremaining]\
-            -match  [list]\
-            -commandprocessors [list]\
-            -soloflags [list]\
-            -extras    [list]\
-            -defaults [list]\
-            -required [list]\
-            -values  \uFFFF\
-            -debugargs 0\
-        ] 
-        dict set cf_defaults -debugargsonerror 1 ;#error level to use when dispatch error occurs.. will not set lower than -debugargs
-
-
-
-        if {([llength $args] % 2) != 0} {
-            do_error "check_flags error when called from '$caller' :check_flags must be called with even number of arguments of form: -flag value  Valid flags are: '[dict keys $cf_defaults]' \n got: $args"
-        }
-        set cf_args $cf_defaults
-        foreach {k v} $args {
-            switch -- $k {
-                -caller - -return - -match - -commandprocessors - -soloflags - -extras - -defaults - -required - -values - -debugargs - -debugargsonerror {
-                    dict set cf_args $k $v
-                } 
-                default {
-                    do_error "check_flags error when called from ${caller}: Unknown option '$k': must be one of '[dict keys $cf_defaults]' \nIf calling check_flags directly, put args being checked in -values {...}"
-                }
-            }
-        }
-        unset args
-        ####################################################
-        #now look at -values  etc that check_flags is checking
-
-        set caller   [dict get $cf_args -caller]
-
-        set debugargs [dict get $cf_args -debugargs]
-        dict set debugc -debugargs [dict get $cf_args -debugargs]
-        dict set debugc -source "check_flags $caller"
-        do_debug 1 $debugc "DEBUG-START $caller"
-        
-        set returnkey [dict get $cf_args -return]
-        set defaults [dict get $cf_args -defaults]
-         if {([llength $defaults] % 2) != 0} {
-            do_error "check_flags error when called from '$caller' :-defaults  must be a list containing an even number of arguments of form: -flag value'"
-         }
-        set required [dict get $cf_args -required]
-
-
-        set acceptextra   [dict get $cf_args -extras]
-
-        set supplied [string trim [dict get $cf_args -values]]
-        set soloflags [dict get $cf_args -soloflags]  ;#By their nature - solo flags are unlikely to be  automatically 'required' - review
-        set solos_with_defaults [list]
-        foreach solo_spec $soloflags {
-            if {[llength $solo_spec] == 1} {
-                lappend solos_with_defaults  $solo_spec 1
-            } else {
-                lappend solos_with_defaults [lindex $solo_spec 0] [lindex $solo_spec 1]
-            }
-
-        }
-
-        if {$debugargs >= 3} {
-            set prefix "| $caller>"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            puts -nonewline stderr "$prefix input\n"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            #puts stderr "$caller $cf_args"
-            dict for {k v} $cf_args {
-                if {$k ne "-commandprocessors"} {
-                    puts -nonewline stderr "$prefix \[$k\]\n"
-                    puts -nonewline stderr "$prefix $v\n"
-                }
-            }
-            if {$debugargs >=4} {
-                puts -nonewline stderr "$prefix \[-commandprocessors\]\n"
-                foreach record [dict get $cf_args -commandprocessors] {
-                    puts -nonewline stderr "$prefix    $record\n"
-                }
-            }
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            #dict for {key val} $cf_args {
-            #    puts stderr "  $key"
-            #    puts stderr "    $val"
-            #}
-        }
-
-
-        ##################################################################################################
-        # allocate_arguments  does the main work of processing non-flagged items in the main supplied argument list into flagged versions depending on the specs in -commandprocessors
-        # It sets defaults only for those arguments processed by a '-commandprocessors' spec.
-        # We must supply it with the -soloflags info because the solo flags affect what is considered an operand.
-        set command_specs [dict get $cf_args -commandprocessors] ;#may be empty list - that's ok - it will still populate the 'flagged' and 'arglist' return-dict members.
-
-        #some of these are keys returned by allocate_arguments 
-        # - some (e.g supplied) are added by check_flags
-        # This list is the list of -return values that can be used with check_args
-        set flaginfo_returns [list \
-            parseerrors \
-            parsestatus \
-            flagged \
-            flaggedremaining \
-            flaggednew \
-            unflagged \
-            unflaggedremaining \
-            unflaggedlistremaining \
-            listremaining \
-            arglist \
-            arglistremaining \
-            impliedunflagged \
-            impliedflagged \
-            classifications \
-            gridstring \
-            ranges \
-            dispatch \
-            dispatchstatuslist \
-            dispatchresultlist \
-            dispatchstatus \
-            supplied \
-            defaults \
-            status \
-            vmapobject \
-            ]
-
-        set PROCESSORS  [col_allprocessors create ::flagfilter::obj::PROCESSORS_$runid]
-        set PARENTS     [col_parents create ::flagfilter::obj::PARENTS_$runid] 
-
-        #
-        #set command_specs [concat [list {global {}}] $command_specs]
-        lappend command_specs {tail_processor {}}
-
-        foreach cspec $command_specs {
-            set obj [cprocessor new $cspec $runid] ;#runid gives access to the context-objects PROCESSORS_runid & PARENTS_runid
-            if {[$obj is_parent]} {
-                $PARENTS add_parent $obj
-            }
-            #do_debug 1 $debugc "CONFIGURING OBJECT for commandprocessor [$obj name]"
-            $PROCESSORS add_processor $obj
-        }
-        do_debug 1 $debugc "ADDED [$PROCESSORS count] processors to main commandprocessor collection"
-        do_debug 1 $debugc "ADDED [$PARENTS count] processors to the parents collection"
-        $PROCESSORS set_commandspecs $command_specs
-
-        #allocate_arguments uses the PROCESSORS object
-        set processed_arguments [allocate_arguments $PROCESSORS $solos_with_defaults $supplied $cf_args $caller]
-        #set processed_arguments [allocate_arguments {} $supplied]
-
-        set newly_flagged_positionals [dict get $processed_arguments flaggednew]
-        set unflaggedremaining        [dict get $processed_arguments unflaggedremaining]
-        set unflaggedlistremaining    [dict get $processed_arguments unflaggedlistremaining]
-        set dispatch                  [dict get $processed_arguments dispatch]
-        set flaggedremaining          [dict get $processed_arguments flaggedremaining]
-        set RETURNED_VMAP             [dict get $processed_arguments vmapobject]
-
-
-
-        if {$debugargs >= 3} {
-            set prefix "| $caller>"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            puts -nonewline stderr "$prefix output\n"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            #puts stderr "processed_arguments: $processed_arguments"
-            dict for {key val} $processed_arguments {
-                puts -nonewline stderr "$prefix  $key\n"
-                puts -nonewline stderr "$prefix    $val\n"
-            }
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-        }
-
-        ##################################################################################################
-
-
-
-
-
-        if {![llength $newly_flagged_positionals]} {
-            if {($supplied eq "\uFFFF") || ![llength $supplied]} {
-                #do_error "check_flags error when called from ${caller}: missing or empty -values"
-            }
-        }
-
-        #probably not something to enforce... we might pass on unbalanced lists to other check_args etc.
-        #if {([llength $supplied] % 2) != 0} {
-        #    do_error  "${caller}: Error. $caller must be called with even number of arguments of form: -flag value  Valid flags are: '[dict keys $defaults]'\n received values: $supplied"
-        #}
-
-
-
-        set new_arg_list [dict get $processed_arguments arglistremaining]
-        set flagged_list [dict get $processed_arguments flagged]
-        #set suppliedkeys_with_extrakeys [concat [dict keys $supplied] [dict keys $newly_flagged_positionals]]
-        #puts stdout "suppliedkeys and new keys: $suppliedkeys_with_extrakeys"
-
-        #todo - add flaggednew to required if all was specified?
-        #check invalid flags if not indicated in -extras  , either explicitly or with 'extra'
-        set flags_from_required [get_flagged_only $required {}]
-        #set known_flags [lsort -unique -nocase [concat [dict keys $defaults] $flags_from_required $soloflags]] ;#why -nocase? why should -l and -L collapse to the uppercase version?
-        set known_flags [punk::lib::lunique_unordered [concat [dict keys $defaults] $flags_from_required $soloflags ]]
-        foreach spec $command_specs {
-            lassign $spec parentname pinfo
-            if {[string match -* $parentname] && $parentname ni $known_flags} {
-                lappend known_flags $parentname
-            }
-            if {[dict exists $pinfo sub]} {
-                if {[string match -* [dict get $pinfo sub]]} {
-                    lappend known_flags [dict get $pinfo sub]
-                }
-            }
-        }
-        do_debug 2 $debugc "------------------->known_flags: $known_flags soloflags:$soloflags"
-        set invalid_flags [list]
-        if {"all" ni [string tolower $acceptextra]} {
-            if {"none" in [string tolower $acceptextra]} {
-                set ok_extras [list]
-            } elseif {[llength $acceptextra]} {
-                set ok_extras $acceptextra
-            }
-            #todo
-            #puts stderr " check_flags - temporary disable of checking for invalid flags"
-            set pairflagged $flagged_list
-            foreach {f v} $pairflagged {
-                if {$f ni $acceptextra && $f ni $known_flags} {
-                    lappend invalid_flags $f
-                }
-            }
-        }
-        if {[llength $invalid_flags]} {
-           do_error "check_flags $caller error when called from ${caller}: unknown flags '$invalid_flags'"
-        }
-
-        set calc_required [list]
-        set keywords_in_required [lsearch -inline -all -not $required -*]
-        set bad_keywords_in_required [lsearch -regexp -nocase -all -inline -not $keywords_in_required "all|none"]
-        if {[llength $bad_keywords_in_required]} {
-            do_error "check_flags error when called from ${caller}: bad flags in '-required' it must be a list of flags of the form -flagname or ONLY one of the keywords 'none' or 'all'"
-        }
-        #keywords_in_required now known to be only comprised of (possibly case variant) values of all|none
-        if {[llength $keywords_in_required] > 1} {
-            do_error "check_flags error when called from ${caller}: specifying both 'none' and 'all' in -required is not valid, and repeated values are not valid."
-        }
-        if {"none" eq [string tolower [lindex $keywords_in_required 0]]} {
-            set calc_required [list]
-        }
-        set flags [lsearch -inline -all $required -*]
-
-        if {[llength $required]} {
-            if {[lsearch -nocase $keywords_in_required "all"] >= 0} {
-                #'all' can be present with other flags - and indicates we also require all the flags from -defaults
-                dict for {k -} $defaults {
-                    if {$k ni $calc_required} {
-                        lappend calc_required $k
-                    }
-                }
-            }
-        }
-
-        set classifications [dict get $processed_arguments classifications] ;#assertion - ordered by numerically increasing key representing positions in supplied argument list
-        set rangesets [$RETURNED_VMAP get_ranges_from_classifications $classifications]
-        set ranges [dict get $rangesets -ranges]
-        set rangesbytype [dict get $rangesets -rangesbytype] ;#unallocated are split into flag,operand and endofoptions - further splitting is easy enough to do by looking up the classifications list for each position in the supplied arg list.
-        #tailflags are the same for all dispatch items
-        set tailflagspaired [tailflagspaired $defaults $supplied $classifications $rangesbytype]
-        
-
-        set dict_supplied [dict create supplied $supplied]
-        set dict_defaults [dict create defaults $defaults]
-        set dict_ranges   [dict create ranges   $ranges]
-        set dict_rangesbytype [dict create rangesbytype $rangesbytype]
-        set raise_dispatch_error_instead_of_return ""
-        set dict_dispatch_results [list dispatchstatuslist [list] dispatchresultlist [list] dispatchstatus "ok"]
-        #todo - only dispatch if no unallocated args (must get tail_processor to allocate known flags to 'global')
-        if {[llength $dispatch]} {
-            set dispatchstatuslist [list]
-            set dispatchresultlist [list]
-            set dispatchstatus "ok"
-            #each dispatch entry is a commandname and dict
-            #set dispatchrecord [lrange $dispatch 0 1]
-            set re_argnum {%arg([0-9^%]+)%}
-            set re_argtake {%argtake([0-9^%]+)%}
-            set re_dquotedparts {(?:(?:\"[^\"]*\")|(?:\"[^\"]*"))|(?:\S*[^ \"])} ;#for use with regexp -all -inline
-            #e.g {"a b" 'b x' "x  cd "e f" g a} -> {"a b"} 'b x' {"x  cd "} e f {" g a}
-            #dumb-editor rebalancing quote for above comment "
-            foreach  {parentname dispatchrecord} $dispatch {
-                set commandinfo [get_command_info $parentname $command_specs]
-
-                do_debug 1 $debugc  ">>>>>DISPATCHRECORD: $dispatchrecord"
-
-                # e.g lscmd lscmd natsortcommandline_ls lscmd.dir x
-
-                do_debug 2 $debugc "commandinfo for $parentname: $commandinfo"
-                set command  [dict get $dispatchrecord command] 
-                #support for  %x% placeholders in dispatchrecord command
-                set command [string map {%match% %matched%} $command] ;#alias
-                set command [string map [list %matched% [dict get $dispatchrecord matched]] $command]
-
-                set argnum_indices [regexp -indices -all -inline $re_argnum $command]
-                if {[llength $argnum_indices]} {
-                    foreach {argx_indices x_indices} $argnum_indices {
-                        #argx eg %arg12%
-                        set argx [string range $command {*}$argx_indices]
-                        set x [string range $command {*}$x_indices]
-                        set command [string map [list $argx [lindex [dict get $dispatchrecord arguments] $x]] $command]
-                    }
-                }
-
-                set argsreduced [dict get $dispatchrecord arguments]
-                #set rawparts [regexp -all -inline $re_dquotedparts [dict get $dispatchrecord raw]]
-
-                #review!
-                #how will this behave differently on unix
-                package require punk::winrun
-                set rawparts [punk::winrun::unquote_wintcl [dict get $dispatchrecord raw]]
-                #set argtake_indices [regexp -indices -all -inline $re_argtake $command]
-
-
-                set start 0
-                while {[regexp -start $start -indices $re_argtake $command argx_indices x_indices]} {
-                    #argx eg %argtake12%
-                    set argx [string range $command {*}$argx_indices]
-                    set x [string range $command {*}$x_indices]
-                    set argval [lindex [dict get $dispatchrecord arguments] $x]
-                    set replacementlen [string length $argval]
-                    set command [string map [list $argx $argval] $command]
-                    set start [expr {[lindex $argx_indices 0] + $replacementlen}]
-                    set argsreduced [lremove $argsreduced $x]
-                    set rawparts [lremove $rawparts $x]
-                }
-                dict set dispatchrecord arguments $argsreduced
-                if {$start > 0} {
-                    set rawreduced [join $rawparts]
-                    dict set dispatchrecord raw $rawreduced
-                }
-
-                set argvals [dict get $dispatchrecord arguments]
-                set matched_operands [list]
-                set matched_opts [list]
-                set matched_in_order [list]
-                set prefix "${parentname}."
-                set prefixlen [string length $prefix]
-                foreach {k v} $argvals {
-                    #puts "$$$$ $k"
-                    if {[string equal -length $prefixlen $prefix $k]} {
-                        #key is prefixed with "commandname."
-                        set k [string replace $k 0 $prefixlen-1]
-                    }
-                    #todo - -- ?
-                    if {[string match -* $k]} {
-                        lappend matched_opts $k $v
-                        lappend matched_in_order $k $v
-                    } else {
-                        set kparts [split $k .]
-                        lappend matched_operands $v
-                        lappend matched_in_order $v
-                    } 
-                }
-
-                if {![dict exists $commandinfo dispatchtype]} {
-                    set dispatchtype tcl
-                } else {
-                    set dispatchtype [dict get $commandinfo dispatchtype]
-                }
-                if {![dict exists $commandinfo dispatchglobal]} {
-                    if {$dispatchtype eq "tcl"} {
-                        set dispatchglobal 1
-                    } else {
-                        set dispatchglobal 0
-                    }
-                } else {
-                    set dispatchglobal [dict get $commandinfo dispatchglobal]
-                }
-                #generally we only want to dispatch remaining flagged, and only at the tail end.(as opposed to flags occurring between command groups)
-                # -It doesn't usually make much sense to dispatch remaining unflagged items, and it would be rare to require flags occurring before the command.
-                #however - there are potential commands such as help, dryrun or maybe an analysis command that may need to see unconsumed operands or even look 'back' at prior items
-                ##update 2023-03 - we definitely want to look back to prior non-matches when we match on a script e.g   <callingprocess> tclsh8.6 -someflag etc xxx.tcl scriptarg1 -etc
-                # if we match and dispatch on *.tcl - then we may need 'tclsh8.6 -someflag etc' as the interpreter (possibly with arguments) to use.
-                # we may need a 'script' dispatchtype  (as well as the option to just pass these prior arguments as additional options for some other dispatchtypes)
-                # 
-                # todo - add supported dispatchglobal values such as all, pre, post, allpre, allpost, and classifications
-                #  where pre & post are only those occurring directly before and after the command and its args, i.e not extending beyond any prior or subsequent other command.
-                # classifications would be flagged as -classifications $classifications whereas pre and post would be added directly if specified singly, or flagged with -pre, -post etc if multiple are specified
-                # Those beginning with 'all' should also be wrapped in flags, because potentially they come from disjointed sections of the argumentlist
-                # - and we generally shouldn't supply arguments next to each other that weren't contiguous in the original list
-                # The 1,true,yes,tailflagspaired value is designed for the usecase where a common set of tail flags e.g -debug can apply to any commands matched by the filter.
-                # tail = all unallocated args after final command, including operands and end-of-options '--' (todo)
-                # tailflags = all unallocated *contiguous* flags after the final command and final operands. (ie it will deliberately miss flags following last command if there is a later operand)  (todo)
-                # tailflagspaired = same as tailflags, but any solo-flags are defaulted to 1 (flags not merged, so there might be duplicate keys) so that it's a fully paired list 
-                # In other situations - post may make sense to get the very next set of unconsumed arguments.
-                if {[string tolower $dispatchglobal] in [list 1 true yes tailflagspaired]} {
-                    set command_range_posn [lsearch -index 1 $ranges $parentname]
-                    set extraflags $tailflagspaired
-                } else {
-                    set extraflags [list]
-                }
-
-                #jn  concat allows $command to itself be a list
-                ##tcl dispatchtype
-                dict set dispatchrecord dispatchtype $dispatchtype
-                switch -- $dispatchtype {
-                    tcl {
-                        do_debug 1 $debugc "DISPATCHING with tcl arg order: $command $matched_operands $matched_opts $extraflags"
-                        #set commandline  [list $command {*}$matched_operands {*}$matched_opts {*}$extraflags]
-                        set commandline  [concat $command $matched_operands $matched_opts $extraflags]
-                    }
-                    raw {
-                        do_debug 1 $debugc "DISPATCHING with raw args : $command [dict get $dispatchrecord raw]"
-                        #set commandline [list $command {*}[dict get $dispatchrecord raw] {*}$extraflags]
-                        set commandline [concat $command [dict get $dispatchrecord raw] $extraflags]
-                    }
-                    shell {
-                        do_debug 1 $debugc "DISPATCHING with shell args : $command [dict get $dispatchrecord raw]"
-                        #assume the shell arguments are in one quoted string?
-                        set commandline [concat $command [list [dict get $dispatchrecord raw]] $extraflags]
-                    }
-                    default {
-                        #non quoted shell? raw + defaults?
-                        do_debug 1 $debugc "DISPATCHING with given arg order: $command $matched_in_order $extraflags"
-                        #set commandline  [list $command {*}$matched_in_order {*}$extraflags]
-                        set commandline  [concat $command $matched_in_order $extraflags]
-                    }
-                }
-                
-                dict set dispatchrecord asdispatched $commandline
-                set dispatchresult ""
-                set dispatcherror ""
-                if {![catch {{*}$commandline} cmdresult]} {
-                    set dispatchresult $cmdresult
-                    lappend dispatchstatuslist [list status ok cmd $parentname outputlength [string length $cmdresult]]
-                    lappend dispatchresultlist $cmdresult
-                } else {
-                    set dispatchstatus "error"
-                    set dispatcherror $cmdresult
-                    #don't add to dispatchresultlist
-                    lappend dispatchstatuslist [list status err cmd $parentname outputlength 0 error $cmdresult]
-                    if {!$was_dispatched_by_another} {
-                        #this is the first (or a direct) call to check_flags - so make sure error gets raised in this proc rather than just storing the error in the data and returning
-                        set raise_dispatch_error_instead_of_return "dispatchstatuslist:\n[join $dispatchstatuslist \n] \nerrinfo:\n $::errorInfo"
-                        dict set dispatchrecord result $dispatchresult
-                        dict set dispatchrecord error  $dispatcherror
-                        dict set dispatch $parentname $dispatchrecord
-
-                        break
-                        #return -code error "check_flags error during command dispatch:\n$cmdresult"
-                    }
-                    #we've been dispatched from another check_flags - so ok to propagate the error up via the dispatchrecord/dispatchstatuslist
-                } 
-                dict set dispatchrecord result $dispatchresult
-                dict set dispatchrecord error  $dispatcherror
-                dict set dispatch $parentname $dispatchrecord
-            }
-
-            set dict_dispatch_results [list dispatchcaller $caller dispatchstatuslist $dispatchstatuslist dispatchresultlist $dispatchresultlist dispatchstatus $dispatchstatus]
-        } 
-        #end llength $dispatch
-
-
-        set combined [dict merge $dict_defaults $dict_supplied $processed_arguments $dict_ranges $dict_rangesbytype $dict_dispatch_results]
-        dict set combined dispatch $dispatch ;#update with asdispatched info
-        if {([dict get $combined parsestatus] eq "ok") && ([dict get $combined dispatchstatus] eq "ok")} {
-            dict set combined status "ok"
-        } else {
-            dict set combined status "error"
-        }
-        do_debug 1 $debugc "COMBINED:$combined"
-
-
-        set returnkey [string tolower $returnkey]
-        if {"all" in $returnkey} {
-            set returnval $combined
-            #set returnval [dict merge $combined $dict_dispatch_results]
-        } else {
-            if {[llength $returnkey] == 1} {
-                set invalid 0
-                #todo - support multiple merge?
-                set right ""
-                if {[regexp -all {\|} $returnkey] == 1} {
-                    lassign [split $returnkey |] left right
-                    set joinparts [split $left ,]
-                } else {
-                    set joinparts [split $returnkey ,]
-                } 
-                foreach j [concat $joinparts $right] {
-                    if {$j ni $flaginfo_returns} { 
-                        set invalid 1
-                    }
-                }
-                set returnval [list]
-                if {!$invalid} {
-                    foreach j $joinparts {
-                        lappend returnval {*}[dict get $combined $j]
-                    }
-                    if {[string length $right]} {
-                        set returnval [dict merge $returnval $defaults $returnval]
-                    }
-                } else {
-                    set returnval [list callerrors [list "-return '$returnkey' not valid"]]
-                }
-            } else {
-                set callerrors [list]
-                set returnval [dict create]
-                foreach rk $returnkey {
-                    if {$returnkey in $flaginfo_returns} {
-                        dict set returnval $rk [dict get $combined $returnkey]
-                    } else {
-                        lappend callerrors [list "-return '$returnkey' not valid"]
-                    }
-                }
-                if {[llength $callerrors]} {
-                    dict set returnval callerrors $callerrors
-                }
-            }
-        }
-
-        do_debug 1 $debugc "[string repeat = 40]"
-        do_debug 1 $debugc "dispatch_results: $dict_dispatch_results"
-        do_debug 1 $debugc "[string repeat - 40]"
-
-        if {[string length $raise_dispatch_error_instead_of_return]} {
-            set errdebug [dict get $cf_args -debugargsonerror]
-            if {$errdebug > [dict get $cf_args -debugargs]} {
-                dict set debugc -debugargs $errdebug
-            }
-        }
-
-        set debuglevel_return 2
-        set debugdict [concat {*}[lmap k [dict keys $combined] {list $k $debuglevel_return}]] ;#create a dict of keys from combined, all defaulted to $debuglevel_return
-        if {[llength [dict get $combined parseerrors]]} {
-            dict set debugdict "parseerrors" 0
-        } else {
-            dict set debugdict "parseerrors" 2
-        }
-        dict set debugdict "defaults" 1
-        dict set debugdict "supplied" 1
-        dict set debugdict "dispatch" 1
-        dict set debugdict "ranges" 1
-        dict set debugdict "rangesbytype" 1
-        dict set debugdict "dispatchstatus" 1
-        if {[dict get $combined "status"] eq "ok"} {
-            dict set debugdict "status" 1
-        } else {
-            dict set debugdict "status" 0
-        }
-
-        do_debug 1 $debugc "returning '$returnkey'"
-        do_debug 1 $debugc "returnval '$returnval'"
-        if {([llength $returnval] % 2) == 0} {
-            do_debug 1 $debugc "returnkeys '[dict keys $returnval]'"
-        }
-        do_debug 1 $debugc "[string repeat = 40]"
-        dict for {k v} $combined {
-            set dlev [dict get $debugdict $k]
-            switch -- $k {
-                dispatch {
-                    set col1 [string repeat " " 12]
-                    #process as paired list rather than dict (support repeated commands)
-                    set i 0
-                    foreach {cmdname cmdinfo} $v {
-                        set field1 [string repeat " " [expr {[string length $cmdname]}]]
-                        set col2_dispatch [string repeat " " [expr {[string length $cmdname] + 15}]]
-                        set j 0
-                        foreach {ckey cval} $cmdinfo {
-
-                            if {$i == 0 && $j == 0} {
-                                set c1 [overtype::left $col1 "dispatch"]
-                            } else {
-                                set c1 [overtype::left $col1 { ... }]
-                            }
-                            
-                            if {$j == 0} {
-                                set f1 [overtype::left $field1 $cmdname]
-                                set c2 [overtype::left $col2_dispatch "$f1 $ckey"]
-                            } else {
-                                set f1 [overtype::left $field1 ...]
-                                set c2 [overtype::left $col2_dispatch "$f1 $ckey"]
-                            }
-                            #leave at debug level 1 - because dispatch is generally important
-                            do_debug $dlev $debugc "${c1}${c2} $cval"
-
-                            incr j
-                        }
-                        incr i
-                    }
-                    
-                    #do_debug 1 $debugc "[overtype::left $col1 $k] [lindex $v 0] [list [lindex $v 1]]"
-                    #foreach {nm rem} [lrange $v 2 end] {
-                    #    do_debug 1 $debugc "[overtype::left $col1 { ... }] $nm [list $rem]"
-                    #}
-                }
-                dispatchresultlist {
-                    set col1 [string repeat " " 25]
-                    set i 0
-                    foreach dresult $v {
-                        if {$i == 0} {
-                            set c1 [overtype::left $col1 $k]
-                        } else {
-                            set c1 [overtype::left $col1 { ... }]
-                        }
-                        do_debug $dlev $debugc "$c1 $dresult"
-                        incr i
-                    }
-                }
-                classifications {
-                    set col1 [string repeat " " 25]
-                    set len [dict size $v]
-                    if {$len == 0} {
-                        do_debug $dlev $debugc "[overtype::left $col1 $k]"
-                        continue 
-                    }
-                    set max [expr {$len -1}]
-                    set numlines [expr $len / 3 + 1]
-                    if {($len % 3) == 0} {
-                        incr numlines -1
-                    }
-                    set j 0
-                    for {set ln 0} {$ln < $numlines} {incr ln} {
-                        if {$ln == 0} {
-                            set c1 "[overtype::left $col1 $k]"
-                        } else {
-                            set c1 "[overtype::left $col1 { ... }]"
-                        }
-                        set line ""
-                        for {set col 0} {$col < 3} {incr col} {
-                            if {$j <= $max} {
-                                append line "$j [list [dict get $v $j]] "
-                            }
-                            incr j
-                        }
-                        do_debug $dlev $debugc "$c1 [string trim $line]"
-                    }
-                }
-                gridstring {
-                    set col1 [string repeat " " 25]
-                    set i 0
-                    foreach ln [split $v \n] {
-                        if {$i == 0} {
-                            set c1 [overtype::left $col1 $k]
-                        } else {
-                            set c1 [overtype::left $col1 { ... }]
-                        }
-                        do_debug $dlev $debugc "$c1 $ln"
-                        incr i
-                    }
-                }
-                default {
-                    set col1 [string repeat " " 25]
-                    do_debug $dlev $debugc "[overtype::left $col1 $k] $v"
-                }
-            }
-        }
-
-
-        # ---------------------------------
-        foreach obj [$PARENTS items] {
-            catch {$obj destroy}
-        }
-        $PARENTS destroy
-        #puts "PROCESSORS: $PROCESSORS"
-        foreach obj [$PROCESSORS items] {
-            catch {$obj destroy}
-        }
-        $PROCESSORS destroy
-        catch {$RETURNED_VMAP destroy}
-        # ---------------------------------
-
-        do_debug 1 $debugc "[string repeat = 40]"
-        do_debug 1 $debugc "DEBUG-END $caller"
-        if {[string length $raise_dispatch_error_instead_of_return]} {
-            return -code error $raise_dispatch_error_instead_of_return
-        }
-
-        
-        return $returnval
-    }
-
-    proc tailflagspaired {defaults supplied classifications rangesbytype} {
-        lassign [lindex $rangesbytype end] c tp a b
-        if {($c eq "unallocated") && ($tp eq "flagtype")} {
-            set tail_unallocated [lrange $supplied $a $b]
-        } else {
-            set tail_unallocated [list]
-        }
-        #set extraflags [list]
-        set extraflags [punk::lib::dict_merge_ordered $defaults $tail_unallocated]
-        #dict merge based operation can't work if there are solo_flags? 
-        #review
-        if {[llength $tail_unallocated]} {
-            for {set i $a} {$i <=$b} {incr i} {
-                set arginfo [dict get $classifications $i]
-                lassign $arginfo class ftype v
-                switch -- $ftype {
-                    flag - flagvalue {
-                        lappend extraflags $v
-                    }
-                    soloflag {
-                        lappend extraflags $v
-                        if {[dict exists $defaults $v]} {
-                            lappend extraflags [dict get $defaults $v]
-                        } else {
-                            lappend extraflags 1
-                        }
-                    }
-                }
-            }
-            foreach {k v} [dict get $defaults] {
-                if {$k ni $extraflags} {
-                    lappend extraflags $k $v
-                } 
-            }
-        } else {
-            set extraflags $defaults
-        }
-        return $extraflags
-    }
-
-    proc tailflagspaired1 {defaults supplied classifications rangesbytype} {
-        lassign [lindex $rangesbytype end] c tp a b
-        if {($c eq "unallocated") && ($tp eq "flagtype")} {
-            set tail_unallocated [lrange $supplied $a $b]
-        } else {
-            set tail_unallocated [list]
-        }
-        #set all_post_unallocated_ranges [lsearch -all -inline -index 0 [lrange $rangesbytype $command_range_posn end] "unallocated"]
-
-        set extraflags [list]
-
-        #set extraflags [punk::lib::dict_merge_ordered $defaults $tail_unallocated]
-        #dict merge based operation can't work if there are solo_flags with no value set
-        if {[llength $tail_unallocated]} {
-            for {set i $a} {$i <=$b} {incr i} {
-                set arginfo [dict get $classifications $i]
-                lassign $arginfo class ftype v
-                switch -- $ftype {
-                    flag - flagvalue {
-                        lappend extraflags $v
-                    }
-                    soloflag {
-                        lappend extraflags $v
-                        if {[dict exists $defaults $v]} {
-                            lappend extraflags [dict get $defaults $v]
-                        } else {
-                            lappend extraflags 1
-                        }
-                    }
-                }
-            }
-            foreach {k v} [dict get $defaults] {
-                if {$k ni $extraflags} {
-                    lappend extraflags $k $v
-                } 
-            }
-        } else {
-            set extraflags $defaults
-        }
-
-    }
-
-
-
-}
-
-
-namespace eval flagfilter {
-
-    #punk::lib::dict_merge_ordered
-
-
-
-    #retrieve *only* names that are dependant on the provided namekey - not the key itself
-    # (query is sorted by the trailing numerical index which represents order the arguments were processed)
-    proc flag_array_get_sorted_subs {arrname sep namekey} {
-        upvar $arrname arr
-        set allsubs [array names arr ${namekey}.*${sep}name,*]
-        set rnames [lmap nm $allsubs {string reverse $nm}]
-        set sorted_rnames [lsort -dictionary $rnames]
-        set ordered [lmap nm $sorted_rnames {string reverse $nm}]
-        return $ordered
-    }
-
-    proc flag_array_get_sorted_siblings {arrname sep namekey} {
-        #determine parent by looking at dot - but confirm parent name is in array.
-
-    }
-
-
-
-    #dictionary based lsort of reversed names which are presumed to have a trailing separator of some sort and a number e.g:  name,0  name,1  ... name,10 etc.
-    #use -dictionary to ensure embedded numbers are sorted as integers
-    proc array_names_sorted_by_tail {arrname  nameglob} {
-        upvar $arrname arr
-        set matched_names  [array names arr $nameglob]
-        set rnames [lmap nm $matched_names {string reverse $nm}]
-        set sorted_rnames [lsort -dictionary $rnames]
-        return [lmap nm $sorted_rnames {string reverse $nm}]
-    }
-
-
-}
-
-
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/funcl-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/funcl-0.1.tm
deleted file mode 100644
index e8430fb0..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/funcl-0.1.tm
+++ /dev/null
@@ -1,325 +0,0 @@
-package provide funcl [namespace eval funcl {
-    variable version
-    set version 0.1
-}]
-#funcl = function list  (nested call structure)
-#
-#a basic functional composition o combinator
-#o(f,g)(x) == f(g(x))
-
-namespace eval funcl {
-
-    #from punk::pipe
-    proc arg_is_script_shaped {arg} {
-            if {[string first " " $arg] >= 0} {
-                return 1
-            } elseif {[string first \n $arg] >= 0} {
-                return 1
-            } elseif {[string first ";" $arg] >= 0} {
-                return 1
-            } elseif {[string first \t $arg] >= 0} {
-                return 1
-            } else {
-                return 0
-            }
-    }
-
-
-    proc o args {
-        set   closing [string repeat {]} [expr [llength $args]-1]]
-        set   body   "[join $args { [}] \$data $closing"
-        return $body
-    }
-
-    proc o_ args {
-        set body ""
-        set tails [lrepeat [llength $args] ""]
-        puts stdout "tails: $tails"
-        
-        set end [lindex $args end]
-        if {[llength $end] == 1 && [arg_is_script_shaped $end]} {
-            set endfunc [string map "<end> $end" {uplevel 1 [list if 1 <end> ]}]
-        } else {
-            set endfunc $end
-        }
-        if {[llength $args] == 1} {
-            return $endfunc
-        }
-        
-        set wrap { [}
-        append wrap $endfunc
-        append wrap { ]}
-        
-        set i 0
-        foreach cmdlist [lrange $args 0 end-1] {
-            set is_script 0
-            if {([llength $cmdlist] == 1) && [arg_is_script_shaped [lindex $cmdlist 0]]} {
-                set is_script 1
-                set script [lindex $cmdlist 0]
-            }
-            set t ""
-            if {$i > 0} {
-                append body { [}
-            }
-            set posn [lsearch $cmdlist _]
-            if {$posn <= 0} {
-                append body $cmdlist
-                if {$i == ([llength $args]-2)} {
-                    append body " $wrap"
-                }
-                #if {$i == [expr {[llength $args] -2}]} {
-                #    #append body " \$data"
-                #    append body " $wrap"
-                #}
-                if {$i > 0} {
-                    set t {]}
-                }
-            } else {
-                append body [lrange $cmdlist 0 $posn-1]
-                if {$i == ([llength $args] -2)} {
-                    #append body " \$data"
-                    append body " $wrap"
-                }
-                set t [lrange $cmdlist $posn+1 end]
-                if {$i > 0} {
-                    append t { ]}
-                }
-            }
-            lset tails $i $t
-            incr i
-        }
-        append body [join [lreverse $tails] " "]
-        puts stdout "tails: $tails"
-        
-        return $body
-     }
-
-    #review -  consider _call -- if count > 1 then they must all be callable cmdlists(?) 
-    # what does it mean to have additional _fn wrapper with no other elements? (no actual function)
-    #e.g  _fn 2 5 6 somefunc {_fn 1 3 {_call 1 3 xxx}} {_fn 1 4 command {_fn ...}}
-    # what type indicates running subtrees in parallel vs sequentially?
-    # any reason to have _call count other than 1? Presumably the parent node indicates the parallelism/sequentialism etc.
-    #
-    #
-    # accept or return a funcl (or funcltree if multiple funcls in one commandlist)
-    # also accept/return a call -  return empty list if passed a call
-    proc next_funcl {funcl_or_tree} {
-        if {[lindex $funcl_or_tree 0] eq "_call"} {
-            return [list]
-        }
-        if {[lindex $funcl_or_tree 0] in [list "_fn" "_call"]} {
-            set funcl $funcl_or_tree
-        } else {
-            error "funcltree not implemented"
-        }
-
-
-        set count [lindex $funcl 1]
-        if {$count == 0} {
-            #null funcl.. what is it? metadata/placeholder?
-            return $funcl
-        }
-        set indices [lrange $funcl 2 [expr {1 + $count}]]
-        set i 0
-        foreach idx $indices {
-            if {$i > 0} {
-                #todo - return a funcltree 
-                error "multi funcl not implemented"
-            }
-            set next [lindex $funcl $idx]
-            incr i
-        }
-        
-        return $next
-
-    }
-    
-    #convert a funcl to a tcl script
-    proc funcl_script {funcl} {
-        if {![llength $funcl]} {
-            return ""
-        }
-        set body ""
-        set tails [list]
-        
-        set type [lindex $funcl 0]
-        if {$type ni [list "_fn" "_call"]} {
-            #todo - handle funcltree 
-            error "type $type not implemented"
-        }
-        
-        
-        #only count of 1 with index 3 supported(?)
-        if {$type eq "_call"} {
-            #leaf
-            set cmdlist [lindex $funcl 3]
-            return $cmdlist
-        }
-        
-        #we will use next_funcl to walk the nodes.. todo support treefuncl response from next_funcl which could branch multiple times.
-        #by continually passing back the resulting treefuncl/funcl to next_funcl we can process in correct order (?)
-        # we would still need to maintain state to stitch it back together once returned from a subtree..
-        # ie multiple tail parts
-        set count [lindex $funcl 1]
-        
-        if {$count == 1} {
-            set idx [lindex $funcl 2]
-            if {$idx == 3} {
-                set cmdlist_pre [list]
-            } else {
-                set cmdlist_pre [lrange $funcl 3 $idx-1]
-            }
-            append body $cmdlist_pre
-            set t [lrange $funcl $idx+1 end]
-            lappend tails $t
-        } else {
-            #?? 
-            error "funcl_script branching not yet supported"
-        }
-        
-        
-        set get_next 1
-        set i 1
-        while {$get_next} {
-            set funcl [next_funcl $funcl]
-            if {![llength $funcl]} {
-                set get_next 0
-            }
-            lassign $funcl type count idx ;#todo support count > 1
-            if {$type eq "_call"} {
-                set get_next 0
-            }
-            set t ""
-            if {$type eq "_call"} {
-                append body { [}
-                append body [lindex $funcl $idx]
-                append body { ]}
-            } else {
-                append body { [}
-                if {$idx == 3} {
-                    set cmdlist_pre [list]
-                } else {
-                    set cmdlist_pre [lrange $funcl 3 $idx-1]
-                }
-                append body $cmdlist_pre
-                set t [lrange $funcl $idx+1 end]
-                lappend tails $t
-                lappend tails { ]}
-            }
-            incr i
-        }
-        append body [join [lreverse $tails] " "]
-        #puts stdout "tails: $tails"
-        
-        return $body
-    }
-
-
-    interp alias "" o_of "" funcl::o_of_n 1
-
-    #o_of_n
-    #tcl list rep o combinator
-    #
-    #  can take lists of ordinary commandlists, scripts and funcls
-    # _fn 1 x where 1 indicates number of subfuncls and where x indicates next funcl position (_fn list or _arg)
-    # _fn 0 indicates next item is an unwrapped commandlist (terminal command)
-    #
-    #o_of is equivalent to o_of_n 1   (1 argument o combinator)
-    #last n args are passed to the prior function 
-    #e.g  for n=1  f a b =  f(a(b))
-    #e.g for n=2, e f a b =  e(f(a b))
-    proc o_of_n {n args} {
-        puts stdout "o_of_n  '$args'"
-        if {$n != 1} {
-            error "o_of_n only implemented for 1 sub-funcl"
-        }
-        set comp [list] ;#composition list
-        set end [lindex $args end]
-        if {[lindex $end 0] in {_fn _call}]} {
-            #is_funcl
-            set endfunc [lindex $args end]
-        } else {
-            if {[llength $end] == 1 && [arg_is_script_shaped $end]} {
-                #set endfunc [string map [list <end> $end] {uplevel 1 [list if 1 <end> ]}]
-                set endfunc [list _call 1 3 [list uplevel 1 [list if 1 [lindex $end 0]]]]
-            } else {
-                set endfunc [list _call 1 3 [list {*}$end]]
-            }
-        }
-        
-        if {[llength $args] == 1} {
-            return $endfunc
-        }
-        set comp $endfunc
-        set revlist [lreverse [lrange $args 0 end-1]]
-        foreach cmdlist $revlist {
-            puts stderr "o_of_n >>-- $cmdlist"
-            if {([llength $cmdlist] == 1) && [arg_is_script_shaped [lindex $cmdlist 0]]} {
-                set is_script 1
-                set script [lindex $cmdlist 0]
-                set arglist [list data]
-                
-                set comp [list _fn 1 6 call_script $script $arglist $comp] 
-            } else {
-                set posn1 [expr {[llength $cmdlist] + 2 + $n}]
-                set comp [list _fn $n $posn1 {*}$cmdlist $comp]
-            }
-        } 
-        return $comp
-    }
-    proc call_script {script argnames args} {
-        uplevel 3 [list if 1 [list apply [list $argnames $script] {*}$args]]
-    } 
-    proc funcl_script_test {scr} {
-        do_funcl_script_test $scr
-    }
-    proc do_funcl_script_test {scr} {
-        #set j "in do_funcl_script_test"
-        #set data "xxx"
-        #puts '$scr'
-        if 1 $scr
-    }
-
-    #standard o_ with no script-handling
-     proc o_plain args {
-        set body ""
-        set i 0
-        set tails [lrepeat [llength $args] ""]
-        #puts stdout "tails: $tails"
-        foreach cmdlist $args {
-            set t ""
-            if {$i > 0} {
-                append body { [}
-            }
-            set posn [lsearch $cmdlist _]
-            if {$posn <= 0} {
-                append body $cmdlist
-                if {$i == ([llength $args] -1)} {
-                    append body " \$data"
-                }
-                if {$i > 0} {
-                    set t {]}
-                }
-            } else {
-                append body [lrange $cmdlist 0 $posn-1]
-                if {$i == ([llength $args] -1)} {
-                    append body " \$data"
-                }
-                set t [lrange $cmdlist $posn+1 end]
-                if {$i > 0} {
-                    append t { ]}
-                }
-            }
-            lset tails $i $t
-            incr i
-        }
-        append body [join [lreverse $tails] " "]
-        #puts stdout "tails: $tails"
-        
-        return $body
-     }
-    #timings suggest no faster to split out the first item from the cmdlist loop
-}    
-
- 
- 
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/http-2.10b1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/http-2.10b1.tm
deleted file mode 100644
index 6c3c068c..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/http-2.10b1.tm
+++ /dev/null
@@ -1,5457 +0,0 @@
-# http.tcl --
-#
-#	Client-side HTTP for GET, POST, and HEAD commands. These routines can
-#	be used in untrusted code that uses the Safesock security policy.
-#	These procedures use a callback interface to avoid using vwait, which
-#	is not defined in the safe base.
-#
-# See the file "license.terms" for information on usage and redistribution of
-# this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-package require Tcl 8.6-
-# Keep this in sync with pkgIndex.tcl and with the install directories in
-# Makefiles
-package provide http 2.10b1
-
-namespace eval http {
-    # Allow resourcing to not clobber existing data
-
-    variable http
-    if {![info exists http]} {
-	array set http {
-	    -accept */*
-	    -cookiejar {}
-	    -pipeline 1
-	    -postfresh 0
-	    -proxyhost {}
-	    -proxyport {}
-	    -proxyfilter http::ProxyRequired
-	    -proxynot {}
-	    -proxyauth {}
-	    -repost 0
-	    -threadlevel 0
-	    -urlencoding utf-8
-	    -zip 1
-	}
-	# We need a useragent string of this style or various servers will
-	# refuse to send us compressed content even when we ask for it. This
-	# follows the de-facto layout of user-agent strings in current browsers.
-	# Safe interpreters do not have ::tcl_platform(os) or
-	# ::tcl_platform(osVersion).
-	if {[interp issafe]} {
-	    set http(-useragent) "Mozilla/5.0\
-		(Windows; U;\
-		Windows NT 10.0)\
-		http/[package provide http] Tcl/[package provide Tcl]"
-	} else {
-	    set http(-useragent) "Mozilla/5.0\
-		([string totitle $::tcl_platform(platform)]; U;\
-		$::tcl_platform(os) $::tcl_platform(osVersion))\
-		http/[package provide http] Tcl/[package provide Tcl]"
-	}
-    }
-
-    proc init {} {
-	# Set up the map for quoting chars. RFC3986 Section 2.3 say percent
-	# encode all except: "... percent-encoded octets in the ranges of
-	# ALPHA (%41-%5A and %61-%7A), DIGIT (%30-%39), hyphen (%2D), period
-	# (%2E), underscore (%5F), or tilde (%7E) should not be created by URI
-	# producers ..."
-	for {set i 0} {$i <= 256} {incr i} {
-	    set c [format %c $i]
-	    if {![string match {[-._~a-zA-Z0-9]} $c]} {
-		set map($c) %[format %.2X $i]
-	    }
-	}
-	# These are handled specially
-	set map(\n) %0D%0A
-	variable formMap [array get map]
-
-	# Create a map for HTTP/1.1 open sockets
-	variable socketMapping
-	variable socketRdState
-	variable socketWrState
-	variable socketRdQueue
-	variable socketWrQueue
-	variable socketPhQueue
-	variable socketClosing
-	variable socketPlayCmd
-	variable socketCoEvent
-	variable socketProxyId
-	if {[info exists socketMapping]} {
-	    # Close open sockets on re-init.  Do not permit retries.
-	    foreach {url sock} [array get socketMapping] {
-		unset -nocomplain socketClosing($url)
-		unset -nocomplain socketPlayCmd($url)
-		CloseSocket $sock
-	    }
-	}
-
-	# CloseSocket should have unset the socket* arrays, one element at
-	# a time.  Now unset anything that was overlooked.
-	# Traces on "unset socketRdState(*)" will call CancelReadPipeline and
-	# cancel any queued responses.
-	# Traces on "unset socketWrState(*)" will call CancelWritePipeline and
-	# cancel any queued requests.
-	array unset socketMapping
-	array unset socketRdState
-	array unset socketWrState
-	array unset socketRdQueue
-	array unset socketWrQueue
-	array unset socketPhQueue
-	array unset socketClosing
-	array unset socketPlayCmd
-	array unset socketCoEvent
-	array unset socketProxyId
-	array set socketMapping {}
-	array set socketRdState {}
-	array set socketWrState {}
-	array set socketRdQueue {}
-	array set socketWrQueue {}
-	array set socketPhQueue {}
-	array set socketClosing {}
-	array set socketPlayCmd {}
-	array set socketCoEvent {}
-	array set socketProxyId {}
-	return
-    }
-    init
-
-    variable urlTypes
-    if {![info exists urlTypes]} {
-	set urlTypes(http) [list 80 ::http::socket]
-    }
-
-    variable encodings [string tolower [encoding names]]
-    # This can be changed, but iso8859-1 is the RFC standard.
-    variable defaultCharset
-    if {![info exists defaultCharset]} {
-	set defaultCharset "iso8859-1"
-    }
-
-    # Force RFC 3986 strictness in geturl url verification?
-    variable strict
-    if {![info exists strict]} {
-	set strict 1
-    }
-
-    # Let user control default keepalive for compatibility
-    variable defaultKeepalive
-    if {![info exists defaultKeepalive]} {
-	set defaultKeepalive 0
-    }
-
-    # Regular expression used to parse cookies
-    variable CookieRE {(?x)                            # EXPANDED SYNTAX
-	\s*                                            # Ignore leading spaces
-	([^][\u0000- ()<>@,;:\\""/?={}\u007f-\uffff]+) # Match the name
-	=                                              # LITERAL: Equal sign
-	([!\u0023-+\u002D-:<-\u005B\u005D-~]*)         # Match the value
-	(?:
-	 \s* ; \s*                                     # LITERAL: semicolon
-	 ([^\u0000]+)                                  # Match the options
-	)?
-    }
-
-    variable TmpSockCounter 0
-    variable ThreadCounter  0
-
-    variable reasonDict [dict create {*}{
-        100 Continue
-        101 {Switching Protocols}
-        102 Processing
-        103 {Early Hints}
-        200 OK
-        201 Created
-        202 Accepted
-        203 {Non-Authoritative Information}
-        204 {No Content}
-        205 {Reset Content}
-        206 {Partial Content}
-        207 Multi-Status
-        208 {Already Reported}
-        226 {IM Used}
-        300 {Multiple Choices}
-        301 {Moved Permanently}
-        302 Found
-        303 {See Other}
-        304 {Not Modified}
-        305 {Use Proxy}
-        306 (Unused)
-        307 {Temporary Redirect}
-        308 {Permanent Redirect}
-        400 {Bad Request}
-        401 Unauthorized
-        402 {Payment Required}
-        403 Forbidden
-        404 {Not Found}
-        405 {Method Not Allowed}
-        406 {Not Acceptable}
-        407 {Proxy Authentication Required}
-        408 {Request Timeout}
-        409 Conflict
-        410 Gone
-        411 {Length Required}
-        412 {Precondition Failed}
-        413 {Content Too Large}
-        414 {URI Too Long}
-        415 {Unsupported Media Type}
-        416 {Range Not Satisfiable}
-        417 {Expectation Failed}
-        418 (Unused)
-        421 {Misdirected Request}
-        422 {Unprocessable Content}
-        423 Locked
-        424 {Failed Dependency}
-        425 {Too Early}
-        426 {Upgrade Required}
-        428 {Precondition Required}
-        429 {Too Many Requests}
-        431 {Request Header Fields Too Large}
-        451 {Unavailable For Legal Reasons}
-        500 {Internal Server Error}
-        501 {Not Implemented}
-        502 {Bad Gateway}
-        503 {Service Unavailable}
-        504 {Gateway Timeout}
-        505 {HTTP Version Not Supported}
-        506 {Variant Also Negotiates}
-        507 {Insufficient Storage}
-        508 {Loop Detected}
-        510 {Not Extended (OBSOLETED)}
-        511 {Network Authentication Required}
-    }]
-
-    variable failedProxyValues {
-	binary
-	body
-	charset
-	coding
-	connection
-	connectionRespFlag
-	currentsize
-	host
-	http
-	httpResponse
-	meta
-	method
-	querylength
-	queryoffset
-	reasonPhrase
-	requestHeaders
-	requestLine
-	responseCode
-	state
-	status
-	tid
-	totalsize
-	transfer
-	type
-    }
-
-    namespace export geturl config reset wait formatQuery postError quoteString
-    namespace export register unregister registerError
-    namespace export requestLine requestHeaders requestHeaderValue
-    namespace export responseLine responseHeaders responseHeaderValue
-    namespace export responseCode responseBody responseInfo reasonPhrase
-    # - Legacy aliases, were never exported:
-    #     data, code, mapReply, meta, ncode
-    # - Callable from outside (e.g. from TLS) by fully-qualified name, but
-    #   not exported:
-    #     socket
-    # - Useful, but never exported (and likely to have naming collisions):
-    #     size, status, cleanup, error, init
-    #   Comments suggest that "init" can be used for re-initialisation,
-    #   although the command is undocumented.
-    # - Never exported, renamed from lower-case names:
-    #   GetTextLine, MakeTransformationChunked.
-}
-
-# http::Log --
-#
-#	Debugging output -- define this to observe HTTP/1.1 socket usage.
-#	Should echo any args received.
-#
-# Arguments:
-#     msg	Message to output
-#
-if {[info command http::Log] eq {}} {proc http::Log {args} {}}
-
-# http::register --
-#
-#     See documentation for details.
-#
-# Arguments:
-#     proto	URL protocol prefix, e.g. https
-#     port	Default port for protocol
-#     command	Command to use to create socket
-# Results:
-#     list of port and command that was registered.
-
-proc http::register {proto port command} {
-    variable urlTypes
-    set urlTypes([string tolower $proto]) [list $port $command]
-}
-
-# http::unregister --
-#
-#     Unregisters URL protocol handler
-#
-# Arguments:
-#     proto	URL protocol prefix, e.g. https
-# Results:
-#     list of port and command that was unregistered.
-
-proc http::unregister {proto} {
-    variable urlTypes
-    set lower [string tolower $proto]
-    if {![info exists urlTypes($lower)]} {
-	return -code error "unsupported url type \"$proto\""
-    }
-    set old $urlTypes($lower)
-    unset urlTypes($lower)
-    return $old
-}
-
-# http::config --
-#
-#	See documentation for details.
-#
-# Arguments:
-#	args		Options parsed by the procedure.
-# Results:
-#        TODO
-
-proc http::config {args} {
-    variable http
-    set options [lsort [array names http -*]]
-    set usage [join $options ", "]
-    if {[llength $args] == 0} {
-	set result {}
-	foreach name $options {
-	    lappend result $name $http($name)
-	}
-	return $result
-    }
-    set options [string map {- ""} $options]
-    set pat ^-(?:[join $options |])$
-    if {[llength $args] == 1} {
-	set flag [lindex $args 0]
-	if {![regexp -- $pat $flag]} {
-	    return -code error "Unknown option $flag, must be: $usage"
-	}
-	return $http($flag)
-    } elseif {[llength $args] % 2} {
-	return -code error "If more than one argument is supplied, the\
-		number of arguments must be even"
-    } else {
-	foreach {flag value} $args {
-	    if {![regexp -- $pat $flag]} {
-		return -code error "Unknown option $flag, must be: $usage"
-	    }
-	    if {($flag eq {-threadlevel}) && ($value ni {0 1 2})} {
-		return -code error {Option -threadlevel must be 0, 1 or 2}
-	    }
-	    set http($flag) $value
-	}
-	return
-    }
-}
-
-# ------------------------------------------------------------------------------
-#  Proc http::reasonPhrase
-# ------------------------------------------------------------------------------
-# Command to return the IANA-recommended "reason phrase" for a HTTP Status Code.
-# Information obtained from:
-# https://www.iana.org/assignments/http-status-codes/http-status-codes.xhtml
-#
-# Arguments:
-# code        - A valid HTTP Status Code (integer from 100 to 599)
-#
-# Return Value: the reason phrase
-# ------------------------------------------------------------------------------
-
-proc http::reasonPhrase {code} {
-    variable reasonDict
-    if {![regexp -- {^[1-5][0-9][0-9]$} $code]} {
-        set msg {argument must be a three-digit integer from 100 to 599}
-        return -code error $msg
-    }
-    if {[dict exists $reasonDict $code]} {
-        set reason [dict get $reasonDict $code]
-    } else {
-        set reason Unassigned
-    }
-    return $reason
-}
-
-# http::Finish --
-#
-#	Clean up the socket and eval close time callbacks
-#
-# Arguments:
-#	token	    Connection token.
-#	errormsg    (optional) If set, forces status to error.
-#	skipCB      (optional) If set, don't call the -command callback. This
-#		    is useful when geturl wants to throw an exception instead
-#		    of calling the callback. That way, the same error isn't
-#		    reported to two places.
-#
-# Side Effects:
-#        May close the socket.
-
-proc http::Finish {token {errormsg ""} {skipCB 0}} {
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-    global errorInfo errorCode
-    set closeQueue 0
-    if {$errormsg ne ""} {
-	set state(error) [list $errormsg $errorInfo $errorCode]
-	set state(status) "error"
-    }
-    if {[info commands ${token}--EventCoroutine] ne {}} {
-	rename ${token}--EventCoroutine {}
-    }
-    if {[info commands ${token}--SocketCoroutine] ne {}} {
-	rename ${token}--SocketCoroutine {}
-    }
-    if {[info exists state(socketcoro)]} {
-        Log $token Cancel socket after-idle event (Finish)
-        after cancel $state(socketcoro)
-        unset state(socketcoro)
-    }
-
-    # Is this an upgrade request/response?
-    set upgradeResponse \
-	[expr {    [info exists state(upgradeRequest)]
-		&& $state(upgradeRequest)
-		&& [info exists state(http)]
-		&& ([ncode $token] eq {101})
-		&& [info exists state(connection)]
-		&& ("upgrade" in $state(connection))
-		&& [info exists state(upgrade)]
-		&& ("" ne $state(upgrade))
-	}]
-
-    if {  ($state(status) eq "timeout")
-       || ($state(status) eq "error")
-       || ($state(status) eq "eof")
-    } {
-	set closeQueue 1
-	set connId $state(socketinfo)
-	if {[info exists state(sock)]} {
-	    set sock $state(sock)
-	    CloseSocket $state(sock) $token
-	} else {
-            # When opening the socket and calling http::reset
-            # immediately, the socket may not yet exist.
-            # Test http-4.11 may come here.
-	}
-	if {$state(tid) ne {}} {
-            # When opening the socket in a thread, and calling http::reset
-            # immediately, the thread may still exist.
-            # Test http-4.11 may come here.
-	    thread::release $state(tid)
-	    set state(tid) {}
-	} else {
-	}
-    } elseif {$upgradeResponse} {
-	# Special handling for an upgrade request/response.
-	# - geturl ensures that this is not a "persistent" socket used for
-	#   multiple HTTP requests, so a call to KeepSocket is not needed.
-	# - Leave socket open, so a call to CloseSocket is not needed either.
-	# - Remove fileevent bindings.  The caller will set its own bindings.
-	# - THE CALLER MUST PROCESS THE UPGRADED SOCKET IN THE CALLBACK COMMAND
-	#   PASSED TO http::geturl AS -command callback.
-	catch {fileevent $state(sock) readable {}}
-	catch {fileevent $state(sock) writable {}}
-    } elseif {
-          ([info exists state(-keepalive)] && !$state(-keepalive))
-       || ([info exists state(connection)] && ("close" in $state(connection)))
-    } {
-	set closeQueue 1
-	set connId $state(socketinfo)
-	if {[info exists state(sock)]} {
-	    set sock $state(sock)
-	    CloseSocket $state(sock) $token
-	} else {
-            # When opening the socket and calling http::reset
-            # immediately, the socket may not yet exist.
-            # Test http-4.11 may come here.
-	}
-    } elseif {
-	  ([info exists state(-keepalive)] && $state(-keepalive))
-       && ([info exists state(connection)] && ("close" ni $state(connection)))
-    } {
-	KeepSocket $token
-    }
-    if {[info exists state(after)]} {
-	after cancel $state(after)
-	unset state(after)
-    }
-    if {[info exists state(-command)] && (!$skipCB)
-	    && (![info exists state(done-command-cb)])} {
-	set state(done-command-cb) yes
-	if {    [catch {namespace eval :: $state(-command) $token} err]
-	     && ($errormsg eq "")
-	} {
-	    set state(error) [list $err $errorInfo $errorCode]
-	    set state(status) error
-	}
-    }
-
-    if {    $closeQueue
-	 && [info exists socketMapping($connId)]
-	 && ($socketMapping($connId) eq $sock)
-    } {
-	http::CloseQueuedQueries $connId $token
-	# This calls Unset.  Other cases do not need the call.
-    }
-    return
-}
-
-# http::KeepSocket -
-#
-#	Keep a socket in the persistent sockets table and connect it to its next
-#	queued task if possible.  Otherwise leave it idle and ready for its next
-#	use.
-#
-#	If $socketClosing(*), then ("close" in $state(connection)) and therefore
-#	this command will not be called by Finish.
-#
-# Arguments:
-#	token	    Connection token.
-
-proc http::KeepSocket {token} {
-    variable http
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    # Keep this socket open for another request ("Keep-Alive").
-    # React if the server half-closes the socket.
-    # Discussion is in http::geturl.
-    catch {fileevent $state(sock) readable [list http::CheckEof $state(sock)]}
-
-    # The line below should not be changed in production code.
-    # It is edited by the test suite.
-    set TEST_EOF 0
-    if {$TEST_EOF} {
-	# ONLY for testing reaction to server eof.
-	# No server timeouts will be caught.
-	catch {fileevent $state(sock) readable {}}
-    }
-
-    if {    [info exists state(socketinfo)]
-	 && [info exists socketMapping($state(socketinfo))]
-    } {
-	set connId $state(socketinfo)
-	# The value "Rready" is set only here.
-	set socketRdState($connId) Rready
-
-	if {    $state(-pipeline)
-	     && [info exists socketRdQueue($connId)]
-	     && [llength $socketRdQueue($connId)]
-	} {
-	    # The usual case for pipelined responses - if another response is
-	    # queued, arrange to read it.
-	    set token3 [lindex $socketRdQueue($connId) 0]
-	    set socketRdQueue($connId) [lrange $socketRdQueue($connId) 1 end]
-
-	    #Log pipelined, GRANT read access to $token3 in KeepSocket
-	    set socketRdState($connId) $token3
-	    ReceiveResponse $token3
-
-	    # Other pipelined cases.
-	    # - The test above ensures that, for the pipelined cases in the two
-	    #   tests below, the read queue is empty.
-	    # - In those two tests, check whether the next write will be
-	    #   nonpipeline.
-	} elseif {
-		$state(-pipeline)
-	     && [info exists socketWrState($connId)]
-	     && ($socketWrState($connId) eq "peNding")
-
-	     && [info exists socketWrQueue($connId)]
-	     && [llength $socketWrQueue($connId)]
-	     && (![set token3 [lindex $socketWrQueue($connId) 0]
-		   set ${token3}(-pipeline)
-		  ]
-		)
-	} {
-	    # This case:
-	    # - Now it the time to run the "pending" request.
-	    # - The next token in the write queue is nonpipeline, and
-	    #   socketWrState has been marked "pending" (in
-	    #   http::NextPipelinedWrite or http::geturl) so a new pipelined
-	    #   request cannot jump the queue.
-	    #
-	    # Tests:
-	    # - In this case the read queue (tested above) is empty and this
-	    #   "pending" write token is in front of the rest of the write
-	    #   queue.
-	    # - The write state is not Wready and therefore appears to be busy,
-	    #   but because it is "pending" we know that it is reserved for the
-	    #   first item in the write queue, a non-pipelined request that is
-	    #   waiting for the read queue to empty.  That has now happened: so
-	    #   give that request read and write access.
-	    set conn [set ${token3}(connArgs)]
-	    #Log nonpipeline, GRANT r/w access to $token3 in KeepSocket
-	    set socketRdState($connId) $token3
-	    set socketWrState($connId) $token3
-	    set socketWrQueue($connId) [lrange $socketWrQueue($connId) 1 end]
-	    # Connect does its own fconfigure.
-	    fileevent $state(sock) writable [list http::Connect $token3 {*}$conn]
-	    #Log ---- $state(sock) << conn to $token3 for HTTP request (c)
-
-	} elseif {
-		$state(-pipeline)
-	     && [info exists socketWrState($connId)]
-	     && ($socketWrState($connId) eq "peNding")
-
-	} {
-	    # Should not come here.  The second block in the previous "elseif"
-	    # test should be tautologous (but was needed in an earlier
-	    # implementation) and will be removed after testing.
-	    # If we get here, the value "pending" was assigned in error.
-	    # This error would block the queue for ever.
-	    Log ^X$tk <<<<< Error in queueing of requests >>>>> - token $token
-
-	} elseif {
-		$state(-pipeline)
-	     && [info exists socketWrState($connId)]
-	     && ($socketWrState($connId) eq "Wready")
-
-	     && [info exists socketWrQueue($connId)]
-	     && [llength $socketWrQueue($connId)]
-	     && (![set token3 [lindex $socketWrQueue($connId) 0]
-		   set ${token3}(-pipeline)
-		  ]
-		)
-	} {
-	    # This case:
-	    # - The next token in the write queue is nonpipeline, and
-	    #   socketWrState is Wready.  Get the next event from socketWrQueue.
-	    # Tests:
-	    # - In this case the read state (tested above) is Rready and the
-	    #   write state (tested here) is Wready - there is no "pending"
-	    #   request.
-	    # Code:
-	    # - The code is the same as the code below for the nonpipelined
-	    #   case with a queued request.
-	    set conn [set ${token3}(connArgs)]
-	    #Log nonpipeline, GRANT r/w access to $token3 in KeepSocket
-	    set socketRdState($connId) $token3
-	    set socketWrState($connId) $token3
-	    set socketWrQueue($connId) [lrange $socketWrQueue($connId) 1 end]
-	    # Connect does its own fconfigure.
-	    fileevent $state(sock) writable [list http::Connect $token3 {*}$conn]
-	    #Log ---- $state(sock) << conn to $token3 for HTTP request (c)
-
-	} elseif {
-		(!$state(-pipeline))
-	     && [info exists socketWrQueue($connId)]
-	     && [llength $socketWrQueue($connId)]
-	     && ("close" ni $state(connection))
-	} {
-	    # If not pipelined, (socketRdState eq Rready) tells us that we are
-	    # ready for the next write - there is no need to check
-	    # socketWrState. Write the next request, if one is waiting.
-	    # If the next request is pipelined, it receives premature read
-	    # access to the socket. This is not a problem.
-	    set token3 [lindex $socketWrQueue($connId) 0]
-	    set conn [set ${token3}(connArgs)]
-	    #Log nonpipeline, GRANT r/w access to $token3 in KeepSocket
-	    set socketRdState($connId) $token3
-	    set socketWrState($connId) $token3
-	    set socketWrQueue($connId) [lrange $socketWrQueue($connId) 1 end]
-	    # Connect does its own fconfigure.
-	    fileevent $state(sock) writable [list http::Connect $token3 {*}$conn]
-	    #Log ---- $state(sock) << conn to $token3 for HTTP request (d)
-
-	} elseif {(!$state(-pipeline))} {
-	    set socketWrState($connId) Wready
-	    # Rready and Wready and idle: nothing to do.
-	}
-
-    } else {
-	CloseSocket $state(sock) $token
-	# There is no socketMapping($state(socketinfo)), so it does not matter
-	# that CloseQueuedQueries is not called.
-    }
-    return
-}
-
-# http::CheckEof -
-#
-#	Read from a socket and close it if eof.
-#	The command is bound to "fileevent readable" on an idle socket, and
-#	"eof" is the only event that should trigger the binding, occurring when
-#	the server times out and half-closes the socket.
-#
-#	A read is necessary so that [eof] gives a meaningful result.
-#	Any bytes sent are junk (or a bug).
-
-proc http::CheckEof {sock} {
-    set junk [read $sock]
-    set n [string length $junk]
-    if {$n} {
-	Log "WARNING: $n bytes received but no HTTP request sent"
-    }
-
-    if {[catch {eof $sock} res] || $res} {
-	# The server has half-closed the socket.
-	# If a new write has started, its transaction will fail and
-	# will then be error-handled.
-	CloseSocket $sock
-    }
-    return
-}
-
-# http::CloseSocket -
-#
-#	Close a socket and remove it from the persistent sockets table.  If
-#	possible an http token is included here but when we are called from a
-#	fileevent on remote closure we need to find the correct entry - hence
-#	the "else" block of the first "if" command.
-
-proc http::CloseSocket {s {token {}}} {
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    set tk [namespace tail $token]
-
-    catch {fileevent $s readable {}}
-    set connId {}
-    if {$token ne ""} {
-	variable $token
-	upvar 0 $token state
-	if {[info exists state(socketinfo)]} {
-	    set connId $state(socketinfo)
-	}
-    } else {
-	set map [array get socketMapping]
-	set ndx [lsearch -exact $map $s]
-	if {$ndx >= 0} {
-	    incr ndx -1
-	    set connId [lindex $map $ndx]
-	}
-    }
-    if {    ($connId ne {})
-	 && [info exists socketMapping($connId)]
-	 && ($socketMapping($connId) eq $s)
-    } {
-	Log "Closing connection $connId (sock $socketMapping($connId))"
-	if {[catch {close $socketMapping($connId)} err]} {
-	    Log "Error closing connection: $err"
-	} else {
-	}
-	if {$token eq {}} {
-	    # Cases with a non-empty token are handled by Finish, so the tokens
-	    # are finished in connection order.
-	    http::CloseQueuedQueries $connId
-	} else {
-	}
-    } else {
-	Log "Closing socket $s (no connection info)"
-	if {[catch {close $s} err]} {
-	    Log "Error closing socket: $err"
-	} else {
-	}
-    }
-    return
-}
-
-# http::CloseQueuedQueries
-#
-#	connId  - identifier "domain:port" for the connection
-#	token   - (optional) used only for logging
-#
-# Called from http::CloseSocket and http::Finish, after a connection is closed,
-# to clear the read and write queues if this has not already been done.
-
-proc http::CloseQueuedQueries {connId {token {}}} {
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    ##Log CloseQueuedQueries $connId $token
-    if {![info exists socketMapping($connId)]} {
-	# Command has already been called.
-	# Don't come here again - especially recursively.
-	return
-    }
-
-    # Used only for logging.
-    if {$token eq {}} {
-	set tk {}
-    } else {
-	set tk [namespace tail $token]
-    }
-
-    if {    [info exists socketPlayCmd($connId)]
-	 && ($socketPlayCmd($connId) ne {ReplayIfClose Wready {} {}})
-    } {
-	# Before unsetting, there is some unfinished business.
-	# - If the server sent "Connection: close", we have stored the command
-	#   for retrying any queued requests in socketPlayCmd, so copy that
-	#   value for execution below.  socketClosing(*) was also set.
-	# - Also clear the queues to prevent calls to Finish that would set the
-	#   state for the requests that will be retried to "finished with error
-	#   status".
-	# - At this stage socketPhQueue is empty.
-	set unfinished $socketPlayCmd($connId)
-	set socketRdQueue($connId) {}
-	set socketWrQueue($connId) {}
-    } else {
-	set unfinished {}
-    }
-
-    Unset $connId
-
-    if {$unfinished ne {}} {
-	Log ^R$tk Any unfinished transactions (excluding $token) failed \
-		- token $token - unfinished $unfinished
-	{*}$unfinished
-	# Calls ReplayIfClose.
-    }
-    return
-}
-
-# http::Unset
-#
-#	The trace on "unset socketRdState(*)" will call CancelReadPipeline
-#	and cancel any queued responses.
-#	The trace on "unset socketWrState(*)" will call CancelWritePipeline
-#	and cancel any queued requests.
-
-proc http::Unset {connId} {
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    unset socketMapping($connId)
-    unset socketRdState($connId)
-    unset socketWrState($connId)
-    unset -nocomplain socketRdQueue($connId)
-    unset -nocomplain socketWrQueue($connId)
-    unset -nocomplain socketClosing($connId)
-    unset -nocomplain socketPlayCmd($connId)
-    unset -nocomplain socketProxyId($connId)
-    return
-}
-
-# http::reset --
-#
-#	See documentation for details.
-#
-# Arguments:
-#	token	Connection token.
-#	why	Status info.
-#
-# Side Effects:
-#        See Finish
-
-proc http::reset {token {why reset}} {
-    variable $token
-    upvar 0 $token state
-    set state(status) $why
-    catch {fileevent $state(sock) readable {}}
-    catch {fileevent $state(sock) writable {}}
-    Finish $token
-    if {[info exists state(error)]} {
-	set errorlist $state(error)
-	unset state
-	eval ::error $errorlist
-	# i.e. error msg errorInfo errorCode
-    }
-    return
-}
-
-# http::geturl --
-#
-#	Establishes a connection to a remote url via http.
-#
-# Arguments:
-#	url		The http URL to goget.
-#	args		Option value pairs. Valid options include:
-#				-blocksize, -validate, -headers, -timeout
-# Results:
-#	Returns a token for this connection. This token is the name of an
-#	array that the caller should unset to garbage collect the state.
-
-proc http::geturl {url args} {
-    variable urlTypes
-
-    # - If ::tls::socketCmd has its default value "::socket", change it to the
-    #   new value ::http::socketForTls.
-    # - If the old value is different, then it has been modified either by the
-    #   script or by the Tcl installation, and replaced by a new command.  The
-    #   script or installation that modified ::tls::socketCmd is also
-    #   responsible for integrating ::http::socketForTls into its own "new"
-    #   command, if it wishes to do so.
-    # - Commands that open a socket:
-    #   - ::socket             - basic
-    #   - ::http::socket       - can use a thread to avoid blockage by slow DNS
-    #                            lookup.  See http::config option -threadlevel.
-    #   - ::http::socketForTls - as ::http::socket, but can also open a socket
-    #                            for HTTPS/TLS through a proxy.
-
-    if {[info exists ::tls::socketCmd] && ($::tls::socketCmd eq {::socket})} {
-        set ::tls::socketCmd ::http::socketForTls
-    }
-
-    set token [CreateToken $url {*}$args]
-    variable $token
-    upvar 0 $token state
-
-    AsyncTransaction $token
-
-    # --------------------------------------------------------------------------
-    # Synchronous Call to http::geturl
-    # --------------------------------------------------------------------------
-    # - If the call to http::geturl is asynchronous, it is now complete (apart
-    #   from delivering the return value).
-    # - If the call to http::geturl is synchronous, the command must now wait
-    #   for the HTTP transaction to be completed.  The call to http::wait uses
-    #   vwait, which may be inappropriate if the caller makes other HTTP
-    #   requests in the background.
-    # --------------------------------------------------------------------------
-
-    if {![info exists state(-command)]} {
-	# geturl does EVERYTHING asynchronously, so if the user
-	# calls it synchronously, we just do a wait here.
-	http::wait $token
-
-	if {![info exists state]} {
-	    # If we timed out then Finish has been called and the users
-	    # command callback may have cleaned up the token. If so we end up
-	    # here with nothing left to do.
-	    return $token
-	} elseif {$state(status) eq "error"} {
-	    # Something went wrong while trying to establish the connection.
-	    # Clean up after events and such, but DON'T call the command
-	    # callback (if available) because we're going to throw an
-	    # exception from here instead.
-	    set err [lindex $state(error) 0]
-	    cleanup $token
-	    return -code error $err
-	}
-    }
-
-    return $token
-}
-
-# ------------------------------------------------------------------------------
-#  Proc http::CreateToken
-# ------------------------------------------------------------------------------
-# Command to convert arguments into an initialised request token.
-# The return value is the variable name of the token.
-#
-# Other effects:
-# - Sets ::http::http(usingThread) if not already done
-# - Sets ::http::http(uid) if not already done
-# - Increments ::http::http(uid)
-# - May increment ::http::TmpSockCounter
-# - Alters ::http::socketPlayCmd, ::http::socketWrQueue if a -keepalive 1
-#   request is appended to the queue of a persistent socket that is already
-#   scheduled to close.
-#   This also sets state(alreadyQueued) to 1.
-# - Alters ::http::socketPhQueue if a -keepalive 1 request is appended to the
-#   queue of a persistent socket that has not yet been created (and is therefore
-#   represented by a placeholder).
-#   This also sets state(ReusingPlaceholder) to 1.
-# ------------------------------------------------------------------------------
-
-proc http::CreateToken {url args} {
-    variable http
-    variable urlTypes
-    variable defaultCharset
-    variable defaultKeepalive
-    variable strict
-    variable TmpSockCounter
-
-    # Initialize the state variable, an array. We'll return the name of this
-    # array as the token for the transaction.
-
-    if {![info exists http(usingThread)]} {
-	set http(usingThread) 0
-    }
-    if {![info exists http(uid)]} {
-	set http(uid) 0
-    }
-    set token [namespace current]::[incr http(uid)]
-    ##Log Starting http::geturl - token $token
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    reset $token
-    Log ^A$tk URL $url - token $token
-
-    # Process command options.
-
-    array set state {
-	-binary		false
-	-blocksize	8192
-	-queryblocksize 8192
-	-validate	0
-	-headers	{}
-	-timeout	0
-	-type		application/x-www-form-urlencoded
-	-queryprogress	{}
-	-protocol	1.1
-	-guesstype      0
-	binary		0
-	state		created
-	meta		{}
-	method		{}
-	coding		{}
-	currentsize	0
-	totalsize	0
-	querylength	0
-	queryoffset	0
-	type		application/octet-stream
-	body		{}
-	status		""
-	http		""
-	httpResponse    {}
-	responseCode    {}
-	reasonPhrase    {}
-	connection	keep-alive
-	tid             {}
-	requestHeaders  {}
-	requestLine     {}
-	transfer        {}
-	proxyUsed       none
-    }
-    set state(-keepalive) $defaultKeepalive
-    set state(-strict) $strict
-    # These flags have their types verified [Bug 811170]
-    array set type {
-	-binary		boolean
-	-blocksize	integer
-	-guesstype      boolean
-	-queryblocksize integer
-	-strict		boolean
-	-timeout	integer
-	-validate	boolean
-	-headers	list
-    }
-    set state(charset)	$defaultCharset
-    set options {
-	-binary -blocksize -channel -command -guesstype -handler -headers -keepalive
-	-method -myaddr -progress -protocol -query -queryblocksize
-	-querychannel -queryprogress -strict -timeout -type -validate
-    }
-    set usage [join [lsort $options] ", "]
-    set options [string map {- ""} $options]
-    set pat ^-(?:[join $options |])$
-    foreach {flag value} $args {
-	if {[regexp -- $pat $flag]} {
-	    # Validate numbers
-	    if {    [info exists type($flag)]
-	        && (![string is $type($flag) -strict $value])
-	    } {
-		unset $token
-		return -code error \
-		    "Bad value for $flag ($value), must be $type($flag)"
-	    }
-	    if {($flag eq "-headers") && ([llength $value] % 2 != 0)} {
-		unset $token
-		return -code error "Bad value for $flag ($value), number\
-			of list elements must be even"
-	    }
-	    set state($flag) $value
-	} else {
-	    unset $token
-	    return -code error "Unknown option $flag, can be: $usage"
-	}
-    }
-
-    # Make sure -query and -querychannel aren't both specified
-
-    set isQueryChannel [info exists state(-querychannel)]
-    set isQuery [info exists state(-query)]
-    if {$isQuery && $isQueryChannel} {
-	unset $token
-	return -code error "Can't combine -query and -querychannel options!"
-    }
-
-    # Validate URL, determine the server host and port, and check proxy case
-    # Recognize user:pass@host URLs also, although we do not do anything with
-    # that info yet.
-
-    # URLs have basically four parts.
-    # First, before the colon, is the protocol scheme (e.g. http)
-    # Second, for HTTP-like protocols, is the authority
-    #	The authority is preceded by // and lasts up to (but not including)
-    #	the following / or ? and it identifies up to four parts, of which
-    #	only one, the host, is required (if an authority is present at all).
-    #	All other parts of the authority (user name, password, port number)
-    #	are optional.
-    # Third is the resource name, which is split into two parts at a ?
-    #	The first part (from the single "/" up to "?") is the path, and the
-    #	second part (from that "?" up to "#") is the query. *HOWEVER*, we do
-    #	not need to separate them; we send the whole lot to the server.
-    #	Both, path and query are allowed to be missing, including their
-    #	delimiting character.
-    # Fourth is the fragment identifier, which is everything after the first
-    #	"#" in the URL. The fragment identifier MUST NOT be sent to the server
-    #	and indeed, we don't bother to validate it (it could be an error to
-    #	pass it in here, but it's cheap to strip).
-    #
-    # An example of a URL that has all the parts:
-    #
-    #     http://jschmoe:xyzzy@www.bogus.net:8000/foo/bar.tml?q=foo#changes
-    #
-    # The "http" is the protocol, the user is "jschmoe", the password is
-    # "xyzzy", the host is "www.bogus.net", the port is "8000", the path is
-    # "/foo/bar.tml", the query is "q=foo", and the fragment is "changes".
-    #
-    # Note that the RE actually combines the user and password parts, as
-    # recommended in RFC 3986. Indeed, that RFC states that putting passwords
-    # in URLs is a Really Bad Idea, something with which I would agree utterly.
-    # RFC 9110 Sec 4.2.4 goes further than this, and deprecates the format
-    # "user:password@".  It is retained here for backward compatibility,
-    # but its use is not recommended.
-    #
-    # From a validation perspective, we need to ensure that the parts of the
-    # URL that are going to the server are correctly encoded.  This is only
-    # done if $state(-strict) is true (inherited from $::http::strict).
-
-    set URLmatcher {(?x)		# this is _expanded_ syntax
-	^
-	(?: (\w+) : ) ?			# <protocol scheme>
-	(?: //
-	    (?:
-		(
-		    [^@/\#?]+		# <userinfo part of authority>
-		) @
-	    )?
-	    (				# <host part of authority>
-		[^/:\#?]+ |		# host name or IPv4 address
-		\[ [^/\#?]+ \]		# IPv6 address in square brackets
-	    )
-	    (?: : (\d+) )?		# <port part of authority>
-	)?
-	( [/\?] [^\#]*)?		# <path> (including query)
-	(?: \# (.*) )?			# <fragment>
-	$
-    }
-
-    # Phase one: parse
-    if {![regexp -- $URLmatcher $url -> proto user host port srvurl]} {
-	unset $token
-	return -code error "Unsupported URL: $url"
-    }
-    # Phase two: validate
-    set host [string trim $host {[]}]; # strip square brackets from IPv6 address
-    if {$host eq ""} {
-	# Caller has to provide a host name; we do not have a "default host"
-	# that would enable us to handle relative URLs.
-	unset $token
-	return -code error "Missing host part: $url"
-	# Note that we don't check the hostname for validity here; if it's
-	# invalid, we'll simply fail to resolve it later on.
-    }
-    if {$port ne "" && $port > 65535} {
-	unset $token
-	return -code error "Invalid port number: $port"
-    }
-    # The user identification and resource identification parts of the URL can
-    # have encoded characters in them; take care!
-    if {$user ne ""} {
-	# Check for validity according to RFC 3986, Appendix A
-	set validityRE {(?xi)
-	    ^
-	    (?: [-\w.~!$&'()*+,;=:] | %[0-9a-f][0-9a-f] )+
-	    $
-	}
-	if {$state(-strict) && ![regexp -- $validityRE $user]} {
-	    unset $token
-	    # Provide a better error message in this error case
-	    if {[regexp {(?i)%(?![0-9a-f][0-9a-f]).?.?} $user bad]} {
-		return -code error \
-			"Illegal encoding character usage \"$bad\" in URL user"
-	    }
-	    return -code error "Illegal characters in URL user"
-	}
-    }
-    if {$srvurl ne ""} {
-	# RFC 3986 allows empty paths (not even a /), but servers
-	# return 400 if the path in the HTTP request doesn't start
-	# with / , so add it here if needed.
-	if {[string index $srvurl 0] ne "/"} {
-	    set srvurl /$srvurl
-	}
-	# Check for validity according to RFC 3986, Appendix A
-	set validityRE {(?xi)
-	    ^
-	    # Path part (already must start with / character)
-	    (?:	      [-\w.~!$&'()*+,;=:@/]  | %[0-9a-f][0-9a-f] )*
-	    # Query part (optional, permits ? characters)
-	    (?: \? (?: [-\w.~!$&'()*+,;=:@/?] | %[0-9a-f][0-9a-f] )* )?
-	    $
-	}
-	if {$state(-strict) && ![regexp -- $validityRE $srvurl]} {
-	    unset $token
-	    # Provide a better error message in this error case
-	    if {[regexp {(?i)%(?![0-9a-f][0-9a-f])..} $srvurl bad]} {
-		return -code error \
-		    "Illegal encoding character usage \"$bad\" in URL path"
-	    }
-	    return -code error "Illegal characters in URL path"
-	}
-	if {![regexp {^[^?#]+} $srvurl state(path)]} {
-	    set state(path) /
-	}
-    } else {
-	set srvurl /
-	set state(path) /
-    }
-    if {$proto eq ""} {
-	set proto http
-    }
-    set lower [string tolower $proto]
-    if {![info exists urlTypes($lower)]} {
-	unset $token
-	return -code error "Unsupported URL type \"$proto\""
-    }
-    set defport [lindex $urlTypes($lower) 0]
-    set defcmd [lindex $urlTypes($lower) 1]
-
-    if {$port eq ""} {
-	set port $defport
-    }
-    if {![catch {$http(-proxyfilter) $host} proxy]} {
-	set phost [lindex $proxy 0]
-	set pport [lindex $proxy 1]
-    } else {
-	set phost {}
-	set pport {}
-    }
-
-    # OK, now reassemble into a full URL
-    set url ${proto}://
-    if {$user ne ""} {
-	append url $user
-	append url @
-    }
-    append url $host
-    if {$port != $defport} {
-	append url : $port
-    }
-    append url $srvurl
-    # Don't append the fragment! RFC 7230 Sec 5.1
-    set state(url) $url
-
-    # Proxy connections aren't shared among different hosts.
-    set state(socketinfo) $host:$port
-
-    # Save the accept types at this point to prevent a race condition. [Bug
-    # c11a51c482]
-    set state(accept-types) $http(-accept)
-
-    # Check whether this is an Upgrade request.
-    set connectionValues [SplitCommaSeparatedFieldValue \
-			      [GetFieldValue $state(-headers) Connection]]
-    set connectionValues [string tolower $connectionValues]
-    set upgradeValues [SplitCommaSeparatedFieldValue \
-			   [GetFieldValue $state(-headers) Upgrade]]
-    set state(upgradeRequest) [expr {    "upgrade" in $connectionValues
-				      && [llength $upgradeValues] >= 1}]
-    set state(connectionValues) $connectionValues
-
-    if {$isQuery || $isQueryChannel} {
-	# It's a POST.
-	# A client wishing to send a non-idempotent request SHOULD wait to send
-	# that request until it has received the response status for the
-	# previous request.
-	if {$http(-postfresh)} {
-	    # Override -keepalive for a POST.  Use a new connection, and thus
-	    # avoid the small risk of a race against server timeout.
-	    set state(-keepalive) 0
-	} else {
-	    # Allow -keepalive but do not -pipeline - wait for the previous
-	    # transaction to finish.
-	    # There is a small risk of a race against server timeout.
-	    set state(-pipeline) 0
-	}
-    } elseif {$state(upgradeRequest)} {
-	# It's an upgrade request.  Method must be GET (untested).
-	# Force -keepalive to 0 so the connection is not made over a persistent
-	# socket, i.e. one used for multiple HTTP requests.
-	set state(-keepalive) 0
-    } else {
-	# It's a non-upgrade GET or HEAD.
-	set state(-pipeline) $http(-pipeline)
-    }
-
-    # We cannot handle chunked encodings with -handler, so force HTTP/1.0
-    # until we can manage this.
-    if {[info exists state(-handler)]} {
-	set state(-protocol) 1.0
-    }
-
-    # RFC 7320 A.1 - HTTP/1.0 Keep-Alive is problematic. We do not support it.
-    if {$state(-protocol) eq "1.0"} {
-	set state(connection) close
-	set state(-keepalive) 0
-    }
-
-    # Handle proxy requests here for http:// but not for https://
-    # The proxying for https is done in the ::http::socketForTls command.
-    # A proxy request for http:// needs the full URL in the HTTP request line,
-    # including the server name.
-    # The *tls* test below attempts to describe protocols in addition to
-    # "https on port 443" that use HTTP over TLS.
-    if {($phost ne "") && (![string match -nocase *tls* $defcmd])} {
-	set srvurl $url
-	set targetAddr [list $phost $pport]
-	set state(proxyUsed) HttpProxy
-	# The value of state(proxyUsed) none|HttpProxy depends only on the
-	# all-transactions http::config settings and on the target URL.
-	# Even if this is a persistent socket there is no need to change the
-	# value of state(proxyUsed) for other transactions that use the socket:
-	# they have the same value already.
-    } else {
-	set targetAddr [list $host $port]
-    }
-
-    set sockopts [list -async]
-
-    # Pass -myaddr directly to the socket command
-    if {[info exists state(-myaddr)]} {
-	lappend sockopts -myaddr $state(-myaddr)
-    }
-
-    set state(connArgs) [list $proto $phost $srvurl]
-    set state(openCmd) [list {*}$defcmd {*}$sockopts -type $token {*}$targetAddr]
-
-    # See if we are supposed to use a previously opened channel.
-    # - In principle, ANY call to http::geturl could use a previously opened
-    #   channel if it is available - the "Connection: keep-alive" header is a
-    #   request to leave the channel open AFTER completion of this call.
-    # - In fact, we try to use an existing channel only if -keepalive 1 -- this
-    #   means that at most one channel is left open for each value of
-    #   $state(socketinfo). This property simplifies the mapping of open
-    #   channels.
-    set reusing 0
-    set state(alreadyQueued) 0
-    set state(ReusingPlaceholder) 0
-    if {$state(-keepalive)} {
-	variable socketMapping
-	variable socketRdState
-	variable socketWrState
-	variable socketRdQueue
-	variable socketWrQueue
-	variable socketPhQueue
-	variable socketClosing
-	variable socketPlayCmd
-	variable socketCoEvent
-	variable socketProxyId
-
-	if {[info exists socketMapping($state(socketinfo))]} {
-	    # - If the connection is idle, it has a "fileevent readable" binding
-	    #   to http::CheckEof, in case the server times out and half-closes
-	    #   the socket (http::CheckEof closes the other half).
-	    # - We leave this binding in place until just before the last
-	    #   puts+flush in http::Connected (GET/HEAD) or http::Write (POST),
-	    #   after which the HTTP response might be generated.
-
-	    if {    [info exists socketClosing($state(socketinfo))]
-		       && $socketClosing($state(socketinfo))
-	    } {
-		# socketClosing(*) is set because the server has sent a
-		# "Connection: close" header.
-		# Do not use the persistent socket again.
-		# Since we have only one persistent socket per server, and the
-		# old socket is not yet dead, add the request to the write queue
-		# of the dying socket, which will be replayed by ReplayIfClose.
-		# Also add it to socketWrQueue(*) which is used only if an error
-		# causes a call to Finish.
-		set reusing 1
-		set sock $socketMapping($state(socketinfo))
-		set state(proxyUsed) $socketProxyId($state(socketinfo))
-		Log "reusing closing socket $sock for $state(socketinfo) - token $token"
-
-		set state(alreadyQueued) 1
-		lassign $socketPlayCmd($state(socketinfo)) com0 com1 com2 com3
-		lappend com3 $token
-		set socketPlayCmd($state(socketinfo)) [list $com0 $com1 $com2 $com3]
-		lappend socketWrQueue($state(socketinfo)) $token
-		##Log socketPlayCmd($state(socketinfo)) is $socketPlayCmd($state(socketinfo))
-		##Log socketWrQueue($state(socketinfo)) is $socketWrQueue($state(socketinfo))
-	    } elseif {
-		   [catch {fconfigure $socketMapping($state(socketinfo))}]
-		&& (![SockIsPlaceHolder $socketMapping($state(socketinfo))])
-	    } {
-		###Log "Socket $socketMapping($state(socketinfo)) for $state(socketinfo)"
-		# FIXME Is it still possible for this code to be executed? If
-		#       so, this could be another place to call TestForReplay,
-		#       rather than discarding the queued transactions.
-		Log "WARNING: socket for $state(socketinfo) was closed\
-			- token $token"
-		Log "WARNING - if testing, pay special attention to this\
-			case (GH) which is seldom executed - token $token"
-
-		# This will call CancelReadPipeline, CancelWritePipeline, and
-		# cancel any queued requests, responses.
-		Unset $state(socketinfo)
-	    } else {
-		# Use the persistent socket.
-		# - The socket may not be ready to write: an earlier request might
-		#   still be still writing (in the pipelined case) or
-		#   writing/reading (in the nonpipeline case). This possibility
-		#   is handled by socketWrQueue later in this command.
-		# - The socket may not yet exist, and be defined with a placeholder.
-		set reusing 1
-		set sock $socketMapping($state(socketinfo))
-		set state(proxyUsed) $socketProxyId($state(socketinfo))
-		if {[SockIsPlaceHolder $sock]} {
-		    set state(ReusingPlaceholder) 1
-		    lappend socketPhQueue($sock) $token
-		} else {
-		}
-		Log "reusing open socket $sock for $state(socketinfo) - token $token"
-	    }
-	    # Do not automatically close the connection socket.
-	    set state(connection) keep-alive
-	}
-    }
-
-    set state(reusing) $reusing
-    unset reusing
-
-    if {![info exists sock]} {
-        # N.B. At this point ([info exists sock] == $state(reusing)).
-        # This will no longer be true after we set a value of sock here.
-	# Give the socket a placeholder name.
-	set sock HTTP_PLACEHOLDER_[incr TmpSockCounter]
-    }
-    set state(sock) $sock
-
-    if {$state(reusing)} {
-	# Define these for use (only) by http::ReplayIfDead if the persistent
-	# connection has died.
-	set state(tmpConnArgs) $state(connArgs)
-	set state(tmpState) [array get state]
-	set state(tmpOpenCmd) $state(openCmd)
-    }
-    return $token
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc ::http::SockIsPlaceHolder
-# ------------------------------------------------------------------------------
-# Command to return 0 if the argument is a genuine socket handle, or 1 if is a
-# placeholder value generated by geturl or ReplayCore before the real socket is
-# created.
-#
-# Arguments:
-# sock        - either a valid socket handle or a placeholder value
-#
-# Return Value: 0 or 1
-# ------------------------------------------------------------------------------
-
-proc http::SockIsPlaceHolder {sock} {
-    expr {[string range $sock 0 16] eq {HTTP_PLACEHOLDER_}}
-}
-
-
-# ------------------------------------------------------------------------------
-# state(reusing)
-# ------------------------------------------------------------------------------
-# - state(reusing) is set by geturl, ReplayCore
-# - state(reusing) is used by geturl, AsyncTransaction, OpenSocket,
-#   ConfigureNewSocket, and ScheduleRequest when creating and configuring the
-#   connection.
-# - state(reusing) is used by Connect, Connected, Event x 2 when deciding
-#   whether to call TestForReplay.
-# - Other places where state(reusing) is used:
-#   - Connected   - if reusing and not pipelined, start the state(-timeout)
-#                   timeout (when writing).
-#   - DoneRequest - if reusing and pipelined, send the next pipelined write
-#   - Event       - if reusing and pipelined, start the state(-timeout)
-#                   timeout (when reading).
-#   - Event       - if (not reusing) and pipelined, send the next pipelined
-#                   write.
-# ------------------------------------------------------------------------------
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::AsyncTransaction
-# ------------------------------------------------------------------------------
-# This command is called by geturl and ReplayCore to prepare the HTTP
-# transaction prescribed by a suitably prepared token.
-#
-# Arguments:
-# token         - connection token (name of an array)
-#
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-proc http::AsyncTransaction {token} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    set sock $state(sock)
-
-    # See comments above re the start of this timeout in other cases.
-    if {(!$state(reusing)) && ($state(-timeout) > 0)} {
-	set state(after) [after $state(-timeout) \
-		[list http::reset $token timeout]]
-    }
-
-    if {    $state(-keepalive)
-	 && (![info exists socketMapping($state(socketinfo))])
-    } {
-	# This code is executed only for the first -keepalive request on a
-	# socket.  It makes the socket persistent.
-	##Log "  PreparePersistentConnection" $token -- $sock -- DO
-        set DoLater [PreparePersistentConnection $token]
-    } else {
-        ##Log "  PreparePersistentConnection" $token -- $sock -- SKIP
-        set DoLater {-traceread 0 -tracewrite 0}
-    }
-
-    if {$state(ReusingPlaceholder)} {
-        # - This request was added to the socketPhQueue of a persistent
-        #   connection.
-        # - But the connection has not yet been created and is a placeholder;
-        # - And the placeholder was created by an earlier request.
-        # - When that earlier request calls OpenSocket, its placeholder is
-        #   replaced with a true socket, and it then executes the equivalent of
-        #   OpenSocket for any subsequent requests that have
-        #   $state(ReusingPlaceholder).
-        Log >J$tk after idle coro NO - ReusingPlaceholder
-    } elseif {$state(alreadyQueued)} {
-        # - This request was added to the socketWrQueue and socketPlayCmd
-        #   of a persistent connection that will close at the end of its current
-        #   read operation.
-        Log >J$tk after idle coro NO - alreadyQueued
-    } else {
-        Log >J$tk after idle coro YES
-        set CoroName ${token}--SocketCoroutine
-        set cancel [after idle [list coroutine $CoroName ::http::OpenSocket \
-                $token $DoLater]]
-        dict set socketCoEvent($state(socketinfo)) $token $cancel
-        set state(socketcoro) $cancel
-    }
-
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::PreparePersistentConnection
-# ------------------------------------------------------------------------------
-# This command is called by AsyncTransaction to initialise a "persistent
-# connection" based upon a socket placeholder.  It is called the first time the
-# socket is associated with a "-keepalive" request.
-#
-# Arguments:
-# token         - connection token (name of an array)
-#
-# Return Value: - DoLater, a dictionary of boolean values listing unfinished
-#                 tasks; to be passed to ConfigureNewSocket via OpenSocket.
-# ------------------------------------------------------------------------------
-
-proc http::PreparePersistentConnection {token} {
-    variable $token
-    upvar 0 $token state
-
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    set DoLater {-traceread 0 -tracewrite 0}
-    set socketMapping($state(socketinfo)) $state(sock)
-    set socketProxyId($state(socketinfo)) $state(proxyUsed)
-    # - The value of state(proxyUsed) was set in http::CreateToken to either
-    #   "none" or "HttpProxy".
-    # - $token is the first transaction to use this placeholder, so there are
-    #   no other tokens whose (proxyUsed) must be modified.
-
-    if {![info exists socketRdState($state(socketinfo))]} {
-        set socketRdState($state(socketinfo)) {}
-        # set varName ::http::socketRdState($state(socketinfo))
-        # trace add variable $varName unset ::http::CancelReadPipeline
-        dict set DoLater -traceread 1
-    }
-    if {![info exists socketWrState($state(socketinfo))]} {
-        set socketWrState($state(socketinfo)) {}
-        # set varName ::http::socketWrState($state(socketinfo))
-        # trace add variable $varName unset ::http::CancelWritePipeline
-        dict set DoLater -tracewrite 1
-    }
-
-    if {$state(-pipeline)} {
-        #Log new, init for pipelined, GRANT write access to $token in geturl
-        # Also grant premature read access to the socket. This is OK.
-        set socketRdState($state(socketinfo)) $token
-        set socketWrState($state(socketinfo)) $token
-    } else {
-        # socketWrState is not used by this non-pipelined transaction.
-        # We cannot leave it as "Wready" because the next call to
-        # http::geturl with a pipelined transaction would conclude that the
-        # socket is available for writing.
-        #Log new, init for nonpipeline, GRANT r/w access to $token in geturl
-        set socketRdState($state(socketinfo)) $token
-        set socketWrState($state(socketinfo)) $token
-    }
-
-    # Value of socketPhQueue() may have already been set by ReplayCore.
-    if {![info exists socketPhQueue($state(sock))]} {
-        set socketPhQueue($state(sock))   {}
-    }
-    set socketRdQueue($state(socketinfo)) {}
-    set socketWrQueue($state(socketinfo)) {}
-    set socketClosing($state(socketinfo)) 0
-    set socketPlayCmd($state(socketinfo)) {ReplayIfClose Wready {} {}}
-    set socketCoEvent($state(socketinfo)) {}
-    set socketProxyId($state(socketinfo)) {}
-
-    return $DoLater
-}
-
-# ------------------------------------------------------------------------------
-#  Proc ::http::OpenSocket
-# ------------------------------------------------------------------------------
-# This command is called as a coroutine idletask to start the asynchronous HTTP
-# transaction in most cases.  For the exceptions, see the calling code in
-# command AsyncTransaction.
-#
-# Arguments:
-# token       - connection token (name of an array)
-# DoLater     - dictionary of boolean values listing unfinished tasks
-#
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-proc http::OpenSocket {token DoLater} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    Log >K$tk Start OpenSocket coroutine
-
-    if {![info exists state(-keepalive)]} {
-        # The request has already been cancelled by the calling script.
-        return
-    }
-
-    set sockOld $state(sock)
-
-    dict unset socketCoEvent($state(socketinfo)) $token
-    unset -nocomplain state(socketcoro)
-
-    if {[catch {
-        if {$state(reusing)} {
-	    # If ($state(reusing)) is true, then we do not need to create a new
-	    # socket, even if $sockOld is only a placeholder for a socket.
-            set sock $sockOld
-        } else {
-	    # set sock in the [catch] below.
-	    set pre [clock milliseconds]
-	    ##Log pre socket opened, - token $token
-	    ##Log $state(openCmd) - token $token
-	    set sock [namespace eval :: $state(openCmd)]
-	    set state(sock) $sock
-	    # Normal return from $state(openCmd) always returns a valid socket.
-	    # A TLS proxy connection with 407 or other failure from the
-	    # proxy server raises an error.
-
-	    # Initialisation of a new socket.
-	    ##Log post socket opened, - token $token
-	    ##Log socket opened, now fconfigure - token $token
-	    set delay [expr {[clock milliseconds] - $pre}]
-	    if {$delay > 3000} {
-		Log socket delay $delay - token $token
-	    }
-	    fconfigure $sock -translation {auto crlf} \
-			     -buffersize $state(-blocksize)
-	    if {[package vsatisfies [package provide Tcl] 9.0-]} {
-		fconfigure $sock -profile tcl8
-	    }
-	    ##Log socket opened, DONE fconfigure - token $token
-        }
-
-        Log "Using $sock for $state(socketinfo) - token $token" \
-	    [expr {$state(-keepalive)?"keepalive":""}]
-
-        # Code above has set state(sock) $sock
-        ConfigureNewSocket $token $sockOld $DoLater
-        ##Log OpenSocket success $sock - token $token
-    } result errdict]} {
-	##Log OpenSocket failed $result - token $token
-	# There may be other requests in the socketPhQueue.
-	# Prepare socketPlayCmd so that Finish will replay them.
-	if {    ($state(-keepalive)) && (!$state(reusing))
-	     && [info exists socketPhQueue($sockOld)]
-	     && ($socketPhQueue($sockOld) ne {})
-	} {
-	    if {$socketMapping($state(socketinfo)) ne $sockOld} {
-		Log "WARNING: this code should not be reached.\
-			{$socketMapping($state(socketinfo)) ne $sockOld}"
-	    }
-	    set socketPlayCmd($state(socketinfo)) [list ReplayIfClose Wready {} $socketPhQueue($sockOld)]
-	    set socketPhQueue($sockOld) {}
-	}
-        if {[string range $result 0 20] eq {proxy connect failed:}} {
-	    # - The HTTPS proxy did not create a socket.  The pre-existing value
-	    #   (a "placeholder socket") is unchanged.
-	    # - The proxy returned a valid HTTP response to the failed CONNECT
-	    #   request, and http::SecureProxyConnect copied this to $token,
-	    #   and also set ${token}(connection) set to "close".
-	    # - Remove the error message $result so that Finish delivers this
-	    #   HTTP response to the caller.
-	    set result {}
-	}
-	Finish $token $result
-	# Because socket creation failed, the placeholder "socket" must be
-	# "closed" and (if persistent) removed from the persistent sockets
-	# table.  In the {proxy connect failed:} case Finish does this because
-	# the value of ${token}(connection) is "close". In the other cases here,
-	# it does so because $result is non-empty.
-    }
-    ##Log Leaving http::OpenSocket coroutine [info coroutine] - token $token
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc ::http::ConfigureNewSocket
-# ------------------------------------------------------------------------------
-# Command to initialise a newly-created socket.  Called only from OpenSocket.
-#
-# This command is called by OpenSocket whenever a genuine socket (sockNew) has
-# been opened for for use by HTTP.  It does two things:
-# (1) If $token uses a placeholder socket, this command replaces the placeholder
-#     socket with the real socket, not only in $token but in all other requests
-#     that use the same placeholder.
-# (2) It calls ScheduleRequest to schedule each request that uses the socket.
-#
-#
-# Value of sockOld/sockNew can be "sock" (genuine socket) or "ph" (placeholder).
-# sockNew is ${token}(sock)
-# sockOld   sockNew  CASES
-#  sock       sock   (if $reusing, and sockOld is sock)
-#  ph         sock   (if (not $reusing), and sockOld is ph)
-#  ph         ph     (if $reusing, and sockOld is ph) - not called in this case
-#  sock       ph     (cannot occur unless a bug)      - not called in this case
-#                    (if (not $reusing), and sockOld is sock) - illogical
-#
-# Arguments:
-# token         - connection token (name of an array)
-# sockOld       - handle or placeholder used for a socket before the call to
-#                 OpenSocket
-# DoLater       - dictionary of boolean values listing unfinished tasks
-#
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-proc http::ConfigureNewSocket {token sockOld DoLater} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    set reusing $state(reusing)
-    set sock $state(sock)
-    set proxyUsed $state(proxyUsed)
-    ##Log "  ConfigureNewSocket" $token $sockOld ... -- $reusing $sock $proxyUsed
-
-    if {(!$reusing) && ($sock ne $sockOld)} {
-        # Replace the placeholder value sockOld with sock.
-
-        if {    [info exists socketMapping($state(socketinfo))]
-             && ($socketMapping($state(socketinfo)) eq $sockOld)
-        } {
-            set socketMapping($state(socketinfo)) $sock
-            set socketProxyId($state(socketinfo)) $proxyUsed
-            # tokens that use the placeholder $sockOld are updated below.
-            ##Log set socketMapping($state(socketinfo)) $sock
-        }
-
-        # Now finish any tasks left over from PreparePersistentConnection on
-        # the connection.
-        #
-        # The "unset" traces are fired by init (clears entire arrays), and
-        # by http::Unset.
-        # Unset is called by CloseQueuedQueries and (possibly never) by geturl.
-        #
-        # CancelReadPipeline, CancelWritePipeline call http::Finish for each
-        # token.
-        #
-        # FIXME If Finish is placeholder-aware, these traces can be set earlier,
-        # in PreparePersistentConnection.
-
-        if {[dict get $DoLater -traceread]} {
-	    set varName ::http::socketRdState($state(socketinfo))
-	    trace add variable $varName unset ::http::CancelReadPipeline
-        }
-        if {[dict get $DoLater -tracewrite]} {
-	    set varName ::http::socketWrState($state(socketinfo))
-	    trace add variable $varName unset ::http::CancelWritePipeline
-        }
-    }
-
-    # Do this in all cases.
-    ScheduleRequest $token
-
-    # Now look at all other tokens that use the placeholder $sockOld.
-    if {    (!$reusing)
-         && ($sock ne $sockOld)
-         && [info exists socketPhQueue($sockOld)]
-    } {
-        ##Log "  ConfigureNewSocket" $token scheduled, now do $socketPhQueue($sockOld)
-        foreach tok $socketPhQueue($sockOld) {
-	    # 1. Amend the token's (sock).
-	    ##Log set ${tok}(sock) $sock
-	    set ${tok}(sock) $sock
-	    set ${tok}(proxyUsed) $proxyUsed
-
-	    # 2. Schedule the token's HTTP request.
-	    # Every token in socketPhQueue(*) has reusing 1 alreadyQueued 0.
-	    set ${tok}(reusing) 1
-	    set ${tok}(alreadyQueued) 0
-	    ScheduleRequest $tok
-	}
-	set socketPhQueue($sockOld) {}
-    }
-    ##Log "  ConfigureNewSocket" $token DONE
-
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-# The values of array variables socketMapping etc.
-# ------------------------------------------------------------------------------
-# connId                 "$host:$port"
-# socketMapping($connId) the handle or placeholder for the socket that is used
-#                        for "-keepalive 1" requests to $connId.
-# socketRdState($connId) the token that is currently reading from the socket.
-#                        Other values: Rready (ready for next token to read).
-# socketWrState($connId) the token that is currently writing to the socket.
-#                        Other values: Wready (ready for next token to write),
-#                        peNding (would be ready for next write, except that
-#                        the integrity of a non-pipelined transaction requires
-#                        waiting until the read(s) in progress are finished).
-# socketRdQueue($connId) List of tokens that are queued for reading later.
-# socketWrQueue($connId) List of tokens that are queued for writing later.
-# socketPhQueue($sock)   List of tokens that are queued to use a placeholder
-#                        socket, when the real socket has not yet been created.
-# socketClosing($connId) (boolean) true iff a server response header indicates
-#                        that the server will close the connection at the end of
-#                        the current response.
-# socketPlayCmd($connId) The command to execute to replay pending and
-#                        part-completed transactions if the socket closes early.
-# socketCoEvent($connId) Identifier for the "after idle" event that will launch
-#                        an OpenSocket coroutine to open or re-use a socket.
-# socketProxyId($connId) The type of proxy that this socket uses: values are
-#                        those of state(proxyUsed) i.e. none, HttpProxy,
-#                        SecureProxy, and SecureProxyFailed.
-#                        The value is not used for anything by http, its purpose
-#                        is to set the value of state() for caller information.
-# ------------------------------------------------------------------------------
-
-
-# ------------------------------------------------------------------------------
-# Using socketWrState(*), socketWrQueue(*), socketRdState(*), socketRdQueue(*)
-# ------------------------------------------------------------------------------
-# The element socketWrState($connId) has a value which is either the name of
-# the token that is permitted to write to the socket, or "Wready" if no
-# token is permitted to write.
-#
-# The code that sets the value to Wready immediately calls
-# http::NextPipelinedWrite, which examines socketWrQueue($connId) and
-# processes the next request in the queue, if there is one.  The value
-# Wready is not found when the interpreter is in the event loop unless the
-# socket is idle.
-#
-# The element socketRdState($connId) has a value which is either the name of
-# the token that is permitted to read from the socket, or "Rready" if no
-# token is permitted to read.
-#
-# The code that sets the value to Rready then examines
-# socketRdQueue($connId) and processes the next request in the queue, if
-# there is one.  The value Rready is not found when the interpreter is in
-# the event loop unless the socket is idle.
-# ------------------------------------------------------------------------------
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::ScheduleRequest
-# ------------------------------------------------------------------------------
-# Command to either begin the HTTP request, or add it to the appropriate queue.
-# Called from two places in ConfigureNewSocket.
-#
-# Arguments:
-# token         - connection token (name of an array)
-#
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-proc http::ScheduleRequest {token} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    Log >L$tk ScheduleRequest
-
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    set Unfinished 0
-
-    set reusing $state(reusing)
-    set sockNew $state(sock)
-
-    # The "if" tests below: must test against the current values of
-    # socketWrState, socketRdState, and so the tests must be done here,
-    # not earlier in PreparePersistentConnection.
-
-    if {$state(alreadyQueued)} {
-	# The request has been appended to the queue of a persistent socket
-	# (that is scheduled to close and have its queue replayed).
-	#
-	# A write may or may not be in progress.  There is no need to set
-	# socketWrState to prevent another call stealing write access - all
-	# subsequent calls on this socket will come here because the socket
-	# will close after the current read, and its
-	# socketClosing($connId) is 1.
-	##Log "HTTP request for token $token is queued"
-
-    } elseif {    $reusing
-	       && $state(-pipeline)
-	       && ($socketWrState($state(socketinfo)) ne "Wready")
-    } {
-	##Log "HTTP request for token $token is queued for pipelined use"
-	lappend socketWrQueue($state(socketinfo)) $token
-
-    } elseif {    $reusing
-	       && (!$state(-pipeline))
-	       && ($socketWrState($state(socketinfo)) ne "Wready")
-    } {
-	# A write is queued or in progress.  Lappend to the write queue.
-	##Log "HTTP request for token $token is queued for nonpipeline use"
-	lappend socketWrQueue($state(socketinfo)) $token
-
-    } elseif {    $reusing
-	       && (!$state(-pipeline))
-	       && ($socketWrState($state(socketinfo)) eq "Wready")
-	       && ($socketRdState($state(socketinfo)) ne "Rready")
-    } {
-	# A read is queued or in progress, but not a write.  Cannot start the
-	# nonpipeline transaction, but must set socketWrState to prevent a
-	# pipelined request jumping the queue.
-	##Log "HTTP request for token $token is queued for nonpipeline use"
-	#Log re-use nonpipeline, GRANT delayed write access to $token in geturl
-	set socketWrState($state(socketinfo)) peNding
-	lappend socketWrQueue($state(socketinfo)) $token
-
-    } else {
-        if {$reusing && $state(-pipeline)} {
-	    #Log new, init for pipelined, GRANT write access to $token in geturl
-	    # DO NOT grant premature read access to the socket.
-            # set socketRdState($state(socketinfo)) $token
-            set socketWrState($state(socketinfo)) $token
-        } elseif {$reusing} {
-	    # socketWrState is not used by this non-pipelined transaction.
-	    # We cannot leave it as "Wready" because the next call to
-	    # http::geturl with a pipelined transaction would conclude that the
-	    # socket is available for writing.
-	    #Log new, init for nonpipeline, GRANT r/w access to $token in geturl
-            set socketRdState($state(socketinfo)) $token
-            set socketWrState($state(socketinfo)) $token
-        } else {
-        }
-
-	# Process the request now.
-	# - Command is not called unless $state(sock) is a real socket handle
-	#   and not a placeholder.
-	# - All (!$reusing) cases come here.
-	# - Some $reusing cases come here too if the connection is
-	#   marked as ready.  Those $reusing cases are:
-	#   $reusing && ($socketWrState($state(socketinfo)) eq "Wready") &&
-	#   EITHER !$pipeline && ($socketRdState($state(socketinfo)) eq "Rready")
-	#   OR      $pipeline
-	#
-	#Log ---- $state(socketinfo) << conn to $token for HTTP request (a)
-	##Log "  ScheduleRequest" $token -- fileevent $state(sock) writable for $token
-	# Connect does its own fconfigure.
-
-        lassign $state(connArgs) proto phost srvurl
-
-	if {[catch {
-		fileevent $state(sock) writable \
-			[list http::Connect $token $proto $phost $srvurl]
-	} res opts]} {
-	    # The socket no longer exists.
-	    ##Log bug -- socket gone -- $res -- $opts
-	}
-
-    }
-
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::SendHeader
-# ------------------------------------------------------------------------------
-# Command to send a request header, and keep a copy in state(requestHeaders)
-# for debugging purposes.
-#
-# Arguments:
-# token       - connection token (name of an array)
-# key         - header name
-# value       - header value
-#
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-proc http::SendHeader {token key value} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    set sock $state(sock)
-    lappend state(requestHeaders) [string tolower $key] $value
-    puts $sock "$key: $value"
-    return
-}
-
-# http::Connected --
-#
-#	Callback used when the connection to the HTTP server is actually
-#	established.
-#
-# Arguments:
-#	token	State token.
-#	proto	What protocol (http, https, etc.) was used to connect.
-#	phost	Are we using keep-alive? Non-empty if yes.
-#	srvurl	Service-local URL that we're requesting
-# Results:
-#	None.
-
-proc http::Connected {token proto phost srvurl} {
-    variable http
-    variable urlTypes
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    if {$state(reusing) && (!$state(-pipeline)) && ($state(-timeout) > 0)} {
-	set state(after) [after $state(-timeout) \
-		[list http::reset $token timeout]]
-    }
-
-    # Set back the variables needed here.
-    set sock $state(sock)
-    set isQueryChannel [info exists state(-querychannel)]
-    set isQuery [info exists state(-query)]
-    regexp {^(.+):([^:]+)$} $state(socketinfo) {} host port
-
-    set lower [string tolower $proto]
-    set defport [lindex $urlTypes($lower) 0]
-
-    # Send data in cr-lf format, but accept any line terminators.
-    # Initialisation to {auto *} now done in geturl, KeepSocket and DoneRequest.
-    # We are concerned here with the request (write) not the response (read).
-    lassign [fconfigure $sock -translation] trRead trWrite
-    fconfigure $sock -translation [list $trRead crlf] \
-		     -buffersize $state(-blocksize)
-    if {[package vsatisfies [package provide Tcl] 9.0-]} {
-	fconfigure $sock -profile tcl8
-    }
-
-    # The following is disallowed in safe interpreters, but the socket is
-    # already in non-blocking mode in that case.
-
-    catch {fconfigure $sock -blocking off}
-    set how GET
-    if {$isQuery} {
-	set state(querylength) [string length $state(-query)]
-	if {$state(querylength) > 0} {
-	    set how POST
-	    set contDone 0
-	} else {
-	    # There's no query data.
-	    unset state(-query)
-	    set isQuery 0
-	}
-    } elseif {$state(-validate)} {
-	set how HEAD
-    } elseif {$isQueryChannel} {
-	set how POST
-	# The query channel must be blocking for the async Write to
-	# work properly.
-	fconfigure $state(-querychannel) -blocking 1 -translation binary
-	set contDone 0
-    }
-    if {[info exists state(-method)] && ($state(-method) ne "")} {
-	set how $state(-method)
-    }
-    set accept_types_seen 0
-
-    Log ^B$tk begin sending request - token $token
-
-    if {[catch {
-	if {[info exists state(bypass)]} {
-	    set state(method) [lindex [split $state(bypass) { }] 0]
-	    set state(requestHeaders) {}
-	    set state(requestLine) $state(bypass)
-	} else {
-	    set state(method) $how
-	    set state(requestHeaders) {}
-	    set state(requestLine) "$how $srvurl HTTP/$state(-protocol)"
-	}
-	puts $sock $state(requestLine)
-	set hostValue [GetFieldValue $state(-headers) Host]
-	if {$hostValue ne {}} {
-	    # Allow Host spoofing. [Bug 928154]
-	    regexp {^[^:]+} $hostValue state(host)
-	    SendHeader $token Host $hostValue
-	} elseif {$port == $defport} {
-	    # Don't add port in this case, to handle broken servers. [Bug
-	    # #504508]
-	    set state(host) $host
-	    SendHeader $token Host $host
-	} else {
-	    set state(host) $host
-	    SendHeader $token Host "$host:$port"
-	}
-	SendHeader $token User-Agent $http(-useragent)
-	if {($state(-protocol) > 1.0) && $state(-keepalive)} {
-	    # Send this header, because a 1.1 server is not compelled to treat
-	    # this as the default.
-	    set ConnVal keep-alive
-	} elseif {($state(-protocol) > 1.0)} {
-	    # RFC2616 sec 8.1.2.1
-	    set ConnVal close
-	} else {
-	    # ($state(-protocol) <= 1.0)
-	    # RFC7230 A.1
-	    # Some server implementations of HTTP/1.0 have a faulty
-	    # implementation of RFC 2068 Keep-Alive.
-	    # Don't leave this to chance.
-	    # For HTTP/1.0 we have already "set state(connection) close"
-	    # and "state(-keepalive) 0".
-	    set ConnVal close
-	}
-        # Proxy authorisation (cf. mod by Anders Ramdahl to autoproxy by
-        # Pat Thoyts).
-        if {($http(-proxyauth) ne {}) && ($state(proxyUsed) eq {HttpProxy})} {
-	    SendHeader $token Proxy-Authorization $http(-proxyauth)
-        }
-	# RFC7230 A.1 - "clients are encouraged not to send the
-	# Proxy-Connection header field in any requests"
-	set accept_encoding_seen 0
-	set content_type_seen 0
-	set connection_seen 0
-	foreach {key value} $state(-headers) {
-	    set value [string map [list \n "" \r ""] $value]
-	    set key [string map {" " -} [string trim $key]]
-	    if {[string equal -nocase $key "host"]} {
-		continue
-	    }
-	    if {[string equal -nocase $key "accept-encoding"]} {
-		set accept_encoding_seen 1
-	    }
-	    if {[string equal -nocase $key "accept"]} {
-		set accept_types_seen 1
-	    }
-	    if {[string equal -nocase $key "content-type"]} {
-		set content_type_seen 1
-	    }
-	    if {[string equal -nocase $key "content-length"]} {
-		set contDone 1
-		set state(querylength) $value
-	    }
-	    if {    [string equal -nocase $key "connection"]
-	         && [info exists state(bypass)]
-	    } {
-		# Value supplied in -headers overrides $ConnVal.
-		set connection_seen 1
-	    } elseif {[string equal -nocase $key "connection"]} {
-		# Remove "close" or "keep-alive" and use our own value.
-		# In an upgrade request, the upgrade is not guaranteed.
-		# Value "close" or "keep-alive" tells the server what to do
-		# if it refuses the upgrade.  We send a single "Connection"
-		# header because some websocket servers, e.g. civetweb, reject
-		# multiple headers. Bug [d01de3281f] of tcllib/websocket.
-		set connection_seen 1
-		set listVal $state(connectionValues)
-		if {[set pos [lsearch $listVal close]] != -1} {
-		    set listVal [lreplace $listVal $pos $pos]
-		}
-		if {[set pos [lsearch $listVal keep-alive]] != -1} {
-		    set listVal [lreplace $listVal $pos $pos]
-		}
-		lappend listVal $ConnVal
-		set value [join $listVal {, }]
-	    }
-	    if {[string length $key]} {
-		SendHeader $token $key $value
-	    }
-	}
-	# Allow overriding the Accept header on a per-connection basis. Useful
-	# for working with REST services. [Bug c11a51c482]
-	if {!$accept_types_seen} {
-	    SendHeader $token Accept $state(accept-types)
-	}
-	if {    (!$accept_encoding_seen)
-	     && (![info exists state(-handler)])
-	     && $http(-zip)
-	} {
-	    SendHeader $token Accept-Encoding gzip,deflate
-	} elseif {!$accept_encoding_seen} {
-	    SendHeader $token Accept-Encoding identity
-	} else {
-	}
-	if {!$connection_seen} {
-	    SendHeader $token Connection $ConnVal
-	}
-	if {$isQueryChannel && ($state(querylength) == 0)} {
-	    # Try to determine size of data in channel. If we cannot seek, the
-	    # surrounding catch will trap us
-
-	    set start [tell $state(-querychannel)]
-	    seek $state(-querychannel) 0 end
-	    set state(querylength) \
-		    [expr {[tell $state(-querychannel)] - $start}]
-	    seek $state(-querychannel) $start
-	}
-
-	# Note that we don't do Cookie2; that's much nastier and not normally
-	# observed in practice either. It also doesn't fix the multitude of
-	# bugs in the basic cookie spec.
-	if {$http(-cookiejar) ne ""} {
-	    set cookies ""
-	    set separator ""
-	    foreach {key value} [{*}$http(-cookiejar) \
-		    getCookies $proto $host $state(path)] {
-		append cookies $separator $key = $value
-		set separator "; "
-	    }
-	    if {$cookies ne ""} {
-		SendHeader $token Cookie $cookies
-	    }
-	}
-
-	# Flush the request header and set up the fileevent that will either
-	# push the POST data or read the response.
-	#
-	# fileevent note:
-	#
-	# It is possible to have both the read and write fileevents active at
-	# this point. The only scenario it seems to affect is a server that
-	# closes the connection without reading the POST data. (e.g., early
-	# versions TclHttpd in various error cases). Depending on the
-	# platform, the client may or may not be able to get the response from
-	# the server because of the error it will get trying to write the post
-	# data. Having both fileevents active changes the timing and the
-	# behavior, but no two platforms (among Solaris, Linux, and NT) behave
-	# the same, and none behave all that well in any case. Servers should
-	# always read their POST data if they expect the client to read their
-	# response.
-
-	if {$isQuery || $isQueryChannel} {
-	    # POST method.
-	    if {!$content_type_seen} {
-		SendHeader $token Content-Type $state(-type)
-	    }
-	    if {!$contDone} {
-		SendHeader $token Content-Length $state(querylength)
-	    }
-	    puts $sock ""
-	    flush $sock
-	    # Flush flushes the error in the https case with a bad handshake:
-	    # else the socket never becomes writable again, and hangs until
-	    # timeout (if any).
-
-	    lassign [fconfigure $sock -translation] trRead trWrite
-	    fconfigure $sock -translation [list $trRead binary]
-	    fileevent $sock writable [list http::Write $token]
-	    # The http::Write command decides when to make the socket readable,
-	    # using the same test as the GET/HEAD case below.
-	} else {
-	    # GET or HEAD method.
-	    if {    (![catch {fileevent $sock readable} binding])
-		 && ($binding eq [list http::CheckEof $sock])
-	    } {
-		# Remove the "fileevent readable" binding of an idle persistent
-		# socket to http::CheckEof.  We can no longer treat bytes
-		# received as junk. The server might still time out and
-		# half-close the socket if it has not yet received the first
-		# "puts".
-		fileevent $sock readable {}
-	    }
-	    puts $sock ""
-	    flush $sock
-	    Log ^C$tk end sending request - token $token
-	    # End of writing (GET/HEAD methods).  The request has been sent.
-
-	    DoneRequest $token
-	}
-
-    } err]} {
-	# The socket probably was never connected, OR the connection dropped
-	# later, OR https handshake error, which may be discovered as late as
-	# the "flush" command above...
-	Log "WARNING - if testing, pay special attention to this\
-		case (GI) which is seldom executed - token $token"
-	if {[info exists state(reusing)] && $state(reusing)} {
-	    # The socket was closed at the server end, and closed at
-	    # this end by http::CheckEof.
-    	    if {[TestForReplay $token write $err a]} {
-		return
-	    } else {
-		Finish $token {failed to re-use socket}
-	    }
-
-	    # else:
-	    # This is NOT a persistent socket that has been closed since its
-	    # last use.
-	    # If any other requests are in flight or pipelined/queued, they will
-	    # be discarded.
-	} elseif {$state(status) eq ""} {
-	    # https handshake errors come here, for
-	    # Tcl 8.7 without http::SecureProxyConnect, and for Tcl 8.6.
-	    set msg [registerError $sock]
-	    registerError $sock {}
-	    if {$msg eq {}} {
-		set msg {failed to use socket}
-	    }
-	    Finish $token $msg
-	} elseif {$state(status) ne "error"} {
-	    Finish $token $err
-	}
-    }
-    return
-}
-
-# http::registerError
-#
-#	Called (for example when processing TclTLS activity) to register
-#	an error for a connection on a specific socket.  This helps
-#	http::Connected to deliver meaningful error messages, e.g. when a TLS
-#	certificate fails verification.
-#
-#	Usage: http::registerError socket ?newValue?
-#
-#	"set" semantics, except that a "get" (a call without a new value) for a
-#	non-existent socket returns {}, not an error.
-
-proc http::registerError {sock args} {
-    variable registeredErrors
-
-    if {    ([llength $args] == 0)
-	 && (![info exists registeredErrors($sock)])
-    } {
-	return
-    } elseif {    ([llength $args] == 1)
-	       && ([lindex $args 0] eq {})
-    } {
-	unset -nocomplain registeredErrors($sock)
-	return
-    }
-    set registeredErrors($sock) {*}$args
-}
-
-# http::DoneRequest --
-#
-#	Command called when a request has been sent.  It will arrange the
-#	next request and/or response as appropriate.
-#
-#	If this command is called when $socketClosing(*), the request $token
-#	that calls it must be pipelined and destined to fail.
-
-proc http::DoneRequest {token} {
-    variable http
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    set sock $state(sock)
-
-    # If pipelined, connect the next HTTP request to the socket.
-    if {$state(reusing) && $state(-pipeline)} {
-	# Enable next token (if any) to write.
-	# The value "Wready" is set only here, and
-	# in http::Event after reading the response-headers of a
-	# non-reusing transaction.
-	# Previous value is $token. It cannot be pending.
-	set socketWrState($state(socketinfo)) Wready
-
-	# Now ready to write the next pipelined request (if any).
-	http::NextPipelinedWrite $token
-    } else {
-	# If pipelined, this is the first transaction on this socket.  We wait
-	# for the response headers to discover whether the connection is
-	# persistent.  (If this is not done and the connection is not
-	# persistent, we SHOULD retry and then MUST NOT pipeline before knowing
-	# that we have a persistent connection
-	# (rfc2616 8.1.2.2)).
-    }
-
-    # Connect to receive the response, unless the socket is pipelined
-    # and another response is being sent.
-    # This code block is separate from the code below because there are
-    # cases where socketRdState already has the value $token.
-    if {    $state(-keepalive)
-	 && $state(-pipeline)
-	 && [info exists socketRdState($state(socketinfo))]
-	 && ($socketRdState($state(socketinfo)) eq "Rready")
-    } {
-	#Log pipelined, GRANT read access to $token in Connected
-	set socketRdState($state(socketinfo)) $token
-    }
-
-    if {    $state(-keepalive)
-	 && $state(-pipeline)
-	 && [info exists socketRdState($state(socketinfo))]
-	 && ($socketRdState($state(socketinfo)) ne $token)
-    } {
-	# Do not read from the socket until it is ready.
-	##Log "HTTP response for token $token is queued for pipelined use"
-	# If $socketClosing(*), then the caller will be a pipelined write and
-	# execution will come here.
-	# This token has already been recorded as "in flight" for writing.
-	# When the socket is closed, the read queue will be cleared in
-	# CloseQueuedQueries and so the "lappend" here has no effect.
-	lappend socketRdQueue($state(socketinfo)) $token
-    } else {
-	# In the pipelined case, connection for reading depends on the
-	# value of socketRdState.
-	# In the nonpipeline case, connection for reading always occurs.
-	ReceiveResponse $token
-    }
-    return
-}
-
-# http::ReceiveResponse
-#
-#	Connects token to its socket for reading.
-
-proc http::ReceiveResponse {token} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    set sock $state(sock)
-
-    #Log ---- $state(socketinfo) >> conn to $token for HTTP response
-    lassign [fconfigure $sock -translation] trRead trWrite
-    fconfigure $sock -translation [list auto $trWrite] \
-		     -buffersize $state(-blocksize)
-    if {[package vsatisfies [package provide Tcl] 9.0-]} {
-	fconfigure $sock -profile tcl8
-    }
-    Log ^D$tk begin receiving response - token $token
-
-    coroutine ${token}--EventCoroutine http::Event $sock $token
-    if {[info exists state(-handler)] || [info exists state(-progress)]} {
-        fileevent $sock readable [list http::EventGateway $sock $token]
-    } else {
-        fileevent $sock readable ${token}--EventCoroutine
-    }
-    return
-}
-
-
-# http::EventGateway
-#
-#	Bug [c2dc1da315].
-#	- Recursive launch of the coroutine can occur if a -handler or -progress
-#	  callback is used, and the callback command enters the event loop.
-#	- To prevent this, the fileevent "binding" is disabled while the
-#	  coroutine is in flight.
-#	- If a recursive call occurs despite these precautions, it is not
-#	  trapped and discarded here, because it is better to report it as a
-#	  bug.
-#	- Although this solution is believed to be sufficiently general, it is
-#	  used only if -handler or -progress is specified.  In other cases,
-#	  the coroutine is called directly.
-
-proc http::EventGateway {sock token} {
-    variable $token
-    upvar 0 $token state
-    fileevent $sock readable {}
-    catch {${token}--EventCoroutine} res opts
-    if {[info commands ${token}--EventCoroutine] ne {}} {
-        # The coroutine can be deleted by completion (a non-yield return), by
-        # http::Finish (when there is a premature end to the transaction), by
-        # http::reset or http::cleanup, or if the caller set option -channel
-        # but not option -handler: in the last case reading from the socket is
-        # now managed by commands ::http::Copy*, http::ReceiveChunked, and
-        # http::MakeTransformationChunked.
-        #
-        # Catch in case the coroutine has closed the socket.
-        catch {fileevent $sock readable [list http::EventGateway $sock $token]}
-    }
-
-    # If there was an error, re-throw it.
-    return -options $opts $res
-}
-
-
-# http::NextPipelinedWrite
-#
-# - Connecting a socket to a token for writing is done by this command and by
-#   command KeepSocket.
-# - If another request has a pipelined write scheduled for $token's socket,
-#   and if the socket is ready to accept it, connect the write and update
-#   the queue accordingly.
-# - This command is called from http::DoneRequest and http::Event,
-#   IF $state(-pipeline) AND (the current transfer has reached the point at
-#   which the socket is ready for the next request to be written).
-# - This command is called when a token has write access and is pipelined and
-#   keep-alive, and sets socketWrState to Wready.
-# - The command need not consider the case where socketWrState is set to a token
-#   that does not yet have write access.  Such a token is waiting for Rready,
-#   and the assignment of the connection to the token will be done elsewhere (in
-#   http::KeepSocket).
-# - This command cannot be called after socketWrState has been set to a
-#   "pending" token value (that is then overwritten by the caller), because that
-#   value is set by this command when it is called by an earlier token when it
-#   relinquishes its write access, and the pending token is always the next in
-#   line to write.
-
-proc http::NextPipelinedWrite {token} {
-    variable http
-    variable socketRdState
-    variable socketWrState
-    variable socketWrQueue
-    variable socketClosing
-    variable $token
-    upvar 0 $token state
-    set connId $state(socketinfo)
-
-    if {    [info exists socketClosing($connId)]
-	 && $socketClosing($connId)
-    } {
-	# socketClosing(*) is set because the server has sent a
-	# "Connection: close" header.
-	# Behave as if the queues are empty - so do nothing.
-    } elseif {    $state(-pipeline)
-	 && [info exists socketWrState($connId)]
-	 && ($socketWrState($connId) eq "Wready")
-
-	 && [info exists socketWrQueue($connId)]
-	 && [llength $socketWrQueue($connId)]
-	 && ([set token2 [lindex $socketWrQueue($connId) 0]
-	      set ${token2}(-pipeline)
-	     ]
-	    )
-    } {
-	# - The usual case for a pipelined connection, ready for a new request.
-	#Log pipelined, GRANT write access to $token2 in NextPipelinedWrite
-	set conn [set ${token2}(connArgs)]
-	set socketWrState($connId) $token2
-	set socketWrQueue($connId) [lrange $socketWrQueue($connId) 1 end]
-	# Connect does its own fconfigure.
-	fileevent $state(sock) writable [list http::Connect $token2 {*}$conn]
-	#Log ---- $connId << conn to $token2 for HTTP request (b)
-
-	# In the tests below, the next request will be nonpipeline.
-    } elseif {    $state(-pipeline)
-	       && [info exists socketWrState($connId)]
-	       && ($socketWrState($connId) eq "Wready")
-
-	       && [info exists socketWrQueue($connId)]
-	       && [llength $socketWrQueue($connId)]
-	       && (![ set token3 [lindex $socketWrQueue($connId) 0]
-		      set ${token3}(-pipeline)
-		    ]
-		  )
-
-	       && [info exists socketRdState($connId)]
-	       && ($socketRdState($connId) eq "Rready")
-    } {
-	# The case in which the next request will be non-pipelined, and the read
-	# and write queues is ready: which is the condition for a non-pipelined
-	# write.
-	set conn [set ${token3}(connArgs)]
-	#Log nonpipeline, GRANT r/w access to $token3 in NextPipelinedWrite
-	set socketRdState($connId) $token3
-	set socketWrState($connId) $token3
-	set socketWrQueue($connId) [lrange $socketWrQueue($connId) 1 end]
-	# Connect does its own fconfigure.
-	fileevent $state(sock) writable [list http::Connect $token3 {*}$conn]
-	#Log ---- $state(sock) << conn to $token3 for HTTP request (c)
-
-    } elseif {    $state(-pipeline)
-	 && [info exists socketWrState($connId)]
-	 && ($socketWrState($connId) eq "Wready")
-
-	 && [info exists socketWrQueue($connId)]
-	 && [llength $socketWrQueue($connId)]
-	 && (![set token2 [lindex $socketWrQueue($connId) 0]
-	      set ${token2}(-pipeline)
-	     ]
-	    )
-    } {
-	# - The case in which the next request will be non-pipelined, but the
-	#   read queue is NOT ready.
-	# - A read is queued or in progress, but not a write.  Cannot start the
-	#   nonpipeline transaction, but must set socketWrState to prevent a new
-	#   pipelined request (in http::geturl) jumping the queue.
-	# - Because socketWrState($connId) is not set to Wready, the assignment
-	#   of the connection to $token2 will be done elsewhere - by command
-	#   http::KeepSocket when $socketRdState($connId) is set to "Rready".
-
-	#Log re-use nonpipeline, GRANT delayed write access to $token in NextP..
-	set socketWrState($connId) peNding
-    }
-    return
-}
-
-# http::CancelReadPipeline
-#
-#	Cancel pipelined responses on a closing "Keep-Alive" socket.
-#
-#	- Called by a variable trace on "unset socketRdState($connId)".
-#	- The variable relates to a Keep-Alive socket, which has been closed.
-#	- Cancels all pipelined responses. The requests have been sent,
-#	  the responses have not yet been received.
-#	- This is a hard cancel that ends each transaction with error status,
-#	  and closes the connection. Do not use it if you want to replay failed
-#	  transactions.
-#	- N.B. Always delete ::http::socketRdState($connId) before deleting
-#	  ::http::socketRdQueue($connId), or this command will do nothing.
-#
-# Arguments
-#	As for a trace command on a variable.
-
-proc http::CancelReadPipeline {name1 connId op} {
-    variable socketRdQueue
-    ##Log CancelReadPipeline $name1 $connId $op
-    if {[info exists socketRdQueue($connId)]} {
-	set msg {the connection was closed by CancelReadPipeline}
-	foreach token $socketRdQueue($connId) {
-	    set tk [namespace tail $token]
-	    Log ^X$tk end of response "($msg)" - token $token
-	    set ${token}(status) eof
-	    Finish $token ;#$msg
-	}
-	set socketRdQueue($connId) {}
-    }
-    return
-}
-
-# http::CancelWritePipeline
-#
-#	Cancel queued events on a closing "Keep-Alive" socket.
-#
-#	- Called by a variable trace on "unset socketWrState($connId)".
-#	- The variable relates to a Keep-Alive socket, which has been closed.
-#	- In pipelined or nonpipeline case: cancels all queued requests.  The
-#	  requests have not yet been sent, the responses are not due.
-#	- This is a hard cancel that ends each transaction with error status,
-#	  and closes the connection. Do not use it if you want to replay failed
-#	  transactions.
-#	- N.B. Always delete ::http::socketWrState($connId) before deleting
-#	  ::http::socketWrQueue($connId), or this command will do nothing.
-#
-# Arguments
-#	As for a trace command on a variable.
-
-proc http::CancelWritePipeline {name1 connId op} {
-    variable socketWrQueue
-
-    ##Log CancelWritePipeline $name1 $connId $op
-    if {[info exists socketWrQueue($connId)]} {
-	set msg {the connection was closed by CancelWritePipeline}
-	foreach token $socketWrQueue($connId) {
-	    set tk [namespace tail $token]
-	    Log ^X$tk end of response "($msg)" - token $token
-	    set ${token}(status) eof
-	    Finish $token ;#$msg
-	}
-	set socketWrQueue($connId) {}
-    }
-    return
-}
-
-# http::ReplayIfDead --
-#
-# - A query on a re-used persistent socket failed at the earliest opportunity,
-#   because the socket had been closed by the server.  Keep the token, tidy up,
-#   and try to connect on a fresh socket.
-# - The connection is monitored for eof by the command http::CheckEof.  Thus
-#   http::ReplayIfDead is needed only when a server event (half-closing an
-#   apparently idle connection), and a client event (sending a request) occur at
-#   almost the same time, and neither client nor server detects the other's
-#   action before performing its own (an "asynchronous close event").
-# - To simplify testing of http::ReplayIfDead, set TEST_EOF 1 in
-#   http::KeepSocket, and then http::ReplayIfDead will be called if http::geturl
-#   is called at any time after the server timeout.
-#
-# Arguments:
-#	token	Connection token.
-#
-# Side Effects:
-#	Use the same token, but try to open a new socket.
-
-proc http::ReplayIfDead {token doing} {
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-
-    Log running http::ReplayIfDead for $token $doing
-
-    # 1. Merge the tokens for transactions in flight, the read (response) queue,
-    #    and the write (request) queue.
-
-    set InFlightR {}
-    set InFlightW {}
-
-    # Obtain the tokens for transactions in flight.
-    if {$state(-pipeline)} {
-	# Two transactions may be in flight.  The "read" transaction was first.
-	# It is unlikely that the server would close the socket if a response
-	# was pending; however, an earlier request (as well as the present
-	# request) may have been sent and ignored if the socket was half-closed
-	# by the server.
-
-	if {    [info exists socketRdState($state(socketinfo))]
-	     && ($socketRdState($state(socketinfo)) ne "Rready")
-	} {
-	    lappend InFlightR $socketRdState($state(socketinfo))
-	} elseif {($doing eq "read")} {
-	    lappend InFlightR $token
-	}
-
-	if {    [info exists socketWrState($state(socketinfo))]
-	     && $socketWrState($state(socketinfo)) ni {Wready peNding}
-	} {
-	    lappend InFlightW $socketWrState($state(socketinfo))
-	} elseif {($doing eq "write")} {
-	    lappend InFlightW $token
-	}
-
-	# Report any inconsistency of $token with socket*state.
-	if {    ($doing eq "read")
-	     && [info exists socketRdState($state(socketinfo))]
-	     && ($token ne $socketRdState($state(socketinfo)))
-	} {
-	    Log WARNING - ReplayIfDead pipelined token $token $doing \
-		    ne socketRdState($state(socketinfo)) \
-		      $socketRdState($state(socketinfo))
-
-	} elseif {
-		($doing eq "write")
-	     && [info exists socketWrState($state(socketinfo))]
-	     && ($token ne $socketWrState($state(socketinfo)))
-	} {
-	    Log WARNING - ReplayIfDead pipelined token $token $doing \
-		    ne socketWrState($state(socketinfo)) \
-		      $socketWrState($state(socketinfo))
-	}
-    } else {
-	# One transaction should be in flight.
-	# socketRdState, socketWrQueue are used.
-	# socketRdQueue should be empty.
-
-	# Report any inconsistency of $token with socket*state.
-	if {$token ne $socketRdState($state(socketinfo))} {
-	    Log WARNING - ReplayIfDead nonpipeline token $token $doing \
-		    ne socketRdState($state(socketinfo)) \
-		      $socketRdState($state(socketinfo))
-	}
-
-	# Report the inconsistency that socketRdQueue is non-empty.
-	if {    [info exists socketRdQueue($state(socketinfo))]
-	     && ($socketRdQueue($state(socketinfo)) ne {})
-	} {
-	    Log WARNING - ReplayIfDead nonpipeline token $token $doing \
-		    has read queue socketRdQueue($state(socketinfo)) \
-		    $socketRdQueue($state(socketinfo)) ne {}
-	}
-
-	lappend InFlightW $socketRdState($state(socketinfo))
-	set socketRdQueue($state(socketinfo)) {}
-    }
-
-    set newQueue {}
-    lappend newQueue {*}$InFlightR
-    lappend newQueue {*}$socketRdQueue($state(socketinfo))
-    lappend newQueue {*}$InFlightW
-    lappend newQueue {*}$socketWrQueue($state(socketinfo))
-
-
-    # 2. Tidy up token.  This is a cut-down form of Finish/CloseSocket.
-    #    Do not change state(status).
-    #    No need to after cancel state(after) - either this is done in
-    #    ReplayCore/ReInit, or Finish is called.
-
-    catch {close $state(sock)}
-    Unset $state(socketinfo)
-
-    # 2a. Tidy the tokens in the queues - this is done in ReplayCore/ReInit.
-    # - Transactions, if any, that are awaiting responses cannot be completed.
-    #   They are listed for re-sending in newQueue.
-    # - All tokens are preserved for re-use by ReplayCore, and their variables
-    #   will be re-initialised by calls to ReInit.
-    # - The relevant element of socketMapping, socketRdState, socketWrState,
-    #   socketRdQueue, socketWrQueue, socketClosing, socketPlayCmd will be set
-    #   to new values in ReplayCore.
-
-    ReplayCore $newQueue
-    return
-}
-
-# http::ReplayIfClose --
-#
-#	A request on a socket that was previously "Connection: keep-alive" has
-#	received a "Connection: close" response header.  The server supplies
-#	that response correctly, but any later requests already queued on this
-#	connection will be lost when the socket closes.
-#
-#	This command takes arguments that represent the socketWrState,
-#	socketRdQueue and socketWrQueue for this connection.  The socketRdState
-#	is not needed because the server responds in full to the request that
-#	received the "Connection: close" response header.
-#
-#	Existing request tokens $token (::http::$n) are preserved.  The caller
-#	will be unaware that the request was processed this way.
-
-proc http::ReplayIfClose {Wstate Rqueue Wqueue} {
-    Log running http::ReplayIfClose for $Wstate $Rqueue $Wqueue
-
-    if {$Wstate in $Rqueue || $Wstate in $Wqueue} {
-	Log WARNING duplicate token in http::ReplayIfClose - token $Wstate
-	set Wstate Wready
-    }
-
-    # 1. Create newQueue
-    set InFlightW {}
-    if {$Wstate ni {Wready peNding}} {
-	lappend InFlightW $Wstate
-    }
-    ##Log $Rqueue -- $InFlightW -- $Wqueue
-    set newQueue {}
-    lappend newQueue {*}$Rqueue
-    lappend newQueue {*}$InFlightW
-    lappend newQueue {*}$Wqueue
-
-    # 2. Cleanup - none needed, done by the caller.
-
-    ReplayCore $newQueue
-    return
-}
-
-# http::ReInit --
-#
-#	Command to restore a token's state to a condition that
-#	makes it ready to replay a request.
-#
-#	Command http::geturl stores extra state in state(tmp*) so
-#	we don't need to do the argument processing again.
-#
-#	The caller must:
-#	- Set state(reusing) and state(sock) to their new values after calling
-#	  this command.
-#	- Unset state(tmpState), state(tmpOpenCmd) if future calls to ReplayCore
-#	  or ReInit are inappropriate for this token. Typically only one retry
-#	  is allowed.
-#	The caller may also unset state(tmpConnArgs) if this value (and the
-#	token) will be used immediately.  The value is needed by tokens that
-#	will be stored in a queue.
-#
-# Arguments:
-#	token	Connection token.
-#
-# Return Value: (boolean) true iff the re-initialisation was successful.
-
-proc http::ReInit {token} {
-    variable $token
-    upvar 0 $token state
-
-    if {!(
-	      [info exists state(tmpState)]
-	   && [info exists state(tmpOpenCmd)]
-	   && [info exists state(tmpConnArgs)]
-	 )
-    } {
-	Log FAILED in http::ReInit via ReplayCore - NO tmp vars for $token
-	return 0
-    }
-
-    if {[info exists state(after)]} {
-	after cancel $state(after)
-	unset state(after)
-    }
-    if {[info exists state(socketcoro)]} {
-        Log $token Cancel socket after-idle event (ReInit)
-        after cancel $state(socketcoro)
-        unset state(socketcoro)
-    }
-
-    # Don't alter state(status) - this would trigger http::wait if it is in use.
-    set tmpState    $state(tmpState)
-    set tmpOpenCmd  $state(tmpOpenCmd)
-    set tmpConnArgs $state(tmpConnArgs)
-    foreach name [array names state] {
-	if {$name ne "status"} {
-	    unset state($name)
-	}
-    }
-
-    # Don't alter state(status).
-    # Restore state(tmp*) - the caller may decide to unset them.
-    # Restore state(tmpConnArgs) which is needed for connection.
-    # state(tmpState), state(tmpOpenCmd) are needed only for retries.
-
-    dict unset tmpState status
-    array set state $tmpState
-    set state(tmpState)    $tmpState
-    set state(tmpOpenCmd)  $tmpOpenCmd
-    set state(tmpConnArgs) $tmpConnArgs
-
-    return 1
-}
-
-# http::ReplayCore --
-#
-#	Command to replay a list of requests, using existing connection tokens.
-#
-#	Abstracted from http::geturl which stores extra state in state(tmp*) so
-#	we don't need to do the argument processing again.
-#
-# Arguments:
-#	newQueue	List of connection tokens.
-#
-# Side Effects:
-#	Use existing tokens, but try to open a new socket.
-
-proc http::ReplayCore {newQueue} {
-    variable TmpSockCounter
-
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    if {[llength $newQueue] == 0} {
-	# Nothing to do.
-	return
-    }
-
-    ##Log running ReplayCore for {*}$newQueue
-    set newToken [lindex $newQueue 0]
-    set newQueue [lrange $newQueue 1 end]
-
-    # 3. Use newToken, and restore its values of state(*).  Do not restore
-    #    elements tmp* - we try again only once.
-
-    set token $newToken
-    variable $token
-    upvar 0 $token state
-
-    if {![ReInit $token]} {
-	Log FAILED in http::ReplayCore - NO tmp vars
-	Log ReplayCore reject $token
-	Finish $token {cannot send this request again}
-	return
-    }
-
-    set tmpState    $state(tmpState)
-    set tmpOpenCmd  $state(tmpOpenCmd)
-    set tmpConnArgs $state(tmpConnArgs)
-    unset state(tmpState)
-    unset state(tmpOpenCmd)
-    unset state(tmpConnArgs)
-
-    set state(reusing) 0
-    set state(ReusingPlaceholder) 0
-    set state(alreadyQueued) 0
-    Log ReplayCore replay $token
-
-    # Give the socket a placeholder name before it is created.
-    set sock HTTP_PLACEHOLDER_[incr TmpSockCounter]
-    set state(sock) $sock
-
-    # Move the $newQueue into the placeholder socket's socketPhQueue.
-    set socketPhQueue($sock) {}
-    foreach tok $newQueue {
-	if {[ReInit $tok]} {
-	    set ${tok}(reusing) 1
-	    set ${tok}(sock) $sock
-	    lappend socketPhQueue($sock) $tok
-	    Log ReplayCore replay $tok
-	} else {
-	    Log ReplayCore reject $tok
-	    set ${tok}(reusing) 1
-	    set ${tok}(sock) NONE
-	    Finish $tok {cannot send this request again}
-	}
-    }
-
-    AsyncTransaction $token
-
-    return
-}
-
-# Data access functions:
-# Data - the URL data
-# Status - the transaction status: ok, reset, eof, timeout, error
-# Code - the HTTP transaction code, e.g., 200
-# Size - the size of the URL data
-
-proc http::responseBody {token} {
-    variable $token
-    upvar 0 $token state
-    return $state(body)
-}
-proc http::status {token} {
-    if {![info exists $token]} {
-	return "error"
-    }
-    variable $token
-    upvar 0 $token state
-    return $state(status)
-}
-proc http::responseLine {token} {
-    variable $token
-    upvar 0 $token state
-    return $state(http)
-}
-proc http::requestLine {token} {
-    variable $token
-    upvar 0 $token state
-    return $state(requestLine)
-}
-proc http::responseCode {token} {
-    variable $token
-    upvar 0 $token state
-    if {[regexp {[0-9]{3}} $state(http) numeric_code]} {
-	return $numeric_code
-    } else {
-	return $state(http)
-    }
-}
-proc http::size {token} {
-    variable $token
-    upvar 0 $token state
-    return $state(currentsize)
-}
-proc http::requestHeaders {token args} {
-    set lenny  [llength $args]
-    if {$lenny > 1} {
-        return -code error {usage: ::http::requestHeaders token ?headerName?}
-    } else {
-        return [Meta $token request {*}$args]
-    }
-}
-proc http::responseHeaders {token args} {
-    set lenny  [llength $args]
-    if {$lenny > 1} {
-        return -code error {usage: ::http::responseHeaders token ?headerName?}
-    } else {
-        return [Meta $token response {*}$args]
-    }
-}
-proc http::requestHeaderValue {token header} {
-    Meta $token request $header VALUE
-}
-proc http::responseHeaderValue {token header} {
-    Meta $token response $header VALUE
-}
-proc http::Meta {token who args} {
-    variable $token
-    upvar 0 $token state
-
-    if {$who eq {request}} {
-        set whom requestHeaders
-    } elseif {$who eq {response}} {
-        set whom meta
-    } else {
-        return -code error {usage: ::http::Meta token request|response ?headerName ?VALUE??}
-    }
-
-    set header [string tolower [lindex $args 0]]
-    set how    [string tolower [lindex $args 1]]
-    set lenny  [llength $args]
-    if {$lenny == 0} {
-        return $state($whom)
-    } elseif {($lenny > 2) || (($lenny == 2) && ($how ne {value}))} {
-        return -code error {usage: ::http::Meta token request|response ?headerName ?VALUE??}
-    } else {
-        set result {}
-        set combined {}
-        foreach {key value} $state($whom) {
-            if {$key eq $header} {
-                lappend result $key $value
-                append combined $value {, }
-            }
-        }
-        if {$lenny == 1} {
-            return $result
-        } else {
-            return [string range $combined 0 end-2]
-        }
-    }
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::responseInfo
-# ------------------------------------------------------------------------------
-# Command to return a dictionary of the most useful metadata of a HTTP
-# response.
-#
-# Arguments:
-# token       - connection token (name of an array)
-#
-# Return Value: a dict. See man page http(n) for a description of each item.
-# ------------------------------------------------------------------------------
-
-proc http::responseInfo {token} {
-    variable $token
-    upvar 0 $token state
-    set result {}
-    foreach {key origin name} {
-        stage                 STATE  state
-        status                STATE  status
-        responseCode          STATE  responseCode
-        reasonPhrase          STATE  reasonPhrase
-        contentType           STATE  type
-        binary                STATE  binary
-        redirection           RESP   location
-        upgrade               STATE  upgrade
-        error                 ERROR  -
-        postError             STATE  posterror
-        method                STATE  method
-        charset               STATE  charset
-        compression           STATE  coding
-        httpRequest           STATE  -protocol
-        httpResponse          STATE  httpResponse
-        url                   STATE  url
-        connectionRequest     REQ    connection
-        connectionResponse    RESP   connection
-        connectionActual      STATE  connection
-        transferEncoding      STATE  transfer
-        totalPost             STATE  querylength
-        currentPost           STATE  queryoffset
-        totalSize             STATE  totalsize
-        currentSize           STATE  currentsize
-        proxyUsed             STATE  proxyUsed
-    } {
-        if {$origin eq {STATE}} {
-            if {[info exists state($name)]} {
-                dict set result $key $state($name)
-            } else {
-                # Should never come here
-                dict set result $key {}
-            }
-        } elseif {$origin eq {REQ}} {
-            dict set result $key [requestHeaderValue $token $name]
-        } elseif {$origin eq {RESP}} {
-            dict set result $key [responseHeaderValue $token $name]
-        } elseif {$origin eq {ERROR}} {
-            # Don't flood the dict with data.  The command ::http::error is
-            # available.
-            if {[info exists state(error)]} {
-                set msg [lindex $state(error) 0]
-            } else {
-                set msg {}
-            }
-            dict set result $key $msg
-        } else {
-            # Should never come here
-            dict set result $key {}
-        }
-    }
-    return $result
-}
-proc http::error {token} {
-    variable $token
-    upvar 0 $token state
-    if {[info exists state(error)]} {
-	return $state(error)
-    }
-    return
-}
-proc http::postError {token} {
-    variable $token
-    upvar 0 $token state
-    if {[info exists state(postErrorFull)]} {
-	return $state(postErrorFull)
-    }
-    return
-}
-
-# http::cleanup
-#
-#	Garbage collect the state associated with a transaction
-#
-# Arguments
-#	token	The token returned from http::geturl
-#
-# Side Effects
-#	Unsets the state array.
-
-proc http::cleanup {token} {
-    variable $token
-    upvar 0 $token state
-    if {[info commands ${token}--EventCoroutine] ne {}} {
-	rename ${token}--EventCoroutine {}
-    }
-    if {[info commands ${token}--SocketCoroutine] ne {}} {
-	rename ${token}--SocketCoroutine {}
-    }
-    if {[info exists state(after)]} {
-	after cancel $state(after)
-	unset state(after)
-    }
-    if {[info exists state(socketcoro)]} {
-        Log $token Cancel socket after-idle event (cleanup)
-        after cancel $state(socketcoro)
-        unset state(socketcoro)
-    }
-    if {[info exists state]} {
-	unset state
-    }
-    return
-}
-
-# http::Connect
-#
-#	This callback is made when an asynchronous connection completes.
-#
-# Arguments
-#	token	The token returned from http::geturl
-#
-# Side Effects
-#	Sets the status of the connection, which unblocks
-# 	the waiting geturl call
-
-proc http::Connect {token proto phost srvurl} {
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-
-    if {[catch {eof $state(sock)} tmp] || $tmp} {
-        set err "due to unexpected EOF"
-    } elseif {[set err [fconfigure $state(sock) -error]] ne ""} {
-        # set err is done in test
-    } else {
-        # All OK
-	set state(state) connecting
-	fileevent $state(sock) writable {}
-	::http::Connected $token $proto $phost $srvurl
-	return
-    }
-
-    # Error cases.
-	Log "WARNING - if testing, pay special attention to this\
-		case (GJ) which is seldom executed - token $token"
-	if {[info exists state(reusing)] && $state(reusing)} {
-	    # The socket was closed at the server end, and closed at
-	    # this end by http::CheckEof.
-	    if {[TestForReplay $token write $err b]} {
-		return
-	    }
-
-	    # else:
-	    # This is NOT a persistent socket that has been closed since its
-	    # last use.
-	    # If any other requests are in flight or pipelined/queued, they will
-	    # be discarded.
-	}
-	Finish $token "connect failed: $err"
-    return
-}
-
-# http::Write
-#
-#	Write POST query data to the socket
-#
-# Arguments
-#	token	The token for the connection
-#
-# Side Effects
-#	Write the socket and handle callbacks.
-
-proc http::Write {token} {
-    variable http
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    set sock $state(sock)
-
-    # Output a block.  Tcl will buffer this if the socket blocks
-    set done 0
-    if {[catch {
-	# Catch I/O errors on dead sockets
-
-	if {[info exists state(-query)]} {
-	    # Chop up large query strings so queryprogress callback can give
-	    # smooth feedback.
-	    if {    $state(queryoffset) + $state(-queryblocksize)
-		 >= $state(querylength)
-	    } {
-		# This will be the last puts for the request-body.
-		if {    (![catch {fileevent $sock readable} binding])
-		     && ($binding eq [list http::CheckEof $sock])
-		} {
-		    # Remove the "fileevent readable" binding of an idle
-		    # persistent socket to http::CheckEof.  We can no longer
-		    # treat bytes received as junk. The server might still time
-		    # out and half-close the socket if it has not yet received
-		    # the first "puts".
-		    fileevent $sock readable {}
-		}
-	    }
-	    puts -nonewline $sock \
-		[string range $state(-query) $state(queryoffset) \
-		     [expr {$state(queryoffset) + $state(-queryblocksize) - 1}]]
-	    incr state(queryoffset) $state(-queryblocksize)
-	    if {$state(queryoffset) >= $state(querylength)} {
-		set state(queryoffset) $state(querylength)
-		set done 1
-	    }
-	} else {
-	    # Copy blocks from the query channel
-
-	    set outStr [read $state(-querychannel) $state(-queryblocksize)]
-	    if {[eof $state(-querychannel)]} {
-		# This will be the last puts for the request-body.
-		if {    (![catch {fileevent $sock readable} binding])
-		     && ($binding eq [list http::CheckEof $sock])
-		} {
-		    # Remove the "fileevent readable" binding of an idle
-		    # persistent socket to http::CheckEof.  We can no longer
-		    # treat bytes received as junk. The server might still time
-		    # out and half-close the socket if it has not yet received
-		    # the first "puts".
-		    fileevent $sock readable {}
-		}
-	    }
-	    puts -nonewline $sock $outStr
-	    incr state(queryoffset) [string length $outStr]
-	    if {[eof $state(-querychannel)]} {
-		set done 1
-	    }
-	}
-    } err opts]} {
-	# Do not call Finish here, but instead let the read half of the socket
-	# process whatever server reply there is to get.
-	set state(posterror) $err
-	set info [dict get $opts -errorinfo]
-	set code [dict get $opts -code]
-	set state(postErrorFull) [list $err $info $code]
-	set done 1
-    }
-
-    if {$done} {
-	catch {flush $sock}
-	fileevent $sock writable {}
-	Log ^C$tk end sending request - token $token
-	# End of writing (POST method).  The request has been sent.
-
-	DoneRequest $token
-    }
-
-    # Callback to the client after we've completely handled everything.
-
-    if {[string length $state(-queryprogress)]} {
-	namespace eval :: $state(-queryprogress) \
-	    [list $token $state(querylength) $state(queryoffset)]
-    }
-    return
-}
-
-# http::Event
-#
-#	Handle input on the socket. This command is the core of
-#	the coroutine commands ${token}--EventCoroutine that are
-#	bound to "fileevent $sock readable" and process input.
-#
-# Arguments
-#	sock	The socket receiving input.
-#	token	The token returned from http::geturl
-#
-# Side Effects
-#	Read the socket and handle callbacks.
-
-proc http::Event {sock token} {
-    variable http
-    variable socketMapping
-    variable socketRdState
-    variable socketWrState
-    variable socketRdQueue
-    variable socketWrQueue
-    variable socketPhQueue
-    variable socketClosing
-    variable socketPlayCmd
-    variable socketCoEvent
-    variable socketProxyId
-
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    while 1 {
-	yield
-	##Log Event call - token $token
-
-	if {![info exists state]} {
-	    Log "Event $sock with invalid token '$token' - remote close?"
-	    if {!([catch {eof $sock} tmp] || $tmp)} {
-		if {[set d [read $sock]] ne ""} {
-		    Log "WARNING: additional data left on closed socket\
-			    - token $token"
-		} else {
-		}
-	    } else {
-	    }
-	    Log ^X$tk end of response (token error) - token $token
-	    CloseSocket $sock
-	    return
-	} else {
-	}
-	if {$state(state) eq "connecting"} {
-	    ##Log - connecting - token $token
-	    if {    $state(reusing)
-		 && $state(-pipeline)
-		 && ($state(-timeout) > 0)
-		 && (![info exists state(after)])
-	    } {
-		set state(after) [after $state(-timeout) \
-			[list http::reset $token timeout]]
-	    } else {
-	    }
-
-	    if {[catch {gets $sock state(http)} nsl]} {
-		Log "WARNING - if testing, pay special attention to this\
-			case (GK) which is seldom executed - token $token"
-		if {[info exists state(reusing)] && $state(reusing)} {
-		    # The socket was closed at the server end, and closed at
-		    # this end by http::CheckEof.
-
-		    if {[TestForReplay $token read $nsl c]} {
-			return
-		    } else {
-		    }
-		    # else:
-		    # This is NOT a persistent socket that has been closed since
-		    # its last use.
-		    # If any other requests are in flight or pipelined/queued,
-		    # they will be discarded.
-		} else {
-		    # https handshake errors come here, for
-		    # Tcl 8.7 with http::SecureProxyConnect.
-		    set msg [registerError $sock]
-		    registerError $sock {}
-		    if {$msg eq {}} {
-			set msg $nsl
-		    }
-		    Log ^X$tk end of response (error) - token $token
-		    Finish $token $msg
-		    return
-		}
-	    } elseif {$nsl >= 0} {
-		##Log - connecting 1 - token $token
-		set state(state) "header"
-	    } elseif {    ([catch {eof $sock} tmp] || $tmp)
-		       && [info exists state(reusing)]
-		       && $state(reusing)
-	    } {
-		# The socket was closed at the server end, and we didn't notice.
-		# This is the first read - where the closure is usually first
-		# detected.
-
-		if {[TestForReplay $token read {} d]} {
-		    return
-		} else {
-		}
-
-		# else:
-		# This is NOT a persistent socket that has been closed since its
-		# last use.
-		# If any other requests are in flight or pipelined/queued, they
-		# will be discarded.
-	    } else {
-	    }
-	} elseif {$state(state) eq "header"} {
-	    if {[catch {gets $sock line} nhl]} {
-		##Log header failed - token $token
-		Log ^X$tk end of response (error) - token $token
-		Finish $token $nhl
-		return
-	    } elseif {$nhl == 0} {
-		##Log header done - token $token
-		Log ^E$tk end of response headers - token $token
-		# We have now read all headers
-		# We ignore HTTP/1.1 100 Continue returns. RFC2616 sec 8.2.3
-		if {    ($state(http) == "")
-		     || ([regexp {^\S+\s(\d+)} $state(http) {} x] && $x == 100)
-		} {
-		    set state(state) "connecting"
-		    continue
-		    # This was a "return" in the pre-coroutine code.
-		} else {
-		}
-
-		# We have $state(http) so let's split it into its components.
-		if {[regexp {^HTTP/(\S+) ([0-9]{3}) (.*)$} $state(http) \
-			-> httpResponse responseCode reasonPhrase]
-		} {
-		    set state(httpResponse) $httpResponse
-		    set state(responseCode) $responseCode
-		    set state(reasonPhrase) $reasonPhrase
-		} else {
-		    set state(httpResponse) $state(http)
-		    set state(responseCode) $state(http)
-		    set state(reasonPhrase) $state(http)
-		}
-
-		if {    ([info exists state(connection)])
-		     && ([info exists socketMapping($state(socketinfo))])
-		     && ("keep-alive" in $state(connection))
-		     && ($state(-keepalive))
-		     && (!$state(reusing))
-		     && ($state(-pipeline))
-		} {
-		    # Response headers received for first request on a
-		    # persistent socket.  Now ready for pipelined writes (if
-		    # any).
-		    # Previous value is $token. It cannot be "pending".
-		    set socketWrState($state(socketinfo)) Wready
-		    http::NextPipelinedWrite $token
-		} else {
-		}
-
-		# Once a "close" has been signaled, the client MUST NOT send any
-		# more requests on that connection.
-		#
-		# If either the client or the server sends the "close" token in
-		# the Connection header, that request becomes the last one for
-		# the connection.
-
-		if {    ([info exists state(connection)])
-		     && ([info exists socketMapping($state(socketinfo))])
-		     && ("close" in $state(connection))
-		     && ($state(-keepalive))
-		} {
-		    # The server warns that it will close the socket after this
-		    # response.
-		    ##Log WARNING - socket will close after response for $token
-		    # Prepare data for a call to ReplayIfClose.
-		    Log $token socket will close after this transaction
-		    # 1. Cancel socket-assignment coro events that have not yet
-		    # launched, and add the tokens to the write queue.
-		    if {[info exists socketCoEvent($state(socketinfo))]} {
-			foreach {tok can} $socketCoEvent($state(socketinfo)) {
-			    lappend socketWrQueue($state(socketinfo)) $tok
-			    unset -nocomplain ${tok}(socketcoro)
-			    after cancel $can
-			    Log $tok Cancel socket after-idle event (Event)
-			    Log Move $tok from socketCoEvent to socketWrQueue and cancel its after idle coro
-			}
-			set socketCoEvent($state(socketinfo)) {}
-		    } else {
-		    }
-
-		    if {    ($socketRdQueue($state(socketinfo)) ne {})
-			 || ($socketWrQueue($state(socketinfo)) ne {})
-			 || ($socketWrState($state(socketinfo)) ni
-						[list Wready peNding $token])
-		    } {
-			set InFlightW $socketWrState($state(socketinfo))
-			if {$InFlightW in [list Wready peNding $token]} {
-			    set InFlightW Wready
-			} else {
-			    set msg "token ${InFlightW} is InFlightW"
-			    ##Log $msg - token $token
-			}
-			set socketPlayCmd($state(socketinfo)) \
-				[list ReplayIfClose $InFlightW \
-				$socketRdQueue($state(socketinfo)) \
-				$socketWrQueue($state(socketinfo))]
-
-			# - All tokens are preserved for re-use by ReplayCore.
-			# - Queues are preserved in case of Finish with error,
-			#   but are not used for anything else because
-			#   socketClosing(*) is set below.
-			# - Cancel the state(after) timeout events.
-			foreach tokenVal $socketRdQueue($state(socketinfo)) {
-			    if {[info exists ${tokenVal}(after)]} {
-				after cancel [set ${tokenVal}(after)]
-				unset ${tokenVal}(after)
-			    } else {
-			    }
-			    # Tokens in the read queue have no (socketcoro) to
-			    # cancel.
-			}
-		    } else {
-			set socketPlayCmd($state(socketinfo)) \
-				{ReplayIfClose Wready {} {}}
-		    }
-
-		    # Do not allow further connections on this socket (but
-		    # geturl can add new requests to the replay).
-		    set socketClosing($state(socketinfo)) 1
-		} else {
-		}
-
-		set state(state) body
-
-		# According to
-		# https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Connection
-		# any comma-separated "Connection:" list implies keep-alive, but I
-		# don't see this in the RFC so we'll play safe and
-		# scan any list for "close".
-		# Done here to support combining duplicate header field's values.
-		if {   [info exists state(connection)]
-		    && ("close" ni $state(connection))
-		    && ("keep-alive" ni $state(connection))
-		} {
-		    lappend state(connection) "keep-alive"
-		} else {
-		}
-
-		# If doing a HEAD, then we won't get any body
-		if {$state(-validate)} {
-		    Log ^F$tk end of response for HEAD request - token $token
-		    set state(state) complete
-		    Eot $token
-		    return
-		} elseif {
-			($state(method) eq {CONNECT})
-		     && [string is integer -strict $state(responseCode)]
-		     && ($state(responseCode) >= 200)
-		     && ($state(responseCode) < 300)
-		} {
-		    # A successful CONNECT response has no body.
-		    # (An unsuccessful CONNECT has headers and body.)
-		    # The code below is abstracted from Eot/Finish, but
-		    # keeps the socket open.
-		    catch {fileevent $state(sock) readable {}}
-		    catch {fileevent $state(sock) writable {}}
-		    set state(state) complete
-		    set state(status) ok
-		    if {[info commands ${token}--EventCoroutine] ne {}} {
-			rename ${token}--EventCoroutine {}
-		    }
-		    if {[info commands ${token}--SocketCoroutine] ne {}} {
-			rename ${token}--SocketCoroutine {}
-		    }
-		    if {[info exists state(socketcoro)]} {
-		        Log $token Cancel socket after-idle event (Finish)
-		        after cancel $state(socketcoro)
-		        unset state(socketcoro)
-		    }
-		    if {[info exists state(after)]} {
-			after cancel $state(after)
-			unset state(after)
-		    }
-		    if {    [info exists state(-command)]
-			 && (![info exists state(done-command-cb)])
-		    } {
-			set state(done-command-cb) yes
-			if {[catch {namespace eval :: $state(-command) $token} err]} {
-			    set state(error) [list $err $errorInfo $errorCode]
-			    set state(status) error
-			}
-		    }
-		    return
-		} else {
-		}
-
-		# - For non-chunked transfer we may have no body - in this case
-		#   we may get no further file event if the connection doesn't
-		#   close and no more data is sent. We can tell and must finish
-		#   up now - not later - the alternative would be to wait until
-		#   the server times out.
-		# - In this case, the server has NOT told the client it will
-		#   close the connection, AND it has NOT indicated the resource
-		#   length EITHER by setting the Content-Length (totalsize) OR
-		#   by using chunked Transfer-Encoding.
-		# - Do not worry here about the case (Connection: close) because
-		#   the server should close the connection.
-		# - IF (NOT Connection: close) AND (NOT chunked encoding) AND
-		#      (totalsize == 0).
-
-		if {    (!(    [info exists state(connection)]
-			    && ("close" in $state(connection))
-			  )
-			)
-		     && ($state(transfer) eq {})
-		     && ($state(totalsize) == 0)
-		} {
-		    set msg {body size is 0 and no events likely - complete}
-		    Log "$msg - token $token"
-		    set msg {(length unknown, set to 0)}
-		    Log ^F$tk end of response body {*}$msg - token $token
-		    set state(state) complete
-		    Eot $token
-		    return
-		} else {
-		}
-
-		# We have to use binary translation to count bytes properly.
-		lassign [fconfigure $sock -translation] trRead trWrite
-		fconfigure $sock -translation [list binary $trWrite]
-
-		if {
-		    $state(-binary) || [IsBinaryContentType $state(type)]
-		} {
-		    # Turn off conversions for non-text data.
-		    set state(binary) 1
-		} else {
-		}
-		if {[info exists state(-channel)]} {
-		    if {$state(binary) || [llength [ContentEncoding $token]]} {
-			fconfigure $state(-channel) -translation binary
-		    } else {
-		    }
-		    if {![info exists state(-handler)]} {
-			# Initiate a sequence of background fcopies.
-			fileevent $sock readable {}
-			rename ${token}--EventCoroutine {}
-			CopyStart $sock $token
-			return
-		    } else {
-		    }
-		} else {
-		}
-	    } elseif {$nhl > 0} {
-		# Process header lines.
-		##Log header - token $token - $line
-		if {[regexp -nocase {^([^:]+):(.+)$} $line x key value]} {
-		    set key [string tolower $key]
-		    switch -- $key {
-			content-type {
-			    set state(type) [string trim [string tolower $value]]
-			    # Grab the optional charset information.
-			    if {[regexp -nocase \
-				    {charset\s*=\s*\"((?:[^""]|\\\")*)\"} \
-				    $state(type) -> cs]} {
-				set state(charset) [string map {{\"} \"} $cs]
-			    } else {
-				regexp -nocase {charset\s*=\s*(\S+?);?} \
-					$state(type) -> state(charset)
-			    }
-			}
-			content-length {
-			    set state(totalsize) [string trim $value]
-			}
-			content-encoding {
-			    set state(coding) [string trim $value]
-			}
-			transfer-encoding {
-			    set state(transfer) \
-				    [string trim [string tolower $value]]
-			}
-			proxy-connection -
-			connection {
-			    # RFC 7230 Section 6.1 states that a comma-separated
-			    # list is an acceptable value.
-			    if {![info exists state(connectionRespFlag)]} {
-				# This is the first "Connection" response header.
-				# Scrub the earlier value set by iniitialisation.
-				set state(connectionRespFlag) {}
-				set state(connection) {}
-			    }
-			    foreach el [SplitCommaSeparatedFieldValue $value] {
-				lappend state(connection) [string tolower $el]
-			    }
-			}
-			upgrade {
-			    set state(upgrade) [string trim $value]
-			}
-			set-cookie {
-			    if {$http(-cookiejar) ne ""} {
-				ParseCookie $token [string trim $value]
-			    } else {
-			    }
-			}
-		    }
-		    lappend state(meta) $key [string trim $value]
-		} else {
-		}
-	    } else {
-	    }
-	} else {
-	    # Now reading body
-	    ##Log body - token $token
-	    if {[catch {
-		if {[info exists state(-handler)]} {
-		    set n [namespace eval :: $state(-handler) [list $sock $token]]
-		    ##Log handler $n - token $token
-		    # N.B. the protocol has been set to 1.0 because the -handler
-		    # logic is not expected to handle chunked encoding.
-		    # FIXME Allow -handler with 1.1 on dechunked stacked chan.
-		    if {$state(totalsize) == 0} {
-			# We know the transfer is complete only when the server
-			# closes the connection - i.e. eof is not an error.
-			set state(state) complete
-		    } else {
-		    }
-		    if {![string is integer -strict $n]} {
-			if 1 {
-			    # Do not tolerate bad -handler - fail with error
-			    # status.
-			    set msg {the -handler command for http::geturl must\
-				    return an integer (the number of bytes\
-				    read)}
-			    Log ^X$tk end of response (handler error) -\
-				    token $token
-			    Eot $token $msg
-			} else {
-			    # Tolerate the bad -handler, and continue.  The
-			    # penalty:
-			    # (a) Because the handler returns nonsense, we know
-			    #     the transfer is complete only when the server
-			    #     closes the connection - i.e. eof is not an
-			    #     error.
-			    # (b) http::size will not be accurate.
-			    # (c) The transaction is already downgraded to 1.0
-			    #     to avoid chunked transfer encoding.  It MUST
-			    #     also be forced to "Connection: close" or the
-			    #     HTTP/1.0 equivalent; or it MUST fail (as
-			    #     above) if the server sends
-			    #     "Connection: keep-alive" or the HTTP/1.0
-			    #     equivalent.
-			    set n 0
-			    set state(state) complete
-			}
-		    } else {
-		    }
-		} elseif {[info exists state(transfer_final)]} {
-		    # This code forgives EOF in place of the final CRLF.
-		    set line [GetTextLine $sock]
-		    set n [string length $line]
-		    set state(state) complete
-		    if {$n > 0} {
-			# - HTTP trailers (late response headers) are permitted
-			#   by Chunked Transfer-Encoding, and can be safely
-			#   ignored.
-			# - Do not count these bytes in the total received for
-			#   the response body.
-			Log "trailer of $n bytes after final chunk -\
-				token $token"
-			append state(transfer_final) $line
-			set n 0
-		    } else {
-			Log ^F$tk end of response body (chunked) - token $token
-			Log "final chunk part - token $token"
-			Eot $token
-		    }
-		} elseif {    [info exists state(transfer)]
-			   && ($state(transfer) eq "chunked")
-		} {
-		    ##Log chunked - token $token
-		    set size 0
-		    set hexLenChunk [GetTextLine $sock]
-		    #set ntl [string length $hexLenChunk]
-		    if {[string trim $hexLenChunk] ne ""} {
-			scan $hexLenChunk %x size
-			if {$size != 0} {
-			    ##Log chunk-measure $size - token $token
-			    set chunk [BlockingRead $sock $size]
-			    set n [string length $chunk]
-			    if {$n >= 0} {
-				append state(body) $chunk
-				incr state(log_size) [string length $chunk]
-				##Log chunk $n cumul $state(log_size) -\
-					token $token
-			    } else {
-			    }
-			    if {$size != [string length $chunk]} {
-				Log "WARNING: mis-sized chunk:\
-				    was [string length $chunk], should be\
-				    $size - token $token"
-				set n 0
-				set state(connection) close
-				Log ^X$tk end of response (chunk error) \
-					- token $token
-				set msg {error in chunked encoding - fetch\
-					terminated}
-				Eot $token $msg
-			    } else {
-			    }
-			    # CRLF that follows chunk.
-			    # If eof, this is handled at the end of this proc.
-			    GetTextLine $sock
-			} else {
-			    set n 0
-			    set state(transfer_final) {}
-			}
-		    } else {
-			# Line expected to hold chunk length is empty, or eof.
-			##Log bad-chunk-measure - token $token
-			set n 0
-			set state(connection) close
-			Log ^X$tk end of response (chunk error) - token $token
-			Eot $token {error in chunked encoding -\
-				fetch terminated}
-		    }
-		} else {
-		    ##Log unchunked - token $token
-		    if {$state(totalsize) == 0} {
-			# We know the transfer is complete only when the server
-			# closes the connection.
-			set state(state) complete
-			set reqSize $state(-blocksize)
-		    } else {
-			# Ask for the whole of the unserved response-body.
-			# This works around a problem with a tls::socket - for
-			# https in keep-alive mode, and a request for
-			# $state(-blocksize) bytes, the last part of the
-			# resource does not get read until the server times out.
-			set reqSize [expr {  $state(totalsize)
-					   - $state(currentsize)}]
-
-			# The workaround fails if reqSize is
-			# capped at $state(-blocksize).
-			# set reqSize [expr {min($reqSize, $state(-blocksize))}]
-		    }
-		    set c $state(currentsize)
-		    set t $state(totalsize)
-		    ##Log non-chunk currentsize $c of totalsize $t -\
-			    token $token
-		    set block [read $sock $reqSize]
-		    set n [string length $block]
-		    if {$n >= 0} {
-			append state(body) $block
-			##Log non-chunk [string length $state(body)] -\
-				token $token
-		    } else {
-		    }
-		}
-		# This calculation uses n from the -handler, chunked, or
-		# unchunked case as appropriate.
-		if {[info exists state]} {
-		    if {$n >= 0} {
-			incr state(currentsize) $n
-			set c $state(currentsize)
-			set t $state(totalsize)
-			##Log another $n currentsize $c totalsize $t -\
-				token $token
-		    } else {
-		    }
-		    # If Content-Length - check for end of data.
-		    if {
-			   ($state(totalsize) > 0)
-			&& ($state(currentsize) >= $state(totalsize))
-		    } {
-			Log ^F$tk end of response body (unchunked) -\
-				token $token
-			set state(state) complete
-			Eot $token
-		    } else {
-		    }
-		} else {
-		}
-	    } err]} {
-		Log ^X$tk end of response (error ${err}) - token $token
-		Finish $token $err
-		return
-	    } else {
-		if {[info exists state(-progress)]} {
-		    namespace eval :: $state(-progress) \
-			[list $token $state(totalsize) $state(currentsize)]
-		} else {
-		}
-	    }
-	}
-
-	# catch as an Eot above may have closed the socket already
-	# $state(state) may be connecting, header, body, or complete
-	if {(![catch {eof $sock} eof]) && $eof} {
-	    # [eof sock] succeeded and the result was 1
-	    ##Log eof - token $token
-	    if {[info exists $token]} {
-		set state(connection) close
-		if {$state(state) eq "complete"} {
-		    # This includes all cases in which the transaction
-		    # can be completed by eof.
-		    # The value "complete" is set only in http::Event, and it is
-		    # used only in the test above.
-		    Log ^F$tk end of response body (unchunked, eof) -\
-			    token $token
-		    Eot $token
-		} else {
-		    # Premature eof.
-		    Log ^X$tk end of response (unexpected eof) - token $token
-		    Eot $token eof
-		}
-	    } else {
-		# open connection closed on a token that has been cleaned up.
-		Log ^X$tk end of response (token error) - token $token
-		CloseSocket $sock
-	    }
-	} else {
-	    # EITHER [eof sock] failed - presumed done by Eot
-	    # OR     [eof sock] succeeded and the result was 0
-	}
-    }
-    return
-}
-
-# http::TestForReplay
-#
-#	Command called if eof is discovered when a socket is first used for a
-#	new transaction.  Typically this occurs if a persistent socket is used
-#	after a period of idleness and the server has half-closed the socket.
-#
-# token  - the connection token returned by http::geturl
-# doing  - "read" or "write"
-# err    - error message, if any
-# caller - code to identify the caller - used only in logging
-#
-# Return Value: boolean, true iff the command calls http::ReplayIfDead.
-
-proc http::TestForReplay {token doing err caller} {
-    variable http
-    variable $token
-    upvar 0 $token state
-    set tk [namespace tail $token]
-    if {$doing eq "read"} {
-	set code Q
-	set action response
-	set ing reading
-    } else {
-	set code P
-	set action request
-	set ing writing
-    }
-
-    if {$err eq {}} {
-	set err "detect eof when $ing (server timed out?)"
-    }
-
-    if {$state(method) eq "POST" && !$http(-repost)} {
-	# No Replay.
-	# The present transaction will end when Finish is called.
-	# That call to Finish will abort any other transactions
-	# currently in the write queue.
-	# For calls from http::Event this occurs when execution
-	# reaches the code block at the end of that proc.
-	set msg {no retry for POST with http::config -repost 0}
-	Log reusing socket failed "($caller)" - $msg - token $token
-	Log error - $err - token $token
-	Log ^X$tk end of $action (error) - token $token
-	return 0
-    } else {
-	# Replay.
-	set msg {try a new socket}
-	Log reusing socket failed "($caller)" - $msg - token $token
-	Log error - $err - token $token
-	Log ^$code$tk Any unfinished (incl this one) failed - token $token
-	ReplayIfDead $token $doing
-	return 1
-    }
-}
-
-# http::IsBinaryContentType --
-#
-#	Determine if the content-type means that we should definitely transfer
-#	the data as binary. [Bug 838e99a76d]
-#
-# Arguments
-#	type	The content-type of the data.
-#
-# Results:
-#	Boolean, true if we definitely should be binary.
-
-proc http::IsBinaryContentType {type} {
-    lassign [split [string tolower $type] "/;"] major minor
-    if {$major eq "text"} {
-	return false
-    }
-    # There's a bunch of XML-as-application-format things about. See RFC 3023
-    # and so on.
-    if {$major eq "application"} {
-	set minor [string trimright $minor]
-	if {$minor in {"json" "xml" "xml-external-parsed-entity" "xml-dtd"}} {
-	    return false
-	}
-    }
-    # Not just application/foobar+xml but also image/svg+xml, so let us not
-    # restrict things for now...
-    if {[string match "*+xml" $minor]} {
-	return false
-    }
-    return true
-}
-
-proc http::ParseCookie {token value} {
-    variable http
-    variable CookieRE
-    variable $token
-    upvar 0 $token state
-
-    if {![regexp $CookieRE $value -> cookiename cookieval opts]} {
-	# Bad cookie! No biscuit!
-	return
-    }
-
-    # Convert the options into a list before feeding into the cookie store;
-    # ugly, but quite easy.
-    set realopts {hostonly 1 path / secure 0 httponly 0}
-    dict set realopts origin $state(host)
-    dict set realopts domain $state(host)
-    foreach option [split [regsub -all {;\s+} $opts \u0000] \u0000] {
-	regexp {^(.*?)(?:=(.*))?$} $option -> optname optval
-	switch -exact -- [string tolower $optname] {
-	    expires {
-		if {[catch {
-		    #Sun, 06 Nov 1994 08:49:37 GMT
-		    dict set realopts expires \
-			[clock scan $optval -format "%a, %d %b %Y %T %Z"]
-		}] && [catch {
-		    # Google does this one
-		    #Mon, 01-Jan-1990 00:00:00 GMT
-		    dict set realopts expires \
-			[clock scan $optval -format "%a, %d-%b-%Y %T %Z"]
-		}] && [catch {
-		    # This is in the RFC, but it is also in the original
-		    # Netscape cookie spec, now online at:
-		    # <URL:http://curl.haxx.se/rfc/cookie_spec.html>
-		    #Sunday, 06-Nov-94 08:49:37 GMT
-		    dict set realopts expires \
-			[clock scan $optval -format "%A, %d-%b-%y %T %Z"]
-		}]} {catch {
-		    #Sun Nov  6 08:49:37 1994
-		    dict set realopts expires \
-			[clock scan $optval -gmt 1 -format "%a %b %d %T %Y"]
-		}}
-	    }
-	    max-age {
-		# Normalize
-		if {[string is integer -strict $optval]} {
-		    dict set realopts expires [expr {[clock seconds] + $optval}]
-		}
-	    }
-	    domain {
-		# From the domain-matches definition [RFC 2109, section 2]:
-		#   Host A's name domain-matches host B's if [...]
-		#	A is a FQDN string and has the form NB, where N is a
-		#	non-empty name string, B has the form .B', and B' is a
-		#	FQDN string. (So, x.y.com domain-matches .y.com but
-		#	not y.com.)
-		if {$optval ne "" && ![string match *. $optval]} {
-		    dict set realopts domain [string trimleft $optval "."]
-		    dict set realopts hostonly [expr {
-			! [string match .* $optval]
-		    }]
-		}
-	    }
-	    path {
-		if {[string match /* $optval]} {
-		    dict set realopts path $optval
-		}
-	    }
-	    secure - httponly {
-		dict set realopts [string tolower $optname] 1
-	    }
-	}
-    }
-    dict set realopts key $cookiename
-    dict set realopts value $cookieval
-    {*}$http(-cookiejar) storeCookie $realopts
-}
-
-# http::GetTextLine --
-#
-#	Get one line with the stream in crlf mode.
-#	Used if Transfer-Encoding is chunked, to read the line that
-#	reports the size of the following chunk.
-#	Empty line is not distinguished from eof.  The caller must
-#	be able to handle this.
-#
-# Arguments
-#	sock	The socket receiving input.
-#
-# Results:
-#	The line of text, without trailing newline
-
-proc http::GetTextLine {sock} {
-    set tr [fconfigure $sock -translation]
-    lassign $tr trRead trWrite
-    fconfigure $sock -translation [list crlf $trWrite]
-    set r [BlockingGets $sock]
-    fconfigure $sock -translation $tr
-    return $r
-}
-
-# http::BlockingRead
-#
-#	Replacement for a blocking read.
-#	The caller must be a coroutine.
-#	Used when we expect to read a chunked-encoding
-#	chunk of known size.
-
-proc http::BlockingRead {sock size} {
-    if {$size < 1} {
-	return
-    }
-    set result {}
-    while 1 {
-	set need [expr {$size - [string length $result]}]
-	set block [read $sock $need]
-	set eof [expr {[catch {eof $sock} tmp] || $tmp}]
-	append result $block
-	if {[string length $result] >= $size || $eof} {
-	    return $result
-	} else {
-	    yield
-	}
-    }
-}
-
-# http::BlockingGets
-#
-#	Replacement for a blocking gets.
-#	The caller must be a coroutine.
-#	Empty line is not distinguished from eof.  The caller must
-#	be able to handle this.
-
-proc http::BlockingGets {sock} {
-    while 1 {
-	set count [gets $sock line]
-	set eof [expr {[catch {eof $sock} tmp] || $tmp}]
-	if {$count >= 0 || $eof} {
-	    return $line
-	} else {
-	    yield
-	}
-    }
-}
-
-# http::CopyStart
-#
-#	Error handling wrapper around fcopy
-#
-# Arguments
-#	sock	The socket to copy from
-#	token	The token returned from http::geturl
-#
-# Side Effects
-#	This closes the connection upon error
-
-proc http::CopyStart {sock token {initial 1}} {
-    upvar 0 $token state
-    if {[info exists state(transfer)] && $state(transfer) eq "chunked"} {
-	foreach coding [ContentEncoding $token] {
-	    if {$coding eq {deflateX}} {
-		# Use the standards-compliant choice.
-		set coding2 decompress
-	    } else {
-		set coding2 $coding
-	    }
-	    lappend state(zlib) [zlib stream $coding2]
-	}
-	MakeTransformationChunked $sock [namespace code [list CopyChunk $token]]
-    } else {
-	if {$initial} {
-	    foreach coding [ContentEncoding $token] {
-		if {$coding eq {deflateX}} {
-		    # Use the standards-compliant choice.
-		    set coding2 decompress
-		} else {
-		    set coding2 $coding
-		}
-		zlib push $coding2 $sock
-	    }
-	}
-	if {[catch {
-	    # FIXME Keep-Alive on https tls::socket with unchunked transfer
-	    # hangs until the server times out. A workaround is possible, as for
-	    # the case without -channel, but it does not use the neat "fcopy"
-	    # solution.
-	    fcopy $sock $state(-channel) -size $state(-blocksize) -command \
-		[list http::CopyDone $token]
-	} err]} {
-	    Finish $token $err
-	}
-    }
-    return
-}
-
-proc http::CopyChunk {token chunk} {
-    upvar 0 $token state
-    if {[set count [string length $chunk]]} {
-	incr state(currentsize) $count
-	if {[info exists state(zlib)]} {
-	    foreach stream $state(zlib) {
-		set chunk [$stream add $chunk]
-	    }
-	}
-	puts -nonewline $state(-channel) $chunk
-	if {[info exists state(-progress)]} {
-	    namespace eval :: [linsert $state(-progress) end \
-		      $token $state(totalsize) $state(currentsize)]
-	}
-    } else {
-	Log "CopyChunk Finish - token $token"
-	if {[info exists state(zlib)]} {
-	    set excess ""
-	    foreach stream $state(zlib) {
-		catch {
-		    $stream put -finalize $excess
-		    set excess ""
-		    set overflood ""
-		    while {[set overflood [$stream get]] ne ""} { append excess $overflood }
-		}
-	    }
-	    puts -nonewline $state(-channel) $excess
-	    foreach stream $state(zlib) { $stream close }
-	    unset state(zlib)
-	}
-	Eot $token ;# FIX ME: pipelining.
-    }
-    return
-}
-
-# http::CopyDone
-#
-#	fcopy completion callback
-#
-# Arguments
-#	token	The token returned from http::geturl
-#	count	The amount transferred
-#
-# Side Effects
-#	Invokes callbacks
-
-proc http::CopyDone {token count {error {}}} {
-    variable $token
-    upvar 0 $token state
-    set sock $state(sock)
-    incr state(currentsize) $count
-    if {[info exists state(-progress)]} {
-	namespace eval :: $state(-progress) \
-	    [list $token $state(totalsize) $state(currentsize)]
-    }
-    # At this point the token may have been reset.
-    if {[string length $error]} {
-	Finish $token $error
-    } elseif {[catch {eof $sock} iseof] || $iseof} {
-	Eot $token
-    } else {
-	CopyStart $sock $token 0
-    }
-    return
-}
-
-# http::Eot
-#
-#	Called when either:
-#	a. An eof condition is detected on the socket.
-#	b. The client decides that the response is complete.
-#	c. The client detects an inconsistency and aborts the transaction.
-#
-#	Does:
-#	1. Set state(status)
-#	2. Reverse any Content-Encoding
-#	3. Convert charset encoding and line ends if necessary
-#	4. Call http::Finish
-#
-# Arguments
-#	token	The token returned from http::geturl
-#	force	(previously) optional, has no effect
-#	reason	- "eof" means premature EOF (not EOF as the natural end of
-#		  the response)
-#		- "" means completion of response, with or without EOF
-#		- anything else describes an error condition other than
-#		  premature EOF.
-#
-# Side Effects
-#	Clean up the socket
-
-proc http::Eot {token {reason {}}} {
-    variable $token
-    upvar 0 $token state
-    if {$reason eq "eof"} {
-	# Premature eof.
-	set state(status) eof
-	set reason {}
-    } elseif {$reason ne ""} {
-	# Abort the transaction.
-	set state(status) $reason
-    } else {
-	# The response is complete.
-	set state(status) ok
-    }
-
-    if {[string length $state(body)] > 0} {
-	if {[catch {
-	    foreach coding [ContentEncoding $token] {
-		if {$coding eq {deflateX}} {
-		    # First try the standards-compliant choice.
-		    set coding2 decompress
-		    if {[catch {zlib $coding2 $state(body)} result]} {
-			# If that fails, try the MS non-compliant choice.
-			set coding2 inflate
-			set state(body) [zlib $coding2 $state(body)]
-		    } else {
-			# error {failed at standards-compliant deflate}
-			set state(body) $result
-		    }
-		} else {
-		    set state(body) [zlib $coding $state(body)]
-		}
-	    }
-	} err]} {
-	    Log "error doing decompression for token $token: $err"
-	    Finish $token $err
-	    return
-	}
-
-	if {!$state(binary)} {
-	    # If we are getting text, set the incoming channel's encoding
-	    # correctly.  iso8859-1 is the RFC default, but this could be any
-	    # IANA charset.  However, we only know how to convert what we have
-	    # encodings for.
-
-	    set enc [CharsetToEncoding $state(charset)]
-	    if {$enc ne "binary"} {
-		if {[package vsatisfies [package provide Tcl] 9.0-]} {
-		    set state(body) [encoding convertfrom -profile tcl8 $enc $state(body)]
-		} else {
-		    set state(body) [encoding convertfrom $enc $state(body)]
-		}
-	    }
-
-	    # Translate text line endings.
-	    set state(body) [string map {\r\n \n \r \n} $state(body)]
-	}
-	if {[info exists state(-guesstype)] && $state(-guesstype)} {
-	    GuessType $token
-	}
-    }
-    Finish $token $reason
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::GuessType
-# ------------------------------------------------------------------------------
-# Command to attempt limited analysis of a resource with undetermined
-# Content-Type, i.e. "application/octet-stream".  This value can be set for two
-# reasons:
-# (a) by the server, in a Content-Type header
-# (b) by http::geturl, as the default value if the server does not supply a
-#     Content-Type header.
-#
-# This command converts a resource if:
-# (1) it has type application/octet-stream
-# (2) it begins with an XML declaration "<?xml name="value" ... >?"
-# (3) one tag is named "encoding" and has a recognised value; or no "encoding"
-#     tag exists (defaulting to utf-8)
-#
-# RFC 9110 Sec. 8.3 states:
-# "If a Content-Type header field is not present, the recipient MAY either
-# assume a media type of "application/octet-stream" ([RFC2046], Section 4.5.1)
-# or examine the data to determine its type."
-#
-# The RFC goes on to describe the pitfalls of "MIME sniffing", including
-# possible security risks.
-#
-# Arguments:
-# token       - connection token
-#
-# Return Value: (boolean) true iff a change has been made
-# ------------------------------------------------------------------------------
-
-proc http::GuessType {token} {
-    variable $token
-    upvar 0 $token state
-
-    if {$state(type) ne {application/octet-stream}} {
-        return 0
-    }
-
-    set body $state(body)
-    # e.g. {<?xml version="1.0" encoding="utf-8"?> ...}
-
-    if {![regexp -nocase -- {^<[?]xml[[:space:]][^>?]*[?]>} $body match]} {
-        return 0
-    }
-    # e.g. {<?xml version="1.0" encoding="utf-8"?>}
-
-    set contents [regsub -- {[[:space:]]+} $match { }]
-    set contents [string range [string tolower $contents] 6 end-2]
-    # e.g. {version="1.0" encoding="utf-8"}
-    # without excess whitespace or upper-case letters
-
-    if {![regexp -- {^([^=" ]+="[^"]+" )+$} "$contents "]} {
-        return 0
-    }
-    # The application/xml default encoding:
-    set res utf-8
-
-    set tagList [regexp -all -inline -- {[^=" ]+="[^"]+"} $contents]
-    foreach tag $tagList {
-        regexp -- {([^=" ]+)="([^"]+)"} $tag -> name value
-        if {$name eq {encoding}} {
-            set res $value
-        }
-    }
-    set enc [CharsetToEncoding $res]
-    if {$enc eq "binary"} {
-        return 0
-    }
-    if {[package vsatisfies [package provide Tcl] 9.0-]} {
-	set state(body) [encoding convertfrom -profile tcl8 $enc $state(body)]
-    } else {
-	set state(body) [encoding convertfrom $enc $state(body)]
-    }
-    set state(body) [string map {\r\n \n \r \n} $state(body)]
-    set state(type) application/xml
-    set state(binary) 0
-    set state(charset) $res
-    return 1
-}
-
-
-# http::wait --
-#
-#	See documentation for details.
-#
-# Arguments:
-#	token	Connection token.
-#
-# Results:
-#	The status after the wait.
-
-proc http::wait {token} {
-    variable $token
-    upvar 0 $token state
-
-    if {![info exists state(status)] || $state(status) eq ""} {
-	# We must wait on the original variable name, not the upvar alias
-	vwait ${token}(status)
-    }
-
-    return [status $token]
-}
-
-# http::formatQuery --
-#
-#	See documentation for details.  Call http::formatQuery with an even
-#	number of arguments, where the first is a name, the second is a value,
-#	the third is another name, and so on.
-#
-# Arguments:
-#	args	A list of name-value pairs.
-#
-# Results:
-#	TODO
-
-proc http::formatQuery {args} {
-    if {[llength $args] % 2} {
-        return \
-            -code error \
-            -errorcode [list HTTP BADARGCNT $args] \
-            {Incorrect number of arguments, must be an even number.}
-    }
-    set result ""
-    set sep ""
-    foreach i $args {
-	append result $sep [quoteString $i]
-	if {$sep eq "="} {
-	    set sep &
-	} else {
-	    set sep =
-	}
-    }
-    return $result
-}
-
-# http::quoteString --
-#
-#	Do x-www-urlencoded character mapping
-#
-# Arguments:
-#	string	The string the needs to be encoded
-#
-# Results:
-#       The encoded string
-
-proc http::quoteString {string} {
-    variable http
-    variable formMap
-
-    # The spec says: "non-alphanumeric characters are replaced by '%HH'". Use
-    # a pre-computed map and [string map] to do the conversion (much faster
-    # than [regsub]/[subst]). [Bug 1020491]
-
-    if {[package vsatisfies [package provide Tcl] 9.0-]} {
-	set string [encoding convertto -profile tcl8 $http(-urlencoding) $string]
-    } else {
-	set string [encoding convertto $http(-urlencoding) $string]
-    }
-    return [string map $formMap $string]
-}
-
-# http::ProxyRequired --
-#	Default proxy filter.
-#
-# Arguments:
-#	host	The destination host
-#
-# Results:
-#       The current proxy settings
-
-proc http::ProxyRequired {host} {
-    variable http
-    if {(![info exists http(-proxyhost)]) || ($http(-proxyhost) eq {})} {
-        return
-    }
-    if {![info exists http(-proxyport)] || ($http(-proxyport) eq {})} {
-	set port 8080
-    } else {
-	set port $http(-proxyport)
-    }
-
-    # Simple test (cf. autoproxy) for hosts that must be accessed directly,
-    # not through the proxy server.
-    foreach domain $http(-proxynot) {
-        if {[string match -nocase $domain $host]} {
-            return {}
-        }
-    }
-    return [list $http(-proxyhost) $port]
-}
-
-# http::CharsetToEncoding --
-#
-#	Tries to map a given IANA charset to a tcl encoding.  If no encoding
-#	can be found, returns binary.
-#
-
-proc http::CharsetToEncoding {charset} {
-    variable encodings
-
-    set charset [string tolower $charset]
-    if {[regexp {iso-?8859-([0-9]+)} $charset -> num]} {
-	set encoding "iso8859-$num"
-    } elseif {[regexp {iso-?2022-(jp|kr)} $charset -> ext]} {
-	set encoding "iso2022-$ext"
-    } elseif {[regexp {shift[-_]?jis} $charset]} {
-	set encoding "shiftjis"
-    } elseif {[regexp {(?:windows|cp)-?([0-9]+)} $charset -> num]} {
-	set encoding "cp$num"
-    } elseif {$charset eq "us-ascii"} {
-	set encoding "ascii"
-    } elseif {[regexp {(?:iso-?)?lat(?:in)?-?([0-9]+)} $charset -> num]} {
-	switch -- $num {
-	    5 {set encoding "iso8859-9"}
-	    1 - 2 - 3 {
-		set encoding "iso8859-$num"
-	    }
-	    default {
-		set encoding "binary"
-	    }
-	}
-    } else {
-	# other charset, like euc-xx, utf-8,...  may directly map to encoding
-	set encoding $charset
-    }
-    set idx [lsearch -exact $encodings $encoding]
-    if {$idx >= 0} {
-	return $encoding
-    } else {
-	return "binary"
-    }
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::ContentEncoding
-# ------------------------------------------------------------------------------
-# Return the list of content-encoding transformations we need to do in order.
-#
-    # --------------------------------------------------------------------------
-    # Options for Accept-Encoding, Content-Encoding: the switch command
-    # --------------------------------------------------------------------------
-    # The symbol deflateX allows http to attempt both versions of "deflate",
-    # unless there is a -channel - for a -channel, only "decompress" is tried.
-    # Alternative/extra lines for switch:
-    # The standards-compliant version of "deflate" can be chosen with:
-    #		deflate { lappend r decompress }
-    # The Microsoft non-compliant version of "deflate" can be chosen with:
-    #		deflate { lappend r inflate }
-    # The previously used implementation of "compress", which appears to be
-    # incorrect and is rarely used by web servers, can be chosen with:
-    #		compress - x-compress { lappend r decompress }
-    # --------------------------------------------------------------------------
-#
-# Arguments:
-# token  - Connection token.
-#
-# Return Value: list
-# ------------------------------------------------------------------------------
-
-proc http::ContentEncoding {token} {
-    upvar 0 $token state
-    set r {}
-    if {[info exists state(coding)]} {
-	foreach coding [split $state(coding) ,] {
-	    switch -exact -- $coding {
-		deflate { lappend r deflateX }
-		gzip - x-gzip { lappend r gunzip }
-		identity {}
-		br {
-		    return -code error\
-			    "content-encoding \"br\" not implemented"
-		}
-		default {
-		    Log "unknown content-encoding \"$coding\" ignored"
-		}
-	    }
-	}
-    }
-    return $r
-}
-
-proc http::ReceiveChunked {chan command} {
-    set data ""
-    set size -1
-    yield
-    while {1} {
-	chan configure $chan -translation {crlf binary}
-	while {[gets $chan line] < 1} { yield }
-	chan configure $chan -translation {binary binary}
-	if {[scan $line %x size] != 1} {
-	    return -code error "invalid size: \"$line\""
-	}
-	set chunk ""
-	while {$size && ![chan eof $chan]} {
-	    set part [chan read $chan $size]
-	    incr size -[string length $part]
-	    append chunk $part
-	}
-	if {[catch {
-	    uplevel #0 [linsert $command end $chunk]
-	}]} {
-	    http::Log "Error in callback: $::errorInfo"
-	}
-	if {[string length $chunk] == 0} {
-	    # channel might have been closed in the callback
-	    catch {chan event $chan readable {}}
-	    return
-	}
-    }
-}
-
-# http::SplitCommaSeparatedFieldValue --
-# 	Return the individual values of a comma-separated field value.
-#
-# Arguments:
-#	fieldValue	Comma-separated header field value.
-#
-# Results:
-#       List of values.
-proc http::SplitCommaSeparatedFieldValue {fieldValue} {
-    set r {}
-    foreach el [split $fieldValue ,] {
-	lappend r [string trim $el]
-    }
-    return $r
-}
-
-
-# http::GetFieldValue --
-# 	Return the value of a header field.
-#
-# Arguments:
-#	headers	Headers key-value list
-#	fieldName	Name of header field whose value to return.
-#
-# Results:
-#       The value of the fieldName header field
-#
-# Field names are matched case-insensitively (RFC 7230 Section 3.2).
-#
-# If the field is present multiple times, it is assumed that the field is
-# defined as a comma-separated list and the values are combined (by separating
-# them with commas, see RFC 7230 Section 3.2.2) and returned at once.
-proc http::GetFieldValue {headers fieldName} {
-    set r {}
-    foreach {field value} $headers {
-	if {[string equal -nocase $fieldName $field]} {
-	    if {$r eq {}} {
-		set r $value
-	    } else {
-		append r ", $value"
-	    }
-	}
-    }
-    return $r
-}
-
-proc http::MakeTransformationChunked {chan command} {
-    coroutine [namespace current]::dechunk$chan ::http::ReceiveChunked $chan $command
-    chan event $chan readable [namespace current]::dechunk$chan
-    return
-}
-
-interp alias {} http::data {} http::responseBody
-interp alias {} http::code {} http::responseLine
-interp alias {} http::mapReply {} http::quoteString
-interp alias {} http::meta {} http::responseHeaders
-interp alias {} http::metaValue {} http::responseHeaderValue
-interp alias {} http::ncode {} http::responseCode
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::socketForTls
-# ------------------------------------------------------------------------------
-# Command to use in place of ::socket as the value of ::tls::socketCmd.
-# This command does the same as http::socket, and also handles https connections
-# through a proxy server.
-#
-# Notes.
-# - The proxy server works differently for https and http.  This implementation
-#   is for https.  The proxy for http is implemented in http::CreateToken (in
-#   code that was previously part of http::geturl).
-# - This code implicitly uses the tls options set for https in a call to
-#   http::register, and does not need to call commands tls::*.  This simple
-#   implementation is possible because tls uses a callback to ::socket that can
-#   be redirected by changing the value of ::tls::socketCmd.
-#
-# Arguments:
-# args        - as for ::socket
-#
-# Return Value: a socket identifier
-# ------------------------------------------------------------------------------
-
-proc http::socketForTls {args} {
-    variable http
-    set host [lindex $args end-1]
-    set port [lindex $args end]
-    if {    ($http(-proxyfilter) ne {})
-         && (![catch {$http(-proxyfilter) $host} proxy])
-    } {
-        set phost [lindex $proxy 0]
-        set pport [lindex $proxy 1]
-    } else {
-        set phost {}
-        set pport {}
-    }
-    if {$phost eq ""} {
-        set sock [::http::socket {*}$args]
-    } else {
-        set sock [::http::SecureProxyConnect {*}$args $phost $pport]
-    }
-    return $sock
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::SecureProxyConnect
-# ------------------------------------------------------------------------------
-# Command to open a socket through a proxy server to a remote server for use by
-# tls. The caller must perform the tls handshake.
-#
-# Notes
-# - Based on patch supplied by Melissa Chawla in ticket 1173760, and
-#   Proxy-Authorization header cf. autoproxy by Pat Thoyts.
-# - Rewritten as a call to http::geturl, because response headers and body are
-#   needed if the CONNECT request fails.  CONNECT is implemented for this case
-#   only, by state(bypass).
-# - FUTURE WORK: give http::geturl a -connect option for a general CONNECT.
-# - The request header Proxy-Connection is discouraged in RFC 7230 (June 2014),
-#   RFC 9112 (June 2022).
-#
-# Arguments:
-# args        - as for ::socket, ending in host, port; with proxy host, proxy
-#               port appended.
-#
-# Return Value: a socket identifier
-# ------------------------------------------------------------------------------
-
-proc http::SecureProxyConnect {args} {
-    variable http
-    variable ConnectVar
-    variable ConnectCounter
-    variable failedProxyValues
-    set varName ::http::ConnectVar([incr ConnectCounter])
-
-    # Extract (non-proxy) target from args.
-    set host [lindex $args end-3]
-    set port [lindex $args end-2]
-    set args [lreplace $args end-3 end-2]
-
-    # Proxy server URL for connection.
-    # This determines where the socket is opened.
-    set phost [lindex $args end-1]
-    set pport [lindex $args end]
-    if {[string first : $phost] != -1} {
-        # IPv6 address, wrap it in [] so we can append :pport
-        set phost "\[${phost}\]"
-    }
-    set url http://${phost}:${pport}
-    # Elements of args other than host and port are not used when
-    # AsyncTransaction opens a socket.  Those elements are -async and the
-    # -type $tokenName for the https transaction.  Option -async is used by
-    # AsyncTransaction anyway, and -type $tokenName should not be propagated:
-    # the proxy request adds its own -type value.
-
-    set targ [lsearch -exact $args -type]
-    if {$targ != -1} {
-        # Record in the token that this is a proxy call.
-        set token [lindex $args $targ+1]
-        upvar 0 ${token} state
-        set tim $state(-timeout)
-        set state(proxyUsed) SecureProxyFailed
-        # This value is overwritten with "SecureProxy" below if the CONNECT is
-        # successful.  If it is unsuccessful, the socket will be closed
-        # below, and so in this unsuccessful case there are no other transactions
-        # whose (proxyUsed) must be updated.
-    } else {
-        set tim 0
-    }
-    if {$tim == 0} {
-        # Do not use infinite timeout for the proxy.
-        set tim 30000
-    }
-
-    # Prepare and send a CONNECT request to the proxy, using
-    # code similar to http::geturl.
-    set requestHeaders [list Host $host]
-    lappend requestHeaders Connection keep-alive
-    if {$http(-proxyauth) != {}} {
-        lappend requestHeaders Proxy-Authorization $http(-proxyauth)
-    }
-
-    set token2 [CreateToken $url -keepalive 0 -timeout $tim \
-            -headers $requestHeaders -command [list http::AllDone $varName]]
-    variable $token2
-    upvar 0 $token2 state2
-
-    # Kludges:
-    # Setting this variable overrides the HTTP request line and also allows
-    # -headers to override the Connection: header set by -keepalive.
-    # The arguments "-keepalive 0" ensure that when Finish is called for an
-    # unsuccessful request, the socket is always closed.
-    set state2(bypass) "CONNECT $host:$port HTTP/1.1"
-
-    AsyncTransaction $token2
-
-    if {[info coroutine] ne {}} {
-        # All callers in the http package are coroutines launched by
-        # the event loop.
-        # The cwait command requires a coroutine because it yields
-        # to the caller; $varName is traced and the coroutine resumes
-        # when the variable is written.
-        cwait $varName
-    } else {
-        return -code error {code must run in a coroutine}
-        # For testing with a non-coroutine caller outside the http package.
-        # vwait $varName
-    }
-    unset $varName
-
-    if {    ($state2(state) ne "complete")
-         || ($state2(status) ne "ok")
-         || (![string is integer -strict $state2(responseCode)])
-    } {
-        set msg {the HTTP request to the proxy server did not return a valid\
-                and complete response}
-        if {[info exists state2(error)]} {
-            append msg ": " [lindex $state2(error) 0]
-        }
-        cleanup $token2
-        return -code error $msg
-    }
-
-    set code $state2(responseCode)
-
-    if {($code >= 200) && ($code < 300)} {
-        # All OK.  The caller in package tls will now call "tls::import $sock".
-        # The cleanup command does not close $sock.
-        # Other tidying was done in http::Event.
-
-        # If this is a persistent socket, any other transactions that are
-        # already marked to use the socket will have their (proxyUsed) updated
-        # when http::OpenSocket calls http::ConfigureNewSocket.
-        set state(proxyUsed) SecureProxy
-        set sock $state2(sock)
-        cleanup $token2
-        return $sock
-    }
-
-    if {$targ != -1} {
-        # Non-OK HTTP status code; token is known because option -type
-        # (cf. targ) was passed through tcltls, and so the useful
-        # parts of the proxy's response can be copied to state(*).
-        # Do not copy state2(sock).
-        # Return the proxy response to the caller of geturl.
-        foreach name $failedProxyValues {
-            if {[info exists state2($name)]} {
-                set state($name) $state2($name)
-            }
-        }
-        set state(connection) close
-        set msg "proxy connect failed: $code"
-	# - This error message will be detected by http::OpenSocket and will
-	#   cause it to present the proxy's HTTP response as that of the
-	#   original $token transaction, identified only by state(proxyUsed)
-	#   as the response of the proxy.
-	# - The cases where this would mislead the caller of http::geturl are
-	#   given a different value of msg (below) so that http::OpenSocket will
-	#   treat them as errors, but will preserve the $token array for
-	#   inspection by the caller.
-	# - Status code 305 (Proxy Required) was deprecated for security reasons
-	#   in RFC 2616 (June 1999) and in any case should never be served by a
-	#   proxy.
-	# - Other 3xx responses from the proxy are inappropriate, and should not
-	#   occur.
-	# - A 401 response from the proxy is inappropriate, and should not
-	#   occur.  It would be confusing if returned to the caller.
-
-	if {($code >= 300) && ($code < 400)} {
-	    set msg "the proxy server responded to the HTTP request with an\
-		    inappropriate $code redirect"
-	    set loc [responseHeaderValue $token2 location]
-	    if {$loc ne {}} {
-		append msg "to " $loc
-	    }
-	} elseif {($code == 401)} {
-	    set msg "the proxy server responded to the HTTP request with an\
-		    inappropriate 401 request for target-host credentials"
-	} else {
-	}
-    } else {
-	set msg "connection to proxy failed with status code $code"
-    }
-
-    # - ${token2}(sock) has already been closed because -keepalive 0.
-    # - Error return does not pass the socket ID to the
-    #   $token transaction, which retains its socket placeholder.
-    cleanup $token2
-    return -code error $msg
-}
-
-proc http::AllDone {varName args} {
-    set $varName done
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::socket
-# ------------------------------------------------------------------------------
-# This command is a drop-in replacement for ::socket.
-# Arguments and return value as for ::socket.
-#
-# Notes.
-# - http::socket is specified in place of ::socket by the definition of urlTypes
-#   in the namespace header of this file (http.tcl).
-# - The command makes a simple call to ::socket unless the user has called
-#   http::config to change the value of -threadlevel from the default value 0.
-# - For -threadlevel 1 or 2, if the Thread package is available, the command
-#   waits in the event loop while the socket is opened in another thread.  This
-#   is a workaround for bug [824251] - it prevents http::geturl from blocking
-#   the event loop if the DNS lookup or server connection is slow.
-# - FIXME Use a thread pool if connections are very frequent.
-# - FIXME The peer thread can transfer the socket only to the main interpreter
-#   in the present thread.  Therefore this code works only if this script runs
-#   in the main interpreter.  In a child interpreter, the parent must alias a
-#   command to ::http::socket in the child, run http::socket in the parent,
-#   and then transfer the socket to the child.
-# - The http::socket command is simple, and can easily be replaced with an
-#   alternative command that uses a different technique to open a socket while
-#   entering the event loop.
-# - Unexpected behaviour by thread::send -async (Thread 2.8.6).
-#   An error in thread::send -async causes return of just the error message
-#   (not the expected 3 elements), and raises a bgerror in the main thread.
-#   Hence wrap the command with catch as a precaution.
-# ------------------------------------------------------------------------------
-
-proc http::socket {args} {
-    variable ThreadVar
-    variable ThreadCounter
-    variable http
-
-    LoadThreadIfNeeded
-
-    set targ [lsearch -exact $args -type]
-    if {$targ != -1} {
-        set token [lindex $args $targ+1]
-        set args [lreplace $args $targ $targ+1]
-        upvar 0 $token state
-    }
-
-    if {!$http(usingThread)} {
-        # Use plain "::socket".  This is the default.
-        return [eval ::socket $args]
-    }
-
-    set defcmd ::socket
-    set sockargs $args
-    set script "
-        set code \[catch {
-            [list proc ::SockInThread {caller defcmd sockargs} [info body ::http::SockInThread]]
-            [list ::SockInThread [thread::id] $defcmd $sockargs]
-        } result opts\]
-        list \$code \$opts \$result
-    "
-
-    set state(tid) [thread::create]
-    set varName ::http::ThreadVar([incr ThreadCounter])
-    thread::send -async $state(tid) $script $varName
-    Log >T Thread Start Wait $args -- coro [info coroutine] $varName
-    if {[info coroutine] ne {}} {
-        # All callers in the http package are coroutines launched by
-        # the event loop.
-        # The cwait command requires a coroutine because it yields
-        # to the caller; $varName is traced and the coroutine resumes
-        # when the variable is written.
-        cwait $varName
-    } else {
-        return -code error {code must run in a coroutine}
-        # For testing with a non-coroutine caller outside the http package.
-        # vwait $varName
-    }
-    Log >U Thread End Wait $args -- coro [info coroutine] $varName [set $varName]
-    thread::release $state(tid)
-    set state(tid) {}
-    set result [set $varName]
-    unset $varName
-    if {(![string is list $result]) || ([llength $result] != 3)} {
-        return -code error "result from peer thread is not a list of\
-                length 3: it is \n$result"
-    }
-    lassign $result threadCode threadDict threadResult
-    if {($threadCode != 0)} {
-        # This is an error in thread::send.  Return the lot.
-        return -options $threadDict -code error $threadResult
-    }
-
-    # Now the results of the catch in the peer thread.
-    lassign $threadResult catchCode errdict sock
-
-    if {($catchCode == 0) && ($sock ni [chan names])} {
-        return -code error {Transfer of socket from peer thread failed.\
-		Check that this script is not running in a child interpreter.}
-    }
-    return -options $errdict -code $catchCode $sock
-}
-
-# The commands below are dependencies of http::socket and
-# http::SecureProxyConnect and are not used elsewhere.
-
-# ------------------------------------------------------------------------------
-#  Proc http::LoadThreadIfNeeded
-# ------------------------------------------------------------------------------
-# Command to load the Thread package if it is needed.  If it is needed and not
-# loadable, the outcome depends on $http(-threadlevel):
-# value 0 => Thread package not required, no problem
-# value 1 => operate as if -threadlevel 0
-# value 2 => error return
-#
-# Arguments: none
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-proc http::LoadThreadIfNeeded {} {
-    variable http
-    if {$http(usingThread) || ($http(-threadlevel) == 0)} {
-        return
-    }
-    if {[catch {package require Thread}]} {
-        if {$http(-threadlevel) == 2} {
-            set msg {[http::config -threadlevel] has value 2,\
-                     but the Thread package is not available}
-            return -code error $msg
-        }
-        return
-    }
-    set http(usingThread) 1
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::SockInThread
-# ------------------------------------------------------------------------------
-# Command http::socket is a ::socket replacement.  It defines and runs this
-# command, http::SockInThread, in a peer thread.
-#
-# Arguments:
-# caller
-# defcmd
-# sockargs
-#
-# Return value: list of values that describe the outcome.  The return is
-# intended to be a normal (non-error) return in all cases.
-# ------------------------------------------------------------------------------
-
-proc http::SockInThread {caller defcmd sockargs} {
-    package require Thread
-
-    set catchCode [catch {eval $defcmd $sockargs} sock errdict]
-    if {$catchCode == 0} {
-        set catchCode [catch {thread::transfer $caller $sock; set sock} sock errdict]
-    }
-    return [list $catchCode $errdict $sock]
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::cwaiter::cwait
-# ------------------------------------------------------------------------------
-# Command to substitute for vwait, without the ordering issues.
-# A command that uses cwait must be a coroutine that is launched by an event,
-# e.g. fileevent or after idle, and has no calling code to be resumed upon
-# "yield".  It cannot return a value.
-#
-# Arguments:
-# varName      - fully-qualified name of the variable that the calling script
-#                will write to resume the coroutine.  Any scalar variable or
-#                array element is permitted.
-# coroName     - (optional) name of the coroutine to be called when varName is
-#                written - defaults to this coroutine
-# timeout      - (optional) timeout value in ms
-# timeoutValue - (optional) value to assign to varName if there is a timeout
-#
-# Return Value: none
-# ------------------------------------------------------------------------------
-
-namespace eval http::cwaiter {
-    namespace export cwait
-    variable log   {}
-    variable logOn 0
-}
-
-proc http::cwaiter::cwait {
-    varName {coroName {}} {timeout {}} {timeoutValue {}}
-} {
-    set thisCoro [info coroutine]
-    if {$thisCoro eq {}} {
-        return -code error {cwait cannot be called outside a coroutine}
-    }
-    if {$coroName eq {}} {
-        set coroName $thisCoro
-    }
-    if {[string range $varName 0 1] ne {::}} {
-        return -code error {argument varName must be fully qualified}
-    }
-    if {$timeout eq {}} {
-        set toe {}
-    } elseif {[string is integer -strict $timeout] && ($timeout > 0)} {
-        set toe [after $timeout [list set $varName $timeoutValue]]
-    } else {
-        return -code error {if timeout is supplied it must be a positive integer}
-    }
-
-    set cmd [list ::http::cwaiter::CwaitHelper $varName $coroName $toe]
-    trace add variable $varName write $cmd
-    CoLog "Yield $varName $coroName"
-    yield
-    CoLog "Resume $varName $coroName"
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::cwaiter::CwaitHelper
-# ------------------------------------------------------------------------------
-# Helper command called by the trace set by cwait.
-# - Ignores the arguments added by trace.
-# - A simple call to $coroName works, and in error cases gives a suitable stack
-#   trace, but because it is inside a trace the headline error message is
-#   something like {can't set "::Result(6)": error}, not the actual
-#   error.  So let the trace command return.
-# - Remove the trace immediately.  We don't want multiple calls.
-# ------------------------------------------------------------------------------
-
-proc http::cwaiter::CwaitHelper {varName coroName toe args} {
-    CoLog "got $varName for $coroName"
-    set cmd [list ::http::cwaiter::CwaitHelper $varName $coroName $toe]
-    trace remove variable $varName write $cmd
-    after cancel $toe
-
-    after 0 $coroName
-    return
-}
-
-
-# ------------------------------------------------------------------------------
-#  Proc http::cwaiter::LogInit
-# ------------------------------------------------------------------------------
-# Call this command to initiate debug logging and clear the log.
-# ------------------------------------------------------------------------------
-
-proc http::cwaiter::LogInit {} {
-    variable log
-    variable logOn
-    set log {}
-    set logOn 1
-    return
-}
-
-proc http::cwaiter::LogRead {} {
-    variable log
-    return $log
-}
-
-proc http::cwaiter::CoLog {msg} {
-    variable log
-    variable logOn
-    if {$logOn} {
-        append log $msg \n
-    }
-    return
-}
-
-namespace eval http {
-    namespace import ::http::cwaiter::*
-}
-
-# Local variables:
-# indent-tabs-mode: t
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/logger-0.9.5.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/logger-0.9.5.tm
deleted file mode 100644
index 739e1c91..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/logger-0.9.5.tm
+++ /dev/null
@@ -1,1297 +0,0 @@
-# logger.tcl --
-#
-#   Tcl implementation of a general logging facility.
-#
-# Copyright (c) 2003      by David N. Welton <davidw@dedasys.com>
-# Copyright (c) 2004-2011 by Michael Schlenker <mic42@users.sourceforge.net>
-# Copyright (c) 2006,2015 by Andreas Kupries <andreas_kupries@users.sourceforge.net>
-#
-# See the file license.terms.
-
-# The logger package provides an 'object oriented' log facility that
-# lets you have trees of services, that inherit from one another.
-# This is accomplished through the use of Tcl namespaces.
-
-
-package require Tcl 8.5 9
-package provide logger 0.9.5
-
-namespace eval ::logger {
-    namespace eval tree {}
-    namespace export init enable disable services servicecmd import
-
-    # The active services.
-    variable services {}
-
-    # The log 'levels'.
-    variable levels [list debug info notice warn error critical alert emergency]
-
-    # The default global log level used for new logging services
-    variable enabled "debug"
-
-    # Tcl return codes (in numeric order)
-    variable RETURN_CODES   [list "ok" "error" "return" "break" "continue"]
-}
-
-# Try to load msgcat and fall back to format if it fails
-if {[catch {package require msgcat}]} {
-  interp alias {} ::logger::mc {} ::format
-} else {
-  namespace eval ::logger {
-    namespace import ::msgcat::mc
-  }
-}
-
-# ::logger::_nsExists --
-#
-#   Workaround for missing namespace exists in Tcl 8.2 and 8.3.
-#
-
-if {[package vcompare [package provide Tcl] 8.4] < 0} {
-    proc ::logger::_nsExists {ns} {
-        expr {![catch {namespace parent $ns}]}
-    }
-} else {
-    proc ::logger::_nsExists {ns} {
-        namespace exists $ns
-    }
-}
-
-# ::logger::_cmdPrefixExists --
-#
-# Utility function to check if a given callback prefix exists,
-# this should catch all oddities in prefix names, including spaces,
-# glob patterns, non normalized namespaces etc.
-#
-# Arguments:
-#   prefix - The command prefix to check
-#
-# Results:
-#   1 or 0 for yes or no
-#
-proc ::logger::_cmdPrefixExists {prefix} {
-    set cmd [lindex $prefix 0]
-    set full [namespace eval :: namespace which [list $cmd]]
-    if {[string equal $full ""]} {return 0} else {return 1}
-    # normalize namespaces
-    set ns [namespace qualifiers $cmd]
-    set cmd ${ns}::[namespace tail $cmd]
-    set matches [::info commands ${ns}::*]
-    if {[lsearch -exact $matches $cmd] != -1} {return 1}
-    return 0
-}
-
-# ::logger::walk --
-#
-#   Walk namespaces, starting in 'start', and evaluate 'code' in
-#   them.
-#
-# Arguments:
-#   start - namespace to start in.
-#   code - code to execute in namespaces walked.
-#
-# Side Effects:
-#   Side effects of code executed.
-#
-# Results:
-#   None.
-
-proc ::logger::walk { start code } {
-    set children [namespace children $start]
-    foreach c $children {
-    logger::walk $c $code
-    namespace eval $c $code
-    }
-}
-
-proc ::logger::init {service} {
-    variable levels
-    variable services
-    variable enabled
-
-    if {[string length [string trim $service {:}]] == 0} {
-        return -code error \
-               -errorcode [list LOGGER EMPTY_SERVICENAME] \
-               [::logger::mc "Service name invalid. May not consist only of : or be empty"]
-    }
-    # We create a 'tree' namespace to house all the services, so
-    # they are in a 'safe' namespace sandbox, and won't overwrite
-    # any commands.
-    namespace eval tree::${service} {
-        variable service
-        variable levels
-        variable oldname
-        variable enabled
-    }
-
-    lappend services $service
-
-    set [namespace current]::tree::${service}::service $service
-    set [namespace current]::tree::${service}::levels $levels
-    set [namespace current]::tree::${service}::oldname $service
-    set [namespace current]::tree::${service}::enabled $enabled
-
-    namespace eval tree::${service} {
-	# Callback to use when the service in question is shut down.
-	variable delcallback [namespace current]::no-op
-
-	# Callback when the loglevel is changed
-	variable levelchangecallback [namespace current]::no-op
-
-	# State variable to decide when to call levelcallback
-	variable inSetLevel 0
-
-	# The currently configured levelcommands
-	variable lvlcmds
-	array set lvlcmds {}
-
-	# List of procedures registered via the trace command
-	variable traceList ""
-
-	# Flag indicating whether or not tracing is currently enabled
-	variable tracingEnabled 0
-
-	# We use this to disable a service completely.  In Tcl 8.4
-	# or greater, by using this, disabled log calls are a
-	# no-op!
-
-	proc no-op args {}
-
-	proc stdoutcmd {level text} {
-	    variable service
-	    puts "\[[clock format [clock seconds]]\] \[$service\] \[$level\] \'$text\'"
-	}
-
-	proc stderrcmd {level text} {
-	    variable service
-	    puts stderr "\[[clock format [clock seconds]]\] \[$service\] \[$level\] \'$text\'"
-	}
-
-
-	# setlevel --
-	#
-	#   This command differs from enable and disable in that
-	#   it disables all the levels below that selected, and
-	#   then enables all levels above it, which enable/disable
-	#   do not do.
-	#
-	# Arguments:
-	#   lv - the level, as defined in $levels.
-	#
-	# Side Effects:
-	#   Runs disable for the level, and then enable, in order
-	#   to ensure that all levels are set correctly.
-	#
-	# Results:
-	#   None.
-
-
-	proc setlevel {lv} {
-	    variable inSetLevel 1
-	    set oldlvl [currentloglevel]
-
-	    # do not allow enable and disable to do recursion
-	    if {[catch {
-		disable $lv 0
-		set newlvl [enable $lv 0]
-	    } msg] == 1} {
-		return -code error -errorcode $::errorCode $msg
-	    }
-	    # do the recursion here
-	    logger::walk [namespace current] [list setlevel $lv]
-
-	    set inSetLevel 0
-	    lvlchangewrapper $oldlvl $newlvl
-	    return
-	}
-
-	# enable --
-	#
-	#   Enable a particular 'level', and above, for the
-	#   service, and its 'children'.
-	#
-	# Arguments:
-	#   lv - the level, as defined in $levels.
-	#
-	# Side Effects:
-	#   Enables logging for the particular level, and all
-	#   above it (those more important).  It also walks
-	#   through all services that are 'children' and enables
-	#   them at the same level or above.
-	#
-	# Results:
-	#   None.
-
-	proc enable {lv {recursion 1}} {
-	    variable levels
-	    set lvnum [lsearch -exact $levels $lv]
-	    if { $lvnum == -1 } {
-		return -code error \
-		    -errorcode [list LOGGER INVALID_LEVEL] \
-		    [::logger::mc "Invalid level '%s' - levels are %s" $lv $levels]
-	    }
-
-	    variable enabled
-	    set newlevel $enabled
-	    set elnum [lsearch -exact $levels $enabled]
-	    if {($elnum == -1) || ($elnum > $lvnum)} {
-		set newlevel $lv
-	    }
-
-	    variable service
-	    while { $lvnum <  [llength $levels] } {
-		interp alias {} [namespace current]::[lindex $levels $lvnum] \
-		    {} [namespace current]::[lindex $levels $lvnum]cmd
-		incr lvnum
-	    }
-
-	    if {$recursion} {
-		logger::walk [namespace current] [list enable $lv]
-	    }
-	    lvlchangewrapper $enabled $newlevel
-	    set enabled $newlevel
-	}
-
-	# disable --
-	#
-	#   Disable a particular 'level', and below, for the
-	#   service, and its 'children'.
-	#
-	# Arguments:
-	#   lv - the level, as defined in $levels.
-	#
-	# Side Effects:
-	#   Disables logging for the particular level, and all
-	#   below it (those less important).  It also walks
-	#   through all services that are 'children' and disables
-	#   them at the same level or below.
-	#
-	# Results:
-	#   None.
-
-	proc disable {lv {recursion 1}} {
-	    variable levels
-	    set lvnum [lsearch -exact $levels $lv]
-	    if { $lvnum == -1 } {
-		return -code error \
-		    -errorcode [list LOGGER INVALID_LEVEL] \
-		    [::logger::mc "Invalid level '%s' - levels are %s" $lv $levels]
-	    }
-
-	    variable enabled
-	    set newlevel $enabled
-	    set elnum [lsearch -exact $levels $enabled]
-	    if {($elnum > -1) && ($elnum <= $lvnum)} {
-		if {$lvnum+1 >= [llength $levels]} {
-		    set newlevel "none"
-		} else {
-		    set newlevel [lindex $levels [expr {$lvnum+1}]]
-		}
-	    }
-
-	    while { $lvnum >= 0 } {
-
-		interp alias {} [namespace current]::[lindex $levels $lvnum] {} \
-		    [namespace current]::no-op
-		incr lvnum -1
-	    }
-	    if {$recursion} {
-		logger::walk [namespace current] [list disable $lv]
-	    }
-	    lvlchangewrapper $enabled $newlevel
-	    set enabled $newlevel
-	}
-
-	# currentloglevel --
-	#
-	#   Get the currently enabled log level for this service.
-	#
-	# Arguments:
-	#   none
-	#
-	# Side Effects:
-	#   none
-	#
-	# Results:
-	#   current log level
-	#
-
-	proc currentloglevel {} {
-	    variable enabled
-	    return $enabled
-	}
-
-	# lvlchangeproc --
-	#
-	#   Set or introspect a callback for when the logger instance
-	#   changes its loglevel.
-	#
-	# Arguments:
-	#   cmd - the Tcl command to call, it is called with two parameters, old and new log level.
-	#   or none for introspection
-	#
-	# Side Effects:
-	#   None.
-	#
-	# Results:
-	#   If no arguments are given return the current callback cmd.
-
-	proc lvlchangeproc {args} {
-	    variable levelchangecallback
-
-	    switch -exact -- [llength [::info level 0]] {
-                1   {return $levelchangecallback}
-                2   {
-		    if {[::logger::_cmdPrefixExists [lindex $args 0]]} {
-                        set levelchangecallback [lindex $args 0]
-		    } else {
-                        return -code error \
-			    -errorcode [list LOGGER INVALID_CMD] \
-			    [::logger::mc "Invalid cmd '%s' - does not exist" [lindex $args 0]]
-		    }
-		}
-                default {
-                    return -code error \
-			-errorcode [list LOGGER WRONG_NUM_ARGS] \
-			[::logger::mc "Wrong # of arguments. Usage: \${log}::lvlchangeproc ?cmd?"]
-                }
-	    }
-	}
-
-	proc lvlchangewrapper {old new} {
-	    variable inSetLevel
-
-	    # we are called after disable and enable are finished
-	    if {$inSetLevel} {return}
-
-	    # no action if level does not change
-	    if {[string equal $old $new]} {return}
-
-	    variable levelchangecallback
-	    # no action if levelchangecallback isn't a valid command
-	    if {[::logger::_cmdPrefixExists $levelchangecallback]} {
-		catch {
-		    uplevel \#0 [linsert $levelchangecallback end $old $new]
-		}
-	    }
-	}
-
-	# logproc --
-	#
-	#   Command used to create a procedure that is executed to
-	#   perform the logging.  This could write to disk, out to
-	#   the network, or something else.
-	#   If two arguments are given, use an existing command.
-	#   If three arguments are given, create a proc.
-	#
-	# Arguments:
-	#   lv - the level to log, which must be one of $levels.
-	#   args - either zero, one or two arguments.
-	#          if zero this returns the current command registered
-	#          if one, this is a cmd name that is called for this level
-	#          if two, these are an argument and proc body
-	#
-	# Side Effects:
-	#   Creates a logging command to take care of the details
-	#   of logging an event.
-	#
-	# Results:
-	#   If called with zero length args, returns the name of the currently
-	#   configured logging procedure.
-	#
-	#
-
-	proc logproc {lv args} {
-	    variable levels
-	    variable lvlcmds
-
-	    set lvnum [lsearch -exact $levels $lv]
-	    if { ($lvnum == -1) && ($lv != "trace") } {
-		return -code error \
-		    -errorcode [list LOGGER INVALID_LEVEL] \
-		    [::logger::mc "Invalid level '%s' - levels are %s" $lv $levels]
-	    }
-	    switch -exact -- [llength $args] {
-		0  {
-		    return $lvlcmds($lv)
-		}
-		1  {
-		    set cmd [lindex $args 0]
-		    if {[string equal "[namespace current]::${lv}cmd" $cmd]} {return}
-		    if {[llength [::info commands $cmd]]} {
-			proc ${lv}cmd args [format {
-			    uplevel 1 [list %s [expr {[llength $args]==1 ? [lindex $args end] : $args}]]
-			} $cmd]
-		    } else {
-			return -code error \
-			    -errorcode [list LOGGER INVALID_CMD] \
-			    [::logger::mc "Invalid cmd '%s' - does not exist" $cmd]
-		    }
-		    set lvlcmds($lv) $cmd
-		}
-		2  {
-		    foreach {arg body} $args {break}
-		    proc ${lv}cmd args [format {\
-						    _setservicename args
-			set val [%s [expr {[llength $args]==1 ? [lindex $args end] : $args}]]
-			_restoreservice
-			set val} ${lv}customcmd]
-		    proc ${lv}customcmd $arg $body
-		    set lvlcmds($lv) [namespace current]::${lv}customcmd
-		}
-		default {
-		    return -code error \
-			-errorcode [list LOGGER WRONG_USAGE] \
-			[::logger::mc \
-			     "Usage: \${log}::logproc level ?cmd?\nor \${log}::logproc level argname body" ]
-		}
-	    }
-	}
-
-
-	# delproc --
-	#
-	#   Set or introspect a callback for when the logger instance
-	#   is deleted.
-	#
-	# Arguments:
-	#   cmd - the Tcl command to call.
-	#   or none for introspection
-	#
-	# Side Effects:
-	#   None.
-	#
-	# Results:
-	#   If no arguments are given return the current callback cmd.
-
-	proc delproc {args} {
-	    variable delcallback
-
-	    switch -exact -- [llength [::info level 0]] {
-                1   {return $delcallback}
-                2   { if {[::logger::_cmdPrefixExists [lindex $args 0]]} {
-		    set delcallback [lindex $args 0]
-		} else {
-		    return -code error \
-			-errorcode [list LOGGER INVALID_CMD] \
-			[::logger::mc "Invalid cmd '%s' - does not exist" [lindex $args 0]]
-		}
-		}
-                default {
-                    return -code error \
-			-errorcode [list LOGGER WRONG_NUM_ARGS] \
-			[::logger::mc "Wrong # of arguments. Usage: \${log}::delproc ?cmd?"]
-                }
-	    }
-	}
-
-
-	# delete --
-	#
-	#   Delete the namespace and its children.
-
-	proc delete {} {
-	    variable delcallback
-	    variable service
-
-	    logger::walk [namespace current] delete
-	    if {[::logger::_cmdPrefixExists $delcallback]} {
-		uplevel \#0 [lrange $delcallback 0 end]
-	    }
-	    # clean up the global services list
-	    set idx [lsearch -exact [logger::services] $service]
-	    if {$idx !=-1} {
-		set ::logger::services [lreplace [logger::services] $idx $idx]
-	    }
-
-	    namespace delete [namespace current]
-
-	}
-
-	# services --
-	#
-	#   Return all child services
-
-	proc services {} {
-	    variable service
-
-	    set children [list]
-	    foreach srv [logger::services] {
-		if {[string match "${service}::*" $srv]} {
-		    lappend children $srv
-		}
-	    }
-	    return $children
-	}
-
-	# servicename --
-	#
-	#   Return the name of the service
-
-	proc servicename {} {
-	    variable service
-	    return $service
-	}
-
-	proc _setservicename {argname} {
-	    variable service
-	    variable oldname
-	    upvar 1 $argname arg
-	    if {[llength $arg] <= 1} {
-		return
-	    }
-
-	    set count -1
-	    set newname ""
-	    while {[string equal [lindex $arg [expr {$count+1}]] "-_logger::service"]} {
-		incr count 2
-		set newname [lindex $arg $count]
-	    }
-	    if {[string equal $newname ""]} {
-		return
-	    }
-	    set oldname $service
-	    set service $newname
-	    # Pop off "-_logger::service <service>" from argument list
-	    set arg [lreplace $arg 0 $count]
-	}
-
-	proc _restoreservice {} {
-	    variable service
-	    variable oldname
-	    set service $oldname
-	    return
-	}
-
-	proc trace { action args } {
-	    variable service
-
-	    # Allow other boolean values (true, false, yes, no, 0, 1) to be used
-	    # as synonymns for "on" and "off".
-
-	    if {[string is boolean $action]} {
-		set xaction [expr {($action && 1) ? "on" : "off"}]
-	    } else {
-		set xaction $action
-	    }
-
-	    # Check for required arguments for actions/subcommands and dispatch
-	    # to the appropriate procedure.
-
-	    switch -- $xaction {
-		"status" {
-		    return [uplevel 1 [list logger::_trace_status $service $args]]
-		}
-		"on" {
-		    if {[llength $args]} {
-			return -code error \
-			    -errorcode [list LOGGER WRONG_NUM_ARGS] \
-                            [::logger::mc "wrong # args: should be \"trace on\""]
-		    }
-		    return [logger::_trace_on $service]
-		}
-		"off" {
-		    if {[llength $args]} {
-			return -code error \
-			    -errorcode [list LOGGER WRONG_NUM_ARGS] \
-                            [::logger::mc "wrong # args: should be \"trace off\""]
-		    }
-		    return [logger::_trace_off $service]
-		}
-		"add" {
-		    if {![llength $args]} {
-			return -code error \
-			    -errorcode [list LOGGER WRONG_NUM_ARGS] \
-			    [::logger::mc "wrong # args: should be \"trace add ?-ns? <proc> ...\""]
-		    }
-		    return [uplevel 1 [list ::logger::_trace_add $service $args]]
-		}
-		"remove" {
-		    if {![llength $args]} {
-			return -code error \
-			    -errorcode [list LOGGER WRONG_NUM_ARGS] \
-                            [::logger::mc "wrong # args: should be \"trace remove ?-ns? <proc> ...\""]
-		    }
-		    return [uplevel 1 [list ::logger::_trace_remove $service $args]]
-		}
-
-		default {
-		    return -code error \
-			-errorcode [list LOGGER INVALID_ARG] \
-			[::logger::mc "Invalid action \"%s\": must be status, add, remove,\
-                    on, or off" $action]
-		}
-	    }
-	}
-
-	# Walk the parent service namespaces to see first, if they
-	# exist, and if any are enabled, and then, as a
-	# consequence, enable this one
-	# too.
-
-	enable $enabled
-	variable parent [namespace parent]
-	while {[string compare $parent "::logger::tree"]} {
-	    # If the 'enabled' variable doesn't exist, create the
-	    # whole thing.
-	    if { ! [::info exists ${parent}::enabled] } {
-		logger::init [string range $parent 16 end]
-	    }
-	    set enabled [set ${parent}::enabled]
-	    enable $enabled
-	    set parent [namespace parent $parent]
-	}
-    }
-
-    # Now create the commands for different levels.
-
-    namespace eval tree::${service} {
-	set parent [namespace parent]
-
-	# We 'inherit' the commands from the parents.  This
-	# means that, if you want to share the same methods with
-	# children, they should be instantiated after the parent's
-	# methods have been defined.
-
-	variable lvl ; # prevent creative writing to the global scope
-	if {[string compare $parent "::logger::tree"]} {
-	    foreach lvl [::logger::levels] {
-		# OPTIMIZE: do not allow multiple aliases in the hierarchy
-		#           they can always be replaced by more efficient
-		#           direct aliases to the target procs.
-		interp alias {} [namespace current]::${lvl}cmd \
-		    {} ${parent}::${lvl}cmd -_logger::service $service
-	    }
-	    # inherit the starting loglevel of the parent service
-	    setlevel [${parent}::currentloglevel]
-	} else {
-	    foreach lvl [concat [::logger::levels] "trace"] {
-		proc ${lvl}cmd args [format {\
-						 _setservicename args
-		    set val [stdoutcmd %s [expr {[llength $args]==1 ? [lindex $args end] : $args}]]
-		    _restoreservice
-		    set val } $lvl]
-
-		set lvlcmds($lvl) [namespace current]::${lvl}cmd
-	    }
-	    setlevel $::logger::enabled
-	}
-	unset lvl ; # drop the temp iteration variable
-    }
-
-    return ::logger::tree::${service}
-}
-
-# ::logger::services --
-#
-#   Returns a list of all active services.
-#
-# Arguments:
-#   None.
-#
-# Side Effects:
-#   None.
-#
-# Results:
-#   List of active services.
-
-proc ::logger::services {} {
-    variable services
-    return $services
-}
-
-# ::logger::enable --
-#
-#   Global enable for a certain level.  NOTE - this implementation
-#   isn't terribly effective at the moment, because it might hit
-#   children before their parents, who will then walk down the
-#   tree attempting to disable the children again.
-#
-# Arguments:
-#   lv - level above which to enable logging.
-#
-# Side Effects:
-#   Enables logging in a given level, and all higher levels.
-#
-# Results:
-#   None.
-
-proc ::logger::enable {lv} {
-    variable services
-    if {[catch {
-        foreach sv $services {
-        ::logger::tree::${sv}::enable $lv
-        }
-    } msg] == 1} {
-        return -code error -errorcode $::errorCode $msg
-    }
-}
-
-proc ::logger::disable {lv} {
-    variable services
-    if {[catch {
-        foreach sv $services {
-        ::logger::tree::${sv}::disable $lv
-        }
-    } msg] == 1} {
-        return -code error -errorcode $::errorCode $msg
-    }
-}
-
-proc ::logger::setlevel {lv} {
-    variable services
-    variable enabled
-    variable levels
-    if {[lsearch -exact $levels $lv] == -1} {
-        return -code error \
-               -errorcode [list LOGGER INVALID_LEVEL] \
-               [::logger::mc "Invalid level '%s' - levels are %s" $lv $levels]
-    }
-    set enabled $lv
-    if {[catch {
-        foreach sv $services {
-        ::logger::tree::${sv}::setlevel $lv
-        }
-    } msg] == 1} {
-        return -code error -errorcode $::errorCode $msg
-    }
-}
-
-# ::logger::levels --
-#
-#   Introspect the available log levels.  Provided so a caller does
-#   not need to know implementation details or code the list
-#   himself.
-#
-# Arguments:
-#   None.
-#
-# Side Effects:
-#   None.
-#
-# Results:
-#   levels - The list of valid log levels accepted by enable and disable
-
-proc ::logger::levels {} {
-    variable levels
-    return $levels
-}
-
-# ::logger::servicecmd --
-#
-#   Get the command token for a given service name.
-#
-# Arguments:
-#   service - name of the service.
-#
-# Side Effects:
-#   none
-#
-# Results:
-#   log - namespace token for this service
-
-proc ::logger::servicecmd {service} {
-    variable services
-    if {[lsearch -exact $services $service] == -1} {
-        return -code error \
-               -errorcode [list LOGGER NO_SUCH_SERVICE] \
-               [::logger::mc "Service \"%s\" does not exist." $service]
-    }
-    return "::logger::tree::${service}"
-}
-
-# ::logger::import --
-#
-#   Import the logging commands.
-#
-# Arguments:
-#   service - name of the service.
-#
-# Side Effects:
-#   creates aliases in the target namespace
-#
-# Results:
-#   none
-
-proc ::logger::import {args} {
-    variable services
-
-    if {[llength $args] == 0 || [llength $args] > 7} {
-    return -code error \
-           -errorcode [list LOGGER WRONG_NUM_ARGS] \
-           [::logger::mc \
-                       "Wrong # of arguments: \"logger::import ?-all?\
-                        ?-force?\
-                        ?-prefix prefix? ?-namespace namespace? service\""]
-    }
-
-    # process options
-    #
-    set import_all 0
-    set force 0
-    set prefix ""
-    set ns [uplevel 1 namespace current]
-    while {[llength $args] > 1} {
-        set opt [lindex $args 0]
-        set args [lrange $args 1 end]
-        switch  -exact -- $opt {
-            -all    { set import_all 1}
-            -prefix { set prefix [lindex $args 0]
-                      set args [lrange $args 1 end]
-                    }
-            -namespace {
-                      set ns [lindex $args 0]
-                      set args [lrange $args 1 end]
-            }
-            -force {
-                     set force 1
-            }
-            default {
-                return -code error \
-                       -errorcode [list LOGGER UNKNOWN_ARG] \
-                       [::logger::mc \
-                       "Unknown argument: \"%s\" :\nUsage:\
-                      \"logger::import ?-all? ?-force?\
-                        ?-prefix prefix? ?-namespace namespace? service\"" $opt]
-            }
-        }
-    }
-
-    #
-    # build the list of commands to import
-    #
-
-    set cmds [logger::levels]
-    lappend cmds "trace"
-    if {$import_all} {
-        lappend cmds setlevel enable disable logproc delproc services
-        lappend cmds servicename currentloglevel delete
-    }
-
-    #
-    # check the service argument
-    #
-
-    set service [lindex $args 0]
-    if {[lsearch -exact $services $service] == -1} {
-            return -code error \
-                   -errorcode [list LOGGER NO_SUCH_SERVICE] \
-                   [::logger::mc "Service \"%s\" does not exist." $service]
-    }
-
-    #
-    # setup the namespace for the import
-    #
-
-    set sourcens [logger::servicecmd $service]
-    set localns  [uplevel 1 namespace current]
-
-    if {[string match ::* $ns]} {
-        set importns $ns
-    } else {
-        set importns ${localns}::$ns
-    }
-
-    # fake namespace exists for Tcl 8.2 - 8.3
-    if {![_nsExists $importns]} {
-        namespace eval $importns {}
-    }
-
-
-    #
-    # prepare the import
-    #
-
-    set imports ""
-    foreach cmd $cmds {
-        set cmdname ${importns}::${prefix}$cmd
-        set collision [llength [info commands $cmdname]]
-        if {$collision && !$force} {
-            return -code error \
-                   -errorcode [list LOGGER IMPORT_NAME_EXISTS] \
-                   [::logger::mc "can't import command \"%s\": already exists" $cmdname]
-        }
-        lappend imports ${importns}::${prefix}$cmd ${sourcens}::${cmd}
-    }
-
-    #
-    # and execute the aliasing after checking all is well
-    #
-
-    foreach {target source} $imports {
-        proc $target {args} "uplevel 1 \[linsert \$args 0 $source \]"
-    }
-}
-
-# ::logger::initNamespace --
-#
-#   Creates a logger for the specified namespace and makes the log
-#   commands available to said namespace as well. Allows the initial
-#   setting of a default log level.
-#
-# Arguments:
-#   ns    - Namespace to initialize, is also the service name, modulo a ::-prefix
-#   level - Initial log level, optional, defaults to 'warn'.
-#
-# Side Effects:
-#   creates aliases in the target namespace
-#
-# Results:
-#   none
-
-proc ::logger::initNamespace {ns {level {}}} {
-    set service [string trimleft $ns :]
-    if {$level == ""} {
-	# No user-specified level. Figure something out.
-	# - If the parent service exists then the 'logger::init'
-	#   below will automatically inherit its level. Good enough.
-	# - Without a parent service go and use a default level of 'warn'.
-	set parent    [string trimleft [namespace qualifiers $service] :]
-	set hasparent [expr {($parent != {}) && [_nsExists ::logger::tree::${parent}]}]
-	if {!$hasparent} {
-	    set level warn
-	}
-    }
-
-    namespace eval $ns [list ::logger::init $service]
-    namespace eval $ns [list ::logger::import -force -all -namespace log $service]
-    if {$level != ""} {
-	namespace eval $ns [list log::setlevel $level]
-    }
-    return
-}
-
-# This procedure handles the "logger::trace status" command.  Given no
-# arguments, returns a list of all procedures that have been registered
-# via "logger::trace add".  Given one or more procedure names, it will
-# return 1 if all were registered, or 0 if any were not.
-
-proc ::logger::_trace_status { service procList } {
-    upvar #0 ::logger::tree::${service}::traceList traceList
-
-    # If no procedure names were given, just return the registered list
-
-    if {![llength $procList]} {
-        return $traceList
-    }
-
-    # Get caller's namespace for qualifying unqualified procedure names
-
-    set caller_ns [uplevel 1 namespace current]
-    set caller_ns [string trimright $caller_ns ":"]
-
-    # Search for any specified proc names that are *not* registered
-
-    foreach procName $procList {
-        # Make sure the procedure namespace is qualified
-
-        if {![string match "::*" $procName]} {
-            set procName ${caller_ns}::$procName
-        }
-
-        # Check if the procedure has been registered for tracing
-
-        if {[lsearch -exact $traceList $procName] == -1} {
-	    return 0
-        }
-    }
-
-    return 1
-}
-
-# This procedure handles the "logger::trace on" command.  If tracing
-# is turned off, it will enable Tcl trace handlers for all of the procedures
-# registered via "logger::trace add".  Does nothing if tracing is already
-# turned on.
-
-proc ::logger::_trace_on { service } {
-    set tcl_version [package provide Tcl]
-
-    if {[package vcompare $tcl_version "8.4"] < 0} {
-        return -code error \
-               -errorcode [list LOGGER TRACE_NOT_AVAILABLE] \
-              [::logger::mc "execution tracing is not available in Tcl %s" $tcl_version]
-    }
-
-    namespace eval ::logger::tree::${service} {
-        if {!$tracingEnabled} {
-            set tracingEnabled 1
-            ::logger::_enable_traces $service $traceList
-        }
-    }
-
-    return 1
-}
-
-# This procedure handles the "logger::trace off" command.  If tracing
-# is turned on, it will disable Tcl trace handlers for all of the procedures
-# registered via "logger::trace add", leaving them in the list so they
-# tracing on all of them can be enabled again with "logger::trace on".
-# Does nothing if tracing is already turned off.
-
-proc ::logger::_trace_off { service } {
-    namespace eval ::logger::tree::${service} {
-        if {$tracingEnabled} {
-            ::logger::_disable_traces $service $traceList
-            set tracingEnabled 0
-        }
-    }
-
-    return 1
-}
-
-# This procedure is used by the logger::trace add and remove commands to
-# process the arguments in a common fashion.  If the -ns switch is given
-# first, this procedure will return a list of all existing procedures in
-# all of the namespaces given in remaining arguments.  Otherwise, each
-# argument is taken to be either a pattern for a glob-style search of
-# procedure names or, failing that, a namespace, in which case this
-# procedure returns a list of all the procedures matching the given
-# pattern (or all in the named namespace, if no procedures match).
-
-proc ::logger::_trace_get_proclist { inputList } {
-    set procList ""
-
-    if {[string equal [lindex $inputList 0] "-ns"]} {
-	# Verify that at least one target namespace was supplied
-
-	set inputList [lrange $inputList 1 end]
-	if {![llength $inputList]} {
-	    return -code error \
-                   -errorcode [list LOGGER TARGET_MISSING] \
-                   [::logger::mc "Must specify at least one namespace target"]
-	}
-
-	# Rebuild the argument list to contain namespace procedures
-
-	foreach namespace $inputList {
-            # Don't allow tracing of the logger (or child) namespaces
-
-	    if {![string match "::logger::*" $namespace]} {
-		set nsProcList  [::info procs ${namespace}::*]
-                set procList    [concat $procList $nsProcList]
-            }
-	}
-    } else {
-        # Search for procs or namespaces matching each of the specified
-        # patterns.
-
-        foreach pattern $inputList {
-	    set matches [uplevel 1 ::info proc $pattern]
-
-	    if {![llength $matches]} {
-	        if {[uplevel 1 namespace exists $pattern]} {
-		    set matches [::info procs ${pattern}::*]
-	        }
-
-                # Matched procs will be qualified due to above pattern
-
-                set procList [concat $procList $matches]
-            } elseif {[string match "::*" $pattern]} {
-                # Patterns were pre-qualified - add them directly
-
-                set procList [concat $procList $matches]
-            } else {
-                # Qualify each proc with the namespace it was in
-
-                set ns [uplevel 1 namespace current]
-                if {$ns == "::"} {
-                    set ns ""
-                }
-                foreach proc $matches {
-                    lappend procList ${ns}::$proc
-                }
-            }
-        }
-    }
-
-    return $procList
-}
-
-# This procedure handles the "logger::trace add" command.  If the tracing
-# feature is enabled, it will enable the Tcl entry and leave trace handlers
-# for each procedure specified that isn't already being traced.  Each
-# procedure is added to the list of procedures that the logger trace feature
-# should log when tracing is enabled.
-
-proc ::logger::_trace_add { service procList } {
-    upvar #0 ::logger::tree::${service}::traceList traceList
-
-    # Handle -ns switch and glob search patterns for procedure names
-
-    set procList [uplevel 1 [list logger::_trace_get_proclist $procList]]
-
-    # Enable tracing for each procedure that has not previously been
-    # specified via logger::trace add.  If tracing is off, this will just
-    # store the name of the procedure for later when tracing is turned on.
-
-    foreach procName $procList {
-        if {[lsearch -exact $traceList $procName] == -1} {
-            lappend traceList $procName
-            ::logger::_enable_traces $service [list $procName]
-        }
-    }
-}
-
-# This procedure handles the "logger::trace remove" command.  If the tracing
-# feature is enabled, it will remove the Tcl entry and leave trace handlers
-# for each procedure specified.  Each procedure is removed from the list
-# of procedures that the logger trace feature should log when tracing is
-# enabled.
-
-proc ::logger::_trace_remove { service procList } {
-    upvar #0 ::logger::tree::${service}::traceList traceList
-
-    # Handle -ns switch and glob search patterns for procedure names
-
-    set procList [uplevel 1 [list logger::_trace_get_proclist $procList]]
-
-    # Disable tracing for each proc that previously had been specified
-    # via logger::trace add.  If tracing is off, this will just
-    # remove the name of the procedure from the trace list so that it
-    # will be excluded when tracing is turned on.
-
-    foreach procName $procList {
-        set index [lsearch -exact $traceList $procName]
-        if {$index != -1} {
-            set traceList [lreplace $traceList $index $index]
-            ::logger::_disable_traces $service [list $procName]
-        }
-    }
-}
-
-# This procedure enables Tcl trace handlers for all procedures specified.
-# It is used both to enable Tcl's tracing for a single procedure when
-# removed via "logger::trace add", as well as to enable all traces
-# via "logger::trace on".
-
-proc ::logger::_enable_traces { service procList } {
-    upvar #0 ::logger::tree::${service}::tracingEnabled tracingEnabled
-
-    if {$tracingEnabled} {
-        foreach procName $procList {
-            ::trace add execution $procName enter \
-                [list ::logger::_trace_enter $service]
-            ::trace add execution $procName leave \
-                [list ::logger::_trace_leave $service]
-        }
-    }
-}
-
-# This procedure disables Tcl trace handlers for all procedures specified.
-# It is used both to disable Tcl's tracing for a single procedure when
-# removed via "logger::trace remove", as well as to disable all traces
-# via "logger::trace off".
-
-proc ::logger::_disable_traces { service procList } {
-    upvar #0 ::logger::tree::${service}::tracingEnabled tracingEnabled
-
-    if {$tracingEnabled} {
-        foreach procName $procList {
-            ::trace remove execution $procName enter \
-                [list ::logger::_trace_enter $service]
-            ::trace remove execution $procName leave \
-                [list ::logger::_trace_leave $service]
-        }
-    }
-}
-
-########################################################################
-# Trace Handlers
-########################################################################
-
-# This procedure is invoked upon entry into a procedure being traced
-# via "logger::trace add" when tracing is enabled via "logger::trace on"
-# to log information about how the procedure was called.
-
-proc ::logger::_trace_enter { service cmd op } {
-    # Parse the command
-    set procName [uplevel 1 namespace origin [lindex $cmd 0]]
-    set args     [lrange $cmd 1 end]
-
-    # Display the message prefix
-    set callerLvl [expr {[::info level] - 1}]
-    set calledLvl [::info level]
-
-    lappend message "proc" $procName
-    lappend message "level" $calledLvl
-    lappend message "script" [uplevel ::info script]
-
-    # Display the caller information
-    set caller ""
-    if {$callerLvl >= 1} {
-	# Display the name of the caller proc w/prepended namespace
-	catch {
-	    set callerProcName [lindex [::info level $callerLvl] 0]
-	    set caller [uplevel 2 namespace origin $callerProcName]
-	}
-    }
-
-    lappend message "caller" $caller
-
-    # Display the argument names and values
-    set argSpec [uplevel 1 ::info args $procName]
-    set argList ""
-    if {[llength $argSpec]} {
-	foreach argName $argSpec {
-            lappend argList $argName
-
-	    if {$argName == "args"} {
-                lappend argList $args
-                break
-	    } else {
-	        lappend argList [lindex $args 0]
-	        set args [lrange $args 1 end]
-            }
-	}
-    }
-
-    lappend message "procargs" $argList
-    set message [list $op $message]
-
-    ::logger::tree::${service}::tracecmd $message
-}
-
-# This procedure is invoked upon leaving into a procedure being traced
-# via "logger::trace add" when tracing is enabled via "logger::trace on"
-# to log information about the result of the procedure call.
-
-proc ::logger::_trace_leave { service cmd status rc op } {
-    variable RETURN_CODES
-
-    # Parse the command
-    set procName [uplevel 1 namespace origin [lindex $cmd 0]]
-
-    # Gather the caller information
-    set callerLvl [expr {[::info level] - 1}]
-    set calledLvl [::info level]
-
-    lappend message "proc" $procName "level" $calledLvl
-    lappend message "script" [uplevel ::info script]
-
-    # Get the name of the proc being returned to w/prepended namespace
-    set caller ""
-    catch {
-        set callerProcName [lindex [::info level $callerLvl] 0]
-        set caller [uplevel 2 namespace origin $callerProcName]
-    }
-
-    lappend message "caller" $caller
-
-    # Convert the return code from numeric to verbal
-
-    if {$status < [llength $RETURN_CODES]} {
-        set status [lindex $RETURN_CODES $status]
-    }
-
-    lappend message "status" $status
-    lappend message "result" $rc
-
-    # Display the leave message
-
-    set message [list $op $message]
-    ::logger::tree::${service}::tracecmd $message
-
-    return 1
-}
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/md5-2.0.8.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/md5-2.0.8.tm
deleted file mode 100644
index 51f35dce..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/md5-2.0.8.tm
+++ /dev/null
@@ -1,739 +0,0 @@
-# md5.tcl - Copyright (C) 2003 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# MD5  defined by RFC 1321, "The MD5 Message-Digest Algorithm"
-# HMAC defined by RFC 2104, "Keyed-Hashing for Message Authentication"
-#
-# This is an implementation of MD5 based upon the example code given in
-# RFC 1321 and upon the tcllib MD4 implementation and taking some ideas
-# from the earlier tcllib md5 version by Don Libes.
-#
-# This implementation permits incremental updating of the hash and 
-# provides support for external compiled implementations either using
-# critcl (md5c) or Trf.
-#
-# -------------------------------------------------------------------------
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-# -------------------------------------------------------------------------
-
-package require Tcl 8.2-;                # tcl minimum version
-
-namespace eval ::md5 {
-    variable  accel
-    array set accel {critcl 0 cryptkit 0 trf 0}
-
-    namespace export md5 hmac MD5Init MD5Update MD5Final
-
-    variable uid
-    if {![info exists uid]} {
-        set uid 0
-    }
-}
-
-# -------------------------------------------------------------------------
-
-# MD5Init --
-#
-#   Create and initialize an MD5 state variable. This will be
-#   cleaned up when we call MD5Final
-#
-proc ::md5::MD5Init {} {
-    variable accel
-    variable uid
-    set token [namespace current]::[incr uid]
-    upvar #0 $token state
-
-    # RFC1321:3.3 - Initialize MD5 state structure
-    array set state \
-        [list \
-             A [expr {0x67452301}] \
-             B [expr {0xefcdab89}] \
-             C [expr {0x98badcfe}] \
-             D [expr {0x10325476}] \
-             n 0 i "" ]
-    if {$accel(cryptkit)} {
-        cryptkit::cryptCreateContext state(ckctx) CRYPT_UNUSED CRYPT_ALGO_MD5
-    } elseif {$accel(trf)} {
-        set s {}
-        switch -exact -- $::tcl_platform(platform) {
-            windows { set s [open NUL w] }
-            unix    { set s [open /dev/null w] }
-        }
-        if {$s != {}} {
-            fconfigure $s -translation binary -buffering none
-            ::md5 -attach $s -mode write \
-                -read-type variable \
-                -read-destination [subst $token](trfread) \
-                -write-type variable \
-                -write-destination [subst $token](trfwrite)
-            array set state [list trfread 0 trfwrite 0 trf $s]
-        }
-    }
-    return $token
-}
-
-# MD5Update --
-#
-#   This is called to add more data into the hash. You may call this
-#   as many times as you require. Note that passing in "ABC" is equivalent
-#   to passing these letters in as separate calls -- hence this proc 
-#   permits hashing of chunked data
-#
-#   If we have a C-based implementation available, then we will use
-#   it here in preference to the pure-Tcl implementation.
-#
-proc ::md5::MD5Update {token data} {
-    variable accel
-    upvar #0 $token state
-
-    if {$accel(critcl)} {
-        if {[info exists state(md5c)]} {
-            set state(md5c) [md5c $data $state(md5c)]
-        } else {
-            set state(md5c) [md5c $data]
-        }
-        return
-    } elseif {[info exists state(ckctx)]} {
-        if {[string length $data] > 0} {
-            cryptkit::cryptEncrypt $state(ckctx) $data
-        }
-        return
-    } elseif {[info exists state(trf)]} {
-        puts -nonewline $state(trf) $data
-        return
-    }
-
-    # Update the state values
-    incr state(n) [string length $data]
-    append state(i) $data
-
-    # Calculate the hash for any complete blocks
-    set len [string length $state(i)]
-    for {set n 0} {($n + 64) <= $len} {} {
-        MD5Hash $token [string range $state(i) $n [incr n 64]]
-    }
-
-    # Adjust the state for the blocks completed.
-    set state(i) [string range $state(i) $n end]
-    return
-}
-
-# MD5Final --
-#
-#    This procedure is used to close the current hash and returns the
-#    hash data. Once this procedure has been called the hash context
-#    is freed and cannot be used again.
-#
-#    Note that the output is 128 bits represented as binary data.
-#
-proc ::md5::MD5Final {token} {
-    upvar #0 $token state
-
-    # Check for either of the C-compiled versions.
-    if {[info exists state(md5c)]} {
-        set r $state(md5c)
-        unset state
-        return $r
-    } elseif {[info exists state(ckctx)]} {
-        cryptkit::cryptEncrypt $state(ckctx) ""
-        cryptkit::cryptGetAttributeString $state(ckctx) \
-            CRYPT_CTXINFO_HASHVALUE r 16
-        cryptkit::cryptDestroyContext $state(ckctx)
-        # If nothing was hashed, we get no r variable set!
-        if {[info exists r]} {
-            unset state
-            return $r
-        }
-    } elseif {[info exists state(trf)]} {
-        close $state(trf)
-        set r $state(trfwrite)
-        unset state
-        return $r
-    }
-
-    # RFC1321:3.1 - Padding
-    #
-    set len [string length $state(i)]
-    set pad [expr {56 - ($len % 64)}]
-    if {$len % 64 > 56} {
-        incr pad 64
-    }
-    if {$pad == 0} {
-        incr pad 64
-    }
-
-    #puts "P $pad|bits=[expr {8 * $state(n)}]"
-
-    append state(i) [binary format a$pad \x80]
-
-    # RFC1321:3.2 - Append length in bits as little-endian wide int.
-    append state(i) [binary format ii [expr {8 * $state(n)}] 0]
-
-    #puts DATA=[Hex $state(i)]([string length $state(i)])
-
-    # Calculate the hash for the remaining block.
-    set len [string length $state(i)]
-    for {set n 0} {($n + 64) <= $len} {} {
-        MD5Hash $token [string range $state(i) $n [incr n 64]]
-    }
-
-    #puts md5-post__________________________________________
-    #parray ::${token}
-
-    # RFC1321:3.5 - Output
-    set r [bytes $state(A)][bytes $state(B)][bytes $state(C)][bytes $state(D)]
-    unset state
-
-    #puts HASH=[Hex $r]
-    return $r
-}
-
-# -------------------------------------------------------------------------
-# HMAC Hashed Message Authentication (RFC 2104)
-#
-# hmac = H(K xor opad, H(K xor ipad, text))
-#
-
-# HMACInit --
-#
-#    This is equivalent to the MD5Init procedure except that a key is
-#    added into the algorithm
-#
-proc ::md5::HMACInit {K} {
-
-    # Key K is adjusted to be 64 bytes long. If K is larger, then use
-    # the MD5 digest of K and pad this instead.
-    set len [string length $K]
-    if {$len > 64} {
-        set tok [MD5Init]
-        MD5Update $tok $K
-        set K [MD5Final $tok]
-        set len [string length $K]
-    }
-    set pad [expr {64 - $len}]
-    append K [string repeat \0 $pad]
-
-    # Cacluate the padding buffers.
-    set Ki {}
-    set Ko {}
-    binary scan $K i16 Ks
-    foreach k $Ks {
-        append Ki [binary format i [expr {$k ^ 0x36363636}]]
-        append Ko [binary format i [expr {$k ^ 0x5c5c5c5c}]]
-    }
-
-    set tok [MD5Init]
-    MD5Update $tok $Ki;                 # initialize with the inner pad
-    
-    # preserve the Ko value for the final stage.
-    # FRINK: nocheck
-    set [subst $tok](Ko) $Ko
-
-    return $tok
-}
-
-# HMACUpdate --
-#
-#    Identical to calling MD5Update
-#
-proc ::md5::HMACUpdate {token data} {
-    MD5Update $token $data
-    return
-}
-
-# HMACFinal --
-#
-#    This is equivalent to the MD5Final procedure. The hash context is
-#    closed and the binary representation of the hash result is returned.
-#
-proc ::md5::HMACFinal {token} {
-    upvar #0 $token state
-
-    set tok [MD5Init];                  # init the outer hashing function
-    MD5Update $tok $state(Ko);          # prepare with the outer pad.
-    MD5Update $tok [MD5Final $token];   # hash the inner result
-    return [MD5Final $tok]
-}
-
-# -------------------------------------------------------------------------
-# Description:
-#  This is the core MD5 algorithm. It is a lot like the MD4 algorithm but
-#  includes an extra round and a set of constant modifiers throughout.
-# 
-# Note:
-#  This function body is substituted later on to inline some of the 
-#  procedures and to make is a bit more comprehensible.
-#
-set ::md5::MD5Hash_body {
-    variable $token
-    upvar 0 $token state
-
-    #puts TR__=[Hex $msg]([string length $msg])
-
-    # RFC1321:3.4 - Process Message in 16-Word Blocks
-    binary scan $msg i* blocks
-    foreach {X0 X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13 X14 X15} $blocks {
-        #puts BL
-
-        set A $state(A)
-        set B $state(B)
-        set C $state(C)
-        set D $state(D)
-
-        # Round 1
-        # Let [abcd k s i] denote the operation
-        #   a = b + ((a + F(b,c,d) + X[k] + T[i]) <<< s).
-        # Do the following 16 operations.
-        # [ABCD  0  7  1]  [DABC  1 12  2]  [CDAB  2 17  3]  [BCDA  3 22  4]
-        set A [expr {$B + (($A + [F $B $C $D] + $X0 + $T01) <<< 7)}]
-        set D [expr {$A + (($D + [F $A $B $C] + $X1 + $T02) <<< 12)}]
-        set C [expr {$D + (($C + [F $D $A $B] + $X2 + $T03) <<< 17)}]
-        set B [expr {$C + (($B + [F $C $D $A] + $X3 + $T04) <<< 22)}]
-        # [ABCD  4  7  5]  [DABC  5 12  6]  [CDAB  6 17  7]  [BCDA  7 22  8]
-        set A [expr {$B + (($A + [F $B $C $D] + $X4 + $T05) <<< 7)}]
-        set D [expr {$A + (($D + [F $A $B $C] + $X5 + $T06) <<< 12)}]
-        set C [expr {$D + (($C + [F $D $A $B] + $X6 + $T07) <<< 17)}]
-        set B [expr {$C + (($B + [F $C $D $A] + $X7 + $T08) <<< 22)}]
-        # [ABCD  8  7  9]  [DABC  9 12 10]  [CDAB 10 17 11]  [BCDA 11 22 12]
-        set A [expr {$B + (($A + [F $B $C $D] + $X8 + $T09) <<< 7)}]
-        set D [expr {$A + (($D + [F $A $B $C] + $X9 + $T10) <<< 12)}]
-        set C [expr {$D + (($C + [F $D $A $B] + $X10 + $T11) <<< 17)}]
-        set B [expr {$C + (($B + [F $C $D $A] + $X11 + $T12) <<< 22)}]
-        # [ABCD 12  7 13]  [DABC 13 12 14]  [CDAB 14 17 15]  [BCDA 15 22 16]
-        set A [expr {$B + (($A + [F $B $C $D] + $X12 + $T13) <<< 7)}]
-        set D [expr {$A + (($D + [F $A $B $C] + $X13 + $T14) <<< 12)}]
-        set C [expr {$D + (($C + [F $D $A $B] + $X14 + $T15) <<< 17)}]
-        set B [expr {$C + (($B + [F $C $D $A] + $X15 + $T16) <<< 22)}]
-
-        # Round 2.
-        # Let [abcd k s i] denote the operation
-        #   a = b + ((a + G(b,c,d) + X[k] + Ti) <<< s)
-        # Do the following 16 operations.
-        # [ABCD  1  5 17]  [DABC  6  9 18]  [CDAB 11 14 19]  [BCDA  0 20 20]
-        set A [expr {$B + (($A + [G $B $C $D] + $X1  + $T17) <<<  5)}]
-        set D [expr {$A + (($D + [G $A $B $C] + $X6  + $T18) <<<  9)}]
-        set C [expr {$D + (($C + [G $D $A $B] + $X11 + $T19) <<< 14)}]
-        set B [expr {$C + (($B + [G $C $D $A] + $X0  + $T20) <<< 20)}]
-        # [ABCD  5  5 21]  [DABC 10  9 22]  [CDAB 15 14 23]  [BCDA  4 20 24]
-        set A [expr {$B + (($A + [G $B $C $D] + $X5  + $T21) <<<  5)}]
-        set D [expr {$A + (($D + [G $A $B $C] + $X10 + $T22) <<<  9)}]
-        set C [expr {$D + (($C + [G $D $A $B] + $X15 + $T23) <<< 14)}]
-        set B [expr {$C + (($B + [G $C $D $A] + $X4  + $T24) <<< 20)}]
-        # [ABCD  9  5 25]  [DABC 14  9 26]  [CDAB  3 14 27]  [BCDA  8 20 28]
-        set A [expr {$B + (($A + [G $B $C $D] + $X9  + $T25) <<<  5)}]
-        set D [expr {$A + (($D + [G $A $B $C] + $X14 + $T26) <<<  9)}]
-        set C [expr {$D + (($C + [G $D $A $B] + $X3  + $T27) <<< 14)}]
-        set B [expr {$C + (($B + [G $C $D $A] + $X8  + $T28) <<< 20)}]
-        # [ABCD 13  5 29]  [DABC  2  9 30]  [CDAB  7 14 31]  [BCDA 12 20 32]
-        set A [expr {$B + (($A + [G $B $C $D] + $X13 + $T29) <<<  5)}]
-        set D [expr {$A + (($D + [G $A $B $C] + $X2  + $T30) <<<  9)}]
-        set C [expr {$D + (($C + [G $D $A $B] + $X7  + $T31) <<< 14)}]
-        set B [expr {$C + (($B + [G $C $D $A] + $X12 + $T32) <<< 20)}]
-        
-        # Round 3.
-        # Let [abcd k s i] denote the operation
-        #   a = b + ((a + H(b,c,d) + X[k] + T[i]) <<< s)
-        # Do the following 16 operations.
-        # [ABCD  5  4 33]  [DABC  8 11 34]  [CDAB 11 16 35]  [BCDA 14 23 36]
-        set A [expr {$B + (($A + [H $B $C $D] + $X5  + $T33) <<<  4)}]
-        set D [expr {$A + (($D + [H $A $B $C] + $X8  + $T34) <<< 11)}]
-        set C [expr {$D + (($C + [H $D $A $B] + $X11 + $T35) <<< 16)}]
-        set B [expr {$C + (($B + [H $C $D $A] + $X14 + $T36) <<< 23)}]
-        # [ABCD  1  4 37]  [DABC  4 11 38]  [CDAB  7 16 39]  [BCDA 10 23 40]
-        set A [expr {$B + (($A + [H $B $C $D] + $X1  + $T37) <<<  4)}]
-        set D [expr {$A + (($D + [H $A $B $C] + $X4  + $T38) <<< 11)}]
-        set C [expr {$D + (($C + [H $D $A $B] + $X7  + $T39) <<< 16)}]
-        set B [expr {$C + (($B + [H $C $D $A] + $X10 + $T40) <<< 23)}]
-        # [ABCD 13  4 41]  [DABC  0 11 42]  [CDAB  3 16 43]  [BCDA  6 23 44]
-        set A [expr {$B + (($A + [H $B $C $D] + $X13 + $T41) <<<  4)}]
-        set D [expr {$A + (($D + [H $A $B $C] + $X0  + $T42) <<< 11)}]
-        set C [expr {$D + (($C + [H $D $A $B] + $X3  + $T43) <<< 16)}]
-        set B [expr {$C + (($B + [H $C $D $A] + $X6  + $T44) <<< 23)}]
-        # [ABCD  9  4 45]  [DABC 12 11 46]  [CDAB 15 16 47]  [BCDA  2 23 48]
-        set A [expr {$B + (($A + [H $B $C $D] + $X9  + $T45) <<<  4)}]
-        set D [expr {$A + (($D + [H $A $B $C] + $X12 + $T46) <<< 11)}]
-        set C [expr {$D + (($C + [H $D $A $B] + $X15 + $T47) <<< 16)}]
-        set B [expr {$C + (($B + [H $C $D $A] + $X2  + $T48) <<< 23)}]
-
-        # Round 4.
-        # Let [abcd k s i] denote the operation
-        #   a = b + ((a + I(b,c,d) + X[k] + T[i]) <<< s)
-        # Do the following 16 operations.
-        # [ABCD  0  6 49]  [DABC  7 10 50]  [CDAB 14 15 51]  [BCDA  5 21 52]
-        set A [expr {$B + (($A + [I $B $C $D] + $X0  + $T49) <<<  6)}]
-        set D [expr {$A + (($D + [I $A $B $C] + $X7  + $T50) <<< 10)}]
-        set C [expr {$D + (($C + [I $D $A $B] + $X14 + $T51) <<< 15)}]
-        set B [expr {$C + (($B + [I $C $D $A] + $X5  + $T52) <<< 21)}]
-        # [ABCD 12  6 53]  [DABC  3 10 54]  [CDAB 10 15 55]  [BCDA  1 21 56]
-        set A [expr {$B + (($A + [I $B $C $D] + $X12 + $T53) <<<  6)}]
-        set D [expr {$A + (($D + [I $A $B $C] + $X3  + $T54) <<< 10)}]
-        set C [expr {$D + (($C + [I $D $A $B] + $X10 + $T55) <<< 15)}]
-        set B [expr {$C + (($B + [I $C $D $A] + $X1  + $T56) <<< 21)}]
-        # [ABCD  8  6 57]  [DABC 15 10 58]  [CDAB  6 15 59]  [BCDA 13 21 60]
-        set A [expr {$B + (($A + [I $B $C $D] + $X8  + $T57) <<<  6)}]
-        set D [expr {$A + (($D + [I $A $B $C] + $X15 + $T58) <<< 10)}]
-        set C [expr {$D + (($C + [I $D $A $B] + $X6  + $T59) <<< 15)}]
-        set B [expr {$C + (($B + [I $C $D $A] + $X13 + $T60) <<< 21)}]
-        # [ABCD  4  6 61]  [DABC 11 10 62]  [CDAB  2 15 63]  [BCDA  9 21 64]
-        set A [expr {$B + (($A + [I $B $C $D] + $X4  + $T61) <<<  6)}]
-        set D [expr {$A + (($D + [I $A $B $C] + $X11 + $T62) <<< 10)}]
-        set C [expr {$D + (($C + [I $D $A $B] + $X2  + $T63) <<< 15)}]
-        set B [expr {$C + (($B + [I $C $D $A] + $X9  + $T64) <<< 21)}]
-
-        # Then perform the following additions. (That is, increment each
-        # of the four registers by the value it had before this block
-        # was started.)
-        incr state(A) $A
-        incr state(B) $B
-        incr state(C) $C
-        incr state(D) $D
-    }
-
-    return
-}
-
-proc ::md5::byte {n v} {expr {((0xFF << (8 * $n)) & $v) >> (8 * $n)}}
-proc ::md5::bytes {v} { 
-    #format %c%c%c%c [byte 0 $v] [byte 1 $v] [byte 2 $v] [byte 3 $v]
-    format %c%c%c%c \
-        [expr {0xFF & $v}] \
-        [expr {(0xFF00 & $v) >> 8}] \
-        [expr {(0xFF0000 & $v) >> 16}] \
-        [expr {((0xFF000000 & $v) >> 24) & 0xFF}]
-}
-
-# 32bit rotate-left
-proc ::md5::<<< {v n} {
-    return [expr {((($v << $n) \
-                        | (($v >> (32 - $n)) \
-                               & (0x7FFFFFFF >> (31 - $n))))) \
-                      & 0xFFFFFFFF}]
-}
-
-# Convert our <<< pseudo-operator into a procedure call.
-regsub -all -line \
-    {\[expr {(\$[ABCD]) \+ \(\((.*)\)\s+<<<\s+(\d+)\)}\]} \
-    $::md5::MD5Hash_body \
-    {[expr {int(\1 + [<<< [expr {\2}] \3])}]} \
-    ::md5::MD5Hash_body
-
-# RFC1321:3.4 - function F
-proc ::md5::F {X Y Z} {
-    return [expr {($X & $Y) | ((~$X) & $Z)}]
-}
-
-# Inline the F function
-regsub -all -line \
-    {\[F (\$[ABCD]) (\$[ABCD]) (\$[ABCD])\]} \
-    $::md5::MD5Hash_body \
-    {( (\1 \& \2) | ((~\1) \& \3) )} \
-    ::md5::MD5Hash_body
-    
-# RFC1321:3.4 - function G
-proc ::md5::G {X Y Z} {
-    return [expr {(($X & $Z) | ($Y & (~$Z)))}]
-}
-
-# Inline the G function
-regsub -all -line \
-    {\[G (\$[ABCD]) (\$[ABCD]) (\$[ABCD])\]} \
-    $::md5::MD5Hash_body \
-    {(((\1 \& \3) | (\2 \& (~\3))))} \
-    ::md5::MD5Hash_body
-
-# RFC1321:3.4 - function H
-proc ::md5::H {X Y Z} {
-    return [expr {$X ^ $Y ^ $Z}]
-}
-
-# Inline the H function
-regsub -all -line \
-    {\[H (\$[ABCD]) (\$[ABCD]) (\$[ABCD])\]} \
-    $::md5::MD5Hash_body \
-    {(\1 ^ \2 ^ \3)} \
-    ::md5::MD5Hash_body
-
-# RFC1321:3.4 - function I
-proc ::md5::I {X Y Z} {
-    return [expr {$Y ^ ($X | (~$Z))}]
-}
-
-# Inline the I function
-regsub -all -line \
-    {\[I (\$[ABCD]) (\$[ABCD]) (\$[ABCD])\]} \
-    $::md5::MD5Hash_body \
-    {(\2 ^ (\1 | (~\3)))} \
-    ::md5::MD5Hash_body
-
-
-# RFC 1321:3.4 step 4: inline the set of constant modifiers.
-namespace eval md5 {
-    variable tName
-    variable tVal
-    variable map
-    foreach tName {
-        T01 T02 T03 T04 T05 T06 T07 T08 T09 T10 
-        T11 T12 T13 T14 T15 T16 T17 T18 T19 T20 
-        T21 T22 T23 T24 T25 T26 T27 T28 T29 T30 
-        T31 T32 T33 T34 T35 T36 T37 T38 T39 T40 
-        T41 T42 T43 T44 T45 T46 T47 T48 T49 T50 
-        T51 T52 T53 T54 T55 T56 T57 T58 T59 T60 
-        T61 T62 T63 T64 
-    }  tVal {
-        0xd76aa478 0xe8c7b756 0x242070db 0xc1bdceee
-        0xf57c0faf 0x4787c62a 0xa8304613 0xfd469501
-        0x698098d8 0x8b44f7af 0xffff5bb1 0x895cd7be
-        0x6b901122 0xfd987193 0xa679438e 0x49b40821
-        
-        0xf61e2562 0xc040b340 0x265e5a51 0xe9b6c7aa
-        0xd62f105d 0x2441453  0xd8a1e681 0xe7d3fbc8
-        0x21e1cde6 0xc33707d6 0xf4d50d87 0x455a14ed
-        0xa9e3e905 0xfcefa3f8 0x676f02d9 0x8d2a4c8a
-        
-        0xfffa3942 0x8771f681 0x6d9d6122 0xfde5380c
-        0xa4beea44 0x4bdecfa9 0xf6bb4b60 0xbebfbc70
-        0x289b7ec6 0xeaa127fa 0xd4ef3085 0x4881d05
-        0xd9d4d039 0xe6db99e5 0x1fa27cf8 0xc4ac5665
-        
-        0xf4292244 0x432aff97 0xab9423a7 0xfc93a039
-        0x655b59c3 0x8f0ccc92 0xffeff47d 0x85845dd1
-        0x6fa87e4f 0xfe2ce6e0 0xa3014314 0x4e0811a1
-        0xf7537e82 0xbd3af235 0x2ad7d2bb 0xeb86d391
-    } {
-        lappend map \$$tName $tVal
-    }
-    set ::md5::MD5Hash_body [string map $map $::md5::MD5Hash_body]
-    unset map tName tVal
-}
-
-# Define the MD5 hashing procedure with inline functions.
-proc ::md5::MD5Hash {token msg} $::md5::MD5Hash_body
-unset ::md5::MD5Hash_body
-
-# -------------------------------------------------------------------------
-
-if {[package provide Trf] != {}} {
-    interp alias {} ::md5::Hex {} ::hex -mode encode --
-} else {
-    proc ::md5::Hex {data} {
-        binary scan $data H* result
-        return [string toupper $result]
-    }
-}
-
-# -------------------------------------------------------------------------
-
-# LoadAccelerator --
-#
-#	This package can make use of a number of compiled extensions to
-#	accelerate the digest computation. This procedure manages the
-#	use of these extensions within the package. During normal usage
-#	this should not be called, but the test package manipulates the
-#	list of enabled accelerators.
-#
-proc ::md5::LoadAccelerator {name} {
-    variable accel
-    set r 0
-    switch -exact -- $name {
-        critcl {
-            if {![catch {package require tcllibc}]
-                || ![catch {package require md5c}]} {
-                set r [expr {[info commands ::md5::md5c] != {}}]
-            }
-        }
-        cryptkit {
-            if {![catch {package require cryptkit}]} {
-                set r [expr {![catch {cryptkit::cryptInit}]}]
-            }
-        }
-        trf {
-            if {![catch {package require Trf}]} {
-                set r [expr {![catch {::md5 aa} msg]}]
-            }
-        }
-        default {
-            return -code error "invalid accelerator package:\
-                must be one of [join [array names accel] {, }]"
-        }
-    }
-    set accel($name) $r
-}
-
-# -------------------------------------------------------------------------
-
-# Description:
-#  Pop the nth element off a list. Used in options processing.
-#
-proc ::md5::Pop {varname {nth 0}} {
-    upvar $varname args
-    set r [lindex $args $nth]
-    set args [lreplace $args $nth $nth]
-    return $r
-}
-
-# -------------------------------------------------------------------------
-
-# fileevent handler for chunked file hashing.
-#
-proc ::md5::Chunk {token channel {chunksize 4096}} {
-    upvar #0 $token state
-    
-    if {[eof $channel]} {
-        fileevent $channel readable {}
-        set state(reading) 0
-    }
-        
-    MD5Update $token [read $channel $chunksize]
-}
-
-# -------------------------------------------------------------------------
-
-proc ::md5::md5 {args} {
-    array set opts {-hex 0 -filename {} -channel {} -chunksize 4096}
-    while {[string match -* [set option [lindex $args 0]]]} {
-        switch -glob -- $option {
-            -hex       { set opts(-hex) 1 }
-            -file*     { set opts(-filename) [Pop args 1] }
-            -channel   { set opts(-channel) [Pop args 1] }
-            -chunksize { set opts(-chunksize) [Pop args 1] }
-            default {
-                if {[llength $args] == 1} { break }
-                if {[string compare $option "--"] == 0} { Pop args; break }
-                set err [join [lsort [array names opts]] ", "]
-                return -code error "bad option $option:\
-                    must be one of $err\nlen: [llength $args]"
-            }
-        }
-        Pop args
-    }
-
-    if {$opts(-filename) != {}} {
-        set opts(-channel) [open $opts(-filename) r]
-        fconfigure $opts(-channel) -translation binary
-    }
-
-    if {$opts(-channel) == {}} {
-
-        if {[llength $args] != 1} {
-            return -code error "wrong # args:\
-                should be \"md5 ?-hex? -filename file | string\""
-        }
-        set tok [MD5Init]
-
-        #puts md5_______________________________________________
-        #parray ::${tok}
-
-        #puts IN=(([lindex $args 0]))
-        MD5Update $tok [lindex $args 0]
-
-        #puts md5-final_________________________________________
-        #parray ::${tok}
-
-        set r [MD5Final $tok]
-
-    } else {
-
-        set tok [MD5Init]
-        # FRINK: nocheck
-        set [subst $tok](reading) 1
-        fileevent $opts(-channel) readable \
-            [list [namespace origin Chunk] \
-                 $tok $opts(-channel) $opts(-chunksize)]
-        vwait [subst $tok](reading)
-        set r [MD5Final $tok]
-
-        # If we opened the channel - we should close it too.
-        if {$opts(-filename) != {}} {
-            close $opts(-channel)
-        }
-    }
-    
-    if {$opts(-hex)} {
-        set r [Hex $r]
-    }
-    return $r
-}
-
-# -------------------------------------------------------------------------
-
-proc ::md5::hmac {args} {
-    array set opts {-hex 0 -filename {} -channel {} -chunksize 4096}
-    while {[string match -* [set option [lindex $args 0]]]} {
-        switch -glob -- $option {
-            -key       { set opts(-key) [Pop args 1] }
-            -hex       { set opts(-hex) 1 }
-            -file*     { set opts(-filename) [Pop args 1] }
-            -channel   { set opts(-channel) [Pop args 1] }
-            -chunksize { set opts(-chunksize) [Pop args 1] }
-            default {
-                if {[llength $args] == 1} { break }
-                if {[string compare $option "--"] == 0} { Pop args; break }
-                set err [join [lsort [array names opts]] ", "]
-                return -code error "bad option $option:\
-                    must be one of $err"
-            }
-        }
-        Pop args
-    }
-
-    if {![info exists opts(-key)]} {
-        return -code error "wrong # args:\
-            should be \"hmac ?-hex? -key key -filename file | string\""
-    }
-
-    if {$opts(-filename) != {}} {
-        set opts(-channel) [open $opts(-filename) r]
-        fconfigure $opts(-channel) -translation binary
-    }
-
-    if {$opts(-channel) == {}} {
-
-        if {[llength $args] != 1} {
-            return -code error "wrong # args:\
-                should be \"hmac ?-hex? -key key -filename file | string\""
-        }
-        set tok [HMACInit $opts(-key)]
-        HMACUpdate $tok [lindex $args 0]
-        set r [HMACFinal $tok]
-
-    } else {
-
-        set tok [HMACInit $opts(-key)]
-        # FRINK: nocheck
-        set [subst $tok](reading) 1
-        fileevent $opts(-channel) readable \
-            [list [namespace origin Chunk] \
-                 $tok $opts(-channel) $opts(-chunksize)]
-        vwait [subst $tok](reading)
-        set r [HMACFinal $tok]
-
-        # If we opened the channel - we should close it too.
-        if {$opts(-filename) != {}} {
-            close $opts(-channel)
-        }
-    }
-    
-    if {$opts(-hex)} {
-        set r [Hex $r]
-    }
-    return $r
-}
-
-# -------------------------------------------------------------------------
-
-# Try and load a compiled extension to help.
-namespace eval ::md5 {
-    variable e
-    foreach  e {critcl cryptkit trf} { if {[LoadAccelerator $e]} { break } }
-    unset    e
-}
-
-package provide md5 2.0.8
-
-# -------------------------------------------------------------------------
-# Local Variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/metaface-1.2.5.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/metaface-1.2.5.tm
deleted file mode 100644
index ebcf579e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/metaface-1.2.5.tm
+++ /dev/null
@@ -1,6411 +0,0 @@
-package require dictutils
-package provide metaface [namespace eval metaface {
-    variable version
-    set version 1.2.5
-}]
-
-
-
-
-#example datastructure:
-#$_ID_
-#{
-#i 
-#	{
-#		this 
-#		{
-#			{16 ::p::16 item ::>x {}}
-#		}	
-#		role2 
-#		{
-#			{17 ::p::17 item ::>y {}}
-#			{18 ::p::18 item ::>z {}}
-#		}
-#	}
-#context {}
-#}
-
-#$MAP
-#invocantdata {16 ::p::16 item ::>x {}} 
-#interfaces {level0 
-#				{ 
-#				api0 {stack {123 999}} 
-#				api1 {stack {333}} 
-#				} 
-#			level0_default api0 
-#			level1 
-#				{
-#				} 
-#			level1_default {}
-#		  }  
-#patterndata {patterndefaultmethod {}}
-
-
-namespace eval ::p::predator {}
-#temporary alternative to ::p::internals namespace.
-# - place predator functions here until ready to replace internals.
-
-
-namespace eval ::p::snap {
-    variable id 0  ;#ever-increasing non-reused snapshot-id to identify ::p::snapshot namespaces used to allow overlay-rollbacks.
-}
-
-
-
-
-# not called directly. Retrieved using 'info body ::p::predator::getprop_template'
-#review - why use a proc instead of storing it as a string?
-proc ::p::predator::getprop_template {_ID_ args} {
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    if {"%varspace%" eq ""} {
-        set ns ::p::${OID}
-    } else {
-        if {[string match "::*" "%varspace%"]} {
-            set ns "%varspace%"
-        } else {
-            set ns ::p::${OID}::%varspace%
-        }
-    }
-
-
-    if {[llength $args]} {
-        #lassign [lindex $invocant 0] OID alias itemCmd cmd
-        if {[array exists ${ns}::o_%prop%]} {
-            #return [set ${ns}::o_%prop%($args)]
-            if {[llength $args] == 1} {
-                return [set ::p::${OID}::o_%prop%([lindex $args 0])]
-            } else {
-                return [lindex [set ::p::${OID}::o_%prop%([lindex $args 0])] {*}[lrange $args 1 end]]
-            }
-        } else {
-            set val [set ${ns}::o_%prop%]
-
-            set rType [expr {[scan [namespace tail $val] >%s rType] ? {object} : {unknown}}]
-            if {$rType eq "object"} {
-                #return [$val . item {*}$args]
-                return [$val {*}$args]
-            } else {
-                #treat as list?
-                return [lindex $val $args]
-            }
-        }
-    } else {
-        return [set ${ns}::o_%prop%]
-    }
-}
-
-
-proc ::p::predator::getprop_template_immediate {_ID_ args} {
-    if {[llength $args]} {
-        if {[array exists %ns%::o_%prop%]} {
-            return [set %ns%::o_%prop%($args)]
-        } else {
-            set val [set %ns%::o_%prop%]
-            set rType [expr {[scan [namespace tail $val] >%s rType] ? {object} : {unknown}}]
-            if {$rType eq "object"} {
-                #return [$val . item {*}$args]
-                #don't assume defaultmethod named 'item'! 
-                return [$val {*}$args]
-            } else {
-                #treat as list?
-                return [lindex $val $args]
-            }
-        }
-    } else {
-        return [set %ns%::o_%prop%]
-    }
-}
-
-
-
-
-
-
-
-
-proc ::p::predator::getprop_array {_ID_ prop args} {
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-
-	#upvar 0 ::p::${OID}::o_${prop} prop
-	#1st try: assume array
-	if {[catch {array get ::p::${OID}::o_${prop}} result]} {
-		#treat as list (why?)
-		#!review 
-		if {[info exists ::p::${OID}::o_${prop}]} {
-			array set temp [::list]
-			set i 0
-			foreach element ::p::${OID}::o_${prop} {
-				set temp($i) $element
-				incr i
-			}
-			set result [array get temp]
-		} else {		
-			error "unable to retrieve [set ::p::${OID}::o_${prop}] contents in 'array get' format"
-		}
-	}
-	return $result
-}
-
-proc ::p::predator::setprop_template {prop _ID_ args} {
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	if {"%varspace%" eq ""} {
-			set ns ::p::${OID}
-	} else {
-			if {[string match "::*" "%varspace%"]} {
-					set ns "%varspace%"
-			} else {
-					set ns ::p::${OID}::%varspace%
-			}
-	}	
-		
-		
-	if {[llength $args] == 1} {
-		#return [set ::p::${OID}::o_%prop% [lindex $args 0]]
-		return [set ${ns}::o_%prop% [lindex $args 0]]
-		
-	} else {
-		if {[array exists ${ns}::o_%prop%] || ![info exists ${ns}::o_%prop%]} {
-			#treat attempt to perform indexed write to nonexistant var, same as indexed write to array 
-			
-			#2 args - single index followed by a value
-			if {[llength $args] == 2} {
-				return [set ${ns}::o_%prop%([lindex $args 0]) [lindex $args 1]]		
-			} else {
-				#multiple indices
-				#return [set ::p::${OID}::o_%prop%([lrange $args 0 end-1]) [lindex $args end]]		
-				return [lset ${ns}::o_%prop%([lindex $args 0]) {*}[lrange $args 1 end-1] [lindex $args end] ]
-			}
-		} else {
-			#treat as list
-			return [lset ${ns}::o_%prop% [lrange $args 0 end-1] [lindex $args end]]		
-		}
-	}
-}
-
-#--------------------------------------
-#property read & write traces
-#--------------------------------------
-
-
-proc ::p::predator::propref_trace_read {get_cmd _ID_ refname prop indices vtraced idx op} {
-    
-    #puts stderr "\t-->propref_trace_read get_cmd:'$get_cmd'  refname:'$refname'  prop:'$prop' indices:'$indices' $vtraced idx:'$idx' "
-
-    #set cmd ::p::${OID}::(GET)$prop  ;#this is an interp alias to the head of the implementation command-chain.
-
-    if {[llength $idx]} {
-        if {[llength $idx] == 1} {
-            set ${refname}($idx) [$get_cmd $_ID_ {*}$indices $idx]
-        } else {
-            lset ${refname}([lindex $idx 0]) [lrange $idx 1 end] [$get_cmd $_ID_ {*}$indices {*}$idx]
-        }
-        return ;#return value ignored - in a trace we can only return the value by setting the traced variable to a value
-    } else {
-      if {![info exists $refname]} {
-            set $refname [$get_cmd $_ID_ {*}$indices]
-        } else {
-            set newval [$get_cmd $_ID_ {*}$indices]
-            if {[set $refname] ne $newval} {
-                set $refname $newval
-            }
-        }
-        return 
-    }
-}
-
-
-
-
-proc ::p::predator::propref_trace_write {_ID_ OID full_varspace refname vname idx op} {
-	#note 'vname' may be upvar-ed local - we need the fully qualified name so must use passed in $refname
-	#puts stdout "\t-->propref_trace_write $OID  ref:'$refname'   var:'$vname'  idx:'$idx'"
-	
-
-	#derive the name of the write command from the ref var.
-	set indices [lassign [split [namespace tail $refname] +] prop]
-
-
-	#assert - we will never have both a list in indices and an idx value
-	if {[llength $indices] && ($idx ne "")} {
-		#since Tcl has no nested arrays - we can't write to an idx within something like ${prop}+x 
-		#review - are there any datastructures which would/should allow this?
-		#this assertion is really just here as a sanity check for now
-		error "propref_trace_write unexpected values. Didn't expect a refname of the form ${prop}+* as well as an idx value"
-	}
-
-	#upvar #0 ::p::${OID}::_meta::map MAP
-	#puts "-->propref_trace_write map: $MAP"
-
-	#temporarily deactivate refsync trace
-	#puts stderr -->1>--removing_trace_o_${field}
-###	trace remove variable ::p::${OID}::o_${prop} [::list write] [::list ::p::predator::propvar_write_TraceHandler $OID $prop]
-	
-	#we need to catch, and re-raise any error that we may receive when writing the property 
-	# because we have to reinstate the propvar_write_TraceHandler after the call.
-	#(e.g there may be a propertywrite handler that deliberately raises an error)
-
-	set excludesync_refs $refname
-	set cmd ::p::${OID}::(SET)$prop
-
-
-	set f_error 0
-	if {[catch {
-
-		if {![llength $indices]} {
-			if {[string length $idx]} {
-				$cmd $_ID_ $idx [set ${refname}($idx)]
-				#::p::predator::refsyncvar_write_manualupdate $OID $excludesync_refs $prop  ::p::${OID}::o_${prop}($idx) [list]
-		###		::p::predator::refsyncvar_write_manualupdate $OID $excludesync_refs $prop  ::p::${OID}::o_${prop} [list $idx]
-				
-			} else {
-				$cmd $_ID_ [set $refname]
-		###		::p::predator::refsyncvar_write_manualupdate $OID $excludesync_refs $prop  ::p::${OID}::o_${prop} [list]
-			}
-		} else {
-			#puts " ++>> cmd:$cmd indices:'$indices'  refname:'$refname'\n"
-			$cmd $_ID_ {*}$indices [set $refname]
-		###	::p::predator::refsyncvar_write_manualupdate $OID $excludesync_refs $prop  ::p::${OID}::o_${prop} $indices
-		}
-
-	} result]} {
-		set f_error 1
-	}
-		
-
-
-	
-	#::p::predator::propvar_write_TraceHandler $OID $prop  ::p::${OID}::o_${prop} $indices write
-	#reactivate refsync trace
-	#puts stderr "****** reactivating refsync trace on o_$field"
-	#puts stderr -->2>--reactivating_trace_o_${field}
-    ### trace add variable ::p::${OID}::o_${prop} [::list write] [::list ::p::predator::propvar_write_TraceHandler $OID $prop]
-
-
-	if {$f_error} {
-		#!todo - review error & 'return' functions for proper way to throw  error, preserving callstack info for debugging.
-		# ?  return -code error $errMsg ? -errorinfo
-
-		#!quick n dirty
-		#error $errorMsg
-		return -code error -errorinfo $::errorInfo $result
-	} else {
-		return $result
-	}
-}
-
-
-
-
-
-proc ::p::predator::propref_trace_array {_ID_ OID refname vref idx op} {
-    #puts stderr "\t-->propref_trace_array OID:$OID refname:'$refname' var:'$vref' index:'$idx' operation:'$op'"
-    #NOTE - do not rely on $vref !!!!  (can be upvared - so could be anything.  e.g during 'parray' calls it is set to 'array')
-    
-    set indices [lassign [split [namespace tail $refname] +] prop] ;#make sure 'prop' is set
-
-    #set updated_value [::p::predator::getprop_array $prop $_ID_]
-    #puts stderr "-->array_Trace updated_value:$updated_value"
-    if {[catch {array set $refname [::p::predator::getprop_array $_ID_ $prop ]} errm]} {
-        puts stderr "-->propref_trace_array error $errm"
-        array set $refname {}
-    }
-
-    #return value ignored for 
-}
-
-
-#--------------------------------------
-#
-proc ::p::predator::object_array_trace {OID _ID_ vref idx op} {
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias itemCmd 
-
-
-    #don't rely on variable name passed by trace - may have been 'upvar'ed
-    set refvar ::p::${OID}::_ref::__OBJECT
-
-    #puts "+=====>object_array_trace $map '$vref' '$idx' '$op' refvar: $refvar"
-
-    set iflist [dict get $MAP interfaces level0]
-
-    set plist [list]
-
-    #!todo - get propertylist from cache on object(?)
-    foreach IFID [lreverse $iflist] {
-        dict for {prop pdef} [set ::p::${IFID}::_iface::o_properties] {
-            #lassign $pdef v	
-            if {[catch {lappend plist $prop [set ::p::${OID}::o_${prop}]}]} {
-                if {[array exists ::p::${OID}::o_${prop}]} {
-                    lappend plist $prop [array get ::p::${OID}::o_${prop}]
-                } else {
-                    #ignore - array only represents properties that have been set.
-                    #error "property $v is not set"
-                    #!todo - unset corresponding items in $refvar if needed?
-                }
-            }
-        }
-    }
-    array set $refvar $plist	
-}
-
-
-proc ::p::predator::object_read_trace {OID _ID_ vref idx op} {
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias itemCmd 
-	#don't rely on variable name passed by trace.
-	set refvar ::p::${OID}::_ref::__OBJECT
-
-	#puts "\n\n+=====>object_read_trace map:'$MAP' '$vref' '$idx' '$op' refvar: $refvar\n\n"
-
-	#!todo? - build a list of all interface properties (cache it on object??)
-	set iflist [dict get $MAP interfaces level0]
-	set IID ""
-	foreach id [lreverse $iflist] {
-		if {$idx in [dict keys [set ::p::${id}::_iface::o_properties]]} {
-			set IID $id
-			break
-		}
-	}
-	
-	if {[string length $IID]} {
-		#property
-		if {[catch {set ${refvar}($idx) [::p::${id}::_iface::(GET)$idx $_ID_]} errmsg]} {
-			puts stderr "\twarning: ::p::${id}::_iface::(GET)$idx retrieval failed (array?) errmsg:$errmsg"
-		}
-	} else {
-		#method
-		error "property '$idx' not found"
-	}
-} 
-
-
-proc ::p::predator::object_unset_trace {OID _ID_ vref idx op} {
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-	lassign [dict get $MAP invocantdata] OID alias itemCmd 
-	
-	#!todo - ???
-
-	if {![llength [info commands ::p::${OID}::$idx]]} {
-		error "no such method or property: '$idx'"
-	} else {
-		#!todo? - build a list of all interface properties (cache it on object??)
-		set iflist [dict get $MAP interfaces level0]
-		set found 0
-		foreach id [lreverse $iflist] {
-            if {$idx in [dict keys [set ::p::${id}::_iface::o_properties]]} {
-                set found 1
-                break
-            }
-		}
-
-		if {$found} {
-			 unset ::p::${OID}::o_$idx
-		} else {
-			puts stderr "\tWARNING: UNIMPLEMENTED CASE! (unset)  object_unset_trace id:$OID objectcmd:[lindex [dict get $MAP invocantdata] 3] var:$vref prop:$idx"
-		} 
-	}
-}
-
-
-proc ::p::predator::object_write_trace {OID _ID_ vref idx op} {
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias itemCmd 
-  #don't rely on variable name passed by trace.
-	set refvar ::p::${OID}::_ref::__OBJECT
-	#puts "+=====>object_write_trace $MAP '$vref' '$idx' '$op' refvar: $refvar"
-
-
-	if {![llength [info commands ::p::${OID}::$idx]]} {
-		#!todo - create new property in interface upon attempt to write to non-existant?
-		# - or should we require some different kind of object-reference for that?
-		array unset $refvar $idx ;#make sure 'array names' on the ref doesn't include this $idx
-		error "no such method or property: '$idx'"
-	} else {
-		#!todo? - build a list of all interface properties (cache it on object??)
-		set iflist [dict get $MAP interfaces level0]
-		set IID ""
-		foreach id [lreverse $iflist] {
-            if {$idx in [dict keys [set ::p::${id}::_iface::o_properties]]} {
-                set IID $id
-                break
-            }
-		}
-
-		#$IID is now topmost interface in default iStack which has this property
-
-		if {[string length $IID]} {
-				#write to defined property 
-
-				::p::${IID}::_iface::(SET)$idx $_ID_ [set ${refvar}($idx)]
-		} else {
-				#!todo - allow write of method body back to underlying object?
-				#attempted write to 'method' ..undo(?)
-				array unset $refvar $idx ;#make sure 'array names' on the ref doesn't include this $idx
-				error "cannot write to method '$idx'"
-				#for now - disallow
-		}
-	}
-
-}
-
-
-
-proc ::p::predator::propref_trace_unset {_ID_ OID  refname vref idx op} {
-	#note 'vref' may be upvar-ed local - we need the fully qualified name so must use passed in $refname
-	
-	set refindices [lassign [split [namespace tail $refname] +] prop]
-	#derive the name of any potential PropertyUnset command from the refname. i.e (UNSET)$prop
-	#if there is no PropertyUnset command - we unset the underlying variable directly
-	
-	trace remove variable ::p::${OID}::o_${prop} [::list unset] [::list ::p::predator::propvar_unset_TraceHandler $OID $prop]
-
-
-	if {[catch {
-	
-	#assert if refname is complex (prop+idx etc),  we will not get a reference trace with an $idx value 
-	#i.e 
-	if {[llength $refindices] && [string length $idx]} {
-		puts stderr "\t !!!!! unexpected call to propref_trace_unset oid:'$OID' refname:'$refname' vref:'$vref' idx:'$idx' op:'$op'"
-		error "unexpected call to propref_trace_unset"
-	}
-	
-	
-	upvar #0 ::p::${OID}::_meta::map MAP
-
-	set iflist [dict get $MAP interfaces level0]
-	#find topmost interface containing this $prop
-	set IID ""
-	foreach id [lreverse $iflist] {
-      if {$prop in [dict keys [set ::p::${id}::_iface::o_properties]]} {
-          set IID $id
-          break
-      }
-	}
-	if {![string length $IID]} {
-		error "propref_trace_unset failed to find property '$prop' on objectid $OID ([lindex [dict get $_ID_ i this] 0 3])"
-	}
-
-
-
-	
-	
-
-	if {[string length $idx]} {
-			#eval "$_alias ${unset_}$field $idx"	
-			#what happens to $refindices???
-			
-
-			#!todo varspace 
-			
-			if {![llength $refindices]} {
-				#puts stdout "\t 1a@@@@ propref_trace_unset $OID  ref:'$refname'   var:'$vref'  idx:'$idx'"
-			
-				if {![llength [info commands ::p::${IID}::_iface::(UNSET)$prop]]} {
-					unset ::p::${OID}::o_${prop}($idx)
-				} else {
-					::p::${IID}::_iface::(UNSET)$prop $_ID_ $idx
-				}
-
-
-				#manually call refsync, passing it this refvar as an exclusion
-				::p::predator::refsyncvar_unset_manualupdate $OID  $refname $prop  ::p::${OID}::o_${prop} $idx 
-			} else {
-				#assert - won't get here
-				error 1a
-			
-			}
-			
-	} else {
-			if {[llength $refindices]} {
-				#error 2a
-				#puts stdout "\t 2a@@@@ propref_trace_unset $OID  ref:'$refname'   var:'$vref'  idx:'$idx'"
-
-					if {![llength [info commands ::p::${IID}::_iface::(UNSET)$prop]]} {
-						#review - what about list-type property?
-						#if {[array exists ::p::${OID}::o_${prop}]}  ???
-						unset ::p::${OID}::o_${prop}($refindices)
-					} else {
-						::p::${IID}::_iface::(UNSET)$prop $_ID_ $refindices
-					}
-
-			
-
-				#manually call refsync, passing it this refvar as an exclusion
-				::p::predator::refsyncvar_unset_manualupdate $OID $refname $prop  ::p::${OID}::o_${prop} $refindices
-
-
-			} else {
-				#puts stdout "\t 2b@@@@ propref_trace_unset $OID  ref:'$refname'   var:'$vref'  idx:'$idx'"
-
-					#ref is not of form prop+x etc  and no idx in the trace - this is a plain unset
-					if {![llength [info commands ::p::${IID}::_iface::(UNSET)$prop]]} {
-						unset ::p::${OID}::o_${prop}
-					} else {
-						::p::${IID}::_iface::(UNSET)$prop $_ID_ ""
-					} 
-					#manually call refsync, passing it this refvar as an exclusion
-					::p::predator::refsyncvar_unset_manualupdate $OID $refname $prop  ::p::${OID}::o_${prop} {}
-
-			}
-	}
-
-	
-
-	
-	} errM]} {
-		#set ::LAST_UNSET_ERROR "$errM\n[set ::errorInfo]"
-		set ruler [string repeat - 80]
-		puts stderr "\t$ruler"
-		puts stdout "\t @@@@ERROR propref_trace_unset $OID  ref:'$refname'   var:'$vref'  idx:'$idx'"
-		puts stderr "\t$ruler"
-		puts stderr $errM
-		puts stderr "\t$ruler"
-		
-	} else {
-		#puts stdout "\t @@@@ propref_trace_unset $OID  ref:'$refname'   var:'$vref'  idx:'$idx'"
-		#puts stderr "*@*@*@*@ end propref_trace_unset - no error"
-	}
-
-	trace add variable ::p::${OID}::o_${prop} [::list unset] [::list ::p::predator::propvar_unset_TraceHandler $OID $prop]
-
-	
-}
-
-
-
-
-proc ::p::predator::refsyncvar_unset_manualupdate {OID triggeringRef prop vtraced vidx} {
-
-	#Do not use 'info exists' (avoid triggering read trace) - use info vars
-	if {[info vars ::p::${OID}::_ref::$prop] eq "::p::${OID}::_ref::$prop"} {
-		#puts "    **> lappending  '::p::REF::${OID}::$prop'"
-		lappend refvars ::p::${OID}::_ref::$prop
-	}
-  lappend refvars {*}[info vars ::p::${OID}::_ref::${prop}+*]
-	
-
-		
-	if {[string length $triggeringRef]} {
-		set idx [lsearch -exact $refvars $triggeringRef]
-		if {$idx >= 0} {
-			set refvars [lreplace $refvars[set refvars {}] $idx $idx]   ;#note inline K combinator [set refvars {}]
-		}
-	}
-	if {![llength $refvars]} {
-		#puts stderr " %%%%%%%%%% no refvars for propvar_unset_TraceHandler to update - short circuiting . $OID $triggeringRef $prop $vtraced $vidx"
-		return
-	}
-
-	
-	#*usually* triggeringRef is not in the reflist because the triggeringRef is being unset  
-	# - but this is not the case when we do an array unset of an element using a reference to the whole array e.g  "array unset [>obj . arr .] b"
-	if {([string length $triggeringRef]) && ($triggeringRef in $refvars)} {
-			#puts stderr "\t@@@@@@@@@@ propvar_unset_TraceHandler unexpected situation. triggeringRef $triggeringRef in refvars:$refvars during unset ???"
-			puts stderr "\t@@@@@ propvar_unset_TraceHandler triggeringRef $triggeringRef is in refvars list - probably a call of form 'array unset \[>obj .arr .\] someindex'"
-	}
-
-	
-	puts stderr "\t refsyncvar_unset_manualupdate OID:'$OID' triggeringRef:'$triggeringRef' prop:'$prop' vtraced:'$vtraced' vidx:'$vidx' "
-	
-	
-		
-		upvar $vtraced SYNCVARIABLE
-		
-		
-		#We are only interested in suppressing the 'setGet_TraceHandler' traces on refvars
-		array set traces [::list]
-	
-		#puts stderr "*-*-*-*-*-* refvars \n- [join $refvars "\n- "]"
-	
-	
-		foreach rv $refvars {
-			#puts "--refvar $rv"
-			foreach tinfo [trace info variable $rv] {
-				#puts "##trace $tinfo"
-				set ops {}; set cmd {}
-				lassign $tinfo ops cmd
-				#!warning - assumes traces with single operation per handler.
-				#write & unset traces on refvars need to be suppressed
-				#we also need to be able to read certain refvars without triggering retrieval of underlying value in order to detect if changed.
-				if {$ops in {read write unset array}} {
-					if {[string match "::p::predator::propref_trace_*" $cmd]} {
-						lappend traces($rv) $tinfo
-						trace remove variable $rv $ops $cmd
-						#puts stderr "*-*-*-*-*-* removing $ops trace on $rv -> $cmd"
-					}
-				}
-			}
-		}
-		
-	
-	
-		
-		if {[array exists SYNCVARIABLE]} {
-		
-			#underlying variable is an array - we are presumably unsetting just an element
-			set vtracedIsArray 1	
-		} else {
-			#!? maybe the var was an array - but it's been unset?
-			set vtracedIsArray 0
-		}
-	
-		#puts stderr "--------------------------------------------------\n\n"
-		#some things we don't want to repeat for each refvar in case there are lots of them..
-		
-		#set triggeringRefIdx $vidx 
-		
-		if {[string match "${prop}+*" [namespace tail $triggeringRef]]} {
-			set triggering_indices [lrange [split [namespace tail $triggeringRef] +] 1 end]
-		} else {
-			set triggering_indices [list]
-		}
-		
-		
-	
-	
-		#puts stderr ">>>...----refsync-trace = $vtraced $op refvars:$refvars"
-		#puts stderr ">>> [trace info variable $vtraced]"
-			#puts "--- unset branch refvar:$refvar"
-				
-				
-				
-				if {[llength $vidx]} {
-					#trace called with an index - must be an array
-					foreach refvar $refvars {
-						set reftail [namespace tail $refvar]
-					
-						if {[string match "${prop}+*" $reftail]} {
-							#!todo - add test
-							if {$vidx eq [lrange [split $reftail +] 1 end]} {			
-								#unset if indices match
-								error "untested, possibly unused branch spuds1"
-								#puts "1111111111111111111111111"
-								unset $refvar
-							}
-						} else {
-							#test exists - #!todo - document which one
-						
-							#see if we succeeded in unsetting this element in the underlying variables
-							#(may have been blocked by a PropertyUnset body)	
-							set element_exists [uplevel 1 [::list info exists ${vtraced}($vidx)]]	
-							#puts "JJJJJJ  vtraced:$vtraced vidx:$vidx element_exists:$element_exists"
-							if {$element_exists} {
-								#do nothing it wasn't actually unset
-							} else {
-							  #puts "JJJJJ unsetting ${refvar}($vidx)"
-								unset ${refvar}($vidx)
-							}
-						}
-					}	
-					
-					
-					
-					
-					
-				} else {
-				
-					foreach refvar $refvars {
-						set reftail [namespace tail $refvar]
-				
-						if {[string match "${prop}+*" $reftail]} {
-							#check indices of triggering refvar  match this refvars indices
-							
-							
-							if {$reftail eq [namespace tail $triggeringRef]} {
-								#!todo - add test
-								error "untested, possibly unused branch spuds2"
-								#puts "222222222222222222"
-								unset $refvar
-							} else {
-								
-								#error "untested - branch spuds2a"
-								
-							
-							}
-							 
-						} else {
-							#!todo -add test
-							#reference is directly to property var
-							error "untested, possibly unused branch spuds3"
-							#theoretically no other non-indexed ref.. so $triggeringRefIdx must contain non-zero-len string?
-							puts "\t33333333333333333333"
-	
-							if {[string length $triggeringRefIdx]} {
-								unset $refvar($triggeringRefIdx)	
-							}
-						}								
-					}
-					
-				}
-				
-				
-				
-			
-			#!todo - understand.
-			#puts stderr "\n*****\n   propvar_unset_TraceHandler $refvar unset $prop $args \n*****\n"
-			#catch {unset $refvar}  ;#oops - Tcl_EventuallyFree called twice - abnormal program termination (tcl8.4?)
-		
-		
-		#reinstall the traces we stored at the beginning of this proc.
-		foreach rv [array names traces] {
-			foreach tinfo $traces($rv) {
-				set ops {}; set cmd {}
-				lassign $tinfo ops cmd
-	
-				#puts stderr "****** re-installing setGet trace '$ops' on variable $rv"
-				trace add variable $rv $ops $cmd
-			}
-		}
-		
-
-
-
-
-}
-
-
-proc ::p::predator::propvar_unset_TraceHandler {OID prop vtraced vidx op} {
-
-	upvar $vtraced SYNCVARIABLE
-
-	set refvars [::list]
-	#Do not use 'info exists' (avoid triggering read trace) - use info vars
-	if {[info vars ::p::${OID}::_ref::$prop] eq "::p::${OID}::_ref::$prop"} {
-		lappend refvars ::p::${OID}::_ref::$prop
-	}
-  lappend refvars {*}[info vars ::p::${OID}::_ref::${prop}+*]
-	
-	
-
-  #short_circuit breaks unset traces for array elements (why?)
-	
-		
-	if {![llength $refvars]} {
-		#puts stderr "\t%%%%%%%%%% no refvars for propvar_unset_TraceHandler to update - short circuiting . OID:'$OID' prop:'$prop' vtraced:'$vtraced' vidx:'$vidx'"
-		return
-	} else {
-		puts stderr "\t****** [llength $refvars] refvars for propvar_unset_TraceHandler to update. OID:'$OID' prop:'$prop' vtraced:'$vtraced' vidx:'$vidx'"
-	}
-
-	if {[catch {
-	
-
-	
-	#We are only interested in suppressing the 'setGet_TraceHandler' traces on refvars
-	array set traces [::list]
-
-	#puts stderr "*-*-*-*-*-* refvars \n- [join $refvars "\n- "]"
-
-
-	foreach rv $refvars {
-		#puts "--refvar $rv"
-		foreach tinfo [trace info variable $rv] {
-			#puts "##trace $tinfo"
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-			#!warning - assumes traces with single operation per handler.
-			#write & unset traces on refvars need to be suppressed
-			#we also need to be able to read certain refvars without triggering retrieval of underlying value in order to detect if changed.
-			if {$ops in {read write unset array}} {
-				if {[string match "::p::predator::propref_trace_*" $cmd]} {
-					lappend traces($rv) $tinfo
-					trace remove variable $rv $ops $cmd
-					#puts stderr "*-*-*-*-*-* removing $ops trace on $rv -> $cmd"
-				}
-			}
-		}
-	}
-	
-
-
-	
-	if {[array exists SYNCVARIABLE]} {
-	
-		#underlying variable is an array - we are presumably unsetting just an element
-		set vtracedIsArray 1	
-	} else {
-		#!? maybe the var was an array - but it's been unset?
-		set vtracedIsArray 0
-	}
-
-	#puts stderr "--------------------------------------------------\n\n"
-	#some things we don't want to repeat for each refvar in case there are lots of them..
-	set triggeringRefIdx $vidx 
-
-
-
-	#puts stderr ">>>...----refsync-trace = $vtraced $op refvars:$refvars"
-	#puts stderr ">>> [trace info variable $vtraced]"
-		#puts "--- unset branch refvar:$refvar"
-			
-			
-			
-			if {[llength $vidx]} {
-				#trace called with an index - must be an array
-				foreach refvar $refvars {
-					set reftail [namespace tail $refvar]
-				
-					if {[string match "${prop}+*" $reftail]} {
-						#!todo - add test
-						if {$vidx eq [lrange [split $reftail +] 1 end]} {			
-							#unset if indices match
-							error "untested, possibly unused branch spuds1"
-							#puts "1111111111111111111111111"
-							unset $refvar
-						}
-					} else {
-						#test exists - #!todo - document which one
-					
-						#see if we succeeded in unsetting this element in the underlying variables
-						#(may have been blocked by a PropertyUnset body)	
-						set element_exists [uplevel 1 [::list info exists ${vtraced}($vidx)]]	
-						#puts "JJJJJJ  vtraced:$vtraced vidx:$vidx element_exists:$element_exists"
-						if {$element_exists} {
-							#do nothing it wasn't actually unset
-						} else {
-						  #puts "JJJJJ unsetting ${refvar}($vidx)"
-							unset ${refvar}($vidx)
-						}
-					}
-				}	
-				
-				
-				
-				
-				
-			} else {
-			
-				foreach refvar $refvars {
-					set reftail [namespace tail $refvar]
-					unset $refvar
-			
-				}
-				
-			}
-			
-			
-			
-		
-		#!todo - understand.
-		#puts stderr "\n*****\n   propvar_unset_TraceHandler $refvar unset $prop $args \n*****\n"
-		#catch {unset $refvar}  ;#oops - Tcl_EventuallyFree called twice - abnormal program termination (tcl8.4?)
-	
-	
-	#reinstall the traces we stored at the beginning of this proc.
-	foreach rv [array names traces] {
-		foreach tinfo $traces($rv) {
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-
-			#puts stderr "****** re-installing setGet trace '$ops' on variable $rv"
-			trace add variable $rv $ops $cmd
-		}
-	}
-	
-	} errM]} {
-		set ruler [string repeat * 80]
-		puts stderr "\t$ruler"
-		puts stderr "\t>>>>>>>$ propvar_unset_TraceHandler OID:'$OID' prop:'$prop' vtraced:'$vtraced' vidx:'$vidx' $op"
-		puts stderr "\t$ruler"
-		puts stderr $::errorInfo
-		puts stderr "\t$ruler"
-		
-	}
-	
-}
-
-proc ::p::predator::refsyncvar_write_manualupdate {OID triggeringRef prop vtraced indices} {
-	error hmmmmm
-	upvar $vtraced SYNCVARIABLE
-	#puts stderr "\t>>>>>>>$ refsyncvar_write_manualupdate $OID '$triggeringRef' '$prop' vtraced:'$vtraced' indices:'$indices' "
-	set refvars [::list]
-	
-	#avoid info exists ::p::${OID}::_ref::$prop (info exists triggers read unnecessary read trace )
-	if {[info vars ::p::${OID}::_ref::$prop] eq "::p::${OID}::_ref::$prop"} {
-		lappend refvars ::p::${OID}::_ref::$prop  ;#this is the basic unindexed reference we normally get when getting a standard property ref (e.g set ref [>obj . prop .])
-	}
-	lappend refvars {*}[info vars ::p::${OID}::_ref::${prop}+*]  ;#add any indexed references
-	#assert triggeringRef is in the list
-	if {([string length $triggeringRef]) && ($triggeringRef ni $refvars)} {
-		error "@@@@@@@@@@ refsyncvar_write_manualupdate unexpected situation. triggeringRef $triggeringRef ni refvars:$refvars"
-	}
-	set refposn [lsearch -exact $refvars $triggeringRef]
-	#assert - due to test above, we know $triggeringRef is in the list so refposn > 0
-	set refvars [lreplace $refvars[set refvars {}] $refposn $refposn]   ;#note inline K combinator [set refvars {}]
-	if {![llength $refvars]} {
-		#puts stderr " %%%%%%%%%% no refvars for refsyncvar_write_manualupdate to update - short circuiting . OID:$OID prop:$prop"
-		return [list refs_updates [list]]
-	}
-
-	#suppress the propref_trace_* traces on all refvars
-	array set traces [::list]
-	array set external_traces [::list] ;#e.g application/3rd party traces on "">obj . prop ."
-	#we do not support tracing of modifications to refs which occur from inside the pattern system. ie we disable them during refsync
-	#todo - after finished refsyncing - consider manually firing the external_traces in such a way that writes/unsets raise an error?
-	#(since an external trace should not be able to affect a change which occured from inside the object - but can affect values from application writes/unsets to the ref)
-
-	foreach rv $refvars {
-		#puts "--refvar $rv"
-		foreach tinfo [trace info variable $rv] {
-			#puts "##trace $tinfo"
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-			#!warning - assumes traces with single operation per handler.
-			#write & unset traces on refvars need to be suppressed
-			#we also need to be able to read certain refvars without triggering retrieval of underlying value in order to detect if changed.
-			
-			
-			if {[string match "::p::predator::propref_trace_*" $cmd]} {
-				lappend traces($rv) $tinfo
-				trace remove variable $rv $ops $cmd
-				#puts stderr "*-*-*-*-*-* removing $ops trace on $rv -> $cmd"
-			} else {
-				#all other traces are 'external'
-				lappend external_traces($rv) $tinfo
-				#trace remove variable $rv $ops $cmd
-			}
-			
-		}
-	}
-	#--------------------------------------------------------------------------------------------------------------------------
-	if {([array exists SYNCVARIABLE]) || (![info exists SYNCVARIABLE])} {
-		if {![info exists SYNCVARIABLE]} {
-			error "WARNING: REVIEW why does $vartraced not exist here?"
-		}
-		#either the underlying variable is an array
-		# OR - underlying variable doesn't exist - so we treat the property as an array because of the indexed access pattern
-		set treat_vtraced_as_array 1	
-	} else {
-		set treat_vtraced_as_array 0
-	}
-	
-	set refs_updated [list]
-	set refs_deleted [list]  ;#unset due to index no longer being relevant
-	if {$treat_vtraced_as_array} {
-		foreach refvar $refvars {
-			#puts stdout "\n\n \tarrayvariable:'$vtraced' examining REFVAR:'$refvar'"
-			set refvar_tail [namespace tail $refvar]
-			if {[string match "${prop}+*" $refvar_tail]} {
-				#refvar to update is curried e.g ::p::${OID}::_ref::${prop}+x+y
-				set ref_indices [lrange [split $refvar_tail +] 1 end]
-				if {[llength $indices]} {
-					if {[llength $indices] == 1} {
-						if {[lindex $ref_indices 0] eq [lindex $indices 0]} {
-							#error "untested xxx-a"
-							set ${refvar} [set SYNCVARIABLE([lindex $indices 0])]
-							lappend refs_updated $refvar
-						} else {
-							  #test exists
-								#error "xxx-ok single index"
-								#updating a different part of the property - nothing to do
-						}
-					} else {
-						#nested index 
-						if {[lindex $ref_indices 0] eq [lindex $indices 0]} {
-							if {[llength $ref_indices] == 1} {
-								#error "untested xxx-b1"
-								set ${refvar} [lindex [set SYNCVARIABLE([lindex $indices 0])] [lrange $indices 1 end] ]
-							} else {
-								#assert llength $ref_indices > 1
-								#NOTE - we cannot test index equivalence reliably/simply  just by comparing indices 
-								#compare by value 
-								
-								if {![catch  {lindex [set SYNCVARIABLE([lindex $indices 0])] [lrange $indices 1 end]} possiblyNewVal]} {
-									#puts stderr "\tYYYYYYYYY $refvar:'[set $refvar]'' / possiblyNewVal:'$possiblyNewVal'"
-									if {[set $refvar] ne $possiblyNewVal} {
-										set $refvar $possiblyNewVal
-									} 
-								} else {
-									#fail to retrieve underlying value corrsponding to these $indices
-									unset $refvar
-								}
-							}
-						} else {
-							#test exists
-							#error "untested xxx-ok deepindex"
-							#updating a different part of the property - nothing to do
-						}
-					}
-				} else {
-					error "untested xxx-c"
-				
-				}
-				
-			} else {
-				#refvar to update is plain e.g ::p::${OID}::_ref::${prop}
-				if {[llength $indices]} {
-					if {[llength $indices] == 1} {
-						set ${refvar}([lindex $indices 0]) [set SYNCVARIABLE([lindex $indices 0])]
-					} else {
-						lset ${refvar}([lindex $indices 0]) {*}[lrange $indices 1 end] [lindex [set SYNCVARIABLE([lindex $indices 0])] {*}[lrange $indices 1 end]]
-					}
-					lappend refs_updated $refvar
-				} else {
-					error "untested yyy"
-					set $refvar $SYNCVARIABLE
-				}
-			}
-		}
-	} else {
-		#vtraced non array, but could be an array element e.g ::p::${OID}::_ref::ARR(x)
-		#
-		foreach refvar $refvars {
-			#puts stdout "\n\n \tsimplevariable:'$vtraced' examining REFVAR:'$refvar'"
-			set refvar_tail [namespace tail $refvar]
-			if {[string match "${prop}+*" $refvar_tail]} {
-				#refvar to update is curried e.g ::p::${OID}::_ref::${prop}+x+y
-				set ref_indices [lrange [split $refvar_tail +] 1 end]
-				
-				if {[llength $indices]} {
-					#see if this update would affect this curried ref
-					#1st see if we can short-circuit our comparison based on numeric-indices 
-					if {[string is digit -strict [join [concat $ref_indices $indices] ""]]} {
-						#both sets of indices are purely numeric (no end end-1 etc)
-						set rlen [llength $ref_indices]
-						set ilen [llength $indices]
-						set minlen [expr {min($rlen,$ilen)}]
-						set matched_firstfew_indices 1 ;#assume the best
-						for {set i 0} {$i < $minlen} {incr i} {
-							if {[lindex $ref_indices $i] ne [lindex $indices $i]} {
-									break ;#
-							}
-						}
-						if {!$matched_firstfew_indices} {
-							#update of this refvar not required
-							#puts stderr "\t@@@1 SKIPPING refvar $refvar - indices don't match  $ref_indices  vs $indices"
-							break ;#break to next refvar in the foreach loop
-						}
-					}	
-					#failed to short-circuit
-					
-					#just do a simple value comparison - some optimisations are possible, but perhaps unnecessary here
-					set newval [lindex $SYNCVARIABLE $ref_indices]
-					if {[set $refvar] ne $newval} {
-							set $refvar $newval
-							lappend refs_updated $refvar
-					}
-					
-				} else {
-					#we must be updating the entire variable - so this curried ref will either need to be updated or unset
-					  set newval [lindex $SYNCVARIABLE $ref_indices]
-						if {[set ${refvar}] ne $newval} {
-							set ${refvar} $newval
-							lappend refs_updated $refvar
-						}
-				}
-			} else {
-				#refvar to update is plain e.g ::p::${OID}::_ref::${prop}
-			  if {[llength $indices]} {
-					#error "untested zzz-a"
-					set newval [lindex $SYNCVARIABLE $indices]
-					if {[lindex [set $refvar] $indices] ne $newval} {
-						lset ${refvar} $indices $newval
-						lappend refs_updated $refvar
-					}
-				} else {
-					if {[set ${refvar}] ne $SYNCVARIABLE} {
-						set ${refvar} $SYNCVARIABLE
-						lappend refs_updated $refvar
-					}
-				}
-				
-			}
-			
-		}
-	}
-	#--------------------------------------------------------------------------------------------------------------------------
-	
-	#!todo - manually fire $external_traces as appropriate - but somehow raise error if attempt to write/unset 
-	
-	#reinstall the traces we stored at the beginning of this proc.
-	foreach rv [array names traces] {
-		if {$rv ni $refs_deleted} {
-			foreach tinfo $traces($rv) {
-				set ops {}; set cmd {}
-				lassign $tinfo ops cmd
-
-				#puts stderr "****** re-installing  trace '$ops' on variable $rv cmd:$cmd"
-				trace add variable $rv $ops $cmd
-			}
-		}
-	}
-	foreach rv [array names external_traces] {
-		if {$rv ni $refs_deleted} {
-			foreach tinfo $external_traces($rv) {
-				set ops {}; set cmd {}
-				lassign $tinfo ops cmd
-				#trace add variable $rv $ops $cmd
-			}
-		}
-	}
-	
-	
-	return [list updated_refs $refs_updated]
-}
-
-#purpose: update all relevant references when context variable changed directly
-proc ::p::predator::propvar_write_TraceHandler {OID prop vtraced vidx op} {
-	#note that $vtraced may have been upvared in calling scope - so could have any name! only use it for getting/setting values - don't rely on it's name in any other way.
-	#we upvar it here instead of using uplevel - as presumably upvar is more efficient (don't have to wory about whether uplevelled script is bytecompiled etc) and also makes code simpler
-	
-	upvar $vtraced SYNCVARIABLE
- 	#puts stderr "\t>>>>>>>$ propvar_write_TraceHandler OID:$OID propertyname:'$prop' vtraced:'$vtraced' index:'$vidx' operation:$op"
-    set t_info [trace vinfo $vtraced]
-    foreach t_spec $t_info {
-        set t_ops [lindex $t_spec 0]
-        if {$op in $t_ops} {
-            puts stderr "\t!!!!!!!! propvar_write_Tracehandler [lindex $t_spec 1]"
-        }
-    }
-    
-	#puts stderr -*-*-[info vars ::p::_ref::${OID}::[lindex $prop 0]+*]-*-*-
-	#vtype = array | array-item | list | simple
-	
-	set refvars [::list]
-	
-	############################
-	#!!!NOTE!!! do not call 'info exists' on a propref here as it will trigger a read trace -which then pulls in the value from the (GET)prop function etc!!!
-	#This would be extra cpu work - and sets the propref prematurely (breaking proper property-trace functionality plus vwaits on proprefs)
-	#The alternative 'info vars' does not trigger traces 
-	if {[info vars ::p::${OID}::_ref::$prop] eq "::p::${OID}::_ref::$prop"} {
-		#puts "    **> lappending  '::p::REF::${OID}::$prop'"
-		lappend refvars ::p::${OID}::_ref::$prop  ;#this is the basic unindexed reference we normally get when getting a standard property ref (e.g set ref [>obj . prop .])
-	}
-	############################
-
-	#lappend refvars ::p::${OID}::_ref::$prop  ;#this is the basic unindexed reference we normally get when getting a standard property ref (e.g set ref [>obj . prop .])
-  lappend refvars {*}[info vars ::p::${OID}::_ref::${prop}+*]  ;#add any indexed references
-
-
-	if {![llength $refvars]} {
-		#puts stderr "\t%%%%%%%%%% no refvars for propvar_write_TraceHandler to update - short circuiting . OID:$OID prop:$prop"
-		return
-	}
-	
-	
-	#puts stderr "*-*-*-*-*-* refvars \n- [join $refvars "\n- "]"
-	
-	#We are only interested in suppressing the pattern library's 'propref_trace_*' traces and 3rd party 'read' traces on refvars
-	array set predator_traces [::list]
-	#maintain two lists of external traces - as we need to temporarily deactivate all non-pattern read traces even if they are part of a more comprehensive trace..
-	#ie for something like 'trace add variable someref {write read array} somefunc'  
-	# we need to remove and immediately reinstall it as a {write array} trace - and at the end of this procedure - reinstall it as the original {write read array} trace
-	array set external_read_traces [::list] ;#pure read traces the library user may have added 
-	array set external_readetc_traces [::list] ;#read + something else traces the library user may have added
-	foreach rv $refvars {
-		#puts "--refvar $rv"
-		foreach tinfo [trace info variable $rv] {
-			#puts "##trace $tinfo"
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-			#!warning - assumes traces with single operation per handler.
-			#write & unset traces on refvars need to be suppressed
-			#we also need to be able to read certain refvars without triggering retrieval of underlying value in order to detect if changed.
-			#if {$ops in {read write unset array}} {}
-			
-				if {[string match "::p::predator::propref_trace_*" $cmd]} {
-					lappend predator_traces($rv) $tinfo
-					trace remove variable $rv $ops $cmd
-					#puts stderr "*-*-*-*-*-* removing $ops trace on $rv -> $cmd"
-				} else {
-					#other traces 
-				#	puts "##trace $tinfo"
-					if {"read" in $ops} {
-						if {[llength $ops] == 1} {
-							#pure read - 
-							lappend external_read_traces($rv) $tinfo
-							trace remove variable $rv $ops $cmd
-						} else {
-							#mixed operation trace - remove and reinstall without the 'read'
-							lappend external_readetc_traces($rv) $tinfo
-							set other_ops [lsearch -all -inline -not $ops "read"]
-							trace remove variable $rv $ops $cmd
-							#reinstall trace for non-read operations only
-							trace add variable $rv $other_ops $cmd
-						}
-					}
-				}
-		}
-	}
-	
-	
-	if {([array exists SYNCVARIABLE]) || (![info exists SYNCVARIABLE])} {
-		#either the underlying variable is an array
-		# OR - underlying variable doesn't exist - so we treat the property as an array because of the indexed access pattern
-		set vtracedIsArray 1	
-	} else {
-		set vtracedIsArray 0
-	}
-
-	#puts stderr "--------------------------------------------------\n\n"
-	
-	#puts stderr ">>>...----refsync-trace = $vtraced $op refvars:$refvars"
-	#puts stderr ">>> [trace info variable $vtraced]"
-	#puts "**write*********** propvar_write_TraceHandler $prop $vtraced $vidx $op"
-	#puts "**write*********** refvars: $refvars"
-		
-		#!todo? unroll foreach into multiple foreaches within ifs?
-		#foreach refvar $refvars {}
-		
-		
-			#puts stdout "propvar_write_TraceHandler examining REFVAR $refvar"
-			if {[string length $vidx]} {
-				#indexable
-				if {$vtracedIsArray} {
-				
-					foreach refvar $refvars {
-						#puts stderr " - - a refvar $refvar vidx: $vidx"
-						set tail [namespace tail $refvar]
-						if {[string match "${prop}+*" $tail]} {
-							#refvar is curried
-							#only set if vidx matches curried index
-							#!todo -review
-							set idx [lrange [split $tail +] 1 end]
-							if {$idx eq $vidx} {
-								set newval [set SYNCVARIABLE($vidx)]
-								if {[set $refvar] ne $newval} {
-									set ${refvar} $newval
-								}
-								#puts stderr "=a.1=> updated $refvar"
-							}
-						} else {
-							#refvar is simple
-							set newval [set SYNCVARIABLE($vidx)]
-							if {![info exists ${refvar}($vidx)]} {
-								#new key for this array
-								#puts stderr "\npropvar_write_TraceHandler------  about to call 'array set $refvar [::list $vidx [set SYNCVARIABLE($vidx)] ]' "
-								array set ${refvar} [::list $vidx [set SYNCVARIABLE($vidx)] ]
-							} else {
-								set oldval [set ${refvar}($vidx)]
-								if {$oldval ne $newval} {
-									#puts stderr "\npropvar_write_TraceHandler------  about to call 'array set $refvar [::list $vidx [set SYNCVARIABLE($vidx)] ]' "
-									array set ${refvar} [::list $vidx [set SYNCVARIABLE($vidx)] ]
-								}
-							}
-							#puts stderr "=a.2=> updated ${refvar} $vidx"
-						}
-					}	
-					
-					
-					
-				} else {
-				
-				
-					foreach refvar $refvars {
-						upvar $refvar internal_property_reference
-						#puts stderr " - - b vidx: $vidx"
-							
-						#!? could be object not list??
-						#!!but what is the difference between an object, and a list of object names which happens to only contain one object??
-						#For predictability - we probably need to autodetect type on 1st write to o_prop either list, array or object  (and maintain after unset operations)
-						#There would still be an edge case of an initial write of a list of objects of length 1.
-						if {([llength [set $SYNCVARIABLE]] ==1) && ([string range [set $SYNCVARIABLE] 0 0] eq ">")} {
-							error "untested review!"
-							#the o_prop is object-shaped
-							#assumes object has a defaultmethod which accepts indices 
-							set newval [[set $SYNCVARIABLE] {*}$vidx]
-							
-						} else {
-							set newval [lindex $SYNCVARIABLE {*}$vidx]
-							#if {[set $refvar] ne $newval} {
-							#	set $refvar $newval
-							#}
-							if {$internal_property_reference ne $newval} {
-								set internal_property_reference $newval
-							}
-							
-						}
-						#puts stderr "=b=> updated $refvar"
-					}
-					
-					
-				}
-				
-				
-				
-			} else {
-				#no vidx 
-			
-				if {$vtracedIsArray} {
-				
-				
-					foreach refvar $refvars {
-						set targetref_tail [namespace tail $refvar]
-						set targetref_is_indexed [string match "${prop}+*" $targetref_tail]
-
-					
-						#puts stderr " - - c traced: $vtraced refvar:$refvar triggeringRef: $triggeringRef"
-						if {$targetref_is_indexed} {
-							#curried array item ref of the form ${prop}+x or ${prop}+x+y etc
-						
-							#unindexed write on a property that is acting as an array.. 
-
-							#case a) If the underlying variable is actually an array - it will error upon attempt to write it like this -  that's ok.
-
-							#case b) If the underlying variable doesn't exist - perhaps a PropertyWrite will accept the unindexed write (e.g by asigning a default for the missing index).
-							# we can't know here how this write affects other indexed traces on this property... hence we warn but do nothing.
-							puts stderr "\tc.1 WARNING: write to property without 'array set'. op:'$op' refvar:'$refvar' prop:'$prop' \n\traw: propvar_write_TraceHandler $OID $prop $vtraced $vidx $op"
-						} else {
-							#How do we know what to write to array ref?
-							puts stderr "\tc.2 WARNING: unimplemented/unused?"
-							#error no_tests_for_branch
-							
-							#warning - this would trigger 3rd party unset traces which is undesirable for what is really a 'bookkeeping' operation
-							#if this branch is actually useful - we probably need to step through the array and unset and set elements as appropriate
-							array unset ${refvar}
-							array set ${refvar} [array get SYNCVARIABLE]
-						}
-					}
-					
-					
-					
-				} else {
-					foreach refvar $refvars {
-					 	#puts stderr "\t\t_________________[namespace current]"
-						set targetref_tail [namespace tail $refvar]
-						upvar $refvar INTERNAL_REFERENCE_TO_PROPERTY__$targetref_tail
-						set targetref_is_indexed [string match "${prop}+*" $targetref_tail]
-
-						if {$targetref_is_indexed} {
-							#puts "XXXXXXXXX vtraced:$vtraced"
-							#reference curried with index(es)
-							#we only set indexed refs if value has changed 
-							# - this not required to be consistent with standard list-containing variable traces, 
-							# as normally list elements can't be traced seperately anyway.
-							#
-							
-				
-							#only bother checking a ref if no setVia index 
-							# i.e some operation on entire variable so need to test synchronisation for each element-ref
-							set targetref_indices [lrange [split $targetref_tail +] 1 end]
-							set possiblyNewVal [lindex $SYNCVARIABLE {*}$targetref_indices]
-							#puts stderr "YYYYYYYYY \[set \$refvar\]: [set $refvar] / possiblyNewVal: $possiblyNewVal"
-							if {[set INTERNAL_REFERENCE_TO_PROPERTY__$targetref_tail] ne $possiblyNewVal} {
-								set INTERNAL_REFERENCE_TO_PROPERTY__$targetref_tail $possiblyNewVal
-								#puts stderr "=d1=> updated $refvar -> [uplevel 1 "lindex \[set $vtraced] $idx"]"
-							}
-							
-							
-						} else {
-							#for consistency with standard traces on a list-containing variable, we perform the set even if the list value has not changed!
-							
-							#puts stderr "- d2 set"
-							#puts "refvar: [set $refvar]"
-							#puts "SYNCVARIABLE: $SYNCVARIABLE"
-							
-							#if {[set $refvar] ne $SYNCVARIABLE} {
-							#	set $refvar $SYNCVARIABLE
-							#}
-							if {[set INTERNAL_REFERENCE_TO_PROPERTY__$targetref_tail] ne $SYNCVARIABLE} {
-								set INTERNAL_REFERENCE_TO_PROPERTY__$targetref_tail $SYNCVARIABLE
-							}
-							
-						}
-					}
-					
-					
-				}
-				
-			}
-			
-		
-	
-	
-	#reinstall the traces we stored at the beginning of this proc.
-	foreach rv [array names predator_traces] {
-		foreach tinfo $predator_traces($rv) {
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-
-			#puts stderr "****** re-installing  trace '$ops' on variable $rv cmd:$cmd"
-			trace add variable $rv $ops $cmd
-		}
-	}
-	
-	foreach rv [array names external_traces] {
-		foreach tinfo $external_traces($rv) {
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-
-			#puts stderr "****** re-installing  trace '$ops' on variable $rv cmd:$cmd"
-			trace add variable $rv $ops $cmd
-		}
-	}
-	
-	
-	
-}
- 
-# end propvar_write_TraceHandler
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#
-
-#returns 0 if method implementation not present for interface 
-proc ::p::predator::method_chainhead {iid method} {
-    #Interface proc	
-    #  examine the existing command-chain
-    set candidates [info commands ::p::${iid}::_iface::$method.*]  ;#rough grab (info commands only allows basic pattern globbing - not a regex)
-    set cmdchain [list]
-
-    set re [string map [list %m% [string map {( \\( ) \\) . \\.} $method]] {^%m%.([0-9]+)$}]
-    set maxversion 0
-    #loop and test because it is possible there are unrelated commands (having a matching prefix with . character) which were caught in the glob.
-    foreach test [lsort -dictionary $candidates] {
-        set c [namespace tail $test]
-        if {[regexp $re $c _match version]} {
-            lappend cmdchain $c
-            if {$version > $maxversion} {
-                set maxversion $version
-            }
-        }
-    }
-    return $maxversion
-}
-
-
-
-
-
-#this returns a script that upvars vars for all interfaces on the calling object - 
-# - must be called at runtime from a method
-proc ::p::predator::upvar_all {_ID_} {
-    #::set OID [lindex $_ID_ 0 0]
-    ::set OID [::lindex [::dict get $_ID_ i this] 0 0]
-    ::set decl {}
-    #[set ::p::${OID}::_meta::map]
-    #[dict get [lindex [dict get $_ID_ i this] 0 1] map]
-	
-	 ::upvar #0 ::p::${OID}::_meta::map MAP
-	 #puts stdout "\n\n -->-->-->--> _meta::map '$MAP'  <-<-<-\n\n"
-	 #set iflist [::lindex [dict get [lindex [dict get $_ID_ i this] 0 1] map] 1 0]
-
-	::foreach ifid [dict get $MAP interfaces level0] {
-        if {[::dict size [::set ::p::${ifid}::_iface::o_variables]]} {
-            ::array unset nsvars
-            ::array set nsvars [::list]
-            ::dict for {vname vinfo} [::set ::p::${ifid}::_iface::o_variables] { 
-                ::set varspace [::dict get $vinfo varspace]
-                ::lappend nsvars($varspace) $vname
-            }
-            #nsvars now contains vars grouped by varspace.
-
-            ::foreach varspace [::array names nsvars] {
-                if {$varspace eq ""} {
-                    ::set ns ::p::${OID}
-                } else {
-                    if {[::string match "::*" $varspace]} {
-                        ::set ns $varspace                    
-                    } else {
-                        ::set ns ::p::${OID}::$varspace
-                    }
-                }
-
-        	    ::append decl "namespace upvar $ns "
-                ::foreach vname [::set nsvars($varspace)] {
-                    ::append decl "$vname $vname "
-                }
-    					::append decl " ;\n"
-            }
-            ::array unset nsvars
-		}
-	}
-	::return $decl
-}
-
-#we need to use eval because it is potentially a multiline script returned by upvar_all (so can't just use {*} operator)
-proc ::p::predator::runtime_vardecls {} {
-	set result "::eval \[::p::predator::upvar_all \$_ID_\]"
-	#set result "::apply { {_ID_} ::p::predator::upvar_all } \$_ID_"
-	
-	#set result "::apply \[::list {} \[::p::predator::upvar_all \$_ID_\] \[namespace current\]\]"
-	#set result "::interp eval {} \[::p::predator::upvar_all \$_ID_\]"
-	#puts stdout "\t>>>[info level -1]\n\t>>>>>>>>>>>>>>>>>>>>> '$result'"
-	return $result
-}
-
-
-
-
-
-
-#OBSOLETE!(?) - todo - move stuff out of here.
-proc ::p::predator::compile_interface {IFID caller_ID_} {
-	upvar 0 ::p::${IFID}:: IFACE
-	
-	#namespace eval ::p::${IFID} {
-	#		namespace ensemble create
-	#}
-	
-  #'namespace upvar' - from tip.tcl.tk #250: Efficient Access to Namespace Variables
-
-  namespace upvar ::p::${IFID}::_iface o_propertyunset_handlers o_propertyunset_handlers o_variables o_variables o_properties o_properties o_methods o_methods o_unknown o_unknown o_varspace o_varspace o_varspaces o_varspaces
-
-	#set varDecls {}
-	#if {[llength $o_variables]} {
-	#	#puts "*********!!!! $vlist"
-    #    append varDecls "namespace upvar ::p::\[lindex \$_ID_ 0 0 \] "
-	#	foreach vdef $o_variables {
-    #        append varDecls "[lindex $vdef 0] [lindex $vdef 0] "
-	#	}
-	#	append varDecls \n
-	#}
-
-	#runtime gathering of vars from other interfaces.
-	#append varDecls [runtime_vardecls]
-
-	set varDecls [runtime_vardecls]
-
-	
-
-	#implement methods
-
-	#!todo - avoid globs on iface array? maintain list of methods in another slot?
-	#foreach {n mname} [array get IFACE m-1,name,*] {}
-
-
-	#namespace eval ::p::${IFID}::_iface "namespace export {*}$o_methods" ;#make methods available as interface ensemble.
-	
-	
-	
-	#implement property getters/setters/unsetters
-	#'setter' overrides
-	#pw short for propertywrite
-	foreach {n property} [array get IFACE pw,name,*] {
-		if {[string length $property]} {
-			#set property [lindex [split $n ,] end]
-			
-			#!todo - next_script
-			#set next [::p::next_script "\[set ::p::\${_ID_}::(self)]" $IFID $property]	
-
-			set maxversion [::p::predator::method_chainhead $IFID (SET)$property]
-			set chainhead [expr {$maxversion + 1}]
-			set THISNAME (SET)$property.$chainhead    ;#first version will be (SET)$property.1 
-
-			set next [::p::predator::next_script $IFID (SET)$property $THISNAME $caller_ID_] ;#?!  caller_ID_ ??
-			
-			set body	$IFACE(pw,body,$property)
-			
-
-			set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]	
-			if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-                foreach vs [dict get $processed varspaces_with_explicit_vars] {
-                    if {[string length $vs] && ($vs ni $o_varspaces)} {
-                        lappend o_varspaces $vs
-                    }
-                }
-				set body [dict get $processed body]
-			} else {
-				set body $varDecls\n[dict get $processed body]
-				#puts stderr "\t\timplicit vardecls used for propertywrite $property on interface $IFID ##### \n $body"
-			}
-
-			#set body [string map [::list @this@ "\[lindex \${_ID_} 0 3 \]" @next@ $next] $body\n]
-      set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-			
-
-
-			set maxversion [::p::predator::method_chainhead $IFID $property]
-			set headid [expr {$maxversion + 1}]
-
-			proc ::p::${IFID}::_iface::(SET)$property.$headid [concat _ID_ $IFACE(pw,arg,$property)] $body
-
-			interp alias {} ::p::${IFID}::_iface::(SET)$property {} ::p::${IFID}::_iface::(SET)$property.$headid 
-			
-			#proc ::p::${IFID}::___system___write_$property [concat _ID_ $IFACE(pw,arg,$property)] $body
-		}
-	}
-	#'unset' overrides
-
-	dict for {property handler_info} $o_propertyunset_handlers {
-		
-		set body [dict get $handler_info body]
-		set arraykeypattern [dict get $handler_info arraykeypattern] ;#array element pattern for unsetting individual elements in an array
-
-		set maxversion [::p::predator::method_chainhead $IFID (UNSET)$property]
-		set headid [expr {$maxversion + 1}]
-		
-		set THISNAME (UNSET)$property.$headid
-	
-		set next [::p::predator::next_script $IFID (UNSET)$property $THISNAME $caller_ID_] ;#?! caller_ID_ ???
-
-
-
-
-
-        set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]
-        if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-            foreach vs [dict get $processed varspaces_with_explicit_vars] {
-                if {[string length $vs] && ($vs ni $o_varspaces)} {
-                    lappend o_varspaces $vs
-                }
-            }
-            set body [dict get $processed body]
-        } else {
-            set body $varDecls\n[dict get $processed body]
-            #puts stderr "\t\timplicit vardecls used for property unset $property on interface $IFID ##### \n $body"
-                        
-        }
-        #set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-        set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-
-
-
-		#implement		
-		#always take arraykeypattern argument even though usually empty string (only used for unsetting individual array elements)
-		if {[string trim $arraykeypattern] eq ""} {
-			set arraykeypattern "_dontcare_"
-		}
-		proc ::p::${IFID}::_iface::(UNSET)$property.$headid [concat _ID_ $arraykeypattern] $body
-		
-				
-		#chainhead pointer
-		interp alias {} ::p::${IFID}::_iface::(UNSET)$property {} ::p::${IFID}::_iface::(UNSET)$property.$headid
-	}
-
-	
-
-	interp alias {} ::p::${IFID}::(VIOLATE) {} ::p::internals::(VIOLATE)
-	
-	#the usual case will have no destructor - so use info exists to check.
-
-    if {[info exists ::p::${IFID}::_iface::o_destructor_body]} {
-        #!todo - chained destructors (support @next@).
-        #set next [::p::next_script_destructor "\[lindex \$_ID_ 0 1\]" $IFID]
-        set next NEXT
-
-        set body [set ::p::${IFID}::_iface::o_destructor_body]
-
-
-        set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]	
-        if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-            foreach vs [dict get $processed varspaces_with_explicit_vars] {
-                if {[string length $vs] && ($vs ni $o_varspaces)} {
-                    lappend o_varspaces $vs
-                }
-            }
-            set body [dict get $processed body]
-        } else {
-            set body $varDecls\n[dict get $processed body]
-            #puts stderr "\t\t**********************implicit vardecls used for destructor on interface $IFID ##### \n $body"
-        }
-        #set body [::p::fixed_var_statements \n@IMPLICITDECLS@\n$body]
-        #set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-        set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-
-        proc ::p::${IFID}::___system___destructor _ID_ $body
-    }	
-
-
-	if {[info exists o_unknown]} {
-		#use 'apply' somehow?
-		interp alias {} ::p::${IFID}::_iface::(UNKNOWN) {} ::p::${IFID}::_iface::$o_unknown
-
-        #namespace eval ::p::${IFID}::_iface [list namespace unknown $o_unknown]
-	}
-
-	
-	return
-}
-
-
-
-
-
-
-
-#'info args' - assuming arbitrary chain of 'interp aliases'
-proc ::p::predator::command_info_args {cmd} {
-    if {[llength [set next [interp alias {} $cmd]]]} {
-        set curriedargs [lrange $next 1 end]
-        
-        if {[catch {set arglist [info args [lindex $next 0]]}]} {
-            set arglist [command_info_args [lindex $next 0]]
-        }
-        #trim curriedargs
-        return [lrange $arglist [llength $curriedargs] end]
-    } else {
-        info args $cmd
-    }
-}
-
-
-proc ::p::predator::do_next {_ID_ IFID mname nextArgs args} {
-    if {[llength $args]} {
-        tailcall ::p::${IFID}::_iface::$mname $_ID_ {*}$args
-    } else {
-        if {[llength $nextArgs] > 1} {
-            set argVals [::list]
-            set i 0
-            foreach arg [lrange $nextArgs 1 end] {
-                upvar 1 $arg $i
-                if {$arg eq "args"}	{
-                    #need to check if 'args' is actually available in caller
-                    if {[info exists $i]} {
-                        set argVals [concat $argVals [set $i]]
-                    } 
-                } else {
-                    lappend argVals [set $i]
-                }
-            }
-            tailcall ::p::${IFID}::_iface::$mname $_ID_ {*}$argVals
-        } else {
-            tailcall ::p::${IFID}::_iface::$mname $_ID_
-        }
-    }
-}
-
-#----------------------------------------------------------------------------------------------
-proc ::p::predator::next_script {IFID method caller caller_ID_} {
-
-    if {$caller eq "(CONSTRUCTOR).1"} {
-        return [string map [list %cID% [list $caller_ID_] %ifid% $IFID %m% $method] {::p::predator::do_next_pattern_if $_ID_ %cID% %ifid% %m%}]
-    } elseif {$caller eq "$method.1"} {
-        #delegate to next interface lower down the stack which has a member named $method 
-        return [string map [list %ifid% $IFID %m% $method] {::p::predator::do_next_if $_ID_ %ifid% %m%}]
-    } elseif {[string match "(GET)*.2" $caller]} {
-        # .1 is the getprop procedure, .2 is the bottom-most PropertyRead. 
-        
-        #jmn
-        set prop [string trimright $caller 1234567890]
-        set prop [string range $prop 5 end-1] ;#string leading (GET) and trailing .
-
-        if {$prop in [dict keys [set ::p::${IFID}::_iface::o_properties]]} {
-            #return [string map [list %ifid% $IFID %p% $prop ]  {::p::%ifid%::_iface::(GET)%p%.1 $_ID_}]
-            return [string map [list %ifid% $IFID %m% (GET)$prop.1 %nargs% [list]] {::p::predator::do_next $_ID_ %ifid% %m% [list %nargs%]}]
-        } else {
-            #we can actually have a property read without a property or a method of that name - but it could also match the name of a method.
-            # (in which case it could return a different value depending on whether called via set [>obj . something .]  vs >obj . something)
-            return [string map [list %ifid% $IFID %m% $method] {::p::predator::do_next_if $_ID_ %ifid% %m%}]
-        }
-    } elseif {[string match "(SET)*.2" $caller]} {
-        return [string map [list %ifid% $IFID %m% $method] {::p::predator::do_next_if $_ID_ %ifid% %m%}]
-    } else {
-        #this branch will also handle (SET)*.x and (GET)*.x where x >2 
-        
-        #puts stdout "............next_script IFID:$IFID method:$method caller:$caller"
-        set callerid [string range $caller [string length "$method."] end]
-        set nextid [expr {$callerid - 1}]
-
-        if {[catch {set nextArgs [info args ::p::${IFID}::_iface::$method.$nextid]} errMsg]} {
-            #not a proc directly on this interface - presumably an alias made by something like linkcopy_interface.
-            #puts ">>>>>>>>::p::predator::next_script IFID:$IFID caller:$caller   aaaa@ $method.$nextid"
-            set nextArgs [command_info_args ::p::${IFID}::_iface::$method.$nextid]
-        }
-
-        return [string map [list %ifid% $IFID %m% $method.$nextid %nargs% $nextArgs] {::p::predator::do_next $_ID_ %ifid% %m% [list %nargs%]}]
-    }
-}
-
-proc ::p::predator::do_next_if {_ID_ IFID method args} {
-    #puts "<>(::p::predator::do_next_if)<>  '$_ID_' '$IFID' '$method' '$args' ((("
-
-    #set invocants [dict get $_ID_ i]
-    #set this_invocantdata [lindex [dict get $invocants this] 0]
-    #lassign $this_invocantdata OID this_info
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-    lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-    set interfaces [dict get $MAP interfaces level0]
-    set patterninterfaces [dict get $MAP interfaces level1]
-
-    set L0_posn [lsearch $interfaces $IFID]
-    if {$L0_posn == -1} {
-        error "(::p::predator::do_next_if) called with interface not present at level0 for this object"
-    } elseif {$L0_posn > 0} {
-        #set ifid_next [lindex $interfaces $L0_posn-1]  ;#1 lower in the iStack
-        set lower_interfaces [lrange $interfaces 0 $L0_posn-1]
-
-        foreach if_sub [lreverse $lower_interfaces] {
-            if {[string match "(GET)*" $method]} {
-                #do not test o_properties here! We need to call even if there is no underlying property on this interface
-                #(PropertyRead without Property is legal. It results in dispatch to subsequent interface rather than property variable for this interface)    
-                # relevant test: higher_order_propertyread_chaining 
-                return [::p::${if_sub}::_iface::$method $_ID_ {*}$args]
-            } elseif {[string match "(SET)*" $method]} {
-                #must be called even if there is no matching $method in o_properties
-                return [::p::${if_sub}::_iface::$method $_ID_ {*}$args]
-            } elseif {[string match "(UNSET)*" $method]} {
-                 #review untested
-                    #error "do_next_if (UNSET) untested"
-                    #puts stderr "<>(::p::predator::do_next_if)<> (UNSET) called - dispatching to ::p::${if_sub}::_iface::$method with args:'$args'"
-                    return [::p::${if_sub}::_iface::$method $_ID_ {*}$args]
-                    
-            } elseif {$method in [dict keys [set ::p::${if_sub}::_iface::o_methods]]} {
-                if {[llength $args]} {
-                    #puts stdout "<>(::p::predator::do_next_if)<>  - - -  calling ::p::${if_sub}::_iface::$method on sub interface $if_sub with $args"
-                    
-                    #return [::p::${if_sub}::_iface::$method $_ID_ {*}$args]
-                    #tailcall ::p::${if_sub}::_iface::$method $_ID_ {*}$args
-                    
-                    #!todo - handle case where llength $args is less than number of args for subinterface command
-                    #i.e remaining args will need to be upvared to get values from calling scope (auto-set any values not explicitly set)
-                    
-                    #handle case where next interface has different arguments (masking of sub interfaces in the stack with function with different arity/signature)
-                    set head [interp alias {} ::p::${if_sub}::_iface::$method]
-                    set nextArgs [info args $head] ;#!todo - fix... head not necessarily a proc
-                    set argx [list]
-                    foreach a $nextArgs {
-                        lappend argx "\$a"
-                    }
-                    
-                    #todo - handle func a b args  called with func "x"   ie short on named vars so b needs to be upvared
-                    
-                    if {([llength $args] == [llength $nextArgs]) || ([lindex $nextArgs end] eq "args")} {
-                        tailcall apply [list $nextArgs [list ::p::${if_sub}::_iface::$method {*}$argx ]] $_ID_ {*}$args
-                    } else {
-                        #todo - upvars required for tail end of arglist
-                        tailcall apply [list $nextArgs [list ::p::${if_sub}::_iface::$method {*}$argx ]] $_ID_ {*}$args
-                    }
-                    
-                } else {
-                    #auto-set:  upvar vars from calling scope
-                    #!todo - robustify? alias not necessarily matching command name.. 
-                    set head [interp alias {} ::p::${if_sub}::_iface::$method]
-
-                    
-                    set nextArgs [info args $head] ;#!todo - fix... head not necessarily a proc
-                    if {[llength $nextArgs] > 1} {
-                        set argVals [::list]
-                        set i 0
-                        foreach arg [lrange $nextArgs 1 end] {
-                            upvar 1 $arg $i
-                            if {$arg eq "args"}	{
-                                #need to check if 'args' is actually available in caller
-                                if {[info exists $i]} {
-                                    set argVals [concat $argVals [set $i]]	
-                                } 
-                            } else {
-                                lappend argVals [set $i]
-                            }
-                        }
-                        #return [$head $_ID_ {*}$argVals]
-                        tailcall $head $_ID_ {*}$argVals
-                    } else {
-                        #return [$head $_ID_]
-                        tailcall $head $_ID_
-                    }
-                }
-            } elseif {$method eq "(CONSTRUCTOR)"} {
-                #chained constructors will only get args if the @next@ caller explicitly provided them.
-                puts stdout "!!!<>(::p::predator::do_next_if)<> CONSTRUCTOR CHAINED CALL via do_next_if _ID_:$_ID_ IFID:$IFID method:$method args:$args!!!"
-                #return [::p::${if_sub}::_iface::(CONSTRUCTOR) $_ID_ {*}$args]
-                xtailcall ::p::${if_sub}::_iface::(CONSTRUCTOR) $_ID_ {*}$args
-            }
-        }
-        #no interfaces in the iStack contained a matching method. 
-        return
-    } else {
-        #no further interfaces in this iStack
-        return
-    }
-}
-
-
-#only really makes sense for (CONSTRUCTOR) calls.
-#_ID_ is the invocant data for the target. caller_ID_ is the invocant data for the calling(creating,cloning etc) pattern/class.
-proc ::p::predator::do_next_pattern_if {_ID_ caller_ID_ IFID method args} {
-	#puts ")))) do_next_pattern_if _ID_:'$_ID_' IFID:'$IFID' method:'$method' args:'$args' ((("
-
-    #set invocants [dict get $_ID_ i]
-    #set this_invocant [lindex [dict get $invocants this] 0]
-    #lassign $this_invocant OID this_info
-	#set OID [lindex [dict get $invocants this] 0 0]
-    #upvar #0 ::p::${OID}::_meta::map map
-	#lassign [lindex $map 0] OID alias itemCmd cmd
-
-	
-	set caller_OID [lindex [dict get $caller_ID_ i this] 0 0]
-	upvar #0 ::p::${caller_OID}::_meta::map callermap
-
-	#set interfaces [lindex $map 1 0]
-	set patterninterfaces [dict get $callermap interfaces level1]
-	
-	set L0_posn [lsearch $patterninterfaces $IFID]
-	if {$L0_posn == -1} {
-		error "do_next_pattern_if called with interface not present at level1 for this object"
-	} elseif {$L0_posn > 0} {
-		
-		
-		set lower_interfaces [lrange $patterninterfaces 0 $L0_posn-1]
-
-		foreach if_sub [lreverse $lower_interfaces] {
-			if {$method eq "(CONSTRUCTOR)"} {
-				#chained constructors will only get args if the @next@ caller explicitly provided them.
-				#puts stdout "!!! CONSTRUCTOR CHAINED CALL via do_next_pattern_if _ID_:$_ID_ IFID:$IFID method:$method args:$args!!!"
-				tailcall ::p::${if_sub}::_iface::(CONSTRUCTOR) $_ID_ {*}$args
-			}
-		}
-		#no interfaces in the iStack contained a matching method. 
-		return
-	} else {
-		#no further interfaces in this iStack
-		return
-	}
-}
-
-
-
-
-
-#------------------------------------------------------------------------------------------------
-
-
-
-
-
-#-------------------------------------------------------------------------------------
-#######################################################
-#######################################################
-#######################################################
-#######################################################
-#######################################################
-#######################################################
-#######################################################
-
-
-#!todo - can we just call new_object somehow to create this?
-
-            #until we have a version of Tcl that doesn't have 'creative writing' scope issues - 
-            # - we should either explicity specify the whole namespace when setting variables or make sure we use the 'variable' keyword.
-            # (see http://mini.net/tcl/1030 'Dangers of creative writing')
-namespace eval ::p::-1 {
-        #namespace ensemble create
-    
-        namespace eval _ref   {} 
-        namespace eval _meta  {} 
-
-        namespace eval _iface {
-            variable o_usedby
-            variable o_open
-            variable o_constructor
-            variable o_variables
-            variable o_properties 
-            variable o_methods 
-            variable o_definition
-            variable o_varspace
-            variable o_varspaces
-            
-            array set   o_usedby  [list i0 1] ;#!todo - review
-			#'usedby' array the metaface is an exception. All objects use it - so we should list none of them rather than pointless updating of this value?
-
-            set         o_open   1
-            set         o_constructor   [list]
-            set         o_variables     [list]
-            set         o_properties    [dict create]
-            set         o_methods       [dict create]
-            array set   o_definition    [list]
-            set o_varspace ""
-            set o_varspaces [list]
-        }
-}
-
-
-#
-
-#interp alias {} ::p::internals::>metaface {} ::p::internals::predator [list [list -1 ::p::internals::>metaface item {}] {{} {}}]
-interp alias {} ::p::internals::>metaface {} ::p::internals::predator [list i [list this [list [list -1 ::p::internals::>metaface item {}]]]  context {}]
-
-
-upvar #0 ::p::-1::_iface::o_definition def
-
-
-#! concatenate -> compose ??
-dict set ::p::-1::_iface::o_methods Concatenate {arglist {target args}}
-proc	::p::-1::Concatenate {_ID_ target args} {
-	set invocants [dict get $_ID_ i]
-	#set invocant_alias [lindex [dict get $invocants this] 0]
-	#set invocant [lindex [interp alias {} $invocant_alias] 1]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-	lassign			[dict get $MAP invocantdata]  OID alias itemCmd cmd
-
-	if {![string match "::*" $target]} {
-		if {[set ns [uplevel 1 {namespace current}]] eq "::"} {
-			set target ::$target
-		} else {
-			set target ${ns}::$target
-		}
-	}
-	#add > character if not already present
-	set target		[namespace qualifiers $target]::>[string trimleft [namespace tail $target] >]
-	set _target		[string map {::> ::} $target]
-			
-	set ns [namespace qualifiers $target]
-	if {$ns eq ""} {
-		set ns "::"
-	} else {
-		namespace eval $ns {}
-	}
-
-	if {![llength [info commands $target]]} {
-		#degenerate case - target does not exist
-        #Probably just 1st of a set of Concatenate calls - so simply delegate to 'Clone'
-        #review - should be 'Copy' so it has object state from namespaces and variables?
-        return [::p::-1::Clone $_ID_ $target {*}$args]
- 
-		#set TARGETMAP [::p::predator::new_object $target]
-		#lassign				[lindex $TARGETMAP 0] target_ID target_cmd itemCmd 
-
-	} else {
-		#set TARGETMAP [lindex [interp alias {} [namespace origin $target]] 1]
-		set TARGETMAP [$target --]
-
-		lassign				[dict get $TARGETMAP invocantdata] target_ID target_cmd itemCmd 
-    
-        #Merge lastmodified(?) level0 and level1 interfaces. 
-        
-	}
-
-    return $target
-}
-
-
-
-#Object's Base-Interface proc with itself as curried invocant.
-#interp alias {} ::p::-1::Create {} ::p::-1::_iface::Create $invocant
-#namespace eval ::p::-1 {namespace export Create}
-dict set ::p::-1::_iface::o_methods Define {arglist definitions}
-#define objects in one step
-proc ::p::-1::Define {_ID_ definitions} {
-	set invocants [dict get $_ID_ i]
-	#set invocant_alias [lindex [dict get $invocants this] 0]
-	#set invocant [lindex [interp alias {} $invocant_alias] 1]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-	lassign			[dict get $MAP invocantdata]  OID alias default_method cmd
-	set interfaces 	[dict get $MAP interfaces level0]  ;#level-0 interfaces
-	set patterns	[dict get $MAP interfaces level1]  ;#level-1 interfaces
-
-	#!todo - change these to dicts; key=interface stack name value= a list of interfaces in the stack
-	#set IFID0 	[lindex $interfaces 0]
-	#set IFID1	[lindex $patterns	0]  ;#1st pattern
-  
-	#set IFID_TOP [lindex $interfaces end]
-	set IFID_TOP [::p::predator::get_possibly_new_open_interface $OID]
-	
-	#set ns ::p::${OID}
-	
-	#set script [string map [list %definitions% $definitions] {
-	#	if {[lindex [namespace path] 0] ne "::p::-1"} {
-	#		namespace path [list ::p::-1 {*}[namespace path]]
-	#	}
-	#	%definitions%
-	#	namespace path [lrange [namespace path] 1 end]
-	#	
-	#}]
-	
-	set script [string map [list %id% $_ID_ %definitions% $definitions] {
-		set ::p::-1::temp_unknown [namespace unknown]
-
-		namespace unknown [list ::apply {{funcname args} {::p::predator::redirect $funcname [list %id%] {*}$args}}]
-		
-		
-		#namespace unknown [list ::apply { {funcname args} {if {![llength [info commands ::p::-1::$funcname]]} {::unknown $funcname {*}$args } else {::p::-1::$funcname [list %id%] {*}$args} }} ]
-		
-		
-		%definitions%
-
-    
-		namespace unknown ${::p::-1::temp_unknown}
-		return
-	}]
-
-
-
-  #uplevel 1 $script  ;#this would run the script in the global namespace
-	#run script in the namespace of the open interface, this allows creating of private helper procs
-	#namespace inscope ::p::${IFID_TOP}::_iface $script ;#do not use tailcall here! Define belongs on the callstack
-	#namespace inscope ::p::${OID} $script
-    namespace eval ::p::${OID} $script
-	#return $cmd
-}
-
-
-proc ::p::predator::redirect {func args} {
-   
-	#todo - review tailcall - tests?
-	if {![llength [info commands ::p::-1::$func]]} {
-		#error "invalid command name \"$func\""   
-		tailcall uplevel 1 [list ::unknown $func {*}$args]
-	} else {
-		tailcall uplevel 1 [list ::p::-1::$func {*}$args]
-	}
-}
-
-
-#'immediate' constructor - this is really like a (VIOLATE) call.. todo - review.
-dict set ::p::-1::_iface::o_methods Construct {arglist {argpairs body args}}
-proc ::p::-1::Construct {_ID_ argpairs body args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-  
-    set interfaces [dict get $MAP interfaces level0]
-    set iid_top	[lindex $interfaces end]
-    namespace upvar ::p::${iid_top}::_iface o_varspaces o_varspaces o_varspace o_varspace
-    
-	set ARGSETTER {}
-	foreach {argname argval} $argpairs {
-		append ARGSETTER "set $argname $argval\n"
-	}
-	#$_self (VIOLATE) $ARGSETTER$body
-	
-	set body $ARGSETTER\n$body
-
-
-	set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]
-	if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-	} else {
-		set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-		set body $varDecls\n[dict get $processed body]
-	#	puts stderr "\t runtime_vardecls in Construct $varDecls"
-	}
-
-  set next "\[error {next not implemented}\]"
-	#set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]"] $body\n]	
-	set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-
-	#namespace eval ::p::${iid_top} $body 
-
-	#return [apply [list {_ID_ args} $body ::p::${iid_top}::_iface] $_ID_]
-	#does this handle Varspace before constructor?
-	return [apply [list {_ID_ args} $body ::p::${OID} ] $_ID_ {*}$args]
-}
-
-
-
-
-
-#hacked optimized version of ::p::-1::Create for creating ::p::ifaces::>* objects
-namespace eval ::p::3 {}
-proc ::p::3::_create {child {OID "-2"}} {
-	#puts stderr "::p::3::_create $child $OID"
-	set _child		[string map {::> ::} $child]
-	if {$OID eq "-2"} {
-		#set childmapdata [::p::internals::new_object $child]	
-		#set child_ID [lindex [dict get $childmapdata invocantdata] 0 ]
-		set child_ID [lindex [dict get [::p::internals::new_object $child] invocantdata] 0]
-		upvar #0 ::p::${child_ID}::_meta::map CHILDMAP
-	} else {
-		set child_ID $OID
-		#set _childmap [::p::internals::new_object $child "" $child_ID]
-		::p::internals::new_object $child "" $child_ID
-		upvar #0 ::p::${child_ID}::_meta::map CHILDMAP
-  }
-	
-	#--------------
-
-	set oldinterfaces [dict get $CHILDMAP interfaces]
-	dict set oldinterfaces level0 [list 2]
-	set modifiedinterfaces $oldinterfaces
-	dict set CHILDMAP interfaces $modifiedinterfaces
-	
-	#--------------
-
-
-
-
-  #puts stderr ">>>> creating alias for ::p::$child_ID"
-	#puts stderr ">>>::p::3::_create $child $OID >>>[interp alias {} ::p::$child_ID]"
-	
-	#interp alias ::p::$child_ID already exists at this point - so calling here will do nothing!
-	#interp alias {} ::p::$child_ID {} ::p::internals::predator [dict create i [dict create this [list [list $child_ID {}  ]]]]
-  #puts stderr ">>>[interp alias {} ::p::$child_ID]"
-	
-
-	
-    #---------------
-	namespace upvar ::p::2::_iface  o_methods o_methods o_properties o_properties 
-	foreach method [dict keys $o_methods] {
-		#todo - change from interp alias to context proc
-		interp alias {} ::p::${child_ID}::$method {} ::p::2::_iface::$method 
-	}
-	#namespace eval ::p::${child_ID} [list namespace export {*}$o_methods]
-	#implement property even if interface already compiled because we need to create defaults for each new child obj.
-	# also need to add alias on base interface
-	#make sure we are only implementing properties from the current CREATOR
-	dict for {prop pdef} $o_properties {
-		#lassign $pdef prop default
-		interp alias {} ::p::${child_ID}::$prop 		{} ::p::2::_iface::(GET)$prop 
-		interp alias {} ::p::${child_ID}::(GET)$prop 	{} ::p::2::_iface::(GET)$prop 
-		
-	}
-	::p::2::_iface::(CONSTRUCTOR) [dict create i [dict create this [list [dict get $CHILDMAP invocantdata]]] context {}]
-	#---------------
-	#namespace eval ::p::${child_ID} "namespace ensemble create -command $_child"
-	return $child
-}
-
-#configure -prop1 val1 -prop2 val2 ... 
-dict set ::p::-1::_iface::o_methods Configure {arglist args}
-proc ::p::-1::Configure {_ID_ args} {
-
-    #!todo - add tests.
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-    lassign [dict get $MAP invocantdata] OID alias itemCmd this
-    
-    if {![expr {([llength $args] % 2) == 0}]} {
-        error "expected even number of Configure args e.g  '-property1 value1 -property2 value2'"
-    }
-
-    #Do a separate loop to check all the arguments before we run the property setting loop
-    set properties_to_configure [list]
-    foreach {argprop val} $args {
-        if {!([string range $argprop 0 0] eq "-") || ([string length $argprop] < 2)} {
-            error "expected Configure args in the form: '-property1 value1 -property2 value2'"
-        }
-        lappend properties_to_configure [string range $argprop 1 end]
-    }
-
-    #gather all valid property names for all level0 interfaces in the relevant interface stack 
-    set valid_property_names [list]
-    set iflist [dict get $MAP interfaces level0]
-    foreach id [lreverse $iflist] {
-          set interface_property_names [dict keys [set ::p::${id}::_iface::o_properties]]
-            foreach if_prop $interface_property_names {
-                if {$if_prop ni $valid_property_names} {
-                    lappend valid_property_names $if_prop
-                }
-            }
-    }
-
-    foreach argprop $properties_to_configure {
-        if {$argprop ni $valid_property_names} {
-            error "Configure failed - no changes made. Unable to find property '$argprop' on object $this OID:'$OID' valid properties: $valid_property_names"
-        }
-    }
-
-    set top_IID [lindex $iflist end]
-    #args ok - go ahead and set all properties
-    foreach {prop val} $args {
-        set property [string range $prop 1 end]
-        #------------
-        #don't use property ref unnecessarily - leaves property refs hanging around which traces need to update
-        #ie don't do this here: set [$this . $property .] $val
-        #-------------
-        ::p::${top_IID}::_iface::(SET)$property $_ID_ $val  ;#equivalent to [$this . (SET)$property $val]
-    }
-    return
-}
-
-
-
-
-
-
-dict set ::p::-1::_iface::o_methods AddPatternInterface {arglist iid}
-proc	::p::-1::AddPatternInterface {_ID_ iid} {
-	#puts stderr "!!!!!!!!!!!!!!! ::p::-1::AddPatternInterface $_ID_ $iid"
-	if {![string is integer -strict $iid]} {
-		error "adding interface by name not yet supported. Please use integer id"
-	}
-
-  set invocants [dict get $_ID_ i]
-	#set invocant_alias [lindex [dict get $invocants this] 0]
-	#set invocant [lindex [interp alias {} $invocant_alias] 1]
-	#lassign [lindex $invocant 0] OID alias itemCmd cmd
-    
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	set existing_ifaces [dict get $MAP interfaces level1] ;#pattern interfaces
-	
-
-	
-	#it is theoretically possible to have the same interface present multiple times in an iStack.
-	# #!todo -review why/whether this is useful. should we disallow it and treat as an error?
-
-	lappend existing_ifaces $iid
-  #lset map {1 1} $existing_ifaces	
-	set extracted_sub_dict [dict get $MAP interfaces]
-	dict set extracted_sub_dict level1 $existing_ifaces
-	dict set MAP interfaces $extracted_sub_dict
-	
-	#lset invocant {1 1} $existing_ifaces
-
-}    
-
-
-#!todo - update usedby ??
-dict set ::p::-1::_iface::o_methods AddInterface {arglist iid}
-proc	::p::-1::AddInterface {_ID_ iid} {
-	#puts stderr "::p::-1::AddInterface _ID_:$_ID_ iid:$iid"
-	if {![string is integer -strict $iid]} {
-		error "adding interface by name not yet supported. Please use integer id"
-	}
-	  
-
-  lassign [dict get $_ID_ i this] list_of_invocants_for_role_this  ;#Although there is normally only 1 'this' element - it is a 'role' and the structure is nonetheless a list.
-	set this_invocant [lindex $list_of_invocants_for_role_this 0]
-	
-  lassign $this_invocant OID _etc
-
-  upvar #0 ::p::${OID}::_meta::map MAP
-	set existing_ifaces [dict get $MAP interfaces level0]
-
-	lappend existing_ifaces $iid
-	set extracted_sub_dict [dict get $MAP interfaces]
-	dict set extracted_sub_dict level0 $existing_ifaces
-	dict set MAP interfaces $extracted_sub_dict
-	return [dict get $extracted_sub_dict level0]
-}
-
-
-
-# The 'Create' method on the meta-interface has 2 variants (CreateNew & CreateOverlay) provided to enhance code clarity for the application using the pattern module.
-# The 'Create' method could be used in all instances - but 'CreateNew' is designed for the case where the target/child object does not yet exist
-# and 'CreateOverlay' for the case where the target/child object already exists.
-# If the application writer follows the convention of using 'CreateNew' & 'CreateOverlay' instead of 'Create' - it should be more obvious where a particular object first comes into existence,
-# and it should reduce errors where the author was expecting to overlay an existing object, but accidentally created a new object.
-# 'CreateNew' will raise an error if the target already exists
-# 'CreateOverlay' will raise an error if the target object does not exist.
-# 'Create' will work in either case. Creating the target if necessary.
-
-
-#simple form:
-# >somepattern .. Create >child
-#simple form with arguments to the constructor:
-# >somepattern .. Create >child arg1 arg2 etc
-#complex form - specify more info about the target (dict keyed on childobject name):
-# >somepattern .. Create {>child {-id 1}} 
-#or
-# >somepattern .. Create [list >child {-id 1 -somethingelse etc} >child2 {}]
-#complex form - with arguments to the contructor:
-# >somepattern .. Create [list >child {-id 1}] arg1 arg2 etc
-dict set ::p::-1::_iface::o_methods Create {arglist {target_spec args}}
-proc ::p::-1::Create {_ID_ target_spec args} {
-    #$args are passed to constructor
-    if {[llength $target_spec] ==1} {
-        set child $target_spec
-        set targets [list $child {}]
-    }   else {
-        set targets $target_spec
-    }
-    
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-    set invocants [dict get $_ID_ i]
-    set invocant_roles [dict keys $invocants]  ;#usually the only invocant role present will be 'this' (single dispatch case)
-  
-    foreach {child target_spec_dict} $targets {
-        #puts ">>>::p::-1::Create $_ID_ $child $args <<<"
-
-
-
-        #set invocant_alias [lindex [dict get $invocants this] 0]
-        #set invocant [lindex [interp alias {} $invocant_alias] 1]
-        
-        
-        
-
-        #puts ">>Create _ID_:$_ID_ child:$child args:$args   map:$map OID:$OID"
-
-        #child should already be fully ns qualified (?)
-        #ensure it is has a pattern-object marker >
-        #puts stderr ".... $child  (nsqual: [namespace qualifiers $child])"
-
-
-        lassign			[dict get $MAP invocantdata]  OID alias parent_defaultmethod cmd
-        set interfaces 	[dict get $MAP interfaces level0]  ;#level-0 interfaces
-        set patterns	[dict get $MAP interfaces level1]  ;#level-1 interfaces
-        #puts "parent: $OID -> child:$child Patterns $patterns"
-
-        #todo - change to dict of interface stacks
-        set IFID0 	[lindex $interfaces 0]
-        set IFID1	[lindex $patterns   0]  ;#1st pattern
-        
-        #upvar ::p::${OID}::        INFO
-
-        if {![string match {::*} $child]} {
-            if {[set ns [uplevel 1 {namespace current}]] eq "::"} {
-                set child ::$child
-            } else {
-                set child ${ns}::$child
-            }
-        }
-
-
-        #add > character if not already present
-        set child       [namespace qualifiers $child]::>[string trimleft [namespace tail $child] >]
-        set _child      [string map {::> ::} $child]
-                
-        set ns [namespace qualifiers $child]
-        if {$ns eq ""} {
-            set ns "::"
-        } else {
-            namespace eval $ns {}
-        }
-        
-
-        #maintain a record of interfaces created so that we can clean-up if we get an error during any of the Constructor calls.
-        set new_interfaces [list]
-
-        if {![llength $patterns]} {
-            ##puts stderr "===> WARNING: no level-1 interfaces (patterns) on object $cmd when creating $child"
-            #lappend patterns [::p::internals::new_interface $OID]
-            
-            #lset invocant {1 1} $patterns
-            ##update our command because we changed the interface list.
-            #set IFID1 [lindex $patterns 0]
-
-            #set patterns [list [::p::internals::new_interface $OID]]
-
-            #set patterns [list [::p::internals::new_interface]]
-
-            #set patterns [list [set iid [expr {$::p::ID + 1}]]] ;#PREDICT the next object's id
-            #set patterns [list [set iid [incr ::p::ID]]]
-            set patterns [list [set iid [::p::get_new_object_id]]]
-
-            #---------
-            #set iface [::p::>interface .. Create ::p::ifaces::>$iid]
-            #::p::-1::Create [list {caller ::p::3}] ::p::ifaces::>$iid
-            
-            #lappend new_interfaces [::p::3::_create ::p::ifaces::>$iid]              ;#interface creation
-            lappend new_interfaces [::p::3::_create ::p::ifaces::>$iid $iid]
-            
-            #---------
-
-            #puts "??> p::>interface .. Create ::p::ifaces::>$iid"
-            #puts "??> [::p::ifaces::>$iid --]"
-            #set [$iface . UsedBy .]
-        }
-        set parent_patterndefaultmethod [dict get $MAP patterndata patterndefaultmethod] 
-
-        #if {![llength [info commands $child]]} {}
-        
-        if {[namespace which $child] eq ""} {
-            #normal case - target/child does not exist
-            set is_new_object 1
-
-            if {[dict exists $target_spec_dict -id]} {
-                set childmapdata [::p::internals::new_object $child "" [dict get $target_spec_dict -id]]
-            } else {
-                set childmapdata [::p::internals::new_object $child]
-            }
-            lassign [dict get $childmapdata invocantdata] child_ID child_alias child_defaultmethod
-            upvar #0 ::p::${child_ID}::_meta::map CHILDMAP
-            
-            
-            
-            #child initially uses parent's level1 interface as it's level0 interface
-            # child has no level1 interface until PatternMethods or PatternProperties are added 
-            #  (or applied via clone; or via create with a parent with level2 interface)
-            #set child_IFID $IFID1
-            
-            #lset CHILDMAP {1 0} [list $IFID1]
-            #lset CHILDMAP {1 0} $patterns
-            
-            set extracted_sub_dict [dict get $CHILDMAP interfaces]
-            dict set extracted_sub_dict level0 $patterns
-            dict set CHILDMAP interfaces $extracted_sub_dict
-            
-            #why write back when upvared???
-            #review
-            set ::p::${child_ID}::_meta::map $CHILDMAP
-            
-            #::p::predator::remap $CHILDMAP
-
-            #interp alias {} $child {} ::p::internals::predator $CHILDMAP
-
-            #set child_IFID $IFID1
-
-            #upvar ::p::${child_ID}:: child_INFO	
-
-            #!todo review
-            #set n ::p::${child_ID}
-            #if {![info exists ${n}::-->PATTERN_ANCHOR]} {
-            #	#puts stdout "### target:'$child' Creating ${n}::-->PATTERN_ANCHOR (unset trace to delete namespace '$n'"
-            #    #!todo - keep an eye on tip.tcl.tk #140 - 'Tracing Namespace Modification' - may be able to do away with this hack
-            #	set ${n}::-->PATTERN_ANCHOR "objects within this namespace will be deleted when this var is unset"
-            #	trace add variable ${n}::-->PATTERN_ANCHOR {unset} [list ::p::meta::clear_ns $n]
-            #}
-
-            set ifaces_added $patterns
-
-        } else {
-            #overlay/mixin case - target/child already exists
-            set is_new_object 0
-
-            #set CHILDMAP [lindex [interp alias {} [namespace origin $child]] 1]
-            set childmapdata [$child --]
-
-
-            #puts stderr " *** $cmd .. Create -> target $child already exists!!!"
-            #puts " **** CHILDMAP: $CHILDMAP"
-            #puts " ****"
-
-            #puts stderr " ---> Properties: [$child .. Properties . names]" 
-            #puts stderr " ---> Methods: [$child .. Properties . names]" 
-            
-            lassign         [dict get $childmapdata invocantdata] child_ID child_alias child_default child_cmd
-            upvar #0 ::p::${child_ID}::_meta::map CHILDMAP
-
-            #set child_IFID		[lindex $CHILDMAP 1 0 end]
-            #if {$child_IFID != [set child_IFID [::p::internals::expand_interface $child_IFID]]} {
-            #	lset CHILDMAP {1 0} [concat [lindex $CHILDMAP 1 0] $child_IFID]
-            #	interp alias {} $child_cmd {} ::p::internals::predator $CHILDMAP
-            #}
-            ##!todo? - merge only 'open' parent interfaces onto 'open' target interfaces
-            #::p::merge_interface $IFID1 $child_IFID
-
-
-            set existing_interfaces [dict get $CHILDMAP interfaces level0]
-            set ifaces_added [list]
-            foreach p $patterns {
-                if {$p ni $existing_interfaces} {
-                    lappend ifaces_added $p
-                }
-            }
-
-            if {[llength $ifaces_added]} {
-                #lset CHILDMAP {1 0} [concat [lindex $CHILDMAP 1 0] $ifaces_added]
-                set extracted_sub_dict [dict get $CHILDMAP interfaces]
-                dict set extracted_sub_dict level0 [concat $existing_interfaces $ifaces_added]
-                dict set CHILDMAP interfaces  $extracted_sub_dict
-            #set ::p::${child_ID}::_meta::map $CHILDMAP ;#why?
-                #::p::predator::remap $CHILDMAP
-            }
-        }
-
-        #do not overwrite the child's defaultmethod value if the parent_patterndefaultmethod is empty
-        if {$parent_patterndefaultmethod ne ""} {
-            set child_defaultmethod $parent_patterndefaultmethod
-            set CHILD_INVOCANTDATA [dict get $CHILDMAP invocantdata]
-            lset CHILD_INVOCANTDATA 2 $child_defaultmethod
-            dict set CHILDMAP invocantdata $CHILD_INVOCANTDATA
-            #update the child's _ID_
-            interp alias {} $child_alias {}  ;#first we must delete it
-            interp alias {} $child_alias {} ::p::internals::predator [list i [list this [list $CHILD_INVOCANTDATA] ] context {}]
-            
-            #! object_command was initially created as the renamed alias - so we have to do it again
-            rename $child_alias $child
-            trace add command $child rename [list $child .. Rename]	
-        }
-        #!todo - review - dont we already have interp alias entries for every method/prop?
-        #namespace eval ::p::${child_ID} "namespace ensemble create -command $_child"
-
-
-
-        
-
-        set constructor_failure 0  ;#flag to indicate abortion due to error during a constructor call.
-
-
-
-        #------------------------------------------------------------------------------------
-        #create snapshot of the object-namespaces variables to allow object state to be rolledback if any Constructor calls fail.
-        # - All variables under the namespace - not just those declared as Variables or Properties
-        # - use a namespace. For the usual case of success, we just namespace delete, and remove the COW traces.
-        # - presumably this snapshot should be reasonably efficient even if variables hold large amounts of data, as Tcl implements Copy-On-Write.
-
-        #NOTE - do not use the objectID as the sole identifier for the snapshot namespace.
-        # - there may be multiple active snapshots for a single object if it overlays itself during a constructor,
-        # and it may be that a failure of an inner overlay is deliberately caught and not considered reason to raise an error for the initial constructor call.
-        # - we will use an ever-increasing snapshotid to form part of ns_snap
-        set ns_snap "::p::snap::[incr ::p::snap::id]_$child_ID"  ;#unique snapshot namespace for this call to Create.
-
-        #!todo - this should look at child namespaces (recursively?)
-        #!todo - this should examine any namespaces implied by the default 'varspace' value for all interfaces.
-        # (some of these namespaces might not be descendants of the object's ::p::${child_ID} namespace)
-
-        namespace eval $ns_snap {}
-        foreach vname [info vars ::p::${child_ID}::*] {
-            set shortname [namespace tail $vname]
-            if {[array exists $vname]} {
-                array set ${ns_snap}::${shortname} [array get $vname]
-            } elseif {[info exists $vname]} {
-                set ${ns_snap}::${shortname} [set $vname]
-            } else {
-                #variable exists without value (e.g created by 'variable' command)
-                namespace eval $ns_snap [list variable $shortname] ;#create the variable without value, such that it is present, but does not 'info exist'
-            }
-        }
-        #------------------------------------------------------------------------------------
-
-
-
-
-
-
-
-
-
-        #puts "====>>> ifaces_added $ifaces_added"
-        set idx 0
-        set idx_count [llength $ifaces_added]
-        set highest_constructor_IFID ""
-        foreach IFID $ifaces_added {
-            incr idx
-            #puts "--> adding iface $IFID "
-            namespace upvar ::p::${IFID}::_iface o_usedby o_usedby o_open o_open o_methods o_methods o_properties o_properties o_variables o_variables o_unknown o_unknown o_varspace o_varspace o_varspaces o_varspaces
-
-            if {[llength $o_varspaces]} {
-                foreach vs $o_varspaces {
-                    #ensure all varspaces for the interface exists so that the 'namespace upvar' entries in methods etc will work.
-                    if {[string match "::*" $vs]} {
-                        namespace eval $vs {}  ;#an absolute path to a namespace which may not be under the object's namespace at all.
-                    } else {
-                        namespace eval ::p::${child_ID}::$vs {}
-                    }
-                }
-            }
-
-            if {$IFID != 2} {
-                #>ifinfo interface always has id 2 and is used by all interfaces - no need to add everything to its usedby list.
-                if {![info exists o_usedby(i$child_ID)]} {
-                    set o_usedby(i$child_ID) $child_alias
-                }
-              
-                #compile and close the interface only if it is shared
-                if {$o_open} {
-                    ::p::predator::compile_interface $IFID $_ID_  ;#params: IFID , caller_ID_
-                    set   o_open 0
-                }
-            }
-
-        
-        
-            package require struct::set
-
-            set propcmds [list]
-            foreach cmd [info commands ::p::${IFID}::_iface::(GET)*] {
-                set cmd [namespace tail $cmd]
-                #may contain multiple results for same prop e.g (GET)x.3
-                set cmd [string trimright $cmd 0123456789]
-                set cmd [string trimright $cmd .]  ;#do separately in case cmd name also contains numerals
-                lappend propcmds [string range $cmd 5 end] ;#don't worry about dupes here.
-            }
-            set propcmds [struct::set union $propcmds]  ;#a way to get rid of dupes.
-            #$propcmds now holds all Properties as well as PropertyReads with no corresponding Property on this interface.
-            foreach property $propcmds {
-                #puts "\n\n  ::p::${child_ID}::$property --->>>>>>>>>>>>  ::p::${IFID}::_iface::(GET)$property \n"
-                    interp alias {} ::p::${child_ID}::(GET)$property 	{} ::p::${IFID}::_iface::(GET)$property ;#used by property reference traces
-                    interp alias {} ::p::${child_ID}::$property 		{} ::p::${IFID}::_iface::(GET)$property
-            }
-
-            set propcmds [list]
-            foreach cmd [info commands ::p::${IFID}::_iface::(SET)*] {
-                set cmd [namespace tail $cmd]
-                #may contain multiple results for same prop e.g (GET)x.3
-                set cmd [string trimright $cmd 0123456789]
-                set cmd [string trimright $cmd .]  ;#do separately in case cmd name also contains numerals
-                lappend propcmds [string range $cmd 5 end] ;#don't worry about dupes here.
-            }
-            set propcmds [struct::set union $propcmds]  ;#a way to get rid of dupes.
-            #$propcmds now holds all Properties as well as PropertyReads with no corresponding Property on this interface.
-            foreach property $propcmds {
-                interp alias {} ::p::${child_ID}::(SET)$property {} ::p::${IFID}::_iface::(SET)$property ;#used by property reference traces
-            }
-
-
-            foreach method [dict keys $o_methods] {
-                set arglist [dict get $o_methods $method arglist]
-                set argvals ""
-                foreach argspec $arglist {
-                    if {[llength $argspec] == 2} {
-                        set a [lindex $argspec 0]
-                    } else {
-                        set a $argspec
-                    }
-                    
-                    if {$a eq "args"} {
-                        append argvals " \{*\}\$args"
-                    } else {
-                        append argvals " \$$a"
-                    }
-                }
-                set argvals [string trimleft $argvals]
-            
-                #interp alias {} ::p::${child_ID}::$method {} ::p::${IFID}::_iface::$method
-                
-                #this proc directly on the object is not *just* a forwarding proc 
-                # - it provides a context in which the 'uplevel 1' from the running interface proc runs
-                #This (in 2018) is faster than a namespace alias forward to an interface proc which used apply to run in the dynamically calculated namespace (it seems the dynamic namespace stopped it from byte-compiling?)
-
-                #proc calls the method in the interface - which is an interp alias to the head of the implementation chain
-            
-            
-                proc ::p::${child_ID}::$method [list _ID_ {*}$arglist] [subst {
-                    ::p::${IFID}::_iface::$method \$_ID_ $argvals
-                }]
-                
-                #proc ::p::${child_ID}::$method [list _ID_ {*}$arglist] [string map [list @m@ $method @ID@  $IFID @argvals@ $argvals] {
-                #	::p::@ID@::_iface::@m@ $_ID_ @argvals@
-                #}]
-                
-                
-            }
-
-            #namespace eval ::p::${child_ID} [list namespace export {*}$o_methods]
-        
-            #implement property even if interface already compiled because we need to create defaults for each new child obj.
-            # also need to add alias on base interface
-            #make sure we are only implementing properties from the current CREATOR
-            dict for {prop pdef} $o_properties {
-                set varspace [dict get $pdef varspace]
-                if {![string length $varspace]} {
-                    set ns ::p::${child_ID}
-                } else {
-                  if {[string match "::*" $varspace]} {
-                      set ns $varspace
-                  } else {
-                      set ns ::p::${child_ID}::$varspace
-                  }
-                }
-                if {[dict exists $pdef default]} {
-                    if {![info exists ${ns}::o_$prop]} {
-                        #apply CREATORS defaults - don't trash existing state for matching property (only apply if var unset)
-                        set ${ns}::o_$prop [dict get $pdef default]
-                    }
-                }
-                #! May be replaced by a method with the same name
-                if {$prop ni [dict keys $o_methods]} {
-                    interp alias {} ::p::${child_ID}::$prop     {} ::p::${IFID}::_iface::(GET)$prop 
-                }
-                interp alias {} ::p::${child_ID}::(GET)$prop    {} ::p::${IFID}::_iface::(GET)$prop 
-                interp alias {} ::p::${child_ID}::(SET)$prop    {} ::p::${IFID}::_iface::(SET)$prop 
-            }
-
-
-
-            #variables
-            #foreach vdef $o_variables {
-            #	if {[llength $vdef] == 2} {
-            #		#there is a default value defined.
-            #		lassign $vdef v default
-            #		if {![info exists ::p::${child_ID}::$v]} {
-            #			set ::p::${child_ID}::$v $default
-            #		}
-            #	}
-            #}
-            dict for {vname vdef} $o_variables {
-                if {[dict exists $vdef default]} {
-                    #there is a default value defined.
-                    set varspace [dict get $vdef varspace]
-                    if {$varspace eq ""} {
-                        set ns ::p::${child_ID}
-                    } else {
-                        if {[string match "::*" $varspace]} {
-                            set ns $varspace
-                        } else {
-                            set ns ::p::${child_ID}::$varspace
-                        }
-                    }
-                    set ${ns}::$vname [dict get $vdef default]
-                }
-            }
-            
-            
-            #!todo - review. Write tests for cases of multiple constructors!
-            
-            #We don't want to the run constructor for each added interface with the same set of args!
-            #run for last one - rely on constructor  authors to use @next@ properly?
-            if {[llength [set ::p::${IFID}::_iface::o_constructor]]} {
-                set highest_constructor_IFID $IFID
-            }
-            
-            if {$idx == $idx_count} {
-                #we are processing the last interface that was added - now run the latest constructor found
-                if {$highest_constructor_IFID ne ""} {
-                    #at least one interface has a constructor
-                    if {[llength [set ::p::${highest_constructor_IFID}::_iface::o_constructor]]} {
-                        #puts ">>!! running constructor ifid:$highest_constructor_IFID  child: $CHILDMAP"
-                        if {[catch {::p::${highest_constructor_IFID}::_iface::(CONSTRUCTOR) [dict create i [dict create this [list [dict get $CHILDMAP invocantdata]  ] ]] {*}$args} constructor_error]} {
-                            set constructor_failure 1
-                            set constructor_errorInfo $::errorInfo  ;#cache it immediately.
-                            break
-                        }
-                    }
-                }
-            }
-            
-            if {[info exists o_unknown]} {
-                interp alias {} ::p::${IFID}::_iface::(UNKNOWN) 	{} ::p::${IFID}::_iface::$o_unknown
-                interp alias {} ::p::${child_ID}::(UNKNOWN) 		{} ::p::${child_ID}::$o_unknown
-                
-                
-                #interp alias {} ::p::${IFID}::_iface::(UNKNOWN) 	{} ::p::${child_ID}::$o_unknown
-                #namespace eval ::p::${IFID}::_iface [list namespace unknown $o_unknown]
-                #namespace eval ::p::${child_ID} [list namespace unknown $o_unknown]
-            }
-        }
-
-        if {$constructor_failure} {
-            if {$is_new_object} {
-                #is Destroy enough to ensure that no new interfaces or objects were left dangling?
-                $child .. Destroy 
-            } else {
-                #object needs to be returned to a sensible state.. 
-                #attempt to rollback all interface additions and object state changes!
-                puts "!!!!!!!!!!!!!!!!>>>constructor rollback  object $child_ID \n\n\n\n"
-                #remove variables from the object's namespace - which don't exist in the snapshot.
-                set snap_vars [info vars ${ns_snap}::*]
-                puts "ns_snap '$ns_snap' vars'${snap_vars}'"
-                foreach vname [info vars ::p::${child_ID}::*] {
-                    set shortname [namespace tail $vname]
-                    if {"${ns_snap}::$shortname" ni "$snap_vars"} {
-                        #puts "--- >>>>> unsetting $shortname "
-                        unset -nocomplain $vname
-                                    }
-                }
-
-                #restore variables from snapshot - but try to do so with minimal writes (don't want to trigger any unnecessary traces)
-                            #values of vars may also have Changed
-                            #todo - consider traces? what is the correct behaviour?
-                            # - some application traces may have fired before the constructor error occurred. 
-                            # Should the rollback now also trigger traces? 
-                            #probably yes. 
-                            
-                            #we need to test both source and dest var for arrayness - as the failed constructor could have changed the variable type, not just the value
-                foreach vname $snap_vars {
-                    #puts stdout "@@@@@@@@@@@ restoring $vname"
-                    #flush stdout
-
-
-                    set shortname [namespace tail $vname]
-                    set target ::p::${child_ID}::$shortname
-                    if {$target in [info vars ::p::${child_ID}::*]} {
-                        set present 1  ;#variable exists in one of 3 forms; array, simple, or 'declared only'
-                    } else {
-                        set present 0  
-                    }
-
-                    if {[array exists $vname]} {
-                        #restore 'array' variable
-                        if {!$present} {
-                            array set $target [array get $vname]
-                        } else {
-                            if {[array exists $target]} {
-                                #unset superfluous elements 
-                                foreach key [array names $target] {
-                                    if {$key ni [array names $vname]} {
-                                        array unset $target $key
-                                    }
-                                }
-                                #.. and write only elements that have changed.
-                                foreach key [array names $vname] {
-                                    if {[set ${target}($key)] ne [set ${vname}($key)]} {
-                                        set ${target}($key) [set ${vname}($key)]
-                                    }
-                                }
-                            } else {
-                                #target has been changed to a simple variable - unset it and recreate the array.
-                                unset $target
-                                array set $target [array get $vname]
-                            }
-                        }
-                    } elseif {[info exists $vname]} {
-                        #restore 'simple' variable
-                        if {!$present} {
-                            set $target [set $vname]
-                        } else {
-                            if {[array exists $target]} {
-                                #target has been changed to array - unset it and recreate the simple variable.
-                                unset $target
-                                set $target [set $vname]    
-                            } else {
-                                if {[set $target] ne [set $vname]} {
-                                    set $target [set $vname]
-                                }
-                            }
-                        }
-                    } else {
-                        #restore 'declared' variable
-                        if {[array exists $target] || [info exists $target]} {
-                            unset -nocomplain $target
-                        }
-                        namespace eval ::p::${child_ID} [list variable $shortname]
-                    }
-                }
-            }
-            namespace delete $ns_snap
-            return -code error -errorinfo "oid:${child_ID} constructor_failure for IFID:${IFID}\n$constructor_errorInfo" $constructor_error
-        }
-        namespace delete $ns_snap
-		
-	}	
-
-    
-    
-	return $child
-}
-
-dict set ::p::-1::_iface::o_methods Clone {arglist {clone args}}
-#A cloned individual doesn't have the scars of its parent. i.e values (state) not *copied*
-# (new 'clean' object with same structure. values as set by constructor or *specified by defaults*)
-# Also: Any 'open' interfaces on the parent become closed on clone!
-proc ::p::-1::Clone {_ID_ clone args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-    set invocants [dict get $_ID_ i]
-    lassign [dict get $MAP invocantdata] OID alias parent_defaultmethod cmd
-
-    set _cmd 	[string map {::> ::} $cmd]
-    set tail [namespace tail $_cmd]
-
-
-    #obsolete?
-    ##set IFID0 [lindex $map 1 0 end]
-    #set IFID0 [lindex [dict get $MAP interfaces level0] end]
-    ##set IFID1 [lindex $map 1 1 end]
-    #set IFID1 [lindex [dict get $MAP interfaces level1] end]
-
-
-    if {![string match "::*" $clone]} {
-        if {[set ns [uplevel 1 {namespace current}]] eq "::"} {
-            set clone ::$clone
-        } else {
-            set clone ${ns}::$clone
-        }
-    }
-
-
-    set clone		[namespace qualifiers $clone]::>[string trimleft [namespace tail $clone] >]
-    set _clone		[string map {::> ::} $clone]
-
-
-    set cTail		[namespace tail $_clone]
-
-    set ns [namespace qualifiers $clone]
-    if {$ns eq ""} {
-        set ns "::"
-    }
-        
-    namespace eval $ns {}
-
-
-    #if {![llength [info commands $clone]]} {}
-    if {[namespace which $clone] eq ""} {
-        set clonemapdata [::p::internals::new_object $clone]
-    } else {
-        #overlay/mixin case - target/clone already exists
-        #set CLONEMAP [lindex [interp alias {} [namespace origin $clone]] 1]
-        set clonemapdata [$clone --]
-    }
-    set clone_ID [lindex [dict get $clonemapdata invocantdata] 0]
-
-    upvar #0 ::p::${clone_ID}::_meta::map CLONEMAP
-    
-
-    #copy patterndata element of MAP straight across
-    dict set CLONEMAP patterndata [dict get $MAP patterndata]
-    set CLONE_INVOCANTDATA [dict get $CLONEMAP invocantdata]
-    lset CLONE_INVOCANTDATA 2 $parent_defaultmethod
-    dict set CLONEMAP invocantdata $CLONE_INVOCANTDATA
-    lassign $CLONE_INVOCANTDATA clone_ID clone_alias clone_defaultmethod clone
-
-    #update the clone's _ID_
-    interp alias {} $clone_alias {}  ;#first we must delete it
-    interp alias {} $clone_alias {} ::p::internals::predator [list i [list this [list $CLONE_INVOCANTDATA] ] context {}]
-
-    #! object_command was initially created as the renamed alias - so we have to do it again
-    rename $clone_alias $clone
-    trace add command $clone rename [list $clone .. Rename]	
-
-
-
-
-    #obsolete?
-    #upvar ::p::${clone_ID}::	clone_INFO
-    #upvar ::p::${IFID0}::		IFACE  ;#same interface on predecessor(self) and clone.
-    #upvar ::p::${OID}::		INFO
-
-
-    array set clone_INFO		[array get INFO]
-
-    array set ::p::${clone_ID}::_iface::o_usedby [list] ;#'usedby'
-
-
-    #!review!
-    #if {![catch {set itemCmd $IFACE(m-1,name,item)}]} {
-        #puts "***************"
-        #puts "clone"
-        #parray IFINFO
-        #puts "***************"
-    #}
-
-    #we need the parent(s) in order to 'clone'??? - probably, as the defs are usually there unless the object was created with ad-hoc methods/props directly from ::>pattern
-
-
-    #clone's interface maps must be a superset of original's 
-    foreach lev {0 1} {
-        #set parent_ifaces	[lindex $map 1 $lev]
-        set parent_ifaces  [dict get $MAP interfaces level$lev]
-        
-        #set existing_ifaces [lindex $CLONEMAP 1 $lev]
-        set existing_ifaces [dict get $CLONEMAP interfaces level$lev]
-        
-        set added_ifaces_$lev [list]
-        foreach ifid $parent_ifaces {
-            if {$ifid ni $existing_ifaces} {
-            
-                #interface must not remain extensible after cloning.				
-                if {[set ::p::${ifid}::_iface::o_open]} {
-                    ::p::predator::compile_interface $ifid $_ID_
-                    set   ::p::${ifid}::_iface::o_open 0
-                }		
-
-
-
-                lappend added_ifaces_$lev $ifid
-                #clone 'uses' all it's predecessor's interfaces, so update each interface's 'usedby' list.	
-                set ::p::${ifid}::_iface::o_usedby(i$clone_ID) $clone
-            }
-        }
-        set extracted_sub_dict [dict get $CLONEMAP interfaces]
-        dict set extracted_sub_dict level$lev [concat $existing_ifaces [set added_ifaces_$lev]]
-        dict set CLONEMAP interfaces $extracted_sub_dict
-        #lset CLONEMAP 1 $lev [concat $existing_ifaces [set added_ifaces_$lev]]
-    }
-
-    #interp alias {} ::p::${IFID0}::(VIOLATE) {} ::p::internals::(VIOLATE)
-
-
-    #foreach *added* level0 interface..
-    foreach ifid $added_ifaces_0 {
-    namespace upvar ::p::${ifid}::_iface o_methods o_methods o_properties o_properties o_variables o_variables o_constructor o_constructor o_unknown o_unknown
-
-
-        dict for {prop pdef} $o_properties {
-            #lassign $pdef prop default
-            if {[dict exists $pdef default]} {
-                set varspace [dict get $pdef varspace]
-                if {$varspace eq ""} {
-                    set ns ::p::${clone_ID}
-                } else {
-                    if {[string match "::*" $varspace]} {
-                        set ns $varspace
-                    } else {
-                        set ns ::p::${clone_ID}::$varspace
-                    }
-                }
-
-                if {![info exists ${ns}::o_$prop]} {
-                    #apply CREATORS defaults - don't trash existing state for matching property (only apply if var unset)
-                    set ${ns}::o_$prop [dict get $pdef default]
-                }
-            }
-
-            #! May be replaced by method of same name
-            if {[namespace which ::p::${clone_ID}::$prop] eq ""} {
-                interp alias {} ::p::${clone_ID}::$prop				{} ::p::${ifid}::_iface::(GET)$prop 
-            }
-            interp alias {} ::p::${clone_ID}::(GET)$prop 				{} ::p::${ifid}::_iface::(GET)$prop 
-            interp alias {} ::p::${clone_ID}::(SET)$prop 				{} ::p::${ifid}::_iface::(SET)$prop 
-        }
-
-        #variables
-        dict for {vname vdef} $o_variables {
-            if {[dict exists $vdef default]} {
-                set varspace [dict get $vdef varspace]
-                if {$varspace eq ""} {
-                    set ns ::p::${clone_ID}
-                } else {
-                    if {[string match "::*" $varspace]} {
-                        set ns $varspace
-                    } else {
-                        set ns ::p::${clone_ID}::$varspace
-                    }
-                }
-                if {![info exists ${ns}::$vname]} {
-                    set ::p::${clone_ID}::$vname [dict get $vdef default]
-                }
-            }
-        }
-
-
-        #update the clone object's base interface to reflect the new methods.
-        #upvar 0 ::p::${ifid}::	IFACE
-        #set methods [list]
-        #foreach {key mname} [array get IFACE m-1,name,*] {
-        #	set method [lindex [split $key ,] end]
-        #	interp alias {} ::p::${clone_ID}::$method {} ::p::${ifid}::_iface::$method $CLONEMAP
-        #	lappend methods $method			
-        #}
-        #namespace eval ::p::${clone_ID} [list namespace export {*}$methods]
-
-        
-        foreach method [dict keys $o_methods] {
-            
-            set arglist [dict get $o_methods $method arglist]
-            set argvals ""
-            foreach argspec $arglist {
-                if {[llength $argspec] == 2} {
-                    set a [lindex $argspec 0]
-                } else {
-                    set a $argspec
-                }
-            
-                if {$a eq "args"} {
-                    append argvals " \{*\}\$args"
-                } else {
-                    append argvals " \$$a"
-                }
-            }
-            set argvals [string trimleft $argvals]
-            #interp alias {} ::p::${clone_ID}::$method {} ::p::${ifid}::_iface::$method 
-        
-            
-            #this proc directly on the object is not *just* a forwarding proc 
-            # - it provides a context in which the 'uplevel 1' from the running interface proc runs
-            #This (in 2018) is faster than a namespace alias forward to an interface proc which used apply to run in the dynamically calculated namespace (it seems the dynamic namespace stopped it from byte-compiling?)
-
-            #proc calls the method in the interface - which is an interp alias to the head of the implementation chain
-            proc ::p::${clone_ID}::$method [list _ID_ {*}$arglist] [subst {
-                ::p::${ifid}::_iface::$method \$_ID_ $argvals
-            }]
-            
-        }
-        #namespace eval ::p::${clone_ID} [list namespace export {*}$o_methods]
-
-
-        if {[info exists o_unknown]} {
-            #interp alias {} ::p::${IID}::_iface::(UNKNOWN) {} ::p::${clone_ID}::$o_unknown
-            interp alias {} ::p::${IID}::_iface::(UNKNOWN) {} ::p::${IID}::_iface::$o_unknown
-            interp alias {} ::p::${clone_ID}::(UNKNOWN) 	{} ::p::${clone_ID}::$o_unknown
-
-            #namespace eval ::p::${IID}::_iface [list namespace unknown $o_unknown]
-            #namespace eval ::p::${clone_ID} [list namespace unknown $o_unknown]
-
-        }
-
-
-        #2021
-        #Consider >parent with constructor that sets height
-        #.eg >parent .. Constructor height {
-        #    set o_height $height
-        #}
-        #>parent .. Create >child  5
-        #   - >child has height 5
-        # now when we peform a clone operation - it is the >parent's constructor that will run.
-        # A clone will get default property and var values - but not other variable values unless the constructor sets them.
-        #>child .. Clone >fakesibling 6
-        #   - >sibling has height 6
-        # Consider if >child had it's own constructor created with .. Construct prior to the clone operation.
-        # The >child's constructor didn't run - even though we created a >fakesibling - because the paren'ts one ran instead.
-        # If we now add a constructor to >fakesibling - and put @next@ for constructor chaining...
-        # when we now do >sibling .. Create >grandchild 
-        #   - The constructor on >sibling runs first but chains to >child  - the cloner aunt/uncle of the >grandchild
-        #   (while the calling order can't be changed - the positioning of @next@ tag in the contructor can allow code to run before and/or after the chained constructors and chaining can be disabled by providing a constructor without this tag.)
-        # However - the args supplied in the >clone  operation don't get either constructor running on the >grandchild 
-        #(though other arguments can be manually passed)
-        # #!review - does this make sense? What if we add 
-        #
-        #constructor for each interface called after properties initialised.
-        #run each interface's constructor against child object, using the args passed into this clone method.
-        if {[llength [set constructordef [set o_constructor]]]} {
-            #error
-            puts "!!!!!> running constructor for ifid:$ifid on clone:$clone_ID"
-            ::p::${ifid}::_iface::(CONSTRUCTOR) [dict create i [dict create this [list [dict get $CLONEMAP invocantdata]]  ]] {*}$args
-            
-        }
-
-    }
-
-
-    return $clone
-        
-}
-
-
-
-interp alias {} ::p::-1::constructor {} ::p::-1::Constructor  ;#for Define compatibility (snit?)
-dict set ::p::-1::_iface::o_methods Constructor {arglist {arglist body}}
-proc ::p::-1::Constructor {_ID_ arglist body} {
-	set invocants [dict get $_ID_ i]
-	#set invocant_alias [lindex [dict get $invocants this] 0]
-	#set invocant [lindex [interp alias {} $invocant_alias] 1]
-	#lassign [lindex $invocant 0 ] OID alias itemCmd cmd
-    
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-
-	set patterns [dict get $MAP interfaces level1]
-	set iid_top [lindex $patterns end]  ;#!todo - choose 'open' interface to expand.
-	set iface ::p::ifaces::>$iid_top
-
-	if {(![string length $iid_top]) || ([$iface . isClosed])} {
-		#no existing pattern - create a new interface
-		set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-		#set iid_top [::p::get_new_object_id]
-		
-		#the >interface constructor takes a list of IDs for o_usedby
-		set iface [::p::>interface .. Create ::p::ifaces::>$iid_top [list $OID]]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat $patterns $iid_top]
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 1} [concat $patterns $iid_top]
-
-		#::p::predator::remap $invocant
-	}
-	set IID $iid_top
-
-    namespace upvar ::p::${IID}::_iface o_open o_open o_constructor o_constructor o_varspace o_varspace o_varspaces o_varspaces
-
-
-	#  examine the existing command-chain
-	set maxversion [::p::predator::method_chainhead $IID (CONSTRUCTOR)]
-	set headid [expr {$maxversion + 1}]
-	set THISNAME (CONSTRUCTOR).$headid    ;#first version will be $method.1 
-
-	set next [::p::predator::next_script  $IID (CONSTRUCTOR) $THISNAME $_ID_]				
-
-    #set varspaces [::pattern::varspace_list]
-	set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]		
-
-	if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-	} else {
-    	set varDecls [::p::predator::runtime_vardecls]
-			set body $varDecls\n[dict get $processed body]
-			#puts stderr "\t runtime_vardecls in Constructor $varDecls"
-	}		
-
-	#set body [string map [::list  @this@ "\[lindex \$_ID_ 0 3]" @next@ $next] $body\n]	
-	set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-	#puts stderr ----
-	#puts stderr $body
-	#puts stderr ----
-
-	proc ::p::${IID}::_iface::(CONSTRUCTOR).$headid [concat _ID_ $arglist] $body
-	interp alias {} ::p::${IID}::_iface::(CONSTRUCTOR)  {} ::p::${IID}::_iface::(CONSTRUCTOR).$headid
-
-
-
-	set o_constructor [list $arglist $body]
-	set o_open 1	
-		
-	return
-}
-
-
-
-dict set ::p::-1::_iface::o_methods UsedBy {arglist {}}
-proc ::p::-1::UsedBy {_ID_} {
-    return [array get ::p::[lindex [dict get $_ID_ i this] 0 0]::_iface::o_usedby]
-}
-
-
-dict set ::p::-1::_iface::o_methods Ready {arglist {}}
-proc ::p::-1::Ready {_ID_} {
-  return [expr {![set ::p::[lindex [dict get $_ID_ i this] 0 0]::_iface::o_open]}]
-}
-
-
-
-dict set ::p::-1::_iface::o_methods Destroy {arglist {{force 1}}}
-
-#'force' 1 indicates object command & variable will also be removed.
-#'force' 0 is used when the containing namespace is being destroyed anyway - so no need to destroy cmd & var.
-#this is necessary for versions of Tcl that have problems with 'unset' being called multiple times. (e.g Tcl 8.5a4)
-#
-proc ::p::-1::Destroy {_ID_ {force 1}} {
-    #puts stdout "\t\tDestroy called with _ID_:$_ID_ force:$force  caller:[info level 1]"
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $invocants this] 0 0]
-
-  if {$OID eq "null"} {
-      puts stderr "warning - review code. Destroy called on object with null OID. _ID_:$_ID_"
-      return
-  }
-
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-
-
-	#puts ">>>>>Explicit Destroy $cmd [clock format [clock seconds] -format %H:%M:%S]  info-level-1'[info level 1]'<<<<<" ;flush stdout
-
-	#explicit Destroy - remove traces
-	#puts ">>TRACES: [trace info variable $cmd]"
-	#foreach tinfo [trace info variable $cmd] {
-	#	trace remove variable $cmd {*}$tinfo
-	#}
-	#foreach tinfo [trace info command $cmd] {
-	#	trace remove command $cmd {*}$tinfo
-	#}
-
-		
-	set _cmd 	[string map {::> ::} $cmd]
-	
-	#set ifaces		[lindex $map 1]
-	set iface_stacks [dict get $MAP interfaces level0]
-	#set patterns	[lindex $map 2]
-	set pattern_stacks [dict get $MAP interfaces level1]
-	
-	
-	
-	set ifaces $iface_stacks
-	
-	
-	set patterns $pattern_stacks
-	
-	
-	#set i 0
-	#foreach iflist $ifaces {
-	#	set IFID$i [lindex $iflist 0]
-	#	incr i
-	#}
-
-
-	set IFTOP [lindex $ifaces end]
-
-	set DESTRUCTOR ::p::${IFTOP}::___system___destructor
-	#may be a proc, or may be an alias 
-    if {[namespace which $DESTRUCTOR] ne ""} {
-		set temp_ID_ [dict create i [dict create this [list  [dict get $MAP invocantdata]]] context {}]
-		
-		if {[catch {$DESTRUCTOR $temp_ID_} prob]} {
-			#!todo - ensure correct calling order of interfaces referencing the destructor proc
-
-
-			#!todo - emit destructor errors somewhere - logger?
-			#puts stderr "underlying proc already removed??? ---> $prob"
-			#puts stderr "--------Destructor Error on interface $IFID0 of Object $OID-------------"
-			#puts stderr $::errorInfo
-			#puts stderr "---------------------"
-		}
-	}
-	
-	
-	#remove ourself from each interfaces list of referencers
-	#puts stderr "--- $ifaces"
-
-	foreach var {ifaces patterns} {
-
-		foreach i [set $var] {
-		
-				if {[string length $i]} {
-					if {$i == 2} {
-						#skip the >ifinfo interface which doesn't maintain a usedby list anyway.
-						continue	
-					}
-
-					if {[catch {
-								
-						upvar #0 ::p::${i}::_iface::o_usedby usedby
-		
-						array unset usedby i$OID
-		
-		
-						#puts "\n***>>***"
-						#puts "IFACE: $i usedby: $usedby"
-						#puts "***>>***\n"
-		
-						#remove interface if no more referencers
-						if {![array size usedby]} {
-							#puts " **************** DESTROYING unused interface $i *****"
-							#catch {namespace delete ::p::$i}
-		
-							#we happen to know where 'interface' object commands are kept:
-	
-							::p::ifaces::>$i .. Destroy
-		
-						}
-	
-					} errMsg]} {
-						#warning 
-						puts stderr "warning: error during destruction of object:$OID (removing usedby reference for interface $i) ([lindex [dict get $MAP invocantdata] 3]) \n $errMsg"
-					}
-				}
-						
-		}
-	
-	}
-
-	set ns 			::p::${OID}
-	#puts "-- destroying objects below namespace:'$ns'"
-	::p::internals::DestroyObjectsBelowNamespace $ns
-	#puts "--.destroyed objects below '$ns'"
-
-
-	#set ns 			::p::${OID}::_sub
-	#call .. Destroy on each thing that looks like a pattern object anywhere below our 'user-area' namespace
-	#( ::p::OBJECT::$OID )
-	#puts "\n******** [clock format [clock seconds] -format %H:%M:%S] destroyingobjectsbelownamespace ns: $ns *****\n"
-	#::p::internals::DestroyObjectsBelowNamespace $ns
-
-    #same for _meta objects (e.g Methods,Properties collections)
-    #set ns          ::p::${OID}::_meta
-	#::p::internals::DestroyObjectsBelowNamespace $ns
-    
-
-
-	#foreach obj [info commands ${ns}::>*] {
-	#	#Assume it's one of ours, and ask it to die.
-	#	catch {::p::meta::Destroy $obj}
-	#	#catch {$cmd .. Destroy}
-	#}
-	#just in case the user created subnamespaces.. kill objects there too.
-	#foreach sub [namespace children $ns] {
-	#	::p::internals::DestroyObjectsBelowNamespace $sub
-	#}
-
-
-    #!todo - fix. info vars on the namespace is not enough to detect references which were never set to a value!
-    #use info commands ::p::${OID}::_ref::* to find all references - including variables never set
-    #remove variable traces on REF vars
-    #foreach rv [info vars ::p::${OID}::_ref::*] {
-    #    foreach tinfo [trace info variable $rv] {	
-    #        #puts "-->removing traces on $rv:  $tinfo"
-    #        trace remove variable $rv {*}$tinfo
-    #    }
-    #}
-
-    #!todo - write tests
-    #refs create aliases and variables at the same place 
-    #- but variable may not exist if it was never set e.g if it was only used with info exists 
-    foreach rv [info commands ::p::${OID}::_ref::*] {
-        foreach tinfo [trace info variable $rv] {	
-            #puts "-->removing traces on $rv:  $tinfo"
-            trace remove variable $rv {*}$tinfo
-        }
-    }
-
-
-	
-
-	
-
-
-	#if {[catch {namespace delete $nsMeta} msg]} {
-	#	puts stderr "-----&&&&&&&&&&&&&& ERROR deleting NS $nsMeta : $msg "
-	#} else {
-	#	#puts stderr "------ -- -- -- -- deleted $nsMeta "
-	#}
-
-
-	#!todo - remove
-	#temp 
-	#catch {interp alias "" ::>$OID ""}
-
-	if {$force} {
-		#rename $cmd	{}
-
-		#removing the alias will remove the command - even if it's been renamed
-		interp alias {} $alias {}  
-
-		#if {[catch {rename $_cmd	{} } why]} {
-		#	#!todo - work out why some objects don't have matching command.
-		#	#puts stderr "\t rename $_cmd {} failed"
-		#} else {
-		#	puts stderr "\t rename $_cmd {} SUCCEEDED!!!!!!!!!!"
-		#}
-
-	}
-
-	set refns ::p::${OID}::_ref
-	#puts "[clock format [clock seconds] -format %H:%M:%S] - tidying up namespace $refns"
-	#puts "- children: [llength [namespace children $refns]]"
-	#puts "- vars    : [llength [info vars ${refns}::*]]"
-	#puts "- commands: [llength [info commands ${refns}::*]]"
-	#puts "- procs   : [llength [info procs ${refns}::*]]"
-	#puts "- aliases : [llength [lsearch -all -inline [interp aliases {}] ${refns}::*]]"
-	#puts "- matching command: [llength [info commands ${refns}]]"
-	#puts "[clock format [clock seconds] -format %H:%M:%S] - tidyup DONE $refns"
-
-
-	#foreach v [info vars ${refns}::*] {
-	#	unset $v
-	#}
-	#foreach p [info procs ${refns}::*] {
-	#	rename $p {}
-	#}
-	#foreach a [lsearch -all -inline [interp aliases {}] ${refns}::*] {
-	#	interp alias {} $a {}
-	#}
-
-
-	#set ts1 [clock seconds]
-	#puts "[clock format $ts1 -format %H:%M:%S] $cmd about to delete $refns."
-	#puts "- children: [llength [namespace children $refns]]"
-	#puts "- vars    : [llength [info vars ${refns}::*]]"
-
-	#puts "- commands: [llength [info commands ${refns}::*]]"
-	#puts "- procs   : [llength [info procs ${refns}::*]]"
-	#puts "- aliases : [llength [lsearch -all -inline [interp aliases {}] ${refns}::*]]"
-	#puts "- exact command: [info commands ${refns}]"
-
-
-
-
-	#puts "--delete ::p::${OID}::_ref"
-	if {[namespace exists ::p::${OID}::_ref]} {
-		#could just catch.. but would rather know if there's some other weird reason the namespace can't be deleted.
-		namespace delete ::p::${OID}::_ref::
-	}
-	set ts2 [clock seconds]
-	#puts "[clock format $ts2 -format %H:%M:%S]  $cmd deleted $refns. ELAPSED: [expr {$ts2 - $ts1}]"
-
-
-	#delete namespace where instance variables reside
-	#catch {namespace delete ::p::$OID}	
-	namespace delete ::p::$OID
-	
-	#puts "...... destroyed $cmd [clock format [clock seconds] -format %H:%M:%S] <<<<<" ;flush stdout
-	return
-}
-
-
-interp alias {} ::p::-1::destructor {} ::p::-1::Destructor  ;#for Define compatibility
-
-
-dict set ::p::-1::_iface::o_methods Destructor {arglist {args}}
-#!todo - destructor arguments? e.g to be able to mark for destruction on next sweep of some collector as opposed to immediate destruction?
-#install a Destructor on the invocant's open level1 interface.
-proc ::p::-1::Destructor {_ID_ args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-	#lassign [lindex $map 0] OID alias itemCmd cmd
-
-	set patterns [dict get $MAP interfaces level1]
-
-	if {[llength $args] > 2} {
-		error "too many arguments to 'Destructor' - expected at most 2 (arglist body)"
-	}
-	
-	set existing_IID		[lindex $patterns end] ;#!todo - get 'open' interface.
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		error "NOT TESTED"
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $patterns $existing_IID]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat [lreplace $patterns $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 1} [concat [lreplace $patterns $posn $posn] $IID]
-		
-		#::p::predator::remap $invocant
-	}
-
-		
-	set ::p::${IID}::_iface::o_destructor_body [lindex $args end]
-	
-	if {[llength $args] > 1} {
-	#!todo - allow destructor args(?)
-		set arglist [lindex $args 0]
-	} else {
-		set arglist [list]
-	}
-
-	set ::p::${IID}::_iface::o_destructor_args $arglist
-	
-	return
-}
-
-
-
-
-
-interp alias {} ::p::-1::method {} ::p::-1::PatternMethod  ;#for Define compatibility (with snit)
-
-
-dict set ::p::-1::_iface::o_methods PatternMethod {arglist {method arglist body}}
-proc ::p::-1::PatternMethod {_ID_ method arglist body} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-    lassign [dict get $MAP invocantdata] OID alias default_method object_command _wrapped
-    
-    set patterns [dict get $MAP interfaces level1]
-    set iid_top     [lindex $patterns end] ;#!todo - get 'open' interface.
-    set iface ::p::ifaces::>$iid_top
-
-    if {(![string length $iid_top]) || ([$iface . isClosed])} {
-        #no existing pattern - create a new interface
-        set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-        set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level1 [concat $patterns $iid_top]
-        dict set MAP interfaces $extracted_sub_dict
-    }
-    set IID $iid_top
-
-
-    namespace upvar ::p::${IID}::_iface o_methods o_methods o_definition o_definition o_varspace o_varspace o_varspaces o_varspaces
-
-
-    #  examine the existing command-chain
-    set maxversion [::p::predator::method_chainhead $IID $method]
-    set headid [expr {$maxversion + 1}]
-    set THISNAME $method.$headid    ;#first version will be $method.1 
-
-    set next [::p::predator::next_script  $IID $method $THISNAME $_ID_]		
-
-
-    set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]		
-    if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-    } else {
-        set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-        #puts stdout "!!!>!>>>>>$THISNAME  VarDecls: $varDecls"
-        set body $varDecls\n[dict get $processed body]
-        #puts stderr "\t object $OID runtime_vardecls in PatternMethod $method $varDecls"
-    }
-
-
-    set body [::p::predator::wrap_script_in_apply_object_namespace $o_varspace $body[set body {}] $arglist]
-
-    #set body [string map [::list @this@ "\[lindex \${_ID_} 0 3]" @next@ $next] $body\n]	
-    set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata\] 3\]" @next@ $next] $body[set body {}]\n]	
-    #puts "\t\t--------------------"
-    #puts "\n"
-    #puts $body 
-    #puts "\n"
-    #puts "\t\t--------------------"
-    proc ::p::${IID}::_iface::$THISNAME [concat _ID_ $arglist] $body
-
-
-
-    #pointer from method-name to head of the interface's command-chain
-    interp alias {} ::p::${IID}::_iface::$method {} ::p::${IID}::_iface::$THISNAME
-
-
-
-    if {$method in [dict keys $o_methods]} {	
-            #error "patternmethod '$method' already present in interface $IID"
-            set msg "WARNING: patternmethod '$method' already exists on objectid $OID  ($object_command). Replacing previous version. (no chaining support here yet...)"
-            if {[string match "*@next@*" $body]} {
-                append msg "\n EXTRA-WARNING: method contains @next@"
-            }
-
-            puts stdout $msg
-    } else {
-        dict set o_methods $method [list arglist $arglist]
-    }
-
-    #::p::-1::update_invocant_aliases $_ID_
-    return
-}
-
-#MultiMethod
-#invocant_signature records the rolenames and aritys as a dispatch signature to support multimethods which act on any number of invocants
-# e.g1 $obj .. MultiMethod add {these 2} $arglist $body
-# e.g2 $obj .. MultiMethod add {these n} $arglist $body
-#
-# e.g3 $collidabletemplate .. MultiMethod collision {vehicles 2 cameras 0..n} $arglist $body
-#
-# for e.g3 - all vehicles & cameras involved would need to have the interface containing the method named 'collision', with the matching invocant_signature.
-# (it is possible for the object, or even the same interface to contain another method named 'collision' with a different signature)
-# !todo - review rules for when invocants participating in a multimethod with a particular signature, have different implementations (method from different interfaces)
-# - can we avoid the overhead of checking for this at dispatch-time, and simply use which ever implementation we first encounter? 
-# - should we warn about or enforce a same-implementation rule for all multimethod conflicts found at the time an object-conglomeration is formed?
-# - should there be before and after hooks for all invocants involved in a multimethod so they can each add behaviour independent of the shared multimethod code? 
-#   (and how would we define the call order? - presumably as it appears in the conglomerate)
-#   (or could that be done with a more general method-wrapping mechanism?)
-#...should multimethods use some sort of event mechanism, and/or message-passing system?
-#
-dict set ::p::-1::_iface::o_methods MultiMethod {arglist {method invocant_signature arglist body args}}
-proc	::p::-1::MultiMethod {_ID_ method invocant_signature arglist body args} {
-    set invocants [dict get $_ID_ i]
-
-    error "not implemented"
-}
-
-dict set ::p::-1::_iface::o_methods DefaultMethod {arglist {{methodname "noargsupplied--9e40ec8b-bc31-4400-98b8-d48ee23746c4"}}}
-# we could use . to indicate no methodname - as this is one of a few highly confusing names for a method (also for example .. , # -- )
-#we can create a method named "." by using the argprotect operator --
-# e.g >x .. Method -- . {args} $body
-#It can then be called like so: >x . . 
-#This is not guaranteed to work and is not in the test suite 
-#for now we'll just use a highly unlikely string to indicate no argument was supplied
-proc	::p::-1::DefaultMethod {_ID_ {methodname "noargsupplied--9e40ec8b-bc31-4400-98b8-d48ee23746c4"} }  {
-	set non_argument_magicstring "noargsupplied--9e40ec8b-bc31-4400-98b8-d48ee23746c4"
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias default_method object_command _wrapped
-	if {$methodname eq $non_argument_magicstring} {
-		return $default_method
-	} else {
-		set extracted_value [dict get $MAP invocantdata]
-		lset extracted_value 2 $methodname
-		dict set MAP invocantdata $extracted_value ;#write modified value back 
-		#update the object's command alias to match
-		interp alias {} $alias {}  ;#first we must delete it
-		interp alias {} $alias {} ::p::internals::predator [list i [list this [list $extracted_value ] ] context {}]
-		
-		#! $object_command was initially created as the renamed alias - so we have to do it again
-		rename $alias $object_command
-		trace add command $object_command rename [list $object_command .. Rename]	
-		return $methodname
-	}
-}
-
-dict set ::p::-1::_iface::o_methods PatternDefaultMethod {arglist {{methodname "noargsupplied--9e40ec8b-bc31-4400-98b8-d48ee23746c4"}}}
-proc	::p::-1::PatternDefaultMethod {_ID_ {methodname "noargsupplied--9e40ec8b-bc31-4400-98b8-d48ee23746c4"} }  {
-	set non_argument_magicstring "noargsupplied--9e40ec8b-bc31-4400-98b8-d48ee23746c4"
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	upvar #0 ::p::${OID}::_meta::map MAP
-	set extracted_patterndata [dict get $MAP patterndata]
-	set pattern_default_method [dict get $extracted_patterndata patterndefaultmethod]
-	if {$methodname eq $non_argument_magicstring} {
-		return $pattern_default_method
-	} else {
-		dict set extracted_patterndata patterndefaultmethod $methodname
-		dict set MAP patterndata $extracted_patterndata
-		return $methodname
-	}
-}
-
-
-dict set ::p::-1::_iface::o_methods Method {arglist {method arglist bodydef args}}
-proc ::p::-1::Method {_ID_ method arglist bodydef args} {
-  set invocants [dict get $_ID_ i]
-
-  set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-
-  set invocant_signature [list] ;
-  ;# we sort when calculating the sig.. so a different key order will produce the same signature - !todo - this is probably desirable but review anyway. 
-  foreach role [lsort [dict keys $invocants]] {
-      lappend invocant_signature $role [llength [dict get $invocants $role]]
-  }
-  #note: it's expected that by far the most common 'invocant signature' will be {this 1}  - which corresponds to a standard method dispatch on a single invocant object - the 'subject' (aka 'this')
-
-
-
-    lassign [dict get $MAP invocantdata] OID alias default_method object_command
-    set interfaces [dict get $MAP interfaces level0]
-
-
-
-    #################################################################################
-    if 0 {
-        set iid_top 	[lindex $interfaces end] ;#!todo - get 'open' interface
-        set prev_open [set ::p::${iid_top}::_iface::o_open]
-
-        set iface ::p::ifaces::>$iid_top
-        
-        set f_new 0
-        if {![string length $iid_top]} {
-            set f_new 1
-        }  else {
-            if {[$iface . isClosed]} {
-                set f_new 1
-            }
-        }
-        if {$f_new} {
-            #create a new interface
-            set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-            set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-
-            set extracted_sub_dict [dict get $MAP interfaces]
-            dict set extracted_sub_dict level0 [concat $interfaces  $iid_top]
-            dict set MAP interfaces $extracted_sub_dict
-        
-        }
-        set IID $iid_top
-
-    }
-    #################################################################################
-    
-    set IID [::p::predator::get_possibly_new_open_interface $OID]
-
-	#upvar 0 ::p::${IID}::		IFACE
-
-    namespace upvar ::p::${IID}::_iface o_methods o_methods o_definition o_definition o_varspace o_varspace o_varspaces o_varspaces
-
-
-	#Interface proc	
-	#  examine the existing command-chain
-	set maxversion [::p::predator::method_chainhead $IID $method]
-	set headid [expr {$maxversion + 1}]
-	set THISNAME $method.$headid    ;#first version will be $method.1 
-
-    if {$method ni [dict keys $o_methods]} {
-        dict set o_methods $method [list arglist $arglist]
-    }
-
-    #next_script will call to lower interface in iStack if we are $method.1
-    set next [::p::predator::next_script $IID $method $THISNAME $_ID_]   ;#last parameter is caller_ID_
-    #puts ">!>>$THISNAME>>>>> next:  '$next'<<<<<<"
-
-
-	#implement
-	#-----------------------------------	
-	set processed [dict create {*}[::p::predator::expand_var_statements $bodydef $o_varspace]]	
-	if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-        set varDecls ""
-	} else {
-		set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-		set body $varDecls\n[dict get $processed body]
-	}
-
-
-  set body [::p::predator::wrap_script_in_apply_object_namespace $o_varspace $body $arglist]
-
-  
-
- 
-
-
-	#set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-	set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-	#if {[string length $varDecls]} {
-	#  puts stdout "\t---------------------------------------------------------------"
-	#  puts stdout "\t----- efficiency warning - implicit var declarations used -----"
-  # 	puts stdout "\t-------- $object_command .. Method $method $arglist ---------"
-	#	puts stdout "\t[string map [list \n \t\t\n] $body]"
-	#	puts stdout "\t--------------------------"
-	#}
-    #invocants are stored as a nested dict in the Invocant Data parameter (_ID_) under the key 'i', and then the invocant_role
-    # while 'dict get $_ID_ i this' should always return a single invocant, all roles theoretically return a list of invocants fulfilling that position. 
-    #(as specified by the @ operator during object conglomeration)
-	#set body [string map [::list @this@ "\[dict get \$_ID_ i this \]" @next@ $next] $body\n]	
-
- #puts stdout "\t\t----------------------------"
- #puts stdout "$body"
- #puts stdout "\t\t----------------------------"
-
-	proc ::p::${IID}::_iface::$THISNAME [concat _ID_ $arglist] $body
-
-	#-----------------------------------	
-
-	#pointer from method-name to head of override-chain
-	interp alias {} ::p::${IID}::_iface::$method {} ::p::${IID}::_iface::$THISNAME
-
-	
-	#point to the interface command only. The dispatcher will supply the invocant data
-	#interp alias {} ::p::${OID}::$method {} ::p::${IID}::_iface::$method 
-	set argvals ""
-	foreach argspec $arglist {
-		if {[llength $argspec] == 2} {
-			set a [lindex $argspec 0]
-		} else {
-			set a $argspec
-		}
-		if {$a eq "args"} {
-			append argvals " \{*\}\$args"
-		} else {
-			append argvals " \$$a"
-		}
-	}
-	set argvals [string trimleft $argvals]
-	#this proc directly on the object is not *just* a forwarding proc 
-	# - it provides a context in which the 'uplevel 1' from the running interface proc runs
-	#This (in 2018) is faster than a namespace alias forward to an interface proc which used apply to run in the dynamically calculated namespace (it seems the dynamic namespace stopped it from byte-compiling?)
-	
-	#we point to the method of the same name in the interface - which is an interp alias to the head of the implementation chain
-	
-	proc ::p::${OID}::$method [list _ID_ {*}$arglist] [subst {
-			::p::${IID}::_iface::$method \$_ID_ $argvals
-	}]
-	
-
-	if 0 {
-	if {[llength $argvals]} {
-		proc ::p::${OID}::$method [list _ID_ {*}$arglist] [string map [list @ID@ [list $_ID_] @iid@ $IID @m@ $method @argl@ $arglist @argv@ $argvals] {
-			apply {{_ID_ @argl@} {::p::@iid@::_iface::@m@ $_ID_ @argl@}} @ID@ @argv@
-		}]
-	} else {
-	
-		proc ::p::${OID}::$method [list _ID_ {*}$arglist] [string map [list @ID@ [list $_ID_] @iid@ $IID @m@ $method @argl@ $arglist] {
-			apply [list {_ID_ @argl@} {::p::@iid@::_iface::@m@ $_ID_ @argl@} [namespace current]] @ID@ 
-		}]
-	
-	}
-	}
-	
-	
-	#proc ::p::${OID}::$method [list _ID_ {*}$arglist] [subst {
-	#	::p::${IID}::_iface::$method \$_ID_ $argvals
-	#}]
-	
-	#todo - for o_varspaces
-	#install ::p::${OID}::${varspace}::$method  with interp alias from ::p::${OID}::$method
-	#- this should work correctly with the 'uplevel 1' procs in the interfaces
-
-	
-    if {[string length $o_varspace]} {
-      if {[string match "::*" $o_varspace]} {
-          namespace eval $o_varspace {}
-      } else {
-          namespace eval ::p::${OID}::$o_varspace {}
-      }
-    }
-
-
-	#if the metainfo collection exists, update it. Don't worry if nonexistant as it will be created if needed.
-    set colMethods ::p::${OID}::_meta::>colMethods
-    
-    if {[namespace which $colMethods] ne ""} {
-          if {![$colMethods . hasKey $method]} {
-               $colMethods . add [::p::internals::predator $_ID_ . $method .] $method
-          }
-    }
-
-	#::p::-1::update_invocant_aliases $_ID_
-	return
-	#::>pattern .. Create [::>pattern .. Namespace]::>method_???
-	#return $method_object
-}
-
-
-dict set ::p::-1::_iface::o_methods V {arglist {{glob *}}}
-proc ::p::-1::V {_ID_ {glob *}} {
-  set invocants [dict get $_ID_ i]
-	#set invocant_alias [lindex [dict get $invocants this] 0]
-	#set invocant [lindex [interp alias {} $invocant_alias] 1]
-
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-  set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-
-
-	set vlist [list]
-    foreach IID $ifaces {
-        dict for {vname vdef} [set ::p::${IID}::_iface::o_variables] {
-            if {[string match $glob $vname]} {
-                lappend vlist $vname
-            }
-        }
-    }
-	
-	
-    return $vlist
-}
-
-#experiment from http://wiki.tcl.tk/4884
-proc p::predator::pipeline {args} {
-    set lambda {return -level 0}
-    foreach arg $args {
-        set lambda [list apply [dict get {
-            toupper {{lambda input} {string toupper [{*}$lambda $input]}}
-            tolower {{lambda input} {string tolower [{*}$lambda $input]}}
-            totitle {{lambda input} {string totitle [{*}$lambda $input]}}
-            prefix {{lambda pre input} {string cat $pre [{*}$lambda $input]}}
-            suffix {{lambda suf input} {string cat [{*}$lambda $input] $suf}}
-        } [lindex $arg 0]] $lambda[set lambda {}] {*}[lrange $arg 1 end]]
-    }
-    return $lambda
-}
-
-proc ::p::predator::get_apply_arg_0_oid {} {
-	set apply_args [lrange [info level 0] 2 end]
-	puts stderr ">>>>> apply_args:'$apply_args'<<<<"
-	set invocant [lindex $apply_args 0]
-	return [lindex [dict get $invocant i this] 0 0]
-}
-proc ::p::predator::get_oid {} {
-	#puts stderr "---->> [info level 1] <<-----"
-	set _ID_ [lindex [info level 1] 1] ;#something like ::p::17::_iface::method.1 {i {this { {16 ::p::16 item ::>thing {} }  } }} arg1 arg2
-	tailcall  lindex [dict get $_ID_ i this] 0 0
-}
-
-#todo - make sure this is called for all script installations - e.g propertyread etc etc
-#Add tests to check code runs in correct namespace 
-#review - how does 'Varspace' command affect this?
-proc ::p::predator::wrap_script_in_apply_object_namespace {varspace body arglist} {
-	#use 'lindex $a 0' to make sure we only get the variable name. (arglist may have defaultvalues)
-	set arglist_apply ""
-	append arglist_apply "\$_ID_ "
-	foreach a $arglist {
-		if {$a eq "args"} {
-			append arglist_apply "{*}\$args"
-		} else {
-			append arglist_apply "\$[lindex $a 0] "
-		}
-	}
-	#!todo - allow fully qualified varspaces
-	if {[string length $varspace]} {
-        if {[string match ::* $varspace]} {
-            return "tailcall apply \[list \[list _ID_ $arglist\] \{$body\} $varspace \] $arglist_apply"
-        } else {
-            #return "uplevel 1 \[list apply \[list \[list _ID_ $arglist\] \{$body\} ::p::@OID@::$varspace \] $arglist_apply \]\n"
-            return "tailcall apply \[list \[list _ID_ $arglist\] \{$body\} ::p::@OID@::$varspace \] $arglist_apply"
-        }
-	} else {
-		#return "uplevel 1 \[list apply \[list \[list _ID_ $arglist\] \{$body\} ::p::@OID@ \] $arglist_apply \]\n"
-		#return "tailcall try \[list apply \[list \[list _ID_ $arglist\] \{$body\} ::p::@OID@ \] $arglist_apply \]"
-		
-		set script "tailcall apply \[list \{_ID_"
-		
-		if {[llength $arglist]} {
-			append script " $arglist"
-		}
-		append script "\} \{"
-		append script $body
-		append script "\} ::p::@OID@\] "
-		append script $arglist_apply
-		#puts stderr "\n88888888888888888888888888\n\t$script\n"
-		#puts stderr "\n77777777777777777777777777\n\ttailcall apply \[list \[list _ID_ $arglist\] \{$body\} ::p::@OID@ \] $arglist_apply"
-		#return $script
-		
-		
-		#-----------------------------------------------------------------------------
-		# 2018 candidates
-		#
-		#return "tailcall apply \[list \[list _ID_ $arglist\] \{$body\} ::p::@OID@ \] $arglist_apply" ;#ok - but doesn't seem to be bytecompiled
-		#return "tailcall apply \[list {_ID_ $arglist} {$body} ::p::@OID@ \] $arglist_apply" ;#ok - but doesn't seem to be bytecompiled
-		
-		
-		#this has problems with @next@ arguments! (also script variables will possibly interfere with each other)
-		#faster though.
-		#return "uplevel 1 \{$body\}"
-		return "uplevel 1 [list $body]"
-		#-----------------------------------------------------------------------------
-		
-		
-		
-		
-		#set script "apply \[list \[list _ID_ $arglist\] \{$body\}\] $arglist_apply"
-	  #return "uplevel 1 \{$script\}"
-		
-		#return "puts stderr --\[info locals\]-- ;apply \[list {_ID_ $arglist} {$body} ::p::\[p::predator::get_oid\] \] $arglist_apply" ;#fail
-		#return "apply \[list {_ID_ $arglist} {$body} ::p::\[p::predator::get_oid\] \] $arglist_apply" ;#fail
-	
-	
-	
-		#return "tailcall apply { {_ID_ $arglist} {$body} ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\] } $arglist_apply" ;#wrong
-	
-		#return "tailcall apply \[list {_ID_ $arglist}  {apply { {_ID_ $arglist} {$body}} $arglist_apply } ::p::@OID@ \] $arglist_apply" ;#wrong ns
-		
-	
-	  #experiment with different dispatch mechanism (interp alias with 'namespace inscope')	
-	  #-----------
-		#return "apply { {_ID_ $arglist} {$body}} $arglist_apply"
-	
-		
-		#return "uplevel 1  \{$body\}" ;#do nothing
-	
-	  #----------
-		
-		#return "tailcall namespace inscope ::p::@OID@ \{apply \{\{_ID_ $arglist\} \{$body\}\}\} $arglist_apply" ;#wrong! doesn't evaluate in the correct namespace (wrong _ID_  ??)
-		
-		#return "tailcall apply \{\{_ID_ $arglist\} \{namespace inscope ::p::@OID@ \{$body\}\} \} $arglist_apply" ;#wrong - _ID_ now not available in $body
-		
-		#return "tailcall apply \{\{ns _ID_ $arglist\} \{    apply  \[list {_ID_ $arglist}  \{$body\} \$ns \] $arglist_apply         \} \} ::p::@OID@ $arglist_apply"  ;#no quicker
-		
-		#return "tailcall "
-		
-		
-	}
-}
-
-
-#Handle 'var' and 'varspace' declarations in method/constructor/destructor/propertyread etc bodies.
-#expand 'var' statements inline in method bodies
-#The presence of a var statement in any code-branch will cause the processor to NOT insert the implicit default var statements.
-#
-#concept of 'varspace' to allow separation and/or sharing of contexts for cooperating interfaces
-#WARNING: within methods etc, varspace statements affect all following var statements.. i.e varspace not affected by runtime code-branches!
-# e.g if 1 {varspace x} else {varspace y}   will always leave 'varspace y' in effect for following statements.
-#Think of var & varspace statments as a form of compile-time 'macro' 
-#
-#caters for 2-element lists as arguments to var statement to allow 'aliasing'
-#e.g  var o_thing {o_data mydata}
-# this will upvar o_thing as o_thing & o_data as mydata
-#
-proc ::p::predator::expand_var_statements {rawbody {varspace ""}} {
-	set body {}
-
-	#keep count of any explicit var statments per varspace in 'numDeclared' array
-    # don't initialise numDeclared. We use numDeclared keys to see which varspaces have var statements.
-
-    #default varspace is ""
-    #varspace should only have leading :: if it is an absolute namespace path.
-
-
-	foreach ln [split $rawbody \n] {
-		set trimline [string trim $ln]
-
-		if {$trimline eq "var"} {
-				#plain var statement alone indicates we don't have any explicit declarations in this branch 
-				# and we don't want implicit declarations for the current varspace either.
-				#!todo - implement test
-
-				incr numDeclared($varspace)
-
-				#may be further var statements e.g - in other code branches
-				#return [list body $rawbody varspaces_with_explicit_vars 1]
-		} elseif {([string range $trimline 0 2] eq "var") && ([string is space [string index $trimline 3]])} {
-
-			#append body "    upvar #0 "
-      		#append body "    namespace upvar ::p::\[lindex \$_ID_ 0 0 \]${varspace} "
-      		#append body "    namespace upvar ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]${varspace} "
-
-            if {$varspace eq ""} {
-              	append body "   namespace upvar ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\] "
-            } else {
-                if {[string match "::*" $varspace]} {
-                    append body "   namespace upvar $varspace "
-                } else {            
-              		append body "   namespace upvar ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::${varspace} "
-                }
-            }
-
-			#any whitespace before or betw var names doesn't matter - about to use as list.
-			foreach varspec [string range $trimline 4 end] {
-				lassign [concat $varspec $varspec] var alias  ;#var == alias if varspec only 1 element.
-				##append body "::p::\[lindex \$_ID_ 0 0 \]::${varspace}$var $alias "
-				#append body "::p::\[lindex \$_ID_ 0 0 \]${varspace}$var $alias "
-
-        		append body "$var $alias "
-
-			}
-			append body \n
-			
-			incr numDeclared($varspace)
-		} elseif {([string range $trimline 0 7] eq "varspace") && ([string is space -strict [string index $trimline 8]])} {
-            #2021 REVIEW - why do we even need 'varspace x' commands in bodies? - just use 'namespace eval x' ???
-			#it is assumed there is a single word following the 'varspace' keyword.
-			set varspace [string trim [string range $trimline 9 end]]
-            
-            if {$varspace in [list {{}} {""}]} {
-                set varspace ""
-            }
-            if {[string length $varspace]} {
-                    #set varspace ::${varspace}::
-                    #no need to initialize numDeclared($varspace) incr will work anyway.
-                    #if {![info exists numDeclared($varspace)]} {
-                    #	set numDeclared($varspace) 0
-                    #}
-
-                    if {[string match "::*" $varspace]} {
-                        append body "namespace eval $varspace {} \n"
-                    } else {
-                        append body "namespace eval ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::$varspace {} \n"
-                    }
-
-                    #puts "!!!! here~! namespace eval ::p::\[lindex \$_ID_ 0 0\]$varspace {} "
-                    #append body "namespace eval ::p::\[lindex \$_ID_ 0 0\]$varspace {} \n"
-                    #append body "namespace eval ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]$varspace {} \n"
-
-                    #append body "puts \"varspace: created ns  ::p::\[lindex \$_ID_ 0 0\]$varspace \"\n"
-            }
-            #!review - why?  why do we need the magic 'default' name instead of just using the empty string?
-			#if varspace argument was empty string - leave it alone
-		} else {
-			append body $ln\n
-		}		
-	}
-
-	
-
-    set varspaces [array names numDeclared]
-    return [list body $body varspaces_with_explicit_vars $varspaces]
-}
-
-
-
-
-#Interface Variables 
-dict set ::p::-1::_iface::o_methods IV {arglist {{glob *}}}
-proc ::p::-1::IV {_ID_ {glob *}} {
-    set invocants [dict get $_ID_ i]
-
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-    set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-
-    #!todo - test
-    #return [dict keys ::p::${OID}::_iface::o_variables $glob]
-
-	set members [list]
-	foreach vname [dict keys [set ::p::${OID}::_iface::o_variables]] {
-		if {[string match $glob $vname]} {
-			lappend members $vname
-		}
-	}
-	return $members
-}
-
-
-dict set ::p::-1::_iface::o_methods Methods {arglist {{idx ""}}}
-proc ::p::-1::Methods {_ID_ {idx ""}} {
-  set invocants [dict get $_ID_ i]
-  set this_invocant [lindex [dict get $invocants this] 0]
-  lassign $this_invocant OID _etc
-  #set map [dict get $this_info map]
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-    
-
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-  set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-  set col ::p::${OID}::_meta::>colMethods
-
-  if {[namespace which $col] eq ""} {
-      patternlib::>collection .. Create $col
-      foreach IID $ifaces {
-          foreach m [dict keys [set ::p::${IID}::_iface::o_methods]] {
-						if {![$col . hasIndex $m]} {
-										#todo - create some sort of lazy-evaluating method object?
-										  #set arglist [dict get [set ::p::${IID}::iface::o_methods] $m arglist]
-			              	$col . add [::p::internals::predator $_ID_ . $m .] $m
-						}
-          }
-      }
-  }
-	
-	if {[string length $idx]} {
-		return [$col . item $idx]
-	} else {
-    	return $col
-	}
-}
-
-dict set ::p::-1::_iface::o_methods M {arglist {}}
-proc ::p::-1::M {_ID_} {
-  set invocants [dict get $_ID_ i]
-  set this_invocant [lindex [dict get $invocants this] 0]
-  lassign $this_invocant OID _etc
-  #set map [dict get $this_info map]
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-    
-	
-
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-  set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-	set members [list]
-    foreach IID $ifaces {
-        foreach m [dict keys [set ::p::${IID}::_iface::o_methods]] {
-            lappend members $m
-        }
-    }
-	return $members
-}
-
-
-#review
-#Interface Methods
-dict set ::p::-1::_iface::o_methods IM {arglist {{glob *}}}
-proc ::p::-1::IM {_ID_ {glob *}} {
-  set invocants [dict get $_ID_ i]
-  set this_invocant [lindex [dict get $invocants this] 0]
-  lassign $this_invocant OID _etc
-  #set map [dict get $this_info map]
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-    
-
-
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-  set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-	return [dict keys [set ::p::${OID}::_iface::o_methods] $glob]
-
-}
-
-
-
-dict set ::p::-1::_iface::o_methods InterfaceStacks {arglist {}}
-proc ::p::-1::InterfaceStacks {_ID_} {
-	upvar #0 ::p::[lindex [dict get $_ID_ i this] 0 0]::_meta::map MAP
-	return [dict get $MAP interfaces level0]
-}
-
-
-dict set ::p::-1::_iface::o_methods PatternStacks {arglist {}}
-proc ::p::-1::PatternStacks {_ID_} {
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	upvar #0 ::p::${OID}::_meta::map MAP
-	return [dict get $MAP interfaces level1]
-}
-
-
-#!todo fix. need to account for references which were never set to a value 
-dict set ::p::-1::_iface::o_methods DeletePropertyReferences {arglist {}}
-proc ::p::-1::DeletePropertyReferences {_ID_} {
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	set cleared_references [list]
-	set refvars [info vars ::p::${OID}::_ref::*]
-	#unsetting vars will clear traces anyway - but we wish to avoid triggering the 'unset' traces - so we will explicitly remove all traces 1st.
-	foreach rv $refvars {
-		foreach tinfo [trace info variable $rv] {
-			set ops {}; set cmd {}
-			lassign $tinfo ops cmd
-			trace remove variable $rv $ops $cmd
-		}
-		unset $rv
-		lappend cleared_references $rv
-	}
-	
-
-	return [list deleted_property_references $cleared_references]
-}
-
-dict set ::p::-1::_iface::o_methods DeleteMethodReferences {arglist {}}
-proc ::p::-1::DeleteMethodReferences {_ID_} {
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	set cleared_references [list]
-
-	set iflist [dict get $MAP interfaces level0]
-	set iflist_reverse [lreferse $iflist]
-	#set iflist [dict get $MAP interfaces level0]
-
-
-	set refcommands [info commands ::p::${OID}::_ref::*]
-	foreach c $refcommands {
-		set reftail [namespace tail $c]
-	  set field [lindex [split $c +] 0]
-		set field_is_a_method 0
-		foreach IFID $iflist_reverse {
-			if {$field in [dict keys [set ::p::${IFID}::_iface::o_methods]]} {
-				set field_is_a_method 1
-				break
-			}
-		}
-		if {$field_is_a_method} {
-			#what if it's also a property?
-			interp alias {} $c {}
-			lappend cleared_references $c
-		}
-	}
-	
-
-	return [list deleted_method_references $cleared_references]
-}
-
-
-dict set ::p::-1::_iface::o_methods DeleteReferences {arglist {}}
-proc ::p::-1::DeleteReferences {_ID_} {
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias default_method this
-	
-	set result [dict create]
-	dict set result {*}[$this .. DeletePropertyReferences]
-	dict set result {*}[$this .. DeleteMethodReferences]
-	
-	return $result 
-}
-
-##
-#Digest
-#
-#!todo - review 
-# -> a variable containing empty string is the same as a non existant variable as far as digest is concerned.. is that bad? (probably!)
-#
-#!todo - write tests - check that digest changes when properties of contained objects change value
-#
-#!todo - include method/property/interfaces in digest calc, or provide a separate more comprehensive digest method?
-#
-dict set ::p::-1::_iface::o_methods Digest {arglist {args}}
-proc ::p::-1::Digest {_ID_ args} {
-    set invocants [dict get $_ID_ i]
-    # md5 c-version is faster than md4 tcl version... and more likely to be required in the interp for some other purpose anyway.
-    #set this_invocant [lindex [dict get $invocants this] 0]
-    #lassign $this_invocant OID _etc
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] _OID alias default_method this
-
-    
-    set interface_ids [dict get $MAP interfaces level0]
-    set IFID0   [lindex $interface_ids end]
-
-    set known_flags {-recursive -algorithm -a -indent}
-    set defaults {-recursive 1 -algorithm md5 -indent ""}
-    if {[dict exists $args -a] && ![dict exists $args -algorithm]} {
-        dict set args -algorithm [dict get $args -a]
-    }
-    
-    set opts [dict merge $defaults $args]
-    foreach key [dict keys $opts] {
-        if {$key ni $known_flags} {
-            error "unknown option $key. Expected only: $known_flags"
-        }
-    }
-    
-    
-    set known_algos {"" raw RAW none NONE md5 MD5 sha256 SHA256}
-    if {[dict get $opts -algorithm] ni $known_algos} {
-        error "call to Digest with unknown -algorithm [dict get $opts -algorithm]. Expected one of: $known_algos"
-    }
-    set algo [string tolower [dict get $opts -algorithm]]
-
-    # append comma for each var so that all changes in adjacent vars detectable.
-    # i.e  set x 34; set y 5 
-    # must be distinguishable from:
-    #      set x 3; set y 45	
-
-    if {[dict get $opts -indent] ne ""} {
-        set state ""
-        set indent "[dict get $opts -indent]"
-    } else {
-        set state "---\n"
-        set indent "  "
-    }
-    append state "${indent}object_command: $this\n"
-    set indent "${indent}  "
-    
-    #append  state "[lindex [interp alias {} $alias] 1]\n" ;#at the very least, include the object's interface state.
-    append state "${indent}interfaces: [dict get $MAP interfaces]\n";#at the very least, include the object's interface state.
-
-    
-    
-        
-    #!todo - recurse into 'varspaces'
-    set varspaces_found [list]
-    append state "${indent}interfaces:\n"
-    foreach IID $interface_ids {
-        append state "${indent}  - interface: $IID\n"
-        namespace upvar ::p::${IID}::_iface  o_varspace local_o_varspace o_varspaces local_o_varspaces
-        append state "${indent}    varspaces:\n"
-        foreach vs $local_o_varspaces {
-            if {$vs ni $varspaces_found} {
-                lappend varspaces_found $vs
-                append state "${indent}      - varspace: $vs\n"
-            }
-        }
-    }
-    
-    append state "${indent}vars:\n"
-    foreach var [info vars ::p::${OID}::*] {
-        append state "${indent}  - [namespace tail $var] : \""
-        if {[catch {append state "[set $var]"}]} {
-            append state "[array get $var]"
-        }
-        append state "\"\n"
-    }
-
-    if {[dict get $opts -recursive]} {
-        append state "${indent}sub-objects:\n"
-        set subargs $args
-        dict set subargs -indent "$indent    "
-        foreach obj [info commands ::p::${OID}::>*] {
-            append state "[$obj .. Digest {*}$subargs]\n"
-        }
-        
-        append state "${indent}sub-namespaces:\n"
-        set subargs $args
-        dict set subargs -indent "$indent    "
-        foreach ns [namespace children ::p::${OID}] {
-            append state "${indent}  - namespace: $ns\n"
-            foreach obj [info commands ${ns}::>*] {
-                append state "[$obj .. Digest {*}$subargs]\n"
-            }
-        }
-    }
-    
-    
-    if {$algo in {"" raw none}} {
-        return $state
-    } else {
-            if {$algo eq "md5"} {
-                package require md5
-            return [::md5::md5 -hex $state]
-            } elseif {$algo eq "sha256"} {
-                package require sha256
-                return [::sha2::sha256 -hex $state]
-            } elseif {$algo eq "blowfish"} {
-                package require patterncipher
-                patterncipher::>blowfish .. Create >b1
-                set [>b1 . key .] 12341234
-                >b1 . encrypt $state -final 1
-                set result [>b1 . ciphertext]
-                >b1 .. Destroy
-                
-            } elseif {$algo eq "blowfish-binary"} {
-            
-            } else {
-                error "can't get here"
-            }
-            
-    }
-}
-
-
-dict set ::p::-1::_iface::o_methods Variable {arglist {varname args}}
-proc ::p::-1::Variable {_ID_ varname args} {
-    set invocants [dict get $_ID_ i]
-
-    #set invocant_alias [lindex [dict get $invocants this] 0]
-    #set invocant [lindex [interp alias {} $invocant_alias] 1]
-
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    #this interface itself is always a co-invocant
-    lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-    set interfaces [dict get $MAP interfaces level0]
-
-    #set existing_IID [lindex $map 1 0 end]
-    set existing_IID [lindex $interfaces end]
-
-    set prev_openstate [set ::p::${existing_IID}::_iface::o_open]
-
-    if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-        #IID changed
-        #remove ourself from the usedby list of the previous interface
-        array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-        set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-        set posn [lsearch $interfaces $existing_IID]
-
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level0 [concat [lreplace $interfaces $posn $posn] $IID]
-        dict set MAP interfaces $extracted_sub_dict
-        #lset map {1 0} [concat [lreplace $interfaces $posn $posn] $IID]
-
-
-        #update original object command
-        set ::p::${IID}::_iface::o_open 0
-    } else {
-        set ::p::${IID}::_iface::o_open $prev_openstate
-    }
-
-    set varspace [set ::p::${IID}::_iface::o_varspace] ;#varspace at the time this Variable was added (may differ from default for interface)
-
-    if {[llength $args]} {
-        #!assume var not already present on interface - it is an error to define twice (?)
-        #lappend ::p::${IID}::_iface::o_variables [list $varname [lindex $args 0]]
-        dict set ::p::${IID}::_iface::o_variables $varname [list default [lindex $args 0] varspace $varspace]
-        
-
-        #Implement if there is a default
-        #!todo - correct behaviour when overlaying on existing object with existing var of this name?
-        #if {[string length $varspace]} {
-        #	set ::p::${OID}::${varspace}::$varname [lindex $args 0]
-        #} else {
-            set ::p::${OID}::$varname [lindex $args 0]
-        #}
-    } else {
-        #lappend ::p::${IID}::_iface::o_variables [list $varname]
-        dict set ::p::${IID}::_iface::o_variables $varname [list varspace $varspace]
-    }
-
-    #varspace '_iface'
-
-    return
-}
-
-
-#interp alias {} ::p::-1::variable {} ::p::-1::PatternVariable  ;#for Define compatibility
-
-dict set ::p::-1::_iface::o_methods PatternVariable {arglist {varname args}}
-proc ::p::-1::PatternVariable {_ID_ varname args} {
-	set invocants [dict get $_ID_ i]
-
-	#set invocant_alias [lindex [dict get $invocants this] 0]
-	#set invocant [lindex [interp alias {} $invocant_alias] 1]
-	##this interface itself is always a co-invocant
-	#lassign [lindex $invocant 0 ] OID alias itemCmd cmd
-
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-
-
-	set patterns [dict get $MAP interfaces level1]
-	set iid_top		[lindex $patterns end] ;#!todo - get 'open' interface.
-	set iface ::p::ifaces::>$iid_top
-
-	if {(![string length $iid_top]) || ([$iface . isClosed])} {
-		#no existing pattern - create a new interface
-		set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-		set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat $patterns $iid_top] 
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 1} [concat $patterns $iid_top]
-	}
-	set IID $iid_top
-
-  set varspace [set ::p::${IID}::_iface::o_varspace] ;#record varspace against each variable, because default varspace for interface can be modified.
-
-
-	if {[llength $args]} {
-		#lappend ::p::${IID}::_iface::o_variables [list $varname [lindex $args 0]]
-		dict set ::p::${IID}::_iface::o_variables $varname [list default [lindex $args 0] varspace $varspace]
-	} else {
-		dict set ::p::${IID}::_iface::o_variables $varname [list varspace $varspace]
-	}
-
-	return
-}
-
-dict set ::p::-1::_iface::o_methods Varspaces {arglist args}
-proc ::p::-1::Varspaces {_ID_ args} {
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-
-    if {![llength $args]} {
-        #query 
-        set iid_top [lindex  [dict get $MAP interfaces level0] end]
-        set iface ::p::ifaces::>$iid_top
-        if {![string length $iid_top]} {
-            error "Cannot query Varspaces because no top level interface on object:[lindex [dict get $MAP invocantdata] 3] "
-        } elseif {[$iface . isClosed]} {
-            error "Cannot query Varspaces because top level interface (id:$iid_top) is closed on object:[lindex [dict get $MAP invocantdata] 3] "
-        }
-        return [set ::p::${iid_top}::_iface::o_varspaces]
-    }
-    set IID [::p::predator::get_possibly_new_open_interface $OID]
-    namespace upvar ::p::${IID}::_iface  o_varspace o_varspace o_varspaces o_varspaces
-
-    set varspaces $args
-    foreach vs $varspaces {
-        if {[string length $vs] && ($vs ni $o_varspaces)} {
-            if {[string match ::* $vs} {
-                namespace eval $vs {}
-            } else {
-                namespace eval ::p::${OID}::$vs {}
-            }
-            lappend o_varspaces $vs
-        }
-    }
-    return $o_varspaces 
-}
-
-#set or query Varspace.  Error to query a closed interface, but if interface closed when writing, itwill create a new open interface
-dict set ::p::-1::_iface::o_methods Varspace {arglist args}
-# set the default varspace for the interface, so that new methods/properties refer to it.
-# varspace may be switched in between various additions of methods/properties so that different methods/properties are using different varspaces.
-proc ::p::-1::Varspace {_ID_ args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-    if {![llength $args]} {
-        #query 
-        set iid_top [lindex  [dict get $MAP interfaces level0] end]
-        set iface ::p::ifaces::>$iid_top
-        if {![string length $iid_top]} {
-            error "Cannot query Varspace because no top level interface on object:[lindex [dict get $MAP invocantdata] 3] "
-        } elseif {[$iface . isClosed]} {
-            error "Cannot query Varspace because top level interface (id:$iid_top) is closed on object:[lindex [dict get $MAP invocantdata] 3] "
-        }
-        return [set ::p::${iid_top}::_iface::o_varspace]
-    }
-    set varspace [lindex $args 0]
-
-    #set interfaces     [dict get $MAP interfaces level0]
-    #set iid_top        [lindex $interfaces end]
-
-    set IID [::p::predator::get_possibly_new_open_interface $OID]
-
-
-    #namespace upvar ::p::${IID}::_iface  o_variables o_variables o_properties o_properties o_methods o_methods o_varspace o_varspace
-    namespace upvar ::p::${IID}::_iface  o_varspace o_varspace o_varspaces o_varspaces
-
-    if {[string length $varspace]} {
-        #ensure namespace exists !? do after list test?
-        if {[string match ::* $varspace]} {
-            namespace eval $varspace {}
-        } else {
-            namespace eval ::p::${OID}::$varspace {}
-        }
-        if {$varspace ni $o_varspaces} {
-            lappend o_varspaces $varspace
-        }
-    }
-    set o_varspace $varspace
-}
-
-
-proc ::p::predator::get_possibly_new_open_interface {OID} {
-    #we need to re-upvar MAP rather than using a parameter - as we need to write back to it
-    upvar #0 ::p::${OID}::_meta::map MAP 
-    set interfaces [dict get $MAP interfaces level0]
-    set iid_top     [lindex $interfaces end]
-
-
-    set iface ::p::ifaces::>$iid_top
-    if {(![string length $iid_top]) || ([$iface . isClosed])} {
-        #no existing pattern - create a new interface
-        set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-        #puts stderr ">>>>creating new interface $iid_top"
-        set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-        
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level0 [concat $interfaces $iid_top]
-        dict set MAP interfaces $extracted_sub_dict
-    }
-
-    return $iid_top
-}
-
-
-
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PatternVarspace {arglist {varspace args}}
-# set the default varspace for the interface, so that new methods/properties refer to it.
-# varspace may be switched in between various additions of methods/properties so that different methods/properties are using different varspaces.
-proc ::p::-1::PatternVarspace {_ID_ varspace args} {
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-
-	set patterns [dict get $MAP interfaces level1]
-	set iid_top		[lindex $patterns end]
-
-	set iface ::p::ifaces::>$iid_top
-  if {(![string length $iid_top]) || ([$iface . isClosed])} {
-		#no existing pattern - create a new interface
-		set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-		set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-		
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat $patterns $iid_top]
-		dict set MAP interfaces $extracted_sub_dict
-  }
-  set IID $iid_top
-
-	namespace upvar ::p::${IID}::_iface  o_varspace o_varspace o_varspaces o_varspaces
-	if {[string length $varspace]} {
-		if {$varspace ni $o_varspaces} {
-			lappend o_varspaces $varspace
-		}
-	}
-	#o_varspace is the currently active varspace 
-  set o_varspace $varspace
-
-}
-###################################################################################################################################################
-
-#get varspace and default from highest interface - return all interface ids which define it
-dict set ::p::-1::_iface::o_methods GetPropertyInfo {arglist {{propnamepattern *}}}
-proc ::p::-1::GetPropertyInfo {_ID_ {propnamepattern *}} {
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-	upvar #0 ::p::${OID}::_meta::map MAP
-	set interfaces [dict get $MAP interfaces level0]
-	
-	array set propinfo {}
-	set found_property_names [list]
-	#start at the lowest and work up (normal storage order of $interfaces)
-	foreach iid $interfaces {
-		set propinfodict [set ::p::${iid}::_iface::o_properties]
-		set matching_propnames [dict keys $propinfodict $propnamepattern]
-		foreach propname $matching_propnames {
-			if {$propname ni $found_property_names} {
-				lappend found_property_names $propname
-			}
-			lappend propinfo($propname,interfaces) $iid
-			;#These 2 values for this $propname are overwritten for each iid in the outer loop - we are only interested in the last one
-			if {[dict exists $propinfodict $propname default]} {
-				set propinfo($propname,default)  [dict get $propinfodict $propname default]  
-			}
-			set propinfo($propname,varspace) [dict get $propinfodict $propname varspace]
-		}
-	}
-	
-	set resultdict [dict create]
-	foreach propname $found_property_names {
-			set fields [list  varspace $propinfo($propname,varspace)]
-			if {[array exists propinfo($propname,default)]} {
-				lappend fields default [set propinfo($propname,default)]
-			}
-			lappend fields interfaces $propinfo($propname,interfaces)
-			dict set resultdict $propname $fields
-	}
-	return $resultdict
-}
-
-
-dict set ::p::-1::_iface::o_methods GetTopPattern {arglist args}
-proc ::p::-1::GetTopPattern {_ID_ args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-    
-    set interfaces [dict get $MAP interfaces level1]
-    set iid_top [lindex $interfaces end]
-    if {![string length $iid_top]} {
-        lassign [dict get $MAP invocantdata] OID _alias _default_method object_command
-        error "No installed level1 interfaces (patterns) for object $object_command"
-    }
-    return ::p::ifaces::>$iid_top
-}
-
-
-
-dict set ::p::-1::_iface::o_methods GetTopInterface {arglist args}
-proc ::p::-1::GetTopInterface {_ID_ args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-    set iid_top     [lindex [dict get $MAP interfaces level0] end]
-    if {![string length $iid_top]} {
-        lassign [dict get $MAP invocantdata] OID _alias _default_method object_command
-        error "No installed level0 interfaces for object $object_command"
-    }
-    return ::p::ifaces::>$iid_top
-}
-
-
-dict set ::p::-1::_iface::o_methods GetExpandableInterface {arglist args}
-proc ::p::-1::GetExpandableInterface {_ID_ args} {
-	
-}
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods Property {arglist {property args}}
-proc ::p::-1::Property {_ID_ property args} {
-    #puts stderr "::p::-1::Property called with _ID_: '$_ID_' property:$property args:$args"
-    #set invocants [dict get $_ID_ i]
-    #set invocant_roles [dict keys $invocants]
-    if {[llength $args] > 1} {
-        error ".. Property expects 1 or 2 arguments only. (>object .. Property propertyname ?default?)"
-    }
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-    set interfaces [dict get $MAP interfaces level0]
-    set iid_top     [lindex $interfaces end]
-
-    set prev_openstate [set ::p::${iid_top}::_iface::o_open]
-
-    set iface ::p::ifaces::>$iid_top
-
-
-    if {(![string length $iid_top]) || ([$iface . isClosed])} {
-        #create a new interface
-        set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-        set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-        
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level0 [concat $interfaces  $iid_top]
-        dict set MAP interfaces $extracted_sub_dict
-    }
-    set IID $iid_top
-
-
-    namespace upvar ::p::${IID}::_iface  o_variables o_variables o_properties o_properties o_methods o_methods o_varspace o_varspace
-
-
-    set maxversion [::p::predator::method_chainhead $IID (GET)$property]
-    set headid [expr {$maxversion + 1}]
-    set THISNAME (GET)$property.$headid    ;#first version will be (GET)$property.1 
-
-	
-    if {$headid == 1} {
-        #implementation
-        #interp alias {} ::p::${IID}::_iface::(GET)$property.1 {} ::p::predator::getprop $property
-        
-        #if {$o_varspace eq ""} {
-        #	set ns ::p::${OID}
-        #} else {
-        #	if {[string match "::*" $o_varspace]} {
-        #		set ns $o_varspace
-        #	} else {
-        #		set ns ::p::${OID}::$o_varspace
-        #	}
-        #}
-        #proc ::p::${IID}::_iface::(GET)$property.1 {_ID_ args} [string map [list %prop% $property %varspace% $o_varspace %ns% $ns] [info body ::p::predator::getprop_template_immediate]]
-
-        proc ::p::${IID}::_iface::(GET)$property.1 {_ID_ args} [string map [list %prop% $property %varspace% $o_varspace ] [info body ::p::predator::getprop_template]]
-        
-        
-        #interp alias {} ::p::${IID}::_iface::(SET)$property.1 {} ::p::predator::setprop $property
-        proc ::p::${IID}::_iface::(SET)$property.1 {_ID_ args} [string map [list %prop% $property %varspace% $o_varspace] [info body ::p::predator::setprop_template]]
-
-
-        #chainhead pointers
-        interp alias {} ::p::${IID}::_iface::(GET)$property {} ::p::${IID}::_iface::(GET)$property.1
-        interp alias {} ::p::${IID}::_iface::(SET)$property {} ::p::${IID}::_iface::(SET)$property.1
-        
-        
-    }
-
-    if {($property ni [dict keys $o_methods])} {
-        interp alias {} ::p::${IID}::_iface::$property {} ::p::${IID}::_iface::(GET)$property
-    } 
-
-
-
-	#installation on object
-
-	#namespace eval ::p::${OID} [list namespace export $property]
-
-
-
-    #obsolete?
-	#if {$property ni [P $_ID_]} {
-		#only link objects (GET)/(SET) for this property if property not present on any of our other interfaces
-		#interp alias {} ::p::${OID}::(GET)$property {} ::p::${IID}::_iface::(GET)$property $invocant
-		#interp alias {} ::p::${OID}::(SET)$property {} ::p::${IID}::_iface::(SET)$property $invocant
-	#}
-
-    #link main (GET)/(SET) to this interface
-	interp alias {} ::p::${OID}::(GET)$property {} ::p::${IID}::_iface::(GET)$property 
-	interp alias {} ::p::${OID}::(SET)$property {} ::p::${IID}::_iface::(SET)$property 
-
-	#Only install property if no method of same name already installed here. 
-	#(Method takes precedence over property because property always accessible via 'set' reference)
-	#convenience pointer to chainhead pointer.
-	if {$property ni [M $_ID_]} {
-		interp alias {} ::p::${OID}::$property {} ::p::${IID}::_iface::(GET)$property 
-	} else {
-		#property with same name as method - we need to make sure the  refMisuse_traceHandler is fixed 
-		
-	
-	}
-
-
-    set varspace [set ::p::${IID}::_iface::o_varspace]
-
-
-
-	#Install the matching Variable
-	#!todo - which should take preference if Variable also given a default?
-	#if {[set posn [lsearch -index 0 $o_variables o_$property]] >= 0} {
-	#	set o_variables [lreplace $o_variables $posn $posn o_$property]
-	#} else {
-	#	lappend o_variables [list o_$property]
-	#}
-    dict set o_variables o_$property [list varspace $varspace]
-
-
-
-
-    if {[llength $args]} {
-        #should store default once only!
-        #set IFINFO(v,default,o_$property) $default
-
-        set default [lindex $args end]
-
-        dict set o_properties $property [list default $default varspace $varspace]
-
-        #if {[set posn [lsearch -index 0 $o_properties $property]] >= 0} {
-        #	set o_properties [lreplace $o_properties $posn $posn [list $property $default]]
-        #} else {
-        #	lappend o_properties [list $property $default]
-        #}		
-
-        if {$varspace eq ""} {
-            set ns ::p::${OID}
-        } else {
-            if {[string match "::*" $varspace]} {
-                set ns $varspace
-            } else {
-                set ns ::p::${OID}::$o_varspace
-            }
-        }
-        
-        set ${ns}::o_$property $default
-        #set ::p::${OID}::o_$property $default
-    } else {
-        
-        #if {[set posn [lsearch -index 0 $o_properties $property]] >= 0} {
-        #	set o_properties [lreplace $o_properties $posn $posn [list $property]]
-        #} else {
-        #	lappend o_properties [list $property]
-        #}		
-        dict set o_properties $property [list varspace $varspace]
-
-
-        #variable ::p::${OID}::o_$property
-    }
-
-
-
-
-
-	#if the metainfo collection exists, update it. Don't worry if nonexistant as it will be created if needed.
-	#!todo - mark interface dirty (not ready?) instead? - would need all colProperties methods to respect dirty flag & synchronize as needed. (object filter?)
-	#catch {::p::OBJECT::${OID}::colProperties add [::p::internals::predator $invocant . $property .] $property}
-	
-    set colProperties ::p::${OID}::_meta::>colProperties
-    if {[namespace which $colProperties] ne ""} {
-          if {![$colProperties . hasKey $property]} {
-               $colProperties . add [::p::internals::predator $_ID_ . $property .] $property
-          }
-    }
-	
-	return
-}
-###################################################################################################################################################
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-interp alias {} ::p::-1::option {} ::p::-1::PatternProperty ;#for Define compatibility
-dict set ::p::-1::_iface::o_methods PatternProperty {arglist {property args}}
-proc ::p::-1::PatternProperty {_ID_ property args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-
-    set patterns [dict get $MAP interfaces level1]
-    set iid_top     [lindex $patterns end]
-
-    set iface ::p::ifaces::>$iid_top
-
-    if {(![string length $iid_top]) || ([$iface . isClosed])} {
-        set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-        set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level1 [concat $patterns $iid_top]
-        dict set MAP interfaces $extracted_sub_dict
-        #lset map {1 1} [concat $patterns $iid_top]
-    }
-    set IID $iid_top
-
-    namespace upvar ::p::${IID}::_iface o_properties o_properties o_variables o_variables o_varspace o_varspace
-
-
-    set maxversion [::p::predator::method_chainhead $IID (GET)$property]
-    set headid [expr {$maxversion + 1}]
-    set THISNAME (GET)$property.$headid    ;#first version will be (GET)$property.1 
-
-
-
-    if {$headid == 1} {
-        #implementation
-        #interp alias {} ::p::${IID}::_iface::(GET)$property.1 {} ::p::predator::getprop $property
-        proc ::p::${IID}::_iface::(GET)$property.1 {_ID_ args} [string map [list %prop% $property %varspace% $o_varspace] [info body ::p::predator::getprop_template]]
-        #interp alias {} ::p::${IID}::_iface::(SET)$property.1 {} ::p::predator::setprop $property
-        proc ::p::${IID}::_iface::(SET)$property.1 {_ID_ args} [string map [list %prop% $property %varspace% $o_varspace] [info body ::p::predator::setprop_template]]
-        
-
-        #chainhead pointers
-        interp alias {} ::p::${IID}::_iface::(GET)$property {} ::p::${IID}::_iface::(GET)$property.1
-        interp alias {} ::p::${IID}::_iface::(SET)$property {} ::p::${IID}::_iface::(SET)$property.1
-        
-    }
-
-    if {($property ni [dict keys [set ::p::${IID}::_iface::o_methods]])} {
-        interp alias {} ::p::${IID}::_iface::$property {} ::p::${IID}::_iface::(GET)$property
-    }
-
-    set varspace [set ::p::${IID}::_iface::o_varspace]
-
-    #Install the matching Variable
-    #!todo - which should take preference if Variable also given a default?
-    #if {[set posn [lsearch -index 0 $o_variables o_$property]] >= 0} {
-    #	set o_variables [lreplace $o_variables $posn $posn o_$property]
-    #} else {
-    #	lappend o_variables [list o_$property]
-    #}
-    dict set o_variables o_$property [list varspace $varspace]
-
-    set argc [llength $args]
-
-    if {$argc} {	
-        if {$argc == 1} {
-            set default [lindex $args 0]
-            dict set o_properties $property [list default $default varspace $varspace]
-        } else {
-            #if more than one arg - treat as a dict of options.
-            if {[dict exists $args -default]} {
-                set default [dict get $args -default]
-                dict set o_properties $property [list default $default varspace $varspace]
-            } else {
-                #no default value
-                dict set o_properties $property [list varspace $varspace]
-            }
-        }
-        #! only set default for property... not underlying variable.
-        #lappend ::p::${IID}::_iface::o_variables [list o_$property  [lindex $args 0]]
-    } else {
-        dict set o_properties $property [list varspace $varspace]
-    }
-    return
-}
-###################################################################################################################################################
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PatternPropertyRead {arglist {property args}}
-proc ::p::-1::PatternPropertyRead {_ID_ property args} {
-	set invocants [dict get $_ID_ i]
-	
-  set this_invocant [lindex [dict get $_ID_ i this] 0] ;#assume only one 'this'
-  set OID [lindex $this_invocant 0]
-  #set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias defaut_command cmd
-
-	set patterns [dict get $MAP interfaces level1]
-	set existing_IID		[lindex $patterns end]
-
-	set idxlist [::list]
-	if {[llength $args] == 1} {
-		set body [lindex $args 0]
-	} elseif {[llength $args] == 2} {
-		lassign $args idxlist body
-	} else {
-		error "wrong # args: should be \"property body\" or \"property idxlist body\""
-	}
-
-
-    if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $patterns $existing_IID]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat [lreplace $patterns $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 1} [concat [lreplace $patterns $posn $posn] $IID]
-
-	} else {
-  	set prev_open [set ::p::${existing_IID}::_iface::o_open]
-		set ::p::${IID}::_iface::o_open $prev_open
-	}
-    
-    namespace upvar ::p::${IID}::_iface o_varspaces o_varspaces o_varspace o_varspace
-
-	set maxversion [::p::predator::method_chainhead $IID (GET)$property]
-	set headid [expr {$maxversion + 1}]
-    if {$headid == 1} {
-        set headid 2  ;#reserve 1 for the getprop of the underlying property 
-    }
-
-	set THISNAME (GET)$property.$headid   ;#first version will be (GET)$property.1 
-	set next [::p::predator::next_script $IID (GET)$property $THISNAME $_ID_] ;#last parameter is caller_ID_
-    
-
-	#implement
-	#-----------------------------------	
-
-	
-	set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]	
-	if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-	} else {
-        
-		set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-		set body $varDecls[dict get $processed body]
-	}
-	#set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-	set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-
-	#implementation		
-	if {![llength $idxlist]} {
-		proc ::p::${IID}::_iface::(GET)$property.$headid {_ID_ args} $body
-	} else {
-		#what are we trying to achieve here? ..
-		proc ::p::${IID}::_iface::(GET)$property.$headid [linsert $idxlist 0 _ID_] $body
-	}
-
-
-	#-----------------------------------	
-
-
-	#adjust chain-head pointer to point to new head.
-	interp alias {} ::p::${IID}::_iface::(GET)$property {} ::p::${IID}::_iface::(GET)$property.$headid
-	
-	return
-}
-###################################################################################################################################################
-
-
-
-
-
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PropertyRead {arglist {property args}}
-proc ::p::-1::PropertyRead {_ID_ property args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-    
-    #assert $OID ne "null" - dispatcher won't call PropertyRead on a non-object(?) (presumably the call would be to 'Method' instead)
-    lassign [dict get $MAP invocantdata] OID alias default_command cmd
-
-    set interfaces [dict get $MAP interfaces level0]
-    set existing_IID        [lindex $interfaces end]
-
-
-    set idxlist [::list]
-    if {[llength $args] == 1} {
-        set body [lindex $args 0]
-    } elseif {[llength $args] == 2} {
-        lassign $args idxlist body
-    } else {
-        error "wrong # args: should be \"property body\" or \"property idxlist body\""
-    }
-
-
-    if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-        #remove ourself from the usedby list of the previous interface
-        array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-        set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-        set posn [lsearch $interfaces $existing_IID]
-
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level0 [concat [lreplace $interfaces $posn $posn] $IID]
-        dict set MAP interfaces $extracted_sub_dict
-
-        set ::p::${IID}::_iface::o_open 0
-    } else {
-        set prev_open [set ::p::${existing_IID}::_iface::o_open]
-        set ::p::${IID}::_iface::o_open $prev_open
-    }    
-    namespace upvar ::p::${IID}::_iface o_varspaces o_varspaces o_varspace o_varspace
-
-    #array set ::p::${IID}:: [::list pr,body,$property $body pr,arg,$property $idxlist pr,name,$property $property pr,iface,$property $cmd]
-
-
-    set maxversion [::p::predator::method_chainhead $IID (GET)$property]
-    set headid [expr {$maxversion + 1}]
-    if {$headid == 1} {
-        set headid 2
-    }
-    set THISNAME (GET)$property.$headid    ;#first version will be (GET)$property.2  - even if corresponding property is missing (we reserve $property.1 for the property itself)
-
-    set next [::p::predator::next_script $IID (GET)$property $THISNAME $_ID_]
-
-    #implement
-    #-----------------------------------	
-
-    set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]
-    if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-    } else {
-        set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-        set body $varDecls[dict get $processed body]
-    }
-    #set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-    set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-    proc ::p::${IID}::_iface::$THISNAME [concat _ID_ $idxlist] $body
-
-    #-----------------------------------	
-
-
-
-    #pointer from prop-name to head of override-chain
-    interp alias {} ::p::${IID}::_iface::(GET)$property {} ::p::${IID}::_iface::(GET)$property.$headid
-
-
-    interp alias {} ::p::${OID}::(GET)$property {} ::p::${IID}::_iface::(GET)$property   ;#the reference traces will call this one - in case there is both a property and a method with this name.
-    if {$property ni [M $_ID_]} {
-        interp alias {} ::p::${OID}::$property {} ::p::${IID}::_iface::(GET)$property 
-    }
-}
-###################################################################################################################################################
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PropertyWrite {arglist {property argname body}}
-proc ::p::-1::PropertyWrite {_ID_ property argname body} {
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias default_command cmd
-
-	set interfaces [dict get $MAP interfaces level0]
-	set existing_IID		[lindex $interfaces end] ;#!todo - get 'open' interface.
-	
-
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $interfaces $existing_IID]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level0 [concat [lreplace $interfaces $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 0} [concat [lreplace $interfaces $posn $posn] $IID]
-		
-		set ::p::${IID}::_iface::o_open 0
-	} else {
-    	set prev_open [set ::p::${existing_IID}::_iface::o_open]
-		set ::p::${IID}::_iface::o_open $prev_open
-	}
-    namespace upvar ::p::${IID}::_iface o_varspaces o_varspaces o_varspace o_varspace
-    
-	#pw short for propertywrite
-	#array set ::p::${IID}:: [::list pw,body,$property $body pw,arg,$property $argname pw,name,$property $property pw,iface,$property $cmd]
-	array set ::p::${IID}:: [::list pw,body,$property $body pw,arg,$property $argname pw,name,$property $property]
-
-
-	set maxversion [::p::predator::method_chainhead $IID (SET)$property]
-	set headid [expr {$maxversion + 1}]
-	
-	set THISNAME (SET)$property.$headid
-
-	set next [::p::predator::next_script $IID (SET)$property $THISNAME $_ID_]
-
-	#implement
-	#-----------------------------------	
-	
-	set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]
-	if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-	} else {
-		set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-		set body $varDecls[dict get $processed body]
-	}
-	#set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-	set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-
-	proc ::p::${IID}::_iface::$THISNAME [list _ID_ $argname] $body
-
-	#-----------------------------------	
-
-
-
-	#pointer from method-name to head of override-chain
-	interp alias {} ::p::${IID}::_iface::(SET)$property {} ::p::${IID}::_iface::(SET)$property.$headid
-}
-###################################################################################################################################################
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PatternPropertyWrite {arglist {property argname body}}
-proc ::p::-1::PatternPropertyWrite {_ID_ property argname body} {
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias default_command cmd
-
-
-	set patterns [dict get $MAP interfaces level1]
-	set existing_IID		[lindex $patterns end] ;#!todo - get 'open' interface.
-
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set existing_ifaces [lindex $map 1 1]
-		set posn [lsearch $existing_ifaces $existing_IID]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat [lreplace $existing_ifaces $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 1} [concat [lreplace $existing_ifaces $posn $posn] $IID]
-
-		#set ::p::${IID}::_iface::o_open 0
-	} else {
-	}
-
-	#pw short for propertywrite
-	array set ::p::${IID}:: [::list pw,body,$property $body pw,arg,$property $argname pw,name,$property $property pw,iface,$property $cmd]
-
-
-	
-
-	return
-
-}
-###################################################################################################################################################
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PropertyUnset {arglist {property arraykeypattern body}}
-proc ::p::-1::PropertyUnset {_ID_ property arraykeypattern body} {
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias default_command cmd
-
-
-	set interfaces [dict get $MAP interfaces level0]
-	set existing_IID [lindex $interfaces end]  ;#!todo - choose 'open' interface to expand.
-
-
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $interfaces $existing_IID]
-		
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level0 [concat [lreplace $interfaces $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-	} else {
-    set prev_open [set ::p::${existing_IID}::_iface::o_open]
-		set ::p::${IID}::_iface::o_open $prev_open
-	} 
-    namespace upvar ::p::${IID}::_iface o_varspaces o_varspaces o_varspace o_varspace o_propertyunset_handlers propertyunset_handlers
-    #upvar ::p::${IID}::_iface::o_propertyunset_handlers propertyunset_handlers
-	dict set propertyunset_handlers $property [list body $body arraykeypattern $arraykeypattern]
-
-	set maxversion [::p::predator::method_chainhead $IID (UNSET)$property]
-	set headid [expr {$maxversion + 1}]
-	
-	set THISNAME (UNSET)$property.$headid
-
-	set next [::p::predator::next_script $IID (UNSET)$property $THISNAME $_ID_]
-
-
-	set processed [dict create {*}[::p::predator::expand_var_statements $body $o_varspace]]	
-	if {[llength [dict get $processed varspaces_with_explicit_vars]]} {
-        foreach vs [dict get $processed varspaces_with_explicit_vars] {
-            if {[string length $vs] && ($vs ni $o_varspaces)} {
-                lappend o_varspaces $vs
-            }
-        }
-        set body [dict get $processed body]
-	} else {
-		set varDecls [::p::predator::runtime_vardecls]  ;#dynamic vardecls can access vars from all interfaces of invocant object.
-		set body $varDecls[dict get $processed body]
-	}
-	#set body [string map [::list @this@ "\[lindex \$_ID_ 0 3 \]" @next@ $next] $body\n]	
-	set body [string map [::list @OID@ "\[lindex \[dict get \$_ID_ i this\] 0 0\]" @this@ "\[lindex \[dict get \[set ::p::\[lindex \[dict get \$_ID_ i this\] 0 0\]::_meta::map\] invocantdata \] 3\]" @next@ $next] $body\n]	
-
-  #note $arraykeypattern  actually contains the name of the argument
-	if {[string trim $arraykeypattern] eq ""} {
-		set arraykeypattern _dontcare_  ;#
-	}
-	proc ::p::${IID}::_iface::(UNSET)$property.$headid [list _ID_ $arraykeypattern] $body
-
-	#-----------------------------------	
-
-
-	#pointer from method-name to head of override-chain
-	interp alias {} ::p::${IID}::_iface::(UNSET)$property {} ::p::${IID}::_iface::(UNSET)$property.$headid
-
-}
-###################################################################################################################################################
-
-
-
-
-
-
-
-
-###################################################################################################################################################
-
-###################################################################################################################################################
-dict set ::p::-1::_iface::o_methods PatternPropertyUnset {arglist {property arraykeypattern body}}
-proc ::p::-1::PatternPropertyUnset {_ID_ property arraykeypattern body} {
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-
-
-	set patterns [dict get $MAP interfaces level1]
-	set existing_IID [lindex $patterns end]  ;#!todo - choose 'open' interface to expand.
-
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $patterns $existing_IID]
-		
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat [lreplace $patterns $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-		#set ::p::${IID}::_iface::o_open 0
-	} 
-
-	
-	upvar ::p::${IID}::_iface::o_propertyunset_handlers propertyunset_handlers
-	dict set propertyunset_handlers $property [list body $body arraykeypattern $arraykeypattern]
-
-	return
-}
-###################################################################################################################################################
-
-
-
-#lappend ::p::-1::_iface::o_methods Implements
-#!todo - some way to force  overriding of any abstract (empty) methods from the source object
-#e.g leave interface open and raise an error when closing it if there are unoverridden methods?
-
-
-
-
-
-#implementation reuse - sugar for >object .. Clone >target
-dict set ::p::-1::_iface::o_methods Extends {arglist {pattern}}
-proc ::p::-1::Extends {_ID_ pattern} {
-	if {!([string range [namespace tail $pattern] 0 0] eq ">")} {
-		error "'Extends' expected a pattern object"
-	}
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias itemCmd object_command
-	
-	
-	tailcall $pattern .. Clone $object_command
-
-}
-#implementation reuse - sugar for >pattern .. Create >target
-dict set ::p::-1::_iface::o_methods PatternExtends {arglist {pattern}}
-proc ::p::-1::PatternExtends {_ID_ pattern} {
-	if {!([string range [namespace tail $pattern] 0 0] eq ">")} {
-		error "'PatternExtends' expected a pattern object"
-	}
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias itemCmd object_command
-	
-	
-	tailcall $pattern .. Create $object_command
-}
-
-
-dict set ::p::-1::_iface::o_methods Extend {arglist {{idx ""}}}
-proc ::p::-1::Extend {_ID_ {idx ""}} {
-    puts stderr "Extend is DEPRECATED - use Expand instead"
-    tailcall ::p::-1::Expand $_ID_ $idx
-}
-
-#set the topmost interface on the iStack to be 'open' 
-dict set ::p::-1::_iface::o_methods Expand {arglist {{idx ""}}}
-proc ::p::-1::Expand {_ID_ {idx ""}} {
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    set interfaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-    set iid_top [lindex $interfaces end]
-    set iface ::p::ifaces::>$iid_top
-    
-    if {![string length $iid_top]} {
-        #no existing interface - create a new one
-        set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-        set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level0 [list $iid_top]
-        dict set MAP interfaces $extracted_sub_dict ;#write new interface into map
-        $iface . open
-        return $iid_top
-    } else {
-        if {[$iface . isOpen]} {
-            #already open.. 
-            #assume ready to expand.. shared or not!
-            return $iid_top
-        }
-        lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-
-        if {[$iface . refCount] > 1} {
-            if {$iid_top != [set IID [::p::internals::expand_interface $iid_top ]]} {
-                #!warning! not exercised by test suites!
-                
-                #remove ourself from the usedby list of the previous interface
-                array unset ::p::${iid_top}::_iface::o_usedby i$OID
-                set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-        
-                #remove existing interface & add 
-                set posn [lsearch $interfaces $iid_top] 
-                set extracted_sub_dict [dict get $MAP interfaces]
-                dict set extracted_sub_dict level0 [concat [lreplace $interfaces $posn $posn] $IID]
-                dict set MAP interfaces $extracted_sub_dict
-                #lset map {1 0} [concat [lreplace $interfaces $posn $posn] $IID]
-        
-
-                set iid_top $IID
-                set iface ::p::ifaces::>$iid_top	
-            }
-        }
-    }
-
-    $iface . open
-    return $iid_top
-}
-
-dict set ::p::-1::_iface::o_methods PatternExtend {arglist {{idx ""}}}
-proc ::p::-1::PatternExtend {_ID_ {idx ""}} {
-    puts stderr "PatternExtend is DEPRECATED - use PatternExpand instead"
-    tailcall ::p::-1::PatternExpand $_ID_ $idx
-}
-
-
-
-#set the topmost interface on the pStack to be 'open' if it's not shared
-# if shared - 'copylink' to new interface before opening for extension
-dict set ::p::-1::_iface::o_methods PatternExpand {arglist {{idx ""}}}
-proc ::p::-1::PatternExpand {_ID_ {idx ""}} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    ::p::map $OID MAP
-    #puts stderr "no tests written for PatternExpand "
-    lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-    
-    set ifaces [dict get $MAP interfaces level1] ;#level 1 interfaces
-    set iid_top [lindex $ifaces end]
-    set iface ::p::ifaces::>$iid_top
-
-    if {![string length $iid_top]} {
-        #no existing interface - create a new one
-        set iid_top [expr {$::p::ID + 1}] ;#PREDICT the next object's id
-        set iface [::p::>interface .. Create ::p::ifaces::>$iid_top $OID]
-        set extracted_sub_dict [dict get $MAP interfaces]
-        dict set extracted_sub_dict level1 [list $iid_top]
-        dict set MAP interfaces $extracted_sub_dict
-        #lset map {1 1} [list $iid_top]
-        $iface . open
-        return $iid_top
-    } else {
-        if {[$iface . isOpen]} {
-            #already open.. 
-            #assume ready to expand.. shared or not!
-            return $iid_top
-        }
-
-        if {[$iface . refCount] > 1} {
-            if {$iid_top != [set IID [::p::internals::expand_interface $iid_top]]} {
-                #!WARNING! not exercised by test suite!
-                #remove ourself from the usedby list of the previous interface
-                array unset ::p::${iid_top}::_iface::o_usedby i$OID
-                set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-        
-                set posn [lsearch $ifaces $iid_top]
-                set extracted_sub_dict [dict get $MAP interfaces]
-                dict set extracted_sub_dict level1 [concat [lreplace $ifaces $posn $posn] $IID]
-                dict set MAP interfaces $extracted_sub_dict
-                #lset map {1 1} [concat [lreplace $ifaces $posn $posn] $IID]
-
-                set iid_top $IID
-                set iface ::p::ifaces::>$iid_top
-            } 
-        }
-    }
-
-    $iface . open
-    return $iid_top
-}
-
-
-
-
-
-dict set ::p::-1::_iface::o_methods Properties {arglist {{idx ""}}}
-proc ::p::-1::Properties {_ID_ {idx ""}} {
-	  set OID [lindex [dict get $_ID_ i this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-    set col ::p::${OID}::_meta::>colProperties
-
-    if {[namespace which $col] eq ""} {
-        patternlib::>collection .. Create $col
-        foreach IID $ifaces {
-            dict for {prop pdef} [set ::p::${IID}::_iface::o_properties] {
-                if {![$col . hasIndex $prop]} {
-                    $col . add [::p::internals::predator $_ID_ . $prop .] $prop
-                }
-            }
-        }
-    }
-
-    if {[string length $idx]} {
-        return [$col . item $idx]
-    } else {
-        return $col
-    }
-}
-
-dict set ::p::-1::_iface::o_methods P {arglist {}}
-proc ::p::-1::P {_ID_} {
-	set invocants [dict get $_ID_ i]
-  set this_invocant [lindex [dict get $invocants this] 0]
-  lassign $this_invocant OID _etc
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-  set interfaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-
-	set members [list]
-    foreach IID $interfaces {
-        foreach prop [dict keys [set ::p::${IID}::_iface::o_properties]] {
-            lappend members $prop
-        }
-    }
-	return [lsort $members]
-
-}
-#Interface Properties
-dict set ::p::-1::_iface::o_methods IP {arglist {{glob *}}}
-proc ::p::-1::IP {_ID_ {glob *}} {
-	set invocants [dict get $_ID_ i]
-  set OID [lindex [dict get $invocants this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-  set ifaces [dict get $MAP interfaces level0] ;#level 0 interfaces
-	set members [list]
-
-	foreach m [dict keys [set ::p::${OID}::_iface::o_properties]] {
-		if {[string match $glob [lindex $m 0]]} {
-			lappend members [lindex $m 0]
-		}
-	}
-	return $members
-}
-
-
-#used by rename.test - theoretically should be on a separate interface!
-dict set ::p::-1::_iface::o_methods CheckInvocants {arglist {args}}
-proc ::p::-1::CheckInvocants {_ID_ args} {
-	#check all invocants in the _ID_ are consistent with data stored in their MAP variable
-	set status "ok" ;#default to optimistic assumption
-  set problems [list]
-	
-  set invocant_dict [dict get $_ID_ i]
-	set invocant_roles [dict keys $invocant_dict]
-	
-	foreach role $invocant_roles {
-		set invocant_list [dict get $invocant_dict $role]
-		foreach aliased_invocantdata $invocant_list {
-			set OID [lindex $aliased_invocantdata 0]
-			set map_invocantdata [dict get [set ::p::${OID}::_meta::map] invocantdata]
-			#we use lrange to make sure the lists are in canonical form
-			if {[lrange $map_invocantdata 0 end] ne [lrange $aliased_invocantdata 0 end]} {
-					set status "not-ok"
-					lappend problems [list type "invocant_data_mismatch" invocant_role $role oid $OID command_invocantdata $aliased_invocantdata map_invocantdata $map_invocantdata]
-			}
-		}
-	
-	}
-	
-
-	set result [dict create]
-	dict set result status $status
-	dict set result problems $problems
-	
-	return $result
-}
-
-
-#get or set t
-dict set ::p::-1::_iface::o_methods Namespace {arglist {args}}
-proc ::p::-1::Namespace {_ID_ args} {
-	#set invocants [dict get $_ID_ i]
-  #set this_invocant [lindex [dict get $invocants this] 0]
-  #lassign $this_invocant OID this_info
-	set OID [lindex [dict get $_ID_ i this] 0 0]
-  upvar #0 ::p::${OID}::_meta::map MAP
-	set IID		[lindex [dict get $MAP interfaces level0] end]
-	
-	namespace upvar ::p::${IID}::_iface  o_varspace active_varspace
-  
-	if {[string length $active_varspace]}  {
-		set ns ::p::${OID}::$active_varspace
-	} else {
-  	set ns ::p::${OID}
-	}
-
-    #!todo - review.. 'eval' & 'code' subcommands make it too easy to violate the object?
-    # - should .. Namespace   be usable at all from outside the object?
-
-
-    if {[llength $args]} {
-        #special case some of the namespace subcommands.
-
-        #delete
-        if {[string match "d*" [lindex $args 0]]} {
-            error "Don't destroy an object's namespace like this. Use '>object .. Destroy' to remove an object."
-        }
-        #upvar,ensemble,which,code,origin,expor,import,forget
-        if {[string range [lindex $args 0] 0 1] in [list "up" "en" "wh" "co" "or" "ex" "im" "fo"]} {
-            return [namespace eval $ns [list namespace {*}$args]]
-        }
-        #current
-        if {[string match "cu*" [lindex $args 0]]} {
-            return $ns
-        }
-
-        #children,eval,exists,inscope,parent,qualifiers,tail
-        return [namespace {*}[linsert $args 1 $ns]]
-    } else {
-        return $ns
-    }
-}
-
-
-
-
-
-
-
-
-
-
-dict set ::p::-1::_iface::o_methods PatternUnknown {arglist {args}}
-proc ::p::-1::PatternUnknown {_ID_ args} {
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-	lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-	set patterns [dict get $MAP interfaces level1]
-	set existing_IID [lindex $patterns end]  ;#!todo - choose 'open' interface to expand.
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $patterns $existing_IID]
-		
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level1 [concat [lreplace $patterns $posn $posn] $IID] 
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 1} [concat [lreplace $patterns $posn $posn] $IID]
-		#::p::predator::remap $invocant
-	}
-
-	set handlermethod [lindex $args 0]
-
-
-	if {[llength $args]} {	
-		set ::p::${IID}::_iface::o_unknown $handlermethod
-		return
-	} else {
-		set ::p::${IID}::_iface::o_unknown $handlermethod
-	}
-
-}
-
-
-
-dict set ::p::-1::_iface::o_methods Unknown {arglist {args}}
-proc ::p::-1::Unknown {_ID_ args} {
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-
-	set interfaces [dict get $MAP interfaces level0]
-	set existing_IID [lindex $interfaces end]  ;#!todo - choose 'open' interface to expand.
-	
-	set prev_open [set ::p::${existing_IID}::_iface::o_open]
-
-	if {$existing_IID != [set IID [::p::internals::expand_interface $existing_IID]]} {
-		#remove ourself from the usedby list of the previous interface
-		array unset ::p::${existing_IID}::_iface::o_usedby i$OID
-		set ::p::${IID}::_iface::o_usedby(i$OID) $cmd
-
-		set posn [lsearch $interfaces $existing_IID]
-
-		set extracted_sub_dict [dict get $MAP interfaces]
-		dict set extracted_sub_dict level0 [concat [lreplace $interfaces $posn $posn] $IID]
-		dict set MAP interfaces $extracted_sub_dict
-		#lset map {1 0} [concat [lreplace $interfaces $posn $posn] $IID]
-
-		set ::p::${IID}::_iface::o_open 0
-	}  else {
-		set ::p::${IID}::_iface::o_open $prev_open
-	}
-
-	set handlermethod [lindex $args 0]
-
-	if {[llength $args]} {	
-		set ::p::${IID}::_iface::o_unknown $handlermethod
-		#set ::p::${IID}::(unknown) $handlermethod
-
-
-		#interp alias {} ::p::${IID}::_iface::(UNKNOWN) {} ::p::${OID}::$handlermethod
-		interp alias {} ::p::${IID}::_iface::(UNKNOWN) {} ::p::${IID}::_iface::$handlermethod
-		interp alias {} ::p::${OID}::(UNKNOWN) 		{} ::p::${OID}::$handlermethod
-
-        #namespace eval ::p::${IID}::_iface [list namespace unknown $handlermethod]
-        #namespace eval ::p::${OID} [list namespace unknown $handlermethod]
-
-		return
-	} else {
-		set ::p::${IID}::_iface::o_unknown $handlermethod
-	}
-
-}
-
-
-#useful on commandline - can just uparrow and add to it to become  '<previous cmd> .. As varname' instead of editing start and end of commandline to make it 'set varname [<previous cmd>]'
-# should also work for non-object results  
-dict set ::p::-1::_iface::o_methods As {arglist {varname}}
-proc ::p::-1::As {_ID_ varname} {
-    set invocants [dict get $_ID_ i]
-    #puts stdout "invocants: $invocants"
-    #!todo - handle multiple invocants with other roles, not just 'this'
-    
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    if {$OID ne "null"} {
-        upvar #0 ::p::${OID}::_meta::map MAP
-        lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-        tailcall set $varname $cmd
-    } else {
-        #puts stdout "info level 1 [info level 1]"
-        set role_members [dict get $_ID_ i this]
-        if {[llength $role_members] == 1} {
-            set member [lindex $role_members 0]
-            lassign $member _OID namespace default_method stackvalue _wrapped
-            tailcall set $varname $stackvalue
-        } else {
-            #multiple invocants - return all results as a list
-            set resultlist [list]
-            foreach member $role_members {
-                lassign $member _OID namespace default_method stackvalue _wrapped
-                lappend resultlist $stackvalue
-            }
-            tailcall set $varname $resultlist
-        }
-    }
-}
-
-#!todo - AsFileStream ??
-dict set ::p::-1::_iface::o_methods AsFile {arglist {filename args}}
-proc ::p::-1::AsFile {_ID_ filename args} {
-    dict set default -force 0
-    dict set default -dumpmethod ".. Digest -algorithm raw" ;#how to serialize/persist an object
-    set opts [dict merge $default $args]
-    set force       [dict get $opts -force]
-    set dumpmethod  [dict get $opts -dumpmethod]
-
-
-    if {[file pathtype $filename] eq "relative"} {
-        set filename [pwd]/$filename
-    }
-    set filedir [file dirname $filename]
-    if {![sf::file_writable $filedir]} {
-        error "(method AsFile) ERROR folder $filedir is not writable"
-    }
-    if {[file exists $filename]} {
-        if {!$force} {
-            error "(method AsFile) ERROR file $filename already exists. Use -force 1 to overwrite"
-        }
-        if {![sf::file_writable $filename]} {
-            error "(method AsFile) ERROR file $filename is not writable - check permissions"
-        }
-    }
-    set fd [open $filename w]
-    fconfigure $fd -translation binary 
-    
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    if {$OID ne "null"} {
-        upvar #0 ::p::${OID}::_meta::map MAP
-        lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-        #tailcall set $varname $cmd
-        set object_data [$cmd {*}$dumpmethod]
-        puts -nonewline $fd $object_data
-        close $fd
-        return [list status 1 bytes [string length $object_data] filename $filename]
-    } else {
-        #puts stdout "info level 1 [info level 1]"
-        set role_members [dict get $_ID_ i this]
-        if {[llength $role_members] == 1} {
-            set member [lindex $role_members 0]
-            lassign $member _OID namespace default_method stackvalue _wrapped
-            puts -nonewline $fd $stackvalue
-            close $fd
-            #tailcall set $varname $stackvalue
-            return [list status 1 bytes [string length $stackvalue] filename $filename]
-        } else {
-            #multiple invocants - return all results as a list
-            set resultlist [list]
-            foreach member $role_members {
-                lassign $member _OID namespace default_method stackvalue _wrapped
-                lappend resultlist $stackvalue
-            }
-            puts -nonewline $fd $resultset
-            close $fd
-            return [list status 1 bytes [string length $resultset] filename $filename]
-            #tailcall set $varname $resultlist
-        }
-    }
-    
-}
-
-
-
-dict set ::p::-1::_iface::o_methods Object {arglist {}}
-proc ::p::-1::Object {_ID_} {
-    set invocants [dict get $_ID_ i]
-    set OID [lindex [dict get $invocants this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-
-	set result [string map [list ::> ::] $cmd]
-	if {![catch {info level -1} prev_level]} {
-		set called_by "(called by: $prev_level)"
-	} else {
-		set called_by "(called by: interp?)"
-
-	}	
-	
-	puts stdout "\n\nWARNING: '.. Object' calls are now obsolete. Please adjust your code. $called_by ( [info level 1])\n\n"
-	puts stdout  " (returning $result)"
-
-	return $result
-}
-
-#todo: make equivalent to >pattern = cmdname,  >pattern . x = cmdname ,  >pattern # apiname = cmdname
-dict set ::p::-1::_iface::o_methods MakeAlias {arglist {cmdname}} 
-proc ::p::-1::MakeAlias {_ID_cmdname } {
-    set OID [::p::obj_get_this_oid $_ID_]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias itemCmd cmd
-    
-    error "concept probably won't work -  try making dispatcher understand trailing '= cmdname' "
-}
-dict set ::p::-1::_iface::o_methods ID {arglist {}}
-proc ::p::-1::ID {_ID_} {
-	set OID [lindex  [dict get $_ID_ i this] 0 0]
-	return $OID
-}
-
-dict set ::p::-1::_iface::o_methods IFINFO {arglist {}}
-proc ::p::-1::IFINFO {_ID_} {
-	puts stderr "--_ID_: $_ID_--"
-	set OID [::p::obj_get_this_oid $_ID_]
-	upvar #0 ::p::${OID}::_meta::map MAP
-	
- 	puts stderr "-- MAP: $MAP--"
-
-  set interfaces [dict get $MAP interfaces level0]
-	set IFID [lindex $interfaces 0]
-	
-	if {![llength $interfaces]} {
-		puts stderr "No interfaces present at level 0"
-	} else {
-		foreach IFID $interfaces {
-			set iface ::p::ifaces::>$IFID
-			puts stderr "$iface : [$iface --]"
-			puts stderr "\tis open: [set ::p::${IFID}::_iface::o_open]"
-			set variables [set ::p::${IFID}::_iface::o_variables]
-			puts stderr "\tvariables: $variables"
-		}
-	}
-	
-}
-
-
-
-
-dict set ::p::-1::_iface::o_methods INVOCANTDATA {arglist {}}
-proc ::p::-1::INVOCANTDATA {_ID_} {
-	#same as a call to: >object ..
-	return $_ID_
-}
-
-#obsolete?
-dict set ::p::-1::_iface::o_methods UPDATEDINVOCANTDATA {arglist {}}
-proc ::p::-1::UPDATEDINVOCANTDATA {_ID_} {
-	set updated_ID_ $_ID_
-	array set updated_roles [list]
-	
-	set invocants [dict get $_ID_ i]
-	set invocant_roles [dict keys $invocants]
-	foreach role $invocant_roles {
-		
-		set role_members [dict get $invocants $role]
-		foreach member [dict get $invocants $role] {
-			#each member is a 2-element list consisting of the OID and a dictionary
-			#each member is a 5-element list
-			#set OID [lindex $member 0]
-			#set object_dict [lindex $member 1]
-			lassign $member OID alias itemcmd cmd wrapped
-			
-			set MAP [set ::p::${OID}::_meta::map]
-			#if {[dictutils::equal {apply {{key v1 v2} {expr {$v1 eq $v2}}}} $mapvalue [dict get $object_dict map]]} {}
-			
-			if {[dict get $MAP invocantdata] eq $member}
-				#same - nothing to do
-			
-			} else {
-				package require overtype
-				puts stderr "---------------------------------------------------------"
-				puts stderr "UPDATEDINVOCANTDATA WARNING: invocantdata in _ID_ not equal to invocantdata in _meta::map - returning updated version"
-				set col1 [string repeat " " [expr {[string length [dict get $MAP invocantdata]] + 2}]]
-				puts stderr "[overtype::left $col1 {_ID_ map value}]: $member"
-				puts stderr "[overtype::left $col1 ::p::${OID}::_meta::map]: [dict get $MAP invocantdata]"
-				puts stderr "---------------------------------------------------------"
-				#take _meta::map version
-				lappend updated_roles($role) [dict get $MAP invocantdata]
-			}
-		
-	}
-
-  #overwrite changed roles only
-	foreach role [array names updated_roles] {
-		dict set updated_ID_ i $role [set updated_roles($role)]
-	}
-	
-	return $updated_ID_
-}
-
-	
-
-dict set ::p::-1::_iface::o_methods INFO {arglist {}}
-proc ::p::-1::INFO {_ID_} {
-	set result ""
-	append result "_ID_: $_ID_\n"
-	
-	set invocants [dict get $_ID_ i]
-	set invocant_roles [dict keys $invocants]
-	append result "invocant roles: $invocant_roles\n"
-	set total_invocants 0
-	foreach key $invocant_roles {
-		incr total_invocants [llength [dict get $invocants $key]]
-	}
-	
-	append result "invocants: ($total_invocants invocant(s) in [llength $invocant_roles] role(s)) \n"
-	foreach key $invocant_roles {
-		append result "\t-------------------------------\n"
-		append result "\trole: $key\n"
-		set role_members [dict get $invocants $key] ;#usually the role 'this' will have 1 member - but roles can have any number of invocants
-		append result "\t Raw data for this role: $role_members\n"
-		append result "\t Number of invocants in this role: [llength $role_members]\n"
-		foreach member $role_members {
-			#set OID [lindex [dict get $invocants $key] 0 0]
-			set OID [lindex $member 0]
-            append result "\t\tOID: $OID\n"
-            if {$OID ne "null"} {
-                upvar #0 ::p::${OID}::_meta::map MAP
-                append result "\t\tmap:\n"
-                foreach key [dict keys $MAP] {
-                    append result "\t\t\t$key\n"
-                    append result "\t\t\t\t [dict get $MAP $key]\n"
-                    append result "\t\t\t----\n"
-                }
-                lassign [dict get $MAP invocantdata] _OID namespace default_method cmd _wrapped
-                append result "\t\tNamespace: $namespace\n"
-                append result "\t\tDefault method: $default_method\n"
-                append result "\t\tCommand: $cmd\n"
-                append result "\t\tCommand Alias: [::pattern::which_alias $cmd]\n"
-                append result "\t\tLevel0 interfaces: [dict get $MAP interfaces level0]\n"
-                append result "\t\tLevel1 interfaces: [dict get $MAP interfaces level1]\n"
-            } else {
-                lassign $member _OID namespace default_method stackvalue _wrapped
-                append result "\t\t last item on the predator stack is a value not an object"
-                append result "\t\t Value is: $stackvalue"
-                
-            }
-		}
-		append result "\n"
-		append result "\t-------------------------------\n"
-	}
-	
-	
-	
-	return $result
-}
-
-
-
-
-dict set ::p::-1::_iface::o_methods Rename {arglist {args}}
-proc ::p::-1::Rename {_ID_ args} {
-    set OID [::p::obj_get_this_oid $_ID_]
-    if {![llength $args]} {
-        error "Rename expected \$newname argument"
-    }
-
-    #Rename operates only on the 'this' invocant?  What if there is more than one 'this'? should we raise an error if there is anything other than a single invocant?
-    upvar #0 ::p::${OID}::_meta::map MAP
-
-
-
-	#puts ">>.>> Rename. _ID_: $_ID_"
-
-	if {[catch {
-
-			if {([llength $args] == 3) && [lindex $args 2] eq "rename"} {
-			
-				#appears to be a 'trace command rename' firing
-				#puts "\t>>>> rename trace fired $MAP $args <<<"
-
-				lassign $args oldcmd newcmd
-				set extracted_invocantdata [dict get $MAP invocantdata]
-				lset extracted_invocantdata 3 $newcmd
-				dict set MAP invocantdata $extracted_invocantdata
-
-			
-				lassign $extracted_invocantdata	_oid alias _default_method object_command _wrapped
-
-				#Write the same info into the _ID_ value of the alias
-				interp alias {} $alias {}  ;#first we must delete it
-				interp alias {} $alias {} ::p::internals::predator [list i [list this [list $extracted_invocantdata ] ] context {}]
-				
-				
-				
-				#! $object_command was initially created as the renamed alias - so we have to do it again
-				uplevel 1 [list rename $alias $object_command]
-				trace add command $object_command rename [list $object_command .. Rename]	
-
-		 } elseif {[llength $args] == 1} {
-				#let the rename trace fire and we will be called again to do the remap!
-				uplevel 1 [list rename [lindex [dict get $MAP invocantdata] 3] [lindex $args 0]]
-			} else {
-				error "Rename expected \$newname argument ."
-			}
-
-		} errM]} {
-			puts stderr "\t@@@@@@ rename error"
-			set ruler "\t[string repeat - 80]"
-			puts stderr $ruler 
-			puts stderr $errM
-			puts stderr $ruler
-			
-		}
-
-		return
-
-	
-}
-
-proc ::p::obj_get_invocants {_ID_} {
-    return [dict get $_ID_ i]
-}
-#The invocant role 'this' is special and should always have only one member.
-# dict get $_ID_ i XXX  will always return a list of invocants that are playing role XXX
-proc ::p::obj_get_this_oid {_ID_} {
-    return [lindex [dict get $_ID_ i this] 0 0]
-}
-proc ::p::obj_get_this_ns {_ID_} {
-    return [lindex [dict get $_ID_ i this] 0 1]
-}
-
-proc ::p::obj_get_this_cmd {_ID_} {
-    return [lindex [dict get $_ID_ i this] 0 3]
-}
-proc ::p::obj_get_this_data {_ID_} {
-    lassign [dict get [set ::p::[lindex [dict get $_ID_ i this] 0 0]::_meta::map] invocantdata] OID ns _unknown cmd
-    #set this_invocant_data {*}[dict get $_ID_ i this]
-    return [list oid $OID ns $ns cmd $cmd]
-}
-proc ::p::map {OID varname} {
-    tailcall upvar #0 ::p::${OID}::_meta::map $varname
-}
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/mime-1.7.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/mime-1.7.1.tm
deleted file mode 100644
index b4b0d61d..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/mime-1.7.1.tm
+++ /dev/null
@@ -1,3934 +0,0 @@
-# mime.tcl - MIME body parts
-#
-# (c) 1999-2000 Marshall T. Rose
-# (c) 2000      Brent Welch
-# (c) 2000      Sandeep Tamhankar
-# (c) 2000      Dan Kuchler
-# (c) 2000-2001 Eric Melski
-# (c) 2001      Jeff Hobbs
-# (c) 2001-2008 Andreas Kupries
-# (c) 2002-2003 David Welton
-# (c) 2003-2008 Pat Thoyts
-# (c) 2005      Benjamin Riefenstahl
-# (c) 2013-2021 Poor Yorick
-#
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# Influenced by Borenstein's/Rose's safe-tcl (circa 1993) and Darren New's
-# unpublished package of 1999.
-#
-
-# new string features and inline scan are used, requiring 8.3.
-package require Tcl 8.5
-
-package provide mime 1.7.1
-package require tcl::chan::memchan
-
-
-if {[catch {package require Trf 2.0}]} {
-
-    # Fall-back to tcl-based procedures of base64 and quoted-printable
-    # encoders
-    ##
-    # Warning!
-    ##
-    # These are a fragile emulations of the more general calling
-    # sequence that appears to work with this code here.
-    ##
-    # The `__ignored__` arguments are expected to be `--` options on
-    # the caller's side. (See the uses in `copymessageaux`,
-    # `buildmessageaux`, `parsepart`, and `getbody`).
-
-    package require base64 2.0
-    set ::major [lindex [split [package require md5] .] 0]
-
-    # Create these commands in the mime namespace so that they
-    # won't collide with things at the global namespace level
-
-    namespace eval ::mime {
-        proc base64 {-mode what __ignored__ chunk} {
-            return [base64::$what $chunk]
-        }
-        proc quoted-printable {-mode what __ignored__ chunk} {
-            return [mime::qp_$what $chunk]
-        }
-
-        if {$::major < 2} {
-            # md5 v1, result is hex string ready for use.
-            proc md5 {__ignored__ string} {
-                return [md5::md5 $string]
-            }
-        } else {
-            # md5 v2, need option to get hex string
-            proc md5 {__ignored__ string} {
-                return [md5::md5 -hex $string]
-            }
-        }
-    }
-
-    unset ::major
-}
-
-#
-# state variables:
-#
-#     canonicalP: input is in its canonical form
-#     content: type/subtype
-#     params: dictionary (keys are lower-case)
-#     encoding: transfer encoding
-#     version: MIME-version
-#     header: dictionary (keys are lower-case)
-#     lowerL: list of header keys, lower-case
-#     mixedL: list of header keys, mixed-case
-#     value: either "file", "parts", or "string"
-#
-#     file: input file
-#     fd: cached file-descriptor, typically for root
-#     root: token for top-level part, for (distant) subordinates
-#     offset: number of octets from beginning of file/string
-#     count: length in octets of (encoded) content
-#
-#     parts: list of bodies (tokens)
-#
-#     string: input string
-#
-#     cid: last child-id assigned
-#
-
-
-namespace eval ::mime {
-    variable mime
-    array set mime {uid 0 cid 0}
-
-    # RFC 822 lexemes
-    variable addrtokenL
-    lappend addrtokenL \; , < > : . ( ) @ \" \[ ] \\
-    variable addrlexemeL {
-        LX_SEMICOLON LX_COMMA
-        LX_LBRACKET  LX_RBRACKET
-        LX_COLON     LX_DOT
-        LX_LPAREN    LX_RPAREN
-        LX_ATSIGN    LX_QUOTE
-        LX_LSQUARE   LX_RSQUARE
-        LX_QUOTE
-    }
-
-    # RFC 2045 lexemes
-    variable typetokenL
-    lappend typetokenL \; , < > : ? ( ) @ \" \[ \] = / \\
-    variable typelexemeL {
-        LX_SEMICOLON LX_COMMA
-        LX_LBRACKET  LX_RBRACKET
-        LX_COLON     LX_QUESTION
-        LX_LPAREN    LX_RPAREN
-        LX_ATSIGN    LX_QUOTE
-        LX_LSQUARE   LX_RSQUARE
-        LX_EQUALS    LX_SOLIDUS
-        LX_QUOTE
-    }
-
-    variable encList {
-        ascii US-ASCII
-        big5 Big5
-        cp1250 Windows-1250
-        cp1251 Windows-1251
-        cp1252 Windows-1252
-        cp1253 Windows-1253
-        cp1254 Windows-1254
-        cp1255 Windows-1255
-        cp1256 Windows-1256
-        cp1257 Windows-1257
-        cp1258 Windows-1258
-        cp437 IBM437
-        cp737 {}
-        cp775 IBM775
-        cp850 IBM850
-        cp852 IBM852
-        cp855 IBM855
-        cp857 IBM857
-        cp860 IBM860
-        cp861 IBM861
-        cp862 IBM862
-        cp863 IBM863
-        cp864 IBM864
-        cp865 IBM865
-        cp866 IBM866
-        cp869 IBM869
-        cp874 {}
-        cp932 {}
-        cp936 GBK
-        cp949 {}
-        cp950 {}
-        dingbats {}
-        ebcdic {}
-        euc-cn EUC-CN
-        euc-jp EUC-JP
-        euc-kr EUC-KR
-        gb12345 GB12345
-        gb1988 GB1988
-        gb2312 GB2312
-        iso2022 ISO-2022
-        iso2022-jp ISO-2022-JP
-        iso2022-kr ISO-2022-KR
-        iso8859-1 ISO-8859-1
-        iso8859-2 ISO-8859-2
-        iso8859-3 ISO-8859-3
-        iso8859-4 ISO-8859-4
-        iso8859-5 ISO-8859-5
-        iso8859-6 ISO-8859-6
-        iso8859-7 ISO-8859-7
-        iso8859-8 ISO-8859-8
-        iso8859-9 ISO-8859-9
-        iso8859-10 ISO-8859-10
-        iso8859-13 ISO-8859-13
-        iso8859-14 ISO-8859-14
-        iso8859-15 ISO-8859-15
-        iso8859-16 ISO-8859-16
-        jis0201 JIS_X0201
-        jis0208 JIS_C6226-1983
-        jis0212 JIS_X0212-1990
-        koi8-r KOI8-R
-        koi8-u KOI8-U
-        ksc5601 KS_C_5601-1987
-        macCentEuro {}
-        macCroatian {}
-        macCyrillic {}
-        macDingbats {}
-        macGreek {}
-        macIceland {}
-        macJapan {}
-        macRoman {}
-        macRomania {}
-        macThai {}
-        macTurkish {}
-        macUkraine {}
-        shiftjis Shift_JIS
-        symbol {}
-        tis-620 TIS-620
-        unicode {}
-        utf-8 UTF-8
-    }
-
-    variable encodings
-    array set encodings $encList
-    variable reversemap
-    # Initialized at the bottom of the file
-
-    variable encAliasList {
-        ascii ANSI_X3.4-1968
-        ascii iso-ir-6
-        ascii ANSI_X3.4-1986
-        ascii ISO_646.irv:1991
-        ascii ASCII
-        ascii ISO646-US
-        ascii us
-        ascii IBM367
-        ascii cp367
-        cp437 cp437
-        cp437 437
-        cp775 cp775
-        cp850 cp850
-        cp850 850
-        cp852 cp852
-        cp852 852
-        cp855 cp855
-        cp855 855
-        cp857 cp857
-        cp857 857
-        cp860 cp860
-        cp860 860
-        cp861 cp861
-        cp861 861
-        cp861 cp-is
-        cp862 cp862
-        cp862 862
-        cp863 cp863
-        cp863 863
-        cp864 cp864
-        cp865 cp865
-        cp865 865
-        cp866 cp866
-        cp866 866
-        cp869 cp869
-        cp869 869
-        cp869 cp-gr
-        cp936 CP936
-        cp936 MS936
-        cp936 Windows-936
-        iso8859-1 ISO_8859-1:1987
-        iso8859-1 iso-ir-100
-        iso8859-1 ISO_8859-1
-        iso8859-1 latin1
-        iso8859-1 l1
-        iso8859-1 IBM819
-        iso8859-1 CP819
-        iso8859-2 ISO_8859-2:1987
-        iso8859-2 iso-ir-101
-        iso8859-2 ISO_8859-2
-        iso8859-2 latin2
-        iso8859-2 l2
-        iso8859-3 ISO_8859-3:1988
-        iso8859-3 iso-ir-109
-        iso8859-3 ISO_8859-3
-        iso8859-3 latin3
-        iso8859-3 l3
-        iso8859-4 ISO_8859-4:1988
-        iso8859-4 iso-ir-110
-        iso8859-4 ISO_8859-4
-        iso8859-4 latin4
-        iso8859-4 l4
-        iso8859-5 ISO_8859-5:1988
-        iso8859-5 iso-ir-144
-        iso8859-5 ISO_8859-5
-        iso8859-5 cyrillic
-        iso8859-6 ISO_8859-6:1987
-        iso8859-6 iso-ir-127
-        iso8859-6 ISO_8859-6
-        iso8859-6 ECMA-114
-        iso8859-6 ASMO-708
-        iso8859-6 arabic
-        iso8859-7 ISO_8859-7:1987
-        iso8859-7 iso-ir-126
-        iso8859-7 ISO_8859-7
-        iso8859-7 ELOT_928
-        iso8859-7 ECMA-118
-        iso8859-7 greek
-        iso8859-7 greek8
-        iso8859-8 ISO_8859-8:1988
-        iso8859-8 iso-ir-138
-        iso8859-8 ISO_8859-8
-        iso8859-8 hebrew
-        iso8859-9 ISO_8859-9:1989
-        iso8859-9 iso-ir-148
-        iso8859-9 ISO_8859-9
-        iso8859-9 latin5
-        iso8859-9 l5
-        iso8859-10 iso-ir-157
-        iso8859-10 l6
-        iso8859-10 ISO_8859-10:1992
-        iso8859-10 latin6
-        iso8859-14 iso-ir-199
-        iso8859-14 ISO_8859-14:1998
-        iso8859-14 ISO_8859-14
-        iso8859-14 latin8
-        iso8859-14 iso-celtic
-        iso8859-14 l8
-        iso8859-15 ISO_8859-15
-        iso8859-15 Latin-9
-        iso8859-16 iso-ir-226
-        iso8859-16 ISO_8859-16:2001
-        iso8859-16 ISO_8859-16
-        iso8859-16 latin10
-        iso8859-16 l10
-        jis0201 X0201
-        jis0208 iso-ir-87
-        jis0208 x0208
-        jis0208 JIS_X0208-1983
-        jis0212 x0212
-        jis0212 iso-ir-159
-        ksc5601 iso-ir-149
-        ksc5601 KS_C_5601-1989
-        ksc5601 KSC5601
-        ksc5601 korean
-        shiftjis MS_Kanji
-        utf-8 UTF8
-    }
-
-    namespace export {*}{
-	copymessage finalize getbody getheader getproperty initialize
-	mapencoding parseaddress parsedatetime reversemapencoding setheader
-	uniqueID
-    }
-}
-
-# ::mime::initialize --
-#
-#    Creates a MIME part, and returnes the MIME token for that part.
-#
-# Arguments:
-#    args   Args can be any one of the following:
-#                  ?-canonical type/subtype
-#                  ?-param    {key value}?...
-#                  ?-encoding value?
-#                  ?-header   {key value}?... ?
-#                  (-file name | -string value | -parts {token1 ... tokenN})
-#
-#       If the -canonical option is present, then the body is in
-#       canonical (raw) form and is found by consulting either the -file,
-#       -string, or -parts option.
-#
-#       In addition, both the -param and -header options may occur zero
-#       or more times to specify "Content-Type" parameters (e.g.,
-#       "charset") and header keyword/values (e.g.,
-#       "Content-Disposition"), respectively.
-#
-#       Also, -encoding, if present, specifies the
-#       "Content-Transfer-Encoding" when copying the body.
-#
-#       If the -canonical option is not present, then the MIME part
-#       contained in either the -file or the -string option is parsed,
-#       dynamically generating subordinates as appropriate.
-#
-# Results:
-#    An initialized mime token.
-
-proc ::mime::initialize args {
-    global errorCode errorInfo
-
-    variable mime
-
-    set token [namespace current]::[incr mime(uid)]
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {[catch [list mime::initializeaux $token {*}$args] result eopts]} {
-        catch {mime::finalize $token -subordinates dynamic}
-        return -options $eopts $result
-    }
-    return $token
-}
-
-# ::mime::initializeaux --
-#
-#    Configures the MIME token created in mime::initialize based on
-#       the arguments that mime::initialize supports.
-#
-# Arguments:
-#       token  The MIME token to configure.
-#    args   Args can be any one of the following:
-#                  ?-canonical type/subtype
-#                  ?-param    {key value}?...
-#                  ?-encoding value?
-#                  ?-header   {key value}?... ?
-#                  (-file name | -string value | -parts {token1 ... tokenN})
-#
-# Results:
-#       Either configures the mime token, or throws an error.
-
-proc ::mime::initializeaux {token args} {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set params [set state(params) {}]
-    set state(encoding) {}
-    set state(version) 1.0
-
-    set state(header) {}
-    set state(lowerL) {}
-    set state(mixedL) {}
-
-    set state(cid) 0
-
-    set userheader 0
-
-    set argc [llength $args]
-    for {set argx 0} {$argx < $argc} {incr argx} {
-        set option [lindex $args $argx]
-        if {[incr argx] >= $argc} {
-            error "missing argument to $option"
-        }
-        set value [lindex $args $argx]
-
-        switch -- $option {
-            -canonical {
-                set state(content) [string tolower $value]
-            }
-
-            -param {
-                if {[llength $value] != 2} {
-		    error "-param expects a key and a value, not $value"
-                }
-                set lower [string tolower [set mixed [lindex $value 0]]]
-                if {[info exists params($lower)]} {
-                    error "the $mixed parameter may be specified at most once"
-                }
-
-                set params($lower) [lindex $value 1]
-                set state(params) [array get params]
-            }
-
-            -encoding {
-		set value [string tolower $value[set value {}]]
-
-                switch -- $value {
-                    7bit - 8bit - binary - quoted-printable - base64 {
-                    }
-
-                    default {
-                        error "unknown value for -encoding $state(encoding)"
-                    }
-                }
-                set state(encoding) [string tolower $value]
-            }
-
-            -header {
-                if {[llength $value] != 2} {
-                    error "-header expects a key and a value, not $value"
-                }
-                set lower [string tolower [set mixed [lindex $value 0]]]
-                if {$lower eq {content-type}} {
-                    error "use -canonical instead of -header $value"
-                }
-                if {$lower eq {content-transfer-encoding}} {
-                    error "use -encoding instead of -header $value"
-                }
-                if {$lower in {content-md5 mime-version}} {
-                    error {don't go there...}
-                }
-                if {$lower ni $state(lowerL)} {
-                    lappend state(lowerL) $lower
-                    lappend state(mixedL) $mixed
-                }
-
-		set userheader 1
-
-                array set header $state(header)
-                lappend header($lower) [lindex $value 1]
-                set state(header) [array get header]
-            }
-
-            -file {
-                set state(file) $value
-            }
-
-            -parts {
-                set state(parts) $value
-            }
-
-            -string {
-                set state(string) $value
-
-                set state(lines) [split $value \n]
-                set state(lines.count) [llength $state(lines)]
-                set state(lines.current) 0
-            }
-
-            -root {
-                # the following are internal options
-
-                set state(root) $value
-            }
-
-            -offset {
-                set state(offset) $value
-            }
-
-            -count {
-                set state(count) $value
-            }
-
-            -lineslist {
-                set state(lines) $value
-                set state(lines.count) [llength $state(lines)]
-                set state(lines.current) 0
-                #state(string) is needed, but will be built when required
-                set state(string) {}
-            }
-
-            default {
-                error "unknown option $option"
-            }
-        }
-    }
-
-    #We only want one of -file, -parts or -string:
-    set valueN 0
-    foreach value {file parts string} {
-        if {[info exists state($value)]} {
-            set state(value) $value
-            incr valueN
-        }
-    }
-    if {$valueN != 1 && ![info exists state(lines)]} {
-        error {specify exactly one of -file, -parts, or -string}
-    }
-
-    if {[set state(canonicalP) [info exists state(content)]]} {
-        switch -- $state(value) {
-            file {
-                set state(offset) 0
-            }
-
-            parts {
-                switch -glob -- $state(content) {
-                    text/*
-                        -
-                    image/*
-                        -
-                    audio/*
-                        -
-                    video/* {
-                        error "-canonical $state(content) and -parts do not mix"
-                    }
-
-                    default {
-                        if {$state(encoding) ne {}} {
-                            error {-encoding and -parts do not mix}
-                        }
-                    }
-                }
-            }
-            default {# Go ahead}
-        }
-
-        if {[lsearch -exact $state(lowerL) content-id] < 0} {
-            lappend state(lowerL) content-id
-            lappend state(mixedL) Content-ID
-
-            array set header $state(header)
-            lappend header(content-id) [uniqueID]
-            set state(header) [array get header]
-        }
-
-        set state(version) 1.0
-        return
-    }
-
-    if {$state(params) ne {}} {
-        error {-param requires -canonical}
-    }
-    if {$state(encoding) ne {}} {
-        error {-encoding requires -canonical}
-    }
-    if {$userheader} {
-        error {-header requires -canonical}
-    }
-    if {[info exists state(parts)]} {
-        error {-parts requires -canonical}
-    }
-
-    if {[set fileP [info exists state(file)]]} {
-        if {[set openP [info exists state(root)]]} {
-            # FRINK: nocheck
-            variable $state(root)
-            upvar 0 $state(root) root
-
-            set state(fd) $root(fd)
-        } else {
-            set state(root) $token
-            set state(fd) [open $state(file) RDONLY]
-            set state(offset) 0
-            seek $state(fd) 0 end
-            set state(count) [tell $state(fd)]
-
-            fconfigure $state(fd) -translation binary
-        }
-    }
-
-    set code [catch {mime::parsepart $token} result]
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    if {$fileP} {
-        if {!$openP} {
-            unset state(root)
-            catch {close $state(fd)}
-        }
-        unset state(fd)
-    }
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# ::mime::parsepart --
-#
-#       Parses the MIME headers and attempts to break up the message
-#       into its various parts, creating a MIME token for each part.
-#
-# Arguments:
-#       token  The MIME token to parse.
-#
-# Results:
-#       Throws an error if it has problems parsing the MIME token,
-#       otherwise it just sets up the appropriate variables.
-
-proc ::mime::parsepart {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {[set fileP [info exists state(file)]]} {
-        seek $state(fd) [set pos $state(offset)] start
-        set last [expr {$state(offset) + $state(count) - 1}]
-    } else {
-        set string $state(string)
-    }
-
-    set vline {}
-    while 1 {
-        set blankP 0
-        if {$fileP} {
-            if {($pos > $last) || ([set x [gets $state(fd) line]] <= 0)} {
-                set blankP 1
-            } else {
-                incr pos [expr {$x + 1}]
-            }
-        } else {
-	    if {$state(lines.current) >= $state(lines.count)} {
-		set blankP 1
-		set line {}
-	    } else {
-		set line [lindex $state(lines) $state(lines.current)]
-		incr state(lines.current)
-		set x [string length $line]
-		if {$x == 0} {set blankP 1}
-	    }
-        }
-
-         if {!$blankP && [string match *\r $line]} {
-             set line [string range $line 0 $x-2]
-             if {$x == 1} {
-                 set blankP 1
-             }
-         }
-
-        if {!$blankP && (
-	    [string first { } $line] == 0
-	    ||
-	    [string first \t $line] == 0
-	)} {
-            append vline \n $line
-            continue
-        }
-
-        if {$vline eq {}} {
-            if {$blankP} {
-                break
-            }
-
-            set vline $line
-            continue
-        }
-
-        if {
-	    [set x [string first : $vline]] <= 0
-	    ||
-	    [set mixed [string trimright [
-		string range $vline 0 [expr {$x - 1}]]]] eq {}
-	} {
-            error "improper line in header: $vline"
-        }
-        set value [string trim [string range $vline [expr {$x + 1}] end]]
-        switch -- [set lower [string tolower $mixed]] {
-            content-type {
-                if {[info exists state(content)]} {
-                    error "multiple Content-Type fields starting with $vline"
-                }
-
-                if {![catch {set x [parsetype $token $value]}]} {
-                    set state(content) [lindex $x 0]
-                    set state(params) [lindex $x 1]
-                }
-            }
-
-            content-md5 {
-            }
-
-            content-transfer-encoding {
-                if {
-		    $state(encoding) ne {}
-		    &&
-		    $state(encoding) ne [string tolower $value]
-		} {
-                    error "multiple Content-Transfer-Encoding fields starting with $vline"
-                }
-
-                set state(encoding) [string tolower $value]
-            }
-
-            mime-version {
-                set state(version) $value
-            }
-
-            default {
-                if {[lsearch -exact $state(lowerL) $lower] < 0} {
-                    lappend state(lowerL) $lower
-                    lappend state(mixedL) $mixed
-                }
-
-                array set header $state(header)
-                lappend header($lower) $value
-                set state(header) [array get header]
-            }
-        }
-
-        if {$blankP} {
-            break
-        }
-        set vline $line
-    }
-
-    if {![info exists state(content)]} {
-        set state(content) text/plain
-        set state(params) [list charset us-ascii]
-    }
-
-    if {![string match multipart/* $state(content)]} {
-        if {$fileP} {
-            set x [tell $state(fd)]
-            incr state(count) [expr {$state(offset) - $x}]
-            set state(offset) $x
-        } else {
-            # rebuild string, this is cheap and needed by other functions
-            set state(string) [join [
-                lrange $state(lines) $state(lines.current) end] \n]
-        }
-
-        if {[string match message/* $state(content)]} {
-            # FRINK: nocheck
-            variable [set child $token-[incr state(cid)]]
-
-            set state(value) parts
-            set state(parts) $child
-            if {$fileP} {
-                mime::initializeaux $child \
-                    -file $state(file) -root $state(root) \
-                    -offset $state(offset) -count $state(count)
-            } else {
-                if {[info exists state(encoding)]} {
-                    set strng [join [
-                        lrange $state(lines) $state(lines.current) end] \n]
-                    switch -- $state(encoding) {
-                        base64 -
-                        quoted-printable {
-                            set strng [$state(encoding) -mode decode -- $strng]
-                        }
-                        default {}
-                    }
-                    mime::initializeaux $child -string $strng
-                } else {
-                    mime::initializeaux $child -lineslist [
-                        lrange $state(lines) $state(lines.current) end]
-                }
-            }
-        }
-
-        return
-    }
-
-    set state(value) parts
-
-    set boundary {}
-    foreach {k v} $state(params) {
-        if {$k eq {boundary}} {
-            set boundary $v
-            break
-        }
-    }
-    if {$boundary eq {}} {
-        error "boundary parameter is missing in $state(content)"
-    }
-    if {[string trim $boundary] eq {}} {
-        error "boundary parameter is empty in $state(content)"
-    }
-
-    if {$fileP} {
-        set pos [tell $state(fd)]
-            # This variable is like 'start', for the reasons laid out
-            # below, in the other branch of this conditional.
-            set initialpos $pos
-        } else {
-            # This variable is like 'start', a list of lines in the
-            # part. This record is made even before we find a starting
-            # boundary and used if we run into the terminating boundary
-            # before a starting boundary was found. In that case the lines
-            # before the terminator as recorded by tracelines are seen as
-            # the part, or at least we attempt to parse them as a
-            # part. See the forceoctet and nochild flags later. We cannot
-            # use 'start' as that records lines only after the starting
-            # boundary was found.
-            set tracelines [list]
-    }
-
-    set inP 0
-    set moreP 1
-    set forceoctet 0
-    while {$moreP} {
-        if {$fileP} {
-            if {$pos > $last} {
-                # We have run over the end of the part per the outer
-                # information without finding a terminating boundary.
-                # We now fake the boundary and force the parser to
-                # give any new part coming of this a mime-type of
-                # application/octet-stream regardless of header
-                # information.
-                set line "--$boundary--"
-                set x [string length $line]
-                set forceoctet 1
-            } else {
-                if {[set x [gets $state(fd) line]] < 0} {
-                    error "end-of-file encountered while parsing $state(content)"
-                }
-            }
-            incr pos [expr {$x + 1}]
-        } else {
-            if {$state(lines.current) >= $state(lines.count)} {
-                error "end-of-string encountered while parsing $state(content)"
-            } else {
-                set line [lindex $state(lines) $state(lines.current)]
-                incr state(lines.current)
-                set x [string length $line]
-            }
-            set x [string length $line]
-        }
-        if {[string last \r $line] == $x - 1} {
-            set line [string range $line 0 [expr {$x - 2}]]
-            set crlf 2
-        } else {
-            set crlf 1
-        }
-
-        if {[string first --$boundary $line] != 0} {
-             if {$inP && !$fileP} {
-                 lappend start $line
-             }
-             continue
-        } else {
-            lappend tracelines $line
-        }
-
-        if {!$inP} {
-            # Haven't seen the starting boundary yet. Check if the
-            # current line contains this starting boundary.
-
-            if {$line eq "--$boundary"} {
-                # Yes. Switch parser state to now search for the
-                # terminating boundary of the part and record where
-                # the part begins (or initialize the recorder for the
-                # lines in the part).
-                set inP 1
-                if {$fileP} {
-                    set start $pos
-                } else {
-                    set start [list]
-                }
-                continue
-            } elseif {$line eq "--$boundary--"} {
-                # We just saw a terminating boundary before we ever
-                # saw the starting boundary of a part. This forces us
-                # to stop parsing, we do this by forcing the parser
-                # into an accepting state. We will try to create a
-                # child part based on faked start position or recorded
-                # lines, or, if that fails, let the current part have
-                # no children.
-
-                # As an example note the test case mime-3.7 and the
-                # referenced file "badmail1.txt".
-
-                set inP 1
-                if {$fileP} {
-                    set start $initialpos
-                } else {
-                    set start $tracelines
-                }
-                set forceoctet 1
-                # Fall through. This brings to the creation of the new
-                # part instead of searching further and possible
-                # running over the end.
-            } else {
-                continue
-            }
-        }
-
-        # Looking for the end of the current part. We accept both a
-        # terminating boundary and the starting boundary of the next
-        # part as the end of the current part.
-
-        if {[set moreP [string compare $line --$boundary--]]
-	    && $line ne "--$boundary"} {
-
-            # The current part has not ended, so we record the line
-            # if we are inside a part and doing string parsing.
-            if {$inP && !$fileP} {
-                lappend start $line
-            }
-            continue
-        }
-
-        # The current part has ended. We now determine the exact
-        # boundaries, create a mime part object for it and recursively
-        # parse it deeper as part of that action.
-
-        # FRINK: nocheck
-        variable [set child $token-[incr state(cid)]]
-
-        lappend state(parts) $child
-
-        set nochild 0
-        if {$fileP} {
-            if {[set count [expr {$pos - ($start + $x + $crlf + 1)}]] < 0} {
-                set count 0
-            }
-            if {$forceoctet} {
-                set ::errorInfo {}
-                if {[catch {
-                    mime::initializeaux $child \
-                        -file $state(file) -root $state(root) \
-                        -offset $start -count $count
-                }]} {
-                    set nochild 1
-                    set state(parts) [lrange $state(parts) 0 end-1]
-                } } else {
-                mime::initializeaux $child \
-                    -file $state(file) -root $state(root) \
-                    -offset $start -count $count
-            }
-            seek $state(fd) [set start $pos] start
-        } else {
-            if {$forceoctet} {
-                if {[catch {
-                    mime::initializeaux $child -lineslist $start
-                }]} {
-                    set nochild 1
-                    set state(parts) [lrange $state(parts) 0 end-1]
-                }
-            } else {
-                mime::initializeaux $child -lineslist $start
-            }
-            set start {}
-        }
-        if {$forceoctet && !$nochild} {
-            variable $child
-            upvar 0  $child childstate
-            set childstate(content) application/octet-stream
-        }
-        set forceoctet 0
-    }
-}
-
-# ::mime::parsetype --
-#
-#       Parses the string passed in and identifies the content-type and
-#       params strings.
-#
-# Arguments:
-#       token  The MIME token to parse.
-#       string The content-type string that should be parsed.
-#
-# Results:
-#       Returns the content and params for the string as a two element
-#       tcl list.
-
-proc ::mime::parsetype {token string} {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    variable typetokenL
-    variable typelexemeL
-
-    set state(input)   $string
-    set state(buffer)  {}
-    set state(lastC)   LX_END
-    set state(comment) {}
-    set state(tokenL)  $typetokenL
-    set state(lexemeL) $typelexemeL
-
-    set code [catch {mime::parsetypeaux $token $string} result]
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    unset {*}{
-	state(input)
-	state(buffer)
-	state(lastC)
-	state(comment)
-	state(tokenL)
-	state(lexemeL)
-    }
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# ::mime::parsetypeaux --
-#
-#       A helper function for mime::parsetype.  Parses the specified
-#       string looking for the content type and params.
-#
-# Arguments:
-#       token  The MIME token to parse.
-#       string The content-type string that should be parsed.
-#
-# Results:
-#       Returns the content and params for the string as a two element
-#       tcl list.
-
-proc ::mime::parsetypeaux {token string} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {[parselexeme $token] ne {LX_ATOM}} {
-        error [format {expecting type (found %s)} $state(buffer)]
-    }
-    set type [string tolower $state(buffer)]
-
-    switch -- [parselexeme $token] {
-        LX_SOLIDUS {
-        }
-
-        LX_END {
-            if {$type ne {message}} {
-                error "expecting type/subtype (found $type)"
-            }
-
-            return [list message/rfc822 {}]
-        }
-
-        default {
-            error [format "expecting \"/\" (found %s)" $state(buffer)]
-        }
-    }
-
-    if {[parselexeme $token] ne {LX_ATOM}} {
-        error [format "expecting subtype (found %s)" $state(buffer)]
-    }
-    append type [string tolower /$state(buffer)]
-
-    array set params {}
-    while 1 {
-        switch -- [parselexeme $token] {
-            LX_END {
-                return [list $type [array get params]]
-            }
-
-            LX_SEMICOLON {
-            }
-
-            default {
-                error [format "expecting \";\" (found %s)" $state(buffer)]
-            }
-        }
-
-        switch -- [parselexeme $token] {
-            LX_END {
-                return [list $type [array get params]]
-            }
-
-            LX_ATOM {
-            }
-
-            default {
-                error [format "expecting attribute (found %s)" $state(buffer)]
-            }
-        }
-
-        set attribute [string tolower $state(buffer)]
-
-        if {[parselexeme $token] ne {LX_EQUALS}} {
-            error [format {expecting "=" (found %s)} $state(buffer)]
-        }
-
-        switch -- [parselexeme $token] {
-            LX_ATOM {
-            }
-
-            LX_QSTRING {
-                set state(buffer) [
-                    string range $state(buffer) 1 [
-                        expr {[string length $state(buffer)] - 2}]]
-            }
-
-            default {
-                error [format {expecting value (found %s)} $state(buffer)]
-            }
-        }
-        set params($attribute) $state(buffer)
-    }
-}
-
-# ::mime::finalize --
-#
-#   mime::finalize destroys a MIME part.
-#
-#   If the -subordinates option is present, it specifies which
-#   subordinates should also be destroyed. The default value is
-#   "dynamic".
-#
-# Arguments:
-#       token  The MIME token to parse.
-#       args   Args can be optionally be of the following form:
-#              ?-subordinates "all" | "dynamic" | "none"?
-#
-# Results:
-#       Returns an empty string.
-
-proc ::mime::finalize {token args} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set options [list -subordinates dynamic]
-    array set options $args
-
-    switch -- $options(-subordinates) {
-        all {
-            #TODO: this code path is untested
-            if {$state(value) eq {parts}} {
-                foreach part $state(parts) {
-                    eval [linsert $args 0 mime::finalize $part]
-                }
-            }
-        }
-
-        dynamic {
-            for {set cid $state(cid)} {$cid > 0} {incr cid -1} {
-                eval [linsert $args 0 mime::finalize $token-$cid]
-            }
-        }
-
-        none {
-        }
-
-        default {
-            error "unknown value for -subordinates $options(-subordinates)"
-        }
-    }
-
-    foreach name [array names state] {
-        unset state($name)
-    }
-    # FRINK: nocheck
-    unset $token
-}
-
-# ::mime::getproperty --
-#
-#   mime::getproperty returns the properties of a MIME part.
-#
-#   The properties are:
-#
-#       property    value
-#       ========    =====
-#       content     the type/subtype describing the content
-#       encoding    the "Content-Transfer-Encoding"
-#       params      a list of "Content-Type" parameters
-#       parts       a list of tokens for the part's subordinates
-#       size        the approximate size of the content (unencoded)
-#
-#   The "parts" property is present only if the MIME part has
-#   subordinates.
-#
-#   If mime::getproperty is invoked with the name of a specific
-#   property, then the corresponding value is returned; instead, if
-#   -names is specified, a list of all properties is returned;
-#   otherwise, a dictionary of properties is returned.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       property   One of 'content', 'encoding', 'params', 'parts', and
-#                  'size'. Defaults to returning a dictionary of
-#                  properties.
-#
-# Results:
-#       Returns the properties of a MIME part
-
-proc ::mime::getproperty {token {property {}}} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    switch -- $property {
-        {} {
-            array set properties [list content  $state(content) \
-                                       encoding $state(encoding) \
-                                       params   $state(params) \
-                                       size     [getsize $token]]
-            if {[info exists state(parts)]} {
-                set properties(parts) $state(parts)
-            }
-
-            return [array get properties]
-        }
-
-        -names {
-            set names [list content encoding params]
-            if {[info exists state(parts)]} {
-                lappend names parts
-            }
-
-            return $names
-        }
-
-        content
-            -
-        encoding
-            -
-        params {
-            return $state($property)
-        }
-
-        parts {
-            if {![info exists state(parts)]} {
-                error {MIME part is a leaf}
-            }
-
-            return $state(parts)
-        }
-
-        size {
-            return [getsize $token]
-        }
-
-        default {
-            error "unknown property $property"
-        }
-    }
-}
-
-# ::mime::getsize --
-#
-#    Determine the size (in bytes) of a MIME part/token
-#
-# Arguments:
-#       token      The MIME token to parse.
-#
-# Results:
-#       Returns the size in bytes of the MIME token.
-
-proc ::mime::getsize {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    switch -- $state(value)/$state(canonicalP) {
-        file/0 {
-            set size $state(count)
-        }
-
-        file/1 {
-            return [file size $state(file)]
-        }
-
-        parts/0
-            -
-        parts/1 {
-            set size 0
-            foreach part $state(parts) {
-                incr size [getsize $part]
-            }
-
-            return $size
-        }
-
-        string/0 {
-            set size [string length $state(string)]
-        }
-
-        string/1 {
-            return [string length $state(string)]
-        }
-        default {
-            error "Unknown combination \"$state(value)/$state(canonicalP)\""
-        }
-    }
-
-    if {$state(encoding) eq {base64}} {
-        set size [expr {($size * 3 + 2) / 4}]
-    }
-
-    return $size
-}
-
-
-proc ::mime::getContentType token {
-    variable $token
-    upvar 0 $token state
-    set res $state(content)
-
-    set boundary {}
-    foreach {k v} $state(params) {
-        if {$k eq {boundary}} {
-	    set boundary $v
-	}
-        append res ";\n              $k=\"$v\""
-    }
-
-    # Save boundary separate from the params
-    set state(boundary) $boundary
-
-    if {([string match multipart/* $state(content)]) \
-        && ($boundary eq {})} {
-        # we're doing everything in one pass...
-        set key [clock seconds]$token[info hostname][array get state]
-        set seqno 8
-        while {[incr seqno -1] >= 0} {
-            set key [md5 -- $key]
-        }
-        set boundary "----- =_[string trim [base64 -mode encode -- $key]]"
-
-	set state(boundary) $boundary
-
-        append res ";\n              boundary=\"$boundary\""
-    }
-    return $res
-}
-
-# ::mime::getheader --
-#
-#    mime::getheader returns the header of a MIME part.
-#
-#    A header consists of zero or more key/value pairs. Each value is a
-#    list containing one or more strings.
-#
-#    If mime::getheader is invoked with the name of a specific key, then
-#    a list containing the corresponding value(s) is returned; instead,
-#    if -names is specified, a list of all keys is returned; otherwise, a
-#    dictionary is returned. Note that when a
-#    key is specified (e.g., "Subject"), the list returned usually
-#    contains exactly one string; however, some keys (e.g., "Received")
-#    often occur more than once in the header, accordingly the list
-#    returned usually contains more than one string.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       key        Either a key or '-names'.  If it is '-names' a list
-#                  of all keys is returned.
-#
-# Results:
-#       Returns the header of a MIME part.
-
-proc ::mime::getheader {token {key {}}} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set header $state(header)
-    switch -- $key {
-        {} {
-            set result {}
-	    lappend result MIME-Version $state(version)
-            foreach lower $state(lowerL) mixed $state(mixedL) {
-		foreach value $header($lower) {
-		    lappend result $mixed $value
-		}
-            }
-	    set tencoding [getTransferEncoding $token]
-	    if {$tencoding ne {}} {
-		lappend result Content-Transfer-Encoding $tencoding
-	    }
-	    lappend result Content-Type [getContentType $token]
-            return $result
-        }
-
-        -names {
-            return $state(mixedL)
-        }
-
-        default {
-            set lower [string tolower $key]
-
-	    switch $lower {
-		content-transfer-encoding {
-		    return [getTransferEncoding $token]
-		}
-		content-type {
-		    return [list [getContentType $token]]
-		}
-		mime-version {
-		    return [list $state(version)]
-		}
-		default {
-		    if {![info exists header($lower)]} {
-			error "key $key not in header"
-		    }
-		    return $header($lower)
-		}
-	    }
-        }
-    }
-}
-
-
-proc ::mime::getTransferEncoding token {
-    variable $token
-    upvar 0 $token state
-    set res {}
-    if {[set encoding $state(encoding)] eq {}} {
-	set encoding [encoding $token]
-    }
-    if {$encoding ne {}} {
-	set res $encoding
-    }
-    switch -- $encoding {
-	base64
-	    -
-	quoted-printable {
-	    set converter $encoding
-	}
-	7bit - 8bit - binary - {} {
-	    # Bugfix for [#477088], also [#539952]
-	    # Go ahead
-	}
-	default {
-	    error "Can't handle content encoding \"$encoding\""
-	}
-    }
-    return $res
-}
-
-# ::mime::setheader --
-#
-#    mime::setheader writes, appends to, or deletes the value associated
-#    with a key in the header.
-#
-#    The value for -mode is one of:
-#
-#       write: the key/value is either created or overwritten (the
-#       default);
-#
-#       append: a new value is appended for the key (creating it as
-#       necessary); or,
-#
-#       delete: all values associated with the key are removed (the
-#       "value" parameter is ignored).
-#
-#    Regardless, mime::setheader returns the previous value associated
-#    with the key.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       key        The name of the key whose value should be set.
-#       value      The value for the header key to be set to.
-#       args       An optional argument of the form:
-#                  ?-mode "write" | "append" | "delete"?
-#
-# Results:
-#       Returns previous value associated with the specified key.
-
-proc ::mime::setheader {token key value args} {
-    # FRINK: nocheck
-    variable internal
-    variable $token
-    upvar 0 $token state
-
-    array set options [list -mode write]
-    array set options $args
-
-    set lower [string tolower $key]
-    array set header $state(header)
-    if {[set x [lsearch -exact $state(lowerL) $lower]] < 0} {
-        #TODO: this code path is not tested
-        if {$options(-mode) eq {delete}} {
-            error "key $key not in header"
-        }
-
-        lappend state(lowerL) $lower
-        lappend state(mixedL) $key
-
-        set result {}
-    } else {
-        set result $header($lower)
-    }
-    switch -- $options(-mode) {
-	append - write {
-	    if {!$internal} {
-		switch -- $lower {
-		    content-md5
-			-
-		    content-type
-			-
-		    content-transfer-encoding
-			-
-		    mime-version {
-			set values [getheader $token $lower]
-			if {$value ni $values} {
-			    error "key $key may not be set"
-			}
-		    }
-		    default {# Skip key}
-		}
-	    }
-	    switch -- $options(-mode) {
-		append {
-		    lappend header($lower) $value
-		}
-		write {
-		    set header($lower) [list $value]
-		}
-	    }
-	}
-        delete {
-            unset header($lower)
-            set state(lowerL) [lreplace $state(lowerL) $x $x]
-            set state(mixedL) [lreplace $state(mixedL) $x $x]
-        }
-
-        default {
-            error "unknown value for -mode $options(-mode)"
-        }
-    }
-
-    set state(header) [array get header]
-    return $result
-}
-
-# ::mime::getbody --
-#
-#    mime::getbody returns the body of a leaf MIME part in canonical form.
-#
-#    If the -command option is present, then it is repeatedly invoked
-#    with a fragment of the body as this:
-#
-#        uplevel #0 $callback [list "data" $fragment]
-#
-#    (The -blocksize option, if present, specifies the maximum size of
-#    each fragment passed to the callback.)
-#    When the end of the body is reached, the callback is invoked as:
-#
-#        uplevel #0 $callback "end"
-#
-#    Alternatively, if an error occurs, the callback is invoked as:
-#
-#        uplevel #0 $callback [list "error" reason]
-#
-#    Regardless, the return value of the final invocation of the callback
-#    is propagated upwards by mime::getbody.
-#
-#    If the -command option is absent, then the return value of
-#    mime::getbody is a string containing the MIME part's entire body.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       args       Optional arguments of the form:
-#                  ?-decode? ?-command callback ?-blocksize octets? ?
-#
-# Results:
-#       Returns a string containing the MIME part's entire body, or
-#       if '-command' is specified, the return value of the command
-#       is returned.
-
-proc ::mime::getbody {token args} {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set decode 0
-    if {[set pos [lsearch -exact $args -decode]] >= 0} {
-        set decode 1
-        set args [lreplace $args $pos $pos]
-    }
-
-    array set options [list -command [
-        list mime::getbodyaux $token] -blocksize 4096]
-    array set options $args
-    if {$options(-blocksize) < 1} {
-        error "-blocksize expects a positive integer, not $options(-blocksize)"
-    }
-
-    set code 0
-    set ecode {}
-    set einfo {}
-
-    switch -- $state(value)/$state(canonicalP) {
-        file/0 {
-            set fd [open $state(file) RDONLY]
-
-            set code [catch {
-                fconfigure $fd -translation binary
-                seek $fd [set pos $state(offset)] start
-                set last [expr {$state(offset) + $state(count) - 1}]
-
-                set fragment {}
-                while {$pos <= $last} {
-                    if {[set cc [
-                        expr {($last - $pos) + 1}]] > $options(-blocksize)} {
-                        set cc $options(-blocksize)
-                    }
-                    incr pos [set len [
-                        string length [set chunk [read $fd $cc]]]]
-                    switch -exact -- $state(encoding) {
-                        base64
-                            -
-                        quoted-printable {
-                            if {([set x [string last \n $chunk]] > 0) \
-                                    && ($x + 1 != $len)} {
-                                set chunk [string range $chunk 0 $x]
-                                seek $fd [incr pos [expr {($x + 1) - $len}]] start
-                            }
-                            set chunk [
-                                $state(encoding) -mode decode -- $chunk]
-                        }
-                        7bit - 8bit - binary - {} {
-                            # Bugfix for [#477088]
-                            # Go ahead, leave chunk alone
-                        }
-                        default {
-                            error "Can't handle content encoding \"$state(encoding)\""
-                        }
-                    }
-                    append fragment $chunk
-
-                    set cc [expr {$options(-blocksize) - 1}]
-                    while {[string length $fragment] > $options(-blocksize)} {
-                        uplevel #0 $options(-command) [
-                            list data [string range $fragment 0 $cc]]
-
-                        set fragment [
-                            string range $fragment $options(-blocksize) end]
-                    }
-                }
-                if {[string length $fragment] > 0} {
-                    uplevel #0 $options(-command) [list data $fragment]
-                }
-            } result]
-            set ecode $errorCode
-            set einfo $errorInfo
-
-            catch {close $fd}
-        }
-
-        file/1 {
-            set fd [open $state(file) RDONLY]
-
-            set code [catch {
-                fconfigure $fd -translation binary
-
-                while {[string length [
-                    set fragment [read $fd $options(-blocksize)]]] > 0} {
-                        uplevel #0 $options(-command) [list data $fragment]
-                    }
-            } result]
-            set ecode $errorCode
-            set einfo $errorInfo
-
-            catch {close $fd}
-        }
-
-        parts/0
-            -
-        parts/1 {
-            error {MIME part isn't a leaf}
-        }
-
-        string/0
-            -
-        string/1 {
-            switch -- $state(encoding)/$state(canonicalP) {
-                base64/0
-                    -
-                quoted-printable/0 {
-                    set fragment [
-                        $state(encoding) -mode decode -- $state(string)]
-                }
-
-                default {
-                    # Not a bugfix for [#477088], but clarification
-                    # This handles no-encoding, 7bit, 8bit, and binary.
-                    set fragment $state(string)
-                }
-            }
-
-            set code [catch {
-                set cc [expr {$options(-blocksize) -1}]
-                while {[string length $fragment] > $options(-blocksize)} {
-                    uplevel #0 $options(-command) [
-                        list data [string range $fragment 0 $cc]]
-
-                    set fragment [
-                        string range $fragment $options(-blocksize) end]
-                }
-                if {[string length $fragment] > 0} {
-                    uplevel #0 $options(-command) [list data $fragment]
-                }
-            } result]
-            set ecode $errorCode
-            set einfo $errorInfo
-        }
-        default {
-            error "Unknown combination \"$state(value)/$state(canonicalP)\""
-        }
-    }
-
-    set code [catch {
-        if {$code} {
-            uplevel #0 $options(-command) [list error $result]
-        } else {
-            uplevel #0 $options(-command) [list end]
-        }
-    } result]
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    if {$code} {
-        return -code $code -errorinfo $einfo -errorcode $ecode $result
-    }
-
-    if {$decode} {
-        array set params [mime::getproperty $token params]
-
-        if {[info exists params(charset)]} {
-            set charset $params(charset)
-        } else {
-            set charset US-ASCII
-        }
-
-        set enc [reversemapencoding $charset]
-        if {$enc ne {}} {
-            set result [::encoding convertfrom $enc $result]
-        } else {
-            return -code error "-decode failed: can't reversemap charset $charset"
-        }
-    }
-
-    return $result
-}
-
-# ::mime::getbodyaux --
-#
-#    Builds up the body of the message, fragment by fragment.  When
-#    the entire message has been retrieved, it is returned.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       reason     One of 'data', 'end', or 'error'.
-#       fragment   The section of data data fragment to extract a
-#                  string from.
-#
-# Results:
-#       Returns nothing, except when called with the 'end' argument
-#       in which case it returns a string that contains all of the
-#       data that 'getbodyaux' has been called with.  Will throw an
-#       error if it is called with the reason of 'error'.
-
-proc ::mime::getbodyaux {token reason {fragment {}}} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    switch $reason {
-        data {
-            append state(getbody) $fragment
-            return {}
-        }
-
-        end {
-            if {[info exists state(getbody)]} {
-                set result $state(getbody)
-                unset state(getbody)
-            } else {
-                set result {}
-            }
-
-            return $result
-        }
-
-        error {
-            catch {unset state(getbody)}
-            error $reason
-        }
-
-        default {
-            error "Unknown reason \"$reason\""
-        }
-    }
-}
-
-# ::mime::copymessage --
-#
-#    mime::copymessage copies the MIME part to the specified channel.
-#
-#    mime::copymessage operates synchronously, and uses fileevent to
-#    allow asynchronous operations to proceed independently.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       channel    The channel to copy the message to.
-#
-# Results:
-#       Returns nothing unless an error is thrown while the message
-#       is being written to the channel.
-
-proc ::mime::copymessage {token channel} {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set openP [info exists state(fd)]
-
-    set code [catch {mime::copymessageaux $token $channel} result]
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    if {!$openP && [info exists state(fd)]} {
-        if {![info exists state(root)]} {
-            catch {close $state(fd)}
-        }
-        unset state(fd)
-    }
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# ::mime::copymessageaux --
-#
-#    mime::copymessageaux copies the MIME part to the specified channel.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#       channel    The channel to copy the message to.
-#
-# Results:
-#       Returns nothing unless an error is thrown while the message
-#       is being written to the channel.
-
-proc ::mime::copymessageaux {token channel} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set header $state(header)
-
-    set result {}
-    foreach {mixed value} [getheader $token] {
-	puts $channel "$mixed: $value"
-    }
-
-    set boundary $state(boundary) ;# computed by `getheader`
-
-    set converter {}
-    set encoding {}
-    if {$state(value) ne {parts}} {
-        if {$state(canonicalP)} {
-            if {[set encoding $state(encoding)] eq {}} {
-                set encoding [encoding $token]
-            }
-            if {$encoding ne {}} {
-                puts $channel "Content-Transfer-Encoding: $encoding"
-            }
-            switch -- $encoding {
-                base64
-                    -
-                quoted-printable {
-                    set converter $encoding
-                }
-                7bit - 8bit - binary - {} {
-                    # Bugfix for [#477088], also [#539952]
-                    # Go ahead
-                }
-                default {
-                    error "Can't handle content encoding \"$encoding\""
-                }
-            }
-        }
-    }
-
-    if {[info exists state(error)]} {
-        unset state(error)
-    }
-
-    switch -- $state(value) {
-        file {
-            set closeP 1
-            if {[info exists state(root)]} {
-                # FRINK: nocheck
-                variable $state(root)
-                upvar 0 $state(root) root
-
-                if {[info exists root(fd)]} {
-                    set fd $root(fd)
-                    set closeP 0
-                } else {
-                    set fd [set state(fd) [open $state(file) RDONLY]]
-                }
-                set size $state(count)
-            } else {
-                set fd [set state(fd) [open $state(file) RDONLY]]
-                # read until eof
-                set size -1
-            }
-            seek $fd $state(offset) start
-            if {$closeP} {
-                fconfigure $fd -translation binary
-            }
-
-            puts $channel {}
-
-            while {$size != 0 && ![eof $fd]} {
-                if {$size < 0 || $size > 32766} {
-                    set X [read $fd 32766]
-                } else {
-                    set X [read $fd $size]
-                }
-                if {$size > 0} {
-                    set size [expr {$size - [string length $X]}]
-                }
-                if {$converter eq {}} {
-                    puts -nonewline $channel $X
-                } else {
-                    puts -nonewline $channel [$converter -mode encode -- $X]
-                }
-            }
-
-            if {$closeP} {
-                catch {close $state(fd)}
-                unset state(fd)
-            }
-        }
-
-        parts {
-            if {
-		![info exists state(root)]
-		&&
-		[info exists state(file)]
-	    } {
-                set state(fd) [open $state(file) RDONLY]
-                fconfigure $state(fd) -translation binary
-            }
-
-            switch -glob -- $state(content) {
-                message/* {
-                    puts $channel {}
-                    foreach part $state(parts) {
-                        mime::copymessage $part $channel
-                        break
-                    }
-                }
-
-                default {
-                    # Note RFC 2046: See buildmessageaux for details.
-                    #
-                    # The boundary delimiter MUST occur at the
-                    # beginning of a line, i.e., following a CRLF, and
-                    # the initial CRLF is considered to be attached to
-                    # the boundary delimiter line rather than part of
-                    # the preceding part.
-                    #
-                    # - The above means that the CRLF before $boundary
-                    #   is needed per the RFC, and the parts must not
-                    #   have a closing CRLF of their own. See Tcllib bug
-                    #   1213527, and patch 1254934 for the problems when
-                    #   both file/string branches added CRLF after the
-                    #   body parts.
-
-
-                    foreach part $state(parts) {
-                        puts $channel \n--$boundary
-                        mime::copymessage $part $channel
-                    }
-                    puts $channel \n--$boundary--
-                }
-            }
-
-            if {[info exists state(fd)]} {
-                catch {close $state(fd)}
-                unset state(fd)
-            }
-        }
-
-        string {
-            if {[catch {fconfigure $channel -buffersize} blocksize]} {
-                set blocksize 4096
-            } elseif {$blocksize < 512} {
-                set blocksize 512
-            }
-            set blocksize [expr {($blocksize / 4) * 3}]
-
-            # [893516]
-            fconfigure $channel -buffersize $blocksize
-
-            puts $channel {}
-
-            #TODO: tests don't cover these paths
-            if {$converter eq {}} {
-                puts -nonewline $channel $state(string)
-            } else {
-                puts -nonewline $channel [$converter -mode encode -- $state(string)]
-            }
-        }
-        default {
-            error "Unknown value \"$state(value)\""
-        }
-    }
-
-    flush $channel
-
-    if {[info exists state(error)]} {
-        error $state(error)
-    }
-}
-
-# ::mime::buildmessage --
-#
-#     Like copymessage, but produces a string rather than writing the message into a channel.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#
-# Results:
-#       The message.
-
-proc ::mime::buildmessage token {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set openP [info exists state(fd)]
-
-    set code [catch {mime::buildmessageaux $token} result]
-    if {![info exists errorCode]} {
-        set ecode {}
-    } else {
-        set ecode $errorCode
-    }
-    set einfo $errorInfo
-
-    if {!$openP && [info exists state(fd)]} {
-        if {![info exists state(root)]} {
-            catch {close $state(fd)}
-        }
-        unset state(fd)
-    }
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-
-proc ::mime::buildmessageaux token {
-	set chan [tcl::chan::memchan]
-	chan configure $chan -translation crlf
-	copymessageaux $token $chan
-	seek $chan 0
-	chan configure $chan -translation binary
-	set res [read $chan]
-	close $chan
-	return $res
-}
-
-# ::mime::encoding --
-#
-#     Determines how a token is encoded.
-#
-# Arguments:
-#       token      The MIME token to parse.
-#
-# Results:
-#       Returns the encoding of the message (the null string, base64,
-#       or quoted-printable).
-
-proc ::mime::encoding {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    switch -glob -- $state(content) {
-        audio/*
-            -
-        image/*
-            -
-        video/* {
-            return base64
-        }
-
-        message/*
-            -
-        multipart/* {
-            return {}
-        }
-        default {# Skip}
-    }
-
-    set asciiP 1
-    set lineP 1
-    switch -- $state(value) {
-        file {
-            set fd [open $state(file) RDONLY]
-            fconfigure $fd -translation binary
-
-            while {[gets $fd line] >= 0} {
-                if {$asciiP} {
-                    set asciiP [encodingasciiP $line]
-                }
-                if {$lineP} {
-                    set lineP [encodinglineP $line]
-                }
-                if {(!$asciiP) && (!$lineP)} {
-                    break
-                }
-            }
-
-            catch {close $fd}
-        }
-
-        parts {
-            return {}
-        }
-
-        string {
-            foreach line [split $state(string) "\n"] {
-                if {$asciiP} {
-                    set asciiP [encodingasciiP $line]
-                }
-                if {$lineP} {
-                    set lineP [encodinglineP $line]
-                }
-                if {(!$asciiP) && (!$lineP)} {
-                    break
-                }
-            }
-        }
-        default {
-            error "Unknown value \"$state(value)\""
-        }
-    }
-
-    switch -glob -- $state(content) {
-        text/* {
-            if {!$asciiP} {
-                #TODO: this path is not covered by tests
-                foreach {k v} $state(params) {
-                    if {$k eq "charset"} {
-                        set v [string tolower $v]
-                        if {($v ne "us-ascii") \
-                                && (![string match {iso-8859-[1-8]} $v])} {
-                            return base64
-                        }
-
-                        break
-                    }
-                }
-            }
-
-            if {!$lineP} {
-                return quoted-printable
-            }
-        }
-
-
-        default {
-            if {(!$asciiP) || (!$lineP)} {
-                return base64
-            }
-        }
-    }
-
-    return {}
-}
-
-# ::mime::encodingasciiP --
-#
-#     Checks if a string is a pure ascii string, or if it has a non-standard
-#     form.
-#
-# Arguments:
-#       line    The line to check.
-#
-# Results:
-#       Returns 1 if \r only occurs at the end of lines, and if all
-#       characters in the line are between the ASCII codes of 32 and 126.
-
-proc ::mime::encodingasciiP {line} {
-    foreach c [split $line {}] {
-        switch -- $c {
-            { } - \t - \r - \n {
-            }
-
-            default {
-                binary scan $c c c
-                if {($c < 32) || ($c > 126)} {
-                    return 0
-                }
-            }
-        }
-    }
-    if {
-	[set r [string first \r $line]] < 0
-	||
-	$r == {[string length $line] - 1}
-    } {
-        return 1
-    }
-
-    return 0
-}
-
-# ::mime::encodinglineP --
-#
-#     Checks if a string is a line is valid to be processed.
-#
-# Arguments:
-#       line    The line to check.
-#
-# Results:
-#       Returns 1 the line is less than 76 characters long, the line
-#       contains more characters than just whitespace, the line does
-#       not start with a '.', and the line does not start with 'From '.
-
-proc ::mime::encodinglineP {line} {
-    if {([string length $line] > 76) \
-            || ($line ne [string trimright $line]) \
-            || ([string first . $line] == 0) \
-            || ([string first {From } $line] == 0)} {
-        return 0
-    }
-
-    return 1
-}
-
-# ::mime::fcopy --
-#
-#    Appears to be unused.
-#
-# Arguments:
-#
-# Results:
-#
-
-proc ::mime::fcopy {token count {error {}}} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {$error ne {}} {
-        set state(error) $error
-    }
-    set state(doneP) 1
-}
-
-# ::mime::scopy --
-#
-#    Copy a portion of the contents of a mime token to a channel.
-#
-# Arguments:
-#    token     The token containing the data to copy.
-#       channel   The channel to write the data to.
-#       offset    The location in the string to start copying
-#                 from.
-#       len       The amount of data to write.
-#       blocksize The block size for the write operation.
-#
-# Results:
-#    The specified portion of the string in the mime token is
-#       copied to the specified channel.
-
-proc ::mime::scopy {token channel offset len blocksize} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {$len <= 0} {
-        set state(doneP) 1
-        fileevent $channel writable {}
-        return
-    }
-
-    if {[set cc $len] > $blocksize} {
-        set cc $blocksize
-    }
-
-    if {[catch {
-	    puts -nonewline $channel [
-		string range $state(string) $offset [expr {$offset + $cc - 1}]]
-	    fileevent $channel writable [
-		list mime::scopy $token $channel [
-		    incr offset $cc] [incr len -$cc] $blocksize]
-	} result]
-    } {
-        set state(error) $result
-        set state(doneP) 1
-        fileevent $channel writable {}
-    }
-    return
-}
-
-# ::mime::qp_encode --
-#
-#    Tcl version of quote-printable encode
-#
-# Arguments:
-#    string        The string to quote.
-#       encoded_word  Boolean value to determine whether or not encoded words
-#                     (RFC 2047) should be handled or not. (optional)
-#
-# Results:
-#    The properly quoted string is returned.
-
-proc ::mime::qp_encode {string {encoded_word 0} {no_softbreak 0}} {
-    # 8.1+ improved string manipulation routines used.
-    # Replace outlying characters, characters that would normally
-    # be munged by EBCDIC gateways, and special Tcl characters "[\]{}
-    # with =xx sequence
-
-    if {$encoded_word} {
-        # Special processing for encoded words (RFC 2047)
-        set regexp {[\x00-\x08\x0B-\x1E\x21-\x24\x3D\x40\x5B-\x5E\x60\x7B-\xFF\x09\x5F\x3F]}
-	lappend mapChars { } _
-    } else {
-        set regexp {[\x00-\x08\x0B-\x1E\x21-\x24\x3D\x40\x5B-\x5E\x60\x7B-\xFF]}
-    }
-    regsub -all -- $regexp $string {[format =%02X [scan "\\&" %c]]} string
-
-    # Replace the format commands with their result
-
-    set string [subst -novariables $string]
-
-    # soft/hard newlines and other
-    # Funky cases for SMTP compatibility
-    lappend mapChars " \n" =20\n \t\n =09\n \n\.\n =2E\n "\nFrom " "\n=46rom "
-
-    set string [string map $mapChars $string]
-
-    # Break long lines - ugh
-
-    # Implementation of FR #503336
-    if {$no_softbreak} {
-        set result $string
-    } else {
-        set result {}
-        foreach line [split $string \n] {
-            while {[string length $line] > 72} {
-                set chunk [string range $line 0 72]
-                if {[regexp -- (=|=.)$ $chunk dummy end]} {
-
-                    # Don't break in the middle of a code
-
-                    set len [expr {72 - [string length $end]}]
-                    set chunk [string range $line 0 $len]
-                    incr len
-                    set line [string range $line $len end]
-                } else {
-                    set line [string range $line 73 end]
-                }
-                append result $chunk=\n
-            }
-            append result $line\n
-        }
-
-        # Trim off last \n, since the above code has the side-effect
-        # of adding an extra \n to the encoded string and return the
-        # result.
-        set result [string range $result 0 end-1]
-    }
-
-    # If the string ends in space or tab, replace with =xx
-
-    set lastChar [string index $result end]
-    if {$lastChar eq { }} {
-        set result [string replace $result end end =20]
-    } elseif {$lastChar eq "\t"} {
-        set result [string replace $result end end =09]
-    }
-
-    return $result
-}
-
-# ::mime::qp_decode --
-#
-#    Tcl version of quote-printable decode
-#
-# Arguments:
-#    string        The quoted-printable string to decode.
-#       encoded_word  Boolean value to determine whether or not encoded words
-#                     (RFC 2047) should be handled or not. (optional)
-#
-# Results:
-#    The decoded string is returned.
-
-proc ::mime::qp_decode {string {encoded_word 0}} {
-    # 8.1+ improved string manipulation routines used.
-    # Special processing for encoded words (RFC 2047)
-
-    if {$encoded_word} {
-        # _ == \x20, even if SPACE occupies a different code position
-        set string [string map [list _ \u0020] $string]
-    }
-
-    # smash the white-space at the ends of lines since that must've been
-    # generated by an MUA.
-
-    regsub -all -- {[ \t]+\n} $string \n string
-    set string [string trimright $string " \t"]
-
-    # Protect the backslash for later subst and
-    # smash soft newlines, has to occur after white-space smash
-    # and any encoded word modification.
-
-    #TODO: codepath not tested
-    set string [string map [list \\ {\\} =\n {}] $string]
-
-    # Decode specials
-
-    regsub -all -nocase {=([a-f0-9][a-f0-9])} $string {\\u00\1} string
-
-    # process \u unicode mapped chars
-
-    return [subst -novariables -nocommands $string]
-}
-
-# ::mime::parseaddress --
-#
-#       This was originally written circa 1982 in C. we're still using it
-#       because it recognizes virtually every buggy address syntax ever
-#       generated!
-#
-#       mime::parseaddress takes a string containing one or more 822-style
-#       address specifications and returns a list of dictionaries, for each
-#       address specified in the argument.
-#
-#    Each dictionary contains these properties:
-#
-#       property    value
-#       ========    =====
-#       address     local@domain
-#       comment     822-style comment
-#       domain      the domain part (rhs)
-#       error       non-empty on a parse error
-#       group       this address begins a group
-#       friendly    user-friendly rendering
-#       local       the local part (lhs)
-#       memberP     this address belongs to a group
-#       phrase      the phrase part
-#       proper      822-style address specification
-#       route       822-style route specification (obsolete)
-#
-#    Note that one or more of these properties may be empty.
-#
-# Arguments:
-#    string        The address string to parse
-#
-# Results:
-#    Returns a list of dictionaries, one element for each address
-#       specified in the argument.
-
-proc ::mime::parseaddress {string} {
-    global errorCode errorInfo
-
-    variable mime
-
-    set token [namespace current]::[incr mime(uid)]
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set code [catch {mime::parseaddressaux $token $string} result]
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    foreach name [array names state] {
-        unset state($name)
-    }
-    # FRINK: nocheck
-    catch {unset $token}
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# ::mime::parseaddressaux --
-#
-#       This was originally written circa 1982 in C. we're still using it
-#       because it recognizes virtually every buggy address syntax ever
-#       generated!
-#
-#       mime::parseaddressaux does the actually parsing for mime::parseaddress
-#
-#    Each dictionary contains these properties:
-#
-#       property    value
-#       ========    =====
-#       address     local@domain
-#       comment     822-style comment
-#       domain      the domain part (rhs)
-#       error       non-empty on a parse error
-#       group       this address begins a group
-#       friendly    user-friendly rendering
-#       local       the local part (lhs)
-#       memberP     this address belongs to a group
-#       phrase      the phrase part
-#       proper      822-style address specification
-#       route       822-style route specification (obsolete)
-#
-#    Note that one or more of these properties may be empty.
-#
-# Arguments:
-#    token         The MIME token to work from.
-#    string        The address string to parse
-#
-# Results:
-#    Returns a list of dictionaries, one for each address specified in the
-#    argument.
-
-proc ::mime::parseaddressaux {token string} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    variable addrtokenL
-    variable addrlexemeL
-
-    set state(input)   $string
-    set state(glevel)  0
-    set state(buffer)  {}
-    set state(lastC)   LX_END
-    set state(tokenL)  $addrtokenL
-    set state(lexemeL) $addrlexemeL
-
-    set result {}
-    while {[addr_next $token]} {
-        if {[set tail $state(domain)] ne {}} {
-            set tail @$state(domain)
-        } else {
-            set tail @[info hostname]
-        }
-        if {[set address $state(local)] ne {}} {
-            #TODO: this path is not covered by tests
-            append address $tail
-        }
-
-        if {$state(phrase) ne {}} {
-            #TODO: this path is not covered by tests
-            set state(phrase) [string trim $state(phrase) \"]
-            foreach t $state(tokenL) {
-                if {[string first $t $state(phrase)] >= 0} {
-                    #TODO:  is this quoting robust enough?
-                    set state(phrase) \"$state(phrase)\"
-                    break
-                }
-            }
-
-            set proper "$state(phrase) <$address>"
-        } else {
-            set proper $address
-        }
-
-        if {[set friendly $state(phrase)] eq {}} {
-            #TODO: this path is not covered by tests
-            if {[set note $state(comment)] ne {}} {
-                if {[string first ( $note] == 0} {
-                    set note [string trimleft [string range $note 1 end]]
-                }
-                if {
-		    [string last ) $note]
-                        == [set len [expr {[string length $note] - 1}]]
-		} {
-                    set note [string range $note 0 [expr {$len - 1}]]
-                }
-                set friendly $note
-            }
-
-            if {
-		$friendly eq {}
-		&&
-		[set mbox $state(local)] ne {}
-	    } {
-                #TODO: this path is not covered by tests
-                set mbox [string trim $mbox \"]
-
-                if {[string first / $mbox] != 0} {
-                    set friendly $mbox
-                } elseif {[set friendly [addr_x400 $mbox PN]] ne {}} {
-                } elseif {
-		    [set friendly [addr_x400 $mbox S]] ne {}
-                    &&
-		    [set g [addr_x400 $mbox G]] ne {}
-		} {
-                    set friendly "$g $friendly"
-                }
-
-                if {$friendly eq {}} {
-                    set friendly $mbox
-                }
-            }
-        }
-        set friendly [string trim $friendly \"]
-
-        lappend result [list address  $address        \
-                             comment  $state(comment) \
-                             domain   $state(domain)  \
-                             error    $state(error)   \
-                             friendly $friendly       \
-                             group    $state(group)   \
-                             local    $state(local)   \
-                             memberP  $state(memberP) \
-                             phrase   $state(phrase)  \
-                             proper   $proper         \
-                             route    $state(route)]
-
-    }
-
-    unset {*}{
-	state(input)
-	state(glevel)
-	state(buffer)
-	state(lastC)
-	state(tokenL)
-	state(lexemeL)
-    }
-
-    return $result
-}
-
-# ::mime::addr_next --
-#
-#       Locate the next address in a mime token.
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns 1 if there is another address, and 0 if there is not.
-
-proc ::mime::addr_next {token} {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-    set nocomplain [package vsatisfies [package provide Tcl] 8.4]
-    foreach prop {comment domain error group local memberP phrase route} {
-        if {$nocomplain} {
-            unset -nocomplain state($prop)
-        } else {
-            if {[catch {unset state($prop)}]} {set ::errorInfo {}}
-        }
-    }
-
-    switch -- [set code [catch {mime::addr_specification $token} result]] {
-        0 {
-            if {!$result} {
-                return 0
-            }
-
-            switch -- $state(lastC) {
-                LX_COMMA
-                    -
-                LX_END {
-                }
-                default {
-                    # catch trailing comments...
-                    set lookahead $state(input)
-                    mime::parselexeme $token
-                    set state(input) $lookahead
-                }
-            }
-        }
-
-        7 {
-            set state(error) $result
-
-            while {1} {
-                switch -- $state(lastC) {
-                    LX_COMMA
-                        -
-                    LX_END {
-                        break
-                    }
-
-                    default {
-                        mime::parselexeme $token
-                    }
-                }
-            }
-        }
-
-        default {
-            set ecode $errorCode
-            set einfo $errorInfo
-
-            return -code $code -errorinfo $einfo -errorcode $ecode $result
-        }
-    }
-
-    foreach prop {comment domain error group local memberP phrase route} {
-        if {![info exists state($prop)]} {
-            set state($prop) {}
-        }
-    }
-
-    return 1
-}
-
-# ::mime::addr_specification --
-#
-#   Uses lookahead parsing to determine whether there is another
-#   valid e-mail address or not.  Throws errors if unrecognized
-#   or invalid e-mail address syntax is used.
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns 1 if there is another address, and 0 if there is not.
-
-proc ::mime::addr_specification {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set lookahead $state(input)
-    switch -- [parselexeme $token] {
-        LX_ATOM
-            -
-        LX_QSTRING {
-            set state(phrase) $state(buffer)
-        }
-
-        LX_SEMICOLON {
-            if {[incr state(glevel) -1] < 0} {
-                return -code 7 "extraneous semi-colon"
-            }
-
-            catch {unset state(comment)}
-            return [addr_specification $token]
-        }
-
-        LX_COMMA {
-            catch {unset state(comment)}
-            return [addr_specification $token]
-        }
-
-        LX_END {
-            return 0
-        }
-
-        LX_LBRACKET {
-            return [addr_routeaddr $token]
-        }
-
-        LX_ATSIGN {
-            set state(input) $lookahead
-            return [addr_routeaddr $token 0]
-        }
-
-        default {
-            return -code 7 [
-		format "unexpected character at beginning (found %s)" \
-		   $state(buffer)]
-        }
-    }
-
-    switch -- [parselexeme $token] {
-        LX_ATOM
-            -
-        LX_QSTRING {
-            append state(phrase) " " $state(buffer)
-
-            return [addr_phrase $token]
-        }
-
-        LX_LBRACKET {
-            return [addr_routeaddr $token]
-        }
-
-        LX_COLON {
-            return [addr_group $token]
-        }
-
-        LX_DOT {
-            set state(local) "$state(phrase)$state(buffer)"
-            unset state(phrase)
-            mime::addr_routeaddr $token 0
-            mime::addr_end $token
-        }
-
-        LX_ATSIGN {
-            set state(memberP) $state(glevel)
-            set state(local) $state(phrase)
-            unset state(phrase)
-            mime::addr_domain $token
-            mime::addr_end $token
-        }
-
-        LX_SEMICOLON
-            -
-        LX_COMMA
-            -
-        LX_END {
-            set state(memberP) $state(glevel)
-            if {
-		$state(lastC) eq "LX_SEMICOLON"
-		&&
-		([incr state(glevel) -1] < 0)
-	    } {
-                #TODO: this path is not covered by tests
-                return -code 7 "extraneous semi-colon"
-            }
-
-            set state(local) $state(phrase)
-            unset state(phrase)
-        }
-
-        default {
-            return -code 7 [
-                format "expecting mailbox (found %s)" $state(buffer)]
-        }
-    }
-
-    return 1
-}
-
-# ::mime::addr_routeaddr --
-#
-#       Parses the domain portion of an e-mail address.  Finds the '@'
-#       sign and then calls mime::addr_route to verify the domain.
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns 1 if there is another address, and 0 if there is not.
-
-proc ::mime::addr_routeaddr {token {checkP 1}} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set lookahead $state(input)
-    if {[parselexeme $token] eq "LX_ATSIGN"} {
-        #TODO: this path is not covered by tests
-        mime::addr_route $token
-    } else {
-        set state(input) $lookahead
-    }
-
-    mime::addr_local $token
-
-    switch -- $state(lastC) {
-        LX_ATSIGN {
-            mime::addr_domain $token
-        }
-
-        LX_SEMICOLON
-            -
-        LX_RBRACKET
-            -
-        LX_COMMA
-            -
-        LX_END {
-        }
-
-        default {
-            return -code 7 [
-                format "expecting at-sign after local-part (found %s)" \
-                $state(buffer)]
-        }
-    }
-
-    if {($checkP) && ($state(lastC) ne "LX_RBRACKET")} {
-        return -code 7 [
-            format "expecting right-bracket (found %s)" $state(buffer)]
-    }
-
-    return 1
-}
-
-# ::mime::addr_route --
-#
-#    Attempts to parse the portion of the e-mail address after the @.
-#    Tries to verify that the domain definition has a valid form.
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-proc ::mime::addr_route {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set state(route) @
-
-    while 1 {
-        switch -- [parselexeme $token] {
-            LX_ATOM
-                -
-            LX_DLITERAL {
-                append state(route) $state(buffer)
-            }
-
-            default {
-                return -code 7 \
-                       [format "expecting sub-route in route-part (found %s)" \
-                               $state(buffer)]
-            }
-        }
-
-        switch -- [parselexeme $token] {
-            LX_COMMA {
-                append state(route) $state(buffer)
-                while 1 {
-                    switch -- [parselexeme $token] {
-                        LX_COMMA {
-                        }
-
-                        LX_ATSIGN {
-                            append state(route) $state(buffer)
-                            break
-                        }
-
-                        default {
-                            return -code 7 \
-                                   [format "expecting at-sign in route (found %s)" \
-                                           $state(buffer)]
-                        }
-                    }
-                }
-            }
-
-            LX_ATSIGN
-                -
-            LX_DOT {
-                append state(route) $state(buffer)
-            }
-
-            LX_COLON {
-                append state(route) $state(buffer)
-                return
-            }
-
-            default {
-                return -code 7 [
-		    format "expecting colon to terminate route (found %s)" \
-			$state(buffer)]
-            }
-        }
-    }
-}
-
-# ::mime::addr_domain --
-#
-#    Attempts to parse the portion of the e-mail address after the @.
-#    Tries to verify that the domain definition has a valid form.
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-proc ::mime::addr_domain {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    while 1 {
-        switch -- [parselexeme $token] {
-            LX_ATOM
-                -
-            LX_DLITERAL {
-                append state(domain) $state(buffer)
-            }
-
-            default {
-                return -code 7 [
-		    format "expecting sub-domain in domain-part (found %s)" \
-			$state(buffer)]
-            }
-        }
-
-        switch -- [parselexeme $token] {
-            LX_DOT {
-                append state(domain) $state(buffer)
-            }
-
-            LX_ATSIGN {
-                append state(local) % $state(domain)
-                unset state(domain)
-            }
-
-            default {
-                return
-            }
-        }
-    }
-}
-
-# ::mime::addr_local --
-#
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-proc ::mime::addr_local {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set state(memberP) $state(glevel)
-
-    while 1 {
-        switch -- [parselexeme $token] {
-            LX_ATOM
-                -
-            LX_QSTRING {
-                append state(local) $state(buffer)
-            }
-
-            default {
-                return -code 7 \
-                       [format "expecting mailbox in local-part (found %s)" \
-                               $state(buffer)]
-            }
-        }
-
-        switch -- [parselexeme $token] {
-            LX_DOT {
-                append state(local) $state(buffer)
-            }
-
-            default {
-                return
-            }
-        }
-    }
-}
-
-# ::mime::addr_phrase --
-#
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-
-proc ::mime::addr_phrase {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    while {1} {
-        switch -- [parselexeme $token] {
-            LX_ATOM
-                -
-            LX_QSTRING {
-                append state(phrase) " " $state(buffer)
-            }
-
-            default {
-                break
-            }
-        }
-    }
-
-    switch -- $state(lastC) {
-        LX_LBRACKET {
-            return [addr_routeaddr $token]
-        }
-
-        LX_COLON {
-            return [addr_group $token]
-        }
-
-        LX_DOT {
-            append state(phrase) $state(buffer)
-            return [addr_phrase $token]
-        }
-
-        default {
-            return -code 7 [
-		format "found phrase instead of mailbox (%s%s)" \
-		    $state(phrase) $state(buffer)]
-        }
-    }
-}
-
-# ::mime::addr_group --
-#
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-proc ::mime::addr_group {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {[incr state(glevel)] > 1} {
-        return -code 7 [
-	    format "nested groups not allowed (found %s)" $state(phrase)]
-    }
-
-    set state(group) $state(phrase)
-    unset state(phrase)
-
-    set lookahead $state(input)
-    while 1 {
-        switch -- [parselexeme $token] {
-            LX_SEMICOLON
-                -
-            LX_END {
-                set state(glevel) 0
-                return 1
-            }
-
-            LX_COMMA {
-            }
-
-            default {
-                set state(input) $lookahead
-                return [addr_specification $token]
-            }
-        }
-    }
-}
-
-# ::mime::addr_end --
-#
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-proc ::mime::addr_end {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    switch -- $state(lastC) {
-        LX_SEMICOLON {
-            if {[incr state(glevel) -1] < 0} {
-                return -code 7 "extraneous semi-colon"
-            }
-        }
-
-        LX_COMMA
-            -
-        LX_END {
-        }
-
-        default {
-            return -code 7 [
-		format "junk after local@domain (found %s)" $state(buffer)]
-        }
-    }
-}
-
-# ::mime::addr_x400 --
-#
-#
-# Arguments:
-#       token         The MIME token to work from.
-#
-# Results:
-#    Returns nothing if successful, and throws an error if invalid
-#       syntax is found.
-
-proc ::mime::addr_x400 {mbox key} {
-    if {[set x [string first /$key= [string toupper $mbox]]] < 0} {
-        return {}
-    }
-    set mbox [string range $mbox [expr {$x + [string length $key] + 2}] end]
-
-    if {[set x [string first / $mbox]] > 0} {
-        set mbox [string range $mbox 0 [expr {$x - 1}]]
-    }
-
-    return [string trim $mbox \"]
-}
-
-# ::mime::parsedatetime --
-#
-#    Fortunately the clock command in the Tcl 8.x core does all the heavy
-#    lifting for us (except for timezone calculations).
-#
-#    mime::parsedatetime takes a string containing an 822-style date-time
-#    specification and returns the specified property.
-#
-#    The list of properties and their ranges are:
-#
-#       property     range
-#       ========     =====
-#       clock        raw result of "clock scan"
-#       hour         0 .. 23
-#       lmonth       January, February, ..., December
-#       lweekday     Sunday, Monday, ... Saturday
-#       mday         1 .. 31
-#       min          0 .. 59
-#       mon          1 .. 12
-#       month        Jan, Feb, ..., Dec
-#       proper       822-style date-time specification
-#       rclock       elapsed seconds between then and now
-#       sec          0 .. 59
-#       wday         0 .. 6 (Sun .. Mon)
-#       weekday      Sun, Mon, ..., Sat
-#       yday         1 .. 366
-#       year         1900 ...
-#       zone         -720 .. 720 (minutes east of GMT)
-#
-# Arguments:
-#       value       Either a 822-style date-time specification or '-now'
-#                   if the current date/time should be used.
-#       property    The property (from the list above) to return
-#
-# Results:
-#    Returns the string value of the 'property' for the date/time that was
-#       specified in 'value'.
-
-namespace eval ::mime {
-        variable WDAYS_SHORT  [list Sun Mon Tue Wed Thu Fri Sat]
-        variable WDAYS_LONG   [list Sunday Monday Tuesday Wednesday Thursday \
-                                    Friday Saturday]
-
-        # Counting months starts at 1, so just insert a dummy element
-        # at index 0.
-        variable MONTHS_SHORT [list {} \
-                                    Jan Feb Mar Apr May Jun \
-                                    Jul Aug Sep Oct Nov Dec]
-        variable MONTHS_LONG  [list {} \
-                                    January February March April May June July \
-                                    August Sepember October November December]
-}
-proc ::mime::parsedatetime {value property} {
-    if {$value eq "-now"} {
-        set clock [clock seconds]
-    } elseif {[regexp {^(.*) ([+-])([0-9][0-9])([0-9][0-9])$} $value \
-	-> value zone_sign zone_hour zone_min]
-    } {
-        set clock [clock scan $value -gmt 1]
-        if {[info exists zone_min]} {
-            set zone_min [scan $zone_min %d]
-            set zone_hour [scan $zone_hour %d]
-            set zone [expr {60 * ($zone_min + 60 * $zone_hour)}]
-            if {$zone_sign eq "+"} {
-                set zone -$zone
-            }
-            incr clock $zone
-        }
-    } else {
-        set clock [clock scan $value]
-    }
-
-    switch -- $property {
-        clock {
-            return $clock
-        }
-
-        hour {
-            set value [clock format $clock -format %H]
-        }
-
-        lmonth {
-            variable MONTHS_LONG
-            return [lindex $MONTHS_LONG \
-                            [scan [clock format $clock -format %m] %d]]
-        }
-
-        lweekday {
-            variable WDAYS_LONG
-            return [lindex $WDAYS_LONG [clock format $clock -format %w]]
-        }
-
-        mday {
-            set value [clock format $clock -format %d]
-        }
-
-        min {
-            set value [clock format $clock -format %M]
-        }
-
-        mon {
-            set value [clock format $clock -format %m]
-        }
-
-        month {
-            variable MONTHS_SHORT
-            return [lindex $MONTHS_SHORT [
-		scan [clock format $clock -format %m] %d]]
-        }
-
-        proper {
-            set gmt [clock format $clock -format "%Y-%m-%d %H:%M:%S" -gmt true]
-            if {[set diff [expr {($clock-[clock scan $gmt]) / 60}]] < 0} {
-                set s -
-                set diff [expr {-($diff)}]
-            } else {
-                set s +
-            }
-            set zone [format %s%02d%02d $s [
-                expr {$diff / 60}] [expr {$diff % 60}]]
-
-            variable WDAYS_SHORT
-            set wday [lindex $WDAYS_SHORT [clock format $clock -format %w]]
-            variable MONTHS_SHORT
-            set mon [lindex $MONTHS_SHORT [
-		scan [clock format $clock -format %m] %d]]
-
-            return [
-		clock format $clock -format "$wday, %d $mon %Y %H:%M:%S $zone"]
-        }
-
-        rclock {
-            #TODO: these paths are not covered by tests
-            if {$value eq "-now"} {
-                return 0
-            } else {
-                return [expr {[clock seconds] - $clock}]
-            }
-        }
-
-        sec {
-            set value [clock format $clock -format %S]
-        }
-
-        wday {
-            return [clock format $clock -format %w]
-        }
-
-        weekday {
-            variable WDAYS_SHORT
-            return [lindex $WDAYS_SHORT [clock format $clock -format %w]]
-        }
-
-        yday {
-            set value [clock format $clock -format %j]
-        }
-
-        year {
-            set value [clock format $clock -format %Y]
-        }
-
-        zone {
-            set value [string trim [string map [list \t { }] $value]]
-            if {[set x [string last { } $value]] < 0} {
-                return 0
-            }
-            set value [string range $value [expr {$x + 1}] end]
-            switch -- [set s [string index $value 0]] {
-                + - - {
-                    if {$s eq "+"} {
-                        #TODO: This path is not covered by tests
-                        set s {}
-                    }
-                    set value [string trim [string range $value 1 end]]
-                    if {(
-			    [string length $value] != 4)
-			||
-			    [scan $value %2d%2d h m] != 2
-			||
-			    $h > 12
-			||
-			    $m > 59
-			||
-			    ($h == 12 && $m > 0)
-		    } {
-                        error "malformed timezone-specification: $value"
-                    }
-                    set value $s[expr {$h * 60 + $m}]
-                }
-
-                default {
-                    set value [string toupper $value]
-                    set z1 [list  UT GMT EST EDT CST CDT MST MDT PST PDT]
-                    set z2 [list   0   0  -5  -4  -6  -5  -7  -6  -8  -7]
-                    if {[set x [lsearch -exact $z1 $value]] < 0} {
-                        error "unrecognized timezone-mnemonic: $value"
-                    }
-                    set value [expr {[lindex $z2 $x] * 60}]
-                }
-            }
-        }
-
-        date2gmt
-            -
-        date2local
-            -
-        dst
-            -
-        sday
-            -
-        szone
-            -
-        tzone
-            -
-        default {
-            error "unknown property $property"
-        }
-    }
-
-    if {[set value [string trimleft $value 0]] eq {}} {
-        #TODO: this path is not covered by tests
-        set value 0
-    }
-    return $value
-}
-
-# ::mime::uniqueID --
-#
-#    Used to generate a 'globally unique identifier' for the content-id.
-#    The id is built from the pid, the current time, the hostname, and
-#    a counter that is incremented each time a message is sent.
-#
-# Arguments:
-#
-# Results:
-#    Returns the a string that contains the globally unique identifier
-#       that should be used for the Content-ID of an e-mail message.
-
-proc ::mime::uniqueID {} {
-    variable mime
-
-    return <[pid].[clock seconds].[incr mime(cid)]@[info hostname]>
-}
-
-# ::mime::parselexeme --
-#
-#    Used to implement a lookahead parser.
-#
-# Arguments:
-#       token    The MIME token to operate on.
-#
-# Results:
-#    Returns the next token found by the parser.
-
-proc ::mime::parselexeme {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set state(input) [string trimleft $state(input)]
-
-    set state(buffer) {}
-    if {$state(input) eq {}} {
-        set state(buffer) end-of-input
-        return [set state(lastC) LX_END]
-    }
-
-    set c [string index $state(input) 0]
-    set state(input) [string range $state(input) 1 end]
-
-    if {$c eq "("} {
-        set noteP 0
-        set quoteP 0
-
-        while 1 {
-            append state(buffer) $c
-
-            #TODO: some of these paths are not covered by tests
-            switch -- $c/$quoteP {
-                (/0 {
-                    incr noteP
-                }
-
-                \\/0 {
-                    set quoteP 1
-                }
-
-                )/0 {
-                    if {[incr noteP -1] < 1} {
-                        if {[info exists state(comment)]} {
-                            append state(comment) { }
-                        }
-                        append state(comment) $state(buffer)
-
-                        return [parselexeme $token]
-                    }
-                }
-
-                default {
-                    set quoteP 0
-                }
-            }
-
-            if {[set c [string index $state(input) 0]] eq {}} {
-                set state(buffer) "end-of-input during comment"
-                return [set state(lastC) LX_ERR]
-            }
-            set state(input) [string range $state(input) 1 end]
-        }
-    }
-
-    if {$c eq "\""} {
-        set firstP 1
-        set quoteP 0
-
-        while 1 {
-            append state(buffer) $c
-
-            switch -- $c/$quoteP {
-                "\\/0" {
-                    set quoteP 1
-                }
-
-                "\"/0" {
-                    if {!$firstP} {
-                        return [set state(lastC) LX_QSTRING]
-                    }
-                    set firstP 0
-                }
-
-                default {
-                    set quoteP 0
-                }
-            }
-
-            if {[set c [string index $state(input) 0]] eq {}} {
-                set state(buffer) "end-of-input during quoted-string"
-                return [set state(lastC) LX_ERR]
-            }
-            set state(input) [string range $state(input) 1 end]
-        }
-    }
-
-    if {$c eq {[}} {
-        set quoteP 0
-
-        while 1 {
-            append state(buffer) $c
-
-            switch -- $c/$quoteP {
-                \\/0 {
-                    set quoteP 1
-                }
-
-                ]/0 {
-                    return [set state(lastC) LX_DLITERAL]
-                }
-
-                default {
-                    set quoteP 0
-                }
-            }
-
-            if {[set c [string index $state(input) 0]] eq {}} {
-                set state(buffer) "end-of-input during domain-literal"
-                return [set state(lastC) LX_ERR]
-            }
-            set state(input) [string range $state(input) 1 end]
-        }
-    }
-
-    if {[set x [lsearch -exact $state(tokenL) $c]] >= 0} {
-        append state(buffer) $c
-
-        return [set state(lastC) [lindex $state(lexemeL) $x]]
-    }
-
-    while 1 {
-        append state(buffer) $c
-
-        switch -- [set c [string index $state(input) 0]] {
-            {} - " " - "\t" - "\n" {
-                break
-            }
-
-            default {
-                if {[lsearch -exact $state(tokenL) $c] >= 0} {
-                    break
-                }
-            }
-        }
-
-        set state(input) [string range $state(input) 1 end]
-    }
-
-    return [set state(lastC) LX_ATOM]
-}
-
-# ::mime::mapencoding --
-#
-#    mime::mapencodings maps tcl encodings onto the proper names for their
-#    MIME charset type.  This is only done for encodings whose charset types
-#    were known.  The remaining encodings return {} for now.
-#
-# Arguments:
-#       enc      The tcl encoding to map.
-#
-# Results:
-#    Returns the MIME charset type for the specified tcl encoding, or {}
-#       if none is known.
-
-proc ::mime::mapencoding {enc} {
-
-    variable encodings
-
-    if {[info exists encodings($enc)]} {
-        return $encodings($enc)
-    }
-    return {}
-}
-
-# ::mime::reversemapencoding --
-#
-#    mime::reversemapencodings maps MIME charset types onto tcl encoding names.
-#    Those that are unknown return {}.
-#
-# Arguments:
-#       mimeType  The MIME charset to convert into a tcl encoding type.
-#
-# Results:
-#    Returns the tcl encoding name for the specified mime charset, or {}
-#       if none is known.
-
-proc ::mime::reversemapencoding {mimeType} {
-
-    variable reversemap
-
-    set lmimeType [string tolower $mimeType]
-    if {[info exists reversemap($lmimeType)]} {
-        return $reversemap($lmimeType)
-    }
-    return {}
-}
-
-# ::mime::word_encode --
-#
-#    Word encodes strings as per RFC 2047.
-#
-# Arguments:
-#       charset   The character set to encode the message to.
-#       method    The encoding method (base64 or quoted-printable).
-#       string    The string to encode.
-#       ?-charset_encoded   0 or 1      Whether the data is already encoded
-#                                       in the specified charset (default 1)
-#       ?-maxlength         maxlength   The maximum length of each encoded
-#                                       word to return (default 66)
-#
-# Results:
-#    Returns a word encoded string.
-
-proc ::mime::word_encode {charset method string {args}} {
-
-    variable encodings
-
-    if {![info exists encodings($charset)]} {
-        error "unknown charset '$charset'"
-    }
-
-    if {$encodings($charset) eq {}} {
-        error "invalid charset '$charset'"
-    }
-
-    if {$method ne "base64" && $method ne "quoted-printable"} {
-        error "unknown method '$method', must be base64 or quoted-printable"
-    }
-
-    # default to encoded and a length that won't make the Subject header to long
-    array set options [list -charset_encoded 1 -maxlength 66]
-    array set options $args
-
-    if {$options(-charset_encoded)} {
-        set unencoded_string [::encoding convertfrom $charset $string]
-    } else {
-        set unencoded_string $string
-    }
-
-    set string_length [string length $unencoded_string]
-
-    if {!$string_length} {
-        return {}
-    }
-
-    set string_bytelength [string bytelength $unencoded_string]
-
-    # the 7 is for =?, ?Q?, ?= delimiters of the encoded word
-    set maxlength [expr {$options(-maxlength) - [string length $encodings($charset)] - 7}]
-    switch -exact -- $method {
-        base64 {
-            if {$maxlength < 4} {
-                error "maxlength $options(-maxlength) too short for chosen charset and encoding"
-            }
-            set count 0
-            set maxlength [expr {($maxlength / 4) * 3}]
-            while {$count < $string_length} {
-                set length 0
-                set enc_string {}
-                while {$length < $maxlength && $count < $string_length} {
-                    set char [string range $unencoded_string $count $count]
-                    set enc_char [::encoding convertto $charset $char]
-                    if {$length + [string length $enc_char] > $maxlength} {
-                        set length $maxlength
-                    } else {
-                        append enc_string $enc_char
-                        incr count
-                        incr length [string length $enc_char]
-                    }
-                }
-                set encoded_word [string map [
-                    list \n {}] [base64 -mode encode -- $enc_string]]
-                append result "=?$encodings($charset)?B?$encoded_word?=\n "
-            }
-            # Trim off last "\n ", since the above code has the side-effect
-            # of adding an extra "\n " to the encoded string.
-
-            set result [string range $result 0 end-2]
-        }
-        quoted-printable {
-            if {$maxlength < 1} {
-                error "maxlength $options(-maxlength) too short for chosen charset and encoding"
-            }
-            set count 0
-            while {$count < $string_length} {
-                set length 0
-                set encoded_word {}
-                while {$length < $maxlength && $count < $string_length} {
-                    set char [string range $unencoded_string $count $count]
-                    set enc_char [::encoding convertto $charset $char]
-                    set qp_enc_char [qp_encode $enc_char 1]
-                    set qp_enc_char_length [string length $qp_enc_char]
-                    if {$qp_enc_char_length > $maxlength} {
-                        error "maxlength $options(-maxlength) too short for chosen charset and encoding"
-                    }
-                    if {
-			$length + [string length $qp_enc_char] > $maxlength
-		    } {
-                        set length $maxlength
-                    } else {
-                        append encoded_word $qp_enc_char
-                        incr count
-                        incr length [string length $qp_enc_char]
-                    }
-                }
-                append result "=?$encodings($charset)?Q?$encoded_word?=\n "
-            }
-            # Trim off last "\n ", since the above code has the side-effect
-            # of adding an extra "\n " to the encoded string.
-
-            set result [string range $result 0 end-2]
-        }
-        {} {
-            # Go ahead
-        }
-        default {
-            error "Can't handle content encoding \"$method\""
-        }
-    }
-    return $result
-}
-
-# ::mime::word_decode --
-#
-#    Word decodes strings that have been word encoded as per RFC 2047.
-#
-# Arguments:
-#       encoded   The word encoded string to decode.
-#
-# Results:
-#    Returns the string that has been decoded from the encoded message.
-
-proc ::mime::word_decode {encoded} {
-
-    variable reversemap
-
-    if {[regexp -- {=\?([^?]+)\?(.)\?([^?]*)\?=} $encoded \
-	- charset method string] != 1
-    } {
-        error "malformed word-encoded expression '$encoded'"
-    }
-
-    set enc [reversemapencoding $charset]
-    if {$enc eq {}} {
-        error "unknown charset '$charset'"
-    }
-
-    switch -exact -- $method {
-        b -
-        B {
-            set method base64
-        }
-        q -
-        Q {
-            set method quoted-printable
-        }
-        default {
-            error "unknown method '$method', must be B or Q"
-        }
-    }
-
-    switch -exact -- $method {
-        base64 {
-            set result [base64 -mode decode -- $string]
-        }
-        quoted-printable {
-            set result [qp_decode $string 1]
-        }
-        {} {
-            # Go ahead
-        }
-        default {
-            error "Can't handle content encoding \"$method\""
-        }
-    }
-
-    return [list $enc $method $result]
-}
-
-# ::mime::field_decode --
-#
-#    Word decodes strings that have been word encoded as per RFC 2047
-#    and converts the string from the original encoding/charset to UTF.
-#
-# Arguments:
-#       field     The string to decode
-#
-# Results:
-#    Returns the decoded string in UTF.
-
-proc ::mime::field_decode {field} {
-    # ::mime::field_decode is broken.  Here's a new version.
-    # This code is in the public domain.  Don Libes <don@libes.com>
-
-    # Step through a field for mime-encoded words, building a new
-    # version with unencoded equivalents.
-
-    # Sorry about the grotesque regexp.  Most of it is sensible.  One
-    # notable fudge: the final $ is needed because of an apparent bug
-    # in the regexp engine where the preceding .* otherwise becomes
-    # non-greedy - perhaps because of the earlier ".*?", sigh.
-
-    while {[regexp {(.*?)(=\?(?:[^?]+)\?(?:.)\?(?:[^?]*)\?=)(.*)$} $field \
-	ignore prefix encoded field]
-    } {
-        # don't allow whitespace between encoded words per RFC 2047
-        if {{} ne $prefix} {
-            if {![string is space $prefix]} {
-                append result $prefix
-            }
-        }
-
-        set decoded [word_decode $encoded]
-        foreach {charset - string} $decoded break
-
-        append result [::encoding convertfrom $charset $string]
-    }
-    append result $field
-    return $result
-}
-
-## One-Shot Initialization
-
-::apply {{} {
-    variable encList
-    variable encAliasList
-    variable reversemap
-
-    foreach {enc mimeType} $encList {
-        if {$mimeType eq {}} continue
-	set reversemap([string tolower $mimeType]) $enc
-    }
-
-    foreach {enc mimeType} $encAliasList {
-        set reversemap([string tolower $mimeType]) $enc
-    }
-
-    # Drop the helper variables
-    unset encList encAliasList
-
-} ::mime}
-
-
-variable ::mime::internal 0
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/modpod-0.1.3.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/modpod-0.1.3.tm
deleted file mode 100644
index 540a1696..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/modpod-0.1.3.tm
+++ /dev/null
@@ -1,709 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application modpod 0.1.3
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin modpod_module_modpod 0 0.1.3]
-#[copyright "2024"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}] 
-#[require modpod]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of modpod
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by modpod
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require struct::set  ;#review
-package require punk::lib
-package require punk::args
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval modpod::class {
-    #*** !doctools
-    #[subsection {Namespace modpod::class}]
-    #[para] class definitions
-    if {[info commands [namespace current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval modpod {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-
-    variable connected
-    if {![info exists connected(to)]} {
-        set connected(to) list
-    }
-    variable modpodscript
-    set modpodscript [info script]
-    if {[string tolower [file extension $modpodscript]] eq ".tcl"} {
-        set connected(self) [file dirname $modpodscript]
-    } else {
-        #expecting a .tm
-        set connected(self) $modpodscript
-    }
-    variable loadables [info sharedlibextension]
-    variable sourceables {.tcl .tk} ;# .tm ?
-
-    #*** !doctools
-    #[subsection {Namespace modpod}]
-    #[para] Core API functions for modpod 
-    #[list_begin definitions]
-
-
-
-    #proc sample1 {p1 args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of sample1 
-    #    return "ok" 
-    #}
-
-    #old tar connect mechanism - review - not needed?
-    proc connect {args} {
-        puts stderr "modpod::connect--->>$args" 
-        set argd [punk::args::parse $args withdef {
-            @id -id ::modpod::connect
-            -type -default ""
-            @values -min 1 -max 1
-            path  -type string -minsize 1  -help "path to .tm file or toplevel .tcl script within #modpod-<pkg>-<ver> folder (unwrapped modpod)"
-        }]
-        catch {
-            punk::lib::showdict $argd ;#heavy dependencies
-        }
-        set opt_path [dict get $argd values path]
-        variable connected
-        set original_connectpath  $opt_path
-        set modpodpath [modpod::system::normalize $opt_path] ;#
-
-        if {$modpodpath in $connected(to)} {
-            return [dict create ok ALREADY_CONNECTED]
-        }
-        lappend connected(to) $modpodpath
-
-        set connected(connectpath,$opt_path) $original_connectpath
-        set is_sourced [expr {[file normalize $modpodpath] eq [file normalize [info script]]}]
-
-        set connected(location,$modpodpath) [file dirname $modpodpath]
-        set connected(startdata,$modpodpath) -1
-        set connected(type,$modpodpath) [dict get $argd opts -type]
-        set connected(fh,$modpodpath) ""
-
-        if {[string range [file tail $modpodpath] 0 7] eq "#modpod-"} {
-            set connected(type,$modpodpath) "unwrapped"
-            lassign [::split [file tail [file dirname $modpodpath]] -] connected(package,$modpodpath) connected(version,$modpodpath)
-            set this_pkg_tm_folder [file dirname [file dirname $modpodpath]]
-
-        } else {
-            #connect to .tm  but may still be unwrapped version available
-            lassign [::split [file rootname [file tail $modpodpath]] -] connected(package,$modpodpath) connected(version,$modpodpath)
-            set this_pkg_tm_folder [file dirname $modpodpath]
-            if {$connected(type,$modpodpath) ne "unwrapped"} {
-                #Not directly connected to unwrapped version - but may still be redirected there
-                set unwrappedFolder [file join $connected(location,$modpodpath) #modpod-$connected(package,$modpodpath)-$connected(version,$modpodpath)]
-                if {[file exists $unwrappedFolder]} {
-                    #folder with exact version-match must exist for redirect to 'unwrapped'
-                    set con(type,$modpodpath) "modpod-redirecting"
-                }
-            }
-
-        }
-        set unwrapped_tm_file [file join $this_pkg_tm_folder] "[set connected(package,$modpodpath)]-[set connected(version,$modpodpath)].tm"
-        set connected(tmfile,$modpodpath)
-        set tail_segments [list]
-        set lcase_tmfile_segments   [string tolower [file split $this_pkg_tm_folder]]
-        set lcase_modulepaths       [string tolower [tcl::tm::list]]
-        foreach lc_mpath $lcase_modulepaths {
-            set mpath_segments [file split $lc_mpath]
-            if {[llength [struct::set intersect $lcase_tmfile_segments $mpath_segments]] == [llength $mpath_segments]} {
-                set tail_segments [lrange [file split $this_pkg_tm_folder] [llength $mpath_segments] end]
-                break
-            }
-        }
-        if {[llength $tail_segments]} {
-            set connected(fullpackage,$modpodpath) [join [concat $tail_segments [set connected(package,$modpodpath)]] ::] ;#full name of package as used in package require
-        } else {
-            set connected(fullpackage,$modpodpath) [set connected(package,$modpodpath)]
-        }
-
-        switch -exact -- $connected(type,$modpodpath) {
-            "modpod-redirecting" {
-                #redirect to the unwrapped version
-                set loadscript_name [file join $unwrappedFolder #modpod-loadscript-$con(package,$modpod).tcl]
-
-            }
-            "unwrapped" {
-                if {[info commands ::thread::id] ne ""} {
-                    set from [pid],[thread::id]
-                } else {
-                    set from [pid]
-                }
-                #::modpod::Puts stderr "$from-> Package $connected(package,$modpodpath)-$connected(version,$modpodpath) is using unwrapped version: $modpodpath"
-                return [list ok ""]
-            }
-            default {
-                #autodetect .tm - zip/tar ?
-                #todo - use vfs ?
-
-                #connect to tarball - start at 1st header
-                set connected(startdata,$modpodpath) 0
-                set fh [open $modpodpath r]
-                set connected(fh,$modpodpath) $fh
-                fconfigure $fh -encoding iso8859-1 -translation binary -eofchar {}
-
-                if {$connected(startdata,$modpodpath) >= 0} {
-                    #verify we have a valid tar header
-                    if {![catch {::modpod::system::tar::readHeader [read $fh 512]}]} {
-                        seek $fh $connected(startdata,$modpodpath) start
-                        return [list ok $fh]
-                    } else {
-                        #error "cannot verify tar header"
-                        #try zipfs
-                        if {[info commands tcl::zipfs::mount] ne ""} {
-
-                        }
-                    }
-                }
-                lpop connected(to) end 
-                set connected(startdata,$modpodpath) -1
-                unset connected(fh,$modpodpath)
-                catch {close $fh}
-                return [dict create err {Does not appear to be a valid modpod}]
-            }
-        }
-    }
-    proc disconnect {{modpod ""}} {
-        variable connected
-        if {![llength $connected(to)]} {
-            return 0
-        }
-        if {$modpod eq ""} {
-            puts stderr "modpod::disconnect WARNING: modpod not explicitly specified. Disconnecting last connected: [lindex $connected(to) end]"
-            set modpod [lindex $connected(to) end]
-        }
-
-        if {[set posn [lsearch $connected(to) $modpod]] == -1} {
-            puts stderr "modpod::disconnect WARNING: disconnect called when not connected: $modpod"
-            return 0
-        }
-        if {[string length $connected(fh,$modpod)]} {
-            close $connected(fh,$modpod)
-        }
-        array unset connected *,$modpod
-        set connected(to) [lreplace $connected(to) $posn $posn]
-        return 1
-    }
-    proc get {args} {
-        set argd [punk::args::parse $args withdef {
-            @id     -id ::modpod::get
-            -from -default "" -help "path to pod"
-            @values -min 1 -max 1
-            filename
-        }]
-        set frompod [dict get $argd opts -from]
-        set filename [dict get $argd values filename]
-
-        variable connected
-        #//review
-        set modpod [::modpod::system::connect_if_not $frompod]
-        set fh $connected(fh,$modpod)
-        if {$connected(type,$modpod) eq "unwrapped"} {
-            #for unwrapped connection - $connected(location) already points to the #modpod-pkg-ver folder
-            if {[string range $filename 0 0 eq "/"]} {
-                #absolute path (?)
-                set path [file join $connected(location,$modpod) .. [string trim $filename /]]
-            } else {
-                #relative path - use #modpod-xxx as base
-                set path [file join $connected(location,$modpod) $filename]
-            }
-            set fd [open $path r]
-            #utf-8?
-            #fconfigure $fd -encoding iso8859-1 -translation binary
-            return [list ok [lindex [list [read $fd] [close $fd]]  0]]
-        } else {
-            #read from vfs
-            puts stderr "get $filename from wrapped pod '$frompod' not implemented"
-        }
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace modpod ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval modpod::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace modpod::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-    proc is_valid_tm_version {versionpart} {
-        #Needs to be suitable for use with Tcl's 'package vcompare'
-        if {![catch [list package vcompare $versionparts $versionparts]]} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    #zipfile is a pure zip at this point - ie no script/exe header
-    proc make_zip_modpod {args} {
-        set argd [punk::args::parse $args withdef {
-            @id -id ::modpod::lib::make_zip_modpod
-            -offsettype -default "archive" -choices {archive file} -help\
-                "Whether zip offsets are relative to start of file or start of zip-data within the file.
-                'archive' relative offsets are easier to work with (for writing/updating) in tools such as 7zip,peazip,
-                but other tools may be easier with 'file' relative offsets. (e.g info-zip,pkzip)
-                info-zip's 'zip -A' can sometimes convert archive-relative to file-relative.
-                -offsettype archive is equivalent to plain 'cat prefixfile zipfile > modulefile'"
-            @values -min 2 -max 2
-            zipfile  -type path -minsize 1 -help "path to plain zip file with subfolder #modpod-packagename-version containing .tm, data files and/or binaries"
-            outfile  -type path -minsize 1 -help "path to output file. Name should be of the form packagename-version.tm"
-        }]
-        set zipfile [dict get $argd values zipfile]
-        set outfile [dict get $argd values outfile]
-        set opt_offsettype [dict get $argd opts -offsettype]
-
-
-        set mount_stub [string map [list %offsettype% $opt_offsettype] {
-            #zip file with Tcl loader prepended. Requires either builtin zipfs, or vfs::zip to mount while zipped.
-            #Alternatively unzip so that extracted #modpod-package-version folder is in same folder as .tm file.
-            #generated using: modpod::lib::make_zip_modpod -offsettype %offsettype% <zipfile> <tmfile>
-            if {[catch {file normalize [info script]} modfile]} {
-                error "modpod zip stub error. Unable to determine module path. (possible safe interp restrictions?)"
-            }
-            if {$modfile eq "" || ![file exists $modfile]} {
-                error "modpod zip stub error. Unable to determine module path" 
-            }
-            set moddir [file dirname $modfile]
-            set mod_and_ver [file rootname [file tail $modfile]]
-            lassign [split $mod_and_ver -] moduletail version
-            if {[file exists $moddir/#modpod-$mod_and_ver]} {
-                source $moddir/#modpod-$mod_and_ver/$mod_and_ver.tm
-            } else {
-                #determine module namespace so we can mount appropriately
-                proc intersect {A B} {
-                    if {[llength $A] == 0} {return {}}
-                    if {[llength $B] == 0} {return {}}
-                    if {[llength $B] > [llength $A]} {
-                        set res $A
-                        set A $B
-                        set B $res
-                    }
-                    set res {}
-                    foreach x $A {set ($x) {}}
-                    foreach x $B {
-                        if {[info exists ($x)]} {
-                            lappend res $x
-                        }
-                    }
-                    return $res
-                }
-                set lcase_tmfile_segments [string tolower [file split $moddir]]
-                set lcase_modulepaths     [string tolower [tcl::tm::list]]
-                foreach lc_mpath $lcase_modulepaths {
-                    set mpath_segments [file split $lc_mpath]
-                    if {[llength [intersect $lcase_tmfile_segments $mpath_segments]] == [llength $mpath_segments]} {
-                        set tail_segments [lrange [file split $moddir] [llength $mpath_segments] end] ;#use properly cased tail
-                        break
-                    }
-                }
-                if {[llength $tail_segments]} {
-                    set fullpackage [join [concat $tail_segments $moduletail] ::] ;#full name of package as used in package require
-                    set mount_at #modpod/[file join {*}$tail_segments]/#mounted-modpod-$mod_and_ver
-                } else {
-                    set fullpackage $moduletail
-                    set mount_at #modpod/#mounted-modpod-$mod_and_ver
-                }
-
-                if {[info commands tcl::zipfs::mount] ne ""} {
-                    #argument order changed to be consistent with vfs::zip::Mount etc
-                    #early versions: zipfs::Mount mountpoint zipname
-                    #since 2023-09:  zipfs::Mount zipname mountpoint
-                    #don't use 'file exists' when testing mountpoints. (some versions at least give massive delays on windows platform for non-existance)
-                    #This is presumably related to // being interpreted as a network path 
-                    set mountpoints [dict keys [tcl::zipfs::mount]]
-                    if {"//zipfs:/$mount_at" ni $mountpoints} {
-                        #despite API change tcl::zipfs package version was unfortunately not updated - so we don't know argument order without trying it 
-                        if {[catch {
-                            #tcl::zipfs::mount $modfile //zipfs:/#mounted-modpod-$mod_and_ver ;#extremely slow if this is a wrong guess (artifact of aforementioned file exists issue ?)
-                            #puts "tcl::zipfs::mount $modfile $mount_at"
-                            tcl::zipfs::mount $modfile $mount_at 
-                        } errM]} {
-                            #try old api
-                            if {![catch {tcl::zipfs::mount //zipfs:/$mount_at $modfile}]} {
-                                puts stderr "modpod stub>>> tcl::zipfs::mount <file> <mountpoint> failed.\nbut old api: tcl::zipfs::mount <mountpoint> <file> succeeded\n tcl::zipfs::mount //zipfs://$mount_at  $modfile"
-                                puts stderr "Consider upgrading tcl runtime to one with fixed zipfs API"
-                            }
-                        }
-                        if {![file exists //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} {
-                            puts stderr "modpod stub>>> mount at //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm failed\n zipfs mounts: [zipfs mount]"
-                            #tcl::zipfs::unmount  //zipfs:/$mount_at
-                            error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage"
-                        }
-                    } 
-                    #  #modpod-$mod_and_ver subdirectory always present in the archive so it can be conveniently extracted and run in that form
-                    source //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm
-                } else {
-                    #fallback to slower vfs::zip
-                    #NB. We don't create the intermediate dirs - but the mount still works 
-                    if {![file exists $moddir/$mount_at]} {
-                        if {[catch {package require vfs::zip} errM]} {
-                            set msg "Unable to load vfs::zip package to mount module $mod_and_ver (and zipfs not available either)"
-                            append msg \n "If neither zipfs or vfs::zip are available - the module can still be loaded by manually unzipping the file $modfile in place."
-                            append msg \n "The unzipped data will all be contained in a folder named #modpod-$mod_and_ver in the same parent folder as $modfile"
-                            error $msg
-                        } else {
-                            set fd [vfs::zip::Mount $modfile $moddir/$mount_at]
-                            if {![file exists $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} {
-                                vfs::zip::Unmount $fd $moddir/$mount_at
-                                error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage"
-                            }
-                        }
-                    }
-                    source $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm
-                }
-            }
-            #zipped data follows
-        }]
-        #todo - test if supplied zipfile has #modpod-loadcript.tcl or some other script/executable before even creating?
-        append mount_stub \x1A
-        modpod::system::make_mountable_zip $zipfile $outfile $mount_stub $opt_offsettype
-
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace modpod::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval modpod::system {
-    #*** !doctools
-    #[subsection {Namespace modpod::system}]
-    #[para] Internal functions that are not part of the API 
-
-    #deflate,store only supported
-
-    #zipfile here is plain zip - no script/exe prefix part.
-    proc make_mountable_zip {zipfile outfile mount_stub {offsettype "archive"}} {
-        set inzip [open $zipfile r]
-        fconfigure $inzip -encoding iso8859-1 -translation binary
-        set out [open $outfile w+]
-        fconfigure $out -encoding iso8859-1 -translation binary
-        puts -nonewline $out $mount_stub
-        set stuboffset [tell $out]
-        lappend report "stub size: $stuboffset"
-        fcopy $inzip $out
-        close $inzip
-
-        set size [tell $out]
-        lappend report "modpod::system::make_mountable_zip"
-        lappend report "tmfile       : [file tail $outfile]"
-        lappend report "output size  : $size" 
-        lappend report "offsettype   : $offsettype"
-
-        if {$offsettype eq "file"} {
-            #make zip offsets relative to start of whole file including prepended script.
-            #same offset structure as Tcl's older 'zipfs mkimg' as at 2024-10
-            #2025 - zipfs mkimg fixed to use 'archive' offset.
-            #not editable by 7z,nanazip,peazip
-
-            #we aren't adding any new files/folders so we can edit the offsets in place
-
-            #Now seek in $out to find the end of directory signature:
-            #The structure itself is 24 bytes Long, followed by a maximum of 64Kbytes text
-            if {$size < 65559} {
-                set tailsearch_start 0
-            } else {
-                set tailsearch_start [expr {$size - 65559}]
-            }
-            seek $out $tailsearch_start
-            set data [read $out]
-            #EOCD - End of Central Directory record
-            #PK\5\6
-            set start_of_end [string last "\x50\x4b\x05\x06" $data]
-            #set start_of_end [expr {$start_of_end + $seek}]
-            #incr start_of_end $seek
-            set filerelative_eocd_posn [expr {$start_of_end + $tailsearch_start}]
-
-            lappend report "kitfile-relative START-OF-EOCD: $filerelative_eocd_posn"
-
-            seek $out $filerelative_eocd_posn
-            set end_of_ctrl_dir [read $out]
-            binary scan $end_of_ctrl_dir issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \
-                eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len)
-
-            lappend report "End of central directory: [array get eocd]"
-            seek $out [expr {$filerelative_eocd_posn+16}]
-
-            #adjust offset of start of central directory by the length of our sfx stub
-            puts -nonewline $out [binary format i [expr {$eocd(diroffset) + $stuboffset}]]
-            flush $out
-
-            seek $out $filerelative_eocd_posn
-            set end_of_ctrl_dir [read $out]
-            binary scan $end_of_ctrl_dir issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \
-                eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len)
-
-            # 0x06054b50 - end of central dir signature
-            puts stderr "$end_of_ctrl_dir"
-            puts stderr "comment_len: $eocd(comment_len)"
-            puts stderr "eocd sig: $eocd(signature) [punk::lib::dec2hex $eocd(signature)]"
-            lappend report "New dir offset: $eocd(diroffset)"
-            lappend report "Adjusting $eocd(totalnum) zip file items."
-            catch {
-                punk::lib::showdict -roottype list -chan stderr $report ;#heavy dependencies
-            }
-            
-            seek $out $eocd(diroffset)
-            for {set i 0} {$i <$eocd(totalnum)} {incr i} {
-                set current_file [tell $out]
-                set fileheader [read $out 46]
-                puts --------------
-                puts [ansistring VIEW -lf 1 $fileheader]
-                puts --------------
-                #binary scan $fileheader is2sss2ii2s3ssii x(sig) x(version) x(flags) x(method) \
-                #    x(date) x(crc32) x(sizes) x(lengths) x(diskno) x(iattr) x(eattr) x(offset)
-
-                binary scan $fileheader ic4sss2ii2s3ssii x(sig) x(version) x(flags) x(method) \
-                    x(date) x(crc32) x(sizes) x(lengths) x(diskno) x(iattr) x(eattr) x(offset)
-                set ::last_header $fileheader
-
-                puts "sig: $x(sig) (hex: [punk::lib::dec2hex $x(sig)])" 
-                puts "ver: $x(version)"
-                puts "method: $x(method)"
-
-                #PK\1\2 
-                #33639248 dec = 0x02014b50 - central directory file header signature
-                if { $x(sig) != 33639248 } {
-                    error "modpod::system::make_mountable_zip Bad file header signature at item $i: dec:$x(sig) hex:[punk::lib::dec2hex $x(sig)]" 
-                }
-                
-                foreach size $x(lengths) var {filename extrafield comment} {
-                    if { $size > 0 } {
-                        set x($var) [read $out $size] 
-                    } else {
-                        set x($var) ""
-                    }
-                }
-                set next_file [tell $out]
-                lappend report "file $i: $x(offset) $x(sizes) $x(filename)"
-                
-                seek $out [expr {$current_file+42}]
-                puts -nonewline $out [binary format i [expr {$x(offset)+$stuboffset}]]
-            
-                #verify:
-                flush $out
-                seek $out $current_file
-                set fileheader [read $out 46]
-                lappend report "old $x(offset) + $stuboffset"    
-                binary scan $fileheader is2sss2ii2s3ssii x(sig) x(version) x(flags) x(method) \
-                    x(date) x(crc32) x(sizes) x(lengths) x(diskno) x(iattr) x(eattr) x(offset)
-                lappend report "new $x(offset)"    
-            
-                seek $out $next_file        
-            }
-        }
-
-        close $out
-        #pdict/showdict reuire punk & textlib - ie lots of dependencies
-        #don't fall over just because of that
-        catch {
-            punk::lib::showdict -roottype list -chan stderr $report
-        }
-        #puts [join $report \n]
-        return
-    }
-
-    proc connect_if_not {{podpath ""}} {
-        upvar ::modpod::connected connected
-        set podpath [::modpod::system::normalize $podpath]
-        set docon 0
-        if {![llength $connected(to)]} {
-            if {![string length $podpath]} {
-                error "modpod::system::connect_if_not - Not connected to a modpod file, and no podpath specified"
-            } else {
-                set docon 1
-            }
-        } else {
-            if {![string length $podpath]} {
-                set podpath [lindex $connected(to) end]
-                puts stderr "modpod::system::connect_if_not WARNING: using last connected modpod:$podpath for operation\n -podpath not explicitly specified during operation: [info level -1]"
-            } else {
-                if {$podpath ni $connected(to)} {
-                    set docon 1
-                }
-            }
-        }
-        if {$docon} {
-            if {[lindex [modpod::connect $podpath]] 0] ne "ok"} {
-                error "modpod::system::connect_if_not error. file $podpath does not seem to be a valid modpod"
-            } else {
-                return $podpath
-            }
-        }
-        #we were already connected
-        return $podpath
-    }
-
-    proc myversion {} {
-        upvar ::modpod::connected connected
-        set script [info script]
-        if {![string length $script]} {
-            error "No result from \[info script\] - modpod::system::myversion should only be called from within a loading modpod"
-        }
-        set fname [file tail [file rootname [file normalize $script]]]
-        set scriptdir [file dirname $script]
-        
-        if {![string match "#modpod-*" $fname]} {
-            lassign [lrange [split $fname -] end-1 end] _pkgname version
-        } else {
-            lassign [scan [file tail [file rootname $script]] {#modpod-loadscript-%[a-z]-%s}] _pkgname version
-            if {![string length $version]} {
-                #try again on the name of the containing folder
-                lassign [scan [file tail $scriptdir] {#modpod-%[a-z]-%s}] _pkgname version
-                #todo - proper walk up the directory tree
-                if {![string length $version]} {
-                    #try again on the grandparent folder (this is a standard depth for sourced .tcl files in a modpod)
-                    lassign [scan [file tail [file dirname $scriptdir]] {#modpod-%[a-z]-%s}] _pkgname version
-                }
-            }
-        }
-
-        #tarjar::Log debug "'myversion' determined version for [info script]:  $version"
-        return $version
-    }
-
-    proc myname {} {
-        upvar ::modpod::connected connected
-        set script [info script]
-        if {![string length $script]} {
-            error "No result from \[info script\] - modpod::system::myname should only be called from within a loading modpod"
-        }
-        return $connected(fullpackage,$script)
-    }
-    proc myfullname {} {
-        upvar ::modpod::connected connected
-        set script [info script]
-        #set script [::tarjar::normalize $script] 
-        set script [file normalize $script]
-        if {![string length $script]} {
-            error "No result from \[info script\] - modpod::system::myfullname should only be called from within a loading tarjar"
-        }
-        return $::tarjar::connected(fullpackage,$script)
-    }
-    proc normalize {path} {
-        #newer versions of Tcl don't do tilde sub
-
-        #Tcl's 'file normalize' seems to do some unfortunate tilde substitution on windows.. (at least for relative paths)
-        # we take the assumption here that if Tcl's tilde substitution is required - it should be done before the path is provided to this function.
-        set matilda "<_tarjar_tilde_placeholder_>"  ;#token that is *unlikely* to occur in the wild, and is somewhat self describing in case it somehow ..escapes.. 
-        set path [string map [list ~ $matilda] $path]  ;#give our tildes to matilda to look after
-        set path [file normalize $path]
-        #set path [string tolower $path] ;#must do this after file normalize
-        return [string map [list $matilda ~] $path]  ;#get our tildes back.
-}
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide modpod [namespace eval modpod {
-    variable pkg modpod
-    variable version
-    set version 0.1.3 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm
deleted file mode 100644
index 07c29895..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm
+++ /dev/null
@@ -1,1962 +0,0 @@
-#! /usr/bin/env tclsh
-
-
-#todo - remove flagfilter - use punk::args?
-package require flagfilter
-namespace import ::flagfilter::check_flags
-
-namespace eval natsort {
-    #REVIEW - determine and document the purpose of scriptdir being added to tm path
-     proc scriptdir {} {
-        set possibly_linked_script [file dirname [file normalize [file join [info script] __dummy__]]]
-        if {[file isdirectory $possibly_linked_script]} {
-            return $possibly_linked_script
-        } else {
-            return [file dirname $possibly_linked_script]
-        }
-    }
-    if {![interp issafe]} {
-        set sdir [scriptdir]
-        #puts stderr "natsort tcl::tm::add $sdir"
-        if {$sdir ni [tcl::tm::list]} {
-            catch {tcl::tm::add $sdir}
-        }
-    }
-}
-
-
-namespace eval natsort {
-    variable stacktrace_on 0
-
-    proc do_error {msg {then error}} {
-        #note we exit or error out even if debug selected - as every do_error call is meant to interrupt code processing at the site of call
-        #this is not just a 'logging' call even though it has log-like descriptors
-        lassign $then type code
-        if {$code eq ""} {
-          set code 1
-        }
-        set type [string tolower $type]
-        set levels [list debug info notice warn error critical]
-        if {$type in [concat $levels exit]} {
-            puts stderr "|$type> $msg"
-        } else {
-            puts stderr "|>natsort_call_err> unable to interpret 2nd argument to do_error: '$then' should be one of '$levels'  or 'exit <numericcode>'"
-        }
-        flush stderr
-        if {$::tcl_interactive} {
-            #may not always be desirable - but assumed to be more useful not to exit despite request, to aid in debugging
-            if {[string tolower $type] eq "exit"} {
-              puts stderr "    (exit suppressed due to tcl_interactive - raising error instead)"
-              if {![string is digit -strict $code]} {
-                puts stderr "|>natsort_call_err> unable to interpret 2nd argument to do_error: '$then' should be: 'exit <numericcode>'"
-              }
-              flush stderr
-            } 
-            return -code error $msg
-        } else {
-            if {$type ne "exit"} {
-              return -code error $msg
-            } else {
-              if {[string is digit -strict $code]} {
-                exit $code
-              } else {
-                puts stderr "|>natsort_call_err> unable to interpret 2nd argument to do_error: '$then' should be 'error' or 'exit <numericcode>'"
-                return -code error $msg
-              }
-            }
-        }
-    }
-
-
-
-
-
- 
-    variable debug 0
-    variable testlist
-    set testlist {
-        00.test-firstposition.txt
-        0001.blah.txt
-        1.test-sorts-after-all-leadingzero-number-one-equivs.txt
-        1010.thousand-and-ten.second.txt
-        01010.thousand-and-ten.first.txt
-        0001.aaa.txt
-        001.zzz.txt
-        08.octal.txt-last-octal
-        008.another-octal-first-octal.txt
-        08.again-second-octal.txt
-        001.a.txt
-        0010.reconfig.txt
-        010.etc.txt
-        005.etc.01.txt
-        005.Etc.02.txt
-        005.123.abc.txt
-        200.somewhere.txt
-        2zzzz.before-somewhere.txt
-        00222-after-somewhere.txt
-        005.00010.abc.txt
-        005.a3423bc.00010.abc.txt
-        005.001.abc.txt
-        005.etc.1010.txt
-        005.etc.010.txt
-        005.etc.10.txt
-        " 005.etc.10.txt"
-        005.etc.001.txt
-        20.somewhere.txt
-        4611686018427387904999999999-bignum.txt 
-        4611686018427387903-bigishnum.txt
-        9223372036854775807-bigint.txt
-        etca-a
-        etc-a
-        etc2-a
-        a0001blah.txt    
-        a010.txt
-        winlike-sort-difference-0.1.txt
-        winlike-sort-difference-0.1.1.txt
-        a1.txt
-        b1-a0001blah.txt    
-        b1-a010.txt
-        b1-a1.txt
-        -a1.txt
-        --a1.txt
-        --a10.txt
-        2.high-two.yml
-        02.higher-two.yml
-        reconfig.txt
-        _common.stuff.txt
-        CASETEST.txt
-        casetest.txt
-        something.txt
-        some~thing.txt
-        someathing.txt
-        someThing.txt
-        thing.txt
-        thing_revised.txt
-        thing-revised.txt
-        "thing revised.txt"
-        "spacetest.txt"
-        " spacetest.txt"
-        "  spacetest.txt"
-        "spacetest2.txt"
-        "spacetest 2.txt"
-        "spacetest02.txt"
-        name.txt
-        name2.txt
-        "name .txt"
-        "name2 .txt"
-        blah.txt
-        combined.txt
-        a001.txt
-        .test
-        .ssh
-        "Feb 10.txt"
-        "Feb  8.txt"
-        1ab23v23v3r89ad8a8a8a9d.txt
-        "Folder (10)/file.tar.gz"
-        "Folder/file.tar.gz"
-        "Folder (1)/file (1).tar.gz"
-        "Folder (1)/file.tar.gz"
-        "Folder (01)/file.tar.gz"
-        "Folder1/file.tar.gz"
-        "Folder(1)/file.tar.gz"
-        
-    }
-    lappend testlist "Some file.txt"
-    lappend testlist "  Some extra file1.txt"
-    lappend testlist "  Some extra file01.txt"
-    lappend testlist "  some extra file1.txt"
-    lappend testlist "  Some extra file003.txt"
-    lappend testlist " Some file.txt"
-    lappend testlist "Some extra file02.txt"
-    lappend testlist "Program Files (x86)"
-    lappend testlist "01999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999991-bigger-pathologically-bignum.txt"
-    lappend testlist "199999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999-pathologically-bignum.txt"
-    lappend testlist "29999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999-smaller-pathologically-bignum.txt"
-    lappend testlist "199999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999-pathologically-bignum.txt with (more 1.txt"
-    lappend testlist "199999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999-pathologically-bignum.txt with (more 01.txt"
-    lappend testlist "a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1.pathological-num-nonnum-swapping-leadzero-should-be-first.txt"
-    lappend testlist "a1a1a1a1a1a1a1a1a1a1a1a01a1a1a1a1a1a1a1a1a1a1a1a1.pathological-num-nonnum-swapping-leadzero-should-be-first.txt"
-    lappend testlist "b1b1b1b1.txt"
-    lappend testlist "b1b01z1z1.txt"
-    lappend testlist "c1c111c1.txt"
-    lappend testlist "c1c1c1c1.txt"
-
-    namespace eval overtype {
-        proc right {args} {
-            # @d !todo - implement overflow, length checks etc
-
-            if {[llength $args] < 2} {
-                error {usage: ?-overflow [1|0]? undertext overtext}
-            }
-            foreach {undertext overtext} [lrange $args end-1 end] break
-
-            set opt(-overflow)	0
-            array set opt [lrange $args 0 end-2]
-
-
-            set olen [string length $overtext]
-            set ulen [string length $undertext]
-
-            if {$opt(-overflow)} {
-                return [string range $undertext 0 end-$olen]$overtext
-            } else {
-                if {$olen > $ulen} {	
-                    set diff [expr {$olen - $ulen}]
-                    return [string range $undertext 0 end-$olen][string range $overtext 0 end-$diff]
-                } else {
-                    return [string range $undertext 0 end-$olen]$overtext
-                }
-            }
-        }
-        proc left {args} {
-            # @c overtype starting at left (overstrike) 
-            # @c can/should we use something like this?: 'format "%-*s" $len $overtext 
-
-            if {[llength $args] < 2} {
-                error {usage: ?-overflow [1|0]? ?-ellipsis [1|0]? ?-ellipsistext ...? undertext overtext}
-            }
-            foreach {undertext overtext} [lrange $args end-1 end] break
-
-            set opt(-ellipsis)		0
-            set opt(-ellipsistext)	{...}
-            set opt(-overflow)	0
-            array set opt [lrange $args 0 end-2]
-
-            
-            set len [string length $undertext]
-            set overlen [string length $overtext]
-            set diff [expr {$overlen - $len}]
-
-            #puts stdout "====================>overtype: datalen:$len  overlen:$overlen diff:$diff"
-            #puts stdout "====================>overtype: data: $overtext"
-            if {$diff > 0} {
-                if {$opt(-overflow)} {
-                    return $overtext
-                } else {
-                    if {$opt(-ellipsis)} {
-                        return [overtype::left [string range $overtext 0 [expr {$len -1}]] $opt(-ellipsistext)]
-                    } else {
-                        return [string range $overtext 0 [expr {$len -1}]]
-                    }
-                }
-            } else {
-                return "$overtext[string range $undertext $overlen end]"
-            }
-        }
-        
-    }
-
-    #considered using hex to make large numbers more compact for viewing in debug output - but it's not that much shorter and probably obscures more than it helps.
-    proc hex2dec {largeHex} {
-        #todo - use punk::lib::hex2dec - (scan supports ll so can do larger hex values directly)
-        set res 0
-        set largeHex [string map {_ {}} $largeHex]
-        if {[string length $largeHex] <=7} {
-            #scan can process up to FFFFFFF and does so quickly
-            return [scan $largeHex %x]
-        }
-        foreach hexDigit [split $largeHex {}] {
-            set new 0x$hexDigit
-            set res [expr {16*$res + $new}]
-        }
-        return $res
-    }
-    proc dec2hex {decimalNumber} {
-        format %4.4llX $decimalNumber
-    }
-
-    #punk::lib::trimzero
-    proc trimzero {number} {
-        set trimmed [string trimleft $number 0]
-        if {[string length $trimmed] == 0} {
-            set trimmed 0
-        }
-        return $trimmed
-    }
-    #todo - consider human numeric split
-    #e.g consider SI suffixes k|KMGTPEZY in that order
-
-    #in this context, for natural sorting - numeric segments don't contain underscores or other punctuation such as . - + etc.
-    #review - what about unicode equivalents such as wide numerals \UFF10 to \UFF19?  unicode normalization?
-    proc split_numeric_segments {name} {
-        set segments [list]
-        while {[string length $name]} {
-            if {[scan $name {%[0-9]%n} chunk len] == 2} {
-                lappend segments $chunk 
-                set name [string range $name $len end]
-            }
-            if {[scan $name {%[^0-9]%n} chunk len] == 2} {
-                lappend segments $chunk
-                set name [string range $name $len end]
-            }
-        }
-        return $segments
-    }
-
-    proc padleft {str count {ch " "}} {
-        set val [string repeat $ch $count]
-        append val $str 
-        set diff [expr {max(0,$count - [string length $str])}]
-        set offset [expr {max(0,$count - $diff)}]
-        set val [string range $val $offset end]
-    }
-
-
-    # Sqlite may have limited collation sequences available in default builds.
-    # with custom builds - there may be others such as 'natsort' - see https://sqlite.org/forum/forumpost/e4dc6f3331
-    # This is of limited use with the few builtin collations available in 2023 ie binary,nocase & rtrim
-    #  but may provide a quicker,flexible sort option, especially if/when more collation sequences are added to sqlite
-    # There are also prebuilt packages such as sqlite3-icu  which allows things like "SELECT icu_load_collation('en_AU', 'australian');"
-    proc sort_sqlite {stringlist args} {
-        package require sqlite3
-
-    
-        set args [check_flags -caller natsort_sqlite -defaults [list -db :memory: -collate nocase  -winlike 0 -topchars "\uFFFF" -debug 0 -splitchars [list / . - _] -extras {all}] -values $args]
-        set db          [string trim [dict get $args -db]]
-        set collate     [string trim [dict get $args -collate]]
-        set debug       [string trim [dict get $args -debug]]
-        set topchars    [string trim [dict get $args -topchars]]
-
-        set topdot [expr {"." in $topchars}]
-        set topunderscore [expr {"_" in $topchars}]
-        
-        
-        sqlite3 db_sort_basic $db
-        set orderedlist [list]
-        db_sort_basic eval [string map [list %collate% $collate] {create table sqlitesort(index0 text COLLATE %collate%, name text COLLATE %collate%)}]
-        foreach nm $stringlist {
-            set segments [split_numeric_segments $nm]
-            set index ""
-            set s 0
-            foreach seg $segments {
-                if {($s == 0) && ![string length [string trim $seg]]} {
-                    #don't index leading space
-                } elseif {($s == 0) && ($topunderscore) && [string match _* [string trim $seg]]} {
-                    append index "[padleft "0" 5]-d -100 topunderscore "
-                    append index [string trim $seg]
-                } elseif {($s == 0) && ($topdot) && [string match .* [string trim $seg]]} {
-                    append index "[padleft "0" 5]-d -50 topdot "
-                    append index [string trim $seg]
-                } else {
-                    if {[string is digit [string trim $seg]]} {
-                        set basenum [trimzero [string trim $seg]]
-                        set lengthindex "[padleft [string length $basenum] 5]-d"
-                        append index "$lengthindex "
-                        #append index [padleft $basenum 40]
-                        append index $basenum
-                    } else {
-                        append index [string trim $seg]
-                    }
-                }
-                incr s
-            }
-            puts stdout ">>$index"
-            db_sort_basic eval {insert into sqlitesort values($index,$nm)} 
-        }
-        db_sort_basic eval [string map [list %collate% $collate] {select name from sqlitesort order by index0 COLLATE %collate% ASC, name COLLATE %collate% ASC }] {
-            lappend orderedlist $name
-        }
-        db_sort_basic close
-        return $orderedlist
-    }
-
-    proc get_leading_char_count {str char} {
-        #todo - something more elegant? regex?
-        set count 0
-        foreach c [split $str "" ] {
-            if {$c eq $char} {
-                incr count
-            } else {
-                break
-            }
-        }
-        return $count
-    }
-    proc stacktrace {} {
-        set stack "Stack trace:\n"
-        for {set i 1} {$i < [info level]} {incr i} {
-            set lvl [info level -$i]
-            set pname [lindex $lvl 0]
-            append stack [string repeat " " $i]$pname
-
-            if {![catch {info args $pname} pargs]} {
-                foreach value [lrange $lvl 1 end] arg $pargs {
-
-                    if {$value eq ""} {
-                        if {$arg != 0} {
-                            info default $pname $arg value
-                        }
-                    }
-                    append stack " $arg='$value'"
-                }
-            } else {
-                append stack " !unknown vars for $pname"
-            }
-
-            append stack \n
-        }
-        return $stack
-    }
-
-    proc get_char_count {str char} {
-        #faster than lsearch on split for str of a few K
-        expr {[tcl::string::length $str]-[tcl::string::length [tcl::string::map "$char {}" $str]]}
-    }
-    
-    proc build_key {chunk  splitchars topdict tagconfig debug} {
-        variable stacktrace_on
-        if {$stacktrace_on} {
-            puts stderr "+++>[stacktrace]"
-        }
-
-        set index_map [list - "" _ ""]
-        #e.g - need to maintain the order
-        #a b.txt
-        #a book.txt
-        #ab.txt
-        #abacus.txt
-    
-
-        set original_splitchars [dict get $tagconfig original_splitchars]
-
-        # tag_dashes test moved from loop - review
-        set tag_dashes 0
-        if {![string length [dict get $tagconfig last_part_text_tag]]} {
-            #winlike
-            set tag_dashes 1
-        }
-        if {("-" ni $original_splitchars)} {
-            set tag_dashes 1 
-        }
-        if {$debug >= 3} {
-            puts stdout "START build_key chunk        : $chunk"
-            puts stdout "START build_key splitchars   : $splitchars $topdict $tagconfig  NO tag dashes"
-        }
-
-
-        ## index_map will have no effect if we've already split on the char anyway(?)
-        #foreach m [dict keys $index_map] {
-        #    if {$m in $original_splitchars} {
-        #        dict unset index_map $m
-        #    }
-        #}
-
-        #if {![string length $chunk]} return 
-        
-        set result ""
-        if {![llength $splitchars]} {
-            #no more structural splits - but we need to examine numeric/non-numeric segments at the lowest level.    
-            # we are at a leaf in the recursive split hierarchy 
-
-            set s "" ;#we never actually split on "" (unless that was put in splitchars.. but it probably shouldn't be)
-            set parts [list $chunk] ;#important to treat as list or leading/trailing whitespace lost
-
-        
-        } else {
-            set s [lindex $splitchars 0]
-            if {"spudbucket$s" in "[split $chunk {}]"} {
-                error "dead-branch spudbucket"
-                set partindex [build_key $chunk  [lrange $splitchars 1 end] $topdict $tagconfig $debug] 
-                if {[dict get $tagconfig showsplits]} {
-                    set pfx "(1${s}=)"  ;# = sorts before _ 
-                    set partindex ${pfx}$partindex
-                }
-
-                return $partindex
-            } else {
-                set parts_below_index ""
-
-                if {$s ni [split $chunk ""]} {
-                    #$s can be an empty string 
-                    set parts [list $chunk]
-                } else {
-                    set parts [split $chunk $s] ;#whitespace preserved - even if splitting on s that is not in string.
-                }
-                #assert - we have a splitchar $s that is in the chunk - so at least one part
-                if {(![string length $s] || [llength $parts] == 0)} {
-                    error "buld_key assertion false empty split char and/or no parts"
-                } 
-
-                set pnum 1 ;# 1 based for clarity of reading index in debug output
-                set subpart_count [llength $parts] 
-
-                set sub_splits [lrange $splitchars 1 end] ;#pass same splitchars to each subpart
-                foreach p $parts {
-                    set partindex [build_key $p  $sub_splits $topdict $tagconfig $debug] 
-                    set lastpart [expr {$pnum == $subpart_count}]
-
-
-                    #######################
-                    set showsplits [dict get $tagconfig showsplits]
-                    #split prefixing experiment - maybe not suitable for general use - as it affects sort order 
-                    #note that pfx must be consistent until last one, no matter how many partnumbers there are in total.
-                    # we don't want to influence sort order before reaching end.
-                    #e.g for:
-                    #(1.=)...
-                    #(1._)...(2._)...(3.=)
-                    #(1._)...(2.=)
-                    #Note that this is probably more suitable for highly structure dependant sorts where the results are maybe less.. natural.
-                    if {$showsplits} {
-                        if {$lastpart} {
-                            set pfx "(${pnum}${s}_"
-                            #set pfx "(${pnum}${s}=)"  ;# = sorts before _
-                        } else {
-                            set pfx "(${pnum}${s}_"
-                        }
-                        append parts_below_index $pfx
-                    } 
-                    #######################
-
-                    if {$lastpart} {
-                        if {[string length $p] && [string is digit $p]} {
-                            set last_part_tag "<22${s}>"
-                        } else {
-                            set last_part_tag "<33${s}>"
-                        }
-
-                        set last_part_text_tag [dict get $tagconfig last_part_text_tag]
-                        #for -winlike 1 there is no tag configured. Windows explorer likes to put things in the  order:
-                        #  module-0.1.1.tm
-                        #  module-0.1.1.2.tm
-                        #  module-0.1.tm
-                        # arguably -winlike 0 is more natural/human
-                        #  module-0.1.tm
-                        #  module-0.1.1.tm
-                        #  module-0.1.1.2.tm
-
-                        if {[string length $last_part_text_tag]} {
-                            #replace only the first text-tag (<30>) from the subpart_index 
-                            if {[string match "<30?>*" $partindex]} {
-                                #give textual string index  a specific tag   for last part in split only. e.g <130> for lower than integers
-                                set partindex "<130>[string range $partindex 5 end]" 
-                            }
-                            #append parts_below_index $last_part_tag
-                        }
-                        #set partindex $last_part_tag$partindex
-
-
-                    }
-                    append parts_below_index $partindex
-                    
-
-
-                    if {$showsplits} {
-                        if {$lastpart} {
-                            set suffix "${pnum}${s}=)"  ;# = sorts before _
-                        } else {
-                            set suffix "${pnum}${s}_)"
-                        }
-                        append parts_below_index $suffix
-                    } 
-
-
-                    incr pnum
-                }
-                append parts_below_index "" ;# don't add anything at the tail that may perturb sort order
-
-                if {$debug >= 3} {
-                    set pad [string repeat " " 20]
-                    puts stdout "END build_key chunk          : $chunk "
-                    puts stdout "END build_key splitchars     : $splitchars $topdict $tagconfig  NO tag dashes"
-                    puts stdout "END build_key ret below_index: $parts_below_index"
-                }
-                return $parts_below_index
-
-
-            }
-        }
-
-        
-
-        #puts stdout ">>>chunk:'$chunk'<<< split-on:$s parts: '$parts'   splitchars: $splitchars -topdict:$topdict"
-        
-            
-        
-
-       
-        #if {$chunk eq ""} {
-        #   puts "___________________________________________!!!____"
-        #}
-        #puts stdout "-->chunk:$chunk $s parts:$parts"
-
-        #puts stdout "---chunk:'$chunk' part:'$part' parts:'$parts' s:'$s'"
-        
-     
-
-
-            set segments [split_numeric_segments $chunk] ;#!  
-            set stringindex ""
-            set segnum 0
-            foreach seg $segments {
-                    #puts stdout "=================---->seg:$seg segments:$segments"
-                #-strict ?
-                if {[string length $seg] && [string is digit $seg]} {
-                    set basenum [trimzero [string trim $seg]]
-                    set lengthindex "[padleft [string length $basenum] 4]d" 
-                    #append stringindex "<20>$lengthindex $basenum $seg"
-                } else {
-                    set c1 [string range $seg 0 0]
-                    #puts stdout "==============> c1'$c1' topdict: $topdict stringindex:$stringindex"
-                    
-                    if {$c1 in [dict keys $topdict]} {
-                        set tag [dict get $topdict $c1]
-                        #append stringindex "${tag}$c1"
-                        #set seg [string range $seg 1 end]
-                    } 
-                    #textindex 
-                    set leader "<30>"
-                    set idx $seg 
-                    set idx [string trim $idx]
-                    set idx [string tolower $idx]
-                    set idx [string map $index_map $idx]
-
-
-                    
-
-                    
-                    #set the X-c count to match the length of the index - not the raw data      
-                    set lengthindex "[padleft [string length $idx] 4]c"
-                    
-                    #append stringindex "${leader}$idx $lengthindex $texttail"
-                }
-            } 
-
-            if {[llength $parts] != 1} {
-                error "build_key assertion fail llength parts != 1 parts:$parts"
-            }
-
-            set segtail_clearance_buffer " " ;#space to clear other split indicators if using showsplits
-            set segtail $segtail_clearance_buffer
-            append segtail "\["
-            set grouping ""
-            set pnum 0
-            foreach p $parts {
-                set sublen_list [list]
-                set subsegments [split_numeric_segments $p]
-                set i 0
-
-                set partsorter ""
-                foreach sub $subsegments {
-                    ##don't trim spaces here - it would be inconsistent. Some subs are pure whitespace - others have internal whitespace. e.g "a4 400b a b2" becomes "a 4 { } 400 {b a b} 2"
-                    #mapping away all whitespace would be consistent, but not necessarily desirable. If it's in the index_map it'll happen anyway - so we don't do it manually here except for evaluating conditions.
-                    set test_trim [string trim $sub]
-                    set str $sub 
-                    set str [string tolower $str]
-                    set str [string map $index_map $str]
-                    if {[string length $test_trim] && [string is digit $test_trim]} {
-                        append partsorter [trimzero $str]
-                    } else {
-                        append partsorter "$str"
-                    }
-                    append partsorter 
-                }
-
-
-                foreach sub $subsegments { 
-
-                    if {[string length $sub] && [string is digit $sub]} {
-                        set basenum [trimzero [string trim $sub]]
-                        set subequivs $basenum
-                        set lengthindex "[padleft [string length $subequivs] 4]d "
-                        set idx "$lengthindex [padleft $basenum 10]" ;#todo - cycle through data and determine longest 
-                        set tail [overtype::left [string repeat " " 10] $sub]
-                        #set tail ""
-                    } else {
-                        set idx ""
-                        
-
-                        set lookahead [lindex $subsegments $i+1]
-                        if {![string length $lookahead]} {
-                            set zeronum "[padleft 0 4]d0"
-                        } else {
-                            set zeronum ""
-                        }
-                        set subequivs $sub
-                        #set subequivs [string trim $subequivs]
-                        set subequivs [string tolower $subequivs]
-                        set subequivs [string map $index_map $subequivs]
-
-                        append idx $subequivs
-                        append idx $zeronum
-
-                        set idx $subequivs
-                        
-
-                        #<removed tag_dashes test put above - review>
-                        
-                        set ch "-"
-                        if {$tag_dashes} {    
-                            #puts stdout "____TAG DASHES"
-                            #winlike
-                            set numleading [get_leading_char_count $seg $ch]
-                            if {$numleading > 0} {
-                                set texttail "<31-leading[padleft $numleading 4]$ch>"
-                            } else {
-                                set texttail "<30>"
-                            }
-                            set numothers [expr {[get_char_count $seg $ch] - $numleading}]
-                            if {$debug >= 2} {
-                              puts stdout "____dashcount: [get_char_count $seg $ch] numothers: $numothers"
-                            }
-                            if {$numothers > 0} {
-                                append texttail "<31-others[padleft $numothers 4]$ch>"
-                            }  else {
-                                append textail "<30>"
-                            }
-                        } else {
-                            set texttail "<30>" 
-                        }
-
-
-
-
-                        #set idx $partsorter
-                        set tail ""
-                        #set tail [string tolower $sub] ;#raw
-                        #set tail $partsorter
-                        #append tail ":[string tolower $p]" ;#we need the whole part - even though it makes the index much larger. !todo - tagconfig switch to toggle case sensitive sorting
-                    }
-
-                    append grouping "$idx $tail<end>|$s"
-                    incr i
-                }
-
-
-
-
-
-                if {$p eq ""} {
-                    # no subsegments.. 
-                    set zeronum "[padleft 0 4]d0"
-                    #append grouping "\u000$zerotail"
-                    append grouping ".$zeronum"
-                }
-
-                #append grouping |
-                #append grouping $s
-                #foreach len $sublen_list {
-                #    append segtail "<[padleft $len 3]>"
-                #}
-                incr pnum
-            }
-            set grouping [string trimright $grouping $s]
-            append grouping "[padleft [llength $parts] 4]"
-            append segtail $grouping
-            
-
-            #append segtail " <[padleft [llength $parts] 4]>"
-            
-            append segtail "\]"
-
-
-            #if {[string length $seg] && [string is digit $seg]} {
-            #    append segtail "<20>"
-            #} else {
-            #    append segtail "<30>"
-            #}
-            append stringindex $segtail
-
-            incr segnum
-            
-     
-       
-        
-        lappend indices  $stringindex
-
-        if {[llength $indices] > 1} {
-            puts stderr "INDICES [llength $indices]: $stringindex"        
-            error "build_key assertion error deadconcept indices"
-        }
-
-        #topchar handling on splitter characters
-        #set c1 [string range $chunk 0 0]
-        if {$s  in [dict keys $topdict]} {
-            set tag [dict get $topdict $s]
-            set joiner [string map [list ">" "$s>"] ${tag}]
-            #we have split on this character $s so if the first part is empty string then $s was a leading character
-            # we need to bring a tag out front for this, or it will be dominated by the leading sections-remaing tag <S..> 
-            # (since the empty string produces no tag of it's own - ?)
-            if {[string length [lindex $parts 0]] == 0} {
-                set prefix ${joiner} 
-            } else {
-                set prefix ""
-            }
-        } else {
-            #use standard character-data positioning tag if no override from topdict
-            set joiner "<30J>$s"
-            set prefix ""
-        }
-
-
-        set  contentindex   $prefix[join $indices $joiner]
-        if {[string length $s]} {
-            set split_indicator "<split$s $chunk>"
-        } else {
-            set split_indicator "<split$s $chunk>"
-
-        }
-        if {![string length $s]} {
-            set s ~
-        }
-
-        #return  "[overtype::left [string repeat { } 80] $contentindex][overtype::left [string repeat { } 10] [list $s $chunk]]"
-        #return $contentindex$split_indicator
-        #return [overtype::left [string repeat - 40] $contentindex]
-
-        if {$debug >= 3} {
-            puts stdout "END build_key chunk          : $chunk"
-            puts stdout "END build_key splitchars     : $splitchars $topdict $tagconfig  NO tag dashes"
-            puts stdout "END build_key ret contentidx : $contentindex"
-        }
-        return $contentindex
-    }
-
-    #----------------------------------------
-    #line-processors - data always last argument - opts can be empty string
-    #all processor should accept empty opts and ignore opts if they don't use them 
-    proc _lineinput_as_tcl1 {opts line} {
-        set out ""
-        foreach i $line {
-            append out "$i "
-        }
-        set out [string range $out 0 end-1]
-        return $out
-    }
-    #should be equivalent to above
-    proc _lineinput_as_tcl {opts line} {
-        return [concat {*}$line]
-    }
-    #will put extra tcl quoting if it was already tcl-shaped  e.g text  "a" -> {"a"}
-    proc _lineoutput_as_tcl {opts line} {
-        return [regexp -inline -all {\S+} $line]
-    }
-
-    proc _lineinput_as_raw {opts line} {
-        return $line
-    }
-    proc _lineoutput_as_raw {opts line} {
-        return $line
-    }
-
-    #words is opposite of tcl
-    proc _lineinput_as_words {opts line} {
-        #wordlike_parts
-        return [regexp -inline -all {\S+} $line]
-    }
-    proc _lineoutput_as_words {opts line} {
-        return [concat {*}$line]
-    }
-
-    #opts same as tcllib csv::split - except without the 'line' element
-    #?-alternate? ?sepChar? ?delChar?
-    proc _lineinput_as_csv {opts line} {
-        package require csv
-        if {[lindex $opts 0] eq "-alternate"} {
-            return [csv::split -alternate $line {*}[lrange $opts 1 end]]
-        } else {
-            return [csv::split $line {*}$opts]
-        }
-    }
-    #opts same as tcllib csv::join 
-    #?sepChar? ?delChar? ?delMode?
-    proc _lineoutput_as_csv {opts line} {
-        package require csv
-        return [csv::join $line {*}$opts]
-    }
-    #----------------------------------------
-    variable sort_flagspecs
-    set sort_flagspecs [dict create\
-        -caller natsort::sort \
-        -return supplied|defaults \
-        -defaults [list -collate nocase \
-                -winlike 0 \
-                -splits "\uFFFF" \
-                -topchars {. _} \
-                -showsplits 1 \
-                -sortmethod ascii \
-                -collate "\uFFFF" \
-                -inputformat raw \
-                -inputformatapply {index data} \
-                -inputformatoptions "" \
-                -outputformat raw \
-                -outputformatoptions "" \
-                -cols "\uFFFF" \
-                -debug 0 -db "" -stacktrace 0 -splits "\uFFFF" -showsplits 0] \
-        -required {all} \
-        -extras {none} \
-        -commandprocessors {}\
-    ]
-
-    proc sort {stringlist args} {
-        #puts stdout "natsort::sort args: $args"
-        variable debug
-        variable sort_flagspecs
-        if {![llength $stringlist]} return
-        if {[llength $stringlist] == 1} {
-            if {"-inputformat" ni $args && "-outputformat" ni $args} {
-                return $stringlist
-            }
-        }
-        
-        #allow pass through of the check_flags flag -debugargs so it can be set by the caller
-        set debugargs 0
-        if {[set posn [lsearch $args -debugargs]] >=0} {
-            if {$posn == [llength $args]-1} {
-                #-debugargs at tail of list
-                set debugargs 1
-            } else {
-                set debugargs [lindex $args $posn+1]
-            }
-        }
-
-        #-return flagged|defaults doesn't work Review.
-        #flagfilter global processor/allocator not working 2023-08
-
-        set opts [check_flags {*}$sort_flagspecs -debugargs $debugargs -values $args] 
-
-        #we can only shortcircuit input list of single element at this point if there aren't non-default -inputformat or -outputformat transformations
-        if {[llength $stringlist] == 1} {
-            set is_basic 1
-            foreach fname [list -inputformat -outputformat] {
-                if {[dict get $sort_flagspecs -defaults $fname] ne [dict get $opts $fname]} {
-                    set is_basic 0
-                    break
-                }
-            }
-            if {$is_basic} {
-                return $stringlist
-            }
-        }
-
-
-        set winlike                     [dict get $opts -winlike]
-        set topchars                    [dict get $opts -topchars]
-        set cols                        [dict get $opts -cols]
-        set debug                       [dict get $opts -debug]
-        set stacktrace                  [dict get $opts -stacktrace]
-        set showsplits                  [dict get $opts -showsplits]
-        set splits                      [dict get $opts -splits]
-        set sortmethod                  [dict get $opts -sortmethod]
-        set opt_collate                 [dict get $opts -collate]
-        set opt_inputformat             [dict get $opts -inputformat]
-        set opt_inputformatapply        [dict get $opts -inputformatapply]
-        set opt_inputformatoptions      [dict get $opts -inputformatoptions]
-        set opt_outputformat            [dict get $opts -outputformat]
-        set opt_outputformatoptions     [dict get $opts -outputformatoptions]
-
-        if {$debug} {
-            #dict unset opts -showsplits
-            #dict unset opts -splits 
-            puts stdout "natsort::sort processed_args: $opts"
-            if {$debug == 1} {
-                puts stdout "natsort::sort - try also -debug 2, -debug 3"
-            }
-        }
-        
-        #set sortmethod "-dictionary" ;# sorts a2b before a001b   - possibly other strangenesses that are hard to reason about
-        switch -- $sortmethod {
-            dictionary - ascii {
-                set sortmethod "-$sortmethod"
-                # -ascii is default for tcl lsort.
-            }
-            default {
-                set sortmethod "-ascii"
-            }
-        }
-
-        set allowed_collations [list nocase]
-        if {$opt_collate ne "\uFFFF"} {
-            if {$opt_collate ni $allowed_collations} {
-                error "natsort::sort unknown value for -collate option. Only acceptable value(s): $allowed_collations"
-            }
-            set nocaseopt "-$opt_collate"
-        } else {
-            set nocaseopt ""
-        }
-        set allowed_inputformats [list tcl raw csv words]
-        switch -- $opt_inputformat {
-            tcl - raw - csv - words {}
-            default {
-                error "natsort::sort unknown value for -inputformat option. Only acceptable value(s): $allowed_inputformats"
-            }
-        }
-        set allowed_outputformats [list tcl raw csv words]
-        switch -- $opt_outputformat {
-            tcl - raw - csv - words {}
-            default {
-                error "natsort::sort unknown value for -outputformat option. Only acceptable value(s): $allowed_outputformats"
-            }
-        }
-
-        #
-        set winsplits [list / . _]
-        set commonsplits [list / . _ -]
-        #set commonsplits [list]
-
-        set tagconfig [dict create]
-        dict set tagconfig last_part_text_tag "<19>"        
-        if {$winlike} {
-            set splitchars $winsplits 
-            #windows explorer sorts leading spaces at the top - which doesn't seem very helpful for keeping things together - but the explorer doesn't seem able to create leading spaces anyway.
-            set wintop [list "(" ")" { }  {.} {_}] ;#windows specific order  
-            foreach t $topchars {
-                if {$t ni $wintop} {
-                    lappend wintop $t
-                }
-            }
-            set topchars $wintop 
-            dict set tagconfig last_part_text_tag ""
-        } else {
-            set splitchars $commonsplits
-        }
-        if {$splits ne "\uFFFF"} {
-            set splitchars $splits 
-        }
-        dict set tagconfig original_splitchars $splitchars
-        dict set tagconfig showsplits $showsplits
-
-        #create topdict
-        set i 0
-        set topdict [dict create]
-        foreach c $topchars {   
-            incr i ;#start at 01 so that 00 reserved for final-split tag (allows x-0.1.txt to sort above x-0.1.1.txt  by default. Use tagconfig to change, or choose -winlike 1 for explorer-like sorting)
-            dict set topdict $c "<0$i>"
-        }
-        set keylist [list]    
-
-        switch -- $opt_inputformat {
-            tcl {
-                set lineinput_transform [list  _lineinput_as_tcl $opt_inputformatoptions]
-            }
-            csv {
-                set lineinput_transform [list  _lineinput_as_csv $opt_inputformatoptions]
-            }
-            raw {
-                set lineinput_transform [list _lineinput_as_raw $opt_inputformatoptions] 
-            }
-            words {
-                set lineinput_transform [list _lineinput_as_words $opt_inputformatoptions] 
-            }
-        }    
-        switch -- $opt_outputformat {
-            tcl {
-                set lineoutput_transform [list  _lineoutput_as_tcl $opt_outputformatoptions]
-            }
-            csv {
-                set lineoutput_transform [list  _lineoutput_as_csv $opt_outputformatoptions]
-            }
-            raw {
-                set lineoutput_transform [list _lineoutput_as_raw $opt_outputformatoptions] 
-            }
-            words {
-                set lineoutput_transform [list _lineoutput_as_words $opt_outputformatoptions] 
-            }
-        }
-        
-        if {("data" in $opt_inputformatapply) || ("index" in $opt_inputformatapply)} {
-            if {$opt_inputformat eq "raw"} {
-                set tf_stringlist $stringlist
-            } else {
-                set tf_stringlist [list]
-                foreach v $stringlist {
-                    lappend tf_stringlist [{*}$lineinput_transform $v]
-                }
-            }
-            if {"data" in $opt_inputformatapply} {
-                set tf_data_stringlist $tf_stringlist
-            } else {
-                set tf_data_stringlist $stringlist
-            }
-            if {"index" in $opt_inputformatapply} {
-                set tf_index_stringlist $tf_stringlist
-            } else {
-                set tf_index_stringlist $stringlist
-            }
-        } else {
-            set tf_data_stringlist $stringlist
-            set tf_index_stringlist $stringlist
-        }
-
-
-
-        if {$stacktrace} {
-            puts stdout [natsort::stacktrace]
-            set natsort::stacktrace_on 1
-        }
-        if {$cols eq "\uFFFF"} {
-            set colkeys [lmap v $stringlist {}]
-        } else {
-            set colkeys [list]
-            foreach v $tf_index_stringlist {
-                set lineparts $v
-                set k [list]
-                foreach c $cols {
-                    lappend k [lindex $lineparts $c]
-                }
-                lappend colkeys [join $k "_"] ;#use a common-split char - Review
-            }
-        }
-        #puts stdout "colkeys: $colkeys"
-       
-        if {$opt_inputformat eq "raw"} {
-            #no inputformat was applied - can just use stringlist
-            foreach value $stringlist ck $colkeys {
-                set contentindex   [build_key $value $splitchars $topdict $tagconfig $debug]
-                set colindex       [build_key $ck $splitchars $topdict $tagconfig $debug]
-                lappend keylist ${colindex}-${contentindex}-$value ;#note: entire raw value  used for final sort disambiguation (can be whitespace that was ignored in indexing)
-            }
-        } else {
-            foreach keyinput $tf_index_stringlist datavalue  $tf_data_stringlist ck $colkeys {
-                #data may or may not have been transformed
-                #column index may or may not have been built with transformed data
-                
-                set contentindex   [build_key $keyinput $splitchars $topdict $tagconfig $debug]
-                set colindex       [build_key $ck $splitchars $topdict $tagconfig $debug]
-                lappend keylist ${colindex}-${contentindex}-$datavalue ;#note: entire value  used for final sort disambiguation (can be whitespace that was ignored in indexing)
-            }
-        }
-        #puts stderr "keylist: $keylist"
-
-        ###################################################################################################
-        #  Use the generated keylist to do the actual sorting
-        #  select either the transformed or raw data as the corresponding output
-        ###################################################################################################
-        if {[string length $nocaseopt]} {
-            set sortcommand [list lsort $sortmethod $nocaseopt -indices $keylist]
-        } else {
-            set sortcommand [list lsort $sortmethod -indices $keylist]
-        }
-        if {$opt_outputformat eq "raw"} {
-            #raw output means no further transformations - it doesn't mean there wasn't a transform applied on the input side
-            #use the tf_data_stringlist in the output - which will be the same as the input stringlist if no input transform applied for data.
-            #(Also - it may or may not have been *sorted* on transformed data depending on whether 'index' was in $opt_inputformatapply)
-            foreach idx [{*}$sortcommand] {
-                lappend result [lindex $tf_data_stringlist $idx]
-            }
-        } else {
-            #we need to apply an output format
-            #The data may or may not have been transformed at input
-            foreach idx [{*}$sortcommand] {
-                lappend result [{*}$lineoutput_transform [lindex $tf_data_stringlist $idx]]
-            }
-        }
-        ###################################################################################################
-       
-
-
-
-        
-        if {$debug >= 2} {
-            set screen_width 250
-            set max_val 0
-            set max_idx 0
-            #####  calculate colum widths
-            foreach i [{*}$sortcommand] {
-                set len_val [string length [lindex $stringlist $i]] 
-                if {$len_val > $max_val} {
-                    set max_val $len_val
-                }
-                set len_idx [string length [lindex $keylist $i]]
-                if {$len_idx > $max_idx} {
-                    set max_idx $len_idx
-                }
-            }
-            ####
-            set l_width [expr {$max_val + 1}]
-            set leftcol [string repeat " " $l_width]
-            set r_width [expr {$screen_width - $l_width - 1}]
-            set rightcol [string repeat " " $r_width]
-            set str [overtype::left $leftcol RAW]
-            puts stdout "  $str Index with possibly transformed data at tail"
-            foreach i [{*}$sortcommand] {
-                #puts stdout "|d> [overtype::left  $leftcol [lindex $stringlist $i] ]  [lindex $keylist $i]" 
-                set index [lindex $keylist $i]
-                set len_idx [string length $index]
-                set rowcount [expr {$len_idx / $r_width}]
-                if {($len_idx % $r_width) > 0} {
-                    incr rowcount
-                }
-                set rows [list]
-                for {set r 0} {$r < $rowcount} {incr r} {
-                    lappend rows [string range $index 0 $r_width-$r]
-                    set index [string range $index $r_width end]
-                }
-
-                set r 0
-                foreach idxpart $rows {
-                    if {$r == 0} {
-                        #use the untransformed stringlist 
-                        set str [overtype::left  $leftcol [lindex $stringlist $i]]
-                    } else {
-                        set str [overtype::left  $leftcol ...]]
-                    }
-                    puts stdout "  $str $idxpart" 
-                    incr r
-                }
-                #puts stdout "|> '[lindex $stringlist $i]'"
-                #puts stdout "|>    [lindex $keylist $i]"
-            }
-        
-            puts stdout "|debug> topdict:    $topdict"
-            puts stdout "|debug> splitchars: $splitchars"
-        }
-        return $result
-    }
-
-
-
-    #Note that although leading whitespace isn't a commonly used feature of filesystem names - it's possible at least on  FreeBSD,windows and linux so we should try to handle it sensibly.
-    proc sort_experiment {stringlist args} {
-        package require sqlite3
-
-        variable debug
-        set args [check_flags -caller natsort::sort \
-          -defaults [dict create -db :memory:  -collate nocase -nullvalue "->NULL<"  -winlike 0  -topchars [list] -debug 0] \
-          -extras {all} \
-          -values $args]
-        set db              [string trim [dict get $args -db]]
-        set collate         [string trim [dict get $args -collate]]
-        set winlike     [string trim [dict get $args -winlike]]
-        set debug           [string trim [dict get $args -debug]]
-        set nullvalue       [string trim [dict get $args -nullvalue]]
-
-
-        set topchars        [string trim [dict get $args -topchars]]
-        
-        set topdot [expr {"." in $topchars}]
-        set topunderscore [expr {"_" in $topchars}]
-        
-        
-        sqlite3 db_natsort2 $db
-        #--
-        #our table must handle the name with the greatest number of numeric/non-numeric splits.
-        #This means a single list member with pathological naming e.g a1a1a1a1a1a1a1a1a1a1a1.txt could greatly extend the number of columns and indices and affect performance.
-        #review: could be optimised to aggregate the tail into a single index, as the the extra columns won't assist in ordering, but make the table and query bigger.
-        # we should probably determine the longest common sequence of splits in the input list and add only one more index for the segment after that.
-        set maxsegments 0 
-        #--
-        set prefix "idx"
-        
-        #note - there will be more columns in the sorting table than segments.
-        # (a segment equals one of the numeric & non-numeric string portions returned from 'split_numeric_sgements')
-        #---------------------------
-        # consider 
-        #   a123b.v1.2.txt 
-        #   a123b.v1.3beta1.txt
-        # these have the following segments:
-        #   a 123 b.v 1 . 2 .txt
-        #   a 123 b.v 1 . 3 beta 1 .txt
-        #---------------------------
-        # The first string has 7 segments  (numbered 0 to 6)
-        # the second string has 9 segments
-        #
-        # for example when the data has any elements in a segment position that are numeric (e.g 0001 123)
-        #  - then an index column with numeric equivalents will be created (e.g 0001 becomes 1), and any non-numeric values in that column will get mapped to a negative value (for special cases) or a high value such as NULL  (with  NULLS LAST sql support)
-        # 
-        # when a segment 
-        
-        #cycle through all strings - we cannot build tabledef as we go because the column type depends on whether all segments for a particular column are text vs int-equivalent.
-        array set segmentinfo {}
-        foreach nm $stringlist {
-            set segments [split_numeric_segments $nm]
-            if {![string length [string trim [lindex $segments 0]]]} {
-                if {[string is digit [string trim [lindex $segments 1]]]} {
-                    #name is whitespace followed by a digit - special case - ignore the whitespace for numbers only. (whitespace still goes through to name column though)
-                    set segments [lrange $segments 1 end]
-                }
-            }
-            
-            
-            set c 0 ;#start of index columns
-            if {[llength $segments] > $maxsegments} {
-                set maxsegments [llength $segments]
-            }
-            foreach seg $segments {
-                set seg [string trim $seg]
-                set column_exists [info exists segmentinfo($c,type)]
-                if {[string is digit $seg]} {
-                    if {$column_exists} {
-                        #override it  (may currently be text or int)
-                        set segmentinfo($c,type) "int"
-                    } else {
-                        #new column
-                        set segmentinfo($c,name) ${prefix}$c
-                        set segmentinfo($c,type) "int"
-                    }
-                } else {
-                    #text never overrides int 
-                    if {!$column_exists} {
-                        set segmentinfo($c,name) ${prefix}$c
-                        set segmentinfo($c,type) "text"
-                    }
-                }
-                incr c
-            }
-        }
-        if {$debug} {
-            puts stdout "Largest number of num/non-num segments in data: $maxsegments"
-            #parray segmentinfo
-        }
-
-        #
-        set tabledef ""
-        set ordered_column_names [list]
-        set ordered_segmentinfo_tags [lsort -dictionary [array names segmentinfo *]]
-        foreach k $ordered_segmentinfo_tags {
-            lassign [split $k ,] c tag
-            if {$tag eq "type"} {
-                set type [set segmentinfo($k)]
-                if {$type eq "int"} {
-                    append tabledef "$segmentinfo($c,name) int,"
-                } else {
-                    append tabledef "$segmentinfo($c,name) text COLLATE $collate,"
-                }
-                append tabledef "raw$c text COLLATE $collate,"
-                lappend ordered_column_names $segmentinfo($c,name)
-                lappend ordered_column_names raw$c  ;#additional index column not in segmentinfo
-            }
-            if {$tag eq "name"} {
-                #lappend ordered_column_names $segmentinfo($k)
-            }
-        }
-        append tabledef "name text"
-        
-        #puts stdout "tabledef:$tabledef"
-
-
-        db_natsort2 eval [string map [list %tabledef% $tabledef] {create table natsort(%tabledef%)}]
-        
-        
-        foreach nm $stringlist {
-            array unset intdata
-            array set intdata {}
-            array set rawdata {}
-            #init array and build sql values string
-            set sql_insert "insert into natsort values("
-            for {set i 0} {$i < $maxsegments} {incr i} {
-                set intdata($i) ""
-                set rawdata($i) ""
-                append sql_insert "\$intdata($i),\$rawdata($i),"
-            }
-            append sql_insert "\$nm"  ;#don't manipulate name value in any way - e.g must leave all whitespace as the sort must return exactly the same elements as in the original list.
-            append sql_insert ")"
-            
-            set segments [split_numeric_segments $nm]
-            if {![string length [string trim [lindex $segments 0]]]} {
-                if {[string is digit [string trim [lindex $segments 1]]]} {
-                    #name is whitespace followed by a digit - special case - ignore the whitespace for numbers only. (whitespace still goes through to name column though)
-                    set segments [lrange $segments 1 end]
-                }
-            }
-            set values ""
-            set c 0
-            foreach seg $segments {
-                if {[set segmentinfo($c,type)] eq "int"} {
-                    if {[string is digit [string trim $seg]]} {
-                        set intdata($c) [trimzero [string trim $seg]]
-                    } else {
-                        catch {unset intdata($c)} ;#set NULL - sorts last
-                        if {($c == 0) && ($topunderscore) && [string match _* [string trim $seg]]} {
-                            set intdata($c) -100
-                        }
-                        if {($c == 0) && ($topdot) && [string match .* [string trim $seg]]} {
-                            set intdata($c) -50
-                        }
-                    }
-                    set rawdata($c)  [string trim $seg]
-                } else {
-                    #pure text column 
-                    #set intdata($c) [string trim $seg] ;#ignore leading/trailing whitespace - we sort first on trimmed version, then refine with the sort on rawdata index
-                    #catch {unset indata($c)}
-                    set indata($c) [string trim $seg]
-                    set rawdata($c)  $seg
-                }
-                #set rawdata($c) [string trim $seg]#
-                #set rawdata($c)  $seg
-                incr c
-            }
-            db_natsort2 eval $sql_insert
-        }
-
-        set orderedlist [list]
-   
-        if {$debug} {        
-            db_natsort2 eval {select * from pragma_table_info('natsort')} rowdata {
-                parray rowdata
-            }
-        }
-        set orderby "order by "
-        
-        foreach cname $ordered_column_names {
-            if {[string match "idx*" $cname]} {
-                append orderby "$cname ASC  NULLS LAST,"
-            } else {
-                append orderby "$cname ASC,"
-            }
-        }
-        append orderby " name ASC"
-        #append orderby " NULLS LAST" ;#??
-        
-        #e.g "order by idx0 ASC, raw0 ASC, idx1 ASC ....   name ASC"
-        if {$debug} {
-            puts stdout "orderby clause: $orderby"
-        }
-        db_natsort2 eval [string map [list %orderby% $orderby] {select * from natsort %orderby%}] rowdata {
-            set line "- "
-            #parray rowdata
-            set columnnames $rowdata(*)
-            #puts stdout "columnnames: $columnnames"
-            #[lsort -dictionary [array names rowdata]
-            append line "$rowdata(name) \n"
-            foreach nm $columnnames {
-                if {$nm ne "name"} {
-                    append line "$nm: $rowdata($nm) "
-                }
-            }
-            #puts stdout $line
-            #puts stdout "$rowdata(name)"
-            lappend orderedlist $rowdata(name)
-        }
-        
-        db_natsort2 close
-        return $orderedlist
-    }
-}
-
-
-#application section  e.g this file might be linked from /usr/local/bin/natsort 
-namespace eval natsort {
-    namespace import ::flagfilter::check_flags
-
-    proc called_directly_namematch {} {
-        global argv0
-        if {[info script] eq ""} {
-            return 0
-        }
-        #see https://wiki.tcl-lang.org/page/main+script  
-        #trailing ... let's us resolve symlinks in last component of the path (could be something else like ___ but ... seems unlikely to collide with anything in the filesystem)
-        if {[info exists argv0] 
-        &&
-            [file dirname [file normalize [file join [info script] ...]]]
-            eq
-            [file dirname [file normalize [file join $argv0 ...]]]
-        } {
-            return 1
-        } else {
-            #puts stdout "norm info script: [file dirname [file normalize [file join [info script] ...]]]"
-            #puts stdout "norm argv0      : [file dirname [file normalize [file join $argv0 ...]]]"
-            return 0
-        }
-    }
-    #Review issues around comparing names vs using inodes (esp with respect to samba shares)
-    proc called_directly_inodematch {} {
-        global argv0
-
-        if {[info exists argv0]
-         &&  [file exists [info script]] && [file exists $argv0]} {
-            file stat $argv0        argv0Info
-            file stat [info script] scriptInfo
-            if {$argv0Info(ino) == 0 || $scriptInfo(ino) == 0 || $argv0Info(dev) == 0 || $scriptInfo(dev) == 0} {
-                #vfs?
-                #e.g //zipfs:/
-                return 0
-            }
-            return [expr {$argv0Info(dev) == $scriptInfo(dev)
-               && $argv0Info(ino) == $scriptInfo(ino)}]
-        } else {
-            return 0
-        }
-    }
-
-    if {![interp issafe]} {
-        set is_namematch [called_directly_namematch]
-        set is_inodematch [called_directly_inodematch]
-        ####
-        #review - reliability of mechanisms to determine direct calls 
-        # we don't want application being called when being used as a library, but we need it to run if called directly or from symlinks etc 
-        #-- choose a policy and leave the others commented.
-        #set is_called_directly $is_namematch 
-        #set is_called_directly $is_inodematch 
-
-        #puts "NATSORT: called_directly_namematch - $is_namematch"
-        #puts "NATSORT: called_directly_inodematch - $is_inodematch"
-        #flush stdout
-
-        set is_called_directly [expr {$is_namematch || $is_inodematch}] 
-        #set is_called_directly [expr {$is_namematch && $is_inodematch}] 
-        ###
-        
-        
-        #puts stdout "called_directly_name: [called_directly_namematch]  called_directly_inode: [called_directly_inodematch]"
-    } else {
-        #safe interp
-        set is_called_directly 0
-    }
-
-
-    
-    proc test_pass_fail_message {pass {additional ""}} {
-        variable test_fail_msg
-        variable test_pass_msg
-        if {$pass} {
-            puts stderr $test_pass_msg
-        } else {
-            puts stderr $test_fail_msg
-        }
-        puts stderr $additional
-    }
-
-    variable test_fail_msg "XXXXXXXXXXXX   FAIL   XXXXXXXXXXXXX"
-    variable test_pass_msg "------------   PASS   -------------"
-    proc test_sort_1 {args} {
-        package require struct::list
-        puts stderr "---$args"
-        set args [check_flags -caller natsort:test_sort_1 -defaults [list  -collate nocase -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0 ] -values $args]
-
-        puts stderr "test_sort_1 got args: $args"
-
-            set unsorted_input {
-                2.2.2
-                2.2.2.2
-                1a.1.1
-                1a.2.1.1
-                1.12.1
-                1.2.1.1
-                1.02.1.1
-                1.002b.1.1
-                1.1.1.2
-                1.1.1.1
-            }
-            set input {
-1.1.1
-1.1.1.2
-1.002b.1.1
-1.02.1.1
-1.2.1.1
-1.12.1
-1a.1.1
-1a.2.1.1
-2.2.2
-2.2.2.2
-            }
-
-            set sorted [natsort::sort $input {*}$args]
-            set is_match [struct::list equal $input $sorted]
-            
-            set msg "windows-explorer order"
-
-            test_pass_fail_message $is_match $msg  
-            puts stdout [string repeat - 40]
-            puts stdout INPUT
-            puts stdout [string repeat - 40]
-            foreach item $input {
-                puts stdout $item
-            }
-            puts stdout [string repeat - 40]
-            puts stdout OUTPUT
-            puts stdout [string repeat - 40]
-            foreach item $sorted {
-                puts stdout $item
-            }
-            test_pass_fail_message $is_match  $msg
-            return [expr {!$is_match}]
-    }
-    proc test_sort_showsplits {args} {
-        package require struct::list
-
-        set args [check_flags -caller natsort:test_sort_1 \
-          -defaults [list  -collate nocase -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 1 ] \
-          -extras {all} \
-          -values $args]
-
-        set input1 {
-            a-b.txt
-            a.b.c.txt
-            b.c-txt
-        }
-
-
-        set input2 {
-            a.b.c.txt
-            a-b.txt
-            b.c-text
-        }
-
-        foreach {msg testlist } [list "custom-order" $input1  "windows-explorer (should work with -winlike 1)" $input2] {
-            set sorted [natsort::sort $testlist {*}$args]
-            set is_match [struct::list equal $testlist $sorted]
-        
-            test_pass_fail_message $is_match  $msg
-            puts stderr "INPUT"
-            puts stderr "[string repeat - 40]"
-            foreach item $testlist {
-                puts stdout $item
-            }
-            puts stderr "[string repeat - 40]"
-            puts stderr "OUTPUT"
-            puts stderr "[string repeat - 40]"
-            foreach item $sorted {
-                puts stdout $item
-            }
-            
-            test_pass_fail_message $is_match  $msg
-        }
-
-        #return [expr {!$is_match}]
-
-    }
-
-    #tcl proc dispatch order - non flag items up front
-    #trailing flags are paired even if supplied as solo flags e.g -l becomes -l 1
-    proc commandline_ls {args} {
-        set operands [list]
-        set posn 0
-        foreach a $args {
-          if {![string match -* $a]} {
-            lappend operands $a
-          } else {
-            set flag1_posn $posn
-            break
-          }
-          incr posn
-        }
-        set args [lrange $args $flag1_posn end]
-
-
-        set debug 0
-        set posn [lsearch $args -debug]
-        if {$posn > 0} {
-          if {[lindex $args $posn+1]} {
-              set debug [lindex $args $posn+1] 
-          }
-        }
-        if {$debug} {
-           puts stderr "|debug>commandline_ls got $args"
-        }
-
-        #if first operand not supplied - replace it with current working dir
-        if {[lindex $operands 0] eq "\uFFFF"} {
-            lset operands 0 [pwd]
-        }
-
-        set targets [list]
-        foreach op $operands {
-          if {$op ne "\uFFFF"} {
-              set opchars [split [file tail $op] ""]
-              if {"?" in $opchars || "*" in $opchars} {
-                lappend targets $op
-              } else {
-                #actual file or dir
-                set targetitem $op
-                set targetitem [file normalize $op]
-                if {![file exists $targetitem]} {
-                    if {$debug} {
-                      puts stderr "|debug>commandline_ls Unable to access path '$targetitem'"
-                    }
-                }
-                lappend targets $targetitem
-                if {$debug} {
-                  puts stderr "|debug>commandline_ls  listing for $targetitem"    
-                }
-             }
-          }
-        }
-        set args [check_flags -caller commandline_ls \
-          -return flagged|defaults \
-          -debugargs 0 \
-          -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0 -algorithm sort] \
-          -required {all} \
-          -extras {all} \
-          -soloflags {-v -l} \
-          -commandprocessors {} \
-          -values $args ]
-        if {$debug} {
-            puts stderr "|debug>args: $args"
-        }
-
-
-        set algorithm [dict get $args -algorithm]
-        dict unset args -algorithm
-
-        set allfolders [list]
-        set allfiles [list]
-        foreach item $targets {
-            if {[file exists $item]} {
-                if {[file type $item] eq "directory"} {
-                  set dotfolders [glob -nocomplain -directory $item -type {d} -tail .*]
-                  set folders [glob -nocomplain -directory $item -type {d} -tail *]
-                  set allfolders [concat $allfolders $dotfolders $folders]
-
-                  set dotfiles [glob -nocomplain -directory $item -type {f} -tail .*]
-                  set files [glob -nocomplain -directory $item -type {f} -tail *]
-                  set allfiles [concat $allfiles $dotfiles $files]
-                } else {
-                  #file (or link?)
-                  set files [glob -nocomplain -directory [file dirname $item] -tail [file tail $item]]
-                  set allfiles [concat $allfiles $files]
-                }
-            } else {
-                 set folders [glob -nocomplain -directory $item -type {d} -tail [file tail $item]]
-                 set allfolders [concat $allfolders $folders]
-                 set files [glob -nocomplain -directory [file dirname $item] -tail [file tail $item]]
-                 set allfiles [concat $allfiles $files]
-            }
-        }
-
-
-        set sorted_folders [natsort::sort $allfolders {*}$args]
-        set sorted_files [natsort::sort $allfiles {*}$args]
-        
-        foreach fold $sorted_folders {
-            puts stdout $fold
-        }
-        foreach file $sorted_files {
-            puts stdout $file
-        }
-        
-        return "-- ok printed to stdout [llength $sorted_folders] folders and [llength $sorted_files] files --"
-    }
-
-    package require argp
-    argp::registerArgs commandline_test {
-      { -showsplits     boolean   0}
-      { -stacktrace     boolean   0}
-      { -debug          boolean   0}
-      { -winlike        boolean   0}
-      { -db             string   ":memory:"}
-      { -collate        string   "nocase"}
-      { -algorithm      string   "sort"}
-      { -topchars       string   "\uFFFF"}
-      { -testlist       string   {10 1 30 3}}
-    }
-    argp::setArgsNeeded commandline_test {-stacktrace}
-    proc commandline_test {test args} {
-      variable testlist
-      puts stdout "commandline_test got $args"
-      argp::parseArgs opts
-      puts stdout "commandline_test got [array get opts]"
-      set args [check_flags -caller natsort_commandline \
-        -return flagged|defaults \
-        -defaults [list -db :memory: -collate nocase -testlist $testlist -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] \
-        -values $args]
-
-      if {[string tolower $test] in [list "1" "true"]} {
-          set test "sort"
-      } else {
-        if {![llength [info commands $test]]} {
-          error "test $test not found"
-        }
-      }
-      dict unset args -test
-      set stacktrace [dict get $args -stacktrace]
-      # dict unset args -stacktrace
-
-      set argtestlist [dict get $args -testlist]
-      dict unset args -testlist 
-
-
-      set debug [dict get $args -debug]
-
-      set collate       [dict get $args -collate]
-      set db            [dict get $args -db]
-      set winlike       [dict get $args -winlike]
-      set topchars      [dict get $args -topchars]
-
-
-      puts stderr "|test>-----start natsort::$test--- input list size : [llength $argtestlist]"
-      #set resultlist [$test $argtestlist -db $db -collate $collate -topchars $topchars  -winlike $winlike]
-      set resultlist [$test  $argtestlist {*}$args]
-      foreach nm $resultlist {
-          puts stdout $nm
-      }
-      puts stdout "|test>-----end   natsort::$test--- sorted list size: [llength $resultlist]"
-      return "test end"
-    }
-    proc commandline_runtests {runtests args} {
-        set argvals [check_flags -caller commandline_runtests \
-          -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits "\uFFFF" -runtests 1] \
-          -values $args]
-
-        puts stderr "runtests args: $argvals"
-
-        #set runtests [dict get $argvals -runtests]
-        dict unset argvals -runtests
-        dict unset argvals -algorithm
-
-        puts stderr "runtests args: $argvals"
-        #exit 0
-
-        set test_prefix "::natsort::test_sort_"
-
-        if {$runtests eq "1"} {
-            set runtests "*"
-        }
-        
-
-        set testcommands [info commands ${test_prefix}${runtests}] 
-        if {![llength $testcommands]} {
-            puts stderr "No test commands matched -runtests argument '$runtests'"
-            puts stderr "Use 1 to run all tests"
-            set alltests [info commands ${test_prefix}*]
-            puts stderr "Valid tests are:"
-
-            set prefixlen [string length $test_prefix]
-            foreach t $alltests {
-                set shortname [string range $t $prefixlen end]
-                puts stderr "$t   =  -runtests  $shortname"
-            }
-
-        } else {
-            foreach cmd $testcommands {
-                puts stderr [string repeat - 40]
-                puts stderr "calling $cmd with args: '$argvals'"
-                puts stderr [string repeat - 40]
-                $cmd {*}$argvals
-            }
-        }
-        exit 0
-    }
-    proc help {args} {
-        puts stdout "natsort::help got '$args'"
-        return "Help not implemented"
-    }
-    proc natsort_pipe {args} {
-          #PIPELINE to take input list on stdin and write sorted list to stdout 
-          #strip - from arglist
-          #set args [check_flags -caller natsort_pipeline \
-          #  -return all \
-          #  -defaults [list -db :memory: -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] \
-          #  -values $args]
-
-          
-          set debug [dict get $args -debug]
-          if {$debug} {
-            puts stderr "|debug> natsort_pipe got args:'$args'"
-          }
-          set algorithm [dict get $args -algorithm]
-          dict unset args -algorithm 
-          
-          set proclist [info commands ::natsort::sort*]
-          set algos [list]
-          foreach p $proclist {
-              lappend algos [namespace tail $p]
-          }
-          if {$algorithm ni [list {*}$proclist {*}$algos]} {    
-              do_error "valid sort mechanisms: $algos" 2
-          }
-          
-          
-          set input_list [list]
-          while {![eof stdin]} {
-              if {[gets stdin line] > 0} {
-                  lappend input_list $line
-              } else {
-                  if {[eof stdin]} {
-                      
-                  } else {
-                      after 10
-                  }
-              }
-          }
-          
-          if {$debug} {
-              puts stderr "|debug> received [llength $input_list] list elements"
-          }
-              
-          set resultlist [$algorithm $input_list {*}$args]
-          if {$debug} {
-              puts stderr "|debug> returning [llength $resultlist] list elements"
-          }
-          foreach r $resultlist {
-              puts stdout $r
-          }
-          #exit 0    
-
-    } 
-    if {($is_called_directly)} {
-            set cmdprocessors {
-                {helpfinal {match "^help$" dispatch natsort::help}}
-                {helpfinal {sub -topic default "NONE"}}
-            }
-            #set args [check_flags \
-            #  -caller test1 \
-            #  -debugargs 2 \
-            #  -return arglist \
-            #  -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] \
-            #  -required {none} \
-            #  -extras {all} \
-            #  -commandprocessors $cmdprocessors \
-            #  -values $::argv ]
-            interp alias {} do_filter {} ::flagfilter::check_flags
-
-            #mashopts are generally single-letter opts that can be run together e.g -l -d  as -ld
-            set cmdprocessors {
-                {helpcmd {match "^help$" dispatch natsort::help singleopts {-v}}}
-                {helpcmd {sub -operand default \uFFFF singleopts {-l}}}
-                {lscmd  {match "^ls$" dispatch natsort::commandline_ls dispatchtype tcl dispatchglobal 1 mashopts {-l -a} singleopts {-l -a} pairopts {} longopts {--color=always}}}
-                {lscmd {sub dir default "\uFFFF"}}
-                {lscmd {sub dir2 default "\uFFFF"}}
-                {lscmd {sub dir3 default "\uFFFF"}}
-                {lscmd {sub dir4 default "\uFFFF"}}
-                {lscmd {sub dir5 default "\uFFFF"}}
-                {lscmd {sub dir6 default "\uFFFF"}}
-                {runtests {match "^-tests$" dispatch natsort::commandline_runtests singleopts {-l}}}
-                {runtests {sub testname  default "1" singleopts {-l}}}
-                {pipecmd {match "^-$"    dispatch natsort::natsort_pipe dispatchtype tcl}}
-            } 
-            set arglist [do_filter \
-              -debugargs 0 \
-              -debugargsonerror 2 \
-              -caller cline_dispatch1 \
-              -return all \
-              -soloflags {-v -x} \
-              -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0 ] \
-              -required {all} \
-              -extras {all} \
-              -commandprocessors $cmdprocessors \
-              -values $::argv ]
-
-
-            #mashopts are generally single-letter opts that can be run together e.g -l -d  as -ld
-            set cmdprocessors {
-                {testcmd {match "^test$" dispatch natsort::commandline_test singleopts {-l}}}
-                {testcmd {sub testname  default "1" singleopts {-l}}}
-            } 
-            set arglist [check_flags \
-              -debugargs 0 \
-              -caller cline_dispatch2 \
-              -return all \
-              -soloflags {-v -l} \
-              -defaults [list  -collate nocase -algorithm sort -testlist "1 2 3 10" -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0 ] \
-              -required {all} \
-              -extras {all} \
-              -commandprocessors $cmdprocessors \
-              -values $::argv ]
-
-
-
-
-            #set cmdprocessors [list]
-            #set args [check_flags -caller test1 -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] -required {all} -extras {none} -commandprocessors $cmdprocessors -values $::argv ]
-
-            #set args [check_flags -caller test1 -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] -required {all} -extras {none} -commandprocessors {-cmd {-cmd -cmdarg1 -default "."} {-cmd -cmdarg2 -default j}} -values $::argv ]
-            #set args [check_flags -caller test1 -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] -required {all} -extras {none} -commandprocessors {{-cmd -default help} {-cmd -cmdarg1 -default "."} {-cmd -cmdarg2 -default j}} -values $::argv ]
-            #set args [check_flags -caller test1 -defaults [list  -collate nocase -algorithm sort -topchars "\uFFFF" -winlike 0 -debug 0 -stacktrace 0 -showsplits 0] -required {all} -extras {none} -commandprocessors {ls {ls lsdir -default "\uFFFF"}} -values $::argv ]
-
-            puts stderr "natsort directcall exit"
-            flush stderr
-            exit 0
-
-        if {$::argc} {
-            
-        }
-    }
-}
-
-
-package provide natsort [namespace eval natsort {
-    variable version
-    set version 0.1.1.6
-}]
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/oolib-0.1.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/oolib-0.1.2.tm
deleted file mode 100644
index 858c61cd..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/oolib-0.1.2.tm
+++ /dev/null
@@ -1,201 +0,0 @@
-#JMN - api should be kept in sync with package patternlib where possible
-#
-package provide oolib [namespace eval oolib {
-    variable version
-    set version 0.1.2
-}]
-
-namespace eval oolib {
-    oo::class create collection {
-        variable o_data ;#dict
-        #variable o_alias
-        constructor {} {
-            set o_data [dict create]
-        }
-        method info {} {
-            return [dict info $o_data]
-        }
-        method count {} {
-            return [dict size $o_data]
-        }
-        method isEmpty {} {
-            expr {[dict size $o_data] == 0}
-        }
-        method names {{globOrIdx {}}} {
-            if {[llength $globOrIdx]} {
-                if {[string is integer -strict $globOrIdx]} {
-                    set idx $globOrIdx
-                    if {$idx < 0} {
-                        set idx "end-[expr {abs($idx + 1)}]"
-                    }
-                    if {[catch {lindex [dict keys $o_data] $idx} result]} {
-                        error "[self object] no such index : '$idx'"
-                    } else {
-                        return $result
-                    }
-                } else {
-                    #glob
-                    return [lsearch -glob -all -inline [dict keys $o_data] $globOrIdx]
-                }
-            } else {
-                return [dict keys $o_data]
-            }
-        }
-        #like names but without globbing
-        method keys {} {
-            dict keys $o_data
-        }
-        method key {{posn 0}} {
-            if {$posn < 0} {
-                set posn "end-[expr {abs($posn + 1)}]"
-            }
-            if {[catch {lindex [dict keys $o_data] $posn} result]} {
-                error "[self object] no such index : '$posn'"
-            } else {
-                return $result
-            }
-        }
-        method hasKey {key} {
-            dict exists $o_data $key
-        }
-        method get {} {
-            return $o_data
-        }
-        method items {} {
-            return [dict values $o_data]
-        }
-        method item {key} {
-            if {[string is integer -strict $key]} {
-                if {$key >= 0} {
-                    set valposn [expr {(2*$key) +1}]
-                    return [lindex $o_data $valposn]
-                } else {
-                    set key "end-[expr {abs($key + 1)}]"
-                    return [lindex $o_data $key]
-                    #return [lindex [dict keys $o_data] $key]
-                }
-            }
-            if {[dict exists $o_data $key]} {
-                return [dict get $o_data $key]
-            }
-        }
-        #inverse lookup
-        method itemKeys {value} {
-            set value_indices [lsearch -all [dict values $o_data] $value]
-            set keylist [list]
-            foreach i $value_indices {
-                set idx [expr {(($i + 1) *2) -2}]
-                lappend keylist [lindex $o_data $idx]
-            }
-            return $keylist
-        }
-        method search {value args} {
-            set matches [lsearch {*}$args [dict values $o_data] $value]
-            if {"-inline" in $args} {
-                return $matches
-            } else {
-                set keylist [list]
-                foreach i $matches {
-                    set idx [expr {(($i + 1) *2) -2}]
-                    lappend keylist [lindex $o_data $idx]
-                }
-                return $keylist
-            }
-        }
-        #review - see patternlib. Is the intention for aliases to be configurable independent of whether the target exists?
-        #review - what is the point of alias anyway? - why slow down other operations when a variable can hold a keyname perfectly well?
-        #method alias {newAlias existingKeyOrAlias} {
-        #    if {[string is integer -strict $newAlias]} {
-        #        error "[self object] collection key alias cannot be integer"
-        #    }
-        #    if {[string length $existingKeyOrAlias]} {
-        #        set o_alias($newAlias) $existingKeyOrAlias
-        #    } else {
-        #        unset o_alias($newAlias)
-        #    }
-        #}
-        #method aliases {{key ""}} {
-        #    if {[string length $key]} {
-        #        set result [list]
-        #        foreach {n v} [array get o_alias] {
-        #            if {$v eq $key} {
-        #                lappend result $n $v
-        #            }
-        #        }		
-        #        return $result
-        #    } else {
-        #        return [array get o_alias]
-        #    }
-        #}
-        ##if the supplied index is an alias, return the underlying key; else return the index supplied.
-        #method realKey {idx} {
-        #    if {[catch {set o_alias($idx)} key]} {
-        #        return $idx
-        #    } else {
-        #        return $key
-        #    }
-        #}
-        method add {value key} {
-            if {[string is integer -strict $key]} {
-                error "[self object] collection key must not be an integer. Use another structure if integer keys required"
-            }
-            if {[dict exists $o_data $key]} {
-                error "[self object] col_processors object error: key '$key' already exists in collection"
-            }
-            dict set o_data $key $value
-            return [expr {[dict size $o_data] - 1}] ;#return index of item
-        }
-        method remove {idx {endRange ""}} {
-            if {[string length $endRange]} {
-                error "[self object] collection error: ranged removal not yet implemented.. remove one item at a time"
-            }
-            if {[string is integer -strict $idx]} {
-                if {$idx < 0} {
-                    set idx "end-[expr {abs($idx+1)}]"
-                }
-                set key [lindex [dict keys $o_data] $idx]
-                set posn $idx
-            } else {
-                set key $idx
-                set posn [lsearch -exact [dict keys $o_data] $key]
-                if {$posn < 0} {
-                    error "[self object] no such index: '$idx' in this collection"
-                }
-            }
-            dict unset o_data $key
-            return
-        }
-        method clear {} {
-            set o_data [dict create]
-            return
-        }
-        method reverse_the_collection {} {
-            #named slightly obtusely because reversing the data when there may be references held is a potential source of bugs
-            #the name reverse_the_collection should make it clear that the object is being modified in place as opposed to simply 'reverse' which may imply a view/copy.
-            #todo - consider implementing a get_reverse which provides an interface to the same collection without affecting original references, yet both allowing delete/edit operations.
-            set dictnew [dict create]
-            foreach k [lreverse [dict keys $o_data]] {
-                dict set dictnew $k [dict get $o_data $k]
-            }
-            set o_data $dictnew
-            return
-        }
-        #review - cmd as list vs cmd as script?
-        method map {cmd} {
-            set seed [list]
-            dict for {k v} $o_data {
-                lappend seed [uplevel #0 [list {*}$cmd $v]]
-            }
-            return $seed
-        }
-        method objectmap {cmd} {
-            set seed [list]
-            dict for {k v} $o_data {
-                lappend seed [uplevel #0 [list $v {*}$cmd]]
-            }
-            return $seed
-        }
-    }
-
-}
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/overtype-1.6.6.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/overtype-1.6.6.tm
deleted file mode 100644
index b4e59ec6..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/overtype-1.6.6.tm
+++ /dev/null
@@ -1,4774 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) Julian Noble 2003-2023
-#
-# @@ Meta Begin
-# Application overtype 1.6.6
-# Meta platform     tcl
-# Meta license      BSD 
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin overtype_module_overtype 0 1.6.6]
-#[copyright "2024"]
-#[titledesc {overtype text layout - ansi aware}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {overtype text layout}]             [comment {-- Description at end of page heading --}] 
-#[require overtype]
-#[keywords module text ansi]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of overtype 
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by overtype 
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require textutil
-package require punk::lib   ;#required for lines_as_list
-package require punk::ansi  ;#required to detect, split, strip and calculate lengths
-package require punk::char  ;#box drawing - and also unicode character width determination for proper layout of text with double-column-width chars
-package require punk::assertion
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package textutil]
-#[item] [package punk::ansi]
-#[para] - required to detect, split, strip and calculate lengths of text possibly containing ansi codes
-#[item] [package punk::char]
-#[para] - box drawing - and also unicode character width determination for proper layout of text with double-column-width chars
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-#PERFORMANCE notes
-#overtype is very performance sensitive - used in ansi output all over the place ie needs to be optimised
-#NOTE use of tcl::dict::for tcl::string::range etc instead of ensemble versions. This is for the many tcl 8.6/8.7 interps which don't compile ensemble commands when in safe interps
-#similar for tcl::namespace::eval - but this is at least on some versions of Tcl - faster even in a normal interp. Review to see if that holds for Tcl 9.
-#for string map:  when there are exactly 2 elements - it is faster to use a literal which has a special case optimisation in the c code
-#ie use tcl::string::map {\n ""} ...  instead of tcl::string::map [list \n ""] ...
-#note that we can use unicode (e.g \uFF31) and other escapes such as \t within these curly braces - we don't have to use double quotes
-#generally using 'list' is preferred for the map as less error prone.
-#can also use: tcl::string::map "token $var" ..   but be careful regarding quoting and whitespace in var. This should be used sparingly if at all.
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section API]
-
-
-#Julian Noble <julian@precisium.com.au> - 2003 
-#Released under standard 'BSD license' conditions.
-#
-#todo - ellipsis truncation indicator for center,right
-
-#v1.4 2023-07 - naive ansi color handling - todo - fix tcl::string::range 
-# - need to extract and replace ansi codes?
-
-tcl::namespace::eval overtype {
-    namespace import ::punk::assertion::assert
-    punk::assertion::active true 
-
-    namespace path ::punk::lib
-
-	namespace export *
-    variable default_ellipsis_horizontal "..." ;#fallback 
-    variable default_ellipsis_vertical "..." 
-    tcl::namespace::eval priv {
-        proc _init {} {
-            upvar ::overtype::default_ellipsis_horizontal e_h
-            upvar ::overtype::default_ellipsis_vertical e_v
-            set e_h [format %c 0x2026] ;#Unicode Horizontal Ellipsis
-            set e_v [format %c 0x22EE]
-            #The unicode ellipsis looks more natural than triple-dash which is centred vertically whereas ellipsis is at floorline of text
-            #Also - unicode ellipsis has semantic meaning that other processors can interpret
-            #unicode does also provide a midline horizontal ellipsis 0x22EF
-
-            #set e [format %c 0x2504] ;#punk::char::charshort boxd_ltdshhz  - Box Drawings Light Triple Dash Horizontal
-            #if {![catch {package require punk::char}]} {
-            #    set e [punk::char::charshort boxd_ltdshhz] 
-            #}
-        }
-    }
-    priv::_init
-}
-proc overtype::about {} {
-	return "Simple text formatting. Author JMN. BSD-License"
-}
-
-tcl::namespace::eval overtype {
-    variable grapheme_widths [tcl::dict::create]
-
-    variable escape_terminals
-    #single "final byte" in the range 0x40–0x7E (ASCII @A–Z[\]^_`a–z{|}~).
-    tcl::dict::set escape_terminals CSI [list @ \\ ^ _ ` | ~ a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z "\{" "\}"]
-    #tcl::dict::set escape_terminals CSI [list J K m n A B C D E F G s u] ;#basic 
-    tcl::dict::set escape_terminals OSC [list \007 \033\\] ;#note mix of 1 and 2-byte terminals 
-
-    #self-contained 2 byte ansi escape sequences - review more?
-    variable ansi_2byte_codes_dict
-    set  ansi_2byte_codes_dict [tcl::dict::create\
-        "reset_terminal"            "\u001bc"\
-        "save_cursor_posn"          "\u001b7"\
-        "restore_cursor_posn"       "\u001b8"\
-        "cursor_up_one"             "\u001bM"\
-        "NEL - Next Line"           "\u001bE"\
-        "IND - Down one line"       "\u001bD"\
-        "HTS - Set Tab Stop"        "\u001bH"\
-        ]
-
-        #debatable whether strip should reveal the somethinghidden - some terminals don't hide it anyway.
-        #  "PM - Privacy Message"      "\u001b^somethinghidden\033\\"\
-}
-
-
-
-
-proc overtype::string_columns {text} {
-    if {[punk::ansi::ta::detect $text]} {
-        #error "error string_columns is for calculating character length of string - ansi codes must be stripped/rendered first e.g with punk::ansi::ansistrip. Alternatively try punk::ansi::printing_length"
-        set text [punk::ansi::ansistrip $text]
-    }
-    return [punk::char::ansifreestring_width $text]
-}
-
-#todo - consider a way to merge overtype::left/centre/right
-#These have similar algorithms/requirements - and should be refactored to be argument-wrappers over a function called something like overtype::renderblock 
-#overtype::renderblock could render the input to a defined (possibly overflowing in x or y) rectangle overlapping the underlay.
-#(i.e not even necessariy having it's top left within the underlay)
-tcl::namespace::eval overtype::priv {
-}
-
-#could return larger than renderwidth 
-proc _get_row_append_column {row} {
-    #obsolete?
-    upvar outputlines outputlines 
-    set idx [expr {$row -1}]
-    if {$row <= 1 || $row > [llength $outputlines]} {
-        return 1
-    } else {
-        upvar opt_expand_right expand_right 
-        upvar renderwidth renderwidth 
-        set existinglen [punk::ansi::printing_length [lindex $outputlines $idx]]
-        set endpos [expr {$existinglen +1}]
-        if {$expand_right} {
-            return $endpos
-        } else {
-            if {$endpos > $renderwidth} {
-                return $renderwidth + 1
-            } else {
-                return $endpos
-            }
-        }
-    }
-}
-
-tcl::namespace::eval overtype {
-    #*** !doctools
-    #[subsection {Namespace overtype}]
-    #[para] Core API functions for overtype 
-    #[list_begin definitions]
-
-
-
-    #tcl::string::range should generally be avoided for both undertext and overtext which contain ansi escapes and other cursor affecting chars such as \b and \r
-    #render onto an already-rendered (ansi already processed) 'underlay' string, a possibly ansi-laden 'overlay' string.
-    #The underlay and overlay can be multiline blocks of text of varying line lengths.
-    #The overlay may just be an ansi-colourised block - or may contain ansi cursor movements and cursor save/restore calls - in which case the apparent length and width of the overlay can't be determined as if it was a block of text.
-    #This is a single-shot rendering of strings - ie there is no way to chain another call containing a cursor-restore to previously rendered output and have it know about any cursor-saves in the first call.
-    # a cursor start position other than top-left is a possible addition to consider.
-    #see editbuf in punk::repl for a more stateful ansi-processor. Both systems use loops over overtype::renderline 
-    proc renderspace {args} {
-        #*** !doctools
-        #[call [fun overtype::renderspace] [arg args] ]
-        #[para]	usage: ?-transparent [lb]0|1[rb]? ?-expand_right [lb]1|0[rb]? ?-ellipsis [lb]1|0[rb]? ?-ellipsistext ...? undertext overtext
-
-        # @c overtype starting at left (overstrike) 
-        # @c can/should we use something like this?: 'format "%-*s" $len $overtext 
-        variable default_ellipsis_horizontal
-
-        if {[llength $args] < 2} {
-            error {usage: ?-width <int>? ?-startcolumn <int>? ?-transparent [0|1|<char>]? ?-expand_right [1|0]? ?-ellipsis [1|0]? ?-ellipsistext ...? undertext overtext}
-        }
-        set optargs [lrange $args 0 end-2]
-        if {[llength $optargs] % 2 == 0} {
-            set overblock   [lindex $args end]
-            set underblock  [lindex $args end-1]
-            #lassign [lrange $args end-1 end] underblock overblock
-            set argsflags [lrange $args 0 end-2]
-        } else {
-            set optargs [lrange $args 0 end-1]
-            if {[llength $optargs] %2 == 0} {
-                set overblock [lindex $args end]
-                set underblock ""
-                set argsflags [lrange $args 0 end-1]
-            } else {
-                error "renderspace expects opt-val pairs followed by: <underblock> <overblock> or just <overblock>"
-            }
-        }
-        set opts [tcl::dict::create\
-            -bias           ignored\
-            -width          \uFFEF\
-            -height         \uFFEF\
-            -startcolumn    1\
-            -ellipsis       0\
-            -ellipsistext   $default_ellipsis_horizontal\
-            -ellipsiswhitespace 0\
-            -expand_right       0\
-            -appendlines    1\
-            -transparent    0\
-            -exposed1       \uFFFD\
-            -exposed2       \uFFFD\
-            -experimental   0\
-            -cp437          0\
-            -looplimit      \uFFEF\
-            -crm_mode       0\
-            -reverse_mode   0\
-            -insert_mode    0\
-            -wrap           0\
-            -info           0\
-            -console {stdin stdout stderr}\
-        ]
-        #expand_right is perhaps consistent with the idea of the page_size being allowed to grow horizontally..
-        # it does not necessarily mean the viewport grows. (which further implies need for horizontal scrolling)
-        # - it does need to be within some concept of terminal width - as columns must be addressable by ansi sequences.
-        # - This implies the -width option value must grow if it is tied to the concept of renderspace terminal width! REVIEW.
-        # - further implication is that if expand_right grows the virtual renderspace terminal width - 
-        #  then some sort of reflow/rerender needs to be done for preceeding lines?
-        # possibly not - as expand_right is distinct from a normal terminal-width change event, 
-        # expand_right being primarily to support other operations such as textblock::table
-
-        #todo - viewport width/height as separate concept to terminal width/height?
-        #-ellipsis args not used if -wrap is true
-        foreach {k v} $argsflags {
-            switch -- $k {
-                -looplimit - -width - -height - -startcolumn - -bias - -ellipsis - -ellipsistext - -ellipsiswhitespace
-                - -transparent - -exposed1 - -exposed2 - -experimental
-                - -expand_right - -appendlines
-                - -reverse_mode - -crm_mode - -insert_mode 
-                - -cp437
-                - -info - -console {
-                    tcl::dict::set opts $k $v
-                }
-                -wrap - -autowrap_mode {
-                    #temp alias -autowrap_mode for consistency with renderline
-                    #todo - 
-                    tcl::dict::set opts -wrap $v
-                }
-                default {
-                    error "overtype::renderspace unknown option '$k'. Known options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        #set opts [tcl::dict::merge $defaults $argsflags]
-        # -- --- --- --- --- ---
-        #review - expand_left for RTL text? 
-        set opt_expand_right    [tcl::dict::get $opts -expand_right] 
-        #for repl - standard output line indicator is a dash - todo, add a different indicator for a continued line.
-        set opt_width           [tcl::dict::get $opts -width]
-        set opt_height          [tcl::dict::get $opts -height]
-        set opt_startcolumn     [tcl::dict::get $opts -startcolumn]
-        set opt_appendlines     [tcl::dict::get $opts -appendlines]
-        set opt_transparent     [tcl::dict::get $opts -transparent]
-        set opt_ellipsistext    [tcl::dict::get $opts -ellipsistext]
-        set opt_ellipsiswhitespace [tcl::dict::get $opts -ellipsiswhitespace]
-        set opt_exposed1        [tcl::dict::get $opts -exposed1] ;#widechar_exposed_left  - todo
-        set opt_exposed2        [tcl::dict::get $opts -exposed2] ;#widechar_exposed_right - todo
-        # -- --- --- --- --- ---
-        set opt_crm_mode        [tcl::dict::get $opts -crm_mode]
-        set opt_reverse_mode    [tcl::dict::get $opts -reverse_mode]
-        set opt_insert_mode     [tcl::dict::get $opts -insert_mode]
-        #####
-        # review -wrap should map onto DECAWM terminal mode - the wrap 2 idea may not fit in with this?.
-        set opt_autowrap_mode   [tcl::dict::get $opts -wrap]  
-        #??? wrap 1 is hard wrap cutting word at exact column, or 1 column early for 2w-glyph, wrap 2 is for language-based word-wrap algorithm (todo)
-        #####
-        # -- --- --- --- --- ---
-        set opt_cp437           [tcl::dict::get $opts -cp437]
-        set opt_info            [tcl::dict::get $opts -info]
-
-
-
-        # ----------------------------
-        #  -experimental dev flag to set flags etc
-        # ----------------------------
-        set data_mode 0
-        set edit_mode 0
-        set opt_experimental   [tcl::dict::get $opts -experimental]
-        foreach o $opt_experimental {
-            switch -- $o {
-                data_mode {
-                    set data_mode 1
-                }
-                edit_mode {
-                    set edit_mode 1
-                }
-            }
-        }
-        # ----------------------------
-        
-
-        set underblock [tcl::string::map {\r\n \n} $underblock]
-        set overblock  [tcl::string::map {\r\n \n} $overblock]
-
-
-        #set underlines [split $underblock \n]
-
-        #underblock is a 'rendered' block - so width height make sense
-        #only non-cursor affecting and non-width occupying ANSI codes should be present.
-        #ie SGR codes and perhaps things such as PM - although generally those should have been pushed to the application already
-        #renderwidth & renderheight were originally used with reference to rendering into a 'column' of output e.g  a table column - before cursor row/col was implemented.
-        
-        if {$opt_width eq "\uFFEF" || $opt_height eq "\uFFEF"} {
-            lassign [blocksize $underblock] _w renderwidth _h renderheight 
-            if {$opt_width ne "\uFFEF"} {
-                set renderwidth $opt_width
-            }
-            if {$opt_height ne "\uFFEF"} {
-                set renderheight $opt_height
-            }
-        } else {
-            set renderwidth $opt_width
-            set renderheight $opt_height
-        }
-        #initial state for renderspace 'terminal' reset
-        set initial_state [dict create\
-            renderwidth         $renderwidth\
-            renderheight        $renderheight\
-            crm_mode            $opt_crm_mode\
-            reverse_mode        $opt_reverse_mode\
-            insert_mode         $opt_insert_mode\
-            autowrap_mode       $opt_autowrap_mode\
-            cp437               $opt_cp437\
-        ]
-        #modes
-        #e.g insert_mode can be toggled by insert key or ansi IRM sequence CSI 4 h|l
-        #opt_startcolumn ??  - DECSLRM ?
-        set vtstate $initial_state 
-
-        # -- --- --- --- 
-        #REVIEW - do we need ansi resets in the underblock?
-        if {$underblock eq ""} {
-            set underlines [lrepeat $renderheight ""]
-        } else {
-            set underblock [textblock::join_basic -- $underblock] ;#ensure properly rendered - ansi per-line resets & replays
-            set underlines [split $underblock \n]
-        }
-        #if {$underblock eq ""} {
-        #    set blank "\x1b\[0m\x1b\[0m"
-        #    #set underlines [list "\x1b\[0m\x1b\[0m"]
-        #    set underlines [lrepeat $renderheight $blank]
-        #} else {
-        #    #lines_as_list -ansiresets 1 will do nothing if -ansiresets 1 isn't specified - REVIEW
-        #    set underlines [lines_as_list -ansiresets 1 $underblock]
-        #}
-        # -- --- --- --- 
-
-        #todo - reconsider the 'line' as the natural chunking mechanism for the overlay.
-        #In practice an overlay ANSI stream can be a single line with ansi moves/restores etc - or even have no moves or newlines, just relying on wrapping at the output renderwidth 
-        #In such cases - we process the whole shebazzle for the first output line - only reducing by the applied amount at the head each time, reprocessing the long tail each time.
-        #(in cases where there are interline moves or cursor jumps anyway)
-        #This works - but doesn't seem efficient.
-        #On the other hand.. maybe it depends on the data. For simpler files it's more efficient than splitting first
-
-        #a hack until we work out how to avoid infinite loops... 
-        #
-        set looplimit [tcl::dict::get $opts -looplimit]
-        if {$looplimit eq "\uFFEF"} {
-            #looping for each char is worst case (all newlines?) - anything over that is an indication of something broken?
-            #do we need any margin above the length? (telnet mapscii.me test)
-            set looplimit [expr {[tcl::string::length $overblock] + 10}]
-        }
-
-        #overblock height/width isn't useful in the presence of an ansi input overlay with movements. The number of lines may bear little relationship to the output height
-        #lassign [blocksize $overblock] _w overblock_width _h overblock_height
-
-        set scheme 4
-        switch -- $scheme {
-            0 {
-                #one big chunk
-                set inputchunks [list $overblock]
-            }
-            1 {
-                set inputchunks [punk::ansi::ta::split_codes $overblock]
-            }
-            2 {
-
-                #split into lines if possible first - then into plaintext/ansi-sequence chunks ?
-                set inputchunks [list ""] ;#put an empty plaintext split in for starters
-                set i 1
-                set lines [split $overblock \n]
-                foreach ln $lines {
-                    if {$i < [llength $lines]} {
-                        append ln \n
-                    }
-                    set sequence_split [punk::ansi::ta::split_codes_single $ln]  ;#use split_codes Not split_codes_single?
-                    set lastpt [lindex $inputchunks end]
-                    lset inputchunks end [tcl::string::cat $lastpt [lindex $sequence_split 0]]
-                    lappend inputchunks {*}[lrange $sequence_split 1 end]
-                    incr i
-                }
-            }
-            3 {
-                #it turns out line based chunks are faster than the above.. probably because some of those end up doing the regex splitting twice 
-                set lflines [list]
-                set inputchunks [split $overblock \n]
-                foreach ln $inputchunks {
-                    append ln \n
-                    lappend lflines $ln
-                }
-                if {[llength $lflines]} {
-                    lset lflines end [tcl::string::range [lindex $lflines end] 0 end-1]
-                }
-                #set inputchunks $lflines[unset lflines]
-                set inputchunks [lindex [list $lflines [unset lflines]] 0]
-
-            }
-            4 {
-                set inputchunks [list]
-                foreach ln [split $overblock \n] {
-                    lappend inputchunks $ln\n
-                }
-                if {[llength $inputchunks]} {
-                    lset inputchunks end [tcl::string::range [lindex $inputchunks end] 0 end-1]
-                }
-            }
-        }
-
-
-
-
-        set replay_codes_underlay [tcl::dict::create 1 ""] 
-        #lappend replay_codes_overlay ""
-        set replay_codes_overlay "[punk::ansi::a]"
-        set unapplied ""
-        set cursor_saved_position [tcl::dict::create] 
-        set cursor_saved_attributes ""
-
-
-        set outputlines $underlines 
-        set overidx 0
-
-        #underlines are not necessarily processed in order - depending on cursor-moves applied from overtext
-        set row 1
-        #if {$data_mode} {
-        #    set col [_get_row_append_column $row] 
-        #} else {
-            set col $opt_startcolumn 
-        #}
-
-        set instruction_stats [tcl::dict::create]
-
-        set loop 0
-        #while {$overidx < [llength $inputchunks]} { }
-
-        while {[llength $inputchunks]} {
-            #set overtext  [lindex $inputchunks $overidx]; lset inputchunks $overidx ""
-            set overtext [lpop inputchunks 0]
-            if {![tcl::string::length $overtext]} {
-                incr loop
-                continue
-            } 
-            #puts "----->[ansistring VIEW -lf 1 -vt 1 -nul 1 $overtext]<----"
-            set undertext [lindex $outputlines [expr {$row -1}]] 
-            set renderedrow $row
-
-            #renderline pads each underaly line to width with spaces and should track where end of data is
-
-
-            #set overtext [tcl::string::cat [lindex $replay_codes_overlay $overidx] $overtext]
-            set overtext $replay_codes_overlay$overtext
-            if {[tcl::dict::exists $replay_codes_underlay $row]} {
-                set undertext [tcl::dict::get $replay_codes_underlay $row]$undertext
-            }
-            #review insert_mode. As an 'overtype' function whose main function is not interactive keystrokes - insert is secondary - 
-            #but even if we didn't want it as an option to the function call - to process ansi adequately we need to support IRM (insertion-replacement mode) ESC [ 4 h|l
-            set renderopts [list    -experimental               $opt_experimental\
-                                    -cp437                      $opt_cp437\
-                                    -info                       1\
-                                    -crm_mode                   [tcl::dict::get $vtstate crm_mode]\
-                                    -insert_mode                [tcl::dict::get $vtstate insert_mode]\
-                                    -autowrap_mode              [tcl::dict::get $vtstate autowrap_mode]\
-                                    -reverse_mode               [tcl::dict::get $vtstate reverse_mode]\
-                                    -cursor_restore_attributes  $cursor_saved_attributes\
-                                    -transparent                $opt_transparent\
-                                    -width                      [tcl::dict::get $vtstate renderwidth]\
-                                    -exposed1                   $opt_exposed1\
-                                    -exposed2                   $opt_exposed2\
-                                    -expand_right               $opt_expand_right\
-                                    -cursor_column              $col\
-                                    -cursor_row                 $row\
-                        ]
-            set rinfo [renderline {*}$renderopts $undertext $overtext]
-
-            set instruction                                                 [tcl::dict::get $rinfo instruction]
-            tcl::dict::set vtstate crm_mode                                 [tcl::dict::get $rinfo crm_mode]
-            tcl::dict::set vtstate insert_mode                              [tcl::dict::get $rinfo insert_mode]
-            tcl::dict::set vtstate autowrap_mode                            [tcl::dict::get $rinfo autowrap_mode] ;#
-            tcl::dict::set vtstate reverse_mode                             [tcl::dict::get $rinfo reverse_mode]
-            #how to support reverse_mode in rendered linelist? we need to examine all pt/code blocks and flip each SGR stack?
-            # - review - the answer is probably that we don't need to - it is set/reset only during application of overtext
-
-            #Note carefully the difference betw overflow_right and unapplied.
-            #overflow_right may need to be included in next run before the unapplied data 
-            #overflow_right most commonly has data when in insert_mode
-            set rendered                                                    [tcl::dict::get $rinfo result]
-            set overflow_right                                              [tcl::dict::get $rinfo overflow_right]
-            set overflow_right_column                                       [tcl::dict::get $rinfo overflow_right_column]
-            set unapplied                                                   [tcl::dict::get $rinfo unapplied]
-            set unapplied_list                                              [tcl::dict::get $rinfo unapplied_list]
-            set post_render_col                                             [tcl::dict::get $rinfo cursor_column]
-            set post_render_row                                             [tcl::dict::get $rinfo cursor_row]
-            set c_saved_pos                                                 [tcl::dict::get $rinfo cursor_saved_position]
-            set c_saved_attributes                                          [tcl::dict::get $rinfo cursor_saved_attributes]
-            set visualwidth                                                 [tcl::dict::get $rinfo visualwidth] ;#column width of what is 'rendered' for the line
-            set insert_lines_above                                          [tcl::dict::get $rinfo insert_lines_above]
-            set insert_lines_below                                          [tcl::dict::get $rinfo insert_lines_below]
-            tcl::dict::set replay_codes_underlay  [expr {$renderedrow+1}]   [tcl::dict::get $rinfo replay_codes_underlay]
-
-            #lset replay_codes_overlay [expr $overidx+1] [tcl::dict::get $rinfo replay_codes_overlay]
-            set replay_codes_overlay    [tcl::dict::get $rinfo replay_codes_overlay]
-            if {0 && [tcl::dict::get $vtstate reverse_mode]} {
-                #test branch - todo - prune
-                puts stderr "---->[ansistring VIEW $replay_codes_overlay] rendered: $rendered"
-                #review
-                #JMN3
-                set existing_reverse_state 0 
-                #split_codes_single is single esc sequence - but could have multiple sgr codes within one esc sequence
-                #e.g \x1b\[0;31;7m  has a reset,colour red and reverse
-                set codeinfo [punk::ansi::codetype::sgr_merge [list $replay_codes_overlay] -info 1]
-                set codestate_reverse [dict get $codeinfo codestate reverse]
-                switch -- $codestate_reverse {
-                    7 {
-                        set existing_reverse_state 1
-                    }
-                    27 {
-                        set existing_reverse_state 0
-                    }
-                    "" {
-                    }
-                }
-                if {$existing_reverse_state == 0} {
-                    set rflip [a+ reverse]
-                } else {
-                    #reverse of reverse
-                    set rflip [a+ noreverse]
-                }
-                #note that mergeresult can have multiple esc (due to unmergeables or non sgr codes)
-                set replay_codes_overlay [punk::ansi::codetype::sgr_merge [list [dict get $codeinfo mergeresult] $rflip]]
-                puts stderr "---->[ansistring VIEW $replay_codes_overlay] rendered: $rendered"
-            }
-
-
-
-            #-- todo - detect looping properly
-            if {$row > 1 && $overtext ne "" && $unapplied eq $overtext && $post_render_row == $row && $instruction eq ""} {
-                puts stderr "overtype::renderspace loop?"
-                puts [ansistring VIEW $rinfo]
-                break
-            }
-            #--
-
-            if {[tcl::dict::size $c_saved_pos] >= 1} {
-                set cursor_saved_position $c_saved_pos
-                set cursor_saved_attributes $c_saved_attributes
-            }
-
-
-            set overflow_handled 0
-
-
-
-            set nextprefix ""
-
-
-                #todo - handle potential insertion mode as above for cursor restore?
-                #keeping separate branches for debugging - review and merge as appropriate when stable
-                set instruction_type [lindex $instruction 0] ;#some instructions have params
-                tcl::dict::incr instruction_stats $instruction_type 
-                switch -- $instruction_type {
-                    reset {
-                        #reset the 'renderspace terminal' (not underlying terminal)
-                        set row 1
-                        set col 1
-                        set vtstate [tcl::dict::merge $vtstate $initial_state]
-                        #todo - clear screen
-                    }
-                    {} {
-                        #end of supplied line input
-                        #lf included in data
-                        set row $post_render_row
-                        set col $post_render_col
-                        if {![llength $unapplied_list]} {
-                            if {$overflow_right ne ""} {
-                                incr row
-                            }
-                        } else {
-                            puts stderr "renderspace end of input line - has unapplied: [ansistring VIEW $unapplied] (review)"
-                        }
-                        set col $opt_startcolumn 
-                    }
-                    up {
-
-                        #renderline knows it's own line number, and knows not to go above row l
-                        #it knows that a move whilst 1-beyond the width conflicts with the linefeed and reduces the move by one accordingly.
-                        #row returned should be correct.
-                        #column may be the overflow column - as it likes to report that to the caller.
-
-                        #Note that an ansi up sequence after last column going up to a previous line and also beyond the last column, will result in the next grapheme going onto the following line.
-                        #this seems correct - as the column remains beyond the right margin so subsequent chars wrap  (?) review
-                        #puts stderr "up $post_render_row"
-                        #puts stderr "$rinfo"
-
-                        #puts stdout "1 row:$row col $col" 
-                        set row $post_render_row
-                        #data_mode (naming?) determines if we move to end of existing data or not.
-                        #data_mode 0 means ignore existing line length and go to exact column
-                        #set by -experimental flag
-                        if {$data_mode == 0} {
-                            set col $post_render_col
-                        } else {
-                            #This doesn't really work if columns are pre-filled with spaces..we can't distinguish them from data 
-                            #we need renderline to return the number of the maximum column filled (or min if we ever do r-to-l)
-                            set existingdata [lindex $outputlines [expr {$post_render_row -1}]] 
-                            set lastdatacol [punk::ansi::printing_length $existingdata]
-                            if {$lastdatacol < $renderwidth} {
-                                set col [expr {$lastdatacol+1}]
-                            } else {
-                                set col $renderwidth 
-                            }
-                        }
-                        
-                        #puts stdout "2 row:$row col $col" 
-                        #puts stdout "-----------------------"
-                        #puts stdout $rinfo
-                        #flush stdout
-                    }
-                    down {
-                        if {$data_mode == 0} {
-                            #renderline doesn't know how far down we can go..
-                            if {$post_render_row > [llength $outputlines]} {
-                                if {$opt_appendlines} {
-                                    set diff [expr {$post_render_row - [llength $outputlines]}]
-                                    if {$diff > 0} {
-                                        lappend outputlines {*}[lrepeat $diff ""]
-                                    }
-                                    lappend outputlines ""
-                                }
-                            }
-                            set row $post_render_row 
-                            set col $post_render_col
-                        } else {
-                            if {$post_render_row > [llength $outputlines]} {
-                                if {$opt_appendlines} {
-                                    set diff [expr {$post_render_row - [llength $outputlines]}]
-                                    if {$diff > 0} {
-                                        lappend outputlines {*}[lrepeat $diff ""]
-                                    }
-                                    lappend outputlines ""
-                                }
-                            }
-                            set existingdata [lindex $outputlines [expr {$post_render_row -1}]] 
-                            set lastdatacol [punk::ansi::printing_length $existingdata]
-                            if {$lastdatacol < $renderwidth} {
-                                set col [expr {$lastdatacol+1}]
-                            } else {
-                                set col $renderwidth 
-                            }
-
-                        }
-                    }
-                    restore_cursor {
-                        #testfile belinda.ans uses this
-
-                        #puts stdout "[a+ blue bold]CURSOR_RESTORE[a]"
-                        if {[tcl::dict::exists $cursor_saved_position row]} {
-                            set row [tcl::dict::get $cursor_saved_position row]
-                            set col [tcl::dict::get $cursor_saved_position column]
-                            #puts stdout "restoring: row $row col $col [ansistring VIEW $cursor_saved_attributes] [a] unapplied [ansistring VIEWCODES $unapplied]"
-                            #set nextprefix $cursor_saved_attributes
-                            #lset replay_codes_overlay [expr $overidx+1] $cursor_saved_attributes 
-                            set replay_codes_overlay [tcl::dict::get $rinfo replay_codes_overlay]$cursor_saved_attributes
-                            #set replay_codes_overlay $cursor_saved_attributes
-                            set cursor_saved_position [tcl::dict::create]
-                            set cursor_saved_attributes ""
-                        } else {
-                            #TODO
-                            #?restore without save?
-                            #should move to home position and reset ansi SGR?
-                            #puts stderr "overtype::renderspace cursor_restore without save data available"
-                        }
-                        #If we were inserting prior to hitting the cursor_restore - there could be overflow_right data - generally the overtype functions aren't for inserting - but ansi can enable it
-                        #if we were already in overflow when cursor_restore was hit - it shouldn't have been processed as an action - just stored.
-                        if {!$overflow_handled && $overflow_right ne ""} {
-                            #wrap before restore? -  possible effect on saved cursor position
-                            #this overflow data has previously been rendered so has no cursor movements or further save/restore operations etc
-                            #we can just insert another call to renderline  to solve this.. ?
-                            #It would perhaps be more properly handled as a queue of instructions from our initial renderline call 
-                            #we don't need to worry about overflow next call (?)- but we should carry forward our gx and ansi stacks
-
-                            puts stdout ">>>[a+ red bold]overflow_right during restore_cursor[a]"
-
-                            set sub_info [overtype::renderline\
-                                            -info           1\
-                                            -width          [tcl::dict::get $vtstate renderwidth]\
-                                            -insert_mode    [tcl::dict::get $vtstate insert_mode]\
-                                            -autowrap_mode  [tcl::dict::get $vtstate autowrap_mode]\
-                                            -expand_right   [tcl::dict::get $opts -expand_right]\
-                                            ""\
-                                            $overflow_right\
-                                        ]
-                            set foldline                            [tcl::dict::get $sub_info result]
-                            tcl::dict::set vtstate insert_mode      [tcl::dict::get $sub_info insert_mode] ;#probably not needed..? 
-                            tcl::dict::set vtstate autowrap_mode    [tcl::dict::get $sub_info autowrap_mode] ;#nor this..
-                            linsert outputlines $renderedrow $foldline
-                            #review - row & col set by restore - but not if there was no save..
-                        }
-                        set overflow_handled 1
-
-                    }
-                    move {
-                        ########
-                        if {$post_render_row > [llength $outputlines]} {
-                            #Ansi moves need to create new lines ?
-                            #if {$opt_appendlines} {
-                            #    set diff [expr {$post_render_row - [llength $outputlines]}]
-                            #    if {$diff > 0} {
-                            #        lappend outputlines {*}[lrepeat $diff ""]
-                            #    }
-                            #    set row $post_render_row
-                            #} else {
-                                set row [llength $outputlines]
-                            #}
-                        } else {
-                            set row $post_render_row
-                        }
-                        #######
-                        set col $post_render_col
-                        #overflow + unapplied?
-                    }
-                    clear_and_move {
-                        #e.g 2J
-                        if {$post_render_row > [llength $outputlines]} {
-                            set row [llength $outputlines]
-                        } else {
-                            set row $post_render_row
-                        }
-                        set col $post_render_col
-                        set overflow_right "" ;#if we're clearing - any overflow due to insert_mode is irrelevant
-                        set clearedlines [list]
-                        foreach ln $outputlines {
-                            lappend clearedlines \x1b\[0m$replay_codes_overlay[string repeat \000 $renderwidth]\x1b\[0m
-                            if 0 {
-
-                                set lineparts [punk::ansi::ta::split_codes $ln]
-                                set numcells 0
-                                foreach {pt _code} $lineparts {
-                                    if {$pt ne ""} {
-                                        foreach grapheme [punk::char::grapheme_split $pt] {
-                                            switch -- $grapheme {
-                                                " " - - - _ - ! - @ - # - $ - % - ^ - & - * - = - + - : - . - , - / - | - ? - 
-                                                a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - 
-                                                z - A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {
-                                                    incr numcells 1
-                                                }
-                                                default {
-                                                    if {$grapheme eq "\u0000"} {
-                                                        incr numcells 1
-                                                    } else {
-                                                        incr numcells [grapheme_width_cached $grapheme]
-                                                    }
-                                                }
-                                            }
-
-                                        }
-                                    }
-                                }
-                                #replays/resets each line
-                                lappend clearedlines \x1b\[0m$replay_codes_overlay[string repeat \000 $numcells]\x1b\[0m
-                            }
-                        }
-                        set outputlines $clearedlines
-                        #todo - determine background/default to be in effect - DECECM ?
-                        puts stderr "replay_codes_overlay: [ansistring VIEW $replay_codes_overlay]"
-                        #lset outputlines 0 $replay_codes_overlay[lindex $outputlines 0]
-                        
-                    }
-                    lf_start {
-                        #raw newlines 
-                        # ----------------------
-                        #test with fruit.ans
-                        #test - treating as newline below...
-                        #append rendered $overflow_right
-                        #set overflow_right ""
-                        set row $renderedrow
-                        incr row 
-                        if {$row > [llength $outputlines]} {
-                            lappend outputlines ""
-                        }
-                        set col $opt_startcolumn 
-                        # ----------------------
-                    }
-                    lf_mid {
-
-                            set edit_mode 0
-                            if {$edit_mode} {
-                                set inputchunks [linsert $inputchunks 0 $overflow_right$unapplied]
-                                set overflow_right ""
-                                set unapplied ""
-                                set row $post_render_row
-                                #set col $post_render_col
-                                set col $opt_startcolumn 
-                                if {$row > [llength $outputlines]} {
-                                    lappend outputlines {*}[lrepeat 1 ""]
-                                }
-                            } else {
-                                if 1 {
-                                    if {$overflow_right ne ""} {
-                                        if {$opt_expand_right} {
-                                            append rendered $overflow_right
-                                            set overflow_right ""
-                                        } else {
-                                            #review - we should really make renderline do the work...?
-                                            set  overflow_width [punk::ansi::printing_length $overflow_right]
-                                            if {$visualwidth + $overflow_width <= $renderwidth} {
-                                                append rendered $overflow_right
-                                                set overflow_right ""
-                                            } else {
-                                                if {[tcl::dict::get $vtstate autowrap_mode]} {
-                                                    set outputlines [linsert $outputlines $renderedrow $overflow_right]
-                                                    set overflow_right ""
-                                                    set row [expr {$renderedrow + 2}] 
-                                                } else {
-                                                    set overflow_right "" ;#abandon
-                                                }
-                                                
-                                                if {0 && $visualwidth < $renderwidth} {
-                                                    puts stderr "visualwidth: $visualwidth < renderwidth:$renderwidth"
-                                                    error "incomplete - abandon?"
-                                                    set overflowparts [punk::ansi::ta::split_codes $overflow_right]
-                                                    set remaining_overflow $overflowparts 
-                                                    set filled 0
-                                                    foreach {pt code} $overflowparts {
-                                                        lpop remaining_overflow 0
-                                                        if {$pt ne ""} {
-                                                            set graphemes [punk::char::grapheme_split $pt]
-                                                            set add "" 
-                                                            set addlen $visualwidth
-                                                            foreach g $graphemes {
-                                                                set w [overtype::grapheme_width_cached $g]
-                                                                if {$addlen + $w <= $renderwidth} {
-                                                                    append add $g
-                                                                    incr addlen $w
-                                                                } else {
-                                                                    set filled 1 
-                                                                    break
-                                                                } 
-                                                            }
-                                                            append rendered $add
-                                                        }
-                                                        if {!$filled} {
-                                                            lpop remaining_overflow 0 ;#pop code
-                                                        }
-                                                    }
-                                                    set overflow_right [join $remaining_overflow ""]
-                                                }
-                                            }
-                                        }
-                                    }
-                                    set row $post_render_row
-                                    set col $opt_startcolumn 
-                                    if {$row > [llength $outputlines]} {
-                                        lappend outputlines {*}[lrepeat 1 ""]
-                                    }
-                                } else {
-                                    #old version - known to work with various ansi graphics - e.g fruit.ans
-                                    # - but fails to limit lines to renderwidth when expand_right == 0
-                                    append rendered $overflow_right
-                                    set overflow_right ""
-                                    set row $post_render_row
-                                    set col $opt_startcolumn 
-                                    if {$row > [llength $outputlines]} {
-                                        lappend outputlines {*}[lrepeat 1 ""]
-                                    }
-                                }
-                            }
-                    }
-                    lf_overflow {
-                            #linefeed after renderwidth e.g at column 81 for an 80 col width
-                            #we may also have other control sequences that came after col 80 e.g cursor save
-
-                            if 0 {
-                                set lhs [overtype::left -width 40 -wrap 1 "" [ansistring VIEWSTYLE -nul 1 -lf 1 -vt 1 $rendered]]
-                                set lhs [textblock::frame -title "rendered $visualwidth cols" -subtitle "row-$renderedrow" $lhs]
-                                set rhs ""
-
-                                #assertion - there should be no overflow..
-                                puts $lhs
-                            }
-                            if {![tcl::dict::get $vtstate insert_mode]} {
-                                assert {$overflow_right eq ""} lf_overflow should not get data in overflow_right when not insert_mode
-                            }
-
-                            set row $post_render_row
-                            #set row $renderedrow
-                            #incr row 
-                            #only add newline if we're at the bottom
-                            if {$row > [llength $outputlines]} {
-                                lappend outputlines {*}[lrepeat 1 ""]
-                            }
-                            set col $opt_startcolumn 
-
-                    }
-                    newlines_above {
-                        #we get a newlines_above instruction when <lf> received at column 1
-                        #In some cases we want to treat that as request to insert a new blank line above, and move our row 1 down (staying with the data)
-                        #in other cases - we want to treat <lf> at column 1 the same as any other <lf>
-
-                        puts "--->newlines_above"
-                        puts "rinfo: $rinfo"
-                        #renderline doesn't advance the row for us - the caller has the choice to implement or not
-                        set row $post_render_row
-                        set col $post_render_col
-                        if {$insert_lines_above > 0} {
-                            set row $renderedrow
-                            set outputlines [linsert $outputlines $renderedrow-1 {*}[lrepeat $insert_lines_above ""]] 
-                            incr row [expr {$insert_lines_above -1}] ;#we should end up on the same line of text (at a different index), with new empties inserted above
-                            #? set row $post_render_row #can renderline tell us?
-                        }
-                    }
-                    newlines_below {
-                        #obsolete? - use for ANSI insert lines sequence
-                        if {$data_mode == 0} {
-                            puts --->nl_below
-                            set row $post_render_row
-                            set col $post_render_col
-                            if {$insert_lines_below == 1} {
-                                #set lhs [overtype::left -width 40 -wrap 1 "" [ansistring VIEWSTYLE -lf 1 -vt 1 $rendered]]
-                                #set lhs [textblock::frame -title rendered -subtitle "row-$renderedrow" $lhs]
-                                #set rhs ""
-                                #if {$overflow_right ne ""} {
-                                #    set rhs [overtype::left -width 40 -wrap 1 "" [ansistring VIEWSTYLE -lf 1 -vt 1 $overflow_right]]
-                                #    set rhs [textblock::frame -title overflow_right $rhs]
-                                #}
-                                #puts [textblock::join $lhs $rhs]
-
-                                #rendered 
-                                append rendered $overflow_right
-                                #
-
-
-                                set overflow_right ""
-                                set row $renderedrow
-                                #only add newline if we're at the bottom
-                                if {$row > [llength $outputlines]} {
-                                    lappend outputlines {*}[lrepeat $insert_lines_below ""]
-                                }
-                                incr row $insert_lines_below
-                                set col $opt_startcolumn 
-                            }
-                        } else {
-                            set row $post_render_row
-                            if {$post_render_row > [llength $outputlines]} {
-                                if {$opt_appendlines} {
-                                    set diff [expr {$post_render_row - [llength $outputlines]}]
-                                    if {$diff > 0} {
-                                        lappend outputlines {*}[lrepeat $diff ""]
-                                    }
-                                    lappend outputlines ""
-                                }
-                            } else {
-                                set existingdata [lindex $outputlines [expr {$post_render_row -1}]] 
-                                set lastdatacol [punk::ansi::printing_length $existingdata]
-                                if {$lastdatacol < $renderwidth} {
-                                    set col [expr {$lastdatacol+1}]
-                                } else {
-                                    set col $renderwidth 
-                                }
-                            }
-                        }
-                    }
-                    wrapmoveforward {
-                        #doesn't seem to be used by fruit.ans testfile
-                        #used by dzds.ans
-                        #note that cursor_forward may move deep into the next line - or even span multiple lines !TODO
-                        set c $renderwidth 
-                        set r $post_render_row
-                        if {$post_render_col > $renderwidth} {
-                            set i $c
-                            while {$i <= $post_render_col} {
-                                if {$c == $renderwidth+1} {
-                                    incr r
-                                    if {$opt_appendlines} {
-                                        if {$r < [llength $outputlines]} {
-                                            lappend outputlines ""
-                                        }
-                                    }
-                                    set c $opt_startcolumn 
-                                } else {
-                                    incr c
-                                }    
-                                incr i
-                            }
-                            set col $c
-                        } else {
-                            #why are we getting this instruction then?
-                            puts stderr "wrapmoveforward - test"
-                            set r [expr {$post_render_row +1}]
-                            set c $post_render_col 
-                        }
-                        set row $r
-                        set col $c
-                    }
-                    wrapmovebackward {
-                        set c $renderwidth
-                        set r $post_render_row
-                        if {$post_render_col < 1} {
-                            set c 1 
-                            set i $c
-                            while {$i >= $post_render_col} {
-                                if {$c == 0} {
-                                    if {$r > 1} {
-                                        incr r -1
-                                        set c $renderwidth
-                                    } else {
-                                        #leave r at 1 set c 1
-                                        #testfile besthpav.ans first line top left border alignment
-                                        set c 1
-                                        break
-                                    }
-                                } else {
-                                    incr c -1
-                                }
-                                incr i -1
-                            }
-                            set col $c
-                        } else {
-                            puts stderr "Wrapmovebackward - but postrendercol >= 1???"
-                        }
-                        set row $r
-                        set col $c
-                    }
-                    overflow {
-                        #normal single-width grapheme overflow
-                        #puts "----normal overflow --- [ansistring VIEWSTYLE -lf 1 -nul 1 -vt 1 $rendered]"
-                        set row $post_render_row  ;#renderline will not advance row when reporting overflow char
-                        if {[tcl::dict::get $vtstate autowrap_mode]} {
-                            incr row
-                            set col $opt_startcolumn ;#whether wrap or not - next data is at column 1  ??
-                        } else {
-                            set col $post_render_col
-                            #set unapplied ""             ;#this seems wrong?
-                            #set unapplied [tcl::string::range $unapplied 1 end] 
-                            #The overflow can only be triggered by a grapheme (todo cluster?) - but our unapplied could contain SGR codes prior to the grapheme that triggered overflow - so we need to skip beyond any SGRs
-                            #There may be more than one, because although the stack leading up to overflow may have been merged - codes between the last column and the overflowing grapheme will remain separate
-                            #We don't expect any movement or other ANSI codes - as if they came before the grapheme, they would have triggered a different instruction to 'overflow'
-                            set idx 0
-                            set next_grapheme_index -1
-                            foreach u $unapplied_list {
-                                if {![punk::ansi::ta::detect $u]} {
-                                    set next_grapheme_index $idx
-                                    break
-                                }
-                                incr idx
-                            }
-                            assert {$next_grapheme_index >= 0}
-                            #drop the overflow grapheme - keeping all codes in place.
-                            set unapplied [join [lreplace $unapplied_list $next_grapheme_index $next_grapheme_index] ""]
-                            #we need to run the reduced unapplied on the same line - further graphemes will just overflow again, but codes or control chars could trigger jumps to other lines
-
-                            set overflow_handled 1
-                            #handled by dropping overflow if any 
-                        }
-                    }
-                    overflow_splitchar {
-                        set row $post_render_row  ;#renderline will not advance row when reporting overflow char
-
-                        #2nd half of grapheme would overflow - treggering grapheme is returned in unapplied. There may also be overflow_right from earlier inserts
-                        #todo - consider various options .. re-render a single trailing space or placeholder on same output line, etc
-                        if {[tcl::dict::get $vtstate autowrap_mode]} {
-                            if {$renderwidth < 2} {
-                                #edge case of rendering to a single column output - any 2w char will just cause a loop if we don't substitute with something, or drop the character
-                                set idx 0
-                                set triggering_grapheme_index -1
-                                foreach u $unapplied_list {
-                                    if {![punk::ansi::ta::detect $u]} {
-                                        set triggering_grapheme_index $idx
-                                        break
-                                    }
-                                    incr idx
-                                }
-                                set unapplied [join [lreplace $unapplied_list $triggering_grapheme_index $triggering_grapheme_index $opt_exposed1] ""]
-                            } else {
-                                set col  $opt_startcolumn
-                                incr row
-                            }
-                        } else {
-                            set overflow_handled 1
-                            #handled by dropping entire overflow if any  
-                            if {$renderwidth < 2} {
-                                set idx 0
-                                set triggering_grapheme_index -1
-                                foreach u $unapplied_list {
-                                    if {![punk::ansi::ta::detect $u]} {
-                                        set triggering_grapheme_index $idx
-                                        break
-                                    }
-                                    incr idx
-                                }
-                                set unapplied [join [lreplace $unapplied_list $triggering_grapheme_index $triggering_grapheme_index $opt_exposed1] ""]
-                            }
-                        }
-
-                    }
-                    vt {
-
-                        #can vt add a line like a linefeed can?
-                        set row $post_render_row
-                        set col $post_render_col
-                    }
-                    set_window_title {
-                        set newtitle [lindex $instruction 1]
-                        puts stderr "overtype::renderspace set_window_title [ansistring VIEW $newtitle] instruction '$instruction'"
-                        #
-                    }
-                    reset_colour_palette {
-                        puts stderr "overtype::renderspace  instruction '$instruction' unimplemented"
-                    }
-                    default {
-                        puts stderr "overtype::renderspace unhandled renderline instruction '$instruction'"
-                    }
-
-                }
-
-
-            if {!$opt_expand_right && ![tcl::dict::get $vtstate autowrap_mode]} {
-                #not allowed to overflow column or wrap therefore we get overflow data to truncate 
-                if {[tcl::dict::get $opts -ellipsis]} {
-                    set show_ellipsis 1
-                    if {!$opt_ellipsiswhitespace} {
-                        #we don't want ellipsis if only whitespace was lost
-                        set lostdata ""
-                        if {$overflow_right ne ""} {
-                            append lostdata $overflow_right
-                        }
-                        if {$unapplied ne ""} {
-                            append lostdata $unapplied
-                        }
-                        if {[tcl::string::trim $lostdata] eq ""} {
-                            set show_ellipsis 0
-                        }
-                        #set lostdata [tcl::string::range $overtext end-[expr {$overflowlength-1}] end]
-                        if {[tcl::string::trim [punk::ansi::ansistrip $lostdata]] eq ""} {
-                            set show_ellipsis 0
-                        }
-                    }
-                    if {$show_ellipsis} {
-                        set rendered [overtype::right $rendered $opt_ellipsistext]
-                    }
-                    set overflow_handled 1
-                } else {
-                    #no wrap - no ellipsis - silently truncate
-                    set overflow_handled 1
-                }
-            }
-
-
-
-            if {$renderedrow <= [llength $outputlines]} {
-                lset outputlines [expr {$renderedrow-1}] $rendered
-            } else {
-                if {$opt_appendlines} {
-                    lappend outputlines $rendered
-                } else {
-                    #? 
-                    lset outputlines [expr {$renderedrow-1}] $rendered
-                }
-            }
-
-            if {!$overflow_handled} {
-                append nextprefix $overflow_right
-            }
-
-            append nextprefix $unapplied
-
-            if 0 {
-            if {$nextprefix ne ""} {
-                set nextoveridx [expr {$overidx+1}]
-                if {$nextoveridx  >= [llength $inputchunks]} {
-                    lappend inputchunks $nextprefix
-                } else {
-                    #lset overlines $nextoveridx $nextprefix[lindex $overlines $nextoveridx]
-                    set inputchunks [linsert $inputchunks $nextoveridx $nextprefix]
-                }
-            }
-            }
-
-            if {$nextprefix ne ""} {
-                set inputchunks [linsert $inputchunks 0 $nextprefix]
-            }
-
-
-            incr overidx
-            incr loop
-            if {$loop >= $looplimit} {
-                puts stderr "overtype::renderspace looplimit reached ($looplimit)"
-                lappend outputlines "[a+ red bold]<truncated> - looplimit $looplimit reached[a]"
-                set Y [a+ yellow bold]
-                set RST [a]
-                set sep_header ----DEBUG-----
-                set debugmsg ""
-                append debugmsg "${Y}${sep_header}${RST}" \n
-                append debugmsg "looplimit $looplimit reached\n"
-                append debugmsg "data_mode:$data_mode\n"
-                append debugmsg "opt_appendlines:$opt_appendlines\n"
-                append debugmsg "prev_row :[tcl::dict::get $renderopts -cursor_row]\n"
-                append debugmsg "prev_col :[tcl::dict::get $renderopts -cursor_column]\n"
-                tcl::dict::for {k v} $rinfo {
-                    append debugmsg "${Y}$k   [ansistring VIEW -lf 1 -vt 1 $v]$RST" \n
-                }
-                append debugmsg "${Y}[string repeat - [string length $sep_header]]$RST" \n
-
-                puts stdout $debugmsg
-                #todo - config regarding error dumps rather than just dumping in working dir 
-                set fd [open [pwd]/error_overtype.txt w]
-                puts $fd $debugmsg
-                close $fd
-                error $debugmsg
-                break
-            }
-        }
-        
-        set result [join $outputlines \n]
-        if {!$opt_info} {
-            return $result 
-        } else {
-            #emit to debug window like basictelnet does? make debug configurable as syslog or even a telnet server to allow on 2nd window?
-            #append result \n$instruction_stats\n
-            set inforesult [dict create\
-                result $result\
-                last_instruction $instruction\
-                instruction_stats $instruction_stats\
-            ]
-            if {$opt_info == 2} {
-                return [pdict -channel none inforesult]
-            } else {
-                return $inforesult
-            }
-        }
-    }
-
-    #todo - left-right ellipsis ?
-    proc centre {args} {
-        variable default_ellipsis_horizontal
-        if {[llength $args] < 2} {
-            error {usage: ?-transparent [0|1]? ?-bias [left|right]?  ?-overflow [1|0]? undertext overtext}
-        }
-        
-        foreach {underblock overblock} [lrange $args end-1 end] break
-
-        #todo - vertical vs horizontal overflow for blocks
-        set opts [tcl::dict::create\
-            -bias       left\
-            -ellipsis   0\
-            -ellipsistext   $default_ellipsis_horizontal\
-            -ellipsiswhitespace 0\
-            -overflow   0\
-            -transparent 0\
-            -exposed1 \uFFFD\
-            -exposed2 \uFFFD\
-        ]
-        set argsflags [lrange $args 0 end-2]
-        foreach {k v} $argsflags {
-            switch -- $k {
-                -bias - -ellipsis - -ellipsistext - -ellipsiswhitespace - -overflow - -transparent - -exposed1 - -exposed2 {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    set known_opts [tcl::dict::keys $opts]
-                    error "overtype::centre unknown option '$k'. Known options: $known_opts"
-                }
-            }
-        }
-        #set opts [tcl::dict::merge $defaults $argsflags]
-        # -- --- --- --- --- ---
-        set opt_transparent     [tcl::dict::get $opts -transparent]
-        set opt_ellipsis        [tcl::dict::get $opts -ellipsis]
-        set opt_ellipsistext    [tcl::dict::get $opts -ellipsistext]
-        set opt_ellipsiswhitespace [tcl::dict::get $opts -ellipsiswhitespace]
-        set opt_exposed1        [tcl::dict::get $opts -exposed1]
-        set opt_exposed2        [tcl::dict::get $opts -exposed2]
-        # -- --- --- --- --- ---
-
-
-        set underblock [tcl::string::map {\r\n \n} $underblock]
-        set overblock  [tcl::string::map {\r\n \n} $overblock]
-
-        set underlines [split $underblock \n]
-        #set renderwidth [tcl::mathfunc::max {*}[lmap v $underlines {punk::ansi::printing_length $v}]]
-        lassign [blocksize $underblock] _w renderwidth _h renderheight 
-        set overlines  [split $overblock \n]
-        lassign [blocksize $overblock] _w overblock_width _h overblock_height 
-        set under_exposed_max [expr {$renderwidth - $overblock_width}]
-        if {$under_exposed_max > 0} {
-            #background block is wider
-            if {$under_exposed_max % 2 == 0} {
-                #even left/right exposure
-                set left_exposed [expr {$under_exposed_max / 2}]
-            } else {
-                set beforehalf [expr {$under_exposed_max / 2}] ;#1 less than half due to integer division
-                if {[tcl::string::tolower [tcl::dict::get $opts -bias]] eq "left"} {
-                    set left_exposed $beforehalf
-                } else {
-                    #bias to the right
-                    set left_exposed [expr {$beforehalf + 1}]
-                }
-            }
-        } else {
-            set left_exposed 0
-        }
-
-        set outputlines [list]
-        if {[punk::ansi::ta::detect_sgr [lindex $overlines 0]]} {
-            set replay_codes "[punk::ansi::a]"
-        } else {
-            set replay_codes ""
-        }
-        set replay_codes_underlay ""
-        set replay_codes_overlay ""
-        foreach undertext $underlines overtext $overlines {    
-            set overtext_datalen [punk::ansi::printing_length $overtext]
-            set ulen [punk::ansi::printing_length $undertext]
-            if {$ulen < $renderwidth} {
-                set udiff [expr {$renderwidth - $ulen}]
-                set undertext "$undertext[string repeat { } $udiff]"
-            }
-            set undertext $replay_codes_underlay$undertext
-            set overtext  $replay_codes_overlay$overtext
-
-            set overflowlength [expr {$overtext_datalen - $renderwidth}]
-            #review - right-to-left langs should elide on left! - extra option required
-
-            if {$overflowlength > 0} {
-                #overlay line wider or equal
-                #review - we still expand_right for centred for now.. possibly should do something like -expand_leftright with ellipsis each end?
-                set rinfo [renderline -info 1 -insert_mode 0 -transparent $opt_transparent -expand_right [tcl::dict::get $opts -overflow] -exposed1 $opt_exposed1 -exposed2 $opt_exposed2 $undertext $overtext]
-                set rendered        [tcl::dict::get $rinfo result]
-                set overflow_right  [tcl::dict::get $rinfo overflow_right]
-                set unapplied       [tcl::dict::get $rinfo unapplied]
-                #todo - get replay_codes from overflow_right instead of wherever it was truncated?
-
-                #overlay line data is wider - trim if overflow not specified in opts - and overtype an ellipsis at right if it was specified
-                if {![tcl::dict::get $opts -overflow]} {
-                    #lappend outputlines [tcl::string::range $overtext 0 [expr {$renderwidth - 1}]]
-                    #set overtext [tcl::string::range $overtext 0 $renderwidth-1 ]
-                    if {$opt_ellipsis} {
-                        set show_ellipsis 1
-                        if {!$opt_ellipsiswhitespace} {
-                            #we don't want ellipsis if only whitespace was lost
-                            #don't use tcl::string::range on ANSI data
-                            #set lostdata [tcl::string::range $overtext end-[expr {$overflowlength-1}] end]
-                            set lostdata ""
-                            if {$overflow_right ne ""} {
-                                append lostdata $overflow_right
-                            }
-                            if {$unapplied ne ""} {
-                                append lostdata $unapplied
-                            }
-                            if {[tcl::string::trim $lostdata] eq ""} {
-                                set show_ellipsis 0
-                            }
-                        }
-                        if {$show_ellipsis} {
-                            set rendered [overtype::right $rendered $opt_ellipsistext]
-                        }
-                    }
-                }
-                lappend outputlines $rendered
-                #lappend outputlines [renderline -insert_mode 0 -transparent $opt_transparent $undertext $overtext]
-            } else {
-                #background block is wider than or equal to data for this line
-                #lappend outputlines [renderline -insert_mode 0 -startcolumn [expr {$left_exposed + 1}] -transparent $opt_transparent -exposed1 $opt_exposed1 -exposed2 $opt_exposed2 $undertext $overtext]
-                set rinfo [renderline -info 1 -insert_mode 0 -startcolumn [expr {$left_exposed + 1}] -transparent $opt_transparent -exposed1 $opt_exposed1 -exposed2 $opt_exposed2 $undertext $overtext]
-                lappend outputlines  [tcl::dict::get $rinfo result]
-            }
-            set replay_codes_underlay [tcl::dict::get $rinfo replay_codes_underlay]
-            set replay_codes_overlay [tcl::dict::get $rinfo replay_codes_overlay]
-        }
-        return [join $outputlines \n]
-    }
-
-    #overtype::right  is for a rendered ragged underblock and a rendered ragged overblock
-    #ie we can determine the block width for bost by examining the lines and picking the longest.
-    #
-    proc right {args} {
-        #NOT the same as align-right - which should be done to the overblock first if required
-        variable default_ellipsis_horizontal
-        # @d !todo - implement overflow, length checks etc
-
-        if {[llength $args] < 2} {
-            error {usage: ?-overflow [1|0]? ?-transparent 0|<char>? undertext overtext}
-        }
-        foreach {underblock overblock} [lrange $args end-1 end] break
-
-        set opts [tcl::dict::create\
-            -bias       ignored\
-            -ellipsis   0\
-            -ellipsistext   $default_ellipsis_horizontal\
-            -ellipsiswhitespace 0\
-            -overflow   0\
-            -transparent 0\
-            -exposed1 \uFFFD\
-            -exposed2 \uFFFD\
-            -align  "left"\
-        ]
-        set argsflags [lrange $args 0 end-2]
-        tcl::dict::for {k v} $argsflags {
-            switch -- $k {
-                -bias - -ellipsis - -ellipsistext - -ellipsiswhitespace - -overflow - -transparent - -exposed1 - -exposed2 - -align {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    set known_opts [tcl::dict::keys $opts]
-                    error "overtype::centre unknown option '$k'. Known options: $known_opts"
-                }
-            }
-        }
-        #set opts [tcl::dict::merge $defaults $argsflags]
-        # -- --- --- --- --- ---
-        set opt_transparent     [tcl::dict::get $opts -transparent]
-        set opt_ellipsis         [tcl::dict::get $opts -ellipsis]
-        set opt_ellipsistext    [tcl::dict::get $opts -ellipsistext]
-        set opt_ellipsiswhitespace [tcl::dict::get $opts -ellipsiswhitespace]
-        set opt_overflow        [tcl::dict::get $opts -overflow]
-        set opt_exposed1        [tcl::dict::get $opts -exposed1]
-        set opt_exposed2        [tcl::dict::get $opts -exposed2]
-        set opt_align           [tcl::dict::get $opts -align]
-        # -- --- --- --- --- ---
-        
-        set underblock [tcl::string::map {\r\n \n} $underblock]
-        set overblock  [tcl::string::map {\r\n \n} $overblock]
-
-        set underlines [split $underblock \n]
-        lassign [blocksize $underblock] _w renderwidth _h renderheight 
-        set overlines  [split $overblock \n]
-        #set overblock_width [tcl::mathfunc::max {*}[lmap v $overlines {punk::ansi::printing_length $v}]]
-        lassign [blocksize $overblock] _w overblock_width _h overblock_height 
-        set under_exposed_max [expr {max(0,$renderwidth - $overblock_width)}]
-        set left_exposed $under_exposed_max 
-
-
-
-        set outputlines [list]
-        if {[punk::ansi::ta::detect_sgr [lindex $overlines 0]]} {
-            set replay_codes "[punk::ansi::a]"
-        } else {
-            set replay_codes ""
-        }
-        set replay_codes_underlay ""
-        set replay_codes_overlay ""
-        foreach undertext $underlines overtext $overlines {    
-            set overtext_datalen [punk::ansi::printing_length $overtext]
-            set ulen [punk::ansi::printing_length $undertext]
-            if {$ulen < $renderwidth} {
-                set udiff [expr {$renderwidth - $ulen}]
-                #puts xxx
-                append undertext [string repeat { } $udiff]
-            }
-            if {$overtext_datalen < $overblock_width} {
-                set odiff [expr {$overblock_width - $overtext_datalen}]
-                switch -- $opt_align {
-                    left {
-                        set startoffset 0 
-                    }
-                    right {
-                        set startoffset  $odiff 
-                    }
-                    default {
-                        set half [expr {$odiff / 2}]
-                        #set lhs [string repeat { } $half]
-                        #set righthalf [expr {$odiff - $half}] ;#remainder - may be one more - so we are biased left
-                        #set rhs [string repeat { } $righthalf]
-                        set startoffset $half 
-                    }
-                }
-            } else {
-                set startoffset 0 ;#negative?
-            }
-
-            set undertext $replay_codes_underlay$undertext
-            set overtext  $replay_codes_overlay$overtext
-
-            set overflowlength [expr {$overtext_datalen - $renderwidth}]
-            if {$overflowlength > 0} {	
-                #raw overtext wider than undertext column
-                set rinfo [renderline\
-                         -info 1\
-                         -insert_mode 0\
-                         -transparent $opt_transparent\
-                         -exposed1 $opt_exposed1 -exposed2 $opt_exposed2\
-                         -overflow $opt_overflow\
-                         -startcolumn [expr {1 + $startoffset}]\
-                         $undertext $overtext]
-                set replay_codes          [tcl::dict::get $rinfo replay_codes]
-                set rendered [tcl::dict::get $rinfo result]
-                if {!$opt_overflow} {
-                    if {$opt_ellipsis} {
-                        set show_ellipsis 1
-                        if {!$opt_ellipsiswhitespace} {
-                            #we don't want ellipsis if only whitespace was lost
-                            set lostdata [tcl::string::range $overtext end-[expr {$overflowlength-1}] end]
-                            if {[tcl::string::trim $lostdata] eq ""} {
-                                set show_ellipsis 0
-                            }
-                        }
-                        if {$show_ellipsis} {
-                            set ellipsis $replay_codes$opt_ellipsistext
-                            #todo - overflow on left if allign = right??
-                            set rendered [overtype::right $rendered $ellipsis]
-                        }
-                    }
-                }
-                lappend outputlines $rendered
-            } else {
-                #padded overtext 
-                #lappend outputlines [renderline -insert_mode 0 -transparent $opt_transparent -startcolumn [expr {$left_exposed + 1}] $undertext $overtext]
-                #Note - we still need overflow(exapnd_right) here - as although the overtext is short - it may oveflow due to the startoffset
-                set rinfo [renderline -info 1  -insert_mode 0 -transparent $opt_transparent -expand_right $opt_overflow -startcolumn [expr {$left_exposed + 1 + $startoffset}] $undertext $overtext]
-                lappend outputlines  [tcl::dict::get $rinfo result]
-            }
-            set replay_codes          [tcl::dict::get $rinfo replay_codes]
-            set replay_codes_underlay [tcl::dict::get $rinfo replay_codes_underlay]
-            set replay_codes_overlay  [tcl::dict::get $rinfo replay_codes_overlay]
-        }
-
-        return [join $outputlines \n]
-    }
-
-    proc left {args} {
-        overtype::block -blockalign left {*}$args
-    }
-    #overtype a (possibly ragged) underblock with a (possibly ragged) overblock
-    proc block {args} {
-        variable default_ellipsis_horizontal
-        # @d !todo - implement overflow, length checks etc
-
-        if {[llength $args] < 2} {
-            error {usage: ?-blockalign left|centre|right? ?-textalign left|centre|right?  ?-overflow [1|0]? ?-transparent 0|<char>? undertext overtext}
-        }
-        #foreach {underblock overblock} [lrange $args end-1 end] break
-        lassign [lrange $args end-1 end] underblock overblock
-
-        set opts [tcl::dict::create\
-            -ellipsis   0\
-            -ellipsistext   $default_ellipsis_horizontal\
-            -ellipsiswhitespace 0\
-            -overflow   0\
-            -transparent 0\
-            -exposed1 \uFFFD\
-            -exposed2 \uFFFD\
-            -textalign  "left"\
-            -textvertical "top"\
-            -blockalign "left"\
-            -blockalignbias left\
-            -blockvertical "top"\
-        ]
-        set argsflags [lrange $args 0 end-2]
-        tcl::dict::for {k v} $argsflags {
-            switch -- $k {
-                -blockalignbias - -ellipsis - -ellipsistext - -ellipsiswhitespace - -overflow - -transparent - -exposed1 - -exposed2 - -textalign - -blockalign - -blockvertical {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "overtype::block unknown option '$k'. Known options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        # -- --- --- --- --- ---
-        set opt_transparent         [tcl::dict::get $opts -transparent]
-        set opt_ellipsis            [tcl::dict::get $opts -ellipsis]
-        set opt_ellipsistext        [tcl::dict::get $opts -ellipsistext]
-        set opt_ellipsiswhitespace  [tcl::dict::get $opts -ellipsiswhitespace]
-        set opt_overflow            [tcl::dict::get $opts -overflow]
-        set opt_exposed1            [tcl::dict::get $opts -exposed1]
-        set opt_exposed2            [tcl::dict::get $opts -exposed2]
-        set opt_textalign           [tcl::dict::get $opts -textalign]
-        set opt_blockalign          [tcl::dict::get $opts -blockalign]
-        if {$opt_blockalign eq "center"} {
-            set opt_blockalign "centre"
-        }
-        # -- --- --- --- --- ---
-        
-        set underblock [tcl::string::map {\r\n \n} $underblock]
-        set overblock  [tcl::string::map {\r\n \n} $overblock]
-
-        set underlines [split $underblock \n]
-        lassign [blocksize $underblock] _w renderwidth _h renderheight 
-        set overlines  [split $overblock \n]
-        #set overblock_width [tcl::mathfunc::max {*}[lmap v $overlines {punk::ansi::printing_length $v}]]
-        lassign [blocksize $overblock] _w overblock_width _h overblock_height 
-        set under_exposed_max [expr {max(0,$renderwidth - $overblock_width)}]
-
-        switch -- $opt_blockalign {
-            left {
-                set left_exposed 0
-            }
-            right {
-                set left_exposed $under_exposed_max 
-            }
-            centre {
-                if {$under_exposed_max > 0} {
-                    #background block is wider
-                    if {$under_exposed_max % 2 == 0} {
-                        #even left/right exposure
-                        set left_exposed [expr {$under_exposed_max / 2}]
-                    } else {
-                        set beforehalf [expr {$under_exposed_max / 2}] ;#1 less than half due to integer division
-                        if {[tcl::string::tolower [tcl::dict::get $opts -blockalignbias]] eq "left"} {
-                            set left_exposed $beforehalf
-                        } else {
-                            #bias to the right
-                            set left_exposed [expr {$beforehalf + 1}]
-                        }
-                    }
-                } else {
-                    set left_exposed 0
-                }
-            }
-            default {
-                set left_exposed 0
-            }
-        }
-
-
-
-        set outputlines [list]
-        if {[punk::ansi::ta::detect_sgr [lindex $overlines 0]]} {
-            set replay_codes "[punk::ansi::a]"
-        } else {
-            set replay_codes ""
-        }
-        set replay_codes_underlay ""
-        set replay_codes_overlay ""
-        foreach undertext $underlines overtext $overlines {    
-            set overtext_datalen [punk::ansi::printing_length $overtext]
-            set ulen [punk::ansi::printing_length $undertext]
-            if {$ulen < $renderwidth} {
-                set udiff [expr {$renderwidth - $ulen}]
-                #puts xxx
-                append undertext [string repeat { } $udiff]
-            }
-            if {$overtext_datalen < $overblock_width} {
-                set odiff [expr {$overblock_width - $overtext_datalen}]
-                switch -- $opt_textalign {
-                    left {
-                        set startoffset 0 
-                    }
-                    right {
-                        set startoffset  $odiff 
-                    }
-                    default {
-                        set half [expr {$odiff / 2}]
-                        #set lhs [string repeat { } $half]
-                        #set righthalf [expr {$odiff - $half}] ;#remainder - may be one more - so we are biased left
-                        #set rhs [string repeat { } $righthalf]
-                        set startoffset $half 
-                    }
-                }
-            } else {
-                set startoffset 0 ;#negative?
-            }
-
-            set undertext   $replay_codes_underlay$undertext
-            set overtext    $replay_codes_overlay$overtext
-
-            set overflowlength [expr {$overtext_datalen - $renderwidth}]
-            if {$overflowlength > 0} {	
-                #raw overtext wider than undertext column
-                set rinfo [renderline -info 1 -insert_mode 0 -transparent $opt_transparent -exposed1 $opt_exposed1 -exposed2 $opt_exposed2 -expand_right $opt_overflow -startcolumn [expr {1 + $startoffset}] $undertext $overtext]
-                set replay_codes    [tcl::dict::get $rinfo replay_codes]
-                set rendered        [tcl::dict::get $rinfo result]
-                set overflow_right  [tcl::dict::get $rinfo overflow_right]
-                set unapplied       [tcl::dict::get $rinfo unapplied]
-                if {!$opt_overflow} {
-                    if {$opt_ellipsis} {
-                        set show_ellipsis 1
-                        if {!$opt_ellipsiswhitespace} {
-                            #we don't want ellipsis if only whitespace was lost
-                            #don't use tcl::string::range on ANSI data
-                            #set lostdata [tcl::string::range $overtext end-[expr {$overflowlength-1}] end]
-                            set lostdata ""
-                            if {$overflow_right ne ""} {
-                                append lostdata $overflow_right
-                            }
-                            if {$unapplied ne ""} {
-                                append lostdata $unapplied
-                            }
-                            if {[tcl::string::trim $lostdata] eq ""} {
-                                set show_ellipsis 0
-                            }
-                        }
-                        if {$show_ellipsis} {
-                            set rendered [overtype::block -blockalign right $rendered $opt_ellipsistext]
-                        }
-                    }
-
-                    #if {$opt_ellipsis} {
-                    #    set show_ellipsis 1
-                    #    if {!$opt_ellipsiswhitespace} {
-                    #        #we don't want ellipsis if only whitespace was lost
-                    #        set lostdata [tcl::string::range $overtext end-[expr {$overflowlength-1}] end]
-                    #        if {[tcl::string::trim $lostdata] eq ""} {
-                    #            set show_ellipsis 0
-                    #        }
-                    #    }
-                    #    if {$show_ellipsis} {
-                    #        set ellipsis [tcl::string::cat $replay_codes $opt_ellipsistext]
-                    #        #todo - overflow on left if allign = right??
-                    #        set rendered [overtype::right $rendered $ellipsis]
-                    #    }
-                    #}
-                }
-                lappend outputlines $rendered
-            } else {
-                #padded overtext 
-                #lappend outputlines [renderline -insert_mode 0 -transparent $opt_transparent -startcolumn [expr {$left_exposed + 1}] $undertext $overtext]
-                #Note - we still need expand_right here - as although the overtext is short - it may oveflow due to the startoffset
-                set rinfo [renderline -info 1  -insert_mode 0 -transparent $opt_transparent -expand_right $opt_overflow -startcolumn [expr {$left_exposed + 1 + $startoffset}] $undertext $overtext]
-                #puts stderr "--> [ansistring VIEW -lf 1 -nul 1 $rinfo] <--"
-                set overflow_right  [tcl::dict::get $rinfo overflow_right]
-                set unapplied       [tcl::dict::get $rinfo unapplied]
-                lappend outputlines [tcl::dict::get $rinfo result]
-            }
-            set replay_codes          [tcl::dict::get $rinfo replay_codes]
-            set replay_codes_underlay [tcl::dict::get $rinfo replay_codes_underlay]
-            set replay_codes_overlay  [tcl::dict::get $rinfo replay_codes_overlay]
-        }
-
-        return [join $outputlines \n]
-    }
-
-    variable optimise_ptruns 10 ;# can be set to zero to disable the ptruns branches
-
-    # ## ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
-    # renderline written from a left-right line orientation perspective as a first-shot at getting something useful. 
-    # ultimately right-to-left, top-to-bottom and bottom-to-top are probably needed. 
-    # ## ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
-    #
-    #
-    #-returnextra enables returning of overflow and length
-    #review - use punk::ansi::ta::detect to short-circuit processing and do simpler string calcs as an optimisation?
-    #review - DECSWL/DECDWL double width line codes - very difficult/impossible to align and compose with other elements
-    #(could render it by faking it with sixels and a lot of work - find/make a sixel font and ensure it's exactly 2 cols per char?
-    # This would probably be impractical to support for different fonts)
-    #todo - review transparency issues with single/double width characters
-    #bidi - need a base direction and concept of directional runs for RTL vs LTR - may be best handled at another layer?
-    proc renderline {args} {
-        #*** !doctools
-        #[call [fun overtype::renderline] [arg args] ]
-        #[para] renderline is the core engine for overtype string processing (frames & textblocks), and the raw mode commandline repl for the Tcl Punk Shell
-        #[para] It is also a central part of an ansi (micro) virtual terminal-emulator of sorts 
-        #[para] This system does a half decent job at rendering 90's ANSI art to manipulable colour text blocks that can be joined & framed for layout display within a unix or windows terminal
-        #[para] Renderline helps maintain ANSI text styling reset/replay codes so that the styling of one block doesn't affect another.
-        #[para] Calling on the punk::ansi library - it can coalesce codes to keep the size down.
-        #[para] It is a giant mess of doing exactly what common wisdom says not to do... lots at once.
-        #[para] renderline is part of the Unicode and ANSI aware Overtype system which 'renders' a block of text onto a static underlay
-        #[para] The underlay is generally expected to be an ordered set of lines or a rectangular text block analogous to a terminal screen - but it can also be ragged in line length, or just blank.
-        #[para] The overlay couuld be similar - in which case it may often be used to overwrite a column or section of the underlay.
-        #[para] The overlay could however be a sequence of ANSI-laden text that jumps all over the place. 
-        #
-        #[para] renderline itself only deals with a single line - or sometimes a single character.  It is generally called from a loop that does further terminal-like or textblock processing.
-        #[para] By suppyling the -info 1 option - it can return various fields indicating the state of the render.
-        #[para] The main 3 are the result, overflow_right, and unapplied.
-        #[para] Renderline handles cursor movements from either keystrokes or ANSI sequences but for a full system the aforementioned loop will need to be in place to manage the set of lines under manipulation.
-
-        #puts stderr "renderline '$args'"
-        variable optimise_ptruns
-
-        if {[llength $args] < 2} {
-            error {usage: ?-info 0|1? ?-startcolumn <int>? ?-cursor_column <int>? ?-cursor_row <int>|""? ?-transparent [0|1|<regexp>]?  ?-expand_right [1|0]? undertext overtext}
-        }
-        set under [lindex $args end-1]
-        set over  [lindex $args end]
-        #lassign [lrange $args end-1 end] under over
-        if {[string last \n $under] >= 0} {
-            error "overtype::renderline not allowed to contain newlines in undertext"
-        }
-        #if {[string first \n $over] >=0 || [string first \n $under] >= 0} {
-        #    error "overtype::renderline not allowed to contain newlines"
-        #}
-
-        #generally faster to create a new dict in the proc than to use a namespace variable to create dict once and link to variable (2024 8.6/8.7)
-        set opts [tcl::dict::create\
-            -etabs         0\
-            -width         \uFFEF\
-            -expand_right  0\
-            -transparent   0\
-            -startcolumn   1\
-            -cursor_column 1\
-            -cursor_row    ""\
-            -insert_mode   1\
-            -crm_mode      0\
-            -autowrap_mode 1\
-            -reverse_mode  0\
-            -info          0\
-            -exposed1      \uFFFD\
-            -exposed2      \uFFFD\
-            -cursor_restore_attributes ""\
-            -cp437         0\
-            -experimental  {}\
-        ]
-        #-cursor_restore_attributes only - for replay stack - position and actual setting/restoring handled by throwback to caller
-
-        #cursor_row, when numeric will allow detection of certain row moves that are still within our row - allowing us to avoid an early return
-        #An empty string for cursor_row tells us we have no info about our own row context, and to return with an unapplied string if any row move occurs
-
-        #exposed1 and exposed2 for first and second col of underying 2wide char which is truncated by transparency, currsor movements to 2nd charcol, or overflow/expand_right
-        #todo - return info about such grapheme 'cuts' in -info structure and/or create option to raise an error
-
-        set argsflags [lrange $args 0 end-2]
-        tcl::dict::for {k v} $argsflags {
-            switch -- $k {
-                -experimental - -cp437 - -width - -expand_right - -transparent - -startcolumn - -cursor_column - -cursor_row
-                - -crm_mode - -insert_mode - -autowrap_mode - -reverse_mode
-                - -info - -exposed1 - -exposed2 - -cursor_restore_attributes {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "overtype::renderline unknown option '$k'. Known options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_width               [tcl::dict::get $opts -width]
-        set opt_etabs               [tcl::dict::get $opts -etabs]
-        set opt_expand_right        [tcl::dict::get $opts -expand_right]
-        set opt_colstart            [tcl::dict::get $opts -startcolumn] ;#lhs limit for overlay - an offset to cursor_column  - first visible column is 1.  0 or < 0 are before the start of the underlay 
-        set opt_colcursor           [tcl::dict::get $opts -cursor_column];#start cursor column relative to overlay
-        set opt_row_context         [tcl::dict::get $opts -cursor_row]
-        if {[string length $opt_row_context]} {
-            if {![tcl::string::is integer -strict $opt_row_context] || $opt_row_context <1 } {
-                error "overtype::renderline -cursor_row must be empty for unspecified/unknown or a non-zero positive integer. received: '$opt_row_context'"
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- --- 
-        #The _mode flags correspond to terminal modes that can be set/reset via escape sequences (e.g DECAWM wraparound mode)
-        set opt_insert_mode         [tcl::dict::get $opts -insert_mode];#should usually be 1 for each new line in editor mode but must be initialised to 1 externally (review)
-        #default is for overtype
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_autowrap_mode       [tcl::dict::get $opts -autowrap_mode] ;#DECAWM - char or movement can go beyond leftmost/rightmost col to prev/next line
-        set opt_reverse_mode        [tcl::dict::get $opts -reverse_mode]  ;#DECSNM
-        set opt_crm_mode            [tcl::dict::get $opts -crm_mode];# CRM - show control character mode
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set temp_cursor_saved       [tcl::dict::get $opts -cursor_restore_attributes]
-
-        set cp437_glyphs [tcl::dict::get $opts -cp437] 
-        set cp437_map [tcl::dict::create]
-        if {$cp437_glyphs} {
-            set cp437_map [set ::punk::ansi::cp437_map]
-            #for cp437 images we need to map these *after* splitting ansi
-            #some old files might use newline for its glyph.. but we can't easily support that.
-            #Not sure how old files did it.. maybe cr lf in sequence was newline and any lone cr or lf were displayed as glyphs?
-            tcl::dict::unset cp437_map \n
-        }
-
-        set opt_transparent         [tcl::dict::get $opts -transparent]  
-        if {$opt_transparent eq "0"} {
-            set do_transparency 0
-        } else {
-            set do_transparency 1
-            if {$opt_transparent eq "1"} {
-                set opt_transparent {[\s]}
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_returnextra         [tcl::dict::get $opts -info]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_exposed1            [tcl::dict::get $opts -exposed1]
-        set opt_exposed2            [tcl::dict::get $opts -exposed2]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-
-        if {$opt_row_context eq ""} {
-            set cursor_row 1
-        } else {
-            set cursor_row $opt_row_context
-        }
-
-        set insert_mode $opt_insert_mode ;#default 1
-        set autowrap_mode $opt_autowrap_mode ;#default 1
-        set crm_mode $opt_crm_mode ;#default 0 (Show Control Character mode)
-        set reverse_mode $opt_reverse_mode
-
-        #-----
-        #
-        if {[info exists punk::console::tabwidth]} {
-            #punk console is updated if punk::console::set_tabstop_width is used or rep is started/restarted
-            #It is way too slow to test the current width by querying the terminal here - so it could conceivably get out of sync
-            #todo - we also need to handle the new threaded repl where console config is in a different thread.
-            # - also - concept of sub-regions being mini-consoles with their own settings - 'id' for console, or use in/out channels as id?
-            set tw $::punk::console::tabwidth
-        } else {
-            set tw 8
-        }
-
-        set overdata $over
-        if {!$cp437_glyphs} {
-            #REVIEW!  tabify will give different answers for an ANSI colourised string vs plain text
-            if {!$opt_etabs} {
-                if {[string first \t $under] >= 0} {
-                    #set under [textutil::tabify::untabify2 $under]
-                    set under [textutil::tabify::untabifyLine $under $tw] 
-                }
-                if {[string first \t $over] >= 0} {
-                    #set overdata [textutil::tabify::untabify2 $over]
-                    set overdata [textutil::tabify::untabifyLine $over $tw]
-                }
-            }
-        }
-        #-------
-
-        #ta_detect ansi and do simpler processing?
-
-        #we repeat tests for grapheme width in different loops - rather than create another datastructure to store widths based on column,
-        #we'll  use the grapheme_width_cached function as a lookup table of all graphemes encountered - as there will often be repeats in different positions anyway.
-
-        # -- --- --- --- --- --- --- ---
-        if {$under ne ""} {
-            if {[punk::ansi::ta::detect $under]} {
-                set undermap [punk::ansi::ta::split_codes_single $under]
-            } else {
-                #single plaintext part
-                set undermap [list $under]
-            }
-        } else {
-            set undermap [list]
-        }
-        set understacks [list]
-        set understacks_gx [list]
-        set pm_list [list]
-
-        set i_u -1  ;#underlay may legitimately be empty
-        set undercols [list] 
-        set u_codestack [list]
-        #u_gx_stack probably isn't really a stack -  I don't know if g0 g1 can stack or not - for now we support only g0 anyway
-        set u_gx_stack [list] ;#separate stack for g0 (g1 g2 g3?) graphics on and off (DEC special graphics)
-        #set pt_underchars "" ;#for string_columns length calculation for expand_right 0 truncation
-        set remainder [list] ;#for returnextra
-        foreach {pt code} $undermap {
-            #pt = plain text
-            #append pt_underchars $pt
-            if {$pt ne ""} {
-                if {$cp437_glyphs} {
-                    set pt [tcl::string::map $cp437_map $pt]
-                }
-                set is_ptrun 0
-                if {$optimise_ptruns && [tcl::string::length $pt] >= $optimise_ptruns} {
-                    set p1 [tcl::string::index $pt 0]
-                    set hex [format %x [scan $p1 %c]] ;#punk::char::char_hex
-                    set re [tcl::string::cat {^[} \\U$hex {]+$}]
-                    set is_ptrun [regexp $re $pt] 
-                }
-                if {$is_ptrun} {
-                    #switch -- $p1 {
-                    #    " " - - - _ - ! - @ - # - $ - % - ^ - & - * - = - + - : - . - , - / - | - ? - 
-                    #    a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - 
-                    #    z - A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {
-                    #        set width 1
-                    #    }
-                    #    default {
-                    #        if {$p1 eq "\u0000"} {
-                    #            #use null as empty cell representation  - review
-                    #            #use of this will probably collide with some application at some point
-                    #            #consider an option to set the empty cell character
-                    #            set width 1
-                    #        } else {
-                    #            set width [grapheme_width_cached $p1] ;# when zero???
-                    #        }
-                    #    }
-                    #}
-                    set width [grapheme_width_cached $p1] ;# when zero???
-                    set ptlen [string length $pt]
-                    if {$width <= 1} {
-                        #review - 0 and 1?
-                        incr i_u $ptlen 
-                        lappend understacks     {*}[lrepeat $ptlen $u_codestack]
-                        lappend understacks_gx  {*}[lrepeat $ptlen $u_gx_stack]
-                        lappend undercols       {*}[lrepeat $ptlen $p1]
-                    } else {
-                        incr i_u $ptlen ;#2nd col empty str - so same as above
-                        set 2ptlen [expr {$ptlen * 2}]
-                        lappend understacks     {*}[lrepeat $2ptlen $u_codestack]
-                        lappend understacks_gx  {*}[lrepeat $2ptlen $u_gx_stack]
-                        set l                   [concat {*}[lrepeat $ptlen [list $p1 ""]]
-                        lappend undercols      {*}$l
-                        unset l
-                    }
-
-                } else {
-                    foreach grapheme [punk::char::grapheme_split $pt] {
-                        #an ugly but easy hack to serve *some* common case ascii quickly with byte-compiled literal switch - feels dirty.
-                        #.. but even 0.5uS per char (grapheme_width_cached) adds up quickly when stitching lots of lines together.
-                        #todo - test decimal value instead, compare performance
-                        switch -- $grapheme {
-                            " " - - - _ - ! - @ - # - $ - % - ^ - & - * - = - + - : - . - , - / - | - ? - 
-                            a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - 
-                            z - A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {
-                                set width 1
-                            }
-                            default {
-                                if {$grapheme eq "\u0000"} {
-                                    #use null as empty cell representation  - review
-                                    #use of this will probably collide with some application at some point
-                                    #consider an option to set the empty cell character
-                                    set width 1
-                                } else {
-                                    #zero width still acts as 1 below??? review what should happen
-                                    set width [grapheme_width_cached $grapheme]
-                                    #we still want most controls and other zero-length codepoints such as \u200d  (zero width joiner) to stay zero-length
-                                    #we substitute lone ESC that weren't captured within ANSI context as a debugging aid to see malformed ANSI
-                                    #todo - default to off and add a  flag (?) to enable this substitution 
-                                    set sub_stray_escapes 0
-                                    if {$sub_stray_escapes && $width == 0} {
-                                        if {$grapheme eq "\x1b"} {
-                                            set gvis [ansistring VIEW $grapheme] ;#can only use with graphemes that have a single replacement char..
-                                            set grapheme $gvis
-                                            set width 1 
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                    
-                        #set width [grapheme_width_cached $grapheme]
-                        incr i_u
-                        lappend understacks $u_codestack
-                        lappend understacks_gx $u_gx_stack
-                        
-                        lappend undercols $grapheme
-                        if {$width > 1} {
-                            #presumably there are no triple-column or wider unicode chars.. until the aliens arrive.(?)
-                            #but what about emoji combinations etc - can they be wider than 2?
-                            #todo - if -etabs enabled - then we treat \t as the width determined by our elastic tabstop
-                            incr i_u
-                            lappend understacks $u_codestack
-                            lappend understacks_gx $u_gx_stack
-                            lappend undercols ""
-                        }
-                    }
-
-                }
-            }
-            #underlay should already have been rendered and not have non-sgr codes - but let's retain the check for them and not stack them if other codes are here
-
-            #only stack SGR (graphics rendition) codes - not title sets, cursor moves etc 
-            #keep any remaining PMs in place
-            if {$code ne ""} {
-                set c1c2 [tcl::string::range $code 0 1]
-
-                set leadernorm [tcl::string::range [tcl::string::map [list\
-                    \x1b\[          7CSI\
-                    \x9b            8CSI\
-                    \x1b\(          7GFX\
-                    \x1b^           7PMX\
-                    \x1bX           7SOS\
-                ] $c1c2] 0 3];# leadernorm is 1st 2 chars mapped to normalised indicator - or is original 2 chars
-
-                switch -- $leadernorm {
-                    7CSI - 8CSI {
-                        #need to exclude certain leaders after the lb e.g < for SGR 1006 mouse 
-                        #REVIEW - what else could end in m but be mistaken as a normal SGR code here?
-                        set maybemouse ""
-                        if {[tcl::string::index $c1c2 0] eq "\x1b"} {
-                            set maybemouse [tcl::string::index $code 2]
-                        }
-                        
-                        if {$maybemouse ne "<" && [tcl::string::index $code end] eq "m"} {
-                            if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                set u_codestack [list "\x1b\[m"]
-                            } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                set u_codestack [list $code]
-                            } else {
-                                #basic simplification first.. straight dups
-                                set dup_posns [lsearch -all -exact $u_codestack $code] ;#-exact because of square-bracket glob chars
-                                set u_codestack [lremove $u_codestack {*}$dup_posns]
-                                lappend u_codestack $code
-                            }
-                        }
-                    }
-                    7GFX {
-                        switch -- [tcl::string::index $code 2] {
-                            "0" {
-                                set u_gx_stack [list gx0_on] ;#we'd better use a placeholder - or debugging will probably get into a big mess
-                            }
-                            B {
-                                set u_gx_stack [list]
-                            }
-                        }
-                    }
-                    7PMX - 7SOS {
-                        #we can have PMs or SOS (start of string) in the underlay - though mostly the PMs should have been processed..
-                        #attach the PM/SOS (entire ANSI sequence) to the previous grapheme! 
-                        #It should not affect the size - but terminal display may get thrown out if terminal doesn't support them.
-
-                        #note that there may in theory already be ANSI stored - we don't assume it was a pure grapheme string
-                        set graphemeplus [lindex $undercols end]
-                        if {$graphemeplus ne "\0"} {
-                            append graphemeplus $code
-                        } else {
-                            set graphemeplus $code
-                        }
-                        lset undercols end $graphemeplus
-                        #The grapheme_width_cached function will be called on this later - and doesn't account for ansi.
-                        #we need to manually cache the item with it's proper width 
-                        variable grapheme_widths
-                        #stripped and plus version  keys pointing to same length
-                        dict set grapheme_widths $graphemeplus [grapheme_width_cached [::punk::ansi::ansistrip $graphemeplus]]
-
-                    }
-                    default {
-
-                    }
-
-                }
-
-                #if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                #    #set u_codestack [list]
-                #} elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                #} elseif {[punk::ansi::codetype::is_sgr $code]} {
-                #} else {
-                #    #leave SGR stack as is 
-                #    if {[punk::ansi::codetype::is_gx_open $code]} {
-                #    } elseif {[punk::ansi::codetype::is_gx_close $code]} {
-                #    } 
-                #} 
-            }
-            #consider also if there are other codes that should be stacked..?
-        }
-
-        #NULL empty cell indicator
-        if {$opt_width ne "\uFFEF"} {
-            if {[llength $understacks]} {
-                set cs $u_codestack
-                set gs $u_gx_stack
-            } else {
-                set cs [list]
-                set gs [list]
-            }
-            if {[llength $undercols]< $opt_width} {
-                set diff [expr {$opt_width- [llength $undercols]}]
-                if {$diff > 0} {
-                    #set undercols           [list {*}$undercols         {*}[lrepeat $diff "\u0000"]] ;#2024 - much slower
-                    lappend undercols       {*}[lrepeat $diff "\u0000"]
-                    lappend understacks     {*}[lrepeat $diff $cs]
-                    lappend understacks_gx  {*}[lrepeat $diff $gs]
-                }
-            }
-        }
-
-        if {$opt_width ne "\uFFEF"} {
-            set renderwidth $opt_width
-        } else {
-            set renderwidth [llength $undercols]
-        }
-
-
-        if 0 {
-        # -----------------
-        # if we aren't extending understacks & understacks_gx each time we incr idx above the undercols length.. this doesn't really serve a purpose
-        # Review.
-        # -----------------
-        #replay code for last overlay position in input line
-        # whether or not we get that far - we need to return it for possible replay on next line
-        if {[llength $understacks]} {
-            lappend understacks $u_codestack
-            lappend understacks_gx $u_gx_stack
-        } else {
-            #in case overlay onto emptystring as underlay 
-            lappend understacks [list]
-            lappend understacks_gx [list]
-        }
-        # -----------------
-        }
-
-        #trailing codes in effect for underlay
-        if {[llength $u_codestack]} {
-            #set replay_codes_underlay [join $u_codestack ""]
-            set replay_codes_underlay [punk::ansi::codetype::sgr_merge_list {*}$u_codestack]
-        } else {
-            set replay_codes_underlay ""
-        }
-
-
-        # -- --- --- --- --- --- --- ---
-        ####
-        #if opt_colstart - we need to build a space (or any singlewidth char ?) padding on the left containing the right number of columns.
-        #this will be processed as transparent - and handle doublewidth underlay characters appropriately
-        set startpadding [string repeat " " [expr {$opt_colstart -1}]]
-        #overdata with left padding spaces based on col-start under will show through for left-padding portion regardless of -transparency
-        if {$startpadding ne "" || $overdata ne ""} {
-            if {[punk::ansi::ta::detect $overdata]} {
-                set overmap  [punk::ansi::ta::split_codes_single $startpadding$overdata]
-            } else {
-                #single plaintext part
-                set overmap [list $startpadding$overdata]
-            }
-        } else {
-            set overmap [list]
-        }
-        ####
-
-
-        #todo - detect plain ascii no-ansi input line (aside from leading ansi reset)
-        #will that allow some optimisations?
-        
-        #todo - detect repeated transparent char in overlay
-        #regexp {^(.)\1+$}  ;#backtracking regexp - relatively slow.
-        # - try set c [string index $data 0]; regexp [string map [list %c% $c] {^[%c%]+$}] $data
-        #we should be able to optimize to pass through the underlay?? 
-
-        #???
-        set colcursor $opt_colstart
-        #TODO - make a little virtual column object
-        #we need to refer to column1 or columnmin? or columnmax without calculating offsets due to to startcolumn 
-        #need to lock-down what start column means from perspective of ANSI codes moving around - the offset perspective is unclear and a mess.
-
-
-        #set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+} 
-        #as at 2024-02 punk::char::grapheme_split uses these - not aware of more complex graphemes
-
-        set overstacks [list]
-        set overstacks_gx [list]
-
-        set o_codestack [list]; #SGR codestack (not other codes such as movement,insert key etc)
-        set o_gxstack   [list]
-        set pt_overchars ""
-        set i_o 0 
-        set overlay_grapheme_control_list [list] ;#tag each with g, sgr or other.  'other' are things like cursor-movement or insert-mode or codes we don't recognise/use 
-        #experiment
-        set overlay_grapheme_control_stacks [list]
-        foreach {pt code} $overmap {
-            if {$pt ne ""} {
-                #todo - wrap in test for empty pt (we used split_codes_single - and it may be common for sgr sequences to be unmerged and so have empty pts between)
-                if {$cp437_glyphs} {
-                    set pt [tcl::string::map $cp437_map $pt]
-                }
-                append pt_overchars $pt
-                #will get empty pt between adjacent codes
-                if {!$crm_mode} {
-
-                    set is_ptrun 0
-                    if {$optimise_ptruns && [tcl::string::length $pt] >= $optimise_ptruns} {
-                        set p1 [tcl::string::index $pt 0]
-                        set re [tcl::string::cat {^[} \\U[format %x [scan $p1 %c]] {]+$}]
-                        set is_ptrun [regexp $re $pt] 
-
-                        #leading only? we would have to check for graphemes at the trailing boundary?
-                        #set re [tcl::string::cat {^[} \\U[format %x [scan $p1 %c]] {]+}]
-                        #set is_ptrun  [regexp -indices $re $pt runrange] 
-                        #if {$is_ptrun && 1} {
-                        #}
-                    }
-                    if {$is_ptrun} {
-                        #review - in theory a run over a certain length won't be part of some grapheme combo (graphemes can be long e.g 44?, but not as runs(?)) 
-                        #could be edge cases for runs at line end? (should be ok as we include trailing \n in our data)
-                        set len [string length $pt]
-                        set g_element [list g $p1]
-
-                        #lappend overstacks      {*}[lrepeat $len $o_codestack]
-                        #lappend overstacks_gx   {*}[lrepeat $len $o_gxstack]
-                        #incr i_o $len 
-                        #lappend overlay_grapheme_control_list   {*}[lrepeat $len [list g $p1]]
-                        #lappend overlay_grapheme_control_stacks {*}[lrepeat $len $o_codestack]
-
-                        set pi 0
-                        incr i_o $len 
-                        while {$pi < $len} {
-                            lappend overstacks      $o_codestack
-                            lappend overstacks_gx   $o_gxstack
-                            lappend overlay_grapheme_control_list   $g_element 
-                            lappend overlay_grapheme_control_stacks $o_codestack
-                            incr pi
-                        }
-                    } else {
-                        foreach grapheme [punk::char::grapheme_split $pt] {
-                            lappend overstacks      $o_codestack
-                            lappend overstacks_gx   $o_gxstack
-                            incr i_o 
-                            lappend overlay_grapheme_control_list   [list g $grapheme]
-                            lappend overlay_grapheme_control_stacks $o_codestack
-                        }
-                    }
-                } else {
-                    set tsbegin [clock micros]
-                    foreach grapheme_original [punk::char::grapheme_split $pt] {
-                        set pt_crm [ansistring VIEW -nul 1 -lf 2 -vt 2 -ff 2 $grapheme_original]
-                        #puts stderr "ptlen [string length $pt] graphemelen[string length $grapheme_original] pt_crmlen[string length $pt_crm] $pt_crm"
-                        foreach grapheme [punk::char::grapheme_split $pt_crm] {
-                            if {$grapheme eq "\n"} {
-                                lappend overlay_grapheme_control_stacks $o_codestack
-                                lappend overlay_grapheme_control_list [list crmcontrol "\x1b\[00001E"]
-                            } else {
-                                lappend overstacks $o_codestack
-                                lappend overstacks_gx $o_gxstack
-                                incr i_o 
-                                lappend overlay_grapheme_control_list [list g $grapheme]
-                                lappend overlay_grapheme_control_stacks $o_codestack
-                            }
-                        }
-                    }
-                    set elapsed [expr {[clock micros] - $tsbegin}]
-                    puts stderr "ptlen [string length $pt] elapsedus:$elapsed"
-                }
-            }
-
-            #only stack SGR (graphics rendition) codes - not title sets, cursor moves etc 
-            #order of if-else based on assumptions:
-            # that pure resets are fairly common - more so than leading resets with other info
-            # that non-sgr codes are not that common, so ok to check for resets before verifying it is actually SGR at all.
-            if {$code ne ""} {
-                #we need to immediately set crm_mode here if \x1b\[3h received
-                if {$code eq "\x1b\[3h"} {
-                    set crm_mode 1
-                } elseif {$code eq "\x1b\[3l"} {
-                    set crm_mode 0
-                }
-                #else crm_mode could be set either way from options
-                if {$crm_mode && $code ne "\x1b\[00001E"} {
-                    #treat the code as type 'g' like above   - only allow through codes to reset mode REVIEW for now just \x1b\[3l ? 
-                    #we need to somehow convert further \n in the graphical rep to an instruction for newline that will bypass further crm_mode processing or we would loop.
-                    set code_as_pt [ansistring VIEW -nul 1 -lf 1 -vt 1 -ff 1 $code]
-                    #split using standard split for first foreach loop - grapheme based split when processing 2nd foreach loop
-                    set chars [split $code_as_pt ""]
-                    set codeparts [list] ;#list of 2-el lists each element {crmcontrol <ansi>} or {g <text>}
-                    foreach c $chars {
-                        if {$c eq "\n"} {
-                            #use CNL (cursor next line)  \x1b\[00001E  ;#leading zeroes ok for this processor - used as debugging aid to distinguish 
-                            lappend codeparts [list crmcontrol "\x1b\[00001E"]
-                        } else {
-                            if {[llength $codeparts] > 0 && [lindex $codeparts end 0] eq "g"} {
-                                set existing [lindex $codeparts end 1]
-                                lset codeparts end [list g [string cat $existing $c]]
-                            } else {
-                                lappend codeparts [list g $c]
-                            }
-                        }
-                    }
-
-                    set partidx 0
-                    foreach record $codeparts {
-                        lassign $record rtype rval
-                        switch -exact -- $rtype {
-                            g {
-                                append pt_overchars $rval 
-                                foreach grapheme [punk::char::grapheme_split $rval] {
-                                    lappend overstacks $o_codestack
-                                    lappend overstacks_gx $o_gxstack
-                                    incr i_o 
-                                    lappend overlay_grapheme_control_list [list g $grapheme]
-                                    lappend overlay_grapheme_control_stacks $o_codestack
-                                }
-                            }
-                            crmcontrol {
-                                #leave o_codestack
-                                lappend overlay_grapheme_control_stacks $o_codestack
-                                lappend overlay_grapheme_control_list [list crmcontrol $rval]
-                            }
-                        }
-                    }
-                } else {
-                    lappend overlay_grapheme_control_stacks $o_codestack
-                    #there will always be an empty code at end due to foreach on 2 vars with odd-sized list ending with pt (overmap coming from perlish split) 
-                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                        set o_codestack [list "\x1b\[m"]  ;#reset better than empty list - fixes some ansi art issues
-                        lappend overlay_grapheme_control_list [list sgr $code]
-                    } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                        set o_codestack [list $code]
-                        lappend overlay_grapheme_control_list [list sgr $code]
-                    } elseif {[priv::is_sgr $code]} {
-                        #basic simplification first - remove straight dupes
-                        set dup_posns [lsearch -all -exact $o_codestack $code] ;#must be -exact because of square-bracket glob chars
-                        set o_codestack [lremove $o_codestack {*}$dup_posns]
-                        lappend o_codestack $code
-                        lappend overlay_grapheme_control_list [list sgr $code]
-                    } elseif {[regexp {\x1b7|\x1b\[s} $code]} {
-                        #experiment
-                        #cursor_save - for the replays review.
-                        #jmn
-                        #set temp_cursor_saved [punk::ansi::codetype::sgr_merge_list {*}$o_codestack]
-                        lappend overlay_grapheme_control_list [list other $code]
-                    } elseif {[regexp {\x1b8|\x1b\[u} $code]} {
-                        #experiment
-                        #cursor_restore - for the replays
-                        set o_codestack [list $temp_cursor_saved]    
-                        lappend overlay_grapheme_control_list [list other $code]
-                    } else {
-                        #review
-                        if {[punk::ansi::codetype::is_gx_open $code]} {
-                            set o_gxstack [list "gx0_on"]
-                            lappend overlay_grapheme_control_list [list gx0 gx0_on] ;#don't store code - will complicate debugging if we spit it out and jump character sets
-                        } elseif {[punk::ansi::codetype::is_gx_close $code]} {
-                            set o_gxstack [list]
-                            lappend overlay_grapheme_control_list [list gx0 gx0_off] ;#don't store code - will complicate debugging if we spit it out and jump character sets
-                        } else {
-                            lappend overlay_grapheme_control_list [list other $code]
-                        }
-                    }
-                }
-            }
-
-        }
-        #replay code for last overlay position in input line - should take account of possible trailing sgr code after last grapheme
-        set max_overlay_grapheme_index [expr {$i_o -1}]
-        lappend overstacks $o_codestack
-        lappend overstacks_gx $o_gxstack
-
-        #set replay_codes_overlay [join $o_codestack ""]
-        set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}$o_codestack]
-
-        #if {[tcl::dict::exists $overstacks $max_overlay_grapheme_index]} {
-        #    set replay_codes_overlay [join [tcl::dict::get $overstacks $max_overlay_grapheme_index] ""]
-        #} else {
-        #    set replay_codes_overlay ""
-        #}
-        # -- --- --- --- --- --- --- ---
-
-
-        #potential problem - combinining diacritics directly following control chars like \r \b
-
-        # -- --- ---
-        #we need to initialise overflow_idx before any potential row-movements - as they need to perform a loop break and force in_excess to 1 
-        if {$opt_expand_right} {
-            #expand_right true means we can have lines as long as we want, but either way there can be excess data that needs to be thrown back to the calling loop.
-            #we currently only support horizontal expansion to the right (review regarding RTL text!)
-            set overflow_idx -1
-        } else {
-            #expand_right zero - we can't grow beyond our column width - so we get ellipsis or truncation 
-            if {$opt_width ne "\uFFEF"} {
-                set overflow_idx [expr {$opt_width}]
-            } else {
-                #review - this is also the cursor position when adding a char at end of line? 
-                set overflow_idx [expr {[llength $undercols]}] ;#index at which we would be *in* overflow a row move may still override it 
-            }
-        }
-        # -- --- ---
-
-        set outcols $undercols ;#leave undercols as is, outcols can potentially be appended to.
-
-        set unapplied "" ;#if we break for move row (but not for /v ?)
-        set unapplied_list [list]
-
-        set insert_lines_above 0   ;#return key
-        set insert_lines_below 0
-        set instruction "" 
-
-        # -- --- --- 
-        #cursor_save_dec, cursor_restore_dec etc
-        set cursor_restore_required 0
-        set cursor_saved_attributes "" 
-        set cursor_saved_position ""
-        # -- --- --- 
-
-        #set idx 0 ;# line index  (cursor - 1)
-        #set idx [expr {$opt_colstart + $opt_colcursor} -1]
-
-        #idx is the per column output index
-        set idx [expr {$opt_colcursor -1}] ;#don't use opt_colstart here - we have padded and won't start emitting until idx reaches opt_colstart-1
-        #cursor_column is usually one above idx - but we have opt_colstart which is like a margin - todo: remove cursor_column from the following loop and calculate it's offset when breaking or at end. 
-        #(for now we are incrementing/decrementing both in sync - which is a bit silly)
-        set cursor_column $opt_colcursor
-
-        #idx_over is the per grapheme overlay index
-        set idx_over -1
-
-
-        #movements only occur within the overlay range.
-        #an underlay is however not necessary.. e.g
-        #renderline -expand_right 1 "" data 
-
-        #set re_mode        {\x1b\[\?([0-9]*)(h|l)}   ;#e.g DECAWM 
-        #set re_col_move    {\x1b\[([0-9]*)(C|D|G)$}
-        #set re_row_move    {\x1b\[([0-9]*)(A|B)$}
-        #set re_both_move   {\x1b\[([0-9]*)(?:;){0,1}([0-9]*)H$}  ;# or "f"  ?
-        #set re_vt_sequence {\x1b\[([0-9]*)(?:;){0,1}([0-9]*)~$}
-        #set re_cursor_save          {\x1b\[s$}  ;#note probable incompatibility with DECSLRM (set left right margin)!
-        #set re_cursor_restore       {\x1b\[u$}
-        #set re_cursor_save_dec      {\x1b7$}
-        #set re_cursor_restore_dec   {\x1b8$}
-        #set re_other_single         {\x1b(D|M|E)$}
-        #set re_decstbm              {\x1b\[([0-9]*)(?:;){0,1}([0-9]*)r$}  ;#DECSTBM set top and bottom margins
-
-        #puts "-->$overlay_grapheme_control_list<--"
-        #puts "-->overflow_idx: $overflow_idx"
-        for {set gci 0} {$gci < [llength $overlay_grapheme_control_list]} {incr gci} {
-            set gc [lindex $overlay_grapheme_control_list $gci]
-            lassign $gc type item 
-            
-            #emit plaintext chars first using existing SGR codes from under/over stack as appropriate
-            #then check if the following code is a cursor movement within the line and adjust index if so
-            #foreach ch $overlay_graphemes {}
-            switch -- $type {
-                g { 
-                    set ch $item 
-                    #crm_mode affects both graphic and control 
-                    if {0 && $crm_mode} {
-                        set chars [ansistring VIEW -nul 1 -lf 2 -vt 2 -ff 2 $ch]
-                        set chars [string map [list \n "\x1b\[00001E"] $chars]
-                        if {[llength [split $chars ""]] > 1} { 
-                            priv::render_unapplied $overlay_grapheme_control_list $gci
-                            #prefix the unapplied controls with the string version of this control
-                            set unapplied_list [linsert $unapplied_list 0 {*}[split $chars ""]]
-                            set unapplied [join $unapplied_list ""]
-                            #incr idx_over
-                            break
-                        } else {
-                            set ch $chars
-                        }
-                    }
-                    incr idx_over; #idx_over (until unapplied reached anyway) is per *grapheme* in the overlay - not per col. 
-                    if {($idx < ($opt_colstart -1))} {
-                        incr idx [grapheme_width_cached $ch]
-                        continue
-                    }
-                    #set within_undercols [expr {$idx <= [llength $undercols]-1}] ;#within our active data width 
-                    set within_undercols [expr {$idx <= $renderwidth-1}]
-
-                    #https://www.enigma.com/resources/blog/the-secret-world-of-newline-characters
-                    #\x85 NEL in the c1 control set is treated by some terminal emulators (e.g Hyper) as a newline,
-                    #on some it's invisble but doesn't change the line, on some it's a visible glyph of width 1.
-                    #This is hard to process in any standard manner - but I think the Hyper behaviour of doing what it was intended is perhaps most reasonable
-                    #We will map it to the same behaviour as lf here for now... but we need also to consider the equivalent ANSI sequence: \x1bE 
-
-                    set chtest [tcl::string::map [list \n <lf> \x85 <lf> \b <bs> \r <cr> \v <vt> \x7f <del>] $ch]
-                    #puts --->chtest:$chtest
-                    #specials - each shoud have it's own test of what to do if it happens after overflow_idx reached
-                    switch -- $chtest {
-                        "<lf>" {
-                            set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                            if {$idx == 0} {
-                                #puts "---a <lf> at col 1"
-                                #linefeed at column 1
-                                #leave the overflow_idx    ;#? review
-                                set instruction lf_start  ;#specific instruction for newline at column 1 
-                                priv::render_unapplied $overlay_grapheme_control_list $gci
-                                break
-                            } elseif {$overflow_idx != -1 && $idx == $overflow_idx} {
-                                #linefeed after final column
-                                #puts "---c <lf> at overflow_idx=$overflow_idx" 
-                                incr cursor_row 
-                                set overflow_idx $idx     ;#override overflow_idx even if it was set to -1 due to expand_right = 1
-                                set instruction lf_overflow ;#only special treatment is to give it it's own instruction in case caller needs to handle differently
-                                priv::render_unapplied $overlay_grapheme_control_list $gci
-                                break
-                            } else {
-                                #linefeed occurred in middle or at end of text
-                                #puts "---mid-or-end-text-linefeed idx:$idx overflow_idx:$overflow_idx"
-                                if {$insert_mode == 0} {
-                                    incr cursor_row 
-                                    if {$idx == -1 || $overflow_idx > $idx} {
-                                        #don't set overflow_idx higher if it's already set lower and we're adding graphemes to overflow
-                                        set overflow_idx $idx     ;#override overflow_idx even if it was set to -1 due to expand_right = 1
-                                    }
-                                    set instruction lf_mid
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    break
-                                } else {
-                                    incr cursor_row 
-                                    #don't adjust the overflow_idx
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction lf_mid 
-                                    break ;# could have overdata following the \n - don't keep processing
-                                }
-                            }
-
-                        }
-                        "<cr>" {
-                            #will we want/need to use raw <cr> for keypresses in terminal? (terminal with LNM in standard reset mode means enter=<cr> this is the usual config for terminals)
-                            #So far we are assuming the caller has translated to <lf> and handle above..  REVIEW.
-                            
-                            #consider also the old space-carriagereturn softwrap convention used in some terminals.
-                            #In the context of rendering to a block of text - this works similarly in that the space gets eaten so programs emitting space-cr at the terminal width col will pretty much get what they expect. 
-                            set idx [expr {$opt_colstart -1}]
-                            set cursor_column $opt_colstart ;#?
-                        }
-                        "<bs>" {
-                            #literal backspace char - not necessarily from keyboard 
-                            #review - backspace effect on double-width chars - we are taking a column-editing perspective in overtype 
-                            #(important for -transparent option - hence replacement chars for half-exposed etc)
-                            #review - overstrike support as per nroff/less (generally considered an old technology replaced by unicode mechanisms and/or ansi SGR)
-                            if {$idx > ($opt_colstart -1)} {
-                                incr idx -1
-                                incr cursor_column -1
-                            } else {
-                                set flag 0
-                                if $flag {
-                                    #review - conflicting requirements? Need a different sequence for destructive interactive backspace?
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction backspace_at_start
-                                    break
-                                }
-                            }
-                        }
-                        "<del>" {
-                            #literal del character - some terminals send just this for what is generally expected to be a destructive backspace 
-                            #We instead treat this as a pure delete at current cursor position - it is up to the repl or terminal to remap backspace key to a sequence that has the desired effect.
-                            priv::render_delchar $idx
-                        }
-                        "<vt>" {
-                            #end processing this overline. rest of line is remainder. cursor for column as is. 
-                            #REVIEW - this theoretically depends on terminal's vertical tabulation setting (name?)
-                            #e.g it could be configured to jump down 6 rows.
-                            #On the other hand I've seen indications that some modern terminal emulators treat it pretty much as a linefeed.
-                            #todo?
-                            incr cursor_row
-                            set overflow_idx $idx
-                            #idx_over has already been incremented as this is both a movement-control and in some sense a grapheme 
-                            priv::render_unapplied $overlay_grapheme_control_list $gci
-                            set instruction vt
-                            break
-                        }
-                        default {
-                            if {$overflow_idx != -1} {
-                                #review - how to check arbitrary length item such as tab is going to overflow .. before we get to overflow_idx?
-                                #call grapheme_width_cached on each ch, or look for tab specifically as it's currently the only known reason to have a grapheme width > 2?
-                                #we need to decide what a tab spanning the overflow_idx means and how it affects wrap etc etc
-                                if {$idx == $overflow_idx-1} {
-                                    set owidth [grapheme_width_cached $ch]
-                                    if {$owidth == 2} {
-                                        #review split 2w overflow?
-                                        #we don't want to make the decision here to split a 2w into replacement characters at end of line and beginning of next line
-                                        #better to consider the overlay char as unable to be applied to the line
-                                        #render empty  column(?) - and reduce overlay grapheme index by one so that the current ch goes into unapplied
-                                        #throwing back to caller with instruction complicates its job - but is necessary to avoid making decsions for it here.
-                                        priv::render_addchar $idx "" [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                        #change the overflow_idx
-                                        set overflow_idx $idx
-                                        incr idx
-                                        incr idx_over -1 ;#set overlay grapheme index back one so that sgr stack from previous overlay grapheme used 
-                                        priv::render_unapplied $overlay_grapheme_control_list [expr {$gci-1}] ;#note $gci-1 instead of just gci
-                                        #throw back to caller's loop - add instruction to caller as this is not the usual case
-                                        #caller may for example choose to render a single replacement char to this line and omit the grapheme, or wrap it to the next line
-                                        set instruction overflow_splitchar
-                                        break 
-                                    } elseif {$owidth > 2} {
-                                        #? tab?
-                                        #TODO!
-                                        puts stderr "overtype::renderline long overtext grapheme '[ansistring VIEW -lf 1 -vt 1 $ch]' not handled"
-                                        #tab of some length dependent on tabstops/elastic tabstop settings?
-                                    }
-                                } elseif {$idx >= $overflow_idx} {
-                                    #REVIEW
-                                    set next_gc [lindex $overlay_grapheme_control_list $gci+1] ;#next grapheme or control
-                                    lassign $next_gc next_type next_item 
-                                    if {$autowrap_mode || $next_type ne "g"} {
-                                        set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci-1]]
-                                        #set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                        #don't incr idx beyond the overflow_idx
-                                        #idx_over already incremented - decrement so current overlay grapheme stacks go to unapplied
-                                        incr idx_over -1
-                                        #priv::render_unapplied $overlay_grapheme_control_list [expr {$gci-1}] ;#back one index here too
-                                        priv::render_this_unapplied $overlay_grapheme_control_list $gci  ;#
-                                        set instruction overflow
-                                        break
-                                    } else {
-                                        #no point throwing back to caller for each grapheme that is overflowing
-                                        #without this branch - renderline would be called with overtext reducing only by one grapheme per call
-                                        #processing a potentially long overtext each time (ie - very slow)
-                                        set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                        #JMN4 
-
-                                    }
-                                }
-                            } else {
-                                #review.
-                                #overflow_idx = -1 
-                                #This corresponds to expand_right being true (at least until overflow_idx is in some cases forced to a value when throwing back to calling loop)
-                            }
-
-                            if {($do_transparency && [regexp $opt_transparent $ch])} {
-                                #pre opt_colstart is effectively transparent (we have applied padding of required number of columns to left of overlay)
-                                if {$idx > [llength $outcols]-1} {
-                                    lappend outcols " "
-                                    #tcl::dict::set understacks $idx [list] ;#review - use idx-1 codestack?
-                                    #lset understacks $idx [list] ;#will get index $i out of range error
-                                    lappend understacks [list] ;#REVIEW
-                                    incr idx
-                                    incr cursor_column
-                                } else {
-                                    #todo - punk::char::char_width
-                                    set g [lindex $outcols $idx]
-                                    #JMN
-                                    set uwidth [grapheme_width_cached $g]
-                                    if {[lindex $outcols $idx] eq ""} {
-                                        #2nd col of 2-wide char in underlay 
-                                        incr idx
-                                        incr cursor_column
-                                    } elseif {$uwidth == 0} {
-                                        #e.g control char  ? combining diacritic ?
-                                        incr idx
-                                        incr cursor_column
-                                    } elseif {$uwidth == 1} {
-                                        set owidth [grapheme_width_cached $ch]
-                                        incr idx
-                                        incr cursor_column
-                                        if {$owidth > 1} {
-                                            incr idx
-                                            incr cursor_column
-                                        } 
-                                    } elseif {$uwidth > 1} {
-                                        if {[grapheme_width_cached $ch] == 1} {
-                                            if {!$insert_mode} {
-                                                #normal singlewide transparent overlay onto double-wide underlay 
-                                                set next_pt_overchar [tcl::string::index $pt_overchars $idx_over+1] ;#lookahead of next plain-text char in overlay
-                                                if {$next_pt_overchar eq ""} {
-                                                    #special-case trailing transparent - no next_pt_overchar
-                                                    incr idx
-                                                    incr cursor_column
-                                                } else {
-                                                    if {[regexp $opt_transparent $next_pt_overchar]} {
-                                                        incr idx
-                                                        incr cursor_column
-                                                    } else {
-                                                        #next overlay char is not transparent.. first-half of underlying 2wide char is exposed 
-                                                        #priv::render_addchar $idx $opt_exposed1 [tcl::dict::get $overstacks $idx_over] [tcl::dict::get $overstacks_gx $idx_over] $insert_mode
-                                                        priv::render_addchar $idx $opt_exposed1 [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                                        incr idx
-                                                        incr cursor_column
-                                                    }
-                                                }
-                                            } else {
-                                                #? todo - decide what transparency even means for insert mode
-                                                incr idx
-                                                incr cursor_column
-                                            }
-                                        } else {
-                                            #2wide transparency over 2wide in underlay - review
-                                            incr idx
-                                            incr cursor_column
-                                        }
-                                    }
-                                }
-                            } else {
-
-                                set idxchar [lindex $outcols $idx]
-                                #non-transparent char in overlay or empty cell
-                                if {$idxchar eq "\u0000"} {
-                                    #empty/erased cell indicator
-                                    set uwidth 1
-                                } else {
-                                    set uwidth [grapheme_width_cached $idxchar]
-                                }
-                                if {$within_undercols} {    
-                                    if {$idxchar eq ""} {
-                                        #2nd col of 2wide char in underlay
-                                        if {!$insert_mode} {
-                                            priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] 0 
-                                            #JMN - this has to expose if our startposn chopped an underlay - but not if we already overwrote the first half of the widechar underlay grapheme 
-                                            #e.g renderline \uFF21\uFF21---  a\uFF23\uFF23
-                                            #vs
-                                            #    renderline -startcolumn 2 \uFF21---- \uFF23
-                                            if {[lindex $outcols $idx-1] != ""} {
-                                                #verified it's an empty following a filled - so it's a legit underlay remnant  (REVIEW - when would it not be??)
-                                                #reset previous to an exposed 1st-half - but leave understacks code as is
-                                                priv::render_addchar [expr {$idx-1}] $opt_exposed1 [lindex $understacks $idx-1] [lindex $understacks_gx $idx-1] 0 
-                                            }
-                                            incr idx
-                                        } else {
-                                            set prevcolinfo [lindex $outcols $idx-1]
-                                            #for insert mode - first replace the empty 2ndhalf char with exposed2 before shifting it right 
-                                            #REVIEW - this leaves a replacement character permanently in our columns.. but it is consistent regarding length (?)
-                                            #The alternative is to disallow insertion at a column cursor that is at 2nd half of 2wide char
-                                            #perhaps by inserting after the char - this may be worthwhile - but may cause other surprises 
-                                            #It is perhaps best avoided at another level and try to make renderline do exactly as it's told
-                                            #the advantage of this 2w splitting method is that the inserted character ends up in exactly the column we expect.
-                                            priv::render_addchar $idx $opt_exposed2 [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] 0 ;#replace not insert
-                                            priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] 1 ;#insert - same index
-                                            if {$prevcolinfo ne ""} {
-                                                #we've split the 2wide - it may already have been rendered as an exposed1 - but not for example if our startcolumn was current idx
-                                                priv::render_addchar [expr {$idx-1}] $opt_exposed1 [lindex $understacks $idx-1] [lindex $understacks_gx $idx-1] 0  ;#replace not insert
-                                            } ;# else??
-                                            incr idx
-                                        }
-                                        if {$cursor_column < [llength $outcols] || $overflow_idx == -1} {
-                                            incr cursor_column
-                                        }
-                                    } elseif {$uwidth == 0} {
-                                        #what if this is some other c0/c1 control we haven't handled specifically?
-
-                                        #by emitting a preceding empty-string column - we associate whatever this char is with the preceeding non-zero-length character and any existing zero-lengths that follow it
-                                        #e.g combining diacritic - increment before over char  REVIEW
-                                        #arguably the previous overchar should have done this - ie lookahead for combiners?
-                                        #if we can get a proper grapheme_split function - this should be easier to tidy up.
-                                        priv::render_addchar $idx "" [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                        incr idx
-                                        priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                        incr idx
-                                        incr cursor_column 2
-
-                                        if {$cursor_column > [llength $outcols] && $overflow_idx != -1} {
-                                            set cursor_column [llength $outcols]
-                                        }
-                                    } elseif {$uwidth == 1} {
-                                        #includes null empty cells
-                                        set owidth [grapheme_width_cached $ch]
-                                        if {$owidth == 1} {
-                                            priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                            incr idx
-                                        } else {
-                                            priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                            incr idx
-                                            priv::render_addchar $idx ""  [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                            #if next column in underlay empty - we've overwritten first half of underlying 2wide grapheme
-                                            #replace with rhs exposure in case there are no more overlay graphemes coming - use underlay's stack
-                                            if {([llength $outcols] >= $idx +2) && [lindex $outcols $idx+1] eq ""} {
-                                                priv::render_addchar [expr {$idx+1}] $opt_exposed2 [lindex $understacks $idx+1] [lindex $understacks_gx $idx+1] $insert_mode
-                                            }
-                                            incr idx
-                                        }
-                                        if {($cursor_column < [llength $outcols]) || $overflow_idx == -1} {
-                                            incr cursor_column
-                                        }
-                                    } elseif {$uwidth > 1} {
-                                        set owidth [grapheme_width_cached $ch]
-                                        if {$owidth == 1} {
-                                            #1wide over 2wide in underlay
-                                            if {!$insert_mode} {
-                                                priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                                incr idx
-                                                incr cursor_column
-                                                priv::render_addchar $idx $opt_exposed2 [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                                #don't incr idx - we are just putting a broken-indication in the underlay - which may get overwritten by next overlay char
-                                            } else {
-                                                #insert mode just pushes all to right - no exposition char here
-                                                priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                                incr idx
-                                                incr cursor_column
-                                            }
-                                        } else {
-                                            #2wide over 2wide
-                                            priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                            incr idx 2 
-                                            incr cursor_column 2
-                                        }
-
-                                        if {$cursor_column > [llength $outcols] && $overflow_idx != -1} {
-                                            set cursor_column [llength $outcols]
-                                        }
-                                    }
-                                } else {
-                                    priv::render_addchar $idx $ch [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                    incr idx
-                                    incr cursor_column
-                                }
-                            }
-                        }
-                    } ;# end switch
-
-
-                }
-                other - crmcontrol {
-                    if {$crm_mode && $type ne "crmcontrol" && $item ne "\x1b\[00001E"} {
-                        if {$item eq "\x1b\[3l"} {
-                            set crm_mode 0
-                        } else {
-                            #When our initial overlay split was done - we weren't in crm_mode - so there are codes that weren't mapped to unicode control character representations
-                            #set within_undercols [expr {$idx <= $renderwidth-1}]
-                            #set chars [ansistring VIEW -nul 1 -lf 2 -vt 2 -ff 2 $item]
-                            set chars [ansistring VIEW -nul 1 -lf 1 -vt 1 -ff 1 $item]
-                            priv::render_unapplied $overlay_grapheme_control_list $gci
-                            #prefix the unapplied controls with the string version of this control
-                            set unapplied_list [linsert $unapplied_list 0 {*}[split $chars ""]]
-                            set unapplied [join $unapplied_list ""]
-                            
-                            break
-                        }
-                    }
-
-                    #todo - consider CSI s DECSLRM vs ansi.sys \x1b\[s  - we need \x1b\[s for oldschool ansi art - but may have to enable only for that.
-                    #we should possibly therefore reverse this mapping so that x1b7 x1b8 are the primary codes for save/restore?
-                    set code [tcl::string::map [list \x1b7 \x1b\[s \x1b8 \x1b\[u ] $item]
-                    #since this element isn't a grapheme - advance idx_over to next grapheme overlay when about to fill 'unapplied'
-
-
-                    #remap of DEC cursor_save/cursor_restore from ESC sequence to equivalent CSI
-                    #probably not ideal - consider putting cursor_save/cursor_restore in functions so they can be called from the appropriate switch branch instead of using this mapping
-                    #review - cost/benefit of function calls within these switch-arms instead of inline code?
-
-                    set c1 [tcl::string::index $code 0]
-                    set c1c2c3 [tcl::string::range $code 0 2]
-                    #set re_ST_open {(?:\033P|\u0090|\033X|\u0098|\033\^|\u009e|\033_|\u009f)} 
-                    #tcl 8.7 - faster to use inline list than to store it in a local var outside of loop. 
-                    #(somewhat surprising)
-                    set leadernorm [tcl::string::range [tcl::string::map [list\
-                        \x1b\[<     1006\
-                        \x1b\[      7CSI\
-                        \x1bY       7MAP\
-                        \x1bP       7DCS\
-                        \x90        8DCS\
-                        \x9b        8CSI\
-                        \x1b\]      7OSC\
-                        \x9d        8OSC\
-                        \x1b        7ESC\
-                        ] $c1c2c3] 0 3] ;#leadernorm is 1st 1,2 or 3 chars mapped to 4char normalised indicator - or is original first chars (1,2 or 3 len) 
-
-                    #we leave the tail of the code unmapped for now 
-                    switch -- $leadernorm {
-                        1006 {
-                            #https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
-                            #SGR (1006) CSI < followed by colon separated encoded-button-value,px,py ordinates and final M for button press m for button release
-                            set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 3 end]]
-                        }
-                        7CSI - 7OSC {
-                            #set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 2 end]]
-                            set codenorm $leadernorm[tcl::string::range $code 2 end]
-                        }
-                        7DCS {
-                            #ESC P
-                            #Device Control String  https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h4-Controls-beginning-with-ESC:ESC-F.C74
-                            set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 2 end]]
-                        }
-                        8DCS {
-                            #8-bit Device Control String
-                            set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 1 end]]
-                        }
-                        7MAP {
-                            #map to another type of code to share implementation branch
-                            set codenorm $leadernorm[tcl::string::range $code 1 end] 
-                        }
-                        7ESC {
-                            #set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 1 end]]
-                            set codenorm $leadernorm[tcl::string::range $code 1 end]
-                        }
-                        8CSI - 8OSC {
-                            set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 1 end]]
-                        }
-                        default {
-                            puts stderr "Sequence detected as ANSI, but not handled in leadernorm switch. code: [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                            #we haven't made a mapping for this
-                            #could in theory be 1,2 or 3 in len 
-                            #although we shouldn't be getting here if the regexp for ansi codes is kept in sync with our switch branches
-                            set codenorm $code
-                        }
-                    }
-
-                    switch -- $leadernorm {
-                        7MAP {
-                            switch -- [lindex $codenorm 4] {
-                                Y {
-                                    #vt52 movement. we expect 2 chars representing position (limited range)
-                                    set params [tcl::string::range $codenorm 5 end]
-                                    if {[tcl::string::length $params] != 2} {
-                                        #shouldn't really get here or need this branch if ansi splitting was done correctly
-                                        puts stderr "overtype::renderline ESC Y recognised as vt52 move, but incorrect parameters length ([string length $params] vs expected 2) [ansistring VIEW -lf 1 -vt 1 -nul 1 $code] not implemented codenorm:[ansistring VIEW -lf 1 -vt 1 -nul 1 $codenorm]"
-                                    }
-                                    set line    [tcl::string::index $params 5] 
-                                    set column  [tcl::string::index $params 1]
-                                    set r [expr {[scan $line    %c] -31}]
-                                    set c [expr {[scan $column  %c] -31}]
-
-                                    #MAP to:
-                                    #CSI n;m H - CUP - Cursor Position
-                                    set leadernorm 7CSI
-                                    set codenorm "$leadernorm${r}\;${c}H"
-                                }
-                            }
-                        }
-                    }
-
-                    #we've mapped 7 and 8bit escapes to values we can handle as literals in switch statements to take advantange of jump tables.
-                    switch -- $leadernorm  {
-                        1006 {
-                            #TODO
-                            #
-                            switch -- [tcl::string::index $codenorm end] {
-                                M {
-                                    puts stderr "mousedown $codenorm"
-                                }
-                                m {
-                                    puts stderr "mouseup $codenorm"
-                                }
-                            }
-
-                        }
-                        {7CSI} - {8CSI} {
-                            set param [tcl::string::range $codenorm 4 end-1]
-                            #puts stdout "--> CSI [tcl::string::index $leadernorm 0] bit param:$param"
-                            set code_end        [tcl::string::index $codenorm end] ;#used for e.g h|l set/unset mode
-
-                            switch -exact -- $code_end {
-                                A {
-                                    #Row move - up
-                                    set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                    #todo
-                                    lassign [split $param {;}] num modifierkey 
-                                    if {$modifierkey ne ""} {
-                                        puts stderr "modifierkey:$modifierkey"
-                                    }
-
-                                    if {$num eq ""} {set num 1}
-                                    incr cursor_row -$num
-
-                                    if {$cursor_row < 1} {
-                                        set cursor_row  1
-                                    }
-
-                                    #ensure rest of *overlay* is emitted to remainder
-                                    incr idx_over
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction up
-                                    #retain cursor_column
-                                    break 
-                                }
-                                B {
-                                    #CUD - Cursor Down
-                                    #Row move - down
-                                    lassign [split $param {;}] num modifierkey 
-                                    set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                    #move down
-                                    if {$modifierkey ne ""} {
-                                        puts stderr "modifierkey:$modifierkey"
-                                    }
-                                    if {$num eq ""} {set num 1}
-                                    incr cursor_row $num
-
-
-                                    incr idx_over ;#idx_over hasn't encountered a grapheme and hasn't advanced yet 
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction down
-                                    #retain cursor_column
-                                    break 
-                                }
-                                C {
-                                    #CUF - Cursor Forward
-                                    #Col move
-                                    #puts stdout "->forward"
-                                    #todo - consider right-to-left cursor mode (e.g Hebrew).. some day.
-                                    #cursor forward
-                                    #right-arrow/move forward
-                                    lassign [split $param {;}] num modifierkey 
-                                    if {$modifierkey ne ""} {
-                                        puts stderr "modifierkey:$modifierkey"
-                                    }
-                                    if {$num eq ""} {set num 1}
-                                    
-                                    #todo - retrict to moving 1 position past datalen? restrict to column width? 
-                                    #should ideally wrap to next line when interactive and not on last row
-                                    #(some ansi art seems to expect this behaviour)
-                                    #This presumably depends on the terminal's wrap mode
-                                    #e.g DECAWM autowrap mode
-                                    # CSI ? 7 h  - set: autowrap     (also tput smam)
-                                    # CSI ? 7 l  - reset: no autowrap (also tput rmam)
-                                    set version 2
-                                    if {$version eq "2"} {
-                                        set max [llength $outcols]
-                                        if {$overflow_idx == -1} {
-                                            incr max
-                                        }
-                                        if {$cursor_column == $max+1} {
-                                            #move_forward while in overflow
-                                            incr cursor_column -1
-                                        }
-
-                                        if {($cursor_column + $num) <= $max} {
-                                            incr idx $num
-                                            incr cursor_column $num
-                                        } else {
-                                            if {$autowrap_mode} {
-                                                set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                                #jmn
-                                                if {$idx == $overflow_idx} {
-                                                    incr num
-                                                }
-
-                                                #horizontal movement beyond line extent needs to wrap - throw back to caller
-                                                #we may have both overflow_right and unapplied data
-                                                #(can have overflow_right if we were in insert_mode and processed chars prior to this movement)
-                                                #leave row as is - caller will need to determine how many rows the column-movement has consumed
-                                                incr cursor_column $num ;#give our caller the necessary info as columns from start of row 
-                                                #incr idx_over
-                                                #should be gci following last one applied 
-                                                priv::render_unapplied $overlay_grapheme_control_list $gci
-                                                set instruction wrapmoveforward
-                                                break
-                                            } else {
-                                                set cursor_column $max 
-                                                set idx [expr {$cursor_column -1}]
-                                            }
-                                        }
-                                    } else {
-                                        #review - dead branch
-                                        if {!$expand_right || ($cursor_column + $num) <= [llength $outcols+1]} {
-                                            incr idx $num
-                                            incr cursor_column $num
-                                        } else {
-                                            if {!$insert_mode} {
-                                                #block editing style with arrow keys
-                                                #overtype mode
-                                                set idxstart $idx
-                                                set idxend [llength $outcols]
-                                                set moveend [expr {$idxend - $idxstart}] 
-                                                if {$moveend < 0} {set moveend 0} ;#sanity?
-                                                #puts "idxstart:$idxstart idxend:$idxend outcols[llength $outcols] undercols:[llength $undercols]"
-                                                incr idx $moveend
-                                                incr cursor_column $moveend
-                                                #if {[tcl::dict::exists $understacks $idx]} {
-                                                #    set stackinfo [tcl::dict::get $understacks $idx] ;#use understack at end - which may or may not have already been replaced by stack from overtext
-                                                #} else {
-                                                #    set stackinfo [list]
-                                                #}
-                                                if {$idx < [llength $understacks]} {
-                                                    set stackinfo [lindex $understacks $idx] ;#use understack at end - which may or may not have already been replaced by stack from overtext
-                                                } else {
-                                                    set stackinfo [list]
-                                                }
-                                                if {$idx < [llength $understacks_gx]} {
-                                                    #set gxstackinfo [tcl::dict::get $understacks_gx $idx]
-                                                    set gxstackinfo [lindex $understacks_gx $idx]
-                                                } else {
-                                                    set gxstackinfo [list]
-                                                }
-                                                #pad outcols
-                                                set movemore [expr {$num - $moveend}] 
-                                                #assert movemore always at least 1 or we wouldn't be in this branch
-                                                for {set m 1} {$m <= $movemore} {incr m} {
-                                                    incr idx
-                                                    incr cursor_column
-                                                    priv::render_addchar $idx " " $stackinfo $gxstackinfo $insert_mode
-                                                }
-                                            } else {
-                                                #normal - insert  
-                                                incr idx $num
-                                                incr cursor_column $num
-                                                if {$idx > [llength $outcols]} {
-                                                    set idx [llength $outcols];#allow one beyond - for adding character at end of line
-                                                    set cursor_column [expr {[llength $outcols]+1}]
-                                                }
-                                            }
-                                        }
-                                    }
-                                } 
-                                D {
-                                    #Col move
-                                    #puts stdout "<-back"
-                                    #cursor back
-                                    #left-arrow/move-back when ltr mode
-                                    lassign [split $param {;}] num modifierkey 
-                                    if {$modifierkey ne ""} {
-                                        puts stderr "modifierkey:$modifierkey"
-                                    }
-                                    if {$num eq ""} {set num 1}
-
-                                    set version 2
-                                    if {$version eq "2"} {
-                                        #todo - startcolumn offset!
-                                        if {$cursor_column - $num >= 1} {
-                                            incr idx -$num
-                                            incr cursor_column -$num
-                                        } else {
-                                            if {!$autowrap_mode} {
-                                            set cursor_column 1 
-                                            set idx 0
-                                            } else {
-                                                set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                                incr cursor_column -$num
-                                                priv::render_unapplied $overlay_grapheme_control_list $gci
-                                                set instruction wrapmovebackward
-                                                break
-                                            }
-                                        }
-                                    } else {
-                                        incr idx -$num
-                                        incr cursor_column -$num
-                                        if {$idx < $opt_colstart-1} {
-                                            #wrap to previous line and position cursor at end of data
-                                            set idx [expr {$opt_colstart-1}]
-                                            set cursor_column $opt_colstart
-                                        }
-                                    }
-                                }
-                                E {
-                                    #CNL - Cursor Next Line
-                                    if {$param eq ""} {
-                                        set downmove 1
-                                    } else {
-                                        set downmove [expr {$param}]
-                                    }
-                                    puts stderr "renderline CNL down-by-$downmove"
-                                    set cursor_column 1
-                                    set cursor_row [expr {$cursor_row + $downmove}]
-                                    set idx [expr {$cursor_column -1}]
-                                    set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                    incr idx_over
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction move
-                                    break
-
-                                }
-                                F {
-                                    #CPL - Cursor Previous Line
-                                    if {$param eq ""} {
-                                        set upmove 1
-                                    } else {
-                                        set upmove [expr {$param}]
-                                    }
-                                    puts stderr "renderline CPL up-by-$upmove"
-                                    set cursor_column 1
-                                    set cursor_row [expr {$cursor_row -$upmove}]
-                                    if {$cursor_row < 1} {
-                                        set cursor_row 1
-                                    } 
-                                    set idx [expr {$cursor_column - 1}]
-                                    set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                    incr idx_over
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction move
-                                    break
-
-                                }
-                                G {
-                                    #CHA - Cursor Horizontal Absolute (move to absolute column no)
-                                    if {$param eq ""} {
-                                        set targetcol 1
-                                    } else {
-                                        set targetcol $param
-                                        if {![string is integer -strict $targetcol]} {
-                                            puts stderr "renderline CHA (Cursor Horizontal Absolute) error. Unrecognised parameter '$param'"
-                                        }
-                                        set targetcol [expr {$param}]
-                                        set max [llength $outcols]
-                                        if {$overflow_idx == -1} {
-                                            incr max
-                                        }
-                                        if {$targetcol > $max} {
-                                            puts stderr "renderline CHA (Cursor Horizontal Absolute) error. Param '$param' > max: $max"
-                                            set targetcol $max
-                                        }
-                                    }
-                                    #adjust to colstart - as column 1 is within overlay
-                                    #??? REVIEW
-                                    set idx [expr {($targetcol -1) + $opt_colstart -1}] 
-                                    
-                                     
-                                    set cursor_column $targetcol
-                                    #puts stderr "renderline absolute col move ESC G (TEST)"
-                                }
-                                H - f {
-                                    #CSI n;m H - CUP - Cursor Position
-
-                                    #CSI n;m f - HVP - Horizontal Vertical Position REVIEW - same as CUP with differences (what?) in some terminal modes
-                                    # - 'counts as effector format function  (like CR or LF) rather than an editor function (like CUD or CNL)'
-                                    # - REVIEW 
-                                    #see Annex A at: https://www.ecma-international.org/wp-content/uploads/ECMA-48_5th_edition_june_1991.pdf
-
-                                    #test e.g ansicat face_2.ans
-                                    #$re_both_move
-                                    lassign [split $param {;}] paramrow paramcol
-                                    #missing defaults to 1
-                                    #CSI ;5H = CSI 1;5H -> row 1 col 5
-                                    #CSI 17;H = CSI 17H = CSI 17;1H -> row 17 col 1 
-
-                                    if {$paramcol eq ""} {set paramcol 1}
-                                    if {$paramrow eq ""} {set paramrow 1}
-                                    if {![string is integer -strict $paramcol] || ![string is integer -strict $paramrow]} {
-                                        puts stderr "renderline CUP (CSI <param> H) unrecognised param $param"
-                                        #ignore?
-                                    } else {
-                                        set max [llength $outcols]
-                                        if {$overflow_idx == -1} {
-                                            incr max 
-                                        }
-                                        if {$paramcol > $max} {
-                                            set target_column  $max
-                                        } else {
-                                            set target_column [expr {$paramcol}]
-                                        }
-
-
-                                        if {$paramrow < 1} {
-                                            puts stderr "renderline CUP (CSI <param> H) bad row target 0. Assuming 1"
-                                            set target_row 1
-                                        } else {
-                                            set target_row [expr {$paramrow}]
-                                        }
-                                        if {$target_row == $cursor_row} {
-                                            #col move only - no need for break and move
-                                            #puts stderr "renderline CUP col move only to col $target_column param:$param"
-                                            set cursor_column $target_column
-                                            set idx [expr {$cursor_column -1}]
-                                        } else {
-                                            set cursor_row $target_row
-                                            set cursor_column $target_column
-                                            set idx [expr {$cursor_column -1}]
-                                            set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                            incr idx_over
-                                            priv::render_unapplied $overlay_grapheme_control_list $gci
-                                            set instruction move
-                                            break
-                                        }
-                                    }
-                                }
-                                J {
-                                    set modegroup [tcl::string::index $codenorm 4] ;#e.g ? 
-                                    switch -exact -- $modegroup {
-                                        ? {
-                                            #CSI ? Pn J - selective erase
-                                            puts stderr "overtype::renderline ED - SELECTIVE ERASE IN DISPLAY (UNIMPLEMENTED) [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                        }
-                                        default {
-                                            puts stderr "overtype::renderline ED - ERASE IN DISPLAY (TESTING) [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                            if {$param eq ""} {set param 0} 
-                                            switch -exact -- $param {
-                                                0 {
-                                                    #clear from cursor to end of screen
-                                                }
-                                                1 {
-                                                    #clear from cursor to beginning of screen
-                                                }
-                                                2 {
-                                                    #clear entire screen
-                                                    #ansi.sys - move cursor to upper left REVIEW
-                                                    set cursor_row 1
-                                                    set cursor_column 1
-                                                    set idx [expr {$cursor_column -1}]
-                                                    set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                                    incr idx_over
-                                                    if {[llength $outcols]} {
-                                                        priv::render_erasechar 0 [llength $outcols]
-                                                    }
-                                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                                    set instruction clear_and_move
-                                                    break
-                                                }
-                                                3 {
-                                                    #clear entire screen. presumably cursor doesn't move - otherwise it would be same as 2J ?
-
-                                                }
-                                                default {
-                                                }
-                                            }
-
-                                        }
-                                    }
-                                }
-                                K {
-                                    #see DECECM regarding background colour
-                                    set modegroup [tcl::string::index $codenorm 4] ;#e.g ? 
-                                    switch -exact -- $modegroup {
-                                        ? {
-                                            puts stderr "overtype::renderline DECSEL - SELECTIVE ERASE IN LINE (UNIMPLEMENTED) [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                            set param [string range $param 1 end] ;#chop qmark
-                                            if {$param eq ""} {set param 0} 
-                                            switch -exact -- $param {
-                                                0 {
-                                                    #clear from cursor to end of line - depending on DECSCA
-                                                }
-                                                1 {
-                                                    #clear from cursor to beginning of line - depending on DECSCA
-
-                                                }
-                                                2 {
-                                                    #clear entire line - depending on DECSCA
-                                                }
-                                                default {
-                                                    puts stderr "overtype::renderline DECSEL - SELECTIVE ERASE IN LINE PARAM '$param' unrecognised [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                                }
-                                            }
-
-                                        }
-                                        default {
-                                            puts stderr "overtype::renderline EL - ERASE IN LINE (TESTING) [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                            if {$param eq ""} {set param 0} 
-                                            switch -exact -- $param {
-                                                0 {
-                                                    #clear from cursor to end of line
-                                                }
-                                                1 {
-                                                    #clear from cursor to beginning of line
-
-                                                }
-                                                2 {
-                                                    #clear entire line
-                                                }
-                                                default {
-                                                    puts stderr "overtype::renderline EL - ERASE IN LINE PARAM '$param' unrecognised [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                                }
-                                            }
-                                        }
-                                    }
-                                }
-                                L {
-                                    puts stderr "overtype::renderline IL -  Insert Line - not implemented [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                M {
-                                    #CSI Pn M - DL - Delete Line
-                                    puts stderr "overtype::renderline DL -  Delete Line - not implemented [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-
-                                }
-                                T {
-                                    #CSI Pn T - SD Pan Up (empty lines introduced at top)
-                                    #CSI Pn+T - kitty extension (lines at top come from scrollback buffer)
-                                    #Pn new lines appear at top of the display, Pn old lines disappear at the bottom of the display
-                                    if {$param eq "" || $param eq "0"} {set param 1} 
-                                    if {[string index $param end] eq "+"} {
-                                        puts stderr "overtype::renderline CSI Pn + T - kitty Pan Up - not implemented [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                    } else {
-                                        puts stderr "overtype::renderline CSI Pn T - SD Pan Up - not implemented [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                    }
-                                }
-                                X {
-                                    puts stderr "overtype::renderline X ECH ERASE CHARACTER - $param"
-                                    #ECH - erase character
-                                    if {$param eq "" || $param eq "0"} {set param 1}; #param=count of chars to erase
-                                    priv::render_erasechar $idx $param 
-                                    #cursor position doesn't change.
-                                }
-                                q {
-                                    set code_secondlast [tcl::string::index $codenorm end-1]
-                                    switch -exact -- $code_secondlast {
-                                        {"} {
-                                            #DECSCA - Select Character Protection Attribute
-                                            #(for use with selective erase: DECSED and DECSEL)
-                                            set param [tcl::string::range $codenorm 4 end-2]
-                                            if {$param eq ""} {set param 0}
-                                            #TODO - store like SGR in stacks - replays?
-                                            switch -exact -- $param {
-                                                0 - 2 {
-                                                    #canerase
-                                                    puts stderr "overtype::renderline - DECSCA canerase not implemented - [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                                }
-                                                1 {
-                                                    #cannoterase
-                                                    puts stderr "overtype::renderline - DECSCA cannoterase not implemented - [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                                }
-                                                default {
-                                                    puts stderr "overtype::renderline DECSCA param '$param' not understood [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                                }
-                                            }
-
-                                        }
-                                        default {
-                                            puts stderr "overtype::renderline - CSI ... q not implemented - [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                        }
-                                    }
-
-                                }
-                                r {
-                                    #$re_decstbm
-                                    #https://www.vt100.net/docs/vt510-rm/DECSTBM.html
-                                    #This control function sets the top and bottom margins for the current page. You cannot perform scrolling outside the margins
-                                    lassign [split $param {;}] margin_top margin_bottom
-
-                                    #todo - return these for the caller to process..
-                                    puts stderr "overtype::renderline DECSTBM set top and bottom margin not implemented"
-                                    #Also moves the cursor to col 1 line 1 of the page
-                                    set cursor_column 1
-                                    set cursor_row 1
-
-                                    incr idx_over
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction move  ;#own instruction? decstbm?
-                                    break
-                                }
-                                s {
-                                    #code conflict between ansi emulation and DECSLRM - REVIEW
-                                    #ANSISYSSC  (when no parameters) - like other terminals - essentially treat same as DECSC
-                                    # todo - when parameters - support DECSLRM instead
-
-                                    if {$param ne ""} {
-                                        #DECSLRM - should only be recognised if DECLRMM is set  (vertical split screen mode)
-                                        lassign [split $param {;} margin_left margin_right 
-                                        puts stderr "overtype DECSLRM not yet supported - got [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                        if {$margin_left eq ""} {
-                                            set margin_left 1
-                                        }
-                                        set columns_per_page 80 ;#todo - set to 'page width (DECSCPP set columns per page)' - could be 132 or??
-                                        if {$margin_right eq ""} {
-                                            set margin_right $columns_per_page 
-                                        }
-                                        puts stderr "DECSLRM margin left: $margin_left margin right: $margin_right"
-                                        if {![string is integer -strict $margin_left] || $margin_left < 0} {
-                                            puts stderr "DECSLRM invalid margin_left"
-                                        }
-                                        if {![string is integer -strict $margin_right] || $margin_right < 0} {
-                                            puts stderr "DECSLRM invalid margin_right"
-                                        }
-                                        set scrolling_region_size [expr {$margin_right - $margin_left}]
-                                        if {$scrolling_region_size < 2 || $scrolling_region_size > $columns_per_page} {
-                                            puts stderr "DECSLRM region size '$scrolling_regsion_size' must be between 1 and $columns_per_page"
-                                        }
-                                        #todo 
-
-
-                                    } else {
-                                        #DECSC
-                                        #//notes on expected behaviour:
-                                        #DECSC - saves following items in terminal's memory
-                                        #cursor position
-                                        #character attributes set by the SGR command
-                                        #character sets (G0,G1,G2 or G3) currently in GL and GR
-                                        #Wrap flag (autowrap or no autowrap)
-                                        #State of origin mode (DECOM)
-                                        #selective erase attribute
-                                        #any single shift 2 (SS2) or single shift 3(SSD) functions sent
-
-                                        #$re_cursor_save
-                                        #cursor save could come after last column  
-                                        if {$overflow_idx != -1 && $idx == $overflow_idx} {
-                                            #bartman2.ans test file - fixes misalignment at bottom of dialog bubble
-                                            #incr cursor_row
-                                            #set cursor_column 1
-                                            #bwings1.ans test file - breaks if we actually incr cursor (has repeated saves)
-                                            set cursor_saved_position [list row [expr {$cursor_row+1}] column 1]
-                                        } else {
-                                            set cursor_saved_position [list row $cursor_row column $cursor_column]
-                                        }
-                                        #there may be overlay stackable codes emitted that aren't in the understacks because they come between the last emmited character and the cursor_save control.
-                                        #we need the SGR and gx overlay codes prior to the cursor_save  
-
-                                        #a real terminal would not be able to know the state of the underlay.. so we should probably ignore it.
-                                        #set sgr_stack [lindex $understacks $idx]
-                                        #set gx_stack [lindex $understacks_gx $idx] ;#not actually a stack - just a boolean state (for now?)
-                                        
-                                        set sgr_stack [list]
-                                        set gx_stack [list]
-
-                                        #we shouldn't need to scan for intermediate cursor save/restores - as restores would throw-back to the calling loop - so our overlay 'line' is since those.
-                                        #The overlay_grapheme_control_list had leading resets from previous lines - so we go back to the beginning not just the first grapheme.
-
-                                        foreach gc [lrange $overlay_grapheme_control_list 0 $gci-1] {
-                                            lassign $gc type code 
-                                            #types g other sgr gx0
-                                            switch -- $type {
-                                                gx0 {
-                                                    #code is actually a stand-in for the graphics on/off code  - not the raw code
-                                                    #It is either gx0_on or gx0_off 
-                                                    set gx_stack [list $code]
-                                                }
-                                                sgr {
-                                                    #code is the raw code
-                                                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                                        #jmn
-                                                        set sgr_stack [list "\x1b\[m"]
-                                                    } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                                        set sgr_stack [list $code]
-                                                        lappend overlay_grapheme_control_list [list sgr $code]
-                                                    } elseif {[priv::is_sgr $code]} {
-                                                        #often we don't get resets - and codes just pile up.
-                                                        #as a first step to simplifying - at least remove earlier straight up dupes
-                                                        set dup_posns [lsearch -all -exact $sgr_stack $code] ;#needs -exact - codes have square-brackets (glob chars)
-                                                        set sgr_stack [lremove $sgr_stack {*}$dup_posns]
-                                                        lappend sgr_stack $code
-                                                    }
-                                                }
-                                            }
-                                        }
-                                        set cursor_saved_attributes ""
-                                        switch -- [lindex $gx_stack 0] {
-                                            gx0_on {
-                                                append cursor_saved_attributes "\x1b(0"
-                                            }
-                                            gx0_off {
-                                                append cursor_saved_attributes "\x1b(B"
-                                            }
-                                        }
-                                        #append cursor_saved_attributes [join $sgr_stack ""]
-                                        append cursor_saved_attributes [punk::ansi::codetype::sgr_merge_list {*}$sgr_stack]
-
-                                        #as there is apparently only one cursor storage element we don't need to throw back to the calling loop for a save.
-
-                                        #don't incr index - or the save will cause cursor to move to the right
-                                        #carry on 
-                                    }
-                                }
-                                u {
-                                    #ANSISYSRC save cursor (when no parameters)  (DECSC)
-
-                                    #$re_cursor_restore
-                                    #we are going to jump somewhere.. for now we will assume another line, and process accordingly.
-                                    #The caller has the cursor_saved_position/cursor_saved_attributes if any (?review - if we always pass it back it, we could save some calls for moves in same line)
-                                    #don't set overflow at this point. The existing underlay to the right must be preserved.
-                                    #we only want to jump and render the unapplied at the new location.
-
-                                    #lset overstacks $idx_over [list]
-                                    #set replay_codes_overlay ""        
-
-                                    #if {$cursor_saved_attributes ne ""} {
-                                    #    set replay_codes_overlay $cursor_saved_attributes ;#empty - or last save if it happend in this input chunk
-                                    #} else {
-                                        #jj
-                                        #set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                        set replay_codes_overlay ""
-                                    #}
-                                    
-                                    #like priv::render_unapplied - but without the overlay's ansi reset or gx stacks from before the restore code                     
-                                    incr idx_over
-
-                                    set unapplied ""
-                                    set unapplied_list [list]
-                                    foreach gc [lrange $overlay_grapheme_control_list $gci+1 end] {
-                                        lassign $gc type item
-                                        if {$type eq "gx0"} {
-                                            if {$item eq "gx0_on"} {
-                                                lappend unapplied_list "\x1b(0"
-                                            } elseif {$item eq "gx0_off"} {
-                                                lappend unapplied_list "\x1b(B"
-                                            }
-                                        } else {
-                                            lappend unapplied_list $item
-                                        }
-                                        #incr idx_over
-                                    }
-                                    set unapplied [join $unapplied_list ""]
-                                    #if the save occured within this line - that's ok - it's in the return value list and caller can prepend for the next loop. 
-                                    set instruction restore_cursor 
-                                    break
-                                }
-                                "{" {
-
-                                    puts stderr "renderline warning - CSI..<leftcurly> - unimplemented [ansistring VIEW -lf 1 -nul 1 $code]"
-                                }
-                                "}" {
-                                    set code_secondlast [tcl::string::index $codenorm end-1]
-                                    switch -exact -- $code_secondlast {
-                                        ' {
-                                            puts stderr "renderline warning - DECIC - Insert Column - CSI...'<rightcurly> - unimplemented [ansistring VIEW -lf 1 -nul 1 $code]"
-                                        }
-                                        default {
-                                            puts stderr "renderline warning - CSI..<rightcurly> - unimplemented [ansistring VIEW -lf 1 -nul 1 $code]"
-                                        }
-                                    }
-                                }
-                                ~ {
-                                    set code_secondlast [tcl::string::index $codenorm end-1] ;#used for e.g CSI x '~ 
-                                    switch -exact -- $code_secondlast {
-                                        ' {
-                                            #DECDC - editing sequence - Delete Column 
-                                            puts stderr "renderline warning - DECDC - unimplemented"
-                                        }
-                                        default {
-                                            #$re_vt_sequence
-                                            lassign [split $param {;}] key mod
-
-                                            #Note that f1 to f4 show as ESCOP|Q|R|S  (VT220?) but f5+ show as ESC\[15~
-                                            #
-                                            #e.g esc \[2~  insert  esc \[2;2~  shift-insert
-                                            #mod - subtract 1, and then use bitmask
-                                            #shift = 1, (left)Alt = 2, control=4, meta=8  (meta seems to do nothing on many terminals on windows? Intercepted by windows?)
-                                            #puts stderr "vt key:$key mod:$mod  code:[ansistring VIEW $code]" 
-                                            if {$key eq "1"} {
-                                                #home
-                                            } elseif {$key eq "2"} {
-                                                #Insert
-                                                if {$mod eq ""} {
-                                                    #no modifier key
-                                                    set insert_mode [expr {!$insert_mode}]
-                                                    #rather than set the cursor - we return the insert mode state so the caller can decide
-                                                }
-                                            } elseif {$key eq "3"} {
-                                                #Delete - presumably this shifts other chars in the line, with empty cells coming in from the end
-                                                switch -- $mod {
-                                                    "" {
-                                                        priv::render_delchar $idx
-                                                    }
-                                                    "5" {
-                                                        #ctrl-del - delete to end of word (pwsh) - possibly word on next line if current line empty(?)
-                                                    }
-                                                }
-                                            } elseif {$key eq "4"} {
-                                                #End
-                                            } elseif {$key eq "5"} {
-                                                #pgup
-                                            } elseif {$key eq "6"} {
-                                                #pgDn
-                                            } elseif {$key eq "7"} {
-                                                #Home
-                                                #??
-                                                set idx [expr {$opt_colstart -1}]
-                                                set cursor_column 1
-                                            } elseif {$key eq "8"} {
-                                                #End
-                                            } elseif {$key eq "11"} {
-                                                #F1 - or ESCOP  or  e.g shift F1 ESC\[1;2P
-                                            } elseif {$key eq "12"} {
-                                                #F2 - or ESCOQ
-                                            } elseif {$key eq "13"} {
-                                                #F3 - or ESCOR
-                                            } elseif {$key eq "14"} {
-                                                #F4 - or ESCOS
-                                            } elseif {$key eq "15"} {
-                                                #F5 or shift F5 ESC\[15;2~
-                                            } elseif {$key eq "17"} {
-                                                #F6
-                                            } elseif {$key eq "18"} {
-                                                #F7
-                                            } elseif {$key eq "19"} {
-                                                #F8
-                                            } elseif {$key eq "20"} {
-                                                #F9
-                                            } elseif {$key eq "21"} {
-                                                #F10
-                                            } elseif {$key eq "23"} {
-                                                #F11
-                                            } elseif {$key eq "24"} {
-                                                #F12
-                                            }
-
-                                        }
-                                    }
-
-                                }
-                                h - l {
-                                    #set mode unset mode
-                                    #we are matching only last char to get to this arm - but are there other sequences ending in h|l we need to handle?
-
-                                    #$re_mode if first after CSI is "?"  
-                                    #some docs mention ESC=<mode>h|l  - not seen on windows terminals.. review
-                                    #e.g https://www2.math.upenn.edu/~kazdan/210/computer/ansi.html
-                                    set modegroup [tcl::string::index $codenorm 4] ;#e.g ? =
-                                    switch -exact -- $modegroup {
-                                        ? {
-                                            set smparams [tcl::string::range $codenorm 5 end-1] ;#params between ? and h|l
-                                            #one or more modes can be set
-                                            set smparam_list [split $smparams {;}]
-                                            foreach num $smparam_list {
-                                                switch -- $num {
-                                                    "" {
-                                                        #ignore empties e.g extra/trailing semicolon in params
-                                                    }
-                                                    5 {
-                                                        #DECSNM - reverse video
-                                                        #How we simulate this to render within a block of text is an open question.
-                                                        #track all SGR stacks and constantly flip based on the current SGR reverse state?
-                                                        #It is the job of the calling loop to do this - so at this stage we'll just set the states
-
-                                                        if {$code_end eq "h"} {
-                                                            #set (enable)
-                                                            set reverse_mode 1
-                                                        } else {
-                                                            #reset (disable)
-                                                            set reverse_mode 0
-                                                        }
-
-                                                    }
-                                                    7 {
-                                                        #DECAWM autowrap 
-                                                        if {$code_end eq "h"} {
-                                                            #set (enable)
-                                                            set autowrap_mode 1
-                                                            if {$opt_width ne "\uFFEF"} {
-                                                                set overflow_idx $opt_width
-                                                            } else {
-                                                                #review - this is also the cursor position when adding a char at end of line? 
-                                                                set overflow_idx [expr {[llength $undercols]}] ;#index at which we would be *in* overflow a row move may still override it 
-                                                            }
-                                                            #review - can idx ever be beyond overflow_idx limit when we change e.g with a width setting and cursor movements?
-                                                            # presume not usually - but sanity check with warning for now.
-                                                            if {$idx >= $overflow_idx} {
-                                                                puts stderr "renderline warning - idx '$idx' >= overflow_idx '$overflow_idx' - unexpected"
-                                                            }
-                                                        } else {
-                                                            #reset (disable)
-                                                            set autowrap_mode 0
-                                                            #REVIEW!
-                                                            set overflow_idx -1
-                                                        }
-                                                    }
-                                                    25 {
-                                                        if {$code_end eq "h"} {
-                                                            #visible cursor
-
-                                                        } else {
-                                                            #invisible cursor
-
-                                                        }
-                                                    }
-                                                    117 {
-                                                        #DECECM - Erase Color Mode
-                                                        #https://invisible-island.net/ncurses/ncurses.faq.html
-                                                        #The Erase color selection controls the background color used when text is erased or new
-                                                        #text is scrolled on to the screen. Screen background causes newly erased areas or
-                                                        #scrolled text to be written using color index zero, the screen background. This is VT
-                                                        #and DECterm compatible. Text background causes erased areas or scrolled text to be
-                                                        #written using the current text background color. This is PC console compatible and is
-                                                        #the factory default.
-
-                                                        #see also: https://unix.stackexchange.com/questions/251726/clear-to-end-of-line-uses-the-wrong-background-color-in-screen
-                                                    }
-                                                }
-                                            }
-                                        }
-                                        = {
-                                            set num [tcl::string::range $codenorm 5 end-1] ;#param between = and h|l
-                                            puts stderr "overtype::renderline CSI=...h|l code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code] not implemented"
-                                        }
-                                        default {
-                                            #e.g CSI 4 h
-                                            set num [tcl::string::range $codenorm 4 end-1] ;#param before h|l
-                                            switch -exact -- $num {
-                                                3 {
-                                                    puts stderr "CRM MODE $code_end"
-                                                    #CRM - Show control character mode
-                                                    # 'No control functions are executed except LF,FF and VT which are represented in the CRM FONT before a CRLF(new line) is executed'
-                                                    #  
-                                                    #use ansistring VIEW -nul 1 -lf 2 -ff 2 -vt 2
-                                                    #https://vt100.net/docs/vt510-rm/CRM.html
-                                                    #NOTE - vt100 CRM always does auto-wrap at right margin.
-                                                    #disabling auto-wrap in set-up or by sequence is disabled.
-                                                    #We should default to turning off auto-wrap when crm_mode enabled.. but
-                                                    #displaying truncated (on rhs) crm can still be very useful - and we have optimisation in overflow to avoid excess renderline calls (per grapheme)
-                                                    #we therefore could reasonably put in an exception to allow auto_wrap to be disabled after crm_mode is engaged,
-                                                    #although this would be potentially an annoying difference to some.. REVIEW
-                                                    if {$code_end eq "h"} {
-                                                        set crm_mode 1
-                                                        set autowrap_mode 1
-                                                        if {$opt_width ne "\uFFEF"} {
-                                                            set overflow_idx $opt_width
-                                                        } else {
-                                                            #review - this is also the cursor position when adding a char at end of line? 
-                                                            set overflow_idx [expr {[llength $undercols]}] ;#index at which we would be *in* overflow a row move may still override it 
-                                                        }
-                                                    } else {
-                                                        set crm_mode 0
-                                                    }
-                                                }
-                                                4 {
-                                                    #IRM - Insert/Replace Mode
-                                                    if {$code_end eq "h"} {
-                                                        #CSI 4 h
-                                                        set insert_mode 1
-                                                    } else {
-                                                        #CSI 4 l
-                                                        #replace mode
-                                                        set insert_mode 0
-                                                    }
-                                                }
-                                                default {
-                                                    puts stderr "overtype::renderline CSI...h|l code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code] not implemented"
-                                                }
-                                            }
-                                        }
-                                    }
-                                }
-                                | {
-                                    switch -- [tcl::string::index $codenorm end-1] {
-                                        {$} {
-                                            #CSI ... $ |   DECSCPP set columns per page- (recommended in vt510 docs as preferable to DECCOLM)
-                                            #real terminals generally only supported 80/132
-                                            #some other virtuals support any where from 2 to 65,536?
-                                            #we will allow arbitrary widths >= 2 .. to some as yet undetermined limit.
-                                            #CSI <param> $ |
-                                            #empty or 0 param is 80 for compatibility - other numbers > 2 accepted
-                                            set page_width -1 ;#flag as unset
-                                            if {$param eq ""} {
-                                                set page_width 80
-                                            }  elseif {[string is integer -strict $param] && $param >=2 0} {
-                                                set page_width [expr {$param}] ;#we should allow leading zeros in the number - but lets normalize using expr
-                                            } else {
-                                                puts stderr "overtype::renderline unacceptable DECSPP value '$param'" 
-                                            }
-
-                                            if {$page_width > 2} {
-                                                puts stderr "overtype::renderline DECSCPP - not implemented - but selected width '$page_width' looks ok"
-                                                #if cursor already beyond new page_width - will move to right colum - otherwise no cursor movement
-
-                                            }
-
-                                        }
-                                        default {
-                                            puts stderr "overtype::renderline  unrecognised CSI code ending in pipe (|) [ansistring VIEW -lf 1 -vt 1 -nul 1 $code] not implemented"
-                                        }
-                                    }
-                                }
-                                default {
-                                        puts stderr "overtype::renderline CSI code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code] not implemented"
-                                }
-                            } 
-                        } 
-                        7ESC {
-                            #
-                            #re_other_single         {\x1b(D|M|E)$}
-                            #also vt52 Y.. 
-                            #also PM \x1b^...(ST)
-                            switch -- [tcl::string::index $codenorm 4] {
-                                c {
-                                    #RIS - reset terminal to initial state - where 'terminal' in this case is the renderspace - not the underlying terminal!
-                                    puts stderr "renderline reset"
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction reset 
-                                    break
-                                }
-                                D {
-                                    #\x84
-                                    #index (IND)
-                                    #vt102-docs: "Moves cursor down one line in same column. If cursor is at bottom margin, screen performs a scroll-up"
-                                    puts stderr "renderline ESC D not fully implemented"
-                                    incr cursor_row 
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction down
-                                    #retain cursor_column
-                                    break 
-                                }
-                                E {
-                                    #\x85
-                                    #review - is behaviour different to lf?
-                                    #todo - possibly(?) same logic as <lf> handling above. i.e return instruction depends on where column_cursor is at the time we get NEL
-                                    #leave implementation until logic for <lf> is set in stone... still under review
-                                    #It's arguable NEL is a pure cursor movement as opposed to the semantic meaning of crlf or lf in a file.
-                                    # 
-                                    #Next Line (NEL) "Move the cursor to the left margin on the next line. If the cursor is at the bottom margin, scroll the page up"
-                                    puts stderr "overtype::renderline ESC E unimplemented"
-
-                                }
-                                H {
-                                    #\x88
-                                    #Tab Set
-                                    puts stderr "overtype::renderline ESC H tab set unimplemented"
-                                }
-                                M {
-                                    #\x8D
-                                    #Reverse Index (RI)
-                                    #vt102-docs: "Moves cursor up one line in same column. If cursor is at top margin, screen performs a scroll-down"
-                                    puts stderr "overtype::renderline ESC M not fully implemented"
-
-                                    set replay_codes_overlay [punk::ansi::codetype::sgr_merge_list {*}[lindex $overlay_grapheme_control_stacks $gci]]
-                                    #move up
-                                    incr cursor_row -1
-                                    if {$cursor_row < 1} {
-                                        set cursor_row  1
-                                    }
-                                    #ensure rest of *overlay* is emitted to remainder
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction up  ;#need instruction for scroll-down?
-                                    #retain cursor_column
-                                    break 
-                                }
-                                N {
-                                    #\x8e - affects next character only
-                                    puts stderr "overtype::renderline single shift select G2 command UNIMPLEMENTED. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                O {
-                                    #\x8f - affects next character only
-                                    puts stderr "overtype::renderline single shift select G3 command UNIMPLEMENTED. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                P {
-                                    #\x90
-                                    #DCS - shouldn't get here - handled in 7DCS branch
-                                    #similarly \] OSC (\x9d)  and \\ (\x9c) ST 
-                                }
-                                V {
-                                    #\x96
-
-                                }
-                                W {
-                                    #\x97
-                                }
-                                X {
-                                    #\x98
-                                    #SOS
-                                    if {[string index $code end] eq "\007"} {
-                                        set sos_content [string range $code 2 end-1] ;#ST is \007
-                                    } else {
-                                        set sos_content [string range $code 2 end-2] ;#ST is \x1b\\
-                                    }
-                                    #return in some useful form to the caller
-                                    #TODO!
-                                    lappend sos_list [list string $sos_content row $cursor_row column $cursor_column]
-                                    puts stderr "overtype::renderline ESCX SOS UNIMPLEMENTED. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                ^ {
-                                    #puts stderr "renderline PM"
-                                    #Privacy Message.
-                                    if {[string index $code end] eq "\007"} {
-                                        set pm_content [string range $code 2 end-1] ;#ST is \007
-                                    } else {
-                                        set pm_content [string range $code 2 end-2] ;#ST is \x1b\\
-                                    }
-                                    #We don't want to render it - but we need to make it available to the application
-                                    #see the textblock library in punk, for the exception we make here for single backspace.
-                                    #It is unlikely to be encountered as a useful PM - so we hack to pass it through as a fix 
-                                    #for spacing issues on old terminals which miscalculate the single-width 'Symbols for Legacy Computing'
-                                    if {$pm_content eq "\b"} {
-                                        #puts stderr "renderline PM sole backspace special handling for \U1FB00 - \U1FBFF"
-                                        #esc^\b\007 or esc^\besc\\ 
-                                        #HACKY pass-through - targeting terminals that both mis-space legacy symbols *and* don't support PMs
-                                        #The result is repair of the extra space. If the terminal is a modern one and does support PM - the \b should be hidden anyway.
-                                        #If the terminal has the space problem AND does support PMs - then this just won't fix it.
-                                        #The fix relies on the symbol-supplier to cooperate by appending esc^\b\esc\\ to the problematic symbols.
-
-                                        #priv::render_addchar $idx $code [lindex $overstacks $idx_over] [lindex $overstacks_gx $idx_over] $insert_mode
-                                        #idx has been incremented after last grapheme added
-                                        priv::render_append_to_char [expr {$idx -1}] $code
-                                    }
-                                    #lappend to a dict element in the result for application-specific processing
-                                    lappend pm_list $pm_content
-                                }
-                                _ {
-                                    #APC Application Program Command
-                                    #just warn for now..
-                                    puts stderr "overtype::renderline ESC_ APC command UNIMPLEMENTED. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                default {
-                                    puts stderr "overtype::renderline ESC<x> code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code] not implemented codenorm:[ansistring VIEW -lf 1 -vt 1 -nul 1 $codenorm]"
-                                }
-                            }
-
-                        }
-                        7DCS - 8DCS {
-                            puts stderr "overtype::renderline DCS - DEVICE CONTROL STRING command UNIMPLEMENTED. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                            #ST (string terminator) \x9c or \x1b\\ 
-                            if {[tcl::string::index $codenorm end] eq "\x9c"} {
-                                set code_content [tcl::string::range $codenorm 4 end-1] ;#ST is 8-bit 0x9c 
-                            } else {
-                                set code_content [tcl::string::range $codenorm 4 end-2] ;#ST is \x1b\\
-                            }
-
-                        }
-                        7OSC - 8OSC {
-                            # OSCs are terminated with ST of either \007 or \x1b\\ - we allow either whether code was 7 or 8 bit
-                            if {[tcl::string::index $codenorm end] eq "\007"} {
-                                set code_content [tcl::string::range $codenorm 4 end-1] ;#ST is \007
-                            } else {
-                                set code_content [tcl::string::range $codenorm 4 end-2] ;#ST is \x1b\\
-                            }
-                            set first_colon [tcl::string::first {;} $code_content]
-                            if {$first_colon == -1} {
-                                #there probably should always be a colon - but we'll try to make sense of it without
-                                set osc_code $code_content ;#e.g \x1b\]104\007 vs \x1b\]104\;\007
-                            } else {
-                                set osc_code [tcl::string::range $code_content 0 $first_colon-1]
-                            }
-                            switch -exact -- $osc_code {
-                                2 {
-                                    set newtitle [tcl::string::range $code_content 2 end]
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction [list set_window_title $newtitle]
-                                    break
-                                }
-                                4 {
-                                    #OSC 4 - set colour palette
-                                    #can take multiple params
-                                    #e.g \x1b\]4\;1\;red\;2\;green\x1b\\ 
-                                    set params [tcl::string::range $code_content 2 end] ;#strip 4 and first semicolon
-                                    set cmap [dict create]
-                                    foreach {cnum spec} [split $params {;}] {
-                                        if {$cnum >= 0 and $cnum <= 255} {
-                                            #todo - parse spec from names like 'red' to RGB
-                                            #todo - accept rgb:ab/cd/ef as well as rgb:/a/b/c  (as alias for aa/bb/cc)
-                                            #also - what about rgb:abcd/defg/hijk and 12-bit abc/def/ghi ?
-                                            dict set cmap $cnum $spec
-                                        } else {
-                                            #todo - log
-                                            puts stderr "overtype::renderline OSC 4 set colour palette - bad color number: $cnum must be from 0 to 255. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                        }
-                                    }
-
-                                    puts stderr "overtype::renderline OSC 4 set colour palette unimplemented. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-
-                                    
-                                }
-                                10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 {
-                                    #OSC 10 through 17 - so called 'dynamic colours'
-                                    #can take multiple params - each successive parameter changes the next colour in the list
-                                    #- e.g if code started at 11 - next param is for 12. 17 takes only one param because there are no more 
-                                    #10 change text foreground colour
-                                    #11 change text background colour
-                                    #12 change text cursor colour
-                                    #13 change mouse foreground colour
-                                    #14 change mouse background colour
-                                    #15 change tektronix foreground colour
-                                    #16 change tektronix background colour
-                                    #17 change highlight colour
-                                    set params [tcl::string::range $code_content 2 end]
-                                    
-                                    puts stderr "overtype::renderline OSC $osc_code set dynamic colours unimplemented. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-
-
-                                }
-                                18 {
-                                    #why is this not considered one of the dynamic colours above?
-                                    #https://www.xfree86.org/current/ctlseqs.html
-                                    #tektronix cursor color
-                                    puts stderr "overtype::renderline OSC 18 - set tektronix cursor color unimplemented. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                99 {
-                                    #kitty desktop notifications
-                                    #https://sw.kovidgoyal.net/kitty/desktop-notifications/
-                                    #<OSC> 99 ; metadata ; payload <terminator>
-                                    puts stderr "overtype::renderline OSC 99 kitty desktop notification unimplemented. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                                104 {
-                                    #reset colour palette
-                                    #we want to do it for the current rendering context only (vvt)  - not just pass through to underlying vt
-                                    puts stderr "overtype::renderline OSC 104 reset colour palette unimplemented. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                    priv::render_unapplied $overlay_grapheme_control_list $gci
-                                    set instruction [list reset_colour_palette]
-                                    break
-                                }
-                                1337 {
-                                    #iterm2 graphics and file transfer 
-                                    puts stderr "overtype::renderline OSC 1337 iterm2 graphics/file_transfer unimplemented. 1st 100 chars of code [ansistring VIEW -lf 1 -vt 1 -nul 1 [string range $code 0 99]]"
-                                }
-                                5113 {
-                                    puts stderr "overtype::renderline OSC 5113 kitty file transfer unimplemented. 1st 100 chars of code [ansistring VIEW -lf 1 -vt 1 -nul 1 [string range $code 0 99]]"
-                                }
-                                default {
-                                    puts stderr "overtype::renderline OSC - UNIMPLEMENTED. code [ansistring VIEW -lf 1 -vt 1 -nul 1 $code]"
-                                }
-                            }
-
-                        }
-                        default {
-                        }
-                    }
-
-
-                }
-                default {
-                    #don't need to handle sgr or gx0 types 
-                    #we have our sgr gx0 codes already in stacks for each overlay grapheme
-                }
-            }
-        }
-
-        #--------
-        if {$opt_expand_right == 0} {
-            #need to truncate to the width of the original undertext
-            #review - string_width vs printing_length here. undertext requirement to be already rendered therefore punk::char::string_width ok?
-            #set num_under_columns [punk::char::string_width $pt_underchars] ;#plaintext underchars
-        }
-        if {$overflow_idx == -1} {
-            #overflow was initially unlimited and hasn't been overridden
-        } else {
-
-        }
-        #--------
-
-
-        #coalesce and replay codestacks for outcols grapheme list
-        set outstring ""  ;#output prior to overflow
-        set overflow_right "" ;#remainder after overflow point reached
-        set i 0
-        set cstack [list]
-        set prevstack [list]
-        set prev_g0 [list]
-        #note overflow_idx may already have been set lower if we had a row move above due to \v or ANSI moves
-        set in_overflow 0 ;#used to stop char-width scanning once in overflow
-        if {$overflow_idx == 0} {
-            #how does caller avoid an infinite loop if they have autowrap on and keep throwing graphemes to the next line?  REVIEW
-            set in_overflow 1
-        }
-        set trailing_nulls 0 
-        foreach ch [lreverse $outcols] {
-            if {$ch eq "\u0000"} {
-                incr trailing_nulls
-            } else {
-                break
-            }
-        }
-        if {$trailing_nulls} {
-            set first_tail_null_posn [expr {[llength $outcols] - $trailing_nulls}]
-        } else {
-            set first_tail_null_posn -1
-        }
-
-        #puts stderr "first_tail_null_posn: $first_tail_null_posn"
-        #puts stderr "colview: [ansistring VIEW $outcols]"
-
-        foreach ch $outcols {
-            #puts "---- [ansistring VIEW $ch]"
-
-            set gxleader ""
-            if {$i < [llength $understacks_gx]} {
-                #set g0 [tcl::dict::get $understacks_gx $i]
-                set g0 [lindex $understacks_gx $i]
-                if {$g0 ne $prev_g0} {
-                    if {$g0 eq [list "gx0_on"]} {
-                        set gxleader "\x1b(0"
-                    } else {
-                        set gxleader "\x1b(B"
-                    }
-                }
-                set prev_g0 $g0
-            } else {
-                set prev_g0 [list]
-            }
-
-            set sgrleader ""
-            if {$i < [llength $understacks]} {
-                #set cstack [tcl::dict::get $understacks $i]
-                set cstack [lindex $understacks $i]
-                if {$cstack ne $prevstack} {
-                    if {[llength $prevstack] && ![llength $cstack]} {
-                        #This reset is important e.g testfile fruit.ans - we get overhang on rhs without it. But why is cstack empty?
-                        append sgrleader \033\[m
-                    } else {
-                        append sgrleader [punk::ansi::codetype::sgr_merge_list {*}$cstack]
-                    }
-                }
-                set prevstack $cstack
-            } else {
-                set prevstack [list]
-            }
-
-
-
-            if {$in_overflow} {
-                if {$i == $overflow_idx} {
-                    set 0 [lindex $understacks_gx $i]
-                    set gxleader ""
-                    if {$g0 eq [list "gx0_on"]} {
-                        set gxleader "\x1b(0"
-                    } elseif {$g0 eq [list "gx0_off"]} {
-                        set gxleader "\x1b(B"
-                    }
-                    append overflow_right $gxleader
-                    set cstack [lindex $understacks $i]
-                    set sgrleader ""
-                    #whether cstack is same or differs from previous char's stack - we must have an output at the start of the overflow_right
-                    #if {[llength $prevstack] && ![llength $cstack]} {
-                    #    append sgrleader \033\[m
-                    #}
-                    append sgrleader [punk::ansi::codetype::sgr_merge_list {*}$cstack]
-                    append overflow_right $sgrleader
-                    append overflow_right $ch
-                } else {
-                    append overflow_right $gxleader
-                    append overflow_right $sgrleader
-                    append overflow_right $ch
-                }
-            } else {
-                if {$overflow_idx != -1 && $i+1 == $overflow_idx} {
-                    #one before overflow
-                    #will be in overflow in next iteration
-                    set in_overflow 1
-                    if {[grapheme_width_cached $ch]> 1} {
-                        #we overflowed with second-half of a double-width char - replace first-half with user-supplied exposition char (should be 1 wide)
-                        set ch $opt_exposed1
-                    }
-                }
-                append outstring $gxleader
-                append outstring $sgrleader
-                if {$ch eq "\u0000"} {
-                    if {$cp437_glyphs} {
-                        #map all nulls including at tail to space
-                        append outstring " "
-                    } else {
-                        if {$trailing_nulls && $i < $first_tail_null_posn} {
-                            append outstring " " ;#map inner nulls to space
-                        } else {
-                            append outstring \u0000 
-                        }
-                    }
-                } else {
-                    append outstring $ch
-                }
-            }
-            incr i
-        }
-        #flower.ans good test for null handling - reverse line building
-        #review - presence of overflow_right doesn't indicate line's trailing nulls should remain.
-        #The cells could have been erased?
-        #if {!$cp437_glyphs} {
-        #    #if {![ansistring length $overflow_right]} {
-        #    #    set outstring [tcl::string::trimright $outstring "\u0000"]
-        #    #}
-        #    set outstring [tcl::string::trimright $outstring "\u0000"]
-        #    set outstring [tcl::string::map {\u0000 " "} $outstring] 
-        #}
-
-
-        #REVIEW
-        #set overflow_right [tcl::string::trimright $overflow_right "\u0000"]
-        #set overflow_right [tcl::string::map {\u0000 " "} $overflow_right] 
-
-        set replay_codes ""
-        if {[llength $understacks] > 0} {
-            if {$overflow_idx == -1} {
-                #set tail_idx [tcl::dict::size $understacks]
-                set tail_idx [llength $understacks]
-            } else {
-                set tail_idx [llength $undercols]
-            }
-            if {$tail_idx-1 < [llength $understacks]} {
-                #set replay_codes [join [lindex $understacks $tail_idx-1] ""] ;#tail replay codes
-                set replay_codes [punk::ansi::codetype::sgr_merge_list {*}[lindex $understacks $tail_idx-1]] ;#tail replay codes
-            }
-            if {$tail_idx-1 < [llength $understacks_gx]} {
-                set gx0 [lindex $understacks_gx $tail_idx-1]
-                if {$gx0 eq [list "gx0_on"]} {
-                    #if it was on, turn gx0 off at the point we stop processing overlay
-                    append outstring "\x1b(B"
-                }
-            }
-        }
-        if {[string length $overflow_right]} {
-            #puts stderr "remainder:$overflow_right"
-        }
-        #pdict $understacks
-
-        if {[punk::ansi::ta::detect_sgr $outstring]} {
-            append outstring [punk::ansi::a] ;#without this - we would get for example, trailing backgrounds after rightmost column 
-
-            #close off any open gx?
-            #probably should - and overflow_right reopen? 
-        }
-        
-        if {$opt_returnextra} {
-            #replay_codes is the codestack at the boundary - used for ellipsis colouring to match elided text  - review
-            #replay_codes_underlay is the set of codes in effect at the very end of the original underlay
-
-            #review
-            #replay_codes_overlay is the set of codes in effect at the very end of the original overlay (even if not all overlay was applied)
-            #todo - replay_codes for gx0 mode
-
-            #overflow_idx may change during ansi & character processing
-            if {$overflow_idx == -1} {
-                set overflow_right_column ""
-            }  else {
-                set overflow_right_column [expr {$overflow_idx+1}]
-            }
-            set result [tcl::dict::create\
-                result $outstring\
-                visualwidth [punk::ansi::printing_length $outstring]\
-                instruction $instruction\
-                stringlen [string length $outstring]\
-                overflow_right_column $overflow_right_column\
-                overflow_right $overflow_right\
-                unapplied $unapplied\
-                unapplied_list $unapplied_list\
-                insert_mode     $insert_mode\
-                autowrap_mode   $autowrap_mode\
-                crm_mode        $crm_mode\
-                reverse_mode    $reverse_mode\
-                insert_lines_above $insert_lines_above\
-                insert_lines_below $insert_lines_below\
-                cursor_saved_position $cursor_saved_position\
-                cursor_saved_attributes $cursor_saved_attributes\
-                cursor_column   $cursor_column\
-                cursor_row      $cursor_row\
-                expand_right    $opt_expand_right\
-                replay_codes $replay_codes\
-                replay_codes_underlay $replay_codes_underlay\
-                replay_codes_overlay $replay_codes_overlay\
-                pm_list  $pm_list\
-            ]
-            if {$opt_returnextra == 1} {
-                #puts stderr "renderline: $result"
-                return $result
-            } else {
-                #human/debug - map special chars to visual glyphs
-                set viewop VIEW
-                switch -- $opt_returnextra {
-                    2 {
-                        #codes and character data 
-                        set viewop VIEWCODES ;#ansi colorisation of codes - green for SGR, blue/blue reverse for cursor_save/cursor_restore, cyan for movements, orange for others
-                    }
-                    3 {
-                        set viewop VIEWSTYLE ;#ansi colorise the characters within the output with preceding codes, stacking codes only within each dict value - may not be same SGR effect as the effect in-situ. 
-                    }
-                }
-                tcl::dict::set result result                  [ansistring $viewop -lf 1 -vt 1 [tcl::dict::get $result result]]
-                tcl::dict::set result overflow_right          [ansistring VIEW -lf 1 -vt 1 [tcl::dict::get $result overflow_right]]
-                tcl::dict::set result unapplied               [ansistring VIEW -lf 1 -vt 1 [tcl::dict::get $result unapplied]]
-                tcl::dict::set result unapplied_list          [ansistring VIEW -lf 1 -vt 1 [tcl::dict::get $result unapplied_list]]
-                tcl::dict::set result replay_codes            [ansistring $viewop -lf 1 -vt 1 [tcl::dict::get $result replay_codes]]
-                tcl::dict::set result replay_codes_underlay   [ansistring $viewop -lf 1 -vt 1 [tcl::dict::get $result replay_codes_underlay]]
-                tcl::dict::set result replay_codes_overlay    [ansistring $viewop -lf 1 -vt 1 [tcl::dict::get $result replay_codes_overlay]]
-                tcl::dict::set result cursor_saved_attributes [ansistring $viewop -lf 1 -vt 1 [tcl::dict::get $result cursor_saved_attributes]] 
-                return $result
-            }
-        } else {
-            #puts stderr "renderline returning: result $outstring instruction $instruction unapplied $unapplied overflow_right $overflow_right"
-            return $outstring
-        }
-        #return [join $out ""]
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace overtype ---}]
-} 
-
-tcl::namespace::eval overtype::piper {
-    proc overcentre {args} {
-        if {[llength $args] < 2} {
-            error {usage: ?-bias left|right? ?-transparent [0|1|<regexp>]? ?-exposed1 <char>? ?-exposed2 <char>?  ?-overflow [1|0]? overtext pipelinedata}
-        }
-        lassign [lrange $args end-1 end] over under
-        set argsflags [lrange $args 0 end-2]
-        tailcall overtype::centre {*}$argsflags $under $over
-    }
-    proc overleft {args} {
-        if {[llength $args] < 2} {
-            error {usage: ?-startcolumn <column>? ?-transparent [0|1|<regexp>]? ?-exposed1 <char>? ?-exposed2 <char>?  ?-overflow [1|0]? overtext pipelinedata}
-        }
-        lassign [lrange $args end-1 end] over under
-        set argsflags [lrange $args 0 end-2]
-        tailcall overtype::left {*}$argsflags $under $over
-    }
-}
-
-
-# -- --- --- --- --- --- --- --- --- --- ---
-proc overtype::transparentline {args} {
-    foreach {under over} [lrange $args end-1 end] break
-    set argsflags [lrange $args 0 end-2]
-    set defaults [tcl::dict::create\
-        -transparent 1\
-        -exposed 1 " "\
-        -exposed 2 " "\
-    ]
-    set newargs [tcl::dict::merge $defaults $argsflags]
-    tailcall overtype::renderline {*}$newargs $under $over
-}
-#renderline may not make sense as it is in the long run for blocks of text - but is handy in the single-line-handling form anyway.
-# We are trying to handle ansi codes in a block of text which is acting like a mini-terminal in some sense.
-#We can process standard cursor moves such as \b \r - but no way to respond to other cursor movements e.g moving to other lines.
-#
-tcl::namespace::eval overtype::piper {
-    proc renderline {args} {
-        if {[llength $args] < 2} {
-            error {usage: ?-start <int>? ?-transparent [0|1|<regexp>]?  ?-overflow [1|0]? overtext pipelinedata}
-        }
-        foreach {over under} [lrange $args end-1 end] break
-        set argsflags [lrange $args 0 end-2]
-        tailcall overtype::renderline {*}$argsflags $under $over
-    }
-}
-interp alias "" piper_renderline "" overtype::piper::renderline 
-
-#intended primarily for single grapheme - but will work for multiple
-#WARNING: query CAN contain ansi or newlines - but if cache was not already set manually,the answer will be incorrect!
-#We deliberately allow this for PM/SOS attached within a column
-#(a cache of ansifreestring_width calls - as these are quite regex heavy)
-proc overtype::grapheme_width_cached {ch} {
-    variable grapheme_widths
-    if {[tcl::dict::exists $grapheme_widths $ch]} {
-        return [tcl::dict::get $grapheme_widths $ch]
-    }
-    set width [punk::char::ansifreestring_width $ch]
-    tcl::dict::set grapheme_widths $ch $width
-    return $width
-}
-
-
-
-proc overtype::test_renderline {} {
-    set t \uFF5E ;#2-wide tilde
-    set u \uFF3F ;#2-wide underscore
-    set missing \uFFFD
-    return [list $t $u A${t}B]
-}
-
-#maintenance warning
-#same as textblock::size - but we don't want that circular dependency
-#block width and height can be tricky. e.g \v handled differently on different terminal emulators and can affect both
-proc overtype::blocksize {textblock} {
-    if {$textblock eq ""} {
-        return [tcl::dict::create width 0 height 1] ;#no such thing as zero-height block - for consistency with non-empty strings having no line-endings
-    }
-    if {[tcl::string::first \t $textblock] >= 0} {
-        if {[info exists punk::console::tabwidth]} {
-            set tw $::punk::console::tabwidth
-        } else {
-            set tw 8
-        }
-        set textblock [textutil::tabify::untabify2 $textblock $tw]
-    }
-    #ansistrip on entire block in one go rather than line by line - result should be the same - review - make tests
-    if {[punk::ansi::ta::detect $textblock]} {
-        set textblock [punk::ansi::ansistrip $textblock]
-    }
-    if {[tcl::string::last \n $textblock] >= 0} {
-        set num_le [expr {[tcl::string::length $textblock]-[tcl::string::length [tcl::string::map {\n {}} $textblock]]}] ;#faster than splitting into single-char list
-        set width [tcl::mathfunc::max {*}[lmap v [split $textblock \n] {::punk::char::ansifreestring_width $v}]]
-    } else {
-        set num_le 0
-        set width [punk::char::ansifreestring_width $textblock] 
-    }
-    #our concept of block-height is likely to be different to other line-counting mechanisms
-    set height [expr {$num_le + 1}] ;# one line if no le - 2 if there is one trailing le even if no data follows le
-
-    return [tcl::dict::create width $width height $height] ;#maintain order in 'image processing' standard width then height - caller may use lassign [dict values [blocksize <data>]] width height
-}
-
-tcl::namespace::eval overtype::priv {
-    variable cache_is_sgr [tcl::dict::create]
-
-    #we are likely to be asking the same question of the same ansi codes repeatedly
-    #caching the answer saves some regex expense - possibly a few uS to lookup vs under 1uS
-    #todo - test if still worthwhile after a large cache is built up. (limit cache size?)
-    proc is_sgr {code} {
-        variable cache_is_sgr
-        if {[tcl::dict::exists $cache_is_sgr $code]} {
-            return [tcl::dict::get $cache_is_sgr $code]
-        } 
-        set answer [punk::ansi::codetype::is_sgr $code]
-        tcl::dict::set cache_is_sgr $code $answer
-        return $answer
-    }
-    # better named render_to_unapplied?
-    proc render_unapplied {overlay_grapheme_control_list gci} {
-        upvar idx_over idx_over
-        upvar unapplied unapplied
-        upvar unapplied_list unapplied_list ;#maintaining as a list allows caller to utilize it without having to re-split
-        upvar overstacks overstacks
-        upvar overstacks_gx overstacks_gx
-        upvar overlay_grapheme_control_stacks og_stacks
-
-        #set unapplied [join [lrange $overlay_grapheme_control_list $gci+1 end]]
-        set unapplied ""
-        set unapplied_list [list]
-        #append unapplied [join [lindex $overstacks $idx_over] ""]
-        #append unapplied [punk::ansi::codetype::sgr_merge_list {*}[lindex $overstacks $idx_over]]
-        set sgr_merged  [punk::ansi::codetype::sgr_merge_list {*}[lindex $og_stacks $gci]]
-        if {$sgr_merged ne ""} {
-            lappend unapplied_list  $sgr_merged
-        }
-        switch -- [lindex $overstacks_gx $idx_over] {
-            "gx0_on" {
-                lappend unapplied_list "\x1b(0"
-            }
-            "gx0_off" {
-                lappend unapplied_list "\x1b(B"
-            }
-        }
-
-        foreach gc [lrange $overlay_grapheme_control_list $gci+1 end] {
-            lassign $gc type item
-            #types g other sgr gx0
-            if {$type eq "gx0"} {
-                if {$item eq "gx0_on"} {
-                    lappend unapplied_list "\x1b(0"
-                } elseif {$item eq "gx0_off"} {
-                    lappend unapplied_list "\x1b(B"
-                }
-            } else {
-                lappend unapplied_list $item
-            }
-        }
-        set unapplied [join $unapplied_list ""]
-    }
-
-    #clearer - renders the specific gci forward as unapplied - prefixed with it's merged sgr stack 
-    proc render_this_unapplied {overlay_grapheme_control_list gci} {
-        upvar idx_over idx_over
-        upvar unapplied unapplied
-        upvar unapplied_list unapplied_list
-        upvar overstacks overstacks
-        upvar overstacks_gx overstacks_gx
-        upvar overlay_grapheme_control_stacks og_stacks
-
-        #set unapplied [join [lrange $overlay_grapheme_control_list $gci+1 end]]
-        set unapplied ""
-        set unapplied_list [list]
-
-        set sgr_merged  [punk::ansi::codetype::sgr_merge_list {*}[lindex $og_stacks $gci]]
-        if {$sgr_merged ne ""} {
-            lappend unapplied_list $sgr_merged
-        }
-        switch -- [lindex $overstacks_gx $idx_over] {
-            "gx0_on" {
-                lappend unapplied_list "\x1b(0"
-            }
-            "gx0_off" {
-                lappend unapplied_list "\x1b(B"
-            }
-        }
-
-        foreach gc [lrange $overlay_grapheme_control_list $gci end] {
-            lassign $gc type item
-            #types g other sgr gx0
-            if {$type eq "gx0"} {
-                if {$item eq "gx0_on"} {
-                    lappend unapplied_list "\x1b(0"
-                } elseif {$item eq "gx0_off"} {
-                    lappend unapplied_list "\x1b(B"
-                }
-            } else {
-                lappend unapplied_list $item
-            }
-        }
-        set unapplied [join $unapplied_list ""]
-    }
-    proc render_delchar {i} {
-        upvar outcols o
-        upvar understacks ustacks
-        upvar understacks_gx gxstacks
-        set nxt [llength $o]
-        if {$i < $nxt} {
-            set o [lreplace $o $i $i]
-            set ustacks [lreplace $ustacks $i $i]
-            set gxstacks [lreplace $gxstacks $i $i]
-        } elseif {$i == 0 || $i == $nxt} {
-            #nothing to do
-        } else {
-            puts stderr "render_delchar - attempt to delchar at index $i >= number of outcols $nxt - shouldn't happen"
-        }
-    }
-    proc render_erasechar {i count} {
-        upvar outcols o
-        upvar understacks ustacks
-        upvar understacks_gx gxstacks
-        upvar replay_codes_overlay replay
-        #ECH clears character attributes from erased character positions
-        #ECH accepts 0 or empty parameter, which is equivalent to 1. Caller of render_erasechar should do that mapping and only supply 1 or greater.
-        if {![tcl::string::is integer -strict $count] || $count < 1} {
-            error "render_erasechar count must be integer >= 1"
-        }
-        set start $i
-        set end [expr {$i + $count -1}]
-        #we restrict ECH to current line - as some terminals do - review - is that the only way it's implemented?
-        if {$i > [llength $o]-1} {
-            return
-        }
-        if {$end > [llength $o]-1} {
-            set end [expr {[llength $o]-1}]
-        }
-        set num [expr {$end - $start + 1}]
-        set o           [lreplace $o $start $end {*}[lrepeat $num \u0000]]  ;#or space?
-        #DECECM ???
-        set ustacks     [lreplace $ustacks $start $end {*}[lrepeat $num [list $replay]]]
-        set gxstacks    [lreplace $gxstacks $start $end {*}[lrepeat $num [list]]] ;# ??? review
-        return
-    }
-    proc render_setchar {i c } {
-        upvar outcols o
-        lset o $i $c
-    }
-
-    #Initial usecase is for old-terminal hack to add PM-wrapped \b
-    #review - can be used for other multibyte sequences that occupy one column?
-    #combiners? diacritics?
-    proc render_append_to_char {i c} {
-        upvar outcols o
-        if {$i > [llength $o]-1} {
-            error "render_append_to_char cannot append [ansistring VIEW -lf 1 -nul 1 $c] to existing char at index $i while $i >= llength outcols [llength $o]"
-        }
-        set existing [lindex $o $i]
-        if {$existing eq "\0"} {
-            lset o $i $c
-        } else {
-            lset o $i $existing$c 
-        }
-    } 
-    #is actually addgrapheme?
-    proc render_addchar {i c sgrstack gx0stack {insert_mode 0}} {
-        upvar outcols o
-        upvar understacks ustacks
-        upvar understacks_gx gxstacks
-
-        # -- --- ---
-        #this is somewhat of a hack.. probably not really the equivalent of proper reverse video? review
-        #we should ideally be able to reverse the video of a sequence that already includes SGR reverse/noreverse attributes
-        upvar reverse_mode do_reverse
-        #if {$do_reverse} {
-        #    lappend sgrstack [a+ reverse]
-        #} else {
-        #    lappend sgrstack [a+ noreverse]
-        #}
-
-        #JMN3
-        if {$do_reverse} {
-            #note we can't just look for \x1b\[7m  or \x1b\[27m
-            # it may be a more complex sequence like \x1b\[0\;\;7\;31m  etc
-
-            set existing_reverse_state 0 
-            set codeinfo [punk::ansi::codetype::sgr_merge $sgrstack -info 1]
-            set codestate_reverse [dict get $codeinfo codestate reverse]
-            switch -- $codestate_reverse {
-                7 {
-                    set existing_reverse_state 1
-                }
-                27 {
-                    set existing_reverse_state 0
-                }
-                "" {
-                }
-            }
-            if {$existing_reverse_state == 0} {
-                set rflip [a+ reverse]
-            } else {
-                #reverse of reverse
-                set rflip [a+ noreverse]
-            }
-            #note that mergeresult can have multiple esc (due to unmergeables or non sgr codes)
-            set sgrstack [list [dict get $codeinfo mergeresult] $rflip]
-            #set sgrstack [punk::ansi::codetype::sgr_merge [list [dict get $codeinfo mergeresult] $rflip]]
-        }
-        
-        # -- --- ---
-
-        set nxt [llength $o] 
-        if {!$insert_mode} {
-            if {$i < $nxt} {
-                #These lists must always be in sync 
-                lset o $i $c
-            } else {
-                lappend o $c
-            }
-            if {$i < [llength $ustacks]} {
-                lset ustacks $i $sgrstack
-                lset gxstacks $i $gx0stack
-            } else {
-                lappend ustacks $sgrstack
-                lappend gxstacks $gx0stack
-            }
-        } else {
-            #insert of single-width vs double-width when underlying is double-width?
-            if {$i < $nxt} {
-                set o [linsert $o $i $c]
-            } else {
-                lappend o $c
-            }
-            if {$i < [llength $ustacks]} {
-                set ustacks [linsert $ustacks $i $sgrstack]
-                set gxstacks [linsert $gxstacks $i $gx0stack]
-            } else {
-                lappend ustacks $sgrstack
-                lappend gxstacks $gx0stack
-            }
-        }
-    }
-
-}
-
-
-
-# -- --- --- --- --- --- --- --- --- --- ---
-tcl::namespace::eval overtype {
-	interp alias {} ::overtype::center {} ::overtype::centre
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide overtype [tcl::namespace::eval overtype {
-    variable version
-    set version 1.6.6 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/pattern-1.2.4.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/pattern-1.2.4.tm
deleted file mode 100644
index d6a9c932..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/pattern-1.2.4.tm
+++ /dev/null
@@ -1,1285 +0,0 @@
-#PATTERN
-# - A prototype-based Object system.
-#
-# Julian Noble 2003
-# License: Public domain
-#
-
-# "I need pattern"  - Lexx Series 1 Episode 3 - Eating Pattern.
-#
-#
-# Pattern uses a mixture of class-based and prototype-based object instantiation.
-#
-# A pattern object has 'properties' and 'methods'
-# The system makes a distinction between them with regards to the access syntax for write operations,
-# and yet provides unity in access syntax for read operations.
-# e.g  >object . myProperty
-# will return the value of the property 'myProperty'
-#      >ojbect . myMethod
-# will return the result of the method 'myMethod'
-# contrast this with the write operations:
-# set [>object . myProperty .] blah
-# >object . myMethod blah
-# however, the property can also be read using:
-# set [>object . myProperty .]
-# Note the trailing . to give us a sort of 'reference' to the property.
-# this is NOT equivalent to
-# set [>object . myProperty]
-# This last example is of course calling set against a standard variable whose name is whatever value is returned by reading the property
-# i.e it is equivalent in this case to: set blah
-
-#All objects are represented by a command, the name of which contains a leading ">".
-#Any commands in the interp which use this naming convention are assumed to be a pattern object.
-#Use of non-pattern commands containing this leading character is not supported. (Behaviour is undefined)
-
-#All user-added properties & methods of the wrapped object are accessed
-# using the separator character "."
-#Metamethods supplied by the patterm system are accessed with the object command using the metamethod separator ".."
-# e.g to instantiate a new object from an existing 'pattern' (the equivalent of a class or prototype)
-# you would use the 'Create' metamethod on the pattern object like so:
-# >MyFactoryClassOrPrototypeLikeThing .. Create >NameOfNewObject
-# '>NameOfNewObject' is now available as a command, with certain inherited methods and properties
-# of the object it was created from. (
-
-
-#The use of the access-syntax separator character "." allows objects to be kept
-# 'clean' in the sense that the only methods &/or properties that can be called this way are ones
-# the programmer(you!) put there. Existing metamethods such as 'Create' are accessed using a different syntax
-# so you are free to implement your own 'Create' method on your object that doesn't conflict with
-# the metamethod.
-
-#Chainability  (or how to violate the Law of Demeter!)
-#The . access-syntax gives TCL an OO syntax more closely in line with many OO systems in other
-# languages such as Python & VB, and allows left to right keyboard-entry of a deeply nested object-reference
-# structure, without the need to regress to enter matching brackets as is required when using
-# standard TCL command syntax.
-# ie instead of:
-# [[[object nextObject] getItem 4] getItem [chooseItemNumber]] doSomething
-# we can use:
-# >object . nextObject . getItem 4 . getItem [chooseItemNumber] . doSomething
-#
-# This separates out the object-traversal syntax from the TCL command syntax.
-
-# . is the 'traversal operator' when it appears between items in a commandlist
-# . is the 'reference operator' when it is the last item in a commandlist
-# , is the 'index traversal operator' (or 'nest operator') - mathematically it marks where there is a matrix 'partition'.
-#   It marks breaks in the multidimensional structure that correspond to how the data is stored.
-#   e.g  obj . arraydata x y , x1 y1 z1
-#   represents an element of a 5-dimensional array structured as a plane of cubes
-#   e.g2 obj . arraydata x y z , x1 y1
-#   represents an element of a 5-dimensional array structured as a cube of planes
-#   The underlying storage for e.g2 might  consist of something such as a Tcl array indexed such as cube($x,$y,$z) where each value is a patternlib::>matrix object with indices x1 y1
-# .. is the 'meta-traversal operator' when it appears between items in a commandlist
-# .. is the 'meta-info operator'(?) when it is the last item in a commandlist
-
-
-#!todo - Duck Typing: http://en.wikipedia.org/wiki/Duck_typing
-# implement iStacks & pStacks (interface stacks & pattern stacks)
-
-#see also: Using namsepace ensemble without a namespace: http://wiki.tcl.tk/16975
-
-
-#------------------------------------------------------------
-# System objects.
-#------------------------------------------------------------
-#::p::-1    ::p::internals::>metaface
-#::p::0     ::p::ifaces::>null
-#::p::1     ::>pattern
-#------------------------------------------------------------
-
-#TODO
-
-#investigate use of [namespace path ... ] to resolve command lookup (use it to chain iStacks?)
-
-
-#CHANGES
-#2018-09 - v 1.2.2
-# varied refactoring
-# Changed invocant datastructure curried into commands (the _ID_ structure)
-# Changed MAP structure to dict
-# Default Method no longer magic "item" - must be explicitly set with .. DefaultMethod (or  .. PatternDefaultMethod for patterns)
-# updated test suites
-#2018-08 - v 1.2.1
-# split ::p::predatorX functions into separate files (pkgs)
-# e.g patternpredator2-1.0.tm
-# patternpredator1-1.0 - split out but not updated/tested - probably obsolete and very broken
-#
-#2017-08 - v 1.1.6 Fairly big overhaul
-# New predator function using coroutines
-# Added bang operator !
-# Fixed Constructor chaining
-# Added a few tests to test::pattern
-#
-#2008-03  - preserve ::errorInfo during var writes
-
-#2007-11
-#Major overhaul + new functionality + new tests v 1.1
-# new dispatch system - 'predator'.
-# (preparing for multiple interface stacks, multiple invocants etc)
-#
-#
-#2006-05
-# Adjusted 'var' expansion to use the new tcl8.5 'namespace upvar $ns v1 n1 v2 n2 ... ' feature.
-#
-#2005-12
-# Adjusted 'var' expansion in method/constructor etc bodies to be done 'inline' where it appears rather than aggregated at top.
-#
-# Fixed so that PatternVariable default applied on Create.
-#
-# unified interface/object datastructures under ::p::<id>:: instead of seperate ::p::IFACE::<id>::
-#  - heading towards multiple-interface objects
-#
-#2005-10-28
-# 1.0.8.1 passes 80/80 tests
-# >object .. Destroy - improved cleanup of interfaces & namespaces.
-#
-#2005-10-26
-# fixes to refsync  (still messy!)
-# remove variable traces on REF vars during .. Destroy
-# passes 76/76
-#
-#2005-10-24
-# fix objectRef_TraceHandler so that reading a property via an object reference using array syntax will call a PropertyRead function if defined.
-# 1.0.8.0 now passes 75/76
-#
-#2005-10-19
-# Command alias introduced by @next@ is now placed in the interfaces namespace. (was unnamespaced before)
-# changed IFACE array names for level0 methods to be m-1 instead of just m.  (now consistent with higher level m-X names)
-# 1.0.8.0 (passes 74/76)
-#  tests now in own package
-#  usage:
-#  package require test::pattern
-#  test::p::list
-#  test::p::run ?nameglob? ?-version <value>?
-#
-#2005-09?-12
-#
-# fixed standalone 'var' statement in method bodies so that no implicit variable declarations added to proc.
-# fixed @next@ so that destination method resolved at interface compile time instead of call time
-# fixed @next@ so that on Create, .. PatternMethod x overlays existing method produced by a previous .. PatternMethod x.
-#  (before, the overlay only occured when '.. Method' was used to override.)
-#
-#
-# miscellaneous tidy-ups
-#
-# 1.0.7.8 (passes 71/73)
-#
-#2005-09-10
-# fix 'unknown' system such that unspecified 'unknown' handler represented by lack of (unknown) variable instead of empty string value
-# this is so that a mixin with an unspecified 'unknown' handler will not undo a lowerlevel 'unknown' specificier.
-#
-#2005-09-07
-# bugfix indexed write to list property
-# bugfix Variable default value
-# 1.0.7.7  (passes 70/72)
-# fails:
-# arrayproperty.test    - array-entire-reference
-# properties.test       - property_getter_filter_via_ObjectRef
-#
-#2005-04-22
-# basic fix to PatternPropertyRead dispatch code - updated tests (indexed case still not fixed!)
-#
-# 1.0.7.4
-#
-#2004-11-05
-# basic PropertyRead implementation (non-indexed - no tests!)
-#
-#2004-08-22
-# object creation speedups - (pattern::internals::obj simplified/indirected)
-#
-#2004-08-17
-# indexed property setter fixes + tests
-# meta::Create fixes - state preservation on overlay (correct constructor called, property defaults respect existing values)
-#
-#2004-08-16
-# PropertyUnset & PatternPropertyUnset metaMethods (filter method called on property unset)
-#
-#2004-08-15
-# reference syncing: ensure writes to properties always trigger traces on property references (+ tests)
-# - i.e method that updates o_myProp var in >myObj will cause traces on [>myObj . myProp .] to trigger
-# - also trigger on curried traces to indexed properties i.e list and array elements.
-# - This feature presumably adds some overhead to all property writes - !todo - investigate desirability of mechanism to disable on specific properties.
-#
-# fix (+ tests) for ref to multiple indices on object i.e  [>myObj key1 key2 .]
-#
-#2004-08-05
-# add PropertyWrite & PatternPropertyWrite metaMethods - (filter method called on property write)
-#
-# fix + add tests to support method & property of same name. (method precedence)
-#
-#2004-08-04
-# disallow attempt to use method reference as if it were a property (raise error instead of silently setting useless var)
-#
-# 1.0.7.1
-# use objectref array access to read properties even when some props unset; + test
-# unset property using array access on object reference; + test
-#
-#
-#2004-07-21
-# object reference changes - array property values appear as list value when accessed using upvared array.
-# bugfixes + tests - properties containing lists (multidimensional access)
-#
-#1.0.7
-#
-#2004-07-20
-# fix default property value append problem
-#
-#2004-07-17
-# add initial implementation of 'Unknown' and 'PatternUnknown' meta-methods
-#  (
-#
-#2004-06-18
-# better cleanup on '>obj .. Destroy' - recursively destroy objects under parents subnamespaces.
-#
-#2004-06-05
-#  change argsafety operator to be anything with leading -
-#  if standalone '-' then the dash itself is not added as a parameter, but if a string follows '-'
-#  i.e tkoption style; e.g -myoption ; then in addition to acting as an argsafety operator for the following arg,
-#  the entire dash-prefixed operator is also passed in as an argument.
-#  e.g >object . doStuff -window .
-#  will call the doStuff method with the 2 parameters -window .
-#  >object . doStuff - .
-#  will call doStuff with single parameter .
-#  >object . doStuff - -window .
-#  will result in a reference to the doStuff method with the argument -window 'curried' in.
-#
-#2004-05-19
-#1.0.6
-# fix so custom constructor code called.
-# update Destroy metamethod to unset $self
-#
-#1.0.4 - 2004-04-22
-# bug fixes regarding method specialisation - added test
-#
-#------------------------------------------------------------
-
-package provide pattern [namespace eval pattern {variable version; set version 1.2.4}]
-
-
-namespace eval pattern::util {
-
-    # Generally better to use 'package require $minver-'
-    # - this only gives us a different error
-    proc package_require_min {pkg minver} {
-        if {[package vsatisfies [lindex [set available [lsort -increasing [package versions $pkg]]] end] $minver-]} {
-            package require $pkg
-        } else {
-            error "Package pattern requires package $pkg of at least version $minver. Available: $available"
-        }
-    }
-}
-
-package require patterncmd   1.2.4-
-package require metaface     1.2.4-  ;#utility/system diagnostic commands (may be used by metaface lib etc)
-
-
-
-#package require cmdline
-package require overtype
-
-#package require md5 ;#will be loaded if/when needed
-#package require md4
-#package require uuid
-
-
-
-
-
-namespace eval pattern {
-    variable initialised 0
-
-
-    if 0 {
-    if {![catch {package require twapi_base} ]} {
-        #twapi is a windows only package
-        #MUCH faster to load just twapi_base than full 'package require twapi' IFF using the modular twapi distribution with multiple separately loadable dlls.
-        # If available - windows seems to provide a fast uuid generator..
-        #*IF* tcllibc is missing, then as at 2008-05 twapi::new_uuid is significantly faster than uuid::uuid generate ( e.g 19 usec vs 76thousand usec! on 2.4GHZ machine)
-        #  (2018 update - 15-30usec vs ~200usec  on core i9 @ ~2.6GHZ (time for a single call e.g time {pattern::new_uuid}))
-        interp alias {} ::pattern::new_uuid {} ::twapi::new_uuid -localok
-    } else {
-        #performance on freebsd seems not great, but adequate. (e.g 500usec on dualcore 1.6GHZ)
-        # (e.g 200usec 2018 corei9)
-        #(with or without tcllibc?)
-        #very first call is extremely slow though - 3.5seconds on 2018 corei9
-        package require uuid
-        interp alias {} ::pattern::new_uuid {} ::uuid::uuid generate
-    }
-    #variable fastobj 0  ;#precalculated invocant ID in method body (instead of call time ) - removed for now - see pattern 1.2.1  (a premature optimisation which was hampering refactoring & advancement)
-    }
-
-
-}
-
-
-
-
-
-
-namespace eval p {
-    #this is also the interp alias namespace. (object commands created here , then renamed into place)
-    #the object aliases are named as incrementing integers.. !todo - consider uuids?
-    variable ID 0
-    namespace eval internals {}
-
-
-    #!??
-    #namespace export ??
-    variable coroutine_instance 0
-}
-
-#-------------------------------------------------------------------------------------
-#review - what are these for?
-#note - this function is deliberately not namespaced
-# - it begins with the letters 'proc' (as do the created aliases) - to aid in editor's auto indexing/mapping features
-proc process_pattern_aliases {object args} {
-    set o [namespace tail $object]
-    interp alias {} process_patternmethod_$o {} [$object .. PatternMethod .]
-    interp alias {} process_method_$o {} [$object .. Method .]
-    interp alias {} process_constructor_$o {} [$object .. Constructor .]
-}
-#-------------------------------------------------------------------------------------
-
-
-
-
-#!store all interface objects here?
-namespace eval ::p::ifaces {}
-
-
-
-#K combinator - see http://wiki.tcl.tk/1923
-#proc ::p::K {x y} {set x}
-#- not used - use inline K if desired i.e set x [lreplace $x[set x{}] $a $b blah]
-
-
-
-
-
-
-
-
-proc ::p::internals::(VIOLATE) {_ID_ violation_script} {
-		#set out [::p::fixed_var_statements @IMPLICITDECLS@\n$violation_script]
-		set processed [dict create {*}[::p::predator::expand_var_statements $violation_script]]
-
-		if {![dict get $processed explicitvars]} {
-			#no explicit var statements - we need the implicit ones
-			set self [set ::p::${_ID_}::(self)]
-			set IFID [lindex [set $self] 1 0 end]
-			#upvar ::p::${IFID}:: self_IFINFO
-
-
-			set varDecls {}
-			set vlist [array get ::p::${IFID}:: v,name,*]
-			set _k ""; set v ""
-			if {[llength $vlist]} {
-				append varDecls "upvar #0 "
-				foreach {_k v} $vlist {
-					append varDecls "::p::\${_ID_}::$v $v "
-				}
-				append varDecls "\n"
-			}
-
-			#set violation_script [string map [::list @IMPLICITDECLS@ $varDecls] $out]
-			set violation_script $varDecls\n[dict get $processed body]
-
-			#tidy up
-			unset processed varDecls self IFID _k v
-		} else {
-			set violation_script [dict get $processed body]
-		}
-		unset processed
-
-
-
-
-		#!todo - review (& document) exactly what context this script runs in and what vars/procs are/should be visible.
-		eval "unset violation_script;$violation_script"
-}
-
-
-proc ::p::internals::DestroyObjectsBelowNamespace {ns} {
-	#puts "\n##################\n#################### destroyObjectsBelowNamespace $ns\n"
-
-	set nsparts [split [string trim [string map {:: :} $ns] :] :]
-	if { ! ( ([llength $nsparts] == 3) & ([lindex $nsparts 0] == "p")  & ([lindex $nsparts end] eq "_ref") )} {
-		#ns not of form  ::p::?::_ref
-
-		foreach obj [info commands ${ns}::>*] {
-			#catch {::p::meta::Destroy $obj}
-			#puts ">>found object $obj below ns $ns  - destroying $obj"
-			$obj .. Destroy
-		}
-	}
-
-	#set traces [trace info variable ${ns}::-->PATTERN_ANCHOR]
-	#foreach tinfo $traces {
-	#	trace remove variable ${ns}::-->PATTERN_ANCHOR {*}$tinfo
-	#}
-	#unset -nocomplain ${ns}::-->PATTERN_ANCHOR
-
-	foreach sub [namespace children $ns] {
-		::p::internals::DestroyObjectsBelowNamespace $sub
-	}
-}
-
-
-
-
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-
-
-
-
-
-
-
-
-
-proc ::p::get_new_object_id {} {
-	tailcall incr ::p::ID
-	#tailcall ::pattern::new_uuid
-}
-
-#create a new minimal object - with no interfaces or patterns.
-
-#proc ::p::internals::new_object [list cmd {wrapped ""} [list OID [expr {-2}]]] {}
-proc ::p::internals::new_object {cmd {wrapped ""} {OID "-2"}} {
-
-	#puts "-->new_object cmd:$cmd wrapped:$wrapped OID:$OID"
-
-    if {$OID eq "-2"} {
-        set OID [::p::get_new_object_id]
-        #set OID [incr ::p::ID] ;#!todo - use uuids? (too slow?) (use uuids as configurable option?,  pre-allocate a list of uuids?)
-        #set OID [pattern::new_uuid]
-    }
-    #if $wrapped provided it is assumed to be an existing namespace.
-    #if {[string length $wrapped]} {
-    #   #???
-    #}
-
-    #sanity check - alias must not exist for this OID
-    if {[llength [interp alias {} ::p::$OID]]} {
-        error "Object alias '::p::$OID' already exists - cannot create new object with this id"
-    }
-
-	#system 'varspaces' -
-
-    #until we have a version of Tcl that doesn't have 'creative writing' scope issues -
-    # - we should either explicity specify the whole namespace when setting variables or make sure we use the 'variable' keyword.
-    # (see http://wiki.tcl.tk/1030 'Dangers of creative writing')
-	#set o_open 1 - every object is initially also an open interface (?)
-	#NOTE! comments within namespace eval slow it down.
-    namespace eval ::p::$OID {
-        #namespace ensemble create
-        namespace eval _ref   {}
-        namespace eval _meta  {}
-        namespace eval _iface {
-						variable o_usedby;
-						variable o_open  1;
-						array set o_usedby  [list];
-						variable o_varspace "" ;
-						variable o_varspaces [list];
-						variable o_methods [dict create];
-						variable o_properties [dict create];
-						variable o_variables;
-						variable o_propertyunset_handlers;
-						set o_propertyunset_handlers [dict create]
-					}
-    }
-
-	#set alias ::p::$OID
-
-  #objectid alis default_method object_command wrapped_namespace
-	set INVOCANTDATA [list $OID ::p::$OID "" $cmd $wrapped]
-
-	#MAP is a dict
-	set MAP [list invocantdata $INVOCANTDATA interfaces {level0 {} level0_default "" level1 {} level1_default ""} patterndata {patterndefaultmethod ""}]
-
-
-
-	#NOTE 'interp alias' will prepend :: if chosen srccmd already exists as an alias token
-	#we've already checked that ::p::$OID doesn't pre-exist
-	# - so we know the return value of the [interp alias {} $alias {} ...] will be $alias
-	#interp alias {} ::p::$OID {} ::p::internals::predator $MAP
-
-
-	# _ID_ structure
-	set invocants_dict [dict create this [list $INVOCANTDATA] ]
-	#puts stdout "New _ID_structure: $interfaces_dict"
-	set _ID_ [dict create i $invocants_dict context ""]
-
-
-	interp alias {} ::p::$OID {} ::p::internals::predator $_ID_
-	#rename the command into place - thus the alias & the command name no longer match!
-	rename ::p::$OID $cmd
-
-  set ::p::${OID}::_meta::map $MAP
-
-	# called when no DefaultMethod has been set for an object, but it is called with indices e.g >x something
-	interp alias {} ::p::${OID}:: {} ::p::internals::no_default_method $_ID_
-
-  #set p2 [string map {> ?} $cmd]
-  #interp alias {} $p2 {} ::p::internals::alternative_predator $_ID_
-
-
-	#trace add command $cmd delete "$cmd .. Destroy ;#"
-	#puts "@@@ trace add command $cmd rename [list $cmd .. Rename]"
-
-	trace add command $cmd rename [list $cmd .. Rename]	 ;#will receive $oldname $newname "rename"
-	#trace add command $cmd rename [$cmd .. Rename .]  ;#EXTREMELY slow. (but why?)
-
-	#puts "@@@ trace added for $cmd -> '[trace info command $cmd]'"
-
-
-	#uplevel #0 "trace add command $cmd delete \"puts deleting$cmd ;#\""
-	#trace add command $cmd delete "puts deleting$cmd ;#"
-	#puts stdout "trace add command $cmd delete \"puts deleting$cmd ;#\""
-
-
-	#puts "--> new_object returning map $MAP"
-	return $MAP
-}
-
-
-
-
-#>x .. Create >y
-# ".." is special case equivalent to "._."
-#  (whereas in theory it would be ".default.")
-# "." is equivalent to ".default." is equivalent to ".default.default."         (.<iStack>.<iFace>.)
-
-#>x ._.         Create >y
-#>x ._.default.  Create >y    ???
-#
-#
-
-# create object using 'blah' as source interface-stack ?
-#>x .blah. ..     Create >y
-#>x .blah,_. ._.    Create .iStackDestination. >y
-
-
-
-#
-# ">x .blah,_."  is a reference(cast) to >x that contains only the iStacks in the order listed. i.e [list blah _]
-#  the 1st item, blah in this case becomes the 'default' iStack.
-#
-#>x .*.
-# cast to object with all iStacks
-#
-#>x .*,!_.
-# cast to object with all iStacks except _
-#
-# ---------------------
-#!todo - MultiMethod support via transient and persistent object conglomerations. Operators '&' & '@'
-# - a persistent conglomeration will have an object id (OID) and thus associated namespace, whereas a transient one will not.
-#
-#eg1: >x & >y . some_multi_method arg arg
-#    this is a call to the MultiMethod 'some_multi_method' with 2 objects as the invocants. ('>x & >y' is a transient conglomeration of the two objects)
-#    No explicit 'invocation role' is specified in this call - so it gets the default role for multiple invocants: 'these'
-#    The invocant signature is thus {these 2}
-#    (the default invocation role for a standard call on a method with a single object is 'this' - with the associated signature {this 1})
-#    Invocation roles can be specified in the call using the @ operator.
-#    e.g >x & >y @ points . some_multi_method arg arg
-#    The invocant signature for this is: {points 2}
-#
-#eg2: {*}[join $objects &] @ objects & >p @ plane . move $path
-#    This has the signature {objects n plane 1} where n depends on the length of the list $objects
-#
-#
-#    To get a persistent conglomeration we would need to get a 'reference' to the conglomeration.
-#    e.g set pointset [>x & >y .]
-#    We can now call multimethods  on $pointset
-#
-
-
-
-
-
-
-#set ::p::internals::predator to a particular predatorversion (from a patternpredatorX package)
-proc ::pattern::predatorversion {{ver ""}} {
-	variable active_predatorversion
-	set allowed_predatorversions {1 2}
-	set default_predatorversion [lindex $allowed_predatorversions end] ;#default to last in list of allowed_predatorversions
-
-	if {![info exists active_predatorversion]} {
-		set first_time_set 1
-	} else {
-		set first_time_set 0
-	}
-
-	if {$ver eq ""} {
-		#get version
-		if {$first_time_set} {
-			set active_predatorversions $default_predatorversion
-		}
-		return $active_predatorversion
-	} else {
-		#set version
-		if {$ver ni $allowed_predatorversions} {
-			error "Invalid attempt to set predatorversion - unknown value: $ver, try one of: $allowed_predatorversions"
-		}
-
-		if {!$first_time_set} {
-			if {$active_predatorversion eq $ver} {
-				#puts stderr "Active predator version is already '$ver'"
-				#ok - nothing to do
-				return $active_predatorversion
-			} else {
-                package require patternpredator$ver 1.2.4-
-				if {![llength [info commands ::p::predator$ver]]} {
-					error "Unable to set predatorversion - command ::p::predator$ver not found"
-				}
-				rename ::p::internals::predator ::p::predator$active_predatorversion
-			}
-		}
-        package require patternpredator$ver 1.2.4-
-		if {![llength [info commands ::p::predator$ver]]} {
-			error "Unable to set predatorversion - command ::p::predator$ver not found"
-		}
-
-		rename ::p::predator$ver ::p::internals::predator
-		set active_predatorversion $ver
-
-		return $active_predatorversion
-	}
-}
-::pattern::predatorversion 2
-
-
-
-
-
-
-
-
-
-
-
-
-# >pattern has object ID 1
-# meta interface has object ID 0
-proc ::pattern::init args {
-
-    if {[set ::pattern::initialised]} {
-    	if {[llength $args]} {
-    		#if callers want to avoid this error, they can do their own check of $::pattern::initialised
-    		error "pattern package is already initialised. Unable to apply args: $args"
-    	} else {
-    		return 1
-    	}
-    }
-
-    #this seems out of date.
-    # - where is PatternPropertyRead?
-    # - Object is obsolete
-    # - Coinjoin, Combine don't seem to exist
-	array set ::p::metaMethods {
-		Clone		object
-		Conjoin	object
-		Combine	object
-		Create	object
-		Destroy	simple
-		Info		simple
-		Object	simple
-		PatternProperty	simple
-		PatternPropertyWrite	simple
-		PatternPropertyUnset	simple
-		Property		simple
-		PropertyWrite		simple
-		PatternMethod	simple
-		Method		simple
-		PatternVariable	simple
-		Variable		simple
-		Digest		simple
-		PatternUnknown simple
-		Unknown		simple
-	}
-	array set ::p::metaProperties {
-		Properties			object
-		Methods			object
-		PatternProperties		object
-		PatternMethods		object
-	}
-
-
-
-
-
-	#create metaface - IID = -1 - also OID = -1
-	# all objects implement this special interface - accessed via the .. operator.
-
-
-
-
-
-	set ::p::ID 4 ;#0,1,2,3 reserved for null interface,>pattern, >ifinfo & ::p::>interface
-
-
-	#OID = 0
-	::p::internals::new_object ::p::ifaces::>null "" 0
-
-	#? null object has itself as level0 & level1 interfaces?
-	#set ::p::ifaces::>null [list [list 0 ::p::ifaces::>null item] [list [list 0] [list 0]] [list {} {}]]
-
-	#null interface should always have 'usedby' members. It should never be extended.
-	array set 	::p::0::_iface::o_usedby [list i-1 ::p::internals::>metaface i0 ::p::ifaces::>null i1 ::>pattern] ;#'usedby' array
-	set 		::p::0::_iface::o_open 0
-
-	set 	  	::p::0::_iface::o_constructor [list]
-	set 	  	::p::0::_iface::o_variables [list]
-	set 	  	::p::0::_iface::o_properties [dict create]
-	set 	  	::p::0::_iface::o_methods [dict create]
-	set 	  	::p::0::_iface::o_varspace ""
-	set       ::p::0::_iface::o_varspaces [list]
-	array set 	::p::0::_iface::o_definition [list]
-	set       ::p::0::_iface::o_propertyunset_handlers [dict create]
-
-
-
-
-	###############################
-	# OID = 1
-	# >pattern
-	###############################
-	::p::internals::new_object ::>pattern "" 1
-
-	#set ::>pattern [list [list 1 ::>pattern item]  [list [list 0] [list 0]]]
-
-
-	array set ::p::1::_iface::o_usedby [list] ;#'usedby' array
-
-	set _self ::pattern
-
-	#set IFID 	[::p::internals::new_interface 1] ;#level 0 interface usedby object 1
-	#set IFID_1 [::p::internals::new_interface 1] ;#level 1 interface usedby object 1
-
-
-
-	#1)this object references its interfaces
-	#lappend ID $IFID $IFID_1
-	#lset SELFMAP 1 0 $IFID
-	#lset SELFMAP 2 0 $IFID_1
-
-
-	#set body [string map [::list @self@ ::>pattern @_self@ ::pattern @self_ID@ 0 @itemCmd@ item]  $::p::internals::OBJECTCOMMAND]
-	#proc ::>pattern args $body
-
-
-
-
-	#######################################################################################
-	#OID = 2
-	# >ifinfo  interface for accessing interfaces.
-	#
-	::p::internals::new_object ::p::ifaces::>2 "" 2       ;#>ifinfo object
-		set 	  	::p::2::_iface::o_constructor [list]
-		set 	  	::p::2::_iface::o_variables [list]
-		set 	  	::p::2::_iface::o_properties [dict create]
-		set 	  	::p::2::_iface::o_methods    [dict create]
-		set       ::p::2::_iface::o_varspace ""
-		set       ::p::2::_iface::o_varspaces [list]
-		array set 	::p::2::_iface::o_definition [list]
-		set 		::p::2::_iface::o_open 1   ;#open for extending
-
-	::p::ifaces::>2 .. AddInterface 2
-
-	#Manually create a minimal >ifinfo implementation using the same general pattern we use for all method implementations
-	#(bootstrap because we can't yet use metaface methods on it)
-
-
-
-	proc ::p::2::_iface::isOpen.1 {_ID_} {
-		return $::p::2::_iface::o_open
-	}
-	interp alias {} ::p::2::_iface::isOpen {} ::p::2::_iface::isOpen.1
-
-	proc ::p::2::_iface::isClosed.1 {_ID_} {
-		return [expr {!$::p::2::_iface::o_open}]
-	}
-	interp alias {} ::p::2::_iface::isClosed {} ::p::2::_iface::isClosed.1
-
-	proc ::p::2::_iface::open.1 {_ID_} {
-		set ::p::2::_iface::o_open 1
-	}
-	interp alias {} ::p::2::_iface::open {} ::p::2::_iface::open.1
-
-	proc ::p::2::_iface::close.1 {_ID_} {
-		set ::p::2::_iface::o_open 0
-	}
-	interp alias {} ::p::2::_iface::close {} ::p::2::_iface::close.1
-
-
-	#proc ::p::2::_iface::(GET)properties.1 {_ID_} {
-	#	set ::p::2::_iface::o_properties
-	#}
-	#interp alias {} ::p::2::_iface::(GET)properties {} ::p::2::_iface::(GET)properties.1
-
- #interp alias {} ::p::2::properties {} ::p::2::_iface::(GET)properties
-
-
-	#proc ::p::2::_iface::(GET)methods.1 {_ID_} {
-	#	set ::p::2::_iface::o_methods
-	#}
-	#interp alias {} ::p::2::_iface::(GET)methods {} ::p::2::_iface::(GET)methods.1
-	#interp alias {} ::p::2::methods {} ::p::2::_iface::(GET)methods
-
-
-
-
-
-	#link from object to interface (which in this case are one and the same)
-
-	#interp alias {} ::p::2::isOpen {} ::p::2::_iface::isOpen  [::p::ifaces::>2 --]
-	#interp alias {} ::p::2::isClosed {} ::p::2::_iface::isClosed [::p::ifaces::>2 --]
-	#interp alias {} ::p::2::open {} ::p::2::_iface::open  [::p::ifaces::>2 --]
-	#interp alias {} ::p::2::close {} ::p::2::_iface::close  [::p::ifaces::>2 --]
-
-	interp alias {} ::p::2::isOpen {} ::p::2::_iface::isOpen
-	interp alias {} ::p::2::isClosed {} ::p::2::_iface::isClosed
-	interp alias {} ::p::2::open {} ::p::2::_iface::open
-	interp alias {} ::p::2::close {} ::p::2::_iface::close
-
-
-	#namespace eval ::p::2 "namespace export $method"
-
-	#######################################################################################
-
-
-
-
-
-
-	set ::pattern::initialised 1
-
-
-	::p::internals::new_object ::p::>interface "" 3
-	#create a convenience object on which to manipulate the >ifinfo interface
-	#set IF [::>pattern .. Create ::p::>interface]
-	set IF ::p::>interface
-
-
-    #!todo - put >ifinfo on a separate pStack so that end-user can more freely treat interfaces as objects?
-    # (or is forcing end user to add their own pStack/iStack ok .. ?)
-    #
-    ::p::>interface .. AddPatternInterface 2  ;#
-
-    ::p::>interface .. PatternVarspace _iface
-
-    ::p::>interface .. PatternProperty methods
-    ::p::>interface .. PatternPropertyRead methods {} {
-        varspace _iface
-        var {o_methods alias}
-        return  $alias
-    }
-    ::p::>interface  .. PatternProperty properties
-    ::p::>interface  .. PatternPropertyRead properties {} {
-        varspace _iface
-        var o_properties
-        return $o_properties
-    }
-    ::p::>interface  .. PatternProperty variables
-
-    ::p::>interface  .. PatternProperty varspaces
-
-    ::p::>interface  .. PatternProperty definition
-
-    ::p::>interface .. Constructor {{usedbylist {}}} {
-        #var this
-        #set this @this@
-        #set ns [$this .. Namespace]
-        #puts "-> creating ns ${ns}::_iface"
-        #namespace eval ${ns}::_iface {}
-
-        varspace _iface
-        var o_constructor o_variables o_properties o_methods o_definition o_usedby o_varspace o_varspaces
-
-        set o_constructor [list]
-        set o_variables [list]
-        set o_properties [dict create]
-        set o_methods [dict create]
-        set o_varspaces [list]
-        array set o_definition [list]
-
-        foreach usedby $usedbylist {
-            set	o_usedby(i$usedby) 1
-        }
-
-
-    }
-    ::p::>interface .. PatternMethod isOpen {} {
-        varspace _iface
-        var o_open
-
-        return $o_open
-    }
-    ::p::>interface  .. PatternMethod isClosed {} {
-        varspace _iface
-        var o_open
-
-        return [expr {!$o_open}]
-    }
-    ::p::>interface  .. PatternMethod open {} {
-        varspace _iface
-        var o_open
-        set o_open 1
-    }
-    ::p::>interface  .. PatternMethod close {} {
-        varspace _iface
-        var o_open
-        set o_open 0
-    }
-    ::p::>interface  .. PatternMethod refCount {} {
-        varspace _iface
-        var o_usedby
-        return [array size o_usedby]
-    }
-
-    set ::p::2::_iface::o_open 1
-
-
-
-
-    uplevel #0  {pattern::util::package_require_min patternlib 1.2.4}
-    #uplevel #0 {package require patternlib}
-    return 1
-}
-
-
-
-proc ::p::merge_interface {old new} {
-	#puts stderr " ** ** ** merge_interface $old $new"
-	set ns_old ::p::$old
-	set ns_new ::p::$new
-
-	upvar #0 ::p::${new}:: IFACE
-	upvar #0 ::p::${old}:: IFACEX
-
-	if {![catch {set c_arglist $IFACEX(c,args)}]} {
-		#constructor
-		#for now.. just add newer constructor regardless of any existing one
-		#set IFACE(c,args) $IFACEX(c,args)
-
-		#if {![info exists IFACE(c,args)]} {
-		#	#target interface didn't have a constructor
-		#
-		#} else {
-		#	#
-		#}
-	}
-
-
-	set methods [::list]
-	foreach nm [array names IFACEX m-1,name,*] {
-		lappend methods [lindex [split $nm ,] end] ;#use the method key-name not the value! (may have been overridden)
-	}
-
-	#puts " *** merge interface $old -> $new ****merging-in methods: $methods "
-
-	foreach method $methods {
-		if {![info exists IFACE(m-1,name,$method)]} {
-			#target interface doesn't yet have this method
-
-			set THISNAME $method
-
-			if {![string length [info command ${ns_new}::$method]]} {
-
-				if {![set ::p::${old}::_iface::o_open]} {
-					#interp alias {} ${ns_new}::$method {} ${ns_old}::$method
-					#namespace eval $ns_new "namespace export [namespace tail $method]"
-				} else {
-					#wait to compile
-				}
-
-			} else {
-				error "merge interface - command collision "
-			}
-			#set i 2 ???
-			set i 1
-
-		} else {
-			#!todo - handle how?
-			#error "command $cmd already exists in interface $new"
-
-
-			set i [incr IFACE(m-1,chain,$method)]
-
-			set THISNAME ___system___override_${method}_$i
-
-			#move metadata using  subindices for delegated methods
-			set IFACE(m-$i,name,$method)			$IFACE(m-1,name,$method)
-			set IFACE(m-$i,iface,$method)			$IFACE(m-1,iface,$method)
-			set IFACE(mp-$i,$method)				$IFACE(mp-1,$method)
-
-			set IFACE(m-$i,body,$method)			$IFACE(m-1,body,$method)
-			set IFACE(m-$i,args,$method) 			$IFACE(m-1,args,$method)
-
-
-			#set next [::p::next_script  $IFID0 $method]
-			if {![string length [info command ${ns_new}::$THISNAME]]} {
-				if {![set ::p::${old}::_iface::o_open]} {
-					interp alias {} ${ns_new}::$THISNAME {} ${ns_old}::$method
-					namespace eval $ns_new "namespace export $method"
-				} else {
-					#wait for compile
-				}
-			} else {
-				error "merge_interface - command collision "
-			}
-
-		}
-
-		array set IFACE [::list \
-			m-1,chain,$method		$i \
-			m-1,body,$method		$IFACEX(m-1,body,$method) \
-			m-1,args,$method		$IFACEX(m-1,args,$method) \
-			m-1,name,$method		$THISNAME \
-			m-1,iface,$method		$old \
-		]
-
-	}
-
-
-
-
-
-	#array set ${ns_new}:: [array get ${ns_old}::]
-
-
-	#!todo - review
-	#copy everything else across..
-
-	foreach {nm v} [array get IFACEX] {
-		#puts "-.- $nm"
-		if {([string first "m-1," $nm] != 0) && ($nm ne "usedby")} {
-			set IFACE($nm) $v
-		}
-	}
-
-	#!todo -write a test
-	set ::p::${new}::_iface::o_open 1
-
-	#!todo - is this done also when iface compiled?
-	#namespace eval ::p::$new {namespace ensemble create}
-
-
-	#puts stderr "copy_interface $old $new"
-
-	#assume that the (usedby) data is now obsolete
-	#???why?
-	#set ${ns_new}::(usedby) [::list]
-
-	#leave ::(usedby) reference in place
-
-	return
-}
-
-
-
-
-#detect attempt to treat a reference to a method as a property
-proc ::p::internals::commandrefMisuse_TraceHandler {OID field args} {
-#puts "commandrefMisuse_TraceHandler fired OID:$OID field:$field args:$args"
-	lassign [lrange $args end-2 end] vtraced vidx op
-	#NOTE! cannot rely on vtraced as it may have been upvared
-
-	switch -- $op {
-		write {
-			error "$field is not a property" "property ref write failure for property $field (OID: $OID refvariable: [lindex $args 0])"
-		}
-		unset {
-			#!todo - monitor stat of Tcl bug# 1911919 - when/(if?) fixed - reinstate 'unset' trace
-			#trace add variable $traced {read write unset} [concat ::p::internals::commandrefMisuse_TraceHandler $OID $field $args]
-
-			#!todo - don't use vtraced!
-			trace add variable $vtraced {read write unset array} [concat ::p::internals::commandrefMisuse_TraceHandler $OID $field $args]
-
-			#pointless raising an error as "Any errors in unset traces are ignored"
-			#error "cannot unset. $field is a method not a property"
-		}
-		read {
-			error "$field is not a property (args $args)" "property ref read failure for property $field (OID: $OID refvariable: [lindex $args 0])"
-		}
-		array {
-			error "$field is not a property (args $args)" "property ref use as array failure for property $field (OID: $OID refvariable: [lindex $args 0])"
-			#error "unhandled operation in commandrefMisuse_TraceHandler - got op:$op expected read,write,unset.  OID:$OID field:$field args:$args"
-		}
-	}
-
-	return
-}
-
-
-
-
-#!todo - review calling-points for make_dispatcher.. probably being called unnecessarily at some points.
-#
-# The 'dispatcher' is an object instance's underlying object command.
-#
-
-#proc ::p::make_dispatcher {obj ID IFID} {
-#	proc [string map {::> ::} $obj] {{methprop INFO} args}  [string map [::list @IID@ $IFID @oid@ $ID] {
-#		::p::@IID@ $methprop @oid@ {*}$args
-#	}]
-#	return
-#}
-
-
-
-
-################################################################################################################################################
-################################################################################################################################################
-################################################################################################################################################
-
-#aliased from ::p::${OID}::
-# called when no DefaultMethod has been set for an object, but it is called with indices e.g >x something
-proc ::p::internals::no_default_method {_ID_ args} {
-    puts stderr "p::internals::no_default_method _ID_:'$_ID_' args:'$args'"
-	lassign [lindex [dict get $_ID_ i this] 0] OID alias default_method object_command wrapped
-	tailcall error "No default method on object $object_command. (To get or set, use: $object_command .. DefaultMethod ?methodname? or use PatternDefaultMethod)"
-}
-
-#force 1 will extend an interface even if shared. (??? why is this necessary here?)
-#if IID empty string - create the interface.
-proc ::p::internals::expand_interface {IID {force 0}} {
-	#puts stdout ">>> expand_interface $IID [info level -1]<<<"
-	if {![string length $IID]} {
-		#return	[::p::internals::new_interface]  ;#new interface is by default open for extending (o_open = 1)
-		set iid [expr {$::p::ID + 1}]
-		::p::>interface .. Create ::p::ifaces::>$iid
-		return $iid
-	} else {
-		if {[set ::p::${IID}::_iface::o_open]} {
-			#interface open for extending - shared or not!
-			return $IID
-		}
-
-		if {[array size ::p::${IID}::_iface::o_usedby] > 1} {
-			#upvar #0 ::p::${IID}::_iface::o_usedby prev_usedby
-
-			#oops.. shared interface. Copy before specialising it.
-			set prev_IID $IID
-
-			#set IID [::p::internals::new_interface]
-			set IID [expr {$::p::ID + 1}]
-			::p::>interface .. Create ::p::ifaces::>$IID
-
-			::p::internals::linkcopy_interface $prev_IID $IID
-			#assert: prev_usedby contains at least one other element.
-		}
-
-		#whether copied or not - mark as open for extending.
-		set ::p::${IID}::_iface::o_open 1
-		return $IID
-	}
-}
-
-#params: old - old (shared) interface ID
-#		 new - new interface ID
-proc ::p::internals::linkcopy_interface {old new} {
-	#puts stderr " ** ** ** linkcopy_interface $old $new"
-	set ns_old ::p::${old}::_iface
-	set ns_new ::p::${new}::_iface
-
-
-
-	foreach nsmethod [info commands ${ns_old}::*.1] {
-		#puts ">>> adding $nsmethod to iface $new"
-		set tail [namespace tail $nsmethod]
-		set method [string range $tail 0 end-2] ;#strip .1
-
-		if {![llength [info commands ${ns_new}::$method]]} {
-
-			set oldhead [interp alias {} ${ns_old}::$method] ;#the 'head' of the cmdchain that it actually points to ie  $method.$x  where $x >=1
-
-			#link from new interface namespace to existing one.
-			#(we assume that since ${ns_new}::$method didn't exist, that all the $method.$x chain slots are empty too...)
-			#!todo? verify?
-			#- actual link is chainslot to chainslot
-			interp alias {} ${ns_new}::$method.1 {} $oldhead
-
-			#!todo - review. Shouldn't we be linking entire chain, not just creating a single .1 pointer to the old head?
-
-
-			#chainhead pointer within new interface
-			interp alias {} ${ns_new}::$method {} ${ns_new}::$method.1
-
-			namespace eval $ns_new "namespace export $method"
-
-			#if {[string range $method 0 4] ni {(GET) (SET) (UNSE (CONS }} {
-			#	lappend ${ns_new}::o_methods $method
-			#}
-		} else {
-			if {$method eq "(VIOLATE)"} {
-				#ignore for now
-				#!todo
-				continue
-			}
-
-			#!todo - handle how?
-			#error "command $cmd already exists in interface $new"
-
-			#warning - existing chainslot will be completely shadowed by linked method.
-			# - existing one becomes unreachable. #!todo review!?
-
-
-			error "linkcopy_interface $old -> $new - chainslot shadowing not implemented (method $method already exists on target interface $new)"
-
-		}
-	}
-
-
-	#foreach propinf [set ${ns_old}::o_properties] {
-	#		lassign $propinf prop _default
-	#		#interp alias {} ${ns_new}::(GET)$prop {} ::p::predator::getprop $prop
-	#		#interp alias {} ${ns_new}::(SET)$prop {} ::p::predator::setprop $prop
-	#		lappend ${ns_new}::o_properties $propinf
-	#}
-
-
-	set ${ns_new}::o_variables 		[set ${ns_old}::o_variables]
-	set ${ns_new}::o_properties 	[set ${ns_old}::o_properties]
-	set ${ns_new}::o_methods 		[set ${ns_old}::o_methods]
-	set ${ns_new}::o_constructor 	[set ${ns_old}::o_constructor]
-
-
-	set ::p::${old}::_iface::o_usedby(i$new) linkcopy
-
-
-	#obsolete.?
-	array set ::p::${new}::  [array get ::p::${old}::	]
-
-
-
-	#!todo - is this done also when iface compiled?
-	#namespace eval ::p::${new}::_iface {namespace ensemble create}
-
-
-	#puts stderr "copy_interface $old $new"
-
-	#assume that the (usedby) data is now obsolete
-	#???why?
-	#set ${ns_new}::(usedby) [::list]
-
-	#leave ::(usedby) reference in place for caller to change as appropriate - 'copy'
-
-	return
-}
-################################################################################################################################################
-################################################################################################################################################
-################################################################################################################################################
-
-pattern::init
-
-return $::pattern::version
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patterncmd-1.2.4.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patterncmd-1.2.4.tm
deleted file mode 100644
index ca061a7c..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patterncmd-1.2.4.tm
+++ /dev/null
@@ -1,645 +0,0 @@
-package provide patterncmd  [namespace eval patterncmd {
-	variable version 
-
-	set version 1.2.4
-}]
-
-
-namespace eval pattern {
-    variable idCounter 1  ;#used by pattern::uniqueKey 
-
-    namespace eval cmd {
-        namespace eval util {
-            package require overtype
-            variable colwidths_lib [dict create]
-            variable colwidths_lib_default 15
-     
-            dict set colwidths_lib "library"    [list ch " " num 21 head "|" tail ""]
-            dict set colwidths_lib "version"    [list ch " " num 7  head "|" tail ""]
-            dict set colwidths_lib "type"       [list ch " " num 9  head "|" tail ""]
-            dict set colwidths_lib "note"       [list ch " " num 31 head "|" tail "|"]
-            
-            proc colhead {type args} {
-                upvar #0 ::pattern::cmd::util::colwidths_$type colwidths
-                set line ""
-                foreach colname [dict keys $colwidths] {
-                    append line "[col $type $colname [string totitle $colname] {*}$args]"
-                }
-                return $line
-            }
-            proc colbreak {type} {
-                upvar #0 ::pattern::cmd::util::colwidths_$type colwidths
-                set line ""
-                foreach colname [dict keys $colwidths] {
-                    append line "[col $type $colname {} -backchar - -headoverridechar + -tailoverridechar +]"
-                }
-                return $line
-            }
-            proc col {type col val args} {
-                # args -head bool  -tail bool ?
-                  #----------------------------------------------------------------------------
-                set known_opts [list -backchar -headchar -tailchar -headoverridechar -tailoverridechar -justify] 
-                dict set default -backchar "" 
-                dict set default -headchar ""
-                dict set default -tailchar ""
-                dict set default -headoverridechar ""
-                dict set default -tailoverridechar ""
-                dict set default -justify "left"
-                if {([llength $args] % 2) != 0} {
-                    error "(pattern::cmd::util::col) ERROR: uneven options supplied - must be of form '-option value' "
-                }
-                foreach {k v} $args {
-                    if {$k ni $known_opts} {
-                        error "((pattern::cmd::util::col) ERROR: option '$k' not in known options: '$known_opts'"
-                    }
-                }
-                set opts [dict merge $default $args]
-                set backchar    [dict get $opts -backchar]
-                set headchar    [dict get $opts -headchar]
-                set tailchar    [dict get $opts -tailchar]
-                set headoverridechar    [dict get $opts -headoverridechar]
-                set tailoverridechar    [dict get $opts -tailoverridechar]
-                set justify    [dict get $opts -justify]
-                #----------------------------------------------------------------------------
-                
-                
-                
-                upvar #0 ::pattern::cmd::util::colwidths_$type colwidths
-                #calculate headwidths
-                set headwidth 0
-                set tailwidth 0
-                foreach {key def} $colwidths {
-                    set thisheadlen [string length [dict get $def head]]
-                    if {$thisheadlen > $headwidth} {
-                        set headwidth $thisheadlen
-                    }
-                    set thistaillen [string length [dict get $def tail]]
-                    if {$thistaillen > $tailwidth} {
-                        set tailwidth $thistaillen
-                    }
-                }                
-                
-                
-                set spec [dict get $colwidths $col]
-                if {[string length $backchar]} {
-                    set ch   $backchar 
-                } else {
-                    set ch   [dict get $spec ch]
-                }
-                set num  [dict get $spec num]
-                set headchar [dict get $spec head]
-                set tailchar [dict get $spec tail]
-                
-                if {[string length $headchar]} {
-                    set headchar $headchar
-                }
-                if {[string length $tailchar]} {
-                    set tailchar $tailchar
-                }
-                #overrides only apply if the head/tail has a length
-                if {[string length $headchar]} {
-                    if {[string length $headoverridechar]} {
-                        set headchar $headoverridechar 
-                    }
-                }
-                if {[string length $tailchar]} {
-                    if {[string length $tailoverridechar]} {
-                        set tailchar $tailoverridechar
-                    }
-                }
-                set head [string repeat $headchar $headwidth]
-                set tail [string repeat $tailchar $tailwidth]
-                
-                set base [string repeat $ch [expr {$headwidth + $num + $tailwidth}]]
-                if {$justify eq "left"} {
-                    set left_done [overtype::left $base "$head$val"]
-                    return   [overtype::right $left_done "$tail"]
-                } elseif {$justify in {centre center}} {
-                    set mid_done [overtype::centre $base $val]
-                    set left_mid_done [overtype::left $mid_done $head]
-                    return   [overtype::right $left_mid_done $tail]
-                } else {
-                    set right_done [overtype::right $base "$val$tail"]
-                    return [overtype::left $right_done $head]
-                }
-                
-            }
-        
-        }
-    }
-    
-}
-
-#package require pattern 
-
-proc ::pattern::libs {} {
-    set libs [list \
-    pattern            {-type core -note "alternative:pattern2"}\
-    pattern2           {-type core -note "alternative:pattern"}\
-    patterncmd         {-type core}\
-    metaface           {-type core}\
-    patternpredator2   {-type core}\
-    patterndispatcher  {-type core}\
-    patternlib         {-type core}\
-    patterncipher      {-type optional -note optional}\
-    ]
-    
-    
-    
-    package require overtype
-    set result ""
-    
-    append result "[cmd::util::colbreak lib]\n"
-    append result "[cmd::util::colhead lib -justify centre]\n"
-    append result "[cmd::util::colbreak lib]\n"
-    foreach libname [dict keys $libs] {
-        set libinfo [dict get $libs $libname]
-        
-         append result          [cmd::util::col lib library $libname]
-         if {[catch [list package present $libname] ver]} {
-            append result       [cmd::util::col lib version "N/A"]
-         } else {
-            append result       [cmd::util::col lib version $ver]
-         }
-         append result          [cmd::util::col lib type [dict get $libinfo -type]]
-         
-         if {[dict exists $libinfo -note]} {
-            set note [dict get $libinfo -note]
-         } else {
-            set note ""
-         }
-         append result          [cmd::util::col lib note $note]
-         append result "\n"
-    }    
-    append result "[cmd::util::colbreak lib]\n"
-    return $result
-}
-
-proc ::pattern::record {recname fields} {
-    if {[uplevel 1 [list namespace which $recname]] ne ""} {
-        error "(pattern::record) Can't create command '$recname': A command of that name already exists"
-    }
-    
-    set index -1
-    set accessor [list ::apply {
-        {index rec args}
-        {
-            if {[llength $args] == 0} {
-                return [lindex $rec $index]
-            }
-            if {[llength $args] == 1} {
-                return [lreplace $rec $index $index [lindex $args 0]]
-            }
-            error "Invalid number of arguments."
-        }
-
-    }]
-    
-    set map {}
-    foreach field  $fields {
-        dict set map $field [linsert $accessor end [incr index]]
-    }
-    uplevel 1 [list namespace ensemble create -command $recname -map $map -parameters rec]
-}
-proc ::pattern::record2 {recname fields} {
-    if {[uplevel 1 [list namespace which $recname]] ne ""} {
-        error "(pattern::record) Can't create command '$recname': A command of that name already exists"
-    }
-    
-    set index -1
-    set accessor [list ::apply]
-    
-    set template {
-        {rec args}
-        {
-            if {[llength $args] == 0} {
-                return [lindex $rec %idx%]
-            }
-            if {[llength $args] == 1} {
-                return [lreplace $rec %idx% %idx% [lindex $args 0]]
-            }
-            error "Invalid number of arguments."
-        }
-    }
-    
-    set map {}
-    foreach field  $fields {
-        set body [string map [list %idx% [incr index]] $template]
-        dict set map $field [list ::apply $body]
-    }
-    uplevel 1 [list namespace ensemble create -command $recname -map $map -parameters rec]
-}
-
-proc ::argstest {args} {
-    package require cmdline
-
-}
-
-proc ::pattern::objects {} {
-    set result [::list]
-    
-    foreach ns [namespace children ::pp] {
-        #lappend result [::list [namespace tail $ns] [set ${ns}::(self)]]
-        set ch [namespace tail $ns]
-        if {[string range $ch 0 2] eq "Obj"} {
-            set OID [string range $ch 3 end] ;#OID need not be digits (!?)
-            lappend result [::list $OID [list OID $OID object_command [set pp::${ch}::v_object_command] usedby [array names ${ns}::_iface::o_usedby]]]
-        }
-    }
-    
-    
-    
-    
-    return $result
-}
-
-
-
-proc ::pattern::name {num} {
-	#!todo - fix
-	#set ::p::${num}::(self)
-
-	lassign [interp alias {} ::p::$num] _predator info
-	if {![string length $_predator$info]} {
-		error "No object found for num:$num (no interp alias for ::p::$num)"
-	}
-	set invocants [dict get $info i]
-	set invocants_with_role_this [dict get $invocants this]
-	set invocant_this [lindex $invocants_with_role_this 0]
-	
-	
-	#lassign $invocant_this id info
-	#set map [dict get $info map]
-	#set fields [lindex $map 0]
-	lassign $invocant_this _id _ns _defaultmethod name _etc
-	return $name
-}
-
-
-proc ::pattern::with {cmd script} {
-	foreach c [info commands ::p::-1::*] {
-		interp alias {} [namespace tail $c] {} $c $cmd
-	}		
-	interp alias {} . {} $cmd .
-	interp alias {} .. {} $cmd ..
-
-	return [uplevel 1 $script]
-}
-
-
-
-
-
-#system diagnostics etc
-
-proc ::pattern::varspace_list {IID} {
-    namespace upvar ::p::${IID}::_iface o_varspace o_varspace o_variables o_variables    
-
-    set varspaces [list]
-    dict for {vname vdef} $o_variables {
-        set vs [dict get $vdef varspace]
-        if {$vs ni $varspaces} {
-            lappend varspaces $vs
-        }
-    }
-    if {$o_varspace ni $varspaces} {
-        lappend varspaces $o_varspace
-    }
-    return $varspaces
-}
-
-proc ::pattern::check_interfaces {} {
-	foreach ns [namespace children ::p] {
-		set IID [namespace tail $ns]
-		if {[string is digit $IID]} {
-			foreach ref [array names ${ns}::_iface::o_usedby] {
-				set OID [string range $ref 1 end]
-				if {![namespace exists ::p::${OID}::_iface]} {
-					puts -nonewline stdout "\r\nPROBLEM!!!!!!!!!  nonexistant/invalid object $OID referenced by Interface $IID\r\n"
-				} else {
-					puts -nonewline stdout .
-				}
-
-
-				#if {![info exists ::p::${OID}::(self)]} {
-				#	puts "PROBLEM!!!!!!!!!  nonexistant object $OID referenced by Interface $IID"
-				#}
-			}
-		}
-	}
-	puts -nonewline stdout "\r\n"
-}
-
-
-#from: http://wiki.tcl.tk/8766  (Introspection on aliases)
-#usedby: metaface-1.1.6+
-#required because aliases can be renamed. 
-#A renamed alias will still return it's target with 'interp alias {} oldname'
-# - so given newname - we require which_alias to return the same info.
- proc ::pattern::which_alias {cmd} {
-    uplevel 1 [list ::trace add execution $cmd enterstep ::error]
-    catch {uplevel 1 $cmd} res
-    uplevel 1 [list ::trace remove execution $cmd enterstep ::error]
-    #puts stdout "which_alias $cmd returning '$res'"
-    return $res
- }
-# [info args] like proc following an alias recursivly until it reaches
-# the proc it originates from or cannot determine it. 
-# accounts for default parameters set by interp alias
-#
-
-
-
-proc ::pattern::aliasargs {cmd} {
-		set orig $cmd
-			
-		set defaultargs [list] 
-		
-		# loop until error or return occurs
-		while {1} {
-			# is it a proc already?
-			if {[string equal [info procs $cmd] $cmd]} {
-				set result [info args $cmd] 
-				# strip off the interp set default args
-				return [lrange $result [llength $defaultargs] end]
-			} 
-			# is it a built in or extension command we can get no args for?
-			if {![string equal [info commands $cmd] $cmd]} {
-				error "\"$orig\" isn't a procedure"
-			}
-			
-			# catch bogus cmd names 
-			if {[lsearch [interp aliases {}] $cmd]==-1} {
-				if {[catch {::pattern::which_alias $cmd} alias]} {
-					error "\"$orig\" isn't a procedure or alias or command" 
-				} 
-				#set cmd [lindex $alias 0]
-				if {[llength $alias]>1} {
-					set cmd [lindex $alias 0]
-					set defaultargs [concat [lrange $alias 1 end] $defaultargs]
-				} else {
-					set cmd $alias
-				}
-			} else {
-				
-				if {[llength [set cmdargs [interp alias {} $cmd]]]>0} {
-					# check if it is aliased in from another interpreter
-					if {[catch {interp target {} $cmd} msg]} {
-						error "Cannot resolve \"$orig\", alias leads to another interpreter."
-					}
-					if {$msg != {} } {
-						error "Not recursing into slave interpreter \"$msg\".\
-							   \"$orig\" could not be resolved."
-					}
-					# check if defaults are set for the alias
-					if {[llength $cmdargs]>1} {
-						set cmd [lindex $cmdargs 0]
-						set defaultargs [concat [lrange $cmdargs 1 end] $defaultargs]
-					} else {
-						set cmd $cmdargs
-					}
-				}
-			} 
-		}             
- }
-proc ::pattern::aliasbody {cmd} {
-		set orig $cmd
-			
-		set defaultargs [list] 
-		
-		# loop until error or return occurs
-		while {1} {
-			# is it a proc already?
-			if {[string equal [info procs $cmd] $cmd]} {
-				set result [info body $cmd] 
-				# strip off the interp set default args
-				return $result
-				#return [lrange $result [llength $defaultargs] end]
-			} 
-			# is it a built in or extension command we can get no args for?
-			if {![string equal [info commands $cmd] $cmd]} {
-				error "\"$orig\" isn't a procedure"
-			}
-			
-			# catch bogus cmd names 
-			if {[lsearch [interp aliases {}] $cmd]==-1} {
-				if {[catch {::pattern::which_alias $cmd} alias]} {
-					error "\"$orig\" isn't a procedure or alias or command" 
-				} 
-				#set cmd [lindex $alias 0]
-				if {[llength $alias]>1} {
-					set cmd [lindex $alias 0]
-					set defaultargs [concat [lrange $alias 1 end] $defaultargs]
-				} else {
-					set cmd $alias
-				}
-			} else {
-				
-				if {[llength [set cmdargs [interp alias {} $cmd]]]>0} {
-					# check if it is aliased in from another interpreter
-					if {[catch {interp target {} $cmd} msg]} {
-						error "Cannot resolve \"$orig\", alias leads to another interpreter."
-					}
-					if {$msg != {} } {
-						error "Not recursing into slave interpreter \"$msg\".\
-							   \"$orig\" could not be resolved."
-					}
-					# check if defaults are set for the alias
-					if {[llength $cmdargs]>1} {
-						set cmd [lindex $cmdargs 0]
-						set defaultargs [concat [lrange $cmdargs 1 end] $defaultargs]
-					} else {
-						set cmd $cmdargs
-					}
-				}
-			} 
-		}             
- }
-
-
-
-
-
-proc ::pattern::uniqueKey2 {} {
-	#!todo - something else??
-	return [clock seconds]-[incr ::pattern::idCounter]
-}
-
-#used by patternlib package
-proc ::pattern::uniqueKey {} {
-	return [incr ::pattern::idCounter]
-	#uuid with tcllibc is about 30us compared with 2us
-	# for large datasets, e.g about 100K inserts this would be pretty noticable!
-	#!todo - uuid pool with background thread to repopulate when idle?
-	#return [uuid::uuid generate]
-}
-
- 
- 
-#-------------------------------------------------------------------------------------------------------------------------
-
-proc ::pattern::test1 {} {
-	set msg "OK"
-
-	puts stderr "next line should say:'--- saystuff:$msg"
-	::>pattern .. Create ::>thing
-	
-	::>thing .. PatternMethod saystuff args {
-		puts stderr "--- saystuff: $args"
-	}
-	::>thing .. Create ::>jjj
-	
-	::>jjj . saystuff $msg
-	::>jjj .. Destroy
-	::>thing .. Destroy
-}
-
-proc ::pattern::test2 {} {
-	set msg "OK"
-
-	puts stderr "next line should say:'--- property 'stuff' value:$msg"
-	::>pattern .. Create ::>thing
-	
-	::>thing .. PatternProperty stuff $msg
-	
-	::>thing .. Create ::>jjj
-	
-	puts stderr "--- property 'stuff' value:[::>jjj . stuff]"
-	::>jjj .. Destroy
-	::>thing .. Destroy
-}
-
-proc ::pattern::test3 {} {
-	set msg "OK"
-
-	puts stderr "next line should say:'--- property 'stuff' value:$msg"
-	::>pattern .. Create ::>thing
-	
-	::>thing .. Property stuff $msg
-	
-	puts stderr "--- property 'stuff' value:[::>thing . stuff]"
-	::>thing .. Destroy
-}
-
-#---------------------------------
-#unknown/obsolete
-
-
-
-
-
-
-
-
-#proc ::p::internals::showargs {args {ch stdout}} {puts $ch $args}
-if {0} {
-	proc ::p::internals::new_interface {{usedbylist {}}} {
-		set OID [incr ::p::ID]
-		::p::internals::new_object ::p::ifaces::>$OID "" $OID
-		puts "obsolete >> new_interface created object $OID"	
-		foreach usedby $usedbylist {
-			set			::p::${OID}::_iface::o_usedby(i$usedby) 1
-		}
-		set         ::p::${OID}::_iface::o_varspace ""        ;#default varspace is the object's namespace. (varspace is absolute if it has leading :: , otherwise it's a relative namespace below the object's namespace)
-		#NOTE - o_varspace is only the default varspace for when new methods/properties are added.
-		# it is possible to create some methods/props with one varspace value, then create more methods/props with a different varspace value.
-
-		set 	  	::p::${OID}::_iface::o_constructor [list] 
-		set 	  	::p::${OID}::_iface::o_variables [list]
-		set 	  	::p::${OID}::_iface::o_properties [dict create]
-		set 	  	::p::${OID}::_iface::o_methods [dict create]
-		array set 	::p::${OID}::_iface::o_definition [list]
-		set 		::p::${OID}::_iface::o_open 1   ;#open for extending
-		return $OID
-	}
-
-	
-	#temporary way to get OID - assumes single 'this' invocant
-	#!todo - make generic.
-	proc ::pattern::get_oid {_ID_} {
-		#puts stderr "#* get_oid: [lindex [dict get $_ID_ i this] 0 0]"
-		return [lindex [dict get $_ID_ i this] 0 0]
-		
-		#set invocants [dict get $_ID_ i]
-		#set invocant_roles [dict keys $invocants]
-		#set role_members [dict get $invocants this] 
-		##set this_invocant [lindex $role_members 0] ;#for the role 'this' we assume only one invocant in the list.
-		#set this_invocant [lindex [dict get $_ID_ i this] 0] ;
-		#lassign $this_invocant OID this_info
-		#
-		#return $OID
-	}
-	
-	#compile the uncompiled level1 interface 
-	#assert: no more than one uncompiled interface present at level1
-	proc ::p::meta::PatternCompile {self} {
-	????
-
-		upvar #0 $self SELFMAP
-		set ID		[lindex $SELFMAP 0 0]
-
-		set patterns	[lindex $SELFMAP 1 1] ;#list of level1 interfaces
-
-		set iid -1
-		foreach i $patterns {
-			if {[set ::p::${i}::_iface::o_open]} {
-				set iid $i ;#found it
-				break
-			}
-		}
-
-		if {$iid > -1} {
-			#!todo
-		
-			::p::compile_interface $iid
-			set ::p::${iid}::_iface::o_open 0
-		} else {
-			#no uncompiled interface present at level 1. Do nothing.
-			return
-		}
-	}
-
-	
-	proc ::p::meta::Def {self} {
-        error ::p::meta::Def
-        
-		upvar #0 $self SELFMAP
-		set self_ID	[lindex $SELFMAP 0 0]
-		set IFID	[lindex $SELFMAP 1 0 end]
-
-		set maxc1 0
-		set maxc2 0
-		
-		set arrName ::p::${IFID}::
-		
-		upvar #0 $arrName state
-
-		array set methods {}
-			
-		foreach nm [array names state] {
-			if {[regexp {^m-1,name,(.+)} $nm _match mname]} {
-				set methods($mname) [set state($nm)]
-
-				if {[string length $mname] > $maxc1} {
-					set maxc1 [string length $mname]
-				}
-				if {[string length [set state($nm)]] > $maxc2} {
-					set maxc2 [string length [set state($nm)]]
-				}
-			}
-		}
-		set bg1 [string repeat " " [expr {$maxc1 + 2}]]
-		set bg2 [string repeat " " [expr {$maxc2 + 2}]]
-		
-
-		set r {}
-		foreach nm [lsort -dictionary [array names methods]] {
-			set arglist $state(m-1,args,$nm)
-			append r "[overtype::left $bg1 $nm] : [overtype::left $bg2 $methods($nm)] [::list $arglist]\n"
-		}
-		return $r		
-	}
-
-
-	
-}
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patternlib-1.2.6.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patternlib-1.2.6.tm
deleted file mode 100644
index bd4b3e59..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patternlib-1.2.6.tm
+++ /dev/null
@@ -1,2590 +0,0 @@
-#JMN 2004
-#public domain
-
-
-package provide patternlib [namespace eval patternlib {
-
-	variable version
-	set version 1.2.6
-}]
-
-
-
-#Change History
-#-------------------------------------------------------------------------------
-#2022-05
-# added . search and . itemKeys methods to >collection to enable lookups by value
-#2021-09
-# Add >keyvalprotector  - an object to overload various collection methods such as 'remove' to stop deletion of specific items.
-#
-#2006-05
-# deprecate 'del' in favour of 'remove' - 'del' still there but delegated to 'remove'. todo - emit deprecation warnings.
-#
-#2005-04
-# remove 'name' method - incorporate indexed retrieval into 'names' method
-# !todo? - adjust key/keys methods for consistency?
-#
-#2004-10
-# initial key aliases support 
-# fix negative index support on some methods e.g remove
-#2004-08
-# separated >collection predicate methods out onto separate 'mixin' object >predicatedCollection
-# added $posn $result variables to predicate methods, changed varnames from $k $v to $key $value
-#
-#2004-06-05
-# added 'sort' method to sort on values.
-# fixed 'keySort' method to accept multiple sort options
-# added predicate methods 'all' 'allKeys' 'collectAll'
-#2004-06-01
-# '>collection . names' method now accepts optional 'glob' parameter to filter result
-#2004-05-19
-#fix '>collection . clear' method so consecutive calls don't raise an error
-#-------------------------------------------------------------------------------
-
-namespace eval ::patternlib::util {
-    proc package_require_min {pkg minver} {
-        if {[package vsatisfies [lindex [set available [lsort -increasing [package versions $pkg]]] end] $minver-]} {
-            package require $pkg
-        } else {
-            error "Package pattern requires package $pkg of at least version $minver. Available: $available"
-        }
-    }
-    
-    #bloom filter experiment https://wiki.tcl-lang.org/page/A+Simple+Bloom+Filter
-    # k-hashes
-    # m-bits
-    # n-elements
-    # optimal value of k: (m/n)ln(2)
-    #proc bloom_optimalNumHashes {capacity_n bitsize_m} {
-    #    expr { round((double($bitsize_m) / $capacity_n) * log(2))}
-    #}
-    #proc bloom_optimalNumBits {capacity fpp} {
-    #    expr {entier(-$capacity * log($fpp) / (log(2) * log(2)))}
-    #}
-    
-}
-::patternlib::util::package_require_min pattern 1.2.4
-#package require pattern
-::pattern::init ;# initialises (if not already)
-
-
-namespace eval ::patternlib {namespace export {[a-z]*}
-	namespace export {[>]*}
-
-	variable keyCounter 0  ;#form part of unique keys for collections when items added without any key specified
-	proc uniqueKey {} {
-		return [incr  ::patternlib::keyCounter]
-	}
-
-#!todo - multidimensional collection
-# 	- o_list as nested list 
-#   - o_array with compound keys(?) how will we unambiguously delimit dimensions in a concatenated key?
-#   - perhaps a key is always a list length n where n is the number of dimensions?
-#   - therefore we'll need an extra level of nesting for the current base case n=1
-#
-#	- how about a nested dict for each key-structure (o_list & o_array) ?
-
-#COLLECTION
-#
-#!todo? - consider putting the actual array & list vars in the objects namespace, and using the instancevars to hold their names
-# - consider array-style access using traced var named same as collection.
-# would this defeat the purpose ? if it was faster, would users always use array syntax in preference.. in which case they may as well just use arrays..?
-#!todo - add boolean property to force unique values as well as keys
-
-
-#::pattern::create >collection 
-
-
-
-
-::>pattern .. Create >collection
-set COL >collection
-#process_pattern_aliases [namespace origin >collection]
-#process_pattern_aliases ::patternlib::>collection
-$COL .. Property version 1.0 
-$COL .. PatternDefaultMethod item
-
-set PV [$COL .. PatternVariable .]
-
-$PV o_data
-#$PV o_array
-#$PV o_list
-$PV o_alias
-$PV this
-
-#for invert method
-$PV o_dupes 0
-
-
-$COL .. PatternProperty bgEnum
-
-
-#PV o_ns
-
-$PV m_i_filteredCollection
-
-#set ID [lindex [set >collection] 0 0]   ;#context ID
-#set IID [lindex [set >collection] 1 0]  ;#level 1 base-interface ID
-
-$COL .. Constructor {args} {
-    var o_data m_i_filteredCollection o_count o_bgEnum
-
-    var this
-    set this @this@
-
-    set m_i_filteredCollection 0
-    if {![llength $args]} {
-        set o_data [dict create]
-        #array set o_array	[list]
-        #set o_list		[list]
-        set o_count 0
-    } elseif {[llength $args] == 1} {
-        set o_data [dict create]
-        set pairs [lindex $args 0]
-        if {[llength $pairs] % 2} {
-            error "patternllib::>collection - if an argument given to constructor, it must have an even number of elements. Bad args: $args"
-        }
-        set keys_seen [list]
-        foreach key [dict keys $pairs] {
-            if {[string is integer -strict $key] } {
-                error ">collection key must be non-integer. Bad key: $key. No items added."
-            }
-            if {$key in $keys_seen} {
-                error "key '$key' already exists in this collection. No items added."
-            }
-            lappend keys_seen $key
-        }
-        unset keys_seen
-        #rely on dict ordering guarantees (post 8.5? preserves order?)
-        set o_data [dict merge $o_data[set o_data {}] $pairs]
-        set o_count [dict size $o_data]
-    } else {
-        error "patternlib::>collection constructor did not understand arguments supplied. Try a dict as a single argument."
-    }
-    array set o_alias	[list]
-
-    array set o_bgEnum [list]
-    @next@
-}
-#comment block snipped from collection Constructor
-    #---------------------------------------------
-    #set o_selfID [lindex [set $o_this] 0]  ;#object id always available in methods as $_ID_ anyway
-    #
-    #### OBSOLETE - left as example of an approach
-    #make count property traceable (e.g so property ref can be bound to Tk widgets)	
-    #!todo - manually update o_count in relevant methods faster??
-    # should avoid trace calls for addList methods, shuffle etc 
-    #
-    #set handler ::p::${_ID_}::___count_TraceHandler
-    #proc $handler {_ID_ vname vidx op} {
-    #	#foreach {vname vidx op} [lrange $args end-2 end] {break}
-    #	#! we shouldn't trust this vname - it may be that we are being accessed via upvar so it is a different name
-    #	
-    #	#this is only a 'write' handler
-    #	set ::p::[lindex ${_ID_} 0 0]::o_count [llength [set ::p::[lindex ${_ID_} 0 0]::o_list]]
-    #	return
-    #}
-    #trace add variable o_list {write} [list $handler $_ID_]
-    ####
-    #
-    #
-    #puts "--->collection constructor id: $_ID_"
-
-
-
-
-set PM [$COL .. PatternMethod .]
-
-
-#!review - why do we need the count method as well as the property?
-#if needed - document why.
-# read traces on count property can be bypassed by method call... shouldn't we avoid that?
-#2018 - in theory write traces on the . count property are very useful from an application-writer's perpective.
-#
-$COL .. PatternMethod count {} {
-    #we don't require any instance vars to be upvar'ed - argless [var] stops them automatically being added.
-    #we directly refer to the ::O:: var if only accessing a few times rather than upvar'ing.
-    var o_data
-    dict size $o_data	
-}
-
-$COL .. PatternProperty count
-$COL .. PatternPropertyWrite count {_val} {
-    var
-    error "count property is read-only"
-}
-
-$COL .. PatternPropertyUnset count {} {
-    var
-} ;#cannot raise error's in unset trace handlers - simply fail to unset silently
-
-$COL .. PatternMethod isEmpty {} {
-    #var o_list
-    #return [expr {[llength $o_list] == 0}]
-    var o_data
-    expr {[dict size $o_data] == 0}
-}
-
-$COL .. PatternProperty inverted 0
-
-
-
-######
-# item
-######
-#defaults to fifo when no idx supplied (same as 'pair' method). !review? is lifo more logical/intuitive/useful?
-# i.e [>obj . item] returns the 1st element in the list
-#[>obj . item -1] returns the last element (equiv to "end" keyword used by Tcl list commands)
-#[>obj . item -2] returns 2nd last element (equiv to "end-1")
-
-
-$COL .. PatternMethod item {{idx 0}} {
-    #with pattern::0::$OID access.. was measured  faster than item2 : approx 110us vs 140us for 26element collection accessed via string (time {>col $key} 10000)
-    # (still at least 20 times slower than a plain array... at <5us)
-    var o_data o_alias
-
-    #!todo - review 'string is digit' vs 'string is integer' ??
-    if {[string is integer -strict $idx]} {
-        if {$idx < 0} {
-            set idx "end-[expr {abs($idx + 1)}]"
-        }
-        set keys [dict keys $o_data]
-        if {[catch {dict get $o_data [lindex $keys $idx]} result]} {
-            var this
-            error "no such index : '$idx' in collection: $this"
-        } else {
-            return $result	
-        }
-    } else {
-        if {[catch {dict get $o_data $idx} result]} {
-            if {[catch {set o_alias($idx)} nextIdx ]} {
-                var this
-                error "no such index: '$idx' in collection: $this"
-            } else {
-                #try again 
-                #return $o_array($nextIdx)
-                #tailcall?
-                #item $_ID_ $nextIdx
-                #puts stdout "\n\n\n !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! about to call tailcall item $_ID_ $nextIdx \n\n\n"
-                tailcall item $_ID_ $nextIdx
-            }
-        } else {
-            return $result	
-        }
-    }
-}
-
-
-
-if {0} {
-#leave this here for comparison.
-$COL .. PatternMethod item2 {{idx 0}} {
-    var o_array o_list o_alias this
-
-    if {[string is integer -strict $idx]} {
-        if {$idx < 0} {
-            set idx "end-[expr {abs($idx + 1)}]"
-        }
-
-        if {[catch {set o_array([lindex $o_list $idx])} result]} {
-            error "no such index : '$idx' in collection: $this"
-        } else {
-            return $result	
-        }
-    } else {
-        if {[catch {set o_array($idx)} result]} {
-
-            if {[catch {set o_alias($idx)} nextIdx ]} {
-                error "no such index: '$idx' in collection: $this"
-            } else {
-                #try again 
-                #return $o_array($nextIdx)	
-                item $_ID_ $nextIdx
-            }
-        } else {
-            return $result	
-        }
-    }
-
-}
-}
-
-#simple no-frills access for speed.. (timed at 43us vs 63us for item (depending on dispatch method!))
-$COL .. PatternMethod itemNamed {idx} {
-    var o_data
-    dict get $o_data $idx
-}
-$COL .. PatternMethod in {idx} {
-    var o_data
-    dict get $o_data $idx
-}
-
-$COL .. PatternMethod itemAt {idx} {
-    var o_data
-    dict get $o_data [lindex [dict keys $o_data] $idx]
-}
-
-$COL .. PatternMethod replace {idx val} {
-    var o_data o_alias this
-
-    if {[string is integer -strict $idx]} {
-        if {$idx < 0} {
-            set idx "end-[expr {abs($idx + 1)}]"
-        }
-
-        if {[catch {dict set o_data [lindex [dict keys $o_data] $idx] $val}]} {
-            error "no such index: '$idx' in collection: $this"
-        } else {
-            return $val
-        }
-    } else {
-        if {[catch {dict set o_data $idx $val}]} {
-            if {[catch {set o_alias($idx)} nextIdx ]} {
-                error "no such index: '$idx' in collection: $this"
-            } else {
-                #try again
-                tailcall replace $_ID_ $nextIdx $val
-            }
-
-        } else {
-            return $val
-        }
-    }
-}
-
-#if the supplied index is an alias, return the underlying key; else return the index supplied.
-$COL .. PatternMethod realKey {idx} {
-    var o_alias
-
-    if {[catch {set o_alias($idx)} key]} {
-        return $idx
-    } else {
-        return $key
-    }
-}
-
-#note alias feature is possibly ill-considered.
-#if we delete an item - should we delete corresponding alias? If not - we then would need to allow adding under an alias only if the corresponding key is missing.
-$COL .. PatternMethod alias {newAlias existingKeyOrAlias} {
-    var o_alias
-
-    #set existingKey [realKey $_ID_ $existingKeyOrAlias]
-    #alias to the supplied KeyOrAlias - not the underlying key
-
-    if {[string is integer -strict $newAlias]} {
-        error "collection key alias cannot be integer"
-    }
-
-    if {[string length $existingKeyOrAlias]} {
-        set o_alias($newAlias) $existingKeyOrAlias
-    } else {
-        unset o_alias($newAlias)
-    }
-}
-$COL .. PatternMethod aliases {{key ""}} {
-    var o_alias
-
-    if {[string length $key]} {
-        set result [list]
-        #lsearch -stride?
-        foreach {n v} [array get o_alias] {
-            if {$v eq $key} {
-                lappend result $n $v
-            }
-        }		
-
-        return $result
-    } else {
-        return [array get o_alias]
-    }
-}
-
-#'pop' & 'unshift' methods !todo - optimize so lsearch not called when numerical idx/posn already supplied
-
-#default to removing item from the end, otherwise from supplied index (position or key)
-#!todo - accept alias indices
-#!todo - review.. should any corresponding alias be destroyed when the corresponding item is popped (or removed in any way?)
-#!todo - review.. for performance.. shouldn't pop NOT accept an index? 
-#if we need to pop from other than the end.. this could be a separate function. Do other langs use pop with an index??
-$COL .. PatternMethod pop {{idx ""}} {
-    var o_data o_count
-
-    if {$idx eq ""} {
-        set key [lindex [dict keys $o_data] end]
-    } else {
-        if {[string is integer -strict $idx]} {
-            set key [lindex [dict keys $o_data] $idx]
-        } else {
-            set key $idx
-        }
-    }
-    set posn [lsearch -exact [dict keys $o_data] $key]
-
-    if {($posn >= 0) && ($posn < [dict size $o_data])} {
-        set result [dict get $o_data $key]
-        dict unset o_data $key
-        set o_count [dict size $o_data]
-        return $result
-    } else {
-        error "no such index: '$idx'"
-    }
-}
-$COL .. PatternMethod poppair {} {
-    var o_data o_count
-    set key [lindex [dict keys $o_data] end]
-    set val [dict get $o_data $key]
-    dict unset o_data $key
-    set o_count [dict size $o_data]
-    return [list $key $val]
-}
-
-
-
-#!todo - add 'push' method... (basically specialized versions of 'add')
-#push - add at end (effectively an alias for add)
-#shift - add at start   ???bad name? this is completely at odds with for example the common Perl shift function, which returns and removes the first element of an array.
-#add - add at end
-
-#ordered
-$COL .. PatternMethod items {} {
-    var o_data
-
-    dict values $o_data
-}
-
-
-
-
-####
-#pair
-####
-#fifo-style accesss when no idx supplied (likewise with 'add' method)
-$COL .. PatternMethod pair {{idx 0}} {
-    var o_data
-
-    if {[string is integer -strict $idx]} {
-        set key [lindex [dict keys $o_data] $idx]
-    } else {
-        set key $idx
-    }
-
-    if {[catch {dict get $o_data $key} val]} {
-        error "no such index: '$idx'"
-    } else {
-        return [list $key $val]
-    }
-}
-$COL .. PatternMethod pairs {} {
-    var o_data
-    set o_data
-}
-
-$COL .. PatternMethod get {} {
-    var o_data
-    set o_data
-}
-#todo - fix >pattern so that methods don't collide with builtins
-#may require change to use oo - or copy 'my' mechanism to call own methods
-$COL .. PatternMethod Info {} {
-    var o_data
-    return [dict info $o_data]
-}
-#2006-05-21.. args to add really should be in key, value order?
-# - this the natural order in array-like lists
-# - however.. key should be optional.
-
-$COL .. PatternMethod add {val args} {
-    #(using args instead of {key ""} enables use of empty string as a key )
-
-    var o_data o_alias o_count  this
-
-    if {![llength $args]} {
-        set key "_[::patternlib::uniqueKey]_"
-    } else {
-        #!todo - could we handle multiple val,key pairs without impacting performance of the common case?
-        if {[llength $args] > 1} {
-            error "add method expected 'val' and optional 'key' - got: $val $args"
-
-        }
-
-        set key [lindex $args 0]
-        if {[string is integer -strict $key]} {
-            error ">collection key must be non-numeric. Other structures such as >hashMap allow user specified integer keys"
-        }
-    }
-
-    if {[dict exists $o_data $key]} {
-        #error "key $key already exists in collection [set ::p::[lindex ${_ID_} 0 0]::this]"
-        error "key '$key' already exists in collection $this"
-    }
-    if {[info exists o_alias($key)]} {
-      if {[dict exists $o_data $o_alias($key)]} {
-            #only disallow adding via the alias if there is an existing o_data element for the key pointed to by the alias
-            error "key '$key' already exists as an alias for $o_alias($key) in collection $this"
-        }
-    }
-
-    dict set o_data $key $val
-
-
-    set posn $o_count
-    incr o_count
-
-    return $posn
-}
-
-
-#should the 'stack' methods such as shift,push,pop,peek actually be on a separate interface?
-#what then of methods like 'count' which apply equally well to collections and stacks?
-
-#Alias for 'add' - is there a way to alias this to add implementation with zero overhead??
-$COL .. PatternMethod push {val args} {
-    #(using args instead of {key ""} enables use of empty string as a key )
-
-    var o_data o_alias o_count  this
-
-    if {![llength $args]} {
-        set key "_[::patternlib::uniqueKey]_"
-    } else {
-        #!todo - could we handle multiple val,key pairs without impacting performance of the common case?
-        if {[llength $args] > 1} {
-            error "add method expected 'val' and optional 'key' - got: $val $args"
-
-        }
-
-        set key [lindex $args 0]
-        if {[string is integer -strict $key]} {
-            error ">collection key must be non-numeric. Other structures such as >hashMap allow user specified integer keys"
-        }	
-    }
-
-    if {[dict exists $o_data $key]} {
-        #error "key $key already exists in collection [set ::p::[lindex ${_ID_} 0 0]::this]"
-        error "key '$key' already exists in collection $this"
-    }
-    if {[info exists o_alias($key)]} {
-        if {[dict exists $o_data $o_alias($key)]} {
-            #only disallow adding via the alias if there is an existing o_data element for the key pointed to by the alias
-            error "key '$key' already exists as an alias for $o_alias($key) in collection $this"
-        }
-    }
-
-    dict set o_data $key $val
-
-
-    set posn $o_count
-    incr o_count
-
-    return $posn
-}
-
-
-#shift/unshift - roughly analogous to those found in Perl & PHP
-#unshift adds 1 or more values to the beginning of the collection.
-$COL .. PatternMethod unshift {values {keys ""}} {
-    var o_data o_count
-
-    if {![llength $keys]} {
-        for {set i 0} {$i < [llength $values]} {incr i} {
-            lappend keys "_[::patternlib::uniqueKey]_"
-        }
-    } else {
-        #check keys before we insert any of them.
-        foreach newkey $keys {
-            if {[string is integer -strict $newkey]} {
-                error "cannot accept key '$newkey', >collection keys must be non-numeric. Other structures such as >hashMap allow user specified integer keys"
-            }	
-        }
-    }
-    if {[llength $values] != [llength $keys]} {
-        error "unshift requires same number of keys as values. (or no keys for auto-generated keys) Received [llength $values] values, [llength $keys] keys"
-    }	
-
-    #separate loop through keys because we want to fail the whole operation if any are invalid.
-
-    set existing_keys [dict keys $o_data]	
-    foreach newkey $keys {
-        if {$newkey in $exisint_keys} {
-            #puts stderr "==============> key $key already exists in this collection"
-            error "key '$newkey' already exists in this collection"
-        }
-    }
-
-
-    #ok - looks like entire set can be inserted.
-    set newpairs [list]
-    foreach val $values key $keys {
-        lappend newpairs $key $val
-    }
-    set o_data [concat $newpairs $o_data[set o_data {}]]
-    set o_count [dict size $o_data]
-
-    return [expr {$o_count - 1}]
-}
-
-#default to removing item from the beginning, otherwise from supplied index (position or key)
-#!todo - accept alias indices
-$COL .. PatternMethod shift {{idx ""}} {
-	var o_data o_count
-	
-	if {$idx eq ""} {
-		set key [lindex [dict keys $o_data] 0]
-	} else {
-		if {[string is integer -strict $idx]} {
-			set key [lindex [dict keys $o_data] $idx]
-		} else {
-			set key $idx
-		}
-	}
-	set posn [lsearch -exact [dict keys $o_data] $key]
-	
-	if {($posn >= 0) && (($posn/2) < [dict size $o_data])} {
-		set result [dict get $o_data $key]
-		dict unset o_data $key
-		set o_count [dict size $o_data]
-		return $result
-	} else {
-		error "no such index: '$idx'"
-	}	
-}
-
-
-$COL .. PatternMethod peek {} {
-	var o_data
-	
-	#set o_array([lindex $o_list end])
-
-	#dict get $o_data [lindex [dict keys $o_data] end]
-	lindex $o_data end
-}
-
-$COL .. PatternMethod peekKey {} {
-	var o_data
-	#lindex $o_list end
-	lindex $o_data end-1
-}
-
-
-$COL .. PatternMethod insert {val args} {
-	var o_data o_count
-	
-	set idx 0
-	set key ""
-
-	if {[llength $args] <= 2} {
-		#standard arg (ordered) style:
-		#>obj . insert $value $position $key
-
-		lassign $args idx key
-	} else {
-		#allow for literate programming style:
-		#e.g
-		# >obj . insert $value at $listPosition as $key
-	
-		if {[catch {array set iargs $args}]} {
-			error "insert did not understand argument list.
-usage: 
->obj . insert \$val \$position \$key
->obj . insert \$val at \$position as \$key"
-		}
-		if {[info exists iargs(at)]} {
-			set idx $iargs(at)
-		}
-		if {[info exists iargs(as)]} {
-			set key $iargs(as)
-		}
-	}
-
-	if {![string length $key]} {
-		set key "_[::patternlib::uniqueKey]_"
-	}
-
-	if {[string is integer -strict $key]} {
-		error ">collection key must be non-numeric. Other structures such as >hashMap allow user specified integer keys"
-	}	
-
-	
-	if {[dict exists $o_data $key]} {
-		#puts stderr "==============> key $key already exists in this collection"
-		error "key '$key' already exists in this collection"
-	}
-
-	if {$idx eq "end"} {
-		#lappend o_list $key
-		#standard dict set will add it to the end anyway
-		dict set o_data $key $val
-
-	} else {
-		#set o_list [linsert $o_list $idx $key]
-
-		#treat dict as list
-		set o_data [linsert $o_data[set o_data {}] [expr {$idx*2}] $key $val]
-	}
-
-
-	#set o_array($key) $val
-
-
-	set o_count [dict size $o_data]
-
-	return [expr {$o_count - 1}]
-}
-
-#!todo - deprecate and give it a better name! addDict addPairs ?
-$COL .. PatternMethod addArray {list} {
-	var
-	puts stderr "patternlib::>collection WARNING: addArray deprecated - call addPairs with same argument instead"
-	tailcall  addPairs $_ID_ $list
-}
-$COL .. PatternMethod addPairs {list} {
-	var o_data o_alias o_count
-	if {[llength $list] % 2} {
-		error "must supply an even number of elements"
-	}
-
-  set aliaslist [array names o_alias]
-	#set keylist [dict keys $o_data]
-	foreach newkey [dict keys $list] {
-		if {[string is integer -strict $newkey] } {
-			error ">collection key must be non-integer. Bad key: $newkey. No items added."
-		}
-
-		#if {$newkey in $keylist} {}
-		#for small to medium collections - testing for newkey in $keylist is probably faster,
-		# but we optimise here for potentially large existing collections, where presumably a dict exists lookup will be more efficient.
-		if {[dict exists $o_data $newkey]} {
-			error "key '$newkey' already exists in this collection. No items added."
-		}
-		#The assumption is that there are in general relatively few aliases - so a list test is appropriate
-		if {$newkey in $aliaslist} {
-			if {[dict exists $o_data $o_alias($newkey)]} {
-				error "key '$newkey' already exists as an alias for $o_alias($newkey) in collection. No items added "
-			}
-		}
-		#! check if $list contains dups?
-		#- slows method down - for little benefit?
-	}
-	#!todo - test?  (but we need a loop to test for integer keys.. so what's the point?)
-	#set intersection [struct::set intersect [dict keys $list] [dict keys $o_data]]
-	#if {[llength $intersection]} {
-	#	error "keys '$intersection' already present in this collection. No items added."
-	#}
-
-
-	#rely on dict ordering guarantees (post 8.5? preserves order?)
-	set o_data [dict merge $o_data[set o_data {}] $list]
-
-	set o_count [dict size $o_data]
-
-	return [expr {$o_count - 1}]
-}
-$COL .. PatternMethod addList {list} {
-	var o_data o_count
-	
-	foreach val $list {
-		dict set o_data "_[::patternlib::uniqueKey]_" $val
-		#!todo - test. Presumably lappend faster because we don't need to check existing keys..
-		#..but.. is there shimmering involved in treating o_data as a list?
-		#lappend o_data _[::patternlib::uniqueKey]_ $val
-
-		#tested 2008-06 tcl8.6a0  lappend was slower as the gain is lost (and more!) during subsequent [dict size $o_data]
-	}
-	set o_count [dict size $o_data]
-
-	return [expr {$o_count - 1}]
-}
-
-#'del' is not a very good name... as we're not really 'deleting' anything.
-# 'remove' seems better, and appears to be more consistent with other languages' collection implementations.
-#!todo - handle 'endRange' parameter for removing ranges of items.
-$COL .. PatternMethod del {idx {endRange ""}} {
-	var
-	#!todo - emit a deprecation warning for 'del'
-	tailcall remove $_ID_ $idx $endRange
-}
-
-$COL .. PatternMethod remove {idx {endRange ""}} {
-	var o_data o_count o_alias this
-
-	if {[string length $endRange]} {
-		error "ranged removal not yet implemented.. remove one item at a time."
-	}
-
-
-	if {[string is integer -strict $idx]} {
-		if {$idx < 0} {
-			set idx "end-[expr {abs($idx + 1)}]"
-		}
-		set key [lindex [dict keys $o_data] $idx]
-		set posn $idx
-	} else {
-		set key $idx
-		set posn [lsearch -exact [dict keys $o_data] $key]
-		if {$posn < 0} {
-			if {[catch {set o_alias($key)} nextKey]} {
-				error "no such index: '$idx' in collection: $this"
-			} else {
-				#try with next key in alias chain...
-				#return [remove $_ID_ $nextKey]
-				tailcall remove $_ID_ $nextKey
-			}
-		}
-	}
-	
-	dict unset o_data $key
-
-	set o_count [dict size $o_data]
-	return
-}
-
-#ordered
-$COL .. PatternMethod names {{globOrIdx {}}} {
-	var o_data
-
-	if {[llength $globOrIdx]} {
-		if {[string is integer -strict $globOrIdx]} {
-			#Idx
-			set idx $globOrIdx
-			
-			if {$idx < 0} {
-				set idx "end-[expr {abs($idx + 1)}]"
-			}	
-		
-			
-
-			if {[catch {lindex [dict keys $o_data] $idx} result]} {
-				error "no such index : '$idx'"
-			} else {
-				return $result	
-			}		
-		
-		} else {
-			#glob
-			return [lsearch -glob -all -inline [dict keys $o_data] $globOrIdx]
-		}
-	} else {
-		return [dict keys $o_data]
-	}
-}
-
-#ordered
-$COL .. PatternMethod keys {} {
-	#like 'names' but without globbing
-	var o_data
-	dict keys $o_data
-}
-
-#Unfortunately the string 'name' is highly collidable when mixing in a collection over existing objects
-# - !todo - review. Is it worth adjusting the collection methodnames to avoid a few common collision cases?
-# - some sort of resolution order/interface-selection is clearly required anyway
-# so perhaps it's generally best not to bother being 'polite' here, and implement a robust understandable resolution mechanism.
-# In the mean time however... we'll at least avoid 'name'!
-#
-#$PM name {{posn 0}} {
-#	var o_array o_list
-#	
-#	if {$posn < 0} {
-#		set posn "end-[expr {abs($posn + 1)}]"
-#	}
-#		
-#	if {[catch {lindex $o_list $posn} result]} {
-#		error "no such index : '$posn'"
-#	} else {
-#		return $result	
-#	}
-#}
-
-$COL .. PatternMethod key {{posn 0}} {
-	var o_data
-	
-	if {$posn < 0} {
-		set posn "end-[expr {abs($posn + 1)}]"
-	}
-		
-	if {[catch {lindex [dict keys $o_data] $posn} result]} {
-		error "no such index : '$posn'"
-	} else {
-		return $result	
-	}
-}
-
-
-#!todo - consider use of 'end-x' syntax for 'to', and implications re consistency with other commands.
-$COL .. PatternMethod setPosn {idx to} {
-	var o_data
-	
-	if {![string is integer -strict $to]} {
-		error "destination position must be numeric, consider reKey method if you are trying to change the string key under which this value is stored"
-	}
-
-	if {[string is integer -strict $idx]} {
-		set idx [expr {$idx % [dict size $o_data]}]
-
-		set key [lindex [dict keys $o_data] $idx]
-		set posn $idx
-	} else {
-		set key $idx
-		set posn [lsearch -exact [dict keys $o_data] $key]
-	}
-
-	set to [expr {$to % [dict size $o_data]}]
-	
-
-	set val [dict get $o_data $key]
-	dict unset o_data $key
-
-	#treat dict as list
-	set o_data [linsert $o_data[set o_data {}] [expr {$posn*2}] $key $val]
- 
-	#set o_list [lreplace $o_list $posn $posn]
-	#set o_list [linsert $o_list $to $key] 
-
-	return $to
-}
-#!todo - improve efficiency of calls to other functions on this object.. 'inline'??
-#presumably the collection object functionality will be long-term stable because it's purpose is to be a core datastructure; therefore it should be reasonable to favour efficiency over maintainability.
-$COL .. PatternMethod incrPosn {idx {by 1}} {
-	var o_data
-	if {[string is integer -strict $idx]} {
-		set idx [expr {$idx % [dict size $o_data]}]
-		set key [lindex [dict keys $o_data] $idx]
-		set posn $idx
-	} else {
-		set key $idx
-		set posn [lsearch -exact [dict keys $o_data] $key]
-	}
-	
-	set newPosn [expr {($posn + $by) % [dict size $o_data]}]
-
-	setPosn $_ID_ $posn $newPosn
-	return $newPosn
-}
-$COL .. PatternMethod decrPosn {idx {by 1}} {
-	var
-	return [incrPosn $_ID_ $idx [expr {- $by}]]
-}
-$COL .. PatternMethod move {idx to} {
-	var
-	return [setPosn $_ID_ $idx $to]
-}
-$COL .. PatternMethod posn {key} {
-	var o_data
-	return [lsearch -exact [dict keys $o_data] $key]
-}
-
-#!todo? - disallow numeric values for newKey so as to be consistent with add
-#!note! - item can be reKeyed out from under an alias such that the alias chain no longer points to anything
-# - this is ok.
-$COL .. PatternMethod reKey {idx newKey} {
-	var o_data o_alias
-
-
-	if {[dict exists $o_data $newKey]} {
-		#puts stderr "==============> reKey collision, key $newKey already exists in this collection"
-		error "reKey collision, key '$newKey' already exists in this collection"
-	}
-	if {[info exists o_alias($newKey)]} {
-		if {[dict exists $o_data $o_alias($newKey)]} {
-			error "reKey collision, key '$newKey' already present as an alias in this collection"
-		} else {
-				set newKey $o_alias($newKey)
-		}
-	}
-
-
-
-	if {[string is integer -strict $idx]} {
-		if {$idx < 0} {
-			set idx "end-[expr {abs($idx + 1)}]"
-		}
-		set key [lindex [dict keys $o_data] $idx]
-		set posn $idx
-	} else {
-		set key $idx
-		set posn [lsearch -exact [dict keys $o_data] $key]
-		if {$posn < 0} {
-			if {[catch {set o_alias($key)} nextKey]} {
-				error "no such index: '$idx'"
-			} else {
-				#try with next key in alias chain...
-				#return [reKey $_ID_ $nextKey $newKey]
-				tailcall reKey $_ID_ $nextKey $newKey
-			}
-		}
-	}
-
-	#set o_list [lreplace $o_list $posn $posn $newKey]
-	##atomic? (traces on array?)
-	#set o_array($newKey) $o_array($key)
-	#unset o_array($key)
-
-	dict set o_data $newKey [dict get $o_data $key]
-	dict unset o_data $key
-
-	return
-}
-$COL .. PatternMethod hasKey {key} {
-	var o_data
-	dict exists $o_data $key
-}
-$COL .. PatternMethod hasAlias {key} {
-	var o_alias
-	info exists o_alias($key)
-}
-
-#either key or alias
-$COL .. PatternMethod hasIndex {key} {
-	var o_data o_alias
-	if {[dict exists $o_data $key]} {
-		return 1
-	} else {
-		return [info exists o_alias($key)]
-	}	
-}
-
-
-#Shuffle methods from http://mini.net/tcl/941
-$COL .. PatternMethod shuffleFast {} {
-	#shuffle6 - fast, but some orders more likely than others.
-
-	var o_data
- 	 	
-	set keys [dict keys $o_data]
-
-   set n [llength $keys]
-   for { set i 1 } { $i < $n } { incr i } {
-       set j [expr { int( rand() * $n ) }]
-       set temp [lindex $keys $i]
-       lset keys $i [lindex $keys $j]
-       lset keys $j $temp
-   }
-
-	#rebuild dict in new order
-	#!todo - can we do the above 'in place'?
-	set newdata [dict create]
-	foreach k $keys {
-		dict set newdata $k [dict get $o_data $k]
-	}
-	set o_data $newdata
-
-    return     
-}
-$COL .. PatternMethod shuffle {} {
-	#shuffle5a
-	
-	var o_data
-	 
-	set n 1
-	set keys [list]  ;#sorted list of keys
-	foreach k [dict keys $o_data] {
-		#set index [expr {int(rand()*$n)}]
-
-		#set slist [linsert [::pattern::K $keys [set keys {}]] $index $k]
-
-		#faster alternative.. 'inline K' [lindex [list a b] 0] ~ [K a b]   
-		set keys [linsert [lindex [list $keys [set keys {}]] 0] [expr {int(rand()*$n)}] $k]
-		incr n
-	}
-
-	#rebuild dict in new order
-	#!todo - can we do the above 'in place'?
-	set newdata [dict create]
-	foreach k $keys {
-		dict set newdata $k [dict get $o_data $k]
-	}
-	set o_data $newdata
-	
-	return
-}
-
-
-#search is a somewhat specialised form of 'itemKeys'
-$COL .. PatternMethod search {value args} {
-    var o_data
-    #only search on values as it's possible for keys to match - especially with options such as -glob
-    set matches [lsearch {*}$args [dict values $o_data] $value]
-    
-    if {"-inline" in $args} {
-        return $matches 
-    } else {
-        set keylist [list]
-        foreach i $matches {
-            set idx [expr {(($i + 1) * 2) -2}]
-            lappend keylist [lindex $o_data $idx]
-        }
-        return $keylist
-    }
-}
-
-#inverse lookup 
-$COL .. PatternMethod itemKeys {value} {
-    var o_data
-    #only search on values as it's possible for keys to match
-    set value_indices [lsearch -all [dict values $o_data] $value]
-    
-    set keylist [list]
-    foreach i $value_indices {
-        set idx [expr {(($i + 1) * 2) -2}]
-        lappend keylist [lindex $o_data $idx]
-    }
-    return $keylist
-}
-
-#invert:
-#change collection to be indexed by its values with the old keys as new values.
-# - keys of duplicate values become a list keyed on the value.
-#e.g the array equivalent is:
-# arr(a) 1
-# arr(b) 2
-# arr(c) 2
-#becomes
-# inv(1) a
-# inv(2) {b c}
-#where the order of duplicate-value keys is not defined.
-#
-#As the total number of keys may change on inversion - order is not preserved if there are ANY duplicates.
-#
-
-
-#!todo - try just  [lreverse $o_data] ??
-
-
-$COL .. PatternMethod invert {{splitvalues ""}} {
-
-	var o_data o_count o_dupes o_inverted
-	
-
-	if {$splitvalues eq ""} {
-		#not overridden - use o_dupes from last call to determine if values are actually keylists.
-		if {$o_dupes > 0} {
-			set splitvalues 1
-		} else {
-			set splitvalues 0
-		}
-	}
-
-
-	#set data [array get o_array]
-	set data $o_data
-
-	if {$o_count > 500} {
-		#an arbitrary optimisation for 'larger' collections.
-		#- should theoretically keep the data size and save some reallocations.
-		#!todo - test & review
-		#
-		foreach nm [dict keys $o_data] {
-			dict unset o_data $nm
-		}
-	} else {
-		set o_data [dict create]
-	}
-	
-	if {!$splitvalues} {
-		dict for {k v} $data {
-			dict set o_data $v $k
-		}
-	} else {
-		dict for {k v} $data {
-			#we're splitting values because each value is a list of keys
-			#therefore sub should be unique - no need for lappend in this branch.
-			foreach sub $v {
-				#if {[info exists o_array($sub)]} {
-				#	puts stderr "---here! v:$v sub:$sub k:$k"
-				#	lappend o_array($sub) $k
-				#} else {
-					dict set o_data $sub $k
-				#}
-			}
-		}
-	}
-
-
-	if {[dict size $o_data] != $o_count} {
-		#must have been some dupes
-
-		set o_dupes [expr {$o_count - [dict size $o_data]}]
-		#update count to match inverted collection
-		set o_count [dict size $o_data]
-	} else {
-		set o_dupes 0
-	}
-
-	set o_inverted [expr {!$o_inverted}]
-
-	#'dupes' is the size difference - so 3 equal values in the original collection corresponds to '2 dupes'
-	return $o_dupes
-}
-
-
-
-
-
-
-#NOTE: values are treated as lists and split into separate keys for inversion only if requested!
-# To treat values as keylists - set splitvalues 1
-# To treat each value atomically - set splitvalues 0
-# i.e only set splitvalues 1 if you know the values represent duplicate keys from a previous call to invert!
-#
-#
-#Initially call invert with splitvalues = 0
-#To keep calling invert and get back where you started..
-# The rule is... if the previous call to invert returned > 0... pass 1 on the next call.
-#
-$COL .. PatternMethod invert_manual {{splitvalues 0}} {
-	#NOTE - the list nesting here is *tricky* - It probably isn't broken.
-
-	var o_list o_array o_count
-
-	set data [array get o_array]
-	
-	if {$o_count > 500} {
-		#an arbitrary optimisation for 'large' collections.
-		#- should theoretically keep the array size and save some reallocations.
-		#!todo - test & review
-		#
-		foreach nm [array names o_array] {
-			unset o_array($nm)
-		}
-	} else {
-		array unset o_array
-	}
-	
-	if {!$splitvalues} {
-		foreach {k v} $data {
-			lappend o_array($v) $k
-		}
-	} else {
-		foreach {k v} $data {
-			#we're splitting values because each value is a list of keys
-			#therefore sub should be unique - no need for lappend in this branch.
-			foreach sub $v {
-				#if {[info exists o_array($sub)]} {
-				#	puts stderr "---here! v:$v sub:$sub k:$k"
-				#	lappend o_array($sub) $k
-				#} else {
-					set o_array($sub) $k
-				#}
-			}
-		}
-	}
-
-
-	if {[array size o_array] != $o_count} {
-		#must have been some dupes
-		set o_list [array names o_array]
-
-
-		set dupes [expr {$o_count - [array size o_array]}]
-		#update count to match inverted collection
-		set o_count [array size o_array]
-	} else {
-		#review - are these machinations worthwhile for order preservation? what speed penalty do we pay?
-		array set prev $data
-		set i -1
-		if {$splitvalues} {
-			#values are lists of length one. Take lindex 0 so list values aren't overnested.
-			foreach oldkey $o_list {
-				lset o_list [incr i] [lindex $prev($oldkey) 0]
-			}
-		} else {
-			foreach oldkey $o_list {
-				lset o_list [incr i] $prev($oldkey)
-			}
-		}
-
-		set dupes 0
-	}
-
-
-	#'dupes' is the size difference - so 3 equal values in the original collection corresponds to '2 dupes'
-	return $dupes
-}
-
-
-
-#Note that collections cannot be inverted without loss of information if they have duplicates AND compound keys
-# (keys that are lists)
-$COL .. PatternMethod invert_lossy {{splitvalues 1}} {
-	var o_list o_array o_count
-
-	set data [array get o_array]
-	
-	if {$o_count > 500} {
-		#an arbitrary optimisation for 'large' collections.
-		#- should theoretically keep the array size and save some reallocations.
-		#!todo - test & review
-		#
-		foreach nm [array names o_array] {
-			unset o_array($nm)
-		}
-	} else {
-		array unset o_array
-	}
-	
-	if {!$splitvalues} {
-		foreach {k v} $data {
-			#note! we must check for existence and use 'set' for first case.
-			#using 'lappend' only will result in deeper nestings on each invert!
-			#If you don't understand this - don't change it!
-			if {[info exists o_array($v)]} {
-				lappend o_array($v) $k
-			} else {
-				set o_array($v) $k
-			}
-		}
-	} else {
-		foreach {k v} $data {
-			#length test necessary to avoid incorrect 'un-nesting'
-			#if {[llength $v] > 1} {
-				foreach sub $v {
-					if {[info exists o_array($sub)]} {
-						lappend o_array($sub) $k
-					} else {
-						set o_array($sub) $k
-					}
-				}
-			#} else {
-			#	if {[info exists o_array($v)]} {
-			#		lappend o_array($v) $k
-			#	} else {
-			#		set o_array($v) $k
-			#	}
-			#}
-		}
-	}
-
-
-	if {[array size o_array] != $o_count} {
-		#must have been some dupes
-		set o_list [array names o_array]
-
-
-		set dupes [expr {$o_count - [array size o_array]}]
-		#update count to match inverted collection
-		set o_count [array size o_array]
-	} else {
-		#review - are these machinations worthwhile for order preservation? what speed penalty do we pay?
-		array set prev $data
-		set i -1
-		foreach oldkey $o_list {
-			lset o_list [incr i] $prev($oldkey)
-		}
-		set dupes 0
-	}
-
-
-	#'dupes' is the size difference - so 3 equal values in the original collection corresponds to '2 dupes'
-	return $dupes
-}
-
-$COL .. PatternMethod reverse {} {
-	var o_data
-
-	set dictnew [dict create]
-	foreach k [lreverse [dict keys $o_data]] {
-		dict set dictnew $k [dict get $o_data $k]
-	}
-	set o_data $dictnew
-	return
-}
-
-$COL .. PatternMethod keySort {{options -ascii}} {
-	var o_data
-	
-	set keys [lsort {*}$options [dict keys $o_data]]
-
-	set dictnew [dict create]
-	foreach k $keys {
-		dict set dictnew $k [dict get $o_data $k]
-	}
-	set o_data $dictnew
-
-	return
-}
-
-#!todo - allow simple options in combination with options such as -command and -object.  Redo args handling completely for more complex sorting.
-$COL .. PatternMethod sort {args} {
-	var o_data
-
-	#defaults
-	set options [dict create -index 1] ;#values always in subelement 1 of name-value pair list for sorting. 
-
-	set options_simple [list]
-	
-
-	for {set i 0} {$i < [llength $args]} {incr i} {
-		set a [lindex $args $i]
-		switch --  $a {
-		-indices -
-		-ascii -
-		-dictionary -
-		-integer -
-		-real -
-		-increasing -
-		-decreasing {
-			#dict set options $a 1
-			lappend options_simple $a
-			}
-		-unique {
-			#not a valid option
-			#this would stuff up the data... 
-			#!todo? - remove dups from collection if this option used? - alias the keys?
-			}
-        -object {
-            #!todo - treat value as object and allow sorting by sub-values  .eg >col1 . sort -object ". sub . property" -increasing 
-            #may be slow - but handy.  Consider -indexed property to store/cache these values on first run 
-            }
-		-command {
-			dict set options $a [lindex $args [incr i]]
-			}
-		-index {
-			#allow sorting on subindices of the value.
-			dict set options -index [concat [dict get $options -index] [lindex $args [incr i]]  ]
-			}
-		default {
-			#unrecognised option - print usage?
-		}
-		}
-	}
-
-
-	
-	if {[set posn [lsearch -exact $options_simple "-indices"]] >= 0} {
-
-		var o_array
-
-		set slist [list]
-		foreach k [dict keys $o_data] {
-			lappend slist [list $k [dict get $o_data $k]]
-		}
-		return [lsort {*}$options_simple {*}$options $slist]
-
-
-
-		#set options_simple [lreplace $options_simple $posn $posn] ;#
-		#set slist [list]
-		#foreach {n v} [array get ::p::[lindex ${_ID_} 0 0]::o_array] {
-		#	lappend slist [list $n $v]	
-		#}
-		#set slist [lsort {*}$options_simple {*}$options $slist]
-		#foreach i $slist {
-		#	#determine the position in the collections list 
-		#	lappend result {*}[lsearch -exact $o_list [lindex $i 0]]
-		#}
-		#return $result
-	} else {	
-		set slist [list]
-		dict for {k v} $o_data {
-			lappend slist [list $k $v]	
-		}
-		#set slist [lsort {*}$options_simple {*}$options $slist]
-		set slist [lsort {*}$options_simple {*}$options $slist[set slist {}]]  ;#K combinator for efficiency
-
-		
-		#set o_list [lsearch -all -inline -subindices -index 0 $slist *]
-
-		set o_data [dict create]
-		foreach pair $slist {
-			dict set o_data [lindex $pair 0] [lindex $pair 1]
-		}
-	
-
-
-		return
-	}
-
-}
-
-
-$COL .. PatternMethod clear {} {
-	var o_data o_count
-	
-	set o_data [dict create]
-	set o_count 0
-    #aliases?
-	return
-}
-
-#see http://wiki.tcl.tk/15271 - A generic collection traversal interface
-#
-#!todo  - options: -progresscommand -errorcommand  (-granularity ?) (-self ? (to convert to an iterator?))
-#!todo? - lazy retrieval of items so that all changes to the collection are available to a running asynch enumeration?
-#		- should this be an option? which mechanism should be the default? 
-#		- currently only the keylist is treated in 'snapshot' fashion 
-#		  so values could be changed and the state could be invalidated by other code during an enumeration
-#
-$COL .. PatternMethod enumerate {args} {
-	#----------
-	lassign [lrange $args end-1 end] cmd seed
-	set optionlist [list]
-	foreach a [lrange $args 0 end-2] {
-		lappend optionlist $a
-	}
-	set opt(-direction) left
-	set opt(-completioncommand) ""
-	array set opt $optionlist
-	#----------
-	var o_data
-
-	if {[string tolower [string index $opt(-direction) 0]] eq "r"} {
-		#'right' 'RIGHT' 'r' etc.
-		set list [lreverse [dict keys $o_data]]
-	} else {
-		#normal left-right order
-		set list [dict keys $o_data]
-	}
-
-	if {![string length $opt(-completioncommand)]} {
-		#standard synchronous processing
-		foreach k $list {
-			set seed [uplevel #0 [list {*}$cmd $seed [dict get $o_data $k]]]
-		}
-		return $seed
-	} else {
-		#ASYNCHRONOUS enumeration 
-		var this o_bgEnum 
-		#!todo - make id unique
-		#!todo - facility to abort running enumeration.
-		set enumID enum[array size o_bgEnum]
-		
-		set seedvar [$this . bgEnum $enumID .]
-		set $seedvar $seed
-
-		after 0 [list $this . _doBackgroundEnum $enumID $list $cmd $seedvar $opt(-completioncommand)]
-		return $enumID
-	}
-}
-
-#!todo - make private? - put on a separate interface?
-$COL .. PatternMethod _doBackgroundEnum {enumID slice cmd seedvar completioncommand} {
-	var this o_data
-
-
-	#Note that we don't post to the eventqueue using 'foreach s $slice' 
-	# we only schedule another event after each item is processed 
-	# - otherwise we would be spamming the eventqueue with <collection . count> items.
-
-	#!todo? - accept a -granularity option to allow handling of n list-items per event?
-
-	if {[llength $slice]} {
-		set slice [lassign $slice head]
-
-		set script [string map [list %cmd% $cmd %seedvar% $seedvar %val% [dict get $o_data $head]] {
-				%cmd% [set %seedvar%] %val%
-		}]
-
-		#post to eventqueue and re-enter _doBackgroundEnum
-		#
-		after idle [list after 0 [subst {set $seedvar \[uplevel #0 [list $script] \]; $this . _doBackgroundEnum $enumID [list $slice] [list $cmd] $seedvar [list $completioncommand]}]]
-
-	} else {
-		#done.
-
-		set script [string map [list %cmd% $completioncommand %seedvar% $seedvar] {
-			lindex [list [%cmd% [set %seedvar%]] [unset %seedvar%]] 0
-		}]
-
-		after idle [list after 0 [list uplevel #0 $script]]
-	}
-
-	return
-}
-
-$COL .. PatternMethod enumeratorstate {} {
-	var o_bgEnum
-	parray o_bgEnum
-}
-
-#proc ::bgerror {args} {
-#	puts stderr "=bgerror===>$args"
-#}
-
-
-#map could be done in terms of the generic 'enumerate' method.. but it's slower.
-#
-#$PM map2 {proc} {
-#	var
-#	enumerate $_ID_ [list ::map-helper $proc] [list]
-#}
-#proc ::map-helper {proc accum item} {
-#	lappend accum [uplevel #0 [list {*}$proc $item]]
-#}
-
-$COL .. PatternMethod map {cmd} {
-	var o_data
-	set seed [list]
-	dict for {k v} $o_data {
-		lappend seed [uplevel #0 [list {*}$cmd $v]]
-	}
-
-	return $seed
-}
-$COL .. PatternMethod objectmap {cmd} {
-	var o_data
-	set seed [list]
-	dict for {k v} $o_data {
-		lappend seed [uplevel #0 [list $v {*}$cmd]]
-	}
-
-	return $seed
-}
-
-
-#End core collection functionality.
-#collection 'mixin' interfaces
-
->pattern .. Create >keyvalprotector 
->keyvalprotector .. PatternVariable o_protectedkeys
->keyvalprotector .. PatternVariable o_protectedvals
-
-#!todo - write test regarding errors in Constructors for mixins like this
-# - an error (e.g from bad args) can cause errors with vars after it's re-run with correct args
->keyvalprotector .. Constructor {args} {
-    var this  o_protectedkeys o_protectedvals
-    set this @this@
-    #----------------------------------------------------------------------------
-    set known_opts [list -keys -vals ] 
-    dict set default -keys [list]
-    dict set default -vals [list]
-    if {([llength $args] % 2) != 0} {
-        error "(>keyvalprotector .. Constructor) ERROR: uneven options supplied - must be of form '-option value' "
-    }
-    foreach {k v} $args {
-        if {$k ni $known_opts} {
-            error "(>keyvalprotector .. Constructor) ERROR: option '$k' not in known options: '$known_opts'"
-        }
-    }
-    set opts [dict merge $default $args]
-    set o_protectedkeys    [dict get $opts -keys]
-    set o_protectedvals    [dict get $opts -vals]
-    #----------------------------------------------------------------------------
-    set protections [concat $o_protectedkeys $o_protectedvals]
-    if {![llength $protections]} {
-        error "(>keyvalprotector .. Constructor) ERROR: must supply at least one argument to -vals or -keys"
-    }
-
-}
->keyvalprotector .. PatternMethod clear {} {
-    error "(>keyvalprotector . clear) ERROR:  This collection is protected by a >keyvalprotector mixin. Cannot clear"
-}
->keyvalprotector .. PatternMethod pop {{idx ""}} {
-    var o_data o_count o_protectedkeys o_protectedvals
-
-    if {$idx eq ""} {
-        set key [lindex [dict keys $o_data] end]
-    } else {
-        if {[string is integer -strict $idx]} {
-            set key [lindex [dict keys $o_data] $idx]
-        } else {
-            set key $idx
-        }
-    }
-
-    if {$key in $o_protectedkeys} {
-        error "(>keyvalprotector . pop) ERROR: Cannot pop object with index '$idx', key '$key' from collection."
-    }
-    set posn [lsearch -exact [dict keys $o_data] $key]
-    if {($posn >= 0) && ($posn < [dict size $o_data])} {
-        set result [dict get $o_data $key]
-        if {$result in $o_protectedvals} {
-            error "(>keyvalprotector . pop) ERROR: Cannot pop object '$result' with index '$idx', key '$key' from collection."
-        }
-        dict unset o_data $key
-        set o_count [dict size $o_data]
-        return $result
-    } else {
-        error "no such index: '$idx'"
-    }
-
-}
->keyvalprotector .. PatternMethod remove {idx {endRange ""}} {
-    var this o_data o_count o_alias o_protectedkeys o_protectedvals
-
-    if {[string length $endRange]} {
-        error "ranged removal not yet implemented.. remove one item at a time."
-    }
-
-    if {[string is integer -strict $idx]} {
-        if {$idx < 0} {
-            set idx "end-[expr {abs($idx + 1)}]"
-        }
-        set key [lindex [dict keys $o_data] $idx]
-        if {$key in $o_protectedkeys} {
-            error "(>keyvalprotector . remove) ERROR: cannot remove item with index '$idx' key '$key' from collection"
-        }
-        set posn $idx
-    } else {
-        set key $idx
-        set posn [lsearch -exact [dict keys $o_data] $key]
-        if {$posn < 0} {
-            if {[catch {set o_alias($key)} nextKey]} {
-                error "no such index: '$idx' in collection: $this"
-            } else {
-                if {$key in $o_protectedkeys} {
-                    error "(>keyvalprotector . remove) ERROR: cannot remove item with index '$idx' from collection"
-                }
-                #try with next key in alias chain...
-                #return [remove $_ID_ $nextKey]
-                tailcall remove $_ID_ $nextKey
-            }
-        }
-    }
-
-    dict unset o_data $key
-
-    set o_count [dict size $o_data]
-    return
-}
-
-#1)
-#predicate methods (order preserving)
-#usage: 
-# >collection .. Create >c1
-# >predicatedCollection .. Create >c1   ;#overlay predicate methods on existing collection
-
-#e.g  >col1 . all {$val > 14}
-#e.g  >col1 . filterToCollection {$val > 19} . count
-#e.g  >col1 . filter {[string match "x*" $key]}
-#!todo - fix. currying fails..
-
-::>pattern .. Create >predicatedCollection
-#process_pattern_aliases ::patternlib::>predicatedCollection
-
-set PM  [>predicatedCollection .. PatternMethod .]
-
->predicatedCollection .. PatternMethod filter {predicate} {
-	var this o_list o_array
-	set result [list]
-	
-	#!note (jmn 2004) how could we do smart filtering based on $posn?
-	#i.e it would make sense to lrange $o_list based on $posn... 
-	#but what about complicated expressions where $posn is a set of ranges and/or combined with tests on $key & $val ??
-	#Seems better to provide an alternative efficient means of generating subcolllections/ranges to perform predicate operations upon.
-	#given this, is $posn even useful?
-	
-	set posn 0
-	foreach key $o_list {
-		set val $o_array($key)
-		if $predicate {
-			lappend result $val
-		}
-		incr posn
-	}
-	set result
-}
->predicatedCollection .. PatternMethod filterToKeys {predicate} {
-	var this o_list o_array
-	set result [list]
-	
-	set posn 0
-	foreach key $o_list {
-		set val $o_array($key)
-		if $predicate {
-			lappend result $key
-		}
-		incr posn
-	}
-	set result
-}
->predicatedCollection .. PatternMethod filterToCollection {predicate {destCollection {}}} {
-	#!todo - collection not in subordinate namespace? -> if subordinate, should imply modification of sub's contents will be reflected in parent?
-	#!todo - implement as 'view' on current collection object.. extra o_list variables?
-	#!todo - review/document 'expected' key collision behaviour - source keys used as dest keys.. -autokey option required? 
-	var this o_list o_array m_i_filteredCollection
-	
-	incr m_i_filteredCollection
-	if {![string length $destCollection]} {
-		#!todo? - implement 'one-shot' object (similar to RaTcl)
-		set result [::patternlib::>collection .. Create [$this .. Namespace]::>filteredCollection-$m_i_filteredCollection]
-	} else {
-		set result $destCollection
-	}
-
-	####
-	#externally manipulate new collection
-	#set ADD [$c . add .]
-	#foreach key  $o_list {
-	#	set val $o_array($key)
-	#	if $predicate {
-	#		$ADD $val $key
-	#	}
-	#}
-	###
-	
-	#internal manipulation faster
-	#set cID [lindex [set $result] 0]
-	set cID [lindex [$result --] 0]
-
-	#use list to get keys so as to preserve order
-	set posn 0
-	upvar #0 ::p::${cID}::o_array cARRAY ::p::${cID}::o_list cLIST
-	foreach key $o_list {
-		set val $o_array($key)
-		if $predicate {	
-			if {[info exists cARRAY($key)]} {
-				error "key '$key' already exists in this collection"
-			}
-			lappend cLIST $key
-			set cARRAY($key) $val
-		}
-		incr posn
-	}
-	
-	return $result
-}
-
-#NOTE! unbraced expr/if statements. We want to evaluate the predicate.
->predicatedCollection .. PatternMethod any {predicate} {
-	var this o_list o_array
-	set posn 0
-	foreach key $o_list {
-		set val $o_array($key)
-		if $predicate {
-			return 1
-		}
-		incr posn
-	}
-	return 0
-}
->predicatedCollection .. PatternMethod all {predicate} {
-	var this o_list o_array
-	set posn 0
-	foreach key $o_list {
-		set val $o_array($key)
-        if !($predicate) {
-			return 0
-		}
-		incr posn
-	}
-	return 1
-}
->predicatedCollection .. PatternMethod dropWhile {predicate} {
-	var this o_list o_array
-	set result [list]
-	set _idx 0
-	set posn 0
-	foreach key $o_list {
-		set val $o_array($key)
-		if $predicate {
-			incr _idx
-		} else {
-			break
-		}
-		incr posn
-	}
-	set remaining [lrange $o_list $_idx end]
-	foreach key $remaining {
-		set val $o_array($key)
-		lappend result $val
-	}
-	return $result
-}
->predicatedCollection .. PatternMethod takeWhile {predicate} {
-	var this o_list o_array
-	set result [list]
-	set posn 0
-	foreach key $o_list {
-		set val $o_array($key)
-		if $predicate {
-			lappend result $val
-		} else {
-			break
-		}
-		incr posn
-	}
-	set result
-}
-
-
-
-#end >collection mixins
-######################################
-
-
-
-
-#-----------------------------------------------------------
-#!TODO - methods for converting an arrayHandle to & from a hashMap efficiently?
-# Why do we need both? apart from the size variable, what is the use of hashMap?
-#-----------------------------------------------------------
-#::pattern::create >hashMap 
-::>pattern .. Create >hashMap
-
->hashMap .. PatternVariable o_size
->hashMap .. PatternVariable o_array
-
->hashMap .. Constructor {args} {
-    var o_array o_size
-    array set o_array [list]
-    set o_size 0
-}
->hashMap .. PatternDefaultMethod "item"
->hashMap .. PatternMethod item {key} {
-    var o_array
-    set o_array($key)
-}
->hashMap .. PatternMethod items {} {
-    var o_array
-
-    set result [list]
-    foreach nm [array names o_array] {
-        lappend result $o_array($nm)
-    }
-    return $result
-}
->hashMap .. PatternMethod pairs {} {
-    var o_array
-
-    array get o_array
-}
->hashMap .. PatternMethod add {val key} {
-    var o_array o_size
-
-    set o_array($key) $val
-    incr o_size
-    return $key	
-}
-
->hashMap .. PatternMethod del {key} {
-    var 
-    puts stderr "warning: 'del' method of >hashMap deprecated. Use 'remove' instead."
-    remove $_ID_ $key
-}
->hashMap .. PatternMethod remove {key} {
-    var o_array o_size
-    unset o_array($key)
-    incr o_size -1
-    return $key
-}
->hashMap .. PatternMethod count {} {
-    var o_size
-    #array size o_array
-    return $o_size
-}
->hashMap .. PatternMethod count2 {} {
-    var o_array
-    #array size o_array ;#slow, at least for TCLv8.4.4
-    #even array statistics is faster than array size !
-    #e.g return [lindex [array statistics o_array] 0]
-    #but.. apparently there are circumstances where array statistics doesn't report the correct size. 
-    return [array size o_array]
-}
->hashMap .. PatternMethod names {} {
-    var o_array
-    array names o_array
-}
->hashMap .. PatternMethod keys {} {
-    #synonym for names
-    var o_array
-    array names o_array
-}
->hashMap .. PatternMethod hasKey {key} {
-    var o_array
-    return [info exists o_array($key)]
-}
->hashMap .. PatternMethod clear {} {
-    var o_array o_size
-    unset o_array
-    set o_size 0
-    return
-}
-#>hashMap .. Ready 1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#explicitly create metadata. Not required for user-defined patterns. 
-# this is only done here because this object is used for the metadata of all objects
-# so the object must have all it's methods/props before its own metadata structure can be built.
-#uplevel 1 "::pattern::object ::pattern::>_nullMeta createMetadata >collection"
-#uplevel 1 "::patternlib::>collection .. CreateMetadata ::patternlib::>collection"
-
-
-
-
-if 0 {
-
-
-#-----------------------------------------------------------
-#::pattern::create >arrayHandle {
-#	variable o_arrayName
-#	variable this
-#}
-::>pattern .. Create >arrayHandle
-
->arrayHandle .. PatternVariable o_arrayName
->arrayHandle .. PatternVariable this
-
->arrayHandle .. Constructor {args} {
-	var o_arrayName this
-	set this @this@
-	
-	
-	set o_arrayName [$this .. Namespace]::array
-
-	upvar #0 $o_arrayName $this
-	#? how to automatically update this after a namespace import?
-		
-	array set $o_arrayName [list]
-	
-}
->arrayHandle .. PatternMethod array {} {
-	var o_arrayName
-	return $o_arrayName
-}
-
-#-------------------------------------------------------
-#---- some experiments
->arrayHandle .. PatternMethod up {varname} {
-	var o_arrayName
-	
-	#is it dodgy to hard-code the calling depth?
-	#will it be different for different object systems?
-	#Will it even be consistent for the same object.
-	# Is this method necessary anyway? -
-	# - users can always instead do:
-	# upvar #0 [>instance . array] var
-	
-	uplevel 3 [list upvar 0 $o_arrayName $varname]
-	
-	return
-}
->arrayHandle .. PatternMethod global {varname} {
-	var o_arrayName
-	# upvar #0 [>instance . array] var
-	
-	if {![string match ::* $varname]} {
-		set varname ::$varname
-	}
-	
-	upvar #0 $o_arrayName $varname
-	
-	return
-}
->arrayHandle .. PatternMethod depth {} {
-	var o_arrayName
-	#
-	for {set i 0} {$i < [info level]} {
-		puts "${i}: [uplevel $i [list namespace current] , [info level $i]]"
-	}
-	
-}
- # --------------------------------------------
-
-
->arrayHandle .. PatternMethod item {key} {
-	var o_arrayName
-	set ${o_arrayName}($key)
-}
->arrayHandle .. PatternMethod items {} {
-	var o_arrayName
-	
-	set result [list]
-	foreach nm [array names $o_arrayName] {
-		lappend result [set ${o_arrayName}($nm)]
-	}
-	return $result
-}
->arrayHandle .. PatternMethod pairs {} {
-	var o_arrayName
-	
-	array get $o_arrayName
-}
->arrayHandle .. PatternMethod add {val key} {
-	var o_arrayName 
-	
-	set ${o_arrayName}($key) $val
-	return $key	
-}
->arrayHandle .. PatternMethod del {key} {
-	puts stderr "Warning: 'del' method of >arrayHandle deprecated. Use 'remove' instead."
-	remove $_ID_ $key
-}
->arrayHandle .. PatternMethod remove {key} {
-	var o_arrayName 
-	unset ${o_arrayName}($key)
-	return $key
-}
->arrayHandle .. PatternMethod size {} {
-	var o_arrayName
-	return [array size $o_arrayName]
-}
->arrayHandle .. PatternMethod count {} {
-	#alias for size
-	var o_arrayName
-	return [array size $o_arrayName]
-}
->arrayHandle .. PatternMethod statistics {} {
-	var o_arrayName
-	return [array statistics $o_arrayName]
-}
->arrayHandle .. PatternMethod names {} {
-	var o_arrayName
-	array names $o_arrayName
-}
->arrayHandle .. PatternMethod keys {} {
-	#synonym for names
-	var o_arrayName
-	array names $o_arrayName
-}
->arrayHandle .. PatternMethod hasKey {key} {
-	var o_arrayName
-		
-	return [info exists ${o_arrayName}($key)]
-}
->arrayHandle .. PatternMethod clear {} {
-	var o_arrayName
-	unset $o_arrayName
-	array set $o_arrayName [list]
-	
-	return
-}
-#>arrayHandle .. Ready 1
-
-
-
-
-::>pattern .. Create >matrix
-
->matrix .. PatternVariable o_array
->matrix .. PatternVariable o_size
-
->matrix .. Constructor {args} {
-    var o_array o_size
-
-    array set o_array [list]
-    set o_size 0
-}
-
-
-#process_pattern_aliases ::patternlib::>matrix 
-
-set PM [>matrix .. PatternMethod .]
-
->matrix .. PatternMethod item {args} {
-    var o_array 
-
-    if {![llength $args]} {
-        error "indices required"
-    } else {
-        
-    }
-    if [info exists o_array($args)] {
-        return $o_array($args)
-    } else {
-        error "no such index: '$args'"
-    }
-}
->matrix .. PatternMethod items {} {
-    var o_array
-
-    set result [list]
-    foreach nm [array names o_array] {
-        lappend result $o_array($nm)
-    }
-    return $result
-}
->matrix .. PatternMethod pairs {} {
-	var o_array
-	
-	array get o_array
-}
->matrix .. PatternMethod slice {args} {
-	var o_array
-	
-	if {"*" ni $args} {
-		lappend args *
-	}
-	
-	array get o_array $args
-}
->matrix .. PatternMethod add {val args} {
-	var o_array o_size
-
-	if {![llength $args]} {
-		error "indices required"
-	}
-	
-	set o_array($args) $val	
-	incr o_size
-	
-	#return [array size o_array]
-	return $o_size
-}
->matrix .. PatternMethod names {} {
-	var o_array
-	array names o_array
-}
->matrix .. PatternMethod keys {} {
-	#synonym for names
-	var o_array
-	array names o_array
-}
->matrix .. PatternMethod hasKey {args} {
-	var o_array
-		
-	return [info exists o_array($args)]
-}
->matrix .. PatternMethod clear {} {
-	var o_array o_size
-	unset o_array
-	set o_size 0
-	return
-}
->matrix .. PatternMethod count {} {
-	var o_size
-	return $o_size
-}
->matrix .. PatternMethod count2 {} {
-	var o_array
-	#see comments for >hashMap count2
-	return [array size o_array]
-}
-#>matrix .. Ready 1
-
-#--------------------------------------------------------
-#tree data structure (based *loosely* on API at http://www.msen.com/%7Eclif/treeNobj.html  - discussed in Clif Flynts book Tcl programming)
-#!todo - compare API to http://tcllib.sourceforge.net/doc/tree.html
-#!todo - create an >itree (inheritance tree) where node data is readable/writable on children unless overridden.
-::>pattern .. Create >tree
-
-set _NODE [::>pattern .. Create [>tree .. Namespace]::>node]
-set _TREE_NODE $_NODE
-#process_pattern_aliases $_TREE_NODE
-
-$_NODE .. PatternVariable o_treens ;#tree namespace
-$_NODE .. PatternVariable o_idref
-$_NODE .. PatternVariable o_nodePrototype
-
-#$_NODE .. PatternProperty data
-$_NODE .. PatternProperty info
-
-$_NODE .. PatternProperty tree
-$_NODE .. PatternProperty parent
-$_NODE .. PatternProperty children
-$_NODE .. PatternMethod addNode {} {
-	set nd_id [incr $o_idref]
-	set nd [$o_nodePrototype .. Create ${o_treens}::>n-$nd_id -tree $o_tree -parent @this@]
-	@this@ . add $nd n-$nd_id
-
-	return n-$nd_id
-}
-#flat list of all nodes below this
-#!todo - something else? ad-hoc collections?
-#!todo - non-recursive version? tail-call opt?
-$_NODE .. PatternMethod nodes {} {
-	set result [list]
-
-	#use(abuse?) our knowledge of >collection internals
-	foreach n $o_list {
-		#eval lappend result $n [$o_array($n) . nodes]
-		#!todo - test
-		lappend result $n {*}[$o_array($n) . nodes]
-	}
-	return $result
-}
-#count of number of descendants
-#!todo - non-recursive version? tail-call opt?
-$_NODE .. PatternMethod size {} {
-	set result 0
-	#use(abuse?) our knowledge of >collection internals
-	foreach n $o_list {
-		incr result [expr {1 + [$o_array($n) . size]}]
-	}
-	return $result
-}
-$_NODE .. PatternMethod isLeaf {} {
-	#!todo - way to stop unused vars being uplevelled?
-	var o_tree 
-
-	#tailcall isEmpty $_ID_  ;#fails. because isEmpty is from >collection interface - so different ns?
-	tailcall [@this@ . isEmpty .]
-}
-$_NODE .. Constructor {args} {
-	array set A $args
-
-	set o_tree	$A(-tree)
-	set o_parent	$A(-parent)
-
-	#array set o_data [list]
-	array set o_info [list]
-
-	set o_nodePrototype [::patternlib::>tree .. Namespace]::>node
-	set o_idref [$o_tree . nodeID .]
-	set o_treens [$o_tree .. Namespace]
-	#set o_children [::patternlib::>collection .. Create [@this@ .. Namespace]::>children]
-
-	#overlay children collection directly on the node
-	set o_children [::patternlib::>collection .. Create @this@]
-
-	return
-}
-
->tree .. PatternProperty test blah
->tree .. PatternProperty nodeID 0  ;#public only so node can access.. need 'friend' concept?
->tree .. PatternVariable o_ns
->tree .. Constructor {args} {
-    set o_ns [@this@ .. Namespace]
-
-    #>tree is itself also a node (root node)
-    #overlay new 'root' node onto existing tree, pass tree to constructor
-    [::patternlib::>tree .. Namespace]::>node .. Create @this@ -tree @this@ -parent "" 
-}
-
-
-
-
-unset _NODE
-
-
-
-
-#--------------------------------------------------------
-#a basic binary search tree experiment
-# - todo - 'scheme' property to change behaviour? e.g balanced tree
-::>pattern .. Create >bst
-#process_pattern_aliases ::patternlib::>bst
->bst .. PatternVariable o_NS		;#namespace
->bst .. PatternVariable o_this		;#namespace
->bst .. PatternVariable o_nodeID
-
->bst .. PatternProperty root ""
->bst .. Constructor {args} {
-	set o_this @this@
-	set o_NS [$o_this .. Namespace]
-	namespace eval ${o_NS}::nodes {}
-	puts stdout ">bst constructor"
-	set o_nodeID 0
-}
->bst .. PatternMethod insert {key args} {
-	set newnode [::patternlib::>bstnode .. Create ${o_NS}::nodes::>n-[incr o_nodeID]]
-	set [$newnode . key .] $key
-	if {[llength $args]} {
-		set [$newnode . value .] $args
-	}
-	if {![string length $o_root]} {
-		set o_root $newnode
-		set [$newnode . parent .] $o_this
-	} else {
-		set ipoint {}			;#insertion point
-		set tpoint $o_root		;#test point
-		set side {}
-		while {[string length $tpoint]} {
-			set ipoint $tpoint
-			if {[$newnode . key] < [$tpoint . key]} {
-				set tpoint [$tpoint . left]
-				set side left
-			} else {
-				set tpoint [$tpoint . right]
-				set side right
-			}
-		}
-		set [$newnode . parent .] $ipoint
-		set [$ipoint . $side .] $newnode
-	}
-	return $newnode
-}
->bst .. PatternMethod item {key} {
-	if {![string length $o_root]} {
-		error "item $key not found"
-	} else {
-		set tpoint $o_root
-		while {[string length $tpoint]} {
-			if {[$tpoint . key] eq $key} {
-				return $tpoint
-			} else {	
-				if {$key < [$tpoint . key]} {
-					set tpoint [$tpoint . left]
-				} else {	
-					set tpoint [$tpoint . right]
-				}
-			}
-		}
-		error "item $key not found"
-	}
-}
->bst .. PatternMethod inorder-walk {} {
-	if {[string length $o_root]} {
-		$o_root . inorder-walk
-	}
-	puts {}
-}
->bst .. PatternMethod view {} {
-	array set result [list]
-	
-	if {[string length $o_root]} {
-		array set result [$o_root . view 0 [list]]
-	}
-	
-	foreach depth [lsort [array names result]] {
-		puts "$depth: $result($depth)"
-	}
-	
-}
-::>pattern .. Create >bstnode
-#process_pattern_aliases ::patternlib::>bstnode
->bstnode .. PatternProperty parent
->bstnode .. PatternProperty left	""
->bstnode .. PatternProperty right	""
->bstnode .. PatternProperty key
->bstnode .. PatternProperty value
-
->bstnode .. PatternMethod inorder-walk {} {
-	if {[string length $o_left]} {
-		$o_left . inorder-walk
-	}
-
-	puts -nonewline "$o_key "
-
-	if {[string length $o_right]} {
-		$o_right . inorder-walk
-	}
-	
-	return
-}
->bstnode .. PatternMethod  view {depth state} {
-	#!todo - show more useful representation of structure 
-	set lower [incr depth]
-	
-	if {[string length $o_left]} {
-		set state [$o_left . view $lower $state]
-	}
-
-	if {[string length $o_right]} {
-		set state [$o_right . view $lower $state]
-	}
-
-		
-	array set s $state
-	lappend s($depth) $o_key
-
-	return [array get s]
-}
-
-
-#--------------------------------------------------------
-#::pattern::create ::pattern::>metaObject 
-#::pattern::>metaObject PatternProperty methods
-#::pattern::>metaObject PatternProperty properties
-#::pattern::>metaObject PatternProperty PatternMethods
-#::pattern::>metaObject PatternProperty patternProperties
-#::pattern::>metaObject Constructor args {
-#	set this @this@
-#		
-#	set [$this . methods .]				[::>collection create [$this namespace]::methods]
-#	set [$this . properties .]			[::>collection create [$this namespace]::properties]
-#	set [$this . PatternMethods .]		[::>collection create [$this namespace]::PatternMethods]
-#	set [$this . patternProperties .]	[::>collection create [$this namespace]::patternProperties]
-#	 
-#}
-
-
-
-	#tidy up
-	unset PV
-	unset PM
-
-
-
-#--------------------------------------------------------
-::>pattern .. Create >enum
-#process_pattern_aliases ::patternlib::>enum
->enum .. PatternMethod item {{idx 0}} {
-	var o_array o_list
-	
-	if {[string is integer -strict $idx]} {
-		if {$idx < 0} {
-			set idx "end-[expr {abs($idx + 1)}]"
-		}
-		if {[catch {set o_array([lindex $o_list $idx])} result]} {
-			error "no such index : '$idx'"
-		} else {
-			return $result	
-		}
-	} else {
-		if {[catch {set o_array($idx)} result]} {
-			error "no such index: '$idx'"
-		} else {
-			return $result	
-		}
-	}
-}
-
-
-
-#proc makeenum {type identifiers} {
-#	#!!todo - make generated procs import into whatever current system context?
-#
-#    upvar #0 wbpbenum_${type}_number a1 wbpbenum_number_${type} a2
-#
-#    #obliterate any previous enum for this type
-#    catch {unset a1}
-#    catch {unset a2}
-#
-#     set n 0
-#     foreach id $identifiers {
-#	 	set a1($id) $n
-#	 	set a2($n) $id
-#	 incr n
-#     }
-#     proc ::${type}_to_number key [string map [list @type@ $type] {
-#		 upvar #0 wbpbenum_@type@_number ary
-#		 if {[catch {set ary($key)} num]} {
-#		     return -code error "unknown @type@ '$key'"
-#		 }
-#		 return $num
-#     }]
-#	    
-#     proc ::number_to_${type} {number} [string map [list @type@ $type] {
-#	 	upvar #0 wbpbenum_number_@type@ ary
-#		 if {[catch {set ary($number)} @type@]} {
-#		     return -code error "no @type@ for '$number'"
-#		 }
-#		 return $@type@
-#     }]
-#     
-#     #eval "namespace eval ::sysnexus {namespace export number_to_${type}; namespace export ${type}_to_number}"
-#     #eval "namespace eval :: {namespace import -force sysnexus::number_to_${type} sysnexus::${type}_to_number}"
-#}
-#
-#--------------------------------------------------------
-::>pattern .. Create >nest
->nest .. PatternVariable THIS
->nest .. PatternProperty data -autoclone
->nest .. Constructor {args} {
-    var o_data 
-    var THIS
-    set THIS @this@
-    array set o_data [list]
-}
->nest .. PatternMethod item {args} {
-    set THIS @this@
-    return [$THIS . data [join $args ,]]
-}
-
-# 
-# e.g 
-#	set [>nest a , b . data c .] blah
-#	>nest a , b , c
-#
-#	set [>nest w x , y . data z .] etc
-#	>nest w x , y , z
-#--------------------------------------------------------
-
-}
-
-}
-
-
-#package require patternlibtemp
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patternpredator2-1.2.4.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patternpredator2-1.2.4.tm
deleted file mode 100644
index 680ea88f..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/patternpredator2-1.2.4.tm
+++ /dev/null
@@ -1,754 +0,0 @@
-package provide patternpredator2 1.2.4
-
-proc ::p::internals::jaws {OID _ID_ args} {
-    #puts stderr ">>>(patternpredator2 lib)jaws called with _ID_:$_ID_ args: $args"
-    #set OID [lindex [dict get $_ID_ i this] 0 0] ;#get_oid
-   
-    yield
-    set w 1
-
-    set stack [list]
-    set wordcount [llength $args]
-    set terminals [list . .. , # @ !] ;#tokens which require the current stack to be evaluated first
-    set unsupported 0
-    set operator ""
-    set operator_prev "" ;#used only by argprotect to revert to previous operator 
-
-
-    if {$OID ne "null"} {
-        #!DO NOT use upvar here for MAP! (calling set on a MAP in another iteration/call will overwrite a map for another object!)
-        #upvar #0 ::p::${OID}::_meta::map MAP
-        set MAP [set ::p::${OID}::_meta::map]
-    } else {
-        #	error "jaws - OID = 'null' ???"
-        set MAP [list invocantdata [lindex [dict get $_ID_ i this] 0] ] ;#MAP taken from _ID_ will be missing 'interfaces' key
-    }
-    set invocantdata [dict get $MAP invocantdata]
-    lassign $invocantdata OID alias default_method object_command wrapped
-                
-    set finished_args 0 ;#whether we've completely processed all args in the while loop and therefor don't need to peform the final word processing code
-
-    #don't use 'foreach word $args' - we sometimes need to backtrack a little by manipulating $w
-    while {$w < $wordcount} {        
-        set word [lindex $args [expr {$w -1}]]
-        #puts stdout "w:$w word:$word stack:$stack"
-
-        if {$operator eq "argprotect"} {
-            set operator $operator_prev
-            lappend stack $word
-            incr w
-        } else {
-            if {[llength $stack]} {
-                if {$word in $terminals} {
-                    set reduction [list 0 $_ID_ {*}$stack ]
-                    #puts stderr ">>>jaws yielding value: $reduction triggered by word $word in position:$w"
-                    
-                    
-                    set _ID_ [yield $reduction]
-                    set stack [list]
-                    #set OID [::pattern::get_oid $_ID_]
-                    set OID [lindex [dict get $_ID_ i this] 0 0] ;#get_oid
-
-                    if {$OID ne "null"} {
-                        set MAP [set ::p::${OID}::_meta::map] ;#Do not use upvar here!
-                    } else {
-                        set MAP [list invocantdata [lindex [dict get $_ID_ i this] 0] interfaces [list level0 {} level1 {}]]
-                        #puts stderr "WARNING REVIEW: jaws-branch - leave empty??????"
-                    }
-                    
-                    #review - 2018. switched to _ID_ instead of MAP
-                    lassign [lindex [dict get $_ID_ i this] 0] OID alias default_method object_command
-                    #lassign [dict get $MAP invocantdata] OID alias default_method object_command
-
-                    
-                    #puts stdout "---->>> yielded _ID_: $_ID_   OID:$OID alias:$alias default_method:$default_method object_command:$object_command"
-                    set operator $word
-                    #don't incr w
-                    #incr w
-                } else {
-                    if {$operator eq "argprotect"} {
-                        set operator $operator_prev
-                        set operator_prev ""
-                        lappend stack $word
-                    } else {
-                        #only look for leading argprotect chacter (-) if we're not already in argprotect mode
-                        if {$word eq "--"} {
-                            set operator_prev $operator
-                            set operator "argprotect"
-                            #Don't add the plain argprotector to the stack
-                        } elseif {[string match "-*" $word]} {
-                            #argSafety operator  (tokens that appear to be Tcl 'options' automatically 'protect' the subsequent argument)
-                            set operator_prev $operator
-                            set operator "argprotect"
-                            lappend stack $word
-                        } else {
-                            lappend stack $word
-                        }
-                    }
-
-                
-                    incr w
-                }
-            } else {
-                #no stack
-                switch -- $word {.} {
-                    
-                    if {$OID ne "null"} {
-                        #we know next word is a property or method of a pattern object
-                        incr w
-                        set nextword [lindex $args [expr {$w - 1}]]
-                        set command ::p::${OID}::$nextword   
-                        set stack [list $command] ;#2018 j
-                        set operator .
-                        if {$w eq $wordcount} {
-                            set finished_args 1
-                        }
-                    } else {
-                        # don't incr w 
-                        #set nextword [lindex $args [expr {$w - 1}]]
-                        set command $object_command  ;#taken from the MAP
-                        set stack [list "_exec_" $command]
-                        set operator .
-                    }
-                    
-            
-                } {..} {
-                    incr w
-                    set nextword [lindex $args [expr {$w -1}]]
-                    set command ::p::-1::$nextword
-                    #lappend stack $command ;#lappend a small number of items to an empty list is slower than just setting the list.
-                    set stack [list $command]  ;#faster, and intent is clearer than lappend.
-                    set operator ..
-                    if {$w eq $wordcount} {
-                        set finished_args 1
-                    }
-                } {,} {
-                    #puts stdout "Stackless comma!"
-                
-                
-                    if {$OID ne "null"} {
-                        set command ::p::${OID}::$default_method
-                    } else {
-                        set command [list $default_method $object_command]
-                        #object_command in this instance presumably be a list and $default_method a list operation
-                        #e.g "lindex {A B C}"
-                    }
-                    #lappend stack $command
-                    set stack [list $command]
-                    set operator ,
-                } {--} {
-                    set operator_prev $operator
-                    set operator argprotect
-                    #no stack - 
-                } {!} {
-                    set command $object_command
-                    set stack [list "_exec_" $object_command]
-                    #puts stdout "!!!! !!!! $stack"
-                    set operator !
-                } default {
-                    if {$operator eq ""} {
-                        if {$OID ne "null"} {
-                            set command ::p::${OID}::$default_method
-                        } else {
-                            set command [list $default_method $object_command]
-                        }
-                        set stack [list $command]
-                        set operator ,
-                        lappend stack $word
-                    } else {
-                        #no stack - so we don't expect to be in argprotect mode already.
-                        if {[string match "-*" $word]} {
-                            #argSafety operator  (tokens that appear to be Tcl 'options' automatically 'protect' the subsequent argument)
-                            set operator_prev $operator
-                            set operator "argprotect"
-                            lappend stack $word
-                        } else {
-                            lappend stack $word
-                        }
-                        
-                    }
-                }
-                incr w
-            }
-            
-        }
-    } ;#end while
-
-    #process final word outside of loop
-    #assert $w == $wordcount
-    #trailing operators or last argument
-    if {!$finished_args} {
-        set word [lindex $args [expr {$w -1}]]
-        if {$operator eq "argprotect"} {
-                set operator $operator_prev
-                set operator_prev ""
-                
-                lappend stack $word
-                incr w
-        } else {
-
-            
-            switch -- $word {.} {
-                 if {![llength $stack]} {
-                    #set stack [list "_result_" [::p::internals::ref_to_object $_ID_]]
-                    yieldto return [::p::internals::ref_to_object $_ID_]
-                    error "assert: never gets here"
-                    
-                 } else {
-                    #puts stdout "==== $stack"
-                    #assert - whenever _ID_ changed in this proc - we have updated the $OID variable
-                    yieldto return [::p::internals::ref_to_stack $OID $_ID_ $stack]
-                    error "assert: never gets here"
-                 }
-                 set operator .
-                 
-            } {..} {
-                #trailing .. after chained call   e.g >x . item 0 ..
-                #puts stdout "$$$$$$$$$$$$ [list 0 $_ID_ {*}$stack] $$$$"
-                #set reduction [list 0 $_ID_ {*}$stack]
-                yieldto return [yield [list 0 $_ID_ {*}$stack]]
-            } {#} {
-                set unsupported 1
-            } {,} {
-                set unsupported 1
-            } {&} {
-                set unsupported 1
-            } {@} {
-                set unsupported 1
-            } {--} {
-                
-                #set reduction [list 0 $_ID_ {*}$stack[set stack [list]]]
-                #puts stdout " -> -> -> about to call yield $reduction <- <- <-"
-                set _ID_ [yield [list 0 $_ID_ {*}$stack[set stack [list]]] ]
-                #set OID [::pattern::get_oid $_ID_]
-                set OID [lindex [dict get $_ID_ i this] 0 0] ;#get_oid
-
-                if {$OID ne "null"} {
-                    set MAP [set ::p::${OID}::_meta::map] ;#DO not use upvar here!
-                } else {
-                    set MAP [list invocantdata [lindex [dict get $_ID_ i this] 0] interfaces {level0 {} level1 {}} ]
-                }
-                yieldto return $MAP
-            } {!} {
-                #error "untested branch"
-                set _ID_ [yield [list 0 $_ID_ {*}$stack[set stack [list]]]]
-                #set OID [::pattern::get_oid $_ID_]
-                set OID [lindex [dict get $_ID_ i this] 0 0] ;#get_oid
-
-                if {$OID ne "null"} {
-                    set MAP [set ::p::${OID}::_meta::map] ;#DO not use upvar here!
-                } else {
-                    set MAP [list invocantdata [lindex [dict get $_ID_ i this] 0] ]
-                }
-                lassign [dict get $MAP invocantdata] OID alias default_command object_command	
-                set command $object_command
-                set stack [list "_exec_" $command]
-                set operator !
-            } default {
-                if {$operator eq ""} {
-                        #error "untested branch"
-                        lassign [dict get $MAP invocantdata] OID alias default_command object_command
-                        #set command ::p::${OID}::item
-                        set command ::p::${OID}::$default_command
-                        lappend stack $command
-                        set operator ,
-                        
-                }
-                #do not look for argprotect items here (e.g -option) as the final word can't be an argprotector anyway.
-                lappend stack $word
-            }
-            if {$unsupported} {
-                set unsupported 0
-                error "trailing '$word' not supported"
-                
-            }
-            
-            #if {$operator eq ","} {
-            #   incr wordcount 2
-            #   set stack [linsert $stack end-1 . item]
-            #}
-            incr w
-        }
-    }
-
-
-    #final = 1
-    #puts stderr ">>>jaws final return value: [list 1 $_ID_ {*}$stack]"
-
-    return [list 1 $_ID_ {*}$stack]
-}
-
-
-
-#trailing. directly after object
-proc ::p::internals::ref_to_object {_ID_} {
-    set OID [lindex [dict get $_ID_ i this] 0 0]
-    upvar #0 ::p::${OID}::_meta::map MAP
-    lassign [dict get $MAP invocantdata] OID alias default_method object_command
-    set refname ::p::${OID}::_ref::__OBJECT
-
-    array set $refname [list] ;#important to initialise the variable as an array here - or initial read attempts on elements will not fire traces
-
-    set traceCmd [list ::p::predator::object_read_trace $OID $_ID_]
-    if {[list {read} $traceCmd] ni [trace info variable $refname]} {
-        #puts stdout "adding read trace on variable '$refname' - traceCmd:'$traceCmd'"
-        trace add variable $refname {read} $traceCmd
-    }
-    set traceCmd [list ::p::predator::object_array_trace $OID $_ID_]
-    if {[list {array} $traceCmd] ni [trace info variable $refname]} {
-        trace add variable $refname {array} $traceCmd
-    }
-
-    set traceCmd [list ::p::predator::object_write_trace $OID $_ID_]
-    if {[list {write} $traceCmd] ni [trace info variable $refname]} {
-        trace add variable $refname {write} $traceCmd
-    }
-
-    set traceCmd [list ::p::predator::object_unset_trace $OID $_ID_]
-    if {[list {unset} $traceCmd] ni [trace info variable $refname]} {
-        trace add variable $refname {unset} $traceCmd
-    }
-    return $refname
-}
-
-
-proc ::p::internals::create_or_update_reference {OID _ID_ refname command} {
-    #if {[lindex $fullstack 0] eq "_exec_"} {
-    #	#strip it. This instruction isn't relevant for a reference.
-    #	set commandstack [lrange $fullstack 1 end]
-    #} else {
-    #	set commandstack $fullstack
-    #}
-    #set argstack [lassign $commandstack command]
-    #set field [string map {> __OBJECT_} [namespace tail $command]]
-
-
-
-    set reftail [namespace tail $refname]
-    set argstack [lassign [split $reftail +] field]
-    set field [string map {> __OBJECT_} [namespace tail $command]]
-
-    #puts stderr "refname:'$refname' command: $command field:$field"
-
-
-    if {$OID ne "null"} {
-        upvar #0 ::p::${OID}::_meta::map MAP
-    } else {
-        #set map [dict get [lindex [dict get $_ID_ i this] 0 1] map]
-        set MAP [list invocantdata [lindex [dict get $_ID_ i this] 0] interfaces {level0 {} level1 {}}]
-    }
-    lassign [dict get $MAP invocantdata] OID alias default_method object_command
-
-
-	 
-	if {$OID ne "null"} {
-		interp alias {} $refname {} $command $_ID_ {*}$argstack
-	} else {
-		interp alias {} $refname {} $command {*}$argstack
-	}
-
-
-	#set iflist [lindex $map 1 0]
-	set iflist [dict get $MAP interfaces level0]
-	#set iflist [dict get $MAP interfaces level0]
-	set field_is_property_like 0
-	foreach IFID [lreverse $iflist] {
-		#tcl (braced) expr has lazy evaluation for &&, || & ?: operators - so this should be reasonably efficient.
-		if {[llength [info commands ::p::${IFID}::_iface::(GET)$field]] || [llength [info commands ::p::${IFID}::_iface::(SET)$field]]} {
-			set field_is_property_like 1
-			#There is a setter or getter (but not necessarily an entry in the o_properties dict)
-			break
-		}
-	}
-
-	
-
-
-	#whether field is a property or a method - remove any commandrefMisuse_TraceHandler 
-	foreach tinfo [trace info variable $refname] {	
-		#puts "-->removing traces on $refname:  $tinfo"
-		if {[lindex $tinfo 1 0] eq "::p::internals::commandrefMisuse_TraceHandler"} {
-			trace remove variable $refname {*}$tinfo
-		}
-	}
-
-	if {$field_is_property_like} {
-		#property reference
-		
-		
-		set this_invocantdata [lindex [dict get $_ID_ i this] 0]
-		lassign $this_invocantdata OID _alias _defaultmethod object_command
-		#get fully qualified varspace 
-		
-		#
-		set propdict [$object_command .. GetPropertyInfo $field]
-		if {[dict exist $propdict $field]} {
-			set field_is_a_property 1
-			set propinfo [dict get $propdict $field]
-			set varspace [dict get $propinfo varspace] 
-			if {$varspace eq ""} {
-				set full_varspace ::p::${OID}
-			} else {
-				if {[::string match "::*" $varspace]} {
-						set full_varspace $varspace                    
-				} else {
-						set full_varspace ::p::${OID}::$varspace
-				}
-			}
-		} else {
-			set field_is_a_property 0
-			#no propertyinfo - this field was probably established as a PropertyRead and/or PropertyWrite without a Property
-			#this is ok - and we still set the trace infrastructure below (app may convert it to a normal Property later)
-			set full_varspace ::p::${OID}
-		}
-
-
-
-
-
-		#We only trace on entire property.. not array elements (if references existed to both the array and an element both traces would be fired -(entire array trace first))
-		set Hndlr 	[::list ::p::predator::propvar_write_TraceHandler $OID $field]
-		if { [::list {write} $Hndlr] ni [trace info variable ${full_varspace}::o_${field}]} {
-			trace add variable ${full_varspace}::o_${field} {write} $Hndlr
-		}	
-		set Hndlr 	[::list ::p::predator::propvar_unset_TraceHandler $OID $field]
-		if { [::list {unset} $Hndlr] ni [trace info variable ${full_varspace}::o_${field}]} {
-			trace add variable ${full_varspace}::o_${field} {unset} $Hndlr
-		}	
-
-
-		#supply all data in easy-access form so that propref_trace_read is not doing any extra work.
-		set get_cmd ::p::${OID}::(GET)$field
-		set traceCmd [list ::p::predator::propref_trace_read $get_cmd $_ID_ $refname $field $argstack]
-
-		if {[list {read} $traceCmd] ni [trace info variable $refname]} {
-			set fieldvarname ${full_varspace}::o_${field}
-
-		
-			#synch the refvar with the real var if it exists
-			#catch {set $refname [$refname]}
-			if {[array exists $fieldvarname]} {
-					if {![llength $argstack]} {
-						#unindexed reference
-						array set $refname [array get $fieldvarname]
-						#upvar $fieldvarname $refname 
-					} else {
-						set s0 [lindex $argstack 0]
-						#refs to nonexistant array members common? (catch vs 'info exists')
-						if {[info exists ${fieldvarname}($s0)]} {
-							set $refname [set ${fieldvarname}($s0)]
-						}
-					}
-			} else {
-				#refs to uninitialised props actually should be *very* common. 
-				#If we use 'catch', it means retrieving refs to non-initialised props is slower. Fired catches can be relatively expensive.
-				#Because it's common to get a ref to uninitialised props (e.g for initial setting of their value) - we will use 'info exists' instead of catch.
-
-				#set errorInfo_prev $::errorInfo  ;#preserve errorInfo across catches!
-				
-				#puts stdout " ---->>!!! ref to uninitialised prop $field $argstack !!!<------"
-				
-				
-				if {![llength $argstack]} {
-					#catch {set $refname [set ::p::${OID}::o_$field]}
-					if {[info exists $fieldvarname]} {
-						set $refname [set $fieldvarname]
-						#upvar $fieldvarname $refname
-					}
-				} else {
-					if {[llength $argstack] == 1} {
-						#catch {set $refname [lindex [set ::p::${OID}::o_$field] [lindex $argstack 0]]}
-						if {[info exists $fieldvarname]} {
-							set $refname [lindex [set $fieldvarname] [lindex $argstack 0]]
-						}
-					
-					} else {
-						#catch {set $refname [lindex [set ::p::${OID}::o_$field] $argstack]}
-						if {[info exists $fieldvarname]} {
-							set $refname [lindex [set $fieldvarname] $argstack]
-						}
-					}
-				}
-				
-				#! what if someone has put a trace on ::errorInfo??
-				#set ::errorInfo $errorInfo_prev
-			}
-			trace add variable $refname {read} $traceCmd
-
-			set traceCmd [list ::p::predator::propref_trace_write $_ID_ $OID $full_varspace $refname]
-			trace add variable $refname {write} $traceCmd
-
-			set traceCmd [list ::p::predator::propref_trace_unset $_ID_ $OID  $refname]
-			trace add variable $refname {unset} $traceCmd
-			
-			
-			set traceCmd [list ::p::predator::propref_trace_array $_ID_ $OID $refname]
-		 #	puts "**************** installing array variable trace on ref:$refname - cmd:$traceCmd"
-			trace add variable $refname {array} $traceCmd
-		}
-
-	} else {
-	#puts "$refname ====> adding refMisuse_traceHandler $alias $field"
-		#matching variable in order to detect attempted use as property and throw error
-
-		#2018
-		#Note that we are adding a trace on a variable (the refname) which does not exist.
-		#this is fine - except that the trace won't fire for attempt to write it as an array using syntax such as set $ref(someindex)
-		#we could set the ref to an empty array - but then we have to also undo this if a property with matching name is added 
-		##array set $refname {}  ;#empty array  
-		# - the empty array would mean a slightly better error message when misusing a command ref as an array 
-		#but this seems like a code complication for little benefit
-		#review 
-		
-		trace add variable $refname {read write unset array} [list ::p::internals::commandrefMisuse_TraceHandler $OID $field]
-	}
-}
-
-
-
-#trailing. after command/property
-proc ::p::internals::ref_to_stack {OID _ID_ fullstack} {
-	if {[lindex $fullstack 0] eq "_exec_"} {
-		#strip it. This instruction isn't relevant for a reference.
-		set commandstack [lrange $fullstack 1 end]
-	} else {
-		set commandstack $fullstack
-	}
-	set argstack [lassign $commandstack command]
-	set field [string map {> __OBJECT_} [namespace tail $command]]
-
-
-	#!todo?
-	# - make every object's OID unpredictable and sparse (UUID) and modify 'namespace child' etc to prevent iteration/inspection of ::p namespace.
-	# - this would only make sense for an environment where any meta methods taking a code body (e.g .. Method .. PatternMethod etc) are restricted.
-
-
-	#references created under ::p::${OID}::_ref are effectively inside a 'varspace' within the object itself.
-	# - this would  in theory allow a set of interface functions on the object which have direct access to the reference variables.
-
-
-	set refname ::p::${OID}::_ref::[join [concat $field $argstack] +]
-	
-	if {[llength [info commands $refname]]}  {
-		#todo - review - what if the field changed to/from a property/method? 
-		#probably should fix that where such a change is made and leave this short circuit here to give reasonable performance for existing refs
-		return $refname
-	}
-	::p::internals::create_or_update_reference  $OID $_ID_ $refname $command 
-    return $refname
-}
-
-
-namespace eval pp {
-	variable operators  [list .. . -- - & @ # , !]
-  variable operators_notin_args ""
-	foreach op $operators {
-		append operators_notin_args "({$op} ni \$args) && "
-	}
-  set operators_notin_args [string trimright $operators_notin_args " &"] ;#trim trailing spaces and ampersands
-	#set operators_notin_args {({.} ni $args) && ({,} ni $args) && ({..} ni $args)}
-}
-interp alias {} strmap {} string map ;#stop code editor from mono-colouring our big string mapped code blocks!
-
-
-
-
-
-# 2017  ::p::predator2 is the development version - intended for eventual use as the main dispatch mechanism.
-#each map is a 2 element list of lists.
-#  form:   {$commandinfo $interfaceinfo}
-#  commandinfo is of the form: {ID Namespace defaultmethod commandname _?}
-
-#2018
-#each map is a dict.
-#form:  {invocantdata {ID Namespace defaultmethod commandname _?} interfaces {level0 {} level1 {}}}
-
-
-#OID = Object ID  (integer for now - could in future be a uuid)
-proc ::p::predator2 {_ID_ args} {
-    #puts stderr "predator2:   _ID_:'$_ID_' args:'$args'"
-	#set invocants [dict get $_ID_ i]
-	#set invocant_roles [dict keys $invocants]
-
-	#For now - we are 'this'-centric (single dispatch).  todo - adapt for multiple roles, multimethods etc.
-	#set this_role_members [dict get $invocants this] 
-	#set this_invocant [lindex [dict get $_ID_ i this] 0] ;#for the role 'this' we assume only one invocant in the list.
-    #lassign $this_invocant this_OID this_info_dict
-	
-	set this_OID [lindex [dict get $_ID_ i this] 0 0] ;#get_oid
-	
-	
-	set cheat 1 ;#
-	#-------
-	#Optimise the next most common use case. A single . followed by args which contain no other operators (non-chained call)
-	#(it should be functionally equivalent to remove this shortcut block)
-	if {$cheat} {
-		if { ([lindex $args 0] eq {.}) && ([llength $args] > 1) && ([llength [lsearch -all -inline $args .]] == 1)  && ({,} ni $args) && ({..} ni $args) && ({--} ni $args) && ({!} ni $args)} {
-			
-			set remaining_args [lassign $args dot method_or_prop]
-			
-			#how will we do multiple apis? (separate interface stacks)  apply? apply [list [list _ID_ {*}$arglist] ::p::${stackid?}::$method_or_prop  ::p::${this_OID}]  ???
-			set command ::p::${this_OID}::$method_or_prop                    
-			#REVIEW! 
-			#e.g what if the method is named "say hello" ?? (hint - it will break because we will look for 'say')
-			#if {[llength $command] > 1} {
-			#	error "methods with spaces not included in test suites - todo fix!"
-			#}
-			#Dont use {*}$command - (so we can support methods with spaces)
-			#if {![llength [info commands $command]]} {}
-            if {[namespace which $command] eq ""} {
-				if {[namespace which ::p::${this_OID}::(UNKNOWN)] ne ""} {
-					#lset command 0 ::p::${this_OID}::(UNKNOWN) ;#seems wrong - command could have spaces
-					set command ::p::${this_OID}::(UNKNOWN)
-					#tailcall {*}$command $_ID_ $cmdname {*}[lrange $args 2 end] ;#delegate to UNKNOWN, along with original commandname as 1st arg.
-					tailcall $command $_ID_ $method_or_prop {*}[lrange $args 2 end] ;#delegate to UNKNOWN, along with original commandname as 1st arg.
-				} else {
-					return -code error -errorinfo "(::p::predator2) error running command:'$command' argstack:'[lrange $args 2 end]'\n - command not found and no 'unknown' handler"  "method '$method_or_prop' not found"
-				}
-			} else {
-				#tailcall {*}$command $_ID_ {*}$remaining_args
-				tailcall $command $_ID_ {*}$remaining_args
-			}
-		}
-	}
-	#------------
-	
-	
-	if {([llength $args] == 1) && ([lindex $args 0] eq "..")} {
-		return $_ID_
-	}
-
-	
-	#puts stderr "pattern::predator (test version) called with: _ID_:$_ID_ args:$args"
-   
-
-
-	#puts stderr "this_info_dict: $this_info_dict"
-	
-	
-	
-	
-	if {![llength $args]} {
-		#should return some sort of public info.. i.e probably not the ID which is an implementation detail
-		#return cmd
-		return [lindex [dict get [set ::p::${this_OID}::_meta::map] invocantdata] 0] ;#Object ID
-		
-		#return a dict keyed on object command name - (suitable as use for a .. Create 'target')
-		#lassign [dict get [set ::p::${this_OID}::_meta::map] invocantdata] this_OID alias default_method object_command wrapped
-		#return [list $object_command [list -id $this_OID ]]
-	} elseif {[llength $args] == 1} {
-		#short-circuit the single index case for speed.
-		if {[lindex $args 0] ni {.. . -- - & @ # , !}} {
-			#lassign  [dict get [set ::p::${this_OID}::_meta::map] invocantdata] this_OID alias default_method 
-			lassign [lindex [dict get $_ID_ i this] 0] this_OID alias default_method
-			
-			tailcall ::p::${this_OID}::$default_method $_ID_ [lindex $args 0]
-		} elseif {[lindex $args 0] eq {--}} {
-		
-			#!todo - we could hide the invocant by only allowing this call from certain uplevel procs.. 
-			# - combined with using UUIDs for $OID, and a secured/removed metaface on the object 
-			# - (and also hiding of [interp aliases] command so they can't iterate and examine all aliases)
-			# - this could effectively hide the object's namespaces,vars etc from the caller (?)
-			return [set ::p::${this_OID}::_meta::map]
-		}
-	}
-	
-	
-
-    #upvar ::p::coroutine_instance c ;#coroutine names must be unique per call to predator (not just per object - or we could get a clash during some cyclic calls)
-    #incr c
-    #set reduce ::p::reducer${this_OID}_$c
-    set reduce ::p::reducer${this_OID}_[incr ::p::coroutine_instance]
-    #puts stderr "..................creating reducer $reduce with args $this_OID _ID_ $args"
-    coroutine $reduce ::p::internals::jaws $this_OID $_ID_ {*}$args
-
-
-	set current_ID_ $_ID_
-	
-	set final 0
-	set result ""
-	while {$final == 0} {
-	  #the argument given here to $reduce will be returned by 'yield' within the coroutine context (jaws)
-		set reduction_args [lassign [$reduce $current_ID_[set current_ID_ [list]] ] final current_ID_ command]
-        #puts stderr "..> final:$final current_ID_:'$current_ID_' command:'$command' reduction_args:'$reduction_args'"
-		#if {[string match *Destroy $command]} {
-		#	puts stdout " calling Destroy  reduction_args:'$reduction_args'"
-		#}
-		if {$final == 1} {
-			
-			if {[llength $command] == 1} {
-				if {$command eq "_exec_"} {
-					tailcall {*}$reduction_args
-				}	
-				if {[llength [info commands $command]]} {
-					tailcall {*}$command $current_ID_ {*}$reduction_args
-				}
-				set cmdname [namespace tail $command]
-				set this_OID [lindex [dict get $current_ID_ i this] 0 0] 
-				if {[llength [info commands ::p::${this_OID}::(UNKNOWN)]]} {
-					lset command 0 ::p::${this_OID}::(UNKNOWN)
-					tailcall {*}$command $current_ID_ $cmdname {*}$reduction_args ;#delegate to UNKNOWN, along with original commandname as 1st arg.
-				} else {
-					return -code error -errorinfo "1)error running command:'$command' argstack:'$reduction_args'\n - command not found and no 'unknown' handler"  "method '$cmdname' not found"
-				}
-				
-			} else {
-				#e.g lindex {a b c}
-				tailcall {*}$command {*}$reduction_args
-			}
-
-
-		} else {
-			if {[lindex $command 0] eq "_exec_"} {
-				set result [uplevel 1 [list {*}[lrange $command 1 end] {*}$reduction_args]]
-				
-				set current_ID_ [list i [list this [list [list "null" {} {lindex} $result {} ] ] ] context {} ]
-			} else {
-				if {[llength $command] == 1} {
-					if {![llength [info commands $command]]} {
-						set cmdname [namespace tail $command]
-						set this_OID [lindex [dict get $current_ID_ i this] 0 0] 
-						if {[llength [info commands ::p::${this_OID}::(UNKNOWN)]]} {
-							
-							lset command 0 ::p::${this_OID}::(UNKNOWN)
-							set result [uplevel 1 [list {*}$command $current_ID_ $cmdname {*}$reduction_args]] ;#delegate to UNKNOWN, along with original commandname as 1st arg.
-						} else {
-							return -code error -errorinfo "2)error running command:'$command' argstack:'$reduction_args'\n - command not found and no 'unknown' handler"  "method '$cmdname' not found"
-						}
-					} else {
-						#set result [uplevel 1 [list  {*}$command $current_ID_ {*}$reduction_args ]]
-						set result [uplevel 1  [list {*}$command $current_ID_ {*}$reduction_args ]]
-						
-					}
-				} else {
-					set result [uplevel 1 [list {*}$command {*}$reduction_args]]
-				}
-				
-				if {[llength [info commands $result]]} {
-					if {([llength $result] == 1) && ([string first ">" [namespace tail $result]] == 0)} {
-						#looks like a pattern command
-						set current_ID_ [$result .. INVOCANTDATA]
-					
-						
-						#todo -  determine if plain .. INVOCANTDATA is sufficient instead of .. UPDATEDINVOCANTDATA
-						#if {![catch {$result .. INVOCANTDATA} result_invocantdata]} {
-						#	set current_ID_ $result_invocantdata
-						#} else {
-						#	return -code error -errorinfo "3)error running command:'$command' argstack:'$reduction_args'\n - Failed to access result:'$result' as a pattern object." "Failed to access result:'$result' as a pattern object"
-						#}
-					} else {
-                        #non-pattern command
-						set current_ID_ [list i [list this [list [list "null" {} {lindex} $result {} ] ] ] context {}]
-					}
-				} else {	
-						set current_ID_ [list i [list this [list [list "null" {} {lindex} $result {} ] ] ] context {}]
-						#!todo - allow further operations on non-command values. e.g dicts, lists & strings (treat strings as lists)
-						
-				}
-			}
-		
-		}
-	}
-	error "Assert: Shouldn't get here (end of ::p::predator2)"
-	#return $result
-}
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/promise-1.2.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/promise-1.2.0.tm
deleted file mode 100644
index a4b82e45..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/promise-1.2.0.tm
+++ /dev/null
@@ -1,1311 +0,0 @@
-# Copyright (c) 2015-2023, Ashok P. Nadkarni
-# All rights reserved.
-
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are
-# met:
-
-# 1. Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-
-# 2. Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in the
-# documentation and/or other materials provided with the distribution.
-
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-# HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package require Tcl 8.6-
-
-namespace eval promise {
-    proc version {} { return 1.2.0 }
-}
-
-proc promise::lambda {params body args} {
-    # Creates an anonymous procedure and returns a command prefix for it.
-    #   params - parameter definitions for the procedure
-    #   body - body of the procedures
-    #   args - additional arguments to be passed to the procedure when it
-    #     is invoked
-    #
-    # This is just a convenience command since anonymous procedures are
-    # commonly useful with promises. The lambda package from tcllib
-    # is identical in function.
-
-    return [list ::apply [list $params $body] {*}$args]
-}
-
-catch {promise::Promise destroy}
-oo::class create promise::Promise {
-
-    # The promise state can be one of
-    #  PENDING - Initial state where it has not yet been assigned a
-    #            value or error
-    #  FULFILLED - The promise has been assigned a value
-    #  REJECTED  - The promise has been assigned an error
-    #  CHAINED  - The promise is attached to another promise
-    variable _state
-
-    # Stores data that is accessed through the setdata/getdata methods.
-    # The Promise class itself does not use this.
-    variable _clientdata
-
-    # The promise value once it is fulfilled or rejected. In the latter
-    # case, it should be an the error message
-    variable _value
-
-    # The error dictionary in case promise is rejected
-    variable _edict
-
-    # Reactions to be notified when the promise is rejected. Each element
-    # in this list is a pair consisting of the fulfilment reaction
-    # and the rejection reaction. Either element of the pair could be
-    # empty signifying no reaction for that case. The list is populated
-    # via the then method.
-    variable _reactions
-
-    # Reference counting to free up promises since Tcl does not have
-    # garbage collection for objects. Garbage collection via reference
-    # counting only takes place after at least one done/then reaction
-    # is placed on the event queue, not before. Else promises that
-    # are immediately resolved on construction would be freed right
-    # away before the application even gets a chance to call done/then.
-    variable _do_gc
-    variable _nrefs
-
-    # If no reject reactions are registered, then the Tcl bgerror
-    # handler is invoked. But don't want to do this more than once
-    # so track it
-    variable _bgerror_done
-
-    constructor {cmd} {
-        # Create a promise for the asynchronous operation to be initiated
-        # by $cmd.
-        # cmd - a command prefix that should initiate an asynchronous
-        #  operation.
-        # The command prefix $cmd is passed an additional argument - the
-        # name of this Promise object. It should arrange for one of the
-        # object's settle methods [fulfill], [chain] or
-        # [reject] to be called when the operation completes.
-
-        set _state PENDING
-        set _reactions [list ]
-        set _do_gc 0
-        set _bgerror_done 0
-        set _nrefs 0
-        array set _clientdata {}
-
-        # Errors in the construction command are returned via
-        # the standard mechanism of reject.
-        #
-        if {[catch {
-            # For some special cases, $cmd may be "" if the async operation
-            # is initiated outside the constructor. This is not a good
-            # thing because the error in the initiator will not be
-            # trapped via the standard promise error catching mechanism
-            # but that's the application's problem (actually pgeturl also
-            # uses this).
-            if {[llength $cmd]} {
-                uplevel #0 [linsert $cmd end [self]]
-            }
-        } msg edict]} {
-            my reject $msg $edict
-        }
-    }
-
-    destructor {
-        # Destroys the object.
-        #
-        # This method should not be generally called directly as [Promise]
-        # objects are garbage collected either automatically or via the [ref]
-        # and [unref] methods.
-    }
-
-    method state {} {
-        # Returns the current state of the promise.
-        #
-        # The promise state may be one of the values `PENDING`,
-        # `FULFILLED`, `REJECTED` or `CHAINED`
-        return $_state
-    }
-
-    method getdata {key} {
-        # Returns data previously stored through the setdata method.
-        #  key - key whose associated values is to be returned.
-        # An error will be raised if no value is associated with the key.
-        return $_clientdata($key)
-    }
-
-    method setdata {key value} {
-        # Sets a value to be associated with a key.
-        #  key - the lookup key
-        #  value - the value to be associated with the key
-        # A promise internally maintains a dictionary whose values can
-        # be accessed with the [getdata] and [setdata] methods. This
-        # dictionary is not used by the Promise class itself but is meant
-        # to be used by promise library specializations or applications.
-        # Callers need to take care that keys used for a particular
-        # promise are sufficiently distinguishable so as to not clash.
-        #
-        # Returns the value stored with the key.
-        set _clientdata($key) $value
-    }
-
-    method value {} {
-        # Returns the settled value for the promise.
-        #
-        # The returned value may be the fulfilled value or the rejected
-        # value depending on whether the associated operation was successfully
-        # completed or failed.
-        #
-        # An error is raised if the promise is not settled yet.
-        if {$_state ni {FULFILLED REJECTED}} {
-            error "Value is not set."
-        }
-        return $_value
-    }
-
-    method ref {} {
-        # Increments the reference count for the object.
-        incr _nrefs
-    }
-
-    method unref {} {
-        # Decrements the reference count for the object.
-        #
-        # The object may have been destroyed when the call returns.
-        incr _nrefs -1
-        my GC
-    }
-
-    method nrefs {} {
-        # Returns the current reference count.
-        #
-        # Use for debugging only! Note, internal references are not included.
-        return $_nrefs
-    }
-
-    method GC {} {
-        if {$_nrefs <= 0 && $_do_gc && [llength $_reactions] == 0} {
-            my destroy
-        }
-    }
-
-    method FulfillAttached {value} {
-        if {$_state ne "CHAINED"} {
-            return
-        }
-        set _value $value
-        set _state FULFILLED
-        my ScheduleReactions
-        return
-    }
-
-    method RejectAttached {reason edict} {
-        if {$_state ne "CHAINED"} {
-            return
-        }
-        set _value $reason
-        set _edict $edict
-        set _state REJECTED
-        my ScheduleReactions
-        return
-    }
-
-    # Method to invoke to fulfil a promise with a value or another promise.
-    method fulfill {value} {
-        # Fulfills the promise.
-        #   value - the value with which the promise is fulfilled
-        #
-        # Returns `0` if promise had already been settled and `1` if
-        # it was fulfilled by the current call.
-
-        #ruff
-        # If the promise has already been settled, the method has no effect.
-        if {$_state ne "PENDING"} {
-            return 0;             # Already settled
-        }
-
-        #ruff
-        # Otherwise, it is transitioned to the `FULFILLED` state with
-        # the value specified by $value. If there are any fulfillment
-        # reactions registered by the [Promise.done] or [Promise.then] methods, they
-        # are scheduled to be run.
-        set _value $value
-        set _state FULFILLED
-        my ScheduleReactions
-        return 1
-    }
-
-    # Method to invoke to fulfil a promise with a value or another promise.
-    method chain {promise} {
-        # Chains the promise to another promise.
-        #   promise - the [Promise] object to which this promise is to
-        #     be chained
-        #
-        # Returns `0` if promise had already been settled and `1` otherwise.
-
-        #ruff
-        # If the promise on which this method is called
-        # has already been settled, the method has no effect.
-        if {$_state ne "PENDING"} {
-            return 0;
-        }
-
-        #ruff
-        # Otherwise, it is chained to $promise so that it reflects that
-        # other promise's state.
-        if {[catch {
-            $promise done [namespace code {my FulfillAttached}] [namespace code {my RejectAttached}]
-        } msg edict]} {
-            my reject $msg $edict
-        } else {
-            set _state CHAINED
-        }
-
-        return 1
-    }
-
-    method reject {reason {edict {}}} {
-        # Rejects the promise.
-        #   reason - a message string describing the reason for the rejection.
-        #   edict - a Tcl error dictionary
-        #
-        # The $reason and $edict values are passed on to the rejection
-        # reactions. By convention, these should be of the form returned
-        # by the `catch` or `try` commands in case of errors.
-        #
-        # Returns `0` if promise had already been settled and `1` if
-        # it was rejected by the current call.
-
-        #ruff
-        # If the promise has already been settled, the method has no effect.
-        if {$_state ne "PENDING"} {
-            return 0;             # Already settled
-        }
-
-        #ruff
-        # Otherwise, it is transitioned to the `REJECTED` state.  If
-        # there are any reject reactions registered by the [Promise.done] or
-        # [Promise.then] methods, they are scheduled to be run.
-
-        set _value $reason
-        #ruff
-        # If $edict is not specified, or specified as an empty string,
-        # a suitable error dictionary is constructed in its place
-        # to be passed to the reaction.
-        if {$edict eq ""} {
-            catch {throw {PROMISE REJECTED} $reason} - edict
-        }
-        set _edict $edict
-        set _state REJECTED
-        my ScheduleReactions
-        return 1
-    }
-
-    # Internal method to queue all registered reactions based on
-    # whether the promise is succesfully fulfilled or not
-    method ScheduleReactions {} {
-        if {$_state ni {FULFILLED REJECTED} || [llength $_reactions] == 0 } {
-            # Promise is not settled or no reactions registered
-            return
-        }
-
-        # Note on garbage collection: garbage collection is to be enabled if
-        # at least one FULFILLED or REJECTED reaction is registered.
-        # Also if the promise is REJECTED but no rejection handlers are run
-        # we also schedule a background error.
-        # In all cases, CLEANUP reactions do not count.
-        foreach reaction $_reactions {
-            foreach type {FULFILLED REJECTED} {
-                if {[dict exists $reaction $type]} {
-                    set _do_gc 1
-                    if {$type eq $_state} {
-                        set cmd [dict get $reaction $type]
-                        if {[llength $cmd]} {
-                            if {$type eq "FULFILLED"} {
-                                lappend cmd $_value
-                            } else {
-                                lappend cmd $_value $_edict
-                            }
-                            set ran_reaction($type) 1
-                            # Enqueue the reaction via the event loop
-                            after 0 [list after idle $cmd]
-                        }
-                    }
-                }
-            }
-            if {[dict exists $reaction CLEANUP]} {
-                set cmd [dict get $reaction CLEANUP]
-                if {[llength $cmd]} {
-                    # Enqueue the cleaner via the event loop passing the
-                    # *state* as well as the value
-                    if {$_state eq "REJECTED"} {
-                        lappend cmd $_state $_value $_edict
-                    } else {
-                        lappend cmd $_state $_value
-                    }
-                    after 0 [list after idle $cmd]
-                    # Note we do not set _do_gc if we only run cleaners
-                }
-            }
-        }
-        set _reactions [list ]
-
-        # Check for need to background error (see comments above)
-        if {$_state eq "REJECTED" && $_do_gc && ! [info exists ran_reaction(REJECTED)] && ! $_bgerror_done} {
-            # TBD - should we also check _nrefs before backgrounding error?
-
-            # Wrap in catch in case $_edict does not follow error conventions
-            # or is not even a dictionary
-            if {[catch {
-                dict get $_edict -level
-                dict get $_edict -code
-            }]} {
-                catch {throw {PROMISE REJECT} $_value} - edict
-            } else {
-                set edict $_edict
-            }
-            # TBD - how exactly is level to be handled?
-            # If -level is not 0, bgerror barfs because it treates
-            # it as TCL_RETURN no matter was -code is
-            dict set edict -level 0
-            after idle [interp bgerror {}] [list $_value $edict]
-            set _bgerror_done 1
-        }
-
-        my GC
-        return
-    }
-
-    method RegisterReactions {args} {
-        # Registers the specified reactions.
-        #  args - dictionary keyed by `CLEANUP`, `FULFILLED`, `REJECTED`
-        #     with values being the corresponding reaction callback
-
-        lappend _reactions $args
-        my ScheduleReactions
-        return
-    }
-
-    method done {{on_fulfill {}} {on_reject {}}} {
-        # Registers reactions to be run when the promise is settled.
-        #  on_fulfill - command prefix for the reaction to run
-        #    if the promise is fulfilled.
-        #    reaction is registered.
-        #  on_reject - command prefix for the reaction to run
-        #    if the promise is rejected.
-        # Reactions are called with an additional argument which is
-        # the value with which the promise was settled.
-        #
-        # The command may be called multiple times to register multiple
-        # reactions to be run at promise settlement. If the promise was
-        # already settled at the time the call was made, the reactions
-        # are invoked immediately. In all cases, reactions are not called
-        # directly, but are invoked by scheduling through the event loop.
-        #
-        # The method triggers garbage collection of the object if the
-        # promise has been settled and any registered reactions have been
-        # scheduled. Applications can hold on to the object through
-        # appropriate use of the [ref] and [unref] methods.
-        #
-        # Note that both $on_fulfill and $on_reject may be specified
-        # as empty strings if no further action needs to be taken on
-        # settlement of the promise. If the promise is rejected, and
-        # no rejection reactions are registered, the error is reported
-        # via the Tcl `interp bgerror` facility.
-
-        # TBD - as per the Promise/A+ spec, errors in done should generate
-        # a background error (unlike then).
-
-        my RegisterReactions FULFILLED $on_fulfill REJECTED $on_reject
-
-        #ruff
-        # The method does not return a value.
-        return
-    }
-
-    method then {on_fulfill {on_reject {}}} {
-        # Registers reactions to be run when the promise is settled
-        # and returns a new [Promise] object that will be settled by the
-        # reactions.
-        #  on_fulfill - command prefix for the reaction to run
-        #    if the promise is fulfilled. If an empty string, no fulfill
-        #    reaction is registered.
-        #  on_reject - command prefix for the reaction to run
-        #    if the promise is rejected. If unspecified or an empty string,
-        #    no reject reaction is registered.
-        # Both reactions are passed the value with which the promise was settled.
-        # The reject reaction is passed an additional argument which is
-        # the error dictionary.
-        #
-        # The command may be called multiple times to register multiple
-        # reactions to be run at promise settlement. If the promise was
-        # already settled at the time the call was made, the reactions
-        # are invoked immediately. In all cases, reactions are not called
-        # directly, but are invoked by scheduling through the event loop.
-        #
-        # If the reaction that is invoked runs without error, its return
-        # value fulfills the new promise returned by the `then` method.
-        # If it raises an exception, the new promise will be rejected
-        # with the error message and dictionary from the exception.
-        #
-        # Alternatively, the reactions can explicitly invoke commands
-        # [then_fulfill], [then_reject] or [then_chain] to
-        # resolve the returned promise. In this case, the return value
-        # (including exceptions) from the reactions are ignored.
-        #
-        # If `on_fulfill` (or `on_reject`) is an empty string (or unspecified),
-        # the new promise is created and fulfilled (or rejected) with
-        # the same value that would have been passed in to the reactions.
-        #
-        # The method triggers garbage collection of the object if the
-        # promise has been settled and registered reactions have been
-        # scheduled. Applications can hold on to the object through
-        # appropriate use of the [ref] and [unref] methods.
-        #
-        # Returns a new promise that is settled by the registered reactions.
-
-        set then_promise [[self class] new ""]
-        my RegisterReactions \
-            FULFILLED [list ::promise::_then_reaction $then_promise FULFILLED $on_fulfill] \
-            REJECTED [list ::promise::_then_reaction $then_promise REJECTED $on_reject]
-        return $then_promise
-    }
-
-    # This could be a forward, but then we cannot document it via ruff!
-    method catch {on_reject} {
-        # Registers reactions to be run when the promise is rejected.
-        #   on_reject - command prefix for the reaction
-        #     reaction to run if the promise is rejected. If unspecified
-        #     or an empty string, no reject reaction is registered. The
-        #     reaction is called with an additional argument which is the
-        #     value with which the promise was settled.
-        # This method is just a wrapper around [Promise.then] with the
-        # `on_fulfill` parameter defaulting to an empty string. See
-        # the description of that method for details.
-        return [my then "" $on_reject]
-    }
-
-    method cleanup {cleaner} {
-        # Registers a reaction to be executed for running cleanup
-        # code when the promise is settled.
-        #   cleaner - command prefix to run on settlement
-        # This method is intended to run a clean up script 
-        # when a promise is settled. Its primary use is to avoid duplication
-        # of code in the `then` and `catch` handlers for a promise.
-        # It may also be called multiple times
-        # to clean up intermediate steps when promises are chained.
-        #
-        # The method returns a new promise that will be settled
-        # as per the following rules.
-        # - if the cleaner runs without errors, the returned promise
-        #   will reflect the settlement of the promise on which this
-        #   method is called.
-        # - if the cleaner raises an exception, the returned promise
-        #   is rejected with a value consisting of the error message
-        #   and dictionary pair.
-        #
-        # Returns a new promise that is settled based on the cleaner
-        set cleaner_promise [[self class] new ""]
-        my RegisterReactions CLEANUP [list ::promise::_cleanup_reaction $cleaner_promise $cleaner]
-        return $cleaner_promise
-    }
-}
-
-proc promise::_then_reaction {target_promise status cmd value {edict {}}} {
-    # Run the specified command and fulfill/reject the target promise
-    # accordingly. If the command is empty, the passed-in value is passed
-    # on to the target promise.
-
-    # IMPORTANT!!!!
-    # MUST BE CALLED FROM EVENT LOOP AT so info level must be 1. Else
-    # promise::then_fulfill/then_reject/then_chain will not work
-    # Also, Do NOT change the param name target_promise without changing
-    # those procs.
-    # Oh what a hack to get around lack of closures. Alternative would have
-    # been to pass an additional parameter (target_promise)
-    # to the application code but then that script would have had to
-    # carry that around.
-
-    if {[info level] != 1} {
-        error "Internal error: _then_reaction not at level 1"
-    }
-
-    if {[llength $cmd] == 0} {
-        switch -exact -- $status {
-            FULFILLED { $target_promise fulfill $value }
-            REJECTED  { $target_promise reject $value $edict}
-            CHAINED -
-            PENDING  -
-            default {
-                $target_promise reject "Internal error: invalid status $state"
-            }
-        }
-    } else {
-        # Invoke the real reaction code and fulfill/reject the target promise.
-        # Note the reaction code may have called one of the promise::then_*
-        # commands itself and reactions run resulting in the object being
-        # freed. Hence resolve using the safe* variants
-        # TBD - ideally we would like to execute at global level. However
-        # the then_* commands retrieve target_promise from level 1 (here)
-        # which they cannot if uplevel #0 is done. So directly invoke.
-        if {$status eq "REJECTED"} {
-            lappend cmd $value $edict
-        } else {
-            lappend cmd $value
-        }
-        if {[catch $cmd reaction_value reaction_edict]} {
-            safe_reject $target_promise $reaction_value $reaction_edict
-        } else {
-            safe_fulfill $target_promise $reaction_value
-        }
-    }
-    return
-}
-
-proc promise::_cleanup_reaction {target_promise cleaner state value {edict {}}} {
-    # Run the specified cleaner and fulfill/reject the target promise
-    # accordingly. If the cleaner executes without error, the original
-    # value and state is passed on. If the cleaner executes with error
-    # the promise is rejected.
-
-    if {[llength $cleaner] == 0} {
-        switch -exact -- $state {
-            FULFILLED { $target_promise fulfill $value }
-            REJECTED  { $target_promise reject $value $edict }
-            CHAINED -
-            PENDING  -
-            default {
-                $target_promise reject "Internal error: invalid state $state"
-            }
-        }
-    } else {
-        if {[catch {uplevel #0 $cleaner} err edict]} {
-            # Cleaner failed. Reject the target promise
-            $target_promise reject $err $edict
-        } else {
-            # Cleaner completed without errors, pass on the original value
-            if {$state eq "FULFILLED"} {
-                $target_promise fulfill $value
-            } else {
-                $target_promise reject $value $edict
-            }
-        }
-    }
-    return
-}
-
-proc promise::then_fulfill {value} {
-    # Fulfills the promise returned by a [Promise.then] method call from
-    # within its reaction.
-    #  value - the value with which to fulfill the promise
-    #
-    # The [Promise.then] method is a mechanism to chain asynchronous
-    # reactions by registering them on a promise. It returns a new
-    # promise which is settled by the return value from the reaction,
-    # or by the reaction calling one of three commands - `then_fulfill`,
-    # [then_reject] or [then_chain]. Calling `then_fulfill` fulfills
-    # the promise returned by the `then` method that queued the currently
-    # running reaction.
-    #
-    # It is an error to call this command from outside a reaction
-    # that was queued via the [Promise.then] method on a promise.
-
-    # TBD - what if someone calls this from within a uplevel #0 ? The
-    # upvar will be all wrong
-    upvar #1 target_promise target_promise
-    if {![info exists target_promise]} {
-        set msg "promise::then_fulfill called in invalid context."
-        throw [list PROMISE THEN FULFILL NOTARGET $msg] $msg
-    }
-    $target_promise fulfill $value
-}
-
-proc promise::then_chain {promise} {
-    # Chains the promise returned by a [Promise.then] method call to
-    # another promise.
-    #  promise - the promise to which the promise returned by [Promise.then] is
-    #     to be chained
-    #
-    # The [Promise.then] method is a mechanism to chain asynchronous
-    # reactions by registering them on a promise. It returns a new
-    # promise which is settled by the return value from the reaction,
-    # or by the reaction calling one of three commands - [then_fulfill],
-    # `then_reject` or [then_chain]. Calling `then_chain` chains
-    # the promise returned by the `then` method that queued the currently
-    # running reaction to $promise so that the former will be settled
-    # based on the latter.
-    #
-    # It is an error to call this command from outside a reaction
-    # that was queued via the [Promise.then] method on a promise.
-    upvar #1 target_promise target_promise
-    if {![info exists target_promise]} {
-        set msg "promise::then_chain called in invalid context."
-        throw [list PROMISE THEN FULFILL NOTARGET $msg] $msg
-    }
-    $target_promise chain $promise
-}
-
-proc promise::then_reject {reason edict} {
-    # Rejects the promise returned by a [Promise.then] method call from
-    # within its reaction.
-    #   reason - a message string describing the reason for the rejection.
-    #   edict - a Tcl error dictionary
-    # The [Promise.then] method is a mechanism to chain asynchronous
-    # reactions by registering them on a promise. It returns a new
-    # promise which is settled by the return value from the reaction,
-    # or by the reaction calling one of three commands - [then_fulfill],
-    # `then_reject` or [then_chain]. Calling `then_reject` rejects
-    # the promise returned by the `then` method that queued the currently
-    # running reaction.
-    #
-    # It is an error to call this command from outside a reaction
-    # that was queued via the [Promise.then] method on a promise.
-    upvar #1 target_promise target_promise
-    if {![info exists target_promise]} {
-        set msg "promise::then_reject called in invalid context."
-        throw [list PROMISE THEN FULFILL NOTARGET $msg] $msg
-    }
-    $target_promise reject $reason $edict
-}
-
-proc promise::all {promises} {
-    # Returns a promise that fulfills or rejects when all promises
-    # in the $promises argument have fulfilled or any one has rejected.
-    #   promises - a list of Promise objects
-    # If any of $promises rejects, then the promise returned by the
-    # command will reject with the same value. Otherwise, the promise
-    # will fulfill when all promises have fulfilled.
-    # The resolved value will be a list of the resolved
-    # values of the contained promises.
-
-    set all_promise [Promise new [lambda {promises prom} {
-        set npromises [llength $promises]
-        if {$npromises == 0} {
-            $prom fulfill {}
-            return
-        }
-
-        # Ask each promise to update us when resolved.
-        foreach promise $promises {
-            $promise done \
-                [list ::promise::_all_helper $prom $promise FULFILLED] \
-                [list ::promise::_all_helper $prom $promise REJECTED]
-        }
-
-        # We keep track of state with a dictionary that will be
-        # stored in $prom with the following keys:
-        #  PROMISES - the list of promises in the order passed
-        #  PENDING_COUNT - count of unresolved promises
-        #  RESULTS - dictionary keyed by promise and containing resolved value
-        set all_state [list PROMISES $promises PENDING_COUNT $npromises RESULTS {}]
-
-        $prom setdata ALLPROMISES $all_state
-    } $promises]]
-
-    return $all_promise
-}
-
-proc promise::all* args {
-    # Returns a promise that fulfills or rejects when all promises
-    # in the $args argument have fulfilled or any one has rejected.
-    # args - list of Promise objects
-    # This command is identical to the all command except that it takes
-    # multiple arguments, each of which is a Promise object. See [all]
-    # for a description.
-    return [all $args]
-}
-
-# Callback for promise::all.
-#  all_promise - the "master" promise returned by the all call.
-#  done_promise - the promise whose callback is being serviced.
-#  resolution - whether the current promise was resolved with "FULFILLED"
-#   or "REJECTED"
-#  value - the value of the currently fulfilled promise or error description
-#   in case rejected
-#  edict - error dictionary (if promise was rejected)
-proc promise::_all_helper {all_promise done_promise resolution value {edict {}}} {
-    if {![info object isa object $all_promise]} {
-        # The object has been deleted. Naught to do
-        return
-    }
-    if {[$all_promise state] ne "PENDING"} {
-        # Already settled. This can happen when a tracked promise is
-        # rejected and another tracked promise gets settled afterwards.
-        return
-    }
-    if {$resolution eq "REJECTED"} {
-        # This promise failed. Immediately reject the master promise
-        # TBD - can we somehow indicate which promise failed ?
-        $all_promise reject $value $edict
-        return
-    }
-
-    # Update the state of the resolved tracked promise
-    set all_state [$all_promise getdata ALLPROMISES]
-    dict set all_state RESULTS $done_promise $value
-    dict incr all_state PENDING_COUNT -1
-    $all_promise setdata ALLPROMISES $all_state
-
-    # If all promises resolved, resolve the all promise
-    if {[dict get $all_state PENDING_COUNT] == 0} {
-        set values {}
-        foreach prom [dict get $all_state PROMISES] {
-            lappend values [dict get $all_state RESULTS $prom]
-        }
-        $all_promise fulfill $values
-    }
-    return
-}
-
-proc promise::race {promises} {
-    # Returns a promise that fulfills or rejects when any promise
-    # in the $promises argument is fulfilled or rejected.
-    #   promises - a list of Promise objects
-    # The returned promise will fulfill and reject with the same value
-    # as the first promise in $promises that fulfills or rejects.
-    set race_promise [Promise new [lambda {promises prom} {
-        if {[llength $promises] == 0} {
-            catch {throw {PROMISE RACE EMPTYSET} "No promises specified."} reason edict
-            $prom reject $reason $edict
-            return
-        }
-        # Use safe_*, do not directly call methods since $prom may be
-        # gc'ed once settled
-        foreach promise $promises {
-            $promise done [list ::promise::safe_fulfill $prom ] [list ::promise::safe_reject $prom]
-        }
-    } $promises]]
-
-    return $race_promise
-}
-
-proc promise::race* {args} {
-    # Returns a promise that fulfills or rejects when any promise
-    # in the passed arguments is fulfilled or rejected.
-    #   args - list of Promise objects
-    # This command is identical to the `race` command except that it takes
-    # multiple arguments, each of which is a Promise object. See [race]
-    # for a description.
-    return [race $args]
-}
-
-proc promise::await {prom} {
-    # Waits for a promise to be settled and returns its resolved value.
-    #   prom - the promise that is to be waited on
-    # This command may only be used from within a procedure constructed
-    # with the [async] command or any code invoked from it.
-    #
-    # Returns the resolved value of $prom if it is fulfilled or raises an error
-    # if it is rejected.
-    set coro [info coroutine]
-    if {$coro eq ""} {
-        throw {PROMISE AWAIT NOTCORO} "await called from outside a coroutine"
-    }
-    $prom done [list $coro success] [list $coro fail]
-    lassign [yieldto return -level 0] status val ropts
-    if {$status eq "success"} {
-        return $val
-    } else {
-        return -options $ropts $val
-    }
-}
-
-proc promise::async {name paramdefs body} {
-    # Defines an procedure that will run a script asynchronously as a coroutine.
-    # name - name of the procedure
-    # paramdefs - the parameter definitions to the procedure in the same
-    #   form as passed to the standard `proc` command
-    # body - the script to be executed
-    #
-    # When the defined procedure $name is called, it runs the supplied $body 
-    # within a new coroutine. The return value from the $name procedure call
-    # will be a promise that will be fulfilled when the coroutine completes
-    # normally or rejected if it completes with an error.
-    #
-    # Note that the passed $body argument is not the body of the
-    # the procedure $name. Rather it is run as an anonymous procedure in 
-    # the coroutine but in the same namespace context as $name. Thus the
-    # caller or the $body script must not make any assumptions about
-    # relative stack levels, use of `uplevel` etc.
-    #
-    # The primary purpose of this command is to make it easy, in
-    # conjunction with the [await] command, to wrap a sequence of asynchronous
-    # operations as a single computational unit.
-    #
-    # Returns a promise that will be settled with the result of the script.
-    if {![string equal -length 2 "$name" "::"]} {
-        set ns [uplevel 1 namespace current]
-        set name ${ns}::$name
-    } else {
-        set ns ::
-    }
-    set tmpl {
-        proc %NAME% {%PARAMDEFS%} {
-            set p [promise::Promise new [promise::lambda {real_args prom} {
-                coroutine ::promise::async#[info cmdcount] {*}[promise::lambda {p args} {
-                    upvar #1 _current_async_promise current_p
-                    set current_p $p
-                    set status [catch [list apply [list {%PARAMDEFS%} {%BODY%} %NS%] {*}$args] res ropts]
-                    if {$status == 0} {
-                        $p fulfill $res
-                    } else {
-                        $p reject $res $ropts
-                    }
-                } $prom {*}$real_args]
-            } [lrange [info level 0] 1 end]]]
-            return $p
-        }
-    }
-    eval [string map [list %NAME% $name \
-                          %PARAMDEFS% $paramdefs \
-                          %BODY% $body \
-                          %NS% $ns] $tmpl]
-}
-
-proc promise::async_fulfill {val} {
-    # Fulfills a promise for an async procedure with the specified value.
-    #  val - the value with which to fulfill the promise
-    # This command must only be called with the context of an [async]
-    # procedure.
-    #
-    # Returns an empty string.
-    upvar #1 _current_async_promise current_p
-    if {![info exists current_p]} {
-        error "async_fulfill called from outside an async context."
-    }
-    $current_p fulfill $val
-    return
-}
-
-proc promise::async_reject {val {edict {}}} {
-    # Rejects a promise for an async procedure with the specified value.
-    #  val - the value with which to reject the promise
-    #  edict - error dictionary for rejection
-    # This command must only be called with the context of an [async]
-    # procedure.
-    #
-    # Returns an empty string.
-    upvar #1 _current_async_promise current_p
-    if {![info exists current_p]} {
-        error "async_reject called from outside an async context."
-    }
-    $current_p reject $val $edict
-    return
-}
-
-proc promise::async_chain {prom} {
-    # Chains a promise for an async procedure to the specified promise.
-    #  prom - the promise to which the async promise is to be linked.
-    # This command must only be called with the context of an [async]
-    # procedure.
-    #
-    # Returns an empty string.
-    upvar #1 _current_async_promise current_p
-    if {![info exists current_p]} {
-        error "async_chain called from outside an async context."
-    }
-    $current_p chain $prom
-    return
-}
-
-proc promise::pfulfilled {value} {
-    # Returns a new promise that is already fulfilled with the specified value.
-    #  value - the value with which to fulfill the created promise
-    return [Promise new [lambda {value prom} {
-        $prom fulfill $value
-    } $value]]
-}
-
-proc promise::prejected {value {edict {}}} {
-    # Returns a new promise that is already rejected.
-    #  value - the value with which to reject the promise
-    #  edict - error dictionary for rejection
-    # By convention, $value should be of the format returned by
-    # [Promise.reject].
-    return [Promise new [lambda {value edict prom} {
-        $prom reject $value $edict
-    } $value $edict]]
-}
-
-proc promise::eventloop {prom} {
-    # Waits in the eventloop until the specified promise is settled.
-    #  prom - the promise to be waited on
-    # The command enters the event loop in similar fashion to the
-    # Tcl `vwait` command except that instead of waiting on a variable
-    # the command waits for the specified promise to be settled. As such
-    # it has the same caveats as the vwait command in terms of care
-    # being taken in nested calls etc.
-    #
-    # The primary use of the command is at the top level of a script
-    # to wait for one or more promise based tasks to be completed. Again,
-    # similar to the vwait forever idiom.
-    # 
-    #
-    # Returns the resolved value of $prom if it is fulfilled or raises an error
-    # if it is rejected.
-
-    set varname [namespace current]::_pwait_[info cmdcount]
-    $prom done \
-        [lambda {varname result} {
-            set $varname [list success $result]
-        } $varname] \
-        [lambda {varname error ropts} {
-            set $varname [list fail $error $ropts]
-        } $varname]
-    vwait $varname
-    lassign [set $varname] status result ropts
-    if {$status eq "success"} {
-        return $result
-    } else {
-        return -options $ropts $result
-    }
-}
-
-proc promise::pgeturl {url args} {
-    # Returns a promise that will be fulfilled when the URL is fetched.
-    #   url - the URL to fetch
-    #   args - arguments to pass to the `http::geturl` command
-    # This command invokes the asynchronous form of the `http::geturl` command
-    # of the `http` package. If the operation completes with a status of
-    # `ok`, the returned promise is fulfilled with the contents of the
-    # http state array (see the documentation of `http::geturl`). If the
-    # the status is anything else, the promise is rejected with
-    # the `reason` parameter to the reaction containing the error message
-    # and the `edict` parameter containing the Tcl error dictionary
-    # with an additional key `http_state`, containing the
-    # contents of the http state array.
-
-    uplevel #0 {package require http}
-    proc pgeturl {url args} {
-        set prom [Promise new [lambda {http_args prom} {
-            http::geturl {*}$http_args -command [promise::lambda {prom tok} {
-                upvar #0 $tok http_state
-                if {$http_state(status) eq "ok"} {
-                    $prom fulfill [array get http_state]
-                } else {
-                    if {[info exists http_state(error)]} {
-                        set msg [lindex $http_state(error) 0]
-                    }
-                    if {![info exists msg] || $msg eq ""} {
-                        set msg "Error retrieving URL."
-                    }
-                    catch {throw {PROMISE PGETURL} $msg} msg edict
-                    dict set edict http_state [array get http_state]
-                    $prom reject $msg $edict
-                }
-                http::cleanup $tok
-            } $prom]
-        } [linsert $args 0 $url]]]
-        return $prom
-    }
-    tailcall pgeturl $url {*}$args
-}
-
-proc promise::ptimer {millisecs {value "Timer expired."}} {
-    # Returns a promise that will be fulfilled when the specified time has
-    # elapsed.
-    #  millisecs - time interval in milliseconds
-    #  value - the value with which the promise is to be fulfilled
-    # In case of errors (e.g. if $milliseconds is not an integer), the
-    # promise is rejected with the `reason` parameter set to an error
-    # message and the `edict` parameter set to a Tcl error dictionary.
-    #
-    # Also see [ptimeout] which is similar but rejects the promise instead
-    # of fulfilling it.
-
-    return [Promise new [lambda {millisecs value prom} {
-        if {![string is integer -strict $millisecs]} {
-            # We don't allow "idle", "cancel" etc. as an argument to after
-            throw {PROMISE TIMER INVALID} "Invalid timeout value \"$millisecs\"."
-        }
-        after $millisecs [list promise::safe_fulfill $prom $value]
-    } $millisecs $value]]
-}
-
-proc promise::ptimeout {millisecs {value "Operation timed out."}} {
-    # Returns a promise that will be rejected when the specified time has
-    # elapsed.
-    #  millisecs - time interval in milliseconds
-    #  value - the value with which the promise is to be rejected
-    # In case of errors (e.g. if $milliseconds is not an integer), the
-    # promise is rejected with the `reason` parameter set to $value
-    # and the `edict` parameter set to a Tcl error dictionary.
-    #
-    # Also see [ptimer] which is similar but fulfills the promise instead
-    # of rejecting it.
-
-    return [Promise new [lambda {millisecs value prom} {
-        if {![string is integer -strict $millisecs]} {
-            # We don't want to accept "idle", "cancel" etc. for after
-            throw {PROMISE TIMER INVALID} "Invalid timeout value \"$millisecs\"."
-        }
-        after $millisecs [::promise::lambda {prom msg} {
-            catch {throw {PROMISE TIMER EXPIRED} $msg} msg edict
-            ::promise::safe_reject $prom $msg $edict
-        } $prom $value]
-    } $millisecs $value]]
-}
-
-proc promise::pconnect {args} {
-    # Returns a promise that will be fulfilled when the socket connection
-    # is completed.
-    #  args - arguments to be passed to the Tcl `socket` command
-    # This is a wrapper for the async version of the Tcl `socket` command.
-    # If the connection completes, the promise is fulfilled with the
-    # socket handle.
-    # In case of errors (e.g. if the address cannot be fulfilled), the
-    # promise is rejected with the `reason` parameter containing the
-    # error message and the `edict` parameter containing the Tcl error
-    # dictionary.
-    #
-    return [Promise new [lambda {so_args prom} {
-        set so [socket -async {*}$so_args]
-        fileevent $so writable [promise::lambda {prom so} {
-            fileevent $so writable {}
-            set err [chan configure $so -error]
-            if {$err eq ""} {
-                $prom fulfill $so
-            } else {
-                catch {throw {PROMISE PCONNECT FAIL} $err} err edict
-                $prom reject $err $edict
-            }
-        } $prom $so]
-    } $args]]
-}
-
-proc promise::_read_channel {prom chan data} {
-    set newdata [read $chan]
-    if {[string length $newdata] || ![eof $chan]} {
-        append data $newdata
-        fileevent $chan readable [list [namespace current]::_read_channel $prom $chan $data]
-        return
-    }
-
-    # EOF
-    set code [catch {
-        # Need to make the channel blocking else no error is returned
-        # on the close
-        fileevent $chan readable {}
-        fconfigure $chan -blocking 1
-        close $chan
-    } result edict]
-    if {$code} {
-        safe_reject $prom $result $edict
-    } else {
-        safe_fulfill $prom $data
-    }
-}
-
-proc promise::pexec {args} {
-    # Runs an external program and returns a promise for its output.
-    #  args - program and its arguments as passed to the Tcl `open` call
-    #    for creating pipes
-    # If the program runs without errors, the promise is fulfilled by its
-    # standard output content. Otherwise
-    # promise is rejected.
-    #
-    # Returns a promise that will be settled by the result of the program
-    return [Promise new [lambda {open_args prom} {
-        set chan [open |$open_args r]
-        fconfigure $chan -blocking 0
-        fileevent $chan readable [list promise::_read_channel $prom $chan ""]
-    } $args]]
-}
-
-proc promise::safe_fulfill {prom value} {
-    # Fulfills the specified promise.
-    #  prom - the [Promise] object to be fulfilled
-    #  value - the fulfillment value
-    # This is a convenience command that checks if $prom still exists
-    # and if so fulfills it with $value.
-    #
-    # Returns 0 if the promise does not exist any more, else the return
-    # value from its [fulfill][Promise.fulfill] method.
-    if {![info object isa object $prom]} {
-        # The object has been deleted. Naught to do
-        return 0
-    }
-    return [$prom fulfill $value]
-}
-
-proc promise::safe_reject {prom value {edict {}}} {
-    # Rejects the specified promise.
-    #  prom - the [Promise] object to be fulfilled
-    #  value - see [Promise.reject]
-    #  edict - see [Promise.reject]
-    # This is a convenience command that checks if $prom still exists
-    # and if so rejects it with the specified arguments.
-    #
-    # Returns 0 if the promise does not exist any more, else the return
-    # value from its [reject][Promise.reject] method.
-    if {![info object isa object $prom]} {
-        # The object has been deleted. Naught to do
-        return
-    }
-    $prom reject $value $edict
-}
-
-proc promise::ptask {script} {
-    # Creates a new Tcl thread to run the specified script and returns
-    # a promise for the script results.
-    #   script - script to run in the thread
-    # Returns a promise that will be settled by the result of the script
-    #
-    # The `ptask` command runs the specified script in a new Tcl
-    # thread. The promise returned from this command will be fulfilled
-    # with the result of the script if it completes
-    # successfully. Otherwise, the promise will be rejected with an
-    # with the `reason` parameter containing the error message
-    # and the `edict` parameter containing the Tcl error dictionary
-    # from the script failure.
-    #
-    # Note that $script is a standalone script in that it is executed
-    # in a new thread with a virgin Tcl interpreter. Any packages used
-    # by $script have to be explicitly loaded, variables defined in the
-    # the current interpreter will not be available in $script and so on.
-    #
-    # The command requires the Thread package to be loaded.
-
-    uplevel #0 package require Thread
-    proc [namespace current]::ptask script {
-        return [Promise new [lambda {script prom} {
-            set thread_script [string map [list %PROM% $prom %TID% [thread::id] %SCRIPT% $script] {
-                set retcode [catch {%SCRIPT%} result edict]
-                if {$retcode == 0 || $retcode == 2} {
-                    # ok or return
-                    set response [list ::promise::safe_fulfill %PROM% $result]
-                } else {
-                    set response [list ::promise::safe_reject %PROM% $result $edict]
-                }
-                thread::send -async %TID% $response
-            }]
-            thread::create $thread_script
-        } $script]]
-    }
-    tailcall [namespace current]::ptask $script
-}
-
-proc promise::pworker {tpool script} {
-    # Runs a script in a worker thread from a thread pool and
-    # returns a promise for the same.
-    #   tpool - thread pool identifier
-    #   script - script to run in the worker thread
-    # Returns a promise that will be settled by the result of the script
-    #
-    # The Thread package allows creation of a thread pool with the
-    # `tpool create` command. The `pworker` command runs the specified
-    # script in a worker thread from a thread pool. The promise
-    # returned from this command will be fulfilled with the result of
-    # the script if it completes successfully.
-    # Otherwise, the promise will be rejected with an
-    # with the `reason` parameter containing the error message
-    # and the `edict` parameter containing the Tcl error dictionary
-    # from the script failure.
-    #
-    # Note that $script is a standalone script in that it is executed
-    # in a new thread with a virgin Tcl interpreter. Any packages used
-    # by $script have to be explicitly loaded, variables defined in the
-    # the current interpreter will not be available in $script and so on.
-
-    # No need for package require Thread since if tpool is passed to
-    # us, Thread must already be loaded
-    return [Promise new [lambda {tpool script prom} {
-        set thread_script [string map [list %PROM% $prom %TID% [thread::id] %SCRIPT% $script] {
-            set retcode [catch {%SCRIPT%} result edict]
-            if {$retcode == 0 || $retcode == 2} {
-                set response [list ::promise::safe_fulfill %PROM% $result]
-            } else {
-                set response [list ::promise::safe_reject %PROM% $result $edict]
-            }
-            thread::send -async %TID% $response
-        }]
-        tpool::post -detached -nowait $tpool $thread_script
-    } $tpool $script]]
-}
-
-if {0} {
-    package require http
-    proc checkurl {url} {
-        set prom [promise::Promise new [promise::lambda {url prom} {
-            http::geturl $url -method HEAD -command [promise::lambda {prom tok} {
-                upvar #0 $tok http_state
-                $prom fulfill [list $http_state(url) $http_state(status)]
-                ::http::cleanup $tok
-            } $prom]
-        } $url]]
-        return $prom
-    }
-
-    proc checkurls {urls} {
-        return [promise::all [lmap url $urls {checkurl $url}]]
-    }
-
-    [promise::all [
-                   list [
-                         promise::ptask {expr 1+1}
-                        ] [
-                           promise::ptask {expr 2+2}
-                          ]
-                  ]] done [promise::lambda val {puts [tcl::mathop::* {*}$val]}] 
-}
-
-package provide promise [promise::version]
-
-if {[info exists ::argv0] &&
-    [file tail [info script]] eq [file tail $::argv0]} {
-    set filename [file tail [info script]]
-    if {[llength $::argv] == 0} {
-        puts "Usage: [file tail [info nameofexecutable]] $::argv0 dist|install|tm|version"
-        exit 1
-    }
-    switch -glob -- [lindex $::argv 0] {
-        ver* { puts [promise::version] }
-        tm -
-        dist* {
-            if {[file extension $filename] ne ".tm"} {
-                set dir [file join [file dirname [info script]] .. build]
-                file mkdir $dir
-                file copy -force [info script] [file join $dir [file rootname $filename]-[promise::version].tm]
-            } else {
-                error "Cannot create distribution from a .tm file"
-            }
-        }
-        install {
-            # Install in first native file system that exists on search path
-            foreach path [tcl::tm::path list] {
-                if {[lindex [file system $path] 0] eq "native"} {
-                    set dir $path
-                    if {[file isdirectory $path]} {
-                        break
-                    }
-                    # Else keep looking
-                }
-            }
-            if {![file exists $dir]} {
-                file mkdir $dir
-            }
-            if {[file extension $filename] eq ".tm"} {
-                # We already are a .tm with version number
-                set target $filename
-            } else {
-                set target [file rootname $filename]-[promise::version].tm
-            }
-            file copy -force [info script] [file join $dir $target]
-        }
-        default {
-            puts stderr "Unknown option/command \"[lindex $::argv 0]\""
-            exit 1
-        }
-    }
-}
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm
deleted file mode 100644
index 55408253..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk-0.1.tm
+++ /dev/null
@@ -1,8388 +0,0 @@
-#Punk - where radical modification is a craft and anti-patterns are another exploratory tool for the Pattern Punk.
-#Built on Tcl of course - because it's the most powerful piece of under-appreciated and alternate-thinking engineering you can plug into.
-
-
-namespace eval punk {
-    proc lazyload {pkg} {
-        package require zzzload
-        if {[package provide $pkg] eq ""} {
-            zzzload::pkg_require $pkg
-        }
-    }
-    #lazyload twapi ?
-
-    catch {package require vfs} ;#attempt load now so we can use faster 'package provide' to test existence later
-
-    variable can_exec_windowsapp
-    set can_exec_windowsapp unknown ;#don't spend a potential X00ms testing until needed
-    variable windowsappdir
-    set windowsappdir ""
-    variable cmdexedir
-    set cmdexedir ""
-
-    proc sync_package_paths_script {} {
-        #the tcl::tm namespace doesn't exist until one of the tcl::tm commands
-        #is run. (they are loaded via ::auto_index triggering load of tm.tcl)
-        #we call tcl::tm::list to trigger the initial set of tm paths before
-        #we can override it, otherwise our changes will be lost
-        #REVIEW - won't work on safebase interp where paths are mapped to {$p(:x:)} etc
-        return "\
-            apply {{ap tmlist} {
-                set ::auto_path \$ap
-                tcl::tm::list
-                set ::tcl::tm::paths \$tmlist
-            }} {$::auto_path} {[tcl::tm::list]}
-        "
-    }
-
-    proc rehash {{refresh 0}} {
-        global auto_execs
-        if {!$refresh} {
-            unset -nocomplain auto_execs
-        } else {
-            set names [array names auto_execs]
-            unset -nocomplain auto_execs
-            foreach nm $names {
-                auto_execok_windows $nm
-            }
-        }
-        return
-    }
-
-
-    proc ::punk::auto_execok_original name [info body ::auto_execok]
-    variable better_autoexec
-
-    #set better_autoexec 0 ;#use this var via better_autoexec only
-    #proc ::punk::auto_execok_windows name {
-    #    ::punk::auto_execok_original $name
-    #}
-
-    set better_autoexec 1
-    proc ::punk::auto_execok_windows name {
-        ::punk::auto_execok_better $name
-    }
-
-    set has_commandstack [expr {![catch {package require commandstack}]}]
-    if {$has_commandstack} {
-        if {[catch {
-            package require punk::packagepreference
-        } errM]} {
-            catch {puts stderr "Failed to load punk::packagepreference"}
-        }
-        catch punk::packagepreference::install
-    } else {
-        #
-    }
-
-    if {![interp issafe] && $has_commandstack && $::tcl_platform(platform) eq "windows"} {
-
-        #still a caching version of auto_execok - but with proper(fixed) search order
-
-        #set b [info body ::auto_execok]
-        #proc ::auto_execok_original name $b
-
-        proc better_autoexec {{onoff ""}} {
-            variable better_autoexec
-            if {$onoff eq ""} {
-                return $better_autoexec
-            }
-            if {![string is boolean -strict $onoff]} {
-                error "better_autoexec argument 'onoff' must be a boolean, received: $onoff"
-            }
-            if {$onoff && ($onoff != $better_autoexec)} {
-                puts "Turning on better_autoexec - search PATH first then extension"
-                set better_autoexec 1
-                proc ::punk::auto_execok_windows name {
-                    ::punk::auto_execok_better $name
-                }
-                punk::rehash
-            } elseif {!$onoff && ($onoff != $better_autoexec)} {
-                puts "Turning off better_autoexec - search extension then PATH"
-                set better_autoexec 0
-                proc ::punk::auto_execok_windows name {
-                    ::punk::auto_execok_original $name
-                }
-                punk::rehash
-            } else {
-                puts "no change"
-            }
-        }
-        #better_autoexec $better_autoexec ;#init to default
-
-
-        proc auto_execok_better name {
-            global auto_execs env tcl_platform
-
-            if {[info exists auto_execs($name)]} {
-                return $auto_execs($name)
-            }
-            #puts stdout "[a+ red]...[a]"
-            set auto_execs($name) ""
-
-            set shellBuiltins [list assoc cls copy date del dir echo erase exit ftype \
-                md mkdir mklink move rd ren rename rmdir start time type ver vol]
-            if {[info exists env(PATHEXT)]} {
-                # Add an initial ; to have the {} extension check first.
-                set execExtensions [split ";$env(PATHEXT)" ";"]
-            } else {
-                set execExtensions [list {} .com .exe .bat .cmd]
-            }
-
-            if {[string tolower $name] in $shellBuiltins} {
-                # When this is command.com for some reason on Win2K, Tcl won't
-                # exec it unless the case is right, which this corrects.  COMSPEC
-                # may not point to a real file, so do the check.
-                set cmd $env(COMSPEC)
-                if {[file exists $cmd]} {
-                    set cmd [file attributes $cmd -shortname]
-                }
-                return [set auto_execs($name) [list $cmd /c $name]]
-            }
-
-            if {[llength [file split $name]] != 1} {
-                #has a path
-                foreach ext $execExtensions {
-                    set file ${name}${ext}
-                    if {[file exists $file] && ![file isdirectory $file]} {
-                        return [set auto_execs($name) [list $file]]
-                    }
-                }
-                return ""
-            }
-
-            #change1
-            #set path "[file dirname [info nameofexecutable]];.;"
-            set path "[file dirname [info nameofexecutable]];"
-
-            if {[info exists env(SystemRoot)]} {
-                set windir $env(SystemRoot)
-            } elseif {[info exists env(WINDIR)]} {
-                set windir $env(WINDIR)
-            }
-            if {[info exists windir]} {
-                append path "$windir/system32;$windir/system;$windir;"
-            }
-
-            foreach var {PATH Path path} {
-                if {[info exists env($var)]} {
-                    append path ";$env($var)"
-                }
-            }
-
-            #change2
-            if {[file extension $name] ne "" && [string tolower [file extension $name]] in [string tolower $execExtensions]} {
-                set lookfor [list $name]
-            } else {
-                set lookfor [lmap ext $execExtensions {string cat ${name} ${ext}}]
-            }
-            #puts "-->$lookfor"
-            foreach dir [split $path {;}] {
-                set dir [string trim $dir {\\}] ;#trailing slash will result in a tail such as  "/python.exe"
-                #set dir [file normalize $dir]
-                # Skip already checked directories
-                if {[info exists checked($dir)] || ($dir eq "")} {
-                    continue
-                }
-                set checked($dir) {}
-
-                #surprisingly fast
-                #set matches [glob -nocomplain -dir $dir -types f -tails {*}$lookfor]
-                ##puts "--dir $dir matches:$matches"
-                #if {[llength $matches]} {
-                #    set file [file join $dir [lindex $matches 0]]
-                #    #puts "--match0:[lindex $matches 0] file:$file"
-                #    return [set auto_execs($name) [list $file]]
-                #}
-
-                #what if it's a link?
-                #foreach match  [glob -nocomplain -dir $dir -types f -tail {*}$lookfor] {
-                #    set file [file join $dir $match]
-                #    if {[file exists $file]} {
-                #        return [set auto_execs($name) [list $file]]
-                #    }
-                #}
-
-                #safest? could be a link?
-                foreach match  [glob -nocomplain -dir $dir -tail {*}$lookfor] {
-                    set file [file join $dir $match]
-                    if {[file exists $file] && ![file isdirectory $file]} {
-                        return [set auto_execs($name) [list $file]]
-                    }
-                }
-            }
-
-            #foreach ext $execExtensions {
-            #unset -nocomplain checked
-            #foreach dir [split $path {;}] {
-            #    # Skip already checked directories
-            #    if {[info exists checked($dir)] || ($dir eq "")} {
-            #        continue
-            #    }
-            #    set checked($dir) {}
-            #    set file [file join $dir ${name}${ext}]
-            #    if {[file exists $file] && ![file isdirectory $file]} {
-            #        return [set auto_execs($name) [list $file]]
-            #    }
-            #}
-            #}
-            return ""
-        }
-
-
-
-            #review - what if punk package reloaded - but ::auto_execs has updated path for winget.exe?
-            #what if we create another interp and use the same ::auto_execs? The appdir won't be detected.
-            #TODO - see if there is a proper windows way to determine where the 'reparse point' apps are installed
-
-
-
-            #winget is installed on all modern windows (but not on windows sandbox!) and is an example of the problem this addresses
-            #we target apps with same location
-
-            #the main purpose of this override is to support windows app executables (installed as 'reparse points')
-            #for Tcl versions prior to the 2025-01 fix by APN https://core.tcl-lang.org/tcl/tktview/4f0b5767ac
-            #versions prior to this will use cmd.exe to resolve the links
-            set stackrecord [commandstack::rename_command -renamer ::punk auto_execok name  {
-                #set windowsappdir "%appdir%"
-                upvar ::punk::can_exec_windowsapp can_exec_windowsapp
-                upvar ::punk::windowsappdir windowsappdir
-                upvar ::punk::cmdexedir cmdexedir
-
-                if {$windowsappdir eq ""} {
-                    #we are targeting the winget location under the presumption this is where microsoft store apps are stored as 'reparse points'
-                    #Tcl (2025) can't exec when given a path to these 0KB files
-                    #This path is probably something like C:/Users/username/AppData/Local/Microsoft/WindowsApps
-                    if {!([info exists ::env(LOCALAPPDATA)] &&
-                        [file exists [set testapp [file join $::env(LOCALAPPDATA) "Microsoft" "WindowsApps" "winget.exe"]]])} {
-                        #should be unlikely to get here - unless LOCALAPPDATA missing (or winget.exe missing e.g windows sandbox)
-                        set windowsappdir       [file dirname [lindex [::punk::auto_execok_windows winget.exe] 0]]
-                        catch {puts stderr "(resolved winget by search)"}
-                    } else {
-                        set windowsappdir [file dirname $testapp]
-                    }
-                }
-
-                #set default_auto [$COMMANDSTACKNEXT $name]
-                set default_auto [::punk::auto_execok_windows $name]
-                #if {$name ni {cmd cmd.exe}} {
-                #    unset -nocomplain ::auto_execs
-                #}
-
-                if {$default_auto eq ""} {
-                    return
-                }
-                set namedir     [file dirname [lindex $default_auto 0]]
-
-                if {$namedir eq $windowsappdir} {
-                    if {$can_exec_windowsapp eq "unknown"} {
-                        if {[catch {exec [file join $windowsappdir winget.exe] --version}]} {
-                            set can_exec_windowsapp 0
-                        } else {
-                            set can_exec_windowsapp 1
-                        }
-                    }
-                    if {$can_exec_windowsapp} {
-                        return [file join $windowsappdir $name]
-                    }
-                    if {$cmdexedir eq ""} {
-                        #cmd.exe very unlikely to move
-                        set cmdexedir           [file dirname [lindex [::punk::auto_execok_windows cmd.exe] 0]]
-                        #auto_reset never seems to exist as a command - because auto_reset deletes all commands in the ::auto_index
-                        #anyway.. it has other side effects (affects auto_load)
-                    }
-                    return "[file join $cmdexedir cmd.exe] /c $name"
-                }
-                return $default_auto
-            }]
-
-
-    }
-
-}
-
-
-
-#repltelemetry cooperation with other packages such as shellrun
-#Maintenance warning: shellrun expects repltelemetry_emmitters to exist if punk namespace exists
-namespace eval punk {
-    variable repltelemetry_emmitters
-    #don't stomp.. even if something  created this namespace in advance and is 'cooperating' a bit early
-    if {![info exists repltelemetry_emitters]} {
-        set repltelemetry_emmitters [list]
-    }
-}
-
-namespace eval punk::pipecmds {
-    #where to install proc/compilation artifacts for pieplines
-    namespace export *
-}
-namespace eval punk::pipecmds::split_patterns {}
-namespace eval punk::pipecmds::split_rhs {}
-namespace eval punk::pipecmds::var_classify {}
-namespace eval punk::pipecmds::destructure {}
-namespace eval punk::pipecmds::insertion {}
-
-
-#globals... some minimal global var pollution
-#punk's official silly test dictionary
-set punk_testd [dict create \
-    a0 a0val \
-    b0 [dict create \
-        a1 b0a1val \
-        b1 b0b1val \
-        c1 b0c1val \
-        d1 b0d1val \
-       ] \
-    c0 [dict create] \
-    d0 [dict create \
-        a1 [dict create \
-            a2 d0a1a2val \
-            b2 d0a1b2val \
-            c2 d0a1c2val \
-            ] \
-        b1 [dict create \
-            a2 [dict create \
-                a3 d0b1a2a3val \
-                b3 d0b1a2b3val \
-               ] \
-            b2 [dict create \
-                a3 d0b1b2a3val \
-                bananas "in pyjamas" \
-                c3 [dict create \
-                    po "in { }" \
-                    b4 ""\
-                    c4 "can go boom" \
-                   ] \
-                d3 [dict create \
-                        a4 "-paper -cuts" \
-                   ] \
-                e3 [dict create] \
-               ] \
-           ] \
-       ] \
-    e0 "multi\nline"\
-    ]
-#test dict 2 - uniform structure and some keys with common prefixes for glob matching
-set punk_testd2 [dict create \
-    a0 [dict create \
-        b1 {a b c}\
-        b2 {a b c d}\
-        x1 {x y z 1 2}\
-        y2 {X Y Z 1 2}\
-        z1 {k1 v1 k2 v2 k3 v3}\
-       ] \
-    a1 [dict create \
-        b1 {a b c}\
-        b2 {a b c d}\
-        x1 {x y z 1 2}\
-        y2 {X Y Z 1 2}\
-        z1 {k1 v1 k2 v2 k3 v3}\
-       ] \
-    b1 [dict create \
-        b1 {a b c}\
-        b2 {a b c d}\
-        x1 {x y z 1 2}\
-        y2 {X Y Z 1 2}\
-        z1 {k1 v1 k2 v2 k3 v3}\
-       ] \
-]
-
-#impolitely cooperative with punk repl - todo - tone it down.
-#namespace eval ::punk::repl::codethread {
-#    variable running 0
-#}
-package require punk::lib ;# subdependency punk::args
-package require punk::ansi
-if {![llength [info commands ::ansistring]]} {
-    namespace import punk::ansi::ansistring
-}
-#require aliascore after punk::lib & punk::ansi are loaded
-package require punk::aliascore ;#mostly punk::lib aliases
-punk::aliascore::init -force 1
-
-package require punk::repl::codethread
-package require punk::config
-#package require textblock
-package require punk::console ;#requires Thread
-package require punk::ns
-package require punk::winpath ;# for windows paths - but has functions that can be called on unix systems
-package require punk::repo
-package require punk::du
-package require punk::mix::base
-package require base64
-
-package require punk::pipe
-
-namespace eval punk {
-    # -- --- ---
-    #namespace import ::control::assert ;#according to tcllib doc - assert can be enabled/disabled per namespace
-    # using control::control assert enabled within a namespace for which ::control::assert wasn't imported can produce surprising results.
-    #e.g setting to zero may keep asserts enabled - (e.g if the assert command is still available due to namespace path etc) - but.. querying the enabled status may show zero even in the parent namespace where asserts also still work.
-    #package require control
-    #control::control assert enabled 1
-
-    #We will use punk::assertion instead
-
-    package require punk::assertion
-    if {[catch {namespace import ::punk::assertion::assert} errM]} {
-        catch {
-            puts stderr "punk error importing punk::assertion::assert\n$errM"
-            puts stderr "punk::a* commands:[info commands ::punk::a*]"
-        }
-    }
-    punk::assertion::active on
-    # -- --- ---
-
-    interp alias {} purelist       {} lreplace x 0 0   ;#required by pipe system
-    if {[catch {
-        package require pattern
-    } errpkg]} {
-        catch {puts stderr "Failed to load package pattern error: $errpkg"}
-    }
-    package require shellfilter
-    package require punkapp
-    package require funcl
-
-    package require struct::list
-    package require fileutil
-    #package require punk::lib
-
-    #NOTE - always call debug.xxx with braced message instead of double-quoted (unless specifically intending to do double-subtition)
-    #(or $ within values will be substituted, causing an extra error message if the var doesn't exist - which it quite possibly doesn't)
-    package require debug
-
-    debug define punk.unknown
-    debug define punk.pipe
-    debug define punk.pipe.var
-    debug define punk.pipe.args
-    debug define punk.pipe.rep   ;#string/list representation with tcl::unsupported::representation
-    debug define punk.pipe.compile ;#info about when we compile pipeline components into procs etc
-
-
-    #-----------------------------------
-    # todo - load initial debug state from config
-    debug off punk.unknown
-    debug level punk.unknown 1
-    debug off punk.pipe
-    debug level punk.pipe 4
-    debug off punk.pipe.var
-    debug level punk.pipe.var 4
-    debug off punk.pipe.args
-    debug level punk.pipe.args 3
-    debug off punk.pipe.rep 2
-    debug off punk.pipe.compile
-    debug level punk.pipe.compile 2
-
-
-    debug header "dbg> "
-
-
-    variable last_run_display [list]
-
-
-    #variable re_headvar1 {([a-zA-Z:@.(),]+?)(?![^(]*\))(,.*)*$}
-
-
-
-    #-----------------------------------------------------------------------------------
-    #strlen is important for testing issues with string representationa and shimmering.
-    #This specific implementation with append (as at 2023-09) is designed to ensure the original str representation isn't changed
-    #It may need to be reviewed with different Tcl versions in case the append empty string is 'optimised/tuned' in some way that affects the behaviour
-    proc strlen {str} {
-        append str2 $str {}
-        string length $str2
-    }
-    #-----------------------------------------------------------------------------------
-
-    #get a copy of the item without affecting internal rep
-    proc objclone {obj} {
-        append obj2 $obj {}
-    }
-    proc set_clone {varname obj} {
-        #maintenance: also punk::lib::set_clone
-        #e.g used by repl's codeinterp. Maintains internal rep, easier to call e.g interp eval code [list punk::set_clone varnmame $val]
-        append obj2 $obj {}
-        uplevel 1 [list set $varname $obj2]
-    }
-
-    interp alias "" strlen "" ::punk::strlen
-    interp alias "" str_len "" ::punk::strlen
-    interp alias "" objclone "" ::punk::objclone
-    #proc ::strlen {str} {
-    #    string length [append str2 $str {}]
-    #}
-    #proc ::objclone {obj} {
-    #    append obj2 $obj {}
-    #}
-
-    #-----------------------------------------------------------------------------------
-    #order of arguments designed for pipelining
-    #review - 'piper_' prefix is a naming convention for functions that are ordered for tail-argument pipelining
-    #piper_ function names should read intuitively when used in a pipeline with tail argument supplied by the pipeline - but may seem reversed when using standalone.
-    proc piper_append {new base} {
-        append base $new
-    }
-    interp alias "" piper_append "" ::punk::piper_append
-    proc piper_prepend {new base} {
-        append new $base
-    }
-    interp alias "" piper_prepend "" ::punk::piper_prepend
-
-    proc ::punk::K {x y} { return $x}
-
-    #todo ansigrep? e.g grep using ansistripped value
-    proc grepstr1 {pattern data} {
-        set data [string map {\r\n \n} $data]
-        set lines [split $data \n]
-        set matches [lsearch -all -regexp $lines $pattern]
-        set max [lindex $matches end]
-        set w1 [string length $max]
-        set result ""
-        set H [a+ green bold overline]
-        set R \x1b\[m
-        foreach m $matches {
-            set ln [lindex $lines $m]
-            set ln [regsub -all $pattern $ln $H&$R]
-            append result [format %${w1}s $m] " $ln" \n
-        }
-        set result [string trimright $result \n]
-        return $result
-    }
-
-    #----------------------
-    #todo - fix overtype
-    #create test
-    #overtype::renderline -insert_mode 0 -transparent 1 [a+ green]-----[a] " [a+ underline]x[a]"
-    #----------------------
-
-
-    punk::args::define {
-        @id     -id ::punk::grepstr
-        @cmd    -name punk::grepstr\
-            -summary\
-            "Grep for regex pattern in plaintext of supplied (possibly ANSI) string."\
-            -help\
-            "The grepstr command can find strings in ANSI text even if there are interspersed
-            ANSI colour codes etc. Even if a word has different coloured/styled letters, the 
-            regex can match the plaintext. (Search is performed on ansistripped text, and then
-            the matched sections are highlighted and overlayed on the original styled/colourd
-            input.
-            If the input string has ANSI movement codes - the resultant text may not be directly
-            searchable because the parts of a word may be separated by various codes and other
-            plain text. To search such an input string, the string should first be 'rendered' to
-            a form where the ANSI only represents SGR styling (and perhaps other non-movement 
-            codes) using something like overtype::renderline or overtype::rendertext."
-
-        @leaders -min 0 -max 0
-        @opts
-        -returnlines -type string -typesynopsis matched|all -default breaksandmatches -choicecolumns 1 -choices {matched all breaksandmatches} -choicelabels {
-        "matched"\
-        " Return only lines that matched."
-        "breaksandmatches"\
-        " Return configured --break= lines in between non-consecutive matches"
-        "all"\
-        " Return all lines.
-         This has a similar effect to the 'grep' trick of matching on 'pattern|$'
-         (The $ matches all lines that have an end; ie all lines, but there is no
-         associated character to which to apply highlighting)
-         except that when instead using -returnlines all with --line-number, the *
-         indicator after the linenumber will only be highlighted for lines with matches,
-         and the following matchcount will indicate zero for non-matching lines."
-        }
-        -B|--before-context= -parsekey "--before-context" -default 0 -type integer -typesynopsis num
-        -C|--context= -parsekey "--context" -default 0 -type integer -typesynopsis num -help\
-            "Print num lines of leading and trailing context surrounding each match." 
-        -A|--after-context= -parsekey "--after-context" -default 0 -type integer -typesynopsis num
-        --break= -type string -default "-- %c%\U2260" -help\
-            "When returning matched lines and there is a break in consecutive output,
-              display the break with the given string. %c% is a placeholder for the
-              number of lines skipped.
-              Use empty-string for an empty line as a break display.
-               grepstr --break= needle $haystacklines
-
-              The unix grep utility commonly uses -- for this indicator.
-                grepstr --break=-- needle $haystacklines
-
-              Customisation example:
-                grepstr -n \"--break=(skipped %c% lines)\" needle $haystacklines
-              "
-        -ansistrip -type none -help\
-            "Strip all ansi codes from the input string before processing.
-            This is not necessary for regex matching purposes, as the matching is always
-            performed on the ansistripped characters anyway, but by stripping ANSI, the
-            result only has the ANSI supplied by the -highlight option."
-
-        #-n|--line-number as per grep utility, except that we include a * for matches
-        -n|--line-number -type none -help\
-            "Each output line is preceded by its relative line number in the file, starting at line 1.
-              For lines that matched the regex, the line number will be suffixed with a * indicator
-              with the same highlighting as the matched string(s).
-              The number of matches in the line immediately follows the *
-              For lines with no matches the * indicator is present with no highlighting and suffixed
-              with zeros."
-        -i|--ignore-case -type none -help\
-            "Perform case insensitive matching."
-        -highlight -type list -typesynopsis ansinames -default {green bold Black underline overline} -help\
-            "list of ANSI SGR style codes as supported by and documented in punk::ansi::a?"
-        -- -type none
-        @values
-        pattern -type string -help\
-            "regex pattern to match in plaintext portion of ANSI string"
-        string -type string
-    }
-    proc grepstr {args} {
-        lassign [dict values [punk::args::parse $args withid ::punk::grepstr]] leaders opts values received
-        set pattern [dict get $values pattern]
-        set data    [dict get $values string]
-        set do_strip 0
-        if {[dict exists $received -ansistrip]} {
-            set data [punk::ansi::ansistrip $data]
-        }
-        set highlight       [dict get $opts -highlight]
-        set opt_returnlines     [dict get $opts -returnlines]
-        set context         [dict get $opts --context] ;#int
-        set beforecontext   [dict get $opts --before-context]
-        set beforecontext   [expr {max($beforecontext,$context)}]
-        set aftercontext    [dict get $opts --after-context]
-        set aftercontext    [expr {max($aftercontext,$context)}]
-        set break           [dict get $opts --break]
-        set ignorecase      [dict exists $received --ignore-case]
-        if {$ignorecase} {
-            set nocase "-nocase"
-        } else {
-            set nocase ""
-        }
-
-
-        if {[dict exists $received --line-number]} {
-            set do_linenums 1 ;#display lineindex+1
-        } else {
-            set do_linenums 0
-        }
-
-        if {[llength $highlight] == 0} {
-            set H ""
-            set R ""
-        } else {
-            set H [a+ {*}$highlight]
-            set R \x1b\[m
-        }
-
-        set data [string map {\r\n \n} $data]
-        if {![punk::ansi::ta::detect $data]} {
-            set lines [split $data \n]
-            set matches [lsearch -all {*}$nocase -regexp $lines $pattern]
-            set result ""
-            if {$opt_returnlines eq "all"} {
-                set returnlines [punk::lib::range 0 [llength $lines]-1]
-            } else {
-                #matches|breaksandmatches
-                set returnlines $matches
-            }
-            set max [lindex $returnlines end]
-            if {[string is integer -strict $max]} {
-                incr max
-            }
-            set w1 [string length $max]
-            #lineindex is zero based - display of linenums is 1 based
-            set resultlines [dict create]
-            foreach lineindex $returnlines {
-                set ln [lindex $lines $lineindex]
-                set col1 ""
-                if {$do_linenums} {
-                    set col1 [format "%${w1}s " [expr {$lineindex+1}]]
-                }
-                if {$lineindex in $matches} {
-                    set ln [regsub -all {*}$nocase -- $pattern $ln $H&$R] ;#n
-                    set matchcount [regexp -all {*}$nocase -- $pattern $ln]
-                    if {$do_linenums} {
-                        append col1 $H*$R[format %03s $matchcount]
-                    }
-                } else {
-                    if {$do_linenums} {
-                        append col1 "*000"
-                    }
-                }
-                #---------------------------------------------------------------
-                set prelines [lrange $lines $lineindex-$beforecontext $lineindex-1]
-                set s [expr {$lineindex-$beforecontext-1}]
-                if {$s < -1} {set s -1}
-                foreach p $prelines {
-                    incr s
-                    #append result "[format %${w1}s [expr {$s+1}]]-   " " " $p \n
-                    if {![dict exists $resultlines $s]} {
-                        if {$do_linenums} {
-                            set show "[format "%${w1}s " [expr {$s+1}]]-    $p"
-                        } else {
-                            set show $p
-                        }
-                        dict set resultlines $s $show
-                    }
-                }
-                #---------------------------------------------------------------
-                if {$do_linenums} {
-                    set show "$col1 $ln"
-                } else {
-                    set show $ln
-                }
-                dict set resultlines $lineindex $show
-                #---------------------------------------------------------------
-                set postlines [lrange $lines $lineindex+1 $lineindex+$aftercontext]
-                set s $lineindex
-                foreach p $postlines {
-                    incr s
-                    if {![dict exists $resultlines $s]} {
-                        if {$do_linenums} {
-                            set show "[format "%${w1}s " [expr {$s+1}]]-    $p"
-                        } else {
-                            set show $p
-                        }
-                        dict set resultlines $s $show
-                    }
-                }
-                #---------------------------------------------------------------
-
-            }
-        } else {
-            set plain [punk::ansi::ansistrip $data]
-            set plainlines [split $plain \n]
-            set lines [split $data \n]
-            set matches [lsearch -all {*}$nocase -regexp $plainlines $pattern]
-            if {$opt_returnlines eq "all"} {
-                set returnlines [punk::lib::range 0 [llength $lines]-1]
-            } else {
-                set returnlines $matches
-            }
-            set max [lindex $returnlines end]
-            if {[string is integer -strict $max]} {
-                #if max index is 9 - linenum will be 10, (99->100 etc) - so add one in case we're on such a boundary.
-                incr max
-            }
-            set w1 [string length $max]
-            set result ""
-            set placeholder \UFFEF ;#review
-            set resultlines [dict create]
-            foreach lineindex $returnlines {
-                set ln       [lindex $lines $lineindex]
-                set col1 ""
-                if {$do_linenums} {
-                    set col1 [format "%${w1}s " [expr {$lineindex+1}]]
-                }
-                if {$lineindex in $matches} {
-                    set plain_ln [lindex $plainlines $lineindex]
-                    set parts [regexp -all {*}$nocase -indices -inline -- $pattern $plain_ln]
-                    set matchcount [llength $parts]
-                    if {$do_linenums} {
-                        append col1 $H*$R[format %03s $matchcount]
-                    }
-                    if {[llength $parts] == 0} {
-                        #This probably can't happen (?)
-                        #If it does.. it's more likely to be an issue with our line index than with regexp
-                        puts stderr "Unexpected regex mismatch in grepstr - line marked with ??? (shouldn't happen)"
-                        set matchshow "??? $ln"
-                        #dict set resultlines $lineindex $show
-                    } else {
-                        set overlay ""
-                        set i 0
-                        foreach prange $parts {
-                            lassign $prange s e
-                            set prelen [expr {$s - $i}]
-                            append overlay [string repeat $placeholder $prelen] $H[string range $plain_ln $s $e]$R
-                            set i [expr {$e + 1}]
-                        }
-                        set tail [string range $plain_ln $e+1 end]
-                        append overlay [string repeat $placeholder [string length $tail]]
-                        #puts "$overlay"
-                        #puts "$ln"
-                        set rendered [overtype::renderline -transparent $placeholder -insert_mode 0 $ln $overlay]
-                        if {$do_linenums} {
-                            set matchshow "$col1 $rendered"
-                        } else {
-                            set matchshow $rendered
-                        }
-                    }
-                    #---------------------------------------------------------------
-                    set prelines [lrange $lines $lineindex-$beforecontext $lineindex-1]
-                    set s [expr {$lineindex-$beforecontext-1}]
-                    if {$s < -1} {set s -1}
-                    foreach p $prelines {
-                        incr s
-                        #append result "[format %${w1}s [expr {$s+1}]]-   " " " $p \n
-                        if {![dict exists $resultlines $s]} {
-                            if {$do_linenums} {
-                                set show "[format "%${w1}s " [expr {$s+1}]]-    $p"
-                            } else {
-                                set show $p
-                            }
-                            dict set resultlines $s $show
-                        }
-                    }
-                    #---------------------------------------------------------------
-                    dict set resultlines $lineindex $matchshow
-                    #---------------------------------------------------------------
-                    set postlines [lrange $lines $lineindex+1 $lineindex+$aftercontext]
-                    set s $lineindex
-                    foreach p $postlines {
-                        incr s
-                        if {![dict exists $resultlines $s]} {
-                            if {$do_linenums} {
-                                set show "[format "%${w1}s " [expr {$s+1}]]-    $p"
-                            } else {
-                                set show $p
-                            }
-                            dict set resultlines $s $show
-                        }
-                    }
-                    #---------------------------------------------------------------
-                } else {
-                    if {$do_linenums} {
-                        append col1 "*000"
-                        set show "$col1 $ln"
-                    } else {
-                        set show $ln
-                    }
-                    dict set resultlines $lineindex $show
-                }
-            }
-        }
-        set ordered_resultlines [lsort -integer [dict keys $resultlines]]
-        set result ""
-        set i -1
-        set do_break 0
-        if {$opt_returnlines eq "breaksandmatches"} {
-            set do_break 1
-        }
-        if {$do_break} {
-            foreach r $ordered_resultlines {
-                incr i
-                if {$r > $i} {
-                    set c [expr {$r - $i}]
-                    append result [string map [list %c% $c] $break] \n
-                }
-                append result [dict get $resultlines $r] \n
-                set i $r
-            }
-            if {$i<[llength $lines]-1} {
-                set c [expr {[llength $lines]-1-$i}]
-                append result [string map [list %c% $c] $break] \n
-            }
-        } else {
-            foreach r $ordered_resultlines {
-                append result [dict get $resultlines $r] \n
-            }
-        }
-        set result [string trimright $result \n]
-        return $result
-    }
-
-    proc stacktrace {} {
-        set stack "Stack trace:\n"
-        for {set i 1} {$i < [info level]} {incr i} {
-            set lvl [info level -$i]
-            set pname [lindex $lvl 0]
-            append stack [string repeat " " $i]$pname
-
-            if {![catch {info args $pname} pargs]} {
-                foreach value [lrange $lvl 1 end] arg $pargs {
-
-                    if {$value eq ""} {
-                        if {$arg != 0} {
-                            info default $pname $arg value
-                        }
-                    }
-                    append stack " $arg='$value'"
-                }
-            } else {
-                append stack " !unknown vars for $pname"
-            }
-
-            append stack \n
-        }
-        return $stack
-    }
-
-    #review - there are various type of uuid - we should use something consistent across platforms
-    #twapi is used on windows because it's about 5 times faster - but is this more important than consistency?
-    #twapi is much slower to load in the first place (e.g 75ms vs 6ms if package names already loaded) - so for oneshots tcllib uuid is better anyway
-    #(counterpoint: in the case of punk - we currently need twapi anyway on windows)
-    #does tcllib's uuid use the same mechanisms on different platforms anyway?
-    proc ::punk::uuid {} {
-        set has_twapi 0
-        if 0 {
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {![catch {
-                    set loader [zzzload::pkg_wait twapi]
-                } errM]} {
-                    if {$loader in [list failed loading]} {
-                        catch {puts stderr "Unexpected problem during thread-load of pkg twapi - zzload::pkg_wait returned $loader"}
-                    }
-                } else {
-                    package require twapi
-                }
-                if {[package provide twapi] ne ""} {
-                    set has_twapi 1
-                }
-            }
-        }
-        if {!$has_twapi} {
-            if {[catch {package require uuid} errM]} {
-                error "Unable to load a package for uuid on this platform. Try installing tcllib's uuid (any platform) - or twapi for windows"
-            }
-            return [uuid::uuid generate]
-        } else {
-            return [twapi::new_uuid]
-        }
-    }
-
-    #get last command result that was run through the repl
-    proc ::punk::get_runchunk {args} {
-        set argd [punk::args::parse $args withdef {
-            @id -id ::punk::get_runchunk
-            @cmd -name "punk::get_runchunk" -help\
-                "experimental"
-            @opts
-            -1  -optional 1 -type none
-            -2  -optional 1 -type none
-            @values -min 0 -max 0
-        }]
-        #todo - make this command run without truncating previous runchunks
-        set runchunks [tsv::array names repl runchunks-*]
-
-        set sortlist [list]
-        foreach cname $runchunks {
-            set num [lindex [split $cname -] 1]
-            lappend sortlist [list $num $cname]
-        }
-        set sorted [lsort -index 0 -integer $sortlist]
-        set chunkname [lindex $sorted end-1 1]
-        set runlist [tsv::get repl $chunkname]
-        #puts stderr "--$runlist"
-        if {![llength $runlist]} {
-            return ""
-        } else {
-            return [lindex [lsearch -inline -index 0 $runlist result] 1]
-        }
-    }
-    interp alias {} _ {} ::punk::get_runchunk
-
-
-    proc ::punk::var {varname {= _=.=_} args} {
-        upvar $varname the_var
-        switch -exact -- ${=} {
-            = {
-                if {[llength $args] > 1} {
-                    set the_var $args
-                } else {
-                    set the_var [lindex $args 0]
-                }
-            }
-            .= {
-                if {[llength $args] > 1} {
-                    set the_var [uplevel 1 $args]
-                } else {
-                    set the_var [uplevel 1 [lindex $args 0]]
-                }
-            }
-            _=.=_ {
-                set the_var
-            }
-            default {
-                set the_var [list ${=} {*}$args]
-            }
-        }
-    }
-    proc src {args} {
-        #based on  wiki.. https://wiki.tcl-lang.org/page/source+with+args
-        #added support for ?-encoding name? and other options of Tcl source command under assumption they come pairs before the filename
-        # review? seems unlikely source command will ever accept solo options. It would make complete disambiguation impossible when passing additional args as we are doing here.
-        set cmdargs [list]
-        set scriptargs [list]
-        set inopts 0
-        set i 0
-        foreach a $args {
-            if {$i eq [llength $args]-1} {
-                #reached end without finding end of opts
-                #must be file - even if it does match -* ?
-                break
-            }
-            if {!$inopts} {
-                if {[string match -* $a]} {
-                    set inopts 1
-                } else {
-                  #leave loop at first nonoption - i should be index of file
-                  break
-                }
-            } else {
-                #leave for next iteration to check
-                set inopts 0
-            }
-            incr i
-        }
-        set cmdargs [lrange $args 0 $i]
-        set scriptargs [lrange $args $i+1 end]
-        set argv $::argv
-        set argc $::argc
-        set ::argv $scriptargs
-        set ::argc [llength $scriptargs]
-        set code [catch {uplevel [list source {*}$cmdargs]} return]
-        set ::argv $argv
-        set ::argc $argc
-        return -code $code $return
-    }
-
-
-
-
-    proc varinfo {vname {flag ""}} {
-        upvar $vname v
-        if {[array exists $vname]} {
-            error "can't read \"$vname\": variable is array"
-        }
-        if {[catch {set v} err]} {
-            error "can't read \"$vname\": no such variable"
-        }
-        set inf [shellfilter::list_element_info [list $v]]
-        set inf [dict get $inf 0]
-        if {$flag eq "-v"} {
-            return $inf
-        }
-
-        set output [dict create]
-        dict set output wouldbrace [dict get $inf wouldbrace]
-        dict set output wouldescape [dict get $inf wouldescape]
-        dict set output head_tail_names [dict get $inf head_tail_names]
-        dict set output len [dict get $inf len]
-        return $output
-    }
-
-    #review - extending core commands could be a bit intrusive...although it can make sense in a pipeline.
-    #e.g  contrived pipeline example to only allow setting existing keys
-    ## .=  @head.= list {a aaa b bbb c ccc} |d,dkeys@keys> |> &true.= {is_list_all_in_list $nkeys $dkeys} |> {dict modify d {*}$new} <new,nkeys@keys| a AAA c CCC
-    #conversely - only allow setting new keys:
-    ## .=  @head.= list {a aaa b bbb c ccc} |d,dkeys@keys> |> &true.= {is_list_all_ni_list $nkeys $dkeys} |> {dict modify d {*}$new} <new,nkeys@keys| x XXX y YYY z ZZZ
-    namespace eval dictextension {
-        proc modify {var args} {
-            upvar 1 $var dvar
-            if {![info exists dvar]} {
-                error "dict modify requires existing variable $var"
-            }
-            foreach {name val} $args {
-                dict set dvar $name $val
-            }
-            set dvar
-        }
-    }
-
-
-    #punk::lib::ensemble::extend dict ::punk::dictextension
-
-
-
-    #split a varname of form var1,var2,var3.. at specified char - but ignoring the char within brackets
-    #(a common array variable convention is to use comma for levels).
-    #e.g var(x,y),blah,var(,foo)  would be split into var(x,y) blah var(,foo) if comma is specified as the char
-    #Assumption - char not in "(" ")"
-    #for punk varspecs we use /  as the separator
-    proc _split_at_unbracketed_comma1 {varname} {
-
-        set re_headvar {(.+?)(?![^(]*\))(,.*)*$}
-        set varname [string trimleft $varname ,]
-        set varlist [list]
-        if {[regexp $re_headvar $varname _ v1 vtail]} {
-            lappend varlist $v1
-            set subvars [_split_at_unbracketed_comma $vtail]
-            set varlist [concat $varlist $subvars]
-            return $varlist
-        } else {
-            return $varname
-        }
-    }
-
-    #non recursive without regexp is significantly faster
-    proc _split_at_unbracketed_comma {varspecs} {
-        set varlist [list]
-        set in_brackets 0
-        set varspecs [string trimleft $varspecs,]
-        set token ""
-        if {[string first "," $varspecs] <0} {
-            return $varspecs
-        }
-        foreach c [split $varspecs ""] {
-            if {$in_brackets} {
-               if {$c eq ")"} {
-                    set in_brackets 0
-               }
-               append token $c
-            } else {
-                if {$c eq ","} {
-                    lappend varlist $token
-                    set token ""
-                } else {
-                    append token $c
-                    if {$c eq "("} {
-                        set in_brackets 1
-                    }
-                }
-            }
-        }
-        if {[string length $token]} {
-            lappend varlist $token
-        }
-        return $varlist
-    }
-
-    proc _split_var_key_at_unbracketed_comma {varspecs} {
-        set varlist [list]
-        set var_terminals [list "@" "/" "#" "!"]
-        #except when prefixed directly by pin classifier ^
-        set protect_terminals [list "^"]   ;# e.g sequence ^#
-        #also - an atom usually doesn't need the / as a terminal - because it can't match a missing element unless it's empty string
-        #ie the one usecase is '/n    to match either empty string or missing item at position n. For this one usecase - we miss the capability to atom match paths/urls .. '/usr/local/et'
-        set in_brackets 0
-        #set varspecs [string trimleft $varspecs ,]
-        set token ""
-        #if {[string first "," $varspecs] <0} {
-        #    return $varspecs
-        #}
-        set first_term -1
-        set token_index 0 ;#index of terminal char within each token
-        set prevc ""
-        foreach c [split $varspecs ""] {
-            if {$in_brackets} {
-               append token $c
-               if {$c eq ")"} {
-                    set in_brackets 0
-               }
-            } else {
-                if {$c eq ","} {
-                    lappend varlist [punk::lib::string_splitbefore $token $first_term]
-
-                    set token ""
-                    set token_index -1 ;#reduce by 1 because , not included in next token
-                    set first_term -1
-                } else {
-                    append token $c
-                    if {$first_term == -1 && (($c in $var_terminals) && ($prevc ni $protect_terminals))} {
-                        set first_term $token_index
-                    } elseif {$c eq "("} {
-                        set in_brackets 1
-                    }
-                }
-            }
-            set prevc $c
-            incr token_index
-        }
-        if {[string length $token]} {
-            lappend varlist [punk::lib::string_splitbefore $token $first_term]
-        }
-        return $varlist
-    }
-    proc _split_var_key_at_unbracketed_comma1 {varspecs} {
-        set varlist [list]
-        set var_terminals [list "@" "/" "#" "!"]
-        set in_brackets 0
-        #set varspecs [string trimleft $varspecs ,]
-        set token ""
-        #if {[string first "," $varspecs] <0} {
-        #    return $varspecs
-        #}
-        set first_term -1
-        set token_index 0 ;#index of terminal char within each token
-        foreach c [split $varspecs ""] {
-            if {$in_brackets} {
-               if {$c eq ")"} {
-                    set in_brackets 0
-               }
-               append token $c
-            } else {
-                if {$c eq ","} {
-                    if {$first_term > -1} {
-                        #lassign [punk::lib::string_splitbefore $token $first_term] v k
-                        set v [string range $token 0 $first_term-1]
-                        set k [string range $token $first_term end] ;#key section includes the terminal char
-                        lappend varlist [list $v $k]
-                    } else {
-                        lappend varlist [list $token ""]
-                    }
-                    set token ""
-                    set token_index -1 ;#reduce by 1 because , not included in next token
-                    set first_term -1
-                } else {
-                    if {$first_term == -1} {
-                        if {$c in $var_terminals} {
-                            set first_term $token_index
-                        }
-                    }
-                    append token $c
-                    if {$c eq "("} {
-                        set in_brackets 1
-                    }
-                }
-            }
-            incr token_index
-        }
-        if {[string length $token]} {
-            if {$first_term > -1} {
-                set v [string range $token 0 $first_term-1]
-                set k [string range $token $first_term end] ;#key section includes the terminal char
-                lappend varlist [list $v $k]
-            } else {
-                lappend varlist [list $token ""]
-            }
-        }
-        return $varlist
-    }
-
-    proc fp_restructure {selector data} {
-        if {$selector eq ""} {
-            fun=.= {val $input} <input|
-
-        } else {
-
-
-        }
-
-        return $fun
-    }
-
-    proc destructure {selector data} {
-        # replaced by proc generating destructure_func -
-        catch {puts stderr "punk::destructure .d. selector:'$selector'"}
-        set selector [string trim $selector /]
-        upvar v_dict_idx v_dict_idx  ;#positional tracker for /@@ - dict position
-
-        set leveldata $data
-
-        set subindices [split $selector /]
-
-        set i_keyindex 0
-        set active_key_type ""
-        set action ?match ;#default assumption. Alternatively set to ?mismatch or ?mismatch-<somereason> and always break
-        set lhs ""
-        set rhs ""
-        #todo - check performance impact of catches around list and dict operations - consider single catch around destructure and less specific match error info?
-        foreach index $subindices {
-            set subpath [join [lrange $subindices 0 $i_keyindex] /]
-            set lhs $subpath
-            set assigned ""
-            set get_not 0
-            set already_assigned 0
-            set do_bounds_check 0  ;#modified by leading single @ for list operations - doesn't apply to certain items like 'head','tail' which have specifically defined bounds-checks implicit in their normal meaning.
-            #thse have anyhead and anytail for explicit allowance to be used on lists with insufficient items to produce values.
-            #todo - see if 'string is list' improved in tcl9 vs catch {llength $list}
-            switch -exact -- $index {
-                # {
-                    set active_key_type "list"
-                    if {![catch {llength $leveldata} assigned]} {
-                        set already_assigned 1
-                    } else {
-                        set action ?mismatch-not-a-list
-                        break
-                    }
-                }
-                ## {
-                    set active_key_type "dict"
-                    if {![catch {dict size $leveldata} assigned]} {
-                        set already_assigned 1
-                    } else {
-                        set action ?mismatch-not-a-dict
-                        break
-                    }
-                }
-                #? {
-                    #review - compare to %# ?????
-                    #seems to be unimplemented ?
-                    set assigned [string length $leveldata]
-                    set already_assigned 1
-                }
-                @ {
-                    upvar v_list_idx v_list_idx  ;#positional tracker for /@ - list position
-                    set active_key_type "list"
-                    #e.g @1/1/@/1   the lone @ is a positional spec for this specific subkey
-                    #no normalization done - ie @2/@  will not be considered same subkey as @end/@ or @end-0/@ even if llength = 3
-                    #while x@,y@.=  is reasonably handy - especially for args  e.g <a@,b@,c@| v1 v2 v3 instead of requiring <a@0,b@1,c@2|
-                    # - the utility of x/somesubkey/@  is a bit dubious but included for consistency and completeness.
-                    # - bind specs may be constructed programmatically so it may cause surprise if it only worked at level zero of key lists.
-                    #set subpath [join [lrange $subindices 0 $i_keyindex] /]
-                    set next_this_level [incr v_list_idx($subpath)] ;#incr will return 1 first call as we don't check subpath exists in array
-                    set index [expr {$next_this_level -1}]
-
-                    if {[catch {llength $leveldata} len]} {
-                        set action ?mismatch-not-a-list
-                        break
-                    }
-                    if {$index+1 > $len} {
-                        set action ?mismatch-list-index-out-of-range
-                        break
-                    }
-                    set assigned [lindex $leveldata $index]
-                    set already_assigned 1
-                }
-                @@ - @?@ - @??@ {
-                    set active_key_type "dict"
-
-                    #NOTE: it may at first seem pointless to use @@/key,  since we have to know the key - but this can be used to match 'key' only at the first position in .= list key {x y} key2 etc
-                    #x@@ = a {x y}
-                    #x@@/@0 = a
-                    #x@@/@1 = x y
-                    #x@@/a = a {x y}
-                    # but.. as the @@ is stateful - it generally isn't very useful for multiple operations on the same pair within the pattern group.
-                    # (note that ?@ forms a different subpath - so can be used to test match prior to @@ without affecting the index)
-                    # It is analogous to v1@,v2@  for lists.
-                    # @pairs is more useful for repeated operations
-
-                    #
-                    #set subpath [join [lrange $subindices 0 $i_keyindex] /]
-                    if {[catch {dict size $leveldata} dsize]} {
-                        set action ?mismatch-not-a-dict
-                        break
-                    }
-                    set next_this_level [incr v_dict_idx($subpath)]
-                    set keyindex [expr {$next_this_level -1}]
-                    if {($keyindex + 1) <= $dsize} {
-                        set k [lindex [dict keys $leveldata] $keyindex]
-                        if {$index eq "@?@"} {
-                            set assigned [dict get $leveldata $k]
-                        } else {
-                            set assigned [list $k [dict get $leveldata $k]]
-                        }
-                    } else {
-                        if {$index eq "@@"} {
-                            set action ?mismatch-dict-index-out-of-range
-                            break
-                        } else {
-                            set assigned [list]
-                        }
-                    }
-                    set already_assigned 1
-                }
-                default {
-                    switch -glob -- $index {
-                        @@* {
-                            set active_key_type "dict"
-                            set key [string range $index 2 end]
-                            #dict exists test is safe - no need for catch
-                            if {[dict exists $leveldata $key]} {
-                                set assigned [dict get $leveldata $key]
-                            } else {
-                                set action ?mismatch-dict-key-not-found
-                                break
-                            }
-                            set already_assigned 1
-                        }
-                        {@\?@*} {
-                            set active_key_type "dict"
-                            set key [string range $index 3 end]
-                            #dict exists test is safe - no need for catch
-                            if {[dict exists $leveldata $key]} {
-                                set assigned [dict get $leveldata $key]
-                            } else {
-                                set assigned [list]
-                            }
-                            set already_assigned 1
-                        }
-                        {@\?\?@*} {
-                            set active_key_type "dict"
-                            set key [string range $index 4 end]
-                            #dict exists test is safe - no need for catch
-                            if {[dict exists $leveldata $key]} {
-                                set assigned [list $key [dict get $leveldata $key]]
-                            } else {
-                                set assigned [list]
-                            }
-                            set already_assigned 1
-                        }
-                        @* {
-                            set active_key_type "list"
-                            set do_bounds_check 1
-                            set index [string trimleft $index @]
-                        }
-                        default {
-                            #
-                        }
-                    }
-
-                    if {!$already_assigned} {
-                        if {[string match "not-*" $index] && $active_key_type in [list "" "list"]} {
-                            #e.g not-0-end-1  not-end-4-end-2
-                            set get_not 1
-                            #cherry-pick some easy cases, and either assign, or re-map to corresponding index
-                            switch -- $index {
-                                not-tail {
-                                    set active_key_type "list"
-                                    set assigned [lindex $leveldata 0]; set already_assigned 1
-                                }
-                                not-head {
-                                    set active_key_type "list"
-                                    #set selector "tail"; set get_not 0
-                                    set assigned [lrange $leveldata 1 end]; set already_assigned 1
-                                }
-                                not-end {
-                                    set active_key_type "list"
-                                    set assigned [lrange $leveldata 0 end-1]; set already_assigned 1
-                                }
-                                default {
-                                    #trim off the not-  and let the remaining index handle based on get_not being 1
-                                    set index [string range $index 4 end]
-                                }
-                            }
-                        }
-                    }
-                }
-            }
-
-            if {!$already_assigned} {
-
-                #keyword 'pipesyntax' at beginning of error message
-                set listmsg     "pipesyntax Unable to interpret subindex $index\n"
-                append listmsg  "selector: '$selector'\n"
-                append listmsg  "@ must be followed by a selector (possibly compound separated by forward slashes) suitable for lindex or lrange commands, or a not-x expression\n"
-                append listmsg  "Additional accepted keywords include: head tail\n"
-                append listmsg  "Use var@@key to treat value as a dict and retrieve element at key"
-
-
-                #we can't just set 'assigned' for a position spec for in/ni  (not-in) because we don't have the value here to test against
-                #need to set a corresponding action
-                if {$active_key_type in [list "" "list"]} {
-                    set active_key_type "list"
-                    #for pattern matching purposes - head/tail not valid on empty lists (similar to elixir)
-                    if {$index eq "0"} {
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        set assigned [lindex $leveldata 0]
-                    } elseif {$index eq "head"} {
-                        #NOTE: /@head and /head both do bounds check. This is intentional
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        if {$len == 0} {
-                            set action ?mismatch-list-index-out-of-range-empty
-                            break
-                        }
-                        #alias for 0 - for h@head,t@tail=  similar to erlang/elixir hd() tl()  or [head | tail] = list  syntax
-                        set assigned [lindex $leveldata 0]
-                    } elseif {$index eq "end"} {
-                        # @end /end
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        if {$do_bounds_check && $len < 1} {
-                            set action ?mismatch-list-index-out-of-range
-                        }
-                        set assigned [lindex $leveldata end]
-                    } elseif {$index eq "tail"} {
-                        #NOTE: /@tail and /tail  both do bounds check.  This is intentional.
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        #tail is a little different in that we allow tail on a single element list - returning an empty result - but it can't be called on an empty list
-                        #arguably tail could be considered as an index-out-of-range for less than 2 elements - but this would be less useful, and surprising to those coming from other pattern-matching systems.
-                        #In this way tail is different to @1-end
-                        if {$len == 0} {
-                            set action ?mismatch-list-index-out-of-range
-                            break
-                        }
-                        set assigned [lrange $leveldata 1 end] ;#return zero or more elements - but only if there is something (a head) at position zero.
-                    } elseif {$index eq "anyhead"} {
-                        # @anyhead
-                        #allow returning of head or nothing if empty list
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        set assigned [lindex $leveldata 0]
-                    } elseif {$index eq "anytail"} {
-                        # @anytail
-                        #allow returning of tail or nothing if empty list
-                        #anytail will return empty both for empty list, or single element list - but potentially useful in combination with anyhead.
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        set assigned [lrange $leveldata 1 end]
-                    } elseif {$index eq "init"} {
-                        # @init
-                        #all but last element - same as haskell 'init'
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        set assigned [lrange $leveldata 0 end-1]
-                    } elseif {$index eq "list"} {
-                        # @list
-                        #allow returning of entire list even if empty
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        set assigned $leveldata
-                    } elseif {$index eq "raw"} {
-                        #no list checking..
-                        set assigned $leveldata
-                    } elseif {$index eq "keys"} {
-                        #need active_key_type of 'list' for 'keys' and 'values' keywords which act on either dict or a list with even number of elements
-                        if {[catch {dict size $leveldata} dsize]} {
-                            set action ?mismatch-not-a-dict
-                            break
-                        }
-                        set assigned [dict keys $leveldata]
-                    } elseif {$index eq "values"} {
-                        #need active_key_type of 'list' for 'keys' and 'values' keywords which act on either dict or a list with even number of elements
-                        if {[catch {dict size $leveldata} dsize]} {
-                            set action ?mismatch-not-a-dict
-                            break
-                        }
-                        set assigned [dict values $leveldata]
-                    } elseif {$index eq "pairs"} {
-                        if {[catch {dict size $leveldata} dsize]} {
-                            set action ?mismatch-not-a-dict
-                            break
-                        }
-                        #set assigned [dict values $leveldata]
-                        set pairs [list]
-                        tcl::dict::for {k v} $leveldata {lappend pairs [list $k $v]}
-                        set assigned [lindex [list $pairs [unset pairs]]  0]
-                    } elseif {[string is integer -strict $index]} {
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        # only check if @ was directly in original index section
-                        if {$do_bounds_check && ($index+1 > $len || $index < 0)} {
-                            set action ?mismatch-list-index-out-of-range
-                            break
-                        }
-                        if {$get_not} {
-                            #already handled not-0
-                            set assigned [lreplace $leveldata $index $index]
-                        } else {
-                            set assigned [lindex $leveldata $index]
-                        }
-                    } elseif {[string first "end" $index] >=0} {
-                         if {[regexp {^end([-+]{1,2}[0-9]+)$} $index _match endspec]} {
-                            if {[catch {llength $leveldata} len]} {
-                                set action ?mismatch-not-a-list
-                                break
-                            }
-                            #leave the - from the end- as part of the offset
-                            set offset [expr $endspec] ;#don't brace! (consider: set x --34;puts expr $j;puts expr {$j} )
-                            if {$do_bounds_check && ($offset > 0 || abs($offset) >= $len)} {
-                                set action ?mismatch-list-index-out-of-range
-                                break
-                            }
-                            if {$get_not} {
-                                set assigned [lreplace $leveldata $index $index]
-                            } else {
-                                set assigned [lindex $leveldata $index]
-                            }
-                        } elseif {[regexp {^([0-9]+|end|end[-+]{1,2}[0-9]+)-([0-9]+|end|end[-+]{1,2}([0-9]+))$} $index _ start end]} {
-                            if {[catch {llength $leveldata} len]} {
-                                set action ?mismatch-not-a-list
-                                break
-                            }
-                            if {$do_bounds_check && [string is integer -strict $start]} {
-                                if {$start+1 > $len || $start < 0} {
-                                    set action ?mismatch-list-index-out-of-range
-                                    break
-                                }
-                            } elseif {$start eq "end"} {
-                                #ok
-                            } elseif {$do_bounds_check} {
-                                set startoffset [string range $start 3 end] ;#include the - from end-
-                                set startoffset [expr $startoffset] ;#don't brace!
-                                if {$startoffset > 0 || abs($startoffset) >= $len} {
-                                    set action ?mismatch-list-index-out-of-range
-                                    break
-                                }
-                            }
-                            if {$do_bounds_check && [string is integer -strict $end]} {
-                                if {$end+1 > $len || $end < 0} {
-                                    set action ?mismatch-list-index-out-of-range
-                                    break
-                                }
-                            } elseif {$end eq "end"} {
-                                #ok
-                            } elseif {$do_bounds_check} {
-                                set endoffset [string range $end 3 end] ;#include the - from end-
-                                set endoffset [expr $endoffset] ;#don't brace!
-                                if {$endoffset > 0 || abs($endoffset) >= $len} {
-                                    set action ?mismatch-list-index-out-of-range
-                                    break
-                                }
-                            }
-                            if {$get_not} {
-                                set assigned [lreplace $leveldata $start $end]
-                            } else {
-                                set assigned [lrange $leveldata $start $end]
-                            }
-                        } else {
-                            error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                        }
-                    } elseif {[string first - $index] > 0} {
-                        puts "====> index:$index leveldata:$leveldata"
-                        if {[catch {llength $leveldata} len]} {
-                            set action ?mismatch-not-a-list
-                            break
-                        }
-                        #handle pure int-int ranges separately
-                        set testindex [string map [list - "" + ""] $index]
-                        if {[string is digit -strict $testindex]} {
-                            #don't worry about leading - negative value for indices not valid anyway
-                            set parts [split $index -]
-                            if {[llength $parts] != 2} {
-                                error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                            }
-                            lassign $parts start end
-                            if {$start+1 > $len || $end+1 > $len} {
-                                set action ?mismatch-not-a-list
-                                break
-                            }
-                            if {$get_not} {
-                                set assigned [lreplace $leveldata $start $end]
-                            } else {
-                                set assigned [lrange $leveldata $start $end]
-                            }
-                        } else {
-                            error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                        }
-
-                    } else {
-                        #keyword 'pipesyntax' at beginning of error message
-                        error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                    }
-                } else {
-                    #treat as dict key
-                    set active_key_type "dict"
-                    if {[dict exists $leveldata $index]} {
-                        set assigned [dict get $leveldata $index]
-                    } else {
-                        set action ?mismatch-dict-key-not-found
-                        break
-                    }
-
-                }
-            }
-            set leveldata $assigned
-            set rhs $leveldata
-            #don't break on empty data - operations such as # and ## can return 0
-            #if {![llength $leveldata]} {
-            #    break
-            #}
-            incr i_keyindex
-        }
-        #puts stdout "----> destructure rep leveldata: [rep $leveldata]"
-        #puts stdout ">> destructure returning: [dict create -assigned $leveldata -action $action -lhs $lhs -rhs $rhs]"
-
-        #maintain key order - caller unpacks using lassign
-        return [dict create -assigned $leveldata -action $action -lhs $lhs -rhs $rhs]
-
-    }
-    #todo - fp_destructure  - return a function-pipeline that can then be transformed to a funcl and finally a more efficient tcl script
-    proc destructure_func {selector data} {
-        #puts stderr ".d."
-        set selector [string trim $selector /]
-        #upvar v_list_idx v_list_idx  ;#positional tracker for /@ - list position
-        #upvar v_dict_idx v_dict_idx  ;#positional tracker for /@@ - dict position
-
-        #map some problematic things out of the way in a manner that maintains some transparency
-        #e.g glob chars ? * in a command name can make testing using {[info commands $cmd] ne ""} produce spurious results - requiring a stricter (and slower) test such as {$cmd in [info commands $cmd]}
-        #The selector forms part of the proc name
-        #review - compare with pipecmd_namemapping
-        set selector_safe [string map [list\
-                                    ?           <q>\
-                                    *           <star>\
-                                    \\          <bsl>\
-                                    {"}         <dq>\
-                                    {$}         <d>\
-                                    "\x1b\["    <csi>\
-                                    "\x1b\]"    <osc>\
-                                    {[}         <lb>\
-                                    {]}         <rb>\
-                                    ::          <nssep>\
-                                    {;}         <sc>\
-                                    " "         <sp>\
-                                    \t          <tab>\
-                                    \n          <nl>\
-                                    \r          <cr>\
-                                    ] $selector]
-
-        set cmdname ::punk::pipecmds::destructure::_$selector_safe
-        if {[info commands $cmdname] ne ""} {
-            return [$cmdname $data]  ;# note upvar 2 for stateful v_list_idx to be resolved in _multi_bind_result context
-        }
-
-        set leveldata $data
-        set body [destructure_func_build_procbody $cmdname $selector $data]
-
-        puts stdout ----
-        puts stderr "proc $cmdname {leveldata} {"
-        puts stderr $body
-        puts stderr "}"
-        puts stdout ---
-        proc $cmdname {leveldata} $body
-        #eval $script ;#create the proc
-        debug.punk.pipe.compile {proc $cmdname} 4
-        #return [dict create -assigned $leveldata -action $action -lhs $lhs -rhs $rhs]
-        #use return - script has upvar 2 for v_list_idx to be resolved in _multi_bind_result context
-        return [$cmdname $data]
-    }
-
-    #Builds a *basic* function to do the destructuring.
-    #This is simply a set of steps to destructure each level of the data based on the hierarchical selector.
-    #It just uses intermediate variables and adds some comments to the code to show the indices used at each point.
-    #This may be useful in the long run as a debug/fallback mechanism - but ideally we should be building a more efficient script.
-    proc destructure_func_build_procbody {cmdname selector data} {
-        set script ""
-        #place selector in comment in script only - if there is an error in selector we pick it up when building the script.
-        #The script itself should only be returning errors in its action key of the result dictionary
-        append script \n [string map [list <selector> $selector] {# set selector {<selector>}}]
-        set subindices [split $selector /]
-        append script \n [string map [list <subindices> [list $subindices]] {# set subindices <subindices>}]
-        set action ?match ;#default assumption. Alternatively set to ?mismatch or ?mismatch-<somereason> and always break
-        append script \n {set action ?match}
-        #append script \n {set assigned ""} ;#review
-        set active_key_type ""
-        append script \n {# set active_key_type ""}
-        set lhs ""
-        #append script \n [tstr {set lhs ${{$lhs}}}]
-        append script \n {set lhs ""}
-        set rhs ""
-        append script \n {set rhs ""}
-
-        set INDEX_OPERATIONS {} ;#caps to make clear in templates that this is substituted from script building scope
-
-        #maintain key order - caller unpacks using lassign
-        set returnline {dict create -assigned $leveldata -action $action -lhs $lhs -rhs $rhs}
-        set return_template                                     {return [tcl::dict::create -assigned $leveldata -action $action -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        #set tpl_return_mismatch                                {return [dict create -assigned $leveldata -action ${$MISMATCH} -lhs $lhs -rhs $rhs -index_operations {${$INDEX_OPERATIONS}}]}
-        set tpl_return_mismatch                                 {return [dict create -assigned $leveldata -action ${$MISMATCH}                              -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        set tpl_return_mismatch_not_a_list                      {return [dict create -assigned $leveldata -action ?mismatch-not-a-list                      -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        set tpl_return_mismatch_list_index_out_of_range         {return [dict create -assigned $leveldata -action ?mismatch-list-index-out-of-range         -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        set tpl_return_mismatch_list_index_out_of_range_empty   {return [dict create -assigned $leveldata -action ?mismatch-list-index-out-of-range-empty   -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        set tpl_return_mismatch_not_a_dict                      {return [dict create -assigned $leveldata -action ?mismatch-not-a-dict                      -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        #dict 'index' when using stateful @@ etc to iterate over dict instead of by key
-        set tpl_return_mismatch_dict_index_out_of_range         {return [dict create -assigned $leveldata -action ?mismatch-dict-index-out-of-range         -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-        set tpl_return_mismatch_dict_key_not_found              {return [dict create -assigned $leveldata -action ?mismatch-dict-key-not-found              -lhs $lhs -rhs xxx -index_operations {${$INDEX_OPERATIONS}}]}
-
-
-        if {![string length $selector]} {
-            #just return $leveldata
-            set script {
-                dict create -assigned $leveldata -action ?match -lhs ""  -rhs $leveldata
-            }
-            return $script
-        }
-
-        if {[string is digit -strict [join $subindices ""]]} {
-            #review tip 551 (tcl9+?)
-            #puts stderr ">>>>>>>>>>>>>>>> data: $leveldata selector: $selector  subindices: $subindices"
-            #pure numeric keylist - put straight to lindex
-            #
-            #NOTE: this direct access e.g v/0/1/2  doesn't check out of bounds which is at odds with list access containing @
-            #We will leave this as a syntax for different (more performant) behaviour
-            #-  it's potentially a little confusing - but it would be a shame not to have the possibility to take advantage of the lindex deep indexing capability in pattern matching.
-            #TODO - review and/or document
-            #
-            #Todo - add a handler for v/n/n/n/n/#  to allow unchecked counting at depth too.
-            #(or more generally - loop until we hit another type of subindex)
-
-            #set assigned [lindex $leveldata {*}$subindices]
-            if {[llength $subindices] == 1} {
-                append script \n "# index_operation listindex" \n
-                lappend INDEX_OPERATIONS listindex
-            } else {
-                append script \n "# index_operation listindex-nested" \n
-                lappend INDEX_OPERATIONS listindex-nested
-            }
-            append script \n [tstr -return string -allowcommands  {
-                if {[catch {lindex $leveldata ${$subindices}} leveldata]} {
-                    ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                }
-            }]
-            # -- --- ---
-            #append script \n $returnline \n
-            append script [tstr -return string $return_template]
-            return $script
-            # -- --- ---
-        }
-        if {[string match @@* $selector]} {
-            #part following a double @ is dict key possibly with forward-slash separators for subpath access e.g  @@key/subkey/etc
-            set rawkeylist [split $selector /]  ;#first key retains @@ - may be just '@@'
-            set keypath [string range $selector 2 end]
-            set keylist [split $keypath /]
-            lappend INDEX_OPERATIONS dict_path
-            if {([lindex $rawkeylist 0] ne "@@") && ([lsearch $keylist @*] == -1) && ([lsearch $keylist #*] == -1) && ([lsearch $keylist %*] == -1)} {
-                #pure keylist for dict - process in one go
-                #dict exists will return 0 if not a valid dict.
-                #<keylist> is equivalent to {*}keylist when substituted
-                append script \n [tstr -return string -allowcommands {
-                    if {[dict exists $leveldata ${$keylist}]} {
-                        set leveldata [dict get $leveldata ${$keylist}]
-                    } else {
-                        #set action ?mismatch-dict-key-not-found
-                        ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                    }
-                }]
-                append script [tstr -return string $return_template]
-                return $script
-                # -- --- ---
-            }
-            #else
-            #compound keylist e.g x@@data/@0/1  or x@@/a  (combined dict/list access)
-            #process level by level
-        }
-
-
-
-            set i_keyindex 0
-            append script \n {set i_keyindex 0}
-            #todo - check performance impact of catches around list and dict operations - consider single catch around destructure and less specific match error info?
-            foreach index $subindices {
-                #set index_operation "unspecified"
-                set level_script_complete 0 ;#instead of break - as we can't use data to determine break when building script
-                set SUBPATH [join [lrange $subindices 0 $i_keyindex] /]
-                append script \n "# ------- START index:$index subpath:$SUBPATH ------"
-                set lhs $index
-                append script \n  "set lhs {$index}"
-
-                set assigned ""
-                append script \n  {set assigned ""}
-
-                #got_not shouldn't need to be in script
-                set get_not 0
-                if {[tcl::string::index $index 0] eq "!"} {
-                    append script \n {#get_not is true  e.g !0-end-1  !end-4-end-2 !0 !@0 !@@key}
-                    set index [tcl::string::range $index 1 end]
-                    set get_not 1
-                }
-
-                # do_bounds_check shouldn't need to be in script
-                set do_bounds_check 0  ;#modified by leading single @ for list operations - doesn't apply to certain items like 'head','tail' which have specifically defined bounds-checks implicit in their normal meaning.
-                #thse have anyhead and anytail for explicit allowance to be used on lists with insufficient items to produce values.
-                #append script \n  {set do_boundscheck 0}
-                switch -exact -- $index {
-                    # - @# {
-                        #list length
-                        set active_key_type "list"
-                        if {$get_not} {
-                            lappend INDEX_OPERATIONS  not-list
-                            append script \n  {# set active_key_type "list" index_operation: not-list}
-                            append script \n {
-                                if {[catch {llength $leveldata}]} {
-                                    #not a list - not-length is true
-                                    set assigned 1
-                                } else {
-                                    #is a list -  not-length is false
-                                    set assigned 0
-                                }
-                            }
-                        } else {
-                            lappend INDEX_OPERATIONS  list-length
-                            append script \n  {# set active_key_type "list" index_operation: list-length}
-                            append script \n [tstr -return string -allowcommands {
-                                if {[catch {llength $leveldata} assigned]} {
-                                    ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                }
-                            }]
-                        }
-                        set level_script_complete 1
-                    }
-                    ## {
-                        #dict size
-                        set active_key_type "dict"
-                        if {$get_not} {
-                            lappend INDEX_OPERATIONS  not-dict
-                            append script \n {# set active_key_type "dict" index_operation: not-dict}
-                            append script \n {
-                                if {[catch {dict size $leveldata}]} {
-                                    set assigned 1 ;#not a dict - not-size is true
-                                } else {
-                                    set assigned 0 ;#is a dict - not-size is false
-                                }
-                            }
-                        } else {
-                            lappend INDEX_OPERATIONS  dict-size
-                            append script \n {# set active_key_type "dict" index_operation: dict-size}
-                            append script \n [tstr -return string -allowcommands {
-                                if {[catch {dict size $leveldata} assigned]} {
-                                    #set action ?mismatch-not-a-dict
-                                    ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                }
-                            }]
-                        }
-                        set level_script_complete 1
-                    }
-                    %# {
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%# not string length is not supported"
-                        }
-                        #string length - REVIEW -
-                        lappend INDEX_OPERATIONS  string-length
-                        append script \n {# set active_key_type "" index_operation: string-length}
-                        append script  \n {set assigned [string length $leveldata]}
-                        set level_script_complete 1
-                    }
-                    %%# {
-                        #experimental
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%%# not string length is not supported"
-                        }
-                        #string length - REVIEW -
-                        lappend INDEX_OPERATIONS  ansistring-length
-                        append script \n {# set active_key_type "" index_operation: ansistring-length}
-                        append script  \n {set assigned [ansistring length $leveldata]}
-                        set level_script_complete 1
-                    }
-                    %str {
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%str - not string-get is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  string-get
-                        append script \n {# set active_key_type "" index_operation: string-get}
-                        append script  \n {set assigned $leveldata}
-                        set level_script_complete 1
-                    }
-                    %sp {
-                        #experimental
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%sp - not string-space is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  string-space
-                        append script \n {# set active_key_type "" index_operation: string-space}
-                        append script  \n {set assigned " "}
-                        set level_script_complete 1
-                    }
-                    %empty {
-                        #experimental
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%empty - not string-empty is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  string-empty
-                        append script \n {# set active_key_type "" index_operation: string-empty}
-                        append script  \n {set assigned ""}
-                        set level_script_complete 1
-                    }
-                    @words {
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%words - not list-words-from-string is not supported"
-                        }
-                        lappend INDEX_OPERATIONS list-words-from-string
-                        append script \n {# set active_key_type "" index_operation: list-words-from-string}
-                        append script  \n {set assigned [regexp -inline -all {\S+} $leveldata]}
-                        set level_script_complete 1
-                    }
-                    @chars {
-                        #experimental - leading character based on result not input(?)
-                        #input type is string - but output is list
-                        set active_key_type "list"
-                        if {$get_not} {
-                            error "!%chars - not list-chars-from-string is not supported"
-                        }
-                        lappend INDEX_OPERATIONS list-from_chars
-                        append script \n {# set active_key_type "" index_operation: list-chars-from-string}
-                        append script  \n {set assigned [split $leveldata ""]}
-                        set level_script_complete 1
-                    }
-                    @join {
-                        #experimental - flatten one level of list
-                        #join without arg - output is list
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!@join - not list-join-list is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  list-join-list
-                        append script \n {# set active_key_type "" index_operation: list-join-list}
-                        append script  \n {set assigned [join $leveldata]}
-                        set level_script_complete 1
-                    }
-                    %join {
-                        #experimental
-                        #input type is list - but output is string
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%join - not string-join-list is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  string-join-list
-                        append script \n {# set active_key_type "" index_operation: string-join-list}
-                        append script  \n {set assigned [join $leveldata ""]}
-                        set level_script_complete 1
-                    }
-                    %ansiview {
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%# not string-ansiview is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  string-ansiview
-                        append script \n {# set active_key_type "" index_operation: string-ansiview}
-                        append script  \n {set assigned [ansistring VIEW $leveldata]}
-                        set level_script_complete 1
-                    }
-                    %ansiviewstyle {
-                        set active_key_type "string"
-                        if {$get_not} {
-                            error "!%# not string-ansiviewstyle is not supported"
-                        }
-                        lappend INDEX_OPERATIONS  string-ansiviewstyle
-                        append script \n {# set active_key_type "" index_operation: string-ansiviewstyle}
-                        append script  \n {set assigned [ansistring VIEWSTYLE $leveldata]}
-                        set level_script_complete 1
-                    }
-                    @ {
-                        #as this is a stateful list next index operation - we use not (!@) to mean there is no element at the next index (instead of returning the complement ie all elements except next)
-                        #This is in contrast to other not operations on indices e.g /!2  which returns all elements except that at index 2
-
-
-                        #append script \n {puts stderr [uplevel 1 [list info vars]]}
-
-                        #NOTE:
-                        #v_list_idx in context of _multi_bind_result
-                        #we call destructure_func from _mult_bind_result which in turn calls the proc (or the script on first run)
-                        append script \n {upvar 2 v_list_idx v_list_idx}
-
-                        set active_key_type "list"
-                        append script \n {# set active_key_type "list" index_operation: list-get-next}
-                        #e.g @1/1/@/1   the lone @ is a positional spec for this specific subkey
-                        #no normalization done - ie @2/@  will not be considered same subkey as @end/@ or @end-0/@ even if llength = 3
-                        #while x@,y@.=  is reasonably handy - especially for args  e.g <a@,b@,c@| v1 v2 v3 instead of requiring <a@0,b@1,c@2|
-                        # - the utility of x/somesubkey/@  is a bit dubious but included for consistency and completeness.
-                        # - bind specs may be constructed programmatically so it may cause surprise if it only worked at level zero of key lists.
-                        #set subpath [join [lrange $subindices 0 $i_keyindex] /]
-                        #set next_this_level [incr v_list_idx($subpath)] ;#incr will return 1 first call as we don't check subpath exists in array
-                        #dynamic index - need the index variable in the script - can't hard-code
-                        #set index [expr {$next_this_level -1}]
-
-                        if {$get_not} {
-                            lappend INDEX_OPERATIONS list-has-next
-                            append script \n [tstr -return string -allowcommands {
-                                set index [expr {[set v_list_idx(@)]}] ;#test without moving index - review
-                                if {[catch {llength $leveldata} len]} {
-                                    #not a list
-                                    set assigned 1
-                                } elseif {$index+1 > $len} {
-                                    set assigned 1
-                                } else {
-                                    set assigned 0
-                                }
-                            }]
-
-                        } else {
-                            lappend INDEX_OPERATIONS get-next
-                            append script \n [tstr -return string -allowcommands {
-                                set index [expr {[incr v_list_idx(@)]-1}]
-
-                                if {[catch {llength $leveldata} len]} {
-                                    #set action ?mismatch-not-a-list
-                                    ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                } elseif {$index+1 > $len} {
-                                    #set action ?mismatch-list-index-out-of-range
-                                    ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                } else {
-                                    set assigned [lindex $leveldata $index]
-                                }
-                            }]
-                        }
-                        set level_script_complete 1
-                    }
-                    @* {
-                        set active_key_type "list"
-                        if {$get_not} {
-                            lappend INDEX_OPERATIONS list-is-empty
-                            append script \n [tstr -return string -allowcommands {
-                                if {[catch {llength $leveldata} len]} {
-                                    ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                } elseif {$len == 0} {
-                                    set assigned 1 ;#list is empty
-                                } else {
-                                    set assigned 0
-                                }
-                            }]
-                        } else {
-                            lappend INDEX_OPERATIONS list-get-all
-                            append script \n [tstr -return string -allowcommands {
-                                if {[catch {llength $leveldata} len]} {
-                                    ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                } else {
-                                    set assigned [lrange $leveldata 0 end]
-                                }
-                            }]
-                        }
-                        set level_script_complete 1
-                    }
-                    @@ {
-                        #stateful: tracking of index using v_dict_idx
-                        set active_key_type "dict"
-                        lappend INDEX_OPERATIONS get-next-value
-                        append script \n {# set active_key_type "dict" index_operation: get-next-value}
-                        append script \n {upvar v_dict_idx v_dict_idx} ;#review!
-
-                        #NOTE: it may at first seem pointless to use @@/key,  since we have to know the key - but this can be used to match 'key' only at the first position in .= list key {x y} key2 etc
-                        #x@@ = a {x y}
-                        #x@@/@0 = a
-                        #x@@/@1 = x y
-                        #x@@/a = a {x y}
-                        # but.. as the @@ is stateful - it generally isn't very useful for multiple operations on the same pair within the pattern group.
-                        # (note that @@ @?@ @??@ form different subpaths - so the ? & ?? versions can be used to test match prior to @@ without affecting the index)
-                        #review - might be more useful if they shared an index ?
-                        # It is analogous to v1@,v2@  for lists.
-                        # @pairs is more useful for repeated operations
-
-
-                        set indent "    "
-                        set assignment_script [string map [list \r\n "\r\n$indent" \n "\n$indent" ] {
-                            if {($keyindex + 1) <= $dsize} {
-                                set k [lindex [dict keys $leveldata] $keyindex]
-                                set assigned [list $k [dict get $leveldata $k]]
-                            } else {
-                                ${[tstr -ret string $tpl_return_mismatch_dict_index_out_of_range]}
-                            }
-                        }]
-
-                        set assignment_script [tstr -ret string -allowcommands $assignment_script]
-
-                        append script [tstr -return string -allowcommands {
-                            if {[catch {dict size $leveldata} dsize]} {
-                                ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                            } else {
-                                set next_this_level [incr v_dict_idx(${$SUBPATH})]
-                                set keyindex [expr {$next_this_level -1}]
-                                ${$assignment_script}
-                            }
-                        }]
-                        set level_script_complete 1
-                    }
-                    @?@ {
-                        #stateful: tracking of index using v_dict_idx
-                        set active_key_type "dict"
-                        lappend INDEX_OPERATIONS  get?-next-value
-                        append script \n {# set active_key_type "dict" index_operation: get?-next-value}
-                        append script \n {upvar v_dict_idx v_dict_idx} ;#review!
-                        set indent "    "
-                        set assignment_script [string map [list \r\n "\r\n$indent" \n "\n$indent" ] {
-                            if {($keyindex + 1) <= $dsize} {
-                                set k [lindex [dict keys $leveldata] $keyindex]
-                                set assigned [dict get $leveldata $k]
-                            } else {
-                                set assigned [list]
-                            }
-                        }]
-                        append script [tstr -return string -allowcommands {
-                            if {[catch {dict size $leveldata} dsize]} {
-                                ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                            } else {
-                                set next_this_level [incr v_dict_idx(${$SUBPATH})]
-                                set keyindex [expr {$next_this_level -1}]
-                                ${$assignment_script}
-                            }
-                        }]
-                        set level_script_complete 1
-                    }
-                    @??@ {
-                        set active_key_type "dict"
-                        lappend INDEX_OPERATIONS get?-next-pair
-                        append script \n {# set active_key_type "dict" index_operation: get?-next-pair}
-                        append script \n {upvar v_dict_idx v_dict_idx} ;#review!
-                        set indent "    "
-                        set assignment_script [string map [list \r\n "\r\n$indent" \n "\n$indent" ] {
-                            if {($keyindex + 1) <= $dsize} {
-                                set k [lindex [dict keys $leveldata] $keyindex]
-                                set assigned [list $k [dict get $leveldata $k]]
-                            } else {
-                                set assigned [list]
-                            }
-                        }]
-                        append script [tstr -return string -allowcommands {
-                            if {[catch {dict size $leveldata} dsize]} {
-                                ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                            } else {
-                                set next_this_level [incr v_dict_idx(${$SUBPATH})]
-                                set keyindex [expr {$next_this_level -1}]
-                                ${$assignment_script}
-                            }
-                        }]
-                        set level_script_complete 1
-                    }
-                    @vv@ - @VV@ - @kk@ - @KK@ {
-                        error "unsupported index $index"
-                    }
-                    default {
-
-                        #assert rules for values within @@
-                        #glob search is done only if there is at least one * within @@
-                        #if there is at least one ? within @@ - then a non match will not raise an error (quiet)
-
-                        #single or no char between @@:
-                        #lookup/search is based on key - return is values
-
-                        #double char within @@:
-                        #anything with a dot returns k v pairs           e.g @k.@ @v.@ @..@
-                        #anything that is a duplicate returns k v pairs  e.g @kk@ @vv@ @**@
-                        #anything with a letter and a star returns the type of the letter, and the search is based on the position of the star where posn 1 is for key, posn 2 is for value
-                        #e.g @k*@ returns keys - search on values
-                        #e.g @*k@ returns keys - search on keys
-                        #e.g @v*@ returns values - search on values
-                        #e.g @*v@ returns values - search on keys
-
-                        switch -glob -- $index {
-                            @@* {
-                                #exact key match - return value
-                                #noisy get value - complain if key non-existent
-                                #doesn't complain if not a dict - because we use 'tcl::dict::exists' which will return false without error even if the value isn't dict-shaped
-                                set active_key_type "dict"
-                                set key [string range $index 2 end]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS exactkey-get-value-not
-                                    #review - dict remove allows silent call if key doesn't exist - but we are enforcing existence here
-                                    #this seems reasonable given we have an explicit @?@ syntax (nocomplain equivalent) and there could be a legitimate case for wanting a non-match if trying to return the complement of a non-existent key
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict" index_operation: exactkey-get-value-not
-                                        if {[dict exists $leveldata ${$key}]} {
-                                            set assigned [dict values [dict remove $leveldata ${$key}]]
-                                        } else {
-                                            #set action ?mismatch-dict-key-not-found
-                                            ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                        }
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS  exactkey-get-value
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict index_operation: exactkey-get-value"
-                                        if {[dict exists $leveldata ${$key}]} {
-                                            set assigned [dict get $leveldata ${$key}]
-                                        } else {
-                                            #set action ?mismatch-dict-key-not-found
-                                            ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            {@\?@*} {
-                                #exact key match - quiet get value
-                                #silent empty result if non-existent key - silence when non-existent key also if using not-@?@badkey which will just return whole dict
-                                #note - dict remove will raise error on non-dict-shaped value whilst dict exists will not
-                                set active_key_type "dict"
-                                set key [string range $index 3 end]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS exactkey?-get-value-not
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict" index_operation: exactkey?-get-value-not
-                                        if {[catch {dict size $leveldata}]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                        }
-                                        set assigned [dict values [dict remove $leveldata ${$key}]]
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS exactkey?-get-value
-                                    #dict exists test is safe - no need for catch
-                                    append script \n [string map [list <key> $key] {
-                                        # set active_key_type "dict" index_operation: exactkey?-get-value
-                                        if {[dict exists $leveldata <key>]} {
-                                            set assigned [dict get $leveldata <key>]
-                                        } else {
-                                            set assigned [dict create]
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            {@\?\?@*} {
-                                #quiet get pairs
-                                #this is silent too.. so how do we do a checked return of dict key+val?
-                                set active_key_type "dict"
-                                set key [string range $index 4 end]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS exactkey?-get-pair-not
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict" index_operation: exactkey?-get-pair-not
-                                        if {[catch {dict size $leveldata}]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                        }
-                                        set assigned [dict remove $leveldata ${$key}]
-                                    }]
-                                } else {
-                                    lappend INDEX_OPERATIONS exactkey?-get-pair
-                                    append script \n [string map [list <key> $key] {
-                                        # set active_key_type "dict" index_operation: exactkey?-get-pair
-                                        if {[dict exists $leveldata <key>]} {
-                                            set assigned [dict create <key> [dict get $leveldata <key>]]
-                                        } else {
-                                            set assigned [dict create]
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            @..@* - @kk@* - @KK@* {
-                                #noisy get pairs by key
-                                set active_key_type "dict"
-                                set key [string range $index 4 end]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS exactkey-get-pairs-not
-                                    #review - dict remove allows silent call if key doesn't exist - but we are enforcing existence here
-                                    #this seems reasonable given we have an explicit @?@ syntax (nocomplain equivalent) and there could be a legitimate case for wanting a non-match if trying to return the complement of a non-existent key
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict" index_operation: exactkey-get-pairs-not
-                                        if {[dict exists $leveldata ${$key}]} {
-                                            set assigned [tcl::dict::remove $leveldata ${$key}]
-                                        } else {
-                                            ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                        }
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS exactkey-get-pairs
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict index_operation: exactkey-get-pairs"
-                                        if {[dict exists $leveldata ${$key}]} {
-                                            tcl::dict::set assigned ${$key} [tcl::dict::get $leveldata ${$key}]
-                                        } else {
-                                            ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-
-                            }
-                            @vv@* - @VV@* {
-                                #noisy(?) get pairs by exact value
-                                #return mismatch on non-match even when not- specified
-                                set active_key_type "dict"
-                                set keyglob [string range $index 4 end]
-                                set active_key_type "dict"
-                                set key [string range $index 4 end]
-                                if {$get_not} {
-                                    #review - for consistency we are reporting a mismatch when the antikey being looked up doesn't exist
-                                    #The utility of this is debatable
-                                    lappend INDEX_OPERATIONS  exactvalue-get-pairs-not
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict" index_operation: exactvalue-get-pairs-not
-                                        if {[catch {dict size $leveldata}]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                        }
-                                        set nonmatches [dict create]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {![string equal ${$key} $v]} {
-                                                dict set nonmatches $k $v
-                                            }
-                                        }
-
-                                        if {[dict size $nonmatches] < [dict size $leveldata]} {
-                                            #our key matched something
-                                            set assigned $nonmatches
-                                        } else {
-                                            #our key didn't match anything - don't return the nonmatches
-                                            #set action ?mismatch-dict-key-not-found
-                                            ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                        }
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS exactvalue-get-pairs
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict index_operation: exactvalue-get-pairs-not"
-                                        if {[catch {dict size $leveldata}]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                        }
-                                        set matches [list]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {[string equal ${$key} $v]} {
-                                                lappend matches $k $v
-                                            }
-                                        }
-                                        if {[llength $matches]} {
-                                            set assigned $matches
-                                        } else {
-                                            #set action ?mismatch-dict-key-not-found
-                                            ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-
-                            }
-                            {@\*@*} - {@\*v@*} - {@\*V@*}  {
-                                #dict key glob - return values only
-                                set active_key_type "dict"
-                                if {[string match {@\*@*} $index]} {
-                                    set keyglob [string range $index 3 end]
-                                } else {
-                                    #vV
-                                    set keyglob [string range $index 4 end]
-                                }
-                                #if $keyglob eq "" - needs to query for dict key that is empty string.
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS globkey-get-values-not
-                                    append script \n [tstr -return string -allowcommands {
-                                        if {[catch {dict size $leveldata}]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                        }
-                                        # set active_key_type "dict" index_operation: globkey-get-values-not
-                                        set matched [dict keys $leveldata {${$keyglob}}]
-                                        set assigned [dict values [dict remove $leveldata {*}$matched]]
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS  globkey-get-values
-                                    append script \n [tstr -return string -allowcommands {
-                                        # set active_key_type "dict" index_operation: globkey-get-values
-                                        if {[catch {dict size $leveldata}]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                        }
-                                        set matched [dict keys $leveldata {${$keyglob}}]
-                                        set assigned [list]
-                                        foreach m $matched {
-                                            lappend assigned [dict get $leveldata $m]
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-
-                            }
-                            {@\*.@*} {
-                                #dict key glob - return pairs
-                                set active_key_type "dict"
-                                set keyglob [string range $index 4 end]
-                                append script [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata}]} {
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    }
-                                }]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS  globkey-get-pairs-not
-                                    append script \n [string map [list <keyglob> $keyglob] {
-                                        # set active_key_type "dict" index_operation: globkey-get-pairs-not
-                                        set matched [dict keys $leveldata {<keyglob>}]
-                                        set assigned [dict remove $leveldata {*}$matched]
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS  globkey-get-pairs
-                                    append script \n [string map [list <keyglob> $keyglob] {
-                                        # set active_key_type "dict" index_operations: globkey-get-pairs
-                                        set matched [dict keys $leveldata {<keyglob>}]
-                                        set assigned [dict create]
-                                        foreach m $matched {
-                                            dict set assigned $m [dict get $leveldata $m]
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            {@\*k@*} - {@\*K@*} {
-                                #dict key glob - return keys
-                                set active_key_type "dict"
-                                set keyglob [string range $index 4 end]
-                                append script [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata}]} {
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    }
-                                }]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS globkey-get-keys-not
-                                    append script \n [string map [list <keyglob> $keyglob] {
-                                        # set active_key_type "dict" index_operation: globkey-get-keys-not
-                                        set matched [dict keys $leveldata {<keyglob>}]
-                                        set assigned [dict keys [dict remove $leveldata {*}$matched]]
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS globkey-get-keys
-                                    append script \n [string map [list <keyglob> $keyglob] {
-                                        # set active_key_type "dict" index_operation: globkey-get-keys
-                                        set assigned [dict keys $leveldata {<keyglob>}]
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            {@k\*@*} - {@K\*@*} {
-                                #dict value glob - return keys
-                                set active_key_type "dict"
-                                set valglob [string range $index 4 end]
-                                append script [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata}]} {
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    }
-                                }]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS globvalue-get-keys-not
-                                    append script \n [string map [list <valglob> $valglob] {
-                                        # set active_key_type "dict" index_operation: globvalue-get-keys-not
-                                        set assigned [list]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {![string match {<valglob>} $v]} {
-                                                lappend assigned $k
-                                            }
-                                        }
-                                    }]
-                                } else {
-                                    lappend INDEX_OPERATIONS globvalue-get-keys
-                                    append script \n [string map [list <valglob> $valglob] {
-                                        # set active_key_type "dict" index_operation: globvalue-get-keys
-                                        set assigned [list]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {[string match {<valglob>} $v]} {
-                                                lappend assigned $k
-                                            }
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            {@.\*@*} {
-                                #dict value glob - return pairs
-                                set active_key_type "dict"
-                                set valglob [string range $index 4 end]
-                                append script [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata}]} {
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    }
-                                }]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS globvalue-get-pairs-not
-                                    append script \n [string map [list <valglob> $valglob] {
-                                        # set active_key_type "dict" index_operation: globvalue-get-pairs-not
-                                        set assigned [dict create]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {![string match {<valglob>} $v]} {
-                                                dict set assigned $k $v
-                                            }
-                                        }
-                                    }]
-                                } else {
-                                    lappend INDEX_OPERATIONS  globvalue-get-pairs
-                                    append script \n [string map [list <valglob> $valglob] {
-                                        # set active_key_type "dict" index_operation: globvalue-get-pairs
-                                        set assigned [dict create]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {[string match {<valglob>} $v]} {
-                                                dict set assigned $k $v
-                                            }
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                            }
-                            {@V\*@*} - {@v\*@*} {
-                                #dict value glob - return values
-                                set active_key_type dict
-                                set valglob [string range $index 4 end]
-                                append script [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata}]} {
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    }
-                                }]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS globvalue-get-values-not
-                                    append script \n [string map [list <valglob> $valglob] {
-                                        # set active_key_type "dict" ;# index_operation: globvalue-get-values-not
-                                        set assigned [list]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {![string match {<valglob>} $v]} {
-                                                lappend assigned $v
-                                            }
-                                        }
-                                    }]
-
-                                } else {
-                                    lappend INDEX_OPERATIONS  globvalue-get-values
-                                    append script \n [string map [list <valglob> $valglob] {
-                                        # set active_key_type "dict" ;#index_operation: globvalue-get-value
-                                        set assigned [dict values $leveldata <valglob>]
-                                    }]
-                                }
-                                set level_script_complete 1
-
-                            }
-                            {@\*\*@*} {
-                                #dict val/key glob return pairs)
-                                set active_key_type "dict"
-                                set keyvalglob [string range $index 4 end]
-                                append script [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata}]} {
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    }
-                                }]
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS  globkeyvalue-get-pairs-not
-                                    error "globkeyvalue-get-pairs-not todo"
-                                } else {
-                                    lappend INDEX_OPERATIONS  globkeyvalue-get-pairs
-                                    append script \n [string map [list <keyvalglob> $keyvalglob] {
-                                        # set active_key_type "dict" ;# index_operation: globkeyvalue-get-pairs-not
-                                        set assigned [dict create]
-                                        tcl::dict::for {k v} $leveldata {
-                                            if {[string match {<keyvalglob>} $k] || [string match {<keyvalglob>} $v]} {
-                                                dict set assigned $k $v
-                                            }
-                                        }
-                                    }]
-                                }
-                                set level_script_complete 1
-                                puts stderr "globkeyvalue-get-pairs review"
-                            }
-                            @* {
-                                set active_key_type "list"
-                                set do_bounds_check 1
-
-                                set index [string trimleft $index @]
-                                append script \n [string map [list <idx> $index] {
-                                    # set active_key_type "list" index_operation: ?
-                                    set index <idx>
-                                }]
-                            }
-                            %* {
-                                set active_key_type "string"
-                                set do_bounds_check 0
-                                set index [string range $index 1 end]
-                                append script \n [string map [list <idx> $index] {
-                                    # set active_key_type "string" index_operation: ?
-                                    set index <idx>
-                                }]
-                            }
-                            default {
-                                puts "destructure_func_build_body unmatched index $index"
-                            }
-                        }
-                    }
-                }
-
-                if {!$level_script_complete} {
-
-
-                    #keyword 'pipesyntax' at beginning of error message
-                    set listmsg     "pipesyntax Unable to interpret subindex $index\n"
-                    append listmsg  "selector: '$selector'\n"
-                    append listmsg  "@ must be followed by a selector (possibly compound separated by forward slashes) suitable for lindex or lrange commands, or a not-x expression\n"
-                    append listmsg  "Additional accepted keywords include: head tail\n"
-                    append listmsg  "Use var@@key to treat value as a dict and retrieve element at key"
-
-                    #append script \n [string map [list <listmsg> $listmsg] {set listmsg "<listmsg>"}]
-
-
-
-                    #we can't just set 'assigned' for a position spec for in/ni  (not-in) because we don't have the value here to test against
-                    #need to set a corresponding action
-                    if {$active_key_type in [list "" "list"]} {
-                        set active_key_type "list"
-                        append script \n {# set active_key_type "list"}
-                        #for pattern matching purposes - head/tail not valid on empty lists (similar to elixir)
-                        switch -exact -- $index {
-                            0  {
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-int-not" \n
-                                    lappend INDEX_OPERATIONS listindex-zero-not
-                                    set assignment_script {set assigned [lrange $leveldata 1 end]}
-                                } else {
-                                    lappend INDEX_OPERATIONS  listindex-zero
-                                    set assignment_script {set assigned [lindex $leveldata 0]}
-                                    if {$do_bounds_check} {
-                                        append script \n "# index_operation listindex-int (bounds checked)" \n
-                                        append script \n [tstr -return string -allowcommands {
-                                            if {[catch {llength $leveldata} len]} {
-                                                ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                            } elseif {[llength $leveldata] == 0} {
-                                                ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range_empty]}
-                                            } else {
-                                                ${$assignment_script}
-                                            }
-                                        }]
-                                    } else {
-                                        append script \n "# index_operation listindex-int" \n
-                                        append script \n [tstr -return string -allowcommands {
-                                            if {[catch {llength $leveldata} len]} {
-                                                ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                            } else {
-                                                ${$assignment_script}
-                                            }
-                                        }]
-                                    }
-                                }
-                            }
-                            head {
-                                #NOTE: /@head and /head both do bounds check. This is intentional
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-head-not" \n
-                                    lappend INDEX_OPERATIONS listindex-head-not
-                                    set assignment_script {set assigned [lrange $leveldata 1 end]}
-                                } else {
-                                    append script \n "# index_operation listindex-head" \n
-                                    lappend INDEX_OPERATIONS  listindex-head
-                                    set assignment_script {set assigned [lindex $leveldata 0]}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {llength $leveldata} len]} {
-                                        #set action ?mismatch-not-a-list
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                    } elseif {$len == 0} {
-                                        #set action ?mismatch-list-index-out-of-range-empty
-                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range_empty]}
-                                    } else {
-                                        #alias for 0 - for h@head,t@tail=  similar to erlang/elixir hd() tl()  or [head | tail] = list  syntax
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            end {
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-end-not" \n
-                                    lappend INDEX_OPERATIONS listindex-end-not
-                                    #on single element list Tcl's lrange will do what we want here and return nothing
-                                    set assignment_script {set assigned [lrange $leveldata 0 end-1]}
-                                } else {
-                                    append script \n "# index_operation listindex-end" \n
-                                    lappend INDEX_OPERATIONS listindex-end
-                                    set assignment_script {set assigned [lindex $leveldata end]}
-                                }
-                                if {$do_bounds_check} {
-                                    append script \n [tstr -return string -allowcommands {
-                                        if {[catch {llength $leveldata} len]} {
-                                            #set action ?mismatch-not-a-list
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                        } elseif {$len == 0} {
-                                            #set action ?mismatch-list-index-out-of-range
-                                            ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range_empty]}
-                                        } else {
-                                        ${$assignment_script}
-                                        }
-                                    }]
-                                } else {
-                                    append script \n [tstr -return string -allowcommands {
-                                        if {[catch {llength $leveldata} len]} {
-                                            #set action ?mismatch-not-a-list
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                        } else {
-                                            ${$assignment_script}
-                                        }
-                                    }]
-                                }
-                            }
-                            tail {
-                                #NOTE: /@tail and /tail  both do bounds check.  This is intentional.
-                                #
-                                #tail is a little different in that we allow tail on a single element list - returning an empty result - but it can't be called on an empty list
-                                #arguably tail could be considered as an index-out-of-range for less than 2 elements - but this would be less useful, and surprising to those coming from other pattern-matching systems.
-                                #In this way tail is different to @1-end
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-tail-not" \n
-                                    lappend INDEX_OPERATIONS listindex-tail-not
-                                    set assignment_script {set assigned [lindex $leveldata 0]}
-                                } else {
-                                    append script \n "# index_operation listindex-tail" \n
-                                    lappend INDEX_OPERATIONS listindex-tail
-                                    set assignment_script {set assigned [lrange $leveldata 1 end] ;#return zero or more elements - but only if there is something (a head) at position zero}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {llength $leveldata} len]} {
-                                        #set action ?mismatch-not-a-list
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                    } elseif {$len == 0} {
-                                        #set action ?mismatch-list-index-out-of-range
-                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range_empty]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            anyhead {
-                                #allow returning of head or nothing if empty list
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-anyhead-not" \n
-                                    lappend INDEX_OPERATIONS listindex-anyhead-not
-                                    set assignment_script {set assigned [lrange $leveldata 1 end]}
-                                } else {
-                                    append script \n "# index_operation listindex-anyhead" \n
-                                    lappend INDEX_OPERATIONS listindex-anyhead
-                                    set assignment_script {set assigned [lindex $leveldata 0]}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {llength $leveldata} len]} {
-                                        #set action ?mismatch-not-a-list
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            anytail {
-                                #allow returning of tail or nothing if empty list
-                                #anytail will return empty both for empty list, or single element list - but potentially useful in combination with anyhead.
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-anytail-not" \n
-                                    lappend INDEX_OPERATIONS listindex-anytail-not
-                                    set assignment_script {set assigned [lindex $leveldata 0]}
-                                } else {
-                                    append script \n "# index_operation listindex-anytail" \n
-                                    lappend INDEX_OPERATIONS listindex-anytail
-                                    set assignment_script {set assigned [lrange $leveldata 1 end]}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {llength $leveldata} len]} {
-                                        #set action ?mismatch-not-a-list
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            init {
-                                #all but last element - same as haskell 'init'
-                                #counterintuitively, get-notinit can therefore return first element if it is a single element list
-                                #does bounds_check for get-not@init make sense here? maybe - review
-                                if {$get_not} {
-                                    append script \n "# index_operation listindex-init-not" \n
-                                    lappend INDEX_OPERATIONS listindex-init-not
-                                    set assignment_script {set assigned [lindex $leveldata end]}
-                                } else {
-                                    append script \n "# index_operation listindex-init" \n
-                                    lappend INDEX_OPERATIONS listindex-init
-                                    set assignment_script {set assigned [lrange $leveldata 0 end-1]}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {llength $leveldata} len]} {
-                                        #set action ?mismatch-not-a-list
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            list {
-                                #get_not?
-                                #allow returning of entire list even if empty
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS list-getall-not
-                                    set assignment_script {set assigned {}}
-                                } else {
-                                    lappend INDEX_OPERATIONS list-getall
-                                    set assignment_script {set assigned $leveldata}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {llength $leveldata} len]} {
-                                        #set action ?mismatch-not-a-list
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            raw {
-                                #get_not - return nothing??
-                                #no list checking..
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS getraw-not
-                                    append script \n {set assigned {}}
-                                } else {
-                                    lappend INDEX_OPERATIONS getraw
-                                    append script \n {set assigned $leveldata}
-                                }
-                            }
-                            keys {
-                                #@get_not??
-                                #need active_key_type of 'list' for 'keys' and 'values' keywords which act on either dict or a list with even number of elements
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS list-getkeys-not
-                                    set assignment_script {set assigned [dict values $leveldata]} ;#not-keys is equivalent to values
-                                } else {
-                                    lappend INDEX_OPERATIONS list-getkeys
-                                    set assignment_script {set assigned [dict keys $leveldata]}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata} dsize]} {
-                                        #set action ?mismatch-not-a-dict
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            values {
-                                #get_not ??
-                                #need active_key_type of 'list' for 'keys' and 'values' keywords which act on either dict or a list with even number of elements
-                                if {$get_not} {
-                                    lappend INDEX_OPERATIONS list-getvalues-not
-                                    set assignment_script {set assigned [dict keys $leveldata]} ;#not-values is equivalent to keys
-                                } else {
-                                    lappend INDEX_OPERATIONS list-getvalues
-                                    set assignment_script {set assigned [dict values $leveldata]}
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata} dsize]} {
-                                        #set action ?mismatch-not-a-dict
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    } else {
-                                        ${$assignment_script}
-                                    }
-                                }]
-                            }
-                            pairs {
-                                #get_not ??
-                                if {$get_not} {
-                                    #review - return empty list instead like not-list and not-raw?
-                                    error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector not-pairs_not_supported]
-                                } else {
-                                    lappend INDEX_OPERATIONS list-getpairs
-                                }
-                                append script \n [tstr -return string -allowcommands {
-                                    if {[catch {dict size $leveldata} dsize]} {
-                                        #set action ?mismatch-not-a-dict
-                                        ${[tstr -ret string $tpl_return_mismatch_not_a_dict]}
-                                    } else {
-                                        set pairs [list]
-                                        tcl::dict::for {k v} $leveldata {lappend pairs [list $k $v]}
-                                        set assigned [lindex [list $pairs [unset pairs]]  0]
-                                    }
-                                }]
-                            }
-                            default {
-                                if {[regexp {[?*]} $index]} {
-                                    if {$get_not} {
-                                        lappend INDEX_OPERATIONS listsearch-not
-                                        set assign_script [string map [list <idx> $index] {
-                                            set assigned [lsearch -all -inline -not $leveldata <idx>]
-                                        }]
-                                    } else {
-                                        lappend INDEX_OPERATIONS listsearch
-                                        set assign_script [string map [list <idx> $index] {
-                                            set assigned [lsearch -all -inline $leveldata <idx>]
-                                        }]
-                                    }
-                                    append script \n [tstr -return string -allowcommands {
-                                        if {[catch {llength $leveldata} len]} {
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                        } else {
-                                        ${$assign_script}
-                                        }
-                                    }]
-                                } elseif {[string is integer -strict $index]} {
-                                    if {$get_not} {
-                                        lappend INDEX_OPERATIONS listindex-not
-                                        set assign_script [string map [list <idx> $index] {
-                                            #not- was specified (already handled not-0)
-                                            set assigned [lreplace $leveldata <idx> <idx>]
-                                        }]
-                                    } else {
-                                        lappend INDEX_OPERATIONS listindex
-                                        set assign_script [string map [list <idx> $index] {set assigned [lindex $leveldata <idx>]}]
-                                    }
-
-                                    if {$do_bounds_check} {
-                                        if {$index < 0} {
-                                            error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector index_lessthanzero_out_of_bounds_for_all_data_while_bounds_check_on]
-                                        }
-                                        set max [expr {$index + 1}]
-                                        append script \n [tstr -return string -allowcommands {
-                                            if {[catch {llength $leveldata} len]} {
-                                                #set action ?mismatch-not-a-list
-                                                ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                            } else {
-                                                # bounds_check due to @ directly specified in original index section
-                                                if {${$max} > $len} {
-                                                    #set action ?mismatch-list-index-out-of-range
-                                                    ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                } else {
-                                                    ${$assign_script}
-                                                }
-                                            }
-                                        }]
-                                    } else {
-                                        append script \n [tstr -return string -allowcommands {
-                                            if {[catch {llength $leveldata} len]} {
-                                                #set action ?mismatch-not-a-list
-                                                ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                            } else {
-                                            ${$assign_script}
-                                            }
-                                        }]
-                                    }
-                                } elseif {[string first "end" $index] >=0} {
-                                    if {[regexp {^end([-+]{1,2}[0-9]+)$} $index _match endspec]} {
-
-                                        if {$get_not} {
-                                            lappend INDEX_OPERATIONS listindex-endoffset-not
-                                            set assign_script [string map [list <idx> $index] {
-                                                #not- was specified (already handled not-0)
-                                                set assigned [lreplace $leveldata <idx> <idx>]
-                                            }]
-                                        } else {
-                                            lappend INDEX_OPERATIONS listindex-endoffset
-                                            set assign_script [string map [list <idx> $index ] {set assigned [lindex $leveldata <idx>]}]
-                                        }
-
-                                        if {$do_bounds_check} {
-                                            #tstr won't add braces - so the ${$endspec} value inserted in the expr will remain unbraced as required in this case.
-                                            append script \n [tstr -return string -allowcommands {
-                                                if {[catch {llength $leveldata} len]} {
-                                                    set action ?mismatch-not-a-list
-                                                } else {
-                                                    #bounds-check is true
-                                                    #leave the - from the end- as part of the offset
-                                                    set offset [expr ${$endspec}] ;#don't brace!
-                                                    if {($offset > 0 || abs($offset) >= $len)} {
-                                                        #set action ?mismatch-list-index-out-of-range
-                                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                    } else {
-                                                       ${$assign_script}
-                                                    }
-                                                }
-                                            }]
-                                        } else {
-                                            append script \n [tstr -ret string -allowcommands {
-                                                if {[catch {llength $leveldata} len]} {
-                                                    #set action ?mismatch-not-a-list
-                                                    ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                                } else {
-                                                   ${$assign_script}
-                                                }
-                                            }]
-                                        }
-
-                                    } elseif {[regexp {^([0-9]+|end|end[-+]{1,2}[0-9]+)-([0-9]+|end|end[-+]{1,2}([0-9]+))$} $index _ start end]} {
-                                        if {$get_not} {
-                                            lappend INDEX_OPERATIONS list-range-not
-                                            set assign_script [string map [list <s> $start <e> $end ] {
-                                                #not- was specified (already handled not-0)
-                                                set assigned [lreplace $leveldata <s> <e>]
-                                            }]
-                                        } else {
-                                            lappend INDEX_OPERATIONS list-range
-                                            set assign_script [string map [list <s> $start <e> $end] {set assigned [lrange $leveldata <s> <e>]}]
-                                        }
-
-                                        append script \n [tstr -ret string -allowcommands {
-                                            if {[catch {llength $leveldata} len]} {
-                                                #set action ?mismatch-not-a-list
-                                                ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                            }
-                                        }]
-
-                                        if {$do_bounds_check} {
-                                            if {[string is integer -strict $start]} {
-                                                if {$start < 0} {
-                                                    error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector start_lessthanzero_out_of_bounds_for_all_data_while_bounds_check_on]
-                                                }
-                                                append script \n [tstr -return string -allowcommands {
-                                                    set start ${$start}
-                                                    if {$start+1 > $len} {
-                                                        #set action ?mismatch-list-index-out-of-range
-                                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                    }
-                                                }]
-                                            } elseif {$start eq "end"} {
-                                                #noop
-                                            } else {
-                                                set startoffset [string range $start 3 end] ;#include the - from end-
-                                                set startoffset [expr $startoffset] ;#don't brace!
-                                                if {$startoffset > 0} {
-                                                    #e.g end+1
-                                                    error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector end+x_out_of_bounds_for_all_data_while_bounds_check_on]
-
-                                                }
-                                                append script \n [tstr -return string -allowcommands {
-                                                    set startoffset ${$startoffset}
-                                                    if {abs($startoffset) >= $len} {
-                                                        #set action ?mismatch-list-index-out-of-range
-                                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                    }
-                                                }]
-                                            }
-                                            if {[string is integer -strict $end]} {
-                                                if {$end < 0} {
-                                                    error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector end_lessthanzero_out_of_bounds_for_all_data_while_bounds_check_on]
-                                                }
-                                                append script \n [tstr -return string -allowcommands {
-                                                    set end ${$end}
-                                                    if {$end+1 > $len} {
-                                                        #set action ?mismatch-list-index-out-of-range
-                                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                    }
-                                                }]
-                                            } elseif {$end eq "end"} {
-                                                #noop
-                                            } else {
-                                                set endoffset [string range $end 3 end] ;#include the - from end-
-
-                                                set endoffset [expr $endoffset] ;#don't brace!
-                                                if {$endoffset > 0} {
-                                                    error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector end+x_out_of_bounds_for_all_data_while_bounds_check_on]
-                                                }
-                                                append script \n [tstr -return string -allowcommands {
-                                                    set endoffset ${$endoffset}
-                                                    if {abs($endoffset) >= $len} {
-                                                        #set action ?mismatch-list-index-out-of-range
-                                                        ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                    }
-                                                }]
-                                            }
-                                        }
-
-                                        append script \n [string map [list <assign_script> $assign_script] {
-                                            if {![string match ?mismatch-* $action]} {
-                                                <assign_script>
-                                            }
-                                        }]
-
-                                    } else {
-                                        #fail now - no need for script
-                                        error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                                    }
-                                } elseif {[string first - $index] > 0} {
-                                    #e.g @1-3  gets here
-                                    #JMN
-                                    if {$get_not} {
-                                        lappend INDEX_OPERATIONS list-range-not
-                                    } else {
-                                        lappend INDEX_OPERATIONS list-range
-                                    }
-
-                                    append script \n [tstr -return string -allowcommands {
-                                        if {[catch {llength $leveldata} len]} {
-                                            #set action ?mismatch-not-a-list
-                                            ${[tstr -ret string $tpl_return_mismatch_not_a_list]}
-                                        }
-                                    }]
-
-                                    #handle pure int-int ranges separately
-                                    set testindex [string map [list - "" + ""] $index]
-                                    if {[string is digit -strict $testindex]} {
-                                        #don't worry about leading - negative value for indices not valid anyway
-                                        set parts [split $index -]
-                                        if {[llength $parts] != 2} {
-                                            error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                                        }
-                                        lassign $parts start end
-
-                                        #review - Tcl lrange just returns nothing silently.
-                                        #if we don't intend to implement reverse indexing - we should probably not emit an error
-                                        if {$start > $end} {
-                                            puts stderr "pipesyntax for selector $selector error - reverse index unimplemented"
-                                            error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                                        }
-                                        if {$do_bounds_check} {
-                                            #append script [string map [list <s> $start <e> $end] {
-                                            #    set start <s>
-                                            #    set end <e>
-                                            #    if {$start+1 > $len || $end+1 > $len} {
-                                            #        set action ?mismatch-list-index-out-of-range
-                                            #    }
-                                            #}]
-                                            #set eplusone [expr {$end+1}]
-                                            append script [tstr -return string -allowcommands {
-                                                if {$len < ${[expr {$end+1}]}} {
-                                                    set action ?mismatch-list-index-out-of-range
-                                                    ${[tstr -ret string $tpl_return_mismatch_list_index_out_of_range]}
-                                                }
-                                            }]
-                                        }
-
-
-                                        if {$get_not} {
-                                            set assign_script [string map [list <s> $start <e> $end] {
-                                                #not- was specified (already handled not-0)
-                                                set assigned [lreplace $leveldata <s> <e>]
-                                            }]
-                                        } else {
-                                            set assign_script [string map [list <s> $start <e> $end] {set assigned [lrange $leveldata <s> <e>]}]
-                                        }
-
-
-                                    } else {
-                                        error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                                    }
-
-                                    append script \n [string map [list <assign_script> $assign_script] {
-                                        if {![string match ?mismatch-* $action]} {
-                                            <assign_script>
-                                        }
-                                    }]
-
-                                } else {
-                                    #keyword 'pipesyntax' at beginning of error message
-                                    #pipesyntax error  - no need to even build script - can fail now
-                                    error $listmsg "destructure $selector" [list pipesyntax destructure selector $selector]
-                                }
-                            }
-                        }
-                    } elseif {$active_key_type eq "string"} {
-                        if {[string match *-* $index]} {
-                            lappend INDEX_OPERATIONS string-range
-                            set re_idxdashidx {^([-+]{0,1}\d+|end[-+]{1}\d+|end)-([-+]{0,1}\d+|end[-+]{1}\d+|end)$}
-                            #todo - support more complex indices: 0-end-1 etc
-
-                            lassign [split $index -] a b
-                            append script \n [tstr -return string -allowcommands {
-                                # set active_key_type "string"
-                                set assigned [string range $leveldata ${$a} ${$b}]
-                            }]
-
-                        } else {
-                            if {$index eq "*"} {
-                                lappend INDEX_OPERATIONS string-all
-                                append script \n [tstr -return string -allowcommands {
-                                    # set active_key_type "string"
-                                    set assigned $leveldata
-                                }]
-                            } elseif {[regexp {[?*]} $index]} {
-                                lappend INDEX_OPERATIONS string-globmatch
-                                append script \n [tstr -return string -allowcommands {
-                                    # set active_key_type "string"
-                                    if {[string match $index $leveldata]} {
-                                        set assigned $leveldata
-                                    } else {
-                                        set assigned ""
-                                    }
-                                }]
-                            } else {
-                                lappend INDEX_OPERATIONS string-index
-                                append script \n [tstr -return string -allowcommands {
-                                    # set active_key_type "string"
-                                    set assigned [string index $leveldata ${$index}]
-                                }]
-                            }
-                        }
-
-                    } else {
-                        #treat as dict key
-                        if {$get_not} {
-                            #dict remove can accept non-existent keys.. review do we require not-@?@key to get silence?
-                            append script \n [tstr -return string {
-                                set assigned [dict remove $leveldata ${$index}]
-                            }]
-                        } else {
-                            append script \n [tstr -return string -allowcommands {
-                                # set active_key_type "dict"
-                                if {[dict exists $leveldata {${$index}}]} {
-                                    set assigned [dict get $leveldata {${$index}}]
-                                } else {
-                                    set action ?mismatch-dict-key-not-found
-                                    ${[tstr -ret string $tpl_return_mismatch_dict_key_not_found]}
-                                }
-                            }]
-                        }
-
-                    }
-
-
-                } ;# end if $level_script_complete
-
-
-                append script \n {
-                    set leveldata $assigned
-                }
-                incr i_keyindex
-                append script \n "# ------- END index $index ------"
-            } ;# end foreach
-
-
-
-        #puts stdout "----> destructure rep leveldata: [rep $leveldata]"
-        #puts stdout ">> destructure returning: [dict create -assigned $leveldata -action $action -lhs $lhs -rhs $rhs]"
-
-        #maintain key order - caller unpacks using lassign
-        #append script \n {dict create -assigned $leveldata -action $action -lhs $lhs -rhs $rhs}
-        append script \n [tstr -return string $return_template] \n
-        return $script
-    }
-
-
-
-
-    #called from match_assign/know_dot_assign for lhs of assignment  - uplevel 2 to caller's level
-    #called from match_assign/know_dot_assign for rhs pipelined vars - uplevel 1 to write vars only in 'apply' scope
-    #return a dict with keys result, setvars, unsetvars
-    #TODO - implement cross-binding (as opposed to overwrite/reassignment) when a var appears multiple times in a pattern/multivar
-    #e.g  x@0,x@1  will only match if value at positions 0 & 1 is the same  (a form of auto-pinning?)
-    #e.g  x,x@0  will only match a single element list
-    #todo blocking or     - p1|p2   if p1 matches - return p1 and continue pipeline - immediately return p2 if p1 didn't match. (ie p2 not forwarded in pipeline)
-    #     non-blocking or - p1||p2  if p1 matches - return p1 and continue pipeline - else match p2 and continue pipeline
-    proc _multi_bind_result {multivar data args} {
-        #puts stdout "---- _multi_bind_result multivar:'$multivar' data:'$data' options:'$args'"
-        #'ismatch' must always be first element of dict - as we dispatch on ismatch 0 or ismatch 1
-        if {![string length $multivar]} {
-            #treat the absence of a pattern as a match to anything
-            #JMN2 - changed to list based destructuring
-            return [dict create ismatch 1 result $data setvars {} script {}]
-            #return [dict create ismatch 1 result [list $data] setvars {} script {}]
-        }
-        set returndict          [dict create ismatch 0 result "" setvars {}]
-        set script              ""
-
-        set defaults            [list -unset 0 -levelup 2 -mismatchinfo 1 -script 0]
-        set opts                [dict merge $defaults $args]
-        set unset               [dict get $opts -unset]
-        set lvlup               [dict get $opts -levelup]
-        set get_mismatchinfo    [dict get $opts -mismatchinfo]
-
-
-
-        #first classify into var_returntype of either "pipeline"  or "segment"
-        #segment returntype is indicated by leading %
-
-        set varinfo             [punk::pipe::lib::_var_classify $multivar]
-        set var_names           [dict get $varinfo var_names]
-        set var_class           [dict get $varinfo var_class]
-        set varspecs_trimmed    [dict get $varinfo varspecs_trimmed]
-
-        set var_actions [list]
-        set expected_values [list]
-        #e.g  {a = abc}  {b set ""}
-        foreach classinfo $var_class vname $var_names {
-            lassign [lindex $classinfo 0] v
-            lappend var_actions [list $v "" ""] ;#varactions keeps original lhs - not trimmed version
-            lappend expected_values [list var $vname spec $v info - lhs - rhs -] ;#code looks for 'info -' to see if changed from default
-        }
-
-        #puts stdout "var_actions:  $var_actions"
-        #puts stdout "expected_values:  $expected_values"
-
-
-        #puts stdout "\n var_class: $var_class\n"
-        # e.g {{x {}} 0}  {{y @0} 0}  {{'ok @0} 1}  {{^v @@key} 2}
-
-        #set varspecs_trimmed    [lmap varinfo $var_class {expr {([lindex $varinfo 1] > 0) ? [list [string range [lindex $varinfo 0 0] 1 end] [lindex $varinfo 0 1]] :  [lindex $varinfo 0]}}]
-        #puts stdout "\n varspecs_trimmed: $varspecs_trimmed\n"
-
-
-        #var names (possibly empty portion to the left of )
-        #debug.punk.pipe.var "varnames: $var_names" 4
-
-        set v_list_idx(@) 0 ;#for spec with single @ only
-        set v_dict_idx(@@) 0 ;#for spec with @@ only
-
-        #jn
-
-        #member lists of returndict which will be appended to in the initial value-retrieving loop
-        set returndict_setvars      [dict get $returndict setvars]
-
-        set assigned_values [list]
-
-
-        #varname action value - where value is value to be set if action is set
-        #actions:
-        #  ""  unconfigured - assert none remain unconfigured at end
-        #  noop  no-change
-        #  matchvar-set   name is a var to be matched
-        #  matchatom-set names is an atom to be matched
-        #  matchglob-set
-        #  set
-        #  question mark versions are temporary - awaiting a check of action vs var_class
-        #  e.g ?set  may be changed to matchvar or matchatom or set
-
-
-        debug.punk.pipe.var {initial map expected_values: $expected_values} 5
-
-        set returnval ""
-        set i 0
-        #assertion i incremented at each continue and at each end of loop - at end i == list length + 1
-        #always use 'assigned' var in each loop
-        # (for consistency and to assist with returnval)
-        # ^var means a pinned variable - compare value of $var to rhs - don't assign
-        #
-        # In this loop we don't set variables - but assign an action entry in var_actions - all with leading question mark.
-        # as well as adding the data values to the var_actions list
-        #
-        # TODO! we may (commonly) encounter same vkey in the pattern - no need to reparse and re-fetch from data!
-        set vkeys_seen [list]
-        foreach v_and_key $varspecs_trimmed {
-            set vspec [join $v_and_key ""]
-            lassign $v_and_key v vkey
-
-            set assigned ""
-            #The binding spec begins at first @ or # or /
-
-            #set firstq [string first "'" $vspec]
-            #set v [lindex $var_names $i]
-            #if v contains any * and/or ? - then it is a glob match - not a varname
-
-            lassign [destructure_func $vkey $data] _assigned assigned _action matchaction _lhs lhs _rhs rhs
-            if {$matchaction eq "?match"} {
-                set matchaction "?set"
-            }
-            lset var_actions $i 1 $matchaction
-            lset var_actions $i 2 $assigned
-
-            #update the setvars/unsetvars elements
-            if {[string length $v]} {
-                dict set returndict_setvars $v $assigned
-            }
-
-            #JMN2
-            #special case expansion for empty varspec (e.g ,<something>  or <something>,,<something>)
-            #if {$vspec eq ""} {
-            #    lappend assigned_values {*}$assigned
-            #} else {
-                lappend assigned_values $assigned
-            #}
-            incr i
-        }
-
-        #todo - fix! this isn't the actual tclvars that were set!
-        dict set returndict setvars $returndict_setvars
-
-        #assigned_values is the ordered list of source elements in the data (rhs) as extracted by each position-spec
-        #For booleans the final val may later be normalised to 0 or 1
-
-
-        #assertion all var_actions were set with leading question mark
-        #perform assignments only if matched ok
-
-
-        #0 - novar
-        #1 - atom '
-        #2 - pin  ^
-        #3 - boolean  &
-        #4 - integer
-        #5 - double
-        #6 - var
-        #7 - glob  (no classifier and contains * or ?)
-        if 0 {
-        debug.punk.pipe.var {VAR_CLASS: $var_class} 5
-        debug.punk.pipe.var {VARACTIONS: $var_actions} 5
-        debug.punk.pipe.var {VARSPECS_TRIMMED: $varspecs_trimmed} 5
-
-        debug.punk.pipe.var {atoms:     [lsearch -all -inline -index 1 $var_class 1]} 5
-        debug.punk.pipe.var {pins:      [lsearch -all -inline -index 1 $var_class 2]} 5
-        debug.punk.pipe.var {bools:     [lsearch -all -inline -index 1 $var_class 3]} 5
-        debug.punk.pipe.var {ints:      [lsearch -all -inline -index 1 $var_class 4]} 5
-        debug.punk.pipe.var {doubles:   [lsearch -all -inline -index 1 $var_class 5]} 5
-        debug.punk.pipe.var {vars:      [lsearch -all -inline -index 1 $var_class 6]} 5
-        debug.punk.pipe.var {globs:     [lsearch -all -inline -index 1 $var_class 7]} 5
-        }
-
-        set match_state [lrepeat [llength $var_names] ?]
-        unset -nocomplain v
-        unset -nocomplain nm
-        set mismatched [list]
-        set i 0
-        #todo - stop at first mismatch - for pattern matching (especially pipecase - we don't want to waste time reading vars if we already have a mismatch earlier in the pattern)
-        foreach va $var_actions {
-            #val comes from -assigned
-            lassign $va lhsspec act val  ;#lhsspec is the full value source for LHS  ie the full atom/number/varspec e.g  for pattern ^var@@key/@0  it is "^var"
-            set varname [lindex $var_names $i]
-
-            if {[string match "?mismatch*" $act]} {
-                #already determined a mismatch - e.g list or dict key not present
-                lset match_state $i 0
-                lset expected_values $i [list var $varname spec $lhsspec info mismatch lhs ? rhs $val]
-                break
-            }
-
-
-            set class_key       [lindex $var_class $i 1]
-            lassign {0 0 0 0 0 0 0 0 0 0} isatom ispin isbool isint isdouble isvar isglob isnumeric isgreaterthan islessthan
-            foreach ck $class_key {
-                switch -- $ck {
-                    1 {set isatom 1}
-                    2 {set ispin 1}
-                    3 {set isbool 1}
-                    4 {set isint 1}
-                    5 {set isdouble 1}
-                    6 {set isvar 1}
-                    7 {set isglob 1}
-                    8 {set isnumeric 1}
-                    9 {set isgreaterthan 1}
-                    10 {set islessthan 1}
-                }
-            }
-
-
-            #set isatom          [expr {$class_key == 1}]
-            #set ispin           [expr {2 in $class_key}]
-            #set isbool          [expr {3 in $class_key}]
-            #set isint           [expr {4 in $class_key}]
-            #set isdouble        [expr {5 in $class_key}]
-            #set isvar           [expr {$class_key == 6}]
-            #set isglob          [expr {7 in $class_key}]
-            #set isnumeric       [expr {8 in $class_key}] ;#force numeric comparison (only if # classifier present)
-            ##marking numbers with pin ^ has undetermined meaning. Perhaps force expr matching only?
-            #set isgreaterthan   [expr {9 in $class_key}]
-            #set islessthan      [expr {10 in $class_key}]
-
-
-
-            if {$isatom} {
-                #puts stdout "==>isatom $lhsspec"
-                set lhs [string range $lhsspec 1 end]
-                if {[string index $lhs end] eq "'"} {
-                    set lhs [string range $lhs 0 end-1]
-                }
-                lset var_actions $i 1 matchatom-set
-                if {$lhs eq $val} {
-                    lset match_state $i 1
-                    lset expected_values $i [list var $varname spec $lhsspec info match lhs $lhs rhs $val]
-                    incr i
-                    continue
-                } else {
-                    lset match_state $i 0
-                    lset expected_values $i [list var $varname spec $lhsspec info strings-not-equal lhs $lhs rhs $val]
-                    break
-                }
-            }
-
-
-
-
-            # - should set expected_values in each branch where match_state is not set to 1
-            # - setting expected_values when match_state is set to 0 is ok except for performance
-
-
-            #todo - pinned booleans? we would need to disambiguate from a direct value match.. ie double tag as something like: ^&var or
-            #ispin may reclassify as isint,isdouble based on contained value (as they don't have their own classifier char and are unambiguous and require special handling)
-            if {$ispin} {
-                #puts stdout "==>ispin $lhsspec"
-                if {$act in [list "?set" "?matchvar-set"]} {
-                    lset var_actions $i 1 matchvar-set
-                    #attempt to read
-                    upvar $lvlup $varname the_var
-                    #if {![catch {uplevel $lvlup [list ::set $varname]} existingval]} {}
-                    if {![catch {set the_var} existingval]} {
-
-                        if {$isbool} {
-                            #isbool due to 2nd classifier i.e ^&
-                            lset expected_values $i [list var $varname spec $lhsspec info test-lhs-bool lhs $existingval rhs $val]
-                            #normalise to LHS!
-                            lset assigned_values $i $existingval
-                        } elseif {$isglob} {
-                            #isglob due to 2nd classifier ^*
-                            lset expected_values $i [list var $varname spec $lhsspec info test-lhs-glob lhs $existingval rhs $val]
-                        } elseif {$isnumeric} {
-                            #flagged as numeric by user using ^# classifiers
-                            set testexistingval [join [scan $existingval %lld%s] ""] ;# handles octals (leading zeros),  ok for use with bignums, internal decimal points and sci notation (but not leading .)
-                            if {[string is integer -strict $testexistingval]} {
-                                set isint 1
-                                lset assigned_values $i $existingval
-                                lset expected_values $i [list var $varname spec $lhsspec info test-lhs-int lhs $existingval rhs $val]
-                            } elseif {[string is double $existingval] || [string is double -strict $testexistingval]} {
-                                #test existingval in case something like .5 (which scan will have missed - producing empty testexistingval)
-                                set isdouble 1
-                                #doubles comparisons use float_almost_equal - so lhs can differ from rhs - for pins we always want to return the normalised lhs ie exactly what is in the var
-                                lset assigned_values $i $existingval
-
-                                lset expected_values $i [list var $varname spec $lhsspec info test-lhs-double lhs $existingval rhs $val]
-                            } else {
-                                #user's variable doesn't seem to have a numeric value
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info mismatch-lhs-not-numeric lhs $existingval rhs $val]
-                                break
-                            }
-
-                        } else {
-                            #standard pin - single classifier ^var
-                            lset match_state $i [expr {$existingval eq $val}]
-                            if {![lindex $match_state $i]} {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info "string-compare-not-equal" lhs $existingval rhs $val]
-                                break
-                            } else {
-                                lset expected_values $i [list var $varname spec $lhsspec info "string-compare-equal" lhs $existingval rhs $val]
-                            }
-                        }
-
-                    } else {
-                        #puts stdout "pinned var $varname  result:$result vs val:$val"
-                        #failure is *probably* because var is unset - but could be a read-only var due to read-trace or it could be nonexistant namespace
-                        lset match_state $i 0
-                        lset expected_values $i [list var $varname spec $lhsspec info failread-$varname lhs ? rhs $val]
-                        break
-                    }
-                }
-            }
-
-
-
-            if {$isint} {
-                #note - we can have classified (above) a value such as 08 on lhs as integer - even though expr and string is integer don't do so.
-                #expected_values $i [list var $varname spec $lhsspec info match-lhs-int lhs $existingval rhs $val]
-
-                    if {$ispin} {
-                        set existing_expected [lindex $expected_values $i]
-                        set lhs [dict get $existing_expected lhs]
-                    } else {
-                        set lhs $lhsspec  ;#literal integer in the pattern
-                    }
-                    if {$isgreaterthan || $islessthan} {
-                        set lhs [string range $lhsspec 0 end-1]
-                        set testlhs $lhs
-                    }
-                    if {[string index $lhs 0] eq "."} {
-                        set testlhs $lhs
-                    } else {
-                        set testlhs [join [scan $lhs %lld%s] ""]
-                    }
-                    if {[string index $val 0] eq "."} {
-                        set testval $val
-                    } else {
-                        set testval [join [scan $val %lld%s] ""] ;# handles octals (leading zeros) and bignums (not leading .)
-                    }
-                    if {[string is integer -strict $testval]} {
-                        if {$isgreaterthan} {
-                            #puts "lhsspec: $lhsspec testlhs: $testlhs    testval: $testval"
-                            if {$testlhs <= $testval} {
-                                lset match_state $i 1
-                            } else {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info "expr-not-greater-than-int-int" lhs $lhs rhs $val]
-                                break
-                            }
-                        } elseif {$islessthan} {
-                            if {$testlhs >= $testval} {
-                                lset match_state $i 1
-                            } else {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info "expr-not-less-than-int-int" lhs $lhs rhs $val]
-                                break
-                            }
-                        } else {
-                            if {$testlhs == $testval} {
-                                lset match_state $i 1
-                            } else {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info "expr-mismatch-int-int" lhs $lhs rhs $val]
-                                break
-                            }
-                        }
-                    } elseif {[string is double -strict $testval]} {
-                        #dragons. (and shimmering)
-                        if {[string first "e" $val] != -1} {
-                            #scientific notation - let expr compare
-                            if {$isgreaterhthan} {
-                                if {$testlhs <= $testval} {
-                                    lset match_state $i 1
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "expr-not-greater-than-int-sci" lhs $lhs rhs $val]
-                                    break
-                                }
-                            } elseif {$islessthan} {
-                                if {$testlhs >= $testval} {
-                                    lset match_state $i 1
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "expr-not-less-than-int-sci" lhs $lhs rhs $val]
-                                    break
-                                }
-                            } else {
-                                if {$testlhs == $testval} {
-                                    lset match_state $i 1
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "expr-mismatch-int-sci" lhs $lhs rhs $val]
-                                    break
-                                }
-                            }
-                        } elseif {[string is digit -strict [string trim $val -]] } {
-                            #probably a wideint or bignum with no decimal point
-                            #It seems odd that bignums which just look like large integers should ever compare equal if you do a +1  to one side .
-                            #if we use float_almost_equal they may compare equal.  on the other hand expr also does apparently inconsistent thins with comparing integer-like bignums vs similar sized nums with .x at the end.
-                            #2 values further apart can compare equal while int-like ones closer together can compare different.
-                            #The rule seems to be for bignums that if it *looks* like a whole int the comparison is exact - but otherwise the float behaviours kick in.
-                            #This is basically what we're doing here but with an arguably better (for some purposes!) float comparison.
-                            #string comparison can presumably always be used as an alternative.
-                            #
-                            #let expr compare
-                            if {$isgreaterthan} {
-                                if {$testlhs <= $testval} {
-                                    lset match_state $i 1
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "expr-not-greater-than-int-puredigits" lhs $lhs rhs $val]
-                                    break
-                                }
-                            } elseif {$islessthan} {
-                                if {$testlhs >= $testval} {
-                                    lset match_state $i 1
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "expr-not-less-than-int-puredigits" lhs $lhs rhs $val]
-                                    break
-                                }
-                            } else {
-                                if {$testlhs == $testval} {
-                                    lset match_state $i 1
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "expr-mismatch-int-puredigits" lhs $lhs rhs $val]
-                                    break
-                                }
-                            }
-                        } else {
-                            if {[punk::pipe::float_almost_equal $testlhs $testval]} {
-                                lset match_state $i 1
-                            }  else {
-                                if {$isgreaterthan} {
-                                    if {$testlhs <= $testval} {
-                                        lset match_state $i 1
-                                    } else {
-                                        lset match_state $i 0
-                                        lset expected_values $i [list var $varname spec $lhsspec info "expr-not-greater-than-int-float" lhs $lhs rhs $val]
-                                        break
-                                    }
-                                } elseif {$islessthan} {
-                                    if {$testlhs >= $testval} {
-                                        lset match_state $i 1
-                                    } else {
-                                        lset match_state $i 0
-                                        lset expected_values $i [list var $varname spec $lhsspec info "expr-not-less-than-int-float" lhs $lhs rhs $val]
-                                        break
-                                    }
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "float_almost_equal-mismatch-int-float" lhs $lhs rhs $val]
-                                    break
-                                }
-                            }
-                        }
-                    } else {
-                        #e.g rhs not a number..
-                        if {$testlhs == $testval} {
-                            lset match_state $i 1
-                        } else {
-                            lset match_state $i 0
-                            lset expected_values $i [list var $varname spec $lhsspec info "expr-mismatch-unknown-rhstestval-$testval" lhs $lhs rhs $val]
-                            break
-                        }
-                    }
-            } elseif {$isdouble} {
-                #dragons (and shimmering)
-                #
-                #
-                    if {$ispin} {
-                        set existing_expected [lindex $expected_values $i]
-                        set lhs [dict get $existing_expected lhs]
-                    } else {
-                        set lhs $lhsspec  ;#literal integer in the pattern
-                    }
-                    if {$isgreaterthan || $islessthan} {
-                        error "+/- not yet supported for lhs float"
-                        set lhs [string range $lhsspec 0 end-1]
-                        set testlhs $lhs
-                    }
-                    if {[string index $val 0] eq "."} {
-                        set testval $val ;#not something with some number of leading zeros
-                    } else {
-                        set testval [join [scan $val %lld%s] ""] ;# handles octals (leading zeros),  ok for use with bignums, internal decimal points and sci notation (but not leading .)
-                    }
-                    #expr handles leading 08.1 0009.1 etc  without triggering octal
-                    #so we don't need to scan lhs
-                    if {[string first "e" $lhs] >= 0 || [string first "e" $testval] >= 0} {
-                        if {$lhs == $testval} {
-                            lset match_state $i 1
-                            lset expected_values $i [list var $varname spec $lhsspec info match-expr-sci lhs $lhs rhs $val]
-                        } else {
-                            lset match_state $i 0
-                            lset expected_values $i [list var $varname spec $lhsspec info mismatch-expr-sci lhs $lhs rhs $val]
-                            break
-                        }
-                    } elseif {[string is digit -strict [string trim $lhs -]] && [string is digit -strict [string trim $val -]]} {
-                        #both look like big whole numbers.. let expr compare using it's bignum capability
-                        if {$lhs == $testval} {
-                            lset match_state $i 1
-                            lset expected_values $i [list var $varname spec $lhsspec info match-expr-pure-digits lhs $lhs rhs $val]
-                        } else {
-                            lset match_state $i 0
-                            lset expected_values $i [list var $varname spec $lhsspec info mismatch-expr-pure-digits lhs $lhs rhs $val]
-                            break
-                        }
-                    } else {
-                        #float_almost_equal will disagree with expr based on scale.. just enough to allow for example [expr 0.2 + 0.1] to equal 0.3 - whereas expr will declare a mismatch
-                        if {[punk::pipe::float_almost_equal $lhs $testval]} {
-                            lset match_state $i 1
-                            lset expected_values $i [list var $varname spec $lhsspec info match-float-almost-equal lhs $lhs rhs $val]
-                        } else {
-                            lset match_state $i 0
-                            lset expected_values $i [list var $varname spec $lhsspec info mismatch-float-almost-equal lhs $lhs rhs $val]
-                            break
-                        }
-                    }
-            } elseif {$isbool} {
-                    #Note - cross binding of booleans deliberately doesn't compare actual underlying values - only that truthiness or falsiness matches.
-                    #e.g  &x/0,&x/1,&x/2= {1 2 yes}
-                    #  all resolve to true so the cross-binding is ok.
-                    # Also - the setting of the variable x is normalized to 1 or 0 only.  (true & false would perhaps be nicer - but 1 & 0 are theoretically more efficient for later comparisons as they can have a pure int rep?.)
-                    # todo - consider the booleanString rep.  Can/should we return true & false instead and maintain efficiency w.r.t shimmering?
-                    #
-                    #punk::pipe::boolean_equal $a $b
-                    set extra_match_info "" ;# possible crossbind indication
-                    set is_literal_boolean 0
-                    if {$ispin} {
-                        #for a pinned boolean - the most useful return is the value in the pinned var rather than the rhs. This is not entirely consistent .. e.g pinned numbers will return rhs !review!
-                        #As an additional pattern can always retrieve the raw value - pinned vars returning themselves (normalisation use-case ) seems the most consistent overall, and the most useful
-                        set existing_expected [lindex $expected_values $i]
-                        set lhs [dict get $existing_expected lhs]
-                    } else {
-                        set lhs [string range $lhsspec 1 end] ;# - strip off & classifier prefix
-
-                        if {![string length $lhs]} {
-                            #empty varname - ok
-                            if {[string is boolean -strict $val] || [string is double -strict $val]} {
-                                lset match_state $i 1
-                                lset var_actions $i 1 "return-normalised-value"
-                                lset assigned_values $i [expr {bool($val)}]
-                                lset expected_values $i [list var $varname spec $lhsspec info "return-boolean-rhs-normalised" lhs - rhs $val]
-                            } else {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info "mismatch-boolean-rhs" lhs - rhs $val]
-                                break
-                            }
-                        } elseif {$lhs in [list 0 1]} {
-                            #0 & 1 are the only literal numbers that satisfy Tcl's 'string is boolean' test.
-                            set is_literal_boolean 1
-                        } elseif {[string index $lhs 0] eq "'" && [string index $lhs end] eq "'"} {
-                            #literal boolean (&'yes',&'false',&'1',&'0' etc) in the pattern
-                            #we won't waste any cycles doing an extra validity test here - it will fail in the comparison below if not a string understood by Tcl to represent a boolean.
-                            set is_literal_boolean 1
-                            set lhs [string range $lhs 1 end-1] ;#strip off squotes
-                        } else {
-                            #todo - a standard variable name checking function for consistency.. for now we'll rule out numbers here to help avoid mistakes.
-                            set tclvar $lhs
-                            if {[string is double $tclvar]} {
-                                error "pipesyntax invalid variable name '$tclvar' for boolean in pattern. (subset of legal tcl vars allowed in pattern context)" "_multi_bind_result $multivar $data $args" [list pipesyntax patternvariable invalid_boolean $tclvar]
-                                #proc _multi_bind_result {multivar data args}
-                            }
-                            #treat as variable - need to check cross-binding within this pattern group
-                            set first_bound [lsearch -index 0 $var_actions $lhsspec]
-                            if {$first_bound == $i} {
-                                #test only rhs (val) for boolean-ness - but boolean-ness as boolean_almost_equal understands it. (e.g floats allowed)
-                                if {[string is boolean -strict $val] || [string is double -strict $val]} {
-                                    lset match_state $i 1
-                                    lset var_actions $i 1 [string range $act 1 end] ;# should now be the value "set". We only need this on the first_bound
-                                    #review - consider what happens if boolean is leftmost pattern - underlying value vs normalised value to continue in pipeline
-                                    #Passing underlying value is inconsistent with what goes in the tclvar - so we need to update the returnval
-                                    #puts stderr "==========[lindex $assigned_values $i]"
-                                    lset var_actions $i 2 [expr {bool($val)}]  ;#normalise to 1 or 0
-                                    lset assigned_values $i [lindex $var_actions $i 2]
-                                    #puts stderr "==========[lindex $assigned_values $i]"
-                                    lset expected_values $i [list var $varname spec $lhsspec info "match-boolean-rhs-any-lhs" lhs - rhs $val] ;#retain underlying val in expected_values for diagnostics.
-                                } else {
-                                    lset match_state $i 0
-                                    lset expected_values $i [list var $varname spec $lhsspec info "mismatch-boolean-rhs-any-lhs" lhs - rhs $val]
-                                    break
-                                }
-                            } else {
-                                set expectedinfo [lindex $expected_values $first_bound]
-                                set expected_earlier [dict get $expectedinfo rhs]
-                                set extra_match_info "-crossbind-first"
-                                set lhs $expected_earlier
-                            }
-                        }
-                    }
-
-
-                    #may have already matched above..(for variable)
-                    if {[lindex $match_state $i] != 1} {
-                        if {![catch {punk::pipe::boolean_almost_equal $lhs $val} ismatch]} {
-                            if {$ismatch} {
-                                lset match_state $i 1
-                                lset expected_values $i [list var $varname spec $lhsspec info match-boolean-almost-equal$extra_match_info lhs $lhs rhs $val]
-                            } else {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info mismatch-boolean-almost-equal$extra_match_info lhs $lhs rhs $val]
-                                break
-                            }
-                        } else {
-                            #we should only error from boolean_equal if passed something Tcl doesn't recognise as a boolean
-                            lset match_state $i 0
-                            lset expected_values $i [list var $varname spec $lhsspec info badvalue-boolean$extra_match_info lhs $lhs rhs $val]
-                            break
-                        }
-                    }
-
-            } elseif {$isglob} {
-                    if {$ispin} {
-                        set existing_expected [lindex $expected_values $i]
-                        set lhs [dict get $existing_expected lhs]
-                    } else {
-                        set lhs $lhsspec  ;#literal glob in the pattern - no classifier prefix
-                    }
-                    if {[string match $lhs $val]} {
-                        lset match_state $i 1
-                        lset expected_values $i [list var $varname spec $lhsspec info "match-glob" lhs $lhs rhs $val]
-                    } else {
-                        lset match_state $i 0
-                        lset expected_values $i [list var $varname spec $lhsspec info "mismatch-glob" lhs $lhs rhs $val]
-                        break
-                    }
-
-            } elseif {$ispin} {
-                #handled above.. leave case in place so we don't run else for pins
-
-            } else {
-                #puts stdout "==> $lhsspec"
-                #NOTE - pinned var of same name is independent!
-                #ie ^x shouldn't look at earlier x bindings in same pattern
-                #unpinned non-atoms
-                #cross-binding. Within this multivar pattern group only (use pin ^ for binding to result from a previous pattern)
-                #
-                switch -- $varname {
-                    "" {
-                        #don't attempt cross-bind on empty-varname
-                        lset match_state $i 1
-                        #don't change  var_action $i 1 to set
-                        lset expected_values $i [list var $varname spec $lhsspec info "match-no-lhs-var" lhs - rhs $val]
-                    }
-                    "_" {
-                        #don't cross-bind on the special 'don't-care' varname
-                        lset match_state $i 1
-                        lset var_actions $i 1 [string range $act 1 end] ;#  ?set -> set
-                        lset expected_values $i [list var $varname spec $lhsspec info "match-any-lhs-dontcare-var" lhs - rhs $val]
-                    }
-                    default {
-                        set first_bound [lsearch -index 0 $var_actions $varname]
-                        #assertion first_bound >=0, we will always find something - usually self
-                        if {$first_bound == $i} {
-                            lset match_state $i 1
-                            lset var_actions $i 1 [string range $act 1 end] ;#  ?set -> set
-                            lset expected_values $i [list var $varname spec $lhsspec info "match-any-lhs" lhs - rhs $val]
-                        } else {
-                            assert  {$first_bound < $i} assertion_fail: _multi_bind_result condition: [list $first_bound < $i]
-                            set expectedinfo [lindex $expected_values $first_bound]
-                            set expected_earlier [dict get $expectedinfo rhs]
-                            if {$expected_earlier ne $val} {
-                                lset match_state $i 0
-                                lset expected_values $i [list var $varname spec $lhsspec info "mismatch-crossbind-first" lhs $expected_earlier rhs $val]
-                                break
-                            } else {
-                                lset match_state $i 1
-                                #don't convert ?set to set  - or var setter will write for each crossbound instance. Possibly no big deal for performance - but could trigger unnecessary write traces for example
-                                #lset var_actions $i 1 [string range $act 1 end]
-                                lset expected_values $i [list var $varname spec $lhsspec info "match-crossbind-first" lhs $expected_earlier rhs $val]
-                            }
-                        }
-                    }
-                }
-            }
-
-            incr i
-        }
-
-        #JMN2 - review
-        #set returnval [lindex $assigned_values 0]
-        if {[llength $assigned_values] == 1} {
-            set returnval [join $assigned_values]
-        } else {
-            set returnval $assigned_values
-        }
-        #puts stdout "----> > rep returnval: [rep $returnval]"
-
-
-
-
-
-        #--------------------------------------------------------------------------
-        #Variable assignments (set) should only occur down here, and only if we have a match
-        #--------------------------------------------------------------------------
-        set match_count_needed [llength $var_actions]
-        #set match_count [expr [join $match_state +]] ;#expr must be unbraced here
-        set matches [lsearch -all -inline $match_state 1] ;#default value for each match_state entry is "?"
-        set match_count [llength $matches]
-
-
-        debug.punk.pipe.var {MATCH_STATE: $match_state  count_needed: $match_count_needed  vs match_count: $match_count} 4
-        debug.punk.pipe.var {VARACTIONS2: $var_actions} 5
-        debug.punk.pipe.var {EXPECTED   : $expected_values} 4
-
-        #set match_count [>f . foldl 0 [>f . sum .] $match_state]  ;#ok method.. but slow compared to expr with join
-        if {$match_count == $match_count_needed} {
-            #do assignments
-            for {set i 0} {$i < [llength $var_actions]} {incr i} {
-                if {([lindex $var_class $i 1] == 6 || [lindex $var_class $i] == 3 ) && ([string length [set varname [lindex $var_names $i]]])} {
-                    #isvar
-                    if {[lindex $var_actions $i 1] eq "set"} {
-                        upvar $lvlup $varname the_var
-                        set the_var [lindex $var_actions $i 2]
-                    }
-                }
-            }
-            dict set returndict ismatch 1
-            #set i 0
-            #foreach va $var_actions {
-            #    #set isvar  [expr {[lindex $var_class $i 1] == 6}]
-            #    if {([lindex $var_class $i 1] == 6 || [lindex $var_class $i] == 3 ) && ([string length [set varname [lindex $var_names $i]]])} {
-            #        #isvar
-            #        lassign $va lhsspec act val
-            #        upvar $lvlup $varname the_var
-            #        if {$act eq "set"} {
-            #            set the_var $val
-            #        }
-            #        #if {[lindex $var_actions $i 1] eq "set"} {
-            #        #    set the_var $val
-            #        #}
-            #    }
-            #    incr i
-            #}
-        } else {
-            #todo - some way to restrict mismatch info to simple "mismatch" and avoid overhead of verbose message
-            #e.g for within pipeswitch block where mismatches are expected and the reasons are less important than moving on quickly
-            set vidx 0
-            #set mismatches          [lmap m $match_state v $var_names {expr {$m == 0} ? {[list mismatch $v]} : {[list match $v]}}]
-            set mismatches          [lmap m $match_state v $var_names {expr {$m == 0 ? [list mismatch $v] : [list match $v]}}]
-            set var_display_names [list]
-            foreach v $var_names {
-                if {$v eq ""} {
-                    lappend var_display_names {{}}
-                } else {
-                    lappend var_display_names $v
-                }
-            }
-            #REVIEW 2025
-            #set mismatches_display  [lmap m $match_state v $var_display_names {expr {$m == 0} ? {$v} : {[expr {$m eq "?"} ? {"?[string repeat { } [expr [string length $v] -1]]"} : {[string repeat " " [string length $v]]}  ]}}]
-            set mismatches_display  [lmap m $match_state v $var_display_names {expr {$m == 0 ? $v : [expr {$m eq "?" ? "?[string repeat { } [expr {[string length $v] -1}]]" : [string repeat " " [string length $v]]  }]}}]
-            set msg     "\n"
-            append msg  "Unmatched\n"
-            append msg  "Cannot match right hand side to pattern $multivar\n"
-            append msg  "vars/atoms/etc:   $var_names\n"
-            append msg  "mismatches:   [join $mismatches_display { } ]\n"
-            set i 0
-            #0 - novar
-            #1 - atom '
-            #2 - pin  ^
-            #3 - boolean  &
-            #4 - integer
-            #5 - double
-            #6 - var
-            #7 - glob  (no classifier and contains * or ?)
-            foreach mismatchinfo $mismatches {
-                lassign $mismatchinfo status varname
-                if {$status eq "mismatch"} {
-                    # varname can be empty string
-                    set varclass [lindex $var_class $i 1]
-                    set val [lindex $var_actions $i 2]
-                    set e [dict get [lindex $expected_values $i] lhs]
-                    set type ""
-                    if {2 in $varclass} {
-                        append type "pinned "
-                    }
-
-                    if {$varclass == 1} {
-                        set type "atom"
-                    } elseif {$varclass == 2} {
-                        set type "pinned var"
-                    } elseif {3 in $varclass} {
-                        append type "boolean"
-                    } elseif {4 in $varclass} {
-                        append type "int"
-                    } elseif {5 in $varclass} {
-                        append type "double"
-                    } elseif {$varclass == 6} {
-                        set type "var"
-                    } elseif {7 in $varclass} {
-                        append type "glob"
-                    } elseif {8 in $varclass} {
-                        append type "numeric"
-                    }
-                    if {$type eq ""} {
-                        set type "<undetermined>"
-                    }
-
-                    set lhs_tag "- [dict get [lindex $expected_values $i] info]"
-                    set mmaction [lindex $var_actions $i 1] ;#e.g ?mismatch-dict-index-out-of-range
-                    set tag "?mismatch-"
-                    if {[string match $tag* $mmaction]} {
-                        set mismatch_reason [string range $mmaction [string length $tag] end]
-                    } else {
-                        set mismatch_reason $mmaction
-                    }
-                    append msg "  $type: '$varname' $mismatch_reason $lhs_tag LHS: '$e' vs RHS: '$val'\n"
-                }
-                incr i
-            }
-            #error $msg
-            dict unset returndict result
-            #structured error return - used by pipeswitch/pipecase - matching on "binding mismatch*"
-            dict set returndict mismatch [dict create binding mismatch varnames $var_names matchinfo $mismatches display $msg data $data]
-            return $returndict
-        }
-
-        if {![llength $var_names]} {
-            #var_name entries can be blank - but it will still be a list
-            #JMN2
-            #dict set returndict result [list $data]
-            dict set returndict result $data
-        } else {
-            assert {$i == [llength $var_names]} assertion_fail _multi_bind_result condition {$i == [llength $var_names]}
-            dict set returndict result $returnval
-        }
-        return $returndict
-    }
-
-    ########################################################
-    #  dragons.
-    # using an error as out-of-band way to signal mismatch is the easiest.
-    # It comes at some cost (2us 2023?) to trigger catches. (which is small relative to uncompiled pipeline costs in initial version - but per pattern mismatch will add up)
-    # The alternative of attempting to tailcall return the mismatch as data - is *hard* if not impossible to get right.
-    # We need to be able to match on things like {error {mismatch etc}} - without it then itself being interpreted as a mismatch!
-    # A proper solution may involve a callback?   tailcall some_mismatch_func?
-    # There may be a monad-like boxing we could do.. to keep it in data e.g {internalresult match <info>}  {internalresult mismatch <info>} and be careful to not let boxed data escape ??
-    # make sure there is good test coverage before experimenting with this
-     proc _handle_bind_result {d} {
-        #set match_caller [info level 2]
-        #debug.punk.pipe  {_handle_bind_result match_caller: $match_caller} 9
-        if {![dict exists $d result]} {
-            #uplevel 1 [list error [dict get $d mismatch]]
-            #error [dict get $d mismatch]
-            return -code error -errorcode [list binding mismatch varnames [dict get $d mismatch varnames]] [dict get $d mismatch]
-        } else {
-            return [dict get $d result]
-        }
-    }
-    # initially promising - but the approach runs into impossible disambiguation of mismatch as data vs an actual mismatch
-    proc _handle_bind_result_experimental1 {d} {
-        #set match_caller [info level 2]
-        #debug.punk.pipe  {_handle_bind_result match_caller: $match_caller} 9
-        if {![dict exists $d result]} {
-            tailcall return [dict get $d mismatch]
-        } else {
-            return [dict get $d result]
-        }
-    }
-    ########################################################
-
-    #timings very similar. listset3 closest in performance to pipeset. review - test on different tcl versions.
-    #Unfortunately all these variations seem around 10x slower than 'set list {a b c}' or 'set list [list a b c]'
-    #there seems to be no builtin for list setting with args syntax. lappend is close but we would need to catch unset the var first.
-    #proc listset1 {listvarname args} {
-    #    tailcall set $listvarname $args
-    #}
-    #interp alias {} listset2 {} apply {{vname args} {tailcall set $vname $args}}
-    #interp alias {} listset3 {} apply {{vname args} {upvar $vname v; set v $args}}
-    proc pipeset {pipevarname args} {
-        upvar $pipevarname the_pipe
-        set the_pipe $args
-    }
-
-    #pipealias should capture the namespace context of the pipeline so that commands are resolved in the namespace in which the pipealias is created
-    proc pipealias {targetcmd args} {
-       set cmdcopy [punk::objclone $args]
-       set nscaller [uplevel 1 [list namespace current]]
-       tailcall interp alias {} $targetcmd {} apply [list args [append cmdcopy " {*}\$args"] $nscaller]
-    }
-    proc pipealias_extract {targetcmd} {
-        set applybody [lindex [interp alias "" $targetcmd] 1 1]
-        #strip off trailing " {*}$args"
-        return [lrange [string range $applybody 0 end-9] 0 end]
-    }
-    #although the pipealias2 'concat' alias is cleaner in that the original pipeline can be extracted using list commands - it runs much slower
-    proc pipealias2 {targetcmd args} {
-       set cmdcopy [punk::objclone $args]
-       set nscaller [uplevel 1 [list namespace current]]
-       tailcall interp alias {} $targetcmd {} apply [list args [concat "\[concat" [list $cmdcopy] "\$args]"] $nscaller]
-    }
-
-
-    #same as used in unknown func for initial launch
-    #variable re_assign         {^([^\r\n=\{]*)=(.*)}
-    #variable re_assign         {^[\{]{0,1}([^ \t\r\n=]*)=(.*)}
-    variable re_assign          {^([^ \t\r\n=\{]*)=(.*)}
-    variable re_dot_assign      {^([^ \t\r\n=\{]*)\.=(.*)}
-    #match_assign is tailcalled from unknown - uplevel 1 gets to caller level
-    proc match_assign {scopepattern equalsrhs args} {
-        #review - :: is legal in atoms!
-        if {[string match "*::*" $scopepattern]} {
-            error "match_assign scopepattern '$scopepattern' contains namespace separator '::' - invalid."
-        }
-        #puts stderr ">> match_assign '$scopepattern=$equalsrhs' $args"
-        set fulltail $args
-        set cmdns ::punk::pipecmds
-        set namemapping [punk::pipe::lib::pipecmd_namemapping $equalsrhs]
-
-        #we deliberately don't call pipecmd_namemapping on the scopepattern even though it may contain globs.  REVIEW
-        #(we need for example x*=  to be available as is via namespace path mechanism (from punk::pipecmds namespace))
-
-        set pipecmd ${cmdns}::$scopepattern=$namemapping
-
-        #pipecmd could have glob chars - test $pipecmd in the list - not just that info commands returns results.
-        if {$pipecmd in [info commands $pipecmd]} {
-            #puts "==nscaller: '[uplevel 1 [list namespace current]]'"
-            #uplevel 1 [list ::namespace import $pipecmd]
-            set existing_path [uplevel 1 [list ::namespace path]]
-            if {$cmdns ni $existing_path} {
-                uplevel 1 [list ::namespace path [concat $existing_path $cmdns]]
-            }
-            tailcall $pipecmd {*}$args
-        }
-
-
-        #NOTE:
-        #we need to ensure for case:
-        #= x=y
-        #that the second arg is treated as a raw value - never a pipeline command
-
-        #equalsrhs is set if there is a segment-insertion-pattern *directly* after the =
-        #debug.punk.pipe {match_assign '$multivar' '$equalsrhs' '$fulltail'} 4
-        #can match pattern on lhs with a value where pattern is a minilang that can refer to atoms (simple non-whitespace strings), numbers, or varnames (possibly pinned) as well as a trailing spec for position within the data.
-
-        # allow x=insertionpattern  to begin a pipeline e.g x= |> string tolower  ?    or x=1 a b c <| X   to produce  a X b c
-        #
-        #to assign an entire pipeline to a var - use pipeset varname instead.
-
-        # in our script's handling of args:
-        #avoid use of regexp match on each element - or we will unnecessarily force string reps on lists
-        #same with lsearch with a string pattern -
-        #wouldn't matter for small lists - but we need to be able to handle large ones efficiently without unneccessary string reps
-        set script [string map [list <scopep> $scopepattern <rhs> $equalsrhs] {
-            #script built by punk::match_assign
-            if {[llength $args]} {
-                #scan for existence of any pipe operator (|*> or <*|) only - we don't need position
-                #all pipe operators must be a single element
-                #we don't first check llength args == 1 because for example:
-                # x= <|
-                # x= |>
-                #both leave x empty. To assign a pipelike value to x we would have to do: x= <| |>  (equiv: set x |>)
-                foreach a $args {
-                    if {![catch {llength $a} sublen]} {
-                        #don't enforce sublen == 1. Legal to have whitespace including newlines {| x >}
-                        if {[string match |*> $a] || [string match <*| $a]} {
-                            tailcall punk::pipeline = "<scopep>" "<rhs>" {*}$args
-                        }
-                    }
-                }
-                if {[llength $args] == 1} {
-                    set segmenttail [lindex $args 0]
-                } else {
-                    error "pipedata = must take a single argument. Got [llength $args] args: '$args'" "match_assign <scopep> <rhs> $args" [list pipedata segment too_many_elements segment_type =]
-                }
-            } else {
-                #set segmenttail [purelist]
-                set segmenttail [lreplace x 0 0]
-            }
-        }]
-
-
-
-
-        if {[string length $equalsrhs]} {
-            # as we aren't in a pipleine - there is no data to insert - we proably still need to run _split_equalsrhs  to verify the syntax.
-            # review - consider way to turn it off as optimisation for non-pipelined assignment - but generally standard Tcl set could be used for that purpose.
-            # We are probably only here if testing in the repl - in which case the error messages are important.
-            set var_index_position_list [punk::pipe::lib::_split_equalsrhs $equalsrhs]
-            #we may have an insertion-spec that inserts a literal atom e.g to wrap in "ok"
-            # x='ok'>0/0 data
-            # => {ok data}
-            # we won't examine for vars as there is no pipeline - ignore
-            # also ignore trailing *  (indicator for variable data to be expanded or not - ie {*})
-            # we will differentiate between / and @ in the same way that general pattern matching works.
-            # /x  will simply call linsert without reference to length of list
-            # @x will check for out of bounds
-            #
-            # !TODO - sort by position  lowest to highest?  or just require user to order the pattern correctly?
-
-
-
-                foreach v_pos $var_index_position_list {
-                    lassign $v_pos v indexspec positionspec
-                    #e.g =v1/1>0  A   <v1| {X Y}
-                    #Here, we are not assigning to v1 - but matching the index spec /0 with the data from v1
-                    #ie Y is inserted at position 0 to get A Y
-                    #(Note the difference from lhs)
-                    #on lhs v1/1= {X Y}
-                    #would pattern match against the *data* A B and set v1 to B
-
-                    #in this point of an assign (= as opposed to .=) IF  we have already determined there is no trailing pipeline
-                    #There will therefore be no variable names active in the pipeline's scope.
-                    #This is ok, given that we can more easily inject directly from calling scope
-                    #eg  out= list a $callervar c
-                    #or alternatively use .= instead
-                    #
-                    #HOWEVER - we need to build/compile a script that could then have further pipeline elements supplied as arguments
-                    #At the moment - this is handled in the script above by diverting to punk::pipeline to handle
-                    #The only vars/data we can possibly have to insert, come from the <var,etc/0| spec and any trailing args into the pipeline
-                    #The rest of the pipeline can't affect what we have available to insert here - so this could (possibly?) be done - and then
-                    #call the pipeline recursively (because we need to return the entire pipeline result - even though we set our scopepattern vars only to what we have from the current segment)
-                    #difficulty is getting the result from this segment into the subsequent command.
-                    #we can't supply it as an argument to a .= function so we need a helper such as pipeline in any case.
-                    #This should be revisited when pipeline is potentially adjusted to be a coroutine style processor that yields results for the next command
-                    #(similar to >pattern predator system)
-                    #
-                    #todo - review
-                    #
-                    #
-                    #for now - the script only needs to handle the case of a single segment pipeline (no |> <|)
-
-
-                    #temp  - needs_insertion
-                    #we can safely output no script for variable insertions for now - because if there was data available,
-                    #we would have to be in a pipeline - in which case the script above would have delegated all our operations anyway.
-                    #tag: positionspechandler
-                    if {([string index $v 0] eq "'" && [string index $v end] eq "'") || [string is integer -strict $v]} {
-                        #(for now)don't allow indexspec on a literal value baked into the pipeline - it doesn't really make sense
-                        #- unless the pipeline construction has been parameterised somehow e.g  "=${something}/0"
-                        #review
-                        if {[string length $indexspec]} {
-                            error "pipesyntax literal value $v - index specification not allowed (match_assign)1" "match_assign $scopepattern $equalsrhs $args" [list pipesyntax index_on_literal]
-                        }
-                        if {[string index $v 0] eq "'" && [string index $v end] eq "'"} {
-                            set datasource [string range $v 1 end-1]
-                        } elseif {[string is integer -strict $v]} {
-                            set datasource $v
-                        }
-                        append script [string map [list <value> $datasource] {
-                            set insertion_data "<value>" ;#atom could have whitespace
-                        }]
-
-                        set needs_insertion 1
-                    } elseif {$v eq ""} {
-                        #default variable is 'data'
-                        set needs_insertion 0
-                    } else {
-                        append script [string map [list <var> $v] {
-                            #uplevel?
-                            #set insertion_data [set <var>]
-                        }]
-                        set needs_insertion 0
-                    }
-                    if {$needs_insertion} {
-                        set script2 [punk::list_insertion_script $positionspec segmenttail <data>]
-                        set script2 [string map [list <data> "\$insertion_data" ] $script2]
-                        append script $script2
-                    }
-
-
-                }
-
-
-        }
-
-        if {![string length $scopepattern]} {
-            append script {
-                return $segmenttail
-            }
-        } else {
-            append script [string map [list <scopep> $scopepattern] {
-                #we still need to bind whether list is empty or not to allow any patternmatch to succeed/fail
-                set d [punk::_multi_bind_result {<scopep>} $segmenttail]
-                #return [punk::_handle_bind_result $d]
-                #maintenance: inlined
-                if {![dict exists $d result]} {
-                    #uplevel 1 [list error [dict get $d mismatch]]
-                    #error [dict get $d mismatch]
-                    return -code error -level 1 -errorcode [list binding mismatch] [dict get $d mismatch]
-                } else {
-                    return [dict get $d result]
-                }
-            }]
-        }
-
-        debug.punk.pipe.compile {match_assign creating proc $pipecmd} 2
-        uplevel 1 [list ::proc $pipecmd args $script]
-        set existing_path [uplevel 1 [list ::namespace path]]
-        if {$cmdns ni $existing_path} {
-            uplevel 1 [list ::namespace path [concat $existing_path $cmdns]]
-        }
-        tailcall $pipecmd {*}$args
-    }
-
-    #return a script for inserting data into listvar
-    #review - needs updating for list-return semantics of patterns?
-    proc list_insertion_script {keyspec listvar {data <data>}} {
-        set positionspec [string trimright $keyspec "*"]
-        set do_expand [expr {[string index $keyspec end] eq "*"}]
-        if {$do_expand} {
-            set exp {{*}}
-        } else {
-            set exp ""
-        }
-        #NOTE: linsert and lreplace can take multiple values at tail ie expanded data
-
-        set ptype [string index $positionspec 0]
-        if {$ptype in [list @ /]} {
-            set index [string range $positionspec 1 end]
-        } else {
-            #the / is optional (default) at first position - and we have already discarded the ">"
-            set ptype "/"
-            set index $positionspec
-        }
-        #puts stderr ">> >> $index"
-        set script ""
-        set isint [string is integer -strict $index]
-        if {$index eq "."} {
-            #do nothing - this char signifies no insertion
-        } elseif {$isint || [regexp {^(end|end[-+]{1,2}[0-9]+)$} $index]} {
-            if {$ptype eq "@"} {
-                #compare position to *possibly updated* list - note use of $index > $datalen rather than $index+1 > $datalen - (we allow 'insertion' at end of list by numeric index)
-                if {$isint} {
-                    append script [string map [list <listvar> $listvar <idx> $index] {
-                        if {(<idx> > [llength $<listvar>])} {
-                            #not a pipesyntax error
-                            error "pipedata insertionpattern index out of bounds. index:<idx> vs len: [llength $<listvar>]  use /x instead of @x to avoid check (list_insertion_script)" "list_insertion_script $keyspec" [list pipedata insertionpattern index_out_f_bounds]
-                        }
-                    }]
-                }
-                #todo  check end-x bounds?
-            }
-            if {$isint} {
-                append script [string map [list <listvar> $listvar <idx> $index <exp> $exp <val> $data] {
-                    set <listvar> [linsert   [lindex [list $<listvar> [unset <listvar>]] 0]  <idx> <exp><val>]
-                }]
-            } else {
-                    append script [string map [list <listvar> $listvar  <idx> $index <exp> $exp <val> $data] {
-                    #use inline K to make sure the list is unshared (optimize for larger lists)
-                    set <listvar> [linsert   [lindex [list $<listvar> [unset <listvar>]] 0]  <idx> <exp><val>]
-                }]
-
-            }
-        } elseif {[string first / $index] < 0 && [string first - $index] > 0} {
-            if {[regexp {^([0-9]+|end|end[-+]{1,2}[0-9]+)-([0-9]+|end|end[-+]{1,2}([0-9]+))$} $index _ start end]} {
-                #also - range checks for @ which must go into script !!!
-                append script [string map [list <listvar> $listvar <start> $start <end> $end <exp> $exp <val> $data] {
-                    set <listvar> [lreplace [lindex [list $<listvar> [unset <listvar>]] 0] <start> <end> <exp><val>]
-                }]
-            } else {
-                error "pipesyntax error in segment insertionpattern - positionspec:'$keyspec' unable to interpret position spec (list_insertion_script)2" "list_insertion_script $keyspec" [list pipedata insertionpattern_invalid]
-            }
-        } elseif {[string first / $index] >= 0} {
-            #nested insertion e.g /0/1/2  /0/1-1
-            set parts [split $index /]
-            set last [lindex $parts end]
-            if {[string first - $last] >=0} {
-                lassign [split $last -] a b
-                if {![regexp {^([0-9]+|end|end[-+]{1,2}[0-9]+)-([0-9]+|end|end[-+]{1,2}([0-9]+))$} $last _ a b]} {
-                    error "pipesyntax error in segment insertionpattern - positionspec:'$keyspec' unable to interpret position spec (list_insertion_script)3" "list_insertion_script $keyspec" [list pipesyntax insertionpattern_invalid]
-                }
-                if {$a eq $b} {
-                    if {!$do_expand} {
-                        #we can do an lset
-                        set lsetkeys [list {*}[lrange $parts 0 end-1] $a]
-                        append script [string map [list <listvar> $listvar <keys> $lsetkeys <val> $data] {
-                            lset <listvar> <keys> <val>
-                        }]
-                    } else {
-                        #we need to lreplace the containing item
-                        append script [string map [list <listvar> $listvar <containerkeys> [lrange $parts 0 end-1] <lastkey> $a <val> $data] {
-                            set target [lindex $<listvar> <containerkeys>]
-                            lset target <lastkey> {*}<val>
-                            lset <listvar> <containerkeys> $target
-                        }]
-                    }
-                } else {
-                    #we need to lreplace a range at the target level
-                    append script [string map [list <listvar> $listvar <containerkeys> [lrange $parts 0 end-1] <start> $a <end> $b <exp> $exp <val> $data] {
-                        set target [lindex $<listvar> <containerkeys>]
-                        set target [lreplace $target <start> <end> <exp><val>]
-                        lset <listvar> <containerkeys> $target
-                    }]
-                }
-            } else {
-                #last element has no -, so we are inserting at the final position - not replacing
-                append script [string map [list <listvar> $listvar <containerkeys> [lrange $parts 0 end-1] <lastkey> $last <exp> $exp <val> $data] {
-                    set target [lindex $<listvar> <containerkeys>]
-                    set target [linsert $target <lastkey> <exp><val>]
-                    lset <listvar> <containerkeys> $target
-                }]
-            }
-
-
-        } else {
-            error "pipesyntax error in segment - positionspec:'$keyspec' unable to interpret position spec (list_insertion_script)4" "list_insertion_script $keyspec" [list pipesyntax insertionpattern_invalid]
-        }
-        return $script
-    }
-
-
-
-
-    proc _is_math_func_prefix {e1} {
-        #also catch starting brackets.. e.g  "(min(4,$x) "
-        if {[regexp {^[^[:alnum:]]*([[:alnum:]]*).*} $e1 _ word]} {
-            #possible math func
-            if {$word in [info functions]} {
-                return true
-            }
-        }
-        return false
-    }
-
-    #todo - option to disable these traces which provide clarifying errors (performance hit?)
-    proc pipeline_args_read_trace_error {args} {
-        error "The pipelined data doesn't appear to be a valid Tcl list\nModify input, or use \$data or another variable name instead of \$args." "pipeline_args_read_trace_error $args" [list pipedata args_unavailable_data_not_a_list]
-    }
-
-
-    #NOTE: the whole idea of scanning for %x% is a lot of work(performance penalty)
-    #consider single placeholder e.g "_" as only positional indicator - for $data only - and require braced script with $var for more complex requirements
-    #possibly also *_  for expanded _ ?
-    #This would simplify code a lot - but also quite possible to collide with user data.
-    #Perhaps not a big deal as unbraced segments between |> are mainly(?) a convenience for readability/repl etc.
-    # (but importantly (at pipeline start anyway) unbraced segments are a mechanism to inject data from calling scope or from pipeline args <|)
-    #
-    #detect and retrieve %xxx% elements from item without affecting list/string rep
-    #commas, @, ', ^  and whitespace not part of a valid tag (allows some substitution within varspecs)
-    #%% is not a valid tag
-    #(as opposed to using regexp matching which causes string reps)
-    proc get_tags {item} {
-        set chars [split $item {}]
-        set terminal_chars [list , @ ' ^ " " \t \n \r]
-        #note % is both terminal and initiating - so for the algorithm we don't include it in the list of terminal_chars
-        set nonterminal [lmap v $chars {expr {$v ni $terminal_chars}}]
-        set percents [lmap v $chars {expr {$v eq "%"}}]
-        #useful for test/debug
-        #puts "CHARS      : $chars"
-        #puts "NONTERMINAL: $nonterminal"
-        #puts "PERCENTS   : $percents"
-        set sequences [list]
-        set in_sequence 0
-        set start -1
-        set end -1
-        set i 0
-        #todo - some more functional way of zipping/comparing these lists?
-        set s_length 0 ;#sequence length including % symbols - minimum for tag therefore 2
-        foreach n $nonterminal p $percents {
-            if {!$in_sequence} {
-                if {$n & $p} {
-                    set s_length 1
-                    set in_sequence 1
-                    set start $i
-                    set end $i
-                } else {
-                    set s_length 0
-                }
-            } else {
-                if {$n ^ $p} {
-                   incr s_length
-                   incr end
-                } else {
-                    if {$n & $p} {
-                        if {$s_length == 1} {
-                            # % followed dirctly by % - false start
-                            #start again from second %
-                            set s_length 1
-                            set in_sequence 1
-                            set start $i
-                            set end $i
-                        } else {
-                            incr end
-                            lappend sequences [list $start $end]
-                            set in_sequence 0
-                            set s_length 0
-                            set start -1; set end -1
-                        }
-                    } else {
-                        #terminated - not a tag
-                        set in_sequence 0
-                        set s_length 0
-                        set start -1; set end -1
-                    }
-                }
-            }
-            incr i
-        }
-
-        set tags [list]
-        foreach s $sequences {
-            lassign $s start end
-            set parts [lrange $chars $start $end]
-            lappend tags [join $parts ""]
-        }
-        return $tags
-    }
-
-    #show underlying rep of list and first level
-    proc  rep_listname {lname} {
-        upvar $lname l
-        set output "$lname list rep: [rep $l]\n"
-        foreach item $l {
-            append output "-rep $item\n"
-            append output "     [rep $item]\n"
-        }
-        return $output
-    }
-
-
-    # --
-    #consider possible tilde templating version ~= vs .=
-    #support ~ and ~* placeholders only.
-    #e.g x~= list aa b c |> lmap v ~ {string length $v} |> tcl::mathfunc::max ~*
-    #The ~ being mapped to $data in the pipeline.
-    #This is more readable and simpler for beginners - although it doesn't handle more advanced insertion requirements.
-    #possibility to mix as we can already with .= and =
-    #e.g
-    #x.= list aa b c |> ~= lmap v ~ {string length $v} |> .=>* tcl::mathfunc::max
-    # --
-    proc pipeline {segment_op initial_returnvarspec equalsrhs args} {
-        set fulltail $args
-        #unset args  ;#leave args in place for error diagnostics
-        debug.punk.pipe {call pipeline: op:'$segment_op' '$initial_returnvarspec' '$equalsrhs' '$fulltail'} 4
-        #debug.punk.pipe.rep {[rep_listname fulltail]} 6
-
-
-        #---------------------------------------------------------------------
-        # test if we have an initial x.=y.=   or x.= y.=
-
-        #nextail is tail for possible recursion based on first argument in the segment
-        #set nexttail [lassign $fulltail next1] ;#tail head
-
-        set next1 [lindex $args 0]
-        switch -- $next1 {
-            pipematch {
-                set nexttail [lrange $args 1 end]
-                set results [uplevel 1 [list pipematch {*}$nexttail]]
-                debug.punk.pipe {>>> pipematch results: $results}   1
-
-                set d [_multi_bind_result $initial_returnvarspec $results]
-                return [_handle_bind_result $d]
-            }
-            pipecase {
-                set msg     "pipesyntax\n"
-                append msg  "pipecase does not return a value directly in the normal way\n"
-                append msg  "It will return a casemismatch dict on mismatch\n"
-                append msg  "But on a successful match - it will use an 'error' mechanism to return  {ok result {something}} in the caller's scope -\n"
-                append msg  "This will appear as an error in the repl, or disrupt pipeline result propagation if not in an appropriate wrapper\n"
-                append msg  "Call pipecase from within a pipeline script block or wrapper such as pipeswitch or apply."
-                error $msg
-            }
-        }
-
-        #temp - this is related to a script for the entire pipeline (functional composition) - not the script for the segment-based x=y or x.=y  proc.
-        set ::_pipescript ""
-
-
-
-        #NOTE:
-        #important that for assignment:
-        #= x=y ..
-        #The second element is always treated as a raw value - not a pipeline instruction.
-        #whereas... for execution:
-        #.= x=y   the second element is a pipeline-significant symbol based on the '='  even if it was passed in as an argument.
-        #Usually an execution segment (.= cmd etc..) will have args inserted at the tail anyway -
-        #- but if the pipeline is designed to put an argument in the zero position - then presumably it is intended as a pipeline-significant element anyway
-        #This gives a *slight* incompatibility with external commands containing '=' - in that they may not work properly in pipelines
-        #
-        if {$segment_op ne "="} {
-            #handle for example:
-            #var1.= var2= "etc" |> string toupper
-            #
-            #var1 will contain ETC (from entire pipeline),  var2 will contain etc (from associated segment)
-            #
-
-            if {([set nexteposn [string last = $next1]] >= 0) && (![punk::pipe::lib::arg_is_script_shaped $next1]) } {
-                set nexttail [lrange $args 1 end]
-                #*SUB* pipeline recursion.
-                #puts "======> recurse based on next1:$next1 "
-                if {[string index $next1 $nexteposn-1] eq {.}} {
-                    #var1.= var2.= ...
-                    #non pipelined call to self - return result
-                    set results [uplevel 1 [list $next1 {*}$nexttail]]
-                    #debug.punk.pipe.rep  {==> rep recursive results: [rep $results]} 5
-                    #debug.punk.pipe {>>> results: $results}   1
-                    return [_handle_bind_result [_multi_bind_result $initial_returnvarspec $results]]
-                }
-                #puts "======> recurse assign based on next1:$next1 "
-                #if {[regexp  {^([^ \t\r\n=\{]*)=(.*)} $next1 _ nextreturnvarspec nextrhs]} {
-                #}
-                #non pipelined call to plain = assignment - return result
-                set results [uplevel 1 [list $next1 {*}$nexttail]]
-                #debug.punk.pipe {>>> results: $results}   1
-                set d [_multi_bind_result $initial_returnvarspec $results]
-                return [_handle_bind_result $d]
-            }
-        }
-
-        set procname $initial_returnvarspec.=$equalsrhs
-
-        #---------------------------------------------------------------------
-
-        #todo add 'op' argument and handle both .= and =
-        #
-        #|>  data piper symbol
-        #<| args piper symbol  (arguments supplied at end of pipeline e.g from commandline or from calling and/or currying the command)
-        #
-
-        set more_pipe_segments 1  ;#first loop
-
-        #this contains the main %data% and %datalist%  values going forward in the pipeline
-        #as well as any extra pipeline vars defined in each |>
-        #It also contains any 'args' with names supplied in <|
-        set dict_tagval [dict create] ;#cumulative %x% tag dict which operates on the whole length of the pipeline
-
-        #determine if there are input args at the end of the pipeline indicated by reverse <| symbol possibly with argspecs e.g <a,b,args|.
-        #note that there could be script blocks in between containing this symbol
-        #e.g  x.= func a b c |> transform x y z  <arg1,arg2| arg1val arg2val
-        #todo
-        #set argsposn [lsearch [lreverse $fulltail] <|]
-
-
-
-
-
-        #avoid use of regexp match on each element - or we will unnecessarily force string reps on lists
-        #Take the *first* <| we encounter as a distince list element. (not that this doesn't prevent the existence of sub-pipelines containing <|)
-        #
-        #
-        #
-
-        set firstargpipe_posn [lsearch $fulltail "<*|"]
-        if {$firstargpipe_posn >=0} {
-            set tailremaining   [lrange $fulltail 0 $firstargpipe_posn-1]
-            set argslist        [lrange $fulltail $firstargpipe_posn+1 end] ;#Note that this could be a whole other pipeline with |> and/or <| elements.
-            set argpipe         [lindex $fulltail $firstargpipe_posn]
-            set argpipespec     [string range $argpipe 1 end-1] ;# strip off < & | from "<x,etc|"
-        } else {
-            set tailremaining   $fulltail
-            set argslist        [list]
-            set argpipespec     "" ;#argumentspec e.g a,b,c  from <a,b,c|
-        }
-
-
-
-        debug.punk.pipe.args {argpipespec: $argpipespec argslist: $argslist} 6
-        debug.punk.pipe {initial list (excluding argpipespec <$argpipespec| ): $tailremaining} 7
-        #rep_listname tailremaining
-
-        #pipe symbols contain arg specifications which are referred to as pipespec(i,in) and pipespec(i,out) with reference to the command args between them (segment i)
-        # - in this case  b1 b2 b3
-        #a1 a2 a3 |inpipespec> b1 b2 b3 |outpipespec> c1 c2 c3
-        # for a1 a2 a3 - the pipe to the right is actually an outpipespec  and for c1 c2 c3 the pipe to the left is an inpipespec
-
-
-        #our initial command list always has *something* before we see any pipespec |>
-        #Therefore we initially have a blank inpipespec (although in effect, it comes from the argpipespec <|)
-        set inpipespec  $argpipespec
-        set outpipespec ""
-
-        #avoiding regexp on each arg to maintain list reps
-        #set tailmap [lmap v $tailremaining {lreplace [split $v {}] 1 end-1}]
-        ##    set tailmap [lmap v $tailremaining {if {[regexp {^\|(.*)>$} $v _ outpipespec] && !$pipeseen} {set pipeseen 1;set outpipespec} {if {$pipeseen} {set v} 0}}]
-        #e.g for:   a b c |> e f g |> h
-        #set firstpipe_posn [lsearch $tailmap {| >}]
-
-        set firstpipe_posn [lsearch $tailremaining "|*>"]
-
-        if {$firstpipe_posn >=0} {
-            set outpipespec [string range [lindex $tailremaining $firstpipe_posn] 1 end-1]
-            set segment_members [lrange $tailremaining 0 $firstpipe_posn-1]
-            #set tailremaining [lrange $tailremaining $firstpipe_posn+1 end]
-            set tailremaining [lreplace $tailremaining 0 $firstpipe_posn]  ;#generally too short for any K combinator benefit? what about lists with scripts? is it dependent on list length or also element content size?
-        } else {
-            set segment_members $tailremaining
-            set tailremaining [list]
-        }
-
-
-
-        set script_like_first_word 0
-        set rhs $equalsrhs
-
-        set segment_first_is_script 0 ;#default assumption until tested
-
-        set segment_first_word [lindex $segment_members 0]
-        if {$segment_op ne "="} {
-            if {[punk::pipe::lib::arg_is_script_shaped $segment_first_word]} {
-                set segment_first_is_script 1
-            }
-        } else {
-            if {[llength $segment_members] > 1} {
-                error "pipedata  = can only accept a single argument (got: '$segment_members')" "pipeline $segment_op $initial_returnvarspec $equalsrhs $fulltail" [list pipedata too_many_elements]
-                #proc pipeline {segment_op initial_returnvarspec equalsrhs args}
-            }
-            set segment_members $segment_first_word
-        }
-
-
-
-        #tailremaining includes x=y during the loop.
-        set returnvarspec $initial_returnvarspec
-        if {![llength $argslist]} {
-            unset -nocomplain previous_result ;#  we want it unset for first iteration - differentiate from empty string
-        } else {
-            set previous_result $argslist
-        }
-
-        set segment_result_list [list]
-        set i 0  ;#segment id
-        set j 1  ;#next segment id
-        set pipespec(args) $argpipespec  ;# from trailing <|
-        set pipespec(0,in) $inpipespec
-        set pipespec(0,out) $outpipespec
-
-        set max_iterations 100 ;# configurable? -1 for no limit ?  This is primarily here to aid debugging of runaway loops in  initial development .. should probably set to no-limit in final version.
-        while {$more_pipe_segments == 1} {
-            #---------------------------------
-            debug.punk.pipe {[a yellow bold]i$i SEGMENT MEMBERS([llength $segment_members]): $segment_members[a]} 4
-            debug.punk.pipe {[a yellow bold]i$i TAIL REMAINING([llength $tailremaining]): $tailremaining[a]} 4
-            debug.punk.pipe {[a] inpipespec(prev [a yellow bold]|$pipespec($i,in)[a]>)  outpipespec(next [a+ yellow bold]|$pipespec($i,out)>[a])} 4
-            debug.punk.pipe  {[a cyan bold] segment_first_is_script:$segment_first_is_script} 4
-            if {$segment_first_is_script} {
-               debug.punk.pipe {[a cyan bold] script segment: [lindex $segment_members 0][a]} 4
-            }
-
-
-
-            #examine inpipespec early to give faster chance for mismatch. ie before scanning segment for argument position
-            set segment_result ""
-            if {[info exists previous_result]} {
-                set prevr $previous_result
-            } else {
-                set prevr ""
-            }
-            set pipedvars [dict create]
-            if {[string length $pipespec($i,in)]} {
-                #check the varspecs within the input piper
-                # - data and/or args may have been manipulated
-                set d [apply {{mv res} {
-                    punk::_multi_bind_result $mv $res -levelup 1
-                }} $pipespec($i,in) $prevr]
-                #temp debug
-                #if {[dict exists $d result]} {
-                    #set jjj [dict get $d result]
-                    #puts "!!!!! [rep $jjj]"
-                #}
-                set inpipespec_result [_handle_bind_result $d]
-                set pipedvars [dict get $d setvars]
-                set prevr $inpipespec_result ;# leftmost spec in |>  needs to affect pipeline flow of 'data'
-                #puts stdout "inpipespec:|$pipespec($i,in)> prevr:$prevr setvars: $pipedvars"
-            }
-            debug.punk.pipe {[a] previous_iteration_result: $prevr[a]} 6
-            debug.punk.pipe.rep {rep previous_iteration_result [rep $prevr]}
-
-
-            if {$i == $max_iterations} {
-                puts stderr "ABORTING. Reached max_iterations $max_iterations (todo: make configurable)"
-                set more_pipe_segments 0
-            }
-
-            set insertion_patterns [punk::pipe::lib::_split_equalsrhs $rhs] ;#raises error if rhs of positionspec not like /* or @*
-            set segment_has_insertions  [expr {[llength $insertion_patterns] > 0}]
-            #if {$segment_has_insertions} {
-            #    puts stdout ">>> $segment_members insertion_patterns $insertion_patterns"
-            #}
-
-            debug.punk.pipe.var {segment_has_insertions: $insertion_patterns} 5
-            debug.punk.pipe.rep {[rep_listname segment_members]} 4
-
-
-
-
-            #whether the segment has insertion_patterns or not - apply any modification from the piper argspecs (script will use modified args/data)
-            #pipedvars comes from either previous segment |>, or <| args
-            if {[dict exists $pipedvars "data"]} {
-                #dict set dict_tagval %data% [list [dict get $pipedvars "data"]]
-                dict set dict_tagval data [dict get $pipedvars "data"]
-            } else {
-                if {[info exists previous_result]} {
-                    dict set dict_tagval data $prevr
-                }
-            }
-            foreach {vname val} $pipedvars {
-                #add additionally specified vars and allow overriding of %args% and %data% by not setting them here
-                if {$vname eq "data"} {
-                    #already potentially overridden
-                    continue
-                }
-                dict set dict_tagval $vname  $val
-            }
-
-            #todo!
-            #segment_script - not in use yet.
-            #will require non-iterative pipeline processor to use ... recursive.. or coroutine based
-            set script ""
-
-            if {!$segment_has_insertions} {
-                #debug.punk.pipe.var {[a cyan]SEGMENT has no tags[a]} 7
-                #add previous_result as data in end position by default, only if *no* insertions specified  (data is just list-wrapped previous_result)
-                #set segment_members_filled [concat $segment_members [dict get $dict_tagval %data%]] ;# data flows through by default as single element - not args - because some strings are not valid lists
-                #insertion-specs with a trailing * can be used to insert data in args format
-                set segment_members_filled $segment_members
-                if {[dict exists $dict_tagval data]} {
-                    lappend segment_members_filled [dict get $dict_tagval data]
-                }
-
-            } else {
-                debug.punk.pipe.var {processing insertion_pattern dict_tagval: $dict_tagval} 4
-                set segment_members_filled [list]
-                set segmenttail $segment_members ;# todo - change to segment_members here to match punk::match_assign
-
-                set rhsmapped [punk::pipe::lib::pipecmd_namemapping $rhs]
-                set cmdname "::punk::pipecmds::insertion::_$rhsmapped"
-                #glob chars have been mapped - so we can test by comparing info commands result to empty string
-                if {[info commands $cmdname] eq ""} {
-
-                    set insertion_script "proc $cmdname {dict_tagval segmenttail} {\n"
-                    foreach v_pos $insertion_patterns {
-                        #puts stdout "v_pos '$v_pos'"
-                        lassign $v_pos v indexspec positionspec  ;#v may be atom, or varname (in pipeline scope)
-                        #puts stdout "v:'$v' indexspec:'$indexspec' positionspec:'$positionspec'"
-                        #julz
-
-                        append insertion_script \n [string map [list <v_pos> $v_pos] {
-                            lassign [list <v_pos>] v indexspec positionspec
-                        }]
-
-                        if {([string index $v 0] eq "'") && ([string index $v end] eq "'")} {
-                            set v [string range $v 1 end-1] ;#assume trailing ' is present!
-                            if {[string length $indexspec]} {
-                                error "pipesyntax - index not supported on atom" "pipeline $segment_op $initial_returnvarspec $equalsrhs $args" [list pipesyntax index_on_literal]
-                            }
-                            append insertion_script \n "set insertion_data [list $v]" ;#sub in shortened $v now -i.e use atom value itself (string within single quotes)
-                        } elseif {[string is double -strict $v]} {
-                            #don't treat numbers as variables
-                            if {[string length $indexspec]} {
-                                error "pipesyntax - index not supported on number" "pipeline $segment_op $initial_returnvarspec $equalsrhs $args" [list pipesyntax index_on_literal]
-                            }
-                            append insertion_script \n {set insertion_data $v}
-                        } else {
-                            #todo - we should potentially group by the variable name and pass as a single call to _multi_bind_result - because stateful @ and @@ won't work in independent calls
-                            append insertion_script \n [string map [list <cmdname> $cmdname] {
-                                #puts ">>> v: $v dict_tagval:'$dict_tagval'"
-                                if {$v eq ""} {
-                                    set v "data"
-                                }
-                                if {[dict exists $dict_tagval $v]} {
-                                    set insertion_data [dict get $dict_tagval $v]
-                                    #todo - use destructure_func
-                                    set d [punk::_multi_bind_result $indexspec $insertion_data]
-                                    set insertion_data [punk::_handle_bind_result $d]
-                                } else {
-                                    #review  - skip error if varname is 'data' ?
-                                    #e.g we shouldn't really fail for:
-                                    #.=>* list a b c <|
-                                    #??? Technically
-                                    #we need to be careful not to insert empty-list as an argument by default
-                                    error "pipevariable - varname $v not present in pipeline context. pipecontext_vars: [dict keys $dict_tagval] (2)" "<cmdname>  pipecontext_vars: [dict keys $dict_tagval]" [list pipevariable variable_not_in_pipeline_scope]
-                                }
-
-                            }]
-                        }
-
-
-
-
-                        #append script [string map [list <v> $getv]{
-                        #
-                        #}]
-                        #maintenance - index logic should be similar identical? to to match_assign - which only needs to process atoms because it (for now?) delegates all pipeline ops here, so no vars available (single segment assign)
-                        #tag: positionspechandler
-
-
-                        #puts stdout "=== list_insertion_script '$positionspec' segmenttail <data>"
-                        set script2 [punk::list_insertion_script $positionspec segmenttail <data>]
-                        set script2 [string map [list <data> "\$insertion_data" ] $script2]
-                        append insertion_script \n $script2
-
-                    }
-                    append insertion_script \n {set segmenttail}
-                    append insertion_script \n "}"
-                    #puts stderr "$insertion_script"
-                    debug.punk.pipe.compile {creating proc ::punk::pipecmds::insertion::_$rhsmapped } 4
-                    eval $insertion_script
-                }
-
-                set segment_members_filled [::punk::pipecmds::insertion::_$rhsmapped $dict_tagval [lindex [list $segmenttail [unset segmenttail]] 0] ]
-
-                #set segment_members_filled $segmenttail
-                #note - length of segment_members_filled may now differ from length of original segment_members!  (if do_expand i.e  trailing * in any insertion_patterns)
-
-            }
-            set rhs [string map $dict_tagval $rhs] ;#obsolete?
-
-            debug.punk.pipe.rep {segment_members_filled rep: [rep $segment_members_filled]} 4
-
-
-            # script index could have changed!!!  todo fix!
-
-            #we require re_dot_assign before re_assign (or fix regexes so order doesn't matter!)
-            if {(!$segment_first_is_script ) && $segment_op eq ".="} {
-                #no scriptiness detected
-
-                #debug.punk.pipe.rep {[a yellow bold][rep_listname segment_members_filled][a]} 4
-
-                set cmdlist_result [uplevel 1 $segment_members_filled]
-                #debug.punk.pipe {[a green bold]forward_result: $forward_result[a]} 4
-                #debug.punk.pipe.rep {[a yellow bold]forward_result REP: [rep $forward_result][a]} 4
-
-                #set d [_multi_bind_result $returnvarspec [punk::K $cmdlist_result [unset cmdlist_result]]]
-                set d [_multi_bind_result $returnvarspec [lindex [list $cmdlist_result [unset cmdlist_result ]] 0]]
-
-                set segment_result [_handle_bind_result $d]
-                #puts stderr ">>forward_result: $forward_result segment_result $segment_result"
-
-
-            } elseif {$segment_op eq "="} {
-                #slightly different semantics for assigment!
-                #We index into the DATA - not the position within the segment!
-                #(an = segment must take a single argument, as opposed to a .= segment)
-                #(This was a deliberate design choice for consistency with set, and to reduce errors.)
-                #(we could have allowed multiple args to = e.g to form a list, but it was tried, and the edge-cases were unintuitive and prone to user error)
-                #(The choice to restrict to single argument, but allow insertion and appending via insertion-specs is more explicit and reliable even though the insertion-specs operate differently to those of .=)
-                #
-                #we have to ensure that for an empty segment - we don't append to the empty list, thus listifying the data
-                #v= {a b c} |> =
-                # must return: {a b c}  not a b c
-                #
-                if {!$segment_has_insertions} {
-                    set segment_members_filled $segment_members
-                    if {[dict exists $dict_tagval data]} {
-                        if {![llength $segment_members_filled]} {
-                            set segment_members_filled [dict get $dict_tagval data]
-                        } else {
-                            lappend segment_members_filled [dict get $dict_tagval data]
-                        }
-                    }
-                }
-
-                set d [_multi_bind_result $returnvarspec [lindex [list $segment_members_filled [unset segment_members_filled ]] 0]]
-                set segment_result [_handle_bind_result $d]
-
-
-            } elseif {$segment_first_is_script || $segment_op eq "script"} {
-                #script
-                debug.punk.pipe {[a+ cyan bold].. evaluating as script[a]} 2
-
-                set script [lindex $segment_members 0]
-
-                #build argument lists for 'apply'
-                set segmentargnames [list]
-                set segmentargvals [list]
-                foreach {k val} $dict_tagval {
-                    if {$k eq "args"} {
-                        #skip args - it is manually added at the end of the apply list if it's a valid tcl list
-                        continue
-                    }
-                    lappend segmentargnames $k
-                    lappend segmentargvals $val
-                }
-
-                set argsdatalist $prevr ;#default is raw result as a list. May be overridden by an argspec within |>  e.g |args@@key>  or stripped if not a tcl list
-                #puts "------> rep prevr argsdatalist: [rep $argsdatalist]"
-                set add_argsdata 0
-                if {[dict exists $dict_tagval "args"]} {
-                    set argsdatalist [dict get $dict_tagval "args"]
-                    #see if the raw result can be treated as a list
-                    if {[catch {lindex $argsdatalist 0}]} {
-                        #we cannot supply 'args'
-                        set pre_script ""
-                        #todo - only add trace if verbose warnings enabled?
-                        append pre_script "trace add variable args read punk::pipeline_args_read_trace_error\n"
-                        set script $pre_script
-                        append script $segment_first_word
-                        set add_argsdata 0
-                    } else {
-                        set add_argsdata 1
-                    }
-                }
-
-                debug.punk.pipe.rep {>> [rep_listname segmentargvals]} 4
-                set ns [uplevel 1 {::namespace current}]
-                if {!$add_argsdata} {
-                    debug.punk.pipe  {APPLY1: (args not set; not a list) segment vars:$segmentargnames} 4
-                    #puts stderr "       script: $script"
-                    #puts stderr "       vals: $segmentargvals"
-                    set evaluation [uplevel 1 [list ::apply [::list $segmentargnames $script $ns] {*}$segmentargvals]]
-                } else {
-                    debug.punk.pipe {APPLY2: (args is set)segment vars:$segmentargnames} 4
-                    #puts stderr "       script: $script"
-                    #puts stderr "       vals: $segmentargvals $argsdatalist"
-                    #pipeline script context should be one below calling context - so upvar v v will work
-                    #ns with leading colon will fail with apply
-                    set evaluation [uplevel 1 [list ::apply [::list [::concat $segmentargnames args] $script $ns] {*}$segmentargvals {*}$argsdatalist]]
-                }
-
-                debug.punk.pipe.rep {script result, evaluation: [rep_listname evaluation]} 4
-                #puts "---> rep script evaluation result: [rep $evaluation]"
-                #set d [_multi_bind_result $returnvarspec [punk::K $evaluation [unset evaluation]]]
-
-                #trailing segment_members are *pipedata* scripts - as opposed to ordinary pipeline scripts!
-                set tail_scripts [lrange $segment_members 1 end]
-                if {[llength $tail_scripts]} {
-                    set r [pipedata $evaluation {*}$tail_scripts]
-                } else {
-                    set r $evaluation
-                }
-                set d [_multi_bind_result $returnvarspec [lindex [list $r [unset r]] 0]]
-                set segment_result [_handle_bind_result $d]
-            } else {
-                #tags ?
-                #debug.punk.pipe {>>raw commandline: [concat $rhs $segment_members_filled]} 5
-                if {false} {
-                    #set s [list uplevel 1 [concat $rhs $segment_members_filled]]
-                    if {![info exists pscript]} {
-                        upvar ::_pipescript pscript
-                    }
-                    if {![info exists pscript]} {
-                        #set pscript $s
-                        set pscript [funcl::o_of_n 1 $segment_members]
-                    } else {
-                        #set pscript [string map [list <p> $pscript] {uplevel 1 [concat $rhs $segment_members_filled [<p>]]}]
-                        #set snew "set pipe_$i \[uplevel 1 \[list $rhs $segment_members_filled "
-                        #append snew "set pipe_[expr $i -1]"
-                        #append pscript $snew
-                        set pscript [funcl::o_of_n 1 $segment_members $pscript]
-
-                    }
-                }
-
-                set cmdlist_result [uplevel 1 $segment_members_filled]
-                #set d [_multi_bind_result $returnvarspec [punk::K $segment_members_filled [unset segment_members_filled]]]
-                set d [_multi_bind_result $returnvarspec [lindex [list $cmdlist_result [unset cmdlist_result]] 0 ]]
-
-                #multi_bind_result needs to return a funcl for rhs of:
-                #lindex [list [set syncvar [main pipeline.. ]]    [rhs binding funcl...]   1 ]
-                #which uses syncvar
-                #
-                #The lhs of 'list' runs first so now syncvar can be the root level of the rhs function list and bind the necessary vars.
-                #NOTE: unintuitively, we are returning the value of rhs to the main pipleline! (leftmost binding)  this is because the leftmost binding determines what goes back to the pipeline result
-
-                set segment_result [_handle_bind_result $d]
-            }
-            #the subresult doesn't need to go backwards - as the final assignment can emit the result into a variable
-            #It makes more sense and is ultimately more useful (and more easy to reason about) for the result of each assignment to be related only to the pre-pipe section
-            #It may however make a good debug point
-            #puts stderr "segment $i segment_result:$segment_result"
-
-            debug.punk.pipe.rep {[rep_listname segment_result]} 3
-
-
-
-
-
-            #examine tailremaining.
-            # either   x x x |?> y y y ...
-            # or just  y y y
-            #we want the x side for next loop
-
-            #set up the conditions for the next loop
-            #|> x=y args
-            # inpipespec  -  contents of previous piper |xxx>
-            # outpipespec  - empty or content of subsequent piper |xxx>
-            # previous_result
-            # assignment  (x=y)
-
-
-            set pipespec($j,in) $pipespec($i,out)
-            set outpipespec ""
-            set tailmap ""
-            set next_pipe_posn -1
-            if {[llength $tailremaining]} {
-
-                #set tailmap [lmap v $tailremaining {lreplace [split $v {}] 1 end-1}]
-                ##e.g for:   a b c |> e f g |> h
-                #set next_pipe_posn [lsearch $tailmap {| >}]
-                set next_pipe_posn [lsearch $tailremaining "|*>"]
-
-                set outpipespec [string range [lindex $tailremaining $next_pipe_posn] 1 end-1]
-            }
-            set pipespec($j,out) $outpipespec
-
-
-            set script_like_first_word 0
-            if {[llength $tailremaining] || $next_pipe_posn >= 0} {
-
-                if {$next_pipe_posn >=0} {
-                    set next_all_members [lrange $tailremaining 0 $next_pipe_posn-1] ;#exclude only piper |xxx>  for
-                    set tailremaining [lrange $tailremaining $next_pipe_posn+1 end]
-
-                } else {
-                    set next_all_members $tailremaining
-                    set tailremaining [list]
-                }
-
-
-                #assignment is the arg immediately following |> operator  e.g x.=blah  or x=etc  (or a normal commandlist or script!)
-                set segment_first_word ""
-                set returnvarspec "" ;#  the lhs of x=y
-                set segment_op ""
-                set rhs ""
-                set segment_first_is_script 0
-                if {[llength $next_all_members]} {
-                    if {[punk::pipe::lib::arg_is_script_shaped [lindex $next_all_members 0]]} {
-                        set segment_first_word [lindex $next_all_members 0]
-                        set segment_first_is_script 1
-                        set segment_op ""
-                        set segment_members $next_all_members
-                    } else {
-                        set possible_assignment [lindex $next_all_members 0]
-                        #set re_dot_assign {^([^ \t\r\n=\{]*)\.=(.*)}
-                        if {[regexp {^([^ \t\r\n=\{]*)\.=(.*)} $possible_assignment _ returnvarspec rhs]} {
-                            set segment_op ".="
-                            set segment_first_word [lindex $next_all_members 1]
-                            set script_like_first_word [punk::pipe::lib::arg_is_script_shaped $segment_first_word]
-                            if {$script_like_first_word} {
-                                set segment_first_is_script 1  ;#relative to segment_members which no longer includes the .=
-                            }
-                            set segment_members [lrange $next_all_members 1 end]
-                        } elseif {[regexp {^([^ \t\r\n=]*)=(.*)} $possible_assignment _ returnvarspec rhs]} {
-                            set segment_op "="
-                            #never scripts
-                            #must be at most a single element after the = !
-                            if {[llength $next_all_members] > 2} {
-                                #raise this as pipesyntax as opposed to pipedata?
-                                error "pipesyntax - at most one element can follow = (got [lrange $next_all_members 1 end])" "pipeline $segment_op $returnvarspec $rhs [lrange $next_all_members 1 end]" [list pipesyntax too_many_elements]
-                            }
-                            set segment_first_word [lindex $next_all_members 1]
-                            if {[catch {llength $segment_first_word}]} {
-                                set segment_is_list 0 ;#only used for segment_op =
-                            } else {
-                                set segment_is_list 1 ;#only used for segment_op =
-                            }
-
-                            set segment_members $segment_first_word
-                        } else {
-                            #no assignment operator and not script shaped
-                            set segment_op ""
-                            set returnvarspec ""
-                            set segment_first_word [lindex $next_all_members 0]
-                            set segment_first_word [lindex $next_all_members 1]
-                            set segment_members $next_all_members
-                            #puts stderr ">>3 no-operator segment_first_word: '$segment_first_word'"
-                        }
-                    }
-
-
-                } else {
-                    #?? two pipes in a row ?
-                    debug.punk.pipe {[a+ yellow bold]WARNING: no segment members found[a]} 0
-                    set segment_members return
-                    set segment_first_word return
-                }
-
-                #set forward_result $segment_result
-                #JMN2
-                set previous_result $segment_result
-                #set previous_result [join $segment_result]
-            } else {
-                debug.punk.pipe {[a+ cyan bold]End of pipe segments ($i)[a]} 4
-                #output pipe spec at tail of pipeline
-
-                set pipedvars [dict create]
-                if {[string length $pipespec($i,out)]} {
-                    set d [apply {{mv res} {
-                        punk::_multi_bind_result $mv $res -levelup 1
-                    }} $pipespec($i,out) $segment_result]
-                    set segment_result [_handle_bind_result $d]
-                    set pipedvars [dict get $d setvars]
-                }
-
-                set more_pipe_segments 0
-            }
-
-            #the segment_result is based on the leftmost var on the lhs of the .=
-            #whereas forward_result is always the entire output of the segment
-            #JMN2
-            #lappend segment_result_list [join $segment_result]
-            lappend segment_result_list $segment_result
-            incr i
-            incr j
-        } ;# end while
-
-        return [lindex $segment_result_list end]
-        #JMN2
-        #return $segment_result_list
-        #return $forward_result
-    }
-
-
-    #just an experiment
-    #what advantage/difference versus [llength [lrange $data $start $end]] ???
-    proc data_range_length {data start end} {
-        set datalen [llength $data]
-
-        #normalize to s and e
-        if {$start eq "end"} {
-            set s [expr {$datalen - 1}]
-        } elseif {[string match end-* $start]} {
-            set stail [string range $start 4 end]
-            set posn [expr {$datalen - $stail -1}]
-            if {$posn < 0} {
-                return 0
-            }
-            set s $posn
-        } else {
-            #int
-            if {($start < 0) || ($start > ($datalen -1))} {
-                return 0
-            }
-            set s $start
-        }
-        if {$end eq "end"} {
-            set e [expr {$datalen - 1}]
-        } elseif {[string match end-* $end]} {
-            set etail [string range $end 4 end]
-            set posn [expr {$datalen - $etail -1}]
-            if {$posn < 0} {
-                return 0
-            }
-            set e $posn
-        } else {
-            #int
-            if {($end < 0)} {
-                return 0
-            }
-            set e $end
-        }
-        if {$s > ($datalen -1)} {
-            return 0
-        }
-        if {$e > ($datalen -1)} {
-            set e [expr {$datalen -1}]
-        }
-
-
-
-        if {$e < $s} {
-            return 0
-        }
-
-        return [expr {$e - $s + 1}]
-    }
-
-    # unknown --
-    # This procedure is called when a Tcl command is invoked that doesn't
-    # exist in the interpreter.  It takes the following steps to make the
-    # command available:
-    #
-    #	1. See if the autoload facility can locate the command in a
-    #	   Tcl script file.  If so, load it and execute it.
-    #	2. If the command was invoked interactively at top-level:
-    #	    (a) see if the command exists as an executable UNIX program.
-    #		If so, "exec" the command.
-    #	    (b) see if the command requests csh-like history substitution
-    #		in one of the common forms !!, !<number>, or ^old^new.  If
-    #		so, emulate csh's history substitution.
-    #	    (c) see if the command is a unique abbreviation for another
-    #		command.  If so, invoke the command.
-    #
-    # Arguments:
-    # args -	A list whose elements are the words of the original
-    #		command, including the command name.
-
-    #review - we shouldn't really be doing this
-    #We need to work out if we can live with the real default unknown and just inject some special cases at the beginning before falling-back to the normal one
-
-    proc ::unknown args {
-        #puts stderr "unk>$args"
-        variable ::tcl::UnknownPending
-        global auto_noexec auto_noload env tcl_interactive errorInfo errorCode
-
-        if {[info exists errorInfo]} {
-            set savedErrorInfo $errorInfo
-        }
-        if {[info exists errorCode]} {
-            set savedErrorCode $errorCode
-        }
-
-        set name [lindex $args 0]
-        if {![info exists auto_noload]} {
-        #
-        # Make sure we're not trying to load the same proc twice.
-        #
-        if {[info exists UnknownPending($name)]} {
-            return -code error "self-referential recursion\
-                in \"unknown\" for command \"$name\""
-        }
-        set UnknownPending($name) pending
-        set ret [catch {
-            auto_load $name [uplevel 1 {::namespace current}]
-        } msg opts]
-        unset UnknownPending($name)
-        if {$ret != 0} {
-            dict append opts -errorinfo "\n    (autoloading \"$name\")"
-            return -options $opts $msg
-        }
-        if {![array size UnknownPending]} {
-            unset UnknownPending
-        }
-        if {$msg} {
-            if {[info exists savedErrorCode]} {
-            set ::errorCode $savedErrorCode
-            } else {
-            unset -nocomplain ::errorCode
-            }
-            if {[info exists savedErrorInfo]} {
-            set errorInfo $savedErrorInfo
-            } else {
-            unset -nocomplain errorInfo
-            }
-            set code [catch {uplevel 1 $args} msg opts]
-            if {$code ==  1} {
-            #
-            # Compute stack trace contribution from the [uplevel].
-            # Note the dependence on how Tcl_AddErrorInfo, etc.
-            # construct the stack trace.
-            #
-            set errInfo [dict get $opts -errorinfo]
-            set errCode [dict get $opts -errorcode]
-            set cinfo $args
-            if {[string length [encoding convertto utf-8 $cinfo]] > 150} {
-                set cinfo [string range $cinfo 0 150]
-                while {[string length [encoding convertto utf-8 $cinfo]] > 150} {
-                set cinfo [string range $cinfo 0 end-1]
-                }
-                append cinfo ...
-            }
-            set tail "\n    (\"uplevel\" body line 1)\n    invoked\
-                from within\n\"uplevel 1 \$args\""
-            set expect "$msg\n    while executing\n\"$cinfo\"$tail"
-            if {$errInfo eq $expect} {
-                #
-                # The stack has only the eval from the expanded command
-                # Do not generate any stack trace here.
-                #
-                dict unset opts -errorinfo
-                dict incr opts -level
-                return -options $opts $msg
-            }
-            #
-            # Stack trace is nested, trim off just the contribution
-            # from the extra "eval" of $args due to the "catch" above.
-            #
-            set last [string last $tail $errInfo]
-            if {$last + [string length $tail] != [string length $errInfo]} {
-                # Very likely cannot happen
-                return -options $opts $msg
-            }
-            set errInfo [string range $errInfo 0 $last-1]
-            set tail "\"$cinfo\""
-            set last [string last $tail $errInfo]
-            if {$last < 0 || $last + [string length $tail] != [string length $errInfo]} {
-                return -code error -errorcode $errCode \
-                    -errorinfo $errInfo $msg
-            }
-            set errInfo [string range $errInfo 0 $last-1]
-            set tail "\n    invoked from within\n"
-            set last [string last $tail $errInfo]
-            if {$last + [string length $tail] == [string length $errInfo]} {
-                return -code error -errorcode $errCode \
-                    -errorinfo [string range $errInfo 0 $last-1] $msg
-            }
-            set tail "\n    while executing\n"
-            set last [string last $tail $errInfo]
-            if {$last + [string length $tail] == [string length $errInfo]} {
-                return -code error -errorcode $errCode \
-                    -errorinfo [string range $errInfo 0 $last-1] $msg
-            }
-            return -options $opts $msg
-            } else {
-                dict incr opts -level
-                return -options $opts $msg
-            }
-        }
-        }
-        #set isrepl [expr {[file tail [file rootname [info script]]] eq "repl"}]
-        set isrepl [punk::repl::codethread::is_running] ;#may not be reading though
-        if {$isrepl} {
-            #set ::tcl_interactive 1
-        }
-        if {$isrepl || (([info level] == 1) && (([info script] eq "" ) )
-            && ([info exists tcl_interactive] && $tcl_interactive))} {
-        if {![info exists auto_noexec]} {
-            set new [auto_execok $name]
-            if {$new ne ""} {
-                set redir ""
-                if {[namespace which -command console] eq ""} {
-                    set redir ">&@stdout <@stdin"
-                }
-
-
-                #windows experiment todo - use twapi and named pipes
-                #twapi::namedpipe_server {\\.\pipe\something}
-                #Then override tcl 'exec' and replace all stdout/stderr/stdin with our fake ones
-                #These can be stacked with shellfilter and operate as OS handles - which we can't do with fifo2 etc
-                #
-
-                if {[string first " " $new] > 0} {
-                    set c1 $name
-                } else {
-                    set c1 $new
-                }
-
-                # -- --- --- --- ---
-                set idlist_stdout [list]
-                set idlist_stderr [list]
-                #set shellrun::runout ""
-                #when using exec with >&@stdout (to ensure process is connected to console) - the output unfortunately doesn't go via the shellfilter stacks
-                #lappend idlist_stderr [shellfilter::stack::add stderr ansiwrap -settings {-colour {red bold}}]
-                #lappend idlist_stdout [shellfilter::stack::add stdout tee_to_var -action float -settings {-varname ::shellrun::runout}]
-
-                if {[punk::config::configure running auto_exec_mechanism] eq "experimental"} {
-                    #TODO - something cross-platform that allows us to maintain a separate console(s) with an additional set of IO channels to drive it
-                    #not a trivial task
-
-                    #This runs external executables in a context in which they are not attached to a terminal
-                    #VIM for example won't run, and various programs can't detect terminal dimensions etc and/or will default to ansi-free output
-                    #ctrl-c propagation also needs to be considered
-
-                    set teehandle punksh
-                    uplevel 1 [list ::catch \
-                        [list ::shellfilter::run [concat [list $new] [lrange $args 1 end]] -teehandle $teehandle -inbuffering line -outbuffering none ] \
-                        ::tcl::UnknownResult ::tcl::UnknownOptions]
-
-                    if {[string trim $::tcl::UnknownResult] ne "exitcode 0"} {
-                        dict set ::tcl::UnknownOptions -code error
-                        set ::tcl::UnknownResult "Non-zero exit code from command '$args' $::tcl::UnknownResult"
-                    } else {
-                        #no point returning "exitcode 0" if that's the only non-error return.
-                        #It is misleading. Better to return empty string.
-                        set ::tcl::UnknownResult ""
-                    }
-                } else {
-                    set repl_runid [punk::get_repl_runid]
-                    #set ::punk::last_run_display [list]
-
-                    set redir ">&@stdout <@stdin"
-                    uplevel 1 [list ::catch [concat exec $redir $new [lrange $args 1 end]] ::tcl::UnknownResult ::tcl::UnknownOptions]
-                    #we can't detect stdout/stderr output from the exec
-                    #for now emit an extra \n on stderr
-                    #todo - there is probably no way around this but to somehow exec in the context of a completely separate console
-                    #This is probably a tricky problem - especially to do cross-platform
-                    #
-                    # - use [dict get $::tcl::UnknownOptions -code]  (0|1)  exit
-                    if {[dict get $::tcl::UnknownOptions -code] == 0} {
-                        set c green
-                        set m "ok"
-                    } else {
-                        set c yellow
-                        set m "errorCode $::errorCode"
-                    }
-                    set chunklist [list]
-                    lappend chunklist [list "info" "[a $c]$m[a] " ]
-                    if {$repl_runid != 0} {
-                        tsv::lappend repl runchunks-$repl_runid {*}$chunklist
-                    }
-
-                }
-
-                foreach id $idlist_stdout {
-                    shellfilter::stack::remove stdout $id
-                }
-                foreach id $idlist_stderr {
-                    shellfilter::stack::remove stderr $id
-                }
-                # -- --- --- --- ---
-
-
-                #uplevel 1 [list ::catch \
-                #	[concat exec $redir $new [lrange $args 1 end]] \
-                #	::tcl::UnknownResult ::tcl::UnknownOptions]
-
-                #puts "===exec with redir:$redir $::tcl::UnknownResult =="
-                dict incr ::tcl::UnknownOptions -level
-                return -options $::tcl::UnknownOptions $::tcl::UnknownResult
-            }
-        }
-
-        if {$name eq "!!"} {
-            set newcmd [history event]
-        } elseif {[regexp {^!(.+)$} $name -> event]} {
-            set newcmd [history event $event]
-        } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $name -> old new]} {
-            set newcmd [history event -1]
-            catch {regsub -all -- $old $newcmd $new newcmd}
-        }
-        if {[info exists newcmd]} {
-            tclLog $newcmd
-            history change $newcmd 0
-            uplevel 1 [list ::catch $newcmd \
-                ::tcl::UnknownResult ::tcl::UnknownOptions]
-            dict incr ::tcl::UnknownOptions -level
-            return -options $::tcl::UnknownOptions $::tcl::UnknownResult
-        }
-
-        set ret [catch {set candidates [info commands $name*]} msg]
-        if {$name eq "::"} {
-            set name ""
-        }
-        if {$ret != 0} {
-            dict append opts -errorinfo \
-                "\n    (expanding command prefix \"$name\" in unknown)"
-            return -options $opts $msg
-        }
-        # Filter out bogus matches when $name contained
-        # a glob-special char [Bug 946952]
-        if {$name eq ""} {
-            # Handle empty $name separately due to strangeness
-            # in [string first] (See RFE 1243354)
-            set cmds $candidates
-        } else {
-            set cmds [list]
-            foreach x $candidates {
-                if {[string first $name $x] == 0} {
-                    lappend cmds $x
-                }
-            }
-        }
-
-        #punk - disable prefix match search
-        set default_cmd_search 0
-        if {$default_cmd_search} {
-            if {[llength $cmds] == 1} {
-                uplevel 1 [list ::catch [lreplace $args 0 0 [lindex $cmds 0]] \
-                    ::tcl::UnknownResult ::tcl::UnknownOptions]
-                dict incr ::tcl::UnknownOptions -level
-                return -options $::tcl::UnknownOptions $::tcl::UnknownResult
-            }
-            if {[llength $cmds]} {
-                return -code error "ambiguous command name \"$name\": [lsort $cmds]"
-            }
-        } else {
-            #punk hacked version - report matches but don't run
-            if {[llength $cmds]} {
-                return -code error "unknown command name \"$name\": possible match(es) [lsort $cmds]"
-            }
-
-        }
-
-
-        }
-        return -code error -errorcode [list TCL LOOKUP COMMAND $name] "invalid command name $name"
-    }
-
-    proc know {cond body} {
-        set existing [info body ::unknown]
-        #assuming we can't test on cond being present in existing unknown script - because it may be fairly simple and prone to false positives (?)
-        ##This means we can't have 2 different conds with same body if we test for body in unknown.
-        ##if {$body ni $existing} {
-        set scr [base64::encode -maxlen 0 $cond] ;#will only be decoded if the debug is triggered
-        #tcllib has some double-substitution going on.. base64 seems easiest and will not impact the speed of normal execution when debug off.
-
-        #tclint-disable-next-line
-        proc ::unknown {args} [string map [list @c@ $cond @b@ $body @scr@ $scr] {
-            #---------------------------------------
-            if {![catch {expr {@c@}} res] && $res} {
-                debug.punk.unknown  {HANDLED BY: punk unknown_handler ([llength $args]) args:'$args' "cond_script:'[punk::decodescript @scr@]'"  } 4
-                return [eval {@b@}]
-            } else {
-                debug.punk.unknown  {skipped: punk unknown_handler ([llength $args]) args:'$args' "cond_script:'[punk::decodescript @scr@]'"  } 4
-            }
-            #---------------------------------------
-        }]$existing
-        #}
-    }
-
-    proc know? {{len 2000}} {
-        puts [string range [info body ::unknown] 0 $len]
-    }
-    proc decodescript {b64} {
-        if {[ catch {
-            base64::decode $b64
-        } scr]} {
-            return "<couldn't decode cond script>"
-        } else {
-            return "($scr)"
-        }
-    }
-
-    # ---------------------------
-    # commands that should be aliased in safe interps that need to use punk repl
-    #
-    proc get_repl_runid {} {
-        if {[interp issafe]} {
-            if {[info commands ::tsv::exists] eq ""} {
-                puts stderr "punk::get_repl_runid cannot operate directly in safe interp - install the appropriate punk aliases"
-                error "punk::get_repl_runid punk repl aliases not installed"
-            }
-            #if safe interp got here - there must presumably be a direct set of aliases on tsv::* commands
-        }
-        if {[tsv::exists repl runid]} {
-            return [tsv::get repl runid]
-        } else {
-            return 0
-        }
-    }
-    #ensure we don't get into loop in unknown when in safe interp - which won't have tsv
-    proc set_repl_last_unknown {args} {
-        if {[interp issafe]} {
-            if {[info commands ::tsv::set] eq ""} {
-                puts stderr "punk::set_repl_last_unknown cannot operate directly in safe interp - install an alias to tsv::set repl last_unknown"
-                return
-            }
-            #tsv::* somehow working - possibly custom aliases for tsv functionality ? review
-        }
-        if {[info commands ::tsv::set] eq ""} {
-            puts stderr "set_repl_last_unknown - tsv unavailable!"
-            return
-        }
-        tsv::set repl last_unknown {*}$args
-    }
-    # ---------------------------
-
-    #----------------
-    #for var="val {a b c}"
-    #proc ::punk::val {{v {}}} {tailcall lindex $v}
-    #proc ::punk::val {{v {}}} {return $v}  ;#2023 - approx 2x faster than the tailcall lindex version
-
-    proc ::punk::val [list [list v [purelist]]]  {return $v}
-    #----------------
-
-    proc configure_unknown {} {
-        #-----------------------------
-        #these are critical e.g core behaviour or important for repl displaying output correctly
-
-
-        #can't use know - because we don't want to return before original unknown body is called.
-        proc ::unknown {args} [string cat {
-            #set ::punk::last_run_display [list]
-            #set ::repl::last_unknown [lindex $args 0] ;#jn
-            #tsv::set repl last_unknown [lindex $args 0] ;#REVIEW
-            punk::set_repl_last_unknown [lindex $args 0]
-        }][info body ::unknown]
-
-
-        #handle process return dict of form {exitcode num etc blah}
-        #ie when the return result as a whole is treated as a command
-        #exitcode must be the first key
-        know {[lindex $args 0 0] eq "exitcode"} {
-        uplevel 1 [list exitcode {*}[lrange [lindex $args 0] 1 end]]
-        }
-
-
-        #-----------------------------
-        #
-        # potentially can be disabled by config(?) - but then scripts not able to use all repl features..
-
-        #todo - repl output info that it was evaluated as an expression
-        #know {[expr $args] || 1} {expr $args}
-        know {[expr $args] || 1} {tailcall expr $args}
-
-        #it is significantly faster to call a proc such as punk::lib::range like this than to inline it in the unknown proc
-        #punk::lib::range is defined as a wrapper to lseq if it is available (8.7+)
-        know {[regexp {^([+-]*[0-9_]+)\.\.([+-]*[0-9_]+)$} [lindex $args 0 0] -> from to]} {punk::lib::range $from $to}
-
-
-        #NOTE:
-        #we don't allow setting namespace qualified vars in the lhs assignment pattern.
-        #The principle is that we shouldn't be setting vars outside of the immediate calling scope.
-        #(It would also be difficult and error-prone and generally make the pipelines less re-usable and reliable)
-        #Therefore  ::nswhatever::blah=  x    is the  pipeline: blah= x  - where the corresponding command, if any is first resolved in ::nswhatever
-        #We will require that the namespace already exists - which is consistent with if the command were to be run without unknown
-        proc ::punk::_unknown_assign_dispatch {matchedon pattern equalsrhs args} {
-            set tail [lassign $args hd]
-            #puts "-> _unknown_assign_dispatch '$partzerozero' pattern:'$pattern' equalsrhs:'$equalsrhs' args:'$args' argshd:'$hd' argstail:'$tail'"
-            if {$hd ne $matchedon} {
-                if {[llength $tail]} {
-                    error "unknown_assign_dispatch: pipeline with args unexpanded. Try {*}\$pipeline $tail"
-                }
-                #regexp $punk::re_assign $hd _ pattern equalsrhs
-                #we assume the whole pipeline has been provided as the head
-                #regexp {^([^\t\r\n=]*)\=([^ \t\r\n]*)(.*)} $hd _ pattern equalsrhs tail
-                regexp {^([^\t\r\n=]*)\=([^\r\n]*)} $hd _ pattern fullrhs
-                lassign [punk::pipe::lib::_rhs_tail_split $fullrhs] equalsrhs tail
-            }
-            #NOTE: - it doesn't make sense to call 'namespace' qualifiers or 'namespace tail' on a compound hd such as v,::etc= blah
-            # we only look at leftmost namespace-like thing and need to take account of the pattern syntax
-            # e.g for ::etc,'::x'=
-            # the ns is :: and the tail is etc,'::x'=
-            # (Tcl's namespace qualifiers/tail won't help here)
-            if {[string match ::* $hd]} {
-                set patterns [punk::pipe::lib::_split_patterns_memoized $hd]
-                #get a pair-list something like: {::x /0} {etc {}}
-                set ns [namespace qualifiers [lindex $patterns 0 0]]
-                set nslen [string length $ns]
-                set patterntail [string range $ns $nslen end]
-            } else {
-                set ns ""
-                set patterntail $pattern
-            }
-            if {[string length $ns] && ![namespace exists $ns]} {
-                error "unknown_assign_dispatch: namespace '$ns' not found. (Note that pipeline lhs variables cannot be namespaced)"
-            } else {
-                set nscaller [uplevel 1 [list ::namespace current]]
-                #jmn
-                set rhsmapped [punk::pipe::lib::pipecmd_namemapping $equalsrhs]
-                set commands [uplevel 1 [list ::info commands $pattern=$rhsmapped]] ;#uplevel - or else we are checking from perspective of this namespace ::punk
-                #we must check for exact match of the command in the list - because command could have glob chars.
-                if {"$pattern=$rhsmapped" in $commands} {
-                    puts stderr "unknown_assign_dispatch>>  '$pattern=$equalsrhs'  $commands nscaller: '$nscaller'"
-                    #we call the namespaced function - we don't evaluate it *in* the namespace.
-                    #REVIEW
-                    #warn for now...?
-                    #tailcall $pattern=$equalsrhs {*}$args
-                    tailcall $pattern=$rhsmapped {*}$tail
-                }
-            }
-            #puts "--->nscurrent [uplevel 1 [list ::namespace current]]"
-            #ignore the namespace..
-            #We could interpret the fact that the nonexistant pipe was called with a namespace to indicate that's where the pipecommand should be created..
-            #But.. we would need to ensure 1st (compiling) invocation runs the same way as subsequent invocations.
-            #namespace evaling match_assign here probably wouldn't accomplish that and may create surprises with regards to where lhs vars(if any) are created
-            tailcall ::punk::match_assign $patterntail $equalsrhs {*}$tail
-            #return [uplevel 1 [list ::punk::match_assign $varspecs $rhs $tail]]
-        }
-        #variable re_assign          {^([^\r\n=\{]*)=(.*)}
-            #characters directly following = need to be assigned to the var even if they are escaped whitespace (e.g \t \r \n)
-            #unescaped whitespace causes the remaining elements to be part of the tail -ie are appended to the var as a list
-            #e.g x=a\nb     c
-            #x will be assigned the list {a\nb c}  ie the spaces between b & c are not maintained
-            #
-        #know {[regexp {^([^\t\r\n=]*)\=([^ \t\r\n]*)} [lindex $args 0] matchedon pattern equalsrhs]} {tailcall ::punk::_unknown_assign_dispatch $matchedon $pattern $equalsrhs {*}$args}
-        #know {[regexp {^{([^\t\r\n=]*)\=([^ \t\r\n]*)}} [lindex $args 0] matchedon pattern equalsrhs]} {tailcall ::punk::_unknown_assign_dispatch $matchedon $pattern $equalsrhs {*}$args}
-
-
-
-        proc ::punk::_unknown_compare {val1 val2 args} {
-            if {![string length [string trim $val2]]} {
-                if {[llength $args] > 1} {
-                    #error "Extra args after comparison operator ==. usage e.g : \$var1==\$var2   or \$var1==\$var2 + 2"
-                    set val2 [string cat {*}[lrange $args 1 end]]
-                    return [expr {$val1 eq $val2}]
-                }
-                return $val1
-            } elseif {[llength $args] == 1} {
-                #simple comparison
-                if {[string is digit -strict $val1$val2]} {
-                    return [expr {$val1 == $val2}]
-                } else {
-                    return [string equal $val1 $val2]
-                }
-            } elseif {![catch {expr $val2 {*}[lrange $args 1 end]} evaluated]} {
-                if {[string is digit -strict $val1$evaluated]} {
-                    return [expr {$val1 == $evaluated}]
-                } else {
-                    return [expr {$val1 eq $evaluated}]
-                }
-            } else {
-                set evaluated [uplevel 1 [list {*}$val2 {*}[lrange $args 1 end]]]
-                if {[string is digit -strict $val1$evaluated]} {
-                    return [expr {$val1 == $evaluated}]
-                } else {
-                    return [expr {$val1 eq $evaluated}]
-                }
-            }
-        }
-        #ensure == is after = in know sequence
-        #.* on left is pretty broad - todo: make it a little more specific to avoid unexpected interactions
-        know {[regexp {(.*)==(.*)} [lindex $args 0] _ val1 val2]} {tailcall ::punk::_unknown_compare $val1 $val2 {*}$args}
-        #.= must come after =  here to ensure it comes before = in the 'unknown' proc
-        #set punk::re_dot_assign {([^=]*)\.=(.*)}
-        #know {[regexp $punk::re_dot_assign [lindex $args 0 0] _ varspecs rhs]} {
-        #    set tail [expr {([lindex $args 0] eq [lindex $args 0 0]) ? [lrange $args 1 end] : [concat [lrange [lindex $args 0] 1 end] [lrange $args 1 end] ] }]
-        #    tailcall ::punk::match_exec $varspecs $rhs {*}$tail
-        #    #return [uplevel 1 [list ::punk::match_exec $varspecs $rhs {*}$tail]]
-        #    }
-        #
-
-
-
-        proc ::punk::_unknown_dot_assign_dispatch {partzerozero pattern equalsrhs args} {
-            #puts stderr ". unknown dispatch $partzerozero"
-            set argstail [lassign $args hd]
-
-            #this equates to auto-flattening the head.. which seems like a bad idea, the structure was there for a reason.
-            #we should require explicit {*} expansion if the intention is for the args to be joined in at that level.
-            #expr {($hd eq $partzerozero) ? [set tail $argstail] : [set tail [concat [lrange $hd 1 end] $argstail ]] }
-
-            if {$hd ne $partzerozero} {
-                if {[llength $argstail]} {
-                    error "unknown_dot_assign_dispatch: pipeline with args unexpanded. Try {*}\$pipeline $argstail"
-                }
-                #regexp $punk::re_assign $hd _ pattern equalsrhs
-                #we assume the whole pipeline has been provided as the head
-                #regexp {^([^ \t\r\n=\{]*)\.=([^ \t\r\n]*)(.*)} $hd _ pattern equalsrhs argstail
-                #regexp {^([^ \t\r\n=\{]*)\.=([^ \t\r\n]*)(.*)} $hd _ pattern equalsrhs argstail
-
-                regexp {^([^ \t\r\n=\{]*)\.=([^\r\n]*)} $hd _ pattern  fullrhs
-                lassign [punk::pipe::lib::_rhs_tail_split $fullrhs] equalsrhs argstail
-            }
-            #tailcall ::punk::match_assign $pattern $equalsrhs {*}$argstail
-
-
-            return [uplevel 1 [list ::punk::pipeline .= $pattern $equalsrhs {*}$argstail]]
-
-        }
-
-        #
-        know {[regexp {^([^\t\r\n=]*)\=([^\r\n]*)} [lindex $args 0] matchedon pattern equalsrhs]} {tailcall ::punk::_unknown_assign_dispatch $matchedon $pattern $equalsrhs {*}$args}
-        know {[regexp {^{([^\t\r\n=]*)\=([^\r\n]*)}} [lindex $args 0] matchedon pattern equalsrhs]} {tailcall ::punk::_unknown_assign_dispatch $matchedon $pattern $equalsrhs {*}$args}
-
-        #variable re_dot_assign      {^([^ \t\r\n=\{]*)\.=(.*)}
-        #know {[regexp {^([^ \t\r\n=\{]*)\.=(.*)} [lindex $args 0 0] partzerozero varspecs rhs]} {tailcall punk::_unknown_dot_assign_dispatch $partzerozero $varspecs $rhs {*}$args}
-        #know {[regexp {^([^ \t\r\n=\{]*)\.=(.*)} [lindex $args 0] partzerozero varspecs rhs]} {tailcall punk::_unknown_dot_assign_dispatch $partzerozero $varspecs $rhs {*}$args}
-        #know {[regexp {^([^\t\r\n=\{]*)\.=(.*)} [lindex $args 0] partzerozero varspecs rhs]} {tailcall punk::_unknown_dot_assign_dispatch $partzerozero $varspecs $rhs {*}$args}
-        #know {[regexp {^([^\t\r\n=]*)\.=(.*)} [lindex $args 0] partzerozero varspecs rhs]} {tailcall punk::_unknown_dot_assign_dispatch $partzerozero $varspecs $rhs {*}$args}
-        know {[regexp {^([^=]*)\.=(.*)} [lindex $args 0] partzerozero varspecs rhs]} {tailcall punk::_unknown_dot_assign_dispatch $partzerozero $varspecs $rhs {*}$args}
-
-        #add escaping backslashes to a value
-        #matching odd keys in dicts using pipeline syntax can be tricky - as
-        #e.g
-        #set ktest {a"b}
-        #@@[escv $ktest].= list a"b val
-        #without escv:
-        #@@"a\\"b".= list a"b val
-        #with more backslashes in keys the escv use becomes more apparent:
-        #set ktest {\\x}
-        #@@[escv $ktest].= list $ktest val
-        #without escv we would need:
-        #@@\\\\\\\\x.= list $ktest val
-        proc escv {v} {
-            #https://stackoverflow.com/questions/11135090/is-there-any-tcl-function-to-add-escape-character-automatically
-            #thanks to DKF
-            regsub -all {\W} $v {\\&}
-        }
-        interp alias {} escv {} punk::escv
-        #review
-        #set v "\u2767"
-        #<char>
-        #escv $v
-        #\<char>
-        #the
-
-
-        #know {[regexp $punk::re_dot_assign [lindex $args 0 0] partzerozero varspecs rhs]} {
-        #    set argstail [lassign $args hd]
-        #    #set tail [expr {($hd eq $partzerozero) ? $argstail : [concat [lrange $hd 1 end] $argstail ] }] ;#!WRONG. expr will convert some numbers to scientific notation - this is premature/undesirable!
-        #    #avoid using the return from expr and it works:
-        #    expr {($hd eq $partzerozero) ? [set tail $argstail] : [set tail [concat [lrange $hd 1 end] $argstail ]] }
-        #
-        #    tailcall ::punk::match_exec $varspecs $rhs {*}$tail
-        #    #return [uplevel 1 [list ::punk::match_exec $varspecs $rhs {*}$tail]]
-        #}
-
-    }
-    configure_unknown
-    #if client redefines 'unknown' after package require punk,  they must call punk::configure_unknown afterwards.
-    #
-
-    #main Pipe initiator function - needed especially if 'unknown' not configured to interpret x.= x=  etc
-    #Should theoretically be slightly faster.. but pipelines are relatively slow until we can get pipeline compiling and optimisation.
-    proc % {args} {
-        set arglist [lassign $args assign] ;#tail, head
-        if {$assign eq ".="} {
-            tailcall {*}[list ::punk::pipeline .= "" "" {*}$arglist]
-        } elseif {$assign eq "="} {
-            tailcall {*}[list ::punk::pipeline = "" "" {*}$arglist]
-        }
-
-        set is_script [punk::pipe::lib::arg_is_script_shaped $assign]
-
-        if {!$is_script && [string index $assign end] eq "="} {
-            #set  re_dotequals       {^([^ \t\r\n=\{]*)\.=$}
-            #set dumbeditor {\}}
-            #set  re_equals          {^([^ \t\r\n=\{]*)=$}
-            #set dumbeditor {\}}
-            if {[regexp {^([^ \t\r\n=\{]*)\.=$} $assign _ returnvarspecs]} {
-                set cmdlist [list ::punk::pipeline .= $returnvarspecs "" {*}$arglist]
-            } elseif {[regexp {^([^ \t\r\n=\{]*)=$} $assign _ returnvarspecs]} {
-                set cmdlist [list ::punk::pipeline = $returnvarspecs "" {*}$arglist]
-            } else {
-                error "pipesyntax punk::% unable to interpret pipeline '$args'" "% $args" [list pipesyntax unable_to_interpret]
-            }
-        } else {
-            if {$is_script} {
-                set cmdlist [list ::punk::pipeline "script" "" "" {*}$args]
-            } else {
-                set cmdlist [list ::punk::pipeline ".=" "" "" {*}$args]
-            }
-        }
-        tailcall {*}$cmdlist
-
-
-        #result-based mismatch detection can probably never work nicely..
-        #we need out-of-band method to detect mismatch. Otherwise we can't match on mismatch results!
-        #
-        set result [uplevel 1 $cmdlist]
-        #pipeline result not guaranteed to be a proper list so we can't use list methods to directly look for 'binding mismatch'
-        #.. but if we use certain string methods - we shimmer the case where the main result is a list
-        #string match doesn't seem to change the rep.. though it does generate a string rep.
-        #puts >>1>[rep $result]
-        if {[catch {lrange $result 0 1} first2wordsorless]} {
-            #if we can't get as a list then it definitely isn't the semi-structured 'binding mismatch'
-            return $result
-        } else {
-            if {$first2wordsorless eq {binding mismatch}} {
-                error $result
-            } else {
-                #puts >>2>[rep $result]
-                return $result
-            }
-        }
-    }
-
-    proc ispipematch {args} {
-        expr {[lindex [uplevel 1 [list pipematch {*}$args]] 0] eq "ok"}
-    }
-
-    #pipe initiator which will never raise an error *except for pipesyntax* , but always returns {ok {result something}} or  {error {mismatch something}}  or, for tcl errors {error {reason something}}
-    proc pipematch {args} {
-        #debug.punk.pipe {pipematch level [info level] levelinfo [info level 0]} 2
-        variable re_dot_assign
-        variable re_assign
-
-        set arglist [lassign $args assign]
-        if {$assign eq ".="} {
-            set cmdlist [list ::punk::pipeline .= "" "" {*}$arglist]
-        } elseif {$assign eq "="} {
-            set cmdlist [list ::punk::pipeline = "" "" {*}$arglist]
-        } elseif {![punk::pipe::lib::arg_is_script_shaped $assign] && [string index $assign end] eq "="} {
-            #set  re_dotequals       {^([^ \t\r\n=\{]*)\.=$}
-            # set dumbeditor {\}}
-            #set  re_equals          {^([^ \t\r\n=\{]*)=$}
-            # set dumbeditor {\}}
-            if {[regexp {^([^ \t\r\n=]*)\.=.*} $assign _ returnvarspecs]} {
-                set cmdlist [list ::punk::pipeline .= $returnvarspecs "" {*}$arglist]
-            } elseif {[regexp {^([^ \t\r\n=]*)=.*} $assign _ returnvarspecs]} {
-                set cmdlist [list $assign {*}$arglist]
-                #set cmdlist [list ::punk::pipeline = $returnvarspecs "" {*}$arglist]
-            } else {
-                error "pipesyntax punk::pipematch unable to interpret pipeline '$args'" "pipematch $args" [pipesyntax unable_to_interpret]
-            }
-        } else {
-            set cmdlist $args
-            #script?
-            #set cmdlist [list ::punk::pipeline .= "" "" {*}$args]
-        }
-
-        if {[catch {uplevel 1 $cmdlist} result erroptions]} {
-            #puts stderr "pipematch erroptions:$erroptions"
-            #debug.punk.pipe {pipematch error $result} 4
-            set ecode [dict get $erroptions -errorcode]
-            switch -- [lindex $ecode 0] {
-                binding {
-                    if {[lindex $ecode 1] eq "mismatch"} {
-                        #error {reason xxx}  should only be returned for underlying tcl errors. error {someotherkey xxx}  for structured errors such as a binding mismatch
-                        #return [dict create error [dict create mismatch $result]]
-                        #puts stderr "pipematch converting error to {error {mismatch <result>}}"
-                        return [list error [list mismatch $result]]
-                    }
-                }
-                pipesyntax {
-                    #error $result
-                    return -options $erroptions $result
-                }
-                casematch {
-                    return $result
-                }
-            }
-            #return [dict create error [dict create reason $result]]
-            return [list error [list reason $result]]
-        } else {
-            return [list ok [list result $result]]
-            #debug.punk.pipe {pipematch result $result } 4
-            #return [dict create ok [dict create result $result]]
-        }
-    }
-
-    proc pipenomatchvar {varname args} {
-        if {[string first = $varname] >=0} {
-            #first word "pipesyntax" is looked for by pipecase
-            error "pipesyntax pipenomatch expects a simple varname as first argument" "pipenomatchvar $varname $args" [list pipesyntax expected_simple_varname]
-        }
-        #debug.punk.pipe {pipematch level [info level] levelinfo [info level 0]} 2
-
-        set assign [lindex $args 0]
-        set arglist [lrange $args 1 end]
-        if {[string first = $assign] >= 0} {
-            variable re_dot_assign
-            variable re_assign
-            #what if we get passed a script block containing = ??  e.g {error x=a}
-            if {$assign eq ".="} {
-                set cmdlist [list ::punk::pipeline .= "" "" {*}$arglist]
-            } elseif {$assign eq "="} {
-                set cmdlist [list ::punk::pipeline = "" "" {*}$arglist]
-            } elseif {[regexp $re_dot_assign $assign _ returnvarspecs rhs]} {
-                set cmdlist [list ::punk::pipeline .= $returnvarspecs $rhs {*}$arglist]
-            } elseif {[regexp $re_assign $assign _ returnvarspecs rhs]} {
-                set cmdlist [list ::punk::pipeline = $returnvarspecs $rhs {*}$arglist]
-            } else {
-                debug.punk.pipe {[a+ yellow bold] Unexpected arg following pipenomatchvar variable  [a]} 0
-                set cmdlist $args
-                #return [dict create error [dict create reason [dict create pipematch bad_first_word value $assign pipeline [list pipematch $assign {*}$args]]]]
-            }
-        } else {
-                set cmdlist $args
-        }
-
-        upvar 1 $varname nomatchvar
-        if {[catch {uplevel 1 $cmdlist} result erroptions]} {
-            set ecode [dict get $erroptions -errorcode]
-            debug.punk.pipe {[a+ yellow bold]pipematchnomatch error $result[a]} 3
-            if {[lindex $ecode 0] eq "pipesyntax"} {
-                set errordict [dict create error [dict create pipesyntax $result]]
-                set nomatchvar $errordict
-                return -options $erroptions $result
-            }
-            if {[lrange $ecode 0 1] eq "binding mismatch"} {
-                #error {reason xxx}  should only be returned for underlying tcl errors. error {someotherkey xxx}  for structured errors such as a binding mismatch
-                set errordict [dict create error [dict create mismatch $result]]
-                set nomatchvar $errordict
-                return -options $erroptions $result
-            }
-            set errordict [dict create error [dict create reason $result]]
-            set nomatchvar $errordict
-            #re-raise the error for pipeswitch to deal with
-            return -options $erroptions $result
-        } else {
-            debug.punk.pipe {pipematchnomatch result $result } 4
-            set nomatchvar ""
-            #uplevel 1 [list set $varname ""]
-            #return raw result only - to pass through to pipeswitch
-            return $result
-            #return [dict create ok [dict create result $result]]
-        }
-    }
-
-    #should only raise an error for pipe syntax errors - all other errors should be wrapped
-    proc pipecase {args} {
-        #debug.punk.pipe {pipecase level [info level] levelinfo [info level 0]} 9
-        set arglist [lassign $args assign]
-        if {$assign eq ".="} {
-            set cmdlist [list ::punk::pipeline .= "" "" {*}$arglist]
-        } elseif {$assign eq "="} {
-            #set cmdlist [list ::punk::pipeline = "" "" {*}$arglist]
-            set cmdlist [list ::= {*}$arglist]
-        } elseif {![punk::pipe::lib::arg_is_script_shaped $assign] && [string first "=" $assign] >= 0} {
-            #set  re_dotequals       {^([^ \t\r\n=\{]*)\.=$}
-            #set dumbeditor {\}}
-            #set  re_equals          {^([^ \t\r\n=\{]*)=$}
-            #set dumbeditor {\}}
-
-            if {[regexp {^([^ \t\r\n=]*)\.=.*} $assign _ returnvarspecs]} {
-                set cmdlist [list ::punk::pipeline .= $returnvarspecs "" {*}$arglist]
-            } elseif {[regexp {^([^ \t\r\n=]*)=.*} $assign _ returnvarspecs]} {
-                set cmdlist [list $assign {*}$arglist]
-                #set cmdlist [list ::punk::pipeline = $returnvarspecs "" {*}$arglist]
-            } else {
-                error "pipesyntax pipecase unable to interpret pipeline '$args'"
-            }
-            #todo - account for insertion-specs  e.g x=*  x.=/0*
-        } else {
-            #script?
-            set cmdlist [list ::punk::pipeline .= "" "" {*}$args]
-        }
-
-
-        if {[catch {uplevel 1 [list ::if 1 $cmdlist]} result erroptions]} {
-            #puts stderr "====>>> result: $result erroptions"
-            set ecode [dict get $erroptions -errorcode]
-            switch -- [lindex $ecode 0] {
-                pipesyntax {
-                    #error $result
-                    return -options $erroptions $result
-                }
-                casenomatch {
-                    return -options $erroptions $result
-                }
-                binding {
-                    if {[lindex $ecode 1] eq "mismatch"} {
-                        #error {reason xxx}  should only be returned for underlying tcl errors. error {someotherkey xxx}  for structured errors such as a binding mismatch
-                        #return [dict create error [dict create mismatch $result]]
-                        #
-                        #NOTE: casemismatch is part of the api for pipecase. It is a casemismatch rather than an error - because for a pipecase - a casemismatch is an expected event (many casemismatches - one match)
-                        return [dict create casemismatch $result]
-                    }
-                }
-            }
-
-            #we can't always treat $result as a list - may be an error string which can't be represented as a list, and there may be no useful errorCode
-            #todo - use errorCode instead
-            if {[catch {lindex $result 0} word1]} {
-                #tailcall error $result
-                return -options $erroptions $result
-            } else {
-                switch -- $word1 {
-                    switcherror - funerror {
-                        error $result "pipecase [lsearch -all -inline $args "*="]"
-                    }
-                    resultswitcherror - resultfunerror {
-                        #recast the error as a result without @@ok wrapping
-                        #use the tailcall return to stop processing other cases in the switch!
-                        tailcall return [dict create error $result]
-                    }
-                    ignore {
-                        #suppress error, but use normal return
-                        return [dict create error [dict create suppressed $result]]
-                    }
-                    default {
-                        #normal tcl error
-                        #return [dict create error [dict create reason $result]]
-                        tailcall error $result "pipecase $args" [list caseerror]
-                    }
-                }
-            }
-        } else {
-            tailcall return  -errorcode [list casematch] [dict create ok [dict create result $result]]
-        }
-
-    }
-
-    #note that pipeswitch deliberately runs in callers scope to have direct access to variables - it is akin to a control structure.
-    #It also - somewhat unusually accepts args - which we provide as 'switchargs'
-    #This is unorthodox/risky in that it will clobber any existing var of that name in callers scope.
-    #Solve using documentation.. consider raising error if 'switchargs' already exists, which would require user to unset switchargs in some circumstances.
-    proc pipeswitch {pipescript args} {
-        #set nextargs $args
-        #unset args
-        #upvar args upargs
-        #set upargs $nextargs
-        upvar switchargs switchargs
-        set switchargs $args
-        uplevel 1 [::list ::if 1 $pipescript]
-    }
-    #static-closure version - because we shouldn't be writing back to calling context vars directly
-    #Tcl doesn't (2023) have mutable closures - but for functional pipeline composition - we probably don't want that anyway!
-    #pipeswitchc is preferable to pipeswitch in that we can access context without risk of affecting it, but is less performant. (particularly in global scope.. but that probably isn't an important usecase)
-    proc pipeswitchc {pipescript args} {
-        set binding {}
-        if {[info level] == 1} {
-            #up 1 is global
-            set get_vars [list info vars]
-        } else {
-            set get_vars [list info locals]
-        }
-        set vars [uplevel 1 {*}$get_vars]
-        set posn [lsearch $vars switchargs]
-        set vars [lreplace $vars $posn $posn]
-        foreach v $vars {
-            upvar 1 $v var
-            if {(![array exists var]) && [info exists var]} {
-                lappend binding [list $v $var] ;#values captured as defaults for apply args.
-            }
-        }
-        lappend binding [list switchargs $args]
-        apply [list $binding $pipescript [uplevel 1 {::namespace current}]]
-    }
-
-    proc pipedata {data args} {
-        #puts stderr "'$args'"
-        set r $data
-        for {set i 0} {$i < [llength $args]} {incr i} {
-            set e [lindex $args $i]
-            #review: string is list is as slow as catch {llength $e} - and also affects ::errorInfo unlike other string is commands. bug/enhancement report?
-            if {![string is list $e]} {
-                    #not a list - assume script and run anyway
-                    set r [apply [list {data} $e] $r]
-            } else {
-                if {[llength $e] == 1} {
-                    switch -- $e {
-                        > {
-                            #output to calling context. only pipedata return value and '> varname' should affect caller.
-                            incr i
-                            uplevel 1 [list set [lindex $args $i] $r]
-                        }
-                        % - pipematch - ispipematch {
-                            incr i
-                            set e2 [lindex $args $i]
-                            #set body [list $e {*}$e2]
-                            #append body { $data}
-
-                            set body [list $e {*}$e2]
-                            append body { {*}$data}
-
-
-                            set applylist [list {data}  $body]
-                            #puts stderr $applylist
-                            set r [apply $applylist $r]
-                        }
-                        pipeswitch - pipeswitchc {
-                            #pipeswitch takes a script not a list.
-                            incr i
-                            set e2 [lindex $args $i]
-                            set body [list $e $e2]
-                            #pipeswitch takes 'args' - so expand $data when in pipedata context
-                            append body { {*}$data}
-                            #use applylist instead of uplevel when in pipedata context!
-                            #can use either switchdata/data but not vars in calling context of 'pipedata' command.
-                            #this is consistent with pipeswitch running in a % / .= pipeline which can only access vars in immediate calling context.
-                            set applylist [list {data} $body]
-                            #puts stderr $applylist
-                            set r [apply $applylist $r]
-                        }
-                        default {
-                            #puts "other single arg: [list $e $r]"
-                            append e { $data}
-                            set r [apply [list {data} $e] $r]
-                        }
-                    }
-                } elseif {[llength $e] == 0} {
-                    #do nothing - pass data through
-                    #leave r as is.
-                } else {
-                    set r [apply [list {data} $e] $r]
-                }
-            }
-        }
-        return $r
-    }
-
-
-    proc scriptlibpath {{shortname {}} args} {
-        set scriptlib [punk::config::configure running scriptlib]
-        if {[string match "lib::*" $shortname]} {
-            set relpath [string map [list "lib::" "" "::" "/"] $shortname]
-            set relpath [string trimleft $relpath "/"]
-            set fullpath $scriptlib/$relpath
-        } else {
-            set shortname [string trimleft $shortname "/"]
-            set fullpath $scriptlib/$shortname
-        }
-        return $fullpath
-    }
-
-
-    #useful for aliases e.g treemore -> xmore tree
-    proc xmore {args} {
-        if {[llength $args]} {
-            #more is older and not as featureful as less
-            #more importantly - at least some implementations (msys on windows) can skip output lines - unknown as to why
-            #uplevel #0 [list {*}$args | more]
-            uplevel #0 [list {*}$args | less -X] ;#-X to avoid use of alternate-screen
-        } else {
-            error "usage: punk::xmore args where args are run as {*}\$args | more"
-        }
-    }
-
-
-    #environment path as list
-    #
-    #return *appendable* pipeline - i.e no args via <|
-    proc path_list_pipe {{glob *}} {
-        if {$::tcl_platform(platform) eq "windows"} {
-            set sep ";"
-        } else {
-            # : ok for linux/bsd ... mac?
-            set sep ":"
-        }
-        set cond [string map [list <glob> $glob] {expr {[string length $item] && [string match <glob> $item]}}]
-        #env members such as ''path' not case sensitive on windows - but are on some other platforms (at least FreeBSD)
-        return [list .= set ::env(PATH) |> .=>2 string trimright $sep |> .=>1 split $sep |> list_filter_cond $cond ]
-    }
-    proc path_list {{glob *}} {
-        set pipe [punk::path_list_pipe $glob]
-        {*}$pipe
-    }
-    proc path {{glob *}} {
-        set pipe [punk::path_list_pipe $glob]
-        {*}$pipe |> list_as_lines
-    }
-
-    #-------------------------------------------------------------------
-    #sh 'test' equivalent - to be used with exitcode of process
-    #
-
-    #single evaluation to get exitcode
-    proc sh_test {args} {
-        set a1 [lindex $args 0]
-        if {$a1 in [list -b -c -d -e -f -h -L -s -S -x -w]} {
-            set a2 [lindex $args 1]
-            if {![catch {
-                set attrinfo [file attributes $a2]
-            } errM]} {
-                if {[dict exists $attrinfo -vfs] && [dict get $attrinfo -vfs] == 1} {
-                    puts stderr "WARNING: external 'test' being called on vfs path. External command will probably not have access to the vfs. Use 'TEST' for Tcl view of vfs mounted filesystems."
-                }
-            }
-        }
-        tailcall run test {*}$args
-    }
-
-    #whether v is an integer from perspective of unix test command.
-    #can be be bigger than a tcl int or wide ie bignum - but must be whole number
-    #test doesn't handle 1.0 - so we shouldn't auto-convert
-    proc is_sh_test_integer {v} {
-        if {[string first . $v] >=0 || [string first e $v] >= 0} {
-            return false
-        }
-        #if it is double but not sci notation and has no dots - then we can treat as a large integer for 'test'
-        if {[string is double -strict $v]} {
-            return true
-        } else {
-            return false
-        }
-    }
-    #can use double-evaluation to get true/false
-    #faster tcl equivalents where possible to accuratley provide, and fallthrough to sh for compatibility of unimplemented
-    #The problem with fallthrough is that sh/bash etc have a different view of existant files
-    #e.g unix files such as /dev/null vs windows devices such as CON,PRN
-    #e.g COM1 is mapped as /dev/ttyS1 in wsl (?)
-    #Note also - tcl can have vfs mounted file which will appear as a directory to Tcl - but a file to external commands!
-    #We will stick with the Tcl view of the file system.
-    #User can use their own direct calls to external utils if
-    #Note we can't support $? directly in Tcl - script would have to test ${?} or use [set ?]
-    proc sh_TEST {args} {
-        upvar ? lasterr
-        set lasterr 0
-        set a1 [lindex $args 0]
-        set a2 [lindex $args 1]
-        set a3 [lindex $args 2]
-        set fileops [list -b -c -d -e -f -h -L -s -S -x -w]
-        if {[llength $args] == 1} {
-            #equivalent of -n STRING
-            set boolresult [expr {[string length $a1] != 0}]
-        } elseif {[llength $args] == 2} {
-            if {$a1 in $fileops} {
-                if {$::tcl_platform(platform) eq "windows"} {
-                    #e.g trailing dot or trailing space
-                    if {[punk::winpath::illegalname_test $a2]} {
-                        #protect with \\?\ to stop windows api from parsing
-                        #will do nothing if already prefixed with \\?\
-
-                        set a2 [punk::winpath::illegalname_fix $a2]
-                    }
-                }
-            }
-            switch  -- $a1 {
-                -b {
-                    #dubious utility on FreeBSD, windows?
-                    #FreeBSD has dropped support for block devices - stating 'No serious applications rely on block devices'
-                    #Linux apparently uses them though
-                    if{[file exists $a2]} {
-                        set boolresult [expr {[file type $a2] eq "blockSpecial"}]
-                    } else {
-                        set boolresult false
-                    }
-                }
-                -c {
-                    #e.g on windows CON,NUL
-                    if {[file exists $a2]} {
-                        set boolresult [expr {[file type $a2] eq "characterSpecial"}]
-                    } else {
-                        set boolresult false
-                    }
-                }
-                -d {
-                    set boolresult [file isdirectory $a2]
-                }
-                -e {
-                    set boolresult [file exists $a2]
-                }
-                -f {
-                    #e.g on windows CON,NUL
-                    if {[file exists $a2]} {
-                        set boolresult [expr {[file type $a2] eq "file"}]
-                    } else {
-                        set boolresult false
-                    }
-                }
-                -h -
-                -L {
-                    set boolresult [expr {[file type $a2] eq "link"}]
-                }
-                -s {
-                    set boolresult [expr {[file exists $a2] && ([file size $a2] > 0 )}]
-                }
-                -S {
-                    if {[file exists $a2]} {
-                        set boolresult [expr {[file type $a2] eq "socket"}]
-                    } else {
-                        set boolresult false
-                    }
-                }
-                -x {
-                    set boolresult [expr {[file exists $a2] && [file executable $a2]}]
-                }
-                -w {
-                    set boolresult [expr {[file exists $a2] && [file writable $a2]}]
-                }
-                -z {
-                    set boolresult [expr {[string length $a2] == 0}]
-                }
-                -n {
-                    set boolresult [expr {[string length $a2] != 0}]
-                }
-                default {
-                    puts stderr "sh_TEST: delegating 'test $args' to external 'test' command"
-                    #set boolresult [apply {arglist {uplevel #0 [runx test {*}$arglist]} ::} $args]
-                    set callinfo [runx test {*}$args]
-                    set errinfo [dict get $callinfo stderr]
-                    set exitcode [dict get $callinfo exitcode]
-                    if {[string length $errinfo]} {
-                        puts stderr "sh_TEST error in external call to 'test $args': $errinfo"
-                        set lasterr $exitcode
-                    }
-                    if {$exitcode == 0} {
-                        set boolresult true
-                    } else {
-                        set boolresult false
-                    }
-                }
-            }
-        } elseif {[llength $args] == 3} {
-            switch -- $a2 {
-                "=" {
-                    #test does string comparisons
-                    set boolresult [string equal $a1 $a3]
-                }
-                "!=" {
-                    #string comparison
-                    set boolresult [expr {$a1 ne $a3}]
-                }
-                "-eq" {
-                    #test expects a possibly-large integer-like thing
-                    #shell scripts will
-                    if {![is_sh_test_integer $a1]} {
-                        puts stderr "sh_TEST: invalid integer '$a1'"
-                        set lasterr 2
-                        return false
-                    }
-                    if {![is_sh_test_integer $a3]} {
-                        puts stderr "sh_TEST: invalid integer '$a3'"
-                        set lasterr 2
-                        return false
-                    }
-                    set boolresult [expr {$a1 == $a3}]
-                }
-                "-ge" {
-                    if {![is_sh_test_integer $a1]} {
-                        puts stderr "sh_TEST: invalid integer '$a1'"
-                        set lasterr 2
-                        return false
-                    }
-                    if {![is_sh_test_integer $a3]} {
-                        puts stderr "sh_TEST: invalid integer '$a3'"
-                        set lasterr 2
-                        return false
-                    }
-                    set boolresult [expr {$a1 >= $a3}]
-                }
-                "-gt" {
-                    if {![is_sh_test_integer $a1]} {
-                        puts stderr "sh_TEST: invalid integer '$a1'"
-                        set lasterr 2
-                        return false
-                    }
-                    if {![is_sh_test_integer $a3]} {
-                        puts stderr "sh_TEST: invalid integer '$a3'"
-                        set lasterr 2
-                        return false
-                    }
-                    set boolresult [expr {$a1 > $a3}]
-                }
-                "-le" {
-                    if {![is_sh_test_integer $a1]} {
-                        puts stderr "sh_TEST: invalid integer '$a1'"
-                        set lasterr 2
-                        return false
-                    }
-                    if {![is_sh_test_integer $a3]} {
-                        puts stderr "sh_TEST: invalid integer '$a3'"
-                        set lasterr 2
-                        return false
-                    }
-                    set boolresult [expr {$a1 <= $a3}]
-                }
-                "-lt" {
-                    if {![is_sh_test_integer $a1]} {
-                        puts stderr "sh_TEST: invalid integer '$a1'"
-                        set lasterr 2
-                        return false
-                    }
-                    if {![is_sh_test_integer $a3]} {
-                        puts stderr "sh_TEST: invalid integer '$a3'"
-                        set lasterr 2
-                        return false
-                    }
-                    set boolresult [expr {$a1 < $a3}]
-                }
-                "-ne" {
-                    if {![is_sh_test_integer $a1]} {
-                        puts stderr "sh_TEST: invalid integer '$a1'"
-                        set lasterr 2
-                        return false
-                    }
-                    if {![is_sh_test_integer $a3]} {
-                        puts stderr "sh_TEST: invalid integer '$a3'"
-                        set lasterr 2
-                        return false
-                    }
-                    set boolresult [expr {$a1 != $a3}]
-                }
-                default {
-                    puts stderr "sh_TEST: delegating 'test $args' to external 'test' command"
-                    #set boolresult [apply {arglist {uplevel #0 [runx test {*}$arglist]} ::} $args]
-                    set callinfo [runx test {*}$args]
-                    set errinfo [dict get $callinfo stderr]
-                    set exitcode [dict get $callinfo exitcode]
-                    if {[string length $errinfo]} {
-                        puts stderr "sh_TEST error in external call to 'test $args': $errinfo"
-                        set lasterr $exitcode
-                    }
-                    if {$exitcode == 0} {
-                        set boolresult true
-                    } else {
-                        set boolresult false
-                    }
-
-                }
-            }
-        } else {
-            puts stderr "sh_TEST: delegating 'test $args' to external 'test' command"
-            #set boolresult [apply {arglist {uplevel #0 [runx test {*}$arglist]} ::} $args]
-            set callinfo [runx test {*}$args]
-            set errinfo [dict get $callinfo stderr]
-            set exitcode [dict get $callinfo exitcode]
-            if {[string length $errinfo]} {
-                puts stderr "sh_TEST error in external call to 'test $args': $errinfo"
-                set lasterr $exitcode
-            }
-            if {$exitcode == 0} {
-                set boolresult true
-            } else {
-                set boolresult false
-            }
-        }
-
-        #normalize 1,0 etc to true,false
-        #we want to make it obvious we are not just reporting exitcode 0  for example - which represents true in tcl.
-        if {$boolresult} {
-            return true
-        } else {
-            if {$lasterr == 0} {
-                set lasterr 1
-            }
-            return false
-        }
-
-
-    }
-    proc sh_echo {args} {
-        tailcall run echo {*}$args
-    }
-    proc sh_ECHO {args} {
-        #execute the result of the run command - which is something like: 'exitcode n' - to get true/false
-        tailcall apply {arglist {uplevel #0 [run echo {*}$arglist]} ::} $args
-    }
-
-
-    #sh style true/false for process exitcode.  0 is true - everything else false
-    proc exitcode {args} {
-        set c [lindex $args 0]
-        if {[string is integer -strict $c]} {
-            #return [expr {$c == 0}]
-            #return true/false to make it clearer we are outputting tcl-boolean inverse mapping from the shell style 0=true
-            if {$c == 0} {
-                return true
-            } else {
-                return false
-            }
-        } else {
-            return false
-        }
-    }
-    #-------------------------------------------------------------------
-
-    namespace export help aliases alias  exitcode % pipedata pipecase pipeline pipematch pipeswitch pipeswitchc pipecase linelist linesort inspect list_as_lines  val treemore
-
-    #namespace ensemble create
-
-
-
-
-    #tilde
-    #These aliases work fine for interactive use - but the result is always a string int-rep
-    #interp alias {} ~ {} file join $::env(HOME) ;#HOME must be capitalized to work cross platform (lowercase home works on windows - but probably not elsewhere)
-    #interp alias {} ~ {} apply {args {file join $::env(HOME) $args}}
-    proc ~ {args} {
-        set hdir [punk::objclone $::env(HOME)]
-        file pathtype $hdir
-        set d $hdir
-        #use the file join 2-arg optimisation to avoid losing path-rep - probably doesn't give any advantage on all Tcl versions
-        foreach a $args {
-            set d [file join $d $a]
-        }
-        file pathtype $d
-        return [punk::objclone $d]
-    }
-    interp alias {} ~ {} punk::~
-
-
-    #maint - punk::args has similar
-    #this is largely obsolete - uses dict for argspecs (defaults) instead of textblock as in punk::args
-    #textblock has more flexibility in some ways - but not as easy to manipulate especially with regards to substitutions
-    #todo - consider a simple wrapper for punk::args to allow calling with dict of just name and default?
-    #JMN
-    #generally we expect values to contain leading dashes only if -- specified. Otherwise no reliable way determine difference between bad flags and values
-    #If no eopts (--) specified we stop looking for opts at the first nondash encountered in a position we'd expect a dash - so without eopt, values could contain dashes - but not in first position after flags.
-    #only supports -flag val pairs, not solo options
-    #If an option is supplied multiple times - only the last value is used.
-    #TODO - remove
-    proc get_leading_opts_and_values {defaults rawargs args} {
-        if {[llength $defaults] %2 != 0} {
-            error "get_leading_opts_and_values expected first argument 'defaults' to be a dictionary"
-        }
-        dict for {k v} $defaults {
-            if {![string match -* $k]} {
-                error "get_leading_opts_and_values problem with supplied defaults. Expect each key to begin with a dash. Got key '$k'"
-            }
-        }
-        #puts "--> [info frame -2] <--"
-        set cmdinfo [dict get [info frame -2] cmd]
-        #we can't treat cmdinfo as a list - it may be something like {command {*}$args} in which case lindex $cmdinfo 0 won't work
-        #hopefully first word is a plain proc name if this function was called in the normal manner - directly from a proc
-        #we will break at first space and assume the lhs of that will give enough info to be reasonable - (alternatively we could use entire cmdinfo - but it might be big and ugly)
-        set caller [regexp -inline {\S+} $cmdinfo]
-
-        #if called from commandline or some other contexts such as outside of a proc in a namespace - caller may just be "namespace"
-        if {$caller eq "namespace"} {
-            set caller "get_leading_opts_and_values called from namespace"
-        }
-
-        # ------------------------------
-        if {$caller ne "get_leading_opts_and_values"} {
-            #check our own args
-            lassign [get_leading_opts_and_values {-anyopts 0 -minvalues 0 -maxvalues -1} $args] _o ownopts _v ownvalues
-            if {[llength $ownvalues] > 0} {
-                error "get_leading_opts_and_values expected: a dictionary of defaults, a list of args and at most two option pairs -minvalues <int> and -maxvalues <int> - got extra arguments: '$ownvalues'"
-            }
-            set opt_minvalues [dict get $ownopts -minvalues]
-            set opt_maxvalues [dict get $ownopts -maxvalues]
-            set opt_anyopts   [dict get $ownopts -anyopts]
-        } else {
-            #don't check our own args if we called ourself
-            set opt_minvalues 0
-            set opt_maxvalues 0
-            set opt_anyopts 0
-        }
-        # ------------------------------
-
-        if {[set eopts [lsearch $rawargs "--"]] >= 0} {
-            set values [lrange $rawargs $eopts+1 end]
-            set arglist [lrange $rawargs 0 $eopts-1]
-        } else {
-            if {[lsearch $rawargs -*] >= 0} {
-                #to support option values with leading dash e.g -offset -1 , we can't just take the last flagindex
-                set i 0
-                foreach {k v} $rawargs {
-                    if {![string match -* $k]} {
-                        break
-                    }
-                    if {$i+1 >= [llength $rawargs]} {
-                        #no value for last flag
-                        error "bad options for $caller. No value supplied for last option $k"
-                    }
-                    incr i 2
-                }
-                set arglist [lrange $rawargs 0 $i-1]
-                set values [lrange $rawargs $i end]
-            } else {
-                set values $rawargs ;#no -flags detected
-                set arglist [list]
-            }
-        }
-        if {$opt_maxvalues == -1} {
-            #only check min
-            if {[llength $values] < $opt_minvalues} {
-                error "bad number of trailing values for $caller. Got [llength $values] values. Expected at least $opt_minvalues"
-            }
-        } else {
-            if {[llength $values] < $opt_minvalues || [llength $values] > $opt_maxvalues} {
-                if {$opt_minvalues == $opt_maxvalues} {
-                    error "bad number of trailing values for $caller. Got [llength $values] values. Expected exactly $opt_minvalues"
-                } else {
-                    error "bad number of trailing values for $caller. Got [llength $values] values. Expected between $opt_minvalues and $opt_maxvalues inclusive"
-                }
-            }
-        }
-
-        if {!$opt_anyopts} {
-            set checked_args [dict create]
-            for {set i 0} {$i < [llength $arglist]} {incr i} {
-                #allow this to error out with message indicating expected flags
-                dict set checked_args [tcl::prefix match -message "options for $caller. Unexpected option" [dict keys $defaults] [lindex $arglist $i]] [lindex $arglist $i+1]
-                incr i ;#skip val
-            }
-        } else {
-            set checked_args $arglist
-        }
-        set opts [dict merge $defaults $checked_args]
-
-        #maintain order of opts $opts values $values as caller may use lassign.
-        return [dict create opts $opts values $values]
-    }
-
-
-
-
-
-
-
-
-
-    #--------------------------------------------------
-    #some haskell-like operations
-    #group equivalent
-    #http://zvon.org/other/haskell/Outputlist/group_f.html
-    #as we can't really distinguish a single element list from a string we will use 2 functions
-    proc group_list1 {lst} {
-        set out [list]
-        set prev [lindex $lst 0]
-        set g [list]
-        foreach i $lst {
-            if {$i eq $prev} {
-                lappend g $i
-            } else {
-                lappend out $g
-                set g [list $i]
-            }
-            set prev $i
-        }
-        lappend out $g
-        return $out
-    }
-    proc group_list {lst} {
-        set out [list]
-        set next [lindex $lst 1]
-        set tail [lassign $lst x]
-        set g [list $x]
-        set y [lindex $tail 0]
-        set last_condresult [expr {$x}]
-        set n 1 ;#start at one instead of zero for lookahead
-        foreach x $tail {
-            set y [lindex $tail $n]
-            set condresult [expr {$x}]
-            if {$condresult eq $last_condresult} {
-               lappend g $x
-            } else {
-                lappend out $g
-                set g [list $x]
-                set last_condresult $condresult
-            }
-            incr n
-        }
-        lappend out $g
-        return $out
-    }
-
-    #NOT attempting to match haskell other than in overall concept.
-    #
-    #magic var-names are a bit of a code-smell. But submitting only an expr argument is more Tcl-like than requiring an 'apply' specification.
-    #Haskell seems to take an entire lambda so varnames can be user-specified - but the 'magic' there is in it's choice of submitting 2 elements at a time
-    #We could do similar .. but we'll focus on comprehensibility for the basic cases - especially as begginning and end of list issues could be confusing.
-    #
-    #vars: index prev, prev0, prev1, item, next, next0, next1,nextr, cond
-    #(nextr is a bit obscure - but basically means next-repeat ie if no next - use same value. just once though.)
-    #group by cond result or first 3 wordlike parts of error
-    #e.g group_list_by {[lindex $item 0]}  {{a 1} {a 2} {b 1}}
-    proc group_list_by {cond lst} {
-        set out [list]
-        set prev [list]
-        set next [lindex $lst 1]
-        set tail [lassign $lst item]
-        set g [list $item]
-        set next [lindex $tail 0]
-        if {$prev eq ""} {
-            set prev0 0
-            set prev1 1
-            set prevr $item
-        } else {
-            set prev0 $prev
-            set prev1 $prev
-            set prevr $prev
-        }
-        if {$next eq ""} {
-            set next0 0
-            set next1 1
-            set nextr $item
-        } else {
-            set next0 $next
-            set next1 $next
-            set nextr $next
-        }
-        set last_condresult [apply {{index cond prev prev0 prev1 prevr item next next0 next1 nextr}  {
-                if {[catch {expr $cond} r]} {
-                    puts stderr "index: 0 ERROR $r"
-                    set wordlike_parts [regexp -inline -all {\S+} $r]
-                    set r [list ERROR {*}[lrange $wordlike_parts 0 2]]
-                }
-                set r
-                }
-            } 0 $cond $prev $prev0 $prev1 $prevr $item $next $next0 $next1 $nextr]
-        set n 1 ;#start at one instead of zero for lookahead
-        #note - n also happens to matchi zero-based index of original list
-        set prev $item
-        foreach item $tail {
-            set next [lindex $tail $n]
-            if {$prev eq ""} {
-                set prev0 0
-                set prev1 1
-                set prevr $item
-            } else {
-                set prev0 $prev
-                set prev1 $prev
-                set prevr $prev
-            }
-            if {$next eq ""} {
-                set next0 0
-                set next1 1
-                set nextr $item
-            } else {
-                set next0 $next
-                set next1 $next
-                set nextr $next
-            }
-            set condresult [apply {{index cond prev prev0 prev1 prevr item next next0 next1 nextr}  {
-                    if {[catch {expr $cond} r]} {
-                        puts stderr "index: $index ERROR $r"
-                        set wordlike_parts [regexp -inline -all {\S+} $r]
-                        set r [list ERROR {*}[lrange $wordlike_parts 0 2]]
-                    }
-                    set r
-                }
-            } $n $cond $prev $prev0 $prev1 $prevr $item $next $next0 $next1 $nextr]
-            if {$condresult eq $last_condresult} {
-               lappend g $item
-            } else {
-                lappend out $g
-                set g [list $item]
-                set last_condresult $condresult
-            }
-            incr n
-            set prev $item
-        }
-        lappend out $g
-        return $out
-    }
-
-    #group_numlist ? preserve representation of numbers rather than use string comparison?
-
-
-    # - group_string
-    #.= punk::group_string "aabcccdefff"
-    #  aa b ccc d e fff
-    proc group_string {str} {
-        lmap v [group_list [split $str ""]] {string cat {*}$v}
-    }
-
-    #lists may be of unequal lengths
-    proc transpose_lists {list_rows} {
-        set res {}
-        #set widest [pipedata $list_rows {lmap v $data {llength $v}} {tcl::mathfunc::max {*}$data}]
-        set widest [tcl::mathfunc::max {*}[lmap v $list_rows {llength $v}]]
-        for {set j 0} {$j < $widest} {incr j} {
-            set newrow {}
-            foreach oldrow $list_rows {
-                if {$j >= [llength $oldrow]} {
-                    #continue 
-                    lappend newrow ""
-                } else {
-                    lappend newrow [lindex $oldrow $j]
-                }
-            }
-            lappend res $newrow
-        }
-        return $res
-    }
-    proc transpose_equal_lists {list_rows} {
-        set columns [list]
-        set rowidx -1
-        foreach l $list_rows {
-            set colidx -1
-            incr rowidx
-            foreach val $l {
-                incr colidx
-                lset columns $colidx $rowidx $val
-            }
-        }
-        return $columns
-    }
-    proc transpose_strings {list_of_strings} {
-        set charlists [lmap v $list_of_strings {split $v ""}]
-        set tchars [transpose_lists $charlists]
-        lmap v $tchars {string cat {*}$v}
-    }
-
-    package require struct::matrix
-    #transpose a serialized matrix using the matrix command
-    #Note that we can have missing row values below and to right
-    #e.g
-    #a
-    #a b
-    #a
-    proc transpose_matrix {matrix_rows} {
-        set mcmd [struct::matrix]
-        #serialization format: numcols numrows rowlist
-        set widest [tcl::mathfunc::max {*}[lmap v $matrix_rows {llength $v}]]
-        $mcmd deserialize [list [llength $matrix_rows] $widest  $matrix_rows]
-        $mcmd transpose
-        set result [lindex [$mcmd serialize] 2] ;#strip off dimensions
-        $mcmd destroy
-        return $result
-    }
-
-    set objname [namespace current]::matrixchain
-    if {$objname ni [info commands $objname]} {
-        oo::class create matrixchain {
-            variable mcmd
-            constructor {matrixcommand} {
-                puts "wrapping $matrixcommand with [self]"
-                set mcmd $matrixcommand
-            }
-            destructor {
-                puts "matrixchain destructor called for [self] (wrapping $mcmd)"
-                $mcmd destroy
-            }
-            method unknown {args} {
-                if {[llength $args]} {
-                    switch -- [lindex $args 0] {
-                        add - delete - insert - transpose - sort - set - swap {
-                            $mcmd {*}$args
-                            return [self] ;#result is the wrapper object for further chaining in pipelines
-                        }
-                        default {
-                            tailcall $mcmd {*}$args
-                        }
-                    }
-                } else {
-                    #will error.. but we should pass that on
-                    tailcall $mcmd
-                }
-            }
-        }
-    }
-
-    #review
-    #how do we stop matrix pipelines from leaving commands around? i.e how do we call destroy on the matrixchain wrapper if not explicitly?
-    #Perhaps will be solved by: Tip 550: Garbage collection for TclOO
-    #Theoretically this should allow tidy up of objects created within the pipeline automatically
-    #If the object name is placed in the pipeline variable dict then it should survive across segment apply scripts and only go out of scope at the end.
-    proc matrix_command_from_rows {matrix_rows} {
-        set mcmd [struct::matrix]
-        set widest [tcl::mathfunc::max {*}[lmap v $matrix_rows {llength $v}]]
-        $mcmd deserialize [list [llength $matrix_rows] $widest $matrix_rows]
-        #return $mcmd
-        set wrapper [punk::matrixchain new $mcmd]
-    }
-
-    #--------------------------------------------------
-
-    proc list_filter_cond {itemcond listval} {
-        set filtered_list [list]
-        set binding {}
-        if {[info level] == 1} {
-            #up 1 is global
-            set get_vars [list ::info vars]
-        } else {
-            set get_vars [list ::info locals]
-        }
-        set vars [uplevel 1 {*}$get_vars]
-        set posn [lsearch $vars item]
-        set vars [lreplace $vars $posn $posn]
-        foreach v $vars {
-            upvar 1 $v var
-            if {(![array exists var]) && [info exists var]} {
-                lappend binding [list $v $var] ;#values captured as defaults for apply args.
-            }
-        }
-        #lappend binding [list item $args]
-
-        #puts stderr "binding: [join $binding \n]"
-        #apply [list $binding $pipescript [uplevel 1 ::namespace current]]
-        foreach item $listval {
-            set bindlist [list {*}$binding [list item $item]]
-            if {[apply [list $bindlist $itemcond [uplevel 1 ::namespace current]] ]} {
-                lappend filtered_list $item
-            }
-        }
-        return $filtered_list
-    }
-
-
-    proc ls {args} {
-        if {![llength $args]} {
-            set args [list [pwd]]
-        }
-        if {[llength $args] ==1} {
-            return [glob -nocomplain -tails -dir [lindex $args 0] *]
-        } else {
-            set result [dict create]
-            foreach a $args {
-                set k [file normalize $a]
-                set contents [glob -nocomplain -tails -dir $a *]
-                dict set result $k $contents
-            }
-            return $result
-        }
-    }
-
-
-
-    #linelistraw is essentially split $text \n so is only really of use for pipelines, where the argument order is more convenient
-    #like linelist - but keeps leading and trailing empty lines
-    #single \n produces {} {}
-    #the result can be joined to reform the arg if a single arg supplied
-    #
-    proc linelistraw {args} {
-        set linelist [list]
-        foreach {a} $args {
-            set nlsplit [split $a \n]
-            lappend linelist {*}$nlsplit
-        }
-        #return [split $text \n]
-        return $linelist
-    }
-    proc linelist1 {args} {
-        set linelist [list]
-        foreach {a} $args {
-            set nlsplit [split $a \n]
-            set start 0
-            set end "end"
-
-            if {[lindex $nlsplit 0] eq ""} {
-                set start 1
-            }
-            if {[lindex $nlsplit end] eq ""} {
-                set end "end-1"
-            }
-            set alist [lrange $nlsplit $start $end]
-            lappend linelist {*}$alist
-        }
-        return $linelist
-    }
-
-    namespace eval argdoc {
-        set DYN_ANTIGLOB_PATHS    {${[punk::args::resolved_def -types opts ::punk::path::treefilenames -antiglob_paths]}}
-        punk::args::define {
-            @dynamic
-            @id -id ::punk::LOC
-            @cmd -name punk::LOC\
-                -summary\
-                "Lines Of Code counter"\
-                -help\
-                "LOC - lines of code.
-                An implementation of a notoriously controversial metric.
-                Returns a dict or dictionary-display containing various
-                counts such as:
-                 'loc' - total lines of code.
-                 'purepunctuationlines' - lines consisting soley of punctuation.
-                 'filecount' - number of files examined."
-            @opts
-            -return             -default showdict -choices {dict showdict}
-            -dir                -default "\uFFFF"
-            -exclude_dupfiles   -default 1 -type boolean
-            ${$DYN_ANTIGLOB_PATHS}
-            -antiglob_files     -default "" -type list -help\
-                "Exclude if file tail matches any of these patterns"
-            -exclude_punctlines -default 1 -type boolean
-            -show_largest       -default 0 -type integer -help\
-                "Report the top largest linecount files.
-                    The value represents the number of files
-                    to report on."
-        } "
-            #we could map away whitespace and use string is punct - but not as flexible? review
-            -punctchars         -default { [list \{ \} \" \\ - _  + = . > , < ' : \; ` ~ ! @ # \$ % ^ & * \[ \] ( ) | / ?] }
-        " {
-            @values
-            fileglob -type string -default * -optional 1 -multiple 1 -help\
-                "glob patterns to match against the filename portion (last segment) of each
-                  file path. e.g *.tcl *.tm"
-        }
-    }
-    #An implementation of a notoriously controversial metric.
-    proc LOC {args} {
-        set argd [punk::args::parse $args withid ::punk::LOC]
-        lassign [dict values $argd] leaders opts values received
-        set searchspecs [dict get $values fileglob]
-
-        # -- --- --- --- --- ---
-        set opt_return              [dict get $opts -return]
-        set opt_dir                 [dict get $opts -dir]
-        if {$opt_dir eq "\uFFFF"} {
-            set opt_dir [pwd] ;#pwd can take over a ms on windows in a not terribly deep path even with SSDs - so as a general rule we don't use it in the original defaults list
-        }
-        # -- --- --- --- --- ---
-        set opt_exclude_dupfiles    [dict get $opts -exclude_dupfiles]
-        set opt_exclude_punctlines  [dict get $opts -exclude_punctlines] ;#exclude lines that consist purely of whitespace and the chars in -punctchars
-        set opt_punctchars          [dict get $opts -punctchars]
-        set opt_largest             [dict get $opts -show_largest]
-        set opt_antiglob_paths      [dict get $opts -antiglob_paths]
-        set opt_antiglob_files      [dict get $opts -antiglob_files]
-        # -- --- --- --- --- ---
-
-
-        set filepaths [punk::path::treefilenames -dir $opt_dir -antiglob_paths $opt_antiglob_paths -antiglob_files $opt_antiglob_files {*}$searchspecs]
-        set loc 0
-        set dupfileloc 0
-        set seentails   [dict create]
-        set seencksums  [dict create] ;#key is cksum value is list of paths
-        set largestloc  [dict create]
-        set dupfilecount 0
-        set extensions  [list]
-        set purepunctlines 0
-        set dupinfo     [dict create]
-        set has_hashfunc [expr {![catch {package require sha1}]}]
-        set notes ""
-        if {$has_hashfunc} {
-            set dupfilemech sha1
-            if {$opt_exclude_punctlines} {
-                append notes "checksums are on content stripped of whitespace lines,trailing whitespace, and pure punct lines. Does not indicate file contents equal.\n"
-            } else {
-                append notes "checksums are on content stripped of whitespace lines and trailing whitespace. Does not indicate file contents equal.\n"
-            }
-        } else {
-            set dupfilemech filetail
-            append notes "dupfilemech filetail because sha1 not loadable\n"
-        }
-        foreach fpath $filepaths {
-            set isdupfile 0
-            set floc 0
-            set fpurepunctlines 0
-            set ext [file extension $fpath]
-            if {$ext ni $extensions} {
-                lappend extensions $ext
-            }
-            if {[catch {fcat $fpath} contents]} {
-                puts stderr "Error processing $fpath\n  $contents"
-                continue
-            }
-            set lines [linelist -line {trimright} -block {trimall} $contents]
-            if {!$opt_exclude_punctlines} {
-                set floc [llength $lines]
-                set comparedlines $lines
-            } else {
-                set mapawaypunctuation [list]
-                foreach p $opt_punctchars empty {} {
-                    lappend mapawaypunctuation $p $empty
-                }
-                set comparedlines [list]
-                foreach ln $lines {
-                    if {[string length [string trim [string map $mapawaypunctuation $ln]]] > 0} {
-                        incr floc
-                        lappend comparedlines $ln
-                    } else {
-                        incr fpurepunctlines
-                    }
-                }
-            }
-            if {$opt_largest > 0} {
-                dict set largestloc $fpath $floc
-            }
-            if {$has_hashfunc} {
-                set cksum [sha1::sha1 [encoding convertto utf-8 [join $comparedlines \n]]]
-                if {[dict exists $seencksums $cksum]} {
-                    set isdupfile 1
-                    incr dupfilecount
-                    incr dupfileloc $floc
-                    dict lappend seencksums $cksum $fpath
-                } else {
-                    dict set seencksums $cksum [list $fpath]
-                }
-            } else {
-                if {[dict exists $seentails [file tail $fpath]]} {
-                    set isdupfile 1
-                    incr dupfilecount
-                    incr dupfileloc $floc
-                }
-            }
-            if {!$isdupfile || ($isdupfile && !$opt_exclude_dupfiles)} {
-                incr loc $floc
-                incr purepunctlines $fpurepunctlines
-            }
-
-            dict lappend seentails [file tail $fpath] $fpath
-            #lappend seentails [file tail $fpath]
-        }
-        if {$has_hashfunc} {
-            dict for {cksum paths} $seencksums {
-                if {[llength $paths] > 1} {
-                    dict set dupinfo checksums $cksum $paths
-                }
-            }
-        }
-        dict for {tail paths} $seentails {
-            if {[llength $paths] > 1} {
-                dict set dupinfo sametail $tail $paths
-            }
-        }
-
-        if {$opt_exclude_punctlines} {
-            set result  [dict create\
-                        loc            $loc\
-                        filecount      [llength $filepaths]\
-                        dupfiles       $dupfilecount\
-                        dupfilemech    $dupfilemech\
-                        dupfileloc     $dupfileloc\
-                        dupinfo         $dupinfo\
-                        extensions     $extensions\
-                        purepunctuationlines $purepunctlines\
-                        notes           $notes\
-                        ]
-        } else {
-            set result  [dict create\
-                        loc             $loc\
-                        filecount       [llength $filepaths]\
-                        dupfiles        $dupfilecount\
-                        dupfilemech     $dupfilemech\
-                        dupfileloc      $dupfileloc\
-                        dupinfo         $dupinfo\
-                        extensions      $extensions\
-                        notes           $notes\
-                        ]
-        }
-        if {$opt_largest > 0} {
-            set largest_n [dict create]
-            set sorted [lsort -stride 2 -index 1 -decreasing -integer $largestloc]
-            set kidx 0
-            for {set i 0} {$i < $opt_largest} {incr i} {
-                if {$kidx+1 > [llength $sorted]} {break}
-                dict set largest_n [lindex $sorted $kidx] [lindex $sorted $kidx+1]
-                incr kidx 2
-            }
-            dict set result largest $largest_n
-        }
-        if {$opt_return eq "showdict"} {
-            return [punk::lib::showdict $result @@dupinfo/*/* !@@dupinfo]
-        }
-        return $result
-    }
-
-    ##dict of lists?
-    #a
-    #   1
-    #   2
-    #b
-    #   3
-    #   4
-    #   ""
-    #   etc
-    #   d
-    #       D
-    #   "ok then"
-
-
-    ##dict of dicts
-    #a
-    #   x
-    #       1
-    #   y
-    #       2
-    #b
-    #   x
-    #       11
-
-    ##dict of mixed
-    #list
-    #   a
-    #   b
-    #   c
-    #dict
-    #   a
-    #       aa
-    #   b
-    #       bb
-    #val
-    #   x
-    #list
-    #   a
-    #   b
-
-    # each line has 1 key or value OR part of 1 key or value. ie <=1 key/val per line!
-    ##multiline
-    #key
-    #   "multi
-    #   line value"
-    #
-
-    #--------------------------------
-    #a
-    #   1
-    #   2
-
-    #vs
-
-    #a
-    #   1
-    #       2
-
-    #dict of list-len 2 is equiv to dict of dict with one keyval pair
-    #--------------------------------
-
-    
-
-    #!!!todo fix - linedict is unfinished and non-functioning
-    #linedict based on indents
-    proc linedict {args} {
-        puts stderr "linedict is experimental and incomplete"
-        set data [lindex $args 0]
-        set opts [lrange $args 1 end] ;#todo
-        set nlsplit [split $data \n]
-        set rootindent -1
-        set stepindent -1
-
-
-        #first do a partial loop through lines and work out the rootindent and stepindent.
-        #we could do this in the main loop - but we do it here to remove a small bit of logic from the main loop.
-        #review - if we ever move to streaming a linedict - we'll need to re-arrange to validating indents as we go anyway.
-        set linenum 0
-        set firstkey_line "N/A"
-        set firstkey_linenum -1
-        set firststep_line "N/A"
-        set firststep_linenum -1
-        set indents_seen [dict create]
-        foreach ln $nlsplit {
-            incr linenum
-            if {![string length [string trim $ln]]} {
-                continue
-            }
-
-            #todo - use info complete to accept keys/values with newlines
-            regexp {(\s*)(.*)} $ln _ space linedata
-            if {[catch {lindex $linedata 0}]} {
-                error "bad line value '$linedata' - each line must be a valid Tcl list of length 1. Use quotes or curly braces as necessary"
-            }
-            if {[llength $linedata] > 1} {
-                error "bad line value '$linedata' - each line must be a valid Tcl list of length 1. Use quotes or curly braces as necessary"
-            }
-            #puts stderr "--linenum:[format %-3s $linenum] line:[format "%-20s" $ln] [format %-4s [string length $space]] $linedata"
-            set this_indent [string length $space]
-            if {[dict exists $indents_seen $this_indent]} {
-                continue
-            }
-            if {$rootindent < 0} {
-                set firstkey_line $ln
-                set firstkey_linenum $linenum
-                set rootindent $this_indent
-                dict set indents_seen $this_indent 1
-            } elseif {$stepindent < 0} {
-                    if {$this_indent > $rootindent} {
-                        set firststep_line $ln
-                        set firststep_linenum $linenum
-                        set stepindent [expr {$this_indent - $rootindent}]
-                        dict set indents_seen $this_indent 1
-                    } elseif {$this_indent < $rootindent} {
-                        error "bad root indentation ($this_indent) at line: $linenum. Smallest indent was set on linenumber: $firstkey_linenum by first key line: $firstkey_line"
-                    }
-                    #if equal - it's just another root key
-            } else {
-                #validate all others
-                if {$this_indent < $rootindent} {
-                    error "bad root indentation ($this_indent) at line: $linenum. Smallest indent was set on linenumber: $firstkey_linenum by first key line: $firstkey_line"
-                }
-                if {($this_indent - $rootindent) % $stepindent != 0} {
-                    error "bad indentation ($this_indent) at linenum: $linenum line:'$ln'. this_indent - rootindent ($this_indent - $rootindent == [expr {$this_indent - $rootindent}]) is not a multiple of the first key indent $stepindent seen on linenumber: $firststep_linenum value:'$firststep_line'"
-                } else {
-                    dict set indents_seen $this_indent 1
-                }
-            }
-        }
-
-
-        #set wordlike_parts [regexp -inline -all {\S+} $lastitem]
-        set d [dict create]
-        set keys [list]
-        set linenum 0 ;#line-numbers 1 based
-        foreach ln $nlsplit {
-            incr linenum
-            if {![string length [string trim $ln]]} {
-                incr linenum
-                continue
-            }
-            regexp {(\s*)(.*)} $ln _ space linedata
-            puts stderr ">>linenum:[format %-3s $linenum] line:[format "%-20s " $ln] [format %-4s [string length $space]] $linedata"
-            set linedata [lindex $linedata 0]
-            set this_indent [string length $space]
-
-
-            if {$this_indent == $rootindent} {
-                #is rootkey
-                dict set d $linedata {}
-                set keys [list $linedata]
-            } else {
-                set ispan [expr {$this_indent - $rootindent}]
-                set numsteps [expr {$ispan / $stepindent}]
-                #assert - since validated in initial loop - numsteps is always >= 1
-                set keydepth [llength $keys]
-                if {$numsteps > $keydepth + 1} {
-                    #too deep - not tested for in initial loop. ? todo - convert to leading spaces in key/val?
-                    error "bad indentation ($this_indent) at linenum: $linenum line:'$ln'. (too deep) - review"
-                }
-                if {$numsteps > ($keydepth - 1)} {
-                    #assert - from above test - must be 1 or 2 deeper
-                    set parentkey [lindex $keys end]
-                    set oldval [dict get $d {*}$parentkey]
-                    if {$numsteps - ($keydepth -1) == 1} {
-                        #1 deeper
-                        if {$oldval ne {}} {
-                            lappend keys [list {*}$parentkey $linedata]
-                            dict unset d {*}$parentkey
-                            #dict set d {*}$parentkey $oldval $linedata
-                            dict set d {*}$parentkey $oldval {} ;#convert to key?
-                            dict set d {*}$parentkey $linedata {}
-                        } else {
-                            dict set d {*}$parentkey $linedata
-                        }
-                    } else {
-                        #2 deeper - only ok if there is an existing val
-                        if {$oldval eq {}} {
-                            error "bad indentation ($this_indent) at linenum: $linenum line:'$ln'. (too deep) - review"
-                        }
-                        puts ">>> 2deep d:'$d' oldval:$oldval linedata:$linedata parentkey:$parentkey"
-                        dict unset d {*}$parentkey
-                        dict set d {*}$parentkey $oldval $linedata
-                        lappend keys [list {*}$parentkey $oldval]
-                    }
-                } elseif {$numsteps < ($keydepth - 1)} {
-                    set diff [expr {$keydepth - 1 - $numsteps}]
-                    set keys [lrange $keys 0 end-$diff]
-                    #now treat as same level
-                    set parentkey [lindex $keys end-1]
-                    lset keys end end $linedata
-                    dict set d {*}$parentkey $linedata {}
-                } else {
-                    #same level
-                    set parentkey [lindex $keys end-1]
-                    lset keys end end $linedata
-                    dict set d {*}$parentkey $linedata {}
-                }
-            }
-            #puts ">>keys:$keys"
-        }
-        return $d
-    }
-    proc dictline {d {indent 2}} {
-        puts stderr "unimplemented"
-        set lines [list]
-
-        return $lines
-    }
-
-
-    proc ooinspect {obj} {
-        set obj [uplevel 1 [list namespace which -command $obj]]
-        set isa [lmap type {object class metaclass} {
-            if {![info object isa $type $obj]} continue
-            set type
-        }]
-        foreach tp $isa {
-            switch -- $tp {
-                class {
-                    lappend info {class superclasses} {class mixins} {class filters}
-                    lappend info {class methods} {class methods}
-                    lappend info {class variables} {class variables}
-                }
-                object {
-                    lappend info {object class} {object mixins} {object filters}
-                    lappend info {object methods} {object methods}
-                    lappend info {object variables} {object variables}
-                    lappend info {object namespace} {object vars} ;#{object commands}
-                }
-            }
-        }
-
-        set result [dict create isa $isa]
-        foreach args $info {
-            dict set result $args [info {*}$args $obj]
-            foreach opt {-private -all} {
-                catch {
-                    dict set result [list {*}$args $opt] [info {*}$args $obj $opt]
-                }
-            }
-        }
-        dict filter $result value {?*}
-    }
-
-    punk::args::define {
-        @id     -id ::punk::inspect
-        @cmd    -name punk::inspect -help\
-            "Function to display values - used pimarily in a punk pipeline.
-            The raw value arguments (not options) are always returned to pass
-            forward in the pipeline.
-            (pipeline data inserted at end of each |...> segment is passed as single item unless
-            inserted with an expanding insertion specifier such as .=>*  )
-            e.g1:
-            .=      list a b c              |v1,/1-end,/0>\\ 
-            .=>*    inspect -label i1 --    |>\\ 
-            .=v1>   inspect -label i2 --    |>\\ 
-                    string toupper
-            (3) i1: {a b c} {b c} a
-            (1) i2: a b c
-
-            - A B C
-            "
-        -label -type string -default "" -help\
-            "An optional label to help distinguish output when multiple
-              inspect statements are in a pipeline. This appears after the
-              bracketed count indicating number of values supplied.
-              e.g (2) MYLABEL: val1 val2
-              The label can include ANSI codes.
-              e.g
-              inspect -label [a+ red]mylabel -- val1 val2 val3
-              "
-        -limit -type int -default 20 -help\
-            "When multiple values are passed to inspect - limit the number
-              of elements displayed in -channel output.
-              When truncation has occured an elipsis indication (...) will be appended.
-              e.g
-              .= lseq 20 to 50 by 3 |> .=>* inspect -limit 4 -- |> .=>* tcl::mathop::+
-              (11) 20 23 26 29...
-
-              - 385
-
-              For no limit - use -limit -1
-              "
-        -channel -type string -default stderr -help\
-            "An existing open channel to write to. If value is any of nul, null, /dev/nul
-              the channel output is disabled. This effectively disables inspect as the args
-              are simply passed through in the return to continue the pipeline.
-              "
-        -showcount -type boolean -default 1 -help\
-            "Display a leading indicator in brackets showing the number of arg values present."
-        -ansi -type integer -default 1 -nocase 1 -choices {0 1 2 VIEW 3 VIEWCODES 4 VIEWSTYLES} -choicelabels {
-            0 "Strip ANSI codes from display
-             of values. The disply output will
-             still be colourised if -ansibase has
-             not been set to empty string or
-             [a+ normal]. The stderr or stdout
-             channels may also have an ansi colour.
-             (see 'colour off' or punk::config)"
-            1 "Leave value as is"
-            2 "Display the ANSI codes and
-             other control characters inline
-             with replacement indicators.
-             e.g esc, newline, space, tab"
-            VIEW "Alias for 2"
-            3 "Display as per 2 but with
-             colourised ANSI replacement codes."
-            VIEWCODES "Alias for 3"
-            4 "Display ANSI and control
-             chars in default colour, but
-             apply the contained ansi to
-             the text portions so they display
-             as they would for -ansi 1"
-             VIEWSTYLE "Alias for 4"
-            }
-        -ansibase -type ansistring -default {${[a+ brightgreen]}} -help\
-            "Base ansi code(s) that will apply to output written to the chosen -channel.
-              If there are ansi resets in the displayed values - output will revert to this base.
-              Does not affect return value."
-        -- -type none -help\
-            "End of options marker.
-              It is advisable to use this, as data in a pipeline may often begin with -"
-
-        @values -min 0 -max -1
-        arg -type string -optional 1 -multiple 1 -help\
-            "value to display"
-    }
-    #pipeline inspect
-    #e.g
-    #= {a z c} |> inspect -label input_dict |> lsort |> {inspect $data}
-    proc inspect {args} {
-        set defaults [list -label "" -limit 20 -channel stderr -showcount 1 -ansi 1 -ansibase [a+ brightgreen]]
-        set flags [list]
-        set endoptsposn [lsearch $args --] ;#first --  if data expected to contain --, then should always be called with --.  e.g inspect --
-        if {$endoptsposn >= 0} {
-           set flags [lrange $args 0 $endoptsposn-1]
-           set pipeargs [lrange $args $endoptsposn+1 end]
-        } else {
-            #no explicit end of opts marker
-            #last trailing elements of args after taking *known* -tag v pairs is the value to inspect
-            for {set i 0} {$i < [llength $args]} {incr i} {
-                set k [lindex $args $i]
-                if {$k in [dict keys $defaults]} {
-                    lappend flags {*}[lrange $args $i $i+1]
-                    incr i
-                } else {
-                    #first unrecognised option represents end of flags
-                    break
-                }
-            }
-            set pipeargs [lrange $args $i end]
-        }
-        foreach {k v} $flags {
-            if {$k ni [dict keys $defaults]} {
-                #error "inspect: unknown option $k. Known options: [dict keys $defaults].  If data contains flaglike elements, consider calling with end-of-opts marker. e.g inspect --"
-                punk::args::get_by_id ::punk::inspect $args
-            }
-        }
-        set opts [dict merge $defaults $flags]
-        # -- --- --- --- ---
-        set label       [dict get $opts -label]
-        set channel     [dict get $opts -channel]
-        set showcount   [dict get $opts -showcount]
-        if {[string length $label]} {
-            set label "${label}: "
-        }
-        set limit [dict get $opts -limit]
-        set opt_ansiraw [dict get $opts -ansi]
-        set opt_ansi [tcl::prefix::match -error "" [list 0 1 2 3 4 view viewcodes viewstyle] [string tolower $opt_ansiraw]]
-        switch -- [string tolower $opt_ansi] {
-            0 - 1 - 2 - 3 - 4 {}
-            view        {set opt_ansi 2}
-            viewcodes   {set opt_ansi 3}
-            viewstyle   {set opt_ansi 4}
-            default {
-                error "inspect -ansi 0|1|2|view|3|viewcodes|4|viewstyle - received -ansi $opt_ansiraw"
-            }
-        }
-        # -- --- --- --- ---
-
-        set more ""
-        if {[llength $pipeargs] == 1} {
-            #usual case is data as a single element
-            set val [lindex $pipeargs 0]
-            set count 1
-        } else {
-            #but the pipeline segment could have an insertion-pattern ending in *
-            set val $pipeargs
-            set count [llength $pipeargs]
-        }
-        switch -- [string tolower $channel] {
-            nul - null - /dev/null {
-                return $val
-            }
-        }
-        set displayval $val ;#default - may be overridden based on -limit
-
-        if {$count > 1} {
-            #val is a list
-            set llen [llength $val]
-            if {$limit > 0 && ($limit < $llen)} {
-                set displayval [lrange $val 0 $limit-1]
-                if {$llen > $limit} {
-                    set more "..."
-                }
-            }
-        } else {
-            #not a valid tcl list - limit by lines
-            if {$limit > 0} {
-                set rawlines [split $val \n]
-                set llen [llength $rawlines]
-                set displaylines [lrange $rawlines 0 $limit-1]
-                set displayval [join $displaylines "\n"]
-                if {$llen > $limit} {
-                    set more "\n..."
-                }
-            }
-
-        }
-        if {$showcount} {
-            set displaycount "[a purple bold]($count)[a] "
-            if {$showcount} {
-                set countspace [expr {[string length $count] + 3}] ;#lhs margin size of count number plus brackets and one space
-                set margin [string repeat " " $countspace]
-                set displayval [string map [list \r "" \n "\n$margin"] $displayval]
-            }
-        } else {
-            set displaycount ""
-        }
-
-        set ansibase [dict get $opts -ansibase]
-        if {$ansibase ne ""} {
-            #-ansibase default is hardcoded into punk::args definition
-            #run a test using any ansi code to see if colour is still enabled
-            if {[a+ red] eq ""} {
-                set ansibase "" ;#colour seems to be disabled
-            }
-        }
-
-        switch -- $opt_ansi {
-            0 {
-                set displayval $ansibase[punk::ansi::ansistrip $displayval]
-            }
-            1 {
-                #val may have ansi - including resets. Pass through ansibase_lines to
-                if {$ansibase ne ""} {
-                    #set displayval [::textblock::ansibase_lines $displayval $ansibase]
-                    set displayval [punk::ansi::ansiwrap_raw $ansibase "" "" $displayval]
-                }
-            }
-            2 {
-                set displayval $ansibase[ansistring VIEW $displayval]
-                if {$ansibase ne ""} {
-                    #set displayval [::textblock::ansibase_lines $displayval $ansibase]
-                    set displayval [punk::ansi::ansiwrap_raw $ansibase "" "" $displayval]
-                }
-            }
-            3 {
-                set displayval $ansibase[ansistring VIEWCODE $displayval]
-                if {$ansibase ne ""} {
-                    #set displayval [::textblock::ansibase_lines $displayval $ansibase]
-                    set displayval [punk::ansi::ansiwrap_raw $ansibase "" "" $displayval]
-                }
-            }
-            4 {
-                set displayval $ansibase[ansistring VIEWSTYLE $displayval]
-                if {$ansibase ne ""} {
-                    #set displayval [::textblock::ansibase_lines $displayval $ansibase]
-                    set displayval [punk::ansi::ansiwrap_raw $ansibase "" "" $displayval]
-                }
-            }
-        }
-
-        if {![string length $more]} {
-            puts $channel "$displaycount$label$displayval[a]"
-        } else {
-            puts $channel "$displaycount$label$displayval[a yellow bold]$more[a]"
-        }
-        return $val
-    }
-
-
-
-    #return list of {chan chunk} elements
-    proc help_chunks {args} {
-        set chunks [list]
-        set linesep [string repeat - 76]
-        set mascotblock ""
-        catch {
-            package require patternpunk
-            #lappend chunks [list stderr [>punk . rhs]]
-            append mascotblock  [textblock::frame -checkargs 0 [>punk . banner -title "Punk Shell" -left Tcl -right [package provide Tcl]]]
-        }
-
-        set topic [lindex $args end]
-        set argopts [lrange $args 0 end-1]
-
-
-        set title "[a+ brightgreen] Punk core navigation commands: "
-
-        #todo - load from source code annotation?
-        set cmdinfo [list]
-        lappend cmdinfo [list help                      "?topics?"           "This help. To see available subitems type: help topics"]
-        lappend cmdinfo [list i                         "cmd ?subcommand...?"   "Show usage for a command or ensemble subcommand"]
-        lappend cmdinfo [list s                         "cmd ?subcommand...?"   "Show synopsis for a command or ensemble subcommand"]
-        lappend cmdinfo [list ./                        "?subdir?"          "view/change directory"]
-        lappend cmdinfo [list ../                       ""                  "go up one directory"]
-        lappend cmdinfo [list ./new                     "subdir"            "make new directory and switch to it"]
-        lappend cmdinfo [list n/                        "?glob...?"         "view/change namespace\n (accepts ns path globs e.g **::*get* to match comands at any level )"]
-        lappend cmdinfo [list n//                       ""                  "view/change namespace (with command listing)"]
-        lappend cmdinfo [list "nn/"                     ""                  "go up one namespace"]
-        lappend cmdinfo [list "n/new"                   "<ns>"              "make child namespace and switch to it"]
-        lappend cmdinfo [list dev                       "?subcommand?"      "(ensemble command to make new projects/modules and to generate docs)"]
-        lappend cmdinfo [list a?                        "?subcommand...?"   "view ANSI colours\n e.g  a? web"]
-
-        #set cmds [lsearch -all -inline -index 0 -subindices $cmdinfo *]
-        #set descr [lsearch -all -inline -index 1 -subindices $cmdinfo *]
-        #set widest1 [tcl::mathfunc::max {*}[lmap v $cmds  {string length $v}]]
-        #set widest2 [tcl::mathfunc::max {*}[lmap v $descr {string length $v}]]
-        set t [textblock::class::table new -show_seps 0]
-        #foreach c $cmds d $descr {
-        #    $t add_row [list $c $d]
-        #}
-        foreach row $cmdinfo {
-            $t add_row $row
-        }
-        set width_0 [$t column_datawidth 0]
-        $t configure_column 0 -minwidth [expr {$width_0 + 2}]
-        set width_1 [$t column_datawidth 1]
-        $t configure_column 1 -minwidth [expr {$width_1 + 1}]
-        $t configure -title $title
-
-        set text ""
-        append text [$t print]
-
-
-        set warningblock ""
-        set introblock  $mascotblock
-        append introblock \n $text
-
-        #if {[catch {package require textblock} errM]} {
-        #    append warningblock  \n "WARNING: textblock package couldn't be loaded. Side-by-side display not available"
-        #} else {
-        #    set introblock [textblock::join -- " " \n$mascotblock "  " $text]
-        #}
-
-
-        lappend chunks [list stdout $introblock]
-
-
-        if {$topic in [list tcl]} {
-            if {[punk::lib::check::has_tclbug_script_var]} {
-                append warningblock \n "minor warning: punk::lib::check::has_tclbug_script_var returned true! (string rep for list variable in script generated when script changed)"
-            }
-            if {[punk::lib::check::has_tclbug_safeinterp_compile]} {
-                set indent "    "
-                append warningblock \n "[a+ web-red]warning: punk::lib::check::has_tclbug_safeinterp returned true!" \n
-                append warningblock "${indent}(ensemble commands not compiled in safe interps - heavy performance impact in safe interps)" \n
-                append warningblock "${indent}see [punk::ansi::hyperlink https://core.tcl-lang.org/tcl/tktview/1095bf7f75]"
-                append warningblock [a]
-            }
-            if {[punk::lib::check::has_tclbug_lsearch_strideallinline]} {
-                set indent "    "
-                append warningblock \n "[a+ web-red]warning: punk::lib::check::has_tclbug_lsearch_strideallinline returned true!" \n
-                append warningblock "${indent}(lsearch using -stride -all -inline -subindices does not return values corresponding to subindex when a single -index value is used)" \n
-                append warningblock "${indent}see [punk::ansi::hyperlink https://core.tcl-lang.org/tcl/tktview/5a1aaa201d]"
-                append warningblock [a]
-            }
-            if {[punk::lib::check::has_tclbug_list_quoting_emptyjoin]} {
-                set indent "    "
-                append warningblock \n "[a+ web-red]warning: punk::lib::check::has_tclbug_list_quoting returned true!" \n
-                append warningblock "${indent}lists elements not properly quoted in some cases. e.g 'list {*}[lindex {etc #foo} 1] {*}[list]' (#foo not braced)" \n
-                append warningblock "${indent}see [punk::ansi::hyperlink https://core.tcl-lang.org/tcl/tktview/e38dce74e2]"
-            }
-        }
-
-        set text ""
-        if {$topic in [list env environment]} {
-            #todo - move to punk::config?
-            upvar ::punk::config::punk_env_vars_config  punkenv_config
-            upvar ::punk::config::other_env_vars_config otherenv_config
-
-            set known_punk [dict keys $punkenv_config]
-            set known_other [dict keys $otherenv_config]
-            append text \n
-            set usetable 1
-            if {$usetable} {
-                set t [textblock::class::table new -show_hseps 0 -show_header 1 -ansiborder_header [a+ web-green]]
-                if {"windows" eq $::tcl_platform(platform)} {
-                    #If any env vars have been set to empty string - this is considered a deletion of the variable on windows.
-                    #The Tcl ::env array is linked to the underlying process view of the environment
-                    #- but info exists ::env(var) can misreport as true if it has been deleted by setting to empty string rather than using unset.
-                    #an 'array get' will resynchronise.
-                    #Even if an env variable didn't exist before - setting it to empty string can get it to this inconsistent state.
-                    array get ::env
-                }
-                #do an array read on ::env
-                foreach {v vinfo} $punkenv_config {
-                    if {[info exists ::env($v)]} {
-                        set c2 [set ::env($v)]
-                    } else {
-                        set c2 "(NOT SET)"
-                    }
-                    set help ""
-                    if {[dict exists $vinfo help]} {
-                        set help [dict get $vinfo help]
-                    }
-                    $t add_row [list $v $c2 $help]
-                }
-                $t configure_column 0 -headers [list "Punk environment vars"]
-                $t configure_column 0 -minwidth [expr {[$t column_datawidth 0]+4}] -blockalign left -textalign left -header_colspans {any}
-
-                set punktable [$t print]
-                $t destroy
-
-                set t [textblock::class::table new -show_hseps 0 -show_header 1 -ansiborder_header [a+ web-green]]
-                foreach {v vinfo} $otherenv_config {
-                    if {[info exists ::env($v)]} {
-                        set env_val [set ::env($v)]
-                        if {[string match "*_TM_PATH" $v]} {
-                           set entries [split $env_val $::tcl_platform(pathSeparator)]
-                           set c2 [join $entries \n]
-                        } else {
-                            set c2 $::env($v)
-                        }
-                    } else {
-                        set c2 "(NOT SET)"
-                    }
-                    $t add_row [list $v $c2]
-                }
-                $t configure_column 0 -headers [list "Other environment vars"]
-                $t configure_column 0 -minwidth [expr {[$t column_datawidth 0]+4}] -blockalign left -textalign left -header_colspans {any}
-
-                set othertable [$t print]
-                $t destroy
-                #append text [textblock::join -- $punktable " " $othertable]\n
-                append text $punktable\n$othertable\n
-            } else {
-
-                append text $linesep\n
-                append text "punk environment vars:\n"
-                append text $linesep\n
-                set col1 [string repeat " " 25]
-                set col2 [string repeat " " 50]
-                foreach v $known_punk {
-                    set c1 [overtype::left $col1 $v]
-                    if {[info exists ::env($v)]} {
-                        set c2 [overtype::left $col2 [set ::env($v)]]
-                    } else {
-                        set c2 [overtype::right $col2 "(NOT SET)"]
-                    }
-                    append text "$c1 $c2\n"
-                }
-                append text $linesep\n
-            }
-
-            lappend chunks [list stdout $text]
-        }
-
-        if {$topic in [list console terminal]} {
-            set indent [string repeat " " [string length "WARNING: "]]
-            lappend cstring_tests [dict create\
-                type "PM "\
-                msg "UN"\
-                f7  punk::ansi::controlstring_PM\
-                f7prefix "7bit ESC ^ secret "\
-                f7suffix "safe"\
-                f8  punk::ansi::controlstring_PM8\
-                f8prefix "8bit \\x9e secret "\
-                f8suffix "safe"\
-            ]
-            lappend cstring_tests [dict create\
-                type SOS\
-                msg "NOT"\
-                f7  punk::ansi::controlstring_SOS\
-                f7prefix "7bit ESC X string "\
-                f7suffix " hidden"\
-                f8  punk::ansi::controlstring_SOS8\
-                f8prefix "8bit \\x98 string "\
-                f8suffix " hidden"\
-            ]
-            lappend cstring_tests [dict create\
-                type APC\
-                msg "NOT"\
-                f7  punk::ansi::controlstring_APC\
-                f7prefix "7bit ESC _ APPLICATION PROGRAM COMMAND "\
-                f7suffix " hidden"\
-                f8  punk::ansi::controlstring_APC8\
-                f8prefix "8bit \\x9f APPLICATION PROGRAM COMMAND "\
-                f8suffix " hidden"\
-            ]
-
-            foreach test $cstring_tests {
-                set m [[dict get $test f7] [dict get $test msg]]
-                set hidden_width_m [punk::console::test_char_width $m]
-                set m8 [[dict get $test f8] [dict get $test msg]]
-                set hidden_width_m8 [punk::console::test_char_width $m8]
-                if {$hidden_width_m != 0 || $hidden_width_m8 != 0} {
-                    if {$hidden_width_m == 0} {
-                        set d "[a+ green bold][dict get $test f7prefix][a red]${m}[a][a+ green bold][dict get $test f7suffix][a]"
-                    } else {
-                        set d "[a+ yellow bold][dict get $test f7prefix][a red]$m[a][a+ yellow bold][dict get $test f7suffix][a]"
-                    }
-                    if {$hidden_width_m8 == 0} {
-                        set d8 "[a+ green ][dict get $test f8prefix][a red]$m8[a][a+ green][dict get $test f8suffix][a]"
-                    } else {
-                        set d8 "[a+ yellow bold][dict get $test f8prefix][a red]$m8[a][a+ yellow bold][dict get $test f8suffix][a]"
-                    }
-                    append warningblock \n "WARNING: terminal doesn't hide all [dict get $test type] control strings: $d  $d8"
-                }
-            }
-            if {![catch {punk::console::check::has_bug_legacysymbolwidth} result]} {
-                if {$result} {
-                        append warningblock \n "WARNING: terminal has legacysymbolwidth bug - screen position for symbol reports 2 wide but displays 1 wide."
-                        append warningblock \n $indent "Layout using 'legacy symbols for computing' affected."
-                        append warningblock \n $indent "(e.g textblock frametype block2 unsupported)"
-                        append warningblock \n $indent "This can cause extreme layout deformation when ANSI is present"
-                        append warningblock \n $indent "In some cases unwanted spacing effects occur at a distance from the characters causing it"
-                }
-            } else {
-                append warningblock \n "WARNING: terminal unable to check for legacysymbolwidth bug. err:$result"
-            }
-
-            if {![catch {punk::console::check::has_bug_zwsp} result]} {
-                if {$result} {
-                        append warningblock \n "WARNING: terminal has zero width space (\\u200b) bug - cursor position incremented when it shouldn't be."
-                        append warningblock \n $indent "The zwsp may or may not be displayed. zwsp contributes to line length and wrapping point"
-                }
-            } else {
-                append warningblock \n "WARNING: terminal unable to check for zwsp bug. err:$result"
-            }
-
-
-            set grapheme_support [punk::console::grapheme_cluster_support]
-            #mode, 1 = set, 2 = unset. (0 = mode not recognised, 3 = permanently set, 4 = permanently unset)
-            if {![dict size $grapheme_support] || [dict get $grapheme_support mode] eq "unsupported" } {
-                append warningblock \n "WARNING: terminal either doesn't support grapheme clusters, or doesn't report so via decmode 2027 query."
-                if {[dict size $grapheme_support] && [dict get $grapheme_support available]} {
-                    append warningblock \n $indent "(but punk::console::grapheme_cluster_support has determined it is probably available)"
-                }
-            } else {
-                if {![dict get $grapheme_support available]} {
-                    switch -- [dict get $grapheme_support mode] {
-                        "unset" {
-                            append warningblock \n "WARNING: terminal reports via decmode 2027 that grapheme cluster support is off."
-                        }
-                        "permanently_unset" {
-                            append warningblock \n "WARNING: terminal reports via decmode 2027 that grapheme cluster support is permanently off."
-                        }
-                        "BAD_RESPONSE" {
-                            append warningblock \n "WARNING: terminal doesn't seem to recognize decmode 2027 query. No grapheme cluster support."
-                        }
-                    }
-                }
-            }
-
-        }
-
-        lappend chunks [list stderr $warningblock]
-        if {$topic in [list topics help]} {
-           set text ""
-           set topics [dict create\
-                "topics|help"  "List help topics"\
-                "tcl"  "Tcl version warnings"\
-                "env|environment"  "punkshell environment vars"\
-                "console|terminal" "Some console behaviour tests and warnings"\
-           ]
-
-           set t [textblock::class::table new -show_seps 0]
-           $t add_column -headers [list "Topic"]
-           $t add_column
-           foreach {k v}  $topics {
-                $t add_row [list $k $v]
-           }
-           set widest0 [$t column_datawidth 0]
-           $t configure_column 0 -minwidth [expr {$widest0 + 4}]
-           append text \n[$t print]
-
-           lappend chunks [list stdout $text]
-        }
-
-        return $chunks
-    }
-    proc help {args} {
-        set chunks [help_chunks {*}$args]
-        foreach chunk $chunks {
-            lassign $chunk chan text
-            puts -nonewline $chan $text
-        }
-    }
-    proc mode {{raw_or_line query}} {
-        package require punk::console
-        tailcall ::punk::console::mode $raw_or_line
-    }
-
-    #this hides windows cmd's mode command - probably no big deal - anyone who needs it will know how to exec it.
-    interp alias {} mode {} punk::mode
-
-    proc aliases {{glob *}} {
-        tailcall punk::lib::aliases $glob
-    }
-    proc alias {{aliasorglob ""} args} {
-        tailcall punk::lib::alias $aliasorglob {*}$args
-    }
-
-
-    #pipeline-toys - put in lib/scriptlib?
-    ##geometric mean
-    #alias gmean .=> llength |> expr 1.0 / |e> .=i>* tcl::mathop::* |> .=>1,e>3 expr ** <i|
-    #straight apply approx 30x faster
-    #alias gmean2 apply {args {expr [tcl::mathop::* {*}$args] ** [expr 1.0/[llength $args]]}}
-
-    #know is critical to the punk repl for proper display output
-    interp alias {} know    {} punk::know
-    interp alias  {} know?   {} punk::know?
-
-    #interp alias {} val     {} punk::val
-
-    interp alias {} exitcode {} punk::exitcode
-    interp alias {} hide {} punkapp::hide_console ;#will only work if controllable toplevels exist
-
-
-
-    #sh style 'test' and 'exitcode' (0 is false)
-    interp alias {} sh_test {} punk::sh_test
-    interp alias {} sh_echo {} punk::sh_echo
-    interp alias {} sh_TEST {} punk::sh_TEST
-    interp alias {} sh_ECHO {} punk::sh_ECHO
-
-
-
-
-    #friendly sh aliases (which user may wish to disable e.g if conflicts)
-    interp alias {} test {} punk::sh_test ;#not much reason to run 'test' directly in punk shell (or tclsh shell) as returncode not obvious anyway due to use of exec
-    interp alias {} TEST {} punk::sh_TEST; #double-evaluation to return tcl true/false from exitcode
-    interp alias {} echo {} punk::sh_echo
-    interp alias {} ECHO {} punk::sh_ECHO
-
-
-    interp alias {} help {} punk::help
-    interp alias {} treemore {} punk::xmore tree
-
-    interp alias {} tmhere {} .= pwd |path> {::tcl::tm::add {*}$data; set path} |> inspect -label added_to_module_path <0/#|
-
-
-
-
-
-    #interp alias {} c {} clear   ;#external executable 'clear' may not always be available
-    #todo - review
-    interp alias {} clear {} ::punk::reset
-    interp alias {} c {}     ::punk::reset
-    proc reset {} {
-        if {[llength [info commands ::punk::repl::reset_terminal]]} {
-            #punk::repl::reset_terminal notifies prompt system of reset
-            punk::repl::reset_terminal
-        } else {
-            puts -nonewline stdout [punk::ansi::reset]
-        }
-    }
-
-
-
-    #fileutil::cat except with checking for windows illegal path names (when on windows platform)
-    interp alias {} fcat     {} punk::mix::util::fcat
-
-    #----------------------------------------------
-    interp alias {} linelistraw {} punk::linelistraw
-
-    # 'path' collides with kettle path in kettle::doc function - todo - patch kettle?
-    interp alias {} PATH {} punk::path
-
-    interp alias {} path_list {} punk::path_list
-    interp alias {} list_filter_cond {} punk::list_filter_cond
-
-
-    interp alias {} inspect       {} punk::inspect
-    interp alias {} ooinspect       {} punk::ooinspect
-
-    interp alias {} linedict {} punk::linedict
-    interp alias {} dictline {} punk::dictline
-
-    #todo - pipepure - evaluate pipeline in a slave interp without commands that have side-effects. (safe interp?)
-    interp alias {} %          {} punk::%
-    interp alias {} pipeswitch {} punk::pipeswitch
-    interp alias {} pipeswitchc {} punk::pipeswitchc  ;#closure version - more correct
-    interp alias {} pipecase   {} punk::pipecase
-    interp alias {} pipematch {} punk::pipematch
-    interp alias {} ispipematch {} punk::ispipematch
-    interp alias {} pipenomatchvar {} punk::pipenomatchvar
-    interp alias {} pipedata       {} punk::pipedata
-    interp alias {} pipeset        {} punk::pipeset
-    interp alias {} pipealias      {} punk::pipealias
-    interp alias {} listset        {} punk::listset  ;#identical to pipeset
-
-
-    #non-core aliases
-    interp alias {} is_list_all_in_list {} punk::lib::is_list_all_in_list
-    interp alias {} is_list_all_ni_list {} punk::libis_list_all_ni_list
-
-
-
-    #interp alias {} = {} ::punk::pipeline = "" ""
-    #interp alias {} = {} ::punk::match_assign "" ""
-    interp alias {} .= {} ::punk::pipeline .= "" ""
-    #proc .= {args} {
-    #    #uplevel 1 [list ::punk::pipeline .= "" "" {*}$args]
-    #    tailcall ::punk::pipeline .= "" "" {*}$args
-    #}
-
-
-    interp alias {} rep {} ::tcl::unsupported::representation
-    interp alias {} dis {} ::tcl::unsupported::disassemble
-
-
-
-    # ls aliases - note that tcl doesn't exand * but sh_xxx functions pass to sh -c allowing shell expansion
-    interp alias {} l  {} sh_runout -n ls -A  ;#plain text listing
-    #interp alias {} ls {} sh_runout -n ls -AF --color=always
-    interp alias {} ls {} shellrun::runconsole ls -AF --color=always ;#use unknown to use terminal and allow | more | less
-    #note that shell globbing with * won't work on unix systems when using unknown/exec
-    interp alias {} lw {} sh_runout -n ls -AFC --color=always   ;#wide listing  (use A becaus no extra info on . & ..)
-    interp alias {} ll {} sh_runout -n ls -laFo --color=always  ;#use a instead of A to see perms/owner of . & ..
-    # -v for natural number sorting not supported on freeBSD. Todo - test at startup and modify aliases?
-    #interp alias {} lw {} ls -aFv --color=always
-
-    interp alias {} dir {} shellrun::runconsole dir
-
-    # punk::nav::fs
-    package require punk::nav::fs
-    interp alias {} ./  {} punk::nav::fs::d/
-    interp alias {} ../ {} punk::nav::fs::dd/
-    interp alias {} d/  {} punk::nav::fs::d/
-    interp alias {} dd/ {} punk::nav::fs::dd/
-
-    interp alias {} vwd {} punk::nav::fs::vwd ;#return punk::nav::fs::VIRTUAL_CWD - and report to stderr pwd if different
-    interp alias {} dirlist {} punk::nav::fs::dirlist
-    interp alias {} dirfiles {} punk::nav::fs::dirfiles
-    interp alias {} dirfiles_dict {} punk::nav::fs::dirfiles_dict
-
-    interp alias {} ./new {} punk::nav::fs::d/new
-    interp alias {} d/new {} punk::nav::fs::d/new
-    interp alias {} ./~ {} punk::nav::fs::d/~
-    interp alias {} d/~ {} punk::nav::fs::d/~
-    interp alias "" x/ "" punk::nav::fs::x/
-
-    variable pshell_path ""
-    # ----------------------------------------
-    set pshell_path [auto_execok pwsh] ;#Still not installed by default on win10 11?
-    if {$pshell_path eq ""} {
-        #fallback to powershell 5
-        #set pshell_path [auto_execok powershell]
-        set pshell_path powershell ;#temp
-    } else {
-        set pshell_path pwsh ;#temp
-    }
-    #todo - review run commands and handling of paths with spaces
-    # ----------------------------------------
-
-
-
-    if {$pshell_path eq ""} {
-        set has_powershell 0
-    } else {
-        #todo - review powershell detection on non-windows platforms
-        set has_powershell 1
-    }
-
-    if {$::tcl_platform(platform) eq "windows"} {
-        interp alias {} dl {} dir /q
-        interp alias {} dw {} dir /W/D
-    } else {
-        #todo - natsorted equivalent
-        #interp alias {} dl {}
-        interp alias {} dl {} puts stderr "not implemented"
-        interp alias {} dw {} puts stderr "not implemented"
-    }
-
-    #todo - distinguish non-preinstalled pwsh (powershell core) from powershell which is available by default
-    if {$has_powershell} {
-        #see also powershell runspaces etc:
-        # powershell runspaces  e.g $rs=[RunspaceFactory]::CreateRunspace()
-        # $ps = [Powershell]::Create()
-
-        interp alias {} pse   {} exec >@stdout {*}$pshell_path -nolo -nop -c
-        interp alias {} psx  {} runx -n {*}$pshell_path -nop -nolo -c
-        interp alias {} psr  {} run -n {*}$pshell_path -nop -nolo -c
-        interp alias {} psout  {} runout -n {*}$pshell_path -nop -nolo -c
-        interp alias {} pserr  {} runerr -n {*}$pshell_path -nop -nolo -c
-        #interp alias {} psls {} shellrun::runconsole $pshell_path -nop -nolo -c ls
-        #interp alias {} psls {} shellrun::runconsole {*}$pshell_path -nop -nolo -c {ls | Select-Object Mode, @{Name='Owner';Expression={(Get-Acl $_.FullName).Owner}}, LastWriteTime, Length, Name | Format-Table}
-        proc psls args {
-            variable pshell_path
-            shellrun::runconsole {*}$pshell_path -nop -nolo -c  {*}[string map [list %a% $args] {{ls %a% | Select-Object Mode, @{Name='Owner';Expression={(Get-Acl $_.FullName).Owner}}, LastWriteTime, Length, Name | Format-Table}}]
-        }
-        interp alias {} psls {} punk::psls
-        interp alias {} psps {} shellrun::runconsole {*}$pshell_path -nop -nolo -c ps
-    } else {
-        set ps_missing "powershell missing (powershell is MIT licensed open source and can be installed on windows and most unix-like platforms)"
-        interp alias {} pse {} puts stderr  $ps_missing
-        interp alias {} psx {} puts stderr  $ps_missing
-        interp alias {} psr {} puts stderr  $ps_missing
-        interp alias {} psout {} puts stderr  $ps_missing
-        interp alias {} pserr {} puts stderr  $ps_missing
-        interp alias {} psls {} puts stderr  $ps_missing
-        interp alias {} psps {} puts stderr  $ps_missing
-    }
-    proc psencode {cmdline} {
-
-    }
-    proc psdecode {encodedcmd} {
-
-    }
-
-    proc repl {startstop} {
-        switch -- $startstop {
-            stop {
-                if {[punk::repl::codethread::is_running]} {
-                    puts stdout "Attempting repl stop. Try ctrl-c or exit command to leave interpreter"
-                    set ::repl::done 1
-                }
-            }
-            start {
-                if {[punk::repl::codethread::is_running]} {
-                    repl::start stdin
-                }
-            }
-            default {
-                error "repl unknown action '$startstop' - must be start or stop"
-            }
-        }
-    }
-
-}
-
-
-# -- --- --- ---
-#Load decks. commandset packages are not loaded until the deck is called.
-# -- --- --- ---
-package require punk::mod
-#punk::mod::cli set_alias pmod
-punk::mod::cli set_alias app
-
-#todo - change to punk::dev
-package require punk::mix
-punk::mix::cli set_alias dev
-punk::mix::cli set_alias deck ;#deprecate!
-
-#todo - add punk::deck for managing cli modules and commandsets
-
-package require punkcheck::cli
-punkcheck::cli set_alias pcheck
-punkcheck::cli set_alias punkcheck
-# -- --- --- ---
-
-package provide punk [namespace eval punk {
-    #FUNCTL
-    variable version
-    set version 0.1
-}]
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/aliascore-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/aliascore-0.1.0.tm
deleted file mode 100644
index b8fada0b..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/aliascore-0.1.0.tm
+++ /dev/null
@@ -1,346 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::aliascore 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::aliascore 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {punkshell command aliases}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}]
-#[require punk::aliascore]
-#[keywords module alias]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::aliascore
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::aliascore
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#tcl::namespace::eval punk::aliascore::class {
-#    #*** !doctools
-#    #[subsection {Namespace punk::aliascore::class}]
-#    #[para] class definitions
-#    if {[info commands [namespace current]::interface_sample1] eq ""} {
-#        #*** !doctools
-#        #[list_begin enumerated]
-#
-#        # oo::class create interface_sample1 {
-#        #     #*** !doctools
-#        #     #[enum] CLASS [class interface_sample1]
-#        #     #[list_begin definitions]
-#
-#        #     method test {arg1} {
-#        #         #*** !doctools
-#        #         #[call class::interface_sample1    [method test] [arg arg1]]
-#        #         #[para] test method
-#        #         puts "test: $arg1"
-#        #     }
-#
-#        #     #*** !doctools
-#        #     #[list_end] [comment {-- end definitions interface_sample1}]
-#        # }
-#
-#        #*** !doctools
-#        #[list_end] [comment {--- end class enumeration ---}]
-#    }
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::aliascore {
-    tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase
-    variable aliases
-    #use absolute ns ie must be prefixed with ::
-    #single element commands are imported if source command already exists, otherwise aliased. multi element commands are aliased
-
-    #functions should generally be covered by one of the export patterns of their source namespace
-    # - if they are not - e.g (separately loaded ensemble command ?)
-    #   the aliascore::init will temporarily extend the exports list to do the import, and then reset the exports to how they were.
-    set aliases [tcl::dict::create\
-        val           ::punk::pipe::val\
-        aliases       ::punk::lib::aliases\
-        alias         ::punk::lib::alias\
-        tstr          ::punk::lib::tstr\
-        list_as_lines ::punk::lib::list_as_lines\
-        lines_as_list ::punk::lib::lines_as_list\
-        linelist      ::punk::lib::linelist\
-        linesort      ::punk::lib::linesort\
-        pdict         ::punk::lib::pdict\
-        plist         {::punk::lib::pdict -roottype list}\
-        showlist      {::punk::lib::showdict -roottype list}\
-        grepstr       ::punk::grepstr\
-        rehash        ::punk::rehash\
-        showdict      ::punk::lib::showdict\
-        ansistrip     ::punk::ansi::ansistrip\
-        stripansi     ::punk::ansi::ansistrip\
-        ansiwrap      ::punk::ansi::ansiwrap\
-        colour        ::punk::console::colour\
-        color         ::punk::console::colour\
-        ansi          ::punk::console::ansi\
-        a?            ::punk::console::code_a?\
-        A?            {::punk::console::code_a? forcecolor}\
-        a+            ::punk::console::code_a+\
-        A+            {::punk::console::code_a+ forcecolour}\
-        a             ::punk::console::code_a\
-        A             {::punk::console::code_a forcecolour}\
-        smcup         ::punk::console::enable_alt_screen\
-        rmcup         ::punk::console::disable_alt_screen\
-        config        ::punk::config\
-        s             ::punk::ns::synopsis\
-        eg            ::punk::ns::eg\
-    ]
-
-    #*** !doctools
-    #[subsection {Namespace punk::aliascore}]
-    #[para] Core API functions for punk::aliascore
-    #[list_begin definitions]
-
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok"
-    #}
-
-    proc _is_exported {ns cmd} {
-        set exports [::tcl::namespace::eval $ns [list namespace export]]
-        set is_exported 0
-        foreach p $exports {
-            if {[string match $p $cmd]} {
-                set is_exported 1
-                break
-            }
-        }
-        return $is_exported
-    }
-
-    #_nsprefix accepts entire command - not just an existing namespace for which we want the parent
-    proc _nsprefix {{nspath {}}} {
-        #maintenance: from punk::ns::nsprefix - (without unnecessary nstail)
-        #normalize the common case of ::::
-        set nspath [string map {:::: ::} $nspath]
-        set rawprefix [string range $nspath 0 end-[string length [namespace tail $nspath]]]
-        if {$rawprefix eq "::"} {
-            return $rawprefix
-        } else {
-            if {[string match *:: $rawprefix]} {
-                return  [string range $rawprefix 0 end-2]
-            } else {
-                return $rawprefix
-            }
-        }
-    }
-
-    #todo - options as to whether we should raise an error if collisions found, undo aliases etc?
-    proc init {args} {
-        set defaults {-force 0}
-        set opts [dict merge $defaults $args]
-        set opt_force   [dict get $opts -force]
-
-        #we never override existing aliases to ::repl::interp* even if -force = 1
-        #(these are our safebase aliases)
-        set ignore_pattern "::repl::interp*"
-        set ignore_aliases [list]
-
-        variable aliases
-        set existing [list]
-        set conflicts [list]
-        foreach {a cmd} $aliases {
-            if {[tcl::info::commands ::$a] ne ""} {
-                lappend existing $a
-                set existing_alias [interp alias "" $a]
-                if {$existing_alias ne ""} {
-                    set existing_target $existing_alias
-                    if {[string match $ignore_pattern $existing_target]} {
-                        #don't consider it a conflict - will use ignore_aliases to exclude it below
-                        lappend ignore_aliases $a
-                        continue
-                    }
-                } else {
-                    if {[catch {tcl::namespace::origin $a} existing_command]} {
-                        set existing_command ""
-                    }
-                    set existing_target $existing_command
-                }
-
-                if {$existing_target ne $cmd} {
-                    #command exists in global ns but doesn't match our defined aliases/imports
-                    lappend conflicts $a
-                }
-            }
-        }
-        if {!$opt_force && [llength $conflicts]} {
-            error "punk::aliascore::init declined to create any aliases or imports because -force == 0 and conflicts found:$conflicts"
-        }
-
-        set failed [list]
-        set tempns ::temp_[info cmdcount] ;#temp ns for renames
-        dict for {a cmd} $aliases {
-            #puts "aliascore $a -> $cmd"
-            if {$a in $ignore_aliases} {
-                continue
-            }
-            if {[llength $cmd] > 1} {
-                interp alias {} $a {} {*}$cmd
-            } else {
-                if {[tcl::info::commands $cmd] ne ""} {
-                    #todo - ensure exported? noclobber?
-                    set container_ns [_nsprefix $cmd]
-                    set cmdtail [tcl::namespace::tail $cmd]
-                    set was_exported 1 ;#assumption
-                    if {![_is_exported $container_ns $cmdtail]} {
-                        set was_exported 0
-                        set existing_exports [tcl::namespace::eval $container_ns [list ::namespace export]]
-                        tcl::namespace::eval $container_ns [list ::namespace export $cmdtail]
-                    }
-                    if {[tcl::namespace::tail $a] eq $cmdtail} {
-                        #puts stderr "importing $cmd"
-                        try {
-                            tcl::namespace::eval :: [list ::namespace import $cmd]
-                        } trap {} {emsg eopts} {
-                            lappend failed [list alias $a target $cmd errormsg $emsg]
-                        }
-                    } else {
-                        #target command name differs from exported name
-                        #e.g stripansi -> punk::ansi::ansistrip
-                        #import and rename
-                        #puts stderr "importing $cmd (with rename to ::$a)"
-                        try {
-                            tcl::namespace::eval $tempns [list ::namespace import $cmd]
-                        } trap {} {emsg eopst} {
-                            lappend failed [list alias $a target $cmd errormsg $emsg]
-                        }
-                        catch {rename ${tempns}::$cmdtail ::$a}
-                    }
-                    #restore original exports
-                    if {!$was_exported} {
-                        tcl::namespace::eval $container_ns [list ::namespace export -clear {*}$existing_exports]
-                    }
-                } else {
-                    interp alias {} $a {} {*}$cmd
-                }
-            }
-        }
-        #tcl::namespace::delete $tempns
-        return [dict create aliases [dict keys $aliases] existing $existing ignored $ignore_aliases changed $conflicts failed $failed]
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::aliascore ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#interp alias {} list_as_lines {} punk::lib::list_as_lines
-#interp alias {} lines_as_list {} punk::lib::lines_as_list
-#interp alias {} ansistrip     {} punk::ansi::ansistrip ;#review
-#interp alias {} linelist {} punk::lib::linelist ;#critical for = assignment features
-#interp alias {} linesort {} punk::lib::linesort
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::aliascore::lib {
-    namespace export {[a-z]*} ;# Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace punk::aliascore::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::aliascore::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval punk::aliascore::system {
-    #*** !doctools
-    #[subsection {Namespace punk::aliascore::system}]
-    #[para] Internal functions that are not part of the API
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::aliascore [namespace eval punk::aliascore {
-    variable pkg punk::aliascore
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm
deleted file mode 100644
index 15421402..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm
+++ /dev/null
@@ -1,8727 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::ansi 0.1.1
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::ansi 0 0.1.1]
-#[copyright "2023"]
-#[titledesc {Ansi string functions}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk Ansi library}]             [comment {-- Description at end of page heading --}]
-#[require punk::ansi]
-#[keywords module ansi terminal console string]
-#[description]
-#[para]Ansi based terminal control string functions
-#[para]See [package punk::ansi::console] for related functions for controlling a console
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::ansi
-#[para]punk::ansi functions return their values - no implicit emission to console/stdout
-#[subsection Concepts]
-#[para]Ansi codes can be used to control most terminals on most platforms in an 'almost' standard manner
-#[para]There are many differences in terminal implementations - but most should support a core set of features
-#[para]punk::ansi does not contain any code for direct terminal manipulation via the local system APIs.
-#[para]Sticking to ansi codes where possible may be better for cross-platform and remote operation where such APIs are unlikely to be useable.
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::ansi
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::char
-package require punk::assertion
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {punk::char}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-tcl::namespace::eval punk::ansi::class {
-    if {![llength [tcl::info::commands class_ansi]]} {
-
-        oo::class create class_ansi {
-            variable o_ansistringobj
-
-            variable o_render_dimensions ;#last dimensions at which we rendered
-            variable o_rendered
-            variable o_rendered_what
-            constructor {ansitext {dimensions 80x25}} {
-                if {![regexp {^([0-9]+)[xX]([0-9]+)$} $dimensions _m w h]} {
-                    error "class_ansi::render dimensions must be of the form <width>x<height>"
-                }
-
-                #a straight string compare may be faster.. but a checksum is much smaller in memory, so we'll use that by default.
-                set o_rendered_what ""
-                #There may also be advantages to renering to a class_ansistring class object
-
-                set o_render_dimensions $dimensions
-                set o_ansistringobj [ansistring NEW $ansitext]
-            }
-            method get {} {
-                return [$o_ansistringobj get]
-            }
-            method render {{dimensions ""}} {
-                if {$dimensions eq ""} {
-                    set dimensions $o_render_dimensions
-                }
-                if {![regexp {^([0-9]+)[xX]([0-9]+)$} $dimensions _m w h]} {
-                    error "class_ansi::render dimensions must be of the form <width>x<height>"
-                }
-                set cksum "not-done"
-                if {$dimensions ne $o_render_dimensions || $o_rendered_what ne [set cksum [$o_ansistringobj checksum]]} {
-                    #some ansi layout/art relies on wrapping at the width-dimension to display properly
-                    #this includes cursor movements ie right arrow can move cursor to columns in lines below
-                    #overflow is a different concept - perhaps not particularly congruent with the idea of the textblock as a mini terminal emulator.
-                    #overflow effectively auto-expands the block(terminal?) width
-                    #overflow and wrap both being true won't make sense unless we implement a max_overflow concept
-                    set o_rendered [overtype::renderspace -expand_right 0 -wrap 1 -width $w -height $h -appendlines 1 "" [$o_ansistringobj get]]
-                    if {$cksum eq "not-done"} {
-                        #if dimensions changed - the checksum won't have been done
-                        set o_rendered_what [$o_ansistringobj checksum]
-                    } else {
-                        set o_rendered_what $cksum
-                    }
-                    set o_render_dimensions $dimensions
-                }
-
-                #todo - store rendered and allow partial rendering of new data lines?
-                return $o_rendered
-            }
-            method rendertest {{dimensions ""}} {
-                if {$dimensions eq ""} {
-                    set dimensions $o_render_dimensions
-                }
-                if {![regexp {^([0-9]+)[xX]([0-9]+)$} $dimensions _m w h]} {
-                    error "class_ansi::render dimensions must be of the form <width>x<height>"
-                }
-                set o_dimensions $dimensions
-
-
-                set rendered [overtype::renderspace -cp437 1 -expand_right 0 -wrap 1 -width $w -height $h -appendlines 1 "" [$o_ansistringobj get]]
-                return $rendered
-            }
-
-            lappend ::punk::ansi::class::PUNKARGS [list {
-                @id     -id "::punk::ansi::class::class_ansi render_to_input_line"
-                @cmd    -name "punk::ansi::class::class_ansi render_to_input_line" -help\
-                    "render string from line 0 to line
-                      (experimental/debug)"
-                -dimensions -type string -help\
-                    "WxH where W is integer width >= 1 and H is integer heigth >= 1"
-                -minus -type integer -help\
-                    "number of chars to exclude from end"
-                @values -min 1 -max 1
-                line -type indexexpression
-            }]
-            method render_to_input_line {args} {
-                if {[llength $args] < 1} {
-                    puts stderr "render_to_input_line usage: ?-dimensions WxH? ?-minus charcount? x"
-                    punk::args::get_by_id "::punk::ansi::class::class_ansi render_to_input_line" $args
-                }
-                set x [lindex $args end]
-                set arglist [lrange $args 0 end-1]
-                if {[llength $arglist] %2 != 0} {
-                    puts stderr "render_to_input_line usage: ?-dimensions WxH? ?-minus charcount? x"
-                    punk::args::get_by_id "::punk::ansi::class::class_ansi render_to_input_line" $args
-                }
-                set opts [tcl::dict::create\
-                    -dimensions 80x24\
-                    -minus 0\
-                ]
-                foreach {k v} $arglist {
-                    switch --  $k {
-                        -dimensions - -minus {
-                            tcl::dict::set opts $k $v
-                        }
-                        default {
-                            puts stderr "render_to_input_line unexpected argument '$k' usage: ?-dimensions WxH? ?-minus charcount? x"
-                            punk::args::get_by_id "::punk::ansi::class::class_ansi render_to_input_line" $args
-                        }
-                    }
-                }
-                set opt_dimensions      [tcl::dict::get $opts -dimensions]
-                set opt_minus           [tcl::dict::get $opts -minus]
-                lassign [split $opt_dimensions x] w h
-                if {![tcl::string::is integer -strict $w] || ![tcl::string::is integer -strict $h] || $w < 1 || $h < 1} {
-                    puts stderr "render_to_input_line WxH width & height must be positive integer values usage: ?-dimensions WxH? ?-minus charcount? x"
-                }
-                if {![tcl::string::is integer -strict $opt_minus]} {
-                    puts stderr "render_to_input_line -minus must be positive integer value representing number of chars to exclude from end. usage: ?-dimensions WxH? ?-minus charcount? x"
-                }
-
-                package require textblock
-                set lfvis [ansistring VIEW -lf 1 \n]
-                set maplf [list \n "[a+ green bold reverse]${lfvis}[a]\n"] ;#a mapping to highlight newlines
-
-                set lines [split [$o_ansistringobj get] \n]
-                set rlines [lrange $lines 0 $x]
-                set chunk [::join $rlines \n]
-                append chunk \n
-                if {$opt_minus ne "0"} {
-                   set chunk [tcl::string::range $chunk 0 end-$opt_minus]
-                }
-                set rendered [overtype::renderspace -expand_right 0 -wrap 1 -width $w -height $h -appendlines 1 "" $chunk]
-                set marker ""
-                for {set i 1} {$i <= $w} {incr i} {
-                    if {$i % 10 == 0} {
-                        ::append marker "|"
-                    } elseif {$i % 5 == 0} {
-                        ::append marker *
-                    } else {
-                        ::append marker "."
-                    }
-                }
-                ::append rendered \n $marker
-                set xline [lindex $rlines $x]\n
-                set xlinev [ansistring VIEWSTYLE $xline]
-                set xlinev [tcl::string::map $maplf $xlinev]
-                set xlinedisplay [overtype::renderspace -wrap 1 -width $w -height 1 "" $xlinev]
-                ::append rendered \n $xlinedisplay
-
-                set chunk [ansistring VIEWSTYLE $chunk]
-                set chunk [tcl::string::map $maplf $chunk]
-                #keep chunkdisplay narrower - leave at 80 or it will get unwieldy for larger image widths
-                set chunkdisplay [overtype::renderspace -wrap 1 -width 80 -height 1 "" $chunk]
-                set renderheight [llength [split $rendered \n]]
-                set chunkdisplay_lines [split $chunkdisplay \n]
-                set chunkdisplay_tail [lrange $chunkdisplay_lines end-$renderheight end]
-                set chunkdisplay_block [join $chunkdisplay_tail \n]
-                #the input chunk lines are often much longer than the output.. resulting in main content being way up the screen. It's often impractical to view more than the tail of the chunkdisplay.
-                textblock::join -- $rendered $chunkdisplay_block
-            }
-
-            method checksum {} {
-                return [$o_ansistringobj checksum]
-            }
-            method checksum_last_rendered_input {} {
-                return $o_rendered_what
-            }
-            #todo - fix class_ansistring so the ansistring methods can be called directly
-            method viewlines {} {
-                return [ansistring VIEW [$o_ansistringobj get]]
-            }
-            method viewcodes {args} {
-                set defaults [list\
-                    -lf 0\
-                    -vt 0\
-                    -width "auto"\
-                ]
-                set opts $defaults
-                foreach {k v} $args {
-                    switch -- $k {
-                        -lf - -vt - -width {
-                            tcl::dict::set opts $k $v
-                        }
-                        default {
-                            error "viewcodes unrecognised option '$k'. Known options [tcl::dict::keys $defaults]"
-                        }
-                    }
-                }
-                set opts_lf [tcl::dict::get $opts -lf]
-                set opts_vt [tcl::dict::get $opts -vt]
-                set opts_width [tcl::dict::get $opts -width]
-                if {$opts_width eq ""} {
-                    return [ansistring VIEWCODES -lf $opts_lf -vt $opts_vt [$o_ansistringobj get]]
-                } elseif {$opts_width eq "auto"} {
-                    lassign [punk::console::get_size] _cols columns _rows rows
-                    set displaycols [expr {$columns -4}] ;#review
-                    return [overtype::renderspace -width $displaycols -wrap 1 "" [ansistring VIEWCODES -lf $opts_lf -vt $opts_vt [$o_ansistringobj get]]]
-                } elseif {[tcl::string::is integer -strict $opts_width] && $opts_width > 0} {
-                    return [overtype::renderspace -width $opts_width -wrap 1 "" [ansistring VIEWCODES -lf $opts_lf -vt $opts_vt [$o_ansistringobj get]]]
-                } else {
-                    error "viewcodes unrecognised value for -width. Try auto or a positive integer"
-                }
-            }
-            method viewchars {args} {
-                set defaults [list\
-                   -width "auto"\
-                ]
-                set opts $defaults
-                foreach {k v} $args {
-                    switch -- $k {
-                        -width {
-                            tcl::dict::set opts $k $v
-                        }
-                        default {
-                            error "viewchars unrecognised option '$k'. Known options [tcl::dict::keys $defaults]"
-                        }
-                    }
-                }
-                set opts_width [tcl::dict::get $opts -width]
-                if {$opts_width eq ""} {
-                    return [punk::ansi::ansistripraw [$o_ansistringobj get]]
-                } elseif {$opts_width eq "auto"} {
-                    lassign [punk::console::get_size] _cols columns _rows rows
-                    set displaycols [expr {$columns -4}] ;#review
-                    return [overtype::renderspace -width $displaycols -wrap 1 "" [punk::ansi::ansistripraw [$o_ansistringobj get]]]
-                } elseif {[tcl::string::is integer -strict $opts_width] && $opts_width > 0} {
-                    return [overtype::renderspace -width $opts_width -wrap 1 "" [punk::ansi::ansistripraw [$o_ansistringobj get]]]
-                } else {
-                    error "viewchars unrecognised value for -width. Try auto or a positive integer"
-                }
-            }
-            method viewstyle {args} {
-                set defaults [list\
-                   -width "auto"\
-                ]
-                set opts $defaults
-                foreach {k v} $args {
-                    switch -- $k {
-                        -width {
-                            tcl::dict::set opts $k $v
-                        }
-                        default {
-                            error "viewstyle unrecognised option '$k'. Known options [tcl::dict::keys $defaults]"
-                        }
-                    }
-                }
-                set opts_width [tcl::dict::get $opts -width]
-                if {$opts_width eq ""} {
-                    return [ansistring VIEWSTYLE [$o_ansistringobj get]]
-                } elseif {$opts_width eq "auto"} {
-                    lassign [punk::console::get_size] _cols columns _rows rows
-                    set displaycols [expr {$columns -4}] ;#review
-                    return [overtype::renderspace -width $displaycols -wrap 1 "" [ansistring VIEWSTYLE [$o_ansistringobj get]]]
-                } elseif {[tcl::string::is integer -strict $opts_width] && $opts_width > 0} {
-                    return [overtype::renderspace -width $opts_width -wrap 1 "" [ansistring VIEWSTYLE [$o_ansistringobj get]]]
-                } else {
-                    error "viewstyle unrecognised value for -width. Try auto or a positive integer"
-                }
-            }
-            method append_noreturn {ansistring} {
-                $o_ansistringobj append $ansistring
-                #don't return the raw data - it may be big and probably won't play nicely with default terminal dimensions etc.
-                return
-            }
-            #like Tcl append - returns the result
-            #Tcl's append changes a variable state, this changes the object state
-            method append {ansistring} {
-                $o_ansistringobj append $ansistring
-            }
-
-        }
-    }
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::ansi {
-    variable PUNKARGS
-    #*** !doctools
-    #[subsection {Namespace punk::ansi}]
-    #[para] Core API functions for punk::ansi
-    #[list_begin definitions]
-
-    #old-school ansi graphics - C0 control glyphs.
-    variable cp437_map
-    #for cp437 images we need to map these *after* splitting ansi, to single-width unicode chars
-    #It would also probably be problematic to map \u000A to the glyph - as this is the newline - it included in the map anyway for completeness. The caller may have to manually carve that or other specific c0 controls out of the map to use it depending on the situation(?)
-    #Layout for cp437 won't be right if you don't at least set width of control-chars to 1 - but also some images specifically use these glyphs
-    #most fonts don't seem to supply graphics for these control characters even when cp437 is in use - the c1 control glyphs appear to be more widely available - but we could add them here too
-    #by mapping these we can display regardless.
-    #nul char - no cp437 image but commonly used as space in ansi graphics.
-    #(This is a potential conflict because we use nul as a filler to mean empty column in overtype rendering) REVIEW
-    tcl::dict::set cp437_map \u0000 " "     ;#space
-    tcl::dict::set cp437_map \u0001 \u263A  ;#smiley
-    tcl::dict::set cp437_map \u0002 \u263B  ;#smiley-filled
-    tcl::dict::set cp437_map \u0003 \u2665  ;#heart
-    tcl::dict::set cp437_map \u0004 \u2666  ;#diamond
-    tcl::dict::set cp437_map \u0005 \u2663  ;#club
-    tcl::dict::set cp437_map \u0006 \u2660  ;#spade
-    tcl::dict::set cp437_map \u0007 \u2022  ;#dot
-    tcl::dict::set cp437_map \u0008 \u25D8  ;#square hollow dot
-    tcl::dict::set cp437_map \u0009 \u25CB  ;#hollow dot
-    tcl::dict::set cp437_map \u000A \u25D9  ;#square and dot  (\n)
-    tcl::dict::set cp437_map \u000B \u2642  ;#male
-    tcl::dict::set cp437_map \u000C \u2640  ;#female
-    tcl::dict::set cp437_map \u000D \u266A  ;#note1   (\r)
-    tcl::dict::set cp437_map \u000E \u266B  ;#note2
-    tcl::dict::set cp437_map \u000F \u263C  ;#sun
-    tcl::dict::set cp437_map \u0010 \u25BA  ;#right arrow triangle
-    tcl::dict::set cp437_map \u0011 \u25CA  ;#left arrow triangle
-    tcl::dict::set cp437_map \u0012 \u2195  ;#updown arrow
-    tcl::dict::set cp437_map \u0013 \u203C  ;#double bang
-    tcl::dict::set cp437_map \u0014 \u00B6  ;#pilcrow (paragraph mark / blind P)
-    tcl::dict::set cp437_map \u0015 \u00A7  ;#Section Sign
-    tcl::dict::set cp437_map \u0016 \u25AC  ;#Heavy horizontal?
-    tcl::dict::set cp437_map \u0017 \u21A8  ;#updown arrow 2 ?
-    tcl::dict::set cp437_map \u0018 \u2191  ;#up arrow
-    tcl::dict::set cp437_map \u0019 \u2193  ;#down arrow
-    tcl::dict::set cp437_map \u001A \u2192  ;#right arrow
-    tcl::dict::set cp437_map \u001B \u2190  ;#left arrow
-    tcl::dict::set cp437_map \u001C \u221F  ;#bottom left corner
-    tcl::dict::set cp437_map \u001D \u2194  ;#left-right arrow
-    tcl::dict::set cp437_map \u001E \u25B2  ;#up arrow triangle
-    tcl::dict::set cp437_map \u001F \u25BC  ;#down arrow triangle
-
-    variable map_special_graphics
-    #DEC Special Graphics set https://en.wikipedia.org/wiki/DEC_Special_Graphics
-    #AKA IBM Code page 1090
-    tcl::dict::set map_special_graphics _   \u00a0  ;#no-break space
-    tcl::dict::set map_special_graphics "`" \u25c6  ;#black diamond
-    tcl::dict::set map_special_graphics a \u2592    ;#shaded block (checkerboard stipple), medium shade - Block Elements
-    tcl::dict::set map_special_graphics b \u2409    ;#symbol for HT
-    tcl::dict::set map_special_graphics c \u240c    ;#symbol for FF
-    tcl::dict::set map_special_graphics d \u240d    ;#symbol for CR
-    tcl::dict::set map_special_graphics e \u240a    ;#symbol for LF
-    tcl::dict::set map_special_graphics f \u00b0    ;#degree sign
-    tcl::dict::set map_special_graphics g \u00b1    ;#plus-minus sign
-    tcl::dict::set map_special_graphics h \u2424    ;#symbol for NL
-    tcl::dict::set map_special_graphics i \u240b    ;#symbol for VT
-    tcl::dict::set map_special_graphics j \u2518    ;#brc, light up and left - box drawing
-    tcl::dict::set map_special_graphics k \u2510    ;#trc, light down and left - box drawing
-    tcl::dict::set map_special_graphics l \u250c    ;#tlc, light down and right - box drawing
-    tcl::dict::set map_special_graphics m \u2514    ;#blc, light up and right - box drawing
-    tcl::dict::set map_special_graphics n \u253c    ;#light vertical and horizontal - box drawing
-    tcl::dict::set map_special_graphics o \u23ba    ;#horizontal scan line-1
-    tcl::dict::set map_special_graphics p \u23bb    ;#horizontal scan line-3
-    tcl::dict::set map_special_graphics q \u2500    ;#light horizontal - box drawing
-    tcl::dict::set map_special_graphics r \u23bc    ;#horizontal scan line-7
-    tcl::dict::set map_special_graphics s \u23bd    ;#horizontal scan line-9
-    tcl::dict::set map_special_graphics t \u251c    ;#light vertical and right - box drawing
-    tcl::dict::set map_special_graphics u \u2524    ;#light vertical and left - box drawing
-    tcl::dict::set map_special_graphics v \u2534    ;#light up and horizontal - box drawing
-    tcl::dict::set map_special_graphics w \u252c    ;#light down and horizontal - box drawing
-    tcl::dict::set map_special_graphics x \u2502    ;#light vertical - box drawing
-    tcl::dict::set map_special_graphics y \u2264    ;#less than or equal
-    tcl::dict::set map_special_graphics z \u2265    ;#greater than or equal
-    tcl::dict::set map_special_graphics "\{" \u03c0 ;#greek small letter pi
-    tcl::dict::set map_special_graphics "|" \u2260  ;#not equal to
-    tcl::dict::set map_special_graphics "\}" \u00a3 ;#pound sign
-    tcl::dict::set map_special_graphics ~ \u00b7    ;#middle dot
-
-    #see also ansicolour page on wiki https://wiki.tcl-lang.org/page/ANSI+color+control
-
-    variable test "blah\033\[1;33mETC\033\[0;mOK"
-
-    #Note that a? is actually a pattern. We can't explicitly match it without also matcing a+ ab etc.  Presumably this won't matter here.
-    tcl::namespace::export\
-        {a?} {a+} a \
-        ansistring\
-        ansiwrap\
-        convert*\
-        clear*\
-        cursor_*\
-        delete*\
-        detect*\
-        erase*\
-        get_*\
-        hyperlink\
-        hyperlink_open\
-        hyperlink_close\
-        move*\
-        reset*\
-        ansistrip*\
-        test_decaln\
-        titleset\
-
-
-    variable escape_terminals
-    #single "final byte" in the range 0x40–0x7E (ASCII @A–Z[\]^_`a–z{|}~).
-    tcl::dict::set escape_terminals CSI [list @ \\ ^ _ ` | ~ a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z "\{" "\}"]
-    #tcl::dict::set escape_terminals CSI [list J K m n A B C D E F G s u] ;#basic
-    tcl::dict::set escape_terminals OSC [list \007 \033\\ \u009c] ;#note mix of 1 and 2-byte terminals
-    tcl::dict::set escape_terminals DCS [list \007 \033\\ \u009c]
-    tcl::dict::set escape_terminals MISC [list \007 \033\\ \u009c]
-    #NOTE - we are assuming an OSC or DCS started with one type of sequence (7 or 8bit) can be terminated by either 7 or 8 bit ST (or BEL e.g wezterm )
-    #This using a different type of ST to that of the opening sequence is presumably unlikely in the wild - but who knows?
-
-    #review - there doesn't seem to be an \x1b#7
-    # https://espterm.github.io/docs/VT100%20escape%20codes.html
-
-    #self-contained 2 byte ansi escape sequences - review more?
-    set  ansi_2byte_codes_dict [tcl::dict::create\
-        "reset_terminal"            "\u001bc"\
-        "save_cursor_posn"          "\u001b7"\
-        "restore_cursor_posn"       "\u001b8"\
-        "cursor_up_one"             "\u001bM"\
-        "NEL - Next Line"           "\u001bE"\
-        "IND - Down one line"       "\u001bD"\
-        "HTS - Set Tab Stop"        "\u001bH"\
-        "DECPAM app keypad"         "\x1b="\
-        "DECPNM norm keypad"        "\x1b>"\
-        ]
-
-
-    # --------------------------------------
-    #comparitive test (performance) string-append vs 2-object (with existing splits) append
-    proc test_cat1 {ansi1 ansi2} {
-        #make sure objects have splits
-        set s1 [ansistring NEW $ansi1]
-        tcl::namespace::eval [info object namespace $s1] {my MakeSplit}
-        set s2 [ansistring NEW $ansi2]
-        tcl::namespace::eval [info object namespace $s2] {my MakeSplit}
-
-        #operation under test
-        # --
-        #standard string append
-        $s1 append $ansi2
-        # --
-        $s2 destroy
-
-        #$s1 append \033\[31mX  ;#redX
-        return $s1
-    }
-    proc test_cat2  {ansi1 ansi2} {
-        #make sure objects have splits
-        set s1 [ansistring NEW $ansi1]
-        tcl::namespace::eval [info object namespace $s1] {my MakeSplit}
-        set s2 [ansistring NEW $ansi2]
-        tcl::namespace::eval [info object namespace $s2] {my MakeSplit}
-
-        #operation under test
-        # --
-        #ansistring object append
-        $s1 appendobj $s2
-        # --
-        $s2 destroy
-        #$s1 append \033\[31mX  ;#redX
-        return $s1
-    }
-    # --------------------------------------
-
-
-    #review - We have file possibly encoded directly in another codepage such as 437 - or utf8,utf16 etc, but then still needing post conversion to e.g cp437?
-    #In testing old ansi graphics files available on the web, some files need encoding {utf-8 cp437}  some just cp437
-    proc readfile {fname {encoding cp437}} {
-        #todo
-        #1- look for BOM - read according to format given by BOM
-        #2- assume utf-8
-        #3- if errors - assume cp437?
-
-        if {[llength $encoding] == 1} {
-            set ansidata [fcat -encoding $encoding $fname]
-            set obj [punk::ansi::class::class_ansi new $ansidata]
-        } elseif {[llength $encoding] == 2} {
-            set ansidata [fcat -encoding [lindex $encoding 0] $fname]
-            set ansidata [encoding convertfrom [lindex $encoding 1] $ansidata]
-            set obj [punk::ansi::class::class_ansi new $ansidata]
-        } else {
-            error "encoding list '$encoding' not supported. Use 1 or 2 encodings (first for file read, second as encoding convertfrom)"
-        }
-        return $obj
-    }
-    proc ansicat {fname args} {
-        set encnames [encoding names]
-        set encoding ""
-        set dimensions ""
-        foreach a $args {
-            if {$a in $encnames} {
-                set encoding $a
-            } else {
-                if {[regexp {[0-9]+(?:x|X)[0-9]+} $a]} {
-                    set dimensions $a
-                }
-            }
-        }
-        if {$encoding eq ""} {
-            set encoding cp437
-        }
-
-        if {$dimensions eq ""} {
-            set dimensions 80x24
-        }
-
-        set ansidata [fcat -encoding $encoding $fname]
-        set obj [punk::ansi::class::class_ansi new $ansidata]
-        if {$encoding eq "cp437"} {
-            set result [$obj rendertest $dimensions]
-        } else {
-            set result [$obj render $dimensions]
-        }
-        $obj destroy
-        return $result
-    }
-    #utf-8/ascii encoded cp437
-    proc ansicat2 {fname {encoding utf-8}} {
-        set data [fcat -encoding $encoding $fname]
-        set ansidata [encoding convertfrom cp437 $data]
-        set obj [punk::ansi::class::class_ansi new $ansidata]
-        set result [$obj render]
-        $obj destroy
-        return $result
-    }
-
-    proc Get_ansifolder {} {
-        if {[catch {punk::repo::find_project} base]} {
-            set base ""
-        }
-        if {$base eq ""} {
-            #pwd not avail in safe interp
-            if {![catch {pwd} CWD]} {
-                set base $CWD
-            }
-        }
-        if {[info commands file] eq ""} {
-            #probably a safe interp
-            return "UNAVAILABLE"
-        }
-        return [file join $base src/testansi]
-    }
-
-    lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::punk::ansi::example
-            @cmd    -name punk::ansi::example -help "Display .ans image files in a grid that will fit in console
-            "
-            -colwidth -default 82 -help\
-                "Width of each column - default of 82 will fit a standard 80wide ansi image
-                  (when framed)
-                  You can specify a narrower width to truncate images on the right side"
-            -folder -default "${[punk::ansi::Get_ansifolder]}"   -help\
-               "Base folder for files if relative paths are used.
-                  Defaults to <projectbase>/src/testansi - where projectbase is determined
-                  from the current directory.
-            "
-            @values -min 0 -max -1
-            files -default {belinda.ans bot.ans flower.ans fish.ans} -multiple true -help\
-                "List of filenames - leave empty to display 4 defaults"
-        } ""]
-
-    proc example {args} {
-        set argd [punk::args::parse $args withid ::punk::ansi::example]
-        set colwidth [dict get $argd opts -colwidth]
-        if {[info commands file] eq ""} {
-            error "file command unavailable - punk::ansi::example cannot be shown"
-        }
-        set ansifolder [file normalize [dict get $argd opts -folder]]
-        set fnames   [dict get $argd values files]
-
-        #assumes fixed column widths e.g 80col images will fit in 82-width frames (common standard for old ansi art) (of arbitrary height)
-        #todo - review dependency on punk::repo ?
-        package require textblock
-        package require punk::repo
-        package require punk::console
-
-        if {![file exists $ansifolder]} {
-            puts stderr "Missing folder at $ansifolder"
-            puts stderr "Ensure ansi test files exist: $fnames"
-            #error "punk::ansi::example Cannot find example files"
-        }
-        set termsize [punk::console:::get_size]
-        set termcols [dict get $termsize columns]
-        set margin 4 ;#review
-        set freewidth   [expr {$termcols-$margin}]
-        if {$freewidth < $colwidth} {
-            puts stderr "[a+ red bold]punk::ansi::example freewidth: $freewidth < colwidth: $colwidth TRUNCATING IMAGES[a]"
-            set colwidth $freewidth
-        }
-        set per_row     [expr {$freewidth / $colwidth}]
-
-        set missingbase [a+ yellow][textblock::block [expr {$colwidth-2}] 23 ?][a] ;#assuming standard frame - subtract 2 for left/right borders
-        set pics [list]
-        foreach f $fnames {
-            if {[file pathtype $f] ne "absolute"} {
-                set filepath [file normalize $ansifolder/$f]
-            } else {
-                set filepath [file normalize $f]
-            }
-            if {![file exists $filepath]} {
-                set p [overtype::left $missingbase "[a+ red bold]\nMissing file\n$f[a]"]
-                lappend pics [tcl::dict::create filename $f pic $p status missing]
-            } else {
-                #set img [join [lines_as_list -line trimline -block trimtail [ansicat $filepath]] \n]
-                #-line trimline will wreck some images
-                set img [join [lines_as_list -block trimtail [ansicat $filepath]] \n]
-                lappend pics [tcl::dict::create filename $f pic $img status ok]
-            }
-        }
-
-
-        set rowlist [list]      ;# { {<img> <img>} {<img> <img>} }
-        set heightlist [list]   ;# { {<h>   <h>  } {<h>   <h>  } }
-        set maxheights [list]   ;# { <max>  <max>}
-        set row [list]  ;#wip row
-        set rowh [list] ;#wip row img heights
-        set i 1  ;#track image index of whole pics list
-        set rowindex 0
-        foreach picinfo $pics {
-            set subtitle ""
-            if {[tcl::dict::get $picinfo status] ne "ok"} {
-                set subtitle [tcl::dict::get $picinfo status]
-            }
-            set title [tcl::dict::get $picinfo filename]
-            set fr [textblock::frame -checkargs 0 -width $colwidth -subtitle $subtitle -title $title [tcl::dict::get $picinfo pic]]
-            # -- --- --- ---
-            #we need the max height of a row  element to use join_basic instead of join below
-            # -- --- --- ---
-            set fr_height [textblock::height $fr]
-            lappend row $fr
-            lappend rowh $fr_height
-
-            set rowmax [lindex $maxheights $rowindex]
-            if {$rowmax eq ""} {
-                #empty result means no maxheights entry for this row yet
-                set rowmax $fr_height
-                lappend maxheights $rowmax
-            } else {
-                if {$fr_height > $rowmax} {
-                    set rowmax $fr_height
-                    lset maxheights end $rowmax
-                }
-            }
-            # -- --- --- ---
-
-            if {$i % $per_row == 0} {
-                lappend rowlist $row
-                lappend heightlist $rowh
-                incr rowindex
-                set row [list]
-                set rowh [list]
-            } elseif {$i == [llength $pics]} {
-                lappend rowlist $row
-                lappend heightlist $rowh
-            }
-            incr i
-        }
-        #puts "--> maxheights: $maxheights"
-        #puts "--> heightlist: $heightlist"
-        set result ""
-        set rowindex 0
-        set blankline [string repeat " " $colwidth]
-        foreach imgs $rowlist heights $heightlist  {
-            set maxheight [lindex $maxheights $rowindex]
-            set adjusted_row [list]
-            foreach i $imgs h $heights {
-                if {$h < $maxheight} {
-                    #add blank lines to bottom of shorter images so join_basic can be used.
-                    #textblock::join of ragged-height images would work and remove the need for all the height calculation
-                    #.. but it requires much more processing
-                    append i [string repeat \n$blankline [expr {$maxheight - $h}]]
-                }
-                lappend adjusted_row $i
-            }
-            #append result [textblock::join_basic -- {*}$adjusted_row] \n
-            append result [textblock::join_basic_raw  {*}$adjusted_row] \n
-            incr rowindex
-        }
-
-
-        return $result
-    }
-    #control strings
-    #https://www.ecma-international.org/wp-content/uploads/ECMA-48_5th_edition_june_1991.pdf
-    #<excerpt>
-    #A control string is a string of bit combinations which may occur in the data stream as a logical entity for
-    #control purposes. A control string consists of an opening delimiter, a command string or a character string,
-    #and a terminating delimiter, the STRING TERMINATOR (ST).
-    #A command string is a sequence of bit combinations in the range 00/08 to 00/13 and 02/00 to 07/14.
-    #A character string is a sequence of any bit combination, except those representing START OF STRING
-    #(SOS) or STRING TERMINATOR (ST).
-    #The interpretation of the command string or the character string is not defined by this Standard, but instead
-    #requires prior agreement between the sender and the recipient of the data.
-    #The opening delimiters defined in this Standard are
-    #a) APPLICATION PROGRAM COMMAND (APC)
-    #b) DEVICE CONTROL STRING (DCS)
-    #c) OPERATING SYSTEM COMMAND (OSC)
-    #d) PRIVACY MESSAGE (PM)
-    #e) START OF STRING (SOS)
-    #</excerpt>
-
-    #debatable whether strip should reveal the somethinghidden - some terminals don't hide it anyway.
-    #  "PM - Privacy Message"      "\u001b^somethinghidden\033\\"\
-    #The intent is that it's not rendered to the terminal - so on balance it seems best to strip it out.
-    #todo - review - printing_length calculations affected by whether terminal honours PMs or not. detect and accomodate.
-    #review - can terminals handle SGR codes within a PM?
-    #Wezterm will hide PM,SOS,APC - but not any part following an SGR code - i.e it seems to terminate hiding before the ST (apparently at the )
-    proc controlstring_PM {text} {
-        #dquotes with trailing \\ in string will confuse silly editors
-        return \x1b^${text}\033\\
-    }
-    proc controlstring_PM8 {text} {
-        return \x9e${text}\x9c
-    }
-    proc controlstring_SOS {text} {
-        return \x1bX${text}\033\\
-    }
-    proc controlstring_SOS8 {text} {
-        return \x98${text}\x9c
-    }
-    proc controlstring_APC {text} {
-        return  \x1b_${text}\033\\
-    }
-    proc controlstring_APC8 {text} {
-        return \x9f${text}\x9c
-    }
-    #there is also the SGR hide code (8) which has intermittent terminal support
-    #This doesn't change the output length - so support is tricky to detec. (terminal checksum report?)
-
-    #candidate for zig/c implementation?
-    proc stripansi2 {text} {
-        set text [convert_g0 $text];#Convert ansi borders to unicode line drawing instead of ascii letters
-        join [::punk::ansi::ta::split_at_codes $text] ""
-    }
-
-
-    #review - what happens when no terminator?
-    #todo - map other character sets  to unicode equivs? There seems to be little support for other than the DEC special graphics set.. ISO2022 character switching not widely supported - may be best considered deprecated(?)
-    # convert esc(0 -> esc(B graphics sequences to single char unicode equivalents e.g box drawing set
-    # esc) ??
-    proc convert_g0 {text} {
-        variable map_special_graphics
-
-        #using not \033 inside to stop greediness - review how does it compare to ".*?"
-        #variable re_g0_group {(?:\x1b\(0)(?:(?!\x1b\(B).)*\x1b\(B}
-        #set re {\033\(0[^\033]*\033\(B}
-        #set re {(?:\x1b\(0)(?:(?!\x1b\(B).)*\x1b\(B}
-        #set re2 {\033\(0(.*)\033\(B} ;#capturing
-
-        #puts --$g--
-        #box sample
-        #lqk
-        #x x
-        #mqj
-        #m = boxd_lur
-
-        #don't call detect_g0 in here. Leave for caller. e.g ansistrip uses detect_g0 to decide whether to call this.
-
-        set re_g0_open_or_close {\x1b\(0|\x1b\(B}
-        set parts [::punk::ansi::ta::_perlish_split $re_g0_open_or_close $text]
-        set out {}
-        set g0_on 0
-        foreach {other g} $parts {
-            if {$g0_on} {
-                #split for non graphics-set codes
-                set othersplits [punk::ansi::ta::split_codes $other] ;#we don't need single codes here
-                foreach {inner_plaintext inner_codes} $othersplits {
-                    lappend out [tcl::string::map $map_special_graphics $inner_plaintext] $inner_codes
-                    #Simplifying assumption: no mapping required on any inner_codes - ST codes, titlesets etc don't require/use g0 content
-                }
-            } else {
-                lappend out $other ;#may be a mix of plaintext and other ansi codes - put it all through.
-            }
-            #trust our splitting regex has done the work to leave us with only \x1b\(0 or \x1b(B  - test last char rather than use punk::ansi::codetype::is_gx_open/is_gx_close
-            switch -- [tcl::string::index $g end] {
-                0 {
-                    set g0_on 1
-                }
-                B {
-                    set g0_on 0
-                }
-            }
-        }
-        return [join $out ""]
-    }
-    proc convert_g0_wrong {text} {
-        #Attempting to split on a group is wrong - because there could be other ansi codes while inside a g0 section
-        #That will either stop us matching - so no conversion - or risk converting parts of the ansi codes
-        #using not \033 inside to stop greediness - review how does it compare to ".*?"
-        #variable re_g0_group {(?:\x1b\(0)(?:(?!\x1b\(B).)*\x1b\(B}
-        set re {\033\(0[^\033]*\033\(B}
-        set re2 {\033\(0(.*)\033\(B} ;#capturing
-
-        #box sample
-        #lqk
-        #x x
-        #mqj
-        #m = boxd_lur
-        #set map [list l \u250f k \u2513] ;#heavy
-        set map [list l \u250c q \u2500 k \u2510 x \u2502 m \u2514 j \u2518] ;#light box drawing lines
-        #todo - map the rest https://vt100.net/docs/vt220-rm/chapter2.html
-
-        set parts [::punk::ansi::ta::_perlish_split $re $text]
-        set out ""
-        foreach {pt g} $parts {
-            append out $pt
-            if {$g ne ""} {
-                #puts --$g--
-                regexp $re2 $g _match contents
-                append out [tcl::string::map $map $contents]
-            }
-        }
-        return $out
-    }
-
-
-
-    #Wrap text in ansi codes to switch to DEC alternate graphics character set.
-    #todo vt52 versions
-    proc g0 {text} {
-        return \x1b(0$text\x1b(B
-    }
-    variable altg_map [dict create\
-        hl q\
-        vl x\
-        tlc l\
-        trc k\
-        blc m\
-        brc j\
-        ltj t\
-        rtj u\
-        ttj w\
-        btj v\
-        rtj u\
-        fwj n\
-    ]
-    proc altg_map {names} {
-        variable altg_map
-        set result [list]
-        foreach nm $names {
-            if {[dict exists $altg_map $nm]} {
-                lappend result [dict get $altg_map $nm]
-            } else {
-                lappend ""
-            }
-        }
-        return $result
-    }
-
-    # --------------------------------
-    # Taken from term::ansi::code::ctrl
-    # --------------------------------
-    #Note that SYN (\016) seems to put terminals in a state
-    #where alternate graphics are not processed.
-    #an ETB (\017) needs to be sent to get alt graphics working again.
-    #It isn't known what software utilises SYN/ETB within altg sequences
-    # (presumably to alternate between the charsets within a graphics-on/graphics-off section)
-    #but as modern emulators seem to react to it, we should handle it.
-    #REVIEW - this mapping not fully understood
-    #used by groptim
-    variable grforw
-    variable grback
-    variable _
-
-    foreach _ {
-        ! \" # $ % & ' ( ) * + , - . /
-        0 1 2 3 4 5 6 7 8 9 : ; < = >
-        ? @ A B C D E F G H I J K L M
-        N O P Q R S T U V W X Y Z [ ^
-        \\ ]
-    } {
-        lappend grforw \016$_ $_\016
-        lappend grback $_\017 \017$_
-    }
-    unset _
-    # ------------------------------
-    #REVIEW - see forward/backward map in term::ansi::code::macros::cd::groptim - what are they for??
-    proc groptim {string} {
-        variable grforw
-        variable grback
-        set offon \x1b(B\x1b(0 ;#)) ;#editor highlighting comment
-        set onoff \x1b(0\x1b(B ;#)) ;#editor highlighting comment
-        while {![string equal $string [set new [string map [list $offon {} $onoff {}] [string map $grback [string map $grforw $string]]]]]} {
-            set string $new
-        }
-        return $string
-    }
-    # --------------------------------
-
-    proc ansistrip_gx {text} {
-        #e.g "\033(0" - select VT100 graphics for character set G0
-        #e.g "\033(B" - reset
-        #e.g "\033)0" - select VT100 graphics for character set G1
-        #e.g "\033)X" - where X is any char other than 0 to reset ??
-
-        #return [convert_g0 $text]
-        return [tcl::string::map [list \x1b(0 "" \x1b(B "" \x1b)0 "" \x1b)X ""] $text]
-    }
-    proc stripansi_gx {text} {
-        return [tcl::string::map [list \x1b(0 "" \x1b(B "" \x1b)0 "" \x1b)X ""] $text]
-    }
-
-
-    #CSI <n> m = SGR (Select Graphic Rendition)
-#leave map unindented - used both as a dict and for direct display
-    variable SGR_setting_map {
-reset      0   bold             1   dim          2   italic            3   noitalic   23
-underline  4   doubleunderline 21   nounderline 24   blink             5   fastblink   6   noblink  25
-reverse    7   noreverse       27   hide         8   nohide           28   strike      9   nostrike 29
-normal    22   defaultfg       39   defaultbg   49   overline         53   nooverline 55
-frame     51   framecircle     52   noframe     54   underlinedefault 59
-    }
-    #unprefixed colours are (close to) the ansi-specified colour names (lower-cased and whitespace collapsed, with capitalisation of 1st letter given fg/bg meaning here)
-#leave map unindented - used both as a dict and for direct display
-    variable SGR_colour_map {
-black        30   red        31   green        32   yellow        33   blue        34   purple        35   cyan        36   white        37
-Black        40   Red        41   Green        42   Yellow        43   Blue        44   Purple        45   Cyan        46   White        47
-brightblack  90   brightred  91   brightgreen  92   brightyellow  93   brightblue  94   brightpurple  95   brightcyan  96   brightwhite  97
-Brightblack 100   Brightred 101   Brightgreen 102   Brightyellow 103   Brightblue 104   Brightpurple 105   Brightcyan 106   Brightwhite 107
-    }
-    variable SGR_map ;#public - part of interface - review
-    set SGR_map [tcl::dict::merge $SGR_colour_map $SGR_setting_map]
-
-    #we use prefixes e.g  web-white and/or x11-white
-    #Only a leading capital letter will indicate the colour target is background vs lowercase for foreground
-    #In the map key-lookup context the colour names will be canonically lower case
-    #We should be case insensitive in the non-prefix part ie after determining fg/bg target from first letter of the prefix
-    #e.g  Web-Lime or Web-lime are ok and are targeting background
-    #foreground target examples: web-Lime web-LIME web-DarkSalmon web-Darksalmon
-
-    #specified in decimal - but we should also accept hex format directly in a+ function e.g #00FFFF for aqua
-    variable WEB_colour_map
-    #use the totitle format as the canonical lookup key
-    #don't use leading zeros - keep compatible with earlier tcl and avoid octal issue
-    # -- --- ---
-    #css 1-2.0 HTML 3.2-4 Basic colours eg web-silver for fg Web-silver for bg
-    #
-    variable WEB_colour_map_basic
-    tcl::dict::set WEB_colour_map_basic white       255-255-255                ;#  #FFFFFF
-    tcl::dict::set WEB_colour_map_basic silver      192-192-192                ;#  #C0C0C0
-    tcl::dict::set WEB_colour_map_basic gray        128-128-128                ;#  #808080
-    tcl::dict::set WEB_colour_map_basic black       0-0-0                      ;#  #000000
-    tcl::dict::set WEB_colour_map_basic red         255-0-0                    ;#  #FF0000
-    tcl::dict::set WEB_colour_map_basic maroon      128-0-0                    ;#  #800000
-    tcl::dict::set WEB_colour_map_basic yellow      255-255-0                  ;#  #FFFF00
-    tcl::dict::set WEB_colour_map_basic olive       128-128-0                  ;#  #808000
-    tcl::dict::set WEB_colour_map_basic lime        0-255-0                    ;#  #00FF00
-    tcl::dict::set WEB_colour_map_basic green       0-128-0                    ;#  #008000
-    tcl::dict::set WEB_colour_map_basic aqua        0-255-255                  ;#  #00FFFF
-    tcl::dict::set WEB_colour_map_basic teal        0-128-128                  ;#  #008080
-    tcl::dict::set WEB_colour_map_basic blue        0-0-255                    ;#  #0000FF
-    tcl::dict::set WEB_colour_map_basic navy        0-0-128                    ;#  #000080
-    tcl::dict::set WEB_colour_map_basic fuchsia     255-0-255                  ;#  #FF00FF
-    tcl::dict::set WEB_colour_map_basic purple      128-0-128                  ;#  #800080
-    # -- --- ---
-    #Pink colours
-    variable WEB_colour_map_pink
-    tcl::dict::set WEB_colour_map_pink mediumvioletred      199-21-133         ;#  #C71585
-    tcl::dict::set WEB_colour_map_pink deeppink             255-20-147         ;#  #FF1493
-    tcl::dict::set WEB_colour_map_pink palevioletred        219-112-147        ;#  #DB7093
-    tcl::dict::set WEB_colour_map_pink hotpink              255-105-180        ;#  #FF69B4
-    tcl::dict::set WEB_colour_map_pink lightpink            255-182-193        ;#  #FFB6C1
-    tcl::dict::set WEB_colour_map_pink pink                 255-192-203        ;#  #FFCOCB
-    # -- --- ---
-    #Red colours
-    variable WEB_colour_map_red
-    tcl::dict::set WEB_colour_map_red darkred              139-0-0             ;#  #8B0000
-    tcl::dict::set WEB_colour_map_red red                  255-0-0             ;#  #FF0000
-    tcl::dict::set WEB_colour_map_red firebrick            178-34-34           ;#  #B22222
-    tcl::dict::set WEB_colour_map_red crimson              220-20-60           ;#  #DC143C
-    tcl::dict::set WEB_colour_map_red indianred            205-92-92           ;#  #CD5C5C
-    tcl::dict::set WEB_colour_map_red lightcoral           240-128-128         ;#  #F08080
-    tcl::dict::set WEB_colour_map_red salmon               250-128-114         ;#  #FA8072
-    tcl::dict::set WEB_colour_map_red darksalmon           233-150-122         ;#  #E9967A
-    tcl::dict::set WEB_colour_map_red lightsalmon          255-160-122         ;#  #FFA07A
-    # -- --- ---
-    #Orange colours
-    variable WEB_colour_map_orange
-    tcl::dict::set WEB_colour_map_orange orangered            255-69-0         ;#  #FF4500
-    tcl::dict::set WEB_colour_map_orange tomato               255-99-71        ;#  #FF6347
-    tcl::dict::set WEB_colour_map_orange darkorange           255-140-0        ;#  #FF8C00
-    tcl::dict::set WEB_colour_map_orange coral                255-127-80       ;#  #FF7F50
-    tcl::dict::set WEB_colour_map_orange orange               255-165-0        ;#  #FFA500
-    # -- --- ---
-    #Yellow colours
-    variable WEB_colour_map_yellow
-    tcl::dict::set WEB_colour_map_yellow darkkhaki             189-183-107    ;#  #BDB76B
-    tcl::dict::set WEB_colour_map_yellow gold                  255-215-0      ;#  #FFD700
-    tcl::dict::set WEB_colour_map_yellow khaki                 240-230-140    ;#  #F0E68C
-    tcl::dict::set WEB_colour_map_yellow peachpuff             255-218-185    ;#  #FFDAB9
-    tcl::dict::set WEB_colour_map_yellow yellow                255-255-0      ;#  #FFFF00
-    tcl::dict::set WEB_colour_map_yellow palegoldenrod         238-232-170    ;#  #EEE8AA
-    tcl::dict::set WEB_colour_map_yellow moccasin              255-228-181    ;#  #FFE4B5
-    tcl::dict::set WEB_colour_map_yellow papayawhip            255-239-213    ;#  #FFEFD5
-    tcl::dict::set WEB_colour_map_yellow lightgoldenrodyeallow 250-250-210    ;#  #FAFAD2
-    tcl::dict::set WEB_colour_map_yellow lemonchiffon          255-250-205    ;#  #FFFACD
-    tcl::dict::set WEB_colour_map_yellow lightyellow           255-255-224    ;#  #FFFFE0
-    # -- --- ---
-    #Brown colours
-    #maroon as above
-    variable WEB_colour_map_brown
-    tcl::dict::set WEB_colour_map_brown brown                165-42-42      ;#  #A52A2A
-    tcl::dict::set WEB_colour_map_brown saddlebrown          139-69-19      ;#  #8B4513
-    tcl::dict::set WEB_colour_map_brown sienna               160-82-45      ;#  #A0522D
-    tcl::dict::set WEB_colour_map_brown chocolate            210-105-30     ;#  #D2691E
-    tcl::dict::set WEB_colour_map_brown darkgoldenrod        184-134-11     ;#  #B8860B
-    tcl::dict::set WEB_colour_map_brown peru                 205-133-63     ;#  #CD853F
-    tcl::dict::set WEB_colour_map_brown rosybrown            188-143-143    ;#  #BC8F8F
-    tcl::dict::set WEB_colour_map_brown goldenrod            218-165-32     ;#  #DAA520
-    tcl::dict::set WEB_colour_map_brown sandybrown           244-164-96     ;#  #F4A460
-    tcl::dict::set WEB_colour_map_brown tan                  210-180-140    ;#  #D2B48C
-    tcl::dict::set WEB_colour_map_brown burlywood            222-184-135    ;#  #DEB887
-    tcl::dict::set WEB_colour_map_brown wheat                245-222-179    ;#  #F5DEB3
-    tcl::dict::set WEB_colour_map_brown navajowhite          255-222-173    ;#  #FFDEAD
-    tcl::dict::set WEB_colour_map_brown bisque               255-228-196    ;#  #FFEfC4
-    tcl::dict::set WEB_colour_map_brown blanchedalmond       255-228-196    ;#  #FFEfC4
-    tcl::dict::set WEB_colour_map_brown cornsilk             255-248-220    ;#  #FFF8DC
-    # -- --- ---
-    #Purple, violet, and magenta colours
-    variable WEB_colour_map_purple
-    tcl::dict::set WEB_colour_map_purple indigo               75-0-130       ;#  #4B0082
-    tcl::dict::set WEB_colour_map_purple purple               128-0-128      ;#  #800080
-    tcl::dict::set WEB_colour_map_purple darkmagenta          139-0-139      ;#  #8B008B
-    tcl::dict::set WEB_colour_map_purple darkviolet           148-0-211      ;#  #9400D3
-    tcl::dict::set WEB_colour_map_purple darkslateblue        72-61-139      ;#  #9400D3
-    tcl::dict::set WEB_colour_map_purple blueviolet           138-43-226     ;#  #8A2BE2
-    tcl::dict::set WEB_colour_map_purple darkorchid           153-50-204     ;#  #9932CC
-    tcl::dict::set WEB_colour_map_purple fuchsia              255-0-255      ;#  #FF00FF
-    tcl::dict::set WEB_colour_map_purple magenta              255-0-255      ;#  #FF00FF  - same as fuchsia
-    tcl::dict::set WEB_colour_map_purple slateblue            106-90-205     ;#  #6A5ACD
-    tcl::dict::set WEB_colour_map_purple mediumslateblue      123-104-238    ;#  #7B68EE
-    tcl::dict::set WEB_colour_map_purple mediumorchid         186-85-211     ;#  #BA5503
-    tcl::dict::set WEB_colour_map_purple mediumpurple         147-112-219    ;#  #9370DB
-    tcl::dict::set WEB_colour_map_purple orchid               218-112-214    ;#  #DA70D6
-    tcl::dict::set WEB_colour_map_purple violet               238-130-238    ;#  #EE82EE
-    tcl::dict::set WEB_colour_map_purple plum                 221-160-221    ;#  #DDA0DD
-    tcl::dict::set WEB_colour_map_purple thistle              216-191-216    ;#  #D88FD8
-    tcl::dict::set WEB_colour_map_purple lavender             230-230-250    ;#  #E6E6FA
-    # -- --- ---
-    #Blue colours
-    variable WEB_colour_map_blue
-    tcl::dict::set WEB_colour_map_blue midnightblue         25-25-112      ;#  #191970
-    tcl::dict::set WEB_colour_map_blue navy                 0-0-128        ;#  #000080
-    tcl::dict::set WEB_colour_map_blue darkblue             0-0-139        ;#  #00008B
-    tcl::dict::set WEB_colour_map_blue mediumblue           0-0-205        ;#  #0000CD
-    tcl::dict::set WEB_colour_map_blue blue                 0-0-255        ;#  #0000FF
-    tcl::dict::set WEB_colour_map_blue royalblue            65-105-225     ;#  #4169E1
-    tcl::dict::set WEB_colour_map_blue steelblue            70-130-180     ;#  #4682B4
-    tcl::dict::set WEB_colour_map_blue dodgerblue           30-144-255     ;#  #1E90FF
-    tcl::dict::set WEB_colour_map_blue deepskyblue          0-191-255      ;#  #00BFFF
-    tcl::dict::set WEB_colour_map_blue cornflowerblue       100-149-237    ;#  #6495ED
-    tcl::dict::set WEB_colour_map_blue skyblue              135-206-235    ;#  #87CEEB
-    tcl::dict::set WEB_colour_map_blue lightskyblue         135-206-250    ;#  #87CEFA
-    tcl::dict::set WEB_colour_map_blue lightsteelblue       176-196-222    ;#  #B0C4DE
-    tcl::dict::set WEB_colour_map_blue lightblue            173-216-230    ;#  #ADD8E6
-    tcl::dict::set WEB_colour_map_blue powderblue           176-224-230    ;#  #B0E0E6
-    # -- --- ---
-    #Cyan colours
-    #teal as above
-    variable WEB_colour_map_cyan
-    tcl::dict::set WEB_colour_map_cyan darkcyan             0-139-139      ;#  #008B8B
-    tcl::dict::set WEB_colour_map_cyan lightseagreen        32-178-170     ;#  #20B2AA
-    tcl::dict::set WEB_colour_map_cyan cadetblue            95-158-160     ;#  #5F9EA0
-    tcl::dict::set WEB_colour_map_cyan darkturquoise        0-206-209      ;#  #00CED1
-    tcl::dict::set WEB_colour_map_cyan mediumturquoise      72-209-204     ;#  #48D1CC
-    tcl::dict::set WEB_colour_map_cyan turquoise            64-224-208     ;#  #40E0D0
-    tcl::dict::set WEB_colour_map_cyan aqua                 0-255-255      ;#  #00FFFF
-    tcl::dict::set WEB_colour_map_cyan cyan                 0-255-255      ;#  #00FFFF  - same as aqua
-    tcl::dict::set WEB_colour_map_cyan aquamarine           127-255-212    ;#  #7FFFD4
-    tcl::dict::set WEB_colour_map_cyan paleturquoise        175-238-238    ;#  #AFEEEE
-    tcl::dict::set WEB_colour_map_cyan lightcyan            224-255-255    ;#  #E0FFFF
-    # -- --- ---
-    #Green colours
-    variable WEB_colour_map_green
-    tcl::dict::set WEB_colour_map_green darkgreen            0-100-0        ;#  #006400
-    tcl::dict::set WEB_colour_map_green green                0-128-0         ;#  #008000
-    tcl::dict::set WEB_colour_map_green darkolivegreen       85-107-47      ;#  #55682F
-    tcl::dict::set WEB_colour_map_green forestgreen          34-139-34      ;#  #228B22
-    tcl::dict::set WEB_colour_map_green seagreen             46-139-87      ;#  #2E8B57
-    tcl::dict::set WEB_colour_map_green olive                128-128-0      ;#  #808000
-    tcl::dict::set WEB_colour_map_green olivedrab            107-142-35     ;#  #6B8E23
-    tcl::dict::set WEB_colour_map_green mediumseagreen       60-179-113     ;#  #3CB371
-    tcl::dict::set WEB_colour_map_green limegreen            50-205-50      ;#  #32CD32
-    tcl::dict::set WEB_colour_map_green lime                 0-255-0        ;#  #00FF00
-    tcl::dict::set WEB_colour_map_green springgreen          0-255-127      ;#  #00FF7F
-    tcl::dict::set WEB_colour_map_green mediumspringgreen    0-250-154      ;#  #00FA9A
-    tcl::dict::set WEB_colour_map_green darkseagreen         143-188-143    ;#  #8FBC8F
-    tcl::dict::set WEB_colour_map_green mediumaquamarine     102-205-170    ;#  #66CDAA
-    tcl::dict::set WEB_colour_map_green yellowgreen          154-205-50     ;#  #9ACD32
-    tcl::dict::set WEB_colour_map_green lawngreen            124-252-0      ;#  #7CFC00
-    tcl::dict::set WEB_colour_map_green chartreuse           127-255-0      ;#  #7FFF00
-    tcl::dict::set WEB_colour_map_green lightgreen           144-238-144    ;#  #90EE90
-    tcl::dict::set WEB_colour_map_green greenyellow          173-255-47     ;#  #ADFF2F
-    tcl::dict::set WEB_colour_map_green palegreen            152-251-152    ;#  #98FB98
-    # -- --- ---
-    #White colours
-    variable WEB_colour_map_white
-    tcl::dict::set WEB_colour_map_white mistyrose            255-228-225    ;#  #FFE4E1
-    tcl::dict::set WEB_colour_map_white antiquewhite         250-235-215    ;#  #FAEBD7
-    tcl::dict::set WEB_colour_map_white linen                250-240-230    ;#  #FAF0E6
-    tcl::dict::set WEB_colour_map_white beige                245-245-220    ;#  #F5F5DC
-    tcl::dict::set WEB_colour_map_white whitesmoke           245-245-245    ;#  #F5F5F5
-    tcl::dict::set WEB_colour_map_white lavenderblush        255-240-245    ;#  #FFF0F5
-    tcl::dict::set WEB_colour_map_white oldlace              253-245-230    ;#  #FDF5E6
-    tcl::dict::set WEB_colour_map_white aliceblue            240-248-255    ;#  #F0F8FF
-    tcl::dict::set WEB_colour_map_white seashell             255-245-238    ;#  #FFF5EE
-    tcl::dict::set WEB_colour_map_white ghostwhite           248-248-255    ;#  #F8F8FF
-    tcl::dict::set WEB_colour_map_white honeydew             240-255-240    ;#  #F0FFF0
-    tcl::dict::set WEB_colour_map_white floralwhite          255-250-240    ;#  #FFFAF0
-    tcl::dict::set WEB_colour_map_white azure                240-255-255    ;#  #F0FFFF
-    tcl::dict::set WEB_colour_map_white mintcream            245-255-250    ;#  #F5FFFA
-    tcl::dict::set WEB_colour_map_white snow                 255-250-250    ;#  #FFFAFA
-    tcl::dict::set WEB_colour_map_white ivory                255-255-240    ;#  #FFFFF0
-    tcl::dict::set WEB_colour_map_white white                255-255-255    ;#  #FFFFFF
-    # -- --- ---
-    #Gray and black colours
-    variable WEB_colour_map_gray
-    tcl::dict::set WEB_colour_map_gray black                0-0-0          ;#  #000000
-    tcl::dict::set WEB_colour_map_gray darkslategray        47-79-79       ;#  #2F4F4F
-    tcl::dict::set WEB_colour_map_gray dimgray              105-105-105    ;#  #696969
-    tcl::dict::set WEB_colour_map_gray slategray            112-128-144    ;#  #708090
-    tcl::dict::set WEB_colour_map_gray gray                 128-128-128    ;#  #808080
-    tcl::dict::set WEB_colour_map_gray lightslategray       119-136-153    ;#  #778899
-    tcl::dict::set WEB_colour_map_gray darkgray             169-169-169    ;#  #A9A9A9
-    tcl::dict::set WEB_colour_map_gray silver               192-192-192    ;#  #C0C0C0
-    tcl::dict::set WEB_colour_map_gray lightgray            211-211-211    ;#  #D3D3D3
-    tcl::dict::set WEB_colour_map_gray gainsboro            220-220-220    ;#  #DCDCDC
-
-    set WEB_colour_map [tcl::dict::merge\
-        $WEB_colour_map_basic\
-        $WEB_colour_map_pink\
-        $WEB_colour_map_red\
-        $WEB_colour_map_orange\
-        $WEB_colour_map_yellow\
-        $WEB_colour_map_brown\
-        $WEB_colour_map_purple\
-        $WEB_colour_map_blue\
-        $WEB_colour_map_cyan\
-        $WEB_colour_map_green\
-        $WEB_colour_map_white\
-        $WEB_colour_map_gray\
-    ]
-
-    #we should be able to use WEB_colour_map as a base and override only the conflicts for X11 colours  ? Review - check if this is true
-    variable X11_colour_map_diff ;#maintain the difference as a separate dict so we can display in a? x11
-    tcl::dict::set X11_colour_map_diff gray        190-190-190     ;#  #BEBEBE
-    tcl::dict::set X11_colour_map_diff green       0-255-0         ;#  #00FF00
-    tcl::dict::set X11_colour_map_diff maroon      176-48-96       ;#  #B03060
-    tcl::dict::set X11_colour_map_diff purple      160-32-240      ;#  #A020F0
-
-    variable X11_colour_map
-    set X11_colour_map [tcl::dict::merge $WEB_colour_map $X11_colour_map_diff]
-
-
-
-
-
-
-    #Xterm colour names (256 colours)
-    #lists on web have duplicate names
-    #these have been renamed here in a systematic way:
-    #They are suffixed with a dash and a letter e.g second deepskyblue4 -> deepskyblue4-b, third deepskyblue4 -> deepskyblue4-c
-    #presumably the xterm colour names are not widely used or are used for reverse lookup from rgb to get an approximate name in the case of dupes?
-    #Review!
-    #keep duplicate names in the list and map them when building the dict.
-
-    #This is an in depth analysis of the xterm colour set which gives names(*) to all of the 256 colours and describes possible indexing by Hue,Luminance,Saturation
-    #https://www.wowsignal.io/articles/xterm256
-    # *The names are wildly-imaginative, often unintuitively so, and multiple (5?) given for each colour - so they are unlikely to be of practical use or any sort of standard.
-    #e.g  who is to know that 'Rabbit Paws', 'Forbidden Thrill' and 'Tarsier' refer to a particular shade of pinky-red? (code 95)
-    #Perhaps it's an indication that colour naming once we get to 256 colours or more is a fool's errand anyway.
-    #The xterm names are boringly unimaginative - and also have some oddities such as:
-    # DarkSlateGray1 which looks much more like cyan..
-    # The greyxx names are spelt with an e - but the darkslategrayX variants use an a. Perhaps that's because they are more cyan than grey and the a is a hint?
-    #(more likely just a mix of UK vs US spelling)
-    # there is no gold or gold2 - but there is gold1 and gold3
-    #but in general the names bear some resemblance to the colours and are at least somewhat intuitive.
-
-    set xterm_names [list\
-        black\
-        maroon\
-        green\
-        olive\
-        navy\
-        purple\
-        teal\
-        silver\
-        grey\
-        red\
-        lime\
-        yellow\
-        blue\
-        fuchsia\
-        aqua\
-        white\
-        grey0\
-        navyblue\
-        darkblue\
-        blue3\
-        blue3\
-        blue1\
-        darkgreen\
-        deepskyblue4\
-        deepskyblue4\
-        deepskyblue4\
-        dodgerblue3\
-        dodgerblue2\
-        green4\
-        springgreen4\
-        turquoise4\
-        deepskyblue3\
-        deepskyblue3\
-        dodgerblue1\
-        green3\
-        springgreen3\
-        darkcyan\
-        lightseagreen\
-        deepskyblue2\
-        deepskyblue1\
-        green3\
-        springgreen3\
-        springgreen2\
-        cyan3\
-        darkturquoise\
-        turquoise2\
-        green1\
-        springgreen2\
-        springgreen1\
-        mediumspringgreen\
-        cyan2\
-        cyan1\
-        darkred\
-        deeppink4\
-        purple4\
-        purple4\
-        purple3\
-        blueviolet\
-        orange4\
-        grey37\
-        mediumpurple4\
-        slateblue3\
-        slateblue3\
-        royalblue1\
-        chartreuse4\
-        darkseagreen4\
-        paleturquoise4\
-        steelblue\
-        steelblue3\
-        cornflowerblue\
-        chartreuse3\
-        darkseagreen4\
-        cadetblue\
-        cadetblue\
-        skyblue3\
-        steelblue1\
-        chartreuse3\
-        palegreen3\
-        seagreen3\
-        aquamarine3\
-        mediumturquoise\
-        steelblue1\
-        chartreuse2\
-        seagreen2\
-        seagreen1\
-        seagreen1\
-        aquamarine1\
-        darkslategray2\
-        darkred\
-        deeppink4\
-        darkmagenta\
-        darkmagenta\
-        darkviolet\
-        purple\
-        orange4\
-        lightpink4\
-        plum4\
-        mediumpurple3\
-        mediumpurple3\
-        slateblue1\
-        yellow4\
-        wheat4\
-        grey53\
-        lightslategrey\
-        mediumpurple\
-        lightslateblue\
-        yellow4\
-        darkolivegreen3\
-        darkseagreen\
-        lightskyblue3\
-        lightskyblue3\
-        skyblue2\
-        chartreuse2\
-        darkolivegreen3\
-        palegreen3\
-        darkseagreen3\
-        darkslategray3\
-        skyblue1\
-        chartreuse1\
-        lightgreen\
-        lightgreen\
-        palegreen1\
-        aquamarine1\
-        darkslategray1\
-        red3\
-        deeppink4\
-        mediumvioletred\
-        magenta3\
-        darkviolet\
-        purple\
-        darkorange3\
-        indianred\
-        hotpink3\
-        mediumorchid3\
-        mediumorchid\
-        mediumpurple2\
-        darkgoldenrod\
-        lightsalmon3\
-        rosybrown\
-        grey63\
-        mediumpurple2\
-        mediumpurple1\
-        gold3\
-        darkkhaki\
-        navajowhite\
-        grey69\
-        lightsteelblue3\
-        lightsteelblue\
-        yellow3\
-        darkolivegreen3\
-        darkseagreen3\
-        darkseagreen2\
-        lightcyan3\
-        lightskyblue1\
-        greenyellow\
-        darkolivegreen2\
-        palegreen1\
-        darkseagreen2\
-        darkseagreen1\
-        paleturquoise1\
-        red3\
-        deeppink3\
-        deeppink3\
-        magenta3\
-        magenta3\
-        magenta2\
-        darkorange3\
-        indianred\
-        hotpink3\
-        hotpink2\
-        orchid\
-        mediumorchid1\
-        orange3\
-        lightsalmon3\
-        lightpink3\
-        pink3\
-        plum3\
-        violet\
-        gold3\
-        lightgoldenrod3\
-        tan\
-        mistyrose3\
-        thistle3\
-        plum2\
-        yellow3\
-        khaki3\
-        lightgoldenrod2\
-        lightyellow3\
-        grey84\
-        lightsteelblue1\
-        yellow2\
-        darkolivegreen1\
-        darkolivegreen1\
-        darkseagreen1\
-        honeydew2\
-        lightcyan1\
-        red1\
-        deeppink2\
-        deeppink1\
-        deeppink1\
-        magenta2\
-        magenta1\
-        orangered1\
-        indianred1\
-        indianred1\
-        hotpink\
-        hotpink\
-        mediumorchid1\
-        darkorange\
-        salmon1\
-        lightcoral\
-        palevioletred1\
-        orchid2\
-        orchid1\
-        orange1\
-        sandybrown\
-        lightsalmon1\
-        lightpink1\
-        pink1\
-        plum1\
-        gold1\
-        lightgoldenrod2\
-        lightgoldenrod2\
-        navajowhite1\
-        mistyrose1\
-        thistle1\
-        yellow1\
-        lightgoldenrod1\
-        khaki1\
-        wheat1\
-        cornsilk1\
-        grey100\
-        grey3\
-        grey7\
-        grey11\
-        grey11\
-        grey15\
-        grey19\
-        grey23\
-        grey27\
-        grey30\
-        grey35\
-        grey39\
-        grey42\
-        grey46\
-        grey50\
-        grey54\
-        grey58\
-        grey62\
-        grey66\
-        grey70\
-        grey74\
-        grey78\
-        grey82\
-        grey85\
-        grey89\
-        grey93\
-    ]
-    variable TERM_colour_map
-    set TERM_colour_map [tcl::dict::create]
-    variable TERM_colour_map_reverse
-    set TERM_colour_map_reverse [tcl::dict::create]
-    set cidx 0
-    foreach cname $xterm_names {
-        if {![tcl::dict::exists $TERM_colour_map $cname]} {
-            tcl::dict::set TERM_colour_map $cname $cidx
-            tcl::dict::set TERM_colour_map_reverse $cidx $cname
-        } else {
-            set did_rename 0
-            #start suffixes at '-b'. The base name could be considered the '-a' version - but we don't create it.
-            foreach {suffix} {b c} {
-                if {![tcl::dict::exists $TERM_colour_map $cname-$suffix]} {
-                    tcl::dict::set TERM_colour_map $cname-$suffix $cidx
-                    tcl::dict::set TERM_colour_map_reverse $cidx $cname-$suffix
-                    set did_rename 1
-                    break
-                }
-            }
-            if {!$did_rename} {
-                error "Not enough suffixes for duplicate names in xterm colour list. Add more suffixes or review list"
-            }
-        }
-        incr cidx
-    }
-
-
-
-
-    #colour_hex2ansidec
-    #conversion of hex to format directly pluggable to ansi rgb format (colon separated e.g for foreground we need "38;2;$r;$g;$b" so we return $r;$g;$b)
-    #we want to support arbitrary rgb values specified in hex - so a table of 16M+ is probably not a great idea
-    #hex zero-padded - canonically upper case but mixed or lower accepted
-    #dict for {k v} $WEB_colour_map {
-    #    set dectriple [split $v -]
-    #    set webhex [::join [format %02X%02X%02X {*}$dectriple] ;# e.g 808080, FFFFFF, 000000
-    #    tcl::dict::set HEX_colour_map $webhex  [join $dectriple {;}]
-    #}
-    proc colour_hex2ansidec {hex6} {
-        return [join [::scan $hex6 %2X%2X%2X] {;}]
-    }
-
-    #convert between hex and decimal as used in the a+ function
-    # eg dec-dec-dec <-> #HHHHHH
-    #allow  hex to be specified with or without leading #
-    proc colour_hex2dec {hex6} {
-        set hex6 [tcl::string::map {# ""} $hex6]
-        return [join [::scan $hex6 %2X%2X%2X] {-}]
-    }
-    proc colour_dec2hex {decimalcolourstring} {
-        set dec [tcl::string::map [list {;} - , -] $decimalcolourstring]
-        set declist [split $dec -]
-        set hex #[format %02X%02X%02X {*}$declist]
-    }
-
-    proc get_sgr_map {} {
-        variable SGR_map
-        return $SGR_map
-    }
-
-    proc colourmap1 {args} {
-        set opts {-bg Web-white -forcecolour 0}
-        foreach {k v} $args {
-            switch -- $k {
-                -bg - -forcecolour {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "colourmap1 unrecognised option $k. Known-options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        } else {
-            set fc ""
-        }
-        set bgname [tcl::dict::get $opts -bg]
-
-        package require textblock
-        set bg [textblock::block 33 3 "[a+ {*}$fc $bgname] [a]"]
-        set colourmap ""
-        set RST [a]
-        for {set i 0} {$i <= 7} {incr i} {
-            #append colourmap "_[a+ white bold 48\;5\;$i] $i [a]"
-            append colourmap "_[a+ {*}$fc white bold Term-$i] $i $RST"
-        }
-        set map1 [overtype::left -transparent _ $bg "\n$colourmap"]
-        return $map1
-    }
-    proc colourmap2 {args} {
-        set defaults {-forcecolour 0 -bg Web-white}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set bgname [tcl::dict::get $opts -bg]
-
-        package require textblock
-        set bg [textblock::block 39 3 "[a+ {*}$fc $bgname] [a]"]
-        set colourmap ""
-        set RST [a]
-        for {set i 8} {$i <= 15} {incr i} {
-            if {$i == 8} {
-                set fg "bold white"
-            } else {
-                set fg "black normal" ;#black normal is often blacker than black bold - which can display as a grey
-            }
-            append colourmap "_[a+ {*}$fc {*}$fg 48\;5\;$i] $i $RST"
-        }
-        set map2 [overtype::left -transparent _ $bg "\n$colourmap"]
-        return $map2
-    }
-    proc colourtable_216 {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        package require textblock
-        set clist [list]
-        set fg "black"
-        for {set i 16} {$i <=231} {incr i} {
-            if {$i % 18 == 16} {
-                if {$fg eq "black"} {
-                    set fg "bold white"
-                } else {
-                    set fg "black"
-                }
-            }
-            lappend clist "[a+ {*}$fc {*}$fg Term-$i][format %3s $i]"
-        }
-
-        set t [textblock::list_as_table -columns 36 -return tableobject $clist]
-        $t configure -show_hseps 0
-        #return [$t print]
-        return $t
-    }
-
-    #1st 16 colours of 256 - match SGR colours
-    proc colourblock_16 {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set out ""
-        set fg "bold white"
-        for {set i 0} {$i <= 15} {incr i} {
-            #8 is black - so start black fg at 9
-            if {$i > 8} {
-                set fg "web-black"
-            }
-            append out "[a+ {*}$fc {*}$fg Term-$i][format %3s $i] "
-        }
-        return $out[a]
-    }
-    proc colourtable_16_names {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        variable TERM_colour_map_reverse
-        set rows [list]
-        set row [list]
-        set fg "web-white"
-        set t [textblock::class::table new]
-        $t configure -show_seps 0 -show_edge 0
-        for {set i 0} {$i <=15} {incr i} {
-            set cname [tcl::dict::get $TERM_colour_map_reverse $i] ;#use term-$i etc instead of term-$name?
-            if {[llength $row]== 8} {
-                lappend rows $row
-                set row [list]
-            }
-            if {$i == 8} {
-                set fg "web-white"
-            } elseif {$i > 6} {
-                set fg "web-black"
-            }
-            #lappend row "[a+ {*}$fc {*}$fg Term-$cname][format %3s $i] $cname "
-            lappend row "[a+ {*}$fc {*}$fg Term-$i][format %3s $i] $cname "
-        }
-        lappend rows $row
-        foreach r $rows {
-            $t add_row $r
-        }
-        append out [$t print]
-        $t destroy
-        append out [a]
-        return [tcl::string::trimleft $out \n]
-
-    }
-    #216 colours of 256
-    proc colourblock_216 {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set out ""
-        set fg "web-black"
-        for {set i 16} {$i <=231} {incr i} {
-            if {$i % 18 == 16} {
-                if {$fg eq "web-black"} {
-                    set fg "web-white"
-                } else {
-                    set fg "web-black"
-                }
-                set br "\n"
-            } else {
-                set br ""
-            }
-            append out "$br[a+ {*}$fc {*}$fg Term-$i][format %3s $i] "
-        }
-        append out [a]
-        return [tcl::string::trimleft $out \n]
-    }
-
-    #x6 is reasonable from a width (124 screen cols) and colour viewing perspective
-    proc colourtable_216_names {args} {
-        set defaults {-forcecolour 0 -columns 6}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set cols [tcl::dict::get $opts -columns]
-
-        set out ""
-        #use the reverse lookup dict - the original xterm_names list has duplicates - we want the disambiguated (potentially suffixed) names
-        variable TERM_colour_map_reverse
-        set rows [list]
-        set row [list]
-        set fg "web-black"
-        set t [textblock::class::table new]
-        $t configure -show_seps 0 -show_edge 0
-        for {set i 16} {$i <=231} {incr i} {
-            set cname [tcl::dict::get $TERM_colour_map_reverse $i] ;#use term-cname etc instead of term-$i - may as well let a+ cache the call by name as the preferred? option
-            if {[llength $row]== $cols} {
-                lappend rows $row
-                set row [list]
-            }
-            if {$i % 18 == 16} {
-                if {$fg eq "web-black"} {
-                    set fg "web-white"
-                } else {
-                    set fg "web-black"
-                }
-            }
-            lappend row "[a+ {*}$fc {*}$fg Term-$cname][format %3s $i] $cname "
-        }
-        lappend rows $row
-        foreach r $rows {
-            $t add_row $r
-        }
-        append out [$t print]
-        $t destroy
-        append out [a]
-        return [tcl::string::trimleft $out \n]
-    }
-    proc colourtable_term_pastel {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set out ""
-        set rows [list]
-        #see https://www.hackitu.de/termcolor256/
-        lappend rows {59 95  131 167 174 181 188}
-        lappend rows {59 95  131 173 180 187 188}
-        lappend rows {59 95  137 179 186 187 188}
-        lappend rows {59 101 143 185 186 187 188}
-        lappend rows {59  65 107 149 186 187 188}
-        lappend rows {59  65  71 113 150 187 188}
-        lappend rows {59  65  71  77 114 151 188}
-        lappend rows {59  65  71  78 115 152 188}
-        lappend rows {59  65  72  79 116 152 188}
-        lappend rows {59  66  73  80 116 152 188}
-        lappend rows {59  60  67  74 116 152 188}
-        lappend rows {59  60  61  68 110 152 188}
-        lappend rows {59  60  61  62 104 146 188}
-        lappend rows {59  60  61  98 140 182 188}
-        lappend rows {59  60  97 134 176 182 188}
-        lappend rows {59  96 133 170 176 182 188}
-        lappend rows {59  95 132 169 176 182 188}
-        lappend rows {59  95 131 168 175 182 188}
-
-        set t [textblock::class::table new]
-        $t configure -show_seps 0 -show_edge 0
-        set fg "web-black"
-        foreach r $rows {
-            set rowcells [list]
-            foreach cnum $r {
-                lappend rowcells "[a+ {*}$fc $fg Term-$cnum][format %3s $cnum] "
-            }
-            $t add_row $rowcells
-        }
-        append out [$t print]
-        $t destroy
-        set pastel8 [list 102 138 144 108 109 103 139 145]
-        set p8 ""
-        foreach cnum $pastel8 {
-            append p8 "[a+ {*}$fc $fg Term-$cnum][format %3s $cnum] "
-        }
-        #append p8 [a]\n
-        #append out \n $p8
-
-        append p8 [a]
-        append out \n $p8
-
-        return $out
-    }
-    proc colourtable_term_rainbow {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set out ""
-        set rows [list]
-        set fgwhite [list 16 52 88 124 160 22 17 18 19 20 21 57 56 93 55 92 54 91 53 90 89 126 88 125 124 160]
-        #see https://www.hackitu.de/termcolor256/
-        lappend rows {16 52 88  124 160 196 203 210 217 224 231}
-        lappend rows {16 52 88  124 160 202 209 216 223 230 231}
-        lappend rows {16 52 88  124 166 208 215 222 229 230 231}
-        lappend rows {16 52 88  130 172 214 221 228 229 230 231}
-        lappend rows {16 52 94  136 178 220 227 227 228 230 231}
-
-        lappend rows {16 58 100 142 184 226 227 228 228 230 231}
-
-        lappend rows {16 22 64  106 148 190 227 228 229 230 231}
-        lappend rows {16 22 28   70 112 154 191 228 229 230 231}
-        lappend rows {16 22 28   34  76 118 155 192 229 230 231}
-        lappend rows {16 22 28   34  40  82 119 156 193 230 231}
-        lappend rows {16 22 28   34  40  46  83 120 157 194 231}
-        lappend rows {16 22 28   34  40  47  84 121 158 195 231}
-        lappend rows {16 22 28   34  41  48  85 122 158 195 231}
-        lappend rows {16 22 28   35  42  49  86 123 159 195 231}
-        lappend rows {16 22 29   36  43  50  87 123 159 195 231}
-
-        lappend rows {16 23 30   37  44  51  87 123 159 195 231}
-
-        lappend rows {16 17 24   31  38  45  87 123 159 195 231}
-        lappend rows {16 17 18   25  32  39  81 123 159 195 231}
-        lappend rows {16 17 18   19  26  33  75 117 159 195 231}
-        lappend rows {16 17 18   19  20  27  69 111 153 195 231}
-        lappend rows {16 17 18   19  20  21  63 105 147 189 231}
-        lappend rows {16 17 18   19  20  57  99 141 183 225 231}
-        lappend rows {16 17 18   19  56  93 135 177 219 225 231}
-        lappend rows {16 17 18   55  92 129 171 213 219 225 231}
-        lappend rows {16 17 54   91 128 165 207 213 219 225 231}
-
-        lappend rows {16 53 90  127 164 201 207 213 219 225 231}
-
-        lappend rows {16 52 89  126 163 200 207 213 219 225 231}
-        lappend rows {16 52 88  125 162 199 206 213 219 225 231}
-        lappend rows {16 52 88  124 161 198 205 212 219 225 231}
-        lappend rows {16 52 88  124 160 197 204 211 218 225 231}
-
-
-        set t [textblock::class::table new]
-        $t configure -show_seps 0 -show_edge 0
-        foreach r $rows {
-            set rowcells [list]
-            foreach cnum $r {
-                if {$cnum in $fgwhite} {
-                    set fg "web-white"
-                } else {
-                    set fg "web-black"
-                }
-                lappend rowcells "[a+ {*}$fc $fg Term-$cnum][format %3s $cnum] "
-            }
-            $t add_row $rowcells
-        }
-        append out [$t print]
-        $t destroy
-        return $out
-    }
-    #24 greys of 256
-    proc colourblock_24 {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-
-        set out ""
-        set fg "bold white"
-        for {set i 232} {$i <= 255} {incr i} {
-            if {$i > 243} {
-                set fg "web-black"
-            }
-            append out "[a+ {*}$fc {*}$fg Term-$i][format %3s $i] "
-        }
-        return $out[a]
-
-    }
-    proc colourtable_24_names {args} {
-        set defaults {-forcecolour 0}
-        set opts [tcl::dict::merge $defaults $args]
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-
-        variable TERM_colour_map_reverse
-        set rows [list]
-        set row [list]
-        set fg "web-white"
-        set t [textblock::class::table new]
-        $t configure -show_hseps 0 -show_edge 0
-        for {set i 232} {$i <=255} {incr i} {
-            set cname [tcl::dict::get $TERM_colour_map_reverse $i] ;#use term-cname etc instead of term-$i - may as well let a+ cache the call by name as the preferred? option
-            if {[llength $row]== 8} {
-                lappend rows $row
-                set row [list]
-            }
-            if {$i > 243} {
-                set fg "web-black"
-            }
-            lappend row "[a+ {*}$fc {*}$fg Term-$cname][format %3s $i] $cname "
-        }
-        lappend rows $row
-        foreach r $rows {
-            $t add_row $r
-        }
-        append out [$t print]
-        $t destroy
-        append out [a]
-        return [tcl::string::trimleft $out \n]
-
-    }
-
-    if {[catch {package require punk::ansi::colourmap} errM]} {
-        puts stderr "punk::ansi FAILED to load punk::ansi::colourmap\n$errM"
-    }
-    if {[info exists ::punk::ansi::colourmap::TK_colour_map]} {
-        upvar ::punk::ansi::colourmap::TK_colour_map        TK_colour_map
-        upvar ::punk::ansi::colourmap::TK_colour_map_lookup TK_colour_map_lookup
-    } else {
-        puts stderr "Failed to find TK_colour_map - punk::ansi::colourmap package not loaded?"
-        variable TK_colour_map {}
-        variable TK_colour_map_lookup {}
-    }
-
-    #order-preserving
-    proc lunique {list} {
-        set new {}
-        foreach item $list {
-            if {$item ni $new} {
-            lappend new $item
-            }
-        }
-        return $new
-    }
-
-    proc colourtable_tk {args} {
-        set opts {-forcecolour 0 -groups * -merged 0 -globs *}
-        foreach {k v} $args {
-            switch -- $k {
-                -groups - -merged - -forcecolour - -globs {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "colourtable_tk unrecognised option '$k'. Known-options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-
-        #not implemented - todo? Tk
-        set groups [tcl::dict::get $opts -groups]
-
-        set do_merge [tcl::dict::get $opts -merged]
-        set globs [tcl::dict::get $opts -globs]
-
-
-
-        set blocklist [list] ;#vertical blocks consisting of blockrows
-        set blockrow [list]
-        set height 50 ;#number of lines (excluding header) vertically in a blockrow
-        set columns 5 ;#number of columns in a blockrow
-        variable TK_colour_map ;#use the version without lowercased additions - this gives the display names with casing as shown in Tk colour man page.
-        if {!$do_merge} {
-            set map $TK_colour_map
-            if {$globs eq "*"} {
-                set keys [dict keys $TK_colour_map]
-            } else {
-                set keys [list]
-                set mapkeys [dict keys $TK_colour_map]
-                foreach g $globs {
-                    #lappend keys {*}[dict keys $map $g]
-                    #need case insensitive globs for convenience.
-                    lappend keys {*}[lsearch -all -glob -inline -nocase $mapkeys $g]
-                }
-                set keys [lunique $keys]
-            }
-        } else {
-            #todo - make glob fully search when do_merge
-            #needs to get keys from all names - but then map to keys that have dependent names
-            upvar ::punk::ansi::colourmap::TK_colour_map_merge map
-            upvar ::punk::ansi::colourmap::TK_colour_map_reverse reversemap
-            if {$globs eq "*"} {
-                set keys [dict keys $map]
-            } else {
-                set keys [list]
-                set allkeys [dict keys $TK_colour_map]
-
-                foreach g $globs {
-                    set matchedkeys [lsearch -all -glob -inline -nocase $allkeys $g]
-                    foreach m $matchedkeys {
-                        if {![dict exists $map $m]} {
-                            #not a parent in a merge
-                            set rgb [dict get $TK_colour_map $m]
-                            set names [dict get $reversemap $rgb]
-                            #first name is the one that is in the merge map
-                            lappend keys [lindex $names 0]
-                        } else {
-                            lappend keys $m
-                        }
-                    }
-                }
-                set keys [lunique $keys]
-            }
-        }
-        set overheight 0
-
-
-        set t ""
-        set start 0
-        set colidx -1
-        set i -1
-        foreach cname $keys {
-            incr i
-            set data [dict get $map $cname]
-            if {$overheight || $i % $height == 0} {
-                set overheight 0
-                incr colidx
-                if {$t ne ""} {
-                    $t configure -frametype {}
-                    $t configure_column 0 -headers [list "TK colours $start - $i"]
-                    $t configure_column 0 -header_colspans [list any]
-                    $t configure -ansibase_header [a+ {*}$fc web-black Web-white]
-                    lappend blockrow [$t print] " "
-                    $t destroy
-                    if {$colidx % $columns == 0} {
-                        lappend blocklist $blockrow
-                        set blockrow [list]
-                    }
-                }
-                set start $i
-                set t [textblock::class::table new]
-                $t configure -show_edge 0 -show_seps 0 -show_header 1 -minwidth 42
-            }
-            if {!$do_merge} {
-                set cdec $data
-                $t add_row [list $cname " [colour_dec2hex $cdec] " $cdec]
-            } else {
-                set cdec        [dict get $data colour]
-                set othernames  [dict get $data names]
-                set ndisplay [join [list $cname {*}$othernames] \n]
-                $t add_row [list $ndisplay " [colour_dec2hex $cdec] " $cdec]
-                set overheight 0
-                foreach n $othernames {
-                    incr i
-                    if {$i % $height == 0} {
-                        set overheight 1
-                    }
-                }
-            }
-            set fg "rgb-$cdec-contrasting"
-            $t configure_row [expr {[$t row_count]-1}] -ansibase [a+ {*}$fc $fg Rgb-$cdec]
-        }
-
-        if {$t ne ""} {
-            $t configure -frametype {}
-            $t configure_column 0 -headers [list "TK colours $start - $i"]
-            $t configure_column 0 -header_colspans [list any]
-            $t configure -ansibase_header [a+ {*}$fc web-black Web-white]
-            lappend blockrow [$t print] " "
-            lappend blocklist $blockrow
-            $t destroy
-        }
-
-        set result ""
-        foreach blockrow $blocklist {
-            append result [textblock::join -- {*}$blockrow] \n
-        }
-
-        return $result
-    }
-
-    #set WEB_colour_map [tcl::dict::merge\
-    #    $WEB_colour_map_basic\
-    #    $WEB_colour_map_pink\
-    #    $WEB_colour_map_red\
-    #    $WEB_colour_map_orange\
-    #    $WEB_colour_map_yellow\
-    #    $WEB_colour_map_brown\
-    #    $WEB_colour_map_purple\
-    #    $WEB_colour_map_blue\
-    #    $WEB_colour_map_cyan\
-    #    $WEB_colour_map_green\
-    #    $WEB_colour_map_white\
-    #    $WEB_colour_map_gray\
-    #]
-    proc colourtable_web {args} {
-        set opts {-forcecolour 0 -groups *}
-        foreach {k v} $args {
-            switch -- $k {
-                -groups - -forcecolour {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "colourtable_web unrecognised option '$k'. Known-options: [tcl::dict::keys $defaults]"
-                }
-            }
-        }
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-        set groups [tcl::dict::get $opts -groups]
-
-        #set all_groupnames [list basic pink red orange yellow brown purple blue cyan green white gray]
-        set all_groupnames [list basic brown yellow red pink orange purple blue cyan green white gray]
-        switch -- $groups {
-            "" - * {
-                set show_groups $all_groupnames
-            }
-            ? {
-                return "Web group names: $all_groupnames"
-            }
-            default {
-                foreach g $groups {
-                    if {$g ni $all_groupnames} {
-                        error "colourtable_web group name '$g' not known. Known colour groups: $all_groupnames"
-                    }
-                }
-                set show_groups $groups
-            }
-        }
-        set grouptables [list]
-        #set white_fg_list [list\
-        #    mediumvioletred deeppink\
-        #    darkred red firebrick crimson indianred\
-        #    orangered\
-        #    maroon brown saddlebrown sienna\
-        #    indigo purple darkmagenta darkviolet darkslateblue blueviolet darkorchid fuchsia magenta slateblue mediumslateblue\
-        #    midnightblue navy darkblue mediumblue blue royalblue steelblue dodgerblue\
-        #    teal darkcyan\
-        #    darkgreen green darkolivegreen forestgreen seagreen olive olivedrab\
-        #    black darkslategray dimgray slategray\
-        #    ]
-        foreach g $show_groups {
-            #upvar WEB_colour_map_$g map_$g
-            variable WEB_colour_map_$g
-            set t [textblock::class::table new]
-            $t configure -show_edge 0 -show_seps 0 -show_header 1
-            tcl::dict::for {cname cdec} [set WEB_colour_map_$g] {
-                $t add_row [list "$cname " "[colour_dec2hex $cdec] " $cdec]
-                set fg "rgb-$cdec-contrasting"
-                #if {$cname in $white_fg_list} {
-                #    set fg "web-white"
-                #} else {
-                #    set fg "web-black"
-                #}
-                #$t configure_row [expr {[$t row_count]-1}] -ansibase [a+ {*}$fc $fg Rgb-$cdec]
-                $t configure_row [expr {[$t row_count]-1}] -ansibase [a+ {*}$fc $fg Web-$cname]
-            }
-            $t configure -frametype {}
-            $t configure_column 0 -headers [list "[tcl::string::totitle $g] colours"]
-            $t configure_column 0 -header_colspans [list any]
-            $t configure -ansibase_header [a+ {*}$fc web-black Web-white]
-            lappend grouptables [$t print]
-            $t destroy
-        }
-        #set displaytable [textblock::class::table new]
-        set displaytable [textblock::list_as_table -columns 3 -return tableobject $grouptables]
-        $displaytable configure -show_header 0 -show_vseps 0
-        #return $displaytable
-        set result [$displaytable print]
-        $displaytable destroy
-        return $result
-    }
-    proc colourtable_x11diff {args} {
-        variable X11_colour_map_diff
-        variable WEB_colour_map
-        set opts [tcl::dict::create\
-            -forcecolour 0\
-            -return "string"\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -return - -forcecolour {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "colourtable_x11diff unrecognised option '$k'. Known options [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        set fc ""
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc "forcecolour"
-        }
-
-        set comparetables [list] ;# 2 side by side x11 and web
-
-        # -- --- ---
-        set t [textblock::class::table new]
-        $t configure -show_edge 0 -show_seps 0 -show_header 1
-        tcl::dict::for {cname cdec} [set X11_colour_map_diff] {
-            $t add_row [list "$cname " "[colour_dec2hex $cdec] " $cdec]
-            set fg "web-white"
-            $t configure_row [expr {[$t row_count]-1}] -ansibase [a+ {*}$fc $fg X11-$cname]
-        }
-        $t configure -frametype block
-        $t configure_column 0 -headers [list "X11"]
-        $t configure_column 0 -header_colspans [list any]
-        $t configure -ansibase_header [a+ {*}$fc web-black Web-white]
-        lappend comparetables [$t print]
-        $t destroy
-        # -- --- ---
-
-        set WEB_map_subset [tcl::dict::create]
-        tcl::dict::for {k v} $X11_colour_map_diff {
-            tcl::dict::set WEB_map_subset $k [tcl::dict::get $WEB_colour_map $k]
-        }
-
-        # -- --- ---
-        set t [textblock::class::table new]
-        $t configure -show_edge 0 -show_seps 0 -show_header 1
-        tcl::dict::for {cname cdec} [set WEB_map_subset] {
-            $t add_row [list "$cname " "[colour_dec2hex $cdec] " $cdec]
-            set fg "web-white"
-            $t configure_row [expr {[$t row_count]-1}] -ansibase [a+ {*}$fc $fg Web-$cname]
-        }
-        $t configure -frametype block
-        $t configure_column 0 -headers [list "Web"]
-        $t configure_column 0 -header_colspans [list any]
-        $t configure -ansibase_header [a+ {*}$fc web-black Web-white]
-        lappend comparetables [$t print]
-        $t destroy
-        # -- --- ---
-
-        set displaytable [textblock::list_as_table -columns 2 -return tableobject $comparetables]
-        $displaytable configure -show_header 0 -show_vseps 0
-
-        if {[tcl::dict::get $opts -return] eq "string"} {
-            set result [$displaytable print]
-            $displaytable destroy
-            return $result
-        }
-
-        return $displaytable
-    }
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::a?
-        @cmd    -name "punk::ansi::a?"\
-            -summary\
-            "ANSI colour information"\
-            -help\
-            ""
-        @form   -form "sgr_overview"
-        @values -form "sgr_overview" -min 0 -max 0
-
-
-        @form   -form "term"
-        @leaders -form "term" -min 1 -max 1
-        term    -type literal(term) -help\
-            "256 term colours"
-        @opts -min 0 -max 0
-        @values -form "term" -min 0 -max -1
-        panel -type string -optional 1 -multiple 1 -default {16 main greyscale note}\
-            -choices {16 main greyscale pastel rainbow note}
-
-        @form   -form "tk"
-        @leaders -form "tk" -min 1 -max 1
-        tk -type literal(tk)|literal(TK) -help\
-            "Tk colours"
-        @opts -form "tk"
-        -merged -type none -help\
-            "If this flag is supplied - show colour names with the same RGB
-              values together."
-        @values -form "tk" -min 0 -max -1
-        glob -type string -optional 1 -multiple 1 -help\
-            "A glob string such as *green*.
-              Multiple glob entries can be provided. The search is case insensitive"
-
-
-        @form   -form "web"
-        @values -form "web" -min 1 -max -1
-        web -type literal(web) -help\
-            "Web colours"
-        panel -type string -optional 1 -multiple 1 -choices {basic pink red orange yellow brown purple blue cyan green white gray}
-
-        @form   -form "x11"
-        @values -form "x11" -min 1 -max 1
-        x11 -type literal(x11) -help\
-            "x11 colours"
-
-
-        @form   -form  "sample"
-        @values -form  "sample" -min 1 -max -1
-        colourcode  -type sgr|Sgr|literalprefix(term-)|literalprefix(Term-)|literalprefix(web-)|literalprefix(Web-)|literalprefix(rgb)|literalprefix(Rgb)\
-            -optional 0\
-            -multiple 1
-
-    }]
-    proc a? {args} {
-        #*** !doctools
-        #[call [fun a?] [opt {ansicode...}]]
-        #[para]Return an ansi string representing a table of codes and a panel showing the colours
-        variable SGR_setting_map
-        variable SGR_colour_map
-        variable TK_colour_map_lookup
-        set fcposn [lsearch $args "force*"]
-        set fc ""
-        set opt_forcecolour 0
-        if {$fcposn >= 0} {
-            set fc "forcecolour"
-            set opt_forcecolour 1
-            set args [lremove $args $fcposn]
-        }
-
-        if {![llength $args]} {
-            set out ""
-            set indent "    "
-            set RST [a]
-            append out "[a+ {*}$fc web-white]Extended underlines$RST" \n
-            set undercurly "undercurly \[a+ undercurly und-199-21-133\]text\[a] -> [a+ undercurly und-199-21-133]text$RST"
-            set underdotted "underdotted \[a+ underdotted und#FFD700\]text\[a] -> [a+ underdotted und#FFD700]text$RST"
-            set underdashed "underdashed \[a+ underdashed undt-45\]text\[a] -> [a+ underdashed undt-45]text$RST"
-            set underline_c "named terminal colour SGR underline \[a+ underline undt-deeppink1\]text\[a] -> [a+ underline undt-deeppink1]text$RST"
-            append out  "${indent}$undercurly $underdotted" \n
-            append out  "${indent}$underdashed" \n
-            append out  "${indent}$underline_c"  \n
-            append out  "${indent}Extended underlines/colours can suppress other SGR codes on terminals that don't support them if codes are merged." \n
-            append out  "${indent}punk::ansi tries to keep them in separate escape sequences (standard SGR followed by extended) even during merge operations to avoid this." \n
-            append out  "${indent}If a fallback to standard underline is required, underline should be added along with extended codes such as underlinedotted, underlinedouble etc" \n
-            append out  "${indent}e.g cyan with curly yellow underline or fallback all cyan underlined \[a+ cyan undercurly underline undt-yellow\]text\[a] -> [a+ {*}$fc cyan undercurly underline undt-yellow]text$RST" \n
-            append out "[a+ {*}$fc web-white]Standard SGR colours and attributes $RST" \n
-            set settings_applied $SGR_setting_map
-            set strmap [list]
-            #safe jumptable test
-            #dict for {k v} $SGR_setting_map {}
-            tcl::dict::for {k v} $SGR_setting_map {
-                switch -- $k {
-                    bold - dim - italic - doubleunderline - blink - fastblink - strike - overline - framecircle {
-                        lappend strmap " $k " " [a+ $k]$k$RST "
-                    }
-                    noreverse - nounderline {
-                        #prefixed version will match before unprefixed -  will not be subject to further replacement scanning
-                        lappend strmap "$k" "[a+ $k]$k$RST"  ;#could replace with self - but may as well put in punk::ansi::sgr_cache (can make cache a little neater to display)
-                    }
-                    underline - reverse - frame {
-                        #1st coloumn - no leading space
-                        lappend strmap "$k " "[a+ $k]$k$RST "
-                    }
-                }
-            }
-            set settings_applied [tcl::string::trim $SGR_setting_map \n]
-            try {
-                package require overtype ;# circular dependency - many components require overtype. Here we only need it for nice layout in the a? query proc - so we'll do a soft-dependency by only loading when needed and also wrapping in a try
-                package require textblock
-
-                append out  [textblock::join -- $indent [tcl::string::map $strmap $settings_applied]] \n
-                append out  [textblock::join -- $indent [tcl::string::trim $SGR_colour_map \n]] \n
-                append out  [textblock::join -- $indent "Example: \[a+ bold red White underline\]text\[a] -> [a+ bold red White underline]text[a]"] \n \n
-                set bgname "Web-white"
-                set map1 [colourmap1 -bg $bgname -forcecolour $opt_forcecolour]
-                set map1 [overtype::centre -transparent 1 $map1 "[a {*}$fc black $bgname]Standard colours[a]"]
-                set map2 [colourmap2 -bg $bgname -forcecolour $opt_forcecolour]
-                set map2 [overtype::centre -transparent 1 $map2 "[a {*}$fc black $bgname]High-intensity colours[a]"]
-                append out  [textblock::join -- $indent [textblock::join -- $map1 $map2]] \n
-                append out "[a+ {*}$fc web-white]216 colours of 256 terminal colours (To see names, use: a? term ?pastel? ?rainbow?)[a]" \n
-                append out  [textblock::join -- $indent [colourblock_216 -forcecolour $opt_forcecolour]] \n
-                append out "[a+ {*}$fc web-white]24 Greyscale colours[a]" \n
-                append out  [textblock::join -- $indent [colourblock_24 -forcecolour $opt_forcecolour]] \n
-                append out \n
-                append out  [textblock::join -- $indent "Example: \[a+ Term-92 term-49\]text\[a] -> [a+ {*}$fc Term-92 term-49]text[a]"] \n
-                append out  [textblock::join -- $indent "Example: \[a+ Term-lightsteelblue term-gold1\]text\[a] -> [a+ {*}$fc Term-lightsteelblue term-gold1]text[a]"] \n
-                append out  [textblock::join -- $indent "Example: \[a+ term-lightsteelblue Term-gold1\]text\[a] -> [a+ {*}$fc term-lightsteelblue Term-gold1]text[a]"] \n
-                append out \n
-                append out "[a+ {*}$fc web-white]16 Million colours[a]" \n
-                #tcl::dict::set WEB_colour_map mediumvioletred      199-21-133     ;#  #C71585
-                append out  [textblock::join -- $indent "Example: \[a+ rgb-199-21-133\]text\[a] -> [a+ {*}$fc rgb-199-21-133]text[a]"] \n
-                append out  [textblock::join -- $indent "Example: \[a+ Rgb#C71585\]text\[a] -> [a+ {*}$fc Rgb#C71585]text[a]"] \n
-                append out  [textblock::join -- $indent "Examine a sequence: a? bold rgb-46-139-87 Rgb#C71585 "] \n
-                append out \n
-                append out "[a+ {*}$fc web-white]Web colours[a]" \n
-                append out  [textblock::join -- $indent "To see all names use: a? web"] \n
-                append out  [textblock::join -- $indent "To see specific colour groups use: a? web groupname1 groupname2..."] \n
-                append out  [textblock::join -- $indent "Valid group names (can be listed in any order): basic pink red orange yellow brown purple blue cyan green white grey"] \n
-                append out \n
-                append out  [textblock::join -- $indent "Example: \[a+ Web-springgreen web-crimson\]text\[a] -> [a+ {*}$fc Web-springgreen web-coral]text[a]"] \n
-                append out \n
-                append out "[a+ {*}$fc web-white]X11 colours[a] - mostly match Web colours" \n
-                append out  [textblock::join -- $indent "To see differences: a? x11"] \n
-                append out \n
-                append out "[a+ {*}$fc web-white]Tk colours[a]" \n
-                append out  [textblock::join -- $indent "To see all 750+ names use: a? tk"] \n
-                append out  [textblock::join -- $indent "Restrict the results using globs e.g a? tk *green* *yellow*"] \n
-                append out  [textblock::join -- $indent "The foreground colour in this table is generated using the contrasting suffix"] \n
-                append out  [textblock::join -- $indent "Example: \[a+ tk-tan-contrasting Tk-tan\]text\[a] -> [a+ {*}$fc tk-tan-contrasting Tk-tan]text[a]"] \n
-                append out \n
-                append out "[a+ {*}$fc web-white]Combination testing[a]" \n
-                append out  [textblock::join -- $indent "Example: a? red brightgreen underline Tk-slategrey italic"] \n
-                append out  [textblock::join -- $indent "This will show a small table of each applied code and a RESULT row. The 'red' in this case is redundant,"] \n
-                append out  [textblock::join -- $indent "so a final MERGED row displays with an alert 'REDUNDANCIES FOUND'."] \n
-                append out  [textblock::join -- $indent "The final columns of RESULT and MERGED (showing raw ANSI sequence) will differ if the arguments aren't in canonical order."] \n
-                append out  [textblock::join -- $indent "The MERGED line will only display if there are redundancies or different ordering."] \n
-
-
-                if {[tcl::info::exists ::punk::console::colour_disabled] && $::punk::console::colour_disabled} {
-                    append out \n
-                    if {$fc ne ""} {
-                        append out  "[a+ {*}$fc web-white]Colour is currently disabled - returning with colour anyway because 'forcecolour' argument was supplied[a]" \n
-                    } else {
-                        append out  "Colour is currently disabled - to return with colour anyway - add the 'forcecolour' argument" \n
-                    }
-                }
-
-            } on error {result options} {
-                puts stderr "Failed to draw colourmap"
-                puts stderr "$result"
-            } finally {
-                return $out
-            }
-        } else {
-            switch -- [lindex $args 0] {
-                term {
-                    set argd [punk::args::parse $args -form "term" -errorstyle standard withid ::punk::ansi::a?]
-                    lassign [dict values $argd] leaders opts values received
-                    set panels [dict get $values panel]
-
-                    set out ""
-                    foreach panel $panels {
-                        #punk::args has already resolved prefixes to full panel names
-                        switch -- $panel {
-                            16 {
-                                append out "16 basic colours\n"
-                                append out [colourtable_16_names -forcecolour $opt_forcecolour] \n
-                            }
-                            main {
-                                append out "216 colours\n"
-                                append out [colourtable_216_names -forcecolour $opt_forcecolour] \n
-                            }
-                            note {
-                                append out "\nNote: The 256 term colours especially 0-15 may be altered by terminal palette settings or ansi OSC 4 codes, so specific RGB values are unavailable" \n
-                                append out    "     grey vs gray (UK/US spelling) - these are inconsistent for historical reasons. e.g grey0,lightslategrey,darkslategray1" \n
-                            }
-                            greyscale {
-                                append out "24 greyscale colours\n"
-                                append out [colourtable_24_names -forcecolour $opt_forcecolour] \n
-                            }
-                            pastel {
-                                append out "Pastel Colour Space (punk::ansi::colourtable_term_pastel)\n"
-                                append out [colourtable_term_pastel -forcecolour $opt_forcecolour] \n
-                            }
-                            rainbow {
-                                append out "Rainbow Colours (punk::ansi::colourtable_term_rainbow)\n"
-                                append out [colourtable_term_rainbow -forcecolour $opt_forcecolour] \n
-                            }
-                            default {
-                                #only reachable if punk::args definition is out of sync
-                                set panelnames {16 main greyscale pastel rainbow note}
-                                append out "(ERROR: unrecognised panel '$ta' for 'a? term'. Known values $panelnames)"
-                            }
-                        }
-                    }
-                    return $out
-                }
-                web {
-                    set argd [punk::args::parse $args -form "web" -errorstyle standard withid ::punk::ansi::a?]
-                    lassign [dict values $argd] leaders opts values received
-                    if {[dict exists $received panel]} {
-                        set panels [dict get $values panel]
-                    } else {
-                        set panels {*}
-                    }
-                    return [colourtable_web -forcecolour $opt_forcecolour -groups $panels]
-                }
-                tk - TK {
-                    set argd [punk::args::parse $args -form "tk" -errorstyle standard withid ::punk::ansi::a?]
-                    lassign [dict values $argd] leaders opts values received
-                    if {[dict exists $received glob]} {
-                        set globs [dict get $values glob]
-                    } else {
-                        set globs {*}
-                    }
-                    if {[dict exists $received -merged]} {
-                        set ismerged 1
-                    } else {
-                        set ismerged 0
-                    }
-                    return [colourtable_tk -merged $ismerged -forcecolour $opt_forcecolour -globs $globs]
-                }
-                x11 {
-                    set argd [punk::args::parse $args -form "x11" -errorstyle standard withid ::punk::ansi::a?]
-                    set out ""
-                    append out " Mostly same as web - known differences displayed" \n
-                    append out [colourtable_x11diff -forcecolour $opt_forcecolour]
-                    return $out
-                }
-            }
-
-            variable WEB_colour_map
-            variable X11_colour_map
-            variable TERM_colour_map
-            variable TERM_colour_map_reverse
-            variable SGR_map
-
-            set t [textblock::class::table new]
-            $t configure -show_edge 0 -show_seps 1 -show_header 0
-
-            set resultlist [list]
-            foreach i $args {
-                #set f4 [tcl::string::range $i 0 3]
-                set pfx [lindex [::split $i "-# "] 0]
-                set s [a+ {*}$fc $i]sample
-                switch -- $pfx {
-                    web - Web - WEB {
-                        set tail [tcl::string::tolower [tcl::string::trim [tcl::string::range $i 4 end] -]]
-                        set cont [string range $tail end-11 end]
-                        switch -- $cont {
-                            -contrasting - -contrastive {
-                                set cname [string range $tail 0 end-12]
-                            }
-                            default {
-                                set cname $tail
-                            }
-                        }
-                        if {[tcl::dict::exists $WEB_colour_map $cname]} {
-                            set dec [tcl::dict::get $WEB_colour_map $cname]
-                            switch -- $cont {
-                                -contrasting {
-                                    set dec [join [punk::ansi::colour::contrasting {*}[split $dec -]] -]
-                                }
-                                -contrastive {
-                                    set dec [join [lindex [punk::ansi::colour::contrast_pair {*}[split $dec -]] 0] -]
-                                }
-                            }
-                            set hex [colour_dec2hex $dec]
-                            set descr "$hex $dec"
-                        } else {
-                            set descr "UNKNOWN colour for web"
-                        }
-                        $t add_row [list $i $descr $s [ansistring VIEW $s]]
-                    }
-                    term - Term - undt {
-                        set tail [tcl::string::range $i 5 end]
-                        if {[tcl::string::is integer -strict $tail]} {
-                            if {$tail < 256} {
-                                set descr "[tcl::dict::get $TERM_colour_map_reverse $tail]"
-                            } else {
-                                set descr "Invalid (> 255)"
-                            }
-                        } else {
-                            set tail [tcl::string::tolower $tail]
-                            if {[tcl::dict::exists $TERM_colour_map $tail]} {
-                                set descr [tcl::dict::get $TERM_colour_map $tail]
-                            } else {
-                                set descr "UNKNOWN colour for term"
-                            }
-                        }
-                        $t add_row [list $i $descr $s [ansistring VIEW $s]]
-                    }
-                    x11 - X11 {
-                        set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                        set cont [string range $cname end-11 end]
-                        switch -exact -- $cont {-contrasting - -contrastive {set cname [string range $tail end-12]}}
-
-                        if {[tcl::dict::exists $X11_colour_map $cname]} {
-                            set dec [tcl::dict::get $X11_colour_map $cname]
-                            set hex [colour_dec2hex $dec]
-                            set descr "$hex $dec"
-                        } else {
-                            set descr "UNKNOWN colour for x11"
-                        }
-                        $t add_row [list $i $descr $s [ansistring VIEW $s]]
-                    }
-                    tk - Tk {
-                        set tail [tcl::string::tolower [tcl::string::range $i 3 end]]
-                        set cont [string range $tail end-11 end]
-                        switch -- $cont {
-                            -contrasting - -contrastive {
-                                set cname [string range $tail 0 end-12]
-                            }
-                            default {
-                                set cname $tail
-                            }
-                        }
-                        if {[tcl::dict::exists $TK_colour_map_lookup $cname]} {
-                            set dec [tcl::dict::get $TK_colour_map_lookup $cname]
-                            set hex [colour_dec2hex $dec]
-                            set descr "$hex $dec"
-                        } else {
-                            set descr "UNKNOWN colour for tk"
-                        }
-                        $t add_row [list $i $descr $s [ansistring VIEW $s]]
-                    }
-                    rgb - Rgb - RGB - und {
-                        set cont [string range $i end-11 end]
-                        switch -- $cont {
-                            -contrasting - -contrastive {
-                                set iplain [string range $i 0 end-12]
-                            }
-                            default {
-                                set iplain $i
-                            }
-                        }
-                        if {[tcl::string::index $iplain 3] eq "#"} {
-                            set tail [tcl::string::range $iplain 4 end]
-                            set hex $tail
-                            set dec [colour_hex2dec $hex]
-
-                            switch -- $cont {
-                                -contrasting {
-                                    set decfinal [join [punk::ansi::colour::contrasting {*}[split $dec -]] -]
-                                    set hexfinal [colour_dec2hex $decfinal]
-                                }
-                                -contrastive {
-                                    set decfinal [join [lindex [punk::ansi::colour::contrast_pair {*}[split $dec -]] 0] -]
-                                    set hexfinal [colour_dec2hex $decfinal]
-                                }
-                                default {
-                                    set hexfinal $hex
-                                    set decfinal $dec
-                                }
-                            }
-                            set info "$hexfinal $decfinal" ;#show opposite type as first line of info col
-                        } else {
-                            set tail [tcl::string::range $iplain 4 end]
-                            set dec $tail
-                            switch -- $cont {
-                                -contrasting {
-                                    set decfinal [join [punk::ansi::colour::contrasting {*}[split $dec -]] -]
-                                }
-                                -contrastive {
-                                    set decfinal [join [lindex [punk::ansi::colour::contrast_pair {*}[split $dec -]] 0] -]
-                                }
-                                default {
-                                    set decfinal $dec
-                                }
-                            }
-                            set hexfinal [colour_dec2hex $decfinal]
-                            set info "$hexfinal $decfinal"
-                        }
-
-                        set webcolours_i [lsearch -all $WEB_colour_map $decfinal]
-                        set webcolours [list]
-                        foreach ci $webcolours_i {
-                            lappend webcolours [lindex $WEB_colour_map $ci-1]
-                        }
-                        set x11colours [list]
-                        set x11colours_i [lsearch -all $X11_colour_map $decfinal]
-                        foreach ci $x11colours_i {
-                            set c [lindex $X11_colour_map $ci-1]
-                            if {$c ni $webcolours} {
-                                lappend x11colours $c
-                            }
-                        }
-                        if {[dict exists $::punk::ansi::colourmap::TK_colour_map_reverse $decfinal]} {
-                            set tkcolours [dict get $::punk::ansi::colourmap::TK_colour_map_reverse $decfinal]
-                        } else {
-                            set tkcolours [list]
-                        }
-                        foreach c $webcolours {
-                            append info \n web-$c
-                        }
-                        foreach c $x11colours {
-                            append info \n x11-$c
-                        }
-                        foreach c $tkcolours {
-                            append info \n tk-$c
-                        }
-                        $t add_row [list $i "$info" $s [ansistring VIEW $s]]
-                    }
-                    default {
-                        switch -- $i {
-                            undercurly - undercurl - underdotted - underdot - underdashed - underdash - undersingle - underdouble {
-                                $t add_row [list $i extended $s [ansistring VIEW $s]]
-                            }
-                            underline {
-                                $t add_row [list $i "SGR 4" $s [ansistring VIEW $s]]
-                            }
-                            underlinedefault {
-                                $t add_row [list $i "SGR 59" $s [ansistring VIEW $s]]
-                            }
-                            default {
-                                #$t add_row [list $i UNKNOWN $s [ansistring VIEW $s]]
-                                if {[tcl::string::is integer -strict $i]} {
-                                    set rmap [lreverse $SGR_map]
-                                    $t add_row [list $i "SGR [tcl::dict::get $rmap $i]" $s [ansistring VIEW $s]]
-                                } else {
-                                    if {[tcl::dict::exists $SGR_map $i]} {
-                                        $t add_row [list $i "SGR [tcl::dict::get $SGR_map $i]" $s [ansistring VIEW $s]]
-                                    } else {
-                                        $t add_row [list $i UNKNOWN $s [ansistring VIEW $s]]
-                                    }
-                                }
-                            }
-                        }
-                    }
-                }
-            }
-            set ansi [a+ {*}$fc {*}$args]
-            set s ${ansi}sample
-            #set merged [punk::ansi::codetype::sgr_merge_singles [list $ansi]]
-            set merged [punk::ansi::codetype::sgr_merge [list $ansi]]
-            set s2 ${merged}sample
-            #lappend resultlist "RESULT: [a+ {*}$args]sample[a]"
-            $t add_row [list RESULT "" $s [ansistring VIEW $s]]
-            if {$ansi ne $merged} {
-                if {[tcl::string::length $merged] < [tcl::string::length $ansi]} {
-                    #only refer to redundancies if shorter - merge may reorder - REVIEW
-                    set warning "[a+ web-red Web-yellow]REDUNDANCIES FOUND"
-                } else {
-                    set warning ""
-                }
-                $t add_row [list MERGED $warning $s2 [ansistring VIEW $s2]]
-            }
-            set result [$t print]
-            $t destroy
-            return $result
-        }
-    }
-
-    #REVIEW! note that OSC 4 can change the 256 color pallette
-    #e.g \x1b\]4\;1\;#HHHHHH\x1b\\
-    # (or with colour name instead of rgb #HHHHHH on for example wezterm)
-
-    #Q: If we can't detect OSC 4 - how do we know when to invalidate/clear at least the 256 color portion of the cache?
-    #A: The cache values should still be valid - and the terminal should display the newly assigned colour.
-    # If in line mode - perhaps readline or something else is somehow storing the rgb values and replaying invalid colours?
-    # On wezterm - we can get cells changing colour as we scroll after a pallette change - so something appears to be caching colours
-
-    variable sgr_cache
-    set sgr_cache [tcl::dict::create]
-
-    #sgr_cache clear called by punk::console::ansi when set to off
-
-    #punk::args depends on punk::ansi - REVIEW
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::sgr_cache
-        @cmd    -name punk::ansi::sgr_cache -help\
-            "Convenience function to view and optionally clear the ansi character attribute cache
-            (ansi SGR codes)"
-        -action -default "" -choices "clear" -help\
-            "-action clear will unset the keys in the punk::ansi::sgr_cache dict
-              This is called automatically when setting 'colour false' in the console"
-
-        -pretty -default 1 -type boolean  -help\
-            "use 'pdict punk::ansi::sgr_cache */%str,%ansiview' output"
-        @values -min 0 -max 0
-    }]
-    proc sgr_cache {args} {
-        set argd [punk::args::get_by_id ::punk::ansi::sgr_cache $args]
-        set action [dict get $argd opts -action]
-        set pretty [dict get $argd opts -pretty]
-
-        variable sgr_cache
-        if {$action eq "clear"} {
-            set sgr_cache [tcl::dict::create]
-            return "sgr_cache cleared"
-        }
-        if {$pretty} {
-            #return [pdict -channel none sgr_cache */%str,%ansiview]
-            return [punk::lib::pdict -channel none sgr_cache */%rpadstr-"sample",%ansiviewstyle]
-        }
-
-        if {[catch {
-            set termwidth [tcl::dict::get [punk::console::get_size] columns]
-        } errM]} {
-            set termwidth 80
-        }
-        set termwidth [expr [$termwidth -3]]
-        set out ""
-        set linelen 0
-        set RST [a]
-        set lines [list]
-        set line ""
-        #todo - terminal width? table?
-        tcl::dict::for {key ansi} $sgr_cache {
-            set thislen [expr {[tcl::string::length $key]+1}]
-            if {$linelen + $thislen >= $termwidth-1} {
-                lappend lines $line
-                set line "$ansi$key$RST "
-                set linelen $thislen
-            } else {
-                append line "$ansi$key$RST "
-                incr linelen $thislen
-            }
-        }
-        if {[tcl::string::length $line]} {
-            lappend lines $line
-        }
-        return [join $lines \n]
-    }
-
-    #PUNKARGS doc performed below, after we create the proc
-    proc a+ {args} {
-        #*** !doctools
-        #[call [fun a+] [opt {ansicode...}]]
-        #[para]Returns the ansi code to apply those from the supplied list - without any reset being performed first
-        #[para] e.g to set foreground red and bold
-        #[para]punk::ansi::a red bold
-        #[para]to set background red
-        #[para]punk::ansi::a Red
-        #[para]see [cmd punk::ansi::a?] to display a list of codes
-
-        #function name part of cache-key because a and a+ return slightly different results (a has leading reset)
-        variable sgr_cache
-        set cache_key "a+ $args" ;#ensure cache_key static - we may remove for example 'forcecolour' from args - but it needs to remain part of cache_key
-        if {[tcl::dict::exists $sgr_cache $cache_key]} {
-            return [tcl::dict::get $sgr_cache $cache_key]
-        }
-
-        #don't disable ansi here.
-        #we want this to be available to call even if ansi is off
-        variable WEB_colour_map
-        variable TERM_colour_map
-
-
-        set colour_disabled 0
-        #whatever function disables or re-enables colour should have made a call to punk::ansi::sgr_cache clear
-        if {[tcl::info::exists ::punk::console::colour_disabled] && $::punk::console::colour_disabled} {
-            set colour_disabled 1
-        }
-        #allow a mechanism to override the colour_disabled terminal preference - for code that is generating colour for something else - don't let no_color ruin everything.
-        set forcecolour 0
-        set fcpos [lsearch $args "force*"] ;#allow forcecolor forcecolour
-        if {$fcpos >= 0} {
-            set forcecolour 1
-            set args [lremove $args $fcpos]
-        }
-
-        set t [list]
-        set e [list] ;#extended codes needing to go in own escape sequence
-        foreach i $args {
-            set pfx [lindex [::split $i "-# "] 0]
-            #set f4 [tcl::string::range $i 0 3]
-            switch -- $pfx {
-                web {
-                    #variable WEB_colour_map
-                    #upvar ::punk::ansi::WEB_colour_map WEB_colour_map
-                    #foreground web colour
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    #-contrasting
-                    #-contrastive
-                    set cont [string range $cname end-11 end]
-                    switch -- $cont { -contrasting - -contrastive {set cname [string range $cname 0 end-12]} }
-
-                    if {[tcl::dict::exists $WEB_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $WEB_colour_map $cname]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgb [join [punk::ansi::colour::contrasting  {*}[split $rgbdash -]] {;}]
-                            }
-                            -contrastive {
-                                set rgb [join [lindex [punk::ansi::colour::contrast_pair  {*}[split $rgbdash -]] 0] {;}]
-                            }
-                            default {
-                                set rgb [tcl::string::map { - ;} $rgbdash]
-                            }
-                        }
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi web colour unmatched: '$i' in call 'a+ $args'"
-                    }
-                }
-                Web - WEB {
-                    #variable WEB_colour_map
-                    #upvar ::punk::ansi::WEB_colour_map WEB_colour_map
-                    #background web colour
-                    set tail [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    set cont [string range $tail end-11 end]
-                    switch -- $cont {
-                        -contrasting - -contrastive {
-                            set cname [string range $tail 0 end-12]
-                        }
-                        default {
-                            set cname $tail
-                        }
-                    }
-                    if {[tcl::dict::exists $WEB_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $WEB_colour_map $cname]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgb [join [punk::ansi::colour::contrasting  {*}[split $rgbdash -]] {;}]
-                            }
-                            -contrastive {
-                                set rgb [join [lindex [punk::ansi::colour::contrast_pair  {*}[split $rgbdash -]] 0] {;}]
-                            }
-                            default {
-                                set rgb [tcl::string::map { - ;} $rgbdash]
-                            }
-                        }
-                        lappend t "48;2;$rgb"
-                    } else {
-                        puts stderr "ansi Web colour unmatched: '$i' in call 'a+ $args'"
-                    }
-                }
-                reset           {lappend t 0}
-                bold            {lappend t 1}
-                dim             {lappend t 2}
-                blink           {lappend t 5}
-                fastblink       {lappend t 6 }
-                noblink         {lappend t 25}
-                hide            {lappend t 8}
-                normal          {lappend t 22}
-                underline       {lappend t 4}
-                underlinedefault {lappend t 59}
-                underextendedoff {
-                    #lremove any existing 4:1 etc
-                    #NOTE struct::set result order can differ depending on whether tcl/critcl imp used
-                    #set e [struct::set difference $e [list 4:1 4:2 4:3 4:4 4:5]]
-                    set e [punk::lib::ldiff $e [list 4:1 4:2 4:3 4:4 4:5]]
-                    lappend e 4:0
-                }
-                undersingle {
-                    lappend e 4:1
-                }
-                underdouble {
-                    lappend e 4:2
-                }
-                undercurly - undercurl {
-                    lappend e 4:3
-                }
-                underdotted - underdot {
-                    lappend e 4:4
-                }
-                underdashed - underdash {
-                    #TODO - fix
-                    # extended codes with colon suppress normal SGR attributes when in same escape sequence on terminal that don't support the extended codes.
-                    # need to emit in
-                    lappend e 4:5
-                }
-                doubleunderline {lappend t 21}
-                nounderline     {
-                                    lappend t 24 ;#nounderline
-                                    #set e [struct::set difference $e [list 4:1 4:2 4:3 4:4 4:5]]
-                                    lappend e 4:0
-                                }
-                strike          {lappend t 9}
-                nostrike        {lappend t 29}
-                italic          {lappend t 3}
-                noitalic        {lappend t 23}
-                reverse         {lappend t 7}
-                noreverse       {lappend t 27}
-                defaultfg       {lappend t 39}
-                defaultbg       {lappend t 49}
-                defaultund      {lappend t 59}
-                nohide          {lappend t 28}
-                overline        {lappend t 53}
-                nooverline      {lappend t 55}
-                frame           {lappend t 51}
-                framecircle     {lappend t 52}
-                noframe         {lappend t 54}
-                black           {lappend t 30}
-                red             {lappend t 31}
-                green           {lappend t 32}
-                yellow          {lappend t 33}
-                blue            {lappend t 34}
-                purple          {lappend t 35}
-                cyan            {lappend t 36}
-                white           {lappend t 37}
-                Black           {lappend t 40}
-                Red             {lappend t 41}
-                Green           {lappend t 42}
-                Yellow          {lappend t 43}
-                Blue            {lappend t 44}
-                Purple          {lappend t 45}
-                Cyan            {lappend t 46}
-                White           {lappend t 47}
-                brightblack     {lappend t 90}
-                brightred       {lappend t 91}
-                brightgreen     {lappend t 92}
-                brightyellow    {lappend t 93}
-                brightblue      {lappend t 94}
-                brightpurple    {lappend t 95}
-                brightcyan      {lappend t 96}
-                brightwhite     {lappend t 97}
-                Brightblack     {lappend t 100}
-                Brightred       {lappend t 101}
-                Brightgreen     {lappend t 102}
-                Brightyellow    {lappend t 103}
-                Brightblue      {lappend t 104}
-                Brightpurple    {lappend t 105}
-                Brightcyan      {lappend t 106}
-                Brightwhite     {lappend t 107}
-                term {
-                    #variable TERM_colour_map
-                    #256 colour foreground by Xterm name or by integer
-                    #name is xterm name or colour index from 0 - 255
-                    set cc [tcl::string::trim [tcl::string::tolower [tcl::string::range $i 4 end]] -]
-                    if {[tcl::string::is integer -strict $cc] & $cc < 256} {
-                        lappend t "38;5;$cc"
-                    } else {
-                        if {[tcl::dict::exists $TERM_colour_map $cc]} {
-                            lappend t "38;5;[tcl::dict::get $TERM_colour_map $cc]"
-                        } else {
-                            puts stderr "ansi term colour unmatched: '$i' in call 'a+ $args'"
-                        }
-                    }
-                }
-                Term - TERM {
-                    #variable TERM_colour_map
-                    #256 colour background by Xterm name or by integer
-                    set cc [tcl::string::trim [tcl::string::tolower [tcl::string::range $i 4 end]] -]
-                    if {[tcl::string::is integer -strict $cc] && $cc < 256} {
-                        lappend t "48;5;$cc"
-                    } else {
-                        if {[tcl::dict::exists $TERM_colour_map $cc]} {
-                            lappend t "48;5;[tcl::dict::get $TERM_colour_map $cc]"
-                        } else {
-                            puts stderr "ansi Term colour unmatched: '$i' in call 'a+ $args'"
-                        }
-                    }
-                }
-                rgb - Rgb - RGB {
-                    set utype [string index $i 3]
-                    if {$utype eq "-"} {
-                        #decimal rgb foreground/background
-                        #allow variants rgb-xxx-xxx-xxx and rgbxxx-xxx-xxx
-                        set cont [string range $i end-11 end]
-                        switch -- $cont {
-                            -contrasting - -contrastive {
-                                set iplain [string range $i 0 end-12]
-                            }
-                            default {
-                                set iplain $i
-                            }
-                        }
-                        set rgbspec [tcl::string::range $iplain 4 end]
-                        set RGB [tcl::string::map [list - { } , { } {;} { }] $rgbspec] ;#RGB as list
-                        switch -- $cont {
-                            -contrasting {
-                                set rgbfinal [join [punk::ansi::colour::contrasting  {*}$RGB] {;}]
-                            }
-                            -contrastive {
-                                set rgbfinal [join [lindex [punk::ansi::colour::contrast_pair  {*}$RGB] 0] {;}]
-                            }
-                            default {
-                                set rgbfinal [join $RGB {;}]
-                            }
-                        }
-                        if {[tcl::string::index $i 0] eq "r"} {
-                            #fg
-                            lappend t "38;2;$rgbfinal"
-                        } else {
-                            #bg
-                            lappend t "48;2;$rgbfinal"
-                        }
-
-                    } elseif {$utype eq "#"} {
-                        set hex6 [tcl::string::range $i 4 end]
-                        #set rgb [join [::scan $hex6 %2X%2X%2X] {;}]
-                        set RGB [::scan $hex6 %2X%2X%2X]
-                        set cont [string range $i end-11 end]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgbfinal [join [punk::ansi::colour::contrasting  {*}$RGB] {;}]
-                            }
-                            -contrastive {
-                                set rgbfinal [join [lindex [punk::ansi::colour::contrast_pair  {*}$RGB] 0] {;}]
-                            }
-                            default {
-                                set rgbfinal [join $RGB {;}]
-                            }
-                        }
-                        if {[tcl::string::index $i 0] eq "r"} {
-                            #hex rgb foreground
-                            lappend t "38;2;$rgbfinal"
-                        } else {
-                            #hex rgb background
-                            lappend t "48;2;$rgbfinal"
-                        }
-                    } else {
-                        puts stderr "punk::ansi::a+ ansi term rgb colour unmatched: '$i' in call 'a+ $args'"
-                    }
-                }
-                und {
-                    set utype [string index $i 3]
-                    if {$utype eq "-"} {
-                        #decimal rgb underline
-                        #allow variants und-xxx-xxx-xxx and undxxx-xxx-xxx
-                        #https://wezfurlong.org/wezterm/escape-sequences.html#csi-582-underline-color-rgb
-                        set rgbspec [tcl::string::range $i 4 end]
-                        set RGB [lrange [tcl::string::map [list - { } , { } {;} { }] $rgbspec] 0 2]
-                        #puts "---->'$RGB'<----"
-                        set cont [string range $i end-11 end]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgbfinal [join [punk::ansi::colour::contrasting {*}$RGB] {:}]
-                            }
-                            -contrastive {
-                                set rgbfinal [join [lindex [punk::ansi::colour::contrast_pair {*}$RGB] 0] {:}]
-                            }
-                            default {
-                                set rgbfinal [join $RGB {:}]
-                            }
-                        }
-                        #lappend e "58:2:$rgbfinal" ;# - no colorspace ID - some terminals support? which?
-                        lappend e "58:2::$rgbfinal"
-                    } elseif {$utype eq "#"} {
-                        #hex rgb underline - (e.g kitty, wezterm) - uses colons as separators
-                        set hex6 [tcl::string::range $i 4 end]
-                        #set rgb [join [::scan $hex6 %2X%2X%2X] {:}]
-                        set RGB [::scan $hex6 %2X%2X%2X]
-                        set cont [string range $i end-11 end]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgbfinal [join [punk::ansi::colour::contrasting {*}$RGB] {:}]
-                            }
-                            -contrastive {
-                                set rgbfinal [join [lindex [punk::ansi::colour::contrast_pair {*}$RGB] 0] {:}]
-                            }
-                            default {
-                                set rgbfinal [join $RGB {:}]
-                            }
-                        }
-                        lappend e "58:2::$rgbfinal"
-                    } else {
-                        puts stderr "punk::ansi::a+ ansi term underline colour unmatched: '$i' in call 'a+ $args'"
-                    }
-                }
-                undt {
-                    # CSI 58:5  UNDERLINE COLOR PALETTE INDEX
-                    # CSI 58 : 5 : INDEX m
-                    # variable TERM_colour_map
-                    # 256 colour underline by Xterm name or by integer
-                    #name is xterm name or colour index from 0 - 255
-                    set cc [tcl::string::tolower [tcl::string::range $i 5 end]]
-                    if {[tcl::string::is integer -strict $cc] & $cc < 256} {
-                        lappend e "58:5:$cc"
-                    } else {
-                        if {[tcl::dict::exists $TERM_colour_map $cc]} {
-                            lappend e "58:5:[tcl::dict::get $TERM_colour_map $cc]"
-                        } else {
-                            puts stderr "ansi term underline colour unmatched: '$i' in call 'a $args'"
-                        }
-                    }
-                }
-                x11 {
-                    variable X11_colour_map
-                    #foreground X11 names
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    if {[tcl::dict::exists $X11_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $X11_colour_map $cname]
-                        set rgb [tcl::string::map [list - {;}] $rgbdash]
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi x11 foreground colour unmatched: '$i' in call 'a+ $args'"
-                    }
-                }
-                X11 {
-                    variable X11_colour_map
-                    #background X11 names
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    if {[tcl::dict::exists $X11_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $X11_colour_map $cname]
-                        set rgb [tcl::string::map [list - {;}] $rgbdash]
-                        lappend t "48;2;$rgb"
-                    } else {
-                        puts stderr "ansi X11 background colour unmatched: '$i'"
-                    }
-                }
-                tk {
-                    #foreground tk names
-                    variable TK_colour_map_lookup ;#use the dict with added lowercase versions
-
-                    set cname [tcl::string::tolower [tcl::string::range $i 3 end]]
-                    lassign [punk::lib::string_splitbefore $cname end-11] c cont
-                    switch -exact -- $cont { -contrasting - -contrastive {set cname $c} }
-
-                    if {[tcl::dict::exists $TK_colour_map_lookup $cname]} {
-                        set rgbdash [tcl::dict::get $TK_colour_map_lookup $cname]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgb [join [punk::ansi::colour::contrasting  {*}[split $rgbdash -]] {;}]
-                            }
-                            -contrastive {
-                                set rgb [join [lindex [punk::ansi::colour::contrast_pair  {*}[split $rgbdash -]] 0] {;}]
-                            }
-                            default {
-                                set rgb [tcl::string::map { - ;} $rgbdash]
-                            }
-                        }
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi tk foreground colour unmatched: '$i' in call 'a+ $args'"
-                    }
-                }
-                Tk - TK {
-                    #background X11 names
-                    variable TK_colour_map_lookup ;#with lc versions
-
-                    set cname [tcl::string::tolower [tcl::string::range $i 3 end]]
-                    lassign [punk::lib::string_splitbefore $cname end-11] c cont
-                    switch -- $cont { -contrasting - -contrastive {set cname $c} }
-
-                    if {[tcl::dict::exists $TK_colour_map_lookup $cname]} {
-                        set rgbdash [tcl::dict::get $TK_colour_map_lookup $cname]
-                        switch -- $cont {
-                            -contrasting {
-                                set rgb [join [punk::ansi::colour::contrasting  {*}[split $rgbdash -]] {;}]
-                            }
-                            -contrastive {
-                                set rgb [join [lindex [punk::ansi::colour::contrast_pair  {*}[split $rgbdash -]] 0] {;}]
-                            }
-                            default {
-                                set rgb [tcl::string::map { - ;} $rgbdash]
-                            }
-                        }
-                        lappend t "48;2;$rgb"
-                    } else {
-                        puts stderr "ansi Tk background colour unmatched: '$i'"
-                    }
-                }
-                default {
-                    if {[tcl::string::is integer -strict $i] || [tcl::string::first ";" $i] > 0} {
-                        lappend t $i
-                    } elseif {[tcl::string::first : $i] > 0} {
-                        lappend e $i
-                    } else {
-                        puts stderr "punk::ansi::a+ ansi name unmatched: '$i' in call 'a+ $args' Perhaps missing prefix? e.g web- x11- tk- term- rgb# rgb-"
-                    }
-                }
-            }
-        }
-
-        #the performance penalty must not be placed on the standard colour_enabled path.
-        #This is punk. Colour is the happy path despite the costs.
-        #The no_color users  will still get a performance boost from shorter string processing if that's one of their motivations.
-        #As no_color doesn't strip all ansi - the motivation for it should not generally be
-        if {$colour_disabled && !$forcecolour} {
-            set tkeep [list]
-            foreach code $t {
-                switch -- $code {
-                    0 - 1 - 2 - 3 - 23 - 4 - 21 - 24 - 5 - 6 - 25 - 7 - 27 - 8 - 28 - 9 - 29 - 22 - 39 - 49 - 53 - 55 - 51 - 52 - 54 - 59 {
-                        #SGR underline and other non colour effects
-                        lappend tkeep $code
-                    }
-                }
-            }
-            set t $tkeep
-            set ekeep [list]
-            foreach code $e {
-                switch -- $code {
-                    4:0 - 4:1 - 4:2 - 4:3 - 4:4 - 4:5 {
-                        lappend ekeep $code
-                    }
-                }
-            }
-            set e $ekeep
-        }
-
-        # \033 - octal.  equivalently \x1b in hex which is more common in documentation
-        if {![llength $t]} {
-            if {![llength $e]} {
-                set result "" ;# a+ nonexistent should return nothing rather  than a reset ( \033\[\;m  is a reset even without explicit zero(s))
-            } else {
-                set result "\x1b\[[join $e {;}]m"
-            }
-        } else {
-            if {![llength $e]} {
-                set result "\x1b\[[join $t {;}]m"
-            } else {
-                set result "\x1b\[[join $t {;}]m\x1b\[[join $e {;}]m"
-            }
-        }
-        tcl::dict::set sgr_cache $cache_key $result
-        return $result
-    }
-
-    set SGR_samples [dict create]
-    foreach k [dict keys $SGR_map] {
-        #indent of 1 space is important for clarity in i -return string a+ output
-        dict set SGR_samples $k " [punk::ansi::a+ $k]sample\x1b\[m"
-    }
-    set SGR_help\
-        {SGR code from the list below, or an integer corresponding to the code e.g 31 = red.
-            A leading capital letter indicates a codename applies to the background colour.
-            Other accepted codes are:
-            term-<int> Term-<int>   foreground/background where int is 0-255 terminal color
-            term-<termcolour> Term-<termcolour> foreground/background
-
-            web-<webcolour> Web-<webcolour>
-
-            x11-<xllcolour> X11-<x11colour>
-
-            tk-<tkcolour>  Tk-<tkcolour>
-
-            rgb-<r>-<g>-<b> Rgb-<r>-<g>-<b> foreground/background where <r> <g> <b> are the
-            0-255 int values for red, green and blue.
-            rgb#<hexcode> Rgb#<hexcode> where <hexcode> is a 6 char hex colour e.g rgb#C71585
-
-            The acceptable values for colours can be queried using
-            punk::ansi::a? term
-            punk::ansi::a? web
-            punk::ansi::a? x11
-            punk::ansi::a? tk
-
-            Example to set foreground red and background cyan followed by a reset:
-            set str \"[a+ red Cyan]sample text[a]\"
-        }
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::a+
-        @cmd    -name "punk::ansi::a+" -help\
-            "Returns an ANSI sgr escape sequence based on the list of supplied codes.
-            Unlike punk::ansi::a - it is not prefixed with an ANSI reset.
-            "
-        @values -min 0 -max -1
-    }   [string map [list %choices% [dict keys $SGR_map] %choicelabels% $SGR_samples %SGR_help% $SGR_help] {
-        code -type string -optional 1 -multiple 1 -choices {%choices%}\
-             -choicelabels {%choicelabels%}\
-             -choicecolumns 5 -choiceprefix 0 -choicerestricted 0 -help\
-             "%SGR_help%"
-    }]]
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::a
-        @cmd    -name "punk::ansi::a" -help\
-            "Returns an ANSI sgr escape sequence based on the list of supplied codes.
-            Unlike punk::ansi::a+ - it is prefixed with an ANSI reset.
-            "
-        @values -min 0 -max -1
-    }   [string map [list %choices% [dict keys $SGR_map] %choicelabels% $SGR_samples %SGR_help% $SGR_help] {
-        code -type string -optional 1 -multiple 1 -choices {%choices%}\
-             -choicelabels {%choicelabels%}\
-             -choicecolumns 5 -choiceprefix 0 -choicerestricted 0 -help\
-             "%SGR_help%"
-    }]]
-
-    proc a {args} {
-        #*** !doctools
-        #[call [fun a] [opt {ansicode...}]]
-        #[para]Returns the ansi code to reset any current settings and apply those from the supplied list
-        #[para] by calling punk::ansi::a with no arguments - the result is a reset to plain text
-        #[para] e.g to set foreground red and bold
-        #[para]punk::ansi::a red bold
-        #[para]to set background red
-        #[para]punk::ansi::a Red
-        #[para]see [cmd punk::ansi::a?] to display a list of codes
-
-        #It's important to put the functionname in the cache-key because a and a+ return slightly different results
-        variable sgr_cache
-        set cache_key "a $args"
-        if {[tcl::dict::exists $sgr_cache $cache_key]} {
-            return [tcl::dict::get $sgr_cache $cache_key]
-        }
-
-        #don't disable ansi here.
-        #we want this to be available to call even if ansi is off
-        variable WEB_colour_map
-        variable TERM_colour_map
-        variable TK_colour_map_lookup ;#Tk accepts lowercase versions of colours even though some colours are documented with casing
-
-        set colour_disabled 0
-        #whatever function disables or re-enables colour should have made a call to punk::ansi::sgr_cache -action clear
-        if {[tcl::info::exists ::punk::console::colour_disabled] && $::punk::console::colour_disabled} {
-            set colour_disabled 1
-        }
-        #allow a mechanism to override the colour_disabled terminal preference - for code that is generating colour for something else - don't let no_color ruin everything.
-        set forcecolour 0
-        set fcpos [lsearch $args "force*"] ;#allow forcecolor forcecolour
-        if {$fcpos >=0} {
-            set forcecolour 1
-            set args [lremove $args $fcpos]
-        }
-
-        set t [list]
-        set e [list] ;#extended codes will suppress standard SGR colours and attributes if merged in same escape sequence
-        foreach i $args {
-            #set f4 [tcl::string::range $i 0 3]
-            set pfx [lindex [split $i "-# "] 0]
-            switch -- $pfx {
-                web {
-                    #variable WEB_colour_map
-                    #upvar ::punk::ansi::WEB_colour_map WEB_colour_map
-                    #foreground web colour
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    if {[tcl::dict::exists $WEB_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $WEB_colour_map $cname]
-                        set rgb [tcl::string::map { - ;} $rgbdash]
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi web colour unmatched: '$i' in call 'a $args'"
-                    }
-                }
-                Web - WEB {
-                    #variable WEB_colour_map
-                    #upvar ::punk::ansi::WEB_colour_map WEB_colour_map
-                    #background web colour
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    if {[tcl::dict::exists $WEB_colour_map $cname]} {
-                        lappend t "48;2;[tcl::string::map {- ;} [tcl::dict::get $WEB_colour_map $cname]]"
-                    } else {
-                        puts stderr "ansi Web colour unmatched: '$i' in call 'a $args'"
-                    }
-                }
-                reset           {lappend t 0}
-                bold            {lappend t 1}
-                dim             {lappend t 2}
-                blink           {lappend t 5}
-                fastblink       {lappend t 6}
-                noblink         {lappend t 25}
-                hide            {lappend t 8}
-                normal          {lappend t 22}
-                underline {
-                    lappend t 4  ;#underline
-                }
-                underlinedefault {lappend t 59}
-                underextendedoff {
-                    #lremove any existing 4:1 etc
-                    #use of struct::set with critcl is fast, but will reorder e (with differences depending on tcl vs critcl)
-                    #set e [struct::set difference $e [list 4:1 4:2 4:3 4:4 4:5]]
-                    set e [punk::lib::ldiff $e [list 4:1 4:2 4:3 4:4 4:5]]
-                    lappend e 4:0
-                }
-                undersingle {
-                    lappend e 4:1
-                }
-                underdouble {
-                    lappend e 4:2
-                }
-                undercurly - undercurl {
-                    lappend e 4:3
-                }
-                underdotted - underdot {
-                    lappend e 4:4
-                }
-                underdashed - underdash {
-                    lappend e 4:5
-                }
-                doubleunderline {lappend t 21}
-                nounderline     {
-                                    lappend t 24 ;#nounderline
-                                    #set e [struct::set difference $e [list 4:1 4:2 4:3 4:4 4:5]]
-                                    lappend e 4:0
-                                }
-                strike          {lappend t 9}
-                nostrike        {lappend t 29}
-                italic          {lappend t 3}
-                noitalic        {lappend t 23}
-                reverse         {lappend t 7}
-                noreverse       {lappend t 27}
-                defaultfg       {lappend t 39}
-                defaultbg       {lappend t 49}
-                defaultund {
-                    lappend t 59
-                }
-                nohide          {lappend t 28}
-                overline        {lappend t 53}
-                nooverline      {lappend t 55}
-                frame           {lappend t 51}
-                framecircle     {lappend t 52}
-                noframe         {lappend t 54}
-                black           {lappend t 30}
-                red             {lappend t 31}
-                green           {lappend t 32}
-                yellow          {lappend t 33}
-                blue            {lappend t 34}
-                purple          {lappend t 35}
-                cyan            {lappend t 36}
-                white           {lappend t 37}
-                Black           {lappend t 40}
-                Red             {lappend t 41}
-                Green           {lappend t 42}
-                Yellow          {lappend t 43}
-                Blue            {lappend t 44}
-                Purple          {lappend t 45}
-                Cyan            {lappend t 46}
-                White           {lappend t 47}
-                brightblack     {lappend t 90}
-                brightred       {lappend t 91}
-                brightgreen     {lappend t 92}
-                brightyellow    {lappend t 93}
-                brightblue      {lappend t 94}
-                brightpurple    {lappend t 95}
-                brightcyan      {lappend t 96}
-                brightwhite     {lappend t 97}
-                Brightblack     {lappend t 100}
-                Brightred       {lappend t 101}
-                Brightgreen     {lappend t 102}
-                Brightyellow    {lappend t 103}
-                Brightblue      {lappend t 104}
-                Brightpurple    {lappend t 105}
-                Brightcyan      {lappend t 106}
-                Brightwhite      {lappend t 107}
-                term {
-                    #variable TERM_colour_map
-                    #256 colour foreground by Xterm name or by integer
-                    #name is xterm name or colour index from 0 - 255
-                    set cc [tcl::string::tolower [tcl::string::range $i 5 end]]
-                    if {[tcl::string::is integer -strict $cc] & $cc < 256} {
-                        lappend t "38;5;$cc"
-                    } else {
-                        if {[tcl::dict::exists $TERM_colour_map $cc]} {
-                            lappend t "38;5;[tcl::dict::get $TERM_colour_map $cc]"
-                        } else {
-                            puts stderr "ansi term colour unmatched: '$i' in call 'a $args'"
-                        }
-                    }
-                }
-                Term - TERM {
-                    #variable TERM_colour_map
-                    #256 colour background by Xterm name or by integer
-                    set cc [tcl::string::tolower [tcl::string::range $i 5 end]]
-                    if {[tcl::string::is integer -strict $cc] && $cc < 256} {
-                        lappend t "48;5;$cc"
-                    } else {
-                        if {[tcl::dict::exists $TERM_colour_map $cc]} {
-                            lappend t "48;5;[tcl::dict::get $TERM_colour_map $cc]"
-                        } else {
-                            puts stderr "ansi Term colour unmatched: '$i' in call 'a $args'"
-                        }
-                    }
-                }
-                rgb {
-                    set utype [string index $i 3]
-                    if {$utype eq "-"} {
-                        #decimal rgb foreground
-                        #form: rgb-xxx-xxx-xxx
-                        set rgbspec [tcl::string::range $i 4 end]
-                        set rgb [tcl::string::map [list - {;} , {;}] $rgbspec]
-                        lappend t "38;2;$rgb"
-                    } elseif {$utype eq "#"} {
-                        #hex rgb foreground
-                        set hex6 [tcl::string::range $i 4 end]
-                        set rgb [join [::scan $hex6 %2X%2X%2X] {;}]
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi rgb foreground colour unmatched: '$i' in call 'a $args'"
-                    }
-                }
-                Rgb - RGB {
-                    set utype [string index $i 3]
-                    if {$utype eq "-"} {
-                        #decimal rgb background
-                        set rgbspec [tcl::string::range $i 4 end]
-                        set rgb [tcl::string::map [list - {;} , {;}] $rgbspec]
-                        lappend t "48;2;$rgb"
-                    } elseif {$utype eq "#"} {
-                        #hex rgb background
-                        set hex6 [tcl::string::range $i 4 end]
-                        set rgb [join [::scan $hex6 %2X%2X%2X] {;}]
-                        lappend t "48;2;$rgb"
-                    } else {
-                        puts stderr "ansi Rgb background colour unmatched: '$i' in call 'a $args'"
-                    }
-                }
-                und- - und0 - und1 - und2 - und3 - und4 - und5 - und6 - und7 - und8 - und9  {}
-                und {
-                    set utype [string index $i 3]
-                    if {$utype eq "-"} {
-                        #decimal rgb underline
-                        #form: und-xxx-xxx-xxx
-                        set rgbspec [tcl::string::range $i 4 end]
-                        set rgb [tcl::string::map [list - {:} , {:}] $rgbspec]
-                        lappend e "58:2::$rgb"
-                    } elseif {$utype eq "#"} {
-                        #hex rgb underline - (e.g kitty, wezterm) - uses colons as separators
-                        set hex6 [tcl::string::range $i 4 end]
-                        set rgb [join [::scan $hex6 %2X%2X%2X] {:}]
-                        lappend e "58:2::$rgb"
-                    } else {
-                        puts stderr "ansi underline colour unmatched: '$i' in call 'a $args'"
-                    }
-                }
-                undt {
-                    #variable TERM_colour_map
-                    #256 colour underline by Xterm name or by integer
-                    #name is xterm name or colour index from 0 - 255
-                    #undt-<0-255> or undt-<name>
-                    set cc [tcl::string::tolower [tcl::string::range $i 5 end]]
-                    if {[tcl::string::is integer -strict $cc] & $cc < 256} {
-                        lappend e "58:5:$cc"
-                    } else {
-                        if {[tcl::dict::exists $TERM_colour_map $cc]} {
-                            lappend e "58:5:[tcl::dict::get $TERM_colour_map $cc]"
-                        } else {
-                            puts stderr "ansi term underline colour unmatched: '$i' in call 'a $args'"
-                        }
-                    }
-                }
-                x11 {
-                    variable X11_colour_map
-                    #foreground X11 names
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    if {[tcl::dict::exists $X11_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $X11_colour_map $cname]
-                        set rgb [tcl::string::map [list - {;}] $rgbdash]
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi x11 foreground colour unmatched: '$i'"
-                    }
-                }
-                X11 {
-                    variable X11_colour_map
-                    #background X11 names
-                    set cname [tcl::string::tolower [tcl::string::range $i 4 end]]
-                    if {[tcl::dict::exists $X11_colour_map $cname]} {
-                        set rgbdash [tcl::dict::get $X11_colour_map $cname]
-                        set rgb [tcl::string::map [list - {;}] $rgbdash]
-                        lappend t "48;2;$rgb"
-                    } else {
-                        puts stderr "ansi X11 background colour unmatched: '$i'"
-                    }
-                }
-                tk {
-                    variable TK_colour_map_lookup
-                    #foreground tk names
-                    set cname [tcl::string::tolower [tcl::string::range $i 3 end]]
-                    if {[tcl::dict::exists $TK_colour_map_lookup $cname]} {
-                        set rgbdash [tcl::dict::get $TK_colour_map_lookup $cname]
-                        set rgb [tcl::string::map [list - {;}] $rgbdash]
-                        lappend t "38;2;$rgb"
-                    } else {
-                        puts stderr "ansi tk foreground colour unmatched: '$i'"
-                    }
-                }
-                Tk - TK {
-                    variable TK_colour_map_lookup
-                    #background X11 names
-                    set cname [tcl::string::tolower [tcl::string::range $i 3 end]]
-                    if {[tcl::dict::exists $TK_colour_map_lookup $cname]} {
-                        set rgbdash [tcl::dict::get $TK_colour_map_lookup $cname]
-                        set rgb [tcl::string::map [list - {;}] $rgbdash]
-                        lappend t "48;2;$rgb"
-                    } else {
-                        puts stderr "ansi Tk background colour unmatched: '$i'"
-                    }
-                }
-                default {
-                    if {[tcl::string::is integer -strict $i] || [tcl::string::first ";" $i] > 0} {
-                        lappend t $i
-                    } elseif {[tcl::string::first : $i] > 0} {
-                        lappend e $i
-                    } else {
-                        puts stderr "punk::ansi::a ansi name unmatched: '$i' in call 'a $args' Perhaps missing prefix? e.g web- x11- term- rgb# rgb-"
-                    }
-                }
-            }
-        }
-
-        if {$colour_disabled && !$forcecolour} {
-            set tkeep [list]
-            foreach code $t {
-                switch -- $code {
-                    0 - 1 - 2 - 3 - 23 - 4 - 21 - 24 - 5 - 6 - 25 - 7 - 27 - 8 - 28 - 9 - 29 - 22 - 39 - 49 - 53 - 55 - 51 - 52 - 54 - 59 {
-                        #SGR underline and other non colour effects
-                        lappend tkeep $code
-                    }
-                }
-            }
-            set t $tkeep
-            set ekeep [list]
-            foreach code $e {
-                switch -- $code {
-                    4:0 - 4:1 - 4:2 - 4:3 - 4:4 - 4:5 {
-                        lappend ekeep $code
-                    }
-                }
-            }
-            set e $ekeep
-        }
-
-        # \033 - octal.  equivalently \x1b in hex which is more common in documentation
-        # empty list [a] should do reset - same for [a nonexistant]
-        # explicit reset at beginning of parameter list for a= (as opposed to a+)
-        set t [linsert $t[unset t] 0 0]
-        if {![llength $e]} {
-            set result "\x1b\[[join $t {;}]m"
-        } else {
-            set result "\x1b\[[join $t {;}]m\x1b\[[join $e {;}]m"
-        }
-        tcl::dict::set sgr_cache $cache_key $result
-        return $result
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::ansiwrap
-        @cmd    -name punk::ansi::ansiwrap\
-            -summary\
-            "Wrap a string with ANSI codes applied when not overridden by ANSI in the source string."\
-            -help\
-            {Wrap a string with ANSI codes from
-            supplied codelist(s) followed by trailing
-            ANSI reset. The wrapping is done such that
-            after every reset in the supplied text, the
-            default goes back to the supplied codelist.
-            e.g1 in the following
-                ansiwrap red bold "rrr[a+ green]ggg[a]rrr"
-            both strings rrr will be red & bold
-
-            e.g2 bolding and underlining specific text whilst dimming the rest
-                ansiwrap dim [string map [list test [ansiwrap bold underline test]] "A test string"]
-
-            e.g3 reverse render a complex ansi substring
-                ansiwrap reverse [textblock::periodic]
-
-            Codes are numbers or strings as indicated
-            in the output of the colour information
-            function: punk::ansi::a?
-
-            No leading reset is applied - so when
-            placing resultant text, any existing
-            SGR codes that aren't overridden may
-            still take effect.
-
-            For finer control use the a+ and a
-            functions eg
-            set x "[a+ red]text [a+ bold]etc[a]"
-            }
-        @leaders -min 0 -max -1
-        codelist -multiple 1 -default {} -type list -help\
-            "ANSI names/ints as understood by 'a?'
-              (Not actual ANSI as output by a+)
-              These can be supplied individually or
-              as a list or lists"
-        @opts
-        -rawansi   -type ansi -default ""
-        -resetcodes -type list -default {reset}
-        -rawresets -type ansi -default ""
-        -overridecodes -type list -default {}
-        -rawoverrides -type ansi -default ""
-        @values -min 1 -max 1
-        text -type any -help\
-            "String to wrap with ANSI (SGR)"
-    }]
-    proc ansiwrap {args} {
-        if {[llength $args] < 1} {
-            #throw to args::parse to get friendly error/usage display
-            punk::args::parse $args withid ::punk::ansi::ansiwrap
-            return
-        }
-        #we know there are no valid codes that start with -
-        if {[lsearch [lrange $args 0 end-1] -*] == -1} {
-            #no opts - skip args parser
-            #maint: keep defaults in sync with definition above
-            set codelists $args
-            set text [lpop codelists]
-            set R [a] ;#plain ansi reset (equiv of default "reset")
-            set rawansi ""
-            set rawresets ""
-            set overrides ""
-            set rawoverrides ""
-        } else {
-            set argd [punk::args::parse $args withid ::punk::ansi::ansiwrap]
-            lassign [dict values $argd] leaders opts values received solos
-            set codelists   [dict get $leaders codelist]
-            set text        [dict get $values text]
-            set rawansi     [dict get $opts -rawansi]
-            set R           [a+ {*}[dict get $opts -resetcodes]]
-            set rawresets   [dict get $opts -rawresets]
-            set overrides   [punk::ansi::ta::get_codes_single [a+ {*}[dict get $opts -overridecodes]]]
-            set rawoverrides [punk::ansi::ta::get_codes_single [dict get $opts -rawoverrides]]
-        }
-
-        #note that the result of any sgr_merge or sgr_merge_singles is not necessarily a single Ansi escape sequence.
-        #there can be SGR unmergeables (due to enhanced underlines) as well as non SGR codes
-        set codes       [concat {*}$codelists] ;#flatten
-        set base [a+ {*}$codes]
-        set baselist [punk::ansi::ta::get_codes_single $base]
-        if {$rawansi ne ""} {
-            set rawcodes [punk::ansi::ta::get_codes_single $rawansi] ;#caller may have supplied as [a+ xxx][a+ yyy]
-            set base [punk::ansi::codetype::sgr_merge_singles [list {*}$baselist {*}$rawcodes]]
-            set baselist [punk::ansi::ta::get_codes_single $base]
-        }
-        if {$rawresets ne ""} {
-            set rawresetcodes [punk::ansi::ta::get_codes_single $rawresets]
-            set Rcodes      [punk::ansi::ta::get_codes_single $R]
-            set R [punk::ansi::codetype::sgr_merge_singles [list {*}$Rcodes {*}$rawresetcodes]]
-        }
-
-        if {$rawoverrides ne ""} {
-            set rawoverridecodes [punk::ansi::ta::get_codes_single $rawoverrides]
-            set overrides [list {*}$overrides {*}$rawoverridecodes]
-        }
-
-        set codestack [list]
-        if {[punk::ansi::ta::detectcode $text]} {
-            set emit ""
-            #set parts [punk::ansi::ta::split_codes $text]
-            set parts [punk::ansi::ta::split_codes_single $text]
-            set prevcode ""
-            foreach {pt code} $parts {
-                switch -- [llength $codestack] {
-                    0 {
-                        append emit $base $pt $R
-                    }
-                    1 {
-                        if {[punk::ansi::codetype::is_sgr_reset [lindex $codestack 0]]} {
-                            append emit $base $pt $R
-                            set codestack [list]
-                        } else {
-                            #append emit [lindex $o_codestack 0]$pt
-                            append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$baselist {*}$codestack {*}$overrides]] $pt $R
-                        }
-                    }
-                    default {
-                        append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$baselist {*}$codestack {*}$overrides]] $pt $R
-                    }
-                }
-                #parts ends on a pt - last code always empty string
-                if {$code ne ""} {
-                    set prevcode $code
-                    set c1c2 [tcl::string::range $code 0 1]
-                    set leadernorm [tcl::string::range [tcl::string::map [list\
-                        \x1b\[      7CSI\
-                        \x9b        8CSI\
-                        \x1b\(      7GFX\
-                    ] $c1c2] 0 3]
-                    switch -- $leadernorm {
-                        7CSI - 8CSI {
-                            if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                set codestack [list "\x1b\[m"]
-                            } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                set codestack [list $code]
-                            } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                                #todo - make caching is_sgr method
-                                set dup_posns [lsearch -all -exact $codestack $code]
-                                set codestack [lremove $codestack {*}$dup_posns]
-                                lappend codestack $code
-                            } else {
-                                #jjtest
-                                append emit $code
-                            }
-                        }
-                        7GFX {
-                            switch -- [tcl::string::index $code 2] {
-                                "0" {
-                                    set o_gx_state on
-                                }
-                                "B" {
-                                    set o_gx_state off
-                                }
-                            }
-                            #jjtest
-                            append emit $code
-                        }
-                        default {
-                            #other ansi codes
-                            #jjtest
-                            append emit $code
-                        }
-                    }
-                    #jjtest
-                    #append emit $code
-                } else {
-                    #jjtest
-                    #code is only empty when processing final pt
-                    if {$pt eq ""} {
-                        append emit $prevcode
-                    }
-                }
-            }
-            return [append emit $R]
-        } else {
-            return $base$text$R
-        }
-    }
-    proc ansiwrap_raw {rawansi rawresets rawoverrides text} {
-        set codelists ""
-        set R ""
-        set overrides ""
-        #note that the result of any sgr_merge or sgr_merge_singles is not necessarily a single Ansi escape sequence.
-        #there can be SGR unmergeables (due to enhanced underlines) as well as non SGR codes
-        set codes       [concat {*}$codelists] ;#flatten
-        set base [a+ {*}$codes]
-        set baselist [punk::ansi::ta::get_codes_single $base]
-        if {$rawansi ne ""} {
-            set rawcodes [punk::ansi::ta::get_codes_single $rawansi] ;#caller may have supplied as [a+ xxx][a+ yyy]
-            set base [punk::ansi::codetype::sgr_merge_singles [list {*}$baselist {*}$rawcodes]]
-            set baselist [punk::ansi::ta::get_codes_single $base]
-        }
-        if {$rawresets ne ""} {
-            set rawresetcodes [punk::ansi::ta::get_codes_single $rawresets]
-            set Rcodes      [punk::ansi::ta::get_codes_single $R]
-            set R [punk::ansi::codetype::sgr_merge_singles [list {*}$Rcodes {*}$rawresetcodes]]
-        }
-
-        if {$rawoverrides ne ""} {
-            set rawoverridecodes [punk::ansi::ta::get_codes_single $rawoverrides]
-            set overrides [list {*}$overrides {*}$rawoverridecodes]
-        }
-
-        set codestack [list]
-        if {[punk::ansi::ta::detectcode $text]} {
-            set emit ""
-            #set parts [punk::ansi::ta::split_codes $text]
-            set parts [punk::ansi::ta::split_codes_single $text]
-            set prevcode ""
-            foreach {pt code} $parts {
-                switch -- [llength $codestack] {
-                    0 {
-                        append emit $base $pt $R
-                    }
-                    1 {
-                        if {[punk::ansi::codetype::is_sgr_reset [lindex $codestack 0]]} {
-                            append emit $base $pt $R
-                            set codestack [list]
-                        } else {
-                            #append emit [lindex $o_codestack 0]$pt
-                            append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$baselist {*}$codestack {*}$overrides]] $pt $R
-                        }
-                    }
-                    default {
-                        append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$baselist {*}$codestack {*}$overrides]] $pt $R
-                    }
-                }
-                #parts ends on a pt - last code always empty string
-                if {$code ne ""} {
-                    set prevcode $code
-                    set c1c2 [tcl::string::range $code 0 1]
-                    set leadernorm [tcl::string::range [tcl::string::map [list\
-                        \x1b\[      7CSI\
-                        \x9b        8CSI\
-                        \x1b\(      7GFX\
-                    ] $c1c2] 0 3]
-                    switch -- $leadernorm {
-                        7CSI - 8CSI {
-                            if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                set codestack [list "\x1b\[m"]
-                            } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                set codestack [list $code]
-                            } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                                #todo - make caching is_sgr method
-                                set dup_posns [lsearch -all -exact $codestack $code]
-                                set codestack [lremove $codestack {*}$dup_posns]
-                                lappend codestack $code
-                            } else {
-                                #jjtest
-                                apend emit $code
-                            }
-                        }
-                        7GFX {
-                            switch -- [tcl::string::index $code 2] {
-                                "0" {
-                                    set o_gx_state on
-                                }
-                                "B" {
-                                    set o_gx_state off
-                                }
-                            }
-                            #jjtest
-                            append emit $code
-                        }
-                        default {
-                            #other ansi codes
-                            #jjtest
-                            append emit $code
-                        }
-                    }
-                    #jjtest
-                    #append emit $code
-                } else {
-                    #jjtest
-                    #code is only empty when processing final pt
-                    if {$pt eq ""} {
-                        append emit $prevcode
-                    }
-                }
-            }
-            return [append emit $R]
-        } else {
-            return $base$text$R
-        }
-
-    }
-    proc ansiwrap_naive {codes text} {
-        return [a_ {*}$codes]$text[a]
-    }
-
-    #a silly trick... temporary? probably - todo - tests and work on sgr_merge + sgr_merge_singles before relying on this
-    #when we use sgr_merge_singles on a 'single' containing a non SGR code e.g <esc>[5h (inverse) it puts this code at the end of the list
-    #furthermore - it carries any SGR codes along with it (Can/should we rely on this behaviour??? probably not) REVIEW
-    #P% ansistring VIEW $s1
-    #-  ␛[31m␛[?5h
-    #P% ansistring VIEW [punk::ansi::codetype::sgr_merge_singles [list $s1 [a+ cyan]]]
-    #-  ␛[36m␛[31m␛[?5h
-    #P% ansistring VIEW [punk::ansi::codetype::sgr_merge [list $s1 [a+ cyan]]]
-    #-  ␛[36m␛[?5h
-    #we can use this trick to override background and/or foreground colours using ansiwrap - which uses sgr_merge_singles
-    #Note - this trick is not composable - e.g ansioverride Red [ansiioverride Green [textblock::periodic]] doesn't work as expected.
-    proc ansioverride2 {args} {
-        set text [lindex $args end]
-        set codes [lrange $args 0 end-1]
-        ansiwrap {*}$codes -rawansi [punk::ansi::enable_inverse] -rawresets [punk::ansi::disable_inverse] $text
-    }
-    proc ansireverse {text} {
-        ansioverride2 normal reverse $text
-    }
-
-    proc get_code_name {code} {
-        #*** !doctools
-        #[call [fun get_code_name] [arg code]]
-        #[para]for example
-        #[para] get_code_name red will return 31
-        #[para] get_code_name 31 will return red
-        variable SGR_map
-        set res [list]
-        foreach i [split $code ";"] {
-            set ix [lsearch -exact $SGR_map $i]
-            if {[tcl::string::is digit -strict $code]} {
-                if {$ix>-1} {lappend res [lindex $SGR_map [incr ix -1]]}
-            } else {
-                #reverse lookup code from name
-                if {$ix>-1} {lappend res [lindex $SGR_map [incr ix]]}
-            }
-        }
-        set res
-    }
-    proc reset {} {
-        #*** !doctools
-        #[call [fun reset]]
-        #[para]reset console
-        return "\x1bc"
-    }
-    proc reset_soft {} {
-        #*** !doctools
-        #[call [fun reset_soft]]
-        return \x1b\[!p
-    }
-    proc SYN {} {
-        #syn seems to disable alternate graphics mode temporarily on modern terminals
-        return \016
-    }
-    proc ETB {} {
-        #This is a form of soft reset for the state where a SYN was sent - re-enabling altg processing
-        return \017
-    }
-    proc reset_colour {} {
-        #*** !doctools
-        #[call [fun reset_colour]]
-        #[para]reset colour only
-        return "\x1b\[0m"
-    }
-
-    # -- ---  --- --- ---
-    proc clear {} {
-        #*** !doctools
-        #[call [fun clear]]
-        return "\033\[2J"
-    }
-    proc clear_above {} {
-        #*** !doctools
-        #[call [fun clear_above]]
-        return \033\[1J
-    }
-    proc clear_below {} {
-        #*** !doctools
-        #[call [fun clear_below]]
-        return \033\[0J
-    }
-
-    proc clear_all {} {
-        # - doesn't work??
-        return \033\[3J
-    }
-    #see also erase_ functions
-    # -- ---  --- --- ---
-
-    proc cursor_on {} {
-        #*** !doctools
-        #[call [fun cursor_on]]
-        return "\033\[?25h"
-    }
-    proc cursor_off {} {
-        #*** !doctools
-        #[call [fun cursor_off]]
-        return "\033\[?25l"
-    }
-    proc cursor_on_vt52 {} {
-        return \x1be
-    }
-    proc cursor_off_vt52 {} {
-        return \x1bf
-    }
-
-    # REVIEW - osc8 replays etc for split lines? - textblock
-    #Hyperlinks (a.k.a. HTML-like anchors) in terminal emulators https://gist.github.com/egmontkob/eb114294efbcd5adb1944c9f3cb5feda
-    #the 'id' parameter logically connects split hyperlinks
-    #per interp. Rather than try to avoid collisions using something like 'info cmdcount' we will use a simple counter.
-    #To stop multiple hyperlinks from having ids inadvertently collide - we should do some id mangling/prefixing based on the terminal/window etc
-    #It is better to use a simple counter with high likelihood of collision so we are more likely to detect problems with ids than to make it more intermittent by using ids that collide only 'rarely'
-    variable hyperlinkcounter
-    set hyperlinkcounter 0
-
-
-    proc hyperlink {uri {display ""}} {
-        variable hyperlinkcounter
-        if {$display eq ""} {
-            set display $uri
-        }
-        set uri [punk::ansi::ansistripraw $uri]
-        #limit uri length we emit based on common limits in other terminals
-        if {[string length $uri] > 2083} {
-            error "punk::ansi::hyperlink uri too long: limit 2083"
-        }
-        set params "id=punkansi-[incr hyperlinkcounter]" ;#todo e.g id=xyz123:foo=bar:baz=quux
-        set open "\x1b\]8\;$params\;$uri\x1b\\"
-        set close "\x1b\]8\;\;\x1b\\"
-        return ${open}${display}${close}
-    }
-
-    #on windows terminal at least, both uri and id of 2 separated hyperlinks need to match for the hover highlighting to act as a unit.
-    proc hyperlink_open {uri {id ""}} {
-        if {$id eq ""} {
-            set id punkansi-[incr hyperlinkcounter]
-        }
-        set uri [punk::ansi::ansistripraw $uri]
-        if {[string length $uri] > 2083} {
-            error "punk::ansi::hyperlink uri too long: limit 2083"
-        }
-        set id [string map {: . {;} ,} $id] ;#avoid some likely problematic ids. TODO - review, restrict further.
-        set params "id=$id"
-        return "\x1b\]8\;$params\;$uri\x1b\\"
-    }
-    #It should be ok to close even if no currently active hyperlink (e.g can be used to cleanup if something awry)
-    proc hyperlink_close {} {
-        return "\x1b\]8\;\;\x1b\\"
-    }
-
-    # -- ---  --- --- ---
-    lappend PUNKARGS [list {
-        @id     -id     ::punk::ansi::move
-        @cmd    -name   punk::ansi::move -help\
-            {Return an ANSI sequence to move cursor to row,col
-            (aka: cursor home)
-
-            Sequence is of the form:
-              \x1b[<row>;<col>H
-              (CSI row ; col H)
-            This sequence will not be understood by old vt52
-            terminals. see also vt52_move.
-            }
-        @values -min 2 -max 2
-        row -type integer -help\
-            "row number - starting at 1"
-        col -type integer -help\
-            "column number - starting at 1"
-    }]
-    proc move {row col} {
-        #*** !doctools
-        #[call [fun move] [arg row] [arg col]]
-        #[para]Return an ansi sequence to move to row,col
-        #[para]aka cursor home
-        return \033\[${row}\;${col}H
-    }
-    #NOTE vt52 uses ESC Y line column
-    # where line and column are ascii codes whose values are +31
-    # vt52 can be entered/exited via escapes
-    # This means we probably need to to wrap enter/exit vt52 and keep this state - as we don't have a standard way to query for terminal type
-    # (vt52 supports ESC Z (obs DECID) - but vt100 sometimes? doesn't - and querying at each output would be slow anyway, even if there was a common query :/ )
-    #ESC\[c - is more modern equiv of DECID
-
-    lappend PUNKARGS [list {
-        @id     -id     ::punk::ansi::vt52move
-        @cmd    -name   punk::ansi::vt52move -help\
-            {Return a VT52 sequence to move cursor to row,col
-            (aka: cursor home)
-
-            Sequence is of the form:
-              ESCY<rowchar><colchar>
-            This sequence will generally not be understood by terminals
-            that are not in vt52 mode (e.g DECANM unset).
-            }
-        @values -min 2 -max 2
-        row -type integer -help\
-            "row number - starting at 1"
-        col -type integer -help\
-            "column number - starting at 1"
-    }]
-    proc vt52move {row col} {
-        #test
-        set r [format %c [expr {$row + 31}]]
-        set c [format %c [expr {$col + 31}]]
-        return \x1bY${r}${c}
-    }
-    proc vt52color {int} {
-        if {[string is integer -strict $int]} {
-            if {$int < 0 || $int > 15} {
-                error "vt52color unsupported - only 0 to 15 available"
-            }
-        }
-        set char [format %c [expr {$int + 31}]]
-        return \x1bb${char}
-    }
-    proc move_emit {row col data args} {
-        #*** !doctools
-        #[call [fun move_emit] [arg row] [arg col] [arg data] [opt {row col data...}]]
-        #[para]Return an ansi string representing a  move to row col with data appended
-        #[para]row col data can be repeated any number of times to return a string representing the output of the data elements at all those points
-        #[para]Compare to punk::console::move_emit which calls this function - but writes it to stdout
-        #[para]punk::console::move_emit_return will also return the cursor to the original position
-        #[para]There is no punk::ansi::move_emit_return because in a standard console there is no ansi string which can represent a jump back to starting position.
-        #[para]There is an ansi code to write the current cursor position to stdin (which will generally display on the console) - this is not quite the same thing.
-        #[para]punk::console::move_emit_return does it by emitting that code and starting a loop to read stdin
-        #[para]punk::ansi could implement a move_emit_return using the punk::console mechanism - but the resulting string would capture the cursor position at the time the string is built - which is not necessarily when the string is used.
-        #[para]The following example shows how to do this manually, emitting the string blah at screen position 10,10 and emitting DONE back at the line we started:
-        #[para][example {punk::ansi::move_emit 10 10 blah {*}[punk::console::get_cursor_pos_list] DONE}]
-        #[para]A string created by any move_emit_return for punk::ansi would not behave in an intuitive manner compared to other punk::ansi move functions - so is deliberately omitted.
-
-        set out ""
-        if {$row eq "this"} {
-            append out \033\[\;${col}G$data
-        } else {
-            append out \033\[${row}\;${col}H$data
-        }
-        foreach {row col data} $args {
-            if {$row eq "this"} {
-                append out \033\[\;${col}G$data
-            } else {
-                append out \033\[${row}\;${col}H$data
-            }
-        }
-        return $out
-    }
-    proc vt52move_emit {row col data args} {
-        #Todo - G code?
-        set out ""
-        if {$row eq "this"} {
-            #append out \033\[\;${col}G$data
-            append out [vt52move_column $col]$data
-        } else {
-            #append out \033\[${row}\;${col}H$data
-            append out [vt52move $row $col]$data
-        }
-        foreach {row col data} $args {
-            if {$row eq "this"} {
-                append out [vt52move_column $col]$data
-                #append out \033\[\;${col}G$data
-            } else {
-                #append out \033\[${row}\;${col}H$data
-                append out [vt52move $row $col]$data
-            }
-        }
-        return $out
-    }
-    proc move_emitblock {row col textblock} {
-        #*** !doctools
-        #[call [fun move_emitblock] [arg row] [arg col] [arg textblock]]
-        set commands ""
-        foreach ln [split $textblock \n] {
-            append commands [punk::ansi::move_emit $row $col $ln]
-            incr row
-        }
-        return $commands
-    }
-    proc vt52move_emitblock {row col textblock} {
-        #*** !doctools
-        #[call [fun move_emitblock] [arg row] [arg col] [arg textblock]]
-        set commands ""
-        foreach ln [split $textblock \n] {
-            append commands [punk::ansi::vt52move_emit $row $col $ln]
-            incr row
-        }
-        return $commands
-    }
-    proc move_forward {{n 1}} {
-        #*** !doctools
-        #[call [fun move_forward] [arg n]]
-        return \033\[${n}C
-    }
-    proc vt52move_forward {{n 1}} {
-        return [string repeat \x1bC $n]
-    }
-    proc move_back {{n 1}} {
-        #*** !doctools
-        #[call [fun move_back] [arg n]]
-        return \033\[${n}D
-    }
-    proc vt52move_back {{n 1}} {
-        return [string repeat \x1bD $n]
-    }
-    proc move_up {{n 1}} {
-        #*** !doctools
-        #[call [fun move_up] [arg n]]
-        return \033\[${n}A
-    }
-    proc vt52move_up {{n 1}} {
-        return [string repeat \x1bA $n]
-    }
-    proc move_down {{n 1}} {
-        #*** !doctools
-        #[call [fun move_down] [arg n]]
-        return \033\[${n}B
-    }
-    proc vt52move_down {{n 1}} {
-        return [string repeat \x1bB $n]
-    }
-    proc move_column {col} {
-        #*** !doctools
-        #[call [fun move_column] [arg col]]
-        return \x1b\[${col}G
-    }
-    proc vt52move_column {col} {
-        #This is a bit of a fudge - as there is no command to move to a specific column.
-        #without tracking state - we settle for moving back enough times to ensure we're at column 1 - and then move forward.
-        #inefficient - but will have to do I guess.
-        #review - max term width vt52? env var LINES and env var COLUMNS ?
-        # also ESC R <cols,rows> CR - set window size
-        set back [string repeat \x1bD 132]
-        set fwd  [string repeat \x1bC [expr {$col - 1}]]
-        return $back$fwd
-    }
-    proc move_row {row} {
-        #*** !doctools
-        #[call [fun move_row] [arg row]]
-        #[para]VPA - Vertical Line Position Absolute
-        return \x1b\[${row}d
-    }
-    # -- ---  --- --- ---
-
-    proc cursor_save {} {
-        #*** !doctools
-        #[call [fun cursor_save]]
-        #[para] equivalent  term::ansi::code::ctrl::sc
-        #[para] This is the ANSI/SCO cursor save as opposed to the DECSC version
-        #[para] On many terminals either will work - but cursor_save_dec is shorter and perhaps more widely supported
-        return \x1b\[s
-    }
-    proc cursor_restore {} {
-        #*** !doctools
-        #[call [fun cursor_restore]]
-        #[para] equivalent  term::ansi::code::ctrl::rc
-        #[para] ANSI/SCO - see also cursor_restore_dec for the DECRC version
-        return \x1b\[u
-    }
-    proc cursor_save_dec {} {
-        #*** !doctools
-        #[call [fun cursor_save_dec]]
-        #[para] equivalent  term::ansi::code::ctrl::sca
-        #[para] DECSC
-        return \x1b7
-    }
-    proc cursor_restore_dec {} {
-        #*** !doctools
-        #[call [fun cursor_restore_attributes]]
-        #[para] equivalent term::ansi::code::ctrl::rca
-        #[para] DECRC
-        return \x1b8
-    }
-    proc cursor_save_vt52 {} {
-        return \x1bj
-    }
-    proc cursor_restore_vt52 {} {
-        return \x1bk
-    }
-
-    # -- ---  --- --- ---
-    #CRM Show Control Character Mode
-    proc enable_crm {} {
-        return \x1b\[3h
-    }
-    proc disable_crm {} {
-        return \x1b\[3l
-    }
-
-    #DECSNM
-    #Note this can invert the enclosed section including any already reversed by SGR 7  - depending on terminal support.
-    #e.g
-    #set test [a+ reverse]aaa[a+ noreverse]bbb
-    #  - $test above can't just be reversed by putting another [a+ reverse] in front of it.
-    #  - but the following will work (even if underlying terminal doesn't support ?5 sequences)
-    #overtype::renderspace -width 20  [enable_inverse]$test
-    proc enable_inverse {} {
-        return \x1b\[?5h
-    }
-    proc disable_inverse {} {
-        return \x1b\[?5l
-    }
-
-
-    #DECAWM - automatic line wrapping
-    proc enable_line_wrap {} {
-        #*** !doctools
-        #[call [fun enable_line_wrap]]
-        #[para] enable automatic line wrapping when characters entered beyond rightmost column
-        #[para] This will also allow forward movements to move to subsequent lines
-        #[para] This is DECAWM - and is the same sequence output by 'tput smam'
-        return \x1b\[?7h
-    }
-    proc disable_line_wrap {} {
-        #*** !doctools
-        #[call [fun disable_line_wrap]]
-        #[para] disable automatic line wrapping
-        #[para] reset DECAWM - same sequence output by 'tput rmam'
-        #tput rmam
-        return \x1b\[?7l
-    }
-
-
-    proc query_mode_line_wrap {} {
-        #*** !doctools
-        #[call [fun query_mode_line_wrap]]
-        #[para] DECRQM to query line-wrap state
-        #[para] The punk::ansi::query_mode_ functions just emit the ansi query sequence.
-        return \x1b\[?7\$p
-    }
-    #DECRPM responses e.g:
-    # \x1b\[?7\;1\$y
-    # \x1b\[?7\;2\$y
-    #where 1 = set, 2 = unset. (0 = mode not recognised, 3 = permanently set, 4 = permanently unset)
-
-    #https://wiki.tau.garden/dec-modes/
-    #(DEC,xterm,contour,mintty,kitty etc)
-    #https://invisible-island.net/xterm/ctlseqs/ctlseqs.html#h2-Mouse-Tracking
-
-    #names for other alt_screen mechanismk: 1047,1048 vs 1049?
-    #variable decmode_names [dict create\
-    #    DECANM                  2\
-    #    origin                  6\
-    #    DECCOLM                 3\
-    #    line_wrap               7\
-    #    LNM                     20\
-    #    alt_screen              1049\
-    #    grapheme_clusters       2027\
-    #    bracketed_paste         2004\
-    #    mouse_sgr      1006\
-    #    mouse_urxvt             1015\
-    #    mouse_sgr_pixel               1016\
-    #]
-    variable decmode_data {
-        1   {
-                {origin DEC description "DECCKM - Cursor Keys Mode" names {DECCKM cursor_keys}}
-        }
-        2   {
-                {origin DEC description "DECANM - ANSI/VT52 Mode" names {DECANM} note {
-Disable to turn on VT52 emulation.
-In VT52 mode - use \x1b< to exit.
-                }
-                }
-        }
-        3   {
-                {origin DEC description "DECCOLM - Column" names {DECCOLM}}
-        }
-        4   {
-                {origin DEC description "DECSCLM - Scrolling" names {DECSCLM}}
-        }
-        5   {
-                {origin DEC description "DECSCNM - Screen Mode (light or dark screen)" names {DECSNM lightmode}}
-        }
-        7   {
-                {origin DEC description "DECAWM - Auto Wrap Mode" names {DECAWM line_wrap}}
-        }
-        9   {
-                {origin "xterm" description  "X10 compatibility mouse" names {SET_X10_MOUSE mouse_tracking} note {
-Escape sequence on button press only.
-CSI M CbCxCy (6 chars)
-Coords limited to 223 (=255 - 32)
-                }
-                }
-                {origin DEC description "DECINLM - Interlace Mode (obsolete?)" names {DECINLM}}
-        }
-        20 {
-                {origin DEC description "LNM - Line Feed/New Line Mode" names {LNM} note {
-For terminals that support LNM, the default is off
-meaning a lone CR respresents the character emitted
-when enter is pushed. Turning LNM on would mean that
-CR LF is sent when hitting enter. This feature is
-not commonly supported, and the default will normally
-be as if this was off - ie lone CR.
-                }
-                }
-        }
-        25  {
-                {origin DEC description "DECTCEM - Text Cursor Enable Mode" names {DECTCEM cursor_enable}}
-        }
-        47  {
-                {origin xterm description "xterm alternate buffer" names {xterm_altbuf}}
-                {origin DEC   description "DECGRPM - Graphics Rotated Print Mode (obsolete?)" names {DECGRPM}}
-        }
-        66  {
-                {origin DEC description "DECNKM - Numeric Keypad Mode" names {DECNKM}}
-        }
-        1000 {
-                {origin "xterm" description  "VT200 compatibility mouse" names {SET_VT200_MOUSE} note {
-Escape sequence on both button press and release.
-CSI M CbCxCy
-                }
-                }
-        }
-        1004 {
-                {origin "xterm"  description "Send FocusIn/FocusOut events" names {mouse_focus_event}}
-        }
-        1005 {
-                {origin "xterm"  description "Enable UTF-8 Mouse Mode" names {mouse_utf8 mouse_utf8_extended}}
-        }
-        1006 {
-                {origin "xterm"  description "Enable SGR Mouse Mode" names {mouse_sgr mouse_sgr_extended} note{
-SET_SGR_EXT_MODE_MOUSE - extended compared to x10 mouse protocol which limits x y coords
-to 223 (=255 - 32)
-                }
-                }
-        }
-        1015 {
-                {origin "urxvt"  description "Enable urxvt Mouse Mode" names {mouse_urxvt}}
-        }
-        1016 {
-                {origin "xterm"  description "Enable SGR Pixel Mouse Mode" names {mouse_sgr_pixel}}
-        }
-        1047 {
-                {origin "xterm"  description "Alternate Buffer" names {alt_buffer_only}}
-        }
-        1049 {
-                {origin "xterm"  description "Alternate Buffer with save cursor" names {alt_buffer alt_screen}}
-        }
-        2004 {
-                {origin "xterm"  description "Set bracketed paste mode" names {bracketed_paste}}
-        }
-        2027 {
-                {origin Contour description "Grapheme Cluster Processing" names {grapheme_clusters}}
-        }
-    }
-    set decmode_names [dict create]
-    dict for {code items} $decmode_data {
-        foreach itm $items {
-            set names [dict get $itm names]
-            foreach nm $names {
-                dict set decmode_names $nm $code
-            }
-        }
-    }
-
-
-
-
-
-    proc query_mode {num_or_name} {
-        if {[string is integer -strict $num_or_name]} {
-            set m $num_or_name
-        } else {
-            variable decmode_names
-            if {[dict exists $decmode_names $num_or_name]} {
-                set m [dict get $decmode_names $num_or_name]
-            } else {
-                error "punk::ansi::query_mode unrecognised mode '$num_or_name'. Known mode names: [dict keys $decmode_names]"
-            }
-        }
-        return "\x1b\[?$m\$p"
-    }
-
-
-    #Alt screen buffer - smcup/rmcup ti/te
-    #Note \x1b\[?47h doesn't work at all in some terminals (e.g alacritty,cmd on windows and reportedly kitty)
-    #It is also reported to have 'deceptively similar' effects to 1049 -but to be 'subtly broken' on some terminals.
-    #see: https://xn--rpa.cc/irl/term.html
-    #1049 (introduced by xterm in 1998?) considered the more modern version?
-    #1047,1048,1049 xterm private modes are 'composite' control sequences as replacement for original 47 sequence
-    #1049 - includes save cursor,switch to alt screen, clear screen
-    #e.g ? (below example not known to be exactly what 1049 does - but it's something similar)
-    #SMCUP
-    #   \x1b7 (save cursor)
-    #   \x1b\[?47h (switch)
-    #   \x1b\[2J (clear screen)
-    #RMCUP
-    #   \x1b\[?47l (switch back)
-    #   \x1b8  (restore cursor)
-
-    #1047 - clear screen on the way out (ony if actually on alt screen)
-    proc enable_alt_screen {} {
-        #tput smcup outputs "\x1b\[?1049h\x1b\[22\;0\;0t" second esc sequence - DECSLPP? setting page height one less than main screen?
-        return \x1b\[?1049h
-    }
-    proc disable_alt_screen {} {
-        #tput rmcup outputs \x1b\[?1049l\x1b\[23\;0\;0t]
-        return \x1b\[?1049l
-    }
-    #47 - less widely supported(?) doesn't restore cursor or clear alt screen
-    proc enable_alt_screen2 {} {
-        return \x1b\[?47h
-    }
-    proc disable_alt_screen2 {} {
-        return \x1b\[?47l
-    }
-
-    proc term_colour_fg {colour} {
-        return "\x1b\]10\;$colour\x1b\\"
-    }
-    proc term_color_fg {colour} {
-        return "\x1b\]10\;$colour\x1b\\"
-    }
-    proc term_colour_bg {colour} {
-        return "\x1b\]11\;$colour\x1b\\"
-    }
-    proc term_color_bg {colour} {
-        return "\x1b\]11\;$colour\x1b\\"
-    }
-    proc term_colour_cursor {colour} {
-        return "\x1b\]12\;$colour\x1b\\"
-    }
-    proc term_color_cursor {colour} {
-        return "\x1b\]12\;$colour\x1b\\"
-    }
-    proc term_colour_pointer_fg {colour} {
-        return "\x1b\]13\;$colour\x1b\\"
-    }
-    proc term_color_pointer_fg {colour} {
-        return "\x1b\]13\;$colour\x1b\\"
-    }
-    proc term_colour_pointer_bg {colour} {
-        return "\x1b\]14\;$colour\x1b\\"
-    }
-    proc term_color_pointer_bg {colour} {
-        return "\x1b\]14\;$colour\x1b\\"
-    }
-    #15,16 tektronix fg, tektronix bg  ???
-    proc term_colour_highlight_bg {colour} {
-        return "\x1b\]17\;$colour\x1b\\"
-    }
-    proc term_color_highlight_bg {colour} {
-        return "\x1b\]17\;$colour\x1b\\"
-    }
-    #18 tektronix cursor colour ???
-    proc term_colour_highlight_fg {colour} {
-        return "\x1b\]19\;$colour\x1b\\"
-    }
-    proc term_color_highlight_fg {colour} {
-        return "\x1b\]19\;$colour\x1b\\"
-    }
-    #22 pointer shape - there are other methods too - not known to work on windows terminal based VTs - review
-    proc term_colour_reset {} {
-        return "\x1b\]104\;\x1b\\"
-    }
-    proc term_color_reset {} {
-        return "\x1b\]104\;\x1b\\"
-    }
-    # -- --- ---
-
-    proc erase_line {} {
-        #*** !doctools
-        #[call [fun erase_line]]
-        return \033\[2K
-    }
-    proc erase_sol {} {
-        #*** !doctools
-        #[call [fun erase_sol]]
-        #[para]Erase to start of line, leaving cursor position alone.
-        return \033\[1K
-    }
-    proc vt52erase_sol {} {
-        return \x1bo
-    }
-    proc erase_eol {} {
-        #*** !doctools
-        #[call [fun erase_eol]]
-        return \033\[K
-    }
-    proc vt52erase_eol {} {
-        return \x1bK
-    }
-    #see also clear_above clear_below
-    # -- ---  --- --- ---
-
-    proc scroll_up {n} {
-        #*** !doctools
-        #[call [fun scroll_up] [arg n]]
-        return \x1b\[${n}S
-    }
-    proc scroll_down {n} {
-        #*** !doctools
-        #[call [fun scroll_down] [arg n]]
-        return \x1b\[${n}T
-    }
-
-    proc insert_spaces {count} {
-        #*** !doctools
-        #[call [fun insert_spaces] [arg count]]
-        return \x1b\[${count}@
-    }
-    proc delete_characters {count} {
-        #*** !doctools
-        #[call [fun delete_characters] [arg count]]
-        return \x1b\[${count}P
-    }
-    proc erase_characters {count} {
-        #*** !doctools
-        #[call [fun erase_characters] [arg count]]
-        return \x1b\[${count}X
-    }
-    proc insert_lines {count} {
-        #*** !doctools
-        #[call [fun insert_lines] [arg count]]
-        return \x1b\[${count}L
-    }
-    proc delete_lines {count} {
-        #*** !doctools
-        #[call [fun delete_lines] [arg count]]
-        return \x1b\[${count}M
-    }
-
-    proc cursor_pos {} {
-        #*** !doctools
-        #[call [fun cursor_pos]]
-        #[para]cursor_pos unlikely to be useful on it's own like this as when written to the terminal, this sequence causes the terminal to emit the row;col sequence to stdin
-        #[para]The output on screen will look something like ^[lb][lb]47;3R
-        #[para]Use punk::console::get_cursor_pos or punk::console::get_cursor_pos_list instead.
-        #[para]These functions will emit the code - but read it in from stdin so that it doesn't display, and then return the row and column as a colon-delimited string or list respectively.
-        #[para]The punk::ansi::cursor_pos function is used by punk::console::get_cursor_pos and punk::console::get_cursor_pos_list
-        return \033\[6n
-    }
-
-    proc cursor_pos_extended {} {
-        #includes page e.g ^[[47;3;1R
-        #(but not on all terminals - some (freebsd?) will report as per 6n e.g ^[[74;3R)
-        return \033\[?6n
-    }
-
-
-    #DECFRA - Fill rectangular area
-    #REVIEW - vt100 accepts decimal values 132-126 and 160-255 ("in the current GL or GR in-use table")
-    #some modern terminals accept and display characters outside this range - but this needs investigation.
-    #in a modern unicode era - the restricted range doesn't make a lot of sense - but we need to see what terminal emulators actually do.
-    #e.g what happens with double-width?
-    #this wrapper accepts a char rather than a decimal value
-    proc fill_rect {char t l b r} {
-        set dec [scan $char %c]
-        return \x1b\[$dec\;$t\;$l\;$b\;$r\$x
-    }
-    #DECFRA with decimal char value
-    proc fill_rect_dec {decimal t l b r} {
-        return \x1b\[$decimal\;$t\;$l\;$b\;$r\$x
-    }
-
-    proc checksum_rect {id page t l b r} {
-        return "\x1b\[${id}\;${page}\;$t\;$l\;$b\;$r*y"
-    }
-
-    proc request_cursor_information {} {
-        #*** !doctools
-        #[call [fun request_cursor_information]]
-        #[para]DECRQPSR (DEC Request Presentation State Report) for DECCCIR Cursor Information report
-        #[para]When written to the terminal, this sequence causes the terminal to emit cursor information to stdin
-        #[para]A stdin readloop will need to be in place to read this information
-        return \x1b\[1\$w
-    }
-    proc request_tabstops {} {
-        #*** !doctools
-        #[call [fun request_tabstops]]
-        #[para]DECRQPSR (DEC Request Presentation State Report) for DECTABSR Tab stop report
-        #[para]When written to the terminal, this sequence causes the terminal to emit tabstop information to stdin
-        return \x1b\[2\$w
-    }
-    proc set_tabstop {} {
-        return \x1bH
-    }
-    proc clear_tabstop {} {
-        return \x1b\[g
-    }
-    proc clear_all_tabstops {} {
-        return \x1b\[3g
-    }
-
-
-    #alternative to string terminator is \007 -
-    proc titleset {windowtitle} {
-        #*** !doctools
-        #[call [fun titleset] [arg windowtitles]]
-        #[para]Returns the code to set the title of the terminal window to windowtitle
-        #[para]This may not work on terminals which have multiple panes/windows
-        return "\033\]2;$windowtitle\033\\" ;#works for xterm and most derivatives
-    }
-    proc vt52titleset {windowtitle} {
-        return \x1bS$windowtitle\r
-    }
-    #titleget - https://invisible-island.net/xterm/xterm.faq.html#how2_title
-    #no cross-platform ansi-only mechanism ?
-
-    proc test_decaln {} {
-        #Screen Alignment Test
-        #Reset margins, move cursor to the top left, and fill the screen with 'E'
-        #(doesn't work on many terminals - seems to work in FreeBSD 13.2 and wezterm on windows)
-        return \x1b#8
-    }
-
-    #length of text for printing characters only
-    #- unicode and other non-printing chars and combining sequences should be handled by the ansifreestring_width call at the end.
-    #certain unicode chars are full-width (single char 2 columns wide) e.g see "Halfwdith and fullwidth forms" and ascii_fuillwidth blocks in punk::char::charset_names
-    #review - is there an existing library or better method? printing to a terminal and querying cursor position is relatively slow and terminals lie.
-    #Note this length calculation is only suitable for lines being appended to other strings if the line is pre-processed to account for backspace and carriage returns first
-    #If the raw line is appended to another string without such processing - the backspaces & carriage returns can affect data prior to the start of the string.
-    proc printing_length {line} {
-        #string last faster than string first for long strings anyway
-        if {[tcl::string::last \n $line] >= 0} {
-            error "line_print_length must not contain newline characters"
-        }
-        #what if line has \v (vertical tab) ie more than one logical screen line?
-
-        #review - detect ansi moves and warn/error? They would invalidate this algorithm
-        #for a string with ansi moves - we would need to use the overtype::renderline function (which is a bit heavier)
-        #arguably - \b and \r are cursor move operations too - so processing them here is not very symmetrical - review
-        #the purpose of backspace (or line cr) in embedded text is unclear. Should it allow some sort of character combining/overstrike as it has sometimes done historically (nroff/less)?  e.g a\b` as an alternative combiner or bolding if same char
-        #This should presumably only be done if the over_strike (os) capability is enabled in the terminal. Either way - it presumably won't affect printing width?
-        set line [punk::ansi::ansistrip $line]
-        #ANSI (e.g PM/SOS) can contain \b or \n  or \t  but won't contribute to length
-        #ansistrip must come before any other processing of these chars.
-
-        #we can't use simple \b processing if we get ansi codes and aren't actually processing them (e.g moves)
-
-        set line [punk::char::strip_nonprinting_ascii $line] ;#only strip nonprinting after ansistrip - some like BEL are part of ansi
-        #backspace 0x08 only erases* printing characters anyway - so presumably order of processing doesn't matter
-        #(* more correctly - moves cursor back)
-        #Note some terminals process backspace before \v - which seems quite wrong
-        #backspace will not move beyond a preceding newline - but we have disallowed newlines for this function already
-        #leading backspaces will eat into any string (even prompt in non-standard tclsh shell) that is prepended to the line
-        # - but for the purposes of overtype we wouldn't want that - so we strip it here in the length calculation and should strip leading backspaces in the actual data concatenation operations too.
-        #curiously - a backspace sequence at the end of a string also doesn't reduce the printing width - so we can also strip from RHS
-
-        #Note that backspace following a \t will only shorten the string by one (ie it doesn't move back the whole tab width like it does interactively in the terminal)
-        #for this reason - it would seem best to normalize the tabs to spaces prior to performing the backspace calculation - otherwise we won't account for the 'short' tabs it effectivley produces
-        #normalize tabs to an appropriate* width
-        #*todo - handle terminal/context where tabwidth != the default 8 spaces
-        if {[tcl::string::last \t $line] >= 0} {
-            if {[tcl::info::exists punk::console::tabwidth]} {
-                set tw $::punk::console::tabwidth
-            } else {
-                set tw 8
-            }
-            set line [textutil::tabify::untabify2 $line $tw]
-        }
-
-        #NOTE - this is non-destructive backspace as it occurs in text blocks - and is likely different to the sequence coming from a terminal or editor which generally does a destructive backspace
-        #e.g
-        #This means for example that abc\b  has a length of 3. Trailing or leading backslashes have no effect
-
-        #set bs [format %c 0x08]
-        #set line [tcl::string::map [list "\r\b" "\r"] $line] ;#backsp following a \r will have no effect
-        set line [tcl::string::trim $line \b] ;#take off at start and tail only
-
-        #counterintuitively "x\b" still shows the x ie length is still one. The backspace just moves the position. There must be a char following \b for it to affect the length.
-        #(we are not interested in the destructive backspace case present in editors,terminals etc - that is a different context)
-        set n 0
-
-        #set chars [split $line ""] ; #review - graphemes vs chars? Terminals differ in how they treat this.
-        set chars [punk::char::grapheme_split $line]
-        set cr_posns [lsearch -all $chars \r]
-        set bs_posns [lsearch -all $chars \b]
-        foreach p $cr_posns {
-            lset chars $p <cr>
-        }
-        foreach p $bs_posns {
-            lset chars $p <bs>
-        }
-
-        #mintty seems more 'correct'. It will backspace over an entire grapheme (char+combiners) whereas windows terminal/wezterm etc remove a combiner
-        #build an output
-        set idx 0
-        set outchars [list]
-        set outsizes [list]
-        # --
-        #tcl8.6/8.7 we can get a fast byte-compiled switch statement only with literals in the source code
-        #this is difficult/risky to maintain - hence the lsearch and grapheme-replacement above
-        #we could reasonably do it with backspace - but cr is more difficult
-        #note that \x08 \b etc won't work to create a compiled switch statement even with unbraced (separate argument) form of switch statement.
-        #set bs ""
-        #set cr ?
-        # --
-        foreach c $chars {
-            switch -- $c {
-                <bs> {
-                    if {$idx > 0} {
-                        incr idx -1
-                    }
-                }
-                <cr> {
-                    set idx 0
-                }
-                default {
-                    #set nxt [llength $outchars]
-                    if {$idx < [llength $outchars]} {
-                        #overstrike? - should usually have no impact on width - width taken as last grapheme in that column
-                        #e.g nroff would organise text such that underline written first, then backspace, then the character - so that terminals without overstrike would display something useful if no overstriking is done
-                        #Conceivably double_wide_char then backspace then underscore would underreport the length if overstriking were intended.
-                        lset outchars $idx $c
-                    } else {
-                        lappend outchars $c
-                    }
-                    #punk::ansi::internal::printing_length_addchar $idx $c
-                    incr idx
-                }
-            }
-        }
-        return [punk::char::ansifreestring_width [join $outchars ""]]
-    }
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #with thanks to Helmut Giese and other Authors of tcllib textutil
-    #this version is adjusted to handle ANSI SGR strings
-    #TODO! ANSI aware version
-
-    proc untabifyLine { line num } {
-        variable Spaces
-
-        set currPos 0
-        while { 1 } {
-        set currPos [tcl::string::first \t $line $currPos]
-        if { $currPos == -1 } {
-            # no more tabs
-            break
-        }
-
-        # how far is the next tab position ?
-        set dist [expr {$num - ($currPos % $num)}]
-        # replace '\t' at $currPos with $dist spaces
-        set line [tcl::string::replace $line $currPos $currPos $Spaces($dist)]
-
-        # set up for next round (not absolutely necessary but maybe a trifle
-        # more efficient)
-        incr currPos $dist
-        }
-        return $line
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-    }
-
-    #ever so slightly slower on short strings - much faster than split_at_codes version for large/complex ansi blocks
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::ansistrip
-        @cmd    -name punk::ansi::ansistrip\
-            -summary\
-            "Strip ANSI codes and convert VT100 graphics to unicode equivalents."\
-            -help\
-            "Returns a string with ANSI codes such as SGR, movements etc stripped out.
-            Alternate graphics chars (VT100 graphics) are replaced with modern unicode
-            equivalents (e.g boxdrawing glyphs).
-            PM, APC, SOS contents are stripped - whether or not such wrapped strings
-            are displayed on various terminals."
-        @values -min 1 -max 1
-        text -type string
-    }]
-    proc ansistrip {text} {
-        #*** !doctools
-        #[call [fun ansistrip] [arg text] ]
-        #[para]Return a string with ansi codes stripped out
-        #[para]Alternate graphics chars are replaced with modern unicode equivalents (e.g boxdrawing glyphs)
-        if {[string length $text] < 2} {return $text}
-        if {[punk::ansi::ta::detect_g0 $text]} {
-            set text [convert_g0 $text];#Convert ansi borders to unicode line drawing instead of ascii letters
-        }
-        if {[string length $text] < 2} {return $text}
-        set parts [punk::ansi::ta::split_codes $text]
-        #review - if we have only one element of a paired codeset such as PM,SOS - it will not be found by split_codes
-        #The output technically then still contains ansi (which may for example be hidden by terminal despite lack of closing ST)
-        if {[llength $parts] == 1} {return [lindex $parts 0]}
-        set out ""
-        #todo - try: join [lsearch -stride 2 -index 0 -subindices -all -inline  $parts *] ""
-        # - (if/when lsearch -stride bug fixed)
-        foreach {pt code} $parts {
-            append out $pt
-        }
-        return $out
-    }
-    proc ansistrip2 {text} {
-        #*** !doctools
-        #[call [fun ansistrip2] [arg text] ]
-        #[para]Return a string with ansi codes stripped out
-        #[para]Alternate graphics chars are replaced with modern unicode equivalents (e.g boxdrawing glyphs)
-
-        if {[punk::ansi::ta::detect_g0 $text]} {
-            set text [convert_g0 $text];#Convert ansi borders to unicode line drawing instead of ascii letters
-        }
-        set parts [punk::ansi::ta::split_codes $text]
-        #todo - try: join [lsearch -stride 2 -index 0 -subindices -all -inline  $parts *] ""
-        # - (if/when lsearch -stride bug fixed)
-        join [lmap v [lseq 0 to [llength $parts] by 2] {lindex $parts $v}] "" ;#slightly slower than above foreach
-    }
-    #interp alias {} stripansi {} ::punk::ansi::ansistrip
-    proc ansistripraw {text} {
-        #*** !doctools
-        #[call [fun ansistripraw] [arg text] ]
-        #[para]Return a string with ansi codes stripped out
-        #[para]Alternate graphics modes will be stripped rather than converted to unicode - exposing the raw ascii characters as they appear without graphics mode.
-        #[para]ie instead of a horizontal line you may see: qqqqqq
-        if {[string length $text] < 2} {return $text}
-
-        set parts [punk::ansi::ta::split_codes $text]
-        set out ""
-        foreach {pt code} $parts {
-            append out $pt
-        }
-        return $out
-    }
-    #interp alias {} stripansiraw {} ::punk::ansi::ansistripraw
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::ansi ---}]
-}
-
-tcl::namespace::eval punk::ansi {
-
-
-    # -- --- --- --- --- ---
-    #XTGETTCAP
-    # xterm responds with
-    # DCS 1 + r Pt ST for valid requests, adding to Pt an = , and
-    # the value of the corresponding string that xterm would send,
-    # or
-    # DCS 0 + r ST for invalid requests.
-    # The strings are encoded in hexadecimal (2 digits per
-    # character).  If more than one name is given, xterm replies
-    # with each name/value pair in the same response.  An invalid
-    # name (one not found in xterm's tables) ends processing of the
-    # list of names.
-    proc xtgetcap {keylist} {
-        #ESC P = 0x90 = DCS = Device Control String
-        set hexkeys [list]
-        foreach k $keylist {
-            lappend hexkeys [util::str2hex $k]
-        }
-        set payload [join $hexkeys ";"]
-        return "\x1bP+q$payload\x1b\\"
-    }
-    proc xtgetcap2 {keylist} {
-        #ESC P = 0x90 = DCS = Device Control String
-        set hexkeys [list]
-        foreach k $keylist {
-            lappend hexkeys [util::str2hex $k]
-        }
-        set payload [join $hexkeys ";"]
-        return "\u0090+q$payload\u009c"
-    }
-    tcl::namespace::eval codetype {
-        #*** !doctools
-        #[subsection {Namespace punk::ansi::codetype}]
-        #[para] API functions for punk::ansi::codetype
-        #[para] Utility functions for processing ansi code sequences
-        #[list_begin definitions]
-
-        #Functions that are primarily intended to operate on a single ansi code sequence - rather than a sequence, or codes embedded in another string
-        #in some cases multiple sequences or leading trailing strings are ok - but the proc docs should note where the function is looking
-        #review - separate namespace for functions that operate on multiple or embedded?
-
-        proc is_sgr {code} {
-            #SGR (Select Graphic Rendition) - codes ending in 'm' - e.g colour/underline
-            #we will accept and pass through the less common colon separator (ITU Open Document Architecture)
-            #Terminals should generally ignore it if they don't use it
-            regexp {\033\[[0-9;:]*m$} $code
-        }
-
-        #review - has_cursor_move_in_line? Are we wanting to allow strings/sequences and detect that there are no moves that *aren't* within line?
-        proc is_cursor_move_in_line {code {knownline ""}} {
-            if {[regexp {\033\[[0-9]*(:?C|D|G)$} $code]} {
-                return 1
-            }
-            if {[tcl::string::is integer -strict $knownline]} {
-                #CSI n : m H where row n happens to be current line - review/test
-                set re [tcl::string::map [list %n% $knownline] {\x1b\[%n%:[0-9]*H$}]
-                if {[regexp $re $code]} {
-                    return 1
-                }
-            }
-            return 0
-        }
-        #pure SGR reset with no other functions
-        proc is_sgr_reset {code} {
-            #*** !doctools
-            #[call [fun is_sgr_reset] [arg code]]
-            #[para]Return a boolean indicating whether this string has a trailing pure SGR reset
-            #[para]Note that if the reset is not the very last item in the string - it will not be detected.
-            #[para]This is primarily intended for testing a single ansi code sequence, but code can be any string where the trailing SGR code is to be tested.
-
-            #todo 8-bit csi
-            regexp {\x1b\[0*m$} $code
-        }
-
-
-        #whether this code has 0 (or equivalently empty) parameter (but may set others)
-        #if an SGR code has a reset in it - we don't need to carry forward any previous SGR codes
-        #it generally only makes sense for the reset to be the first parameter - otherwise the code has ineffective portions
-        #However - detecting zero or empty parameter in other positions requires knowing all other codes that may allow zero or empty params.
-        #We only look at the initial parameter within the trailing SGR code as this is the well-formed normal case.
-
-        #Review - consider normalizing sgr codes to remove other redundancies such as setting fg or bg colour twice in same code
-        proc has_sgr_leadingreset {code} {
-            #*** !doctools
-            #[call [fun has_sgr_leadingreset] [arg code]]
-            #[para]The reset must be the very first item in code to be detected. Trailing strings/codes ignored.
-            set params ""
-            #we need non-greedy
-            if {[regexp {^\033\[([^m]*)m} $code _match params]} {
-                #must match trailing m to be the type of reset we're looking for
-                set plist [split $params ";"]
-                if {[tcl::string::trim [lindex $plist 0] 0] eq ""} {
-                    #e.g \033\[m  \033\[0\;...m  \033\[0000...m
-                    return 1
-                } else {
-                    return 0
-                }
-            } else {
-                return 0
-            }
-        }
-
-        #e.g has_any_effective $str bg fg
-        proc has_any_effective {str args} {
-            set singlecodes [punk::ansi::ta::get_codes_single $str]
-            set mergeinfo   [punk::ansi::codetype::sgr_merge_singles $singlecodes -info 1]
-            foreach t $args {
-                switch -- $t {
-                    sgr - unmergeable - othercodes {
-                        if {[dict get $mergeinfo $t] ne ""} {
-                            return 1
-                        }
-                     }
-                    intensity - italic - underline - underextended - blink - reverse - hide - strike - font - gothic - doubleunderline
-                    - proportional - frame_or_circle - ideogram_underline - ideogram_doubleunderline - ideogram_clear - overline - underlinecolour - superscript - subscript
-                    - nosupersub - fg - bg  {
-                        if {[dict get $mergeinfo codestate $t] ne ""} {
-                            return 1
-                        }
-                    }
-                    bold {
-                        if {[dict get $mergeinfo codestate intensity] eq "1"} {
-                            return 1
-                        }
-                    }
-                    dim {
-                        if {[dict get $mergeinfo codestate intensity] eq "2"} {
-                            return 1
-                        }
-                    }
-                    default {
-                        error "punk::ansi::ta::has_any_effective invalid type '$t' specified"
-                    }
-                }
-            }
-            return 0
-        }
-        proc has_all_effective {str args} {
-            set singlecodes [punk::ansi::ta::get_codes_single $str]
-            set mergeinfo   [punk::ansi::codetype::sgr_merge_singles $singlecodes -info 1]
-            foreach t $args {
-                switch -- $t {
-                    sgr - unmergeable - othercodes {
-                        if {[dict get $mergeinfo $t] eq ""} {
-                            return 0
-                        }
-                     }
-                    intensity - italic - underline - underextended - blink - reverse - hide - strike - font - gothic - doubleunderline
-                    - proportional - frame_or_circle - ideogram_underline - ideogram_doubleunderline - ideogram_clear - overline - underlinecolour - superscript - subscript
-                    - nosupersub - fg - bg {
-                        if {[dict get $mergeinfo codestate $t] eq ""} {
-                            return 0
-                        }
-                    }
-                    bold {
-                        if {[dict get $mergeinfo codestate intensity] ne "1"} {
-                            return 0
-                        }
-                    }
-                    dim {
-                        if {[dict get $mergeinfo codestate intensity] ne "2"} {
-                            return 0
-                        }
-                    }
-                    default {
-                        error "punk::ansi::ta::has_any_effective invalid type '$t' specified"
-                    }
-                }
-            }
-            return 1
-        }
-
-        proc is_gx {code} {
-            #g0 {(?:\x1b\(0)(?:(?!\x1b\(B).)*\x1b\(B}
-            #g1 {(?:\x1b\)0)(?:(?!\x1b\)B).)*\x1b\)B}
-            regexp {\x1b(?:\(0(?:(?:(?!\x1b\(B).)*\x1b\(B)|\)0(?:(?:(?!\x1b\)B).)*\x1b\)B))} $code
-        }
-        proc is_gx_open {code} {
-            #todo g2,g3?
-            #pin to start and end with ^ and $ ?
-            #regexp {\x1b\(0|\x1b\)0} $code
-            regexp {\x1b(?:\(0|\)0)} $code
-        }
-        proc is_gx_close {code} {
-            #regexp {\x1b\(B|\x1b\)B} $code
-            regexp {\x1b(?:\(B|\)B)} $code
-        }
-        #input assumed to be single codes - simple test for 2nd char left bracket  and trailing m is done anyway - codes not matching are ignored and passed through
-        #This is not order-preserving if non-sgr codes are present as they are tacked on to the end even if they initially were before all SGR codes
-
-        variable codestate_empty
-        set codestate_empty [tcl::dict::create]
-        tcl::dict::set codestate_empty rst ""        ;#0 (or empty)
-        tcl::dict::set codestate_empty intensity ""  ;#1 bold, 2 dim, 22 normal
-        tcl::dict::set codestate_empty shadowed ""   ;
-        tcl::dict::set codestate_empty italic ""     ;#3 on 23 off
-        tcl::dict::set codestate_empty underline ""  ;#4 on 24 off
-
-        #nonstandard/extended 4:0,4:1,4:2,4:3,4:4,4:5
-        #4:1 single underline and 4:2 double underline deliberately kept separate to standard SGR versions
-        #The extended codes are merged separately allowing fallback SGR to be specified for terminals which don't support extended underlines
-        tcl::dict::set codestate_empty underextended ""  ;#4:0 for no extended underline 4:1 etc for underline styles
-        #tcl::dict::set codestate_empty undersingle ""
-        #tcl::dict::set codestate_empty underdouble ""
-        #tcl::dict::set codestate_empty undercurly ""
-        #tcl::dict::set codestate_empty underdotted ""
-        #tcl::dict::set codestate_empty underdashed ""
-
-
-        tcl::dict::set codestate_empty blink   ""    ;#5 or 6 for slow/fast, 25 for off
-        tcl::dict::set codestate_empty reverse ""    ;#7 on 27 off
-        tcl::dict::set codestate_empty hide  ""      ;#8 on 28 off
-        tcl::dict::set codestate_empty strike ""     ;#9 on 29 off
-        tcl::dict::set codestate_empty font ""       ;#10, 11-19  10 being primary
-        tcl::dict::set codestate_empty gothic ""     ;#20
-        tcl::dict::set codestate_empty doubleunderline "" ;#21  (standard SGR double as opposed to underdouble)
-        tcl::dict::set codestate_empty proportional "" ;#26 - see note below
-        tcl::dict::set codestate_empty frame_or_circle ""       ;#51,52 on - 54 off (54 off) (not generally used - mintty has repurposed for emoji variation selector)
-
-        #ideogram rarely supported - this implementation untested - each attribute kept separate as they presumably can be applied simultaneously
-        tcl::dict::set codestate_empty ideogram_underline ""
-        tcl::dict::set codestate_empty ideogram_doubleunderline ""
-        tcl::dict::set codestate_empty ideogram_overline ""
-        tcl::dict::set codestate_empty ideogram_doubleoverline ""
-        tcl::dict::set codestate_empty ideogram_clear ""
-
-        tcl::dict::set codestate_empty overline ""    ;#53 on 55 off - probably not supported - pass through. Seem to be ok to merge with other SGR even if not supported.
-        tcl::dict::set codestate_empty underlinecolour "" ;#58 - same arguments as 256colour and rgb (nonstandard - in Kitty ,VTE,mintty and iTerm2)
-
-        # -- mintty?
-        tcl::dict::set codestate_empty superscript "" ;#73
-        tcl::dict::set codestate_empty subscript ""   ;#74
-        tcl::dict::set codestate_empty nosupersub ""  ;#75
-        # --
-
-        tcl::dict::set codestate_empty fg ""        ;#30-37 + 90-97
-        tcl::dict::set codestate_empty bg ""        ;#40-47 + 100-107
-
-        variable metastate_empty
-        tcl::dict::set metastate_empty underline_active "" ;#a meta state for whether underlines are on|off - values 1,0,""
-
-        #misnomer should have been sgr_merge_args ? :/
-        #as a common case optimisation - it will not merge a single element list, even if that code contains redundant elements
-        proc sgr_merge_list {args} {
-            if {[llength $args] == 0} {
-                return ""
-            } elseif {[llength $args] == 1} {
-                return [lindex $args 0]
-            }
-            sgr_merge $args
-        }
-        proc sgr_merge {codelist args} {
-            set allparts [list]
-            foreach c $codelist {
-                #set cparts [punk::ansi::ta::split_codes_single $c]
-                #lappend allparts {*}[lsearch -all -inline -not $cparts ""]
-                lappend allparts {*}[punk::ansi::ta::get_codes_single $c]
-            }
-            sgr_merge_singles $allparts {*}$args
-        }
-
-        variable defaultopts_sgr_merge_singles
-        set defaultopts_sgr_merge_singles [tcl::dict::create\
-            -filter_fg 0\
-            -filter_bg 0\
-            -filter_reset 0\
-            -info 0\
-        ]
-
-        #codes *must* already have been split so that one esc per element in codelist
-        #e.g codelist [a+ Yellow Red underline] [a+ blue] [a+ red]  is ok
-        #but codelist "[a+ Yellow Red underline][a+ blue]" [a+ red]  is not
-        #(use punk::ansi::ta::split_codes_single)
-        proc sgr_merge_singles {codelist args} {
-            variable codestate_empty
-            variable metastate_empty
-            variable defaultopts_sgr_merge_singles
-            set opts $defaultopts_sgr_merge_singles
-            foreach {k v} $args {
-                switch -- $k {
-                    -filter_fg - -filter_bg - -filter_reset -
-                    -info {
-                        tcl::dict::set opts $k $v
-                    }
-                    default {
-                        error "sgr_merge unknown option '$k'. Known options [tcl::dict::keys $opts]"
-                    }
-                }
-            }
-
-            set othercodes [list]
-            set codestate $codestate_empty ;#take copy as we need the empty state for resets
-            set metastate $metastate_empty
-            set did_reset 0
-
-            #we should also handle 8bit CSI here?  mixed \x1b\[  and \x9b  ?  Which should be used in the merged result?
-            #There are arguments to move to 8bit CSI for keyboard protocols (to solve keypress timing issues?) - but does this extend to SGR codes?
-            #we will output 7bit merge of the SGRs even if some or all were 8bit CSi
-            #As at 2024 - 7bit are widely supported 8bit seem to be often ignored by pseudoterminals
-            #auto-detecting and emitting 8bit only if any are present in our input doesn't seem like a good idea - as sgr_merge_list is only seeing a subset of the data - so any auto-decision at this level will just introduce indeterminism.
-            #review - consider a higher-level option for always emitting 8bit or always 7bit
-            #either way - if we get mixed CSI input - it probably makes more sense to merge their parameters than maintain the distinction and pass the mess downstream.
-
-            #We still output any non SGR codes in the list as they came in - preserving their CSI
-
-            foreach c $codelist {
-                #normalize 8bit to a token of the same length so our string operations on the code are the same and we can maintain a switch statement with literals rather than escapes
-                #.. but preserve original c
-                #set cnorm [tcl::string::map [list \x9b {8[} ] $c]
-                #switch -- [tcl::string::index $cnorm 1][string index $cnorm end] {}
-                #  {[m}
-
-                #todo - detect multiple \x9b or \x1b and raise error - codes not split?
-                #if we don't - we can silently get 8CSI 7CSI in output!
-                if {[string last \x1b\[ $c] > 0} {
-                    error "::punk::ansi::codetype::sgr_merge_singles bad entry in codelist [ansistring VIEW $c] (There is a 7CSI not at start)"
-                }
-                if {[string last \x9b $c] > 0} {
-                    error "::punk::ansi::codetype::sgr_merge_singles bad entry in codelist [ansistring VIEW $c] (There is an 8CSI not at start)"
-                }
-
-                set cnorm [tcl::string::map [list \x9b 8CSI "\x1b\[" 7CSI ] $c]
-                switch -- [tcl::string::range $cnorm 0 3][tcl::string::index $cnorm end] {
-                    7CSIm - 8CSIm {
-                        #set params [tcl::string::range $cnorm 2 end-1] ;#strip leading esc lb and trailing m
-                        set params [tcl::string::range $cnorm 4  end-1] ;#string leading XCSI and trailing m
-
-                        #some systems use colon for 256 colours or RGB or nonstandard subparameters
-                        #- it is therefore probably not ok to map to semicolon within SGR codes and treat the same.
-                        # - will break mintty? set params [tcl::string::map [list : {;}] $params]
-                        set plist [split $params {;}]
-                        if {![llength $plist]} {
-                            #if there was nothing - it must be a reset - we need it in the list
-                            lappend plist ""
-                        }
-                        #we shouldn't get an empty or zero param beyond index 0 - but it's possible
-                        #some codes have additional parameters - e.g rgb colours so we need to jump forward in the parameter list sometimes.
-                        for {set i 0} {$i < [llength $plist]} {incr i} {
-                            set p [lindex $plist $i]
-                            set paramsplit [split $p :]
-                            #for some cases we passthrough $p instead of just the number - in case another implementation uses the colon subparameters
-                            #e.g see https://github.com/mintty/mintty/wiki/Tips#text-attributes-and-rendering
-                            #this may have originated with kitty?
-                            #windows terminal seems to be implementing it too
-                            #however, they can be completely repurposed - so we probably need to specifically support them.. REVIEW.
-
-                            #review - what about \x1b\[000m
-                            #we need to accept/ignore leading zeros - we can't just pass to expr - as some tcl versions still see leading zero as octal
-                            set codeint [tcl::string::trimleft [lindex $paramsplit 0] 0]
-                            switch -- $codeint {
-                                "" - 0 {
-                                    if {![tcl::dict::get $opts -filter_reset]} {
-                                        set codestate $codestate_empty
-                                        set metastate $metastate_empty
-                                        set did_reset 1
-                                    }
-                                }
-                                1 {
-                                    #bold
-                                    if {[llength $paramsplit] == 1} {
-                                        tcl::dict::set codestate intensity $p
-                                    } else {
-                                        if {[lindex $paramsplit 1] eq "2"} {
-                                            tcl::dict::set codestate shadowed "1:2" ;#turn off also with 22
-                                        }
-                                    }
-                                }
-                                2 {
-                                    #dim
-                                    tcl::dict::set codestate intensity 2
-                                }
-                                3 {
-                                    tcl::dict::set codestate italic 3
-                                }
-                                4 {
-                                    #REVIEW - merging extended (e.g 4:4) underline attributes suppresses all other SGR attributes on at least some terminals which don't support extended underlines
-                                    #e.g hyper on windows
-                                    if {[llength $paramsplit] == 1} {
-                                        tcl::dict::set codestate underline  4
-                                        if {[tcl::dict::get $codestate underextended] eq "4:0"} {
-                                            tcl::dict::set codestate underextended ""
-                                        }
-                                        tcl::dict::set metastate underline_active 1
-                                    } else {
-                                        switch -- [lindex $paramsplit 1] {
-                                            0 {
-                                                #no *extended* underline
-                                                #tcl::dict::set codestate underline 24
-                                                tcl::dict::set codestate underextended 4:0  ;#will not turn off SGR standard underline if term doesn't support extended
-                                                tcl::dict::set metastate underline_active 0
-                                            }
-                                            1 {
-                                                #single
-                                                tcl::dict::set codestate underextended 4:1
-                                                tcl::dict::set metastate underline_active 1
-                                            }
-                                            2 {
-                                                #double
-                                                tcl::dict::set codestate underextended 4:2
-                                                tcl::dict::set metastate underline_active 1
-                                            }
-                                            3 {
-                                                #curly
-                                                tcl::dict::set codestate underextended "4:3"
-                                                tcl::dict::set metastate underline_active 1
-                                            }
-                                            4 {
-                                                #dotted
-                                                tcl::dict::set codestate underextended "4:4"
-                                                tcl::dict::set metastate underline_active 1
-                                            }
-                                            5 {
-                                                #dashed
-                                                tcl::dict::set codestate underextended "4:5"
-                                                tcl::dict::set metastate underline_active 1
-                                            }
-                                        }
-
-                                    }
-                                }
-                                5 - 6 {
-                                    tcl::dict::set codestate blink $p
-                                }
-                                7 {
-                                    tcl::dict::set codestate reverse 7
-                                }
-                                8 {
-                                    tcl::dict::set codestate hide 8
-                                }
-                                9 {
-                                    tcl::dict::set codestate strike 9
-                                }
-                                10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 {
-                                    tcl::dict::set codestate font $p
-                                }
-                                20 {
-                                    tcl::dict::set codestate gothic 20
-                                }
-                                21 {
-                                    #ECMA-48 double underline - some terminals use as not-bold. For now we won't support that.
-                                    tcl::dict::set codestate doubleunderline 21
-                                }
-                                22 {
-                                    #normal intensity
-                                    tcl::dict::set codestate intensity 22
-                                    tcl::dict::set codestate shadowed ""
-                                }
-                                23 {
-                                    #? wikipedia mentions blackletter - review
-                                    tcl::dict::set codestate italic 23
-                                }
-                                24 {
-                                    tcl::dict::set codestate underline 24 ;#off
-                                    tcl::dict::set codestate underextended "4:0"  ;#review
-                                    tcl::dict::set metastate underline_active 0
-                                }
-                                25 {
-                                    tcl::dict::set codestate blink 25 ;#off
-                                }
-                                26 {
-                                    #not known to be used in terminals.. could it be used with elastic tabstops? - review
-                                    tcl::dict::set codestate proportional 26
-                                }
-                                27 {
-                                    tcl::dict::set codestate reverse 27 ;#off
-                                }
-                                28 {
-                                    tcl::dict::set codestate hide 28 ;#reveal
-                                }
-                                29 {
-                                    tcl::dict::set codestate strike 29;#off
-                                }
-                                30 - 31 - 32 - 33 - 34 - 35 - 36 - 37 {
-                                    tcl::dict::set codestate fg $p  ;#foreground colour
-                                }
-                                38 {
-                                    #256 colour or rgb
-                                    #check if subparams supplied as colon separated
-                                    if {[tcl::string::first : $p] < 0} {
-                                        switch -- [lindex $plist $i+1] {
-                                            5 {
-                                                #256 - 1 more param
-                                                tcl::dict::set codestate fg "38\;5\;[lindex $plist $i+2]"
-                                                incr i 2
-                                            }
-                                            2 {
-                                                #rgb
-                                                tcl::dict::set codestate fg "38\;2\;[lindex $plist $i+2]\;[lindex $plist $i+3]\;[lindex $plist $i+4]"
-                                                incr i 4
-                                            }
-                                        }
-                                    } else {
-                                        #apparently subparameters can be left empty - and there are other subparams like transparency and colour-space
-                                        #we should only need to  pass it all through for the terminal to understand
-                                        #review
-                                        tcl::dict::set codestate fg $p
-                                    }
-                                }
-                                39 {
-                                    tcl::dict::set codestate fg 39 ;#default foreground
-                                }
-                                40 - 41 - 42 - 43 - 44 - 45 - 46 - 47 {
-                                    tcl::dict::set codestate bg $p ;#background colour
-                                }
-                                48 {
-                                    #256 colour or rgb
-                                    if {[tcl::string::first : $p] < 0} {
-                                        switch -- [lindex $plist $i+1] {
-                                            5 {
-                                                #256 - 1 more param
-                                                tcl::dict::set codestate bg "48\;5\;[lindex $plist $i+2]"
-                                                incr i 2
-                                            }
-                                            2 {
-                                                #rgb
-                                                tcl::dict::set codestate bg "48\;2\;[lindex $plist $i+2]\;[lindex $plist $i+3]\;[lindex $plist $i+4]"
-                                                incr i 4
-                                            }
-                                        }
-                                    } else {
-                                        tcl::dict::set codestate bg $p
-                                    }
-                                }
-                                49 {
-                                    tcl::dict::set codestate bg 49 ;#default background
-                                }
-                                50 {
-                                    tcl::dict::set codestate proportional 50 ;#off - see 26
-                                }
-                                51 - 52 {
-                                    tcl::dict::set codestate frame_or_circle 51
-                                }
-                                53 {
-                                    tcl::dict::set codestate overline 53  ;#not supported in terminals? pass through anyway
-                                }
-                                54 {
-                                    tcl::dict::set codestate frame_or_circle 54 ;#off
-                                }
-                                55 {
-                                    tcl::dict::set codestate overline 55; #off
-                                }
-                                58 {
-                                    #nonstandard
-                                    # 256 colour or rgb
-                                    if {[tcl::string::first : $p] < 0} {
-                                        switch -- [lindex $plist $i+1] {
-                                            5 {
-                                                # 256 - 1 more param
-                                                tcl::dict::set codestate underlinecolour "58\;5\;[lindex $plist $i+2]"
-                                                incr i 2
-                                            }
-                                            2 {
-                                                #rgb
-                                                tcl::dict::set codestate underlinecolour "58\;2\;[lindex $plist $i+2]\;[lindex $plist $i+3]\;[lindex $plist $i+4]"
-                                                incr i 4
-                                            }
-                                        }
-                                    } else {
-                                        tcl::dict::set codestate underlinecolour $p
-                                    }
-                                }
-                                59 {
-                                    #nonstandard - default underlinecolour
-                                    tcl::dict::set codestate underlinecolour 59
-                                }
-                                60 {
-                                    tcl::dict::set codestate ideogram_underline 60
-                                    tcl::dict::set codestate ideogram_clear ""
-                                    #nounderline effect?  review!
-                                }
-                                61 {
-                                    tcl::dict::set codestate ideogram_doubleunderline 61
-                                    tcl::dict::set codestate ideogram_clear ""
-                                    #nounderline effect?  review!
-                                }
-                                62 {
-                                    tcl::dict::set codestate ideogram_overline 62
-                                    tcl::dict::set codestate ideogram_clear ""
-                                }
-                                63 {
-                                    tcl::dict::set codestate ideogram_doubleoverline 63
-                                    tcl::dict::set codestate ideogram_clear ""
-                                }
-                                64 {
-                                    tcl::dict::set codestate ideogram_stress 64
-                                    tcl::dict::set codestate ideogram_clear ""
-                                }
-                                65 {
-                                    tcl::dict::set codestate ideogram_clear 65
-                                    #review - we still need to pass through the ideogram_clear in case something understands it
-                                    tcl::dict::set codestate ideogram_underline ""
-                                    tcl::dict::set codestate ideogram_doubleunderline ""
-
-                                    tcl::dict::set codestate ideogram_overline ""
-                                    tcl::dict::set codestate ideogram_doubleoverline ""
-                                }
-                                73 {
-                                    #mintty only?
-                                    #can be combined with subscript
-                                    tcl::dict::set codestate superscript 73
-                                    tcl::dict::set codestate nosupersub ""
-                                }
-                                74 {
-                                    tcl::dict::set codestate subscript 74
-                                    tcl::dict::set codestate nosupersub ""
-                                }
-                                75 {
-                                    tcl::dict::set codestate nosupersub 75
-                                    tcl::dict::set codestate superscript ""
-                                    tcl::dict::set codestate subcript ""
-                                }
-                                90 - 91 - 92 - 93 - 94 - 95 - 96 - 97 {
-                                    tcl::dict::set codestate fg $p
-                                }
-                                100 - 101 - 102 - 103 - 104 - 105 - 106 - 107 {
-                                    tcl::dict::set codestate bg $p
-                                }
-
-                            }
-                        }
-                    }
-                    default {
-                        lappend othercodes $c
-                    }
-                }
-
-            }
-
-            set codemerge ""
-            set unmergeable "" ;# can merge with each other but not main set (for terminals not supporting extended codes)
-            if {[tcl::dict::get $opts -filter_fg] || [tcl::dict::get $opts -filter_bg]} {
-                #safe jumptable test
-                #dict for {k v} $codestate {}
-                tcl::dict::for {k v} $codestate {
-                    switch -- $v {
-                        "" {
-                        }
-                        default {
-                            switch -- $k {
-                                bg {
-                                    if {![tcl::dict::get $opts -filter_bg]} {
-                                        append codemerge "${v}\;"
-                                    }
-                                }
-                                fg {
-                                    if {![tcl::dict::get $opts -filter_fg]} {
-                                        append codemerge "${v}\;"
-                                    }
-                                }
-                                underlinecolour - underextended {
-                                    #review
-                                    append unmergeable "${v}\;"
-                                }
-                                default {
-                                    append codemerge "${v}\;"
-                                }
-                            }
-                        }
-                    }
-                }
-            } else {
-                #safe jumptable test
-                #dict for {k v} $codestate {}
-                tcl::dict::for {k v} $codestate {
-                    switch -- $v {
-                        "" {}
-                        default {
-                            switch -- $k {
-                                underlinecolour {
-                                    append unmergeable "${v}\;"
-                                }
-                                underextended {
-                                    #review
-                                    append unmergeable "${v}\;"
-                                }
-                                default {
-                                    append codemerge "${v}\;"
-                                }
-                            }
-                        }
-                    }
-                }
-            }
-            if {$did_reset} {
-                #review - unmergeable
-                set codemerge "0\;$codemerge"
-                if {$codemerge eq ""} {
-                    set unmergeable "0\;$unmergeable"
-                }
-            }
-            #puts "+==> codelist:[ansistring VIEW $codelist] did_reset:$did_reset codemerge:[ansistring VIEW $codemerge] unmergeable:[ansistring VIEW $unmergeable]"
-            if {$codemerge ne ""} {
-                set codemerge [tcl::string::trimright $codemerge {;}]
-                if {$unmergeable ne ""} {
-                    set unmergeable [tcl::string::trimright $unmergeable {;}]
-                    set mergeresult "\x1b\[${codemerge}m\x1b\[${unmergeable}m[join $othercodes ""]"
-                } else {
-                    set mergeresult "\x1b\[${codemerge}m[join $othercodes ""]"
-                }
-            } else {
-                if {$unmergeable eq ""} {
-                    #there were no SGR codes - not even resets
-                    set mergeresult [join $othercodes ""]
-                } else {
-                    set unmergeable [tcl::string::trimright $unmergeable {;}]
-                    set mergeresult "\x1b\[${unmergeable}m[join $othercodes ""]"
-                }
-            }
-            if {[tcl::dict::get $opts -info]} {
-                return [dict create sgr $codemerge unmergeable $unmergeable othercodes $othercodes mergeresult $mergeresult codestate $codestate]
-            } else {
-                return $mergeresult
-            }
-        }
-
-        #has_sgr_reset  - rather than support this function - create an sgr normalize function that removes dead params and brings reset to front of param list?
-
-        #*** !doctools
-        #[list_end] [comment {--- end definitions namespace punk::ansi::codetype ---}]
-    }
-    tcl::namespace::eval sequence_type {
-        #first byte after ESC identifies code type
-        #NOTE - we are looking for valid start of a single sequence here
-        #- not whether it is complete or where it ends, unless it's a fixed number of bytes
-
-        #\u0020-\u002F
-        # ESC <sp>!"#$%&'()*+,-./
-
-        #\u0030-\u003F
-        #ESC 0-9:;<=>?
-
-        #\u0040-\u005F
-        # ESC  @A-Z[\]^
-
-        #\u0060-\u007E
-
-        proc is_Fe7 {code} {
-            # C1 control codes
-            #7bit - typical case
-            # ESC  @A-Z[\]^
-            return [regexp {^\033[\u0040-\u005F]} $code] 
-        }
-        proc is_Fe {code} {
-            #although Fe7 more common - we'll put the simpler regex for 8 first
-            return [expr {[is_Fe8 $code] || [is_Fe7 $code]}]
-        }
-        proc is_Fe8 {code} {
-            #8bit
-            #review - all C1 escapes ? 0x80-0x9F
-            #This is possibly problematic as it is affected by encoding.
-            #According to https://en.wikipedia.org/wiki/ANSI_escape_code#8-bit
-            #"However, in character encodings used on modern devices such as UTF-8 or CP-1252, those codes are often used for other purposes, so only the 2-byte sequence is typically used."
-            return [regexp {^[\u0080-\u09F]} $code]
-        }
-        #ESC 0-9,:,;,<,=,>,?
-        proc is_Fp {code} {
-            #single byte following ESC
-            return [regexp {^\033[\u0030-\u003F]$} $code] 
-        }
-
-        #https://en.wikipedia.org/wiki/ISO/IEC_2022
-        #e.g
-        # ESC a (INT) interrupts the current process
-        # ESC c (RIS) reset terminal to initial state
-        #ESC `a-z{|}~
-        proc is_Fs {code} {
-            #single byte following ESC
-            return [regexp {^\033[\u0060-\u007E]$} $code] 
-        }
-
-
-        proc is_nF {code} {
-            #2 bytes
-            #subcategorised by the low two bits of the first byte (n)
-            #further by whether the final byte is in \u0030-u003f (p) or not (t)
-            return [regexp {^\033[\u0020-\u002F]+[\u0030-\u007E]$} $code]
-        }
-
-        #review - test
-        #3Fp - private use 
-        #e.g vt100
-        # ESC#3 DECDHL double-height letters top half
-        # ESC#4 DECDHL double-height letters bottom half
-        # ESC#5 DECSWL single-width line
-        # ESC#6 DECDWL double-width line
-        proc is_3Fp {code} {
-            return [regexp {^\033#[\u0020-\u002F]*[\u0030-\u003F]$} $code] ;#check regexp
-        }
-
-        proc is_code7 {code} {
-            #Fe | Fs | Fp | nF | Fe
-            return [regexp {^\033[\u0040-\u005F]|^\033[\u0060-\u007e]$|^\033[\u0030-\u003F]$|^\033[\u0020-\u002F]+[\u0030-\u007E]$} $code]
-        }
-        proc is_code8 {code} {
-            return [regexp {^[\u0080-\u09F]} $code]
-        }
-        proc is_code {code} {
-            return [expr {[is_code8 $code] || [is_code7 $code]}]
-        }
-
-        proc classify {code} {
-            return [switch -regexp -- $code {
-                {^\033[\u0030-\u003F]$}                  {string cat Fp}
-                {^[\u0080-\u009F]|^\033[\u0040-\u005F]}  {string cat Fe}
-                {^\033[\u0060-\u007E]$}                  {string cat Fs}
-                {^\033[\u0020-\u002F]+[\u0030-\u007E]$} {
-                    #nF sequences
-                    set firstbytenum [scan [string index $code 1] %c]
-                    set lastbyte [string index $code end]
-
-                    set n [expr {$firstbytenum & 3}]
-                    if {[regexp {[\u0030-\u003F]} $lastbyte]} {
-                        set tp p
-                    } else {
-                        set tp t
-                    }
-                    string cat ${n}F$tp
-                }
-                {^\033#[\u0020-\u002F]*[\u0030-\u003F]$} {string cat 3Fp}
-                default                                  {string cat unknown}
-            }]
-        }
-    }
-    # -- --- --- --- --- --- --- --- --- --- ---
-    #todo - implement colour resets like the perl module:
-    #https://metacpan.org/pod/Text::ANSI::Util
-    #(saves up all ansi colour codes since previous colour reset and replays the saved codes after our highlighting is done)
-}
-
-
-tcl::namespace::eval punk::ansi::ta {
-    #*** !doctools
-    #[subsection {Namespace punk::ansi::ta}]
-    #[para] text ansi functions
-    #[para] based on but not identical to the Perl Text Ansi module:
-    #[para] https://github.com/perlancar/perl-Text-ANSI-Util/blob/master/lib/Text/ANSI/BaseUtil.pm
-    #[list_begin definitions]
-    tcl::namespace::path ::punk::ansi
-    namespace export detect detect_in_list detect_sgr extract length split_codes split_at_codes split_codes_single
-
-    variable PUNKARGS
-
-    #handle both 7-bit and 8-bit csi
-    #review - does codepage affect this? e.g ebcdic has 8bit csi in different position
-
-    #CSI
-    #variable re_csi_open {(?:\033\[|\u009b)[0-9;]+} ;#too specific - doesn't detect \033\[m
-    variable re_csi_open {(?:\x1b\[|\u009b)}
-    #variable re_csi_code  {(?:\033\[|\u009b)[0-9;]*[a-zA-Z\\@\^_\{|\}\[\]~`]}
-    variable re_csi_code  {(?:\x1b\[|\u009b)[\x20-\x2f\x30-\x3f]*[\x40-\x7e]}
-
-    #intermediate bytes range 0x20-0x2F (ascii space and !"#$%&'()*+,-./)
-    #parameter bytes range 0x30-0x3F (ascii 0-9:;<=>?)
-    #single "final byte" in the range 0x40–0x7E (ASCII @A–Z[\]^_`a–z{|}~).
-
-    #colour and style
-    variable re_sgr {(?:\033\[|\u009b)[0-9;]*m} ;#e.g \033\[31m  \033\[m  \033\[0m \033\[m0000m
-
-    #OSC - termnate with BEL (\a \007) or ST (string terminator \x1b\\)
-    # 8-byte string terminator is \x9c (\u009c)
-
-    #non-greedy by excluding ST terminators
-    variable re_esc_osc1 {(?:\x1b\])(?:[^\007]*)\007}
-    #variable re_esc_osc2 {(?:\033\])(?:[^\033]*)\033\\} ;#somewhat wrong - we want to exclude the ST - not other esc sequences
-    variable re_esc_osc2 {(?:\x1b\])(?:(?!\x1b\\).)*\x1b\\}
-    variable re_esc_osc3 {(?:\u009d)(?:[^\u009c]*)?\u009c}
-    variable re_osc_open {(?:\x1b\]|\u009d).*}
-
-
-    #review - distinguishing standalone codes vs those that are paired with contents considered part of the code
-    #e.g PM,SOS are 'paired' ended by ST
-
-    #variable standalone_code_map [list \x1bc "" \x1b7 "" \x1b8 "" \x1bM "" \x1bE "" \x1bD "" \x1bH "" \x1b= "" \x1b> "" \x1b#3 "" \x1b#4 "" \x1b#5 "" \x1b#6 "" \x1b#8 ""]
-    variable re_standalones {(?:\x1bc|\x1b7|\x1b8|\x1bM|\x1bD|\x1bE|\x1bH|\x1b=|\x1b>|\x1b#3|\x1b#4|\x1b#5|\x1b#6|\x1b#8)}
-    variable re_standalones_vt52 {(?:\x1bZ)}
-
-    # -- 
-    #ESC Y move                 - \x1bY<byte><byte> ie 2 bytes to close
-    #ESC b foreground colour    - \x1bb<byte>  1 byte to close
-    variable re_vt52_incomplete {(?:\x1bY(.){0,1}$|\x1bb$)}
-    #\x1bc vt52 bgcolour conflict ?
-    #ESC F - gr-on ESC G - gr-off
-    # --
-
-    #if we don't split on altgraphics too and separate them out - it's easy to get into a horrible mess
-    variable re_g0_group {(?:\x1b\(0)(?:(?!\x1b\(B).)*\x1b\(B}
-    variable re_g0_open  {(?:\x1b\(0)}
-    variable re_g0_close {(?:\x1b\(B)}
-
-    #detect start of ansicode that is closed by ST
-    # DCS "ESC P" or "0x90" is also terminated by ST
-    set re_ST_open {(?:\033P|\u0090|\033X|\u0098|\033\^|\u009e|\033_|\u009f)}
-    #ST terminators [list \007 \033\\ \u009c]
-
-    #regex to capture the start of string/privacy message/application command block including the contents and string terminator (ST)
-    #non-greedy by exclusion of ST terminators in body
-    #we need to match \x1b\\ not just \x1b  There could be colour codes nested in a privacy msg/string (not widely supported?)
-    #even if terminals generally don't support that - it's quite possible for an ansi code to get nested this way - and we'd prefer it not to break our splits
-    #Just checking for \x1b will terminate the match too early
-    #we also need to track the start of ST terminated code and not add it for replay (in the ansistring functions)
-    #variable re_ST  {(?:\x1bX|\u0098|\x1b\^|\u009E|\x1b_|\u009F)(?:[^\x1b\007\u009c]*)(?:\x1b\\|\007|\u009c)} ;#downsides: early terminating with nests, mixes 7bit 8bit start/ends (does that exist in the wild?)
-    #keep our 8bit/7bit start-end codes separate
-    variable re_ST      {(?:\x1bP|\x1bX|\x1b\^|\x1b_)(?:(?!\x1b\\|\007).)*(?:\x1b\\|\007)|(?:\u0090|\u0098|\u009E|\u009F)(?:(?!\u009c).)*(?:\u009c)}
-
-
-    #variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_standalones}|${re_standalones_vt52}|${re_ST_open}|${re_g0_open}|${re_vt52_open}"
-    #variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_ST_open}|${re_g0_open}|${re_vt52_open}"
-    variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_ST_open}|${re_vt52_incomplete}"
-
-    #consider standalones as self-opening/self-closing - therefore included in both ansi_detect and ansi_detect_open
-
-    #default for regexes is non-newline-sensitive matching - ie matches can span lines
-    # -- --- --- ---
-    #variable re_ansi_detect1 "${re_csi_code}|${re_esc_osc1}|${re_esc_osc2}|${re_esc_osc3}|${re_standalones}|${re_ST}|${re_g0_open}|${re_g0_close}"
-    # -- --- --- ---
-    #handrafted TRIE version of above. Somewhat difficult to construct and maintain. TODO - find a regexp TRIE generator that works with Tcl regexes
-    #This does make things quicker - but it's too early to finalise the detect/split regexes (e.g missing \U0090 ) - will need to be redone.
-    #variable re_ansi_detect {(?:\x1b(?:\((?:0|B)|\[(?:[\x20-\x2f\x30-\x3f]*[\x40-\x7e])|\](?:(?:[^\007]*)\007|(?:(?!\x1b\\).)*\x1b\\)|(?:P|X|\^|_)(?:(?:(?!\x1b\\|\007).)*(?:\x1b\\|\007))|c|7|8|M|E|D|H|=|>|(?:#(?:3|4|5|6|8))))|(?:\u0090|\u0098|\u009E|\u009F)(?:(?!\u009c).)*(?:\u009c)|(?:\u009b)[\x20-\x2f\x30-\x3f]*[\x40-\x7e]|(?:\u009d)(?:[^\u009c]*)?\u009c}
-
-    #NOTE - the literal # char can cause problems in expanded syntax - even though it's within a bracketed section. \# seems to work though.
-    #vt52 specific |<|A|B|C|I|J|K|L|M|Z|(?:Y(?:..))|(?:b(?:.)|
-    #https://freemint.github.io/tos.hyp/en/VT_52_terminal.html
-    #what to with ESC c vs vt52 ESC c <c> (background colour) ???
-    #we probably need to use a separate re_ansi_detect for vt52
-
-    #although it's stated later terminals are backwards compatible with vt52 - that doesn't seem to mean for example a vt100 will process vt52 codes at the same time as ansi codes
-    #ie - when DECANM is on - VT52 codes are *not* processed
-
-    #todo - ansi mode and cursor key mode set ?
-    #  arrow keys -> ESC O A, ESC O B, ESC O C, ESC O D
-    # plus more for auxiliary keypad codes in keypad application mode (and some in numeric mode)
-
-    #regexp expanded syntax = ?x
-    #full detect - checking for closing sequences
-    variable re_ansi_detect {(?x)
-            (?:\x1b(?:\[(?:[\x20-\x3f]*[\x40-\x7e])|a|c|7|8|M|D|E|H|=|>|<|A|B|C|I|J|K|L|M|Z|(?:Y(?:..))|(?:b(?:.))|\((?:0|B)|\](?:(?:[^\007]*)\007|(?:(?!\x1b\\).)*\x1b\\)|(?:P|X|\^|_)(?:(?:(?!\x1b\\|\007).)*(?:\x1b\\|\007))|(?:\#(?:3|4|5|6|8))))
-            |(?:\u0090|\u0098|\u009E|\u009F)(?:(?!\u009c).)*(?:\u009c)
-            |(?:\u009b)[\x20-\x3f]*[\x40-\x7e]
-            |(?:\u009d)(?:[^\u009c]*)?\u009c
-    }
-    #---
-    #todo
-    #variable re_ansi_detectcode $re_ansi_detect
-    #variable re_ansi_detectcode {\x1b[\u0040-\u005F]|\x1b[\u0060-\u007e]|\x1b[\u0030-\u003F]|\x1b[\u0020-\u002F]+[\u0030-\u007E]}
-    variable re_ansi_detectcode {(?:\x1b(?:[\u0030-\u007E]|[\u0020-\u002F]+[\u0030-\u007E]))|[\u0090-\u009F]}
-
-    # -- --- --- ---
-    #variable re_csi_code  {(?:\x1b\[|\u009b)[\x20-\x2f\x30-\x3f]*[\x40-\x7e]}
-
-
-
-
-    #may be same as detect - kept in case detect needs to diverge
-    #variable re_ansi_split "${re_csi_code}|${re_esc_osc1}|${re_esc_osc2}|${re_esc_osc3}|${re_standalones}|${re_ST}|${re_g0_open}|${re_g0_close}"
-    set re_ansi_split $re_ansi_detect
-    variable re_ansi_split_multi
-    if {[string first (?x) $re_ansi_split] == 0} {
-        set re_ansi_split_multi "(?x)(?:[string range ${re_ansi_split} 4 end])+"
-    } else {
-        set re_ansi_split_multi "(?:${re_ansi_split})+"
-    }
-
-
-    #*** !doctools
-    #[call [fun detect] [arg text]]
-    #[para]Return a boolean indicating whether Ansi codes were detected in text
-    #[para]Important caveat:
-    #[para] When text is a tcl list made from splitting (or lappending) some ansi string - individual elements may be braced or have certain chars escaped. (one example is if a list element contains an unbalanced brace)
-    #[para] This can cause square brackets that form part of the ansi being backslash escaped  - and the regexp can fail to match
-
-    #detect any ansi escapes
-    #review - only detect 'complete' codes - or just use the opening escapes for performance?
-    lappend PUNKARGS [list {
-            @id     -id ::punk::ansi::ta::detect
-            @cmd    -name punk::ansi::ta::detect\
-                -summary\
-                "Test if text has completed ANSI codes"\
-                -help\
-                "Return a boolean indicating whether *complete* Ansi codes were detected in text.
-
-                By complete, it means that paired squences such as PM (privacy message) must be
-                closed. It also means that a truncated sequence such as \\x1b\\\[ or a lone escape
-                will not be detected as ANSI.
-
-                Use punk::ansi::ta::detectcode as a slightly faster detector for ANSI codes, that does
-                not require paired sequences to have both starting and end sequences to be detected.
-
-                Important caveat:
-                When text is a tcl list made from splitting (or lappending) some ansi string
-                - individual elements may be braced or have certain chars escaped.
-                (one example is if a list element contains an unbalanced  brace)
-                This can cause square brackets that form part of the ansi to be backslash escaped
-                - and the function can fail to match it as an Ansi code.
-                "
-            @values -min 1
-            text -type string -help\
-                "Block of text. See caveat above about lists."
-    } ]
-    proc detect {text} [string map [list <re> [list $re_ansi_detect]] {
-        regexp <re> $text
-    }]
-    #can be used on dicts - but will check keys too. keys could also contain ansi and have escapes
-    proc detect_in_list {list} {
-        #loop is commonly faster than using join. (certain ansi codes triggering list quoting? review)
-        foreach item $list {
-            if {[detect $item]} {
-                return 1
-            }
-        }
-        return 0
-    }
-
-    #will detect for example lone opening or closing PM
-    proc detectcode {text} [string map [list <re> [list $re_ansi_detectcode]] {
-        regexp <re> $text
-    }]
-    proc detectcode_in_list {list} {
-        #loop is commonly faster than using join. (certain ansi codes triggering list quoting? review)
-        foreach item $list {
-            if {[detectcode $item]} {
-                return 1
-            }
-        }
-        return 0
-    }
-
-
-    #surprisingly - the ::join operation can be (relatively) slow on lists containing ansi
-    proc detect_in_list2 {list} {
-        detect [join $list " "]
-    }
-
-    proc detect_g0 {text} [string map [list <re> [list $re_g0_group]] {
-        regexp <re> $text
-    }]
-    #note - micro optimisation of inlining <re> gives us *almost* nothing extra.
-    #left in place for a few such as detect/detect_g0  as we want them as fast as possible
-    # in general the technique doesn't seem particularly worthwhile for this set of functions.
-    #the performance is dominated by the complexity of the regexp
-    proc detect2 {text} {
-        variable re_ansi_detect
-        expr {[regexp $re_ansi_detect $text]}
-    }
-
-    proc detect_open {text} {
-        variable re_ansi_detect_open
-        expr {[regexp $re_ansi_detect_open $text]}
-    }
-    proc detect_st_open {text} {
-        variable re_ST_open
-        expr {[regexp $re_ST_open $text]}
-    }
-
-    #not in perl ta
-    proc detect_csi {text} {
-        #*** !doctools
-        #[call [fun detect_csi] [arg text]]
-        #[para]Return a boolean indicating whether an Ansi Control Sequence Introducer (CSI) was detected in text
-        #[para]The csi is often represented in code as \x1b or \033 followed by a left bracket [lb]
-        #[para]The initial byte or escape is commonly referenced as ESC in Ansi documentation
-        #[para]There is also a multi-byte escape sequence \u009b
-        #[para]This is less commonly used but is also detected here
-        #[para](This function is not in perl ta)
-        variable re_csi_open
-        expr {[regexp $re_csi_open $text]}
-    }
-    proc detect_sgr {text} {
-        #*** !doctools
-        #[call [fun detect_sgr] [arg text]]
-        #[para]Return a boolean indicating whether an ansi Select Graphics Rendition code was detected.
-        #[para]This is the set of CSI sequences ending in 'm'
-        #[para]This is most commonly an Ansi colour code - but also things such as underline and italics
-        #[para]An SGR with empty or a single zero argument is a reset of the SGR features - this is also detected.
-        #[para](This function is not in perl ta)
-        variable re_sgr
-        expr {[regexp $re_sgr $text]}
-    }
-
-    #perl: ta_strip
-    proc strip {text} {
-        #*** !doctools
-        #[call [fun strip] [arg text]]
-        #[para]Return text stripped of Ansi codes
-        #[para]This is a tailcall to punk::ansi::ansistrip
-        tailcall ansistrip $text
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::ansi::ta::extract
-        @cmd    -name punk::ansi::ta::extract\
-            -summary\
-            "Return only the ANSI codes in text"\
-            -help\
-            "This is the opposite of strip,
-              returning only the ANSI codes in text."
-        @values -min 1 -max 1
-        text -type string 
-    } ]
-    proc extract {text} {
-        set parts [split_codes $text]
-        set out ""
-        foreach {pt code} $parts {
-            append out $code
-        }
-        return $out
-    }
-
-    lappend PUNKARGS [list {
-            @id     -id ::punk::ansi::ta::length
-            @cmd    -name punk::ansi::ta::length\
-                -summary\
-                "Calculate length of text (excluding the ANSI codes)"\
-                -help\
-                "Calculate length of text (excluding the ANSI codes)
-                This is not the printing length of the string on screen."
-            @values -min 1
-            text -type string 
-    } ]
-    #perl: ta_length
-    proc length {text} {
-        #*** !doctools
-        #[call [fun length] [arg text]]
-        #[para]Return the character length after stripping ansi codes - not the printing length
-
-        #we can use ansistripraw to avoid g0 conversion - as the length should remain the same
-        tcl::string::length [ansistripraw $text]
-    }
-    #todo - handle newlines
-    #not in perl ta
-    #proc printing_length {text} {
-    #
-    #}
-
-    #perl: ta_trunc
-    #truncate $text to $width columns while still including all the ANSI colour codes.
-    proc trunc {text width args} {
-
-    }
-
-    #not in perl ta
-    #returns just the plaintext portions in a list
-    proc split_at_codes {str} [string map [list <re> $re_ansi_split]  {
-        #variable re_ansi_split
-        #punk::ansi::internal::splitx $str ${re_ansi_split}
-        punk::ansi::ta::Do_split_at_codes $str {<re>}
-    }]
-    #it is faster to split this function out than to inline it into split_at_codes in tcl 8.7 - something to do with the use of the variable vs argument for the regexp
-    #literal inlining of the re in the main proc-body was slower too - but inlining it into the wrapper seems to work (a tiny bit)
-    #the difference is not often apparent when comparing timerate results from split_at_codes vs split_at_codes2 -
-    # - but in aggregate for something like textblock::periodic - we can get a bit over 5% faster (e.g 136ms vs 149ms)
-    proc Do_split_at_codes {str regexp} {
-        if {$str eq ""} {
-            return {}
-        }
-        #no infinite loop check on regexp like splitx does because we should have tested re_ansi_split during development
-        set list  {}
-        set start 0
-        while {[regexp -start $start -indices -- $regexp $str match submatch]} {
-            lassign $submatch subStart subEnd
-            lassign $match matchStart matchEnd
-            incr matchStart -1
-            incr matchEnd
-            lappend list [tcl::string::range $str $start $matchStart]
-            if {$subStart >= $start} {
-                lappend list [tcl::string::range $str $subStart $subEnd]
-            }
-            set start $matchEnd
-        }
-        lappend list [tcl::string::range $str $start end]
-        return $list
-
-    }
-    proc Do_split_at_codes_join {str regexp} {
-        if {$str eq ""} {
-            return {}
-        }
-        #no infinite loop check on regexp like splitx does because we should have tested re_ansi_split during development
-        set list  {}
-        set start 0
-        while {[regexp -start $start -indices -- $regexp $str match submatch]} {
-            lassign $submatch subStart subEnd
-            lassign $match matchStart matchEnd
-            incr matchStart -1
-            incr matchEnd
-            lappend list [tcl::string::range $str $start $matchStart]
-            if {$subStart >= $start} {
-                lappend list [tcl::string::range $str $subStart $subEnd]
-            }
-            set start $matchEnd
-        }
-        lappend list [tcl::string::range $str $start end]
-        return [join $list ""]
-    }
-    proc split_at_codes2 {str} [string map [list <re> $re_ansi_split]  {
-        #variable re_ansi_split
-        #punk::ansi::internal::splitx $str ${re_ansi_split}
-
-        #set regexp $re_ansi_split
-        #set regexp {<re>}
-
-        #inline splitx to avoid regex checks
-        #from textutil::split::splitx
-        # Bugfix 476988
-        if {$str eq ""} {
-            return {}
-        }
-        #if {[regexp $regexp {}]} {
-        #    return -code error \
-        #    "splitting on regexp \"$re_ansi_split\" would cause infinite loop"
-        #}
-        #no infinite loop check on regexp like splitx does because we should have tested re_ansi_split during development
-        set list  {}
-        set start 0
-        while {[regexp -start $start -indices -- {<re>} $str match submatch]} {
-            lassign $submatch subStart subEnd
-            lassign $match matchStart matchEnd
-            incr matchStart -1
-            incr matchEnd
-            lappend list [tcl::string::range $str $start $matchStart]
-            if {$subStart >= $start} {
-                lappend list [tcl::string::range $str $subStart $subEnd]
-            }
-            set start $matchEnd
-        }
-        lappend list [tcl::string::range $str $start end]
-        return $list
-    }]
-
-    # -- --- --- --- --- ---
-    #Split $text to a list containing alternating ANSI colour codes and text.
-    #ANSI colour codes are always on the second element, fourth, and so on.
-    #(ie plaintext on even list-indices ansi on odd indices)
-    #result of split on non-empty string always has an odd length - with indices 0 and end always being plaintext (possibly empty string)
-    # Example:
-    #split_codes ""              # => ""
-    #split_codes "a"             # => "a"
-    #split_codes "a\e[31m"       # => {"a"   "\e[31m"       ""}
-    #split_codes "\e[31ma"       # => {""    "\e[31m"       "a"}
-    #split_codes "\e[31ma\e[0m"  # => {""    "\e[31m"       "a"  "\e[0m"  ""}
-    #split_codes "\e[31ma\e[0mb" # => {""    "\e[31m"       "a"  "\e[0m", "b"}
-    #split_codes "\e[31m\e[0mb"  # => {""    "\e[31m\e[0m"  "b"}
-    #
-    proc split_codes {text} {
-        variable re_ansi_split_multi
-        return [_perlish_split $re_ansi_split_multi $text]
-    }
-    #micro optimisations on split_codes to avoid function calls and make re var local tend to yield very little benefit (sub uS diff on calls that commonly take 10s/100s of uSeconds)
-
-    #like split_codes - but each ansi-escape is split out separately (with empty string of plaintext between codes so even/odd indices for plain ansi still holds)
-    #- the slightly simpler regex than split_codes means that it will be slightly faster than keeping the codes grouped.
-    proc split_codes_single {text} {
-        if {$text eq ""} {
-            return {}
-        }
-        variable re_ansi_split
-        set next 0
-        #set b -1
-        set list [list]
-        set coderanges [regexp -indices -all -inline -- $re_ansi_split $text]
-        foreach cr $coderanges {
-            lappend list [tcl::string::range $text $next [lindex $cr 0]-1] [tcl::string::range $text [lindex $cr 0] [lindex $cr 1]]
-            set next [expr {[lindex $cr 1]+1}]
-            #set next [lindex $cr 1]+1 ;#text index-expression for string range
-        }
-        lappend list [tcl::string::range $text $next end]
-        return $list
-    }
-    proc split_codes_single2 {text} {
-        variable re_ansi_split
-        return [_perlish_split $re_ansi_split $text]
-    }
-    proc get_codes_single {text} {
-        variable re_ansi_split
-        regexp -all -inline -- $re_ansi_split $text
-    }
-
-    #review - tcl greedy expressions may match multiple in one element
-    proc _perlish_split {re text} {
-        if {$text eq ""} {
-            return {}
-        }
-        set next 0
-        #set b -1
-        set list [list]
-        set coderanges [regexp -indices -all -inline -- $re $text]
-        foreach cr $coderanges {
-            lappend list [tcl::string::range $text $next [lindex $cr 0]-1] [tcl::string::range $text [lindex $cr 0] [lindex $cr 1]]
-            set next [expr {[lindex $cr 1]+1}]
-        }
-        lappend list [tcl::string::range $text $next end]
-        return $list
-    }
-    proc _perlish_split2 {re text} {
-        if {$text eq ""} {
-            return {}
-        }
-        set list [list]
-        set start 0
-
-        #We can get $matchEnd < $matchStart; we need to ensure there is an exit condition for non-greedy empty results REVIEW
-        while {[regexp -start $start -indices -- $re $text match]} {
-            lassign $match      matchStart matchEnd
-            #puts "->start $start ->match $matchStart $matchEnd"
-            if {$matchEnd < $matchStart} {
-                lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::range $text $matchStart $matchStart]
-                incr start
-            } else {
-                lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::range $text $matchStart $matchEnd]
-                set start [expr {$matchEnd+1}]
-            }
-            if {$start >= [tcl::string::length $text]} {
-                break
-            }
-        }
-        return [lappend list [tcl::string::range $text $start end]]
-    }
-    proc _perlish_split3 {re text} {
-        if {$text eq ""} {
-            return {}
-        }
-        set list [list]
-        set start 0
-
-        #We can get $matchEnd < $matchStart; we need to ensure there is an exit condition for non-greedy empty results REVIEW
-        while {[regexp -start $start -indices -- $re $text match]} {
-            lassign $match      matchStart matchEnd
-            #puts "->start $start ->match $matchStart $matchEnd"
-            if {$matchEnd < $matchStart} {
-                lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::index $text $matchStart]
-                incr start
-                if {$start >= [tcl::string::length $text]} {
-                    break
-                }
-                continue
-            }
-            lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::range $text $matchStart $matchEnd]
-            set start [expr {$matchEnd+1}]
-            #?
-            if {$start >= [tcl::string::length $text]} {
-                break
-            }
-        }
-        return [lappend list [tcl::string::range $text $start end]]
-    }
-
-    #experiment for coroutine generator
-    proc _perlish_split_yield {re text} {
-        if {[tcl::string::length $text] == 0} {
-            yield {}
-        }
-        set list [list]
-        set start 0
-
-        #We can get $matchEnd < $matchStart; we need to ensure there is an exit condition for non-greedy empty results REVIEW
-        while {[regexp -start $start -indices -- $re $text match]} {
-            lassign $match      matchStart matchEnd
-            #puts "->start $start ->match $matchStart $matchEnd"
-            if {$matchEnd < $matchStart} {
-                yield [tcl::string::range $text $start $matchStart-1]
-                yield [tcl::string::index $text $matchStart]
-                incr start
-                if {$start >= [tcl::string::length $text]} {
-                    break
-                }
-                continue
-            }
-            yield [tcl::string::range $text $start $matchStart-1]
-            yield [tcl::string::range $text $matchStart $matchEnd]
-            set start [expr {$matchEnd+1}]
-            #?
-            if {$start >= [tcl::string::length $text]} {
-                break
-            }
-        }
-        #return [lappend list [tcl::string::range $text $start end]]
-        yield [tcl::string::range $text $start end]
-    }
-    proc _ws_split {text} {
-        regexp -all -inline {(?:\S+)|(?:\s+)} $text
-    }
-    # -- --- --- --- --- ---
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::ansi::ta ---}]
-}
-# -- --- --- --- --- --- --- --- --- --- ---
-tcl::namespace::eval punk::ansi::class {
-    #assertions specifically for punk::ansi::class namespace
-    if {![llength [tcl::info::commands ::punk::ansi::class::assert]]} {
-        tcl::namespace::import ::punk::assertion::assert
-        punk::assertion::active 1
-    }
-
-    tcl::namespace::eval renderer {
-        if {[llength [tcl::info::commands ::punk::ansi::class::renderer::base_renderer]]} {
-            #Can happen if package forget was used and we're reloading (a possibly different version) ?  review
-            ::punk::ansi::class::renderer::base_renderer destroy ;#will automatically destroy other classes such as class_cp437 that use this as a superclass
-        }
-        oo::class create base_renderer {
-            variable o_width
-            variable o_autowrap_mode
-            variable o_overflow o_appendlines o_looplimit
-
-            variable o_cursor_column o_cursor_row
-            #variable o_render_index ;#index of input (from_ansistring) grapheme/ansi-code that *has* been rendered
-            variable o_rendereditems
-
-            variable o_from_ansistring o_to_ansistring
-            variable o_ns_from o_ns_to  ;#some dirty encapsulation violation as a 'friend' of ansistring objects - direct record of namespaces as they are frequently accessed
-            constructor {args} {
-                #-- make assert available --
-                # By pointing it to the assert imported into ::punk::ansi::class
-                # (we could alternatively import assert *directly* from ::punk::assertion::assert - but we can't chain imports as setting active flag renames the command, breaking chained imports)
-                set nspath [tcl::namespace::path]
-                if {"::punk::ansi::class" ni $nspath} {
-                    lappend nspath ::punk::ansi::class
-                }
-                tcl::namespace::path $nspath
-                #--                      --
-                if {[llength $args] < 1} {
-		            error {usage: ?-width <int>? ?-height <height>? ?-autowrap_mode [1|0]? ?-overflow [1|0]? from_ansistring}
-	            }
-                #lassign [lrange $args end-1 end] from_ansistring to_ansistring
-                set from_ansistring [lindex $args end]
-
-                set opts [tcl::dict::create\
-                    -width                  \uFFEF\
-                    -height                 \uFFEF\
-                    -overflow               0\
-                    -appendlines            1\
-                    -looplimit              15000\
-                    -experimental           {}\
-                    -cursor_column          1\
-                    -cursor_row             1\
-                    -insert_mode            0\
-                    -autowrap_mode          1\
-                    -initial_ansistring     ""\
-                ]
-                set argsflags [lrange $args 0 end-2]
-                foreach {k v} $argsflags {
-                    switch -- $k {
-                        -width - -height -
-                        -overflow - -appendlines - -looplimit - -experimental -
-                        -autowrap_mode -
-                        -insert_mode -
-                        -initial_ansistring {
-                            tcl::dict::set opts $k $v
-                        }
-                        default {
-                            #don't use [self class] - or we'll get the superclass
-                            error "[info object class [self]] unknown option '$k'. Known options: [tcl::dict::keys $opts]"
-                        }
-                    }
-                }
-                set initial_ansistring [tcl::dict::get $opts -initial_ansistring]
-                if {$initial_ansistring eq ""} {
-                    set to_ansistring [punk::ansi::class::class_ansistring new ""]
-                } else {
-                    #todo - verify obj vs raw string
-                    set to_ansistring $initial_ansistring
-                }
-                puts "[info object class [self]] renderer [self] constructor from ansistring $from_ansistring to ansistring $to_ansistring"
-
-                set o_width         [tcl::dict::get $opts -width]
-                set o_height        [tcl::dict::get $opts -height]
-                set o_autowrap_mode [tcl::dict::get $opts -autowrap_mode]
-                set o_insert_mode   [tcl::dict::get $opts -insert_mode]
-                set o_overflow      [tcl::dict::get $opts -overflow]
-                set o_appendlines   [tcl::dict::get $opts -appendlines]
-                set o_looplimit     [tcl::dict::get $opts -looplimit]
-                set o_cursor_column [tcl::dict::get $opts -cursor_column]
-                set o_cursor_row    [tcl::dict::get $opts -cursor_row]
-
-                set o_from_ansistring $from_ansistring
-                set o_ns_from   [info object namespace $o_from_ansistring]
-                set o_to_ansistring $to_ansistring
-                set o_ns_to     [info object namespace $o_to_ansistring]
-                #set o_render_index -1  ;#zero based. -1 indicates nothing yet rendered.
-                set o_rendereditems [list] ;#graphemes + controls + individual ansi codes from input $o_from_ansistring
-            }
-            #temporary test method
-            method eval_in {script} {
-                eval $script
-            }
-            method renderbuf {} {
-                return $o_to_ansistring
-            }
-            method cursor_column {{col ""}} {
-                if {$col eq ""} {
-                    return $o_cursor_column
-                }
-                if {$col < 1} {
-                    error "Minimum cursor_column is 1"
-                }
-                set o_cursor_column $col
-            }
-            method cursor_row {{row ""}} {
-                if {$row eq ""} {
-                    return $o_cursor_row
-                }
-                if {$row < 1} {
-                    error "Minimum cursor_row is 1"
-                }
-                set o_cursor_row $row
-            }
-
-            #set/query cursor state
-            method cursor_state {args} {
-                lassign $args r c
-                return [dict create row [my cursor_row $r] column [my cursor_column $c]]
-            }
-
-            #consider scroll area
-            #we  need to render to something with a concept of viewport, offscreen above,below,left,right?
-            method rendernext {} {
-                upvar ${o_ns_from}::o_ansisplits from_ansisplits
-                upvar ${o_ns_from}::o_elements from_elements
-                upvar ${o_ns_from}::o_splitindex from_splitindex
-
-                #if {![llength $from_ansisplits]} {$o_from_ansistring eval_in {my MakeSplit}} ;#!!todo - a better way to keep this method semi hidden but call from a 'friend'
-                if {![llength $from_ansisplits]} {
-                    tcl::namespace::eval $o_ns_from {my MakeSplit}
-                }
-
-                set eidx [llength $o_rendereditems]
-
-                #compare what we've rendered so far to our source to confirm they're still in sync
-                if {[lrange $o_rendereditems 0 $eidx-1] ne [lrange $from_elements 0 $eidx-1]} {
-                    puts stdout "rendereditems 0->[expr {$eidx-1}]: [ansistring VIEW [lrange $o_rendereditems 0 $eidx-1]]"
-                    puts stdout "from_elements 0->[expr {$eidx-1}]: [ansistring VIEW [lrange $from_elements 0 $eidx-1]]"
-                    error "rendernext error - rendering state is out of sync. rendereditems list not-equal to corresponding part of ansistring $o_from_ansistring"
-                }
-                if {$eidx == [llength $from_elements]} {
-                    #nothing new available
-                    return [tcl::dict::create type "" rendercount 0 start_count_unrendered 0 end_count_unrendered 0]
-                }
-
-                set start_elements_unrendered [expr {[llength $from_elements] - [llength $o_rendereditems]}]
-                #we need to render in pt code chunks - not each grapheme element individually
-                #translate from element index to ansisplits index
-                set process_splitindex [lindex $from_splitindex $eidx] ;#which from_ansisplits index the first unrendered element belongs to
-
-                set elementinfo [lindex $from_elements $eidx]
-                lassign $elementinfo type_rendered item
-                #we don't expect type to change should be all graphemes (type 'g') or a single code (type 'sgr','other' etc)
-                #review - we may want to store more info for graphemes e.g g0 g1 g2 for zero-wide 1-wide 2-wide ?
-                #if so - we should report a list of the grapheme types that were rendered in a pt block
-                #as a counterpoint however - we don't currently retrieve grapheme width during split (performance impact at wrong time?) - and width may depend on the rendering method anyway
-                #e.g c0 controls are normally zero printing width - but are (often) 1-wide glyphs in a cp437 rendering operation.
-
-                #we want to render all the elements in this splitindex - for pt this may be multiple, for code it will be a single element(?)
-
-                set newtext ""
-                set rendercount 0
-                if {$type_rendered eq "g"} {
-
-                    set e_splitindex $process_splitindex
-                    while {$e_splitindex == $process_splitindex && $eidx < [llength $from_elements]} {
-                        append newtext $item
-                        lappend o_rendereditems $elementinfo
-                        incr rendercount
-
-                        incr eidx
-                        set e_splitindex [lindex $from_splitindex $eidx]
-                        set elementinfo [lindex $from_elements $eidx]
-                        lassign $elementinfo _type item
-                    }
-                } else {
-                    #while not g ? render however many ansi sequences are in a row?
-                    set newtext $item
-                    lappend o_rendereditems $elementinfo
-                    incr rendercount
-                }
-
-                set end_elements_unrendered [expr {[llength $from_elements] - [llength $o_rendereditems]}]
-                set count_rendered [expr {$start_elements_unrendered - $end_elements_unrendered}]
-                assert {$rendercount == $count_rendered}
-
-                #todo - renderline equivalent that operates on already split data
-
-                #we start with one inputchunk, but we get appends/inserts if the whole chunk isn't for a single line of output
-                set inputchunks [list $newtext]
-                if 0 {
-                while {[llength $inputchunks]} {
-                    set overtext [lpop inputchunks 0]
-                    if {![tcl::string::length $overtext]} {
-                        continue
-                    }
-                    #set rinfo [overtype::renderline -info 1 -insert_mode 0 -autowrap_mode 1 -width $o_width -overflow 0 -cursor_column $col -cursor_row $row $undertext $overtext]
-                }
-                }
-                #renderspace equivalent? channel based?
-                #todo
-                $o_to_ansistring append $newtext
-
-                return [tcl::dict::create type $type_rendered rendercount $rendercount start_count_unrendered $start_elements_unrendered end_count_unrendered $end_elements_unrendered]
-            }
-
-        }
-        #name all with prefix class_ for rendertype detection
-        oo::class create class_cp437 {
-            superclass base_renderer
-        }
-        oo::class create class_editbuf {
-            superclass base_renderer
-        }
-    }
-
-    if {[llength [tcl::info::commands ::punk::ansi::class::class_ansistring]]} {
-        ::punk::ansi::class::class_ansistring destroy
-    }
-    #As this is intended for column-based terminals - it has a different notion of string length, string index etc than for a plain string.
-    #oo names beginning with uppercase are private - so we can't use capitalisation as a hint to distinguish those which differ from Tcl semantics
-    oo::class create class_ansistring {
-        variable o_cksum_command o_string o_count
-
-        #this is the main state we keep of the split apart string
-        #we use the punk::ansi::ta::split_codes_single function which produces a list with zero, or an odd number elements always beginning and ending with plaintext
-        variable o_ptlist               ;#plaintext as list of elements from ansisplits  - will include empty elements from between adjacent ansi-codes
-        variable o_ansisplits           ;#store our plaintext/ansi-code splits so we don't keep re-running the regexp to split
-
-
-        #State regarding output renderstring (if any)
-        variable o_renderout            ;#another class_ansistring instance
-        variable o_renderer             ;# punk::ansi::class::renderer::class_<rendertype> instance
-        variable o_renderwidth
-        variable o_rendertype
-
-        # -- per element lookups --
-        # llengths should all be the same
-        # we maintain 4 lookups per entry rather than a single nested list
-        # it is estimated that separate lists will be more efficient for certain operations - but that is open to review/testing.
-        variable o_elements             ;#elements contains entry for each grapheme/control + each ansi code
-        variable o_sgrstacks            ;#list of ansi sgr codes that will be merged later. Entries deliberately repeat if no change from previous entry. Later scans look for difference between n and n-1 when deciding where to apply codes.
-        variable o_gx0states            ;#0|1 for alternate graphics gx0
-        variable o_splitindex           ;#entry for each element indicating the index of the split it belongs to.
-        # --                     --
-
-        constructor {string} {
-            set o_string $string
-
-            #-- make assert available --
-            # By pointing it to the assert imported into ::punk::ansi::class
-            # (we could alternatively import assert *directly* from ::punk::assertion::assert - but we can't chain imports as setting active flag renames the command, breaking imports)
-            set nspath [tcl::namespace::path]
-            if {"::punk::ansi::class" ni $nspath} {
-                lappend nspath ::punk::ansi::class
-            }
-            tcl::namespace::path $nspath
-            #--                      --
-
-            #we choose not to generate an internal split-state for the initial string - which may potentially be large.
-            #there are a few methods such as get, has_ansi, show_state,checksum that can run efficiently on the initial string without generating it.
-            #The length method can use ansi::ta::detect to work quickly without updating it if it can, and other methods also update it as necessary
-
-            set o_count "" ;#o_count first updated when string appended or a method causes MakeSplit to run (or by count method if constructor argument was empty string)
-
-            set o_ansisplits [list] ;#we get empty pt(plaintext) between each ansi code. Codes include cursor movements, resets,alt graphics modes, terminal mode settings etc.
-            set o_ptlist [list]
-            #o_ansisplits and o_ptlist should only remain empty if an empty string was passed to the contructor, or no methods have yet triggered the initial string to have it's internal state built.
-
-            set o_elements      [list]
-            set o_sgrstacks     [list]
-            set o_gx0states     [list]
-            set o_splitindex    [list]
-
-            #sha1 takes *much* longer to compute than md5 if tcllibc not available - otherwise it is generally faster
-            #we should fall back to md5 if no acceleration available. check for command sha1::sha1c ?
-            set o_cksum_command [list sha1::sha1 -hex]
-
-
-            #empty if no render methods used
-            # --
-            set o_renderer ""
-            set o_renderout "" ;#class_ansistring
-            # --
-
-            set o_renderwidth 80
-            set o_rendertype cp437
-        }
-
-        #temporary test method
-        method eval_in {script} {
-            eval $script
-        }
-        method checksum {} {
-            if {[catch {
-                package require sha1
-            } errM]} {
-                error "sha1 package unavailable"
-            }
-            return [{*}$o_cksum_command [encoding convertto utf-8 $o_string]]
-        }
-        #todo - allow setting checksum algorithm  and/or command
-
-        method show_state {{verbose 0}} {
-            #show some state info - without updating anything
-            #only use 'my' methods that don't update the state e.g has_ansi
-            set result ""
-            if {![llength $o_ansisplits]} {
-                append result "No internal splits. "
-                append result \n    "has ansi                    : [my has_ansi]"
-                append result \n    "Tcl string length raw string: [tcl::string::length $o_string]"
-            } else {
-                append result \n    "has ansi                    : [my has_ansi]"
-                append result \n    "ansisplit list len: [llength $o_ansisplits]"
-                append result \n    "plaintext list len: [llength $o_ptlist]"
-                append result \n    "cached count      : $o_count"
-                append result \n    "Tcl string length raw string     : [tcl::string::length $o_string]"
-                append result \n    "Tcl string length plaintext parts: [tcl::string::length [join $o_ptlist ""]]"
-                if {[llength $o_ansisplits] %2 == 0} {
-                    append result \n --------------------------------------------------
-                    append result \n Warning - ansisplits appears to be invalid length
-                    append result \n Use show_state 1 to view
-                    append result \n --------------------------------------------------
-                }
-            }
-            if {$o_renderer ne ""} {
-                append result \n "    renderer obj: $o_renderer"
-                append result \n "    renderer class: [info object class $o_renderer]"
-                set renderstring      [$o_renderer renderbuf]
-                append result \n "    render target ansistring: $renderstring"
-                append result \n "    render target has ansi  : [$renderstring has_ansi]"
-                append result \n "    render target count     : [$renderstring count]"
-            }
-            if {$verbose} {
-                append result \n  "ansisplits listing"
-                #we will use a foreach with a single var rather than foreach {pt code} - so that if something goes wrong it's clearer.
-                #(using foreach {pt code} on an odd element list will give a spurious empty code at the end)
-                set i 0
-                foreach item $o_ansisplits {
-                    if {$i % 2 == 0} {
-                        set type "pt  "
-                    } else {
-                        set type code
-                    }
-                    append result \n "$type: [ansistring VIEW $item]"
-                    incr i
-                }
-                append result \n "Last element of ansisplits should be of type pt"
-            }
-            return $result
-        }
-
-        #private method
-        method MakeSplit {} {
-            #The split with each code as it's own element is more generally useful.
-            set o_ansisplits [punk::ansi::ta::split_codes_single $o_string];
-            set o_ptlist [list]
-            set codestack [list]
-            set gx0_state 0 ;#default off
-            set current_split_index 0 ;#incremented for each pt block, incremented for each code
-            if {$o_count eq ""} {
-                set o_count 0
-            }
-            foreach {pt code} $o_ansisplits {
-                lappend o_ptlist $pt
-                foreach grapheme [punk::char::grapheme_split $pt] {
-                    lappend o_elements [list g $grapheme]
-                    lappend o_sgrstacks $codestack
-                    lappend o_gx0states $gx0_state
-                    lappend o_splitindex $current_split_index
-                    incr o_count
-                }
-                #after handling the pt block - incr the current_split_index
-                incr current_split_index  ;#increment for each pt block - whether empty string or not. Indices corresponding to empty PT blocks will therefore not be present in o_splitindex as there were  no elements in that ansisplit entry
-                #we will only get an empty code at the very end of ansisplits (ansisplits is length 0 or odd length - always with pt at start and pt at end)
-                if {$code ne ""} {
-                    lappend o_sgrstacks $codestack
-                    lappend o_gx0states $gx0_state
-                    lappend o_splitindex $current_split_index
-
-                    #maintenance warning - dup in append!
-                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                        set codestack [list "\x1b\[m"]
-                        lappend o_elements [list sgr $code]
-                    } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                        set codestack [list $code]
-                        lappend o_elements [list sgr $code]
-                    } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                        #basic simplification first - remove straight dupes
-                        set dup_posns [lsearch -all -exact $codestack $code] ;#must be -exact because of square-bracket glob chars
-                        set codestack [lremove $codestack {*}$dup_posns]
-                        lappend codestack $code
-                        lappend o_elements [list sgr $code]
-                    } else {
-                        if {[punk::ansi::codetype::is_gx_open $code]} {
-                            set gx0_state 1
-                            lappend o_elements [list gx0 1] ;#don't store code - will complicate debugging if we spit it out and jump character sets
-                        } elseif {[punk::ansi::codetype::is_gx_close $code]} {
-                            set gx0_state 0
-                            lappend o_elements [list gx0 0] ;#don't store code - will complicate debugging if we spit it out and jump character sets
-                        } else {
-                            lappend o_elements [list other $code]
-                        }
-                    }
-                    #after each code (ignoring bogus empty final due to foreach with 2 vars on odd-length list) increment the current_split_index
-                    incr current_split_index
-                }
-            }
-            #assertion every grapheme and every individual code has been added to o_elements
-            #every element has an entry in o_sgrstacks
-            #every element has an entry in o_gx0states
-            assert {[llength $o_elements] == [llength $o_sgrstacks] && [llength $o_elements] == [llength $o_gx0states] && [llength $o_elements] == [llength $o_splitindex]}
-        }
-        method convert_altg {} {
-            #do we need a method to retrieve without converting in the object?
-            puts "unimplemented"
-        }
-        method strippedlength {} {
-            if {![llength $o_ansisplits]} {my MakeSplit}
-            #review
-            return [string length [join $o_ptlist ""]]
-        }
-        #returns the ansiless string - doesn't affect the stored state other than initialising it's internal state if it wasn't already
-        method stripped {} {
-            if {![llength $o_ansisplits]} {my MakeSplit}
-            return [join $o_ptlist ""]
-        }
-
-        #does not affect object state
-        #REVIEW - icu or equiv required
-        method DoCount {plaintext} {
-            #- combiners/diacritics just map them away here - but for consistency we need to combine unicode grapheme clusters too.
-            #todo - joiners 200d? zwnbsp
-            set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-
-            #we want length to return number of glyphs + normal controls such as newline.. not screen width. Has to be consistent with index function
-            return [tcl::string::length  [regsub -all $re_diacritics $plaintext ""]]
-        }
-
-        #This is the count of visible graphemes + non-ansi control chars. Not equal to column width or to the Tcl string length of the ansistripped string!!!
-        method count {} {
-            if {$o_count eq ""} {
-                #only initial string present
-                if {$o_string eq ""} {
-                    set o_count 0
-                    return 0
-                }
-                my MakeSplit
-                #set o_count [my  DoCount [join $o_ptlist ""]]
-            }
-            return $o_count
-        }
-        #this is the equivalent of Tcl string length on the ansistripped string
-        method length {} {
-            if {![llength $o_ansisplits]} {
-                if {[punk::ansi::ta::detect $o_string]} {
-                    my MakeSplit
-                } else {
-                    return [tcl::string::length $o_string]
-                }
-            } elseif {[llength $o_ansisplits] == 1} {
-                #single split always means no ansi
-                return [tcl::string::length $o_string]
-            }
-            return [tcl::string::length [join $o_ptlist ""]]
-        }
-        method length_raw {} {
-            return [tcl::string::length $o_string]
-        }
-
-        #channels for stream in/out.. these are vaguely analogous to the input/output between a shell and a PTY Slave  - but this is not intended to be a full pseudoterminal
-        #renderstream_to_render  (private?)
-        #   write end held by outer ansistring? read end by inner render ansistring ?
-        #renderstream_from_render  (public?)
-
-        method rendertypes {} {
-            set classes [tcl::info::commands ::punk::ansi::class::renderer::class_*]
-            #strip off class_
-            set ctypes [lmap v $classes {tcl::string::range [tcl::namespace::tail $v] 6 end}]
-        }
-        method rendertype {{rtype ""}} {
-            if {$rtype eq ""} {
-                return $o_rendertype
-            }
-            set rtypes [my rendertypes]
-            if {$rtype ni $rtypes} {
-                error "unknown rendertype '$rtype' - known types: $rtypes (punk::ansi::class::renderer::class_*)"
-            }
-            #if {$o_renderout eq ""} {
-            #    set o_renderout [punk::ansi::class::class_ansistring new ""]
-            #}
-            if {$o_renderer ne ""} {
-                set oinfo [info object class $o_renderer]
-                set tail [tcl::namespace::tail $oinfo]
-                set currenttype [tcl::string::range $tail 6 end]
-                if {$rtype ne $currenttype} {
-                    puts "switch rendertype from $currenttype to $rtype - destroying renderer and creating a new one"
-                    $o_renderer destroy ;#what happens to data in target ansistring obj? when does it make sense to keep output and keep rendering vs clearing?
-                    #set o_renderer [punk::ansi::class::renderer::class_$rtype new [self] $o_renderout]
-                    set o_renderer [punk::ansi::class::renderer::class_$rtype new [self]]
-                } else {
-                    return $currenttype
-                }
-            } else {
-                puts "creating first renderer"
-                #set o_renderer [punk::ansi::class::renderer::class_$rtype new [self] $o_renderout]
-                set o_renderer [punk::ansi::class::renderer::class_$rtype new [self]]
-            }
-        }
-        #--- progressive rendering buffer - another ansistring object
-        method renderwidth {{rw ""}} {
-            #report or set the renderwidth - may invalidate existing render progress? restart?
-            if {$rw eq ""} {
-                return $o_renderwidth
-            }
-            if {$rw eq $o_renderwidth} {
-                return $o_renderwidth
-            }
-            #re-render if needed?
-            puts stderr "renderwidth todo? re-render?"
-
-            set o_renderwidth $rw
-        }
-        method renderer {} {
-            return $o_renderer
-        }
-        method render_state {} {
-            #? report state of render.. we will primarily be using plaintext/ansisequence as the chunk/operation boundary
-            #but - as we can append char sequences directly to the tail split - it's not enough to track which split element we have rendered - but we also need how many graphemes or code sequences we are into the last split.
-            #A single number representing the count of graphemes and individual ANSI codes (from the input ansistring) rendered might work
-        }
-        method renderbuf {} {
-            #get the underlying renderobj - if any
-            #return $o_renderout ;#also class_ansistring
-            if {$o_renderer eq ""} {error "renderbuf error: no active renderer"}
-            return [$o_renderer renderbuf]
-        }
-        method render {{maxgraphemes ""}} {
-            #full render - return buffer ansistring
-            set do_render 1
-            set grapheme_count 0
-            set other_count 0
-            if {$maxgraphemes eq ""} {
-                while {$do_render} {
-                    set rendition [my rendernext]
-                    set do_render [dict get $rendition rendercount]
-                    if {[dict get $rendition type] eq "g"} {
-                        incr grapheme_count $do_render
-                    } else {
-                        incr other_count $do_render
-                    }
-                }
-            } else {
-                while {$do_render && $grapheme_count <= $maxgraphemes} {
-                    set rendition [my rendernext]
-                    set do_render [dict get $rendition rendercount]
-                    if {[dict get $rendition type] eq "g"} {
-                        incr grapheme_count $do_render
-                    } else {
-                        incr other_count $do_render
-                    }
-                }
-            }
-            return [dict create graphemes $grapheme_count other $other_count]
-        }
-        method rendernext {} {
-            #render next available pt/code chunk only - not to end of available input
-            if {$o_renderer eq ""} {
-                my rendertype $o_rendertype ;#review - proper way to initialise rendering
-            }
-            $o_renderer rendernext
-        }
-        method render_cursorstate {{row_x_col ""}} {
-            #report /set? cursor posn
-            if {$o_renderer eq ""} {
-                error "No renderer. Call render methods first"
-            }
-            return [tcl::dict::create row [$o_renderer cursor_row] column [$o_renderer cursor_column]]
-        }
-        #---
-
-        method get {} {
-            return $o_string
-        }
-        method has_ansi {} {
-            if {![llength $o_ansisplits]} {
-                #initial string - for large strings,it's faster to run detect than update the internal split-state.
-                return [punk::ansi::ta::detect $o_string]
-            } else {
-                #string will continue to have a single o_ansisplits element if only non-ansi appended
-                return [expr {[llength $o_ansisplits] != 1}]
-            }
-        }
-        #todo - has_ansi_movement ?
-        #If an arbirary ANSI string has movement/cursor restore - then the number of apparent rows in the input will potentially bear no relation to the number of lines of output.
-        #i.e a 'rendered' ANSI string should contain just ANSI SGR character attributes and linefeeds for rows
-        #Knowing which is which can be helpful as far as use of any methods which use the concepts of terminal row/column
-
-        #like Tcl's append class_ansistring append returns the result directly - which for ANSI - can be inconvenient in the terminal
-        #class_ansistring append_string is a convenience wrapper to avoid returning the raw result
-        method append_string {args} {
-            my append {*}$args
-            return
-        }
-
-        #analagous to Tcl string append
-        #MAINTENANCE: we need to be very careful to account for unsplit initial state - which exists to make certain operations that don't require an ansi split more efficient
-        method append {args} {
-            set catstr [join $args ""]
-            if {$catstr eq ""} {
-                return $o_string
-            }
-
-            if {![punk::ansi::ta::detect $catstr]} {
-                #ansi-free additions
-                #if no initial internal-split - generate it without first appending our additions - as we can more efficiently append them to the internal state
-                if {![llength $o_ansisplits]} {
-                   #initialise  o_count because we need to add to it.
-                   #The count method will do this by calling Makesplit only if it needs to. (which will create ansisplits for anything except empty string)
-                   my count
-                }
-                append o_string $catstr;# only append after updating using my count above
-                if {![llength $o_ptlist]} {
-                    #If the object was initialised with empty string - we can still have empty lists for o_ptlist and o_ansisplits
-                    #even though we can use lset to add to a list - we can't for empty
-                    lappend o_ptlist  $catstr
-                    #assertion - if o_ptlist is empty so is o_ansisplits
-                    lappend o_ansisplits $catstr
-                } else {
-                    lset o_ptlist end       [tcl::string::cat [lindex $o_ptlist end] $catstr]
-                    lset o_ansisplits end   [tcl::string::cat [lindex $o_ansisplits end] $catstr]
-                }
-                set last_codestack [lindex $o_sgrstacks end]
-                set last_gx0state  [lindex $o_gx0states end]
-                set current_split_index [expr {[llength $o_ansisplits]-1}] ;#we are attaching to existing trailing pt - use its splitindex
-                foreach grapheme [punk::char::grapheme_split $catstr] {
-                    lappend o_elements [list g $grapheme]
-                    lappend o_sgrstacks $last_codestack
-                    lappend o_gx0states $last_gx0state
-                    lappend o_splitindex $current_split_index
-                    incr o_count
-                }
-                #incr o_count [my DoCount $catstr] ;#from before we were doing grapheme split..  review
-            } else {
-                if {![llength $o_ansisplits]} {
-                    #if we have an initial string - but no internal split-state because this is our first append and no methods have caused its generation - we can run more efficiently by combining it with the first append
-                    append o_string $catstr ;#append before split and count on whole lot
-                    my MakeSplit  ;#update o_count
-                    #set combined_plaintext [join $o_ptlist ""]
-                    #set o_count [my DoCount $combined_plaintext]
-                    assert {[llength $o_elements] == [llength $o_sgrstacks] && [llength $o_elements] == [llength $o_gx0states] && [llength $o_elements] == [llength $o_splitindex]}
-                    return $o_string
-                } else {
-                    #update each element of internal state incrementally without reprocessing what is already there.
-                    append o_string $catstr
-                    set newsplits [punk::ansi::ta::split_codes_single $catstr]
-                    set ptnew ""
-                    set codestack [lindex $o_sgrstacks end]
-                    set gx0_state  [lindex $o_gx0states end]
-                    set current_split_index [lindex $o_splitindex end]
-                    #first pt must be merged with last element of o_ptlist
-                    set new_pt_list [list]
-                    foreach {pt code} $newsplits {
-                        lappend new_pt_list $pt
-                        append ptnew $pt
-                        foreach grapheme [punk::char::grapheme_split $pt] {
-                            lappend o_elements [list g $grapheme]
-                            lappend o_sgrstacks $codestack
-                            lappend o_gx0states $gx0_state
-                            lappend o_splitindex $current_split_index
-                            incr o_count
-                        }
-                        incr current_split_index ;#increment 1 of 2 within each loop
-                        if {$code ne ""} {
-                            lappend o_sgrstacks $codestack
-                            lappend o_gx0states $gx0_state
-                            lappend o_splitindex $current_split_index
-                            #maintenance - dup in MakeSplit!
-                            if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                set codestack [list "\x1b\[m"]
-                                lappend o_elements [list sgr $code]
-                            } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                set codestack [list $code]
-                                lappend o_elements [list sgr $code]
-                            } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                                #basic simplification first - remove straight dupes
-                                set dup_posns [lsearch -all -exact $codestack $code] ;#must be -exact because of square-bracket glob chars
-                                set codestack [lremove $codestack {*}$dup_posns]
-                                lappend codestack $code
-                                lappend o_elements [list sgr $code]
-                            } else {
-                                if {[punk::ansi::codetype::is_gx_open $code]} {
-                                    set gx0_state 1
-                                    lappend o_elements [list gx0 1] ;#don't store code - will complicate debugging if we spit it out and jump character sets
-                                } elseif {[punk::ansi::codetype::is_gx_close $code]} {
-                                    set gx0_state 0
-                                    lappend o_elements [list gx0 0] ;#don't store code - will complicate debugging if we spit it out and jump character sets
-                                } else {
-                                    lappend o_elements [list other $code]
-                                }
-                            }
-                            incr current_split_index ;#increment 2 of 2
-                        }
-                    }
-                    lset o_ptlist end [tcl::string::cat [lindex $o_ptlist end] [lindex $new_pt_list 0]]
-                    lappend o_ptlist {*}[lrange $new_pt_list 1 end]
-                    lset o_ansisplits end [tcl::string::cat [lindex $o_ansisplits end] [lindex $newsplits 0]]
-                    lappend o_ansisplits {*}[lrange $newsplits 1 end]
-
-                    #if {$o_count eq ""} {
-                    #    #we have splits - but didn't count graphemes?
-                    #    set o_count [my  DoCount [join $o_ptlist ""]] ;#o_ptlist already has ptnew parts
-                    #} else {
-                    #    incr o_count [my DoCount $ptnew]
-                    #}
-
-                }
-            }
-            assert {[llength $o_elements] == [llength $o_sgrstacks] && [llength $o_elements] == [llength $o_gx0states] && [llength $o_elements] == [llength $o_splitindex]}
-            return $o_string
-        }
-
-        #we are currently assuming that the component strings have complete graphemes ie no split clusters - and therefore we don't attempt to check for and combine at the string catenation points.
-        #This is 'often'? likely to be true - We don't have grapheme cluster support yet anyway.  review.
-        method appendobj {args} {
-            if {![llength $o_ansisplits]} {
-                my MakeSplit
-            }
-            foreach a $args {
-                set ns [info object namespace $a]
-                upvar ${ns}::o_ansisplits new_ansisplits
-                upvar ${ns}::o_count new_count
-                if {![llength $new_ansisplits] || $new_count eq ""} {
-                    tcl::namespace::eval $ns {my MakeSplit}
-                }
-                upvar ${ns}::o_ptlist     new_ptlist
-                upvar ${ns}::o_string     new_string
-                upvar ${ns}::o_elements   new_elements
-                upvar ${ns}::o_sgrstacks  new_sgrstacks
-                upvar ${ns}::o_gx0states  new_gx0states
-                upvar ${ns}::o_splitindex new_splitindex
-
-                lset o_ansisplits end [tcl::string::cat [lindex $o_ansisplits end] [lindex $new_ansisplits 0]]
-                lappend o_ansisplits {*}[lrange $new_ansisplits 1 end]
-                lset o_ptlist end [tcl::string::cat [lindex $o_ptlist end] [lindex $new_ptlist 0]]
-                lappend o_ptlist {*}[lrange $new_ptlist 1 end]
-
-                append o_string $new_string
-                lappend o_elements {*}$new_elements
-
-                #prepend the previous sgr stack to all stacks in the new list.
-                #This allows us to use only list operations to keep the sgr data valid - but we don't yet make it canonical/flat by examining each for resets etc.
-                #ie just call sgr_merge_list once now.
-                set laststack [lindex $o_sgrstacks end]
-                set mergedtail [punk::ansi::codetype::sgr_merge_list "" {*}$laststack]
-                foreach n $new_sgrstacks {
-                    lappend o_sgrstacks [list $mergedtail {*}$n]
-                }
-
-
-                lappend o_gx0states {*}$new_gx0states
-
-                #first and last of ansisplits splits merge
-                set lastidx [lindex $o_splitindex end]
-                set firstnewidx [lindex $new_splitindex 0]
-                set diffidx [expr {$lastidx - $firstnewidx}] ;#may be negative
-                foreach v $new_splitindex {
-                    lappend o_splitindex  [expr {$v + $diffidx}]
-                }
-
-                incr o_count $new_count
-            }
-            return $o_count
-        }
-
-
-        #method append_and_render? - append and render up to end of appended data at same time
-
-        method view {args} {
-            if {$o_string eq ""} {
-                return ""
-            }
-            #ansistring VIEW relies only on the raw ansi input as it is essentially just a tcl::string::map.
-            #We don't need to force an ansisplit if we happen to have an unsplit initial string
-            ansistring VIEW $o_string
-        }
-        method viewcodes {args} {
-            if {$o_string eq ""} {
-                return ""
-            }
-            if {![llength $o_ansisplits]} {my MakeSplit}
-
-            set redb [a+ red bold] ;#osc/apm ? anything with potential security risks or that is unusual
-            set greenb [a+ green bold] ;#SGR
-            set cyanb [a+ cyan bold] ;#col,row movement
-            set blueb [a+ blue bold] ;#
-            set blueb_r [a+ blue bold reverse]
-            set whiteb [a+ white bold] ;#SGR reset (or highlight first part if leading reset)
-            set GX [a+ black White bold] ;#alt graphics
-            set unk [a+ yellow bold] ;#unknown/unhandled
-            set RST [a]
-
-            set re_col_move    {\x1b\[([0-9]*)(C|D|G)$}
-            set re_row_move    {\x1b\[([0-9]*)(A|B)$}
-            set re_both_move   {\x1b\[([0-9]*)(?:;){0,1}([0-9]*)H$}
-            set re_vt_sequence {\x1b\[([0-9]*)(?:;){0,1}([0-9]*)~$}
-            set re_cursor_save {\x1b\[s$}
-            set re_cursor_restore {\x1b\[u$}
-            set re_cursor_save_dec {\x1b7$}
-            set re_cursor_restore_dec {\x1b8$}
-
-            set arrow_left \u2190
-            set arrow_right \u2192
-            set arrow_up    \u2191
-            set arrow_down  \u2193
-            set arrow_lr    \u2194
-            set arrow_du    \u2195
-            #2024 - there is no 4-arrow symbol or variations (common cursor and window icon) in unicode - despite requests and argument from the community that this has been in use for decades.
-            #They are probably too busy with stupid emoji additions to add this or c1 visualization glyphs.
-
-            #don't split into lines first - \n is valid within ST sections
-            set output ""
-            #set splits [punk::ansi::ta::split_codes_single $string]
-
-            foreach {pt code} $o_ansisplits {
-                append output [ansistring VIEW {*}$args $pt]
-
-                #map DEC cursor_save/restore to CSI version
-                set code [tcl::string::map [list \x1b7 \x1b\[s \x1b8 \x1b\[u ] $code]
-
-
-                set c1 [tcl::string::index $code 0]
-                set c1c2 [tcl::string::range $code 0 1]
-                #set re_ST_open {(?:\033P|\u0090|\033X|\u0098|\033\^|\u009e|\033_|\u009f)}
-                set leadernorm [tcl::string::range [tcl::string::map [list\
-                    \x1b\[      7CSI\
-                    \x9b        8CSI\
-                    \x1b\]      7OSC\
-                    \x1b\(      7GFX\
-                    \x9d        8OSC\
-                    \x1b        7ESC\
-                    ] $c1c2] 0 3] ;#leadernorm is 1st 2 chars mapped to 4char normalised indicator - or is original 2 chars
-
-                #we leave the tail of the code unmapped for now
-                switch -- $leadernorm {
-                    7CSI - 7OSC {
-                        set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 2 end]]
-                    }
-                    7ESC {
-                        set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 1 end]]
-                    }
-                    8CSI - 8OSC {
-                        set codenorm [tcl::string::cat $leadernorm [tcl::string::range $code 1 end]]
-                    }
-                    default {
-                        #we haven't made a mapping for this
-                        set codenorm $code
-                    }
-                }
-
-                switch -- $leadernorm  {
-                    {7CSI} - {8CSI} {
-                        set param [tcl::string::range $codenorm 4 end-1]
-                        #puts stdout "--> CSI [tcl::string::index $leadernorm 0] bit param:$param"
-                        switch -- [tcl::string::index $codenorm end] {
-                            m {
-                                if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                    set displaycode [ansistring VIEW  $code]
-                                    append output  ${whiteb}$displaycode$RST
-                                } else {
-                                    set displaycode [ansistring VIEW  $code]
-                                    if {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                        #highlight the esc & leftbracket in white as indication there is a leading reset
-                                        set cposn [tcl::string::first ";" $displaycode]
-                                        append output ${whiteb}[tcl::string::range $displaycode 0 $cposn]$RST${greenb}[tcl::string::range $displaycode $cposn+1 end]$RST
-                                    } else {
-                                        append output ${greenb}$displaycode$RST
-                                    }
-                                }
-                            }
-                            A - B {
-                                #row move
-                                set displaycode [ansistring VIEW $code]
-                                set displaycode [tcl::string::map [list A "A$arrow_up" B "B$arrow_down"] $displaycode]
-                                append output ${cyanb}$displaycode$RST
-
-                            }
-                            C - D - G {
-                                #set num [tcl::string::range $codenorm 4 end-1]
-                                set displaycode [ansistring VIEW $code]
-                                set displaycode [tcl::string::map [list C "C$arrow_right" D "D$arrow_left" G "G$arrow_lr"] $displaycode]
-                                append output ${cyanb}$displaycode$RST
-                            }
-                            H - f {
-                                set params [tcl::string::range $codenorm 4 end-1]
-                                lassign [split $params {;}] row col
-                                #lassign $matchinfo _match row col
-                                set displaycode [ansistring VIEW $code]
-                                if {$col eq ""} {
-                                    #row only move
-                                    set map [list H "H${arrow_lr}" f "f${arrow_lr}"]
-                                } else {
-                                    #row and col move
-                                    set map [list H "H${arrow_lr}${arrow_du}" f "${arrow_lr}${arrow_du}"]
-                                }
-                                set displaycode [tcl::string::map $map $displaycode]
-                                append output ${cyanb}$displaycode$RST
-                            }
-                            s {
-                                append output ${blueb}[ansistring VIEW $code]$RST
-                            }
-                            u {
-                                append output ${blueb_r}[ansistring VIEW $code]$RST
-                            }
-                            default {
-                                append output ${unk}[ansistring VIEW -lf 1 $code]$RST
-                            }
-                        }
-                    }
-                    7GFX {
-                        switch -- [tcl::string::index $codenorm 4] {
-                            "0" {
-                                append output ${GX}GX+$RST
-                            }
-                            "B" {
-                                append output ${GX}GX-$RST
-                            }
-                        }
-                    }
-                    7ESC {
-                        append output ${unk}[ansistring VIEW -lf 1 $code]$RST
-                    }
-                    default {
-                        #if the code is a PM (or other encapsulation type code e.g terminated by ST) we want to see linefeeds as visual representation character
-                        append output ${unk}[ansistring VIEW -lf 1 $code]$RST
-                    }
-                }
-
-            }
-            return $output
-        }
-
-        method viewstyle {args} {
-            if {$o_string eq ""} {
-                return ""
-            }
-            if {![llength $o_ansisplits]} {my MakeSplit}
-
-            #set splits [punk::ansi::ta::split_codes_single $string]
-            set output ""
-            set codestack [list]
-            set gx_stack [list] ;#not actually a stack
-            set cursor_saved ""
-            foreach {pt code} $o_ansisplits {
-                if {[llength $args]} {
-                    set pt [ansistring VIEW {*}$args $pt]
-                }
-                append output [punk::ansi::codetype::sgr_merge_list {*}$codestack]$pt
-                if {$code ne ""} {
-                    append output [a][ansistring VIEW -lf 1 $code]
-                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                        set codestack [list]
-                    } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                        set codestack [list $code]
-                    } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                        #basic simplification first.. straight dups
-                        set dup_posns [lsearch -all -exact $codestack $code] ;#-exact because of square-bracket glob chars
-                        #lremove not present in pre 8.7!
-                        set codestack [lremove $codestack {*}$dup_posns]
-                        lappend codestack $code
-                    } elseif {[regexp {\x1b7|\x1b\[s} $code]} {
-                        #cursor_save
-                        set cursor_saved [punk::ansi::codetype::sgr_merge_list {*}$codestack]
-                    } elseif {[regexp {\x1b8|\x1b\[u} $code]} {
-                        #cursor_restore
-                        set codestack [list $cursor_saved]
-                    } else {
-                        #leave SGR stack as is
-                        if {[punk::ansi::codetype::is_gx_open $code]} {
-                            set gx_stack [list gx0_on] ;#we'd better use a placeholder - or debugging will probably get into a big mess
-                        } elseif {[punk::ansi::codetype::is_gx_close $code]} {
-                            set gx_stack [list]
-                        }
-                    }
-                }
-            }
-            return $output
-
-        }
-    }
-}
-tcl::namespace::eval punk::ansi {
-
-    proc stripansi3 {text} [string map [list <re> $::punk::ansi::ta::re_ansi_split]  {
-
-        #using detect costs us a couple of uS - but saves time on plain text
-        #we should probably leave this for caller  - otherwise it ends up being called more than necessary
-        #if {![::punk::ansi::ta::detect $text]} {
-        #    return $text
-        #}
-
-        #alternate graphics codes are not the norm
-        # - so save a few uS in the common case by only calling convert_g0 if we detect
-        if {[punk::ansi::ta::detect_g0 $text]} {
-            set text [convert_g0 $text];#Convert ansi borders to unicode line drawing instead of ascii letters
-        }
-        punk::ansi::ta::Do_split_at_codes_join $text {<re>}
-    }]
-
-    proc stripansiraw3 {text} [string map [list <re> $::punk::ansi::ta::re_ansi_split] {
-
-        #join [::punk::ansi::ta::split_at_codes $text] ""
-        punk::ansi::ta::Do_split_at_codes_join $text {<re>}
-    }]
-}
-
-tcl::namespace::eval punk::ansi::ansistring {
-    #*** !doctools
-    #[subsection {Namespace punk::ansi::ansistring}]
-    #[para]punk::ansi::ansistring ensemble  - ansi-aware string operations
-    #[para]Working with strings containing ansi in a way that preserves/understands the codes is always going to be significantly slower than working with plain strings
-    #[para]Just as working with other forms of markup such as HTML - you simply need to be aware of the tradeoffs and design accordingly.
-    #[list_begin definitions]
-
-    tcl::namespace::path [list ::punk::ansi ::punk::ansi::ta]
-    tcl::namespace::ensemble create
-    tcl::namespace::export length trim trimleft trimright INDEX COUNT VIEW VIEWCODES VIEWSTYLE INDEXABSOLUTE INDEXCOLUMNS COLUMNINDEX NEW
-    #todo - expose _splits_ methods so caller can work efficiently with the splits themselves
-    #we need to consider whether these can be agnostic towards splits from split_codes vs split_codes_single
-
-    #\UFFFD  - replacement char or \U2426
-
-    #using ISO 2047 graphical representations of control characters - probably obsolete?
-    #00	NUL	Null	⎕	U+2395	NU
-    #01	TC1, SOH	Start of Heading	⌈	U+2308	SH
-    #02	TC2, STX	Start of Text	⊥	U+22A5	SX
-    #03	TC3, ETX	End of Text	⌋	U+230B	EX
-    #04	TC4, EOT	End of Transmission	⌁	U+2301[9]	ET
-    #05	TC5, ENQ	Enquiry	⊠[a]	U+22A0	EQ
-    #06	TC6, ACK	Acknowledge	✓	U+2713	AK
-    #07	BEL	Bell	⍾	U+237E[9]	BL
-    #08	FE0, BS	Backspace	⤺	—[b]	BS
-    #09	FE1, HT	Horizontal Tabulation	⪫	U+2AAB	HT
-    #0A	FE2, LF	Line Feed	≡	U+2261	LF
-    #0B	FE3, VT	Vertical Tabulation	⩛	U+2A5B	VT
-    #0C	FE4, FF	Form Feed	↡	U+21A1	FF
-    #0D	FE5, CR	Carriage Return	⪪	U+2AAA	CR
-    #0E	SO	Shift Out	⊗	U+2297	SO
-    #0F	SI	Shift In	⊙	U+2299	SI
-    #10	TC7, DLE	Data Link Escape	⊟	U+229F	DL
-    #11	DC1, XON, CON[10]	Device Control 1	◷	U+25F7	D1
-    #12	DC2, RPT,[10] TAPE[c]	Device Control 2	◶	U+25F6	D2
-    #13	DC3, XOF, XOFF	Device Control 3	◵	U+25F5	D3
-    #14	DC4, COF, KMC,[10] TAPE[c]	Device Control 4	◴	U+25F4	D4
-    #15	TC8, NAK	Negative Acknowledge	⍻	U+237B[9]	NK
-    #16	TC9, SYN	Synchronization	⎍	U+238D	SY
-    #17	TC10, ETB	End of Transmission Block	⊣	U+22A3	EB
-    #18	CAN	Cancel	⧖	U+29D6	CN
-    #19	EM	End of Medium	⍿	U+237F[9]	EM
-    #1A	SUB	Substitute Character	␦	U+2426[12]	SB
-    #1B	ESC	Escape	⊖	U+2296	EC
-    #1C	IS4, FS	File Separator	◰	U+25F0	FS
-    #1D	IS3, GS	Group Separator	◱	U+25F1	GS
-    #1E	IS2, RS	Record Separator	◲	U+25F2	RS
-    #1F	IS1 US	Unit Separator	◳	U+25F3	US
-    #20	SP	Space	△	U+25B3	SP
-    #7F	DEL	Delete	▨	—[d]	DT
-
-    #C0 control code visual representations
-    # Code Val Name 2X Description
-    # 2400 00 NUL NU Symbol for Null
-    # 2401 01 SOH SH Symbol for Start of Heading
-    # 2402 02 STX SX Symbol for Start of Text
-    # 2403 03 ETX EX Symbol for End of Text
-    # 2404 04 EOT ET Symbol for End of Transmission
-    # 2405 05 ENQ EQ Symbol for Enquiry
-    # 2406 06 ACK AK Symbol for Acknowledge
-    # 2407 07 BEL BL Symbol for Bell
-    # 2409 09 BS BS Symbol for Backspace
-    # 2409 09 HT HT Symbol for Horizontal Tab (1)
-    # 240A 0A LF LF Symbol for Line Feed (1)
-    # 240B 0B VT VT Symbol for Vertical Tab (1)
-    # 240C 0C FF FF Symbol for Form Feed (2)
-    # 240D 0D CR CR Symbol for Carriage Return (1)
-    # 240E 0E SO SO Symbol for Shift Out
-    # 240F 0F SI SI Symbol for Shift In
-    # 2410 10 DLE DL Symbol for Data Link Escape
-    # 2411 11 DC1 D1 Symbol for Device Control 1 (2)
-    # 2412 12 DC2 D2 Symbol for Device Control 2 (2)
-    # 2413 13 DC3 D3 Symbol for Device Control 3 (2)
-    # 2414 14 DC4 D4 Symbol for Device Control 4 (2)
-    # 2415 15 NAK NK Symbol for Negative Acknowledge
-    # 2416 16 SYN SY Symbol for Synchronous Idle
-    # 2417 17 ETB EB Symbol for End of Transmission Block
-    # 2418 18 CAN CN Symbol for Cancel
-    # 2419 19 EM EM Symbol for End of Medium
-    # 241A 1A SUB SU Symbol for Substitute
-    # 241B 1B ESC EC Symbol for Escape
-    # 241C 1C FS FS Symbol for Field Separator (3)
-    # 241D 1D GS GS Symbol for Group Separator (3)
-    # 241E 1E RS RS Symbol for Record Separator (3)
-    # 241F 1F US US Symbol for Unit Separator (3)
-    # 2420 20 SP SP Symbol for Space (4)
-    # 2421 7F DEL DT Symbol for Delete (4)
-
-    #C1 control code visual representations
-    #Code Val Name 2X Description
-    # 80 80 80 (1)
-    # 81 81 81 (1)
-    # E022 82 BPH 82 Symbol for Break Permitted Here (2)
-    # E023 83 NBH 83 Symbol for No Break Here (2)
-    # E024 84 IND IN Symbol for Index (3)
-    # E025 85 NEL NL Symbol for Next Line (4)
-    # E026 86 SSA SS Symbol for Start Selected Area
-    # E027 87 ESA ES Symbol for End Selected Area
-    # E028 88 HTS HS Symbol for Character Tabulation Set
-    # E029 89 HTJ HJ Symbol for Character Tabulation with Justification
-    # E02A 8A VTS VS Symbol for Line Tabulation Set
-    # E02B 8B PLD PD Symbol for Partial Line Forward
-    # E02C 8C PLU PU Symbol for Partial Line Backward
-    # E02D 8D RI RI Symbol for Reverse Line Feed
-    # E02E 8E SS2 S2 Symbol for Single Shift 2
-    # E02F 8F SS3 S3 Symbol for Single Shift 3
-    # E030 90 DCS DC Symbol for Device Control String
-    # E031 91 PU1 P1 Symbol for Private Use 1
-    # E032 92 PU2 P2 Symbol for Private Use 2
-    # E033 93 STS SE Symbol for Set Transmit State
-    # E034 94 CCH CC Symbol for Cancel Character
-    # E035 95 MW MW Symbol for Message Waiting
-    # E036 96 SPA SP Symbol for Start Protected (Guarded) Area
-    # E037 97 EPA EP Symbol for End Protected (Guarded) Area
-    # E038 98 SOS 98 Symbol for Start of String (2)
-    # 99 99 (1)
-    # E03A 9A SCI 9A Symbol for Single Character Introducer (2)
-    # E03B 9B CSI CS Symbol for Control Sequence Introducer (5)
-    # E03C 9C ST ST Symbol for String Terminator
-    # E03D 9D OSC OS Symbol for Operating System Command
-    # E03E 9E PM PM Symbol for Privacy Message
-    # E03F 9F APC AP Symbol for Application Program Command
-
-    variable debug_visuals
-    #modern (c0 seem to have more terminal/font support - C1 can show 8bit c1 codes - but also seems to be limited support)
-
-    #Goal is not to map every control character?
-    #Map of which elements we want to convert - done this way so we can see names of control's that are included: - ease of maintenance compared to just creating the tcl::string::map directly
-    #ETX -ctrl-c
-    #EOT  ctrl-d  (EOF?)
-    #SYN  ctrl-v
-    #SUB  ctrl-z
-    #CAN  ctrl-x
-    #FS   ctrl-\  (SIGQUIT)
-    set visuals_interesting [tcl::dict::create\
-        NUL [list \x00 \u2400]\
-        ETX [list \x03 \u2403]\
-        EOT [list \x04 \u2404]\
-        BEL [list \x07 \u2407]\
-        SYN [list \x16 \u2416]\
-        CAN [list \x18 \u2418]\
-        SUB [list \x1a \u241a]\
-        FS  [list \x1c \u241c]\
-        SOS [list \x98 \ue038]\
-        CSI [list \x9b \ue03b]\
-        ST  [list \x9c \ue03c]\
-        PM  [list \x9e \ue03e]\
-        APC [list \x9f \ue03f]\
-    ]
-    #it turns out we need pretty much everything for debugging
-    set visuals_c0 [tcl::dict::create\
-        NUL [list \x00 \u2400]\
-        SOH [list \x01 \u2401]\
-        STX [list \x02 \u2402]\
-        ETX [list \x03 \u2403]\
-        EOT [list \x04 \u2404]\
-        ENQ [list \x05 \u2405]\
-        ACK [list \x06 \u2406]\
-        BEL [list \x07 \u2407]\
-        BS  [list \x08 \u2408]\
-        HT  [list \x09 \u2409]\
-        LF  [list \x0a \u240a]\
-        VT  [list \x0b \u240b]\
-        FF  [list \x0c \u240c]\
-        CR  [list \x0d \u240d]\
-        SO  [list \x0e \u240e]\
-        SF  [list \x0f \u240f]\
-        DLE [list \x10 \u2410]\
-        DC1 [list \x11 \u2411]\
-        DC2 [list \x12 \u2412]\
-        DC3 [list \x13 \u2413]\
-        DC4 [list \x14 \u2414]\
-        NAK [list \x15 \u2415]\
-        SYN [list \x16 \u2416]\
-        ETB [list \x17 \u2417]\
-        CAN [list \x18 \u2418]\
-        EM  [list \x19 \u2419]\
-        SUB [list \x1a \u241a]\
-        ESC [list \x1b \u241b]\
-        FS  [list \x1c \u241c]\
-        GS  [list \x1d \u241d]\
-        RS  [list \x1e \u241e]\
-        US  [list \x1f \u241f]\
-        SP  [list \x20 \u2420]\
-        DEL [list \x7f \u2421]\
-    ]
-    set map_c0 [dict create]
-    dict for {k v} $visuals_c0 {
-        dict set map_c0 {*}$v
-    }
-
-    #alternate symbols for space
-    # \u2422 Blank Symbol (b with forwardslash overly)
-    # \u2423 Open Box  (square bracket facing up like a tray/box)
-
-    # \u2424 Symbol for Newline (small "NL")
-
-    # \u2425 Symbol for Delete Form Two  (some sort of fat forward-slash thing)
-
-    # \u2426 Symbol for Substitute Form Two  (backwards question mark)
-
-    #these are in the PUA (private use area) unicode block - seem to be rarely supported
-    #the unicode consortium has apparently neglected to provide separate visual representation codepoints for not only the c1 controls (some of which ARE still used e.g in sixels) but various other non-printing chars such as BOM
-    #The debugging/analysis usecase is an important one - surely moreso that some of the emoji stuff coming out of there.
-    #we'll hack in some stuff as needed - may override some of the visuals_c1 which is usually just empty/substitute glyphs
-    #Being repurposed - these could potentially be confused with actual characters depending on the debugging context
-    #To minimize potential confusion - we'll use a longer replacement sequence - which is not ideal from the perspective of terminal column layout debugging
-    #A single unique glyph would be better - although the bracketing for 8-bit codes is a useful visual indicator
-    #(review - BOM should use different brackets to c1?)
-
-    #todo - regularly check if unicode has improved in this area - though with requests for c1 visuals dating back to at least 2011 - it's doubtful.
-    #for 8-bit controls - we will standardize on a fixed width of 4 bracketing with:
-    #\u2987 and \u2988 from Miscellaneous Mathematical Symbols-B (D or fractional-moon shaped brackets)
-    #\u2987 - Z Notation Left Image Bracket
-    #\u2988 - Z Notation Right Image Bracket
-    #selection of these is also based on them being seemingly reasonably widely available in fonts.. review
-    #my apologies if you're debugging z-notation strings!
-    #If only column's-worth of symbol/char needed between the brackets - pad with a space before the closing bracket
-
-    #8-bit brackets
-    set ob8 \u2987; set cb8 \u2988  ;#z-notation image brackets
-
-    #miscellaneous debug code brackets
-    set obm \u27e6 ;set cbm \u27e7  ;#square double brackets from Miscellaneous Mathematical Symbols-A
-
-    #unicode Tags block brackets
-    set obt \u2993 ;set cbt \u2994
-
-    #this private range so rarely supported in fonts - and visuals are unknown, so we will make up some 2-letter codes for now
-    #set visuals_c1 [tcl::dict::create\
-    #    BPH [list \x82 "${ob8}\ue022 $cb8"]\
-    #    NBH [list \x83 "${ob8}\ue023 $cb8"]\
-    #    IND [list \x84 "${ob8}\ue024 $cb8"]\
-    #    NEL [list \x85 "${ob8}\ue025 $cb8"]\
-    #    SSA [list \x86 "${ob8}\ue026 $cb8"]\
-    #    ESA [list \x87 "${ob8}\ue027 $cb8"]\
-    #    HTS [list \x88 "${ob8}\ue028 $cb8"]\
-    #    HTJ [list \x89 "${ob8}\ue029 $cb8"]\
-    #    VTS [list \x8a "${ob8}\ue02a $cb8"]\
-    #    PLD [list \x8b "${ob8}\ue02a $cb8"]\
-    #    PLU [list \x8c "${ob8}\ue02c $cb8"]\
-    #    RI  [list \x8d "${ob8}\ue02d $cb8"]\
-    #    SS2 [list \x8e "${ob8}\ue02e $cb8"]\
-    #    SS3 [list \x8f "${ob8}\ue02f $cb8"]\
-    #    DCS [list \x90 "${ob8}\ue030 $cb8"]\
-    #    PU1 [list \x91 "${ob8}\ue031 $cb8"]\
-    #    PU2 [list \x92 "${ob8}\ue032 $cb8"]\
-    #    STS [list \x93 "${ob8}\ue033 $cb8"]\
-    #    CCH [list \x94 "${ob8}\ue034 $cb8"]\
-    #    MW  [list \x95 "${ob8}\ue035 $cb8"]\
-    #    SPA [list \x96 "${ob8}\ue036 $cb8"]\
-    #    EPA [list \x97 "${ob8}\ue037 $cb8"]\
-    #    SOS [list \x98 "${ob8}\ue038 $cb8"]\
-    #    SCI [list \x9a "${ob8}\ue03a $cb8"]\
-    #    CSI [list \x9b "${ob8}\ue03b $cb8"]\
-    #    ST  [list \x9c "${ob8}\ue03c $cb8"]\
-    #    OSC [list \x9d "${ob8}\ue03d $cb8"]\
-    #    PM  [list \x9e "${ob8}\ue03e $cb8"]\
-    #    APC [list \x9f "${ob8}\ue03f $cb8"]\
-    #]
-
-    #these 2 letter codes only need to disambiguate within the c1 set - they're not great.
-    #these sit within the Latin-1 Supplement block
-    set visuals_c1 [tcl::dict::create\
-        PAD [list \x80 "${ob8}PD$cb8"]\
-        HOP [list \x81 "${ob8}HP$cb8"]\
-        BPH [list \x82 "${ob8}BP$cb8"]\
-        NBH [list \x83 "${ob8}NB$cb8"]\
-        IND [list \x84 "${ob8}IN$cb8"]\
-        NEL [list \x85 "${ob8}NE$cb8"]\
-        SSA [list \x86 "${ob8}SS$cb8"]\
-        ESA [list \x87 "${ob8}ES$cb8"]\
-        HTS [list \x88 "${ob8}HS$cb8"]\
-        HTJ [list \x89 "${ob8}HT$cb8"]\
-        VTS [list \x8a "${ob8}VT$cb8"]\
-        PLD [list \x8b "${ob8}PD$cb8"]\
-        PLU [list \x8c "${ob8}PU$cb8"]\
-        RI  [list \x8d "${ob8}RI$cb8"]\
-        SS2 [list \x8e "${ob8}S2$cb8"]\
-        SS3 [list \x8f "${ob8}S3$cb8"]\
-        DCS [list \x90 "${ob8}DC$cb8"]\
-        PU1 [list \x91 "${ob8}P1$cb8"]\
-        PU2 [list \x92 "${ob8}P2$cb8"]\
-        STS [list \x93 "${ob8}SX$cb8"]\
-        CCH [list \x94 "${ob8}CC$cb8"]\
-        MW  [list \x95 "${ob8}MW$cb8"]\
-        SPA [list \x96 "${ob8}SP$cb8"]\
-        EPA [list \x97 "${ob8}EP$cb8"]\
-        SOS [list \x98 "${ob8}SO$cb8"]\
-        SCI [list \x9a "${ob8}SC$cb8"]\
-        CSI [list \x9b "${ob8}CS$cb8"]\
-        ST  [list \x9c "${ob8}ST$cb8"]\
-        OSC [list \x9d "${ob8}OS$cb8"]\
-        PM  [list \x9e "${ob8}PM$cb8"]\
-        APC [list \x9f "${ob8}AP$cb8"]\
-    ]
-
-    #unicode Tags block - nonprinting mapped to ascii 0-127
-    set visuals_tags [tcl::dict::create]
-    for {set i 917504} {$i < 917632} {incr i} {
-        set asciidec [expr {$i - 917504}]
-        set vis [format %c $asciidec]
-        if {[dict exists $map_c0 $vis]} {
-            set vis [dict get $map_c0 $vis]
-        }
-        tcl::dict::set visuals_tags TAG$asciidec [list [format %c $i] "${obt}$vis${cbt}"]
-    }
-
-
-    set hack [tcl::dict::create]
-    tcl::dict::set hack BOM1 [list \uFEFF "${obm}\U1f4a3$cbm"]    ;#byte order mark/ ZWNBSP (ZWNBSP usage generally deprecated) - a picture of a bomb(2wide glyph)
-    tcl::dict::set hack ZWSP [list \u200B "${obm}ZWSP$cbm"]
-    #review - other boms? Encoding dependent?
-
-    tcl::dict::set hack DCS  [list \x90   "${ob8}\u2328 $cb8"]    ;#keyboard from Miscellaneous Technical - 1 wide + pad.
-    tcl::dict::set hack SOS  [list \x98   "${ob8}\u2380 $cb8"]    ;#Insertion Symbol from Miscellaneous Technical - 1 wide + pad
-    tcl::dict::set hack ST   [list \x9c   "${ob8}\u2383 $cb8"]    ;#Emphasis Symbol from Miscellaneous Technical - 1 wide + pad (graphically related to \u2380)
-    tcl::dict::set hack CSI  [list \x9b   "${ob8}\u2386 $cb8"]    ;#Enter Symbol from Miscellaneous Technical - 1 wide + pad
-    tcl::dict::set hack OSC  [list \x9d   "${ob8}\u2b55$cb8"]     ;#bright red ring from Miscellaneous Symbols and Arrows - 2 wide (OSC could be used for clipboard or other potentially security sensitive functions)
-    tcl::dict::set hack PM   [list \x9e   "${ob8}PM$cb8"]
-    tcl::dict::set hack APC  [list \x9f   "${ob8}\U1f534$cb8"]    ;#bright red ball from Miscellaneoust Symbols and Pictographs - 2 wide (APC also noted as a potential security risk)
-
-    set debug_visuals [tcl::dict::merge $visuals_c0 $visuals_c1 $hack $visuals_tags]
-
-    #for repeated interaction with the same ANSI string - a mechanism to store state is more efficient
-    proc NEW {string} {
-        punk::ansi::class::class_ansistring new $string
-    }
-    proc VIEW {args} {
-        #*** !doctools
-        #[call [fun VIEW] [arg string]]
-        #[para]Return a string with specific ANSI control characters substituted with visual equivalents frome the appropriate unicode C0 and C1 visualisation sets
-        #[para]For debugging purposes, certain other standard control characters are converted to visual representation, for example backspace (mapped to \\U2408 '\U2408')
-        #[para]Horizontal tab is mapped to \\U2409 '\U2409'. For many of the punk terminal text operations, tabs have already been mapped to the appropriate number of spaces using textutil::tabify functions
-        #[para]As punkshell uses linefeed where possible in preference to crlf even on windows, cr is mapped to \\U240D '\U240D' - but lf is left as is.
-
-        variable debug_visuals
-
-        if {![llength $args]} {
-            return ""
-        }
-
-        set string [lindex $args end]
-        set defaults [tcl::dict::create\
-            -esc 1\
-            -cr 1\
-            -lf 0\
-            -vt 0\
-            -ff 1\
-            -ht 1\
-            -bs 1\
-            -sp 1\
-        ]
-        set argopts [lrange $args 0 end-1]
-        if {[llength $argopts] % 2} {
-            error "ansistring VIEW options must be option-value pairs, received '$argopts'. Known opts [tcl::dict::keys $defaults]"
-        }
-        set opts [tcl::dict::merge $defaults $argopts]
-        # -- --- --- --- ---
-        set opt_esc     [tcl::dict::get $opts -esc]
-        set opt_cr      [tcl::dict::get $opts -cr]
-        set opt_lf      [tcl::dict::get $opts -lf]
-        set opt_vt      [tcl::dict::get $opts -vt]
-        set opt_ff      [tcl::dict::get $opts -ff]
-        set opt_ht      [tcl::dict::get $opts -ht]
-        set opt_bs      [tcl::dict::get $opts -bs]
-        set opt_sp      [tcl::dict::get $opts -sp]
-        # -- --- --- --- ---
-
-        # -lf 2, -vt 2 and -ff 2 are useful for CRM mode (Show Control Character Mode) in the terminal - where a newline is expected to display after the character.
-
-
-        set visuals_opt $debug_visuals
-        set visuals_opt [dict remove $visuals_opt CR ESC LF VT FF HT BS SP]
-
-        if {$opt_esc} {
-            tcl::dict::set visuals_opt ESC [list \x1b \u241b]
-        } else {
-            tcl::dict::unset visuals_opt ESC
-        }
-        if {$opt_cr} {
-            tcl::dict::set visuals_opt CR [list \x0d \u240d]
-        }
-        if {$opt_lf == 1} {
-            tcl::dict::set visuals_opt LF [list \x0a \u240a]
-        }
-        if {$opt_lf == 2} {
-            tcl::dict::set visuals_opt LF [list \x0a \u240a\n]
-        }
-        if {$opt_vt ==  1} {
-            tcl::dict::set visuals_opt VT [list \x0b \u240b]
-        }
-        if {$opt_vt ==  2} {
-            tcl::dict::set visuals_opt VT [list \x0b \u240b\n]
-        }
-        switch -exact -- $opt_ff {
-            1 {
-                tcl::dict::set visuals_opt FF [list \x0c \u240c]
-            }
-            2 {
-                tcl::dict::set visuals_opt FF [list \x0c \u240c\n]
-            }
-        }
-        if {$opt_ht} {
-            tcl::dict::set visuals_opt HT [list \x09 \u2409]
-        }
-        if {$opt_bs} {
-            tcl::dict::set visuals_opt BS [list \x08 \u2408]
-        }
-        if {$opt_sp} {
-            tcl::dict::set visuals_opt SP [list \x20 \u2420]
-        }
-
-        #set visuals [tcl::dict::merge $visuals_opt $debug_visuals]
-        #set  charmap [list]
-        #tcl::dict::for {nm chars} $visuals_opt {
-        #    lappend charmap {*}$chars
-        #}
-        #return [tcl::string::map $charmap $string]
-        return [tcl::string::map [concat {*}[dict values $visuals_opt]] $string]
-
-
-        #test of ISO2047 - 7bit - limited set, limited support, somewhat obscure glyphs
-        #return [tcl::string::map [list \033 \U2296 \007 \U237E] $string]
-    }
-
-    #The implementation of viewcodes,viewstyle is more efficiently done in an object for the case where repeated calls of various methods can re-use the internal splits.
-    #for oneshots here - there is only minor overhead to use and destroy the object here.
-    proc VIEWCODES {args} {
-        set string [lindex $args end]
-        if {$string eq ""} {
-            return ""
-        }
-        set arglist [lrange $args 0 end-1]
-        set ansistr [ansistring NEW $string]
-        set result [$ansistr viewcodes {*}$arglist]
-        $ansistr destroy
-        return $result
-    }
-    #an attempt to show the codes and colour/style of the *input*
-    #ie we aren't looking at the row/column positioning - but we do want to keep track of cursor attribute saves and restores
-    proc VIEWSTYLE {args} {
-        set string [lindex $args end]
-        if {$string eq ""} {
-            return ""
-        }
-        set arglist [lrange $args 0 end-1]
-        set ansistr [ansistring NEW $string]
-        set result [$ansistr viewstyle {*}$arglist]
-        $ansistr destroy
-        return $result
-    }
-
-
-    #todo - change to COUNT to emphasize the difference between this and doing a Tcl string length on the ansistriped string!
-    #review. Tabs/elastic tabstops. Do we want to count a tab as one element? Probably so if we are doing so for \n etc and not counting 2W unicode.
-    #Consider leaving tab manipualation for a width function which determines columns occupied for all such things.
-    proc COUNT {string} {
-        #*** !doctools
-        #[call [fun COUNT] [arg string]]
-        #[para]Returns the count of visible graphemes and non-ansi control characters
-        #[para]Incomplete! grapheme clustering support not yet implemented - only diacritics are currently clustered to count as one grapheme.
-        #[para]This will not count strings hidden inside a 'privacy message' or other ansi codes which may have content between their opening escape and their termination sequence.
-        #[para]This is not quite equivalent to calling string length on the result of ansistrip $string due to diacritics and/or grapheme combinations
-        #[para]Note that this returns the number of characters in the payload (after applying combiners)
-        #It is not always the same as the width of the string as rendered on a terminal due to 2wide Unicode characters and the usual invisible control characters such as \r and \n
-        #[para]To get the width, use punk::ansi::printing_length instead, which is also ansi aware.
-
-        #stripping diacritics only makes sense if we are counting them as combiners and also treating unicode grapheme combinations as single entities.
-        #as Our ansistring INDEX function returns the character with diacritics, and will ultimately return grapheme clusters as a single element - we strip theme here as not counted.
-        #todo - combiners/diacritics? just map them away here?
-        set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-        set string [regsub -all $re_diacritics $string ""]
-
-        #we want length to return number of glyphs.. not screen width. Has to be consistent with index function
-        tcl::string::length [ansistrip $string]
-    }
-    #included as a test/verification  - slightly slower.
-    #grapheme split version may end up being used once it supports unicode grapheme clusters
-    proc count2 {string} {
-        #we want count to return number of glyphs.. not screen width. Has to be consistent with index function
-        return [llength [punk::char::grapheme_split [ansistrip $string]]]
-    }
-
-    proc length {string} {
-        tcl::string::length [ansistrip $string]
-    }
-
-    proc _splits_trimleft {sclist} {
-        set intext 0
-        set outlist [list]
-        foreach {pt ansiblock} $sclist {
-            if {$ansiblock ne ""} {
-                if {!$intext} {
-                    if {$pt eq "" || [regexp {^\s+$} $pt]} {
-                        lappend outlist "" $ansiblock
-                    } else {
-                        lappend outlist [tcl::string::trimleft $pt] $ansiblock
-                        set intext 1
-                    }
-                } else {
-                    lappend outlist $pt $ansiblock
-                }
-            } else {
-                if {!$intext} {
-                    if {$pt eq "" || [regexp {^\s+$} $pt]} {
-                        lappend outlist ""
-                    } else {
-                        lappend outlist [tcl::string::trimleft $pt]
-                        set intext 1
-                    }
-                } else {
-                    lappend outlist $pt
-                }
-            }
-        }
-        return $outlist
-    }
-    proc _splits_trimright {sclist} {
-        set intext 0
-        set outlist [list]
-        #we need to account for empty ansiblock var caused by dual-var iteration over odd length list
-        foreach {pt ansiblock} [lreverse $sclist] {
-            if {$ansiblock ne ""} {
-                if {!$intext} {
-                    if {$pt eq "" || [regexp {^\s+$} $pt]} {
-                        lappend outlist "" $ansiblock
-                    } else {
-                        lappend outlist [tcl::string::trimright $pt] $ansiblock
-                        set intext 1
-                    }
-                } else {
-                    lappend outlist $pt $ansiblock
-                }
-            } else {
-                if {!$intext} {
-                    if {$pt eq "" || [regexp {^\s+$} $pt]} {
-                        lappend outlist ""
-                    } else {
-                        lappend outlist [tcl::string::trimright $pt]
-                        set intext 1
-                    }
-                } else {
-                    lappend outlist $pt
-                }
-            }
-        }
-        return [lreverse $outlist]
-    }
-
-    proc _splits_trim {sclist} {
-        return [_splits_trimright [_splits_trimleft $sclist]]
-    }
-
-    #Note that trim/trimleft/trimright will trim spaces at the extremities that are styled with background colour, underline etc
-    #that may be unexpected, but it's probably the only thing that makes sense. Plain string trim can chop off whitespace that is extraneous to the ansi entirely.
-    proc trimleft {string args} {
-        set intext 0
-        set out ""
-        #for split_codes only first or last pt can be empty string - but we can also get an empty ansiblock by using foreach with 2 vars on an odd-length list
-        foreach {pt ansiblock} [split_codes $string] {
-            if {!$intext} {
-                if {$pt eq "" || [regexp {^\s+$} $pt]} {
-                    append out $ansiblock
-                } else {
-                    append out [tcl::string::trimleft $pt]$ansiblock
-                    set intext 1
-                }
-            } else {
-                append out $pt$ansiblock
-            }
-        }
-        return $out
-    }
-    proc trimright {string} {
-        if {$string eq ""} {return ""} ;#excludes the case where split_codes would return nothing
-        set rtrimmed_list [_splits_trimright [split_codes $string]]
-        return [join $rtrimmed_list ""]
-    }
-    proc trim {string} {
-        #make sure we do our ansi-scanning split only once - so use list-based trim operations
-        #order of left vs right probably makes zero difference - as any reduction the first operation can do is only in terms of characters at other end of list - not in total list length
-        #we save a single function call by calling both here rather than _splits_trim
-        join [_splits_trimright [_splits_trimleft [split_codes $string]]] ""
-    }
-
-    #Capitalised because it's the clustered grapheme/controlchar index - not the tcl string index
-    proc INDEX {string index} {
-        #*** !doctools
-        #[call [fun index] [arg string] [arg index]]
-        #[para]Takes a string that possibly contains ansi codes such as colour,underline etc (SGR codes)
-        #[para]Returns the character (with applied ansi effect) at position index
-        #[para]The string could contain non SGR ansi codes - and these will (mostly) be ignored, so shouldn't affect the output.
-        #[para]Some terminals don't hide 'privacy message' and other strings within an ESC X ESC ^ or ESC _ sequence (terminated by ST)
-        #[para]It's arguable some of these are application specific - but this function takes the view that they are probably non-displaying - so index won't see them.
-        #[para]If the caller wants just the character - they should use a normal string index after calling ansistrap, or call ansistrip afterwards.
-        #[para]As any operation using end-+<int> will need to strip ansi to precalculate the length anyway; the caller should probably just use ansistrip and standard string index if the ansi coded output isn't required and they are using and end-based index.
-        #[para]In fact, any operation where the ansi info isn't required in the output would probably be slightly more efficiently obtained by using ansistrip and normal string operations on that.
-        #[para]The returned character will (possibly) have a leading ansi escape sequence but no trailing escape sequence - even if the string was taken from a position immediately before a reset or other SGR ansi code
-        #[para]The ansi-code prefix in the returned string is built up by concatenating previous SGR ansi codes seen - but it is optimised to re-start the process if any full SGR reset is encountered.
-        #[para]The code sequence doesn't detect individual properties being turned on and then off again, only full resets; so in some cases the ansi-prefix may not be as short as it could be.
-        #[para]This shouldn't make any difference to the visual output - but a possible future enhancement is something to produce the shortest ansi sequence possible
-        #[para]Notes:
-        #[para]This function has to split the whole string into plaintext & ansi codes even for a very low index
-        #[para]Some sort of generator that parses more of the string as required might be more efficient for large chunks.
-        #[para]For end-x operations we have to pre-calculate the content-length by stripping the ansi - which is also potentially sub-optimal
-
-        set ansisplits [split_codes_single $string]; #we get empty pt(plaintext) between each ansi code that is in a run
-
-        #todo - end-x  +/-x+/-x etc
-        set original_index $index
-
-        set index [tcl::string::map [list _ ""] $index]
-        #short-circuit some trivial cases
-        if {[tcl::string::is integer -strict $index]} {
-            if {$index < 0} {return ""}
-            #this only short-circuits an index greater than length including ansi-chars
-            #we don't want to spend cycles stripping ansi for this test so code below will still have to handle index just larger than content-length but still less than entire length
-            if {$index > [tcl::string::length $string]} {return ""}
-        } else {
-            if {[tcl::string::match end* $index]} {
-                #for end- we will probably have to blow a few cycles stripping first and calculate the length
-                if {$index ne "end"} {
-                    set op [tcl::string::index $index 3]
-                    set offset [tcl::string::range $index 4 end]
-                    if {$op ni {+ -} || ![tcl::string::is integer -strict $offset]} {error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"}
-                    if {$op eq "+" && $offset != 0} {
-                        return ""
-                    }
-                } else {
-                    set offset 0
-                }
-                #by now, if op = + then offset = 0  so we only need to handle the minus case
-                set payload_len [punk::ansi::ansistring::length $string] ;#a little bit wasteful - but hopefully no big deal
-                if {$offset == 0} {
-                    set index [expr {$payload_len-1}]
-                } else {
-                    set index [expr {($payload_len-1) - $offset}]
-                }
-                if {$index < 0} {
-                    #don't waste time splitting and looping the string
-                    return ""
-                }
-            } else {
-                #we are trying to avoid evaluating unbraced expr of potentially insecure origin
-                regexp {^([+-]{0,1})(.*)} $index _match sign tail ;#should always match - even empty string
-                if {[tcl::string::is integer -strict $tail]} {
-                    #plain +-<int>
-                    if {$op eq "-"} {
-                        #return nothing for negative indices as per Tcl's lindex etc
-                        return ""
-                    }
-                    set index $tail
-                } else {
-                    if {[regexp {(.*)([+-])(.*)} $index _match a op b]} {
-                        if {[tcl::string::is integer -strict $a] && [tcl::string::is integer -strict $b]} {
-                            if {$op eq "-"} {
-                                set index [expr {$a - $b}]
-                            } else {
-                                set index [expr {$a + $b}]
-                            }
-                        } else {
-                            error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                        }
-                    } else {
-                        error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                    }
-                }
-            }
-        }
-
-        #any pt could be empty if using split_codes_single (or just first and last pt if split_codes)
-        set low   -1
-        set high  -1
-        set pt_index -2
-        set pt_found -1
-        set char ""
-        #set grapheme_codestacks [list] ;#stack of codes per grapheme - will be flattened/coalesced
-        set codestack [list]
-        #we can't only apply leading sequence from previous code - as there may be codes in effect from earlier, so we have to track as we go
-        #(this would apply even if we used split_codes - but then we would need to do further splitting of each codeset anyway)
-        foreach {pt code} $ansisplits {
-            incr pt_index 2
-            #we want an index per grapheme - whether it is doublewide or single
-
-            if {$pt ne ""} {
-                set graphemes [punk::char::grapheme_split $pt]
-                set low [expr {$high + 1}] ;#last high
-                #incr high [tcl::string::length $pt]
-                incr high [llength $graphemes]
-            }
-
-            if {$pt ne "" && ($index >= $low && $index <= $high)} {
-                set pt_found $pt_index
-                #set char [tcl::string::index $pt $index-$low]
-                set char [lindex $graphemes $index-$low]
-                break
-            }
-
-            if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                #we can throw away previous codestack
-                set codestack [list]
-            } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                set codestack [list $code]
-            } else {
-                #may have partial resets
-                #sgr_merge_list will handle at end
-                #we don't apply non SGR codes to our output. This is probably what is wanted - but should be reviewed.
-                #Review - consider if any other types of code make sense to retain in the output in this context.
-                if {[punk::ansi::codetype::is_sgr $code]} {
-                    lappend codestack $code
-                }
-            }
-
-        }
-        if {$pt_found >= 0} {
-            return [punk::ansi::codetype::sgr_merge_list {*}$codestack]$char
-        } else {
-            return ""
-        }
-    }
-
-    #helper to convert indices (possibly of form x+y end-x etc) to numeric values within the payload range i.e without ansi
-    #return empty string for each index that is out of range
-    #review - this is possibly too slow to be very useful as is.
-    # consider converting to oo and maintaining state of ansisplits so we don't repeat relatively expensive operations for same string
-    #see also punk::lindex_resolve / punk::lindex_get for ways to handle tcl list/string indices without parsing them.
-    proc INDEXABSOLUTE {string args} {
-        set payload_len -1 ;# -1 as token to indicate we haven't calculated it yet (only want to call it once at most)
-        set testindices [list]
-        foreach index $args {
-            if {[tcl::string::is integer -strict $index]} {
-                if {$index < 0} {
-                    lappend testindices ""
-                } elseif {$index > [tcl::string::length $string]} {
-                    #this only short-circuits an index greater than length including ansi-chars
-                    #we don't want to spend cycles stripping ansi for this test so code below will still have to handle index just larger than content-length but still less than entire length
-                    lappend testindices ""
-                } else {
-                    lappend testindices $index
-                }
-            } else {
-                if {[tcl::string::match end* $index]} {
-                    #for end- we will probably have to blow a few cycles stripping first and calculate the length
-                    if {$index ne "end"} {
-                        set op [tcl::string::index $index 3]
-                        set offset [tcl::string::range $index 4 end]
-                        if {$op ni {+ -} || ![tcl::string::is integer -strict $offset]} {error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"}
-                        if {$op eq "+" && $offset != 0} {
-                            lappend testindices ""
-                            continue
-                        }
-                    } else {
-                        set offset 0
-                    }
-                    #by now, if op = + then offset = 0  so we only need to handle the minus case
-                    if {$payload_len == -1} {
-                        set payload_len [punk::ansi::ansistring::length $string] ;#a little bit wasteful - but hopefully no big deal
-                    }
-                    if {$offset == 0} {
-                        set index [expr {$payload_len-1}]
-                    } else {
-                        set index [expr {($payload_len-1) - $offset}]
-                    }
-                    if {$index < 0} {
-                        lappend testindices ""
-                    } else {
-                        lappend testindices $index
-                    }
-                } else {
-                    #we are trying to avoid evaluating unbraced expr of potentially insecure origin
-                    regexp {^([+-]{0,1})(.*)} $index _match sign tail ;#should always match - even empty string
-                    if {[tcl::string::is integer -strict $tail]} {
-                        #plain +-<int>
-                        if {$op eq "-"} {
-                            #return nothing for negative indices as per Tcl's lindex etc
-                            lappend indices ""
-                            continue
-                        }
-                        set index $tail
-                        lappend testindices $index
-                    } else {
-                        if {[regexp {(.*)([+-])(.*)} $index _match a op b]} {
-                            if {[tcl::string::is integer -strict $a] && [tcl::string::is integer -strict $b]} {
-                                if {$op eq "-"} {
-                                    set index [expr {$a - $b}]
-                                } else {
-                                    set index [expr {$a + $b}]
-                                }
-                            } else {
-                                error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                            }
-                        } else {
-                            error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                        }
-                        lappend testindices $index
-                    }
-                }
-            }
-            #assertion - we made exactly one append to testindices if there was no error
-        }
-        #we now have numeric or empty string indices - but haven't fully checked they are within the underlying payload length
-
-        if {[join $testindices ""] eq ""} {
-            #don't calc ansistring length if no indices to check
-            return $testindices
-        }
-        if {$payload_len == -1} {
-            set payload_len [punk::ansi::ansistring::length $string]
-        }
-        set indices [list]
-        foreach ti $testindices {
-            if {$ti ne ""} {
-                if {$ti < $payload_len} {
-                    lappend indices $ti
-                } else {
-                    lappend indices ""
-                }
-            } else {
-                lappend indices ""
-            }
-        }
-        return $indices
-
-    }
-
-    #Todo - rows! Note that a 'row' doesn't represent an output row if the ANSI string we are working with contains movement/cursor restores etc.
-    #The column/row concept works for an ansistring that has been 'rendered' to some defined area.
-    #row for arbitrary ANSI input only tells us which line of input we are in - e.g a single massive line of ANSI input would appear to have one row but could result in many rendered output rows.
-
-    #return pair of column extents occupied by the character index supplied.
-    #single-width grapheme will return pair of integers of equal value
-    #double-width grapheme will return a pair of consecutive indices
-    proc INDEXCOLUMNS {string idx} {
-        #There is an index per grapheme - whether it is 1 or 2 columns wide
-        set index [lindex [INDEXABSOLUTE $string $idx] 0]
-        if {$index eq ""} {
-            return ""
-        }
-        set ansisplits [split_codes_single $string]; #we get empty pt(plaintext) between each ansi code that is in a run
-        set low -1 ;#low and high grapheme indexes
-        set high -1
-        set lowc 0 ;#low and high column (1 based)
-        set highc 0
-        set col1 ""
-        set col2 ""
-        set row 1
-        foreach {pt code} $ansisplits {
-            if {$pt ne ""} {
-                set ptlines [split $pt \n]
-                set ptlinecount [llength $ptlines]
-                set ptlineindex 0
-                foreach ptline $ptlines {
-                    set graphemes [punk::char::grapheme_split $ptline]
-                    if {$ptlineindex > 0} {
-                        #todo - account for previous \n as a grapheme .. what column? It should theoretically be in the rightmost column
-                        #zero width
-                        set low [expr {$high + 1}]
-                        set lowc [expr {$highc + 1}]
-                        set high $low
-                        set highc $lowc
-                        if {$index == $low} {
-                            set char \n
-                            set col1 $lowc
-                            set col2 $col1
-                            break
-                        }
-                        incr row
-                        set lowc 0
-                        set highc 0
-                    }
-                    set low [expr {$high + 1}] ;#last high
-                    set lowc [expr {$highc + 1}]
-                    set high [expr {$low + [llength $graphemes] -1}]
-                    set highc [expr {$lowc + [punk::char::ansifreestring_width $ptline] -1}]
-                    #puts "---row:$row lowc:$lowc highc:$highc $ptline  graphemes:$graphemes"
-                    if {$index >= $low && $index <= $high} {
-                        set char [lindex $graphemes $index-$low]
-                        set prefix [join [lrange $graphemes 0 [expr {$index-$low-1}]] ""]
-                        set prefixlen [punk::char::ansifreestring_width $prefix]
-                        set col1 [expr {$lowc + $prefixlen}]
-                        set gwidth [punk::char::ansifreestring_width $char]
-                        if {$gwidth < 1} {
-                            puts stderr "ansistring INDEXCOLUMNS warning - grapheme width zero at column $col1 ??"
-                            return "" ;#grapheme doesn't occupy a column and isn't a newline? - review
-                        }
-                        set col2 [expr {$col1 + ($gwidth -1)}]
-                        break
-                    }
-                    incr ptlineindex
-                }
-            }
-        }
-        if {$col1 ne "" & $col2 ne ""} {
-            return [list $col1 $col2]
-        }
-    }
-
-    #multiple rows - return a list?
-    #return the grapheme index that occupies column col (could be first or second half of 2-wide grapheme)
-    proc COLUMNINDEX {string col} {
-
-        set ansisplits [split_codes_single $string]; #we get empty pt(plaintext) between each ansi code that is in a run
-        set lowindex -1 ;#low and high grapheme indexes
-        set highindex -1
-        set lowc 0 ;#low and high column (1 based)
-        set highc 0
-        set col1 ""
-        set col2 ""
-        foreach {pt code} $ansisplits {
-            if {$pt ne ""} {
-                if {[tcl::string::last \n $pt] < 0} {
-                    set graphemes [punk::char::grapheme_split $pt]
-                    set lowindex [expr {$highindex + 1}] ;#last high
-                    set lowc [expr {$highc + 1}]
-                    set highindex [expr {$lowindex + [llength $graphemes] -1}]
-                    set highc [expr {$lowc + [punk::char::ansifreestring_width $pt] -1}]
-                    if {$col >= $lowc && $col <= $highc} {
-                        if {$col == $lowc} {
-                            return $lowindex
-                        } elseif {$col == $highc} {
-                            return $highindex
-                        }
-                        set index [expr {$lowindex -1}]
-                        set str ""
-                        foreach g $graphemes {
-                            incr index
-                            append str $g
-                            set width [punk::char::ansifreestring_width $str]
-                            if {$lowc-1 + $width >= $col} {
-                                return $index
-                            }
-                        }
-                        error "ansistring COLUMNINDEX '$string' $col not found" ;#assertion - shouldn't happen
-                    }
-                } else {
-                    error "ansistring COLUMNINDEX multiline not implemented"
-                }
-            }
-        }
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::ansi::ta ---}]
-}
-
-
-tcl::namespace::eval punk::ansi::control {
-    proc APC {args} {
-        return \x1b_[join $args {;}]\x1b\\
-    }
-    proc APC8 {args} {
-        return \x9f[join $args {;}]\x9c
-    }
-    proc CSI {args} {
-        set finalarg [lindex $args end]
-        set finalbyte [string index $finalarg end]
-        if {![regexp {[\x40-\x73]} $finalbyte]} {
-            error "::punk::ansi::control::CSI final byte must be one in the set @A-Z\[\\\]^_`a-z\{|\}~"
-        }
-        if {$finalarg eq $finalbyte} {
-            return \x1b\[[join [lrange $args 0 end-1] {;}]$finalbyte
-        } else {
-            return \x1b\[[join $args {;}]
-        }
-    }
-    proc CSI8 {args} {
-        set finalarg [lindex $args end]
-        set finalbyte [string index $finalarg end]
-        if {![regexp {[\x40-\x73]} $finalbyte]} {
-            error "::punk::ansi::control::CSI final byte must be one in the set @A-Z\[\\\]^_`a-z\{|\}~"
-        }
-        if {$finalarg eq $finalbyte} {
-            return \x9b[join [lrange $args 0 end-1] {;}]$finalbyte
-        } else {
-            return \x9b[join $args {;}]
-        }
-    }
-    proc DCS {args} {
-        return \x1bP[join $args {;}]\x1b\\
-    }
-    proc DCS8 {args} {
-        return \x90[join $args {;}]\x9c
-    }
-    proc OSC {args} {
-        return \x1b\][join $args {;}]\x1b\\
-    }
-    proc OSC8 {args} {
-        return \x9d[join $args {;}]\x9c
-    }
-}
-
-namespace eval punk::ansi::colour {
-    package require punk::assertion
-    if {[catch {namespace import ::punk::assertion::assert} errM]} {
-        puts stderr "punk error importing punk::assertion::assert\n$errM"
-        puts stderr "punk::a* commands:[info commands ::punk::a*]"
-    }
-    punk::assertion::active on
-
-
-    #see also the tk function
-    #winfo rgb . <colourname>|#XXXXXX|#XXX
-    #(example in punk::ansi::colourmap::get_rgb_using_tk)
-
-    #proc percent2rgb {n} {
-    #   # map 0..100 to a red-yellow-green sequence
-    #   set n     [expr {$n < 0? 0: $n > 100? 100: $n}]
-    #   set red   [expr {$n > 75? 60 - ($n * 15 / 25) : 15}]
-    #   set green [expr {$n < 50? $n * 15 / 50 : 15}]
-    #   format    "#%01x%01x0" $red $green
-    #} ;#courtesy of RS (from tcl wiki)
-    proc percent2#rgb {n} {
-       # map 0..100 to a red-yellow-green sequence
-       set n     [expr {$n < 0? 0: $n > 100? 100: $n}]
-       set red   [expr {$n > 75? 1020 - ($n * 255 / 25) : 255}]
-       set green [expr {$n < 50? $n * 255 / 50 : 255}]
-       format    "#%02x%02x00" $red $green
-    }
-
-    proc random#rgb {} {
-        format #%06x [expr {int(rand() * 0xFFFFFF)}]
-    }
-
-
-    #see also colors package
-    #https://sourceforge.net/p/irrational-numbers/code/HEAD/tree/pkgs/Colors/trunk/colors.tcl#l159
-
-
-    # classic formula for luminance (0.0 .. 100.0)
-    proc luminance {R G B} {
-        return [expr {(0.3*$R + 0.59*$G + 0.11*$B)/255.0}]
-    }
-    #New colour's luminance is dark if orig-colour is bright, and viceversa
-    #(note not all colours are invertable to return original)
-    proc contrasting {R G B} {
-        set lum [luminance $R $G $B]
-        if {$lum < 0.597} {
-            set lum 0.9
-        } else {
-            set lum 0.2
-        }
-        lassign [RGB2hsl $R $G $B] h s l
-        return [hsl2RGB $h $s $lum]
-    }
-    proc contrast_pair {R G B} {
-        set contra [contrasting $R $G $B]
-        set back [contrasting {*}$contra]
-        return [list $back $contra] ;#back may or may not equal original R G B
-    }
-
-
-    proc hsl2RGB { H S L } {
-        if { $L < 0.5 } {
-            set Q [expr {$L*(1.0+$S)}]
-        } else {
-            set Q [expr {$L+$S-($L*$S)}]
-        }
-        set P [expr {2.0*$L-$Q}]
-        set Hk [expr {$H/360.0}]
-        set T(R) [expr {$Hk+1.0/3.0}]
-        set T(G) $Hk
-        set T(B) [expr {$Hk-1.0/3.0}]
-
-        # normalize
-        foreach c {R G B} {
-            if {$T($c) < 0.0} { set T($c) [expr {$T($c)+1.0}] }
-            if {$T($c) > 1.0} { set T($c) [expr {$T($c)-1.0}] }
-        }
-
-        foreach c {R G B} {
-            if {$T($c) < (1.0/6.0)} {
-                set T($c) [expr {$P+($Q-$P)*6.0*$T($c)}]
-            } elseif {$T($c) < 0.5} {
-                set T($c) $Q
-            } elseif {$T($c) < (2.0/3.0)} {
-                set T($c) [expr {$P+($Q-$P)*(2.0/3.0-$T($c))*6.0}]
-            } else {
-                set T($c) $P
-            }
-            set T($c) [expr {round($T($c)*255)}]
-        }
-
-        return [list $T(R) $T(G) $T(B)]
-    }
-    proc RGB2hsl { R G B } {
-        set r [expr {$R/255.0}]
-        set g [expr {$G/255.0}]
-        set b [expr {$B/255.0}]
-
-        set max $r
-        set min $r
-        if { $g > $max } { set max $g }
-        if { $g < $min } { set min $g }
-        if { $b > $max } { set max $b }
-        if { $b < $min } { set min $b }
-
-        if { $max == $min } {
-            set H 0.0
-        } elseif { $b == $max } {
-            set H [expr {60* ($r-$g)/($max-$min)+240}]
-        } elseif { $g == $max } {
-            set H [expr {60* ($b-$r)/($max-$min)+120}]
-        } else {
-            # $r == $max
-            if { $g >= $b } {
-                set H [expr {60* ($g-$b)/($max-$min)}]
-            } else {
-                set H [expr {60* ($g-$b)/($max-$min)+360}]
-            }
-        }
-
-        set L [expr {($max+$min)/2}]
-
-        if { $L == 0.0  ||  $max == $min } {
-            set S 0.0
-        } elseif { $L <= 0.5 } {
-            set S [expr {($max-$min)/($max+$min)}]
-        } else {
-            set S [expr {($max-$min)/(2.0-($max+$min))}]
-        }
-
-        return [list $H $S $L]
-    }
-
-
-    #red green blue to hsl (hue saturation luminance)
-    #https://www.rapidtables.com/convert/color/rgb-to-hsl.html
-    proc jexer_rgb_to_hsl {red green blue} {
-        #algorithm port from Jexer LegacySixelEncode.java - with thanks to Autumn Lamonte (MIT lic)
-        assert {$red >=0 && $red <= 255}
-        assert {$green >=0 && $green <= 255}
-        assert {$blue >=0 && $blue <= 255}
-        set R [expr {$red / 255.0}]
-        set G [expr {$green / 255.0}]
-        set B [expr {$blue / 255.0}]
-        set Rmax 0
-        set Gmax 0
-        set Bmax 0
-        set min [expr {$R < $G ? $R : $G}]
-        set min [expr {$min < $B ? $min : $B}]
-        set max 0
-        if {($R >= $G) && ($R >= $B)} {
-            set max $R
-            set Rmax 1
-        } elseif {($G >= $R) && ($G >= $B)} {
-            set max $G
-            set Gmax 1
-        } elseif {($B >= $G) &&  ($B >= $R)} {
-            set max $B
-            set Bmax 1
-        }
-        set L [expr {($min + $max) / 2.0}]
-        set H 0.0
-        set S 0.0
-        #REVIEW - java allows floating point division by 0.0 - producing positive infinity, negative infinity or NaN
-        #This makes the original java algorithm a little more obscure
-        if {$min != $max} {
-            #no divide by zero issues due to min != max
-            if {$L < 0.5} {
-                set S [expr {($max - $min) / ($max + $min)}]
-            } else {
-                set S [expr {($max - $min) / (2.0 - $max - $min)}]
-            }
-        }
-        if {$Rmax} {
-            #puts "G'$G' B'$B' max'$max' min'$min'"
-            assert {$Gmax == 0}
-            assert {$Bmax == 0}
-            if {($max - $min) == 0} {
-                set H 0.0 ;#review
-            } else {
-                set H [expr {($G - $B) / ($max - $min)}]
-            }
-        } elseif {$Gmax} {
-            assert {$Rmax == 0}
-            assert {$Bmax == 0}
-            if {($max - $min) == 0} {
-                set H 2.0
-            } else {
-                set H [expr {2.0 + ($B - $R) / ($max - $min)}]
-            }
-        } elseif {$Bmax} {
-            assert {$Rmax == 0}
-            assert {$Gmax == 0}
-            if {($max - $min) == 0} {
-                set H 4.0
-            } else {
-                set H [expr {4.0 + ($R - $G) / ($max - $min)}]
-            }
-        }
-        if {$H < 0.0} {
-            set H [expr {$H + 6.0}]
-        }
-
-        #Tcl mathfunc round vs int (which rounds down)
-        set hue [expr {round($H * 60)}]
-        set sat [expr {round($S * 100)}]
-        set lum [expr {round($L * 100)}]
-        assert {$hue >= 0 && $hue <= 360}
-        assert {$sat >= 0 && $sat <= 100}
-        assert {$lum >= 0 && $lum <= 100}
-
-        return [list $hue $sat $lum]
-    }
-}
-tcl::namespace::eval punk::ansi::internal {
-    proc splitn {str {len 1}} {
-        #from textutil::split::splitn
-        if {$len <= 0} {
-            return -code error "len must be > 0"
-        }
-        if {$len == 1} {
-            return [split $str {}]
-        }
-        set result [list]
-        set max [tcl::string::length $str]
-        set i 0
-        set j [expr {$len -1}]
-        while {$i < $max} {
-            lappend result [tcl::string::range $str $i $j]
-            incr i $len
-            incr j $len
-        }
-        return $result
-    }
-    proc splitx {str {regexp {[\t \r\n]+}}} {
-        #from textutil::split::splitx
-        # Bugfix 476988
-        if {$str eq ""} {
-            return {}
-        }
-        if {$regexp eq ""} {
-            return [::split $str ""]
-        }
-        if {[regexp $regexp {}]} {
-            return -code error \
-            "splitting on regexp \"$regexp\" would cause infinite loop"
-        }
-        set list  {}
-        set start 0
-        while {[regexp -start $start -indices -- $regexp $str match submatch]} {
-            #foreach {subStart subEnd} $submatch break
-            lassign $submatch subStart subEnd
-            #foreach {matchStart matchEnd} $match break
-            lassign $match matchStart matchEnd
-            incr matchStart -1
-            incr matchEnd
-            lappend list [tcl::string::range $str $start $matchStart]
-            if {$subStart >= $start} {
-                lappend list [tcl::string::range $str $subStart $subEnd]
-            }
-            set start $matchEnd
-        }
-        lappend list [tcl::string::range $str $start end]
-        return $list
-    }
-
-    proc printing_length_addchar {i c} {
-        upvar outchars outc
-        upvar outsizes outs
-        set nxt [llength $outc]
-        if {$i < $nxt} {
-            lset outc $i $c
-        } else {
-            lappend outc $c
-        }
-    }
-
-    #string to 2digit hex - e.g used by XTGETTCAP
-    proc str2hex {input} {
-        set 2hex ""
-        foreach ch [split $input ""] {
-            append 2hex [format %02X [scan $ch %c]]
-        }
-        return $2hex
-    }
-    proc hex2str {2digithexchars} {
-        set 2digithexchars [tcl::string::map [list _ ""] $2digithexchars] ;#compatibility with  tcl tip 551 (compatibility in the sense that users might expect to be able to use underscores and it's nice to support the syntax here too - not that it's required)
-        if {$2digithexchars eq ""} {
-            return ""
-        }
-        if {[tcl::string::length $2digithexchars] % 2} {
-            error "hex2str requires an even number of hex digits (2 per character)"
-        }
-        set 2str ""
-        foreach pair [splitn $2digithexchars 2] {
-            append 2str [format %c 0x$pair]
-        }
-        return $2str
-    }
-}
-
-tcl::namespace::eval punk::ansi {
-    namespace import ::punk::ansi::ta::detect
-}
-
-#inserting into global namespace like this should be kept to a minimum.. but this is considered a core aspect of punk::ansi
-#todo - document
-interp alias {} ansistring {} ::punk::ansi::ansistring
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::ansi ::punk::ansi::class ::punk::ansi::ta
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::ansi [tcl::namespace::eval punk::ansi {
-    variable version
-    set version 0.1.1
-}]
-return
-
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ansi/colourmap-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ansi/colourmap-0.1.0.tm
deleted file mode 100644
index 6e8e28e4..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ansi/colourmap-0.1.0.tm
+++ /dev/null
@@ -1,966 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2025
-#
-# @@ Meta Begin
-# Application ::punk::ansi::colourmap 0.1.0
-# Meta platform     tcl
-# Meta license      MIT
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin shellspy_module_::punk::ansi::colourmap 0 0.1.0]
-#[copyright "2025"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}]
-#[require ::punk::ansi::colourmap]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of ::punk::ansi::colourmap
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by ::punk::ansi::colourmap
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-tcl::namespace::eval ::punk::ansi::colourmap {
-    # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-    # Base namespace
-    # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-    #*** !doctools
-    #[subsection {Namespace ::punk::ansi::colourmap}]
-    #[para] Core API functions for ::punk::ansi::colourmap
-    #[list_begin definitions]
-
-    variable PUNKARGS
-
-    #----------------------------------------------
-    #todo - document vars as part of package API
-    #- or provide a function to return varnames?
-    #- or wrap each in a function and see if any performance/memory impact? (readonly - so should just be a reference without any copying?)
-    #TK_colour_map
-    #TK_colour_map_lookup
-    #TK_colour_map_merge
-    #TK_colour_map_reverse
-    #----------------------------------------------
-
-
-
-    #significantly slower than tables - but here as a check/test
-    lappend PUNKARGS [list {
-        @id     -id     ::punk::ansi::colourmap::get_rgb_using_tk
-        @cmd    -name     punk::ansi::colourmap::get_rgb_using_tk -help\
-            "This function requires Tk to function, and will call
-            'package require tk' to load it.
-            The name argument accepts Tk colour names or hex values
-            in either #XXX or #XXXXXX format.
-            Tk colour names can be displayed using the command:
-             punk::ansi::a? tk ?glob..?
-
-            get_rgb_using_tk returns a decimal rgb string delimited with dashes.
-            e.g
-              get_rgb_using_tk #FFF
-                255-255-255
-              get_rgb_using_tk SlateBlue
-                106-90-205"
-        @leaders
-        name -type string|stringstartswith(#)
-    }]
-    proc get_rgb_using_tk {name} {
-        package require tk
-        #assuming 'winfo depth .' is always 32 ?
-        set RGB [winfo rgb . $name]
-        set rgb [lmap n $RGB {expr {$n / 256}}]
-        return [join $rgb -]
-    }
-
-    variable TK_colour_map
-    tcl::dict::set TK_colour_map "alice blue"       240-248-255
-    tcl::dict::set TK_colour_map AliceBlue          240-248-255
-    tcl::dict::set TK_colour_map "antique white"    250-235-215
-    tcl::dict::set TK_colour_map AntiqueWhite       250-235-215
-    tcl::dict::set TK_colour_map AntiqueWhite1      255-239-219
-    tcl::dict::set TK_colour_map AntiqueWhite2      238-223-204
-    tcl::dict::set TK_colour_map AntiqueWhite3      205-192-176
-    tcl::dict::set TK_colour_map AntiqueWhite4      139-131-120
-    tcl::dict::set TK_colour_map aqua               0-255-255
-    tcl::dict::set TK_colour_map aquamarine         127-255-212
-    tcl::dict::set TK_colour_map aquamarine1        127-255-212
-    tcl::dict::set TK_colour_map aquamarine2        118-238-198
-    tcl::dict::set TK_colour_map aquamarine3        102-205-170
-    tcl::dict::set TK_colour_map aquamarine4        69-139-16
-    tcl::dict::set TK_colour_map azure              240-255-255
-    tcl::dict::set TK_colour_map azure1	            240-255-255
-    tcl::dict::set TK_colour_map azure2	            224-238-238
-    tcl::dict::set TK_colour_map azure3	            193-205-205
-    tcl::dict::set TK_colour_map azure4	            131-139-139
-    tcl::dict::set TK_colour_map beige              245-245-220
-    tcl::dict::set TK_colour_map bisque	            255-228-196
-    tcl::dict::set TK_colour_map bisque1            255-228-196
-    tcl::dict::set TK_colour_map bisque2            238-213-183
-    tcl::dict::set TK_colour_map bisque3            205-183-158
-    tcl::dict::set TK_colour_map bisque4            139-125-107
-    tcl::dict::set TK_colour_map black              0-0-0
-    tcl::dict::set TK_colour_map "blanched almond"  255-235-205
-    tcl::dict::set TK_colour_map BlanchedAlmond     255-235-205
-    tcl::dict::set TK_colour_map blue               0-0-255
-    tcl::dict::set TK_colour_map "blue violet"      138-43-226
-    tcl::dict::set TK_colour_map blue1              0-0-255
-    tcl::dict::set TK_colour_map blue2              0-0-238
-    tcl::dict::set TK_colour_map blue3              0-0-205
-    tcl::dict::set TK_colour_map blue4              0-0-139
-    tcl::dict::set TK_colour_map BlueViolet         138-43-226
-    tcl::dict::set TK_colour_map brown              165-42-42
-    tcl::dict::set TK_colour_map brown1             255-64-64
-    tcl::dict::set TK_colour_map brown2             238-59-59
-    tcl::dict::set TK_colour_map brown3             205-51-51
-    tcl::dict::set TK_colour_map brown4             139-35-35
-    tcl::dict::set TK_colour_map burlywood          222-184-135
-    tcl::dict::set TK_colour_map burlywood1         255-211-155
-    tcl::dict::set TK_colour_map burlywood2         238-197-145
-    tcl::dict::set TK_colour_map burlywood3         205-170-125
-    tcl::dict::set TK_colour_map burlywood4         139-115-85
-    tcl::dict::set TK_colour_map "cadet blue"       95-158-160
-    tcl::dict::set TK_colour_map CadetBlue          95-158-160
-    tcl::dict::set TK_colour_map CadetBlue1         152-245-255
-    tcl::dict::set TK_colour_map CadetBlue2         142-229-238
-    tcl::dict::set TK_colour_map CadetBlue3         122-197-205
-    tcl::dict::set TK_colour_map CadetBlue4         83-134-139
-    tcl::dict::set TK_colour_map chartreuse         127-255-0
-    tcl::dict::set TK_colour_map chartreuse1        127-255-0
-    tcl::dict::set TK_colour_map chartreuse2        118-238-0
-    tcl::dict::set TK_colour_map chartreuse3        102-205-0
-    tcl::dict::set TK_colour_map chartreuse4        69-139-0
-    tcl::dict::set TK_colour_map chocolate          210-105-30
-    tcl::dict::set TK_colour_map chocolate1         255-127-36
-    tcl::dict::set TK_colour_map chocolate2         238-118-33
-    tcl::dict::set TK_colour_map chocolate3         205-102-29
-    tcl::dict::set TK_colour_map chocolate4         139-69-19
-    tcl::dict::set TK_colour_map coral              255-127-80
-    tcl::dict::set TK_colour_map coral1             255-114-86
-    tcl::dict::set TK_colour_map coral2             238-106-80
-    tcl::dict::set TK_colour_map coral3             205-91-69
-    tcl::dict::set TK_colour_map coral4             139-62-47
-    tcl::dict::set TK_colour_map "cornflower blue"  100-149-237
-    tcl::dict::set TK_colour_map CornflowerBlue     100-149-237
-    tcl::dict::set TK_colour_map cornsilk           255-248-220
-    tcl::dict::set TK_colour_map cornsilk1          255-248-220
-    tcl::dict::set TK_colour_map cornsilk2          238-232-205
-    tcl::dict::set TK_colour_map cornsilk3          205-200-177
-    tcl::dict::set TK_colour_map cornsilk4          139-136-120
-    tcl::dict::set TK_colour_map crimson            220-20-60
-    tcl::dict::set TK_colour_map cyan               0-255-255
-    tcl::dict::set TK_colour_map cyan1              0-255-255
-    tcl::dict::set TK_colour_map cyan2              0-238-238
-    tcl::dict::set TK_colour_map cyan3              0-205-205
-    tcl::dict::set TK_colour_map cyan4              0-139-139
-    tcl::dict::set TK_colour_map "dark blue"        0-0-139
-    tcl::dict::set TK_colour_map "dark cyan"        0-139-139
-    tcl::dict::set TK_colour_map "dark goldenrod"   184-134-11
-    tcl::dict::set TK_colour_map "dark gray"        169-169-169
-    tcl::dict::set TK_colour_map "dark green"       0-100-0
-    tcl::dict::set TK_colour_map "dark grey"        169-169-169
-    tcl::dict::set TK_colour_map "dark khaki"       189-183-107
-    tcl::dict::set TK_colour_map "dark magenta"     139-0-139
-    tcl::dict::set TK_colour_map "dark olive green" 85-107-47
-    tcl::dict::set TK_colour_map "dark orange"      255-140-0
-    tcl::dict::set TK_colour_map "dark orchid"      153-50-204
-    tcl::dict::set TK_colour_map "dark red"         139-0-0
-    tcl::dict::set TK_colour_map "dark salmon"      233-150-122
-    tcl::dict::set TK_colour_map "dark sea green"   143-188-143
-    tcl::dict::set TK_colour_map "dark slate blue"  72-61-139
-    tcl::dict::set TK_colour_map "dark slate gray"  47-79-79
-    tcl::dict::set TK_colour_map "dark slate grey"  47-79-79
-    tcl::dict::set TK_colour_map "dark turquoise"   0-206-209
-    tcl::dict::set TK_colour_map "dark violet"      148-0-211
-    tcl::dict::set TK_colour_map DarkBlue           0-0-139
-    tcl::dict::set TK_colour_map DarkCyan           0-139-139
-    tcl::dict::set TK_colour_map DarkGoldenrod      184-134-11
-    tcl::dict::set TK_colour_map DarkGoldenrod1     255-185-15
-    tcl::dict::set TK_colour_map DarkGoldenrod2     238-173-14
-    tcl::dict::set TK_colour_map DarkGoldenrod3     205-149-12
-    tcl::dict::set TK_colour_map DarkGoldenrod4     139-101-8
-    tcl::dict::set TK_colour_map DarkGray           169-169-169
-    tcl::dict::set TK_colour_map DarkGreen          0-100-0
-    tcl::dict::set TK_colour_map DarkGrey           169-169-169
-    tcl::dict::set TK_colour_map DarkKhaki          189-183-107
-    tcl::dict::set TK_colour_map DarkMagenta        139-0-139
-    tcl::dict::set TK_colour_map DarkOliveGreen     85-107-47
-    tcl::dict::set TK_colour_map DarkOliveGreen1    202-255-112
-    tcl::dict::set TK_colour_map DarkOliveGreen2    188-238-104
-    tcl::dict::set TK_colour_map DarkOliveGreen3    162-205-90
-    tcl::dict::set TK_colour_map DarkOliveGreen4    110-139-61
-    tcl::dict::set TK_colour_map DarkOrange         255-140-0
-    tcl::dict::set TK_colour_map DarkOrange1        255-127-0
-    tcl::dict::set TK_colour_map DarkOrange2        238-118-0
-    tcl::dict::set TK_colour_map DarkOrange3        205-102-0
-    tcl::dict::set TK_colour_map DarkOrange4        139-69-0
-    tcl::dict::set TK_colour_map DarkOrchid         153-50-204
-    tcl::dict::set TK_colour_map DarkOrchid1        191-62-255
-    tcl::dict::set TK_colour_map DarkOrchid2        178-58-238
-    tcl::dict::set TK_colour_map DarkOrchid3        154-50-205
-    tcl::dict::set TK_colour_map DarkOrchid4        104-34-139
-    tcl::dict::set TK_colour_map DarkRed            139-0-0
-    tcl::dict::set TK_colour_map DarkSalmon         233-150-122
-    tcl::dict::set TK_colour_map DarkSeaGreen       43-188-143
-    tcl::dict::set TK_colour_map DarkSeaGreen1      193-255-193
-    tcl::dict::set TK_colour_map DarkSeaGreen2      180-238-180
-    tcl::dict::set TK_colour_map DarkSeaGreen3      155-205-155
-    tcl::dict::set TK_colour_map DarkSeaGreen4      105-139-105
-    tcl::dict::set TK_colour_map DarkSlateBlue      72-61-139
-    tcl::dict::set TK_colour_map DarkSlateGray      47-79-79
-    tcl::dict::set TK_colour_map DarkSlateGray1     151-255-255
-    tcl::dict::set TK_colour_map DarkSlateGray2     141-238-238
-    tcl::dict::set TK_colour_map DarkSlateGray3     121-205-205
-    tcl::dict::set TK_colour_map DarkSlateGray4     82-139-139
-    tcl::dict::set TK_colour_map DarkSlateGrey      47-79-79
-    tcl::dict::set TK_colour_map DarkTurquoise      0-206-209
-    tcl::dict::set TK_colour_map DarkViolet         148-0-211
-    tcl::dict::set TK_colour_map "deep pink"        255-20-147
-    tcl::dict::set TK_colour_map "deep sky blue"    0-191-255
-    tcl::dict::set TK_colour_map DeepPink           255-20-147
-    tcl::dict::set TK_colour_map DeepPink1          255-20-147
-    tcl::dict::set TK_colour_map DeepPink2          238-18-137
-    tcl::dict::set TK_colour_map DeepPink3          205-16-118
-    tcl::dict::set TK_colour_map DeepPink4          139-10-80
-    tcl::dict::set TK_colour_map DeepSkyBlue        0-191-255
-    tcl::dict::set TK_colour_map DeepSkyBlue1       0-191-255
-    tcl::dict::set TK_colour_map DeepSkyBlue2       0-178-238
-    tcl::dict::set TK_colour_map DeepSkyBlue3       0-154-205
-    tcl::dict::set TK_colour_map DeepSkyBlue4       0-104-139
-    tcl::dict::set TK_colour_map "dim gray"         105-105-105
-    tcl::dict::set TK_colour_map "dim grey"         105-105-105
-    tcl::dict::set TK_colour_map DimGray            105-105-105
-    tcl::dict::set TK_colour_map DimGrey            105-105-105
-    tcl::dict::set TK_colour_map "dodger blue"      30-144-255
-    tcl::dict::set TK_colour_map DodgerBlue         30-144-255
-    tcl::dict::set TK_colour_map DodgerBlue1        30-144-255
-    tcl::dict::set TK_colour_map DodgerBlue2        28-134-238
-    tcl::dict::set TK_colour_map DodgerBlue3        24-116-205
-    tcl::dict::set TK_colour_map DodgerBlue4        16-78-139
-    tcl::dict::set TK_colour_map firebrick          178-34-34
-    tcl::dict::set TK_colour_map firebrick1         255-48-48
-    tcl::dict::set TK_colour_map firebrick2         238-44-44
-    tcl::dict::set TK_colour_map firebrick3         205-38-38
-    tcl::dict::set TK_colour_map firebrick4         139-26-26
-    tcl::dict::set TK_colour_map "floral white"     255-250-240
-    tcl::dict::set TK_colour_map FloralWhite        255-250-240
-    tcl::dict::set TK_colour_map "forest green"     34-139-34
-    tcl::dict::set TK_colour_map ForestGreen        34-139-34
-    tcl::dict::set TK_colour_map fuchsia            255-0-255
-    tcl::dict::set TK_colour_map gainsboro          220-220-220
-    tcl::dict::set TK_colour_map "ghost white"      248-248-255
-    tcl::dict::set TK_colour_map GhostWhite         248-248-255
-    tcl::dict::set TK_colour_map gold               255-215-0
-    tcl::dict::set TK_colour_map gold1              255-215-0
-    tcl::dict::set TK_colour_map gold2              238-201-0
-    tcl::dict::set TK_colour_map gold3              205-173-0
-    tcl::dict::set TK_colour_map gold4              139-117-0
-    tcl::dict::set TK_colour_map goldenrod          218-165-32
-    tcl::dict::set TK_colour_map goldenrod1         255-193-37
-    tcl::dict::set TK_colour_map goldenrod2         238-180-34
-    tcl::dict::set TK_colour_map goldenrod3         205-155-29
-    tcl::dict::set TK_colour_map goldenrod4         139-105-20
-    tcl::dict::set TK_colour_map gray               128-128-128
-    tcl::dict::set TK_colour_map gray0              0-0-0
-    tcl::dict::set TK_colour_map gray1              3-3-3
-    tcl::dict::set TK_colour_map gray2              5-5-5
-    tcl::dict::set TK_colour_map gray3              8-8-8
-    tcl::dict::set TK_colour_map gray4              10-10-10
-    tcl::dict::set TK_colour_map gray5              13-13-13
-    tcl::dict::set TK_colour_map gray6              15-15-15
-    tcl::dict::set TK_colour_map gray7              18-18-18
-    tcl::dict::set TK_colour_map gray8              20-20-20
-    tcl::dict::set TK_colour_map gray9              23-23-23
-    tcl::dict::set TK_colour_map gray10             26-26-26
-    tcl::dict::set TK_colour_map gray11             28-28-28
-    tcl::dict::set TK_colour_map gray12             31-31-31
-    tcl::dict::set TK_colour_map gray13             33-33-33
-    tcl::dict::set TK_colour_map gray14             36-36-36
-    tcl::dict::set TK_colour_map gray15             38-38-38
-    tcl::dict::set TK_colour_map gray16             41-41-41
-    tcl::dict::set TK_colour_map gray17             43-43-43
-    tcl::dict::set TK_colour_map gray18             46-46-46
-    tcl::dict::set TK_colour_map gray19             48-48-48
-    tcl::dict::set TK_colour_map gray20             51-51-51
-    tcl::dict::set TK_colour_map gray21             54-54-54
-    tcl::dict::set TK_colour_map gray22             56-56-56
-    tcl::dict::set TK_colour_map gray23             59-59-59
-    tcl::dict::set TK_colour_map gray24             61-61-61
-    tcl::dict::set TK_colour_map gray25             64-64-64
-    tcl::dict::set TK_colour_map gray26             66-66-66
-    tcl::dict::set TK_colour_map gray27             69-69-69
-    tcl::dict::set TK_colour_map gray28             71-71-71
-    tcl::dict::set TK_colour_map gray29             74-74-74
-    tcl::dict::set TK_colour_map gray30             77-77-77
-    tcl::dict::set TK_colour_map gray31             79-79-79
-    tcl::dict::set TK_colour_map gray32             82-82-82
-    tcl::dict::set TK_colour_map gray33             84-84-84
-    tcl::dict::set TK_colour_map gray34             87-87-87
-    tcl::dict::set TK_colour_map gray35             89-89-89
-    tcl::dict::set TK_colour_map gray36             92-92-92
-    tcl::dict::set TK_colour_map gray37             94-94-94
-    tcl::dict::set TK_colour_map gray38             97-97-97
-    tcl::dict::set TK_colour_map gray39             99-99-99
-    tcl::dict::set TK_colour_map gray40             102-102-102
-    tcl::dict::set TK_colour_map gray41             105-105-105
-    tcl::dict::set TK_colour_map gray42             107-107-107
-    tcl::dict::set TK_colour_map gray43             110-110-110
-    tcl::dict::set TK_colour_map gray44             112-112-112
-    tcl::dict::set TK_colour_map gray45             115-115-115
-    tcl::dict::set TK_colour_map gray46             117-117-117
-    tcl::dict::set TK_colour_map gray47             120-120-120
-    tcl::dict::set TK_colour_map gray48             122-122-122
-    tcl::dict::set TK_colour_map gray49             125-125-125
-    tcl::dict::set TK_colour_map gray50             127-127-127
-    tcl::dict::set TK_colour_map gray51             130-130-130
-    tcl::dict::set TK_colour_map gray52             133-133-133
-    tcl::dict::set TK_colour_map gray53             135-135-135
-    tcl::dict::set TK_colour_map gray54             138-138-138
-    tcl::dict::set TK_colour_map gray55             140-140-140
-    tcl::dict::set TK_colour_map gray56             143-143-143
-    tcl::dict::set TK_colour_map gray57             145-145-145
-    tcl::dict::set TK_colour_map gray58             148-148-148
-    tcl::dict::set TK_colour_map gray59             150-150-150
-    tcl::dict::set TK_colour_map gray60             153-153-153
-    tcl::dict::set TK_colour_map gray61             156-156-156
-    tcl::dict::set TK_colour_map gray62             158-158-158
-    tcl::dict::set TK_colour_map gray63             161-161-161
-    tcl::dict::set TK_colour_map gray64             163-163-163
-    tcl::dict::set TK_colour_map gray65             166-166-166
-    tcl::dict::set TK_colour_map gray66             168-168-168
-    tcl::dict::set TK_colour_map gray67             171-171-171
-    tcl::dict::set TK_colour_map gray68             173-173-173
-    tcl::dict::set TK_colour_map gray69             176-176-176
-    tcl::dict::set TK_colour_map gray70             179-179-179
-    tcl::dict::set TK_colour_map gray71             181-181-181
-    tcl::dict::set TK_colour_map gray72             184-184-184
-    tcl::dict::set TK_colour_map gray73             186-186-186
-    tcl::dict::set TK_colour_map gray74             189-189-189
-    tcl::dict::set TK_colour_map gray75             191-191-191
-    tcl::dict::set TK_colour_map gray76             194-194-194
-    tcl::dict::set TK_colour_map gray77             196-196-196
-    tcl::dict::set TK_colour_map gray78             199-199-199
-    tcl::dict::set TK_colour_map gray79             201-201-201
-    tcl::dict::set TK_colour_map gray80             204-204-204
-    tcl::dict::set TK_colour_map gray81             207-207-207
-    tcl::dict::set TK_colour_map gray82             209-209-209
-    tcl::dict::set TK_colour_map gray83             212-212-212
-    tcl::dict::set TK_colour_map gray84             214-214-214
-    tcl::dict::set TK_colour_map gray85             217-217-217
-    tcl::dict::set TK_colour_map gray86             219-219-219
-    tcl::dict::set TK_colour_map gray87             222-222-222
-    tcl::dict::set TK_colour_map gray88             224-224-224
-    tcl::dict::set TK_colour_map gray89             227-227-227
-    tcl::dict::set TK_colour_map gray90             229-229-229
-    tcl::dict::set TK_colour_map gray91             232-232-232
-    tcl::dict::set TK_colour_map gray92             235-235-235
-    tcl::dict::set TK_colour_map gray93             237-237-237
-    tcl::dict::set TK_colour_map gray94             240-240-240
-    tcl::dict::set TK_colour_map gray95             242-242-242
-    tcl::dict::set TK_colour_map gray96             245-245-245
-    tcl::dict::set TK_colour_map gray97             247-247-247
-    tcl::dict::set TK_colour_map gray98             250-250-250
-    tcl::dict::set TK_colour_map gray99             252-252-252
-    tcl::dict::set TK_colour_map gray100            255-255-255
-    tcl::dict::set TK_colour_map green              0-128-0
-    tcl::dict::set TK_colour_map "green yellow"     173-255-47
-    tcl::dict::set TK_colour_map green1             0-255-0
-    tcl::dict::set TK_colour_map green2             0-238-0
-    tcl::dict::set TK_colour_map green3             0-205-0
-    tcl::dict::set TK_colour_map green4             0-139-0
-    tcl::dict::set TK_colour_map GreenYellow        173-255-47
-    tcl::dict::set TK_colour_map grey               128-128-128
-    tcl::dict::set TK_colour_map grey0              0-0-0
-    tcl::dict::set TK_colour_map grey1              3-3-3
-    tcl::dict::set TK_colour_map grey2              5-5-5
-    tcl::dict::set TK_colour_map grey3              8-8-8
-    tcl::dict::set TK_colour_map grey4              10-10-10
-    tcl::dict::set TK_colour_map grey5              13-13-13
-    tcl::dict::set TK_colour_map grey6              15-15-15
-    tcl::dict::set TK_colour_map grey7              18-18-18
-    tcl::dict::set TK_colour_map grey8              20-20-20
-    tcl::dict::set TK_colour_map grey9              23-23-23
-    tcl::dict::set TK_colour_map grey10             26-26-26
-    tcl::dict::set TK_colour_map grey11             28-28-28
-    tcl::dict::set TK_colour_map grey12             31-31-31
-    tcl::dict::set TK_colour_map grey13             33-33-33
-    tcl::dict::set TK_colour_map grey14             36-36-36
-    tcl::dict::set TK_colour_map grey15             38-38-38
-    tcl::dict::set TK_colour_map grey16             41-41-41
-    tcl::dict::set TK_colour_map grey17             43-43-43
-    tcl::dict::set TK_colour_map grey18             46-46-46
-    tcl::dict::set TK_colour_map grey19             48-48-48
-    tcl::dict::set TK_colour_map grey20             51-51-51
-    tcl::dict::set TK_colour_map grey21             54-54-54
-    tcl::dict::set TK_colour_map grey22             56-56-56
-    tcl::dict::set TK_colour_map grey23             59-59-59
-    tcl::dict::set TK_colour_map grey24             61-61-61
-    tcl::dict::set TK_colour_map grey25             64-64-64
-    tcl::dict::set TK_colour_map grey26             66-66-66
-    tcl::dict::set TK_colour_map grey27             69-69-69
-    tcl::dict::set TK_colour_map grey28             71-71-71
-    tcl::dict::set TK_colour_map grey29             74-74-74
-    tcl::dict::set TK_colour_map grey30             77-77-77
-    tcl::dict::set TK_colour_map grey31             79-79-79
-    tcl::dict::set TK_colour_map grey32             82-82-82
-    tcl::dict::set TK_colour_map grey33             84-84-84
-    tcl::dict::set TK_colour_map grey34             87-87-87
-    tcl::dict::set TK_colour_map grey35             89-89-89
-    tcl::dict::set TK_colour_map grey36             92-92-92
-    tcl::dict::set TK_colour_map grey37             94-94-94
-    tcl::dict::set TK_colour_map grey38             97-97-97
-    tcl::dict::set TK_colour_map grey39             99-99-99
-    tcl::dict::set TK_colour_map grey40             102-102-102
-    tcl::dict::set TK_colour_map grey41             105-105-105
-    tcl::dict::set TK_colour_map grey42             107-107-107
-    tcl::dict::set TK_colour_map grey43             110-110-110
-    tcl::dict::set TK_colour_map grey44             112-112-112
-    tcl::dict::set TK_colour_map grey45             115-115-115
-    tcl::dict::set TK_colour_map grey46             117-117-117
-    tcl::dict::set TK_colour_map grey47             120-120-120
-    tcl::dict::set TK_colour_map grey48             122-122-122
-    tcl::dict::set TK_colour_map grey49             125-125-125
-    tcl::dict::set TK_colour_map grey50             127-127-127
-    tcl::dict::set TK_colour_map grey51             130-130-130
-    tcl::dict::set TK_colour_map grey52             133-133-133
-    tcl::dict::set TK_colour_map grey53             135-135-135
-    tcl::dict::set TK_colour_map grey54             138-138-138
-    tcl::dict::set TK_colour_map grey55             140-140-140
-    tcl::dict::set TK_colour_map grey56             143-143-143
-    tcl::dict::set TK_colour_map grey57             145-145-145
-    tcl::dict::set TK_colour_map grey58             148-148-148
-    tcl::dict::set TK_colour_map grey59             150-150-150
-    tcl::dict::set TK_colour_map grey60             153-153-153
-    tcl::dict::set TK_colour_map grey61             156-156-156
-    tcl::dict::set TK_colour_map grey62             158-158-158
-    tcl::dict::set TK_colour_map grey63             161-161-161
-    tcl::dict::set TK_colour_map grey64             163-163-163
-    tcl::dict::set TK_colour_map grey65             166-166-166
-    tcl::dict::set TK_colour_map grey66             168-168-168
-    tcl::dict::set TK_colour_map grey67             171-171-171
-    tcl::dict::set TK_colour_map grey68             173-173-173
-    tcl::dict::set TK_colour_map grey69             176-176-176
-    tcl::dict::set TK_colour_map grey70             179-179-179
-    tcl::dict::set TK_colour_map grey71             181-181-181
-    tcl::dict::set TK_colour_map grey72             184-184-184
-    tcl::dict::set TK_colour_map grey73             186-186-186
-    tcl::dict::set TK_colour_map grey74             189-189-189
-    tcl::dict::set TK_colour_map grey75             191-191-191
-    tcl::dict::set TK_colour_map grey76             194-194-194
-    tcl::dict::set TK_colour_map grey77             196-196-196
-    tcl::dict::set TK_colour_map grey78             199-199-199
-    tcl::dict::set TK_colour_map grey79             201-201-201
-    tcl::dict::set TK_colour_map grey80             204-204-204
-    tcl::dict::set TK_colour_map grey81             207-207-207
-    tcl::dict::set TK_colour_map grey82             209-209-209
-    tcl::dict::set TK_colour_map grey83             212-212-212
-    tcl::dict::set TK_colour_map grey84             214-214-214
-    tcl::dict::set TK_colour_map grey85             217-217-217
-    tcl::dict::set TK_colour_map grey86             219-219-219
-    tcl::dict::set TK_colour_map grey87             222-222-222
-    tcl::dict::set TK_colour_map grey88             224-224-224
-    tcl::dict::set TK_colour_map grey89             227-227-227
-    tcl::dict::set TK_colour_map grey90             229-229-229
-    tcl::dict::set TK_colour_map grey91             232-232-232
-    tcl::dict::set TK_colour_map grey92             235-235-235
-    tcl::dict::set TK_colour_map grey93             237-237-237
-    tcl::dict::set TK_colour_map grey94             240-240-240
-    tcl::dict::set TK_colour_map grey95             242-242-242
-    tcl::dict::set TK_colour_map grey96             245-245-245
-    tcl::dict::set TK_colour_map grey97             247-247-247
-    tcl::dict::set TK_colour_map grey98             250-250-250
-    tcl::dict::set TK_colour_map grey99             252-252-252
-    tcl::dict::set TK_colour_map grey100            255-255-255
-    tcl::dict::set TK_colour_map honeydew           240-255-240
-    tcl::dict::set TK_colour_map honeydew1          240-255-240
-    tcl::dict::set TK_colour_map honeydew2          224-238-224
-    tcl::dict::set TK_colour_map honeydew3          193-205-193
-    tcl::dict::set TK_colour_map honeydew4          131-139-131
-    tcl::dict::set TK_colour_map "hot pink"         255-105-180
-    tcl::dict::set TK_colour_map HotPink            255-105-180
-    tcl::dict::set TK_colour_map HotPink1           255-110-180
-    tcl::dict::set TK_colour_map HotPink2           238-106-167
-    tcl::dict::set TK_colour_map HotPink3           205-96-144
-    tcl::dict::set TK_colour_map HotPink4           139-58-98
-    tcl::dict::set TK_colour_map "indian red"       205-92-92
-    tcl::dict::set TK_colour_map IndianRed          205-92-92
-    tcl::dict::set TK_colour_map IndianRed1         255-106-106
-    tcl::dict::set TK_colour_map IndianRed2         238-99-99
-    tcl::dict::set TK_colour_map IndianRed3         205-85-85
-    tcl::dict::set TK_colour_map IndianRed4         139-58-58
-    tcl::dict::set TK_colour_map indigo             75-0-130
-    tcl::dict::set TK_colour_map ivory              255-255-240
-    tcl::dict::set TK_colour_map ivory1             255-255-240
-    tcl::dict::set TK_colour_map ivory2             238-238-224
-    tcl::dict::set TK_colour_map ivory3             205-205-193
-    tcl::dict::set TK_colour_map ivory4             139-139-131
-    tcl::dict::set TK_colour_map khaki              240-230-140
-    tcl::dict::set TK_colour_map khaki1             255-246-143
-    tcl::dict::set TK_colour_map khaki2             238-230-133
-    tcl::dict::set TK_colour_map khaki3             205-198-115
-    tcl::dict::set TK_colour_map khaki4             139-134-78
-    tcl::dict::set TK_colour_map lavender           230-230-250
-    tcl::dict::set TK_colour_map "lavender blush"   255-240-245
-    tcl::dict::set TK_colour_map LavenderBlush      255-240-245
-    tcl::dict::set TK_colour_map LavenderBlush1     255-240-245
-    tcl::dict::set TK_colour_map LavenderBlush2     238-224-229
-    tcl::dict::set TK_colour_map LavenderBlush3     205-193-197
-    tcl::dict::set TK_colour_map LavenderBlush4     139-131-134
-    tcl::dict::set TK_colour_map "lawn green"       124-252-0
-    tcl::dict::set TK_colour_map LawnGreen          124-252-0
-    tcl::dict::set TK_colour_map "lemon chiffon"    255-250-205
-    tcl::dict::set TK_colour_map LemonChiffon       255-250-205
-    tcl::dict::set TK_colour_map LemonChiffon1      255-250-205
-    tcl::dict::set TK_colour_map LemonChiffon2      238-233-191
-    tcl::dict::set TK_colour_map LemonChiffon3      205-201-165
-    tcl::dict::set TK_colour_map LemonChiffon4      139-137-112
-    tcl::dict::set TK_colour_map "light blue"       173-216-230
-    tcl::dict::set TK_colour_map "light coral"      240-128-128
-    tcl::dict::set TK_colour_map "light cyan"       224-255-255
-    tcl::dict::set TK_colour_map "light goldenrod"  238-221-130
-    tcl::dict::set TK_colour_map "light goldenrod yellow"   250-250-210
-    tcl::dict::set TK_colour_map "light gray"       211-211-211
-    tcl::dict::set TK_colour_map "light green"      144-238-144
-    tcl::dict::set TK_colour_map "light grey"       211-211-211
-    tcl::dict::set TK_colour_map "light pink"       255-182-193
-    tcl::dict::set TK_colour_map "light salmon"     255-160-122
-    tcl::dict::set TK_colour_map "light sea green"  32-178-170
-    tcl::dict::set TK_colour_map "light sky blue"   135-206-250
-    tcl::dict::set TK_colour_map "light slate blue" 132-112-255
-    tcl::dict::set TK_colour_map "light slate gray" 119-136-153
-    tcl::dict::set TK_colour_map "light slate grey" 119-136-153
-    tcl::dict::set TK_colour_map "light steel blue" 176-196-222
-    tcl::dict::set TK_colour_map "light yellow"     255-255-224
-    tcl::dict::set TK_colour_map LightBlue          173-216-230
-    tcl::dict::set TK_colour_map LightBlue1         191-239-255
-    tcl::dict::set TK_colour_map LightBlue2         178-223-238
-    tcl::dict::set TK_colour_map LightBlue3         154-192-205
-    tcl::dict::set TK_colour_map LightBlue4         104-131-139
-    tcl::dict::set TK_colour_map LightCoral         240-128-128
-    tcl::dict::set TK_colour_map LightCyan          224-255-255
-    tcl::dict::set TK_colour_map LightCyan1         224-255-255
-    tcl::dict::set TK_colour_map LightCyan2         209-238-238
-    tcl::dict::set TK_colour_map LightCyan3         180-205-205
-    tcl::dict::set TK_colour_map LightCyan4         122-139-139
-    tcl::dict::set TK_colour_map LightGoldenrod     238-221-130
-    tcl::dict::set TK_colour_map LightGoldenrod1    255-236-139
-    tcl::dict::set TK_colour_map LightGoldenrod2    238-220-130
-    tcl::dict::set TK_colour_map LightGoldenrod3    205-190-112
-    tcl::dict::set TK_colour_map LightGoldenrod4    139-129-76
-    tcl::dict::set TK_colour_map LightGoldenrodYellow   250-250-210
-    tcl::dict::set TK_colour_map LightGray          211-211-211
-    tcl::dict::set TK_colour_map LightGreen         144-238-144
-    tcl::dict::set TK_colour_map LightGrey          211-211-211
-    tcl::dict::set TK_colour_map LightPink          255-182-193
-    tcl::dict::set TK_colour_map LightPink1         255-174-185
-    tcl::dict::set TK_colour_map LightPink2         238-162-173
-    tcl::dict::set TK_colour_map LightPink3         205-140-149
-    tcl::dict::set TK_colour_map LightPink4         139-95-101
-    tcl::dict::set TK_colour_map LightSalmon        255-160-122
-    tcl::dict::set TK_colour_map LightSalmon1       255-160-122
-    tcl::dict::set TK_colour_map LightSalmon2       238-149-114
-    tcl::dict::set TK_colour_map LightSalmon3       205-129-98
-    tcl::dict::set TK_colour_map LightSalmon4       139-87-66
-    tcl::dict::set TK_colour_map LightSeaGreen      32-178-170
-    tcl::dict::set TK_colour_map LightSkyBlue       135-206-250
-    tcl::dict::set TK_colour_map LightSkyBlue1      176-226-255
-    tcl::dict::set TK_colour_map LightSkyBlue2      164-211-238
-    tcl::dict::set TK_colour_map LightSkyBlue3      141-182-205
-    tcl::dict::set TK_colour_map LightSkyBlue4      96-123-139
-    tcl::dict::set TK_colour_map LightSlateBlue     132-112-255
-    tcl::dict::set TK_colour_map LightSlateGray     119-136-153
-    tcl::dict::set TK_colour_map LightSlateGrey     119-136-153
-    tcl::dict::set TK_colour_map LightSteelBlue     176-196-222
-    tcl::dict::set TK_colour_map LightSteelBlue1    202-225-255
-    tcl::dict::set TK_colour_map LightSteelBlue2    188-210-238
-    tcl::dict::set TK_colour_map LightSteelBlue3    162-181-205
-    tcl::dict::set TK_colour_map LightSteelBlue4    110-123-139
-    tcl::dict::set TK_colour_map LightYellow        255-255-224
-    tcl::dict::set TK_colour_map LightYellow1       255-255-224
-    tcl::dict::set TK_colour_map LightYellow2       238-238-209
-    tcl::dict::set TK_colour_map LightYellow3       205-205-180
-    tcl::dict::set TK_colour_map LightYellow4       139-139-122
-    tcl::dict::set TK_colour_map lime               0-255-0
-    tcl::dict::set TK_colour_map "lime green"       50-205-50
-    tcl::dict::set TK_colour_map LimeGreen          50-205-50
-    tcl::dict::set TK_colour_map linen              250-240-230
-    tcl::dict::set TK_colour_map magenta            255-0-255
-    tcl::dict::set TK_colour_map magenta1           255-0-255
-    tcl::dict::set TK_colour_map magenta2           238-0-238
-    tcl::dict::set TK_colour_map magenta3           205-0-205
-    tcl::dict::set TK_colour_map magenta4           139-0-139
-    tcl::dict::set TK_colour_map maroon             128-0-0
-    tcl::dict::set TK_colour_map maroon1            255-52-179
-    tcl::dict::set TK_colour_map maroon2            238-48-167
-    tcl::dict::set TK_colour_map maroon3            205-41-144
-    tcl::dict::set TK_colour_map maroon4            139-28-98
-    tcl::dict::set TK_colour_map "medium aquamarine"  102-205-170
-    tcl::dict::set TK_colour_map "medium blue"      0-0-205
-    tcl::dict::set TK_colour_map "medium orchid"    186-85-211
-    tcl::dict::set TK_colour_map "medium purple"    147-112-219
-    tcl::dict::set TK_colour_map "medium sea green" 60-179-113
-    tcl::dict::set TK_colour_map "medium slate blue"    123-104-238
-    tcl::dict::set TK_colour_map "medium spring green"  0-250-154
-    tcl::dict::set TK_colour_map "medium turquoise" 72-209-204
-    tcl::dict::set TK_colour_map "medium violet red"    199-21-133
-    tcl::dict::set TK_colour_map MediumAquamarine   102-205-170
-    tcl::dict::set TK_colour_map MediumBlue         0-0-205
-    tcl::dict::set TK_colour_map MediumOrchid       186-85-211
-    tcl::dict::set TK_colour_map MediumOrchid1      224-102-255
-    tcl::dict::set TK_colour_map MediumOrchid2      209-95-238
-    tcl::dict::set TK_colour_map MediumOrchid3      180-82-205
-    tcl::dict::set TK_colour_map MediumOrchid4      122-55-139
-    tcl::dict::set TK_colour_map MediumPurple       147-112-219
-    tcl::dict::set TK_colour_map MediumPurple1      171-130-255
-    tcl::dict::set TK_colour_map MediumPurple2      159-121-238
-    tcl::dict::set TK_colour_map MediumPurple3      137-104-205
-    tcl::dict::set TK_colour_map MediumPurple4      93-71-139
-    tcl::dict::set TK_colour_map MediumSeaGreen     60-179-113
-    tcl::dict::set TK_colour_map MediumSlateBlue    123-104-238
-    tcl::dict::set TK_colour_map MediumSpringGreen  0-250-154
-    tcl::dict::set TK_colour_map MediumTurquoise    72-209-204
-    tcl::dict::set TK_colour_map MediumVioletRed    199-21-133
-    tcl::dict::set TK_colour_map "midnight blue"    25-25-112
-    tcl::dict::set TK_colour_map MidnightBlue       25-25-112
-    tcl::dict::set TK_colour_map "mint cream"       245-255-250
-    tcl::dict::set TK_colour_map MintCream          245-255-250
-    tcl::dict::set TK_colour_map "misty rose"       255-228-225
-    tcl::dict::set TK_colour_map MistyRose          255-228-225
-    tcl::dict::set TK_colour_map MistyRose1         255-228-225
-    tcl::dict::set TK_colour_map MistyRose2         238-213-210
-    tcl::dict::set TK_colour_map MistyRose3         205-183-181
-    tcl::dict::set TK_colour_map MistyRose4         139-125-123
-    tcl::dict::set TK_colour_map moccasin           255-228-181
-    tcl::dict::set TK_colour_map "navajo white"     255-222-173
-    tcl::dict::set TK_colour_map NavajoWhite        255-222-173
-    tcl::dict::set TK_colour_map NavajoWhite1       255-222-173
-    tcl::dict::set TK_colour_map NavajoWhite2       238-207-161
-    tcl::dict::set TK_colour_map NavajoWhite3       205-179-139
-    tcl::dict::set TK_colour_map NavajoWhite4       139-121-94
-    tcl::dict::set TK_colour_map navy               0-0-128
-    tcl::dict::set TK_colour_map "navy blue"        0-0-128
-    tcl::dict::set TK_colour_map NavyBlue           0-0-128
-    tcl::dict::set TK_colour_map "old lace"         253-245-230
-    tcl::dict::set TK_colour_map OldLace            253-245-230
-    tcl::dict::set TK_colour_map olive              128-128-0
-    tcl::dict::set TK_colour_map "olive drab"       107-142-35
-    tcl::dict::set TK_colour_map OliveDrab          107-142-35
-    tcl::dict::set TK_colour_map OliveDrab1         192-255-62
-    tcl::dict::set TK_colour_map OliveDrab2         179-238-58
-    tcl::dict::set TK_colour_map OliveDrab3         154-205-50
-    tcl::dict::set TK_colour_map OliveDrab4         105-139-34
-    tcl::dict::set TK_colour_map orange             255-165-0
-    tcl::dict::set TK_colour_map "orange red"       255-69-0
-    tcl::dict::set TK_colour_map orange1            255-165-0
-    tcl::dict::set TK_colour_map orange2            238-154-0
-    tcl::dict::set TK_colour_map orange3            205-133-0
-    tcl::dict::set TK_colour_map orange4            139-90-0
-    tcl::dict::set TK_colour_map OrangeRed          255-69-0
-    tcl::dict::set TK_colour_map OrangeRed1         255-69-0
-    tcl::dict::set TK_colour_map OrangeRed2         238-64-0
-    tcl::dict::set TK_colour_map OrangeRed3         205-55-0
-    tcl::dict::set TK_colour_map OrangeRed4         139-37-0
-    tcl::dict::set TK_colour_map orchid             218-112-214
-    tcl::dict::set TK_colour_map orchid1            255-131-250
-    tcl::dict::set TK_colour_map orchid2            238-122-233
-    tcl::dict::set TK_colour_map orchid3            205-105-201
-    tcl::dict::set TK_colour_map orchid4            139-71-137
-    tcl::dict::set TK_colour_map "pale goldenrod"   238-232-170
-    tcl::dict::set TK_colour_map "pale green"       152-251-152
-    tcl::dict::set TK_colour_map "pale turquoise"   175-238-238
-    tcl::dict::set TK_colour_map "pale violet red"  219-112-147
-    tcl::dict::set TK_colour_map PaleGoldenrod      238-232-170
-    tcl::dict::set TK_colour_map PaleGreen          152-251-152
-    tcl::dict::set TK_colour_map PaleGreen1         154-255-154
-    tcl::dict::set TK_colour_map PaleGreen2         144-238-144
-    tcl::dict::set TK_colour_map PaleGreen3         124-205-124
-    tcl::dict::set TK_colour_map PaleGreen4         84-139-84
-    tcl::dict::set TK_colour_map PaleTurquoise      175-238-238
-    tcl::dict::set TK_colour_map PaleTurquoise1     187-255-255
-    tcl::dict::set TK_colour_map PaleTurquoise2     174-238-238
-    tcl::dict::set TK_colour_map PaleTurquoise3     150-205-205
-    tcl::dict::set TK_colour_map PaleTurquoise4     102-139-139
-    tcl::dict::set TK_colour_map PaleVioletRed      219-112-147
-    tcl::dict::set TK_colour_map PaleVioletRed1     255-130-171
-    tcl::dict::set TK_colour_map PaleVioletRed2     238-121-159
-    tcl::dict::set TK_colour_map PaleVioletRed3     205-104-127
-    tcl::dict::set TK_colour_map PaleVioletRed4     139-71-93
-    tcl::dict::set TK_colour_map "papaya whip"      255-239-213
-    tcl::dict::set TK_colour_map PapayaWhip         255-239-213
-    tcl::dict::set TK_colour_map "peach puff"       255-218-185
-    tcl::dict::set TK_colour_map PeachPuff          255-218-185
-    tcl::dict::set TK_colour_map PeachPuff1         255-218-185
-    tcl::dict::set TK_colour_map PeachPuff2         238-203-173
-    tcl::dict::set TK_colour_map PeachPuff3         205-175-149
-    tcl::dict::set TK_colour_map PeachPuff4         139-119-101
-    tcl::dict::set TK_colour_map peru               205-133-63
-    tcl::dict::set TK_colour_map pink               255-192-203
-    tcl::dict::set TK_colour_map pink1              255-181-197
-    tcl::dict::set TK_colour_map pink2              238-169-184
-    tcl::dict::set TK_colour_map pink3              205-145-158
-    tcl::dict::set TK_colour_map pink4              139-99-108
-    tcl::dict::set TK_colour_map plum               221-160-221
-    tcl::dict::set TK_colour_map plum1              255-187-255
-    tcl::dict::set TK_colour_map plum2              238-174-238
-    tcl::dict::set TK_colour_map plum3              205-150-205
-    tcl::dict::set TK_colour_map plum4              139-102-139
-    tcl::dict::set TK_colour_map "powder blue"      176-224-230
-    tcl::dict::set TK_colour_map PowderBlue         176-224-230
-    tcl::dict::set TK_colour_map purple             128-0-128
-    tcl::dict::set TK_colour_map purple1            155-48-255
-    tcl::dict::set TK_colour_map purple2            145-44-238
-    tcl::dict::set TK_colour_map purple3            125-38-205
-    tcl::dict::set TK_colour_map purple4            85-26-139
-    tcl::dict::set TK_colour_map red                255-0-0
-    tcl::dict::set TK_colour_map red1               255-0-0
-    tcl::dict::set TK_colour_map red2               238-0-0
-    tcl::dict::set TK_colour_map red3               205-0-0
-    tcl::dict::set TK_colour_map red4               139-0-0
-    tcl::dict::set TK_colour_map "rosy brown"       188-143-143
-    tcl::dict::set TK_colour_map RosyBrown          188-143-143
-    tcl::dict::set TK_colour_map RosyBrown1         255-193-193
-    tcl::dict::set TK_colour_map RosyBrown2         238-180-180
-    tcl::dict::set TK_colour_map RosyBrown3         205-155-155
-    tcl::dict::set TK_colour_map RosyBrown4         139-105-105
-    tcl::dict::set TK_colour_map "royal blue"       65-105-225
-    tcl::dict::set TK_colour_map RoyalBlue          65-105-225
-    tcl::dict::set TK_colour_map RoyalBlue1         72-118-255
-    tcl::dict::set TK_colour_map RoyalBlue2         67-110-238
-    tcl::dict::set TK_colour_map RoyalBlue3         58-95-205
-    tcl::dict::set TK_colour_map RoyalBlue4         39-64-139
-    tcl::dict::set TK_colour_map "saddle brown"     139-69-19
-    tcl::dict::set TK_colour_map SaddleBrown        139-69-19
-    tcl::dict::set TK_colour_map salmon             250-128-114
-    tcl::dict::set TK_colour_map salmon1            255-140-105
-    tcl::dict::set TK_colour_map salmon2            238-130-98
-    tcl::dict::set TK_colour_map salmon3            205-112-84
-    tcl::dict::set TK_colour_map salmon4            139-76-57
-    tcl::dict::set TK_colour_map "sandy brown"      244-164-96
-    tcl::dict::set TK_colour_map SandyBrown         244-164-96
-    tcl::dict::set TK_colour_map "sea green"        46-139-87
-    tcl::dict::set TK_colour_map SeaGreen           46-139-87
-    tcl::dict::set TK_colour_map SeaGreen1          84-255-159
-    tcl::dict::set TK_colour_map SeaGreen2          78-238-148
-    tcl::dict::set TK_colour_map SeaGreen3          67-205-128
-    tcl::dict::set TK_colour_map SeaGreen4          46-139-87
-    tcl::dict::set TK_colour_map seashell           255-245-238
-    tcl::dict::set TK_colour_map seashell1          255-245-238
-    tcl::dict::set TK_colour_map seashell2          238-229-222
-    tcl::dict::set TK_colour_map seashell3          205-197-191
-    tcl::dict::set TK_colour_map seashell4          139-134-130
-    tcl::dict::set TK_colour_map sienna             160-82-45
-    tcl::dict::set TK_colour_map sienna1            255-130-71
-    tcl::dict::set TK_colour_map sienna2            238-121-66
-    tcl::dict::set TK_colour_map sienna3            205-104-57
-    tcl::dict::set TK_colour_map sienna4            139-71-38
-    tcl::dict::set TK_colour_map silver             192-192-192
-    tcl::dict::set TK_colour_map "sky blue"         135-206-235
-    tcl::dict::set TK_colour_map SkyBlue            135-206-235
-    tcl::dict::set TK_colour_map SkyBlue1           135-206-255
-    tcl::dict::set TK_colour_map SkyBlue2           126-192-238
-    tcl::dict::set TK_colour_map SkyBlue3           108-166-205
-    tcl::dict::set TK_colour_map SkyBlue4           74-112-139
-    tcl::dict::set TK_colour_map "slate blue"       106-90-205
-    tcl::dict::set TK_colour_map "slate gray"       112-128-144
-    tcl::dict::set TK_colour_map "slate grey"       112-128-144
-    tcl::dict::set TK_colour_map SlateBlue          106-90-205
-    tcl::dict::set TK_colour_map SlateBlue1         131-111-255
-    tcl::dict::set TK_colour_map SlateBlue2         122-103-238
-    tcl::dict::set TK_colour_map SlateBlue3         105-89-205
-    tcl::dict::set TK_colour_map SlateBlue4         71-60-139
-    tcl::dict::set TK_colour_map SlateGray          112-128-144
-    tcl::dict::set TK_colour_map SlateGray1         198-226-255
-    tcl::dict::set TK_colour_map SlateGray2         185-211-238
-    tcl::dict::set TK_colour_map SlateGray3         159-182-205
-    tcl::dict::set TK_colour_map SlateGray4         108-123-139
-    tcl::dict::set TK_colour_map SlateGrey          112-128-144
-    tcl::dict::set TK_colour_map snow               255-250-250
-    tcl::dict::set TK_colour_map snow1              255-250-250
-    tcl::dict::set TK_colour_map snow2              238-233-233
-    tcl::dict::set TK_colour_map snow3              205-201-201
-    tcl::dict::set TK_colour_map snow4              139-137-137
-    tcl::dict::set TK_colour_map "spring green"     0-255-127
-    tcl::dict::set TK_colour_map SpringGreen        0-255-127
-    tcl::dict::set TK_colour_map SpringGreen1       0-255-127
-    tcl::dict::set TK_colour_map SpringGreen2       0-238-118
-    tcl::dict::set TK_colour_map SpringGreen3       0-205-102
-    tcl::dict::set TK_colour_map SpringGreen4       0-139-69
-    tcl::dict::set TK_colour_map "steel blue"       70-130-180
-    tcl::dict::set TK_colour_map SteelBlue          70-130-180
-    tcl::dict::set TK_colour_map SteelBlue1         99-184-255
-    tcl::dict::set TK_colour_map SteelBlue2         92-172-238
-    tcl::dict::set TK_colour_map SteelBlue3         79-148-205
-    tcl::dict::set TK_colour_map SteelBlue4         54-100-139
-    tcl::dict::set TK_colour_map tan                210-180-140
-    tcl::dict::set TK_colour_map tan1               255-165-79
-    tcl::dict::set TK_colour_map tan2               238-154-73
-    tcl::dict::set TK_colour_map tan3               205-133-63
-    tcl::dict::set TK_colour_map tan4               139-90-43
-    tcl::dict::set TK_colour_map teal               0-128-128
-    tcl::dict::set TK_colour_map thistle            216-191-216
-    tcl::dict::set TK_colour_map thistle1           255-225-255
-    tcl::dict::set TK_colour_map thistle2           238-210-238
-    tcl::dict::set TK_colour_map thistle3           205-181-205
-    tcl::dict::set TK_colour_map thistle4           139-123-139
-    tcl::dict::set TK_colour_map tomato             255-99-71
-    tcl::dict::set TK_colour_map tomato1            255-99-71
-    tcl::dict::set TK_colour_map tomato2            238-92-66
-    tcl::dict::set TK_colour_map tomato3            205-79-57
-    tcl::dict::set TK_colour_map tomato4            139-54-38
-    tcl::dict::set TK_colour_map turquoise          64-224-208
-    tcl::dict::set TK_colour_map turquoise1         0-245-255
-    tcl::dict::set TK_colour_map turquoise2         0-229-238
-    tcl::dict::set TK_colour_map turquoise3         0-197-205
-    tcl::dict::set TK_colour_map turquoise4         0-134-139
-    tcl::dict::set TK_colour_map violet             238-130-238
-    tcl::dict::set TK_colour_map "violet red"       208-32-144
-    tcl::dict::set TK_colour_map VioletRed          208-32-144
-    tcl::dict::set TK_colour_map VioletRed1         255-62-150
-    tcl::dict::set TK_colour_map VioletRed2         238-58-140
-    tcl::dict::set TK_colour_map VioletRed3         205-50-120
-    tcl::dict::set TK_colour_map VioletRed4         139-34-82
-    tcl::dict::set TK_colour_map wheat              245-222-179
-    tcl::dict::set TK_colour_map wheat1             255-231-186
-    tcl::dict::set TK_colour_map wheat2             238-216-174
-    tcl::dict::set TK_colour_map wheat3             205-186-150
-    tcl::dict::set TK_colour_map wheat4             139-126-102
-    tcl::dict::set TK_colour_map white              255-255-255
-    tcl::dict::set TK_colour_map "white smoke"      245-245-245
-    tcl::dict::set TK_colour_map WhiteSmoke         245-245-245
-    tcl::dict::set TK_colour_map yellow             255-255-0
-    tcl::dict::set TK_colour_map "yellow green"     154-205-50
-    tcl::dict::set TK_colour_map yellow1            255-255-0
-    tcl::dict::set TK_colour_map yellow2            238-238-0
-    tcl::dict::set TK_colour_map yellow3            205-205-0
-    tcl::dict::set TK_colour_map yellow4            139-139-0
-    tcl::dict::set TK_colour_map YellowGreen        154-205-50
-
-    variable TK_colour_map_lookup ;#same dict but with lower-case versions added
-    set TK_colour_map_lookup $TK_colour_map
-    dict for {key val} $TK_colour_map {
-        dict set TK_colour_map_lookup [tcl::string::tolower $key] $val ;#no need to test if already present - just set.
-    }
-
-    variable TK_colour_map_reverse [dict create]
-    dict for {key val} $TK_colour_map {
-        dict lappend TK_colour_map_reverse $val $key
-    }
-
-    #using same order as inital colour map
-    variable TK_colour_map_merge [dict create]
-    set seen_names [dict create]
-    dict for {key val} $TK_colour_map {
-        if {[dict exists $seen_names $key]} {
-            continue
-        }
-        set allnames [dict get $TK_colour_map_reverse $val]
-        set names [list]
-        foreach n $allnames {
-            if {$n ne $key} {
-                lappend names $n
-            }
-        }
-        dict set TK_colour_map_merge $key [dict create colour $val names $names]
-        foreach n $names {
-            dict set seen_names $n 1
-        }
-    }
-    unset seen_names
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval ::punk::ansi::colourmap::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace ::punk::ansi::colourmap::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace ::punk::ansi::colourmap::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-
-# -----------------------------------------------------------------------------
-#    register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked
-# -----------------------------------------------------------------------------
-#    variable PUNKARGS
-#    variable PUNKARGS_aliases
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::ansi::colourmap
-}
-# -----------------------------------------------------------------------------
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::ansi::colourmap [tcl::namespace::eval ::punk::ansi::colourmap {
-    variable pkg ::punk::ansi::colourmap
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm
deleted file mode 100644
index d8c43c45..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args-0.2.tm
+++ /dev/null
@@ -1,10325 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::args 0.2
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::args 0 0.2]
-#[copyright "2024"]
-#[titledesc {args parsing}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {args to nested dict of opts and values}]             [comment {-- Description at end of page heading --}]
-#[require punk::args]
-#[keywords module proc args arguments parse]
-#[description]
-#[para]Utilities for parsing proc args
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] There are many ways to parse arguments and many (too many?) packages to do it (see below for a discussion of packages and pure-tcl mechanisms).
-#[para] overview of punk::args
-#[subsection Concepts]
-#[para]There are 2 main conventions for parsing a proc args list
-#[list_begin enumerated]
-#[enum]
-#[para]leading option-value pairs and flags followed by a list of values (Tcl style)
-#[enum]
-#[para]leading list of values followed by option-value pairs and flags  (Tk style)
-#[list_end]
-#[para]There are exceptions in both Tcl and Tk commands regarding this ordering
-#[para]punk::args is focused on the 1st convention (Tcl style): parsing of the 'args' variable in leading option-value pairs (and/or solo flags) style
-#[para]The proc can still contain some leading required values e.g  [example "proc dostuff {arg1 arg2 args} {...}}"]
-#[para]but having the core values elements at the end of args is arguably more generally useful - especially in cases where the number of trailing values is unknown and/or the proc is to be called in a functional 'pipeline' style.
-#[para]
-#[para]The basic principle is that a call to punk::args::parse is made near the beginning of the proc with a cacheable argument defining the parameters e.g
-#[example {
-#   proc dofilestuff {args} {
-#       lassign [dict values [punk::args::parse $args withdef {
-#           @cmd -help "do some stuff with files e.g dofilestuff <file1> <file2> <file3>"
-#           @opts -type string
-#           #comment lines ok
-#           -directory   -default ""
-#           -translation -default binary
-#           #setting -type none indicates a flag that doesn't take a value (solo flag)
-#           -nocomplain -type none
-#           @values -min 1 -max -1
-#       }]] leaders opts values
-#
-#       puts "translation is [dict get $opts -translation]"
-#       foreach f [dict values $values] {
-#           puts "doing stuff with file: $f"
-#       }
-#   }
-#}]
-#[para]The lines beginning with @ are usually optional in most cases and can be used to set defaults and some extra controls
-#[para] - the above example would work just fine with only the -<optionname> lines, but would allow zero filenames to be supplied as no -min value is set for @values
-#[para]valid @ lines being with @cmd @leaders @opts @values
-#[para]lines beginning with a dash define options - a name can optionally be given to each trailing positional argument.
-#[para]If no names are defined for positional arguments, they will end up in the values key of the dict with numerical keys starting at zero.
-#[para]e.g the result from the punk::args::parse call above may be something like:
-#[para] leaders {} opts {-translation binary -directory "" -nocomplain 0} values {0 file1.txt 1 file2.txt 2 file3.txt}
-#[para]Here is an example that requires the number of values supplied to be exactly 2 and names the positional arguments
-#[para]It also demonstrates an inital argument 'category' that is outside of the scope for punk::args processing - allowing leading and trailing positional arguments
-#[para]This could also be implemented entirely using args - and the @leaders category of arguments
-#[example {
-#   proc dofilestuff {category args} {
-#       lassign [dict values [punk::args::parse $args withdef {
-#            @id -id ::dofilestuff
-#           -directory   -default ""
-#           -translation -default binary
-#           -nocomplain -type none
-#           @values -min 2 -max 2
-#            fileA -type existingfile 1
-#            fileB -type existingfile 1
-#       }]] leaders opts values
-#       puts "$category fileA: [dict get $values fileA]"
-#       puts "$category fileB: [dict get $values fileB]"
-#   }
-#}]
-#[para]By using standard tcl proc named arguments prior to args, and setting @values -min 0 -max 0
-#[para]a Tk-style ordering can be acheived, where punk::args is only handling the trailing flags and the values element of the returned dict can be ignored
-#[para]This use of leading positional arguments means the type validation features can't be applied to them. It can be done manually as usual,
-#[para] or an additional call could be made to punk::args e.g
-#[example {
-#       punk::args::parse [list $category $another_leading_arg] withdef {
-#           category                -choices {cat1 cat2 cat3}
-#           another_leading_arg     -type boolean
-#       }
-#}]
-
-#*** !doctools
-#[subsection Notes]
-#[para]For internal functions not requiring features such as solo flags, prefix matching, type checking etc - a well crafted switch statement will be the fastest pure-tcl solution.
-#[para]
-#When functions are called often and/or in inner loops, a switch based solution generally makes the most sense.
-#For functions that are part of an API a package may be more suitable.
-#[para]The following example shows a switch-based solution that is highly performant (sub microsecond for the no-args case)
-#[example {
-#    proc test_switch {args} {
-#        set opts [dict create\\
-#            -return "object"\\
-#            -frametype "heavy"\\
-#            -show_edge  1\\
-#            -show_seps  0\\
-#            -x a\\
-#            -y b\\
-#            -z c\\
-#            -1 1\\
-#            -2 2\\
-#            -3 3\\
-#        ]
-#        foreach {k v} $args {
-#            switch -- $k {
-#                -return - -show_edge - -show_seps - -frametype - -x - -y - -z - -1 - -2 - -3 {
-#                    dict set opts $k $v
-#                }
-#                default {
-#                    error "unrecognised option '$k'. Known options [dict keys $opts]"
-#                }
-#            }
-#        }
-#        return $opts
-#    }
-#}]
-#[para]Note that the switch statement uses literals so that the compiler produces a jump-table for best performance.
-#[para]
-#      Attempting to build the switch branch using the values from dict keys $opts will stop the jump table being built.
-#      To create the faster switch statement without repeating the key names, the proc body would need to be built using string map.
-#[para]use punk::lib::show_jump_tables <procname> to verify that a jump table exists.
-#[para]Nearly as performant due to the c-coded tcl::prefix::match function built into Tcl is the following example - which also allows shortened option names if they are unambiguous
-#[example {
-#    proc test_prefix {args} {
-#        set opts [dict create\
-#            -return string\
-#            -frametype \uFFEF\
-#            -show_edge \uFFEF\
-#            -show_seps \uFFEF\
-#            -x a\
-#            -y b\
-#            -z c\
-#            -1 1\
-#            -2 2\
-#            -3 3\
-#        ]
-#        if {[llength $args]} {
-#            set knownflags [dict keys $opts]
-#        }
-#        foreach {k v} $args {
-#            dict set opts [tcl::prefix::match -message "test_prefix option $k" $knownflags $k] $v
-#        }
-#        return $opts
-#    }
-#}]
-#[para]There are many alternative args parsing packages a few of which are listed here.
-#[list_begin enumerated]
-#[enum]argp                             (pure tcl)
-#[enum]parse_args                       (c implementation)
-#[enum]argparse                         (pure tcl *)
-#[enum]cmdline                          (pure tcl)
-#[enum]opt                              (pure tcl) distributed with Tcl but considered deprecated
-#[enum]The tcllib set of TEPAM modules  (pure tcl)
-#[para]TEPAM requires an alternative procedure declaration syntax instead of proc - but has support for Tk and documentation generation.
-#[list_end]
-#[para] (*  c implementation planned/proposed)
-#[para]punk::args was designed initially without specific reference to TEPAM - and to handle some edge cases in specific projects where TEPAM wasn't suitable.
-#[para]In subsequent revisions of punk::args - some features were made to operate in a way that is similar to TEPAM - to avoid gratuitous differences where possible, but of course there are differences
-#[para]and those used TEPAM or mixing TEPAM and punk::args should take care to assess the differences.
-#[para]TEPAM is a mature solution and is widely available as it is included in tcllib.
-#[para]Serious consideration should be given to using TEPAM or one of the other packages, if suitable for your project.
-#[para]punk::args is relatively performant for a pure-tcl package solution - with the parsing of the argument specification block occuring only on the first run - after which a cached version of the spec is used.
-#[para]punk::args is not limited to procs. It can be used in apply or coroutine situations for example.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-#All ensemble commands are slower in a safe interp as they aren't compiled the same way
-#https://core.tcl-lang.org/tcl/tktview/1095bf7f75
-#as this is needed in safe interps too, and the long forms tcl::dict::for tcl::string::map are no slower in a normal interp - we use the long form here.
-#(As at 2024-06 There are many tcl8.6/8.7 interps in use which are affected by this and it's unknown when/whether it will be fixed)
-#ensembles: array binary clock dict info namespace string
-#possibly file too, although that is generally hidden/modified in a safe interp
-#chan,encoding always seems to use invokeStk1 anyway - yet there are performance improvements using ::tcl::chan::names etc
-#interestingly in tcl8.7 at least - tcl::namespace::eval $somens $somescript is slightly faster than namespace eval even in unsafe interp
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::args
-#[list_begin itemized]
-package require Tcl 8.6-
-#optional? punk::trie
-#optional? punk::textblock
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-tcl::namespace::eval punk::args::register {
-    #*** !doctools
-    #[subsection {Namespace punk::args::register}]
-    #[para] cooperative namespace punk::args::register
-    #[para] punk::args aware packages may add their own namespace to the public list variable NAMESPACES before or after punk::args is loaded
-    #[para] The punk::args package will then test for a public list variable <namepace>::PUNKARGS containing argument definitions when it needs to.
-    #[list_begin definitions]
-
-    #Although the actual punk::args::define calls are not too sluggish, there could be *many*.
-    #in a multi-interp environment, we want to be lazy about loading argdefs until they're actually required,
-    #especially since a fair proportion may be for documentation purposes rather than parsing args.
-
-    # -- --- --- --- --- --- --- ---
-    #cooperative with packages that define some punk args but do so lazily
-    #These could be loaded prior to punk::args being loaded - so check existence of NAMESPACES var first
-    variable NAMESPACES   ;#just declaring it with variable doesn't yet mean it 'exists' from 'info exists' perspective
-    if {![info exists ::punk::args::register::NAMESPACES]} {
-        set ::punk::args::register::NAMESPACES [list]
-    }
-    # -- --- --- --- --- --- --- ---
-
-    variable loaded_packages
-    if {![info exists loaded_packages]} {
-        set loaded_packages       [list]          ;#fully loaded
-    }
-    variable loaded_info
-    if {![info exists loaded_info]} {
-       set loaded_info [dict create]   ;#time
-    }
-    variable scanned_packages
-    if {![info exists scanned_packages]} {
-        set scanned_packages       [list]          ;#packages scanned for ids used to update namespace_docpackages
-    }
-    variable scanned_info              ;#time and idcount
-    if {![info exists scanned_info]} {
-        set scanned_info [dict create]
-    }
-    #some packages, e.g punk::args::tclcore document other namespaces.
-    #when punk::args::update_definitions gets a query for a namespace - we need to load argdefs from registered sources
-    variable namespace_docpackages
-    if {![info exists namespace_docpackages]} {
-        set namespace_docpackages [dict create]
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::args::register ---}]
-}
-
-tcl::namespace::eval ::punk::args {}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::args {
-
-
-    variable PUNKARGS ;#list of our own punk::args function argument definitions - loaded with punk::args::define at the end.
-
-    tcl::namespace::export {[a-z]*}
-    variable rawdef_cache
-    if {![info exists rawdef_cache]} {
-        set rawdef_cache       [tcl::dict::create] ;#key on rawdef list - return dict of {-id <id> -dynamic 0|1}
-    }
-    variable id_cache_rawdef
-    if {![info exists id_cache_rawdef]} {
-        set id_cache_rawdef   [tcl::dict::create]
-    }
-    variable id_cache_spec
-    if {![info exists id_cache_spec]} {
-        set id_cache_spec      [tcl::dict::create]
-    }
-
-    variable argdefcache_unresolved
-    if {![info exists argdefcache_unresolved]} {
-        set argdefcache_unresolved [tcl::dict::create] ;#key = original template list supplied to 'define', value = 2-element list: (tstr-parsed split of template) & (unresolved params)
-    }
-
-    variable argdata_cache
-    if {![info exists argdata_cache]} {
-        set argdata_cache     [tcl::dict::create]
-    }
-
-    variable id_counter
-    if {![info exists id_counter]} {
-        set id_counter 0
-    }
-
-    #*** !doctools
-    #[subsection {Namespace punk::args}]
-    #[para] Core API functions for punk::args
-    #[list_begin definitions]
-
-    #todo - some sort of punk::args::cherrypick operation to get spec from an existing set
-    #todo - doctools output from definition
-
-
-
-
-    #todo? -synonym/alias ? (applies to opts only not values)
-    #e.g -background -aliases {-bg} -default White
-    #review - how to make work with trie prefix
-    #e.g
-    # -corner -aliases {-corners}
-    # -centre -aliases {-center -middle}
-    #We mightn't want the prefix to be longer just because of an alias
-    #we should get -co -ce and -m from the above as abbreviations
-
-    set map [list %G% \x1b\[32m %B% \x1b\[1m %R% \x1b\[m %N% \x1b\[22m %I% \x1b\[3m  %NI% \x1b\[23m ]
-
-    lappend PUNKARGS [list [string map $map {
-        @id  -id ::punk::args::define
-        #todo @preamble -help "move large block outside of table?"
-        @cmd -name punk::args::define -help\
-            "Accepts a line-based definition of command arguments.
-            The definition can be supplied as a single text block or multiple as described
-            in the help information for 'text' below.
-
-            Returns an id which is a key to the stored definition.
-            The id is taken from the supplied definition's @id -id <idvalue> line, or is an
-            automatically created id of the form 'autoid_<int>'.
-
-            At the time define is called - just the raw text arguments are stored for the id.
-            When the id is first used, for example with 'punk::args::parse $args withid $id',
-            the raw definition is parsed into a stored specifications dictionary.
-
-            This specifications dictionary is structured for (optional) use within commands to
-            parse and validate the arguments - and is also used when retrieving definitions
-            (or parts thereof) for re-use.
-
-            This can be used purely for documentation or called within a function to parse a mix
-            of leading values, switches/flags and trailing values.
-
-            The overhead is favourably comparable with other argument processors - but none are
-            as fast as minimal code with a switch statement. For toplevel commands where a few
-            10s of microseconds is immaterial, the validation and automated error formatting in
-            a table can be well worthwhile. For inner procs requiring utmost speed, the call can
-            be made only on the unhappy path when basic processing determines a mismatch - or it
-            can be left entirely as documentation for interactive use with: i <cmd> ...
-            and for synopsis generation with: s <cmd> ...
-
-            The definition should usually contain an initial line of the form: @id -id ::somecmd
-
-            Blank lines are ignored at the top level, ie if they are not part of another structure.
-            Similarly - lines at the top level beginning with the # character are ignored.
-            All other toplevel lines must consist of a leading word followed by paired arguments.
-            The arguments can be spread over multiple lines and contain lines of near-arbitrary
-            text if they are properly braced or double quoted and Tcl escaping for inner quotes
-            or unbalanced braces is maintained.
-            The line continuation character
-            (\\ at the end of the line) can be used to continue the set of arguments for
-            a leading word.
-            Leading words beginning with the @ character are directives controlling argument
-            parsing, defaults for subsequent arguments, and help display.
-            directives include:
-                 %B%@id%N%         ?opt val...?
-                    directive-options: -id <str>
-                 %B%@cmd%N%        ?opt val...?
-                    directive-options:  -name <str>
-                                        -summary <str>
-                                        -help <str>
-                 %B%@leaders%N%    ?opt val...?
-                    (used for leading args that come before switches/opts)
-                    directive-options:
-                        -min <int> -max <int> (min and max number of leaders)
-                        -unnamed <bool>  (allow unnamed positional leaders)
-                        -takewhenargsmodulo <int> (assign args to leaders based on modulo
-                            of total number of args. If value is not supplied (or < 2) then
-                            leaders are assigned based on whether configured opts are
-                            encountered, and whether the min number of leaders and values
-                            can be satisfied. In this case optional leaders are assigned if
-                            the type of the argument can be matched.)
-                    (also accepts options as defaults for subsequent leader definitions)
-                 %B%@opts%N%       ?opt val...?
-                    directive-options:  -any|-arbitrary <bool>
-                    (also accepts options as defaults for subsequent flag definitions)
-                 %B%@values%N%     ?opt val...?
-                    (used for trailing args that come after switches/opts)
-                    directive-options:  -min <int> -max <int> -unnamed <bool>
-                    (also accepts options as defaults for subsequent value definitions)
-                 %B%@form%N%         ?opt val...?
-                    (used for commands with multiple forms)
-                    directive-options:  -form <list> -synopsis <string>
-                    The -synopsis value allows overriding the auto-calculated
-                    synopsis.
-                 %B%@formdisplay%N% ?opt val...?
-                    directive-options:  -header <str> (text for header row of table)
-                              -body <str>  (override autogenerated arg info for form)
-                 %B%@doc%N%        ?opt val...?
-                    directive-options:  -name <str> -url <str>
-                 %B%@examples%N%        ?opt val...?
-                    directive-options: -help <str>
-                 %B%@seealso%N%        ?opt val...?
-                    directive-options:  -name <str> -url <str> (for footer - unimplemented)
-
-                Some other options normally present on custom arguments are available
-                to use with the @leaders @opts @values directives to set defaults
-                for subsequent lines that represent your custom arguments.
-                These 3 directives should occur in exactly this order - but can be
-                repeated with custom argument lines interspersed.
-
-                An @id line can only appear once and should be the first item.
-                For the commandline usage to be displayed either on parsing error
-                or using the i <cmd>.. function - an @id with -id <value> is needed.
-
-                All directives can be omitted, in which case every line represents
-                a custom leader, value or option.
-                All will be leaders by default if no options defined.
-                If options are defined (by naming with leading dash, or explicitly
-                specifying @opts) then the definitions prior to the options will be
-                categorised as leaders, and those following the options will be
-                categorised as values.
-
-                Custom arguments are defined by using any word at the start of a
-                line that doesn't begin with @ or -
-                (except that adding an additionl @ escapes this restriction so
-                that @@somearg becomes an argument named @somearg)
-
-                custom leading args, switches/options (names starting with -)
-                and trailing values also take spec-options:
-
-                    -type <typename|typenamelist>
-                        A typenamelist represents a multi-value clause where each
-                        value must match the specified type in order. This is not
-                        valid for flags - which can only take a single value.
-
-                        typename and entries in typenamelist can take 2 forms:
-                        1) basic form: elements of llength 1 such as a simple type,
-                          or a pipe-delimited set of type-alternates.
-                          e.g for a single typename:
-                            -type int,  -type int|char, -type int|literal(abc)
-                          e.g for a typenamelist
-                            -type {int double}, -type {int|char double}
-                        2) special form: elements of variable length
-                          e.g for a single typename:
-                          -type {{literal |}}
-                          -type {{literal | | literal (}}
-                          e.g for a typenamelist
-                          -type {{literal |} {stringstartswith abc | int}}
-                        The 2 forms can be mixed:
-                          -type {{literal |} {stringstartswith a|c | int} literal(xyz)|int}
-
-                         Defaults to string. If no other restrictions
-                         are required, choosing -type any does the least validation.
-                        recognised types:
-                            any
-                                (unvalidated - accepts anything)
-                            none
-                                (used for flags/switches only. Indicates this is
-                                a 'solo' flag ie accepts no value)
-                                Not valid as a member of a clause's typenamelist.
-                            int
-                            integer
-                            number
-                            list
-                            indexexpression
-                            dict
-                            double
-                            float
-                            bool
-                            boolean
-                            char
-                            file
-                            directory
-                            ansistring
-                            globstring
-                            (any of the types accepted by 'string is')
-
-                            The above all perform some validation checks
-
-                            string
-                                (also any of the 'string is' types such as
-                                xdigit, graph, punct, lower etc)
-                                -type string on its own does not need validation,
-                                but still checks for string-related restrictions
-                                such as regexprefail, & minsize
-
-                            literal(<string>)
-                                (exact match for string)
-                            literalprefix(<string>)
-                                (prefix match for string, other literal and literalprefix
-                                entries specified as alternates using | are used in the
-                                calculation)
-                            stringstartswith(<string>)
-                                (value must match glob <string>*)
-                                The value of string must not contain pipe char '|'
-
-                            Note that types can be combined with | to indicate an 'or'
-                            operation
-                              e.g  char|int
-                              e.g literal(xxx)|literal(yyy)
-                              e.g literalprefix(text)|literalprefix(binary)
-                            (when all in the pipe-delimited type-alternates set are
-                            literal or literalprefix - this is similar to the -choices
-                            option)
-
-
-                            and more.. (todo - document here)
-                            If a typenamelist is supplied and has length > 1
-                            then -typeranges must be used instead of -range
-                            The number of elements in -typeranges must match
-                            the number of elements specified in -type.
-
-                    -typesynopsis <typedisplay|typedisplaylist>
-                            Must be same length as value in -type
-                            This provides and override for synopsis display of types.
-                            Any desired italicization must be applied manually to the
-                            value.
-
-                    -optional <boolean>
-                        (defaults to true for flags/switches false otherwise)
-                        For non flag/switch arguments - all arguments with
-                        -optional true must sit consecutively within their group.
-                        ie all optional leader arguments must be together, and all
-                        optional value arguments must be together. Furthermore,
-                        specifying both optional leaders and optional values will
-                        often lead to ambiguous parsing results. Currently, all
-                        optional non-flg/switch arguments should be either at the
-                        trailing end of leaders or the trailing end of values.
-                        Further unambiguous arrangements of optional args may be
-                        made in future - but are currently considered 'unsupported'
-                    -default  <value>
-                    -multiple <bool> (for leaders & values defines whether
-                        subsequent received values are stored against the same
-                        argument name - only applies to final leader OR final value)
-                        (for options/flags this allows the opt-val pair or solo
-                        flag to appear multiple times - not necessarily contiguously)
-                    -choices {<choicelist>}
-                        A list of allowable values for an argument.
-                        The -default value doesn't have to be in the list.
-                        If a -type is specified - it doesn't apply to choice members.
-                        It will only be used for validation if the -choicerestricted
-                        option is set to false. If all choices are specified in values
-                        within the -choicegroups dict, it is not necessary to specify them
-                        in the -choices list. It is effectively a simpler form of
-                        specifying choices when no grouping is required. It is fine to
-                        use both -choices and -choicegroups e.g specifying all in -choices
-                        and then including only some that need grouping in -choicegroups.
-                    -choicelabels {<dict>}
-                        keys are the values/argument names from -choices (or equivalently
-                        members of value entries from the -choicegroups dict)
-                        The values in the choicelabels dict are text values, possibly
-                        containing newlines, that are displayed below each choice.
-                        This is commonly a very basic summary of the choice. In the
-                        case of a subcommand it may be a usage synopsis for further
-                        arguments.
-                    -choicerestricted <bool>
-                        Whether values not specified in -choices or -choicegroups are
-                        allowed. Defaults to true.
-                    -choiceprefix <bool>
-                        This specifies whether unique prefixes are able to be used
-                        instead of the complete string. This is calculated using
-                        tcl::prefix::match - and will display in the autogenerated
-                        usage output. Defaults to true.
-                    -choiceprefixdenylist {<choices>}
-                        These choices should match exactly a choice entry in one of
-                        the settings -choices or -choicegroups.
-                        These will still be used in prefix calculation - but the full
-                        choice argument must be entered to select the choice.
-                    -choiceprefixreservelist {<choices>}
-                        These choices are additional values used in prefix calculation.
-                        The values will not be added to the list of available choices.
-                    -choicegroups {<dict>}
-                        Generally this would be used instead of -choices to allow
-                        usage display of choices grouped by some name (or the empty
-                        string for 'ungrouped' items which appear first).
-                        See for example the output if 'i zlib' where choices of the
-                        next subcommand are grouped by the names compression,channel,
-                        streaming and checksumming. The -choices list is equivalent
-                        to a -choicegroups dict entry where the key (groupname) is
-                        the empty string. Both may be specified, in which case the
-                        final list of available choices will be a union of the listed
-                        values in -choices and the values from each choice group.
-                        Choice values specified in -choices are effectively ungrouped
-                        unless overridden by placing them in a choicegroup.
-                    -choicemultiple <range> (default {1 1})
-                        <range> is a pair representing min and max number of choices
-                        that can be present in the value.
-                        If <range> is a single integer it is equivalent to a <range>
-                        specified with the same integer for both min and max.
-                        Max of -1 represents no upper limit.
-                        If <range> allows more than one choice the value is a list
-                        consisting of items in the choices made available through
-                        entries in -choices/-choicegroups.
-                    -minsize (type dependant)
-                    -maxsize (type dependant)
-                    -range   (type dependant - only valid if -type is a single item)
-                    -typeranges (list with same number of elements as -type)
-
-
-            "
-        -dynamic -type boolean -default 0 -help\
-           "If -dynamic is true, tstr interpolations of the form \$\{\$var\}
-              are re-evaluated on each call.
-              If the definition is being used not just as documentation, but is also
-              used within the function to parse args, e.g using punk::args::get_by_id,
-              then it should be noted that there is a slight performance penalty for the
-              dynamic case.
-              It is often not significant, perhaps depending on what vars/commands are
-              used but -dynamic true might be less desirable if the command is used in
-              inner loops in more performance-sensitive code.
-            "
-        @values -min 1 -max -1
-        #text should be a well-formed Tcl list
-        text -type list -multiple 1  -help\
-           {Block(s) of text representing the argument definition for a command.
-              At least one must be supplied. If multiple, they are joined together with \n.
-              Using multiple text arguments may be useful to mix curly-braced and double-quoted
-              strings to have finer control over interpolation when defining arguments.
-              (this can also be handy for sections that pull resolved definition lines
-              from existing definitions (by id) for re-use of argument specifications and help text)
-
-              e.g the following definition passes 2 blocks as text arguments
-                  ${[punk::args::tclcore::argdoc::example {
-                  punk::args::define {
-                    @id -id ::myns::myfunc
-                    @cmd -name myns::myfunc -help\
-                        "Description of command"
-
-                    %G%#The following option defines an option-value pair%R%
-                    %G%#It may have aliases by separating them with a pipe |%R%
-                    -fg|-foreground -default blah -type string -help\
-                        "In the result dict returned by punk::args::parse
-                          the value used in the opts key will always be the last
-                          entry, in this case -foreground"
-                    %G%#The following option defines a flag style option (solo)%R%
-                    -flag1 -default 0 -type none -help\
-                       "Info about flag1
-                          subsequent help lines auto-dedented by whitespace to left
-                          of corresponding record start (in this case -flag1)
-                          + first 4 spaces if they are all present.
-                        This line has no extra indent relative to first line 'Info about flag1'
-                              This line indented a further 6 chars"
-
-                    @values -min 1 -max -1
-                    %G%#Items that don't begin with * or - are value definitions%R%
-                    v1 -type integer -default 0
-                    thinglist -type string -multiple 1
-                  } "@doc -name Manpage: -url [myfunc_manpage_geturl myns::myfunc]"}]}
-            }
-    }]]
-
-    proc New_command_form {name} {
-        #probably faster to inline a literal dict create in the proc than to use a namespace variable
-        set leaderdirective_defaults [tcl::dict::create\
-            -type any\
-            -optional 0\
-            -allow_ansi 1\
-            -validate_ansistripped 0\
-            -strip_ansi 0\
-            -nocase 0\
-            -choiceprefix 1\
-            -choicerestricted 1\
-            -choicemultiple {1 1}\
-            -multiple 0\
-            -regexprepass {}\
-            -validationtransform {}\
-            -ensembleparameter 0\
-        ]
-        set optdirective_defaults [tcl::dict::create\
-            -type any\
-            -optional 1\
-            -allow_ansi 1\
-            -validate_ansistripped 0\
-            -strip_ansi 0\
-            -nocase 0\
-            -choiceprefix 1\
-            -choicerestricted 1\
-            -choicemultiple {1 1}\
-            -multiple 0\
-            -regexprepass {}\
-            -validationtransform {}\
-            -prefix 1\
-            -parsekey ""\
-            -group ""\
-        ]
-        #parsekey is name of argument to use as a key in punk::args::parse result dicts
-
-        set valdirective_defaults [tcl::dict::create\
-            -type any\
-            -optional 0\
-            -allow_ansi 1\
-            -validate_ansistripped 0\
-            -strip_ansi 0\
-            -nocase 0\
-            -choiceprefix 1\
-            -choicerestricted 1\
-            -choicemultiple {1 1}\
-            -multiple 0\
-            -regexprepass {}\
-            -validationtransform {}\
-        ]
-
-        #form record can have running entries such as 'argspace' that aren't given to arg parser
-        #we could use {} for most default entry values - we just use {} as a hint for 'list' "" as a hint for string [tcl::dict::create] for dict
-        return [dict create\
-                    argspace                "leaders"\
-                    ARG_INFO                [tcl::dict::create]\
-                    ARG_CHECKS              [tcl::dict::create]\
-                    LEADER_DEFAULTS         [tcl::dict::create]\
-                    LEADER_REQUIRED         [list]\
-                    LEADER_NAMES            [list]\
-                    LEADER_MIN              ""\
-                    LEADER_MAX              ""\
-                    LEADER_TAKEWHENARGSMODULO 0\
-                    LEADER_UNNAMED          false\
-                    LEADERSPEC_DEFAULTS     $leaderdirective_defaults\
-                    LEADER_CHECKS_DEFAULTS  {}\
-                    OPT_DEFAULTS            [tcl::dict::create]\
-                    OPT_REQUIRED            [list]\
-                    OPT_NAMES               [list]\
-                    OPT_ANY                 0\
-                    OPT_MIN                 ""\
-                    OPT_MAX                 ""\
-                    OPT_SOLOS               {}\
-                    OPTSPEC_DEFAULTS        $optdirective_defaults\
-                    OPT_CHECKS_DEFAULTS     {}\
-                    OPT_GROUPS              {}\
-                    VAL_DEFAULTS            [tcl::dict::create]\
-                    VAL_REQUIRED            [list]\
-                    VAL_NAMES               [list]\
-                    VAL_MIN                 ""\
-                    VAL_MAX                 ""\
-                    VAL_UNNAMED             false\
-                    VALSPEC_DEFAULTS        $valdirective_defaults\
-                    VAL_CHECKS_DEFAULTS     {}\
-                    FORMDISPLAY             [tcl::dict::create]\
-               ]
-
-    }
-
-    proc errorstyle {args} {
-        #set or query the running config -errorstyle
-        #review - is this an override or a default? - what happens with punk::args::parse specifically set value of -errorstyle?
-        #values:
-        #debug, enhanced, standard, basic, minimal
-        error todo
-    }
-    proc define {args} {
-        variable rawdef_cache
-        variable id_cache_rawdef
-        variable argdata_cache
-        if {[dict exists $rawdef_cache $args]} {
-            return [dict get [dict get $rawdef_cache $args] -id]
-        } else {
-            set id      [rawdef_id $args]
-            if {[id_exists $id]} {
-                #we seem to be re-creating a previously defined id...
-                #clear any existing caches for this id
-                puts stderr "punk::args::define Redefinition of id:$id -  clearing existing data"
-
-                #dict unset argdata_cache $prevraw ;#silently does nothing if key not present
-                dict for {k v} $argdata_cache {
-                    if {[dict get $v id] eq $id} {
-                        dict unset argdata_cache $k
-                    }
-                }
-                dict for {k v} $rawdef_cache {
-                    if {[dict get $v -id] eq $id} {
-                        dict unset rawdef_cache $k
-                    }
-                }
-                dict unset id_cache_rawdef $id
-            }
-            set is_dynamic  [rawdef_is_dynamic $args]
-            set defspace [uplevel 1 {::namespace current}]
-            dict set rawdef_cache $args [dict create -id $id -dynamic $is_dynamic -defspace $defspace]
-            dict set id_cache_rawdef $id $args
-            return $id
-        }
-    }
-
-    proc idquery_info {id} {
-        variable id_cache_rawdef
-        variable rawdef_cache
-        if {[dict exists $id_cache_rawdef $id]} {
-            set sep [string repeat - 40]
-            set rawdef [dict get $id_cache_rawdef $id]
-            if {[dict exists $rawdef_cache $rawdef]} {
-                set idinfo [dict get $rawdef_cache $rawdef]
-            } else {
-                set idinfo ""
-            }
-            set result          "raw definition:"
-            append result \n    $sep
-            append result \n    $rawdef
-            append result \n    $sep
-            append result \n    "id info:"
-            append result \n    $idinfo
-            append result \n    $sep
-            variable argdata_cache
-            #lsearch -stride not avail (or buggy) in some 8.6 interps - search manually for now (2025). todo - modernize some time after Tcl 9.0/9.1 more widespread.(2027?)
-            #check for and report if id is present multiple times
-            set argdata_records [list]
-            dict for {k v} $argdata_cache {
-                if {[dict get $v id] eq $id} {
-                    if {$k eq $rawdef} {
-                        lappend argdata_records [list 1 $k $v]
-                    } else {
-                        lappend argdata_records [list 0 $k $v]
-                    }
-                }
-            }
-            append result \n    "argdata cache:"
-            if {![llength $argdata_records]} {
-                append result \n "(not present)"
-            } else {
-                append result \n "present [llength $argdata_records] time(s)"
-                foreach r $argdata_records {
-                    lassign $r match k v
-                    if {$match} {
-                        append result \n "  - present with same rawdef key"
-                    } else {
-                        append result \n "  - present with different rawdef key"
-                        append result \n "    [punk::lib::indent $k {    }]"
-                    }
-                }
-                if {[llength $argdata_records] > 1} {
-                    append result \n "*more than one record was not expected - review*"
-                }
-            }
-            append result \n    $sep
-            return $result
-        }
-    }
-
-    proc define2 {args} {
-        dict get [resolve {*}$args] id
-    }
-
-    proc resolve {args} {
-        variable rawdef_cache
-        variable id_cache_rawdef
-        set defspace ""
-        if {[dict exists $rawdef_cache $args]} {
-            set cinfo [dict get $rawdef_cache $args]
-            set id          [dict get $cinfo -id]
-            set is_dynamic  [dict get $cinfo -dynamic]
-            if {[dict exists $cinfo -defspace]} {
-                set defspace    [dict get $cinfo -defspace]
-            }
-        } else {
-            #should we really be resolving something that hasn't been defined?
-            set id          [rawdef_id $args]
-            puts stderr "Warning: punk::args::resolve called with undefined id:$id"
-            set is_dynamic  [rawdef_is_dynamic $args]
-            dict set rawdef_cache $args [dict create -id $id -dynamic $is_dynamic]
-            dict set id_cache_rawdef $id $args
-        }
-
-
-        variable argdata_cache
-        variable argdefcache_unresolved
-
-
-        set cache_key $args
-        #ideally we would use a fast hash algorithm to produce a short key with low collision probability.
-        #something like md5 would be ok (this is non cryptographic) - but md5 uses open and isn't usable by default in a safe interp. (sha1 often faster on modern cpus but terribly slow without an accelerator)
-        #review - check if there is a built-into-tcl way to do this quickly
-        #for now we will just key using the whole string
-        #performance seems ok - memory usage probably not ideal
-        #quote from DKF 2021
-        #> Dict keys can be any Tcl value; the string representation will be used as the actual value for computing the hash code.
-        #> It's probably a good idea to keep them comparatively short (kilobytes, not megabytes) for performance reasons, but it isn't critical.
-        #> There's no need to feel that the values (i.e., what they keys map to) are restricted at all.
-        #> You might hit overall memory limits if you compute the string representation of a very big dictionary; Tcl 8.* has limits there (in the low level API of its memory allocators).
-        #> If dealing with very large amounts of data, using a database is probably a good plan.
-
-        set textargs $args
-        if {![llength $args]} {
-            punk::args::get_by_id ::punk::args::define {}
-            return
-        }
-        #if {[lindex $args 0] eq "-dynamic"} {
-        #    set  is_dynamic [lindex $args 1]
-        #    set textargs [lrange $args 2 end]
-        #}
-
-        #experimental
-        set LVL 2
-
-        if {!$is_dynamic} {
-            if {[tcl::dict::exists $argdata_cache $cache_key]} {
-                return [tcl::dict::get $argdata_cache $cache_key]
-            }
-            set normargs [list]
-            foreach a $textargs {
-                lappend normargs [tcl::string::map {\r\n \n} $a]
-            }
-            set optionspecs [join $normargs \n]
-            if {[string first \$\{ $optionspecs] > 0} {
-                if {$defspace ne ""} {
-                    #normal/desired case
-                    #set optionspecs [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -allowcommands $optionspecs]]
-                    set optionspecs [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -paramindents none -allowcommands $optionspecs]]
-                } else {
-                    #todo - deprecate/stop from happening?
-                    puts stderr "punk::args::resolve calling tstr for id:$id with no known definition space (-defspace empty)"
-                    set optionspecs [uplevel $LVL [list punk::args::lib::tstr -return string -eval 1 -allowcommands $optionspecs]]
-                }
-            }
-        } else {
-
-            if {[tcl::dict::exists $argdefcache_unresolved $cache_key]} {
-                set pt_params [tcl::dict::get $argdefcache_unresolved $cache_key]
-                lassign $pt_params ptlist paramlist
-                set optionspecs ""
-                foreach pt $ptlist param $paramlist {
-                    append optionspecs $pt [uplevel $LVL [list ::subst $param]]
-                }
-            } else {
-                set normargs [list]
-                foreach a $textargs {
-                    lappend normargs [tcl::string::map {\r\n \n} $a]
-                }
-                set optionspecs [join $normargs \n]
-                #dynamic - double substitution required.
-                #e.g
-                # set DYN_CHOICES {${[::somewhere::get_choice_list]}}
-                # set RED [punk::ansi::a+ bold red]
-                # set RST [punk::ansi::a]
-                # punk::args::define {
-                #  -arg -choices {${$DYN_CHOICES}} -help "${$RED}important info${$RST}"
-                #}
-                if {$defspace ne ""} {
-                    set optionspecs [namespace eval $defspace [list punk::args::lib::tstr -return string -eval 1 -allowcommands $optionspecs]]
-                }
-                #REVIEW - join also serves to unescape things such as \$\{$x\} \$\{[cmd]\} without subst'ing or evaling (?)
-                if {[string first \$\{ $optionspecs] > 0} {
-                    set pt_params [punk::args::lib::tstr -return list -eval 0 $optionspecs] ;#-eval 0 - no need to uplevel
-                    lassign $pt_params ptlist paramlist
-                    set optionspecs ""
-                    foreach pt $ptlist param $paramlist {
-                        append optionspecs $pt [uplevel $LVL [list ::subst $param]]
-                    }
-                    tcl::dict::set argdefcache_unresolved $cache_key $pt_params
-                }
-            }
-            #argdata_cache should be limited in some fashion or will be a big memory leak???
-            if {[tcl::dict::exists $argdata_cache [list $optionspecs]]} {
-                #resolved cache version exists
-                return [tcl::dict::get $argdata_cache [list $optionspecs]]
-            }
-        }
-
-
-
-        #we need -choiceprefix and -choicerestricted defaults even though they often don't apply so we can look them up to display in Help if there are -choices
-        #default to 1 for convenience
-
-        #checks with no default
-        #-minsize -maxsize -range
-
-
-        #default -allow_ansi to 1 and -validate_ansistripped to 0  and -strip_ansi 0 - it takes time to strip ansi
-        #todo - detect if anything in the spec uses -allow_ansi 0, -validate_ansistripped 1 or -strip_ansi 1 and set a flag indicating if punk::ansi::ta::detect should be run on the argslist
-
-        #set opt_defaults [tcl::dict::create]
-        #set val_defaults [tcl::dict::create]
-
-        #set opt_solos [list]
-        #first process dashed and non-dashed record names without regard to whether non-dashed are at the beginning or end
-
-        set records [list]
-        set linebuild ""
-
-        set linelist [split $optionspecs \n]
-        set lastindent ""
-        foreach ln $linelist {
-            if {[tcl::string::trim $ln] eq ""} {continue}
-            regexp {(\s*).*} $ln _all lastindent
-            break ;#break at first non-empty
-        }
-        #puts "indent1:[ansistring VIEW $lastindent]"
-        set in_record 0
-        if {[catch {package require punk::ansi} errM]} {
-            set has_punkansi 0
-        } else {
-            set has_punkansi 1
-        }
-        foreach rawline $linelist {
-            set recordsofar [tcl::string::cat $linebuild $rawline]
-            #ansi colours can stop info complete from working (contain square brackets)
-            #review - when exactly are ansi codes allowed/expected in record lines.
-            # - we might reasonably expect them in default values or choices or help strings
-            # - square brackets in ansi aren't and can't be escaped if they're to work as literals in the data.
-            # - eg set line "set x \"a[a+ red]red[a]\""
-            # - 'info complete' will report 0, and subst would require -nocommand option or it will complain of missing close-bracket
-            if {$has_punkansi} {
-                set test_complete [punk::ansi::ansistrip $recordsofar]
-            } else {
-                #review
-                #we only need to strip enough to stop interference with 'info complete'
-                set test_complete [string map [list \x1b\[ ""] $recordsofar]
-            }
-            if {![tcl::info::complete $test_complete]} {
-                #append linebuild [string trimleft $rawline] \n
-                if {$in_record} {
-                    #trim only the whitespace corresponding to last record indent or lastindent + 4 spaces - not all whitespace on left
-                    #this allows alignment of multiline help strings to left margin whilst maintaining a visual indent in source form.
-                    #Aligning subsequent lines with the record, or aligning 4 spaces in are equivalent.
-                    #ie to indent lines further - whitespace should be added 4+ columns in from the record-line start position.
-                    #(this leaves an oddity if indenting is only 1 2 or 3 spaces mixed with longer indents as we don't check for it.. REVIEW)
-                    #(note string first "" $str is fast and returns -1)
-                    if {[tcl::string::first "$lastindent    " $rawline] == 0} {
-                        set trimmedline [tcl::string::range $rawline [tcl::string::length "$lastindent    "] end]
-                        append linebuild $trimmedline \n
-                    } elseif {[tcl::string::first $lastindent $rawline] == 0} {
-                        set trimmedline [tcl::string::range $rawline [tcl::string::length $lastindent] end]
-                        append linebuild $trimmedline \n
-                    } else {
-                        append linebuild $rawline \n
-                    }
-                } else {
-                    set in_record 1
-                    regexp {(\s*).*} $rawline _all lastindent
-                    #puts "indent: [ansistring VIEW -lf 1 $lastindent]"
-                    #puts "indent from rawline:$rawline "
-                    append linebuild $rawline \n
-                }
-            } else {
-                set in_record 0
-                #trim only the whitespace corresponding to last record indent or lastindent + 4 spaces - not all whitespace on left
-                if {[tcl::string::first "$lastindent    " $rawline] == 0} {
-                    set trimmedline [tcl::string::range $rawline [tcl::string::length "$lastindent    "] end]
-                    append linebuild $trimmedline
-                } elseif {[tcl::string::first $lastindent $rawline] == 0} {
-                    set trimmedline [tcl::string::range $rawline [tcl::string::length $lastindent] end]
-                    append linebuild $trimmedline
-                } else {
-                    append linebuild $rawline
-                }
-                lappend records $linebuild
-                set linebuild ""
-            }
-        }
-        set cmd_info        {}
-        set package_info    {}
-        set id_info         {}  ;#e.g -children <list> ??
-        set doc_info        {}
-        #set argdisplay_info {} ;#optional override of autogenerated 'Arg Type Default Multi Help' table
-        set seealso_info    {}
-        set keywords_info   {}
-        set examples_info   {}
-        ###set leader_min 0
-        ###set leader_max 0 ;#default 0 but if leader_min is set switches to -1 for no limit
-        #set leader_max ""
-        #(common case of no leaders specified)
-        #set opt_any 0
-        #set val_min 0
-        #set val_max -1  ;#-1 for no limit
-        set DEF_definition_id $id
-
-        #form_defs
-        set F       [dict create _default [New_command_form _default]]
-        set form_ids_active [list _default] ;#list of form ids that subsequent directives and args are categorised under
-
-        #set ARGSPACE        [dict create] ;#keyed on form
-        #dict set ARGSPACE   0 "leaders" ;#leaders -> options -> values
-
-        set refs [dict create]
-        set record_type ""
-        set record_number -1 ;#
-        foreach rec $records {
-            set trimrec [tcl::string::trim $rec]
-            switch -- [tcl::string::index $trimrec 0] {
-                "" - # {continue}
-            }
-            incr record_number
-            set record_values [lassign $trimrec firstword] ;#after first word, the remaining list elements up to the first newline that isn't inside a value, form a dict
-            if {[llength $record_values] % 2 != 0} {
-                #todo - avoid raising an error - store invalid defs keyed on id
-                error "punk::args::resolve - bad optionspecs line for record '$firstword' Remaining items on line must be in paired option-value format - received '$record_values' id:$DEF_definition_id"
-            }
-            # ----------------------------------------------------------
-            # we (usually) don't use form ids for some directives such as @id and @doc - but we can check and set the form ids here for each record anyway.
-            #We deliberately don't set form_ids_active here *with one exception* for a rename of _default on first new name encountered in any record!
-            #(form_ids_active is otherwise set in the @form handling block)
-
-            #consider the following 2 line entry which is potentially dynamically included via a tstr:
-            #  @form -form {* newform}
-            #  @form -form {newform} -synopsis "cmd help ?stuff?"
-            #If we omitted the first line - it would create a new form entry depending on whether it was the first record in the target location with a -form key or not.
-            #(because _default is usually 'taken over' by the first encountered form id)
-            #With both lines included - the first one matches all existing form ids, so newform is guaranteed to be a new record
-            #the first line will set all ids active  - so the second line is necessary to bring it back to just newform - and have the -synopsis applied only to that record.
-
-            if {[dict exists $record_values -form] && [llength [dict get $record_values -form]] > 0} {
-                set patterns [dict get $record_values -form]
-                set record_form_ids [list]
-                foreach p $patterns {
-                    if {[regexp {[*?\[\]]} $p]} {
-                        #isglob - only used for matching existing forms
-                        lappend record_form_ids {*}[lsearch -all -inline -glob [dict keys $F] $p]
-                    } else {
-                        #don't test for existence - will define new form if necessary
-                        lappend record_form_ids $p
-                    }
-                }
-                #-form values could be globs that didn't match. record_form_ids could be empty..
-                if {[llength $record_form_ids]} {
-                    #only rename _default if it's the sole entry
-                    if {[dict size $F] == 1 && [dict exists $F "_default"]} {
-                        if {"_default" ni $record_form_ids} {
-                            #only initial form exists - but we are mentioning new ones
-                            #first rename the _default to first encountered new form id
-                            #(just replace whole dict with new key - same data)
-                            set F [dict create [lindex $record_form_ids 0] [dict get $F _default]]
-                            #assert - _default must be only entry in form_ids_active - since there's only 1 record in $F
-                            #we are only setting active because of the rename - @form is the way to change active forms list
-                            set form_ids_active [lindex $record_form_ids 0]
-                        }
-                    }
-                    foreach fid $record_form_ids {
-                        if {![dict exists $F $fid]} {
-                            if {$firstword eq "@form"} {
-                                #only @form directly supplies keys
-                                dict set F $fid [dict merge [New_command_form $fid] [dict remove $record_values -form]]
-                            } else {
-                                dict set F $fid [New_command_form $fid]
-                            }
-                        } else {
-                            #update form with current record opts, except -form
-                            if {$firstword eq "@form"} { dict set F $fid  [dict merge [dict get $F $fid] [dict remove $record_values -form]] }
-                        }
-                    }
-                }
-            } else {
-                #missing or empty -form
-                set record_form_ids $form_ids_active
-                if {$firstword eq "@form"} {
-                    foreach fid $form_ids_active {
-                        dict set F $fid [dict merge [dict get $F $fid] [dict remove $record_values -form]]
-                    }
-                }
-            }
-            # ----------------------------------------------------------
-
-            set firstchar [tcl::string::index $firstword 0]
-            set secondchar [tcl::string::index $firstword 1]
-            if {$firstchar eq "@" && $secondchar ne "@"} {
-                set record_type "directive"
-                set directive_name $firstword
-                set at_specs $record_values
-
-                switch -- [tcl::string::range $directive_name 1 end] {
-                    dynamic {
-                        set is_dynamic 1
-                    }
-                    id   {
-                        #disallow duplicate @id line ?
-                        #review - nothing to stop multiple @id lines - or redefining as auto (which is ignored?)
-
-                        #id  An id will be allocated if no id line present or the -id value is "auto"
-
-                        if {[dict exists $at_specs -id]} {
-                            set thisid [dict get $at_specs -id]
-                            if {$thisid ni [list $id auto]} {
-                                error "punk::args::resolve @id mismatch existing: $id vs $thisid"
-                            }
-                        }
-                        set id_info $at_specs
-                    }
-                    ref {
-                        #a reference within the definition
-                        #e.g see punk::args::tclcore ::after
-                        #global reference dict - independent of forms
-                        #ignore refs without an -id
-                        #store all keys except -id
-                        #complete overwrite if refid repeated later on
-                        if {[dict exists $at_specs -id]} {
-                            dict set refs [dict get $at_specs -id] [dict remove $at_specs -id]
-                        }
-                    }
-                    default {
-                        #NOTE - this is switch arm for the literal "default" (@default) - not the default arm of the switch block!
-
-                        #copy from an identified set of *resolved*?? defaults (another argspec id) can be multiple
-                        #(if we were to take from a definition - we would have to check and maybe change this def to -dynamic.. ?)
-                        #perhaps we could allow -dynamic as a flag here - but IFF this define is already -dynamic (?)
-                        #That is possibly too complicated and/or unnecessary?
-                        #however.. as it stands we have define @dynamic making *immediate* resolutions .. is that really desirable?
-
-                        if {[dict exists $at_specs -id]} {
-                            set copyfrom [get_spec [dict get $at_specs -id]]
-                            #we don't copy the @id info from the source
-                            #for now we only copy across if nothing set..
-                            #todo - bring across defaults for empty keys at targets?
-                            #need to keep it simple enough to reason about behaviour easily..
-                            if {[dict size $copyfrom]} {
-                                if {![dict size $cmd_info]} {
-                                    set cmd_info [dict get $copyfrom cmd_info]
-                                }
-                                if {![dict size $doc_info]} {
-                                    set doc_info [dict get $copyfrom doc_info]
-                                }
-
-                                #foreach fid $record_form_ids {
-                                #    #only use elements with matching form id?
-                                #    #probably this feature mainly useful for _default anyway so that should be ok
-                                #    #cooperative doc sets specified in same file could share via known form ids too
-                                #    FORMDISPLAY has keys -header -body
-                                #    if {![dict size $F $fid $FORMDISPLAY]} {
-                                #       if {[dict exists $copyfrom FORMS $fid FORMDISPLAY]} {
-                                #           dict set F $fid FORMDISPLAY [dict get $copyfrom FORMS $fid FORMDISPLAY]
-                                #       }
-                                #    }
-                                #    #TODO
-                                #    #create leaders opts vals depending on position of @default line?
-                                #    #options on @default line to exclude/include sets???
-                                #}
-                            }
-                        }
-                    }
-                    form {
-                        # arity system ?
-                        #handle multiple parsing styles based on arities and keyword positions (and/or flags?)
-                        #e.g see lseq manual with 3 different parsing styles.
-
-                        #  @form "-synopsis" is optional - and only exists in case the user really wants
-                        #  to display something different. The system should generate consistent synopses
-                        #  with appropriate italics/bracketing etc.
-                        #  For manual -synopsis - features such as italics must be manually added.
-
-                        #spitballing..
-                        #The punk::args parser should generally be able to determine the appropriate form based
-                        #on supplied arguments, e.g automatically using argument counts and matching literals.
-                        #We may need to support some hints for forcing more efficient -form discriminators
-                        #
-                        # e.g  compare with -takewhenargsmodulo that is available on @leaders
-
-                        #the -arities idea below is a rough one; potentially something to consider.. but
-                        #we want to be able to support command completion.. and things like literals should probably
-                        #take preference for partially typed commands.. as flipping to other forms based on argcount
-                        #could be confusing. Need to match partial command to closest form automatically but allow
-                        #user to lock in a form interactively and see mismatches (?)
-                        #Probably the arity-ranges of a form are best calculated automatically rather than explicitly,
-                        #otherwise we have a strong potential for misdefinition.. (conflict with defined leaders,opts,values)
-                        #The way forward might be to calculate some 'arity' structure from the forms to aid in form-discrimination at arg parse time.
-                        #(this is currently covered in some ways by the LEADER_MIN,LEADER_MAX,OPT_MIN,OPT_MAX,VAL_MIN,VAL_MAX members of the FORMS <fid> dict.)
-
-                        # @form -synopsis "start ?('..'|'to')? end ??'by'? step?"\
-                        #         -arities {
-                        #                     2
-                        #                    {3 anykeys {1 .. 1 to}}
-                        #                    {4 anykeys {3 by}}
-                        #                    {5 anykeys {1 .. 1 to 3 by}}
-                        #                  }\
-                        #         -fallback 1
-                        # ...
-                        # @parser -synopsis "start 'count' count ??'by'? step?"\
-                        #         -arities {
-                        #                   {3 anykeys {1 count}}
-                        #                  }
-                        # ...
-                        # @form -synopsis "count ?'by' step?"\
-                        #         -arities {
-                        #                    1
-                        #                   {3 anykeys {1 by}}
-                        #                  }
-                        #
-                        # see also after manual
-                        # @form -arities {1}
-                        # @form -arities {
-                        #                    1 anykeys {0 info}
-                        #                  }
-                        #todo
-
-
-                        #form id can be list of ints|names?, or *
-                        if {[dict exists $at_specs -form]} {
-                            set idlist [dict get $at_specs -form]
-                            if {$idlist eq "*"} {
-                                #* only applies to form ids that exist at the time
-                                set idlist [dict keys $F]
-                            }
-                            set form_ids_active $idlist
-                        }
-                        #new form keys already created if they were needed (done for all records that have -form )
-                    }
-                    package {
-                        set package_info [dict merge $package_info $at_specs]
-                    }
-                    cmd {
-                        #allow arbitrary - review
-                        #e.g -name <str>
-                        #    -summary <str>
-                        #    -help <str>
-                        set cmd_info [dict merge $cmd_info $at_specs]
-                    }
-                    doc {
-                        set doc_info [dict merge $doc_info $at_specs]
-                    }
-                    formdisplay {
-                        #override the displayed argument table for the form.
-                        #(formdisplay keys -header -body)
-                        #The opts,values etc are still parsed and used if they exist and if the definition is actually used in parsing
-                        foreach fid $record_form_ids {
-                            tcl::dict::set F $fid FORMDISPLAY [dict merge [tcl::dict::get $F $fid FORMDISPLAY] $at_specs]
-                        }
-                    }
-                    opts {
-                        foreach fid $record_form_ids {
-                            if {[tcl::dict::get $F $fid argspace] eq "values"} {
-                                error "punk::args::resolve - @opts declaration must come before @values (in command form: '$fid') - received '$record_values' id:$DEF_definition_id"
-                            }
-                            tcl::dict::set F $fid argspace "options"
-                            set tmp_optspec_defaults [dict get $F $fid OPTSPEC_DEFAULTS]
-
-                            foreach {k v} $at_specs {
-                                switch -- $k {
-                                    -form {
-                                        #review - handled above
-                                    }
-                                    -any - -arbitrary -
-                                    -anyopts {
-                                        #set opt_any $v
-                                        tcl::dict::set F $fid OPT_ANY $v
-                                    }
-                                    -min {
-                                        dict set F $fid OPT_MIN $v
-                                    }
-                                    -max {
-                                        #if no -max explicitly specified, and llength OPT_NAMES == 0 and OPT_ANY == 0 - -max will be set to 0 below.
-                                        dict set F $fid OPT_MAX $v
-                                    }
-                                    -minsize - -maxsize -
-                                    -choices - -choicegroups - -choicemultiple - -choicecolumns - -choicelabels - -choiceinfo -
-                                    -choiceprefix - -choiceprefixdenylist - -choiceprefixreservelist - -choicerestricted {
-                                        #review - only apply to certain types?
-                                        tcl::dict::set tmp_optspec_defaults $k $v
-                                    }
-                                    -nominsize - -nomaxsize - -norange - -nochoices - -nochoicelabels - -nocase {
-                                        if {$v} {
-                                            set k2 -[string range $k 3 end] ;#strip 'no'
-                                            tcl::dict::unset tmp_optspec_defaults $k2
-                                        }
-                                    }
-                                    -type  {
-                                        #v is a typelist
-                                        #foreach t $v {
-                                        #  #validate?
-                                        #}
-                                        tcl::dict::set tmp_optspec_defaults -type $v
-                                    }
-                                    -defaultdisplaytype {
-                                        #how the -default is displayed
-                                        #-default doesn't have to be the same type as -type which validates user input that is not defaulted.
-                                        tcl::dict::set tmp_optspec_defaults -defaultdisplaytype $v
-                                    }
-                                    -parsekey {
-                                        tcl::dict::set tmp_optspec_defaults -parsekey $v
-
-                                    }
-                                    -group {
-                                        tcl::dict::set tmp_optspec_defaults -group $v
-                                        if {$v ne "" && ![tcl::dict::exists $F $fid OPT_GROUPS $v]} {
-                                            tcl::dict::set F $fid OPT_GROUPS $v {-parsekey {} -help {}}
-                                        }
-                                        if {$v ne ""} {
-                                            if {[tcl::dict::exists $at_specs -parsekey]} {
-                                                tcl::dict::set F $fid OPT_GROUPS $v -parsekey [tcl::dict::get $at_specs -parsekey]
-                                            }
-                                        }
-                                    }
-                                    -grouphelp {
-                                        if {![tcl::dict::exists $at_specs -group]} {
-                                            error "punk::args::resolve Bad @opt line. -group entry is required if -grouphelp is being configured. @id:$DEF_definition_id"
-                                        }
-                                        set g [tcl::dict::get $at_specs -group]
-                                        if {$g eq ""} {
-                                            error "punk::args::resolve Bad @opt line. -group non-empty value is required if -grouphelp is being configured. @id:$DEF_definition_id"
-                                        }
-                                        set groupdict [tcl::dict::get $F $fid OPT_GROUPS]
-                                        #set helprecords [tcl::dict::get $F $fid OPT_GROUPS_HELP]
-                                        if {![tcl::dict::exists $groupdict $g]} {
-                                            tcl::dict::set F $fid OPT_GROUPS $g [dict create -parsekey {} -help $v]
-                                        } else {
-                                            tcl::dict::set F $fid OPT_GROUPS $g -help $v
-                                        }
-                                    }
-                                    -range {
-                                        if {[dict exists $at_specs -type]} {
-                                            set tp [dict get $at_specs -type]
-                                        } else {
-                                            set tp [dict get $tmp_optspec_defaults -type]
-                                        }
-                                        if {[llength $tp] == 1} {
-                                            tcl::dict::set tmp_optspec_defaults -typeranges [list $v]
-                                        } else {
-                                            error "punk::args::resolve Bad @opt line. -type has length [llength $tp] (-type $tp). -range only applies to single-item type. Use -typeranges instead. @id:$DEF_definition_id"
-                                        }
-                                    }
-                                    -typeranges {
-                                        if {[dict exists $at_specs -type]} {
-                                            set tp [dict get $at_specs -type]
-                                        } else {
-                                            set tp [dict get $tmp_optspec_defaults -type]
-                                        }
-                                        if {[llength $tp] != [llength $v]} {
-                                            error "punk::args::resolve Bad @opt line. -type has length [llength $tp] (-type $tp). -typeranges has length [llength $v]. Lengths must match. @id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_optspec_defaults -typeranges $v
-                                    }
-                                    -regexprepass -
-                                    -regexprefail -
-                                    -regexprefailmsg -
-                                    -validationtransform -
-                                    -validationtransform {
-                                        #allow overriding of defaults for options that occur later
-                                        tcl::dict::set tmp_optspec_defaults $k $v
-                                    }
-                                    -optional -
-                                    -allow_ansi -
-                                    -validate_ansistripped -
-                                    -strip_ansi -
-                                    -multiple -
-                                    -prefix {
-                                        #check is bool
-                                        if {![string is boolean -strict $v]} {
-                                            error "punk::args::resolve - Option '$k' has value '$v'of wrong type in @opts line. Must be boolean  @id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_optspec_defaults $k $v
-                                    }
-                                    default {
-                                        set known   {   -parsekey -group -grouphelp\
-                                                        -any -anyopts -arbitrary -form -minsize -maxsize -choices -choicegroups -choicemultiple -choicecolumns -choicelabels -choiceinfo\
-                                                        -type -range -typeranges -default -defaultdisplaytype -typedefaults
-                                                        -choiceprefix -choiceprefixdenylist -choiceprefixreservelist -choicerestricted -nocase\
-                                                        -nominsize -nomaxsize -norange -nochoices -nochoicelabels\
-                                                        -type -optional -allow_ansi -validate_ansistripped -strip_ansi -multiple -prefix\
-                                                        -regexprepass -regexprefail -regexprefailmsg -validationtransform\
-                                                    }
-                                        error "punk::args::resolve - unrecognised key '$k' in @opts line.  Known keys: $known id:$DEF_definition_id"
-                                    }
-                                }
-                            }
-                            tcl::dict::set F $fid OPTSPEC_DEFAULTS $tmp_optspec_defaults
-                        } ;# end foreach record_form_ids
-                    }
-                    leaders {
-                        foreach fid $record_form_ids {
-                            if {[dict get $F $fid argspace] in [list options values]} {
-                                error "punk::args::resolve - @leaders declaration must come before all options and values (command form: '$fid') id:$DEF_definition_id"
-                            }
-                            set tmp_leaderspec_defaults [dict get $F $fid LEADERSPEC_DEFAULTS]
-
-                            foreach {k v} $at_specs {
-                                switch -- $k {
-                                    -form {
-                                        #review - handled above
-                                    }
-                                    -min -
-                                    -minvalues {
-                                        if {$v < 0} {
-                                            error "punk::args::resolve - minimum acceptable value for key '$k' in @leaders line is 0.  got $v id:$DEF_definition_id"
-                                        }
-                                        dict set F $fid LEADER_MIN $v
-                                        #if {$leader_max == 0} {
-                                        #    set leader_max -1
-                                        #}
-                                    }
-                                    -max -
-                                    -maxvalues {
-                                        if {$v < -1} {
-                                            error "punk::args::resolve - minimum acceptable value for key '$k' in @leaders line is -1 (indicating unlimited).  got $v id:$DEF_definition_id"
-                                        }
-                                        dict set F $fid LEADER_MAX $v
-                                    }
-                                    -takewhenargsmodulo {
-                                        dict set F $fid LEADER_TAKEWHENARGSMODULO $v
-                                    }
-                                    -choiceprefix -
-                                    -choicerestricted {
-                                        if {![string is boolean -strict $v]} {
-                                            error "punk::args::resolve - invalid type of value '$v' for key '$k' in @leaders line. Must be boolean  @id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                    }
-                                    -choiceinfo - -choicelabels {
-                                        if {[llength $v] %2 != 0} {
-                                            error "punk::args::resolve - key '$k' requires a dictionary value as an argument. got $v id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                    }
-                                    -nominsize - -nomaxsize - -norange - -nochoices - -nochoicelabels {
-                                        #-choicegroups?
-                                        if {$v} {
-                                            set k2 -[string range $k 3 end] ;#strip 'no'
-                                            tcl::dict::unset tmp_leaderspec_defaults $k2
-                                        }
-                                    }
-                                    -type  {
-                                        #$v is a list of types
-                                        #foreach t $v {
-                                        #validate?
-                                        #}
-                                        #switch -- $v {
-                                        #    int - integer {
-                                        #        set v int
-                                        #    }
-                                        #    char - character {
-                                        #        set v char
-                                        #    }
-                                        #    bool - boolean {
-                                        #        set v bool
-                                        #    }
-                                        #    dict - dictionary {
-                                        #        set v dict
-                                        #    }
-                                        #    list {
-
-                                        #    }
-                                        #    index {
-                                        #        set v indexexpression
-                                        #    }
-                                        #    default {
-                                        #        #todo - disallow unknown types unless prefixed with custom-
-                                        #    }
-                                        #}
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                    }
-                                    -range {
-                                        tcl::dict::set tmp_leaderspec_defaults -range $v
-                                    }
-                                    -typeranges {
-                                        tcl::dict::set tmp_leaderspec_defaults -range $v
-                                    }
-                                    -minsize - -maxsize -
-                                    -choices - -choicegroups - -choicemultiple - -choicecolumns - -choiceprefixdenylist - -choiceprefixreservelist - -nocase {
-                                        #review - only apply to certain types?
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                    }
-                                    -regexprepass -
-                                    -regexprefail -
-                                    -regexprefailmsg -
-                                    -validationtransform  {
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                    }
-                                    -optional -
-                                    -allow_ansi -
-                                    -validate_ansistripped -
-                                    -strip_ansi -
-                                    -multiple {
-                                        if {![string is boolean -strict $v]} {
-                                            error "punk::args::resolve - invalid type of value '$v' for key '$k' in @leaders line. Must be boolean  @id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                    }
-                                    -unnamed {
-                                        if {![string is boolean -strict $v]} {
-                                            error "punk::args::resolve - invalid type of value '$v' for key '$k' in @leaders line. Must be boolean  @id:$DEF_definition_id"
-                                        }
-                                        dict set F $fid LEADER_UNNAMED $v
-                                    }
-                                    -ensembleparameter {
-                                        #review
-                                        tcl::dict::set tmp_leaderspec_defaults $k $v
-                                        #error "punk::args::resolve - -ensembleparameter not supported as a default for @leaders - only valid on actual leader arguments"
-                                    }
-                                    default {
-                                        set known   {   -min -form -minvalues -max -maxvalues\
-                                                        -minsize -maxsize -range\
-                                                        -choices -choicegroups -choicemultiple -choicecolumns -choicelabels -choiceinfo\
-                                                        -choiceprefix -choiceprefixdenylist -choiceprefixreservelist -choicerestricted\
-                                                        -nocase -nominsize -nomaxsize -norange -nochoices -nochoicelabels\
-                                                        -type -optional -allow_ansi -validate_ansistripped -strip_ansi -multiple\
-                                                        -regexprepass -regexprefail -regexprefailmsg -validationtransform\
-                                                        -unnamed\
-                                                    }
-                                        error "punk::args::resolve - unrecognised key '$k' in @leaders line.  Known keys: $known @id:$DEF_definition_id"
-                                    }
-                                }
-                            }
-                            dict set F $fid LEADERSPEC_DEFAULTS $tmp_leaderspec_defaults
-
-                        } ;#end foreach record_form_ids
-
-                    }
-                    values {
-                        foreach fid $record_form_ids {
-                            dict set F $fid argspace "values"
-
-                            set tmp_valspec_defaults [dict get $F $fid VALSPEC_DEFAULTS]
-
-                            foreach {k v} $at_specs {
-                                switch -- $k {
-                                    -form {
-                                        #review - handled above
-                                    }
-                                    -min -
-                                    -minvalues {
-                                        if {$v < 0} {
-                                            error "punk::args::resolve - minimum acceptable value for key '$k' in @values line is 0.  got $v @id:$DEF_definition_id"
-                                        }
-                                        #set val_min $v
-                                        dict set F $fid VAL_MIN $v
-                                    }
-                                    -max -
-                                    -maxvalues {
-                                        if {$v < -1} {
-                                            error "punk::args::resolve - minimum acceptable value for key '$k' in @values line is -1 (indicating unlimited).  got $v @id:$DEF_definition_id"
-                                        }
-                                        #set val_max $v
-                                        dict set F $fid VAL_MAX $v
-                                    }
-                                    -minsize - -maxsize - -choices - -choicemultiple - -choicecolumns -
-                                    -choicelabels - -choiceprefix - -choiceprefixdenylist - -choiceprefixreservelist - -choicerestricted - -nocase {
-                                        #review - only apply to certain types?
-                                        tcl::dict::set tmp_valspec_defaults $k $v
-                                    }
-                                    -choiceinfo - -choicegroups {
-                                        if {[llength $v] % 2 != 0} {
-                                            error "punk::args::resolve - key '$k' requires a dictionary value as an argument. got $v id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_valspec_defaults $k $v
-                                    }
-                                    -nominsize - -nomaxsize - -norange - -nochoices - -nochoicelabels {
-                                        # -choicegroups ??
-                                        if {$v} {
-                                            set k2 -[string range $k 3 end] ;#strip 'no'
-                                            tcl::dict::unset tmp_valspec_defaults $k2
-                                        }
-                                    }
-                                    -type  {
-                                        switch -- $v {
-                                            int - integer {
-                                                set v int
-                                            }
-                                            char - character {
-                                                set v char
-                                            }
-                                            bool - boolean {
-                                                set v bool
-                                            }
-                                            dict - dictionary {
-                                                set v dict
-                                            }
-                                            list {
-
-                                            }
-                                            index {
-                                                set v indexexpression
-                                            }
-                                            default {
-                                                #todo - disallow unknown types unless prefixed with custom-
-                                            }
-                                        }
-                                        tcl::dict::set tmp_valspec_defaults $k $v
-                                    }
-                                    -range {
-                                        tcl::dict::set tmp_valspec_defaults -range $v
-                                    }
-                                    -typeranges {
-                                        tcl::dict::set tmp_valspec_defaults -typeranges $v
-                                    }
-                                    -optional -
-                                    -allow_ansi -
-                                    -validate_ansistripped -
-                                    -strip_ansi -
-                                    -multiple {
-                                        if {![string is boolean -strict $v]} {
-                                            error "punk::args::resolve - invalid type of value '$v' for key '$k' in @values line. Must be boolean  @id:$DEF_definition_id"
-                                        }
-                                        tcl::dict::set tmp_valspec_defaults $k $v
-                                    }
-                                    -regexprepass -
-                                    -regexprefail -
-                                    -regexprefailmsg -
-                                    -validationtransform {
-                                        tcl::dict::set tmp_valspec_defaults $k $v
-                                    }
-                                    -unnamed {
-                                        if {![string is boolean -strict $v]} {
-                                            error "punk::args::resolve - invalid type of value '$v' for key '$k' in @values line. Must be boolean  @id:$DEF_definition_id"
-                                        }
-                                        dict set F $fid VAL_UNNAMED $v
-                                    }
-                                    default {
-                                        set known   {   -type -range -typeranges\
-                                                        -min -form -minvalues -max -maxvalues\
-                                                        -minsize -maxsize\
-                                                        -choices -choicegroups -choicemultiple -choicecolumns -choicelabels -choiceinfo\
-                                                        -choiceprefix -choiceprefixdenylist -choiceprefixreservelist -choicerestricted\
-                                                        -nocase\
-                                                        -nominsize -nomaxsize -norange -nochoices -nochoicelabels\
-                                                        -optional -allow_ansi -validate_ansistripped -strip_ansi -multiple\
-                                                        -regexprepass -regexprefail -regexprefailmsg -validationtransform\
-                                                        -unnamed\
-                                                    }
-                                        error "punk::args::resolve - unrecognised key '$k' in @values line.  Known keys: $known @id:$DEF_definition_id"
-                                    }
-                                }
-                            }
-                            dict set F $fid VALSPEC_DEFAULTS $tmp_valspec_defaults
-                        }
-
-                    }
-                    seealso {
-                        #todo!
-                        #like @doc, except displays in footer, multiple - sub-table?
-                        set seealso_info [dict merge $seealso_info $at_specs]
-                    }
-                    keywords {
-                        #review - put as option on @cmd instead?  @cmd -name xxx -keywords {blah etc hmm} ??
-                        set keywords_info [dict merge $keywords_info $at_specs]
-                    }
-                    examples {
-                        set examples_info [dict merge $examples_info $at_specs]
-                    }
-                    default {
-                        error "punk::args::resolve - unrecognised @ line in '$rec'. Expected @id @cmd @form... @leaders @opts @values @doc @examples @formdisplay - use @@name if paramname needs to be @name @id:$DEF_definition_id"
-                    }
-                }
-                #record_type directive
-                continue
-            } elseif {$firstchar eq "-"} {
-                set argdef_values $record_values
-                #Note that we can get options defined with aliases e.g "-x|-suppress"
-                #Here we store the full string as the argname - but in the resulting dict upon parsing it will have the final
-                # entry as the key for retrieval e.g  {leaders {} opts {-suppress true} values {} ...}
-
-                #we can also have longopts within the list e.g "-f|--filename="
-                #This accepts -f <filename> or --filename=<filename>
-                # (but not --filename <filename>)
-                #if the clausemember is optional - then the flag can act as a solo, but a parameter can only be specified on the commandline with an =
-                #e.g "-x|--something= -type ?string?
-                #accepts all of:
-                #  -x
-                #  --something
-                #  --something=blah
-
-
-                #while most longopts require the = some utilities (e.g fossil)
-                #accept --longname <val>
-                #(fossil accepts either --longopt <val> or --longopt=<val>)
-                #For this reason, "-f|--filename" is different to gnu-style longopt "-f|--filename="
-
-                #for "--filename="  we can specify an 'optional' clausemember using for example -type ?string?
-
-                #4? cases
-                #1)
-                #--longopt
-                #   (not really a longopt - can only parse with --longopt <val> - [optional member not supported, but could be solo if -type none])
-                #2)
-                #--longopt=
-                #   (gnu style longopt - parse with --longopt=<val> - solo allowed if optional member - does not support solo via -type none)
-                #3)
-                #--longopt|--longopt= -types int
-                #   (mixed - as fossil does - parse with --longopt=<val> or --longopt <val> [optional member not supported?])
-                #4)
-                # --xxx|--longopt= -types {?int?}
-                #(repeating such as --longopt --longopt= not valid?)
-                #redundant?
-                #ie --longopt|--longopt= -types {?int?}
-                # equivalent to
-                #   --longopt=   -types {?int?}
-                #allow parsing -xxx only as solo and --longopt as solo or --longopt=n  ?
-
-                #the above set would not cover the edge-case where we have an optional member but we don't want --longopt to be allowed solo
-                #e.g
-                #-soloname|--longopt=  -types ?int?
-                #allows parsing "-soloname" or "--longopt" or "--longopt=n"
-                #but what if we want it to mean only accept:
-                # "-soloname" or "--longopt=n" ??
-
-                #we deliberately don't support
-                #--longopt -type ?type?
-                #or -opt -type ?type?
-                #as this results in ambiguities and more complexity in parsing depending on where flag occurs in args compared to positionals
-
-                #for these reasons - we can't only look for leading -- here to determine 'longopt'
-
-
-                set argname $firstword
-
-                # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                #do some basic validation here
-                #1 "-type none" would not be valid for "--filename="
-                #2 a -type can only be optional (specified as -type ?xxx?) if at least one entry in the argname has a trailing =
-                #3 require --longopt if has a trailing =. ie disallow -opt=  ?
-
-                set has_equal 0
-                set optaliases [split $firstword |]
-                if {[lsearch $optaliases *=] >=0} {
-                    set has_equal 1
-                }
-                #todo - if no -type specified in this flag record, we still need to check the default -type from the @opts record - which could have been
-                #overridden from just 'string'
-                if {[tcl::dict::exists $argdef_values -type]} {
-                    set tp [tcl::dict::get $argdef_values -type]
-                    if {[llength $tp] != 1} {
-                        #clauselength > 1 not currently supported for flags
-                        #e.g -myflag -type {list int}
-                        # e.g called on commandline with cmd -myflag {a b c} 3
-                        #review - seems an unlikely and complicating feature to allow - evidence of tools using/supporting this in the wild not known of.
-                        error "punk::args::resolve -  Multiple space-separated arguments (as indicated by -type having multiple entries) for a flag are not supported. flag $argname -type '$tp' @id:$DEF_definition_id"
-                    }
-                    if {$argname eq "--"} {
-                        if {$tp ne "none"} {
-                            #error to explicitly attempt to configure -- as a value-taking option
-                            error "punk::args::resolve - special flag named -- cannot be configured as a value-accepting flag. set -type none or omit -type from definition. @id:$DEF_definition_id"
-                        }
-                    }
-                    if {$tp eq "none"} {
-                        if {$has_equal} {
-                            error "punk::args::resolve - flag type 'none' (indicating non-parameter-taking flag) is not supported when any flag member ends with = (indicating gnu-longopt style possibly taking a parameter). flag $argname -type '$tp' @id:$DEF_definition_id"
-                        }
-                    } elseif {[string match {\?*\?} $tp]} {
-                        #optional flag value
-                        if {!$has_equal} {
-                            error "punk::args::resolve - Optional flag parameter (as indicated by leading & trailing ?) is not supported when no flag member ends with = (indicating gnu-longopt style possibly taking a parameter). flag $argname -type '$tp' @id:$DEF_definition_id"
-                        }
-                    }
-                }
-                # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                ##set spec_merged [dict get $F $fid OPTSPEC_DEFAULTS]
-
-                tcl::dict::set argdef_values -ARGTYPE option
-                #set all_choices [_resolve_get_record_choices]
-
-                foreach fid $record_form_ids {
-                    if {[dict get $F $fid argspace] eq "leaders"} {
-                        dict set F $fid argspace  "options"
-                    } elseif {[dict get $F $fid argspace] eq "values"} {
-                        error "punk::args::resolve - invalid placement of line '$rec' - must come before @values (command form:'$fid') @id:$DEF_definition_id"
-                    }
-                    set record_type                  option
-                    
-                    dict set F $fid OPT_NAMES [list {*}[dict get $F $fid OPT_NAMES] $argname]
-                }
-
-                set is_opt 1
-            } else {
-                set argname $firstword
-                if {$firstchar eq "@"} {
-                    #allow basic @@ escaping for literal argname that begins with @
-                    set argname [tcl::string::range $argname 1 end]
-                }
-
-                set argdef_values $record_values
-                foreach fid $record_form_ids {
-                    if {[dict get $F $fid argspace] eq "leaders"} {
-                        set record_type                  leader
-                        tcl::dict::set argdef_values -ARGTYPE leader
-                        #lappend leader_names $argname
-                        set temp_leadernames [tcl::dict::get $F $fid LEADER_NAMES]
-                        if {$argname ni $temp_leadernames} {
-                            lappend temp_leadernames $argname
-                            tcl::dict::set F $fid LEADER_NAMES $temp_leadernames
-                        } else {
-                            #This can happen if the definition has repeated values
-                            error "punk::args::resolve - arg $argname already present as leader in '$rec' (command form:'$fid') @id:$DEF_definition_id"
-                        }
-
-                        if {[dict get $F $fid LEADER_MAX] >= 0} {
-                            if {[dict get $F $fid LEADER_MAX] < [llength $temp_leadernames]} {
-                                puts stderr "punk::args::resolve warning arg $argname LEADER_MAX == [dict get $F $fid LEADER_MAX] but [llength $temp_leadernames] leader names found @id:$DEF_definition_id"
-                                dict set F $fid LEADER_MAX [llength $temp_leadernames]
-                            }
-                        }
-                    } else {
-                        set record_type                  value
-                        tcl::dict::set argdef_values -ARGTYPE value
-                        set temp_valnames [tcl::dict::get $F $fid VAL_NAMES]
-                        if {$argname ni $temp_valnames} {
-                            lappend temp_valnames $argname
-                            tcl::dict::set F $fid VAL_NAMES $temp_valnames
-                        } else {
-                            error "punk::args::resolve - arg $argname already present as value in '$rec' (command form:'$fid') @id:$DEF_definition_id"
-                        }
-                        #lappend val_names $argname
-                        if {[dict get $F $fid VAL_MAX] >= 0} {
-                            if {[dict get $F $fid VAL_MAX] < [llength $temp_valnames]} {
-                                puts stderr "punk::args::resolve warning arg $argname VAL_MAX == [dict get $F $fid VAL_MAX] but [llength $temp_valnames] value names found @id:$DEF_definition_id"
-                                dict set F $fid VAL_MAX [llength $temp_valnames]
-                            }
-                        }
-                    }
-                }
-
-                set is_opt 0
-            }
-
-
-            #assert - we only get here if it is a leader, value or flag specification line.
-            #assert argdef_values has been set to the value of record_values
-
-            foreach fid $record_form_ids {
-                if {$is_opt} {
-                    set spec_merged [dict get $F $fid OPTSPEC_DEFAULTS]
-                } else {
-                    if {[dict get $F $fid argspace] eq "values"} {
-                        set spec_merged [dict get $F $fid VALSPEC_DEFAULTS]
-                    } else {
-                        set spec_merged [dict get $F $fid LEADERSPEC_DEFAULTS]
-                    }
-                }
-
-                # -> argopt argval
-                foreach {spec specval} $argdef_values {
-                    #literal-key switch - bytecompiled to jumpTable
-                    switch -- $spec {
-                        -form {}
-                        -type {
-                            #todo - could be a list e.g {any int literal(Test)}
-                            #case must be preserved in literal bracketed part
-                            set typelist [list]
-                            foreach typespec $specval {
-                                if {[string match {\?*\?} $typespec]} {
-                                    set tspec [string range $typespec 1 end-1]
-                                    set optional_clausemember true
-                                } else {
-                                    set tspec $typespec
-                                    set optional_clausemember false
-                                }
-                                set type_alternatives [_split_type_expression $tspec]
-                                set normlist [list]
-                                foreach alt $type_alternatives {
-                                    set firstword [lindex $alt 0]
-                                    set lc_firstword [tcl::string::tolower $firstword]
-                                    #normalize here so we don't have to test during actual args parsing in main function
-                                    set normtype "<type_error>" ;#assert - should be overridden in all branches of switch
-                                    switch -- $lc_firstword {
-                                        int - integer           {set normtype int}
-                                        double - float {
-                                            #review - user may wish to preserve 'float' in help display - consider how best to implement
-                                            set normtype double
-                                        }
-                                        bool - boolean          {set normtype bool}
-                                        char - character        {set normtype char}
-                                        dict - dictionary       {set normtype dict}
-                                        index - indexexpression {set normtype indexexpression}
-                                        "" - none - solo {
-                                            if {$is_opt} {
-                                                #review - are we allowing clauses for flags?
-                                                #e.g {-flag -type {int int}}
-                                                #this isn't very tcl like, where we'd normally mark the flag with -multiple true and
-                                                # instead require calling as: -flag <int> -flag <int>
-                                                #It seems this is a reasonably rare/unlikely requirement in most commandline tools.
-
-                                                if {[llength $specval] > 1} {
-                                                    #makes no sense to have 'none' in a clause
-                                                    error "punk::args::resolve - invalid -type '$specval' for flag '$argname' ('none' in multitype) @id:$DEF_definition_id"
-                                                }
-                                                #tcl::dict::set spec_merged -type none
-                                                set normtype none
-                                                if {[tcl::dict::exists $specval -optional] && [tcl::dict::get $specval -optional]} {
-                                                    tcl::dict::set spec_merged -default 0   ;#-default 0 can still be overridden if -default appears after -type - we'll allow it.
-                                                }
-                                            } else {
-                                                #solo only valid for flags
-                                                error "punk::args::resolve - invalid -type 'none|solo' for positional argument '$argname' (only valid for flags/options) @id:$DEF_definition_id"
-                                            }
-                                        }
-                                        any - anything          {set normtype any}
-                                        ansi - ansistring       {set normtype ansistring}
-                                        string - globstring     {set normtype $lc_firstword}
-                                        literal {
-                                            #value was split out by _split_type_expression
-                                            set normtype literal([lindex $alt 1])
-                                        }
-                                        literalprefix {
-                                            set normtype literalprefix([lindex $alt 1])
-                                        }
-                                        stringstartswith {
-                                            set normtype stringstartswith([lindex $alt 1])
-                                        }
-                                        stringendswith {
-                                            set normtype stringendswith([lindex $alt 1])
-                                        }
-                                        default {
-                                            #allow custom unknown types through for now. Todo - require unknown types to begin with custom- REVIEW
-                                            #tcl::dict::set spec_merged -type [tcl::string::tolower $specval]
-                                            #todo
-                                            set normtype $alt
-                                        }
-                                    }
-                                    lappend normlist $normtype
-                                }
-                                set norms [join $normlist |]
-                                if {$optional_clausemember} {
-                                    lappend typelist ?$norms?
-                                } else {
-                                    lappend typelist $norms
-                                }
-                            }
-                            tcl::dict::set spec_merged -type $typelist
-                        }
-                        -typesynopsis {
-                            set typecount [llength [tcl::dict::get $spec_merged -type]]
-                            if {$typecount != [llength $specval]} {
-                                error "punk::args::resolve - invalid -typesynopsis specification for argument '$argname'. -typesynopsis has [llength $specval] entries, but requires $typecount entries (one for each entry in -types. Use empty string list members for default)  @id:$DEF_definition_id"
-                            }
-                            tcl::dict::set spec_merged -typesynopsis $specval
-                        }
-                        -parsekey - -group {
-                            tcl::dict::set spec_merged -typesynopsis $specval
-                        }
-                        -solo -
-                        -choices - -choicegroups - -choicemultiple - -choicecolumns -
-                        -choiceprefix - -choiceprefixdenylist - -choiceprefixreservelist - -choicerestricted - -choicelabels - -choiceinfo -
-                        -minsize - -maxsize - -nocase - -multiple -
-                        -validate_ansistripped - -allow_ansi - -strip_ansi - -help - -ARGTYPE -
-                        -regexprepass - -regexprefail - -regexprefailmsg
-                        {
-                            #inverses '-noxxx' (e.g -nochoices -nominsize etc) don't apply to specific args - only to @leaders @opts @values lines
-                            #review -solo 1 vs -type none ? conflicting values?
-                            tcl::dict::set spec_merged $spec $specval
-                        }
-                        -range {
-                            #allow simple case to be specified without additional list wrapping
-                            #only multi-types require full list specification
-                            #arg1 -type int -range {0 4}
-                            #arg2 -type {int string} -range {{0 4} {"" ""}}
-                            set typecount [llength [tcl::dict::get $spec_merged -type]]
-                            if {$typecount == 1} {
-                                tcl::dict::set spec_merged -typeranges [list $specval]
-                            } else {
-                                error "punk::args::resolve Bad @opt line. -type has length [llength $tp] (-type $tp). -range only applies to single-item type. Use -typeranges instead. @id:$DEF_definition_id"
-                            }
-                        }
-                        -typeranges {
-                            set typecount [llength [tcl::dict::get $spec_merged -type]]
-                            if {$typecount != [llength $specval]} {
-                                error "punk::args::resolve - invalid -typeranges specification for argument '$argname'. -typeranges has [llength $specval] entries, but requires $typecount entries (one for each entry in -types)  @id:$DEF_definition_id"
-                            }
-                            tcl::dict::set spec_merged -typeranges $specval
-                        }
-                        -default {
-                            #The -default is for when the entire clause is missing
-                            #It doesn't necessarily have to have the same number of elements as the clause {llength $typelist}
-                            #review
-                            tcl::dict::set spec_merged -default $specval
-                            if {![dict exists $argdef_values -optional]} {
-                                tcl::dict::set spec_merged -optional 1
-                            }
-                        }
-                        -defaultdisplaytype {
-                            tcl::dict::set spec_merged -defaultdisplaytype $specval
-                        }
-                        -typedefaults {
-                            set typecount [llength [tcl::dict::get $spec_merged -type]]
-                            if {$typecount != [llength $specval]} {
-                                error "punk::args::resolve - invalid -typedefaults specification for argument '$argname'. -typedefaults has [llength $specval] entries, but requires $typecount entries (one for each entry in -types)  @id:$DEF_definition_id"
-                            }
-                            tcl::dict::set spec_merged -typedefaults $specval
-                        }
-                        -optional {
-                            #applies to whole arg - not each -type
-                            tcl::dict::set spec_merged -optional $specval
-                        }
-                        -ensembleparameter {
-                            #applies to whole arg - not each -type
-                            #review - only leaders?
-                            tcl::dict::set spec_merged $spec $specval
-                        }
-                        -prefix {
-                            #applies to whole arg - not each -type
-                            #for flags/options
-                            tcl::dict::set spec_merged $spec $specval
-                        }
-                        -validationtransform {
-                            #string is dict only 8.7/9+
-                            if {[llength $specval] % 2} {
-                                error "punk::args::resolve - invalid value for key '$spec' in specifications for argument '$argname' - value must be a dictionary @id:$DEF_definition_id"
-                            }
-                            dict for {tk tv} $specval {
-                                switch -- $tk {
-                                    -command - -function - -type - -minsize - -maxsize - -range {
-                                    }
-                                    default {
-                                        set known_transform_keys [list -function -type -minsize -maxsize -range] ;#-choices etc?
-                                        error "punk::args::resolve - invalid subkey $tk for key '$spec' in specifications for argument '$argname' must be one of: $known_transform_keys @id:$DEF_definition_id"
-                                    }
-                                }
-                            }
-                            #TODO!
-
-                        }
-                        default {
-                            if {[string match ref-* $spec]} {
-                                #we don't validate keys taken from refs - this is a way to apply arbitrary keys to argdefs (classify as a feature-bug or an optimisation for now)
-                                #ref-xxx will override an earlier -xxx in same line. That's fine. todo - document.
-                                if {![tcl::dict::exists $refs $specval]} {
-                                    puts stderr "punk::args::resolve argument '$argname' attempt to reference non-existing @ref -id $specval (with $spec)"
-                                } else {
-                                    set targetswitch [string range $spec 3 end] ;#capture - to form flag "-<something>"
-                                    if {$targetswitch eq "-*"} {
-                                        set spec_merged [tcl::dict::merge $spec_merged [dict get $refs $specval]] ;#everything in @ref line except the -id
-                                    } else {
-                                        if {[tcl::dict::exists $refs $specval $targetswitch]} {
-                                            tcl::dict::set spec_merged $targetswitch [tcl::dict::get $refs $specval $targetswitch]
-                                        } else {
-                                            puts stderr "punk::args::resolve argument '$argname' attempt to reference non-existing subelement $targetswitch in @ref -id $specval (with $spec)"
-                                        }
-                                    }
-                                }
-                            } else {
-                                set known_argopts [list\
-                                                    -form -type\
-                                                    -parsekey -group\
-                                                    -range -typeranges\
-                                                    -default -defaultdisplaytype -typedefaults\
-                                                    -minsize -maxsize -choices -choicegroups\
-                                                    -choicemultiple -choicecolumns -choiceprefix -choiceprefixdenylist -choiceprefixreservelist -choicerestricted\
-                                                    -nocase -optional -multiple -validate_ansistripped -allow_ansi -strip_ansi -help\
-                                                    -regexprepass -regexprefail -regexprefailmsg -validationtransform\
-                                                    -ensembleparameter\
-                                                    ]
-                                error "punk::args::resolve - unrecognised key '$spec' in specifications for argument '$argname' Known option specification keys: $known_argopts @id:$DEF_definition_id"
-                            }
-                        }
-                    }
-                } ;# end foreach {spec specval} argdef_values
-
-
-                if {$is_opt} {
-                    tcl::dict::set F $fid ARG_CHECKS $argname\
-                                    [tcl::dict::remove $spec_merged -form -type -default -multiple -strip_ansi -validate_ansistripped -allow_ansi -choicecolumns -group -typesynopsis -help -ARGTYPE] ;#leave things like -range -minsize
-                    if {$argname eq "--"} {
-                        #force  -type none - in case no -type was specified and @opts -type is some other default such as string
-                        tcl::dict::set spec_merged -type none
-                    }
-                    if {[tcl::dict::get $spec_merged -type] eq "none"} {
-                        dict set F $fid OPT_SOLOS [list {*}[dict get $F $fid OPT_SOLOS] $argname]
-                    }
-                } else {
-                    tcl::dict::set F $fid ARG_CHECKS $argname\
-                                    [tcl::dict::remove $spec_merged -form -type -default -multiple -strip_ansi -validate_ansistripped -allow_ansi -choicecolumns -group -typesynopsis -help -ARGTYPE] ;#leave things like -range -minsize
-                }
-                tcl::dict::set F $fid ARG_INFO   $argname $spec_merged
-                #review existence of -default overriding -optional
-                #if {![tcl::dict::get $spec_merged -optional] && ![tcl::dict::exists $spec_merged -default]} {}
-                if {![tcl::dict::get $spec_merged -optional]} {
-                    if {$is_opt} {
-                        set temp_opt_required [dict get $F $fid OPT_REQUIRED]
-                        lappend temp_opt_required $argname
-                        dict set F $fid OPT_REQUIRED $temp_opt_required
-                    } else {
-                        if {[dict get $F $fid argspace] eq "leaders"} {
-                            set temp_leader_required [dict get $F $fid LEADER_REQUIRED]
-                            lappend temp_leader_required $argname
-                            dict set F $fid LEADER_REQUIRED $temp_leader_required
-                        } else {
-                            set temp_val_required [dict get $F $fid VAL_REQUIRED]
-                            lappend temp_val_required $argname
-                            dict set F $fid VAL_REQUIRED $temp_val_required
-                        }
-                    }
-                }
-
-
-                if {[tcl::dict::exists $spec_merged -default]} {
-                    if {$is_opt} {
-                        #JJJ
-                        set parsekey [dict get $F $fid ARG_INFO $argname -default]
-                        if {$parsekey eq ""} {
-                            set parsekey $argname
-                        }
-                        tcl::dict::set F $fid OPT_DEFAULTS $argname [tcl::dict::get $spec_merged -default]
-                    } else {
-                        if {[dict get $F $fid argspace] eq "leaders"} {
-                            tcl::dict::set F $fid LEADER_DEFAULTS $argname [tcl::dict::get $spec_merged -default]
-                        } else {
-                            tcl::dict::set F $fid VAL_DEFAULTS $argname [tcl::dict::get $spec_merged -default]
-                        }
-                    }
-                }
-            } ;# end foreach fid record_form_ids
-
-        } ;# end foreach rec $records
-
-
-        #if {$DEF_definition_id eq "" || [tcl::string::tolower $DEF_definition_id] eq "auto"} {
-        #    variable id_counter
-        #    set DEF_definition_id "autoid_[incr id_counter]"
-        #}
-
-
-        #now cycle through ALL forms not just form_ids_active (record_form_ids)
-        dict for {fid formdata} $F {
-            if {[tcl::dict::get $F $fid OPT_MAX] eq ""} {
-                if {[llength [tcl::dict::get $F $fid OPT_NAMES]] == 0 && ![tcl::dict::get $F $fid OPT_ANY]} {
-                    tcl::dict::set F $fid OPT_MAX 0 ;#aid in parsing to avoid scanning for opts unnecessarily
-                    #review - when using resolved_def to create a definiation based on another - OPT_MAX may need to be overridden - a bit ugly?
-                }
-            }
-            # REVIEW
-            #no values specified - we can allow last leader to be multiple
-            foreach leadername [lrange [tcl::dict::get $F $fid LEADER_NAMES] 0 end-1] {
-                if {[tcl::dict::get $F $fid ARG_INFO $leadername -multiple]} {
-                    error "bad key -multiple on argument spec for leader '$leadername' in command form:'$fid'. Only the last leader argument specification can be marked -multiple @id:$DEF_definition_id"
-                }
-            }
-
-            #todo - disallow any -multiple == true entries if any leaders have -multiple == true?
-            #(creates parsing ambiguity)
-            #ambiguity could be resolved if at least one required option/flag eg --
-            #ambiguities could theoretically also be resolved with required literals or choices - or even based on argument type
-            #(overcomplex? todo see if any core/tcllib commands work like that)
-
-            #only allow a single entry within VAL_NAMES to have -multiple == true
-            #example of command with non-trailing -multiple == true is core command: 'file copy ?-force? ?--? source ?source?... targetDir
-            set val_multiples 0
-            foreach valname [lrange [tcl::dict::get $F $fid VAL_NAMES] 0 end-1] {
-                if {[tcl::dict::get $F $fid ARG_INFO $valname -multiple]} {
-                    if {$val_multiples > 0} {
-                        error "bad setting -multiple true on argument spec for value '$valname' in command form:'$fid'. Only a single value argument specification can be marked with -multiple true @id:$DEF_definition_id"
-                    }
-                    incr val_multiples
-                }
-            }
-
-            #todo - document that ambiguities in API are likely if both @leaders and @values used
-            #todo - do some checks for obvious bad definitions involving a mix of @leaders and @values (e.g with optional options)
-
-
-            dict set F $fid LEADER_CHECKS_DEFAULTS  [tcl::dict::remove [dict get $formdata LEADERSPEC_DEFAULTS] -type -default -multiple -strip_ansi -validate_ansistripped -allow_ansi] ;#leave things like -range -minsize
-            dict set F $fid OPT_CHECKS_DEFAULTS     [tcl::dict::remove [dict get $formdata OPTSPEC_DEFAULTS]    -type -default -multiple -strip_ansi -validate_ansistripped -allow_ansi] ;#leave things like -range -minsize
-            dict set F $fid VAL_CHECKS_DEFAULTS     [tcl::dict::remove [dict get $formdata VALSPEC_DEFAULTS]    -type -default -multiple -strip_ansi -validate_ansistripped -allow_ansi] ;#leave things like -range -minsize
-        }
-
-
-
-
-        #todo - precalculate a set of 'arity' entries for each form
-        #We want a structure for the arg parser to get easy access and make a fast decision on which form applies
-        #eg a classifier assistant might be total_arity ranges (where -1 is unlimited) ?
-        #1) after ms                                   (1 1)
-        #2) after ms ?script...?                       (1 -1)   (or is it 2 -1 ??) - should actually be #after ms script ?script...?
-        #3) after cancel id                            (2 2)
-        #4) after cancel script ?script...?            (2 -1)
-        #5) after idle script ?script...?              (1 -1)
-        #6) after info ?id?                            (1 2)
-
-        #for arguments taking opts - total_arity generally unlimited (usually repeats allowed - they just override if not -multiple)
-
-        #in the above case we have no unique total_arity
-        #we would also want to consider values when selecting
-        #e.g given the invalid command "after cancel"
-        # we should be selecting forms 3 & 4 rather than the exact arity match given by 1.
-
-
-
-        set firstformid  [lindex $F 0] ;#temporarily treat first form as special - as we can initially only parse single-form commands
-        #todo - for now: add -form flag to parse (get_dict etc)  and require calling func to decide which form(s) to use
-        #even if we do eventually get automated multi-form parsing - it is useful to be able to restrict via -form flag, the parsing and doc generation to a specific form
-        #e.g commandline completion could show list of synopsis entries to select from
-
-        set form_info [dict create]
-        dict for {fid fdict} $F {
-            dict set form_info $fid {}
-            dict for {optk optv} $fdict {
-                if {[string match -* $optk]} {
-                    dict set form_info $fid $optk $optv
-                }
-            }
-        }
-
-        set argdata_dict [tcl::dict::create\
-            id                      $DEF_definition_id\
-            cmd_info                $cmd_info\
-            doc_info                $doc_info\
-            package_info            $package_info\
-            seealso_info            $seealso_info\
-            keywords_info           $keywords_info\
-            examples_info           $examples_info\
-            id_info                 $id_info\
-            FORMS                   $F\
-            form_names              [dict keys $F]\
-            form_info               $form_info\
-        ]
-
-        tcl::dict::set argdata_cache $cache_key $argdata_dict
-        if {$is_dynamic} {
-            #also cache resolved version
-            tcl::dict::set argdata_cache [list $optionspecs] $argdata_dict
-        }
-
-        #tcl::dict::set id_cache_rawdef $DEF_definition_id $args
-        #puts "xxx:$result"
-        return $argdata_dict
-    }
-
-    #return raw definition list as created with 'define'
-    # - possibly with unresolved dynamic parts
-    proc raw_def {id} {
-        variable id_cache_rawdef
-        set realid [real_id $id]
-        if {![dict exists $id_cache_rawdef $realid]} {
-            return ""
-        }
-        return [tcl::dict::get $id_cache_rawdef $realid]
-    }
-
-
-    namespace eval argdoc {
-        variable resolved_def_TYPE_CHOICES {* @id @package @cmd @ref @doc @examples @formdisplay @seealso @leaders @opts @values leaders opts values}
-        variable resolved_def_TYPE_CHOICEGROUPS {
-            directives          {@id @package @cmd @ref @doc @examples @formdisplay @seealso}
-            argumenttypes       {leaders opts values}
-            remaining_defaults  {@leaders @opts @values}
-        }
-
-        lappend PUNKARGS [list [string map [list %TYPECHOICES% $resolved_def_TYPE_CHOICES %TYPECHOICEGROUPS% $resolved_def_TYPE_CHOICEGROUPS] {
-            @id  -id ::punk::args::resolved_def
-            @cmd -name punk::args::resolved_def -help\
-                "Resolves or retrieves the previously resolved definition and
-                uses the 'spec' form to build a response in definition format.
-
-                Pulling argument definition data from another function is a form
-                of tight coupling to the other function that should be done with
-                care.
-
-                Note that the directives @leaders @opts @values may appear multiple
-                times in a source definition - applying defaults for arguments that
-                follow. When retrieving these - there is only a single result for
-                each that represents the defaults after all have been applied.
-                When retrieving -types *  each of these will be positioned before
-                the arguments of that type - but this doesn't mean there was a single
-                leading directive for this argument type in the source definition.
-                Each argument has already had its complete specification recorded in
-                its own result.
-
-                When manually specifying -types, the order @leaders then @opts then
-                @values must be maintained - but if they are placed before their
-                corresponding arguments, they will not affect the retrieved arguments
-                as these arguments are already fully spec'd. The defaults from the
-                source can be removed by adding @leaders, @opts @values to the
-                -antiglobs list, but again - this won't affect the existing arguments.
-                Each argument can have members of its spec overridden using the
-                -override dictionary.
-                "
-            @leaders -min 0 -max 0
-            @opts
-            -return -default text -choices {text dict}
-            -form  -default 0 -help\
-                "Ordinal index or name of command form"
-
-            #no restriction on number of types/repetitions?
-            -types  -default * -choices {%TYPECHOICES%} -choicegroups {%TYPECHOICEGROUPS%} -choiceprefix 0 -choicemultiple {0 -1}
-            -antiglobs -default {} -type list -help\
-                "Glob patterns for directive or argument/flags to
-                  be suppressed"
-            -override -type dict -optional 1 -default "" -help\
-                "dict of dicts. Key in outer dict is the name of a
-                directive or an argument. Inner dict is a map of
-                overrides/additions (-<flag> <newval>...) for that line.
-                "
-            @values -min 1 -max -1
-            id -type string -help\
-                "identifer for a punk::args definition
-                This will usually be a fully-qualifed
-                path for a command name"
-            pattern -type string -optional 1 -default * -multiple 1 -help\
-                "glob-style patterns for retrieving value or switch
-                definitions.
-
-                If -type is * and  pattern is * the entire definition including
-                directive lines will be returned in line form.
-                (directives are lines beginning with
-                @ e.g @id, @cmd etc)
-
-                if -type is leaders,opts or values matches from that type
-                will be returned.
-
-                if -type is another directive such as @id, @doc etc the
-                patterns are ignored.
-
-                "
-        }]]
-    }
-
-
-    proc resolved_def {args} {
-        #not eating our own dogfood here as far as argument parsing. -id ::punk::args::resolved_def is for documentation/errors only.
-        set opts [dict create\
-            -return     text\
-            -types      {}\
-            -form       0\
-            -antiglobs  {}\
-            -override   {}\
-        ]
-        if {[llength $args] < 1} {
-            #must have at least id
-            punk::args::parse $args withid ::punk::args::resolved_def
-            return
-        }
-        set patterns [list]
-
-        #a definition id must not begin with "-"  ??? review
-        for {set i 0} {$i < [llength $args]} {incr i} {
-            set a [lindex $args $i]
-            if {$a in {-type -types}} {
-                incr i
-                dict set opts -types [lindex $args $i]
-            } elseif {[string match -* $a]} {
-                incr i
-                dict set opts $a [lindex $args $i]
-            } else {
-                set id [lindex $args $i]
-                set patterns [lrange $args $i+1 end]
-                break
-            }
-            if {$i == [llength $args]-1} {
-                punk::args::parse $args withid ::punk::args::resolved_def
-                return
-            }
-        }
-        if {![llength $patterns]} {
-            set patterns [list *]
-        }
-        dict for {k v} $opts {
-            #set fullk [tcl::prefix::match -error "" {-return -form -types -antiglobs -override} $k]
-            switch -- $k {
-                -return - -form - -types - -antiglobs - -override {}
-                default {
-                    punk::args::parse $args withid ::punk::args::resolved_def
-                    return
-                }
-            }
-        }
-        set typelist [dict get $opts -types]
-        if {[llength $typelist] == 0} {
-            set typelist {*}
-        }
-        foreach type $typelist {
-            if {$type ni $::punk::args::argdoc::resolved_def_TYPE_CHOICES} {
-                punk::args::parse $args withid ::punk::args::resolved_def
-                return
-            }
-        }
-
-
-        variable id_cache_rawdef
-        set realid [real_id $id]
-        if {$realid eq ""} {
-            return
-        }
-
-        set deflist [tcl::dict::get $id_cache_rawdef $realid]
-        set specdict [uplevel 1 [list ::punk::args::resolve {*}$deflist]]
-
-        set opt_form [dict get $opts -form]
-        if {[string is integer -strict $opt_form]} {
-            set formname [lindex [dict get $specdict form_names] $opt_form]
-        } else {
-            set formname $opt_form
-        }
-        set opt_override    [dict get $opts -override]
-        set opt_return      [dict get $opts -return]
-
-        #set arg_info [dict get $specdict ARG_INFO]
-        set arg_info [dict get $specdict FORMS $formname ARG_INFO]
-        set argtypes [dict create leaders leader opts option  values value]
-
-        set opt_antiglobs   [dict get $opts -antiglobs]
-        set directives  [lsearch -all -inline -exact -not $::punk::args::argdoc::resolved_def_TYPE_CHOICES *]
-        set suppressed_directives [list]
-        set suppressed_args [list]
-        foreach ag $opt_antiglobs {
-            foreach d $directives {
-                if {[string match $ag $d]} {
-                    lappend suppressed_directives $d
-                }
-            }
-            foreach argname [dict keys $arg_info] {
-                if {[string match $ag $argname]} {
-                    lappend suppressed_args $argname
-                }
-            }
-        }
-        set suppressed_directives   [lsort -unique $suppressed_directives]
-        set suppressed_args         [lsort -unique $suppressed_args]
-
-        set included_directives [punk::args::system::punklib_ldiff $directives $suppressed_directives]
-
-        set globbed  [list]
-        foreach pat $patterns {
-            set matches [dict keys $arg_info $pat]
-            lappend globbed {*}$matches
-        }
-        set globbed             [lsort -unique $globbed]
-        #maintain order of original arg_info keys in globbed results
-        set ordered_globbed [list]
-        foreach a [dict keys $arg_info] {
-            if {$a ni $ordered_globbed && $a in $globbed} {
-                lappend ordered_globbed $a
-            }
-        }
-        set included_args       [punk::args::system::punklib_ldiff $ordered_globbed $suppressed_args]
-
-        set result ""
-        set resultdict [dict create]
-        foreach type $typelist {
-            switch -exact -- $type {
-                * {
-                    if {"@id" in $included_directives} {
-                        if {[dict exists $opt_override @id]} {
-                            append result \n "@id [dict merge [dict create -id [dict get $specdict id]] [dict get $opt_override @id]]"
-                            dict set resultdict @id [dict merge [dict create -id [dict get $specdict id]] [dict get $opt_override @id]]
-                        } else {
-                            append result \n "@id -id [dict get $specdict id]"
-                            dict set resultdict @id [list -id [dict get $specdict id]]
-                        }
-                    }
-                    foreach directive {@package @cmd @doc @examples @seealso} {
-                        set dshort [string range $directive 1 end]
-                        if {"$directive" in $included_directives} {
-                            if {[dict exists $opt_override $directive]} {
-                                append result \n    "$directive [dict merge [dict get $specdict ${dshort}_info] [dict get $opt_override $directive]]"
-                                dict set resultdict $directive [dict merge [dict get $specdict ${dshort}_info] [dict get $opt_override $directive]]
-                            } else {
-                                append result \n "$directive [dict get $specdict ${dshort}_info]"
-                                dict set resultdict $directive [dict get $specdict ${dshort}_info]
-                            }
-                        }
-                    }
-
-                    #todo @formdisplay
-                    #todo @ref ?
-
-
-                    #output ordered by leader, option, value
-                    foreach pseudodirective {leaders opts values} tp {leader option value} {
-                        set directive "@$pseudodirective"
-                        switch -- $directive {
-                            @leaders {set defaults_key LEADERSPEC_DEFAULTS}
-                            @opts    {set defaults_key OPTSPEC_DEFAULTS}
-                            @values  {set defaults_key VALSPEC_DEFAULTS}
-                        }
-
-                        if {"$directive" in $included_directives} {
-                            if {[dict exists $opt_override "$directive"]} {
-                                append result \n "$directive [dict merge [dict get $specdict FORMS $formname $defaults_key] [dict get $opt_override $directive]]"
-                                dict set resultdict $directive [dict merge [dict get $specdict FORMS $formname $defaults_key] [dict get $opt_override $directive]]
-                            } else {
-                                append result \n "$directive [dict get $specdict FORMS $formname $defaults_key]"
-                                dict set resultdict $directive [dict get $specdict FORMS $formname $defaults_key]
-                            }
-                        }
-
-                        if {$pseudodirective in $included_directives} {
-                            foreach m $included_args {
-                                set argspec [dict get $arg_info $m]
-                                if {[dict get $argspec -ARGTYPE] eq $tp} {
-                                    set argspec [dict remove $argspec -ARGTYPE]
-                                    if {[dict exists $opt_override $m]} {
-                                        append result \n "\"$m\" [dict merge $argspec [dict get $opt_override $m]]"
-                                        dict set resultdict $m [dict merge $argspec [dict get $opt_override $m]]
-                                    } else {
-                                        append result \n "\"$m\" $argspec"
-                                        dict set resultdict $m $argspec
-                                    }
-                                }
-                            }
-                        }
-                    }
-
-                }
-                @id {
-                    if {"@id" in $included_directives} {
-                        #only a single id record can exist
-                        if {[dict exists $opt_override @id]} {
-                            append result \n "@id [dict merge [dict create -id [dict get $specdict id]] [dict get $opt_override @id]]"
-                            dict set resultdict  @id [dict merge [dict create -id [dict get $specdict id]] [dict get $opt_override @id]]
-                        } else {
-                            append result \n "@id -id [dict get $specdict id]"
-                            dict set resultdict @id [list -id [dict get $specdict id]]
-                        }
-                    }
-                }
-                @package - @cmd - @doc - @examples - @seealso {
-                    if {"$type" in $included_directives} {
-                        set tp [string range $type 1 end] ;# @package -> package
-                        if {[dict exists $opt_override $type]} {
-                            append result \n "$type [dict merge [dict get $specdict ${tp}_info] [dict get $opt_override $type]]"
-                            dict set resultdict $type [dict merge [dict get $specdict ${tp}_info] [dict get $opt_override $type]]
-                        } else {
-                            append result \n "$type [dict get $specdict ${tp}_info]"
-                            dict set resultdict $type [dict get $specdict ${tp}_info]
-                        }
-                    }
-                    #todo @formdisplay
-                }
-                @leaders - @opts - @values {
-                    #these are the active defaults for further arguments
-                    if {"$type" in $included_directives} {
-                        switch -- $type {
-                            @leaders {set defaults_key LEADERSPEC_DEFAULTS}
-                            @opts    {set defaults_key OPTSPEC_DEFAULTS}
-                            @values  {set defaults_key VALSPEC_DEFAULTS}
-                        }
-                        if {[dict exists $opt_override $type]} {
-                            append result \n "$type [dict merge [dict get $specdict FORMS $formname $defaults_key] [dict get $opt_override $type]]"
-                            dict set resultdict $type [dict merge [dict get $specdict FORMS $formname $defaults_key] [dict get $opt_override $type]]
-                        } else {
-                            append result \n "$type [dict get $specdict FORMS $formname $defaults_key]"
-                            dict set resultdict $type [dict get $specdict FORMS $formname $defaults_key]
-                        }
-                    }
-                }
-                leaders - opts - values {
-                    #pseudo-directives
-                    if {$type in $included_directives} {
-                        foreach m $included_args {
-                            set argspec [dict get $arg_info $m]
-                            if {[dict get $argspec -ARGTYPE] eq [dict get $argtypes $type]} {
-                                set argspec [dict remove $argspec -ARGTYPE]
-                                if {[dict exists $opt_override $m]} {
-                                    append result \n "\"$m\" [dict merge $argspec [dict get $opt_override $m]]"
-                                    dict set resultdict $m [dict merge $argspec [dict get $opt_override $m]]
-                                } else {
-                                    append result \n "\"$m\" $argspec"
-                                    dict set resultdict $m $argspec
-                                }
-                            }
-                        }
-                    }
-                }
-                default {
-                }
-            }
-            if {$opt_return eq "text"} {
-                return $result
-            } else {
-                return $resultdict
-            }
-        }
-    }
-
-    proc resolved_def_values {id {patternlist *}} {
-        variable id_cache_rawdef
-        set realid [real_id $id]
-        if {$realid ne ""} {
-            set deflist [tcl::dict::get $id_cache_rawdef $realid]
-            set specdict [resolve {*}$deflist]
-            set arg_info [dict get $specdict ARG_INFO]
-            set valnames [dict get $specdict VAL_NAMES]
-            set result ""
-            if {$patternlist eq "*"} {
-                foreach v $valnames {
-                    set def [dict get $arg_info $v]
-                    set def [dict remove $def -ARGTYPE]
-                    append result \n "$v $def"
-                }
-                return $result
-            } else {
-                foreach pat $patternlist {
-                    set matches [dict keys $arg_info $pat]
-                    set matches [lsearch -all -inline -glob $valnames $pat]
-                    foreach m $matches {
-                        set def [dict get $arg_info $m]
-                        set def [dict remove $def -ARGTYPE]
-                        append result \n "$m $def"
-                    }
-                }
-                return $result
-            }
-        }
-    }
-    #proc resolved_def_leaders ??
-    #proc resolved_def_opts ??
-
-    proc get_spec {id} {
-        set deflist [raw_def $id]
-        if {$deflist eq ""} {
-            return
-        }
-        return [resolve {*}$deflist]
-        #if {[id_exists $id]} {
-        #    return [resolve {*}[raw_def $id]]
-        #}
-    }
-    proc is_dynamic {id} {
-        variable id_cache_rawdef
-        variable rawdef_cache
-        set deflist [raw_def $id]
-        if {[dict exists $rawdef_cache $deflist -dynamic]} {
-            return [dict get $rawdef_cache $deflist -dynamic]
-        }
-        return [rawdef_is_dynamic $deflist]
-        #@dynamic only has meaning as 1st element of a def in the deflist
-    }
-
-    #@id must be within first 4 lines of a block - or assign auto
-    #review - @dynamic block where -id not explicitly set? - disallow?
-    proc rawdef_id {rawdef} {
-        set id ""
-        foreach d $rawdef {
-            foreach ln [lrange [split $d \n] 0 4] {
-                if {[regexp {\s*(\S+)(.*)} $ln _match firstword rest]} {
-                    if {$firstword eq "@id"} {
-                        if {[llength $rest] %2 == 0 && [dict exists $rest -id]} {
-                            set id [dict get $rest -id]
-                            break
-                        }
-                    }
-                }
-            }
-            if {$id ne ""} {
-                break
-            }
-        }
-        if {$id eq "" || [string tolower $id] eq "auto"} {
-            variable id_counter
-            set id "autoid_[incr id_counter]"
-        }
-        #puts "==>id: $id"
-        return $id
-    }
-    #test the rawdef for @dynamic directive
-    proc rawdef_is_dynamic {rawdef} {
-        #temporary - old way
-        set flagged_dynamic [expr {[lindex $rawdef 0] eq "-dynamic" && [lindex $rawdef 1]} ]
-        if {$flagged_dynamic} {
-            return true
-        }
-        foreach d $rawdef {
-            if {[regexp {\s*(\S+)} $d _match firstword]} {
-                if {$firstword eq "@dynamic"} {
-                    return true
-                }
-            }
-        }
-        return false
-    }
-
-    variable aliases
-    set aliases [dict create]
-
-    lappend PUNKARGS [list {
-        @id -id ::punk::args::get_ids
-        @cmd -name punk::args::get_ids -help\
-            "return list of ids for argument definitions"
-        @values -min 0 -max 1
-        match -default * -help\
-            "exact id or glob pattern for ids"
-    }]
-    proc get_ids {{match *}} {
-        variable id_cache_rawdef
-        variable aliases
-        return [list {*}[tcl::dict::keys $aliases $match] {*}[tcl::dict::keys $id_cache_rawdef $match]]
-    }
-
-    #we don't automatically test for (autodef)$id - only direct ids and aliases
-    proc id_exists {id} {
-        variable aliases
-        if {[tcl::dict::exists $aliases $id]} {
-            return 1
-        }
-        variable id_cache_rawdef
-        tcl::dict::exists $id_cache_rawdef $id
-    }
-    proc aliases {} {
-        variable aliases
-        punk::lib::showdict $aliases
-    }
-    proc set_alias {alias id} {
-        variable aliases
-        dict set aliases $alias $id
-    }
-    proc unset_alias {alias} {
-        variable aliases
-        dict unset aliases $alias
-    }
-    proc get_alias {alias} {
-        variable aliases
-        if {[dict exists $aliases $alias]} {
-            return [tcl::dict::get $aliases $alias]
-        }
-    }
-
-    proc real_id {id} {
-        variable id_cache_rawdef
-        variable aliases
-        if {[tcl::dict::exists $aliases $id]} {
-            set id [tcl::dict::get $aliases $id]
-        }
-        if {[tcl::dict::exists $id_cache_rawdef $id]} {
-            return $id
-        } else {
-            set check_updates [list [namespace qualifiers $id]]
-            #puts stderr "---->real_id '$id' update_definitions $check_updates"
-            if {![llength [update_definitions $check_updates]]} {
-                #nothing new loaded
-                if {[tcl::dict::exists $id_cache_rawdef (autodef)$id]} {
-                    return (autodef)$id
-                }
-                return ""
-            } else {
-                if {[tcl::dict::exists $aliases $id]} {
-                    set id [tcl::dict::get $aliases $id]
-                }
-                if {[tcl::dict::exists $id_cache_rawdef $id]} {
-                    return $id
-                }
-                if {[tcl::dict::exists $id_cache_rawdef (autodef)$id]} {
-                    return (autodef)$id
-                }
-                return ""
-            }
-        }
-    }
-
-    proc status {} {
-        upvar ::punk::args::register::NAMESPACES        registered
-        upvar ::punk::args::register::loaded_packages   loaded_packages
-        upvar ::punk::args::register::loaded_info       loaded_info
-        upvar ::punk::args::register::scanned_packages  scanned_packages
-        upvar ::punk::args::register::scanned_info      scanned_info
-        set result ""
-        # [format %-${w0}s    $idtail]
-        set widest [tcl::mathfunc::max {*}[lmap v [list {*}$registered "Registered"] {string length $v}]]
-        append result "[format %-${widest}s Registered] Scanned_ids Scantime_us Loaded_defs Loadtime_us" \n
-        set width_c2 [string length "Scanned_ids"]
-        set width_c3 [string length "Scantime_us"]
-        set width_c4 [string length "Loaded_defs"]
-        set width_c5 [string length "Loadtime_us"]
-        set count_unloaded 0
-        set count_loaded 0
-        foreach ns $registered {
-            if {$ns in $scanned_packages} {
-                set ids     [dict get $scanned_info $ns idcount]
-                set scan_us [dict get $scanned_info $ns time]
-            } else {
-                set ids ""
-                set scan_us ""
-            }
-            if {$ns in $loaded_packages} {
-                incr count_loaded
-                set ldefs   [dict get $loaded_info $ns defcount]
-                set load_us [dict get $loaded_info $ns time]
-            } else {
-                incr count_unloaded
-                set ldefs ""
-                set load_us ""
-            }
-            append result "[format %-${widest}s $ns] [format %${width_c2}s $ids] [format %${width_c3}s $scan_us] [format %${width_c4}s $ldefs] [format %${width_c5}s $load_us]" \n
-        }
-        append result "\nPackages - Registered: [llength $registered] Loaded: $count_loaded Unloaded: $count_unloaded"
-        return $result
-    }
-
-    lappend PUNKARGS [list {
-        @id  -id ::punk::args::update_definitions
-        @cmd -name punk::args::update_definitions\
-            -summary\
-            ""\
-            -help\
-            ""
-        @values -min 1
-        id
-        arglist -type list -help\
-            "list containing arguments to be parsed as per the
-              argument specification identified by the supplied id."
-    }]
-    #scanned_packages (list)
-    #namespace_docpackages (dict)
-    proc update_definitions {{nslist *}} {
-        #puts "----> update_definitions '$nslist'"
-        if {[set gposn [lsearch $nslist {}]] >= 0} {
-            lset nslist $gposn ::
-        }
-        upvar ::punk::args::register::NAMESPACES            registered              ;#list
-        upvar ::punk::args::register::loaded_packages       loaded_packages         ;#list
-        upvar ::punk::args::register::loaded_info           loaded_info             ;#dict
-        upvar ::punk::args::register::scanned_packages      scanned_packages        ;#list
-        upvar ::punk::args::register::scanned_info          scanned_info            ;#dict
-        upvar ::punk::args::register::namespace_docpackages namespace_docpackages   ;#dict
-
-
-        #puts stderr "-->update_definitions '$nslist'"
-        #needs to run quickly - especially when no package namespaces to be scanned for argdefs
-        #e.g - gets called for each subcommand of an ensemble (could be many)
-        # It needs to get called in each arginfo call as we don't know what namespace origins or aliases may be involved in resolving a command.
-        #we could possibly get away with not calling it for nested calls (such as with ensemble subcommands) but the code to avoid calls is probably more complex/slow than any gain avoiding the fast-path below.
-        # -- --- --- --- --- ---
-        # common-case fast-path
-
-        if {[llength $loaded_packages] == [llength $registered]} {
-            #the only valid mechanism to add to 'loaded_packages' is with this function - so if lengths are equal, nothing to do.
-            #assert - if all are registered - then all have been scanned
-            return {}
-        }
-        # -- --- --- --- --- ---
-
-        set unscanned [punklib_ldiff $registered $scanned_packages]
-        if {[llength $unscanned]} {
-            foreach pkgns $unscanned {
-                set idcount 0
-                set ts_start [clock microseconds]
-                if {[info exists ${pkgns}::PUNKARGS]} {
-                    set seen_documentedns [list] ;#seen per pkgns
-                    foreach definitionlist [set ${pkgns}::PUNKARGS] {
-                        #namespace eval $evalns [list punk::args::define {*}$definitionlist]
-                        set id [rawdef_id $definitionlist]
-                        if {[string match autoid_* $id]} {
-                            puts stderr "update_definitions - unexpected autoid during scan of $pkgns - skipping"
-                            puts stderr "definition:\n"
-                            foreach d $definitionlist {
-                                set out ""
-                                foreach ln [split $d \n] {
-                                    append out "    " $ln \n
-                                }
-                                puts $out
-                            }
-                            continue
-                        }
-                        #todo - detect duplicate ids (last will silently win.. should be reported somewhere)
-                        incr idcount
-                        set documentedns [namespace qualifiers $id]
-                        if {$documentedns eq ""} {set documentedns ::}
-                        if {$documentedns ni $seen_documentedns} {
-                            #don't add own ns as a key in namespace_docpackages
-                            if {$documentedns ne $pkgns} {
-                                dict lappend namespace_docpackages $documentedns $pkgns
-                            }
-                            lappend seen_documentedns $documentedns
-                        }
-                    }
-                }
-                set ts_end [clock microseconds]
-                set diff [expr {$ts_end - $ts_start}]
-                dict set scanned_info $pkgns [dict create time $diff idcount $idcount]
-                #we count it as scanned even if PUNKARGS didn't exist
-                #(registered the namespace, variable PUNKARGS may or may not be declared,  but didn't set PUNKARGS)
-                lappend scanned_packages $pkgns
-            }
-        }
-
-
-
-        if {"*" in $nslist} {
-            set needed [punklib_ldiff $registered $loaded_packages]
-        } else {
-            set needed [list]
-            foreach pkgns $nslist {
-                if {![string match ::* $pkgns]} {
-                    puts stderr "warning: update_definitions received unqualified ns: $pkgns"
-                    set pkgns ::$pkgns
-                }
-                if {$pkgns in $registered && $pkgns ni $loaded_packages} {
-                    lappend needed $pkgns
-                }
-                #argdoc sub namespace is a standard place to put defs that match the namespace below
-                #(generally the PUNKARGS in a namespace should apply to own ns)
-                set docns ${pkgns}::argdoc
-                if {[namespace exists $docns]} {
-                    if {($pkgns in $registered || $docns in $registered) && $docns ni $needed && $docns ni $loaded_packages} {
-                        lappend needed $docns
-                    }
-                }
-                if {[dict exists $namespace_docpackages $pkgns]} {
-                    #this namespace has other argdef sources
-                    foreach docns [dict get $namespace_docpackages $pkgns] {
-                        if {$docns ni $loaded_packages} {
-                            lappend needed $docns
-                        }
-                    }
-                }
-            }
-        }
-
-
-
-        set newloaded [list]
-        foreach pkgns $needed {
-            #puts stderr "update_definitions Loading: $pkgns"
-            set ts_start [clock microseconds]
-            set def_count 0
-            if {![catch {
-                if {[info exists ${pkgns}::PUNKARGS]} {
-                    set docns ${pkgns}::argdoc
-                    if {[namespace exists $docns]} {
-                        namespace eval ${pkgns}::argdoc  {
-                            set epath [namespace path]
-                            set pkgns [namespace parent]
-                            if {$pkgns ni $epath} {
-                                namespace path [list {*}$epath $pkgns] ;#add to tail
-                            }
-
-                        }
-                        set evalns $docns
-                    } else {
-                        set evalns $pkgns
-                    }
-                    foreach definitionlist [set ${pkgns}::PUNKARGS] {
-                        namespace eval $evalns [list punk::args::define {*}$definitionlist]
-                        incr def_count
-                    }
-                }
-
-                #process list of 2-element lists
-                if {[info exists ${pkgns}::PUNKARGS_aliases]} {
-                    foreach adef [set ${pkgns}::PUNKARGS_aliases] {
-                        punk::args::set_alias {*}$adef
-                    }
-                }
-            } errMsg]} {
-                set ts_end [clock microseconds]
-                set diff [expr {$ts_end - $ts_start}]
-                lappend loaded_packages $pkgns
-                lappend newloaded $pkgns
-                dict set loaded_info $pkgns [dict create time $diff defcount $def_count]
-            } else {
-                puts stderr "punk::args::update_definitions error - failed to load PUNKARGS definitions for $pkgns\nerr:$errMsg"
-            }
-        }
-        return $newloaded
-    }
-
-    #for use within get_dict only
-    #This mechanism gets less-than-useful results for oo methods
-    #e.g {$obj}
-    proc Get_caller {} {
-        set depth [info level]
-        set maxd [expr {min($depth,4)}]
-        set call_level [expr {-1 * $maxd}]
-        #set call_level -3 ;#for get_dict call
-        #set call_level -4
-        set cmdinfo [tcl::dict::get [tcl::info::frame $call_level] cmd]
-        #puts "-->$cmdinfo"
-        #puts "-->[tcl::info::frame -3]"
-        set maxloop 10 ;#failsafe
-        while {[string last \n $cmdinfo] >= 1 && $maxloop > -1} {
-            #looks like a script - haven't gone up far enough?
-            #(e.g patternpunk oo system: >punk . poses -invalidoption)
-            incr call_level -1
-            if {[catch {
-                set nextup [tcl::info::frame $call_level]
-            } ]} {
-                break
-            }
-            set cmdinfo [tcl::dict::get $nextup cmd]
-            set caller [regexp -inline {\S+} $cmdinfo]
-            if {[interp alias {} $caller] ne ""} {
-                #puts "found alias for caller $caller to [interp alias {} $caller]"
-                #see if we can go further
-                incr call_level -1
-                if {[catch {
-                    set cmdinfo [tcl::dict::get [tcl::info::frame $call_level] cmd]
-                } errM ]} {
-                    puts "err: $errM"
-                    break
-                }
-            }
-            incr maxloop -1
-        }
-        set caller [regexp -inline {\S+} $cmdinfo]
-        if {$caller eq "namespace"} {
-            # review - message?
-            set cmdinfo "Get_caller (punk::args::get_dict?) called from namespace"
-        }
-        return $cmdinfo
-    }
-
-
-    # --------------------------------------
-    #test of Get_caller
-    lappend PUNKARGS [list {
-        @id -id ::punk::args::test1
-        @values -min 0 -max 0
-    }]
-    proc test_get_dict {args} {
-        punk::args::get_dict [punk::args::raw_def ::punk::args::test1] $args
-    }
-    proc test_get_by_id {args} {
-        punk::args::get_by_id ::punk::args::test1 $args
-    }
-    #supply an arg to cause usage error for test functions - check initial message to see if Get_caller is correct.
-    proc test_callers {args} {
-        if {![llength $args]} {
-            puts "these test functions accept no arguments"
-            puts "Call with arg(s) to compare error output"
-        }
-
-        if {[catch {test_get_dict {*}$args} errM]} {
-            puts $errM
-        }
-        puts "------------"
-        if {[catch {test_get_by_id {*}$args} errM]} {
-            puts $errM
-        }
-        return done
-    }
-    # --------------------------------------
-
-    set map ""
-    lappend PUNKARGS [list [string map $map {
-        @id  -id ::punk::args::arg_error
-        @cmd -name punk::args::arg_error -help\
-            "Generates a table (by default) of usage information for a command.
-            A trie system is used to create highlighted prefixes for command
-            switches and for subcommands or argument/switch values that accept
-            a defined set of choices. These prefixes match the mechanism used
-            to validate arguments (based on tcl::prefix::match).
-
-            This function is called during the argument parsing process
-            (if the definition is not only being used for documentation)
-            It is also called by punk::args::usage which is in turn
-            called by the punk::ns introspection facilities which creates
-            on the fly definitions for some commands such as ensembles and
-            oo objects where a manually defined one isn't present.
-            "
-        @leaders -min 2 -max 2
-        msg -type string -help\
-           "Error message to display immediately prior to usage table.
-              May be empty string to just display usage.
-            "
-        spec_dict -type dict -help\
-           "Dictionary of argument specifications.
-              This is the internal format parsed from
-              the textual definition. It contains the data
-              organised/optimised to allow the final arg
-              parser/validator to make decisions.
-            "
-        @opts
-        -badarg -type string -help\
-            "name of an argument to highlight"
-        -parsedargs -type dict -help\
-            "Result of successful punk::pargs::parse
-            (currently only looks at 'received')"
-        -aserror -type boolean -help\
-           "If true, the usage table is raised as an error message,
-              otherwise it is returned as a value."
-        -return -choices {string table tableobject} -choicelabels {
-                string          "no table layout"
-                tableobject     "table object cmd"
-                table           "full table layout"
-            }
-        -scheme -default error -choices {nocolour info error}
-        -form  -default 0 -help\
-            "Ordinal index or name of command form"
-    }] ]
-
-
-    variable arg_error_CLR
-    array set arg_error_CLR {}
-    variable arg_error_CLR_nocolour
-    array set arg_error_CLR_nocolour {}
-    variable arg_error_CLR_info
-    array set arg_error_CLR_info {}
-    variable arg_error_CLR_error
-    array set arg_error_CLR_error {}
-
-    proc _argerror_load_colours {{forcereload 0}} {
-        variable arg_error_CLR
-        #todo - option for reload/retry?
-        if {!$forcereload && [array size arg_error_CLR] > 0} {
-            return
-        }
-
-        if {[catch {package require punk::ansi} errMsg]} {
-            puts stderr "punk::args FAILED to load punk::ansi\n$errMsg"
-            proc ::punk::args::a {args} {}
-            proc ::punk::args::a+ {args} {}
-        } else {
-            namespace eval ::punk::args {
-                namespace import ::punk::ansi::a ::punk::ansi::a+
-            }
-        }
-        #array set arg_error_CLR {}
-            set arg_error_CLR(testsinglecolour)   [a+ yellow] ;#A single SGR colour to test current colour on|off state (empty string vs some result - used to determine if forcereload required)
-            set arg_error_CLR(errormsg)           [a+ brightred]
-            set arg_error_CLR(title)              ""
-            set arg_error_CLR(check)              [a+ brightgreen]
-            set arg_error_CLR(solo)               [a+ brightcyan]
-            set arg_error_CLR(choiceprefix)       [a+ underline]
-            set arg_error_CLR(badarg)             [a+ brightred]
-            set arg_error_CLR(goodarg)            [a+ green strike]
-            set arg_error_CLR(goodchoice)         [a+ reverse]
-            set arg_error_CLR(linebase_header)    [a+ white]
-            set arg_error_CLR(linebase)           [a+ white]
-            set arg_error_CLR(cmdname)            [a+ brightwhite]
-            set arg_error_CLR(groupname)          [a+ bold]
-            set arg_error_CLR(ansiborder)         [a+ bold]
-            set arg_error_CLR(ansibase_header)    [a+ bold]
-            set arg_error_CLR(ansibase_body)      [a+ white]
-        variable arg_error_CLR_nocolour
-        #array set arg_error_CLR_nocolour {}
-            set arg_error_CLR_nocolour(errormsg)           [a+ bold]
-            set arg_error_CLR_nocolour(title)              [a+ bold]
-            set arg_error_CLR_nocolour(check)              ""
-            set arg_error_CLR_nocolour(solo)               ""
-            set arg_error_CLR_nocolour(badarg)             [a+ reverse] ;#? experiment
-            set arg_error_CLR_nocolour(goodarg)            [a+ strike]
-            set arg_error_CLR_nocolour(cmdname)            [a+ bold]
-            set arg_error_CLR_nocolour(linebase_header)    ""
-            set arg_error_CLR_nocolour(linebase)           ""
-            set arg_error_CLR_nocolour(ansibase_body)      ""
-        variable arg_error_CLR_info
-        #array set arg_error_CLR_info {}
-            set arg_error_CLR_info(errormsg)           [a+ brightred bold]
-            set arg_error_CLR_info(title)              [a+ brightyellow bold]
-            set arg_error_CLR_info(check)              [a+ brightgreen bold]
-            set arg_error_CLR_info(choiceprefix)       [a+ brightgreen bold]
-            set arg_error_CLR_info(groupname)          [a+ cyan bold]
-            set arg_error_CLR_info(ansiborder)         [a+ brightcyan bold]
-            set arg_error_CLR_info(ansibase_header)    [a+ cyan]
-            set arg_error_CLR_info(ansibase_body)      [a+ white]
-        variable arg_error_CLR_error
-        #array set arg_error_CLR_error {}
-            set arg_error_CLR_error(errormsg)           [a+ brightred bold]
-            set arg_error_CLR_error(title)              [a+ brightcyan bold]
-            set arg_error_CLR_error(check)              [a+ brightgreen bold]
-            set arg_error_CLR_error(choiceprefix)       [a+ brightgreen bold]
-            set arg_error_CLR_error(groupname)          [a+ cyan bold]
-            set arg_error_CLR_error(ansiborder)         [a+ brightyellow bold]
-            set arg_error_CLR_error(ansibase_header)    [a+ yellow]
-            set arg_error_CLR_error(ansibase_body)      [a+ white]
-    }
-
-
-    #bas  ic recursion blocker
-    variable arg_error_isrunning 0
-    proc arg_error {msg spec_dict args} {
-        #todo - test a configurable flag (in the CALLER) for whether to do a faster return on the unhappy path.
-        #accept an option here so that we can still use full output for usage requests.
-        #This may be desired for codebases where tests based on 'catch' are used on procs that parse with punk::args
-        #Development/experimentation may be done with full table-based error reporting - but for production release it
-        #may be desirable to reduce overhead on catches.
-        #consider per-namespace or namespace-tree configurability.
-        #In general - errors raised by this mechanism represent programming errors (or data sanity issues) rather than underlying errors due
-        #to resource availability etc - so the slower error generation time may not always be a problem.
-        #Contrary to that reasoning - validation options such as 'existingfile' are the sort of thing that might bubble up to a catch in calling
-        #code which has no use for the enhanced error info.
-        #The use of punk::args for arg parsing/validation is probably best suited for code close to an interactive user.
-        #consider also (erlang/elixer style?) message passing - to quickly hand off enhanced errors to another thread/system
-        #todo
-        #investigate options - e.g we return our errorcode {TCL WRONGARGS PUNK} quickly - and process the enhanced error
-        #asynchronously for later retrieval. (subcodes? e.g usage vs parameter validation fail)
-
-        #todo - document unnamed leaders and unnamed values where -min and/or -max specified
-        #e.g punk::args::parse {} withdef {@leaders -min 1 -max 1} -x {@values -min 1 -max 2}
-        #only |?-x?|string|... is shown in the output table.
-        #should be something like:
-        #     |arg  |
-        #     |?-x? |
-        #     |arg  |
-        #     |?arg...?|
-        # Where/how to specify counts?
-        #also..
-        # use multi column for displaying limits on -multiple true args/switches e.g -multimin x -multimax y?
-        #
-
-
-        #limit colours to standard 16 so that themes can apply to help output
-        variable arg_error_isrunning
-        if {$arg_error_isrunning} {
-            error "arg_error already running - error in arg_error?\n triggering errmsg: $msg"
-        }
-
-        #set arg_error_CLR(testsinglecolour)           [a+ brightred]
-        upvar ::punk::args::arg_error_CLR CLR
-        set forcereload 0 ;#no need for forcereload to be true for initial run - empty array will trigger initial load
-        if {[info exists CLR(testsinglecolour)]} {
-            set terminal_colour_is_on   [expr {[string length [a+ yellow]]}]
-            set error_colour_is_on      [expr {[string length $CLR(testsinglecolour)]}]
-            if {$terminal_colour_is_on ^ $error_colour_is_on} {
-                #results differ
-                set forcereload 1
-            }
-        }
-        _argerror_load_colours $forcereload
-
-        if {[llength $args] %2 != 0} {
-            set arg_error_isrunning 0
-            error "error in arg_error processing - expected opt/val pairs after msg and spec_dict"
-        }
-
-        set arg_error_isrunning 1
-
-        set badarg ""
-        set parsedargs [dict create] ;#dict with keys: leaders,opts,values,received,solos,multis (as from punk::args::parse)
-        set goodargs [list]
-        #-----------------------
-        #todo!! make changeable from config file
-        #JJJ 2025-07-16
-        set returntype table ;#table as string
-        #set returntype string
-        #----------------------
-        set as_error 1 ;#usual case is to raise an error
-        set scheme error
-        set form 0
-        dict for {k v} $args {
-            set fullk [tcl::prefix::match -error "" {-badarg -parsedargs -aserror -return -scheme -form} $k]
-            switch -- $fullk {
-                -badarg {
-                    set badarg $v
-                }
-                -parsedargs {
-                    #todo?
-                    dict for {set setinfo} $v {
-                        switch -- $set {
-                            received {
-                                foreach {r rpos} $setinfo {
-                                    if {$r ni $goodargs} {
-                                        lappend goodargs $r
-                                    }
-                                }
-                            }
-                        }
-                    }
-                    set parsedargs $v
-                }
-                -aserror {
-                    if {![string is boolean -strict $v]} {
-                        set arg_error_isrunning 0
-                        error "arg_error invalid value for option -aserror. Received '$v' expected a boolean"
-                    }
-                    set as_error $v
-                }
-                -scheme {
-                    set scheme $v
-                }
-                -return {
-                    if {[tcl::prefix::match -error "" {string table tableobject} $v] eq ""} {
-                        set arg_error_isrunning 0
-                        error "arg_error invalid value for option -return. Received '$v' expected one of: string table tableobject"
-                    }
-                    set returntype $v
-                }
-                -form {
-                    set form $v
-                }
-                default {
-                    set arg_error_isrunning 0
-                    error "arg_error invalid option $k. Known_options: -badarg -parsedargs -aserror -scheme -return -form"
-                }
-            }
-        }
-        #todo - scheme - use config and iterm toml definitions etc
-        switch -- $scheme {
-            "" - -nocolor - -nocolour {
-                set scheme nocolour
-            }
-            info - error {}
-            default {
-                set scheme na
-            }
-        }
-        set formnames [dict get $spec_dict form_names]
-        if {[string is integer -strict $form]} {
-            if {$form < 0 || $form > [llength $formnames]-1} {
-                set arg_error_isrunning 0
-                error "arg_error invalid value for option -form. Received '$v' Allowed values 0-[expr {[llength $formnames]-1}] or one of '$formnames'"
-            }
-            set selected_forms [list [lindex $formnames $form]]
-        } else {
-            if {$form eq "*"} {
-                set selected_forms $formnames
-            } else {
-                if {$form in $formnames} {
-                    set selected_forms [list $form]
-                } else {
-                    set arg_error_isrunning 0
-                    error "arg_error invalid value for option -form. Received '$v' Allowed values 0-[expr {[llength $formnames]-1}] or one of '$formnames'"
-                }
-            }
-        }
-
-
-        #hack some basics for now.
-        #for coloured schemes - use bold as well as brightcolour in case colour off.
-
-        switch -- $scheme {
-            nocolour {
-                variable arg_error_CLR_nocolour
-                array set CLR [array get arg_error_CLR_nocolour]
-            }
-            info {
-                variable arg_error_CLR_info
-                array set CLR [array get arg_error_CLR_info]
-            }
-            error {
-                variable arg_error_CLR_error
-                array set CLR [array get arg_error_CLR_error]
-            }
-            na {
-            }
-        }
-
-
-        #set RST [a]
-        set RST "\x1b\[0m"
-        set t "" ;#possible oo table object - may be tested for objectiness at the end so needs to exist.
-
-        #REVIEW - risk of accidental indefinite recursion if functions used here also use punk::args::get_dict and there is an argument error
-        #e.g list_as_table
-
-        # use basic colours here to support terminals without extended colours
-        #todo - add checks column (e.g -minsize -maxsize)
-        set errmsg $msg
-        if {![catch {package require textblock}]} {
-            set has_textblock 1
-        } else {
-            set has_textblock 0
-            #couldn't load textblock package
-            #just return the original errmsg without formatting
-        }
-        set use_table 0
-        if {$has_textblock && $returntype in {table tableobject}} {
-            set use_table 1
-        }
-        set errlines [list] ;#for non-textblock output
-        if {[catch  {
-            if {$use_table} {
-                append errmsg \n
-            } else {
-                if {($returntype in {table tableobject}) && !$has_textblock} {
-                    append errmsg \n "$CLR(errormsg)(layout package textblock is missing)$RST" \n
-                } else {
-                    append errmsg \n
-                }
-            }
-            set cmdname     [Dict_getdef $spec_dict cmd_info -name ""]
-            set cmdsummary  [Dict_getdef $spec_dict cmd_info -summary ""]
-            set cmdhelp     [Dict_getdef $spec_dict cmd_info -help ""]
-
-            set docname     [Dict_getdef $spec_dict doc_info -name "Manual:"]
-            set docurl      [Dict_getdef $spec_dict doc_info -url ""]
-
-            #set argdisplay_header [Dict_getdef $spec_dict argdisplay_info -header ""]
-            #set argdisplay_body   [Dict_getdef $spec_dict argdisplay_info -body ""]
-            #if {"$argdisplay_header$argdisplay_body" eq ""} {
-            #    set is_custom_argdisplay 0
-            #} else {
-            #    set is_custom_argdisplay 1
-            #}
-
-            #temp - TODO
-            set argdisplay_header ""
-            set argdisplay_body ""
-            set is_custom_argdisplay 0
-
-
-            set blank_header_col [list]
-            if {$cmdname ne ""} {
-                lappend blank_header_col ""
-                set cmdname_display $CLR(cmdname)$cmdname$RST
-            } else {
-                set cmdname_display ""
-            }
-            if {$cmdhelp ne ""} {
-                lappend blank_header_col ""
-                #set cmdhelp_display [a+ brightwhite]$cmdhelp[a]
-                #set cmdhelp_display [textblock::ansibase_lines $cmdhelp $CLR(linebase_header)]
-                set cmdhelp_display [punk::ansi::ansiwrap_raw $CLR(linebase_header) "" "" $cmdhelp]
-            } else {
-                set cmdhelp_display ""
-            }
-            if {$docurl ne ""} {
-                lappend blank_header_col ""
-                set docurl_display [a+ white]$docurl$RST
-            } else {
-                set docurl_display ""
-            }
-            #synopsis
-            set synopsis "# [Dict_getdef $spec_dict cmd_info -summary {}]\n"
-            set form_info [dict get $spec_dict form_info]
-            dict for {fid finfo} $form_info {
-                set form_synopsis [Dict_getdef $finfo -synopsis ""]
-                if {$form_synopsis eq ""} {
-                    #todo
-                    set form_synopsis [punk::args::synopsis -noheader -form $fid [dict get $spec_dict id]]
-                    set ansifree_synopsis [punk::ansi::ansistripraw $form_synopsis]
-                    if {[string length $ansifree_synopsis] > 90} {
-                        #
-                        set form_synopsis [punk::args::synopsis -noheader -return summary -form $fid [dict get $spec_dict id]]
-                    }
-                    #review
-                    if {[string match (autodef)* $form_synopsis]} {
-                        set form_synopsis [string range $form_synopsis 9 end]
-                    }
-                }
-                if {$fid in $selected_forms} {
-                    set form_synopsis [punk::ansi::a+ underline]$form_synopsis[punk::ansi::a+ nounderline]
-                }
-                append synopsis $form_synopsis \n
-            }
-            if {$synopsis ne ""} {
-                set synopsis [string trimright $synopsis \n]
-                lappend blank_header_col ""
-            }
-
-            if {$argdisplay_header ne ""} {
-                lappend blank_header_col ""
-            }
-            if {$use_table} {
-                set t [textblock::class::table new "$CLR(title)Usage$RST"]
-                $t add_column -headers $blank_header_col -minwidth 3
-                $t add_column -headers $blank_header_col
-
-                if {!$is_custom_argdisplay} {
-                    lappend blank_header_col ""
-                    #spanned columns in default argdisplay area
-                    $t add_column -headers $blank_header_col  ;#Default
-                    $t add_column -headers $blank_header_col  ;#Multi
-                    $t add_column -headers $blank_header_col  ;#Help
-                    set arg_colspans {1 4 0 0 0}
-                } else {
-                    if {$argdisplay_header ne ""} {
-                        lappend blank_header_col ""
-                    }
-                    set arg_colspans {1 1}
-                }
-            }
-            set h 0
-            if {$cmdname ne ""} {
-                if {$use_table} {
-                    $t configure_header $h -colspans $arg_colspans -values [list COMMAND: $cmdname_display]
-                } else {
-                    lappend errlines "COMMAND: $cmdname_display"
-                }
-                incr h
-            }
-            if {$cmdhelp ne ""} {
-                if {$use_table} {
-                    $t configure_header $h -colspans $arg_colspans -values [list Description: $cmdhelp_display]
-                } else {
-                    lappend errlines "Description: $cmdhelp_display"
-                }
-                incr h
-            }
-            if {$docurl ne ""} {
-                if {![catch {package require punk::ansi}]} {
-                    set docurl [punk::ansi::hyperlink $docurl]
-                }
-                if {$use_table} {
-                    $t configure_header $h -colspans $arg_colspans -values [list $docname $docurl_display]
-                } else {
-                    lappend errlines "$docname $docurl_display"
-                }
-                incr h
-            }
-            if {$synopsis ne ""} {
-                if {$use_table} {
-                    $t configure_header $h -colspans $arg_colspans -values [list Synopsis: [punk::ansi::ansiwrap brightwhite $synopsis]]
-                } else {
-                    #todo
-                    lappend errlines "Synopsis:\n$synopsis"
-                }
-                incr h
-            }
-
-
-            if {$use_table} {
-                if {$is_custom_argdisplay} {
-                    if {$argdisplay_header ne ""} {
-                        $t configure_header $h -colspans {2 0} -values [list $argdisplay_header]
-                    }
-                } else {
-                    $t configure_header $h -values {Arg Type Default Multi Help}
-                }
-            } else {
-                lappend errlines " --ARGUMENTS-- "
-            }
-
-            if {$is_custom_argdisplay} {
-                if {$use_table} {
-                    #using overall container table
-                    #header already added
-                    #TODO - review textblock::table features
-                    #we can't currently span columns within the table body.
-                    #This feature could allow hidden data columns (and sort on hidden col?)
-                    #potentially require coordination with header colspans?
-                    $t add_row [list "" $argdisplay_body]
-                } else {
-                    if {$argdisplay_header ne ""} {
-                        lappend errlines $argdisplay_header
-                    }
-                    lappend errlines {*}$argdisplay_body
-                }
-            } else {
-
-                #set A_DEFAULT   [a+ brightwhite Brightgreen]
-                set A_DEFAULT ""
-                set A_BADARG     $CLR(badarg)
-                set A_GOODARG    $CLR(goodarg)
-                set A_GOODCHOICE $CLR(goodchoice)
-                set greencheck   $CLR(check)\u2713$RST    ;#green tick
-                set soloflag     $CLR(solo)\u2690$RST     ;#flag - may be replacement char in old dos prompt (?)
-                set A_PREFIX     $CLR(choiceprefix)         ;#use a+ so colour off can apply
-                if {$A_PREFIX eq "" || $A_PREFIX eq [a+ underline]} {
-                        #A_PREFIX can resolve to empty string if colour off
-                        #we then want to display underline instead
-                        set A_PREFIX    [a+ underline]
-                        #set A_PREFIXEND [a+ nounderline]\u200B ;#padding will take ANSI from last char - so add a zero width space (zwsp)
-                        set A_PREFIXEND [a+ nounderline]
-                        #review - zwsp problematic on older terminals that print it visibly
-                        #- especially if they also lie about cursor position after it's emitted.
-                        #so although the zwsp fixes the issue where the underline extends to rhs padding if all text was underlined,
-                        #It's probably best fixed in the padding functionality.
-                } else {
-                        set A_PREFIXEND $RST
-                }
-
-                #TODO - foreach fid
-                set fid [lindex $selected_forms 0]
-                set form_dict [dict get $spec_dict FORMS $fid]
-
-                set opt_names           [list]
-                set opt_names_display   [list]
-                set opt_names_hints     [list] ;#comments in first column below name display.
-                set lookup_optset [dict create]
-                if {[llength [dict get $form_dict OPT_NAMES]]} {
-                    set all_opts [list]
-                    foreach optionset [dict get $form_dict OPT_NAMES] {
-                        #e.g1  "-alias1|-realname"
-                        #e.g2  "-f|--filename"   (fossil longopt style)
-                        #e.g3  "-f|--filename="  (gnu longopt style)
-                        set optmembers [split $optionset |]
-                        lappend all_opts {*}$optmembers
-                        foreach o $optmembers {
-                            dict set lookup_optset $o $optionset
-                            #goodargs
-                        }
-                    }
-                    set full_goodargs [list]
-                    #goodargs may have simplified entries for received opts of form -alias1|-alias2|-realname
-                    #map -realname to full argname
-                    foreach g $goodargs {
-                        if {[string match -* $g] && [dict exists $lookup_optset $g]} {
-                            lappend full_goodargs [dict get $lookup_optset $g]
-                        } else {
-                            lappend full_goodargs $g
-                        }
-                    }
-                    set goodargs $full_goodargs
-                    if {![catch {package require punk::trie}]} {
-                        #todo - reservelist for future options - or just to affect the prefix calculation
-                        # (similar to -choiceprefixreservelist)
-
-                        set trie [punk::trie::trieclass new {*}$all_opts --]
-                        set idents [dict get [$trie shortest_idents ""] scanned]
-                        #todo - check opt_prefixdeny
-
-                        $trie destroy
-                        foreach optset [dict get $form_dict OPT_NAMES] {
-                            set arginfo [dict get $form_dict ARG_INFO $optset]
-                            set parsekey [dict get $arginfo -parsekey]
-                            set storageinfo ""
-                            if {$parsekey ne "" && $parsekey ne $optset} {
-                                set storageinfo "(stored as: $parsekey)"
-                            }
-                            if {[dict get $arginfo -prefix]} {
-                                set opt_members [split $optset |]
-                                set odisplay [list]
-                                foreach opt $opt_members {
-                                    set id [dict get $idents $opt]
-                                    #REVIEW
-                                    if {$id eq $opt} {
-                                        set prefix $opt
-                                        set tail ""
-                                    } else {
-                                        set idlen [string length $id]
-                                        lassign [punk::lib::string_splitbefore $opt $idlen] prefix tail
-                                    }
-                                    lappend odisplay $A_PREFIX$prefix$A_PREFIXEND$tail
-                                }
-                                #lappend opt_names_display $A_PREFIX$prefix$A_PREFIXEND$tail
-                                lappend opt_names_display [join $odisplay |]
-                            } else {
-                                lappend opt_names_display $optset
-                            }
-                            lappend opt_names_hints $storageinfo
-                            #lappend opt_names_display $M[ansistring VIEW $prefix]$RST[ansistring VIEW $tail]
-                            lappend opt_names $optset
-                        }
-                    } else {
-                        set opt_names           [dict get $form_dict OPT_NAMES]
-                        foreach optset [dict get $form_dict OPT_NAMES] {
-                            set arginfo [dict get $form_dict ARG_INFO $optset]
-                            set parsekey [dict get $arginfo -parsekey]
-                            set storageinfo ""
-                            if {$parsekey ne "" && $parsekey ne $optset} {
-                                set storageinfo "(stored as: $parsekey)"
-                            }
-                            lappend opt_names_display $optset
-                            lappend opt_names_hints $storageinfo
-                        }
-                        #set opt_names_display   $opt_names
-                    }
-                }
-                set leading_val_names           [dict get $form_dict LEADER_NAMES]
-                set trailing_val_names          [dict get $form_dict VAL_NAMES]
-
-                #dict for {argname info} [tcl::dict::get $form_dict arg_info] {
-                #    if {![string match -* $argname]} {
-                #        lappend leading_val_names [lpop trailing_val_names 0]
-                #    } else {
-                #        break
-                #    }
-                #}
-                #if {![llength $leading_val_names] && ![llength $opt_names]} {
-                #    #all vals were actually trailing - no opts
-                #    set trailing_val_names $leading_val_names
-                #    set leading_val_names {}
-                #}
-                set leading_val_names_display    $leading_val_names
-                set leading_val_names_hints     {}
-                set trailing_val_names_display   $trailing_val_names
-                set trailing_val_names_hints    {}
-                #puts "--> parsedargs: $parsedargs"
-                set parsed_leaders [Dict_getdef $parsedargs leaders {}]
-                set parsed_opts    [Dict_getdef $parsedargs opts {}]
-                set parsed_values  [Dict_getdef $parsedargs values {}]
-
-                #display options first then values
-                foreach argumentclassinfo [list [list leaders $leading_val_names_display $leading_val_names_hints $leading_val_names $parsed_leaders] [list opts $opt_names_display $opt_names_hints $opt_names $parsed_opts] [list values $trailing_val_names_display $trailing_val_names_hints $trailing_val_names $parsed_values]] {
-                    lassign $argumentclassinfo argumentclass argnames_display argnames_hints argnames parsedvalues
-                    set lastgroup ""
-                    set lastgroup_parsekey ""
-                    foreach argshow $argnames_display hint $argnames_hints arg $argnames {
-                        set arginfo [dict get $form_dict ARG_INFO $arg]
-
-                        if {$argumentclass eq "opts"} {
-                            set thisgroup [dict get $arginfo -group]
-                            if {$thisgroup ne $lastgroup} {
-                                if {[dict exists $form_dict OPT_GROUPS $thisgroup -parsekey]} {
-                                    set thisgroup_parsekey [dict get $form_dict OPT_GROUPS $thisgroup -parsekey]
-                                } else {
-                                    set thisgroup_parsekey ""
-                                }
-
-                                    #footer/line?
-                                    if {$use_table} {
-                                        $t add_row [list " " "" "" "" ""]
-                                    } else {
-                                        lappend errlines " "
-                                    }
-
-                                if {$thisgroup eq ""} {
-                                } else {
-                                    #SHOW group 'header' (not really a table header - just another row)
-                                    set help ""
-                                    if {[dict exists $form_dict OPT_GROUPS $thisgroup -help]} {
-                                        set help [dict get $form_dict OPT_GROUPS $thisgroup -help]
-                                    }
-                                    if {$thisgroup_parsekey eq ""} {
-                                        set groupinfo "(documentation group)"
-                                    } else {
-                                        set groupinfo "(common flag group)\nkey:$thisgroup_parsekey"
-                                    }
-                                    if {$use_table} {
-                                        $t add_row [list "  $thisgroup" $groupinfo "" "" $help]
-                                        if {$arg eq $badarg} {
-                                            $t configure_row [expr {[$t row_count]-1}] -ansibase $A_BADARG
-                                        } elseif {$arg in $goodargs || $thisgroup_parsekey in $goodargs} {
-                                            $t configure_row [expr {[$t row_count]-1}] -ansibase $A_GOODARG
-                                        }
-                                    } else {
-                                        #review - formatting will be all over the shop due to newlines in typesshow, help
-                                        #set arghelp "[a+ bold]  $thisgroup$RST $groupinfo"
-                                        set arghelp [textblock::join -- "[a+ bold] $thisgroup$RST" " " $groupinfo]
-                                        append arghelp \n
-                                        if {$arg eq $badarg} {
-                                            set arghelp [punk::ansi::ansiwrap -rawansi $A_BADARG $arghelp]
-                                        } elseif {$arg in $goodargs} {
-                                            set arghelp [punk::ansi::ansiwrap -rawansi $A_GOODARG $arghelp]
-                                        }
-                                        foreach ln [split $help \n] {
-                                            append arghelp "    $ln" \n
-                                        }
-                                        lappend errlines $arghelp
-                                    }
-                                }
-                                set lastgroup $thisgroup
-                                set lastgroup_parsekey $thisgroup_parsekey
-                            }
-                            if {[dict exists $arginfo -parsekey]} {
-                                set mypkey [dict get $arginfo -parsekey]
-                                if {$mypkey eq "$lastgroup_parsekey" || $mypkey eq [string trimright [lindex [split $arg |] end] =]} {
-                                    set hint ""
-                                }
-                            }
-                        }
-
-                        if {[dict exists $arginfo -default]} {
-                            #default isn't necessarily of same type as -type required for validation
-                            #Guessing at the type from the data is likely to be unsatisfactory.
-
-                            set defaultdisplaytype [Dict_getdef $arginfo -defaultdisplaytype string]
-                            switch -- $defaultdisplaytype {
-                                dict {
-                                    #single level
-                                    set rawdefault [dict get $arginfo -default]
-                                    set default     "{\n"
-                                    dict for {k v} $rawdefault {
-                                        append default "  \"$k\" \"$v\"\n"
-                                    }
-                                    append default  "}"
-                                }
-                                list {
-                                    set default     "{\n"
-                                    foreach v $rawdefault {
-                                        append default "  \"$v\"\n"
-                                    }
-                                    append default "}"
-                                }
-                                default {
-                                    #set default "'$A_DEFAULT[dict get $arginfo -default]$RST'"
-                                    set default "'[dict get $arginfo -default]'"
-                                }
-                            }
-                        } else {
-                            set default ""
-                        }
-                        set help [Dict_getdef $arginfo -help ""]
-                        set allchoices_originalcase [list]
-                        set choices                 [Dict_getdef $arginfo -choices {}]
-                        set choicegroups            [Dict_getdef $arginfo -choicegroups {}]
-                        set choicemultiple          [dict get $arginfo -choicemultiple]
-                        if {[string is integer -strict $choicemultiple]} {
-                            set choicemultiple [list $choicemultiple $choicemultiple]
-                        }
-                        lassign $choicemultiple choicemultiple_min choicemultiple_max
-                        set choicecolumns           [Dict_getdef $arginfo -choicecolumns 4]
-                        set choiceprefixdenylist    [Dict_getdef $arginfo -choiceprefixdenylist {}]
-                        set choiceprefixreservelist [Dict_getdef $arginfo -choiceprefixreservelist {}] ;#names used to calc prefix - but not available as actual choice.
-                        if {[Dict_getdef $arginfo -multiple 0]} {
-                            set multiple $greencheck
-                            set is_multiple 1
-                        } else {
-                            set multiple ""
-                            set is_multiple 0
-                        }
-                        if {[dict exists $choicegroups ""]} {
-                            dict lappend choicegroups "" {*}$choices
-                        } else {
-                            set choicegroups [dict merge [dict create "" $choices] $choicegroups]
-                        }
-                        #review - does choiceprefixdenylist need to be added?
-                        dict for {groupname clist} $choicegroups {
-                            lappend allchoices_originalcase {*}$clist
-                        }
-                        set has_choices [expr {[dict exists $arginfo -choices] || [dict exists $arginfo -choicegroups]}]
-
-                        if {$has_choices} {
-                            if {$help ne ""} {append help \n}
-                            if {[dict get $arginfo -nocase]} {
-                                set casemsg " (case insensitive)"
-                                set allchoices_prefixcalc [list {*}[string tolower $allchoices_originalcase] {*}$choiceprefixreservelist]
-                            } else {
-                                set casemsg " (case sensitive)"
-                                set allchoices_prefixcalc [list {*}$allchoices_originalcase {*}$choiceprefixreservelist]
-                            }
-                            if {[dict get $arginfo -choiceprefix]} {
-                                set prefixmsg " (choice prefix allowed)"
-                            } else {
-                                set prefixmsg ""
-                            }
-                            set choicelabeldict [Dict_getdef $arginfo -choicelabels {}]
-                            set choiceinfodict [Dict_getdef $arginfo -choiceinfo {}]
-                            set formattedchoices [dict create] ;#use dict rather than array to preserve order
-                            append help "Choices$prefixmsg$casemsg"
-                            if {$choicemultiple_max > 1 || $choicemultiple_max == -1} {
-                                if {$choicemultiple_max == -1} {
-                                    append help \n "  The value can be a list of $choicemultiple_min or more of these choices"
-                                } else {
-                                    if {$choicemultiple_min eq $choicemultiple_max} {
-                                        append help \n "  The value must be a list of $choicemultiple_min of these choices"
-                                    } else {
-                                        append help \n "  The value can be a list of $choicemultiple_min to $choicemultiple_max of these choices"
-                                    }
-                                }
-                            }
-                            if {![dict get $arginfo -choiceprefix] || [catch {package require punk::trie}]} {
-                                #append help "\n    " [join [dict get $arginfo -choices] "\n    "]
-                                if {[dict size $choicelabeldict]} {
-                                    dict for {groupname clist} $choicegroups {
-                                        foreach c $clist {
-                                            set markers [punk::args::lib::choiceinfo_marks $c $choiceinfodict]
-                                            if {[llength $markers]} {
-                                                set cdisplay "$c [join $markers {}]"
-                                            } else {
-                                                set cdisplay $c
-                                            }
-                                            if {[dict exists $choicelabeldict $c]} {
-                                                append cdisplay \n [dict get $choicelabeldict $c]
-                                            }
-                                            if {[dict exists $parsedvalues $arg] && [dict get $parsedvalues $arg] eq $c} {
-                                                dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                            } elseif {[dict exists $parsedvalues $arg] && $is_multiple && $c in [dict get $parsedvalues $arg]} {
-                                                dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                            } else {
-                                                dict lappend formattedchoices $groupname $cdisplay
-                                            }
-                                        }
-                                    }
-                                } else {
-                                    #set formattedchoices $choicegroups
-                                    #set formattedchoices [dict get $arginfo -choices]
-                                    dict for {groupname clist} $choicegroups {
-                                        foreach c $clist {
-                                            set markers [punk::args::lib::choiceinfo_marks $c $choiceinfodict]
-                                            if {[llength $markers]} {
-                                                set cdisplay "$c [join $markers {}]"
-                                            } else {
-                                                set cdisplay $c
-                                            }
-                                            if {[dict exists $parsedvalues $arg] && [dict get $parsedvalues $arg] eq $c} {
-                                                dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                            } elseif {[dict exists $parsedvalues $arg] && $is_multiple && $c in [dict get $parsedvalues $arg]} {
-                                                dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                            } else {
-                                                dict lappend formattedchoices $groupname $cdisplay
-                                            }
-                                        }
-                                    }
-                                }
-                            } else {
-                                if {[catch {
-                                    set trie [punk::trie::trieclass new {*}$allchoices_prefixcalc]
-                                    set idents [dict get [$trie shortest_idents ""] scanned]
-                                    if {[dict get $arginfo -nocase]} {
-                                        #idents were calculated on lcase - remap keys in idents to original casing
-                                        set actual_idents $idents
-                                        foreach ch $allchoices_originalcase {
-                                            if {![dict exists $idents $ch]} {
-                                                #don't need to adjust the capitalisation in the value to match the key -as only length is used for highlighting
-                                                #The actual testing is done in get_dict
-                                                dict set actual_idents $ch [dict get $idents [string tolower $ch]]
-                                            }
-                                        }
-                                        set idents $actual_idents
-                                        #puts "-----"
-                                        #puts "idents $idents"
-                                    }
-
-                                    $trie destroy
-                                    dict for {groupname clist} $choicegroups {
-                                        foreach c $clist {
-                                            if {$c in $choiceprefixdenylist} {
-                                                set shortestid $c
-                                            } else {
-                                                set shortestid [dict get $idents $c]
-                                            }
-                                            lassign [punk::lib::string_splitbefore $c [string length $shortestid]] prefix tail
-                                            #if {$shortestid eq $c} {
-                                            #    set prefix $c
-                                            #    set tail ""
-                                            #} else {
-                                            #    set idlen   [string length $shortestid]
-                                            #    set prefix  [string range $c 0 $idlen-1]
-                                            #    set tail    [string range $c $idlen end]
-                                            #}
-                                            set markers [punk::args::lib::choiceinfo_marks $c $choiceinfodict]
-                                            if {[llength $markers]} {
-                                                set mk " [join $markers {}]"
-                                            } else {
-                                                set mk ""
-                                            }
-                                            set cdisplay "$A_PREFIX[ansistring VIEW $prefix]$A_PREFIXEND[ansistring VIEW $tail]$mk"
-                                            if {[dict exists $choicelabeldict $c]} {
-                                                append cdisplay \n [dict get $choicelabeldict $c]
-                                            }
-                                            #puts "-- parsed:$parsedvalues arg:$arg c:$c"
-                                            if {[dict exists $parsedvalues $arg] && [dict get $parsedvalues $arg] eq $c} {
-                                                dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                            } elseif {[dict exists $parsedvalues $arg] && $is_multiple && $c in [dict get $parsedvalues $arg]} {
-                                                dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                            } else {
-                                                dict lappend formattedchoices $groupname $cdisplay
-                                            }
-                                        }
-                                    }
-                                } errM]} {
-                                    #this failure can happen if -nocase is true and there are ambiguous entries
-                                    #e.g -nocase 1 -choices {x X}
-                                    puts stderr "prefix marking failed\n$errM"
-                                    #append help "\n    " [join [dict get $arginfo -choices] "\n    "]
-                                    if {[dict size $choicelabeldict]} {
-                                        dict for {groupname clist} $choicegroups {
-                                            foreach c $clist {
-                                                set markers [punk::args::lib::choiceinfo_marks $c $choiceinfodict]
-                                                if {[llength $markers]} {
-                                                    set cdisplay "$c [join $markers {}]"
-                                                } else {
-                                                    set cdisplay $c
-                                                }
-                                                if {[dict exists $choicelabeldict $c]} {
-                                                    append cdisplay \n [dict get $choicelabeldict $c]
-                                                }
-
-                                                if {[dict exists $parsedvalues $arg] && [dict get $parsedvalues $arg] eq $c} {
-                                                    dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                                } else {
-                                                    dict lappend formattedchoices $groupname $cdisplay
-                                                }
-                                            }
-                                        }
-                                    } else {
-                                        #set formattedchoices $choicegroups
-                                        dict for {groupname clist} $choicegroups {
-                                            foreach c $clist {
-                                                set markers [punk::args::lib::choiceinfo_marks $c $choiceinfodict]
-                                                if {[llength $markers]} {
-                                                    set cdisplay "$c[join $markers {}]"
-                                                } else {
-                                                    set cdisplay $c
-                                                }
-                                                if {[dict exists $parsedvalues $arg] && [dict get $parsedvalues $arg] eq $c} {
-                                                    dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                                } elseif {[dict exists $parsedvalues $arg] && $is_multiple && $c in [dict get $parsedvalues $arg]} {
-                                                    dict lappend formattedchoices $groupname [punk::ansi::ansiwrap reverse $cdisplay]
-                                                } else {
-                                                    dict lappend formattedchoices $groupname $cdisplay
-                                                }
-                                            }
-                                        }
-                                    }
-
-                                }
-                            }
-                            set choicetable_objects [list]
-                            set choicetable_footers [dict create]
-                            dict for {groupname formatted} $formattedchoices {
-                                set numcols $choicecolumns ;#todo - dynamic?
-                                if {[llength $formatted] < $numcols} {
-                                    #don't show blank cells if single line of results
-                                    set numcols [llength $formatted]
-                                }
-                                if {$numcols > 0} {
-                                    if {$use_table} {
-                                        #risk of recursing
-                                        #TODO -title directly in list_as_table
-                                        set choicetableobj [textblock::list_as_table -return tableobject -show_hseps 1 -show_edge 1 -columns $numcols $formatted]
-                                        lappend choicetable_objects $choicetableobj
-                                        $choicetableobj configure -title $CLR(groupname)$groupname
-                                        #append help \n[textblock::join -- "    " [$choicetableobj print]]
-                                    } else {
-                                        if {$groupname ne ""} {
-                                            append help \n \n "$CLR(groupname)Group: $groupname$RST"
-                                        } else {
-                                            append help \n
-                                        }
-                                        append help \n [join $formatted \n]
-                                    }
-                                } else {
-                                    #we were given an empty set of choices.
-                                    #probably an error in the definition - but could happen if dynamically generated.
-                                    #(e.g ensemble where unknown mechanism is used for subcommands?)
-                                    #better to just display that there were none rather than totally break the usage output.
-                                    if {$usetable} {
-                                        #these will be displayed after all table entries
-                                        if {$groupname eq ""} {
-                                            dict set choicetable_footers ""             "    $CLR(errormsg)(no choices defined for main group)$RST"
-                                        } else {
-                                            dict set choicetable_footers $groupname     "    $CLR(errormsg)(no choices defined for group $groupname)$RST"
-                                        }
-                                    } else {
-                                        if {$groupname eq ""} {
-                                            append help \n "    " $CLR(errormsg)(no choices defined)$RST
-                                        } else {
-                                            append help \n "    " $CLR(errormsg)(no choices defined for group $groupname)$RST
-                                        }
-                                    }
-                                }
-                            }
-                            set twidths_by_colcount [dict create] ;#to set all subtables with same colcount to same width
-                            foreach obj $choicetable_objects {
-                                dict lappend twidths_by_colcount [$obj column_count] [$obj width]
-                            }
-                            foreach obj $choicetable_objects {
-                                set cols [$obj column_count]
-                                set widths [dict get $twidths_by_colcount $cols]
-                                set max [tcl::mathfunc::max {*}$widths]
-                                $obj configure -minwidth $max ;#expand smaller ones
-                                set i 0
-                                while {$i < $cols} {
-                                    #keep text aligned left on expanded tables
-                                    $obj configure_column $i -blockalign left
-                                    incr i
-                                }
-                                append help \n[textblock::join -- "    " [$obj print]]
-                                #-------------
-                                #todo - tests
-                                #see special case double reset at end of content in textblock class table get_column_by_index
-                                #bug fixed - needed to ensure last two resets were actually concurrent and at end.
-                                #append help "\nbase[a+ green]ab\nc[a]base" ;#ok
-                                #vs
-                                #append help "\nbase[a+ green]a[a]b\nc[a]base" ;#not ok
-                                #-------------
-
-                                #set ansititle [dict get [$obj configure -title] value]
-                                $obj destroy
-                            }
-                            if {[dict size $choicetable_footers]} {
-                                foreach groupname [dict keys $formattedchoices] {
-                                    if {[dict exists $choicetable_footers $groupname]} {
-                                        append help \n [dict get $choicetable_footers $groupname]
-                                    }
-                                }
-                            }
-
-                            #review. use -type to restrict additional choices - may be different to values in the -choices
-                            if {![dict get $arginfo -choicerestricted]} {
-                                #when -choicemultiple - the -type refers to each selection
-                                if {[dict get $arginfo -type] eq "string"} {
-                                    append help "\n  (values not in defined choices are allowed)"
-                                } else {
-                                    append help "\n  (values not in defined choices are allowed but must by of type: [dict get $arginfo -type])"
-                                }
-                            }
-                        }
-                        if {[Dict_getdef $arginfo -optional 0] == 1 || [dict exists $arginfo -default]} {
-                            if {$is_multiple} {
-                                set argshow "?${argshow}...?"
-                            } else {
-                                set argshow "?${argshow}?"
-                            }
-                        } else {
-                            if {$is_multiple} {
-                                set argshow "${argshow}..."
-                            }
-                        }
-                        set typeshow [dict get $arginfo -type]
-                        if {$typeshow eq "none"} {
-                            set typeshow "$typeshow $soloflag"
-                        }
-                        if {[dict exists $arginfo -minsize]} {
-                            append typeshow \n "-minsize [dict get $arginfo -minsize]"
-                        }
-                        if {[dict exists $arginfo -maxsize]} {
-                            append typeshow \n "-maxsize [dict get $arginfo -maxsize]"
-                        }
-                        if {[dict exists $arginfo -typeranges]} {
-                            set ranges [dict get $arginfo -typeranges]
-                            if {[llength $ranges] == 1} {
-                                append typeshow \n "-range [lindex [dict get $arginfo -typeranges] 0]"
-                            } else {
-                                append typeshow \n "-ranges"
-                                foreach r $ranges {
-                                    append typeshow " {$r}"
-                                }
-                            }
-                        }
-
-                        if {$use_table} {
-                            if {$hint ne ""} {
-                                set col1 $argshow\n$hint
-                            } else {
-                                set col1 $argshow
-                            }
-                            $t add_row [list $col1 $typeshow $default $multiple $help]
-                            if {$arg eq $badarg} {
-                                $t configure_row [expr {[$t row_count]-1}] -ansibase $A_BADARG
-                            } elseif {$arg in $goodargs} {
-                                $t configure_row [expr {[$t row_count]-1}] -ansibase $A_GOODARG
-                            }
-                        } else {
-                            #review - formatting will be all over the shop due to newlines in typesshow, help
-                            set linetail " TYPE:$typeshow DEFAULT:$default MULTI:$multiple"
-                            if {$hint ne ""} {
-                                set arghelp [textblock::join -- "[a+ bold]$argshow\n$hint$RST" $linetail]
-                            } else {
-                                set arghelp "[a+ bold]$argshow$RST $linetail"
-                            }
-                            append arghelp \n
-                            if {$arg eq $badarg} {
-                               set arghelp [punk::ansi::ansiwrap -rawansi $A_BADARG $arghelp]
-                            } elseif {$arg in $goodargs} {
-                               set arghelp [punk::ansi::ansiwrap -rawansi $A_GOODARG $arghelp]
-                            }
-                            foreach ln [split $help \n] {
-                                append arghelp "    $ln" \n
-                            }
-                            lappend errlines $arghelp
-                        }
-                    }
-
-                    # -------------------------------------------------------------------------------------------------------
-                    # if the argument class can accept unnamed arguments (or if opts accepts unspecified flags) - display an indication
-                    # -------------------------------------------------------------------------------------------------------
-                    switch -- $argumentclass {
-                        leaders - values {
-                            if {$argumentclass eq "leaders"} {
-                                set class_unnamed LEADER_UNNAMED
-                                set class_max LEADER_MAX
-                                set class_required LEADER_REQUIRED
-                                set class_directive_defaults LEADERSPEC_DEFAULTS
-                            } else {
-                                set class_unnamed VAL_UNNAMED
-                                set class_max VAL_MAX
-                                set class_required VAL_REQUIRED
-                                set class_directive_defaults VALSPEC_DEFAULTS
-                            }
-                            if {[dict get $form_dict $class_unnamed]} {
-                                set valmax [dict get $form_dict $class_max]
-                                #set valmin [dict get $form_dict VAL_MIN]
-                                if {$valmax eq ""} {
-                                    set valmax -1
-                                }
-                                if {$valmax == -1} {
-                                    set possible_unnamed -1
-                                } else {
-                                    set possible_unnamed [expr {$valmax - [llength [dict get $form_dict $class_required]]}]
-                                    if {$possible_unnamed < 0} {
-                                        set possible_unnamed 0
-                                    }
-                                }
-                                if {$possible_unnamed == -1 || $possible_unnamed > 0} {
-                                    #Note 'multiple' is always empty here as each unnamed is assigned to its own positional index
-                                    if {$possible_unnamed == 1} {
-                                        set argshow ?<unnamed>?
-                                    } else {
-                                        set argshow ?<unnamed>...?
-                                    }
-                                    set tp [dict get $form_dict $class_directive_defaults -type]
-                                    if {[dict exists $form_dict $class_directive_defaults -default]} {
-                                        set default [dict get $form_dict $class_directive_defaults -default]
-                                    } else {
-                                        set default ""
-                                    }
-                                    if {$use_table} {
-                                        $t add_row [list "$argshow" $tp $default "" ""]
-                                    } else {
-                                        set arghelp "[a+ bold]$argshow$RST TYPE:$tp DEFAULT:$default\n"
-                                        lappend errlines $arghelp
-                                    }
-                                }
-                            }
-                        }
-                        opts {
-                            #display row to indicate if -any|-arbitrary true
-
-                            #review OPTSPEC_DEFAULTS -multiple ?
-                            if {[dict get $form_dict OPT_ANY]} {
-                                set argshow "?<arbitrary-flag>...?"
-                                set tp [dict get $form_dict OPTSPEC_DEFAULTS -type]
-                                if {[dict exists $form_dict OPTSPEC_DEFAULTS -default]} {
-                                    set default [dict get $form_dict OPTSPEC_DEFAULTS -default]
-                                } else {
-                                    set default ""
-                                }
-                                if {$use_table} {
-                                    $t add_row [list "$argshow" $tp $default "" ""]
-                                } else {
-                                    set arghelp "[a+ bold]$argshow$RST TYPE:$tp DEFAULT:$default\n"
-                                    lappend errlines $arghelp
-                                }
-                            }
-                        }
-                    }
-
-                } ;#end foreach argumentclass
-            } ;#end is_custom_argdisplay
-
-            if {$use_table} {
-                $t configure    -show_hseps 0\
-                                -show_header 1\
-                                -ansibase_body      $CLR(ansibase_body)\
-                                -ansibase_header    $CLR(ansibase_header)\
-                                -ansiborder_header  $CLR(ansiborder)\
-                                -ansiborder_body    $CLR(ansiborder)
-
-                $t configure -maxwidth 80 ;#review
-                if {$returntype ne "tableobject"} {
-                    append errmsg [$t print]
-                    #returntype of table means just the text of the table
-                    $t destroy
-                }
-            } else {
-                append errmsg [join $errlines \n]
-            }
-        } errM]} {
-            append errmsg \n
-            append errmsg "(additional error in punk::args::arg_error when attempting to display usage)" \n
-            append errmsg "$errM" \n
-            append errmsg "$::errorInfo"
-            catch {$t destroy}
-
-        }
-        set arg_error_isrunning 0
-        if {$use_table} {
-            #assert returntype is one of table, tableobject
-            set result $errmsg ;#default if for some reason table couldn't be used
-            if {$returntype eq "tableobject"} {
-                if {[info object isa object $t]} {
-                    set result $t
-                }
-            } else {
-                #put original error at bottom of table too
-                append result \n $msg
-            }
-        } else {
-            set result $errmsg
-            append result \n $msg
-        }
-        if {$as_error} {
-            #add PUNK to the tail end of the more usual -errorcode {TCL WRONGARGS} so we maintain reasonable compat with things looking for TCL WRONGARGS - but also differentiate it.
-            #Also, we're polite enough in the errorInfo, nothing wrong with a Clint Eastwood style errorCode  ;)
-            uplevel 1 [list return -code error -errorcode {TCL WRONGARGS PUNK} $result]
-        } else {
-            return $result
-        }
-    }
-
-
-    lappend PUNKARGS [list {
-        @dynamic
-        @id  -id ::punk::args::usage
-        @cmd -name punk::args::usage -help\
-            "Return usage information for a command identified by an id.
-
-            This will only work for commands where a punk::args definition exists
-            for the command and an id has been defined for it. The id for custom
-            help for a command should match the fully qualified name of the command.
-
-            Many commands (such as ensembles and oo objects) may have argument
-            documentation generated dynamically and may not yet have an id.
-            IDs for autogenenerated help are prefixed e.g (autodef)::myensemble.
-
-            Generally punk::ns::arginfo (aliased as i in the punk shell) should
-            be used in preference - as it will search for a documentation
-            mechanism and call punk::args::usage as necessary.
-            "
-        -return -default table -choices {string table tableobject}
-    }\
-    {${[punk::args::resolved_def -types opts -override {-scheme {-default info}} ::punk::args::arg_error -scheme]}}\
-    {${[punk::args::resolved_def -types opts ::punk::args::resolved_def -form]}}\
-    {
-
-        @values -min 0 -max 1
-        id  -help\
-            "Exact id.
-              Will usually match the command name"
-    }]
-    proc usage {args} {
-        #lassign [dict values [punk::args::get_by_id ::punk::args::usage $args]] leaders opts values received
-        lassign [dict values [punk::args::parse $args withid ::punk::args::usage]] leaders opts values received
-        set id [dict get $values id]
-        set real_id [real_id $id]
-        if {$real_id eq ""} {
-            error "punk::args::usage - no such id: $id"
-        }
-        #-scheme punk_info ??
-        arg_error "" [punk::args::get_spec $real_id] {*}$opts -aserror 0
-    }
-
-    lappend PUNKARGS [list {
-        @id  -id ::punk::args::get_by_id
-        @cmd -name punk::args::get_by_id
-        @values -min 1
-        id
-        arglist -type list -help\
-            "list containing arguments to be parsed as per the
-              argument specification identified by the supplied id."
-    }]
-
-
-    #deprecate?
-    proc get_by_id {id arglist} {
-        set definitionlist [punk::args::raw_def $id]
-        if {[llength $definitionlist] == 0} {
-            error "punk::args::get_by_id - no such id: $id"
-        }
-        #uplevel 1 [list ::punk::args::get_dict {*}$definitionlist $arglist]
-        tailcall ::punk::args::get_dict $definitionlist $arglist
-    }
-
-    #consider
-
-    #require eopts indicator -- ? (because first or only arg in arglist could be flaglike and match our own)
-    #parse ?-flag val?... -- $arglist withid $id
-    #parse ?-flag val?... -- $arglist withdef $def ?$def?...
-
-    #an experiment.. ideally we'd like arglist at the end?
-    #parse_withid   ?-flag val?.. $id $arglist
-    #parse_withdef  ?-flag val?.. -- $def ?$def?... $arglist  ;#error prone syntax?
-    #no possible equivalent for parse_withdef ???
-
-    lappend PUNKARGS [list {
-        @id  -id ::punk::args::parse
-        @cmd -name punk::args::parse -help\
-            "parse and validate command arguments based on a definition.
-
-            In the 'withid' form the definition is a pre-existing record that has been
-            created with ::punk::args::define, or indirectly by adding a definition to
-            the PUNKARGS variable in a namespace which is then registered in
-            punk::args::register::NAMESPACES, or by a previous call to punk::parse
-            using 'withdef' and a definition block containing an @id -id <id> directive.
-
-            In the 'withdef' form - the definition is created on the first call and
-            cached thereafter, if the id didn't already exist.
-
-            form1: parse $arglist ?-flag val?... withid    $id
-            form2: parse $arglist ?-flag val?... withdef   $def ?$def?
-            see punk::args::define
-
-            Returns a dict of information regarding the parsed arguments
-            example of basic usage for single option only:
-                punk::args::define {
-                    @id     -id ::myns::myfunc
-                    @cmd    -name myns::myfunc
-                    @leaders -min 0 -max 0
-                    @opts
-                    -configfile -type existingfile
-                    #type none makes it a solo flag
-                    -verbose    -type none
-                    @values -min 0 -max 0
-                }
-                proc myfunc {args} {
-                    set argd [punk::args::parse $args withid ::myns::myfunc]
-                    lassign [dict values $argd] leaders opts values received solos
-                    if {[dict exists $received] -configfile} {
-                        puts \"have option for existing file [dict get $opts -configfile]\"
-                    }
-                }
-            The leaders, opts, values keys in the parse result dict are proper dicts.
-            The received key is dict-like but can have repeated keys for arguments than can
-            accept multiples. The value for each received element is the ordinal position.
-            The solos key refers to a list of solo flags received (those specified with
-            -type none). This is generally only useful to assist in passing arguments on
-            to another procedure which also requires solos, because the opts dict contains
-            solo flags with a 1 value or a list of 1's if it was a solo with -multiple true
-            specified.
-            "
-        @form -form {withid withdef}
-        @leaders -min 1 -max 1
-        arglist -type list -optional 0 -help\
-            "Arguments to parse - supplied as a single list"
-
-        @opts
-        -form   -type list -default * -help\
-            "Restrict parsing to the set of forms listed.
-              Forms are the orthogonal sets of arguments a
-              command can take - usually described in 'synopsis'
-              entries."
-            #default to enhanced errorstyle despite slow 'catch' (unhappy path) performance
-            #todo - configurable per interp/namespace
-        -errorstyle  -type string -default enhanced  -choices {enhanced standard basic minimal}
-
-        @values -min 2
-
-        @form -form withid -synopsis "parse arglist ?-form {int|<formname>...}? ?-errorstyle <choice>? withid $id"
-        @values -max 2
-        withid -type literal -help\
-            "The literal value 'withid'"
-        id  -type string -help\
-            "id of punk::args definition for a command"
-
-
-        @form -form withdef -synopsis "parse arglist ?-form {int|<formname>...}? ?-errorstyle <choice>? withdef $def ?$def?"
-        withdef -type literal -help\
-            "The literal value 'withdef'"
-
-        #todo - make -dynamic <boo> obsolete - use @dynamic directive instead
-        def -type string -multiple 1 -optional 0 -help\
-            "Each remaining argument is a block of text
-              defining argument definitions.
-              As a special case, -dynamic <bool> may be
-              specified as the 1st 2 arguments. These are
-              treated as an indicator to punk::args about
-              how to process the definition."
-
-    }]
-    proc parse {args} {
-        #puts "punk::args::parse --> '$args'"
-        set tailtype "" ;#withid|withdef
-        if {[llength $args] < 3} {
-            #error "punk::args::parse - invalid call. < 3 args"
-            punk::args::parse $args withid ::punk::args::parse
-        }
-        set opts_and_vals $args
-        set parseargs [lpop opts_and_vals 0]
-
-        set opts [list]
-        set values [list]
-        for {set i 0} {$i < [llength $opts_and_vals]} {incr i} {
-            if {[string match -* [lindex $opts_and_vals $i]]} {
-                if {[catch {
-                    lappend opts [lpop opts_and_vals 0] [lpop opts_and_vals 0]
-                }]} {
-                    #unhappy path - not enough options
-                    #review - which form of punk::args::parse?
-                    #we expect this to always raise error - review
-                    set result [punk::args::parse $args withid ::punk::args::parse]
-                    puts stderr "punk::args::parse unexpected result $result"
-                    return ;#failsafe
-                }
-                incr i -1
-                #lappend opts $a [lindex $opts_and_vals $i]
-            } else {
-                break
-            }
-        }
-        #set values [lrange $opts_and_vals $i end]
-        set values $opts_and_vals
-        #puts "---values: $values"
-        set tailtype [lindex $values 0]
-        set tailargs [lrange $values 1 end]
-
-
-        #set split [lsearch -exact $tailargs withid]
-        #if {$split < 0} {
-        #    set split [lsearch -exact $tailargs withdef]
-        #    if {$split < 0} {
-        #        #punk::args::usage arg_error?
-        #        #error "punk::args::parse - invalid call. keyword withid|withdef required"
-        #        punk::args::parse $args withid ::punk::args::parse
-        #    } else {
-        #        set tailtype withdef
-        #}
-        #} else {
-        #    set tailtype withid
-        #}
-        #set opts        [lrange $tailargs 0 $split-1] ;#repeated flags will override earlier. That's ok here.
-
-
-        #if {[llength $opts] % 2} {
-            #error "punk::args::parse  Even number of -flag val pairs required after arglist"
-        #}
-
-        #Default the -errorstyle to standard
-        # (slow on unhappy path - but probably clearest for playing with new APIs interactively)
-        # - application devs should distribute a config file with an errorstyle override if desired.
-        # - devs who prefer a different default for interactive use should create a config for it. (todo)
-        set defaultopts [dict create\
-            -form {*}\
-            -errorstyle standard\
-        ]
-
-        #todo - load override_errorstyle from configuration
-        #dict set defaultopts -errorstyle $
-        #puts "def: $defaultopts opts: $opts"
-        set opts [dict merge $defaultopts $opts]
-        dict for {k v} $opts {
-            switch -- $k {
-                -form - -errorstyle {
-                }
-                default {
-                    #punk::args::usage $args withid ::punk::args::parse ??
-                    #error "punk::args::parse unrecognised option $k. Known options [dict keys $defaultopts]"
-                    punk::args::parse $args withid ::punk::args::parse
-                }
-            }
-        }
-        switch -- $tailtype {
-            withid {
-                if {[llength $tailargs] != 1} {
-                    #error "punk::args::parse - invalid call. Expected exactly one argument after 'withid'"
-                    punk::args::parse $args withid ::punk::args::parse
-                }
-                set id [lindex $tailargs 0]
-                #puts stdout "punk::args::parse [llength $parseargs] args withid $id, options: $opts"
-                #puts stdout "punk::args::parse '$parseargs' withid $id, options: $opts"
-                set deflist [raw_def $id]
-                if {[llength $deflist] == 0} {
-                    error "punk::args::parse - no such id: $id"
-                }
-            }
-            withdef {
-                set deflist $tailargs
-                if {[llength $deflist] < 1} {
-                    error "punk::args::parse - invalid call. Expected at least one argument after 'withdef'"
-                }
-                #puts stdout "punk::args::parse [llength $parseargs] args with [llength $deflist] definition blocks, options: $opts"
-                #puts stdout "punk::args::parse '$parseargs' with [llength $deflist] definition blocks, options: $opts"
-            }
-            default {
-               error "punk::args::parse - invalid call. Argument following arglist was '$tailtype'. Must be 'withid' or 'withdef'"
-            }
-        }
-        try {
-            #puts stdout "parse --> get_dict <deflist> $parseargs -form [dict get $opts -form]"
-            set result [punk::args::get_dict $deflist $parseargs -form [dict get $opts -form]]
-        } trap {PUNKARGS VALIDATION} {msg erroropts} {
-            set opt_errorstyle [dict get $opts -errorstyle]
-
-            #samples from get_dict (review: -argspecs <dict> can be *large* especially for multi-form argument definitions)
-            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list choicecount [llength $c_list] minchoices $choicemultiple_min maxchoices $choicemultiple_max] -badarg $argname -argspecs $argspecs]] $msg
-            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-
-
-            set ecode [dict get $erroropts -errorcode]
-            #punk ecode is of form PUNKARGS VALIDATION {description..} -key val ...
-            set msg [string map [list %caller% [Get_caller]] $msg]
-            switch -- $opt_errorstyle {
-                minimal {
-                    return -options [list -code error -errorcode $ecode] $msg
-                }
-                basic {
-                    #No table layout - unix manpage style
-                    set customdict [lrange $ecode 3 end]
-                    set argspecs [Dict_getdef $customdict -argspecs ""]
-                    set badarg   [Dict_getdef $customdict -badarg ""]
-                    if {$argspecs ne ""} {
-                        set msg [arg_error $msg $argspecs -aserror 0 -return string -badarg $badarg -form [dict get $opts -form]]
-                    }
-                    return -options [list -code error -errorcode $ecode] $msg
-                }
-                standard {
-                    set customdict [lrange $ecode 3 end]
-                    set argspecs [Dict_getdef $customdict -argspecs ""]
-                    set badarg   [Dict_getdef $customdict -badarg ""]
-                    if {$argspecs ne ""} {
-                        set msg [arg_error $msg $argspecs -aserror 0 -badarg $badarg -form [dict get $opts -form]]
-                    }
-                    return -options [list -code error -errorcode $ecode] $msg
-                }
-                enhanced {
-                    set estack [info errorstack] ;#save it before we do anything to replace it (like the catch below)
-                    set customdict [lrange $ecode 3 end]
-                    set argspecs [Dict_getdef $customdict -argspecs ""]
-                    set badarg   [Dict_getdef $customdict -badarg ""]
-                    set ecode_summary [lrange $ecode 0 2]
-                    if {$badarg ne ""} {
-                        lappend ecode_summary -badarg $badarg
-                    }
-                    catch {package require punk::lib}
-                    if {[package provide punk::lib] ne ""} {
-                        append msg \n [punk::lib::showdict -roottype list $estack */*]
-                    }
-                    if {$argspecs ne ""} {
-                        set msg [arg_error $msg $argspecs -aserror 0 -badarg $badarg -form [dict get $opts -form]]
-                        append msg \n "::errorCode summary: $ecode_summary"
-                        return -options [list -code error -errorcode $ecode] $msg
-                    } else {
-                        #why? todo?
-                        append msg \n "(enhanced error information unavailable)"
-                        append msg \n "::errorCode summary: $ecode_summary"
-                        return -options [list -code error -errorcode $ecode] $msg
-                    }
-                }
-                debug {
-                    puts stderr "errorstyle debug not implemented"
-                    return -options [list -code error -errorcode $ecode] $msg
-                }
-                default {
-                    puts stderr "errorstyle $opt_errorstyle not recognised: expected one of minimal basic standard enhanced debug"
-                    return -options [list -code error -errorcode $ecode] $msg
-                }
-            }
-        } trap {PUNKARGS} {msg erropts} {
-            append msg \n "Unexpected PUNKARGS error"
-            return -options [list -code error -errorcode $ecode] $msg
-        } trap {} {msg erroropts} {
-            #review
-            #quote from DKF: The reason for using return -code error vs error or throw depends on where the error is. If the problem is in your code, use error or throw.
-            #If the problem is in your caller (e.g., because they gave you bad arguments) then use return -code error. Simple.
-            throw [dict get $erroropts -errorcode] [dict get $erroropts -errorinfo]
-        }
-        return $result
-    }
-    proc parseXXX {args} {
-        #no solo flags allowed for parse function itself. (ok for arglist being parsed)
-        set opts [dict create] ;#repeated flags will override earlier. That's ok here.
-        set arglist {}
-        set got_arglist 0
-        set tailtype "" ;#withid|withdef
-        set id ""
-        for {set i 0} {$i < [llength $args]} {incr i} {
-            set a [lindex $args $i]
-            if {[string match -* $a]} {
-                dict set opts $a [lindex $args $i+1]
-                incr i
-            } else {
-                set arglist $a
-                set got_arglist 1
-                set tailtype [lindex $args $i+1]
-                if {$tailtype eq "withid"} {
-                    if {[llength $args] != $i+3} {
-                        error "punk::args::parse - invalid call. Expected exactly one argument after 'withid'"
-                    }
-                    set id [lindex $args $i+2]
-                    break
-                } elseif {$tailtype eq "withdef"} {
-                    if {[llength $args] < $i+3} {
-                        error "punk::args::parse - invalid call. Expected at least one argument after 'withdef'"
-                    }
-                    set deflist [lrange $args $i+2 end]
-                    break
-                } else {
-                    error "punk::args::parse - invalid call. Argument following arglist must be 'withid' or 'withdef'"
-                }
-            }
-        }
-        if {!$got_arglist} {
-            error "punk::args::parse - invalid call. Argument list not found: usage parse ?-flag val?... arglist withid|withdef ..."
-        }
-        #assert tailtype eq withid|withdef
-        if {$tailtype eq "withid"} {
-            #assert $id was provided
-            return "parse [llength $arglist] args withid $id, options:$opts"
-        } else {
-            #assert llength deflist >=1
-            return "parse [llength $arglist] with [llength $deflist] definition blocks, options:$opts"
-        }
-        #TODO
-    }
-
-
-    #return number of values we can assign to cater for variable length clauses such as {"elseif" expr "?then?" body}
-    #review - efficiency? each time we call this - we are looking ahead at the same info
-    proc _get_dict_can_assign_value {idx values nameidx names namesreceived formdict} {
-        set ARG_INFO [dict get $formdict ARG_INFO]
-        set all_remaining [lrange $values $idx end]
-        set thisname [lindex $names $nameidx]
-        set thistype [dict get $ARG_INFO $thisname -type]
-        set tailnames [lrange $names $nameidx+1 end]
-
-        #todo - work backwards with any (optional or not) literals at tail that match our values - and remove from assignability.
-        set ridx 0
-        foreach clausename [lreverse $tailnames] {
-            #puts "=============== clausename:$clausename all_remaining: $all_remaining"
-            set typelist [dict get $ARG_INFO $clausename -type]
-            if {[lsearch $typelist literal*] == -1} {
-                break
-            }
-            set max_clause_length [llength $typelist]
-            if {$max_clause_length == 1} {
-                #basic case
-                set alloc_ok 0
-                #set v [lindex $values end-$ridx]
-                set v [lindex $all_remaining end]
-                set tp [lindex $typelist 0]
-                # -----------------
-                set tp [string trim $tp ?] ;#shouldn't be necessary
-                #review - ignore ?literal? and ?literal(xxx)? when clause-length == 1? (should raise error during definition instead?
-                #we shouldn't have an optional clause member if there is only one member - the whole argument should be marked -optional true instead.
-                # -----------------
-
-                #todo - support complex type members such as -type {{literal a|b}  int OR}
-                #for now - require llength 1 - simple type such as -type {literal(ab)|int}
-                if {[llength $tp] !=1} {
-                    error "_get_dict_can_assign_value: complex -type not yet supported (tp:'$tp')"
-                }
-
-                #foreach tp_alternative [split $tp |] {}
-                foreach tp_alternative [_split_type_expression $tp] {
-                    switch -exact -- [lindex $tp_alternative 0] {
-                        literal {
-                            set litinfo [string range $tp 7 end] ;#get bracketed part if of form literal(xxx)
-                            set match [lindex $tp_alternative 1]
-                            if {$v eq $match} {
-                                set alloc_ok 1
-                                ledit all_remaining end end
-                                if {![dict get $ARG_INFO $clausename -multiple]} {
-                                    ledit tailnames end end
-                                }
-                                #the type (or one of the possible type alternates) matched a literal
-                                break
-                            }
-                        }
-                        stringstartswith {
-                            set pfx [lindex $tp_alternative 1]
-                            if {[string match "$pfx*" $v} {
-                                set alloc_ok 1
-                                set alloc_ok 1
-                                ledit all_remaining end end
-                                if {![dict get $ARG_INFO $clausename -multiple]} {
-                                    ledit tailnames end end
-                                }
-                                break
-                            }
-
-                        }
-                        stringendswith {
-                            set sfx [lindex $tp_alternative 1]
-                            if {[string match "*$sfx" $v} {
-                                set alloc_ok 1
-                                set alloc_ok 1
-                                ledit all_remaining end end
-                                if {![dict get $ARG_INFO $clausename -multiple]} {
-                                    ledit tailnames end end
-                                }
-                                break
-                            }
-
-                        }
-                        default {}
-                    }
-                }
-                if {!$alloc_ok} {
-                    if {![dict get $ARG_INFO $clausename -optional]} {
-                        break
-                    }
-                }
-
-            } else {
-                #todo - use _split_type_expression
-
-
-                #review - we assume here that we don't have a set of clause-members where all are marked optional (?membertype?)
-                #This is better caught during definition.
-                #e.g rn = {elseif expr (?then?) body}  typelist = {literal expr ?literal? script}
-                #set cvals [lrange $values end-$ridx end-[expr {$ridx + $max_clause_length-1}]]
-                set cvals [lrange $values end-[expr {$ridx + $max_clause_length-1}] end-$ridx]
-                set rcvals [lreverse $cvals]
-                set alloc_count 0
-                #clause name may have more entries than types - extras at beginning are ignored
-                set rtypelist   [lreverse $typelist]
-                set alloc_ok 0
-                set reverse_type_index 0
-                #todo handle type-alternates
-                # for example: -type {string literal(x)|literal(y)}
-                foreach tp $rtypelist {
-                    #set rv [lindex $rcvals end-$alloc_count]
-                    set rv [lindex $all_remaining end-$alloc_count]
-                    if {[string match {\?*\?} $tp]} {
-                        set clause_member_optional 1
-                    } else {
-                        set clause_member_optional 0
-                    }
-                    set tp [string trim $tp ?]
-                    switch -glob $tp {
-                        literal* {
-                            set litinfo [string range $tp 7 end]
-                            set match [string range $litinfo 1 end-1]
-                            #todo  -literalprefix
-                            if {$rv eq $match} {
-                                set alloc_ok 1 ;#we need at least one literal-match to set alloc_ok
-                                incr alloc_count
-                            } else {
-                                if {$clause_member_optional} {
-                                    #
-                                } else {
-                                    set alloc_ok 0
-                                    break
-                                }
-                            }
-                        }
-                        "stringstartswith(*" {
-                            set pfx [string range $tp 17 end-1]
-                            if {[string match "$pfx*" $tp]} {
-                                set alloc_ok 1
-                                incr alloc_count
-                            } else {
-                                if {!$clause_member_optional} {
-                                    set alloc_ok 0
-                                    break
-                                }
-                            }
-                        }
-                        default {
-                            if {$clause_member_optional} {
-                                #review - optional non-literal makes things harder..
-                                #we don't want to do full type checking here - but we now risk allocating an item that should actually
-                                #be allocated to the previous value
-                                # todo - lsearch to next literal or non-optional?
-                                set prev_type [lindex $rtypelist $reverse_type_index+1]
-                                if {[string match literal* $prev_type]} {
-                                    set litinfo [string range $prev_type 7 end]
-                                    #todo -literalprefix
-                                    if {[string match (*) $litinfo]} {
-                                        set match [string range $litinfo 1 end-1]
-                                    } else {
-                                        set match [lindex $rclausename $reverse_type_index+1]
-                                    }
-                                    if {$rv ne $match} {
-                                        #current val doesn't match previous type - allocate here
-                                        incr alloc_count
-                                    }
-                                } else {
-                                    #no literal to anchor against..
-                                    incr alloc_count
-                                }
-                            } else {
-                                #allocate regardless of type - we're only matching on arity and literal positioning here.
-                                #leave final type-checking for later.
-                                incr alloc_count
-                            }
-                        }
-                    }
-                    incr reverse_type_index
-                }
-                if {$alloc_ok && $alloc_count > 0} {
-                    #set n [expr {$alloc_count -1}]
-                    #set all_remaining [lrange $all_remaining end-$n end]
-                    set all_remaining [lrange $all_remaining 0 end-$alloc_count]
-                    #don't lpop if -multiple true
-                    if {![dict get $ARG_INFO $clausename -multiple]} {
-                        #lpop tailnames
-                        ledit tailnames end end
-                    }
-                } else {
-                    break
-                }
-            }
-            incr ridx
-        }
-        set num_remaining [llength $all_remaining]
-
-        if {[dict get $ARG_INFO $thisname -optional] || ([dict get $ARG_INFO $thisname -multiple] && $thisname in $namesreceived)} {
-            #todo - check -multiple for required min/max (not implemented: make -multiple accept <int|range> ?)
-            #thisname already satisfied, or not required
-            set tail_needs 0
-            foreach t $tailnames {
-                if {![dict get $ARG_INFO $t -optional]} {
-                    set min_clause_length [llength [lsearch -all -not [dict get $ARG_INFO $t -type] {\?*\?}]]
-                    incr tail_needs $min_clause_length
-                }
-            }
-            set all_remaining [lrange $all_remaining 0 end-$tail_needs]
-        }
-
-        #thistype
-        set alloc_ok 1 ;#default assumption only
-        set alloc_count 0
-        set resultlist [list]
-        set n [expr {[llength $thistype]-1}]
-        set tpidx 0
-        set newtypelist $thistype
-        set has_choices                 [expr {[tcl::dict::exists $ARG_INFO $thisname -choices] || [tcl::dict::exists $ARG_INFO $thisname -choicegroups]}]
-        foreach tp $thistype {
-            #usual case is a single tp (basic length-1 clause) - but tp may commonly have alternates eg int|literal(xxx)
-            set v [lindex $all_remaining $alloc_count]
-            if {[string match {\?*\?} $tp]} {
-                set clause_member_optional 1
-            } else {
-                set clause_member_optional 0
-            }
-            set tp [string trim $tp ?]
-
-            set member_satisfied 0
-            if {$has_choices} {
-                #each tp in the clause is just for validating a value outside the choice-list when -choicerestricted 0
-                set member_satisfied 1
-            }
-
-
-            if {!$member_satisfied} {
-                #-----------------------------------------------------------------------------------
-                #first build category lists of any literal,literalprefix,stringstartwith,other
-                #
-                set ctg_literals [list]
-                set ctg_literalprefixes [list]
-                set ctg_stringstartswith [list]
-                set ctg_stringendswith [list]
-                set ctg_other [list]
-                #foreach tp_alternative [split $tp |] {}
-                foreach tp_alternative [_split_type_expression $tp] {
-                    #JJJJ
-                    lassign $tp_alternative t textra
-                    switch -exact -- $t {
-                        literal {
-                            lappend ctg_literals $textra
-                        }
-                        literalprefix {
-                            lappend ctg_literalprefixes $textra
-                        }
-                        stringstartswith {
-                            lappend ctg_stringstartswith $textra
-                        }
-                        stringendswith {
-                            lappend ctg_stringendswith $textra
-                        }
-                        default {
-                            lappend ctg_other $tp_alternative
-                        }
-                    }
-                }
-                #-----------------------------------------------------------------------------------
-                if {[llength $ctg_other] > 0} {
-                    #presence of any ordinary type as one of the alternates - means we consider it a match if certain basic types align
-                    #we don't do full validation here -leave main validation for later (review)
-                    foreach tp_alternative $ctg_other {
-                        switch -exact -- $tp_alternative {
-                            int {
-                                if {[string is integer -strict $v]} {
-                                    set member_satisfied 1
-                                    break
-                                }
-                            }
-                            double {
-                                if {[string is double -strict $v]} {
-                                    set member_satisfied 1
-                                    break
-                                }
-                            }
-                            bool {
-                                if {[string is boolean -strict $v]} {
-                                    set member_satisfied 1
-                                    break
-                                }
-                            }
-                            number {
-                                if {[string is integer -strict $v] || [string is double -strict $v]} {
-                                    set member_satisfied 1
-                                    break
-                                }
-                            }
-                            dict {
-                                if {[punk::args::lib::string_is_dict $v]} {
-                                    set member_satisfied 1
-                                    break
-                                }
-                            }
-                            default {
-                                #REVIEW!!!
-                                #can get infinite loop in get_dict if not satisfied - unstoppable until memory exhausted.
-                                #todo - catch/detect in caller
-                                set member_satisfied 1
-                                break
-                            }
-                        }
-                    }
-                }
-            }
-
-            if {!$member_satisfied && ([llength $ctg_literals] || [llength $ctg_literalprefixes])} {
-                if {$v in $ctg_literals} {
-                    set member_satisfied 1
-                    lset newtypelist $tpidx validated-$tp
-                } else {
-                    #ctg_literals is included in the prefix-calc - but a shortened version of an entry in literals is not allowed
-                    #(exact match would have been caught in other branch of this if)
-                    #review - how does ctg_stringstartswith affect prefix calc for literals?
-                    set full_v [tcl::prefix::match -error "" [list {*}$ctg_literals {*}$ctg_literalprefixes] $v]
-                    if {$full_v ne "" && $full_v ni $ctg_literals} {
-                        #matched prefix must be for one of the entries in ctg_literalprefixes - valid
-                        set member_satisfied 1
-                        set v $full_v ;#map prefix given as arg to the full literalprefix value
-                        lset newtypelist $tpidx validated-$tp
-                    }
-                }
-            }
-            if {!$member_satisfied && [llength $ctg_stringstartswith]} {
-                foreach pfx $ctg_stringstartswith {
-                    if {[string match "$pfx*" $v]} {
-                        set member_satisfied 1
-                        lset newtypelist $tpidx validated-$tp
-                        #review. consider multi-word typespec with RPN?
-                        # {*}$tp_alternative validated
-                        break
-                    }
-                }
-            }
-            if {!$member_satisfied && [llength $ctg_stringendswith]} {
-                foreach pfx $ctg_stringendswith {
-                    if {[string match "*$pfx" $v]} {
-                        set member_satisfied 1
-                        lset newtypelist $tpidx validated-$tp
-                        break
-                    }
-                }
-            }
-
-
-
-            if {$member_satisfied} {
-                if {$clause_member_optional && $alloc_count >= [llength $all_remaining]} {
-                    if {[dict exists $ARG_INFO $thisname -typedefaults]} {
-                        set d [lindex [dict get $ARG_INFO $thisname -typedefaults] $tpidx]
-                        lappend resultlist $d
-                        lset newtypelist $tpidx ?defaulted-$tp?
-                    } else {
-                        lset newtypelist $tpidx ?omitted-$tp?
-                        lappend resultlist ""
-                    }
-                } else {
-                    #may have satisfied one of the basic type tests above
-                    lappend resultlist $v
-                    incr alloc_count
-                }
-            } else {
-                if {$clause_member_optional} {
-                    if {[dict exists $ARG_INFO $thisname -typedefaults]} {
-                        set d [lindex [dict get $ARG_INFO $thisname -typedefaults] $tpidx]
-                        lappend resultlist $d
-                        lset newtypelist $tpidx ?defaulted-$tp?
-                    } else {
-                        lappend resultlist ""
-                        lset newtypelist $tpidx ?omitted-$tp?
-                    }
-                } else {
-                    set alloc_ok 0
-                }
-            }
-
-            if {$alloc_count > [llength $all_remaining]} {
-                set alloc_ok 0
-                break
-            }
-            incr tpidx
-        }
-
-        #?omitted-*? and ?defaulted-*? in typelist are a way to know which elements in the clause were missing/defaulted
-        #so that they are not subject to type validation
-        #such elements shouldn't be subject to validation
-        if {$alloc_ok} {
-            #puts stderr ">>>_get_dict_can_assign_value idx:$idx v:[lindex $values $idx] consumed:$alloc_count thistype:$thistype"
-            set d [dict create consumed $alloc_count    resultlist $resultlist  typelist $newtypelist]
-        } else {
-            puts stderr ">>>_get_dict_can_assign_value NOT alloc_ok: idx:$idx v:[lindex $values $idx] consumed:$alloc_count thistype:$thistype"
-            set d [dict create consumed 0               resultlist {}           typelist $thistype]
-        }
-        #puts ">>>> _get_dict_can_assign_value $d"
-        return $d
-    }
-
-    #_split_type_expression
-    #only handles toplevel 'or' for type_expression e.g int|char
-    #we have no mechanism for & - (although it would be useful)
-    #more complex type_expressions would require a bracketing syntax - (and probably pre-parsing)
-    #or perhaps more performant, RPN to avoid bracket parsing
-    #if literal(..), literalprefix(..), stringstartswith(..) etc can have pipe symbols and brackets etc - we can't just use split
-    #if we require -type to always be treated as a list - and if an element is length 1 - require it to 
-    #have properly balanced brackets that don't contain | ( ) etc we can simplify - REVIEW
-
-    #consider:
-            #1 basic syntax - only OR supported - limits on what chars can be put in 'textn' elements.
-            #mode   -type literalprefix(text1)|literalprefix(text2) -optional 1
-            #2 expanded syntax - supports arbitrary chars in 'textn' elements - but still doesn't support more complex OR/AND logic
-            #mode -type {{literalprefix text1 | literalprefix text2}}
-            #3 RPN (reverse polish notation) - somewhat unintuitive, but allows arbitrary textn, and complex OR/AND logic without brackets.
-            #(forth like - stack based definition of types)
-            #mode -type {literalprefix text1 literalprefix text2 OR}
-            #mode -type {stringstartswith x stringstartswith y OR stringendswith z AND int OR}
-
-    proc _split_type_expression {type_expression} {
-        if {[llength $type_expression] == 1} {
-            #simple expressions of length one must be splittable on |
-            #disallowed: things such as literal(|)  or literal(x|etc)|int
-            #these would have to be expressed as {literal |} and {literal x|etc | int}
-            set or_type_parts [split $type_expression |]
-            set type_alternatives [list]
-            foreach t $or_type_parts {
-                if {[regexp {([^\(^\)]*)\((.*)\)$} $t _ name val]} {
-                    lappend type_alternatives [list $name $val]
-                } else {
-                    lappend type_alternatives $t
-                }
-            }
-            return $type_alternatives
-        } else {
-            error "_split_type_expression unimplemented: type_expression length > 1 '$type_expression'"
-            #todo
-            #RPN reverse polish notation
-            #e.g {stringstartswith x stringstartswith y OR stringendswith z AND int OR}
-            #equivalent logic: ((stringstartswith(x)|stringstartswith(y))&stringendswith(z))|int
-            #    {int ; stringstartswith x stringstartswith y OR }
-
-            #experimental.. seems like a pointless syntax.
-            #may as well just use list of lists with |(or) as the intrinsic operator instead of parsing this
-            #e.g {stringstartswith x | literal | | int}
-            set type_alternatives [list]
-            set expect_separator 0
-            for {set w 0} {$w < [llength $type_expression]} {incr w} {
-                set word [lindex $type_expression $w]
-                if {$expect_separator} {
-                    if {$word eq "|"} {
-                        #pipe could be last entry - not strictly correct, but can ignore
-                        set expect_separator 0
-                        continue
-                    } else {
-                        error "_split_type_expression expected separator but received '$word' in type_expression:'$type_expression'"
-                    }
-                }
-                switch -exact -- $word {
-                    literal - literalprefix - stringstartswith - stringendswith - stringcontains {
-                        if {$w+1 > [llength $type_expression]} {
-                            #premature end - no arg available for type which requires one
-                            error "_split_type_expression missing argument for type '$word' in type_expression:'$type_expression'"
-                        }
-                        lappend type_alternatives [list $word [lindex $type_expression $w+1]]
-                        incr w ;#consume arg
-                        set expect_separator 1
-                    }
-                    default {
-                        #simple types such as int,double,string
-                        lappend type_alternatives $word
-                        set expect_separator 1
-                    }
-                }
-            }
-            return $type_alternatives
-        }
-    }
-
-    #old version
-    ###proc _check_clausecolumn {argname argclass thisarg thisarg_checks clausecolumn type_expression clausevalues_raw clausevalues_check argspecs} {
-    ###    #set type $type_expression ;#todo - 'split' on |
-    ###    set vlist $clausevalues_raw
-    ###    set vlist_check $clausevalues_check
-
-    ###    set type_alternatives [_split_type_expression $type_expression]
-    ###    #each type_alternative is a list of varying length depending on arguments supported by first word.
-    ###    #TODO?
-    ###    #single element types: int double string etc
-    ###    #two element types literal literalprefix stringstartswith stringendswith
-    ###    #TODO
-    ###    set stype [lindex $type_alternatives 0]
-    ###    #e.g int
-    ###    #e.g {literal blah)etc}
-    ###    set type [lindex $stype 0]
-    ###    #switch on first word of each stype
-    ###    #
-
-    ###    #review - for leaders,values - do we need to check literal etc? already checked during split into prevalues postvalues ?
-    ###    switch -- $type {
-    ###        any {}
-    ###        literal {
-    ###            foreach clauseval $vlist {
-    ###                set e [lindex $clauseval $clausecolumn]
-    ###                set testval [lindex $stype 1]
-    ###                if {$e ne $testval} {
-    ###                    set msg "$argclass '$argname' for %caller% requires literal value '$testval'. Received: '$e'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###        }
-    ###        stringstartwith {
-    ###            foreach clauseval $vlist {
-    ###                set e [lindex $clauseval $clausecolumn]
-    ###                set testval [lindex $stype 1]
-    ###                if {![string match $testval* $e]} {
-    ###                    set msg "$argclass '$argname' for %caller% requires stringstartswith value  '$argname'. Received: '$e'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###        }
-    ###        list {
-    ###            foreach clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {![tcl::string::is list -strict $e_check]} {
-    ###                    set msg "$argclass '$argname' for %caller% requires type 'list'. Received: '$e_check'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e_check -argspecs $argspecs]] $msg
-    ###                }
-    ###                if {[tcl::dict::size $thisarg_checks]} {
-    ###                    tcl::dict::for {checkopt checkval} $thisarg_checks {
-    ###                        switch -- $checkopt {
-    ###                            -minsize {
-    ###                                # -1 for disable is as good as zero
-    ###                                if {[llength $e_check] < $checkval} {
-    ###                                    set msg "$argclass '$argname for %caller% requires list with -minsize $checkval. Received len:[llength $e_check]"
-    ###                                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type minsize $checkval] -badarg $e_check -badval $e_check -argspecs $argspecs]] $msg
-    ###                                }
-    ###                            }
-    ###                            -maxsize {
-    ###                                if {$checkval ne "-1"} {
-    ###                                    if {[llength $e_check] > $checkval} {
-    ###                                        set msg "$argclass '$argname for %caller% requires list with -maxsize $checkval. Received len:[llength $e_check]"
-    ###                                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type maxsize $checkval] -badarg $e_check -badval $e_check -argspecs $argspecs]] $msg
-    ###                                    }
-    ###                                }
-    ###                            }
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        indexexpression {
-    ###            foreach clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {[catch {lindex {} $e_check}]} {
-    ###                    set msg "$argclass $argname for %caller% requires type indexexpression. An index as used in Tcl list commands. Received: '$e_check'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###        }
-    ###        string - ansistring - globstring {
-    ###            #we may commonly want exceptions that ignore validation rules - most commonly probably the empty string
-    ###            #we possibly don't want to always have to regex on things that don't pass the other more basic checks
-    ###            # -regexprefail  -regexprepass (short-circuiting fail/pass run before all other validations)
-    ###            # -regexpostfail -regexpostpass (short-circuiting fail/pass run after other toplevel validations - but before the -validationtransform)
-    ###            # in the comon case there should be no need for a tentative -regexprecheck - just use a -regexpostpass instead
-    ###            # however - we may want to run -regexprecheck to restrict the values passed to the -validationtransform function
-    ###            # -regexpostcheck is equivalent to -regexpostpass at the toplevel if there is no -validationtransform (or if it is in the -validationtransform)
-    ###            # If there is a -validationtransform, then -regexpostcheck will either progress to run the -validationtransform if matched, else produce a fail
-
-    ###            #todo? - way to validate both unstripped and stripped?
-    ###            set pass_quick_list_e [list]
-    ###            set pass_quick_list_e_check [list]
-    ###            set remaining_e         $vlist
-    ###            set remaining_e_check   $vlist_check
-    ###            #review - order of -regexprepass and -regexprefail in original rawargs significant?
-    ###            #for now -regexprepass always takes precedence
-    ###            set regexprepass                [tcl::dict::get $thisarg -regexprepass]
-    ###            set regexprefail                [Dict_getdef $thisarg -regexprefail ""] ;#aliased to dict getdef in tcl9
-    ###            if {$regexprepass ne ""} {
-    ###                foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                    set e       [lindex $clauseval          $clausecolumn]
-    ###                    set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                    if {[regexp [lindex $regexprepass       $clausecolumn] $e]} {
-    ###                        lappend pass_quick_list_e $clauseval
-    ###                        lappend pass_quick_list_e_check $clauseval_check
-    ###                    }
-    ###                }
-    ###                set remaining_e         [punklib_ldiff $vlist        $pass_quick_list_e]
-    ###                set remaining_e_check   [punklib_ldiff $vlist_check  $pass_quick_list_e_check]
-    ###            }
-    ###            if {$regexprefail ne ""} {
-    ###                foreach clauseval $remaining_e clauseval_check $remaining_e_check {
-    ###                    set e       [lindex $clauseval          $clausecolumn]
-    ###                    set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                    #puts "----> checking $e vs regex $regexprefail"
-    ###                    if {[regexp $regexprefail $e]} {
-    ###                        if {[tcl::dict::exists $thisarg -regexprefailmsg]} {
-    ###                            #review - %caller% ??
-    ###                            set msg [tcl::dict::get $thisarg -regexprefailmsg]
-    ###                        } else {
-    ###                            set msg "$argclass $argname for %caller% didn't pass regexprefail regex: '$regexprefail' got '$e'"
-    ###                        }
-    ###                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list regexprefail $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                    }
-    ###                }
-    ###            }
-    ###            switch -- $type {
-    ###                ansistring {
-    ###                    #we need to respect -validate_ansistripped for -minsize etc, but the string must contain ansi
-    ###                    #.. so we need to look at the original values in $vlist not $vlist_check
-
-    ###                    #REVIEW - difference between string with mixed plaintext and ansi and one required to be ansicodes only??
-    ###                    #The ansicodes only case should be covered by -minsize 0 -maxsize 0 combined with -validate_ansistripped  ???
-    ###                    package require punk::ansi
-    ###                    foreach clauseval $remaining_e {
-    ###                        set e [lindex $clauseval $clausecolumn]
-    ###                        if {![punk::ansi::ta::detect $e]} {
-    ###                            set msg "$argclass '$argname' for %caller% requires ansistring - but no ansi detected"
-    ###                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                        }
-    ###                    }
-    ###                }
-    ###                globstring {
-    ###                    foreach clauseval $remaining_e {
-    ###                        set e [lindex $clauseval $clausecolumn]
-    ###                        if {![regexp {[*?\[\]]} $e]} {
-    ###                            set msg "$argclass '$argname' for %caller% requires globstring - but no glob characters detected"
-    ###                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-
-    ###            if {[tcl::dict::size $thisarg_checks]} {
-    ###                foreach clauseval $remaining_e_check {
-    ###                    set e_check [lindex $clauseval $clausecolumn]
-    ###                    if {[dict exists $thisarg_checks -minsize]} {
-    ###                        set minsize [dict get $thisarg_checks -minsize]
-    ###                        # -1 for disable is as good as zero
-    ###                        if {[tcl::string::length $e_check] < $minsize} {
-    ###                            set msg "$argclass '$argname' for %caller% requires string with -minsize $minsize. Received len:[tcl::string::length $e_check] value:'$e_check'"
-    ###                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                        }
-    ###                    }
-    ###                    if {[dict exists $thisarg_checks -maxsize]} {
-    ###                        set maxsize [dict get $thisarg_checks -maxsize]
-    ###                        if {$checkval ne "-1"} {
-    ###                            if {[tcl::string::length $e_check] > $maxsize} {
-    ###                                set msg "$argclass '$argname' for %caller% requires string with -maxsize $maxsize. Received len:[tcl::string::length $e_check] value:'$e_check'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        number {
-    ###            #review - consider effects of Nan and Inf
-    ###            #NaN can be considered as 'technically' a number (or at least a special numeric value)
-    ###            foreach clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {(![tcl::string::is integer -strict $e_check]) && (![tcl::string::is double -strict $e_check])} {
-    ###                    set msg "$argclass $argname for %caller% requires type integer. Received: '$e_check'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###            if {[tcl::dict::exists $thisarg -typeranges]} {
-    ###                set ranges [tcl::dict::get $thisarg -typeranges]
-    ###                foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                    set e       [lindex $clauseval          $clausecolumn]
-    ###                    set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                    set range   [lindex $ranges             $clausecolumn]
-    ###                    lassign {} low high ;#set both empty
-    ###                    lassign $range low high
-
-    ###                    if {"$low$high" ne ""} {
-    ###                        if {[::tcl::mathfunc::isnan $e]} {
-    ###                            set msg "$argclass '$argname' for %caller% must be an int or double within specified range {'$low' '$high'} NaN not comparable to any range. Received: '$e'"
-    ###                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                        }
-    ###                        if {$low eq ""} {
-    ###                            if {$e_check > $high} {
-    ###                                set msg "$argclass '$argname' for %caller% must be an int or double less than or equal to $high. Received: '$e'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        } elseif {$high eq ""} {
-    ###                            if {$e_check < $low} {
-    ###                                set msg "$argclass '$argname' for %caller% must be an int or double greater than or equal to $low. Received: '$e'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        } else {
-    ###                            if {$e_check < $low || $e_check > $high} {
-    ###                                set msg "$argclass '$argname' for %caller% must be an int or double between $low and $high inclusive. Received: '$e'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        int  {
-    ###            #elements in -typeranges can be expressed as two integers or an integer and an empty string e.g {0 ""} >= 0   or {"" 10} <=10  or {-1 10} -1 to 10 inclusive
-    ###            foreach clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {![tcl::string::is integer -strict $e_check]} {
-    ###                    set msg "$argclass $argname for %caller% requires type integer. Received: '$e_check'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###            if {[tcl::dict::exists $thisarg -typeranges]} {
-    ###                set ranges [tcl::dict::get $thisarg -typeranges]
-    ###                foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                    set e       [lindex $clauseval          $clausecolumn]
-    ###                    set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                    set range   [lindex $ranges             $clausecolumn]
-    ###                    lassign $range low high
-    ###                    if {"$low$high" ne ""} {
-    ###                        if {$low eq ""} {
-    ###                            #lowside unspecified - check only high
-    ###                            if {$e_check > $high} {
-    ###                                set msg "$argclass '$argname' for %caller% must be integer less than or equal to $high. Received: '$e'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        } elseif {$high eq ""} {
-    ###                            #highside unspecified - check only low
-    ###                            if {$e_check < $low} {
-    ###                                set msg "$argclass '$argname' for %caller% must be integer greater than or equal to $low. Received: '$e'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        } else {
-    ###                            #high and low specified
-    ###                            if {$e_check < $low || $e_check > $high} {
-    ###                                set msg "$argclass '$argname' for %caller% must be integer between $low and $high inclusive. Received: '$e'"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        double {
-    ###            foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {![tcl::string::is double -strict $e_check]} {
-    ###                    set e       [lindex $clauseval $clausecolumn]
-    ###                    set msg "$argclass $argname for %caller% requires type double. Received: '$e'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###            if {[tcl::dict::size $thisarg_checks]} {
-    ###                if {[dict exists $thisarg_checks -typeranges]} {
-    ###                    set ranges [dict get $thisarg_checks -typeranges]
-    ###                    foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                        set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                        set range   [lindex $ranges             $clausecolumn]
-    ###                        #todo - small-value double comparisons with error-margin? review
-    ###                        #todo - empty string for low or high
-    ###                        lassign $range low high
-    ###                        if {$e_check < $low || $e_check > $high} {
-    ###                            set e       [lindex $clauseval $clausecolumn]
-    ###                            set msg "$argclass $argname for %caller% must be double between $low and $high. Received: '$e'"
-    ###                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        bool {
-    ###            foreach clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {![tcl::string::is boolean -strict $e_check]} {
-    ###                    set msg "$argclass $argname for %caller% requires type boolean. Received: '$e_check'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###        }
-    ###        dict {
-    ###            foreach clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {[llength $e_check] %2 != 0} {
-    ###                    set msg "$argclass '$argname' for %caller% requires type 'dict' - must be key value pairs. Received: '$e_check'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e_check -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###            if {[tcl::dict::size $thisarg_checks]} {
-    ###                if {[dict exists $thisarg_checks -minsize]} {
-    ###                    set minsizes [dict get $thisarg_checks -minsize]
-    ###                    foreach clauseval_check $vlist_check {
-    ###                        set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                        set minsize [lindex $minsizes           $clausecolumn]
-    ###                        # -1 for disable is as good as zero
-    ###                        if {[tcl::dict::size $e_check] < $minsize} {
-    ###                            set msg "$argclass '$argname' for %caller% requires dict with -minsize $minsize. Received dict size:[dict size $e_check]"
-    ###                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type minsize $minsize] -badarg $argname -badval $e_check -argspecs $argspecs]] $msg
-    ###                        }
-    ###                    }
-    ###                }
-    ###                if {[dict exists $thisarg_checks -maxsize]} {
-    ###                    set maxsizes [dict get $thisarg_checks -maxsize]
-    ###                    foreach clauseval_check $vlist_check {
-    ###                        set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                        set maxsize [lindex $maxsizes           $clausecolumn]
-    ###                        if {$maxsize ne "-1"} {
-    ###                            if {[tcl::dict::size $e_check] > $maxsize} {
-    ###                                set msg "$argclass '$argname' for %caller% requires dict with -maxsize $maxsize. Received dict size:[dict size $e_check]"
-    ###                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type maxsize $maxsize] -badarg $argname -badval $e_check -argspecs $argspecs]] $msg
-    ###                            }
-    ###                        }
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        alnum -
-    ###        alpha -
-    ###        ascii -
-    ###        control -
-    ###        digit -
-    ###        graph -
-    ###        lower -
-    ###        print -
-    ###        punct -
-    ###        space -
-    ###        upper -
-    ###        wordchar -
-    ###        xdigit {
-    ###            foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {![tcl::string::is $type -strict $e_check]} {
-    ###                    set e       [lindex $clauseval $t]
-    ###                    set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e'"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###        }
-    ###        file -
-    ###        directory -
-    ###        existingfile -
-    ###        existingdirectory {
-    ###            foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                set e       [lindex $clauseval          $clausecolumn]
-    ###                set e_check [lindex $clauseval_check    $clausecolumn]
-    ###                #//review - we may need '?' char on windows
-    ###                if {!([tcl::string::length $e_check]>0 && ![regexp {[\"*<>\;]} $e_check])} {
-    ###                    #what about special file names e.g on windows NUL ?
-    ###                    set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which doesn't look like it could be a file or directory"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    ###                }
-    ###                if {$type eq "existingfile"} {
-    ###                    if {![file exists $e_check]} {
-    ###                        set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which is not an existing file"
-    ###                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs]] $msg
-    ###                    }
-    ###                } elseif {$type eq "existingdirectory"} {
-    ###                    if {![file isdirectory $e_check]} {
-    ###                        set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which is not an existing directory"
-    ###                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs]] $msg
-    ###                    }
-    ###                }
-    ###            }
-    ###        }
-    ###        char {
-    ###            #review - char vs unicode codepoint vs grapheme?
-    ###            foreach clauseval $vlist clauseval_check $vlist_check {
-    ###                set e_check [lindex $clauseval_check $clausecolumn]
-    ###                if {[tcl::string::length $e_check] != 1} {
-    ###                    set e       [lindex $clauseval $clausecolumn]
-    ###                    set msg "$argclass $argname for %caller% requires type 'character'. Received: '$e' which is not a single character"
-    ###                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs]] $msg
-    ###                }
-    ###            }
-    ###        }
-    ###        default {
-    ###        }
-    ###    }
-
-    ###}
-
-    #new version
-    #list_of_clauses_raw list of (possibly)multi-value clauses for a particular argname
-    #common basic case: list of single item being a single value clause.
-    #precondition: list_of_clauses_raw has 'list protected' clauses of length 1 e.g if value is a dict {a A}
-    proc _check_clausecolumn {argname argclass thisarg thisarg_checks clausecolumn default_type_expression list_of_clauses_raw list_of_clauses_check list_of_clauses_types argspecs} {
-        #default_type_expression is for the chosen clausecolumn
-        #if {$argname eq "frametype"} {
-        #puts "--->checking arg:$argname clausecolumn:$clausecolumn checkvalues:[lsearch -all -inline -index $clausecolumn -subindices $list_of_clauses_check *] against default_type_expression $default_type_expression"
-        #puts "--->list_of_clauses_raw  : $list_of_clauses_raw"
-        #puts "--->list_of_clauses_check: $list_of_clauses_check"
-        #puts "--->$argname -type: [dict get $thisarg -type]"
-        #}
-
-        set clause_size [llength [dict get $thisarg -type]] ;#length of full type - not just the default_type_expression for the clausecolumn
-
-        set default_type_alternatives [_split_type_expression $default_type_expression]
-        #---------------------
-        #pre-calc prefix sets based on the default.
-        set alt_literals        [lsearch -all -inline -index 0 $default_type_alternatives literal]
-        set literals            [lmap v $alt_literals {lindex $v 1}]
-        set alt_literalprefixes [lsearch -all -inline -index 0 $default_type_alternatives literalprefix]
-        set literalprefixes     [lmap v $alt_literalprefixes {lindex $v 1}]
-        #---------------------
-
-        #each type_alternative is a list of varying length depending on arguments supported by first word.
-        #TODO?
-        #single element types: int double string etc
-        #two element types literal literalprefix stringstartswith stringendswith
-        #TODO
-
-        #list for each clause (each clause is itself a list - usually length 1 but can be any length - we are dealing only with one column of the clauses)
-        set clause_results [lrepeat [llength $list_of_clauses_raw] [lrepeat [llength $default_type_alternatives] _]]
-        #e.g for list_of_clauses_raw {{a b c} {1 2 3}} when clausecolumn is 0
-        #-types {int|char|literal(ok) char double}
-        #we are checking a and 1 against the defaulttype_expression e.g int|char|literal(ok) (type_alternatives = {int char literal(ok)}
-        #our initial clause_results in this case is a 2x2 list {{_ _ _} {_ _ _}}
-        #review: for a particular clause the active type_expression might be overridden with 'any' if the column has already passed a -choices test
-        #
-
-        set e_vals          [lsearch -all -inline -index $clausecolumn -subindices $list_of_clauses_raw *]
-        set check_vals      [lsearch -all -inline -index $clausecolumn -subindices $list_of_clauses_check *]
-        set typelist_vals_raw   [lsearch -all -inline -index $clausecolumn -subindices $list_of_clauses_types *]
-        set typelist_vals [lmap v $typelist_vals_raw {string trim $v ?}]
-
-        set c_idx -1
-        foreach e $e_vals e_check $check_vals clause_column_type_expression $typelist_vals {
-            incr c_idx
-            set col_type_alternatives [_split_type_expression $clause_column_type_expression]
-            set firstany [lsearch -exact $col_type_alternatives any]
-            if {$firstany > -1} {
-                lset clause_results $c_idx $firstany 1
-                continue
-            }
-            set a_idx -1
-            foreach typealt $col_type_alternatives {
-                incr a_idx
-                lassign $typealt type testval ;#testval will be empty for basic types, but applies to literal, literalprefix, stringstartswith etc.
-                switch -exact -- $type {
-                    literal {
-                        if {$e ne $testval} {
-                            set msg "$argclass '$argname' for %caller% requires literal value '$testval'. Received: '$e'"
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-                        } else {
-                            lset clause_results $c_idx $a_idx 1
-                            #this clause is satisfied - no need to process it for other typealt
-                            break
-                        }
-                    }
-                    literalprefix {
-                        #this specific literalprefix testval value not relevant - we're testing against all in the set of typealternates
-                        set match [::tcl::prefix::match -error "" [list {*}$literals {*}$literalprefixes] $e]
-                        if {$match ne "" && $match ni $literals} {
-                            lset clause_results $c_idx $a_idx 1
-                            #this clause is satisfied - no need to process it for other typealt
-                            break
-                        } else {
-                            set msg "$argclass '$argname' for %caller% requires unambiguous literal prefix match for one of '$literalprefixes' within prefix calculation set:'[list {*}$literals {*}$literalprefixes]'. Received: '$e'"
-                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs]] $msg
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-                        }
-                    }
-                    stringstartswith {
-                        if {[string match $testval* $e]} {
-                            lset clause_results $c_idx $a_idx 1
-                            break
-                        } else {
-                            set msg "$argclass '$argname' for %caller% requires stringstartswith value  '$testval'. Received: '$e'"
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-                        }
-                    }
-                    stringendswith {
-                        if {[string match *$testval $e]} {
-                            lset clause_results $c_idx $a_idx 1
-                            break
-                        } else {
-                            set msg "$argclass '$argname' for %caller% requires stringendswith value  '$testval'. Received: '$e'"
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-                        }
-                    }
-                    list {
-                        if {![tcl::string::is list -strict $e_check]} {
-                            set msg "$argclass '$argname' for %caller% requires type 'list'. Received: '$e_check'"
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e_check -argspecs $argspecs] msg $msg]
-                            continue
-                        } else {
-                            if {[dict exists $thisarg_checks -minsize]} {
-                                # -1 for disable is as good as zero
-                                set minsize [dict get $thisarg_checks -minsize]
-                                if {[llength $e_check] < $minsize} {
-                                    set msg "$argclass '$argname for %caller% requires list with -minsize $minsize. Received len:[llength $e_check]"
-                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type minsize $minsize] -badarg $e_check -badval $e_check -argspecs $argspecs] msg $msg]
-                                    continue
-                                }
-                            }
-                            if {[dict exist $thisarg_checks -maxsize]} {
-                                set maxsize [dict get $thisarg_checks -maxsize]
-                                if {$maxsize ne "-1"} {
-                                    if {[llength $e_check] > $maxsize} {
-                                        set msg "$argclass '$argname for %caller% requires list with -maxsize $maxsize. Received len:[llength $e_check]"
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type maxsize $maxsize] -badarg $e_check -badval $e_check -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                    indexexpression {
-                        if {[catch {lindex {} $e_check}]} {
-                            set msg "$argclass $argname for %caller% requires type indexexpression. An index as used in Tcl list commands. Received: '$e_check'"
-                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                        } else {
-                            lset clause_results $c_idx $a_idx 1
-                            break
-                        }
-                    }
-                    string - ansistring - globstring {
-                        #we may commonly want exceptions that ignore validation rules - most commonly probably the empty string
-                        #we possibly don't want to always have to regex on things that don't pass the other more basic checks
-                        # -regexprefail  -regexprepass (short-circuiting fail/pass run before all other validations)
-                        # -regexpostfail -regexpostpass (short-circuiting fail/pass run after other toplevel validations - but before the -validationtransform)
-                        # in the comon case there should be no need for a tentative -regexprecheck - just use a -regexpostpass instead
-                        # however - we may want to run -regexprecheck to restrict the values passed to the -validationtransform function
-                        # -regexpostcheck is equivalent to -regexpostpass at the toplevel if there is no -validationtransform (or if it is in the -validationtransform)
-                        # If there is a -validationtransform, then -regexpostcheck will either progress to run the -validationtransform if matched, else produce a fail
-
-                        #todo? - way to validate both unstripped and stripped?
-                        #review - order of -regexprepass and -regexprefail in original rawargs significant?
-                        #for now -regexprepass always takes precedence
-                        #REVIEW we only have a single regexprepass/regexprefail for entire typeset?? need to make it a list like -typedefaults?
-                        set regexprepass                [tcl::dict::get $thisarg -regexprepass]
-                        set regexprefail                [Dict_getdef $thisarg -regexprefail ""] ;#aliased to dict getdef in tcl9
-                        if {$regexprepass ne ""} {
-                            if {[regexp [lindex $regexprepass       $clausecolumn] $e]} {
-                                lset clause_results $c_idx $a_idx 1
-                                break
-                            }
-                        }
-                        if {$regexprefail ne ""} {
-                            #puts "----> checking $e vs regex $regexprefail"
-                            if {[regexp $regexprefail $e]} {
-                                if {[tcl::dict::exists $thisarg -regexprefailmsg]} {
-                                    #review - %caller% ??
-                                    set msg [tcl::dict::get $thisarg -regexprefailmsg]
-                                } else {
-                                    set msg "$argclass $argname for %caller% didn't pass regexprefail regex: '$regexprefail' got '$e'"
-                                }
-                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list regexprefail $type] -badarg $argname -argspecs $argspecs]] $msg
-                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list regexprefail $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                #review - tests?
-                                continue
-                            }
-                        }
-                        switch -- $type {
-                            ansistring {
-                                #we need to respect -validate_ansistripped for -minsize etc, but the string must contain ansi
-                                #.. so we need to look at the original values in $clauses_dict not $clauses_dict_check
-
-                                #REVIEW - difference between string with mixed plaintext and ansi and one required to be ansicodes only??
-                                #The ansicodes only case should be covered by -minsize 0 -maxsize 0 combined with -validate_ansistripped  ???
-                                package require punk::ansi
-                                if {![punk::ansi::ta::detect $e]} {
-                                    set msg "$argclass '$argname' for %caller% requires ansistring - but no ansi detected"
-                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                    continue
-                                }
-                            }
-                            globstring {
-                                if {![regexp {[*?\[\]]} $e]} {
-                                    set msg "$argclass '$argname' for %caller% requires globstring - but no glob characters detected"
-                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                    continue
-                                }
-                            }
-                        }
-
-                        if {[tcl::dict::size $thisarg_checks]} {
-                            if {[dict exists $thisarg_checks -minsize]} {
-                                set minsize [dict get $thisarg_checks -minsize]
-                                # -1 for disable is as good as zero
-                                if {[tcl::string::length $e_check] < $minsize} {
-                                    set msg "$argclass '$argname' for %caller% requires string with -minsize $minsize. Received len:[tcl::string::length $e_check] value:'$e_check'"
-                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                    continue
-                                }
-                            }
-                            if {[dict exists $thisarg_checks -maxsize]} {
-                                set maxsize [dict get $thisarg_checks -maxsize]
-                                if {$checkval ne "-1"} {
-                                    if {[tcl::string::length $e_check] > $maxsize} {
-                                        set msg "$argclass '$argname' for %caller% requires string with -maxsize $maxsize. Received len:[tcl::string::length $e_check] value:'$e_check'"
-                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                    number {
-                        #review - consider effects of Nan and Inf
-                        #NaN can be considered as 'technically' a number (or at least a special numeric value)
-                        if {(![tcl::string::is integer -strict $e_check]) && (![tcl::string::is double -strict $e_check])} {
-                            set msg "$argclass $argname for %caller% requires type integer. Received: '$e_check'"
-                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                            continue
-                        }
-                        if {[tcl::dict::exists $thisarg -typeranges]} {
-                            set ranges [tcl::dict::get $thisarg -typeranges]
-                            set range   [lindex $ranges             $clausecolumn]
-                            lassign {} low high ;#set both empty
-                            lassign $range low high
-                            if {"$low$high" ne ""} {
-                                if {[::tcl::mathfunc::isnan $e]} {
-                                    set msg "$argclass '$argname' for %caller% must be an int or double within specified range {'$low' '$high'} NaN not comparable to any range. Received: '$e'"
-                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                    lset clause_results [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                    continue
-                                }
-                                if {$low eq ""} {
-                                    if {$e_check > $high} {
-                                        set msg "$argclass '$argname' for %caller% must be an int or double less than or equal to $high. Received: '$e'"
-                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                } elseif {$high eq ""} {
-                                    if {$e_check < $low} {
-                                        set msg "$argclass '$argname' for %caller% must be an int or double greater than or equal to $low. Received: '$e'"
-                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                } else {
-                                    if {$e_check < $low || $e_check > $high} {
-                                        set msg "$argclass '$argname' for %caller% must be an int or double between $low and $high inclusive. Received: '$e'"
-                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                    int {
-                        #elements in -typeranges can be expressed as two integers or an integer and an empty string e.g {0 ""} >= 0   or {"" 10} <=10  or {-1 10} -1 to 10 inclusive
-                        if {![tcl::string::is integer -strict $e_check]} {
-                            set msg "$argclass $argname for %caller% requires type integer. Received: '$e_check'"
-                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                            continue
-                        }
-                        if {[tcl::dict::exists $thisarg -typeranges]} {
-                            set ranges [tcl::dict::get $thisarg -typeranges]
-                            set range   [lindex $ranges             $clausecolumn]
-                            lassign $range low high
-                            if {"$low$high" ne ""} {
-                                if {$low eq ""} {
-                                    #lowside unspecified - check only high
-                                    if {$e_check > $high} {
-                                        set msg "$argclass '$argname' for %caller% must be integer less than or equal to $high. Received: '$e'"
-                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                } elseif {$high eq ""} {
-                                    #highside unspecified - check only low
-                                    if {$e_check < $low} {
-                                        set msg "$argclass '$argname' for %caller% must be integer greater than or equal to $low. Received: '$e'"
-                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                } else {
-                                    #high and low specified
-                                    if {$e_check < $low || $e_check > $high} {
-                                        set msg "$argclass '$argname' for %caller% must be integer between $low and $high inclusive. Received: '$e'"
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                    double {
-                        if {![tcl::string::is double -strict $e_check]} {
-                            set msg "$argclass $argname for %caller% requires type double. Received: '$e'"
-                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                            continue
-                        }
-                        if {[tcl::dict::exists $thisarg_checks -typeranges]} {
-                            set ranges [dict get $thisarg_checks -typeranges]
-                            set range   [lindex $ranges             $clausecolumn]
-                            #todo - small-value double comparisons with error-margin? review
-                            lassign $range low high
-                            if {$low$high ne ""} {
-                                if {$low eq ""} {
-                                    #lowside unspecified - check only high
-                                    if {$e_check > $high} {
-                                        set msg "$argclass $argname for %caller% must be double less than or equal to $high. Received: '$e'"
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                } elseif {$high eq ""} {
-                                    #highside unspecified - check only low
-                                    if {$e_check < $low} {
-                                        set msg "$argclass $argname for %caller% must be double greater than or equal to $low. Received: '$e'"
-                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                        continue
-                                    }
-                                } elseif {$e_check < $low || $e_check > $high} {
-                                    set msg "$argclass $argname for %caller% must be double between $low and $high. Received: '$e'"
-                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                                    continue
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                    bool {
-                        if {![tcl::string::is boolean -strict $e_check]} {
-                            set msg "$argclass $argname for %caller% requires type boolean. Received: '$e_check'"
-                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-                            continue
-                        } else {
-                            lset clause_results $c_idx $a_idx 1
-                            break
-                        }
-                    }
-                    dict {
-                        if {[llength $e_check] %2 != 0} {
-                            set msg "$argclass '$argname' for %caller% requires type 'dict' - must be key value pairs. Received: '$e_check'"
-                            lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                            continue
-                        }
-                        if {[tcl::dict::size $thisarg_checks]} {
-                            if {[dict exists $thisarg_checks -minsize]} {
-                                set minsizes [dict get $thisarg_checks -minsize]
-                                set minsize [lindex $minsizes           $clausecolumn]
-                                # -1 for disable is as good as zero
-                                if {[tcl::dict::size $e_check] < $minsize} {
-                                    set msg "$argclass '$argname' for %caller% requires dict with -minsize $minsize. Received dict size:[dict size $e_check]"
-                                    lset clause_results $c_idx $a_idx [list err [list sizeviolation $type minsize $minsize] msg $msg]
-                                    continue
-                                }
-                            }
-                            if {[dict exists $thisarg_checks -maxsize]} {
-                                set maxsize [lindex $maxsizes           $clausecolumn]
-                                if {$maxsize ne "-1"} {
-                                    if {[tcl::dict::size $e_check] > $maxsize} {
-                                        set msg "$argclass '$argname' for %caller% requires dict with -maxsize $maxsize. Received dict size:[dict size $e_check]"
-                                        lset clause_results $c_idx $a_idx [list err  [list sizeviolation $type maxsize $maxsize] msg $msg]
-                                        continue
-                                    }
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                    }
-                    alnum -
-                    alpha -
-                    ascii -
-                    control -
-                    digit -
-                    graph -
-                    lower -
-                    print -
-                    punct -
-                    space -
-                    upper -
-                    wordchar -
-                    xdigit {
-                        if {![tcl::string::is $type -strict $e_check]} {
-                            set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e'"
-                            lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                            continue
-                        } else {
-                            lset clause_results $c_idx $a_idx 1
-                            break
-                        }
-                    }
-                    file -
-                    directory -
-                    existingfile -
-                    existingdirectory {
-                        #//review - we may need '?' char on windows
-                        if {!([tcl::string::length $e_check]>0 && ![regexp {[\"*<>\;]} $e_check])} {
-                            #what about special file names e.g on windows NUL ?
-                            set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which doesn't look like it could be a file or directory"
-                            lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                            continue
-                        }
-                        if {$type eq "existingfile"} {
-                            if {![file exists $e_check]} {
-                                set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which is not an existing file"
-                                lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                                continue
-                            }
-                        } elseif {$type eq "existingdirectory"} {
-                            if {![file isdirectory $e_check]} {
-                                set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which is not an existing directory"
-                                lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                                continue
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                    }
-                    char {
-                        #review - char vs unicode codepoint vs grapheme?
-                        if {[tcl::string::length $e_check] != 1} {
-                            set msg "$argclass $argname for %caller% requires type 'character'. Received: '$e' which is not a single character"
-                            lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                            continue
-                        } else {
-                            lset clause_results $c_idx $a_idx 1
-                            break
-                        }
-                    }
-                    tk_screen_units {
-                        switch -exact -- [string index $e_check end] {
-                            c - i - m - p {
-                                set numpart [string range $e_check 0 end-1]
-                                if {![tcl::string::is double $numpart]} {
-                                    set msg "$argclass $argname for %caller% requires type 'tk_screen_units'. Received: '$e' Which does not seem to be in a form as accepted ty Tk_GetPixels."
-                                    lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                                    continue
-                                }
-                            }
-                            default {
-                                if {![tcl::string::is double $e_check]} {
-                                    set msg "$argclass $argname for %caller% requires type 'tk_screen_units'. Received: '$e' Which does not seem to be in a form as accepted ty Tk_GetPixels."
-                                    lset clause_results $c_idx $a_idx [list err [list typemismatch $type] msg $msg]
-                                    continue
-                                }
-                            }
-                        }
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                    default {
-                        #default pass for unrecognised types - review.
-                        lset clause_results $c_idx $a_idx 1
-                        break
-                    }
-                }
-            }
-        }
-
-        foreach clauseresult $clause_results {
-            if {[lsearch $clauseresult 1] == -1} {
-                #no pass for this clause - fetch first? error and raise
-                #todo - return error containing clause_indices so we can report more than one failing element at once?
-                foreach e $clauseresult {
-                    switch -exact [lindex $e 0] {
-                        errorcode {
-                            #errorcode <list> msg <string
-                            set errorcode [lindex $e 1]
-                            set msg [lindex $e 3]
-                            return -options [list -code error -errorcode $errorcode] $msg
-                        }
-                        err {
-                            set errorcode [list PUNKARGS VALIDATION [lindex $e 1] -badarg $argname -badval $e_check -argspecs $argspecs]
-                            set msg [lindex $e 3]
-                            return -options [list -code error -errorcode $errorcode] $msg
-                        }
-                    }
-                }
-            }
-        }
-        return
-    }
-
-
-    ##interim version
-    ##list_of_clauses_raw list of (possibly)multi-value clauses for a particular argname
-    ##common basic case: list of single item being a single value clause.
-    ##precondition: list_of_clauses_raw has 'list protected' clauses of length 1 e.g if value is a dict {a A}
-    #proc _check_clausecolumn2 {argname argclass thisarg thisarg_checks clausecolumn type_expression list_of_clauses_raw list_of_clauses_check argspecs} {
-    #    if {$argname eq "frametype"} {
-    #    puts "--->checking arg:$argname clausecolumn:$clausecolumn checkvalues:[lsearch -all -inline -index $clausecolumn -subindices $list_of_clauses_check *] against type_expression $type_expression"
-    #    puts "--->list_of_clauses_raw  : $list_of_clauses_raw"
-    #    puts "--->list_of_clauses_check: $list_of_clauses_check"
-    #    puts "--->$argname -type: [dict get $thisarg -type]"
-    #    }
-
-    #    set clause_size [llength [dict get $thisarg -type]] ;#length of full type - not just passed type_expression
-
-    #    #set vlist [list]
-    #    set clauses_dict [dict create] ;#key is ordinal position, remove entries as they are satsified
-    #    set cidx -1
-    #    foreach cv $list_of_clauses_raw {
-    #        incr cidx
-    #        #REVIEW
-    #        #if {$clause_size ==1} {
-    #        #    lappend vlist [list $cidx [list $cv]]
-    #        #} else {
-    #            #lappend vlist [list $cidx $cv] ;#store the index so we can reduce vlist as we go
-    #            dict set clauses_dict $cidx $cv
-    #        #}
-    #    }
-    #    #set vlist_check [list]
-    #    set clauses_dict_check [dict create]
-    #    set cidx -1
-    #    foreach cv $list_of_clauses_check {
-    #        incr cidx
-    #        #if {$clause_size == 1} {
-    #        #    lappend vlist_check [list $cidx [list $cv]]
-    #        #} else {
-    #            #lappend vlist_check [list $cidx $cv]
-    #            dict set clauses_dict_check $cidx $cv
-    #        #}
-    #    }
-
-    #    set type_alternatives [_split_type_expression $type_expression]
-    #    #each type_alternative is a list of varying length depending on arguments supported by first word.
-    #    #TODO?
-    #    #single element types: int double string etc
-    #    #two element types literal literalprefix stringstartswith stringendswith
-    #    #TODO
-
-    #    #list for each clause (each clause is itself a list - usually length 1 but can be any length - we are dealing only with one column of the clauses)
-    #    set clause_results [lrepeat [llength $list_of_clauses_raw] [lrepeat [llength $type_alternatives] _]]
-    #    #e.g for list_of_clauses_raw {{a b c} {1 2 3}} when clausecolumn is 0
-    #    #-types {int|char|literal(ok) char double}
-    #    #we are checking a and 1 against the type_expression int|char|literal(ok) (type_alternatives = {int char literal(ok)}
-    #    #our initial clause_results in this case is a 2x2 list {{_ _ _} {_ _ _}}
-    #    #
-
-
-    #    set a_idx -1
-    #    foreach typealt $type_alternatives {
-    #        incr a_idx
-
-    #        set type [lindex $typealt 0]
-    #        #e.g int
-    #        #e.g {literal blah}
-    #        #e.g {literalprefix abc}
-
-    #        #switch on first word of each typealt
-    #        #
-
-    #        #review - for leaders,values - do we need to check literal etc? already checked during split into prevalues postvalues ?
-    #        switch -- $type {
-    #            any {}
-    #            literal {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set e [lindex $clauseval $clausecolumn]
-    #                    set testval [lindex $typealt 1]
-    #                    if {$e ne $testval} {
-    #                        set msg "$argclass '$argname' for %caller% requires literal value '$testval'. Received: '$e'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-    #                    } else {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        #this clause is satisfied - no need to process it for other typealt
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            literalprefix {
-    #                set alt_literals        [lsearch -all -inline -index 0 $type_alternatives literal]
-    #                set literals            [lmap v $alt_literals {lindex $v 1}]
-    #                set alt_literalprefixes [lsearch -all -inline -index 0 $type_alternatives literalprefix]
-    #                set literalprefixes     [lmap v $alt_literalprefixes {lindex $v 1}]
-
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set e [lindex $clauseval $clausecolumn]
-    #                    #this specific literalprefix value not relevant - we're testing against all in the set of typealternates
-    #                    #set testval [lindex $typealt 1]
-    #                    set match [::tcl::prefix::match -error "" [list {*}$literals {*}$literalprefixes] $e]
-    #                    if {$match ne "" && $match ni $literals} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        #this clause is satisfied - no need to process it for other typealt
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    } else {
-    #                        set msg "$argclass '$argname' for %caller% requires unambiguous literal prefix match for one of '$literalprefixes' within prefix calculation set:'[list {*}$literals {*}$literalprefixes]'. Received: '$e'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #            }
-    #            stringstartswith {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set e [lindex $clauseval $clausecolumn]
-    #                    set testval [lindex $typealt 1]
-    #                    if {[string match $testval* $e]} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    } else {
-    #                        set msg "$argclass '$argname' for %caller% requires stringstartswith value  '$testval'. Received: '$e'"
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #            }
-    #            stringendswith {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set e [lindex $clauseval $clausecolumn]
-    #                    set testval [lindex $typealt 1]
-    #                    if {[string match *$testval $e]} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    } else {
-    #                        set msg "$argclass '$argname' for %caller% requires stringendswith value  '$testval'. Received: '$e'"
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #            }
-    #            list {
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    set passed_checks 1
-    #                    if {![tcl::string::is list -strict $e_check]} {
-    #                        set msg "$argclass '$argname' for %caller% requires type 'list'. Received: '$e_check'"
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $e_check -argspecs $argspecs] msg $msg]
-    #                        set passed_checks 0
-    #                    } else {
-    #                        if {[dict exists $thisarg_checks -minsize]} {
-    #                            # -1 for disable is as good as zero
-    #                            set minsize [dict get $thisarg_checks -minsize]
-    #                            if {[llength $e_check] < $minsize} {
-    #                                set msg "$argclass '$argname for %caller% requires list with -minsize $minsize. Received len:[llength $e_check]"
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type minsize $minsize] -badarg $e_check -badval $e_check -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                        if {$passed_checks && [dict exist $thisarg_checks -maxsize]} {
-    #                            set maxsize [dict get $thisarg_checks -maxsize]
-    #                            if {$maxsize ne "-1"} {
-    #                                if {[llength $e_check] > $maxsize} {
-    #                                    set msg "$argclass '$argname for %caller% requires list with -maxsize $maxsize. Received len:[llength $e_check]"
-    #                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type maxsize $maxsize] -badarg $e_check -badval $e_check -argspecs $argspecs] msg $msg]
-    #                                    set passed_checks 0
-    #                                }
-    #                            }
-    #                        }
-    #                    }
-    #                    if {$passed_checks} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            indexexpression {
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {[catch {lindex {} $e_check}]} {
-    #                        set msg "$argclass $argname for %caller% requires type indexexpression. An index as used in Tcl list commands. Received: '$e_check'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                    } else {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            string - ansistring - globstring {
-    #                #we may commonly want exceptions that ignore validation rules - most commonly probably the empty string
-    #                #we possibly don't want to always have to regex on things that don't pass the other more basic checks
-    #                # -regexprefail  -regexprepass (short-circuiting fail/pass run before all other validations)
-    #                # -regexpostfail -regexpostpass (short-circuiting fail/pass run after other toplevel validations - but before the -validationtransform)
-    #                # in the comon case there should be no need for a tentative -regexprecheck - just use a -regexpostpass instead
-    #                # however - we may want to run -regexprecheck to restrict the values passed to the -validationtransform function
-    #                # -regexpostcheck is equivalent to -regexpostpass at the toplevel if there is no -validationtransform (or if it is in the -validationtransform)
-    #                # If there is a -validationtransform, then -regexpostcheck will either progress to run the -validationtransform if matched, else produce a fail
-
-    #                #todo? - way to validate both unstripped and stripped?
-    #                #review - order of -regexprepass and -regexprefail in original rawargs significant?
-    #                #for now -regexprepass always takes precedence
-    #                #REVIEW we only have a single regexprepass/regexprefail for entire typeset?? need to make it a list like -typedefaults?
-    #                set regexprepass                [tcl::dict::get $thisarg -regexprepass]
-    #                set regexprefail                [Dict_getdef $thisarg -regexprefail ""] ;#aliased to dict getdef in tcl9
-    #                if {$regexprepass ne ""} {
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        set clauseval_check [dict get $clauses_dict_check $c_idx]
-    #                        set e       [lindex $clauseval          $clausecolumn]
-    #                        set e_check [lindex $clauseval_check    $clausecolumn]
-    #                        if {[regexp [lindex $regexprepass       $clausecolumn] $e]} {
-    #                            lset clause_results $c_idx $a_idx 1
-    #                            dict unset clauses_dict         $c_idx
-    #                            dict unset clauses_dict_check   $c_idx
-    #                        }
-    #                    }
-    #                }
-    #                if {$regexprefail ne ""} {
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        set clauseval_check [dict get $clauses_dict_check $c_idx]
-
-    #                        set e       [lindex $clauseval          $clausecolumn]
-    #                        set e_check [lindex $clauseval_check    $clausecolumn]
-    #                        #puts "----> checking $e vs regex $regexprefail"
-    #                        if {[regexp $regexprefail $e]} {
-    #                            if {[tcl::dict::exists $thisarg -regexprefailmsg]} {
-    #                                #review - %caller% ??
-    #                                set msg [tcl::dict::get $thisarg -regexprefailmsg]
-    #                            } else {
-    #                                set msg "$argclass $argname for %caller% didn't pass regexprefail regex: '$regexprefail' got '$e'"
-    #                            }
-    #                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list regexprefail $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list regexprefail $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                            #review - tests?
-    #                        }
-    #                    }
-    #                }
-    #                switch -- $type {
-    #                    ansistring {
-    #                        #we need to respect -validate_ansistripped for -minsize etc, but the string must contain ansi
-    #                        #.. so we need to look at the original values in $clauses_dict not $clauses_dict_check
-
-    #                        #REVIEW - difference between string with mixed plaintext and ansi and one required to be ansicodes only??
-    #                        #The ansicodes only case should be covered by -minsize 0 -maxsize 0 combined with -validate_ansistripped  ???
-    #                        package require punk::ansi
-    #                        dict for {c_idx clauseval} $clauses_dict {
-    #                            if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                                continue
-    #                            }
-    #                            set e [lindex $clauseval $clausecolumn]
-    #                            if {![punk::ansi::ta::detect $e]} {
-    #                                set msg "$argclass '$argname' for %caller% requires ansistring - but no ansi detected"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                            }
-    #                        }
-    #                    }
-    #                    globstring {
-    #                        dict for {c_idx clauseval} $clauses_dict {
-    #                            if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                                continue
-    #                            }
-    #                            set e [lindex $clauseval $clausecolumn]
-    #                            if {![regexp {[*?\[\]]} $e]} {
-    #                                set msg "$argclass '$argname' for %caller% requires globstring - but no glob characters detected"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                            }
-    #                        }
-    #                    }
-    #                }
-
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                        continue
-    #                    }
-    #                    if {[tcl::dict::size $thisarg_checks]} {
-    #                        set passed_checks 1
-    #                        set e_check [lindex $clauseval_check $clausecolumn]
-    #                        if {[dict exists $thisarg_checks -minsize]} {
-    #                            set minsize [dict get $thisarg_checks -minsize]
-    #                            # -1 for disable is as good as zero
-    #                            if {[tcl::string::length $e_check] < $minsize} {
-    #                                set msg "$argclass '$argname' for %caller% requires string with -minsize $minsize. Received len:[tcl::string::length $e_check] value:'$e_check'"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                        if {$passed_checks && [dict exists $thisarg_checks -maxsize]} {
-    #                            set maxsize [dict get $thisarg_checks -maxsize]
-    #                            if {$checkval ne "-1"} {
-    #                                if {[tcl::string::length $e_check] > $maxsize} {
-    #                                    set msg "$argclass '$argname' for %caller% requires string with -maxsize $maxsize. Received len:[tcl::string::length $e_check] value:'$e_check'"
-    #                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                    set passed_checks 0
-    #                                }
-    #                            }
-    #                        }
-    #                        if {$passed_checks} {
-    #                            lset clause_results $c_idx $a_idx 1
-    #                            dict unset clauses_dict         $c_idx
-    #                            dict unset clauses_dict_check   $c_idx
-    #                        }
-    #                    } else {
-    #                        if {[lindex $clause_results $c_idx $a_idx] eq "_"} {
-    #                            lset clause_results $c_idx $a_idx 1
-    #                            dict unset clauses_dict         $c_idx
-    #                            dict unset clauses_dict_check   $c_idx
-    #                        }
-    #                    }
-    #                }
-    #            }
-    #            number {
-    #                #review - consider effects of Nan and Inf
-    #                #NaN can be considered as 'technically' a number (or at least a special numeric value)
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {(![tcl::string::is integer -strict $e_check]) && (![tcl::string::is double -strict $e_check])} {
-    #                        set msg "$argclass $argname for %caller% requires type integer. Received: '$e_check'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #                if {[tcl::dict::exists $thisarg -typeranges]} {
-    #                    set ranges [tcl::dict::get $thisarg -typeranges]
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        set clauseval_check [dict get $clauses_dict_check $c_idx]
-    #                        if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                            continue
-    #                        }
-    #                        set e       [lindex $clauseval          $clausecolumn]
-    #                        set e_check [lindex $clauseval_check    $clausecolumn]
-    #                        set range   [lindex $ranges             $clausecolumn]
-    #                        lassign {} low high ;#set both empty
-    #                        lassign $range low high
-    #                        set passed_checks 1
-    #                        if {"$low$high" ne ""} {
-    #                            if {[::tcl::mathfunc::isnan $e]} {
-    #                                set msg "$argclass '$argname' for %caller% must be an int or double within specified range {'$low' '$high'} NaN not comparable to any range. Received: '$e'"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                lset clause_results [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                            if {$passed_checks} {
-    #                                if {$low eq ""} {
-    #                                    if {$e_check > $high} {
-    #                                        set msg "$argclass '$argname' for %caller% must be an int or double less than or equal to $high. Received: '$e'"
-    #                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                        set passed_checks 0
-    #                                    }
-    #                                } elseif {$high eq ""} {
-    #                                    if {$e_check < $low} {
-    #                                        set msg "$argclass '$argname' for %caller% must be an int or double greater than or equal to $low. Received: '$e'"
-    #                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                        set passed_checks 0
-    #                                    }
-    #                                } else {
-    #                                    if {$e_check < $low || $e_check > $high} {
-    #                                        set msg "$argclass '$argname' for %caller% must be an int or double between $low and $high inclusive. Received: '$e'"
-    #                                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                        set passed_checks 0
-    #                                    }
-    #                                }
-    #                            }
-    #                        }
-    #                        if {$passed_checks} {
-    #                            lset clause_results $c_idx $a_idx 1
-    #                            dict unset clauses_dict         $c_idx
-    #                            dict usnet clauses_dict_check   $c_idx
-    #                        }
-    #                    }
-    #                } else {
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                            continue
-    #                        }
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict usnet clauses_dict_check   $c_idx
-    #                    }
-    #                }
-
-    #            }
-    #            int  {
-    #                #elements in -typeranges can be expressed as two integers or an integer and an empty string e.g {0 ""} >= 0   or {"" 10} <=10  or {-1 10} -1 to 10 inclusive
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {![tcl::string::is integer -strict $e_check]} {
-    #                        set msg "$argclass $argname for %caller% requires type integer. Received: '$e_check'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #                if {[tcl::dict::exists $thisarg -typeranges]} {
-    #                    set ranges [tcl::dict::get $thisarg -typeranges]
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        set clauseval_check [dict get $clauses_dict_check $c_idx]
-    #                        if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                            continue
-    #                        }
-    #                        set e       [lindex $clauseval          $clausecolumn]
-    #                        set e_check [lindex $clauseval_check    $clausecolumn]
-    #                        set range   [lindex $ranges             $clausecolumn]
-    #                        lassign $range low high
-    #                        set passed_checks 1
-    #                        if {"$low$high" ne ""} {
-    #                            if {$low eq ""} {
-    #                                #lowside unspecified - check only high
-    #                                if {$e_check > $high} {
-    #                                    set msg "$argclass '$argname' for %caller% must be integer less than or equal to $high. Received: '$e'"
-    #                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                    set passed_checks 0
-    #                                }
-    #                            } elseif {$high eq ""} {
-    #                                #highside unspecified - check only low
-    #                                if {$e_check < $low} {
-    #                                    set msg "$argclass '$argname' for %caller% must be integer greater than or equal to $low. Received: '$e'"
-    #                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                    set passed_checks 0
-    #                                }
-    #                            } else {
-    #                                #high and low specified
-    #                                if {$e_check < $low || $e_check > $high} {
-    #                                    set msg "$argclass '$argname' for %caller% must be integer between $low and $high inclusive. Received: '$e'"
-    #                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                    set passed_checks 0
-    #                                }
-    #                            }
-    #                        }
-    #                        if {$passed_checks} {
-    #                            lset clause_results $c_idx $a_idx 1
-    #                            dict unset clauses_dict         $c_idx
-    #                            dict unset clauses_dict_check   $c_idx
-    #                        }
-    #                    }
-    #                } else {
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                            continue
-    #                        }
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            double {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set clauseval_check [dict get $clauses_dict_check $c_idx]
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {![tcl::string::is double -strict $e_check]} {
-    #                        set e       [lindex $clauseval $clausecolumn]
-    #                        set msg "$argclass $argname for %caller% requires type double. Received: '$e'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #                if {[tcl::dict::exists $thisarg_checks -typeranges]} {
-    #                    set ranges [dict get $thisarg_checks -typeranges]
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        set clauseval_check [dict get $clauses_dict_check $c_idx]
-    #                        if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                            continue
-    #                        }
-    #                        set e_check [lindex $clauseval_check    $clausecolumn]
-    #                        set range   [lindex $ranges             $clausecolumn]
-    #                        #todo - small-value double comparisons with error-margin? review
-    #                        #todo - empty string for low or high
-    #                        set passed_checks 1
-    #                        lassign $range low high
-    #                        if {$low$high ne ""} {
-    #                            if {$e_check < $low || $e_check > $high} {
-    #                                set e       [lindex $clauseval $clausecolumn]
-    #                                set msg "$argclass $argname for %caller% must be double between $low and $high. Received: '$e'"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list rangeviolation $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                        if {$passed_checks} {
-    #                            lset clause_results $c_idx $a_idx 1
-    #                            dict unset clauses_dict         $c_idx
-    #                            dict unset clauses_dict_check   $c_idx
-    #                        }
-    #                    }
-    #                } else {
-    #                    dict for {c_idx clauseval} $clauses_dict {
-    #                        if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                            continue
-    #                        }
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            bool {
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {![tcl::string::is boolean -strict $e_check]} {
-    #                        set msg "$argclass $argname for %caller% requires type boolean. Received: '$e_check'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                    } else {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            dict {
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    puts "check_clausecolumn2 dict handler: c_idx:$c_idx clausecolumn:$clausecolumn clauseval_check:$clauseval_check"
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {[llength $e_check] %2 != 0} {
-    #                        set msg "$argclass '$argname' for %caller% requires type 'dict' - must be key value pairs. Received: '$e_check'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e_check -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e_check -argspecs $argspecs] msg $msg]
-    #                    }
-    #                }
-    #                dict for {c_idx clauseval_check} $clauses_dict_check {
-    #                    if {[lindex $clause_results $c_idx $a_idx] ne "_"} {
-    #                        continue
-    #                    }
-    #                    set passed_checks 1
-    #                    if {[tcl::dict::size $thisarg_checks]} {
-    #                        if {[dict exists $thisarg_checks -minsize]} {
-    #                            set minsizes [dict get $thisarg_checks -minsize]
-    #                            set e_check [lindex $clauseval_check    $clausecolumn]
-    #                            set minsize [lindex $minsizes           $clausecolumn]
-    #                            # -1 for disable is as good as zero
-    #                            if {[tcl::dict::size $e_check] < $minsize} {
-    #                                set msg "$argclass '$argname' for %caller% requires dict with -minsize $minsize. Received dict size:[dict size $e_check]"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type minsize $minsize] -badarg $argname -badval $e_check -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type minsize $minsize] -badarg $argname -badval $e_check -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                        if {$passed_checks && [dict exists $thisarg_checks -maxsize]} {
-    #                            set e_check [lindex $clauseval_check    $clausecolumn]
-    #                            set maxsize [lindex $maxsizes           $clausecolumn]
-    #                            if {$maxsize ne "-1"} {
-    #                                if {[tcl::dict::size $e_check] > $maxsize} {
-    #                                    set msg "$argclass '$argname' for %caller% requires dict with -maxsize $maxsize. Received dict size:[dict size $e_check]"
-    #                                    #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list sizeviolation $type maxsize $maxsize] -badarg $argname -badval $e_check -argspecs $argspecs]] $msg
-    #                                    lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list sizeviolation $type maxsize $maxsize] -badarg $argname -badval $e_check -argspecs $argspecs] msg $msg]
-    #                                    set passed_checks 0
-    #                                }
-    #                            }
-    #                        }
-    #                    }
-
-    #                    if {$passed_checks} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            alnum -
-    #            alpha -
-    #            ascii -
-    #            control -
-    #            digit -
-    #            graph -
-    #            lower -
-    #            print -
-    #            punct -
-    #            space -
-    #            upper -
-    #            wordchar -
-    #            xdigit {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set clauseval_check [dict get $clauses_dict_check $c_idx]
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {![tcl::string::is $type -strict $e_check]} {
-    #                        set e       [lindex $clauseval $t]
-    #                        set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e'"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                    } else {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            file -
-    #            directory -
-    #            existingfile -
-    #            existingdirectory {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set clauseval_check [dict get $clauses_dict_check $c_idx]
-
-    #                    set e       [lindex $clauseval          $clausecolumn]
-    #                    set e_check [lindex $clauseval_check    $clausecolumn]
-
-    #                    #//review - we may need '?' char on windows
-    #                    set passed_checks 1
-    #                    if {!([tcl::string::length $e_check]>0 && ![regexp {[\"*<>\;]} $e_check])} {
-    #                        #what about special file names e.g on windows NUL ?
-    #                        set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which doesn't look like it could be a file or directory"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
-    #                        set passed_checks 0
-    #                    }
-    #                    if {$passed_checks} {
-    #                        if {$type eq "existingfile"} {
-    #                            if {![file exists $e_check]} {
-    #                                set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which is not an existing file"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        } elseif {$type eq "existingdirectory"} {
-    #                            if {![file isdirectory $e_check]} {
-    #                                set msg "$argclass $argname for %caller% requires type '$type'. Received: '$e' which is not an existing directory"
-    #                                #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs]] $msg
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                    }
-    #                    if {$passed_checks} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            char {
-    #                #review - char vs unicode codepoint vs grapheme?
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set clauseval_check [dict get $clauses_dict_check $c_idx]
-
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    if {[tcl::string::length $e_check] != 1} {
-    #                        set e       [lindex $clauseval $clausecolumn]
-    #                        set msg "$argclass $argname for %caller% requires type 'character'. Received: '$e' which is not a single character"
-    #                        #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs]] $msg
-    #                        lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs] msg $msg]
-    #                    } else {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            tk_screen_units {
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    set clauseval_check [dict get $clauses_dict_check $c_idx]
-
-    #                    set e_check [lindex $clauseval_check $clausecolumn]
-    #                    set passed_checks 1
-    #                    switch -exact -- [string index $e_check end] {
-    #                        c - i - m - p {
-    #                            set numpart [string range $e_check 0 end-1]
-    #                            if {![tcl::string::is double $numpart]} {
-    #                                set e       [lindex $clauseval          $clausecolumn]
-    #                                set msg "$argclass $argname for %caller% requires type 'tk_screen_units'. Received: '$e' Which does not seem to be in a form as accepted ty Tk_GetPixels."
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                        default {
-    #                            if {![tcl::string::is double $e_check]} {
-    #                                set e       [lindex $clauseval          $clausecolumn]
-    #                                set msg "$argclass $argname for %caller% requires type 'tk_screen_units'. Received: '$e' Which does not seem to be in a form as accepted ty Tk_GetPixels."
-    #                                lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -badval $e -argspecs $argspecs] msg $msg]
-    #                                set passed_checks 0
-    #                            }
-    #                        }
-    #                    }
-    #                    if {$passed_checks} {
-    #                        lset clause_results $c_idx $a_idx 1
-    #                        dict unset clauses_dict         $c_idx
-    #                        dict unset clauses_dict_check   $c_idx
-    #                    }
-    #                }
-    #            }
-    #            default {
-    #                #default pass for unrecognised types - review.
-    #                dict for {c_idx clauseval} $clauses_dict {
-    #                    lset clause_results $c_idx $a_idx 1
-    #                    dict unset clauses_dict         $c_idx
-    #                    dict unset clauses_dict_check   $c_idx
-    #                }
-    #            }
-    #        }
-    #    }
-    #    foreach clauseresult $clause_results {
-    #        if {[lsearch $clauseresult 1] == -1} {
-    #            #no pass for this clause - fetch first? error and raise
-    #            #todo - return error containing clause_indices so we can report more than one failing element at once?
-    #            foreach e $clauseresult {
-    #                if {[lindex $e 0] eq "errorcode"} {
-    #                    #errorcode <list> msg <string
-    #                    set err [lindex $e 1]
-    #                    set msg [lindex $e 3]
-    #                    return -options [list -code error -errorcode $err] $msg
-    #                }
-    #            }
-    #        }
-    #    }
-    #}
-
-
-    #todo? - a version of get_dict that directly supports punk::lib::tstr templating
-    #rename get_dict
-    #
-
-    #generally we expect values to contain leading dashes only if -- specified. Otherwise no reliable way determine difference between bad flags and values
-    #If no eopts (--) specified we stop looking for opts at the first nondash encountered in a position we'd expect a dash - so without eopt, values could contain dashes - but not in first position after flags.
-    #only supports -flag val pairs, not solo options
-    #If an option is supplied multiple times - only the last value is used.
-    proc get_dict {deflist rawargs args} {
-        #see arg_error regarding considerations around unhappy-path performance
-
-        if {[llength $args] % 2 != 0} {
-            error "punk::args::get_dict args must be a dict of option value pairs"
-        }
-        set defaults [dict create\
-            -form *\
-        ]
-        set proc_opts [dict merge $defaults $args]
-        dict for {k v} $proc_opts {
-            switch -- $k {
-                -form {}
-                default {
-                    error "punk::args::get_dict Unexpected option '$k' Known options -form"
-                }
-            }
-        }
-
-
-        #*** !doctools
-        #[call [fun get_dict] [arg deflist] [arg rawargs] [arg args]]
-        #[para]Parse rawargs as a sequence of zero or more option-value pairs followed by zero or more values
-        #[para]Returns a dict of the form: opts <options_dict> values <values_dict>
-        #[para]ARGUMENTS:
-        #[list_begin arguments]
-        #[arg_def list-of-multiline-string deflist]
-        #[para] These are blocks of text with records delimited by newlines (lf or crlf) - but with multiline values allowed if properly quoted/braced
-        #[para]'info complete' is used to determine if a record spans multiple lines due to multiline values
-        #[para]Each optionspec line defining a flag must be of the form:
-        #[para]-optionname -key val -key2 val2...
-        #[para]where the valid keys for each option specification are: -default -type -range -choices -optional etc
-        #[para]Each optionspec line defining a positional argument is of the form:
-        #[para]argumentname -key val -ky2 val2...
-        #[para]where the valid keys for each option specification are: -default -type -range -choices
-        #[para]comment lines begining with # are ignored and can be placed anywhere except within a multiline value where it would become part of that value
-        #[para]lines beginning with @cmd @leaders @opts or @values also take -key val pairs and can be used to set defaults and control settings.
-        #[para]@opts or @values lines can appear multiple times with defaults affecting flags/values that follow.
-        #[arg_def list rawargs]
-        #[para] This is a list of the arguments to parse. Usually it will be the $args value from the containing proc,
-        #but it could be a manually constructed list of values made for example from positional args defined in the proc.
-        #[list_end]
-        #[para]
-
-        #consider line-processing example below for which we need info complete to determine record boundaries
-        #punk::args::get_dict [list {
-        #    @opts
-        #    -opt1 -default {}
-        #    -opt2 -default {
-        #        etc
-        #    }
-        #    @values -multiple 1
-        #}] $args
-
-
-
-
-        #rawargs: args values to be parsed
-        #we take a definition list rather than resolved argspecs - because the definition could be dynamic
-
-        #if definition has been seen before,
-        #define will either return a permanently cached argspecs (-dynamic 0) - or
-        # use a cached pre-split definition with parameters to dynamically generate a new (or limitedly cached?) argspecs.
-        set argspecs [uplevel 1 [list ::punk::args::resolve {*}$deflist]]
-
-        # -----------------------------------------------
-        # Warning - be aware of all vars thrown into this space (from tail end of 'definition' proc)
-        tcl::dict::with argspecs {} ;#turn keys into vars
-        #e.g id,FORMS,cmd_info,doc_info,package_info,seealso_info,id_info,form_names
-        # -----------------------------------------------
-        set opt_form [dict get $proc_opts -form]
-        if {$opt_form eq "*"} {
-            set selected_forms $form_names
-        } elseif {[string is integer -strict $opt_form]} {
-            if {$opt_form < 0 || $opt_form > [llength $form_names]-1} {
-                error "punk::args::get_dict invalid -form value '$opt_form' Expected int 0-[expr {[llength $form_names]-1}] or one of '$form_names'"
-            }
-            set selected_forms [list [lindex $form_names $opt_form]]
-        } else {
-            if {$opt_form ni $form_names} {
-                error "punk::args::get_dict invalid -form value '$opt_form' Expected int 0-[expr {[llength $form_names]-1}] or one of '$form_names'"
-            }
-            set selected_forms [list $opt_form]
-        }
-
-
-        #puts "-arg_info->$arg_info"
-        set flagsreceived [list] ;#for checking if required flags satisfied
-        set solosreceived [list]
-        set multisreceived [list]
-        #secondary purpose:
-        #for -multple true, we need to ensure we can differentiate between a default value and a first of many that happens to match the default.
-        #-default value must not be appended to if argname not yet in flagsreceived
-
-
-        #todo: -minmultiple -maxmultiple ?
-
-        # -- --- --- ---
-        # Handle leading positionals
-        # todo - consider allowing last leading positional to have -multiple 1 but only if there exists an eopts marker later (--) ?
-
-        #todo - handle multiple fids?
-        set fid [lindex $selected_forms 0]
-        set formdict [dict get $FORMS $fid]
-        tcl::dict::with formdict {}
-        #populate vars ARG_INFO,LEADER_MAX,LEADER_NAMES etc
-        if {$VAL_MIN eq ""} {
-            set valmin 0
-            #set VAL_MIN 0
-            foreach v $VAL_REQUIRED {
-                # todo variable clause lengths (items marked optional in types using leading&trailing questionmarks)
-                # e.g -types {a ?xxx?}
-                #this has one required and one optional
-                set typelist [dict get $ARG_INFO $v -type]
-                set clause_length 0
-                foreach t $typelist {
-                    if {![string match {\?*\?} $t]} {
-                        incr clause_length
-                    }
-                }
-                incr valmin $clause_length
-            }
-        } else {
-            set valmin $VAL_MIN
-        }
-
-        set pre_values {}
-
-        set argnames [tcl::dict::keys $ARG_INFO]
-        #set optnames [lsearch -all -inline $argnames -*]
-        #JJJ
-        set lookup_optset [dict create]
-        foreach optset $OPT_NAMES {
-            #optset e.g {-x|--longopt|--longopt=|--otherlongopt}
-            foreach optdef [split $optset |] {
-                set opt [string trimright $optdef =]
-                if {![dict exists $lookup_optset $opt]} {
-                    dict set lookup_optset $opt $optset
-                }
-            }
-        }
-        set all_opts [dict keys $lookup_optset]
-
-        set ridx 0
-        set rawargs_copy $rawargs
-        set remaining_rawargs $rawargs
-        set leader_posn_name ""
-        set leader_posn_names_assigned [dict create] ;#track if the name got a value (or multiple if last one)
-        set is_multiple 0 ;#last leader may be multi
-
-
-        #consider for example: LEADER_NAMES {"k v" leader2 leader3} with -type {int number} & -type {int int int} & -type string
-        #(i.e clause-length of 2 3 and 1)
-        #This will take 6 raw leaders to fill in the basic case that all are -optional 0 and -multiple 0
-        #REVIEW - what about optional members in leaders e.g -type {int ?double?}
-        set named_leader_args_max 0
-        foreach ln $LEADER_NAMES {
-            set typelist [dict get $ARG_INFO $ln -type]
-            incr named_leader_args_max [llength $typelist]
-        }
-
-        #set id [dict get $argspecs id]
-        #if {$id eq "::if"} {
-        #puts stderr  "::if"
-        #puts stderr "get_dict--> remaining_rawargs: $remaining_rawargs"
-        #}
-
-        set can_have_leaders 1 ;#default assumption
-        if {$LEADER_MAX == 0 || ([llength $LEADER_NAMES] == 0 && !$LEADER_UNNAMED)} {
-            set can_have_leaders 0
-        }
-
-        #REVIEW - this attempt to classify leaders vs opts vs values doesn't account for leaders with clauses containing optional elements
-        #e.g @leaders {x -type {int ?int?}}
-        set nameidx 0
-        if {$can_have_leaders} {
-            if {$LEADER_TAKEWHENARGSMODULO} {
-                #assign set of leaders purely based on number of total args 
-                set take [expr {[llength $remaining_rawargs] % $LEADER_TAKEWHENARGSMODULO}]
-                set pre_values          [lrange $remaining_rawargs 0 $take-1]
-                set remaining_rawargs   [lrange $remaining_rawargs $take end]
-            } else {
-                #greedy taking of leaders based on type-matching
-
-                set leadernames_seen [list]
-                for {set ridx 0} {$ridx < [llength $rawargs]} {incr ridx} {
-                    set raw [lindex $rawargs $ridx] ;#received raw arg
-                    if {$LEADER_MAX ne "" && $LEADER_MAX != -1 && $ridx > $LEADER_MAX-1} {
-                        break
-                    }
-                    if {[llength $LEADER_NAMES] && $nameidx == [llength $LEADER_NAMES]-1} {
-                        #at last named leader
-                        set leader_posn_name [lindex $LEADER_NAMES $nameidx]
-                        if {[dict exists $ARG_INFO $leader_posn_name -multiple] && [dict get $ARG_INFO $leader_posn_name -multiple]} {
-                            set is_multiple 1
-                        }
-                    } elseif {$ridx > $named_leader_args_max-1} {
-                        #beyond names - retain name if -multiple was true
-                        if {!$is_multiple} {
-                            set leader_posn_name ""
-                        }
-                    } else {
-                        set leader_posn_name [lindex $LEADER_NAMES $nameidx] ;#may return empty string
-                    }
-                    if {$OPT_MAX ne "0" && [string match -* $raw]} {
-                        #all_opts includes end_of_opts marker -- if configured - no need to explicitly check for it separately
-                        set possible_flagname $raw
-                        if {[string match --* $raw]} {
-                            set eposn [string first = $raw]
-                            # --flag=xxx
-                            if {$eposn >=3} {
-                                set possible_flagname [string range $raw 0 $eposn-1]
-                            }
-                        }
-                        set matchopt [::tcl::prefix::match -error {} $all_opts $possible_flagname]
-                        if {$matchopt ne ""} {
-                            #flaglike matches a known flag - don't treat as leader
-                            break
-                        }
-                    }
-
-                    #for each branch - break or lappend
-                    if {$leader_posn_name ne ""} {
-                        set leader_type [dict get $ARG_INFO $leader_posn_name -type]
-                        #todo - variable clauselengths e.g 'if' command which has optional 'then' and 'else' "noise words"
-                        set clauselength [llength $leader_type]
-                        set min_clauselength 0
-                        foreach t $leader_type {
-                            if {![string match {\?*\?} $t]} {
-                                incr min_clauselength
-                            }
-                        }
-                        if {$leader_posn_name ni $LEADER_REQUIRED} {
-                            #optional leader
-
-                            #most adhoc arg processing will allocate based on number of args rather than matching choice values first
-                            #(because a choice value could be a legitimate data value)
-
-                            #review - option to process in this manner?
-                            #first check if the optional leader value is a match for a choice ?
-                            #if {[dict exists $arg_info $leader_posn_name -choices]} {
-                            #    set vmatch [tcl::prefix match -error "" [dict get $arg_info $leader_posn_name -choices] $raw]
-                            #    if {$vmatch ne ""} {
-                            #        #If we match a choice for this named position - allocated it regardless of whether enough args for trailing values
-                            #        lappend pre_values [lpop remaining_rawargs 0]
-                            #        incr ridx
-                            #        continue
-                            #    }
-                            #}
-                            if {[llength $remaining_rawargs] < $min_clauselength} {
-                                #not enough remaining args to fill even this optional leader
-                                #rather than raise error here - perform our break (for end of leaders) and let the code below handle it
-                                break
-                            }
-
-                            #check if enough remaining_rawargs to fill any required values
-                            if {$valmin > 0 && [llength $remaining_rawargs] - $min_clauselength < $valmin} {
-                                break
-                            }
-
-                            #leadername may be a 'clause' of arbitrary length (e.g -type {int double} or {int string number})
-                            set end_leaders 0
-                            set tentative_pre_values [list]
-                            set tentative_idx $ridx
-                            if {$OPT_MAX ne "0"} {
-                                foreach t $leader_type {
-                                    set raw [lindex $rawargs $tentative_idx]
-                                    if {[string match {\?*\?} $t] && [string match -* $raw]} {
-                                        #review - limitation of optional leaders is they can't be same value as any defined flags/opts
-                                        set flagname $raw
-                                        if {[string match --* $raw]} {
-                                            set eposn [string first = $raw]
-                                            # --flag=xxx
-                                            if {$eposn >=3} {
-                                                set flagname [string range $raw 0 $eposn-1]
-                                            }
-                                        }
-                                        set matchopt [::tcl::prefix::match -error {} $all_opts $flagname]
-                                        if {$matchopt ne ""} {
-                                            #don't consume if flaglike (and actually matches an opt)
-                                            set end_leaders 1
-                                            break ;#break out of looking at -type members in the clause
-                                        } else {
-                                            #unrecognised flag - treat as value for optional member of the clause
-                                            #lappend pre_values [lpop remaining_rawargs 0]
-                                            lappend tentative_pre_values $raw
-                                            incr tentative_idx
-                                        }
-                                    } else {
-                                        #lappend pre_values [lpop remaining_rawargs 0]
-                                        lappend tentative_pre_values $raw
-                                        incr tentative_idx
-                                    }
-                                }
-                                if {$end_leaders} {
-                                    break
-                                }
-                            } else {
-                                foreach t $leader_type {
-                                    #JJJ
-                                    set raw [lindex $rawargs $tentative_idx]
-                                    #lappend pre_values [lpop remaining_rawargs 0]
-                                    lappend tentative_pre_values $raw
-                                    incr tentative_idx
-                                }
-                            }
-                            set assign_d    [_get_dict_can_assign_value 0       $tentative_pre_values  0           [list $leader_posn_name]    $leadernames_seen $formdict]
-                            set consumed    [dict get $assign_d consumed]
-                            set resultlist  [dict get $assign_d resultlist]
-                            set newtypelist [dict get $assign_d typelist]
-                            if {$consumed != 0} {
-                                if {$leader_posn_name ni $leadernames_seen} {
-                                    lappend leadernames_seen $leader_posn_name
-                                }
-                                dict incr leader_posn_names_assigned $leader_posn_name
-                                #for {set c 0} {$c < $consumed} {incr c} {
-                                #    lappend pre_values [lpop remaining_rawargs 0]
-                                #}
-                                lappend pre_values {*}[lrange $remaining_rawargs 0 $consumed-1]
-                                ledit remaining_rawargs 0 $consumed-1
-
-                                incr ridx $consumed
-                                incr ridx -1 ;#leave ridx at index of last r that we set
-                            } else {
-
-                            }
-                            if {!$is_multiple} {
-                                incr nameidx
-                            }
-                        } else {
-                            #clause is required
-                            if {[dict exists $leader_posn_names_assigned $leader_posn_name]} {
-                                #already accepted at least one complete clause for this name - requirement satisfied - now equivalent to optional
-                                if {[llength $remaining_rawargs] < $min_clauselength} {
-                                    #not enough remaining args to fill even this optional leader
-                                    #rather than raise error here - perform our break (for end of leaders) and let the code below handle it
-                                    break
-                                }
-
-                                if {$valmin > 0 && [llength $remaining_rawargs] - $min_clauselength < $valmin} {
-                                    break
-                                }
-                            }
-                            #if we didn't break - requirement is not yet satisfied, or is satisfied but still enough remaining_rawargs for required values
-                            #we still need to check if enough values for the leader itself
-                            if {[llength $remaining_rawargs] < $min_clauselength} {
-                                #not enough remaining args to fill *required* leader
-                                break
-                            }
-
-                            set end_leaders 0
-
-                            #review - are we allowing multivalue leader clauses where the optional members are not at the tail?
-                            #eg @leaders {double -type {?int? char}}
-                            #as we don't type-check here while determining leaders vs opts vs values - this seems impractical.
-                            #for consistency and simplification - we should only allow optional clause members at the tail
-                            # and only for the last defined leader. This should be done in the definition parsing - not here.
-                            foreach t $leader_type {
-                                set raw [lindex $rawargs $ridx]
-                                if {[string match {\?*\?} $t] && [string match -* $raw]} {
-                                    #review - limitation of optional leaders is they can't be same value as any defined flags/opts
-
-                                    set matchopt [::tcl::prefix::match -error {} $all_opts $raw]
-                                    if {$matchopt ne ""} {
-                                        #don't consume if flaglike (and actually matches an opt)
-                                        set end_leaders 1
-                                        break ;#break out of looking at -type members in the clause
-                                    } else {
-                                        #unrecognised flag - treat as value for optional member of the clause
-                                        #ridx must be valid if we matched -* - so lpop will succeed
-                                        lappend pre_values [lpop remaining_rawargs 0]
-                                        incr ridx
-                                    }
-                                } else {
-                                    if {[string match {\?*\?} $t]} {
-                                        if {$valmin > 0 && [llength $remaining_rawargs] - $min_clauselength < $valmin} {
-                                            set end_leaders 1
-                                            break
-                                        }
-                                        if {[catch {
-                                            lappend pre_values [lpop remaining_rawargs 0]
-                                        }]} {
-                                            set end_leaders 1
-                                            break
-                                        }
-                                    } else {
-                                        if {[catch {
-                                            lappend pre_values [lpop remaining_rawargs 0]
-                                        }]} {
-                                            set end_leaders 1
-                                            break ;#let validation of required leaders report the error?
-                                        }
-                                    }
-                                    incr ridx
-                                }
-                            }
-                            incr ridx -1
-                            if {$end_leaders} {
-                                break
-                            }
-                            if {!$is_multiple} {
-                                incr nameidx
-                            }
-                            dict incr leader_posn_names_assigned $leader_posn_name
-                        }
-                    } else {
-                        #unnamed leader
-                        if {$LEADER_MIN ne "" } {
-                            if {$ridx > $LEADER_MIN-1} {
-                                if {$LEADER_MAX ne "" && $ridx == $LEADER_MAX} {
-                                    break
-                                } else {
-                                    if {$valmin > 0} {
-                                        if {[llength $remaining_rawargs] > $valmin} {
-                                            lappend pre_values [lpop remaining_rawargs 0]
-                                            dict incr leader_posn_names_assigned $leader_posn_name
-                                        } else {
-                                            break
-                                        }
-                                    } else {
-                                        lappend pre_values [lpop remaining_rawargs 0]
-                                        dict incr leader_posn_names_assigned $leader_posn_name
-                                    }
-                                }
-                            } else {
-                                #haven't reached LEADER_MIN
-                                lappend pre_values [lpop remaining_rawargs 0]
-                                dict incr leader_posn_names_assigned $leader_posn_name
-                            }
-                        } else {
-                            #review - if is_multiple, keep going if enough remaining_rawargs for values?
-                            break
-                        }
-                    }
-
-                    #incr ridx
-                } ;# end foreach r $rawargs_copy
-            }
-        }
-        #puts "get_dict ================> pre: $pre_values"
-
-        set argstate   $ARG_INFO ;#argstate may have entries added
-        set arg_checks  $ARG_CHECKS
-
-        if {$LEADER_MIN eq ""} {
-            set leadermin 0
-        } else {
-            set leadermin $LEADER_MIN
-        }
-        if {$LEADER_MAX eq ""} {
-            if {[llength $LEADER_NAMES] == 0 && !$LEADER_UNNAMED} {
-                set leadermax 0
-            } else {
-                set leadermax -1
-            }
-        } else {
-            set leadermax $LEADER_MAX
-        }
-
-        if {$VAL_MAX eq ""} {
-            if {[llength $VAL_NAMES] == 0 && !$VAL_UNNAMED} {
-                set valmax 0
-            } else {
-                set valmax -1
-            }
-        } else {
-            set valmax $VAL_MAX
-        }
-
-        #assert leadermax leadermin are numeric
-        #assert - remaining_rawargs has been reduced by leading positionals
-
-        set opts [dict create] ;#don't set to OPT_DEFAULTS here
-
-        set leaders [list]
-        set arglist {}
-        set post_values {}
-        #valmin, valmax
-        #puts stderr "remaining_rawargs: $remaining_rawargs"
-        #puts stderr "argstate: $argstate"
-        if {$OPT_MAX ne "0" && [lsearch $remaining_rawargs -*] >= 0} {
-            #contains at least one possible flag
-            set maxidx [expr {[llength $remaining_rawargs] -1}]
-            if {$valmax == -1} {
-                set vals_total_possible [llength $remaining_rawargs]
-                set vals_remaining_possible $vals_total_possible
-            } else {
-                set vals_total_possible $valmax
-                set vals_remaining_possible $vals_total_possible
-            }
-            for {set i 0} {$i <= $maxidx} {incr i} {
-                set remaining_args_including_this [expr {[llength $remaining_rawargs] - $i}]
-                #lowest valmin is 0
-                if {$remaining_args_including_this <= $valmin} {
-                    # if current arg is -- it will pass through as a value here
-                    set arglist [lrange $remaining_rawargs 0 $i-1]
-                    set post_values  [lrange $remaining_rawargs $i end]
-                    break
-                }
-                set a [lindex $remaining_rawargs $i]
-                switch -glob -- $a {
-                    -- {
-                        if {$a in $OPT_NAMES} {
-                            #treat this as eopts - we don't care if remainder look like options or not
-                            lappend flagsreceived --
-                            set arglist [lrange $remaining_rawargs 0 $i]
-                            set post_values  [lrange $remaining_rawargs $i+1 end]
-                        } else {
-                            #assume it's a value.
-                            set arglist [lrange $remaining_rawargs 0 $i-1]
-                            set post_values  [lrange $remaining_rawargs $i end]
-                        }
-                        break
-                    }
-                    --* {
-                        set eposn [string first = $a]
-                        if {$eposn > 2} {
-                            #only allow longopt-style = for double leading dash longopts
-                            #--*=<val
-                            #flagsupplied may still be a 'short form/prefix'
-                            set flagsupplied [string range $a 0 $eposn-1]
-                            set flagval [string range $a $eposn+1 end]
-                            set flagval_included true
-                        } else {
-                            set flagsupplied $a
-                            set flagval ""
-                            set flagval_included false
-                        }
-                    }
-                    -* {
-                        set flagsupplied $a
-                        set flagval ""
-                        set flagval_included false
-                    }
-                    default {
-                        #not a flag/option
-                        set arglist [lrange $remaining_rawargs 0 $i-1]
-                        set post_values  [lrange $remaining_rawargs $i end]
-                        break
-                    }
-                }
-                #flagsupplied when --longopt=x  is --longopt (may still be a prefix)
-                #get full flagname from possible prefix $flagsupplied
-                set flagname [tcl::prefix match -error "" [list {*}$all_opts --] $flagsupplied]
-                if {$flagname eq "--"} {
-                    set optionset ""
-                } else {
-                    if {[dict exists $lookup_optset $flagname]} {
-                        set optionset [dict get $lookup_optset $flagname]
-                    } else {
-                        set optionset ""
-                    }
-                }
-                if {$optionset ne ""} {
-                    #matched some option - either in part or in full.
-                    set raw_optionset_members [split $optionset |]
-                    #check the specific flagname is allowed to have =
-                    if {$flagval_included && "$flagname=" ni $raw_optionset_members} {
-                        set errmsg "bad options for %caller%. Unexpected option \"$flagname=\": must be one of: $all_opts (--longopt= not specified) (1)"
-                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list invalidoption $a options $all_opts] -badarg $a -argspecs $argspecs]] $errmsg
-                    }
-
-
-                    #e.g when optionset eq -fg|-foreground
-                    #-fg is an alias , -foreground is the 'api' value for the result dict
-                    #$optionset remains as the key in the spec
-
-                    #set optmembers [list]
-                    #foreach optspec [split $optionset |] {
-                    #    set o [string trimright $optspec =]
-                    #    if {$o ni $optmembers} {
-                    #        lappend optmembers $o
-                    #    }
-                    #}
-                    #set parsekey [lindex $optmembers end]
-
-                    if {[tcl::dict::get $argstate $optionset -parsekey] ne ""} {
-                        set api_opt [dict get $argstate $optionset -parsekey]
-                    } else {
-                        set api_opt [string trimright [lindex $raw_optionset_members end] =]
-                    }
-                    if {$api_opt eq $flagname} {
-                        set flag_ident $api_opt
-                        set flag_ident_is_parsekey 0
-                    } else {
-                        #initially key our opts on a long form allowing us to know which specific flag was used
-                        #(for when multiple map to same parsekey e.g lsearch)
-                        #e.g -increasing|-SORTOPTION
-                        set flag_ident $flagname|$api_opt
-                        set flag_ident_is_parsekey 1
-                    }
-
-
-                    if {![tcl::dict::get $argstate $optionset -prefix] && $flagsupplied ni $all_opts} {
-                        #attempt to use a prefix when not allowed
-                        #review - by ending opts here - we dont' get the clearest error msgs
-                        # may *sometimes* be better to raise a PUNKARGS VALIDATION (invalidoption) error
-                        # (but it may actually be the first value that just happens to be flaglike)
-                        #todo - check for subsequent valid flags or -- marker?
-                        #consider for example 'file delete -f -- old.txt'
-                        #If we just end option-processing, the punk::args parser would pass {-f -- old.txt} as values
-                        #whereas the builtin file arg parser alerts that -f is a bad option
-                        set errmsg "bad options for %caller%. Unexpected option \"$flagname\": must be one of: $all_opts (2)"
-                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list invalidoption $a options $all_opts] -badarg $a -argspecs $argspecs]] $errmsg
-                        #set arglist [lrange $remaining_rawargs 0 $i-1]
-                        #set post_values  [lrange $remaining_rawargs $i end]
-                        #break
-                    }
-                    set optionset_type [tcl::dict::get $argstate $optionset -type]
-                    if {$optionset_type ne "none"} {
-                        #non-solo (but type could still be optional ?type?)
-                        if {$flagval_included} {
-                            #longopt with value e.g --longopt=x
-                            #flagval is already set
-                            if {[tcl::dict::get $argstate $optionset -multiple]} {
-                                #don't lappend to default - we need to replace if there is a default
-                                if {$api_opt ni $flagsreceived} {
-                                    tcl::dict::set opts $flag_ident [list $flagval]
-                                } else {
-                                    tcl::dict::lappend opts $flag_ident $flagval
-                                }
-                                if {$api_opt ni $multisreceived} {
-                                    lappend multisreceived $api_opt
-                                }
-                            } else {
-                                if {$flag_ident_is_parsekey} {
-                                    lappend opts $flag_ident $flagval
-                                } else {
-                                    tcl::dict::set opts $flag_ident $flagval
-                                }
-                            }
-                        } else {
-                            #disallow "--longopt val" if only --longopt= was in optionset
-                            #but we need to process "--longopt etc whatever..." as solo if 'optional' (?type?)
-                            set solo_only false
-                            if {[string match {\?*\?} $optionset_type]} {
-                                #optional type
-                                if {"$flagname=" ni $raw_optionset_members} {
-                                    set solo_only true
-                                } else {
-                                    #--longopt= is present
-                                    if {"$flagname" ni $raw_optionset_members} {
-                                        #only parsing "--flag"  or "--flag=val" is allowed by configuration -types ?type?
-                                        #we are in !$flagval_included branch so only solo left
-                                        #
-                                        set solo_only true
-                                    }
-                                }
-                            } else {
-                                #flag value is non-optional
-                                #no solo allowed
-                                #--longopt= alone does not allow --longopt <val> usage
-                                if {$flagname ni $raw_optionset_members} {
-                                    #
-                                    set msg "Bad options for %caller%. Option $optionset at index [expr {$i-1}] requires a value, but '$flagname' not specified in definition to allow space-separated value."
-                                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list badoptionformat $optionset index [expr {$i-1}]] -badarg $optionset -argspecs $argspecs]] $msg
-                                }
-                            }
-                            if {$solo_only} {
-                                #same logic as 'solo' branch below for -type none
-                                if {[tcl::dict::exists $argstate $optionset -typedefaults]} {
-                                    set tdflt [tcl::dict::get $argstate $optionset -typedefaults]
-                                } else {
-                                    #normal default for a solo is 1 unless overridden by -typedefaults
-                                    set tdflt 1
-                                }
-                                if {[tcl::dict::get $argstate $optionset -multiple]} {
-                                    if {$api_opt ni $flagsreceived} {
-                                        #override any default - don't lappend to it
-                                        tcl::dict::set opts $flag_ident $tdflt
-                                    } else {
-                                        tcl::dict::lappend opts $flag_ident $tdflt
-                                    }
-                                    if {$api_opt ni $multisreceived} {
-                                        lappend multisreceived $api_opt
-                                    }
-                                } else {
-                                    if {$flag_ident_is_parsekey} {
-                                        lappend opts $flag_ident $tdflt
-                                    } else {
-                                        tcl::dict::set opts $flag_ident $tdflt
-                                    }
-                                }
-                                incr vals_remaining_possible -1
-                                lappend solosreceived $api_opt ;#dups ok
-                            } else {
-                                #check if it was actually a value that looked like a flag
-                                if {$i == $maxidx} {
-                                    #if no optvalue following - assume it's a value
-                                    #(caller should probably have used -- before it)
-                                    #review
-                                    set arglist [lrange $remaining_rawargs 0 $i-1]
-                                    set post_values  [lrange $remaining_rawargs $i end]
-                                    break
-                                }
-                                #flagval comes from next remaining rawarg
-                                set flagval [lindex $remaining_rawargs $i+1]
-                                if {[tcl::dict::get $argstate $optionset -multiple]} {
-                                    #don't lappend to default - we need to replace if there is a default
-                                    if {$api_opt ni $flagsreceived} {
-                                        tcl::dict::set opts $flag_ident [list $flagval]
-                                    } else {
-                                        tcl::dict::lappend opts $flag_ident $flagval
-                                    }
-                                    if {$api_opt ni $multisreceived} {
-                                        lappend multisreceived $api_opt
-                                    }
-                                } else {
-                                    #tcl::dict::set opts $flag_ident $flagval
-                                    if {$flag_ident_is_parsekey} {
-                                        #necessary shimmer
-                                        lappend opts $flag_ident $flagval
-                                    } else {
-                                        tcl::dict::set opts $flag_ident $flagval
-                                    }
-                                }
-                                #incr i to skip flagval
-                                incr vals_remaining_possible -2
-                                if {[incr i] > $maxidx} {
-                                    set msg "Bad options for %caller%. No value supplied for last option $optionset at index [expr {$i-1}] which is not marked with -type none"
-                                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list missingoptionvalue $optionset index [expr {$i-1}]] -badarg $optionset -argspecs $argspecs]] $msg
-                                }
-                            }
-                        }
-                    } else {
-                        #none / solo
-                        if {[tcl::dict::exists $argstate $optionset -typedefaults]} {
-                            set tdflt [tcl::dict::get $argstate $optionset -typedefaults]
-                        } else {
-                            #normal default for a solo is 1 unless overridden by -typedefaults
-                            set tdflt 1
-                        }
-                        if {[tcl::dict::get $argstate $optionset -multiple]} {
-                            if {$api_opt ni $flagsreceived} {
-                                #override any default - don't lappend to it
-                                tcl::dict::set opts $flag_ident $tdflt
-                            } else {
-                                tcl::dict::lappend opts $flag_ident $tdflt
-                            }
-                            if {$api_opt ni $multisreceived} {
-                                lappend multisreceived $api_opt
-                            }
-                        } else {
-                            #test parse_withdef_parsekey_repeat_ordering {Ensure last flag has precedence}
-                            #tcl::dict::set opts $flag_ident $tdflt
-                            if {$flag_ident_is_parsekey} {
-                                #(shimmer - but required for ordering correctness during override)
-                                lappend opts $flag_ident $tdflt
-                            } else {
-                                tcl::dict::set opts $flag_ident $tdflt
-                            }
-                        }
-                        incr vals_remaining_possible -1
-                        lappend solosreceived $api_opt ;#dups ok
-                    }
-                    lappend flagsreceived $api_opt ;#dups ok
-                } else {
-                    #starts with - but unmatched option flag
-                    #comparison to valmin already done above
-                    if {$valmax ne -1 && $remaining_args_including_this <= $valmax} {
-                        #todo - look at optspec_default and see if solo/vs opt-val pair
-                        #we may need to lookahead by 2 regarding valmax valmin
-
-                        #even if optany - assume an unknown within the space of possible values is a value
-                        #unmatched option in right position to be considered a value - treat like eopts
-                        #review - document that an unspecified arg within range of possible values will act like eopts --
-                        set arglist     [lrange $remaining_rawargs 0 $i-1]
-                        set post_values [lrange $remaining_rawargs $i end]
-                        break
-                    }
-                    if {!([tcl::string::first " " $a]>=0 || [tcl::string::first \t $a]>=0 || [tcl::string::last \n $a]>=0)} {
-                        if {$OPT_ANY} {
-                            #exlude argument with whitespace from being a possible option e.g dict
-                            #todo - passthrough of unrecognised --longopt=xxx without looking for following flag-value
-                            set eposn [string first = $a]
-                            if {[string match --* $a] && $eposn > 2} {
-                                #only allow longopt-style = for double leading dash longopts
-                                #--*=<val
-                                #undefined_flagsupplied may still be a 'short form/prefix'
-                                set undefined_flagsupplied [string range $a 0 $eposn-1]
-                                set flagval [string range $a $eposn+1 end]
-                                set flagval_included true
-                            } else {
-                                set undefined_flagsupplied $a
-                                set flagval ""
-                                set flagval_included false
-                            }
-                            if {$flagval_included} {
-                                tcl::dict::set argstate $undefined_flagsupplied $OPTSPEC_DEFAULTS ;#use default settings for unspecified opt
-                                tcl::dict::set arg_checks $undefined_flagsupplied $OPT_CHECKS_DEFAULTS
-                                if {[tcl::dict::get $argstate $undefined_flagsupplied -multiple]} {
-                                    tcl::dict::lappend opts $undefined_flagsupplied $flagval
-                                    if {$undefined_flagsupplied ni $multisreceived} {
-                                        lappend multisreceived $undefined_flagsupplied
-                                    }
-                                } else {
-                                    tcl::dict::set opts $undefined_flagsupplied $flagval
-                                }
-                                incr vals_remaining_possible -1
-                            } else {
-                                set flagval [lindex $remaining_rawargs $i+1]
-                                #opt was unspecified but is allowed due to @opts -any|-arbitrary true -  'adhoc/passthrough' option
-                                tcl::dict::set argstate $a $OPTSPEC_DEFAULTS ;#use default settings for unspecified opt
-                                tcl::dict::set arg_checks $a $OPT_CHECKS_DEFAULTS
-                                #assert -type value has llength 1 (multitype clauses not allowed for opts)
-                                if {[tcl::dict::get $argstate $a -type] ne "none"} {
-                                    if {[tcl::dict::get $argstate $a -multiple]} {
-                                        tcl::dict::lappend opts $a $flagval
-                                        if {$a ni $multisreceived} {
-                                            lappend multisreceived $a
-                                        }
-                                    } else {
-                                        tcl::dict::set opts $a $flagval
-                                    }
-                                    if {[incr i] > $maxidx} {
-                                        set msg "Bad options for %caller%. No value supplied for last adhoc option $a at index [expr {$i-1}] which is not marked with -type none"
-                                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list missingoptionvalue $a index [expr {$i-1}]] -badarg $a -argspecs $argspecs]] $msg
-                                        #arg_error "punk::args::get_dict bad options for [Get_caller]. No value supplied for last adhoc option $a at index [expr {$i-1}] which is not marked with -type none" $argspecs -badarg $a
-                                    }
-                                    incr vals_remaining_possible -2
-                                } else {
-                                    #review -we can't provide a way to allow unspecified -type none flags through reliably/unambiguously unless all remaining unspecified options are -type none
-                                    if {[tcl::dict::exists $argstate $a -typedefaults]} {
-                                        set tdflt [tcl::dict::get $argstate $a -typedefaults]
-                                    } else {
-                                        set tdflt 1
-                                    }
-                                    if {[tcl::dict::get $argstate $a -multiple]} {
-                                        if {![tcl::dict::exists $opts $a]} {
-                                            tcl::dict::set opts $a $tdflt
-                                        } else {
-                                            tcl::dict::lappend opts $a $tdflt
-                                        }
-                                        if {$a ni $multisreceived} {
-                                            lappend multisreceived $a
-                                        }
-                                    } else {
-                                        tcl::dict::set opts $a $tdflt
-                                    }
-                                    incr vals_remaining_possible -1
-                                    lappend solosreceived $a
-                                }
-                            }
-
-                            lappend flagsreceived $undefined_flagsupplied ;#adhoc flag name (if --x=1 -> --x)
-                        } else {
-                            if {[llength $OPT_NAMES]} {
-                                set errmsg "bad options for %caller%. Unexpected option \"$a\": must be one of: $OPT_NAMES (3)"
-                            } else {
-                                set errmsg "bad options for %caller%. Unexpected option \"$a\": No options defined while @opts -any|-arbitrary false"
-                            }
-                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list invalidoption $a options $OPT_NAMES] -badarg $a -argspecs $argspecs]] $errmsg
-                            #arg_error $errmsg $argspecs -badarg $optionset
-                        }
-                    } else {
-                        #not a flag/option
-                        set arglist     [lrange $remaining_rawargs 0 $i-1]
-                        set post_values [lrange $remaining_rawargs $i end]
-                        break
-                    }
-                }
-
-            }
-            #set values [list {*}$pre_values {*}$post_values]
-            set leaders $pre_values
-            set values $post_values
-        } else {
-            set leaders $pre_values
-            set values $remaining_rawargs
-            #set values [list {*}$pre_values {*}$remaining_rawargs] ;#no -flags detected
-            set arglist [list]
-        }
-        #set id [dict get $argspecs id]
-        #if {$id eq "::if"} {
-        #puts stderr  "::if"
-        #puts stderr "get_dict--> arglist: $arglist"
-        #puts stderr "get_dict--> leaders: $leaders"
-        #puts stderr "get_dict--> values: $values"
-        #}
-
-        #---------------------------------------
-        #Order the received options by the order in which they are *defined*
-        #EXCEPT that grouped options using same parsekey must be processed in received order
-        set ordered_opts [dict create]
-
-        #set unaliased_opts [lmap v $OPT_NAMES {string trimright [lindex [split $v |] end] =}]
-        ##unaliased_opts is list of 'api_opt' (to handle flag aliases of form -a1|-a2|-api_opt)
-        ## e.g -fg|-foreground
-        ## e.g -x|--fullname=
-        ##Resulting unaliased_opts from list {-fg|-foreground -x|--fullname=} should be {-foreground --fullname}
-        #foreach o $unaliased_opts optset $OPT_NAMES {
-        #    if {[dict exists $opts $o]} {
-        #        dict set ordered_opts $o [dict get $opts $o]
-        #    } elseif {[dict exists $OPT_DEFAULTS $optset]} {
-        #        #JJJ
-        #        set parsekey ""
-        #        if {[tcl::dict::exists $argstate $o -parsekey]} {
-        #            set parsekey [tcl::dict::get $argstate $o -parsekey]
-        #        }
-        #        if {$parsekey eq ""} {
-        #            set parsekey $o
-        #        }
-        #        dict set ordered_opts $parsekey [dict get $OPT_DEFAULTS $optset]
-        #    }
-        #}
-
-        #puts ">>>>==== $opts"
-        set seen_pks [list]
-        #treating opts as list for this loop.
-        foreach optset $OPT_NAMES {
-            set parsekey ""
-            set has_parsekey_override 0
-            if {[tcl::dict::exists $argstate $optset -parsekey]} {
-                set parsekey [tcl::dict::get $argstate $optset -parsekey]
-            }
-            if {$parsekey eq ""} {
-                set has_parsekey_override 0
-                #fall back to last element of aliased option e.g -fg|-foreground -> "-foreground"
-                set parsekey [string trimright [lindex [split $optset |] end] =]
-            } else {
-                set has_parsekey_override 1
-            }
-            lappend seen_pks $parsekey
-            set is_found 0
-            set foundkey ""
-            set foundval ""
-            #no lsearch -stride avail in 8.6
-            foreach {k v} $opts {
-                if {$k eq $parsekey} {
-                    set foundkey $k
-                    set is_found 1
-                    set foundval $v
-                    #can be multiple - last match wins - don't 'break' out of foreach
-                }
-            } ;#avoiding further dict/list shimmering
-            #if {[dict exists $opts $parsekey]} {
-            #    set found  $parsekey
-            #    set foundval [dict get $opts $parsekey]
-            #}
-            if {!$is_found && $parsekey ne $optset} {
-                #.g we may have in opts things like: -decreasing|-SORTDIRECTION -increasing|-SORTDIRECTION
-                #(where -SORTDIRECTION was configured as -parsekey)
-                #last entry must win
-                #NOTE - do not use dict for here. opts is not strictly a dict - dupe keys will cause wrong ordering
-                foreach {o v} $opts {
-                    if {[string match *|$parsekey $o]} {
-                        set foundkey $o
-                        set is_found 1
-                        set foundval $v
-                        #last match wins - don't 'break' out of foreach
-                    }
-                }
-            }
-            if {$is_found} {
-                dict set ordered_opts $foundkey    $foundval
-            } elseif {[tcl::dict::exists $OPT_DEFAULTS $optset]} {
-                if {$parsekey ne $optset} {
-                    set tailopt [string trimright [lindex [split $optset |] end] =]
-                    if {$tailopt ne $parsekey} {
-                        #defaults for multiple options sharing a -parsekey value ? review
-                        dict set ordered_opts $tailopt|$parsekey [dict get $OPT_DEFAULTS $optset]
-                    } else {
-                        dict set ordered_opts $parsekey [dict get $OPT_DEFAULTS $optset]
-                    }
-                } else {
-                    dict set ordered_opts $parsekey [dict get $OPT_DEFAULTS $optset]
-                }
-            }
-        }
-
-        #add in possible arbitrary opts after the defined opts, due to @opts directive flag '-any|-arbitrary true'
-        #But make sure not to add any repeated parsekey  e.g -increasing|-SORT -decreasing|-SORT
-        #use the seen_pks from the ordered_opts loop above
-        #keep working with opts only as list here..
-        if {[llength $opts] > 2*[dict size $ordered_opts]} {
-            foreach {o o_val} $opts {
-                lassign [split $o |] _ parsekey ;#single pipe - 2 elements only <fullflagformofflagused>|<parsekey>
-                if {$parsekey ne "" && $parsekey in $seen_pks} {
-                    continue
-                }
-                if {![dict exists $ordered_opts $o]} {
-                    dict set ordered_opts $o $o_val
-                }
-            }
-        }
-        set opts $ordered_opts
-        #opts is a proper dict now
-
-        #NOTE opts still may contain some entries in non-final form such as -flag|-PARSEKEY
-        #---------------------------------------
-
-
-        set positionalidx 0 ;#index for unnamed positionals (both leaders and values)
-        set leadername_multiple ""
-        set leadernames_received [list]
-
-        set num_leaders [llength $leaders]
-
-        #----------------------------------------
-        #Establish firm leaders ordering
-        set leaders_dict [dict create]
-        foreach lname [lrange $LEADER_NAMES 0 $num_leaders-1] {
-            dict set leaders_dict $lname {}
-        }
-        set leaders_dict [dict merge $leaders_dict $LEADER_DEFAULTS]
-        #----------------------------------------
-
-        set argument_clause_typestate [dict create] ;#Track *updated* -type info for argument clauses for those subelements that were fully validated during _get_dict_can_assign_value
-
-
-        set start_position $positionalidx
-        set nameidx 0
-        #MAINTENANCE - (*nearly*?) same loop logic as for value
-        for {set ldridx 0} {$ldridx < [llength $leaders]} {incr ldridx} {
-            set leadername  [lindex $LEADER_NAMES $nameidx]
-            set ldr         [lindex $leaders $ldridx]
-            if {$leadername ne ""} {
-                set leadertypelist [tcl::dict::get $argstate $leadername -type]
-                set leader_clause_size [llength $leadertypelist]
-
-                set assign_d    [_get_dict_can_assign_value $ldridx $leaders $nameidx $LEADER_NAMES $leadernames_received $formdict]
-                set consumed    [dict get $assign_d consumed]
-                set resultlist  [dict get $assign_d resultlist]
-                set newtypelist [dict get $assign_d typelist]
-                if {[tcl::dict::get $argstate $leadername -optional]} {
-                    if {$consumed == 0} {
-                        puts stderr "get_dict cannot assign val:$ldr to leadername:$leadername leaders:$leaders (111)"
-                        #return -options [list -code error -errorcode [list PUNKARGS UNCONSUMED -argspecs $argspecs]] "_get_dict_can_assign_value consumed 0 unexpected 1?"
-                        incr ldridx -1
-                        set leadername_multiple ""
-                        incr nameidx
-                        continue
-                    }
-                } else {
-                    #required named arg
-                    if {$consumed == 0} {
-                        if {$leadername ni $leadernames_received} {
-                            #puts stderr "_get_dict_can_assign_value $ldridx $values $nameidx $VAL_NAMES"
-                            set msg "Bad number of leaders for %caller%. Not enough remaining values to assign to required arguments (fail on $leadername)."
-                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list missingrequiredleader $leadername ] -argspecs $argspecs]] $msg
-                        } else {
-                            puts stderr "get_dict cannot assign val:$ldr to leadername:$leadername (222)"
-                            #return -options [list -code error -errorcode [list PUNKARGS UNCONSUMED -argspecs $argspecs]] "_get_dict_can_assign_value consumed 0 unexpected 2?"
-                            incr ldridx -1
-                            set leadername_multiple ""
-                            incr nameidx
-                            continue
-                        }
-                    }
-                }
-
-                if {$leader_clause_size == 1} {
-                    #set clauseval $ldr
-                    set clauseval [lindex $resultlist 0]
-                } else {
-                    set clauseval $resultlist
-                    incr ldridx [expr {$consumed - 1}]
-
-                    #not quite right.. this sets the -type for all clauses - but they should run independently
-                    #e.g if expr {} elseif 2 {script2} elseif 3 then {script3}  (where elseif clause defined as "literal(elseif) expr ?literal(then)? script")
-                    #the elseif 2 {script2} will raise an error because the newtypelist from elseif 3 then {script3} overwrote the newtypelist where then was given the type ?omitted-...?
-
-                    tcl::dict::set argstate $leadername -type $newtypelist ;#(possible ?omitted-<type>? and ?defaulted-<type>? entries
-                }
-
-                if {[tcl::dict::get $argstate $leadername -multiple]} {
-                    #if {[tcl::dict::exists $LEADER_DEFAULTS $leadername]} {
-                    #    #current stored ldr equals defined default - don't include default in the list we build up
-                    #    tcl::dict::set leaders_dict $leadername [list $clauseval] ;#important to treat first element as a list
-                    #} else {
-                    #    tcl::dict::lappend leaders_dict $leadername $clauseval
-                    #}
-                    if {$leadername in $leadernames_received} {
-                        tcl::dict::lappend leaders_dict $leadername $clauseval
-                        tcl::dict::lappend argument_clause_typestate $leadername $newtypelist
-                    } else {
-                        tcl::dict::set leaders_dict $leadername [list $clauseval]
-                        tcl::dict::set argument_clause_typestate $leadername [list $newtypelist]
-                    }
-                    set leadername_multiple $leadername
-                } else {
-                    tcl::dict::set leaders_dict $leadername $clauseval
-                    tcl::dict::set argument_clause_typestate $leadername [list $newtypelist]
-                    set leadername_multiple ""
-                    incr nameidx
-                }
-                lappend leadernames_received $leadername
-            } else {
-                if {$leadername_multiple ne ""} {
-                    set leadertypelist [tcl::dict::get $argstate $leadername_multiple -type]
-                    if {[llength $leadertypelist] == 1} {
-                        set clauseval $ldr
-                    } else {
-                        set clauseval [list]
-                        incr ldridx -1
-                        foreach t $leadertypelist {
-                            incr ldridx
-                            if {$ldridx > [llength $leaders]-1} {
-                                set msg "Bad number of leaders for %caller%. Received [llength $clauseval] values ('$clauseval') for '$leadername_multiple', but requires up to [llength $leadertypelist] values."
-                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list clausevaluelength [llength $clauseval] clauselength [llength $leadertypelist] ] -argspecs $argspecs]] $msg
-                            }
-                            lappend clauseval [lindex $leaders $ldridx]
-                        }
-                    }
-                    tcl::dict::lappend leaders_dict $leadername_multiple $clauseval
-                    #name already seen - but must add to leadernames_received anyway (as with opts and values)
-                    lappend leadernames_received $leadername_multiple
-                } else {
-                    if {$LEADER_UNNAMED} {
-                        tcl::dict::set leaders_dict     $positionalidx $ldr
-                        tcl::dict::set argstate         $positionalidx $LEADERSPEC_DEFAULTS
-                        tcl::dict::set arg_checks       $positionalidx $LEADER_CHECKS_DEFAULTS
-                        lappend leadernames_received    $positionalidx
-                    } else {
-                        set msg "Bad number of leaders for %caller%. Received more leaders than can be assigned to argument names. (set '@leaders -unnamed true' to allow unnamed leaders)"
-                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list toomanyarguments [llength $values] index $positionalidx] -argspecs $argspecs]] $msg
-                    }
-                }
-            }
-            set positionalidx [expr {$start_position + $ldridx + 1}]
-        }
-        #-----------------------------------------------------
-        #satisfy test parse_withdef_leaders_no_phantom_default
-        #foreach leadername [dict keys $leaders_dict] {
-        #    if {[string is integer -strict $leadername]} {
-        #        #ignore leadername that is a positionalidx
-        #        #review - always trailing - could use break?
-        #        continue
-        #    }
-        #    if {$leadername ni $leadernames_received && ![dict exists $LEADER_DEFAULTS $leadername]} {
-        #        #remove the name with empty-string default we used to establish fixed order of names
-        #        #The 'leaders' key in the final result shouldn't contain an entry for an argument that wasn't received and had no default.
-        #        dict unset leaders_dict $leadername
-        #    }
-        #}
-        dict for {leadername _v} $leaders_dict {
-            if {[string is integer -strict $leadername]} {
-                #ignore leadername that is a positionalidx
-                #review - always trailing - could use break?
-                continue
-            }
-            if {$leadername ni $leadernames_received && ![dict exists $LEADER_DEFAULTS $leadername]} {
-                #remove the name with empty-string default we used to establish fixed order of names
-                #The 'leaders' key in the final result shouldn't contain an entry for an argument that wasn't received and had no default.
-                dict unset leaders_dict $leadername
-            }
-        }
-        #-----------------------------------------------------
-
-
-        set validx 0
-        set valname_multiple ""
-        set valnames_received [list]
-
-        set num_values [llength $values]
-        #------------------------------------------
-        #Establish firm values ordering
-        ## Don't set values_dict to VAL_DEFAULTS - or order of values_dict will be intermittently wrong based on whether values have defaults
-        ## set values_dict $val_defaults
-        set values_dict [dict create]
-        foreach valname [lrange $VAL_NAMES 0 $num_values-1] {
-            #set ALL valnames to lock in positioning
-            #note - later we need to unset any optional that had no default and was not received (no phantom default)
-            dict set values_dict $valname {}
-        }
-        set values_dict [dict merge $values_dict $VAL_DEFAULTS]
-        #------------------------------------------
-        set nameidx 0
-        set start_position $positionalidx
-        #MAINTENANCE - (*nearly*?) same loop logic as for leaders
-        for {set validx 0} {$validx < [llength $values]} {incr validx} {
-            set valname     [lindex $VAL_NAMES $nameidx]
-            set val         [lindex $values $validx]
-            if {$valname ne ""} {
-                set valtypelist [tcl::dict::get $argstate $valname -type]
-                set clause_size [llength $valtypelist] ;#common case is clause_size == 1
-
-                set assign_d    [_get_dict_can_assign_value $validx $values $nameidx $VAL_NAMES $valnames_received $formdict]
-                set consumed    [dict get $assign_d consumed]
-                set resultlist  [dict get $assign_d resultlist]
-                set newtypelist [dict get $assign_d typelist]
-                if {[tcl::dict::get $argstate $valname -optional]} {
-                    if {$consumed == 0} {
-                        #error 333
-                        puts stderr "get_dict cannot assign val:$val to valname:$valname (333)"
-                        incr validx -1
-                        set valname_multiple ""
-                        incr nameidx
-                        continue
-                    }
-                } else {
-                    #required named arg
-                    if {$consumed == 0} {
-                        if {$valname ni $valnames_received} {
-                            #puts stderr "_get_dict_can_assign_value $validx $values $nameidx $VAL_NAMES"
-                            set msg "Bad number of values for %caller%. Not enough remaining values to assign to required arguments (fail on $valname)."
-                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list missingrequiredvalue $valname ] -argspecs $argspecs]] $msg
-                        } else {
-                            #error 444
-                            puts stderr "get_dict cannot assign val:$val to valname:$valname (444)"
-                            incr validx -1
-                            set valname_multiple ""
-                            incr nameidx
-                            continue
-                        }
-                    }
-                }
-                #assert can_assign != 0, we have at least one value to assign to clause
-
-                if {$clause_size == 1} {
-                    #set clauseval $val
-                    set clauseval [lindex $resultlist 0]
-                } else {
-                    #clauseval must contain as many elements as the max length of -types!
-                    #(empty-string/default for optional (?xxx?) clause members)
-                    set clauseval $resultlist
-                    #_get_dict_can_assign has only validated clause-length and literals match
-                    #we assign and leave further validation for main validation loop.
-                    incr validx [expr {$consumed -1}]
-                    if {$validx > [llength $values]-1} {
-                        error "get_dict unreachable"
-                        set msg "Bad number of values for %caller%. Received [llength $clauseval] values for clause '$valname', but requires up to $clause_size values."
-                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list clausevaluelength [llength $clauseval] clauselength $clause_size ] -argspecs $argspecs]] $msg
-                    }
-
-                    #incorrect - we shouldn't update the default. see argument_clause_typestate dict of lists of -type
-                    tcl::dict::set argstate $valname -type $newtypelist ;#(possible ?omitted-<type>? and ?defaulted-<type>? entries
-                }
-
-                if {[tcl::dict::get $argstate $valname -multiple]} {
-                    #if {[tcl::dict::exists $VAL_DEFAULTS $valname]} {
-                    #    #current stored val equals defined default - don't include default in the list we build up
-                    #    tcl::dict::set values_dict $valname [list $clauseval] ;#important to treat first element as a list
-                    #} else {
-                    #    tcl::dict::lappend values_dict $valname $clauseval
-                    #}
-                    if {$valname in $valnames_received} {
-                        tcl::dict::lappend values_dict $valname $clauseval
-                        tcl::dict::lappend argument_clause_typestate $valname $newtypelist
-                    } else {
-                        tcl::dict::set values_dict $valname [list $clauseval]
-                        tcl::dict::set argument_clause_typestate $valname [list $newtypelist]
-                    }
-                    set valname_multiple $valname
-                } else {
-                    tcl::dict::set values_dict $valname $clauseval
-                    tcl::dict::set argument_clause_typestate $valname [list $newtypelist] ;#list protect
-                    set valname_multiple ""
-                    incr nameidx
-                }
-                lappend valnames_received $valname
-            } else {
-                #unnamed
-                if {$valname_multiple ne ""} {
-                    set valtypelist [tcl::dict::get $argstate $valname_multiple -type]
-                    if {[llength $valname_multiple] == 1} {
-                        set clauseval $val
-                    } else {
-                        set clauseval [list]
-                        incr validx -1
-                        for {set i 0} {$i < [llength $valtypelist]} {incr i} {
-                            incr validx
-                            if {$validx > [llength $values]-1} {
-                                set msg "Bad number of values for %caller%. Received [llength $clauseval] values for clause '$valname_multiple', but requires [llength $valtypelist] values."
-                                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list clausevaluelength [llength $clauseval] clauselength [llength $valtypelist] ] -argspecs $argspecs]] $msg
-                            }
-                            lappend clauseval [lindex $values $validx]
-                        }
-                    }
-                    tcl::dict::lappend values_dict $valname_multiple $clauseval
-                    #name already seen - but must add to valnames_received anyway (as with opts and leaders)
-                    lappend valnames_received $valname_multiple
-                } else {
-                    if {$VAL_UNNAMED} {
-                        tcl::dict::set values_dict  $positionalidx $val
-                        tcl::dict::set argstate     $positionalidx $VALSPEC_DEFAULTS
-                        tcl::dict::set arg_checks   $positionalidx $VAL_CHECKS_DEFAULTS
-                        lappend valnames_received   $positionalidx
-                    } else {
-                        set msg "Bad number of values for %caller%. Received more values than can be assigned to argument names. (set '@values -unnamed true' to allow unnamed values)"
-                        return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list toomanyarguments [llength $values] index $positionalidx] -argspecs $argspecs]] $msg
-                    }
-                }
-            }
-            set positionalidx [expr {$start_position + $validx + 1}]
-        }
-        #-----------------------------------------------------
-        #satisfy test parse_withdef_values_no_phantom_default
-        foreach vname [dict keys $values_dict] {
-            if {[string is integer -strict $vname]} {
-                #ignore vname that is a positionalidx
-                #review - always trailing - could break?
-                continue
-            }
-            if {$vname ni $valnames_received && ![dict exists $VAL_DEFAULTS $vname]} {
-                #remove the name with empty-string default we used to establish fixed order of names
-                #The 'values' key in the final result shouldn't contain an entry for an argument that wasn't received and had no default.
-                dict unset values_dict $vname
-            }
-        }
-        #-----------------------------------------------------
-        #JJJJJJ
-        #if {[dict size $argument_clause_typestate]} {
-        #    puts ">>>>>[dict get $argspecs id] typestate $argument_clause_typestate"
-        #}
-
-        if {$leadermax == -1} {
-            #only check min
-            if {$num_leaders < $leadermin} {
-                set msg "Bad number of leading values for %caller%. Got $num_leaders leaders. Expected at least $leadermin"
-                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list leadingvaluecount $num_leaders min $leadermin max $leadermax] -argspecs $argspecs]] $msg
-            }
-        } else {
-            if {$num_leaders < $leadermin || $num_leaders > $leadermax} {
-                if {$leadermin == $leadermax} {
-                    set msg "Bad number of leading values for %caller%. Got $num_leaders leaders. Expected exactly $leadermin"
-                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list leadingvaluecount $num_leaders min $leadermin max $leadermax] -argspecs $argspecs]] $msg
-                } else {
-                    set msg "Bad number of leading values for %caller%. Got $num_leaders leaders. Expected between $leadermin and $leadermax inclusive"
-                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list leadingvaluecount $num_leaders min $leadermin max $leadermax] -argspecs $argspecs]] $msg
-                }
-            }
-        }
-
-        if {$valmax == -1} {
-            #only check min
-            if {$num_values < $valmin} {
-                set msg "Bad number of trailing values for %caller%. Got $num_values values. Expected at least $valmin"
-                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list trailingvaluecount $num_values min $valmin max $valmax] -argspecs $argspecs]] $msg
-            }
-        } else {
-            if {$num_values < $valmin || $num_values > $valmax} {
-                if {$valmin == $valmax} {
-                    set msg "Bad number of trailing values for %caller%. Got $num_values values. Expected exactly $valmin"
-                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list trailingvaluecount $num_values min $valmin max $valmax] -argspecs $argspecs]] $msg
-                } else {
-                    set msg "Bad number of trailing values for %caller%. Got $num_values values. Expected between $valmin and $valmax inclusive"
-                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list trailingvaluecount $num_values min $valmin max $valmax] -argspecs $argspecs]] $msg
-                }
-            }
-        }
-
-        #assertion - opts keys are full-length option names if -any|-arbitrary was false or if the supplied option as a shortname matched one of our defined options
-        #(and may still contain non-final flag_ident entries such as -increasing|-SORTDIRECTION)
-
-
-        #opts explicitly marked as -optional 0 must be present - regardless of -any|-arbitrary (which allows us to ignore additional opts to pass on to next call)
-        #however - if -any|-arbitrary is true, there is a risk we will treat a shortened option name as matching our default - when it was intended for the next call
-        #We SHOULD? always require exact matches for all required opts to avoid this risk, even though an ultimately-called function may not require the full-length option-name REVIEW
-        #The aim is to allow a wrapper function to specify a default value for an option (and/or other changes/restrictions to a particular option or two) - without having to re-specify all the options for the underlying function.
-        #without full respecification in the wrapper - we can't know that a supplied prefix is unambiguous at the next level
-        #For this reason we need to pass on full-length opts for any defined options in the wrapper even if anyopts is true
-
-        #safe interp note - struct::set difference ensemble could be c or tcl implementation and we don't have an option to call directly?
-        #example timing difference:
-        #struct::set difference {x} {a b}
-        #normal interp 0.18 u2   vs safe interp 9.4us
-        #if {[llength [set missing [struct::set difference $OPT_REQUIRED $flagsreceived]]]} {
-        #    error "Required option missing for [Get_caller]. missing flags $missing  are marked with -optional false - so must be present in full-length form"
-        #}
-        #if {[llength [set missing [struct::set difference $VAL_REQUIRED $valnames_received]]]} {
-        #       error "Required value missing for [Get_caller]. missing values $missing marked with -optional false - so must be present"
-        #}
-        #for now (2024-06) punk::lib::ldiff is a better compromise across normal/safe interps e.g 0.7/0.8us
-        if {[llength $LEADER_REQUIRED]} {
-            if {[llength [set missing [punklib_ldiff $LEADER_REQUIRED $leadernames_received]]]} {
-                set msg "Required leader missing for %caller%. missing values: '$missing' marked with -optional false - so must be present"
-                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list leadermissing $missing received $leadernames_received] -argspecs $argspecs]] $msg
-                #arg_error "Required leader missing for [Get_caller]. missing values: '$missing' marked with -optional false - so must be present" $argspecs
-            }
-        }
-        if {[llength $OPT_REQUIRED]} {
-            set api_opt_required [lmap v $OPT_REQUIRED {lindex [split $v |] end}]
-            if {[llength [set missing [punklib_ldiff $api_opt_required $flagsreceived]]]} {
-                set full_missing [dict get $lookup_optset $missing]
-                set msg "Required option missing for %caller%. missing flags: '$full_missing'  are marked with -optional false - so must be present"
-                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list optionmissing $full_missing received $flagsreceived] -argspecs $argspecs]] $msg
-                #arg_error "Required option missing for [Get_caller]. missing flags: '$missing'  are marked with -optional false - so must be present " $argspecs
-            }
-        }
-        if {[llength $VAL_REQUIRED]} {
-            if {[llength [set missing [punklib_ldiff $VAL_REQUIRED $valnames_received]]]} {
-                set msg "Required value missing for %caller%. missing values: '$missing' marked with -optional false - so must be present"
-                return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list valuemissing $missing received $valnames_received] -argspecs $argspecs]] $msg
-                #arg_error "Required value missing for [Get_caller]. missing values: '$missing' marked with -optional false - so must be present" $argspecs
-            }
-        }
-
-        #---------------------------------------------------------------------------------------------
-        #maintain order of opts $opts values $values as caller may use lassign.
-        set receivednames [list {*}$leadernames_received {*}$flagsreceived {*}$valnames_received]
-        if {[llength $receivednames]} {
-            #flat zip of names with overall posn, including opts
-            #set received_posns [concat {*}[lmap a $receivednames b [zero_based_posns [llength $receivednames]] {list $a $b}]]
-            set i -1
-            set received_posns [concat {*}[lmap a $receivednames {list $a [incr i]}]]
-        } else {
-            set received_posns [list]
-        }
-        #Note that $received_posns is often tested as if a dict by functions to determine quickly if a variable was received (versus just having a default value)
-        #(e.g using 'dict exists $received -flag')
-        # - but it can have duplicate keys when args/opts have -multiple 1
-        #It is actually a list of paired elements
-        #---------------------------------------------------------------------------------------------
-
-
-        #todo - truncate/summarize values in error messages
-
-        #todo - allow defaults outside of choices/ranges
-
-        #check types,ranges,choices
-        set opts_and_values [tcl::dict::merge $leaders_dict $opts $values_dict]
-        #set combined_defaults [tcl::dict::merge $VAL_DEFAULTS $OPT_DEFAULTS] ;#can be no key collisions - we don't allow a value key beginning with dash - opt names must begin with dash
-        #puts "get_dict>>>>>>>> ---opts_and_values:$opts_and_values"
-        #puts "        >>>>>>>  ---lookup_optset  :$lookup_optset"
-        #puts "---argstate:$argstate"
-        #JJJ argname_or_ident;  ident example: -increasing|-SORTOPTION
-        tcl::dict::for {argname_or_ident value_group} $opts_and_values {
-            #
-            #parsekey: key used in resulting leaders opts values dictionaries
-            #          often distinct from the full argname in the ARG_INFO structure
-            #
-            if {[string match -* $argname_or_ident]} {
-                #ident format only applies to options/flags
-                if {[string first | $argname_or_ident] > -1} {
-                    #flag_ident style (grouped fullname of option with -parsekey)
-                    lassign [split $argname_or_ident |] fullflag parsekey ;#we expect only a single pipe in ident form <fullflag>|<parsekey>
-                    if {[dict exists $lookup_optset $fullflag]} {
-                        set argname [dict get $lookup_optset $fullflag]
-                        #idents should already have correct parsekey
-                    } else {
-                        puts stderr "punk::args::get_dict unable to find $fullflag in $lookup_optset (parsekey:$parsekey) (value_group: $value_group)"
-                    }
-                } else {
-                    if {[dict exists $lookup_optset $argname_or_ident]} {
-                        #get full option name such as -fg|-foreground from non-alias name such as -foreground
-                        #if "@opts -any|-arbitrary true" - we may have an option that wasn't defined
-                        set argname [dict get $lookup_optset $argname_or_ident]
-                        set pkoverride [Dict_getdef $argstate -parsekey ""]
-                        if {$pkoverride ne ""} {
-                            set parsekey $pkoverride
-                        } else {
-                            #default parsekey: last element in argname without trailing =
-                            set parsekey [string trimright [lindex [split $argname |] end] =]
-                        }
-                    } else {
-                        puts stderr "punk::args::get_dict unable to find $argname_or_ident in $lookup_optset (value_group: $value_group)"
-                    }
-                }
-            } else {
-                set argname $argname_or_ident
-                set pkoverride [Dict_getdef $argstate -parsekey ""]
-                if {$pkoverride ne ""} {
-                    set parsekey $pkoverride
-                } else {
-                    #leader or value of form x|y has no special meaning and forms the parsekey in entirety by default.
-                    set parsekey $argname
-                }
-            }
-            #assert: argname is the key for the relevant argument info in the FORMS/<name>/ARG_INFO dict. (here each member available as $argstate)
-            #argname is usually the full name as specified in the definition:
-            #e.g -f|-path|--filename=
-            # (where the parsekey will be by default --filename, possibly overridden by -parsekey value)
-            #an example argname_or_compound for the above might be: -path|--filename
-            # where -path is the expanded form of the actual flag used (could have been for example just -p) and --filename is the parsekey
-
-            set thisarg                     [tcl::dict::get $argstate $argname]
-            #set thisarg_keys               [tcl::dict::keys $thisarg]
-            set thisarg_checks              [tcl::dict::get $arg_checks $argname]
-            set is_multiple                 [tcl::dict::get $thisarg -multiple]
-            set is_allow_ansi               [tcl::dict::get $thisarg -allow_ansi]
-            set is_validate_ansistripped    [tcl::dict::get $thisarg -validate_ansistripped]
-            set is_strip_ansi               [tcl::dict::get $thisarg -strip_ansi]
-            set has_default                 [tcl::dict::exists $thisarg -default]
-            if {$has_default} {
-                set defaultval [tcl::dict::get $thisarg -default]
-            }
-            set typelist                    [tcl::dict::get $thisarg -type]
-            set clause_size                 [llength $typelist]
-            set has_choices                 [expr {[tcl::dict::exists $thisarg -choices] || [tcl::dict::exists $thisarg -choicegroups]}]
-            set validationtransform         [tcl::dict::get $thisarg -validationtransform]
-
-
-            #JJJJ
-            #if {$is_multiple} {
-            #    set vlist $value_group
-            #} else {
-            #    set vlist [list $value_group]
-            #}
-            ##JJJJ
-            #if {$clause_size == 1} {
-            #    set vlist [list $vlist]
-            #}
-
-
-            #JJ 2025-07-25
-            set vlist [list]
-            #vlist is a list of clauses.  Each clause is a list of values of length $clause_size.
-            #The common case is clause_size 1 - but as we need to treat each clause as a list during validation - we need to list protect the clause when clause_size == 1.
-            if {$is_multiple} {
-                if {$clause_size == 1} {
-                    foreach c $value_group {
-                        lappend vlist [list $c]
-                    }
-                } else {
-                    set vlist $value_group
-                }
-            } else {
-                if {$clause_size ==1} {
-                    set vlist [list [list $value_group]]
-                } else {
-                    set vlist [list $value_group]
-                }
-            }
-            set vlist_typelist [list]
-            if {[dict exists $argument_clause_typestate $argname]} {
-                #lookup saved newtypelist (argument_clause_typelist) from can_assign_value result where some optionals were given type ?omitted-<tp>? or ?defaulted-<tp>?
-                # args.test: parse_withdef_value_clause_missing_optional_multiple
-                set vlist_typelist [dict get $argument_clause_typestate $argname]
-            } else {
-                foreach v $vlist {
-                    lappend vlist_typelist $typelist
-                }
-            }
-
-
-
-            set vlist_original $vlist ;#retain for possible final strip_ansi
-
-            #review - validationtransform
-            if {$is_validate_ansistripped} {
-                #validate_ansistripped 1
-                package require punk::ansi
-                set vlist_check [list]
-                foreach clause_value $vlist {
-                    #lappend vlist_check [punk::ansi::ansistrip $clause_value]
-                    set stripped [list]
-                    foreach element $clause_value {
-                        lappend stripped [punk::ansi::ansistrip $element]
-                    }
-                    lappend vlist_check $stripped
-                }
-            } else {
-                #validate_ansistripped 0
-                set vlist_check $vlist
-            }
-
-            switch -- [Dict_getdef $thisarg -ARGTYPE unknown] {
-                leader {
-                    set dname leaders_dict
-                    set argclass "Leading argument"
-                }
-                option {
-                    set dname opts
-                    set argclass Option
-                }
-                value {
-                    set dname values_dict
-                    set argclass "Trailing argument"
-                }
-                default {
-                    set dname "_unknown_" ;#NA
-                    set argclass "Unknown argument"
-                }
-            }
-            set vlist_validate          [list]
-            set vlist_check_validate    [list]
-            set vlist_typelist_validate [list]
-            #reduce our validation requirements by removing values which match defaultval or  match -choices
-            #(could be -multiple with -choicerestricted 0 where some selections match and others don't)
-            if {$parsekey in $receivednames && $has_choices} {
-                #-choices must also work with -multiple
-                #todo -choicelabels
-                set choiceprefix            [tcl::dict::get $thisarg -choiceprefix]
-                set choiceprefixdenylist    [Dict_getdef $thisarg -choiceprefixdenylist {}]
-                set choiceprefixreservelist [Dict_getdef $thisarg -choiceprefixreservelist {}]
-                set choicerestricted        [tcl::dict::get $thisarg -choicerestricted]
-                set choicemultiple          [tcl::dict::get $thisarg -choicemultiple]
-                if {[string is integer -strict $choicemultiple]} {
-                    set choicemultiple [list $choicemultiple $choicemultiple]
-                }
-                lassign $choicemultiple choicemultiple_min choicemultiple_max
-                set nocase              [tcl::dict::get $thisarg -nocase]
-                set choices             [Dict_getdef $thisarg -choices {}]
-                set choicegroups        [Dict_getdef $thisarg -choicegroups {}]
-                set allchoices $choices
-                if {[dict size $choicegroups]} {
-                    dict for {groupname groupmembers} $choicegroups {
-                        lappend allchoices {*}$groupmembers
-                    }
-                }
-                #note we can legitimately have dups in allchoices - if a choice should be documented to display in multiple groups
-                #This means we have to be dedup for testing with tcl::prefix::match - or the duped entries won't accept prefixes
-
-
-                set clause_index -1 ;#
-                #leaders_dict/opts/values_dict $argname member has been populated with the actual entered choices - which might be prefixes
-                #assert llength $vlist == llength [dict get $dname $argname]
-                # (unless there was a default and the option wasn't specified)
-                #J2
-                #set vlist_validate [list]
-                #set vlist_check_validate [list]
-                foreach clause $vlist clause_check $vlist_check clause_typelist $vlist_typelist {
-                    incr clause_index
-                    set element_index -1 ;#element within clause - usually clause size is only 1
-                    foreach e $clause e_check $clause_check {
-                        incr element_index
-                        set allchoices_in_list 0
-                        if {$choicemultiple_max > 1 || $choicemultiple_max == -1} {
-                            #vlist and vlist_check can be list of lists if -multiple and -choicemultiple
-                            #each e represents 0 or more choice selections
-                            set c_list $e
-                            set c_check_list $e_check
-                            #todo? check if entire list matches default?
-                        } else {
-                            #only one choice at a time - ensure single entry in c_list c_check_list
-                            set c_list      [list $e]
-                            set c_check_list [list $e_check]
-                        }
-
-
-                        #-----------------------------------
-                        #fast fail on the wrong number of choices
-                        if {[llength $c_list] < $choicemultiple_min} {
-                            set msg "$argclass $argname for %caller% requires at least $choicemultiple_min choices. Received [llength $c_list] choices."
-                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list choicecount [llength $c_list] minchoices $choicemultiple_min maxchoices $choicemultiple_max] -badarg $argname]] $msg
-                        }
-                        if {$choicemultiple_max != -1 && [llength $c_list] > $choicemultiple_max} {
-                            set msg "$argclass $argname for %caller% requires at most $choicemultiple_max choices. Received [llength $c_list] choices."
-                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list choicecount [llength $c_list] minchoices $choicemultiple_min maxchoices $choicemultiple_max] -badarg $argname]] $msg
-                        }
-                        #-----------------------------------
-
-                        set choice_idx 0 ;#we need to overwrite raw-choice (which may be prefix) with a value from the choice list
-                        foreach c $c_list c_check $c_check_list {
-                            if {$nocase} {
-                                set casemsg " (case insensitive)"
-                                set choices_test [tcl::string::tolower $allchoices]
-                                #Don't lcase the denylist - even in nocase mode!
-                                #set choiceprefixdenylist [tcl::string::tolower $choiceprefixdenylist]
-                                set v_test [tcl::string::tolower $c_check]
-                            } else {
-                                set casemsg " (case sensitive)"
-                                set choices_test $allchoices
-                                set v_test $c_check
-                            }
-                            set choice_in_list 0
-                            set matches_default [expr {$has_default && $c eq $defaultval}]  ;# defaultval when -choicemultiple could be a list?
-                            if {!$matches_default} {
-                                if {$choiceprefix} {
-                                    #can we handle empty string as a choice? It should just work - REVIEW/test
-                                    set choice_exact_match 0
-                                    if {$c_check in $allchoices} {
-                                        #for case when there are case-differenced duplicates - allow exact match to avoid selecting earlier match of another casing
-                                        set chosen $c_check
-                                        set choice_in_list 1
-                                        set choice_exact_match 1
-                                    } elseif {$v_test in $choices_test} {
-                                        #assert - if we're here, nocase must be true
-                                        #we know choice is present as full-length match except for case
-                                        #now we want to select the case from the choice list - not the supplied value
-                                        #we don't set choice_exact_match - because we will need to override the optimistic existing val below
-                                        #review
-                                        foreach avail [lsort -unique $allchoices] {
-                                            if {[string match -nocase $c $avail]} {
-                                                set chosen $avail
-                                            }
-                                        }
-                                        #assert chosen will always get set
-                                        set choice_in_list 1
-                                    } else {
-                                        #puts ">>>> choiceprefixreservelist: $choiceprefixreservelist"
-                                        #PREFIX check required - any 'chosen' here is not an exact match or it would have matched above.
-                                        #assert - if empty string was a provided choice and empty string was a provided arg - we would have matched above.
-                                        #in this block we can treat empty result from prefix match as a non-match
-                                        if {$nocase} {
-                                            #nocase implies that our entered value doesn't have to match case of choices -
-                                            #but we would still like to select the best match if there are case-dups.
-                                            #e.g arg -choices {delete Delete} -nocase 1 -choiceprefixdenylist delete
-                                            # selecting Del will find Delete, del will match delete (and raise error)
-                                            # but DEL will also match delete rather than Delete - so again an error is raised.
-                                            #This is counterintuitive with -nocase
-                                            #This is probably such an edge case that best served with documentation as a feature-not-bug
-                                            #Rationale being that in a nocase situation it's arbitrary/counterintuitive to consider DEL, or DeL a better match for Delete than delete?
-                                            #The choice of the user to use -choiceprefixdenylist along with case-dups is the issue.
-
-                                            set bestmatch   [tcl::prefix::match -error "" [list {*}[lsort -unique $allchoices] {*}$choiceprefixreservelist] $c_check]
-                                            if {$bestmatch eq "" || $bestmatch in $choiceprefixreservelist} {
-                                                set chosen      [tcl::prefix::match -error "" [list {*}[lsort -unique $choices_test] {*}$choiceprefixreservelist] $v_test]
-                                                #now pick the earliest match in the actually defined list so that case of chosen always matches a defined entry with casing
-                                                set chosen [lsearch -inline -nocase $allchoices $chosen]
-                                                set choice_in_list [expr {$chosen ne ""}]
-                                            } else {
-                                                set chosen $bestmatch
-                                                set choice_in_list 1
-                                            }
-                                        } else {
-                                            set chosen [tcl::prefix::match -error "" [list {*}[lsort -unique $allchoices] {*}$choiceprefixreservelist] $c_check]
-                                            if {$chosen eq "" || $chosen in $choiceprefixreservelist} {
-                                                set choice_in_list 0
-                                            } else {
-                                                set choice_in_list 1
-                                            }
-                                        }
-                                        #override choice_in_list if in deny list
-                                        #don't allow prefixing for elements from -choiceprefixdenylist
-                                        #we still use all elements to calculate the prefixes though
-                                        #review - case difference edge cases in choiceprefixdenylist !todo
-                                        if {$chosen in $choiceprefixdenylist} {
-                                            set choice_in_list 0
-                                            set chosen ""
-                                        }
-                                    }
-
-                                    #override the optimistic existing val
-                                    #our existing values in $dname are not list-protected - so we need to check clause_size
-                                    if {$choice_in_list && !$choice_exact_match} {
-                                        set existing        [tcl::dict::get [set $dname] $argname_or_ident]
-                                        if {$choicemultiple_max != -1 && $choicemultiple_max < 2} {
-                                            #single choice allowed per clause-member
-                                            if {$is_multiple} {
-                                                if {$clause_size == 1} {
-                                                    #no list wrapping of single element in $dname dict - so don't index into it with element_index
-                                                    lset existing       $element_index $chosen
-                                                } else {
-                                                    lset existing       $clause_index $element_index $chosen
-                                                }
-                                                tcl::dict::set      $dname $argname_or_ident $existing
-                                            } else {
-                                                #test: choice_multielement_clause
-                                                lset existing       $element_index $chosen
-                                                tcl::dict::set      $dname $argname_or_ident $existing
-                                            }
-                                        } else {
-                                            if {$is_multiple} {
-                                                #puts ">>> existing $existing $choice_idx"
-                                                if {$clause_size == 1} {
-                                                    #no list wrapping of single element in $dname dict - so don't index into it with element_index
-                                                    lset existing       $clause_index $choice_idx  $chosen
-                                                } else {
-                                                    lset existing       $clause_index $element_index $choice_idx  $chosen
-                                                }
-                                                tcl::dict::set      $dname $argname_or_ident $existing
-                                            } else {
-                                                lset existing       $element_index $choice_idx $chosen
-                                                tcl::dict::set      $dname $argname_or_ident  $existing
-                                            }
-                                        }
-                                    }
-                                } else {
-                                    #value as stored in $dname is ok
-                                    set choice_in_list [expr {$v_test in $choices_test}]
-                                }
-                            }
-
-                            if {!$choice_in_list && !$matches_default} {
-                                if {!$choicerestricted} {
-                                    #if {$is_multiple} {
-                                    #    set existing        [tcl::dict::get [set $dname] $argname]
-                                    #    lset existing $clause_index $v_test
-                                    #    tcl::dict::set      $dname $argname $existing
-                                    #} else {
-                                    #    tcl::dict::set      $dname $argname $v_test
-                                    #}
-                                    #JJJ
-                                    #lappend vlist_validate $c
-                                    #lappend vlist_check_validate $c_check
-                                } else {
-                                    #unhappy path
-                                    if {$choiceprefix} {
-                                        set prefixmsg " (or a unique prefix of a value)"
-                                    } else {
-                                        set prefixmsg ""
-                                    }
-                                    #review: $c vs $c_check for -badval?
-                                    set msg "$argclass '$argname' for %caller% must be one of the listed values:\n    [join $allchoices "\n    "]\n$casemsg$prefixmsg. Received: '$c_check'"
-                                    return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list choiceviolation $c choices $allchoices] -badarg $argname -badval $c_check -argspecs $argspecs]] $msg
-                                    #arg_error "Option $argname for [Get_caller] must be one of the listed values:\n    [join $allchoices "\n    "]\n$casemsg$prefixmsg. Received: '$c'" $argspecs -badarg $argname
-                                }
-                            } else {
-                                #choice is in list or matches default - no validation for this specific element in the clause
-                                lset clause_typelist $element_index any
-                            }
-                            incr choice_idx
-                        }
-
-                    } ;#end foreach e in clause
-                    #jjj 2025-07-16
-                    #if not all clause_typelist are 'any'
-                    if {[lsearch -not $clause_typelist any] > -1} {
-                        #at least one element still needs validation
-                        lappend vlist_validate $clause
-                        lappend vlist_check_validate $clause_check
-                        lappend vlist_typelist_validate $clause_typelist
-                    }
-
-
-                } ;#end foreach clause in vlist
-
-                #reduce our vlist and vlist_check lists by removing choice matches as they need to be passed through without validation
-                #we also have retained any that match defaultval - whether or not it was in -choices or -choicegroups
-                set vlist           $vlist_validate
-                set vlist_check     $vlist_check_validate
-                set vlist_typelist  $vlist_typelist_validate
-            }
-
-            #todo - don't add to validation lists if not in receivednames
-            #if we have an optionset such as "-f|-x|-etc"; the parsekey is -etc (unless it was overridden by -parsekey in definition)
-            if {$parsekey ni $receivednames} {
-                set vlist [list]
-                set vlist_check_validate [list]
-            } else {
-                if {[llength $vlist] && $has_default} {
-                    #defaultval here is a value for the entire clause. (clause usually length 1)
-                    #J2
-                    #set vlist_validate [list]
-                    #set vlist_check_validate [list]
-                    set tp [dict get $thisarg -type]
-                    set clause_size [llength $tp]
-                    foreach clause_value $vlist clause_check $vlist_check clause_typelist $vlist_typelist {
-                        #JJJJ
-                        #REVIEW!!! we're inadvertently adding back in things that may have already been decided in choicelist loop as not requiring validation?
-                        if {$clause_value ni $vlist_validate} {
-                            if {$clause_size ==1} {
-                                #for -choicemultiple with default that could be a list use 'ni'
-                                #?? review!
-                                if {[lindex $clause_check 0] ne $defaultval} {
-                                    lappend vlist_validate          $clause_value
-                                    lappend vlist_check_validate    $clause_check
-                                    lappend vlist_typelist_validate $clause_typelist
-                                }
-                            } else {
-                                if {$clause_check ne $defaultval} {
-                                    lappend vlist_validate          $clause_value
-                                    lappend vlist_check_validate    $clause_check
-                                    lappend vlist_typelist_validate $clause_typelist
-                                }
-                            }
-                        }
-                        #if {[llength $tp] == 1} {
-                        #    if {$clause_value ni $vlist_validate} {
-                        #        #for -choicemultiple with default that could be a list use 'ni'
-                        #        #?? review!
-                        #        if {[lindex $clause_check 0] ne $defaultval} {
-                        #            lappend vlist_validate $clause_value
-                        #            lappend vlist_check_validate $clause_check
-                        #        }
-                        #    }
-                        #} else {
-                        #    if {$clause_value ni $vlist_validate} {
-                        #        if {$clause_check ne $defaultval} {
-                        #            lappend vlist_validate $clause_value
-                        #            lappend vlist_check_validate $clause_check
-                        #        }
-                        #    }
-                        #}
-                        #Todo?
-                        #else ???
-                    }
-                    set vlist           $vlist_validate
-                    set vlist_check     $vlist_check_validate
-                    set vlist_typelist  $vlist_typelist_validate
-                }
-            }
-
-            #is_allow_ansi doesn't apply to a value matching a supplied -default, or values matching those in -choices/-choicegroups
-            #assert: our vlist & vlist_check lists have been reduced to remove those
-            if {[llength $vlist] && !$is_allow_ansi} {
-                #allow_ansi 0
-                package require punk::ansi
-                #do not run ta::detect on a list
-                foreach clause_value $vlist {
-                    foreach e $clause_value {
-                        if {[punk::ansi::ta::detect $e]} {
-                            set msg "$argclass '$argname' for %caller% contains ansi - but -allow_ansi is false. character-view: '[punk::ansi::ansistring VIEW $e]'"
-                            return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list contentviolation ansi] -badarg $argname -argspecs $argspecs]] $msg
-                        }
-                    }
-                }
-            }
-            #puts "argname:$argname v:$v  is_default:$is_default"
-            #we want defaults to pass through - even if they don't pass the checks that would be required for a specified value
-            #If the caller manually specified a value that happens to match the default - we don't detect that as any different from an unspecified value - Review.
-            #arguments that are at their default are not subject to type and other checks
-
-            #don't validate defaults or choices that matched
-            #puts "---> opts_and_values: $opts_and_values"
-            #puts "===> argname: $argname is_default: $is_default is_choice: $is_choice"
-            #if {(!$has_choices && !$is_default) || ($has_choices && (!$is_default && !$choices_all_match))} {}
-
-            #our validation-required list could have been reduced to none e.g if match -default or defined -choices/-choicegroups
-            #assert [llength $vlist] == [llength $vlist_check]
-            if {[llength $vlist]} {
-                #$t = clause column
-
-                #for {set clausecolumn 0} {$clausecolumn < [llength $typelist]} {incr clausecolumn} {}
-                set clausecolumn -1
-                foreach typespec $typelist {
-                    incr clausecolumn
-                    if {[dict exists $thisarg -typedefaults]} {
-                        set tds [dict get $thisarg -typedefaults]
-                        if {[lindex $vlist $clausecolumn] eq [lindex $tds $clausecolumn]} {
-                            continue
-                        }
-                    }
-
-                    set type_expression [string trim $typespec ?]
-                    if {$type_expression in {any none}} {
-                        continue
-                    }
-                    #puts "$argname - switch on type_expression: $type_expression v:[lindex $vlist $clausecolumn]"
-                    #set typespec [lindex $typelist $clausecolumn]
-                    #todo - handle type-alternates e.g -type char|double
-                    #------------------------------------------------------------------------------------
-                    #_check_clausecolumn    argname  argclass  thisarg  thisarg_checks  column         default_type_expression    list_of_clauses list_of_clauses_check     list_of_clauses_typelist
-                    _check_clausecolumn     $argname $argclass $thisarg $thisarg_checks $clausecolumn  $type_expression           $vlist          $vlist_check              $vlist_typelist             $argspecs
-                    #------------------------------------------------------------------------------------
-
-
-                    #todo - pass validation if matches an entry in -typedefaults
-                    #has_typedefault?
-                    #set typedefault [lindex $typedefaults $clausecolumn]
-
-
-                }
-
-
-            }
-
-            if {$is_strip_ansi} {
-                set stripped_list [lmap e $vlist_original {punk::ansi::ansistrip $e}] ;#no faster or slower, but more concise than foreach
-                if {[tcl::dict::get $thisarg -multiple]} {
-                    switch -- [tcl::dict::get $thisarg -ARGTYPE] {
-                        leader {
-                            tcl::dict::set leaders_dict $argname_or_ident $stripped_list
-                        }
-                        option {
-                            tcl::dict::set opts $argname_or_ident $stripped_list
-                        }
-                        value {
-                            tcl::dict::set values_dict $argname_or_ident $stripped_list
-                        }
-                    }
-                } else {
-                    switch -- [tcl::dict::get $thisarg -ARGTYPE] {
-                        leader {
-                            tcl::dict::set leaders_dict $argname_or_ident [lindex $stripped_list 0]
-                        }
-                        option {
-                            tcl::dict::set opts $argname_or_ident [lindex $stripped_list 0]
-                        }
-                        value {
-                            tcl::dict::set values_dict $argname_or_ident [lindex $stripped_list 0]
-                        }
-                    }
-                }
-            }
-        }
-
-        set finalopts [dict create]
-        dict for {o v} $opts {
-            if {[string first | $o] > -1} {
-                #set parsekey [lindex [split $o |] end]
-                dict set finalopts [lindex [split $o |] end] $v
-            } else {
-                dict set finalopts $o $v
-            }
-        }
-        return [tcl::dict::create leaders $leaders_dict opts $finalopts values $values_dict received $received_posns solos $solosreceived multis $multisreceived]
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::args::forms
-        @cmd    -name punk::args::forms\
-            -summary\
-            "List command forms."\
-            -help\
-            "Return names for each form of a command identified by 'id'.
-            Most commands are single-form and will only return the name '_default'."
-        @leaders -min 0 -max 0
-        @opts
-        @values -min 1 -max 1
-        id -multiple 0 -optional 0 -help\
-            "Exact id of command"
-    }]
-    proc forms {id} {
-        set spec [get_spec $id]
-        if {[dict size $spec]} {
-            return [dict get $spec form_names]
-        } else {
-            return [list]
-        }
-    }
-
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::args::eg
-        @cmd    -name punk::args::eg\
-            -summary\
-            "Command examples."\
-            -help\
-            "Return command examples from -help in @examples
-            directive of a command definition."
-        @values -min 1 -max -1
-        cmditem -multiple 1 -optional 0
-    }]
-    proc eg {args} {
-        set argd [punk::args::parse $args withid ::punk::args::eg]
-        lassign [dict values $argd] leaders opts values received
-        set cmditems    [dict get $values cmditem]
-        set id          [lindex $cmditems 0]
-        set cmdargs     [lrange $cmditems 1 end]
-
-        set spec [get_spec $id]
-        if {$spec eq ""} {
-            return
-        }
-        return [dict get $spec examples_info -help]
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::args::synopsis
-        @cmd    -name punk::args::synopsis\
-            -summary\
-            "Command synopsis"\
-            -help\
-            "Return synopsis for each form of a command
-            on separate lines.
-            If -form <formname> is given, supply only
-            the synopsis for that form.
-            "
-        @opts
-        -noheader -type none
-        -form -type string -default *
-        -return -type string -default full -choices {full summary dict}
-        @values -min 1 -max -1
-        cmditem -multiple 1 -optional 0
-    }]
-    proc synopsis {args} {
-        set argd [punk::args::parse $args withid ::punk::args::synopsis]
-
-        if {[catch {package require punk::ansi} errM]} {
-            set has_punkansi 0
-        } else {
-            set has_punkansi 1
-        }
-        if {$has_punkansi} {
-            set I   [punk::ansi::a+ italic]
-            set NI  [punk::ansi::a+ noitalic]
-            #for inner question marks marking optional type
-            set IS  [punk::ansi::a+ italic strike]
-            set NIS [punk::ansi::a+ noitalic nostrike]
-            #set RST [punk::ansi::a]
-            set RST "\x1b\[m"
-        } else {
-            set I ""
-            set NI ""
-            set IS ""
-            set NIS ""
-            set RST ""
-        }
-
-        ##set form *
-        ##if {[lindex $args 0] eq "-form"} {
-        ##    set arglist [lrange $args 2 end]
-        ##    set form [lindex $args 1]
-        ##} else {
-        ##    set arglist $args
-        ##}
-        ##if {[llength $arglist] == 0} {
-        ##    error "punk::args::synopsis expected command id possibly with trailing subcommands/args"
-        ##}
-        ##set id [lindex $arglist 0]
-        ##set cmdargs [lrange $arglist 1 end]
-
-        lassign [dict values $argd] leaders opts values received
-        set form        [dict get $opts -form]
-        set opt_return  [dict get $opts -return]
-        set cmditems    [dict get $values cmditem]
-        set id          [lindex $cmditems 0]
-        set cmdargs     [lrange $cmditems 1 end]
-
-
-        set spec [get_spec $id]
-        if {$spec eq ""} {
-            return
-        }
-        set form_names [dict get $spec form_names]
-        if {$form ne "*"} {
-            if {[string is integer -strict $form]} {
-                set f [lindex $form_names $form]
-                if {$f ne ""} {
-                    set form_names [list $f]
-                } else {
-                    set form_names [list]
-                }
-            } else {
-                if {$form in $form_names} {
-                    set form_names [list $form]
-                } else {
-                    set form_names [list]
-                }
-            }
-        }
-
-        set SYND [dict create]
-        dict set SYND cmd_info [dict get $spec cmd_info]
-        #leading "# " required (punk::ns::synopsis will pass through)
-        if {![dict exists $received -noheader]} {
-            set syn  "# [Dict_getdef $spec cmd_info -summary ""]\n"
-        }
-        #todo - -multiple etc
-        foreach f $form_names {
-            set SYNLIST [list]
-            dict set SYND FORMS $f [list]
-            append syn "$id"
-            set forminfo [dict get $spec FORMS $f]
-            #foreach argname [dict get $forminfo LEADER_NAMES] {
-            #    set arginfo [dict get $forminfo ARG_INFO $argname]
-            #    set ARGD [dict create argname $argname class leader]
-            #    if {[dict exists $arginfo -choices] && [llength [dict get $arginfo -choices]] == 1} {
-            #        set display [lindex [dict get $arginfo -choices] 0]
-            #    } elseif {[dict get $arginfo -type] eq "literal"} {
-            #        set display $argname
-            #    } else {
-            #        set display $I$argname$RST
-            #    }
-            #    if {[dict get $arginfo -optional]} {
-            #        append syn " ?$display?"
-            #    } else {
-            #        append syn " $display"
-            #    }
-            #    dict set ARGD type      [dict get $arginfo -type]
-            #    dict set ARGD optional  [dict get $arginfo -optional]
-            #    dict set ARGD display $display
-            #    dict lappend SYND $f $ARGD
-            #}
-            set FORMARGS [list]
-            foreach argname [dict get $forminfo LEADER_NAMES] {
-                set arginfo     [dict get $forminfo ARG_INFO $argname]
-                set typelist    [dict get $arginfo -type]
-                if {[llength $typelist] == 1} {
-                    set tp [lindex $typelist 0]
-                    set ts [Dict_getdef $arginfo -typesynopsis ""]
-                    if {$ts ne ""} {
-                        #set arg_display [dict get $arginfo -typesynopsis]
-                        set clause $ts
-                    } else {
-                        #set arg_display $argname
-                        set alternates [list];#alternate acceptable types e.g literal(yes)|literal(ok)  or indexpression|literal(first)
-                        set type_alternatives [_split_type_expression $tp]
-                        foreach tp_alternative $type_alternatives {
-                            set firstword [lindex $tp_alternative 0]
-                            switch -exact -- $firstword {
-                                literal {
-                                    set match [lindex $tp_alternative 1]
-                                    lappend alternates $match
-                                }
-                                literalprefix {
-                                    #todo - trie styling on prefix calc
-                                    set match [lindex $tp_alternative 1]
-                                    lappend alternates $match
-                                }
-                                stringstartswith {
-                                    set match [lindex $tp_alternative 1]
-                                    lappend alternates $match*
-                                }
-                                stringendswith {
-                                    set match [lindex $tp_alternative 1]
-                                    lappend alternates *$match
-                                }
-                                default {
-                                    lappend alternates $I$argname$NI
-                                }
-                            }
-
-                            #if {$tp_alternative eq "literal"} {
-                            #    lappend alternates [lindex $argname end]
-                            #} elseif {[string match literal(*) $tp_alternative]} {
-                            #    set match [string range $tp_alternative 8 end-1]
-                            #    lappend alternates $match
-                            #} elseif {[string match literalprefix(*) $tp_alternative]} {
-                            #    set match [string range $tp_alternative 14 end-1]
-                            #    lappend alternates $match
-                            #} else {
-                            #    lappend alternates $I$argname$NI
-                            #}
-                        }
-                        #remove dupes - but keep order (e.g of dupes -type string|int when no -typesynopsis was specified)
-                        #todo - trie prefixes display
-                        set alternates [punk::args::lib::lunique $alternates]
-                        set clause [join $alternates |]
-                    }
-                } else {
-                    set n [expr {[llength $typelist]-1}]
-                    set name_tail [lrange $argname end-$n end];#if there are enough tail words in the argname to match -types
-                    set clause ""
-                    set ts [Dict_getdef $arginfo -typesynopsis ""]
-                    if {$ts ne ""} {
-                        set tp_displaylist $ts
-                    } else {
-                        set tp_displaylist [lrepeat [llength $typelist] ""]
-                    }
-
-                    foreach typespec $typelist td $tp_displaylist elementname $name_tail {
-                        #elementname will commonly be empty
-                        if {[string match {\?*\?} $typespec]} {
-                            set tp [string range $typespec 1 end-1]
-                            set member_optional 1
-                        } else {
-                            set tp $typespec
-                            set member_optional 0
-                        }
-                        if {$tp eq "literal"} {
-                            set c $elementname
-                        } elseif {[string match literal(*) $tp]} {
-                            set match [string range $tp 8 end-1]
-                            set c $match
-                        } else {
-                            if {$td eq ""} {
-                                set c $I$tp$NI
-                            } else {
-                                set c $td
-                            }
-                        }
-                        if {$member_optional} {
-                            append clause " " "(?$c?)"
-                        } else {
-                            append clause " " $c
-                        }
-                    }
-                    set clause [string trimleft $clause]
-                }
-
-                set ARGD [dict create argname $argname class leader]
-                if {[dict get $arginfo -optional] || [dict exists $arginfo -default]} {
-                    if {[dict get $arginfo -multiple]} {
-                        #set display "?$I$argname$NI?..."
-                        set display "?$clause?..."
-                    } else {
-                        set display "?$clause?"
-                        #if {[dict exists $arginfo -choices] && [llength [dict get $arginfo -choices]] == 1} {
-                        #    set display "?[lindex [dict get $arginfo -choices] 0]?"
-                        #} elseif {[dict get $arginfo -type] eq "literal"} {
-                        #    set display "?$argname?"
-                        #} else {
-                        #    set display "?$I$argname$NI?"
-                        #}
-                    }
-                } else {
-                    if {[dict get $arginfo -multiple]} {
-                        #set display "$I$argname$NI ?$I$argname$NI?..."
-                        set display "$clause ?$clause?..."
-                    } else {
-                        set display $clause
-                        #if {[dict exists $arginfo -choices] && [llength [dict get $arginfo -choices]] == 1} {
-                        #    set display "[lindex [dict get $arginfo -choices] 0]"
-                        #} elseif {[dict get $arginfo -type] eq "literal"} {
-                        #    set display $argname
-                        #} else {
-                        #    set display "$I$argname$NI"
-                        #}
-                    }
-                }
-                append syn " $display"
-                dict set ARGD type      [dict get $arginfo -type]
-                dict set ARGD optional  [dict get $arginfo -optional]
-                dict set ARGD display $display
-
-                #dict lappend SYND $f $ARGD
-                lappend FORMARGS $ARGD
-            }
-            foreach argname [dict get $forminfo OPT_NAMES] {
-                set arginfo [dict get $forminfo ARG_INFO $argname]
-                set ARGD [dict create argname $argname class option]
-                set tp      [dict get $arginfo -type]
-                if {$tp eq "none"} {
-                    #assert - argname may have aliases delimited by | - but no aliases end with =
-                    #(disallowed in punk::args::define)
-                    set argdisplay $argname
-                } else {
-                    #assert [llength $tp] == 1 (multiple values for flag unspported in punk::args::define)
-                    if {[string match {\?*\?} $tp]} {
-                        set tp [string range $tp 1 end-1]
-                        set value_is_optional true
-                    } else {
-                        set value_is_optional false
-                    }
-
-
-                    set ts [Dict_getdef $arginfo -typesynopsis ""]
-                    if {$ts ne ""} {
-                        set tp_display $ts
-                        #user may or may not have remembered to match the typesynopsis with the optionality by wrapping with ?
-                        #review - if user wrapped with ?*? and also leading/trailing ANSI - we won't properly strip
-                        #todo - enforce no wrapping '?*?' in define for -typesynopsis?
-                        set tp_display [string trim $tp_display ?]
-                    } else {
-
-                        set alternates [list];#alternate acceptable types e.g literal(yes)|literal(ok)  or indexpression|literal(first)
-                        foreach tp_alternative [split $tp |] {
-                            #-type literal not valid for opt - review
-                            if {[string match literal(*) $tp_alternative]} {
-                                set match [string range $tp_alternative 8 end-1]
-                                lappend alternates $match
-                            } elseif {[string match literalprefix(*) $tp_alternative]} {
-                                set match [string range $tp_alternative 14 end-1]
-                                lappend alternates $match
-                            } else {
-                                lappend alternates <$I$tp_alternative$NI>
-                            }
-                        }
-                        #todo - trie prefixes display?
-                        set alternates [punk::args::lib::lunique $alternates]
-                        set tp_display [join $alternates |]
-                    }
-                    if {[string first | $tp_display] >=0} {
-                        #need to bracket alternate-types to distinguish pipes delimiting flag aliases
-                        set tp_display "($tp_display)"
-                    }
-                    set argdisplay ""
-                    foreach aliasflag [split $argname |] {
-                        if {[string match --* $aliasflag]} {
-                            if {[string index $aliasflag end] eq "="} {
-                                set alias [string range $aliasflag 0 end-1]
-                                if {$value_is_optional} {
-                                    append argdisplay "$alias$IS?$NIS=$tp_display$IS?$NIS|"
-                                } else {
-                                    append argdisplay "$alias=$tp_display|"
-                                }
-                            } else {
-                                if {$value_is_optional} {
-                                    append argdisplay "$aliasflag $IS?$NIS$tp_display$IS?$NIS|"
-                                } else {
-                                    append argdisplay "$aliasflag $tp_display|"
-                                }
-                            }
-                        } else {
-                            if {$value_is_optional} {
-                                #single dash flag can't accept optional value
-                                append argdisplay "$aliasflag|"
-                            } else {
-                                append argdisplay "$aliasflag $tp_display|"
-                            }
-                        }
-                    }
-                    set argdisplay [string trimright $argdisplay |]
-                }
-
-                if {[dict get $arginfo -optional]} {
-                    if {[dict get $arginfo -multiple]} {
-                        set display "?$argdisplay?..."
-                    } else {
-                        set display "?$argdisplay?"
-                    }
-                } else {
-                    if {[dict get $arginfo -multiple]} {
-                        set display "$argdisplay ?$argdisplay?..."
-                    } else {
-                        set display $argdisplay
-                    }
-                }
-
-                #if {[string index $argname end] eq "="} {
-                #    set __ ""
-                #} else {
-                #    set __ " "
-                #}
-                #if {[dict get $arginfo -optional]} {
-                #    if {[dict get $arginfo -multiple]} {
-                #        if {$tp eq "none"} {
-                #            set display "?$argname?..."
-                #        } else {
-                #            set display "?$argname$__$tp_display?..."
-                #        }
-                #    } else {
-                #        if {$tp eq "none"} {
-                #            set display "?$argname?"
-                #        } else {
-                #            set display "?$argname$__$tp_display?"
-                #        }
-                #    }
-                #} else {
-                #    if {[dict get $arginfo -multiple]} {
-                #        if {$tp eq "none"} {
-                #            set display "$argname ?$argname...?"
-                #        } else {
-                #            set display "$argname$__$tp_display ?$argname$__$tp_display?..."
-                #        }
-                #    } else {
-                #        if {$tp eq "none"} {
-                #            set display $argname
-                #        } else {
-                #            set display "$argname$__$tp_display"
-                #        }
-                #    }
-                #}
-                append syn " $display"
-                dict set ARGD type      [dict get $arginfo -type]
-                dict set ARGD optional  [dict get $arginfo -optional]
-                dict set ARGD display $display
-                #dict lappend SYND $f $ARGD
-                lappend FORMARGS $ARGD
-            }
-            foreach argname [dict get $forminfo VAL_NAMES] {
-                set arginfo     [dict get $forminfo ARG_INFO $argname]
-                set typelist    [dict get $arginfo -type]
-                if {[llength $typelist] == 1} {
-                    set tp [lindex $typelist 0]
-                    set ts [Dict_getdef $arginfo -typesynopsis ""]
-                    if {$ts ne ""} {
-                        #set arg_display [dict get $arginfo -typesynopsis]
-                        set clause $ts
-                    } else {
-                        #set arg_display $argname
-                        set alternates [list];#alternate acceptable types e.g literal(yes)|literal(ok)  or indexpression|literal(first)
-                        foreach tp_alternative [split $tp |] {
-                            if {$tp_alternative eq "literal"} {
-                                lappend alternates [lindex $argname end]
-                            } elseif {[string match literal(*) $tp_alternative]} {
-                                set match [string range $tp_alternative 8 end-1]
-                                lappend alternates $match
-                            } elseif {[string match literalprefix(*) $tp_alternative]} {
-                                set match [string range $tp_alternative 14 end-1]
-                                lappend alternates $match
-                            } else {
-                                lappend alternates $I$argname$NI
-                            }
-                        }
-                        #remove dupes - but keep order (e.g of dupes -type string|int when no -typesynopsis was specified)
-                        #todo - trie prefixes display
-                        set alternates [punk::args::lib::lunique $alternates]
-                        set clause [join $alternates |]
-                    }
-                } else {
-                    set n [expr {[llength $typelist]-1}]
-                    set name_tail [lrange $argname end-$n end];#if there are enough tail words in the argname to match -types
-                    set clause ""
-                    set ts [Dict_getdef $arginfo -typesynopsis ""]
-                    if {$ts ne ""} {
-                        set tp_displaylist $ts
-                    } else {
-                        set tp_displaylist [lrepeat [llength $typelist] ""]
-                    }
-
-                    foreach typespec $typelist td $tp_displaylist elementname $name_tail {
-                        #elementname will commonly be empty
-                        if {[string match {\?*\?} $typespec]} {
-                            set tp [string range $typespec 1 end-1]
-                            set member_optional 1
-                        } else {
-                            set tp $typespec
-                            set member_optional 0
-                        }
-                        #handle alternate-types e.g literal(text)|literal(binary)
-                        set alternates [list]
-                        foreach tp_alternative [split $tp |] {
-                            if {$tp_alternative eq "literal"} {
-                                lappend alternates $elementname
-                            } elseif {[string match literal(*) $tp_alternative]} {
-                                set match [string range $tp_alternative 8 end-1]
-                                lappend alternates $match
-                            } elseif {[string match literalprefix(*) $tp_alternative]} {
-                                set match [string range $tp_alternative 14 end-1]
-                                lappend alternates $match
-                            } else {
-                                if {$td eq ""} {
-                                    lappend alternates $I$tp$NI
-                                } else {
-                                    lappend alternates $td
-                                }
-                            }
-                        }
-                        set alternates [punk::args::lib::lunique $alternates]
-                        set c [join $alternates |]
-                        if {$member_optional} {
-                            append clause " " "(?$c?)"
-                        } else {
-                            append clause " " $c
-                        }
-                    }
-                    set clause [string trimleft $clause]
-                }
-
-                set ARGD [dict create argname $argname class value]
-                if {[dict get $arginfo -optional] || [dict exists $arginfo -default]} {
-                    if {[dict get $arginfo -multiple]} {
-                        #set display "?$I$argname$NI?..."
-                        set display "?$clause?..."
-                    } else {
-                        set display "?$clause?"
-                        #if {[dict exists $arginfo -choices] && [llength [dict get $arginfo -choices]] == 1} {
-                        #    set display "?[lindex [dict get $arginfo -choices] 0]?"
-                        #} elseif {[dict get $arginfo -type] eq "literal"} {
-                        #    set display "?$argname?"
-                        #} else {
-                        #    set display "?$I$argname$NI?"
-                        #}
-                    }
-                } else {
-                    if {[dict get $arginfo -multiple]} {
-                        #set display "$I$argname$NI ?$I$argname$NI?..."
-                        set display "$clause ?$clause?..."
-                    } else {
-                        set display $clause
-                        #if {[dict exists $arginfo -choices] && [llength [dict get $arginfo -choices]] == 1} {
-                        #    set display "[lindex [dict get $arginfo -choices] 0]"
-                        #} elseif {[dict get $arginfo -type] eq "literal"} {
-                        #    set display $argname
-                        #} else {
-                        #    set display "$I$argname$NI"
-                        #}
-                    }
-                }
-                append syn " $display"
-                dict set ARGD type      [dict get $arginfo -type]
-                dict set ARGD optional  [dict get $arginfo -optional]
-                dict set ARGD display $display
-                #dict lappend SYND $f $ARGD
-                lappend FORMARGS $ARGD
-            }
-            append syn \n
-            dict set SYND FORMS $f $FORMARGS
-        }
-        switch -- $opt_return {
-            full {
-                return [string trim $syn \n]
-            }
-            summary {
-                set summary ""
-                set FORMS [dict get $SYND FORMS]
-                dict for {form arglist} $FORMS {
-                    append summary $id
-                    set class_state leader
-                    set option_count 0
-                    set value_count 0
-                    foreach ainfo $arglist {
-                        switch -- [dict get $ainfo class] {
-                            leader {
-                                append summary " [dict get $ainfo display]"
-                            }
-                            option {
-                                incr option_count
-                            }
-                            value {
-                                incr value_count
-                                if {$class_state ne "value"} {
-                                    if {$option_count > 0} {
-                                        append summary " ?options ($option_count defined)?"
-                                    }
-                                    set class_state value
-                                }
-                                append summary " [dict get $ainfo display]"
-                            }
-                        }
-                    }
-                    if {$value_count == 0 && $option_count > 0} {
-                        append summary " ?options ($option_count defined)?"
-                    }
-                    append summary \n
-                }
-                set summary [string trim $summary \n]
-                return $summary
-            }
-            dict {
-                return $SYND
-            }
-        }
-    }
-
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::args::synopsis_summary
-        @cmd    -name punk::args::synopsis_summary -help\
-            "Reduce the width of a synopsis string
-            by coalescing options to ?options?...
-            synopsis string may be arbitrarily marked
-            up with ANSI codes."
-        @opts
-        @values -min 1 -max -1
-        synopsis -multiple 0 -optional 0
-    }]
-    proc synopsis_summary {args} {
-        set argd [punk::args::parse $args withid ::punk::args::synopsis_summary]
-        set synopsis [dict get $argd values synopsis]
-        set summary ""
-        foreach sline [split $synopsis \n] {
-            set sline [regsub -all {\s+} $sline " "] ;#normalize to single spacing only - review
-            set in_opt 0
-            set line_out ""
-            set codestack [list]
-            set parts [punk::ansi::ta::split_codes_single $sline]
-            #basic
-            foreach {pt code} $parts {
-                set charlist [split $pt ""]
-                for {set i 0} {$i < [llength $charlist]} {incr i} {
-                    set c [lindex $charlist $i]
-
-                    switch -- $c {
-                        ? {
-                            if {!$in_opt} {
-                                set in_opt 1
-                            } else {
-
-                            }
-                        }
-                        " " {
-                            if {!$in_opt} {
-                                append line_out " "
-                            } else {
-                                set in_opt
-                            }
-                        }
-                        default {
-                            if {!$in_opt} {
-                                append line_out $c
-                            }
-                        }
-                    }
-                }
-                if {$code ne ""} {
-                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                        set codestack [list "\x1b\[m"]
-                    } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                        set codestack [list $code]
-                    } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                        #basic simplification first - remove straight dupes
-                        set dup_posns [lsearch -all -exact $codestack $code] ;#must be -exact because of square-bracket glob chars
-                        set codestack [lremove $codestack {*}$dup_posns]
-                        lappend codestack $code
-                    } else {
-                        #? ignore other ANSI codes?
-                    }
-                }
-            }
-            if {[string match -* $plain_s] || [string match ?- $plain_s]} {
-            }
-        }
-        return $summary
-    }
-
-    lappend PUNKARGS [list {
-        @id -id ::punk::args::TEST
-        @opts -optional 0
-        -o1 -default 111 -help "opt 1 mandatory"
-        @opts -optional 1
-        -o2 -default 222 -help "opt 2 optional"
-        @values -min 0 -max 1
-        v -help\
-            "v1 optional"
-    }]
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::args ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::args::lib {
-    variable PUNKARGS
-    tcl::namespace::export *
-    tcl::namespace::path [list [tcl::namespace::parent]]
-    #*** !doctools
-    #[subsection {Namespace punk::args::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #tcl86 compat for string is dict - but without -strict or -failindex options
-    if {[catch {string is dict {}} errM]} {
-        proc string_is_dict {args} {
-            #ignore opts
-            set str [lindex $args end]
-            if {[catch {llength $str} len]} {
-                return 0
-            }
-            if {$len % 2 == 0} {
-                return 1
-            }
-            return 0
-        }
-    } else {
-        proc string_is_dict {args} {
-            string is dict {*}$args
-        }
-    }
-
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {option value...}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-    proc flatzip {l1 l2} {
-        concat {*}[lmap a $l1 b $l2 {list $a $b}]
-    }
-
-    if {[info commands lseq] ne ""} {
-        #tcl 8.7+ lseq significantly faster, especially for larger ranges
-        #The internal rep can be an 'arithseries' with no string representation
-        proc zero_based_posns {count} {
-            if {$count < 1} {return}
-            lseq 0 $count-1
-        }
-    } else {
-        proc zero_based_posns {count} {
-            if {$count < 1} {return}
-            lsearch -all [lrepeat $count 0] *
-        }
-    }
-
-    #return list of single column-width marks - possibly with ansi
-    proc choiceinfo_marks {choice choiceinfodict} {
-        set marks [list]
-        if {[dict exists $choiceinfodict $choice]} {
-            set cinfo [dict get $choiceinfodict $choice]
-            foreach info $cinfo {
-                if {[lindex $info 0] eq "doctype"} {
-                    switch -- [lindex $info 1] {
-                        punkargs {
-                            lappend marks [punk::ns::Cmark punkargs brightgreen]
-                        }
-                        ensemble {
-                            lappend marks [punk::ns::Cmark ensemble brightyellow]
-                        }
-                        oo {
-                            lappend marks [punk::ns::Cmark oo brightcyan]
-                        }
-                        ooc {
-                            lappend marks [punk::ns::Cmark ooc cyan]
-                        }
-                        ooo {
-                            lappend marks [punk::ns::Cmark ooo cyan]
-                        }
-                        native {
-                            lappend marks [punk::ns::Cmark native]
-                        }
-                        unknown {
-                            lappend marks [punk::ns::Cmark unknown brightred]
-                        }
-                    }
-                }
-            }
-        }
-        return $marks
-    }
-
-
-    #experiment with equiv of js template literals with ${expression} in templates
-    #e.g tstr {This is the value of x in calling scope ${$x} !}
-    #e.g tstr -allowcommands {This is the value of x in calling scope ${[set x]} !}
-    #e.g tstr -allowcommands {This is the value of [lindex $x -1] in calling scope ${[lindex [set x] 0]} !}
-    lappend PUNKARGS [list {
-        @id -id ::punk::args::lib::tstr
-        @cmd -name punk::args::lib::tstr\
-            -summary\
-            "Templating with \$\{$varName\}"\
-            -help\
-            "A rough equivalent of js template literals
-
-            Substitutions:
-                 \$\{$varName\}
-                 \$\{[myCommand]\}
-                   (when -allowcommands flag is given)"
-        -allowcommands -default 0 -type none -help\
-            "If -allowcommands is present, placeholder can contain commands
-              e.g {\$\{plaintext0 [lindex $var 0] plaintext2\}}"
-        -undent -default 1 -type boolean -help\
-            "undent/dedent the template lines.
-             The longest common prefix of whitespace is removed"
-        -indent -default "" -type string -help\
-            "String with which to indent the template
-             prior to substitution.
-             If -undent is enabled, that is performed
-             first, then the indent is applied."
-        -paramindents -default line -choices {none line position} -choicelabels {
-            line\
-            " Use leading whitespace in
-             the line in which the
-             placeholder occurs."
-            position\
-            " Use the position in
-             the line in which the
-             placeholder occurs."
-            none\
-            " No indents applied to
-             subsequent placeholder value
-             lines. This will usually
-             result in text awkwardly
-             ragged unless the source code
-             has also been aligned with the
-             left margin or the value has
-             been manually padded."
-            } -help\
-            "How indenting is done for subsequent lines in a
-              multi-line placeholder substitution value.
-              The 1st line or a single line value is always
-              placed at the placeholder.
-              paramindents are performed after the main
-              template has been indented/undented.
-              (indenting by position does not calculate
-              unicode double-wide or grapheme cluster widths)
-              "
-        #choicelabels indented by 1 char is clearer for -return string - and reasonable in table
-        -return        -default string -choices {dict list string args}\
-            -choicelabels {
-            dict\
-            " Return a dict with keys
-             'template', 'params' and
-             'errors'"
-            string\
-            " Return a single result
-             being the string with
-             placeholders substituted."
-            list\
-            " Return a 2 element list.
-             The first is itself a list
-             of plaintext portions of the
-             template, split at each point
-             at which placeholders were
-             present. The second element
-             of the outer list is a list
-             of placeholder values if -eval
-             is 1, or a list of the raw
-             placeholder strings if -eval
-             is 0."
-            args\
-            " Return a list where the first
-             element is a list of template
-             plaintext sections as per the
-             'list' return mechanism, but the
-             placeholder items are individual
-             items in the returned list.
-             This can be useful when passing
-             the expanded result of a tstr
-             command to another function
-             which expects the placeholders
-             as individual arguments"
-        }
-        -eval -default 1 -type boolean -help\
-            "Whether to evaluate the \$\{\} placeholders.
-              When -return is string, -eval should generally be set to 1.
-              For a string return, -eval 0 will result in the raw contents of \$\{\} being substituted.
-              contained variables in that case should be braced or whitespace separated, or the variable
-              name is likely to collide with surrounding text.
-              e.g tstr -return string -eval 0 {plaintext\$\{\$\{var\}\}plaintext}  -> plaintext\$\{var\}plaintext"
-        @values -min 0 -max 1
-        templatestring  -help\
-            "This argument should be a braced string containing placeholders such as \$\{$var\} e.g {The value is \$\{$var\}.}
-              where $var will be substituted from the calling context
-              The placeholder itself can contain plaintext portions as well as variables.
-              It can contain commands in square brackets if -allowcommands is true
-              e.g tstr -return string -allowcommands {Tcl Version:\$\{[info patch]\} etc}
-
-              Escape sequences such as \\n and unicode escapes are processed within placeholders.
-              "
-    }]
-
-    proc tstr {args} {
-        #Too hard to fully eat-our-own-dogfood from within punk::args package
-        # - we use punk::args within the unhappy path only
-        #set argd [punk::args::get_by_id ::punk::lib::tstr $args]
-        #set templatestring    [dict get $argd values templatestring]
-        #set opt_allowcommands [dict get $argd opts -allowcommands]
-        #set opt_return        [dict get $argd opts -return]
-        #set opt_eval          [dict get $argd opts -eval]
-
-        set templatestring [lindex $args end]
-        set arglist [lrange $args 0 end-1]
-        set opts [dict create\
-            -allowcommands  0\
-            -undent         1\
-            -indent         ""\
-            -paramindents   line\
-            -eval           1\
-            -return         string\
-        ]
-        if {"-allowcommands" in $arglist} {
-            set arglist [::punk::args::system::punklib_ldiff $arglist -allowcommands]
-            dict set opts -allowcommands 1
-        }
-        if {[llength $arglist] % 2 != 0} {
-            if {[info commands ::punk::args::get_by_id] ne ""} {
-                punk::args::get_by_id ::punk::args::lib::tstr $args
-                return
-            } else {
-                error "punk::args::lib::tstr expected option/value pairs prior to last argument"
-            }
-        }
-        dict for {k v} $arglist {
-            set fullk [tcl::prefix::match -error "" {-allowcommands -indent -undent -paramindents -return -eval} $k]
-            switch -- $fullk {
-                -indent - -undent - -paramindents - -return - -eval {
-                    dict set opts $fullk $v
-                }
-                default {
-                    if {[info commands ::punk::args::get_by_id] ne ""} {
-                        punk::args::get_by_id ::punk::args::lib::tstr $args
-                        return
-                    } else {
-                        error "punk::args::lib::tstr unknown option $k. Known options: [dict keys $opts]"
-                    }
-                }
-            }
-        }
-        set opt_allowcommands [dict get $opts -allowcommands]
-        set opt_paramindents        [dict get $opts -paramindents]
-        set test_paramindents [tcl::prefix::match -error "" {none line position} $opt_paramindents]
-        if {$test_paramindents ni {none line position}} {
-            error "punk::args::lib::tstr option -paramindents invalid value '$opt_paramindents'. Must be one of none, line, position or an unambiguous abbreviation thereof."
-        }
-        set opt_paramindents $test_paramindents
-        set opt_return        [dict get $opts -return]
-        set opt_return        [tcl::prefix::match -error "" {args dict list string} $opt_return]
-        if {$opt_return eq ""} {
-        }
-        set opt_eval          [dict get $opts -eval]
-
-
-        set nocommands "-nocommands"
-        if {$opt_allowcommands == 1} {
-            set nocommands ""
-        }
-
-        set opt_undent [dict get $opts -undent]
-        if {$opt_undent} {
-            set templatestring [punk::args::lib::undent $templatestring]
-        }
-        set opt_indent [dict get $opts -indent]
-        if {$opt_indent ne ""} {
-            set templatestring [punk::args::lib::indent $templatestring $opt_indent]
-        }
-
-        #set parts [_tstr_split $templatestring]
-        if {[string first \$\{ $templatestring] < 0} {
-            set parts [list $templatestring]
-        } else {
-            set parts [_parse_tstr_parts $templatestring]
-        }
-        set textchunks [list]
-        #set expressions [list]
-        set params [list]
-        set idx 0
-        set errors [dict create]
-        set lastline "" ;#todo - first line has placeholder?
-        set pt1 [lindex $parts 0]
-        set lastline_posn [string last \n $pt1]
-        if {$lastline_posn >= 0} {
-            set lastline [string range $pt1 $lastline_posn+1 end]
-        } else {
-            set lastline $pt1
-        }
-        foreach {pt expression} $parts {
-            lappend textchunks $pt
-            incr idx ;#pt incr
-
-            #ignore last expression
-            if {$idx == [llength $parts]} {
-                break
-            }
-            set lastline_posn [string last \n $pt]
-            if {$lastline_posn >= 0} {
-                set lastline [string range $pt $lastline_posn+1 end]
-            }
-            #lappend expressions $expression
-            #----------------------
-            #REVIEW - JMN
-            #TODO - debug punk::args loading of @dynamic defs
-            #puts "-- $expression"
-            #----------------------
-            #brk1 - literal newline not {\n}
-            set leader ""
-            if {[set brk1 [string first \n $expression]] >= 0} {
-                #undent left of paramstart only for lines of expression that arent on opening ${..} line
-                set tail [string range $expression $brk1+1 end]
-                set leader [string repeat " " [string length $lastline]]
-                set undentedtail  [punk::args::lib::undentleader $tail $leader]
-                #set undentedtail [punk::lib::undent [string range $expression $brk1+1 end]]
-                set expression "[string range $expression 0 $brk1]$undentedtail"
-            }
-            if {$opt_eval} {
-                if {[catch [list uplevel 1 [list ::subst {*}$nocommands $expression]] result]} {
-                    lappend params [string cat \$\{ $expression \}]
-                    dict set errors [expr {[llength $params]-1}] $result
-                } else {
-                    set result [string map [list \n "\n$leader"] $result]
-                    lappend params $result
-                }
-                #lappend params [uplevel 1 [list ::subst {*}$nocommands $expression]]
-            } else {
-                #JJJ
-                #REVIEW
-                #lappend params [subst -nocommands -novariables $expression]
-                lappend params $expression
-            }
-            append lastline [lindex $params end] ;#for current expression's position calc
-
-            incr idx ;#expression incr
-        }
-
-        if {$opt_return eq "dict"} {
-            return [dict create template $textchunks params $params errors $errors]
-        }
-        if {[dict size $errors]} {
-            set einfo ""
-            dict for {i e} $errors {
-                append einfo "parameter $i error: $e" \n
-            }
-            #REVIEW!!!
-            #TODO - fix
-            #puts stderr "tstr errors:\n$einfo\n"
-        }
-
-        switch -- $opt_return {
-            list {
-                return [list $textchunks $params]
-            }
-            args {
-                #see example in tstr_test_one
-                return [list $textchunks {*}$params]
-            }
-            string {
-                #todo - flag to disable indent-matching behaviour for multiline param?
-                set out ""
-                set pt1 [lindex $parts 0]
-                set lastline_posn [string last \n $pt1]
-                if {$lastline_posn >= 0} {
-                    set lastline [string range $pt1 $lastline_posn+1 end]
-                } else {
-                    set lastline $pt1
-                }
-                foreach pt $textchunks param $params {
-                    if {$opt_paramindents eq "none"} {
-                        append out $pt $param
-                    } else {
-                        set lastline_posn [string last \n $pt]
-                        if {$lastline_posn >= 0} {
-                            set lastline [string range $pt $lastline_posn+1 end]
-                        }
-                        if {$opt_paramindents eq "line"} {
-                            regexp {(\s*).*} $lastline _all lastindent
-                        } else {
-                            #position
-                            #TODO - detect if there are grapheme clusters
-                            #This regsub doesn't properly space unicode double-wide chars or clusters
-                            set lastindent "[regsub -all {\S} $lastline " "]  "
-                        }
-                        if {$lastindent ne ""} {
-                            set paramlines [split $param \n]
-                            if {[llength $paramlines] == 1} {
-                                append out $pt $param
-                            } else {
-                                append out $pt [lindex $paramlines 0]
-                                foreach nextline [lrange $paramlines 1 end] {
-                                    append out \n $lastindent $nextline
-                                }
-                            }
-                        } else {
-                            append out $pt $param
-                        }
-                        append lastline $param
-                    }
-                }
-                return $out
-            }
-        }
-    }
-    #test single placeholder tstr args where single placeholder must be an int
-    proc tstr_test_one {args} {
-        set argd [punk::args::parse $args withdef {
-            @cmd -name ::punk::args::lib::tstr_test_one -help {An example/test of a function designed to be called with a js-style curly-braced Tstr.
-            example:
-                        set id 2
-                        tstr_test_one {*}[tstr -return args {Select * from table where id = \$\{$id\} and etc... ;}]
-            }
-
-            @values -min 2 -max 2
-            template -type list -minsize 2 -maxsize 2 -help "This could be supplied directly as a 2 element list of each half of the sql statement -
-              but the tstr call in the example does this for you, and also passes in the id automatically"
-
-            where -type int -help {Integer param for where clause. tstr mechanism above will pass the id as the second parameter}
-        }]
-        set template    [dict get $argd values template]
-        set where       [dict get $argd values where]
-        #set result [join [list [lindex $template 0] $where [lindex $template 1]] ""]
-        set result [string cat [lindex $template 0] $where [lindex $template 1]]
-        return $result
-    }
-    proc _parse_tstr_parts {templatestring} {
-        if {$templatestring eq ""} {
-            return [list]
-        }
-        set chars [split $templatestring ""]
-        set in_placeholder 0
-        set tchars ""
-        set echars ""
-        set parts [list]
-        set i 0
-        foreach ch $chars {
-            if {!$in_placeholder} {
-                set nextch [lindex $chars [expr {$i+1}]]
-                if {"$ch$nextch" eq "\$\{"} {
-                    set in_placeholder 2 ;#2 to signify we just entered placeholder
-                    lappend parts $tchars
-                    set tchars ""
-                } else {
-                    append tchars $ch
-                }
-            } else {
-                if {$ch eq "\}"} {
-                    if {[tcl::info::complete $echars]} {
-                        set in_placeholder 0
-                        lappend parts $echars
-                        set echars ""
-                    } else {
-                        append echars $ch
-                    }
-                } else {
-                    if {$in_placeholder == 2} {
-                        #skip opening bracket dollar sign
-                        set in_placeholder 1
-                    } else {
-                        append echars $ch
-                    }
-                }
-            }
-            incr i
-        }
-        if {$tchars ne ""} {
-            lappend parts $tchars
-        }
-        if {[llength $parts] % 2 == 0} {
-            #always trail with pt for consistency with _perlish_split method so we can test other mechanisms with odd-length pt/code../pt  style list
-            lappend parts ""
-        }
-        return $parts
-    }
-    #based on punk::ansi::ta::_perlish_split
-    proc _tstr_split {text} {
-        if {$text eq ""} {
-            return {}
-        }
-        set list [list]
-        set start 0
-        #ideally re should allow curlies within but we will probably need a custom parser to do it
-        #(js allows nested string interpolation)
-        #set re {\$\{[^\}]*\}}
-        set re {\$\{(?:(?!\$\{).)*\}}
-
-        #eg regexp {\x1b(?:\(0(?:(?:(?!\x1b\(B).)*\x1b\(B)|\)0(?:(?:(?!\x1b\)B).)*\x1b\)B))} $code
-
-        #We can get $matchEnd < $matchStart; we need to ensure there is an exit condition for non-greedy empty results REVIEW
-        while {[regexp -start $start -indices -- $re $text match]} {
-            lassign $match      matchStart matchEnd
-            #puts "->start $start ->match $matchStart $matchEnd"
-            if {$matchEnd < $matchStart} {
-                puts "e:$matchEnd < s:$matchStart"
-                lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::index $text $matchStart]
-                incr start
-                if {$start >= [tcl::string::length $text]} {
-                    break
-                }
-                continue
-            }
-            lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::range $text $matchStart+2 $matchEnd-1]
-            set start [expr {$matchEnd+1}]
-            #?
-            if {$start >= [tcl::string::length $text]} {
-                break
-            }
-        }
-        return [lappend list [tcl::string::range $text $start end]]
-    }
-
-    #like textutil::adjust::indent - but doesn't strip trailing lines, and doesn't implement skip parameter.
-    proc indent {text {prefix "    "}} {
-        set result [list]
-        foreach line [split $text \n] {
-            if {[string trim $line] eq ""} {
-                lappend result ""
-            } else {
-                lappend result $prefix[string trimright $line]
-            }
-        }
-        return [join $result \n]
-    }
-    #dedent?
-    proc undent {text} {
-        if {$text eq ""} {
-            return ""
-        }
-        set lines [split $text \n]
-        set nonblank [list]
-        foreach ln $lines {
-            if {[string trim $ln] eq ""} {
-                continue
-            }
-            lappend nonblank $ln
-        }
-        set lcp [longestCommonPrefix $nonblank]
-        if {$lcp eq ""} {
-            return $text
-        }
-        regexp {^([\t ]*)} $lcp _m lcp
-        if {$lcp eq ""} {
-            return $text
-        }
-        set len [string length $lcp]
-        set result [list]
-        foreach ln $lines {
-            if {[string trim $ln] eq ""} {
-                lappend result ""
-            } else {
-                lappend result [string range $ln $len end]
-            }
-        }
-        return [join $result \n]
-    }
-
-    #hacky
-    proc undentleader {text leader} {
-        #leader usually whitespace - but doesn't have to be
-        if {$text eq ""} {
-            return ""
-        }
-        set lines [split $text \n]
-        set nonblank [list]
-        foreach ln $lines {
-            if {[string trim $ln] eq ""} {
-                continue
-            }
-            lappend nonblank $ln
-        }
-        lappend nonblank "${leader}!!"
-        set lcp [longestCommonPrefix $nonblank]
-        if {$lcp eq ""} {
-            return $text
-        }
-        #regexp {^([\t ]*)} $lcp _m lcp
-        #lcp can be shorter than leader
-        set lcp [string range $lcp 0 [string length $leader]-1]
-
-        if {$lcp eq ""} {
-            return $text
-        }
-        set len [string length $lcp]
-        set result [list]
-        foreach ln $lines {
-            if {[string trim $ln] eq ""} {
-                lappend result ""
-            } else {
-                lappend result [string range $ln $len end]
-            }
-        }
-        return [join $result \n]
-    }
-    #A version of textutil::string::longestCommonPrefixList
-    proc longestCommonPrefix {items} {
-        if {[llength $items] <= 1} {
-            return [lindex $items 0]
-        }
-        set items [lsort $items[unset items]]
-        set min [lindex $items 0]
-        set max [lindex $items end]
-        #if first and last of sorted list share a prefix - then all do (first and last of sorted list are the most different in the list)
-        #(sort order nothing to do with length - e.g min may be longer than max)
-        if {[string length $min] > [string length $max]} {
-            set temp $min
-            set min $max
-            set max $temp
-        }
-        set n [string length $min]
-        set prefix ""
-        set i -1
-        while {[incr i] < $n && ([set c [string index $min $i]] eq [string index $max $i])} {
-            append prefix $c
-        }
-        return $prefix
-    }
-
-    #order-preserving
-    #(same as punk::lib)
-    proc lunique {list} {
-        set new {}
-        foreach item $list {
-            if {$item ni $new} {
-            lappend new $item
-            }
-        }
-        return $new
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::args::lib ---}]
-}
-
-tcl::namespace::eval punk::args::argdocbase {
-    namespace export *
-    #use a? to test and create literal ansi here rather than relying on punk::ansi package presence
-    #e.g
-    #%  a? bold
-    #-  bold  │SGR 1│sample│␛[1msample
-    #-  ──────┼─────┼──────┼──────────
-    #-  RESULT│     │sample│␛[1msample
-    proc B  {} {return \x1b\[1m}    ;#a+ bold
-    proc N  {} {return \x1b\[22m}   ;#a+ normal
-    proc I  {} {return \x1b\[3m}    ;#a+ italic
-    proc NI {} {return \x1b\[23m}   ;#a+ noitalic
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::args::package {
-    variable PUNKARGS
-    lappend PUNKARGS [list {
-            @dynamic
-            @id     -id "::punk::args::package::standard_about"
-            @cmd    -name "%pkg%::about" -help\
-                "About %pkg%
-                ...
-                "
-            -package_about_namespace    -type string -optional 0  -help\
-                "Namespace containing the package about procedures
-                Must contain "
-            -return\
-                -type string\
-                -default table\
-                -choices {string table tableobject}\
-                -choicelabels {
-                    string\
-                "A basic text layout"
-                    table\
-                "layout in table borders
-                (requires package: textblock)"
-                    tableobject\
-                "textblock::class::table object instance"
-                }\
-                -help\
-                "Choose the return type of the 'about' information"
-            topic   -optional 1\
-                    -nocase 1\
-                    -default {*}\
-                    -choices {Description License Version Contact *}\
-                    -choicerestricted 0\
-                    -choicelabels {
-
-                    }\
-                    -multiple 1\
-                    -help\
-                "Topic to display. Omit or specify as * to see all.
-                If * is included with explicit topics, * represents
-                the remaining unmentioned topics."
-        }]
-    proc standard_about {args} {
-        set argd [punk::args::parse $args withid ::punk::args::package::standard_about]
-        lassign [dict values $argd] leaders OPTS values received
-
-        set pkgns   [dict get $OPTS -package_about_namespace]
-        if {[info commands ${pkgns}::package_name] eq ""} {
-            error "punk::args::package::standard_about unable to find function ${pkgns}::package_name"
-        }
-        set pkgname [${pkgns}::package_name]
-
-        set opt_return    [dict get $OPTS -return]
-        set all_topics [${pkgns}::about_topics]
-        if {![dict exists $received topic]} {
-            set topics $all_topics
-        } else {
-            # * represents all remaining topics not explicitly mentioned.
-            set val_topics [dict get $values topic] ;#if -multiple is true, this is a list
-            set explicit_topics [lsearch -all -inline -exact -not $val_topics "*"]
-            set topics [list]
-            foreach t $val_topics {
-                if {$t eq "*"} {
-                    foreach a $all_topics {
-                        if {$a ni $explicit_topics} {
-                            lappend topics $a
-                        }
-                    }
-                } else {
-                    lappend topics $t
-                }
-            }
-        }
-        if {$opt_return ne "string"} {
-            package require textblock ;#table support
-            set is_table 1
-            set title [string cat {[} $pkgname {]} ]
-            set t [textblock::class::table new -title $title]
-            $t configure -frametype double -minwidth [expr {[string length $title]+2}]
-
-        } else {
-            set topiclens       [lmap t $topics {string length $t}]
-            set widest_topic    [tcl::mathfunc::max {*}$topiclens]
-            set is_table 0
-            set about "$pkgname\n"
-            append about [string repeat - $widest_topic] \n
-        }
-        foreach topic $topics {
-            if {[llength [info commands ::${pkgns}::get_topic_$topic]] == 1} {
-                set topic_contents [::${pkgns}::get_topic_$topic]
-            } else {
-                set topic_contents "<unavailable>"
-            }
-            if {!$is_table} {
-                set content_lines [split $topic_contents \n]
-                append about [format %-${widest_topic}s    $topic] " " [lindex $content_lines 0] \n
-                foreach ln [lrange $content_lines 1 end] {
-                    append about [format %-${widest_topic}s    ""] " " $ln \n
-                }
-            } else {
-                $t add_row [list $topic $topic_contents]
-            }
-        }
-
-        if {!$is_table} {
-            return $about
-        } else {
-            if {$opt_return eq "tableobject"} {
-                return $t
-            }
-            set result [$t print]
-            $t destroy
-            return $result
-        }
-    }
-
-}
-
-#usually we would directly call arg definitions near the defining proc,
-# so that the proc could directly use the definition in its parsing.
-#
-#for punk::args we need to make sure the punk::args namespace is fully loaded before calling, so we do it at the end.
-#arguably it may be more processor-cache-efficient to do together like this anyway.
-
-#can't do this here? - as there is circular dependency with punk::lib
-#tcl::namespace::eval punk::args {
-#    foreach deflist $PUNKARGS {
-#        punk::args::define {*}$deflist
-#    }
-#    set PUNKARGS ""
-#}
-
-lappend ::punk::args::register::NAMESPACES ::punk::args::argdoc ::punk::args ::punk::args::lib ::punk::args::package
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-tcl::namespace::eval punk::args::system {
-    #*** !doctools
-    #[subsection {Namespace punk::args::system}]
-    #[para] Internal functions that are not part of the API
-
-    #dict get value with default wrapper for tcl 8.6
-    if {[info commands ::tcl::dict::getdef] eq ""} {
-        proc Dict_getdef {dictValue args} {
-            set keys [lrange $args 0 end-1]
-            if {[tcl::dict::exists $dictValue {*}$keys]} {
-                return [tcl::dict::get $dictValue {*}$keys]
-            } else {
-                return [lindex $args end]
-            }
-        }
-    } else {
-        #we pay a minor perf penalty for the wrap
-        interp alias "" ::punk::args::system::Dict_getdef "" ::tcl::dict::getdef
-    }
-
-    #name to reflect maintenance - home is punk::lib::ldiff
-    proc punklib_ldiff {fromlist removeitems} {
-        if {[llength $removeitems] == 0} {return $fromlist}
-        set result {}
-        foreach item $fromlist {
-            if {$item ni $removeitems} {
-                lappend result $item
-            }
-        }
-        return $result
-    }
-
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::args [tcl::namespace::eval punk::args {
-    tcl::namespace::path  {::punk::args::lib ::punk::args::system}
-    variable pkg punk::args
-    variable version
-    set version 0.2
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm
deleted file mode 100644
index 6a4cc626..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm
+++ /dev/null
@@ -1,6558 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2025
-#
-# @@ Meta Begin
-# Application punk::args::tclcore 0.1.0
-# Meta platform     tcl
-# Meta license      MIT
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::args::tclcore 0 0.1.0]
-#[copyright "2025"]
-#[titledesc {punk::args definitions for tcl core commands}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {tcl core argument definitions}]             [comment {-- Description at end of page heading --}]
-#[require punk::args::tclcore]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::args::tclcore
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::args::tclcore
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::args
-package require punk::ansi
-package require textblock
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package {punk::args}]
-#[item] [package {textblock}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::args::tclcore {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    #variable xyz
-
-    #for tcllib - we can potentially parse the doctools to get this info.
-    #for tcl core commands - the data is stored in man pages - which are not so easy to parse.
-    #todo - link to man pages
-
-
-    #TODO -
-    #if we want colour in arg definitions -we  need to respect nocolor or change colour to off/ on
-    #If color included in a definition - it will need to be reloaded when colour toggled(?)
-    #if {[catch {package require punk::ansi}]} {
-    #    set has_punkansi 0
-    #    set A_WARN ""
-    #    set A_RST ""
-    #} else {
-    #    set has_punkansi 1
-    #    set A_WARN  [a+ red]
-    #    set A_RST "\x1b\[0m"
-    #}
-
-    #we can't just strip ansi as there are non colour codes such as hyperlink that should be maintained whether color is on or off.
-    #for now we can use reverse - (like underline, is a non-colour attribute that remains effective when color off in punk::ansi)
-    set A_WARN \x1b\[7m
-    set A_RST \x1b\[0m
-
-    variable manbase_tcl
-    variable manbase_ext
-    set patch [info patchlevel]
-    lassign [split $patch .] major
-    if {$major < 9} {
-        set manbase_tcl "https://tcl.tk/man/tcl/TclCmd"
-        set manbase_ext .htm
-    } else {
-        set manbase_tcl "https://tcl.tk/man/tcl9.0/TclCmd"
-        set manbase_ext .html
-    }
-    proc manpage_tcl {cmd} {
-        variable manbase_tcl
-        variable manbase_ext
-        return ${manbase_tcl}/${cmd}${manbase_ext}
-    }
-
-    variable PUNKARGS
-
-    namespace eval argdoc {
-        tcl::namespace::import ::punk::ansi::a+
-        tcl::namespace::import ::punk::args::tclcore::manpage_tcl
-        # -- --- --- --- ---
-        #non colour SGR codes
-        # we can use these directly via ${$I} etc without marking a definition with @dynamic
-        #This is because they don't need to change when colour switched on and off.
-        set I   [a+ italic]
-        set NI  [a+ noitalic]
-        set B   [a+ bold]
-        set N   [a+ normal]
-        # -- --- --- --- ---
-        proc example {str} {
-            set str [string trimleft $str \n]
-            set block [punk::ansi::ansiwrap Web-gray [textblock::frame -ansibase [a+ Web-gray bold white] -ansiborder [a+ black White] -boxlimits {hl} -type block $str]]
-            set result [textblock::bookend_lines $block [a] "[a defaultbg] [a]"]
-            #puts $result
-            return $result
-        }
-    }
-
-
-    namespace eval argdoc {
-        variable PUNKARGS
-
-        lappend PUNKARGS [list {
-            @id     -id     ::punk::args::tclcore::argdoc::ensemble_subcommands_definition
-            @cmd    -name   ::punk::args::tclcore::argdoc::ensemble_subcommands_definition -help\
-                "Helper function to return a punk::args definition snippet for subcommands"
-            @leaders -max 0 -min 0
-            -groupdict -default {}  -type dict -help\
-                "Dictionary keyed on arbitrary groupname, where value
-                is a list of known subcommands that should be displayed
-                by groupname. Each groupname forms the title of a subtable
-                in the choices list.
-                Subcommands not assigned to a groupname will appear first
-                in an untitled subtable."
-            -columns   -default 4   -type integer -help\
-                "Max number of columns for all subtables in the choices
-                display area"
-            @values -min 1 -max 1
-            ensemble   -optional 0 -help\
-                "Name of ensemble command"
-
-        }]
-        proc ensemble_subcommands_definition {args} {
-            #args manually parsed - with use of argdef for unhappy-path only
-            if {![llength $args]} {
-                #punk::args::get_by_id ::punk::args::tclcore::argdoc::ensemble_subcommands_definition $args
-                punk::args::parse $args -errorstyle minimal withid ::punk::args::tclcore::argdoc::ensemble_subcommands_definition
-                return
-            }
-            set ensemble    [lindex $args end]
-            set optlist     [lrange $args 0 end-1]
-            if {[llength $optlist] % 2} {
-                #punk::args::get_by_id ::punk::args::tclcore::argdoc::ensemble_subcommands_definition $args
-                punk::args::parse $args -errorstyle minimal withid ::punk::args::tclcore::argdoc::ensemble_subcommands_definition
-                return
-            }
-            set defaults [dict create\
-                -groupdict {}\
-                -columns 4\
-            ]
-            set optlist [dict merge $defaults $optlist]
-            dict for {k v} $optlist {
-                switch -- $k {
-                    -groupdict - -columns {}
-                    default {
-                        #punk::args::get_by_id ::punk::args::tclcore::argdoc::ensemble_subcommands_definition $args
-                        punk::args::parse $args -errorstyle minimal withid ::punk::args::tclcore::argdoc::ensemble_subcommands_definition
-                        return
-                    }
-                }
-            }
-            set opt_groupdict   [dict get $optlist -groupdict]
-            set opt_columns     [dict get $optlist -columns]
-
-            package require punk::ns
-            set subdict [punk::ns::ensemble_subcommands -return dict $ensemble]
-            set allsubs [dict keys $subdict]
-            # ----------------------------------------------
-            # manually defined group members may have subcommands that are obsoleted/missing
-            # we choose to make the situation obvious by re-classifying into a corresponding group with the " - MISSING" suffix
-            set checked_groupdict [dict create]
-            dict for {g members} $opt_groupdict {
-                set validmembers {}
-                set invalidmembers {}
-                foreach m $members {
-                    if {$m in $allsubs} {
-                        lappend validmembers $m
-                    } else {
-                        lappend invalidmembers $m
-                    }
-                }
-                dict set checked_groupdict $g $validmembers
-                if {[llength $invalidmembers]} {
-                    dict set checked_groupdict "${g}_MISSING" $invalidmembers
-                }
-            }
-            if {[dict exists $checked_groupdict ""]} {
-                set others [dict get $checked_groupdict ""]
-                dict unset checked_groupdict ""
-            } else {
-                set others [list]
-            }
-
-            #REVIEW
-            set debug 0
-            if {$debug} {
-                puts "punk::args::tclcore::argdoc::ensemble_subcommands_definition"
-                if {[catch {
-                    ::punk::lib::pdict checked_groupdict
-                } msg]} {
-                    puts stderr "punk::args::tclcore::ensemble_subcommands_definition Cannot call pdict\n$msg"
-                }
-                puts --------------------
-                puts "$checked_groupdict"
-                puts --------------------
-            }
-
-            set opt_groupdict $checked_groupdict
-            # ----------------------------------------------
-            set allgrouped [list]
-            dict for {g members} $opt_groupdict {
-                lappend allgrouped {*}$members
-            }
-            set choiceinfodict [dict create]
-            foreach {sc cmd} $subdict {
-                if {$sc ni $allgrouped} {
-                    if {$sc ni $others} {
-                        lappend others $sc
-                    }
-                }
-                set cinfo [punk::ns::resolve_command {*}$cmd]
-                set tp [dict get $cinfo cmdtype]
-
-                dict set choiceinfodict $sc [list [list resolved $cmd]]
-
-                switch -- $tp {
-                    ensemble - native {
-                        dict lappend choiceinfodict $sc [list doctype $tp]
-                    }
-                    object {
-                        dict lappend choiceinfodict $sc [list doctype oo]
-                    }
-                }
-
-                if {[punk::args::id_exists [dict get $cinfo origin]] || [punk::args::id_exists [list $ensemble $sc]]} {
-                    dict lappend choiceinfodict $sc {doctype punkargs}
-                }
-            }
-
-            set argdef ""
-            append argdef "subcommand -choicegroups \{" \n
-            append argdef "          \"\" \{$others\}" \n
-            dict for {g members} $opt_groupdict {
-            append argdef "          \"$g\"   \{$members\}" \n
-            }
-            append argdef "           \} -choicecolumns $opt_columns -choiceinfo {$choiceinfodict}" \n
-
-            #todo -choicelabels
-            #detect subcommand further info available e.g if oo or ensemble or punk::args id exists..
-            #consider a different mechanism to add a label on rhs of same line as choice (for (i) marker)
-
-            return $argdef
-        }
-    }
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #
-    # library commands loaded via auto_index
-    #
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        lappend PUNKARGS [list {
-            @id     -id ::parray
-            @cmd    -name "Built-in: parray" -help\
-                "Prints on standard output the names and values of all the elements in the
-                array arrayName, or just the names that match pattern (using the matching
-                rules of string_match) and their values if pattern is given.
-                ArrayName must be an array accessible to the caller of parray. It may either
-                be local or global. The result of this command is the empty string.
-                    (loaded via auto_index)"
-            @values -min 1 -max 2
-            arrayName -type string -help\
-                "variable name of an array"
-            pattern -type string -optional 1 -help\
-                "Match pattern possibly containing glob characters"
-        } "@doc -name Manpage: -url [manpage_tcl library]" ]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::foreachLine
-            @cmd    -name "Built-in: foreachLine" -help\
-                "This reads in the text file named ${$I}filename${$NI} one line at a time (using system
-                defaults for reading text files). It writes that line to the variable named
-                by ${$I}varName${$NI} and then executes ${$I}body${$NI} for that line. The result value of ${$I}body${$NI} is
-                ignored, but error, return, break and continue may be used within it to
-                produce an error, return from the calling context, stop the loop, or go to
-                the next line respectively. The overall result of ${$B}foreachLine${$N} is the empty
-                string (assuming no errors from I/O or from evaluating the body of the loop);
-                the file will be closed prior to the procedure returning."
-            @values -min 3 -max 3
-            varName
-            fileName
-            body
-        } "@doc -name Manpage: -url [manpage_tcl library]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::readFile
-            @cmd    -name "Built-in: readFile" -help\
-                "Reads in the file named in ${$I}filename${$NI} and returns its contents. The second
-                argument says how to read in the file, either as ${$B}text${$N} (using the system
-                defaults for reading text files) or as ${$B}binary${$N} (as uninterpreted bytes).
-                The default is ${$B}text${$N}. When read as text, this will include any trailing
-                newline. The file will be closed prior to the procedure returning."
-            @values -min 1 -max 2
-            fileName
-            #todo punk::args::synopsis - show prefix highlighting
-            mode   -type literalprefix(text)|literalprefix(binary) -optional 1
-            #test
-            #mode -type {{literalprefix text | literalprefix binary}}
-        } "@doc -name Manpage: -url [manpage_tcl library]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::writeFile
-            @cmd    -name "Built-in: writeFile" -help\
-                "Writes the contents to the file named in ${$I}filename${$NI}. The optional second
-                argument says how to write to the file, either as ${$B}text${$N} (using the system
-                defaults for writing text files) or as ${$B}binary${$N} (as uninterpreted bytes).
-                The default is ${$B}text${$N}. If a trailing newline is required, it will need to
-                be provided in ${$I}contents${$NI}. The result of this command is the empty string;
-                the file will be closed prior to the procedure returning."
-            @values -min 2 -max 3
-            fileName
-            mode   -type literalprefix(text)|literalprefix(binary) -optional 1
-            contents
-        } "@doc -name Manpage: -url [manpage_tcl library]" ]
-
-    }
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # (end of auto_index commands)
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-    namespace eval argdoc {
-        punk::args::define {
-            @id	-id ::tcl::info::args
-            @cmd -name "Built-in: tcl::info::args" -help\
-                "Returns the names of the parameters to the procedure named ${$I}procname${$NI}."
-            @values -min 1 -max 1
-            procname -type string -optional 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl info]"
-
-        punk::args::define {
-            @id	-id ::tcl::info::body
-            @cmd -name "Built-in: tcl::info::body" -help\
-                "Returns the body procedure named ${$I}procname${$NI}."
-            @values -min 1 -max 1
-            procname -type string -optional 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl info]"
-
-        punk::args::define {
-            @id	-id ::tcl::info::default
-            @cmd -name "Built-in: tcl::info::default" -help\
-                "If the parameter ${$I}parameter${$NI} for the procedure named ${$I}procname${$NI}
-                has a default value, stores that value in ${$I}varname${$NI} and returns ${$B}1${$N}.
-                Otherwise, returns ${$B}0${$N}."
-            @values -min 3 -max 3
-            procname -type string -optional 0
-            parameter
-            varname
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl info]"
-
-        punk::args::define {
-            @id	-id ::tcl::info::cmdtype
-            @cmd -name "Built-in: tcl::info::cmdtype" -help\
-                "Returns the type of the command named ${$I}commandName${$NI}.
-                Built-in types are:
-                ${$B}alias${$N}
-                    ${$I}commandName${$NI} was created by 'interp alias'. In a safe interpreter an
-                    alias is only visible if both the alias and the target are visible.
-                ${$B}coroutine${$N}
-                    ${$I}commandName${$NI} was created by 'coroutine'.
-                ${$B}ensemble${$N}
-                    ${$I}commandName${$NI} was created by 'namespace ensemble'.
-                ${$B}import${$N}
-                    ${$I}commandName${$NI} was created by 'namespace import'.
-                ${$B}native${$N}
-                    ${$I}commandName${$NI} was created by the 'Tcl_CreateObjCommand' interface
-                    directly without further registration of the type of command.
-                ${$B}object${$N}
-                    ${$I}commandName${$NI} is the public comand that represents an instance
-                    of oo::object or one of its subclasses.
-                ${$B}privateObject${$N}
-                    ${$I}commandName${$NI} is the private command, my by default,
-                    that represents an instance of oo::object or one of its subclasses.
-                ${$B}proc${$N}
-                    ${$I}commandName${$NI} was created by 'proc'.
-                ${$B}interp${$N}
-                    ${$I}commandName${$NI} was created by 'interp create'.
-                ${$B}zlibStream${$N}
-                    ${$I}commandName${$NI} was created by 'zlib stream'.
-                "
-            @values -min 1 -max 1
-            commandName -type string
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl info]"
-
-        punk::args::define {
-            @id -id ::oo::InfoObject::call
-            @cmd -name "Built-in: oo::InfoObject::call" -help\
-                "Returns a description of the method implementations that are used to provide
-                ${$I}object's${$NI} implementation of ${$I}method${$NI}. This consists of a
-                list of lists of four elements, where each sublist consists of:
-                element 0: a word that describes the general type of method implementation, being
-                  one of
-                  ${$B}method${$N} for an ordinary method, ${$B}filter${$N} for an applied filter,
-                  ${$B}private${$N} for a private method, and ${$B}unknown${$N} for a method that
-                  is invoked as part of unknown method handling.
-                element 1: a word giving the name of the particular method invoked (which is always
-                  the same as method for the ${$B}method${$N} type, and \"${$B}unknown${$N}\"
-                  for the ${$B}unknown${$N} type)
-                element 2: a word giving what defined the method (the fully qualified name of the
-                  class, or the literal string ${$B}object${$N} if the method implementation is on
-                  an instance)
-                element 3: a word describing the type of method implementation
-                  (see ${$B}info object methodtype${$N}
-
-                Note that there is no inspection of whether the method implementations actually use
-                ${$B}next${$N} to transfer control along the call chain, and the call chains that
-                this command files do not actually contain private methods."
-            @values -min 2 -max 2
-            object
-            method
-        } "@doc -name Manpage: -url [manpage_tcl info]"
-
-        proc info_subcommands {} {
-            #package require punk::ns
-            #set subdict [punk::ns::ensemble_subcommands -return dict info]
-            #set allsubs [dict keys $subdict]
-            dict set groups "system"                    {hostname library nameofexecutable patchlevel script sharedlibextension tclversion}
-            dict set groups "proc introspection"        {args body default}
-            dict set groups "variables"                 {constant consts exists globals locals vars}
-            dict set groups "oo object introspection"   {class object}
-
-            return [ensemble_subcommands_definition -groupdict $groups -columns 4 info]
-        }
-        set DYN_INFO_SUBCOMMANDS {${[punk::args::tclcore::argdoc::info_subcommands]}}
-        lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::info
-            @cmd    -name "Built-in: info" -help\
-                "Information about the state of the Tcl interpreter"
-            @leaders -min 1 -max 1
-            ${$DYN_INFO_SUBCOMMANDS}
-            @values -min 0
-
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl array]" ]
-    }
-
-
-
-    #An idiom for sharing common features - incomplete - todo work out what happens with (default)::id that has leaders,opts,values
-    #todo @cmd -help+ text  (append to existing help that came from a default?)
-    lappend PUNKARGS [list {
-        @id     -id "(default)::tcl::binary::*::base64"
-        @cmd    -help\
-            "The base64 binary encoding is commonly used in mail messages and XML documents,
-            and uses mostly upper and lower case letters and digits. It has the distinction
-            of being able to be rewrapped arbitrarily without losing information.
-            "
-    }  "@doc -name Manpage: -url [manpage_tcl binary]" ]
-    lappend PUNKARGS [list {
-        @id     -id "::tcl::binary::encode::base64"
-        @default -id (default)::tcl::binary::*::base64
-        @cmd    -name "binary encode base64"
-        -maxlen -type integer -help\
-            "Indicates that the output should be split into lines of no more than length
-              characters. By default, lines are not split."
-        -wrapchar -type character -default \n -help\
-            "Indicates that, when lines are split because of the -maxlen option, character
-              should be used to separate lines. By default, this is a newline character, \"\\n\"."
-        @values -min 1 -max 1
-        data -type string
-    } ]
-    lappend PUNKARGS [list {
-        @id     -id "::tcl::binary::decode::base64"
-        @default -id (default)::tcl::binary::*::base64
-        @cmd    -name "binary decode base64"
-        -strict -type none -help\
-            "Instructs the decoder to throw an error if it encounters any characters that
-              are not strictly part of the encoding itself. Otherwise it ignores them.
-              RFC 2045 calls for base64 decoders to be non-strict."
-        @values -min 1 -max 1
-        data -type string
-    } ]
-
-
-    lappend PUNKARGS [list {
-        @id     -id "(default)::tcl::binary::*::hex"
-        @cmd    -help\
-            "The hex binary encoding converts each byte to a pair of hexadecimal digits
-            that represent the byte value as a hexadecimal integer. When encoding, lower
-            characters are used. When decoding, upper and lower characters are accepted."
-    }  "@doc -name Manpage: -url [manpage_tcl binary]" ]
-    lappend PUNKARGS [list {
-        @id         -id "::tcl::binary::encode::hex"
-        @default    -id (default)::tcl::binary::*::hex
-        @cmd        -name "binary encode hex"
-        @values     -min 1 -max 1
-        data        -type string
-    } ]
-    lappend PUNKARGS [list {
-        @id     -id "::tcl::binary::decode::hex"
-        @default -id (default)::tcl::binary::*::hex
-        @cmd    -name "binary encode hex"
-        -strict -type none -help\
-            "Instructs the decoder to throw an error if it encounters whitespace
-              characters. Otherwise it ignores them."
-        @values -min 1 -max 1
-        data -type string
-    }]
-
-
-    lappend PUNKARGS [list {
-        @id     -id "(default)::tcl::binary::*::uuencode"
-        @cmd    -help\
-            "The uuencode binary encoding used to be common for transfer of data between Unix
-            systems and on USENT, but is less common these days, having been largely
-            superseded by the base64 binary encoding.
-            Note that neither the encoder nor the decoder handle the header and footer of the
-            uuencode format."
-    }  "@doc -name Manpage: -url [manpage_tcl binary]" ]
-    lappend PUNKARGS [list {
-        @id     -id "::tcl::binary::encode::uuencode"
-        @default -id (default)::tcl::binary::*::uuencode
-        #todo @cmd -help+ "Changing the options may produce files that other implementations of decoders cannot process"
-        @cmd    -name "binary encode uuencode"
-        -maxlen -type integer -default 61 -range {5 85} -help\
-            "Indicates the maximum number of characters to produce for each encoded line.
-              The valid range is 5 to 85. Line lengths outside that range cannot be
-              accommodated by the encoding format."
-        -wrapchar -type string -default \n -help\
-            "Indicates the character(s) to use to mark the end of each encoded line.
-              Acceptable values are a sequence of zero or more character from the set
-              { \\x09 (TAB), \\x0B (VT), \\x0C (FF), \\x0D (CR) } followed by zero or
-              one newline \\x0A (LF).  Any other values are rejected because they would
-              generate encoded text that could not be decoded. The default value is a
-              single newline.
-              "
-        @values -min 1 -max 1
-        data -type string
-    } ]
-    lappend PUNKARGS [list {
-        @id     -id "::tcl::binary::decode::uuencode"
-        @default -id (default)::tcl::binary::*::uuencode
-        @cmd    -name "binary decode uuencode"
-        -strict -type none -help\
-            "Instructs the decoder to throw an error if it encounters anything outside
-              of the standard encoding format. Without this option, the decoder tolerates
-              some deviations, mostly to forgive reflows of lines between the encoder and
-              decoder."
-        @values -min 1 -max 1
-        data -type string
-    } ]
-
-    namespace eval argdoc {
-        lappend PUNKARGS [list {
-            @id     -id "::tcl::encoding::dirs"
-            @cmd    -name "encoding dirs" -help\
-                "Tcl can load encoding data files from the file system that describe
-                additional encodings for it to work with. This command sets the search
-                path for ${$B}*.enc${$N} encoding data files to the list of directories
-                ${$I}directoryList${$NI}. If ${$I}directoryList${$NI} is omitted then the
-                command returns the current list of directories that make up the search
-                path. It is an error for ${$I}directoryList${$NI} to not be a valid list.
-                If, when a search for an encoding data file is happening, an element in
-                ${$I}directoryList${$NI} does not refer to a readable, searchable
-                directory, that element is ignored."
-            @values -min 0 -max 1
-            directoryList -optional 1 -type list
-        } "@doc -name Manpage: -url [manpage_tcl encoding]" ]
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::time
-        @cmd   -name "Built-in: time" -help\
-            "Calls the Tcl interpreter count times to evaluate script
-            (or once if count is not specified). It will then return
-            a string of the form
-                503.2 microseconds per iteration
-            which indicates the average amount of time required per
-            iteration, in microseconds. Time is measured in elapsed
-            time, not CPU time.
-            (see also: timerate)"
-        @values -min 1 -max 2
-        script -type script
-        count -type integer -default 1 -optional 1
-    } "@doc -name Manpage: -url [manpage_tcl time]" ]
-
-    namespace eval argdoc {
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::blocked
-            @cmd -name "Built-in: tcl::chan::blocked" -help\
-                "This tests whether the last input operation on the channel called ${$I}channel${$NI}
-                failed because it would otherwise have caused the process to block, and returns 1
-                if that was the case. It returns 0 otherwise. Note that this only ever returns 1
-                when the channel has been configured to be non-blocking; all Tcl channels have
-                blocking turned on by default"
-            @values -min 1 -max 1
-            channel -help \
-                ""
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::close
-            @cmd -name "Built-in: tcl::chan::close" -help\
-                "Close and destroy the channel called channel. Note that this deletes all existing file-events
-                registered on the channel. If the direction argument (which must be read or write or any
-                unique abbreviation of them) is present, the channel will only be half-closed, so that it can
-                go from being read-write to write-only or read-only respectively. If a read-only channel is
-                closed for reading, it is the same as if the channel is fully closed, and respectively similar
-                for write-only channels. Without the direction argument, the channel is closed for both reading
-                and writing (but only if those directions are currently open). It is an error to close a
-                read-only channel for writing, or a write-only channel for reading.
-                As part of closing the channel, all buffered output is flushed to the channel's output device
-                (only if the channel is ceasing to be writable), any buffered input is discarded (only if the
-                channel is ceasing to be readable), the underlying operating system resource is closed and
-                channel becomes unavailable for future use (both only if the channel is being completely closed).
-
-                If the channel is blocking and the channel is ceasing to be writable, the command does not return
-                until all output is flushed. If the channel is non-blocking and there is unflushed output, the
-                channel remains open and the command returns immediately; output will be flushed in the
-                background and the channel will be closed when all the flushing is complete.
-
-                If channel is a blocking channel for a command pipeline then chan close waits for the child
-                processes to complete.
-
-                If the channel is shared between interpreters, then chan close makes channel unavailable in the
-                invoking interpreter but has no other effect until all of the sharing interpreters have closed the
-                channel. When the last interpreter in which the channel is registered invokes chan close (or close),
-                the cleanup actions described above occur. With half-closing, the half-close of the channel only
-                applies to the current interpreter's view of the channel until all channels have closed it in that
-                direction (or completely). See the interp command for a description of channel sharing.
-
-                Channels are automatically fully closed when an interpreter is destroyed and when the process exits.
-                Channels are switched to blocking mode, to ensure that all output is correctly flushed before the
-                process exits.
-
-                The command returns an empty string, and may generate an error if an error occurs while flushing
-                output. If a command in a command pipeline created with open returns an error, chan close generates
-                an error (similar to the exec command.)
-
-                Note that half-closes of sockets and command pipelines can have important side effects because they
-                result in a shutdown() or close() of the underlying system resource, which can change how other
-                processes or systems respond to the Tcl program.
-
-                Channels are automatically closed when an interpreter is destroyed and when the process exits.
-                From 8.6 on (TIP#398), nonblocking channels are no longer switched to blocking mode when exiting;
-                this guarantees a timely exit even when the peer or a communication channel is stalled. To ensure
-                proper flushing of stalled nonblocking channels on exit, one must now either (a) actively switch
-                them back to blocking or (b) use the environment variable TCL_FLUSH_NONBLOCKING_ON_EXIT, which when
-                set and not equal to “0” restores the previous behavior."
-            @values -min 1 -max 1
-            channel
-            direction -optional 1 -choices {read write}
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::fconfigure
-            @cmd -name "Built-in: chan configure" -help\
-                "Query or set the configuration options of the channel named ${$I}channel${$NI}
-                If no ${$I}optionName${$NI} or ${$I}value${$NI} arguments are supplied, the
-                command returns a list containing alternating option names and values for the
-                channel. If ${$I}optionName${$NI} is supplied but no ${$I}value${$NI} then the
-                command returns the current value of the given option. If one or more pairs
-                of ${$I}optionName${$NI} and ${$I}value${$NI} are supplied, the command sets each
-                of the named options to the corresponding value; in this case the return
-                value is an empty string.
-
-                The options described below are supported for all channels. In addition, each
-                channel type may add options that only it supports. See the manual entry for
-                the command that creates each type of channel for the options supported by
-                that specific type of channel. For example, see the manual entry for the
-                ${$B}socket${$N} command for additional options for sockets, and the ${$B}open${$N}
-                command for additional options for serial devices.
-                  ${$B}-blocking${$N} ${$I}boolean${$NI}
-                    The ${$B}-blocking${$N} option determines whether I/O operations on the
-                    channel can cause the process to block indefinitely. The value of the
-                    option must be a proper boolean value. Channels are normally in blocking
-                    mode; if a channel is placed into non-blocking mode it will affect the
-                    operation of the ${$B}chan gets, chan read, chan puts, chan flush,${$N}
-                    and ${$B}chan close${$N} commands; see the documentation for those
-                    commands for details. For non-blocking mode to work correctly, the
-                    application must be using the Tcl event loop (e.g. by calling
-                    ${$B}Tcl_DoOneEvent${$N} or invoking the ${$B}vwait${$N} command).
-                  ${$B}-buffering${$N} ${$I}newValue${$NI}
-                    If ${$I}newValue${$NI} is ${$B}full${$N} then the I/O system will buffer output until its
-                    internal buffer is full or until the ${$B}chan flush${$N} command is invoked. If
-                    ${$I}newValue${$NI} is ${$B}line${$N}, then the I/O system will automatically flush output for
-                    the channel whenever a newline character is output. If ${$I}newValue${$NI} is ${$B}none${$N},
-                    the I/O system will flush automatically after every output operation. The
-                    default is for ${$B}-buffering${$N} to be set to ${$B}full${$N} except for channels that
-                    connect to terminal-like devices; for these channels the initial setting
-                    is ${$B}line${$N}. Additionally, ${$B}stdin${$N} and ${$B}stdout${$N} are initially set to ${$B}line${$N}, and
-                    ${$B}stderr${$N} is set to ${$B}none${$N}.
-                  ${$B}-buffersize${$N} ${$I}newSize${$NI}
-                    ${$I}newSize${$NI} must be an integer; its value is used to set the size of buffers,
-                    in bytes, subsequently allocated for this channel to store input or output.
-                    ${$I}newSize${$NI} must be a number of no more than one million, allowing buffers of
-                    up to one million bytes in size.
-                  ${$B}-encoding${$N} ${$I}name${$NI}
-
-                  ${$B}-eofchar${$N} ${$I}char${$NI}
-
-                  ${$B}-profile${$N} ${$I}profile${$NI}
-
-                  ${$B}-translation${$N} ${$I}translation${$NI}"
-
-            @form -form {getall}
-            @values -min 1 -max 1
-            channel
-            @form -form {getone}
-            @values -min 2 -max 2
-            channel
-            optionName
-
-            @form -form {set}
-            @values -min 3 -max -1
-            channel
-            "optionName value" -type {string any} -typesynopsis {${$I}optionName value${$NI}} -multiple 1 -optional 0
-
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::eof
-            @cmd -name "Built-in: tcl::chan::eof"\
-                -summary\
-                "Check for end of file condition on channel"\
-                -help\
-                "Test whether the last input operation on the channel called ${$I}channel${$NI}
-                failed because the end of the data stream was reached, returning 1 if end-of-file
-                was reached, and 0 otherwise."
-            @values -min 1 -max 1
-            channel -help \
-                ""
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-        #event
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::flush
-            @cmd -name "Built-in: tcl::chan::flush"\
-                -summary\
-                "Flush pending output."\
-                -help\
-                "Ensures that all pending output for the channel called channel is written.
-                If the channel is in blocking mode the command does not return until all the buffered output
-                has been flushed to the channel. If the channel is in non-blocking mode, the command may
-                return before all buffered output has been flushed; the remainder will be flushed in the
-                background as fast as the underlying file or device is able to absorb it."
-            @values -min 1 -max 1
-            channel
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::gets
-            @cmd -name "Built-in: tcl::chan::gets"\
-                -summary\
-                "Read a line from channel."\
-                -help\
-                "Reads a line from the channel consisting of all characters up to the next end-of-line sequence
-                or until end of file is seen. The line feed character corresponding to end-of-line sequence is
-                not included as part of the line. If the varName argument is specified, the line is stored in
-                the variable of that name and the command returns the length of the line. If varName is not
-                specified, the command returns the line itself as the result of the command.
-                If a complete line is not available and the channel is not at EOF, the command will block in the
-                case of a blocking channel. For non-blocking channels, the command will return the empty string
-                as the result in the case of varName not specified and -1 if it is.
-
-                If a blocking channel is already at EOF, the command returns an empty string if varName is not
-                specified. Note an empty string result can also be returned when a blank line (no characters
-                before the next end of line sequence). The two cases can be distinguished by calling the chan eof
-                command to check for end of file. If varName is specified, the command returns -1 on end of file.
-                There is no ambiguity in this case because blank lines result in 0 being returned.
-
-                If a non-blocking channel is already at EOF, the command returns an empty line if varName is not
-                specified. This can be distinguished from an empty line being returned by either a blank line
-                being read or a full line not being available through the use of the chan eof and chan blocked
-                commands. If chan eof returns true, the channel is at EOF. If chan blocked returns true, a full
-                line was not available. If both commands return false, an empty line was read. If varName was
-                specified for a non-bocking channel at EOF, the command returns -1. This can be distinguished
-                from full line not being available either by chan eof or chan blocked as above. Note that when
-                varName is specified, there is no need to distinguish between eof and blank lines as the latter
-                will result in the command returning 0.
-
-                If the encoding profile strict is in effect for the channel, the command will raise an exception
-                with the POSIX error code EILSEQ if any encoding errors are encountered in the channel input data.
-                The file pointer remains unchanged and it is possible to introspect, and in some cases recover, by
-                changing the encoding in use"
-            @values -min 1 -max 2
-            channel
-            varName -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-        #isbinary
-        #names
-        #pending
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::pipe
-            @cmd -name "Built-in: tcl::chan::pipe"\
-                -summary\
-                "Create a standalone pipe."\
-                -help\
-                "Creates a standalone pipe whose read- and write-side channels are returned
-                as a 2-element list, the first element being the read side and the second
-                write side. Can be useful e.g. to redirect separately ${$B}stderr${$N} and ${$B}stdout${$N}
-                from a subprocess. To do this spawn with \"2>@\" or \">@\" redirection
-                operators onto the write side of a pipe, and then immediately close it
-                in the parent. This is necessary to get an EOF on the read side once the
-                child has exited or otherwise closed its output.
-                Note that the pipe buffering semantics can vary at the operating system
-                level substantially; it is not safe to assume that a write performed on
-                the output side of the pipe will appear instantly to the input side.
-                This is a fundamental difference and Tcl cannot conceal it. The overall
-                stream semantics ${$I}are${$NI} compatible, so blocking reads and writes
-                will not see most of the differences, but the details of what exactly gets
-                written when are not. This is most likely to show up when using pipelines
-                for testing; care should be taken to ensure that deadlocks do not occur
-                and that potential short reads are allowed for."
-            @values -min 0 -max 0
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::pop
-            @cmd -name "Built-in: tcl::chan::pop"\
-                -summary\
-                "Remove topmost channel transform."\
-                -help\
-                "Removes the topmost transformation from the channel ${$I}channel${$NI}, if there is any.
-                If there are no transformations added to channel, this is equivalent to
-                ${$B}chan${$N} close of that channel. The result is normally the empty string, but can
-                be an error in some situations (i.e. where the underlying system stream is
-                closed and that results in an error)."
-            @values -min 1 -max 1
-            channel -type string
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::chan::puts
-            @cmd -name "Built-in: tcl::chan::puts"\
-                -summary\
-                "Write to a channel."\
-                -help\
-                "Writes ${$I}string${$NI} to the channel named ${$I}channel${$NI} followed by a newline character. A
-                trailing newline character is written unless the optional flag ${$B}-nonewline${$N} is
-                given. If channel is omitted, the string is written to the standard output
-                channel, ${$B}stdout${$N}.
-                Newline characters in the output are translated by ${$B}chan puts${$N} to platform-specific
-                end-of-line sequences according to the currently configured value of the
-                ${$B}-translation${$N} option for the channel (for example, on PCs newlines are normally
-                replaced with carriage-return-linefeed sequences; see ${$B}chan configure${$N} for details).
-
-                Tcl buffers output internally, so characters written with ${$B}chan puts${$N} may not appear
-                immediately on the output file or device; Tcl will normally delay output until the
-                buffer is full or the channel is closed. You can force output to appear
-                immediately with the ${$B}chan flush${$N} command.
-
-                When the output buffer fills up, the ${$B}chan puts${$N} command will normally block until
-                all the buffered data has been accepted for output by the operating system. If
-                channel is in non-blocking mode then the ${$B}chan puts${$N} command will not block even if
-                the operating system cannot accept the data. Instead, Tcl continues to buffer the
-                data and writes it in the background as fast as the underlying file or device can
-                accept it. The application must use the Tcl event loop for non-blocking output to
-                work; otherwise Tcl never finds out that the file or device is ready for more
-                output data. It is possible for an arbitrarily large amount of data to be buffered
-                for a channel in non-blocking mode, which could consume a large amount of memory.
-                To avoid wasting memory, non-blocking I/O should normally be used in an
-                event-driven fashion with the ${$B}chan event${$N} command (do not invoke ${$B}chan puts${$N} unless
-                you have recently been notified via a file event that the channel is ready for more
-                output data).
-
-                The command will raise an error exception with POSIX error code ${$B}EILSEQ${$N} if the
-                encoding profile ${$B}strict${$N} is in effect for the channel and the output data cannot be
-                encoded in the encoding configured for the channel. Data may be partially written
-                to the channel in this case."
-            @opts -prefix 0
-            -nonewline -type none
-            @values -min 1 -max 2
-            channel -type string -optional 1
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-    }
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::chan::read
-        @cmd -name "Built-in: tcl::chan::read"\
-            -summary\
-            "Read from a channel."\
-            -help\
-            "In the first form, the result will be the next numChars characters read from the channel named
-            channel; if numChars is omitted, all characters up to the point when the channel would signal a
-            failure (whether an end-of-file, blocked or other error condition) are read. In the second form
-            (i.e. when numChars has been omitted) the flag -nonewline may be given to indicate that any
-            trailing newline in the string that has been read should be trimmed.
-            If channel is in non-blocking mode, chan read may not read as many characters as requested: once
-            all available input has been read, the command will return the data that is available rather
-            than blocking for more input. If the channel is configured to use a multi-byte encoding, then
-            there may actually be some bytes remaining in the internal buffers that do not form a complete
-            character. These bytes will not be returned until a complete character is available or end-of-file
-            is reached. The -nonewline switch is ignored if the command returns before reaching the end of the
-            file.
-
-            Chan read translates end-of-line sequences in the input into newline characters according to the
-            -translation option for the channel (see chan configure above for a discussion on the ways in
-            which chan configure will alter input).
-
-            When reading from a serial port, most applications should configure the serial port channel to be
-            non-blocking, like this:
-
-                chan configure channel -blocking 0
-
-            Then chan read behaves much like described above. Note that most serial ports are comparatively
-            slow; it is entirely possible to get a readable event for each character read from them. Care
-            must be taken when using chan read on blocking serial ports:
-
-            chan read channel numChars
-                In this form chan read blocks until numChars have been received from the serial port.
-            chan read channel
-                In this form chan read blocks until the reception of the end-of-file character, see
-                chan configure -eofchar. If there no end-of-file character has been configured for the
-                channel, then chan read will block forever.
-
-            If the encoding profile strict is in effect for the channel, the command will raise an exception
-            with the POSIX error code EILSEQ if any encoding errors are encountered in the channel input data.
-            If the channel is in blocking mode, the error is thrown after advancing the file pointer to the
-            beginning of the invalid data. The successfully decoded leading portion of the data prior to the
-            error location is returned as the value of the -data key of the error option dictionary. If the
-            channel is in non-blocking mode, the successfully decoded portion of data is returned by the
-            command without an error exception being raised. A subsequent read will start at the invalid data
-            and immediately raise a EILSEQ POSIX error exception. Unlike the blocking channel case, the -data
-            key is not present in the error option dictionary. In the case of exception thrown due to encoding
-            errors, it is possible to introspect, and in some cases recover, by changing the encoding in use.
-            See ENCODING ERROR EXAMPLES later."
-
-        @form -form readchars
-        @values -min 1 -max 2
-        channel
-        numChars -type integer -optional 1
-
-        @form -form read
-        @opts
-        -nonewline -type none
-        @values -min 1 -max 1
-        channel
-
-    } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::chan::seek
-        @cmd -name "Built-in: tcl::chan::seek"\
-            -summary\
-            "Set channel access position as byte offset."\
-            -help\
-            "Sets the current access position within the underlying data stream for the channel named
-            channel to be offset bytes relative to origin.
-            Offset must be an integer (which may be negative)
-            The origin argument defaults to start.
-
-            Chan seek flushes all buffered output for the channel before the command returns, even if the
-            channel is in non-blocking mode. It also discards any buffered and unread input. This command
-            returns an empty string. An error occurs if this command is applied to channels whose
-            underlying file or device does not support seeking.
-
-            Note that offset values are byte offsets, not character offsets. Both chan seek and chan tell
-            operate in terms of bytes, not characters, unlike chan read."
-        @values -min 2 -max 3
-        channel
-        offset -type integer
-        origin -type string\
-            -default start\
-            -optional 1\
-            -choicecolumns 1\
-            -choices {start current end}\
-            -choicelabels {
-            start\
-            " The new access position will be offset bytes from the start of the underlying file or device."
-            current\
-            " The new access position will be offset bytes from the current access position; a negative
-             offset moves the access position backwards in the underlying file or device."
-             enc\
-            " The new access position will be offset bytes from the end of the file or device. A negative
-             offset places the access position before the end of file, and a positive offset places the
-             access position after the end of file."
-            }
-    } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::chan::tell
-        @cmd -name "Built-in: tcl::chan::tell"\
-            -summary\
-            "Report channel access position as byte offset."\
-            -help\
-            "Returns a number giving the current access position within the underlying
-            data stream for the channel named channel. This value returned is a byte
-            offset that can be passed to ${[a+ bold]}chan seek${[a+ normal]} in order
-            to set the channel to a particular position. Note that this value is in
-            terms of bytes, not characters like ${[a+ bold]}chan read${[a+ normal]}. The
-            value returned is -1 for channels that do not support seeking."
-        @values -min 1 -max 1
-        channel -help \
-            ""
-    } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::chan::truncate
-        @cmd -name "Built-in: tcl::chan::truncate"\
-            -summary\
-            "Truncate channel to specified length or current byte offset."\
-            -help\
-            "Sets the byte length of the underlying data stream for the channel to be
-            length (or to the current byte offset within the underlying data stream if
-            length is omitted). The channel is flushed before truncation."
-        #todo - auto synopsis?
-        #@form -synopsis\
-        #    "chan truncate channel ?length?"
-        @values -min 1 -max 2
-        channel -help \
-            ""
-        length -optional 1 -type integer
-    } "@doc -name Manpage: -url [manpage_tcl chan]" ]
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #dict
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::append
-            @cmd -name "Built-in: tcl::dict::append" -help\
-                "This appends the given string (or strings) to the value that the given
-                key maps to in the dictionary value contained in the given variable,
-                writing the resulting dictionary value back to that variable. Non-existant
-                keys are treated as if they map to an empty string. The updated dictionary
-                value is returned."
-            @values -min 2 -max -1
-            dictionaryVariable -type string -help \
-                ""
-            key
-            string -type string -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::create
-            @cmd -name "Built-in: tcl::dict::create" -help\
-                "Return a new dictionary that contains each of the key/value mappings listed
-                as arguments (keys and values alternating, with each key being followed by
-                its associated value)"
-            @values -min 2 -max -1
-            "key value" -type {string string} -typesynopsis {${$I}key${$NI} ${$I}value${$NI}} -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::exists
-            @cmd -name "Built-in: tcl::dict::exists" -help\
-                "This returns a boolean value indicating whether the given key (or path of
-                keys through a set of nested dictionaries) exists in the given dictionary
-                value. This returns a true value exactly when ${$B}dict get${$N} on that path will
-                succeed."
-            @values -min 2 -max -1
-            dictionaryValue -type dict
-            key -type string -multiple 1 -optional 0
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::for
-            @cmd -name "Built-in: tcl::dict::for" -help\
-                "This command takes three arguments, the first a two-element list of
-                variable names (for the key and value respectively of each mapping in
-                the dictionary), the second the dictionary value to iterate across, and
-                the third a script to be evaluated for each mapping with the key and
-                value variable set appropriately (in the manner of ${$B}foreach${$N}).
-                The result of the command is an empty string. If any evlauation of the
-                body generates a ${$B}TCL_BREAK${$N} result, no further pairs from the
-                dictionary will be iterated over and the ${$B}dict for${$N} command will
-                terminate successfully immediately. If any evaluation of the body generates
-                a ${$B}TCL_CONTINUE${$N} result, this shall be treated exactly like a 
-                normal ${$B}TCL_OK${$N} result. The order of iteration is the order in which
-                the keys were inserted into the dictionary."
-            @values -min 3 -max 3
-            "{keyVariable valueVariable}" -type list -minsize 2 -maxsize 2
-            dictionaryValue -type dict
-            body -type string -help\
-                "Tcl script"
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::dict::get
-            @cmd -name "Built-in: tcl::dict::get" -help\
-                "Given a dictionary value (first argument) and a key (second argument), this
-                will retrieve the value for that key. Where several keys are supplied, the
-                behaviour of the command shall be as if the result of ${$B}dict get $dictVal $key${$N}
-                was passed as the first argument to ${$B}dict get${$N} with the remaining
-                arguments as second (and possibly subsequent) arguments. This facilitates
-                lookups in nested dictionaries. For example, the following two commands are
-                equivalent:
-                  ${[punk::args::tclcore::argdoc::example {
-                  dict get $dict foo bar spong
-                  dict get [dict get [dict get $dict foo] bar] spong\
-                  }
-                  ]}
-                If no keys are provided, ${$B}dict get${$N} will return a list containing pairs
-                of elements in a manner similar to ${$B}array get${$N}. That is, the first
-                element of each pair would be the key and the second element would be the value
-                for that key.
-                It is an error to attempt to retrieve a value for a key that is not present in 
-                the dictionary.
-                "
-            @values -min 1 -max -1
-            dictionaryValue -type dict
-            key -type string -multiple 1 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::dict::getdef
-            @cmd -name "Built-in: tcl::dict::getdef" -help\
-                "This behaves the same as ${$B}dict get${$N} (with at least one ${$I}key${$NI} argument),
-                returning the value that the key path maps to in the dictionary
-                ${$I}dictionaryValue${$NI}, except that instead of producing an error because the
-                ${$I}key${$NI} (or one of the ${$I}key${$NI}s on the key path) is absent, it returns the
-                ${$I}default${$NI} argument instead.
-                Note that there must always be at least one ${$I}key${$NI} provided, and that ${$B}dict getdef${$N} and
-                ${$B}dict getwithdefault${$N} are aliases for each other."
-            @values -min 1 -max -1
-            dictionaryValue -type dict
-            key -type string -multiple 1 -optional 0
-            default -type any -optional 0
-        } "@doc -name Manpage: -url [manpage_tcl dict]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        #use getdef to define getwithdefault
-        punk::args::define [punk::args::resolved_def -override {@id {
-            -id ::tcl::dict::getwithdefault
-        } @cmd {
-            -name "Built-in: tcl::dict::getwithdefault"
-        }} ::tcl::dict::getdef]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::incr
-            @cmd -name "Built-in: tcl::dict::incr" -help\
-                "This adds the given ${$I}increment${$NI} value (an integer that defaults to 1 if
-                not specified) to the value that the given key maps to in the dictionary
-                value contained in the given variable, writing the resulting dictionary
-                value back to that variable. Non-existent keys are treated as if they
-                map to 0. It is an error to increment a value for an existing key if that
-                value is not an integer. The updated dictionary value is returned. If
-                ${$I}dictionaryVariable${$NI} indicates an element that does not exist of an array
-                that has a default value set, the default value and will be used as the
-                value of the dictionary prior to the incrementing operation."
-            @values -min 2 -max 3
-            dictionaryVariable -type string
-            key -type any
-            increment -type integer -default 1 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::info
-            @cmd -name "Built-in: tcl::dict::info" -help\
-                "This returns information (intended for display to people) about the
-                given dictionary though the format of this data is dependent on the
-                implementation of the dictionary. For dictionaries that are implemented
-                by hash tables, it is expected that this will return the string produced
-                by ${$B}Tcl_HashStats${$N}, similar to ${$B}array statistics${$N}."
-            @values -min 1 -max 1
-            dictionaryValue -type dict
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::keys
-            @cmd -name "Built-in: tcl::dict::keys" -help\
-                "Return a list of all keys in the given dictionary value. If a pattern is
-                supplied, only those keys that match it (according to the rules of ${$B}string
-                match${$N}) will be returned. The returned keys will be in the order that they
-                were inserted into the dictionary."
-            @values -min 1 -max 2
-            dictionaryValue -type dict
-            globPattern -type string -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::lappend
-            @cmd -name "Built-in: tcl::dict::lappend" -help\
-                "This appends the given items to the list value that the given key maps
-                to in the dictionary value contained in the given variable, writing the
-                resulting dictionary value back to that variable. Non-existent keys are
-                treated as if they map to an empty list, and it is legal for there to be
-                no items to append to the list. It is an error for the value that the key
-                maps to to not be representable as a list. The updated dictionary value
-                is returned. If ${$I}dictionaryVariable${$NI} indicates an element that does not
-                exist of an array that has a default value set, the default value and
-                will be used as the value of the dictionary prior to the list-appending
-                operation."
-            @values -min 2 -max -1
-            dictionaryVariable -type dict
-            key -type any
-            value -type any -multiple 1 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::map
-            @cmd -name "Built-in: tcl::dict::map" -help\
-                "This command applies a transformation to each element of a dictionary,
-                returning a new dictionary. It takes three arguments: the first is a
-                two-element list of variable names (for the key and value respectively of
-                each mapping in the dictionary), the second the dictionary value to
-                iterate across, and the third a script to be evaluated for each mapping
-                with the key and value variables set appropriately (in the manner of ${$B}lmap${$N}).
-                In an iteration where the evaluated script completes normally (${$B}TCL_OK${$N}, as
-                opposed to an ${$B}error${$N}, etc.) the result of the script is put into an
-                accumulator dictionary using the key that is the current contents of the
-                keyVariable variable at that point. The result of the ${$B}dict map${$N} command is
-                the accumulator dictionary after all keys have been iterated over.
-
-                If the evaluation of the body for any particular step generates a break,
-                no further pairs from the dictionary will be iterated over and the ${$B}dict
-                map${$N} command will terminate successfully immediately. If the evaluation of
-                the body for a particular step generates a continue result, the current
-                iteration is aborted and the accumulator dictionary is not modified. The
-                order of iteration is the natural order of the dictionary (typically the
-                order in which the keys were added to the dictionary; the order is the
-                same as that used in ${$B}dict for${$N})."
-            @values -min 3 -max 3
-            "{keyVariable valueVariable}" -type list -minsize 2 -maxsize 2
-            dictionaryValue -type dict
-            body -type script
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::merge
-            @cmd -name "Built-in: tcl::dict::merge" -help\
-                "Return a dictionary that contains the contents of each of the
-                ${$I}dictionaryValue${$NI} arguments. Where two (or more) dictionaries
-                contain a mapping for the same key, the resulting dictionary maps that
-                key to the value according to the last dictionary on the command line
-                containing a mapping for that key."
-            @values -min 0 -max -1
-            dictionaryValue -type dict -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::remove
-            @cmd -name "Built-in: tcl::dict::remove" -help\
-                "Return a new dictionary that is a copy of an old one passed in as first
-                argument except without mappings for each of the keys listed. It is legal
-                for there to be no keys to remove, and it also legal for any of the keys
-                to be removed to not be present in the input dictionary in the first place."
-            @values -min 1 -max -1
-            dictionaryValue -type dict
-            key -type any -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::replace
-            @cmd -name "Built-in: tcl::dict::replace" -help\
-                "Return a new dictionary that is a copy of an old one passed in as first
-                argument except with some values different or some extra key/value pairs
-                added. It is legal for this command to be called with no key/value pairs,
-                but illegal for this command to be called with a key but no value."
-            @values -min 1 -max -1
-            dictionaryValue -type dict
-            "key value" -type {any any} -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::set
-            @cmd -name "Built-in: tcl::dict::set" -help\
-                "This operation takes the name of a variable containing a dictionary value
-                and places an updated dictionary value in that variable containing a
-                mapping from the given key to the given value. When multiple keys are
-                present, this operation creates or updates a chain of nested dictionaries.
-                The updated dictionary value is returned. If ${$I}dictionaryVariable${$NI} indicates
-                an element that does not exist of an array that has a default value set,
-                the default value and will be used as the value of the dictionary prior to
-                the value insert/update operation."
-            @values -min 3 -max -1
-            dictionaryVariable -type string
-            key -type string -optional 0 -multiple 1
-            value -type any
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::size
-            @cmd -name "Built-in: tcl::dict::size" -help\
-                "Return the number of key/value mappings in the given dictionary value."
-            @values -min 1 -max 1
-            dictionaryValue -type dict
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::unset
-            @cmd -name "Built-in: tcl::dict::unset" -help\
-                "This operation (the companion to ${$B}dict set${$NI}) takes the name of a variable
-                containing a dictionary value and places an updated dictionary value in
-                that variable that does not contain a mapping for the given key. Where
-                multiple keys are present, this describes a path through nested
-                dictionaries to the mapping to remove. At least one key must be specified,
-                but the last key on the key-path need not exist. All other components on
-                the path must exist. The updated dictionary value is returned. If
-                ${$I}dictionaryVariable${$NI} indicates an element that does not exist of an array
-                that has a default value set, the default value and will be used as the
-                value of the dictionary prior to the value remove operation."
-            @values -min 2 -max -1
-            dictionaryVariable -type string
-            key -type string -optional 0 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::update
-            @cmd -name "Built-in: tcl::dict::update" -help\
-                "Execute the Tcl script in ${$I}body${$NI} with the value for each ${$I}key${$NI} (as found by
-                reading the dictionary value in ${$I}dictionaryVariable${$NI}) mapped to the variable
-                ${$I}varName${$NI}. There may be multiple ${$I}key/varName${$NI} pairs. If a ${$I}key${$NI} does not have a
-                mapping, that corresponds to an unset ${$I}varName${$NI}. When ${$I}body${$NI} terminates, any
-                changes made to the ${$I}varName${$NI}s is reflected back to the dictionary within
-                ${$I}dictionaryVariable${$NI} (unless ${$I}dictionaryVariable${$NI} itself becomes unreadable,
-                when all updates are silently discarded), even if the result of ${$I}body${$NI} is an
-                error or some other kind of exceptional exit. The result of dict update is
-                (unless some kind of error occurs) the result of the evaluation of ${$I}body${$NI}.
-                If ${$I}dictionaryVariable${$NI} indicates an element that does not exist of an array
-                that has a default value set, the default value and will be used as the
-                value of the dictionary prior to the update operation.
-
-                Each ${$I}varName${$NI} is mapped in the scope enclosing the dict update; it is
-                recommended that this command only be used in a local scope (${$B}proc${$N}edure,
-                lambda term for ${$B}apply${$N}, or method). Because of this, the variables set by
-                ${$B}dict update${$N} will continue to exist after the command finishes (unless
-                explicitly unset).
-
-                Note that the mapping of values to variables does not use traces; changes
-                to the ${$I}dictionaryVariable${$NI}'s contents only happen when ${$I}body${$NI} terminates."
-            @values -min 4 -max -1
-            dictionaryVariable -type string
-            "key varName" -type {any any} -typesynopsis {${$I}key${$NI} ${$I}varName${$NI}} -optional 0 -multiple 1
-            body -type script -typesynopsis ${$I}body<script>${$NI} -optional 0
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::dict::with
-            @cmd -name "Built-in: tcl::dict::with" -help\
-                "Execute the Tcl script in body with the value for each key in dictionaryVariable mapped (in a manner
-                similarly to dict update) to a variable with the same name. Where one or more keys are available,
-                these indicate a chain of nested dictionaries, with the innermost dictionary being the one opened out
-                for the execution of body. As with dict update, making dictionaryVariable unreadable will make the
-                updates to the dictionary be discarded, and this also happens if the contents of dictionaryVariable
-                are adjusted so that the chain of dictionaries no longer exists. The result of dict with is (unless
-                some kind of error occurs) the result of the evaluation of body. If dictionaryVariable indicates an
-                element that does not exist of an array that has a default value set, the default value and will be
-                used as the value of the dictionary prior to the updating operation.
-                The variables are mapped in the scope enclosing the dict with; it is recommended that this command
-                only be used in a local scope (procedure, lambda term for apply, or method). Because of this, the
-                variables set by dict with will continue to exist after the command finishes (unless explicitly unset).
-
-                Note that the mapping of values to variables does not use traces; changes to the dictionaryVariable's
-                contents only happen when body terminates.
-
-                If the dictionaryVariable contains a value that is not a dictionary at the point when the body
-                terminates (which can easily happen if the name is the same as any of the keys in dictionary) then an
-                error occurs at that point. This command is thus not recommended for use when the keys in the
-                dictionary are expected to clash with the dictionaryVariable name itself. Where the contained key does
-                map to a dictionary, the net effect is to combine that inner dictionary into the outer dictionary; see
-                the EXAMPLES for an illustration of this."
-            @values -min 2 -max -1
-            dictionaryVariable -type string
-            key     -type any -typesynopsis {${$I}key${$NI}} -optional 1 -multiple 1
-            body -type script -typesynopsis ${$I}body<script>${$NI} -optional 0
-        } "@doc -name Manpage: -url [manpage_tcl dict]" ]
-    }
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #file
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::channels
-            @cmd -name "Built-in: tcl::file::channels" -help\
-                "If ${$I}pattern${$NI} is not specified, returns a list of names of all
-                registered copen channels in this interpreter. If ${$I}pattern${$NI} is
-                specified, only those names matching ${$I}pattern${$NI} are returned.
-                Matching is determined using the same rules as for string match."
-            @opts -prefix 0
-            @values -min 0 -max -1
-            pattern -optional 1 -type string -default *
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::delete
-            @cmd -name "Built-in: tcl::file::delete" -help\
-                "Removes the file or directory specified by each ${$I}pathname${$NI} argument.
-                Non-empty directories will be removed only if the ${$B}-force${$N} option is
-                specified. When operating on symbolic links, the links themselves will be
-                deleted, not the objects they point to. Trying to delete a non-existent file
-                is not considered an error. Trying to delete a read-only file will cause the
-                file to be deleted, even if the ${$B}-force${$N} flag is not specified. If the ${$B}-force${$N}
-                flag is specified on a directory, Tcl will attempt both to change permissions
-                and move the current directory \"pwd\" out of the given path if that is
-                necessary to allow the deletion to proceed. Arguments are processed in the
-                order specified, halting at the first error, if any. A -- marks the end of
-                switches; the argument following the -- will be treated as a ${$I}pathname${$NI}
-                even if it starts with a -."
-            @opts -prefix 0
-            -force -optional 1 -type none
-            -- -optional 1 -type none
-            @values -min 0 -max -1
-            pathname -optional 1 -type string -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::copy
-            @cmd -name "Built-in: tcl::file::copy" -help\
-                "The first form makes a copy of the file or directory ${$I}source${$NI} under the pathname ${$I}target${$NI}.
-                If ${$I}target${$NI} is an existing directory then the second form is used.
-                The second form makes a copy inside ${$I}targetDir${$NI} of each ${$I}source${$NI} file listed.
-                If a directory is specified as a ${$I}source${$NI}, then the contents of the directory will be
-                recursiveley copied into ${$I}targetDir${$NI}. Existing files will not be overwritten unless the
-                ${$B}-force${$N} options is specified (when Tcl will also attempt to adjust permissions on the destination
-                file or directory if that is necessary to allow the copy to proceed).
-                When copying within a single filesystem, ${$I}file copy${$NI} will copy soft links (i.e the links themselves
-                are copied, not the things they point to.) Trying to overwrite a non-empty directory, overwrite a directory
-                with a file, or overwrite a file with a directory will all result in errors even if ${$B}-force${$N} was
-                specified.
-                Arguments are processed in the order specified, halting at the first error, if any. A -- marks the end of
-                switches; the argument following the -- will be treated as a ${$I}source${$NI} even if it starts with a -."
-            @form -form {topath inpath}
-            @opts  -form {*} -prefix 0
-            -force -optional 1 -type none
-            -- -optional 1 -type none
-
-            @form -form "topath"
-            @values -min 2 -max 2
-            source -type string -help\
-                "file or directory"
-            target -type string
-
-            @form -form "inpath"
-            @values -min 2 -max -1
-            source -type string -multiple 1 -help\
-                "file or directory"
-            targetDir -optional 0 -type existingdir
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::executable
-            @cmd -name "Built-in: tcl::file::executable" -help\
-                "Returns ${$B}1${$N} if file ${$I}name${$NI} is executable by the current user, ${$B}0${$N}
-                otherwise. On Windows, which does not have an executable attribute, the command treats
-                all directories and any files with extensions ${$B}exe${$N}, ${$B}com${$N}, ${$B}cmd${$N} or ${$B}bat${$N} as executable."
-            @values -min 0 -max 1
-            name -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::exists
-            @cmd -name "Built-in: tcl::file::exists" -help\
-                "Returns ${$B}1${$N} if the file ${$I}name${$NI} exists and the current user has search
-                privileges for the directories leading to it, ${$B}0${$N} otherwise."
-            @values -min 0 -max 1
-            name -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::extension
-            @cmd -name "Built-in: tcl::file::extension" -help\
-                "Returns all of the characters in ${$I}name${$NI} after and including the last dot in the last
-                element of name. If there is no dot in the last element of ${$I}name${$NI} then returns the
-                empty string."
-            @values -min 0 -max 1
-            name -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::home
-            @cmd -name "Built-in: tcl::file::home" -help\
-                "If no argument is specified, the command returns the home directory of the current user.
-                This is generally the value of the ${$B}$HOME${$N} environment variable except that on Windows
-                platforms backslashes in the path are replaced by forward slashes. An error is raised if
-                the ${$B}$HOME${$N} environment variable is not set.
-                if ${$I}username${$NI} is specified, the command returns the home directory configured in the
-                system for the specified user. Note this may be different that the value of the ${$B}$HOME${$N}
-                environment variable even when the ${$I}username${$NI} corresponds to the current user.
-                An error is raised if the ${$I}username${$NI} does not correspond to a user account on the system."
-            @values -min 0 -max 1
-            username -optional 1 -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::isdirectory
-            @cmd -name "Built-in: tcl::file::isdirectory" -help\
-                "Returns ${$B}1${$N} if the file name is a directory, ${$B}0${$N} otherwise."
-            @values -min 1 -max 1
-            name -optional 0 -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::isfile
-            @cmd -name "Built-in: tcl::file::isfile" -help\
-                "Returns ${$B}1${$N} if the file name is a regular file, ${$B}0${$N} otherwise."
-            @values -min 1 -max 1
-            name -optional 0 -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        #join
-        #link
-        #lstat
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::mkdir
-            @cmd -name "Built-in: tcl::file::mkdir" -help\
-                "Creates each directory specified.
-                For each pathname ${$I}dir${$NI} specified, this command will create all non-existing parent directories
-                as well as ${$I}dir${$NI} itself. If an existing directory is specified, then no action is taken and no
-                error is returned. Trying to overwrite an existing file with a directory will result in an error.
-                Arguments are processed in the order specified, halting at the first error, if any."
-            @values -min 0 -max -1
-            dir -optional 1 -type string -multiple 1
-            #dir -optional 1 -type directory -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl file]" ]
-
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::mtime
-            @cmd -name "Built-in: tcl::file::mtime" -help\
-                "Returns a decimal string giving the time at which file ${$I}name${$NI} was last modified.
-                If ${$I}time${$NI} is specified, it is a modification time to set for the file (equivalent
-                to Unix ${$B}touch${$N}). The time is measured in the standard POSIX fashion as seconds
-                from a fixed starting time (often January 1, 1970). If the file does not exist or its
-                modified time cannot be queried or set then an error is generated. on ${$B}zipfs${$N}
-                file systems, modification time cannot be explicitly set."
-            @values -min 1 -max 2
-            name -type string
-            time -type integer -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl file]"]
-        #nativename
-        #normalize
-        #owned
-        #pathtype
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::readable
-            @cmd -name "Built-in: tcl::file::readable" -help\
-                "Returns ${$B}1${$N} if the file ${$I}name${$NI} is readable by the current user, ${$B}0${$N} otherwise."
-            @values -min 1 -max 1
-            name -optional 0 -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]"]
-        #readlink
-        #rename (2 forms)
-        #rootname
-        #separator
-        #size
-        #split
-        #stat
-        #system
-        #tail
-        #tempdir
-        #tempfile
-        #tildeexpand
-        #type
-        #volumes
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::file::writable
-            @cmd -name "Built-in: tcl::file::writable" -help\
-                "Returns ${$B}1${$N} if the file ${$I}name${$NI} is writable by the current user, ${$B}0${$N} otherwise."
-            @values -min 1 -max 1
-            name -optional 0 -type string
-        } "@doc -name Manpage: -url [manpage_tcl file]"]
-
-
-    }
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::mathfunc::abs
-            @cmd -name "Built-in: tcl::mathfunc::abs" -help\
-                "Returns the absolute value of ${$I}arg${$NI}. ${$I}Arg${$NI} may be either integer
-                or floating-point, and the result is returned in the same form."
-            @values -min 1 -max 1
-            #review - NaN shouldn't be accepted - specify a range to exclude it.
-            arg -type number -range {-Inf Inf}
-        } "@doc -name Manpage: -url [manpage_tcl mathfunc]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::mathfunc::acos
-            @cmd -name "Built-in: tcl::mathfunc::acos" -help\
-                "Returns the arc cosine of ${$I}arg${$NI}, in the range [0,pi] radians.
-                ${$I}Arg${$NI} should be in the range [-1,1]."
-            @values -min 1 -max 1
-            arg -type number -range {-1 1}
-        } "@doc -name Manpage: -url [manpage_tcl mathfunc]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        #asin
-        #atan
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::tcl::mathfunc::atan2
-            @cmd -name "Built-in: tcl::mathfunc::atan2" -help\
-                "Returns the arc tangent of ${$I}y/x${$NI}, in the range [-pi,pi] radians.
-                ${$I}x${$NI} and ${$I}y${$NI} cannot both be 0. If ${$I}x${$NI} is greater
-                than 0, this is equivalent to \"${$B}atan [expr {y/x}]${$N}\"."
-            @values -min 2 -max 2
-            y -type number
-            x -type number
-        } "@doc -name Manpage: -url [manpage_tcl mathfunc]" ]
-
-    }
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    lappend PUNKARGS [list {
-        @id     -id              ::tcl::namespace::children
-        @cmd    -name "Built-in: tcl::namespace::children"\
-            -summary\
-            "list child namespaces"\
-            -help\
-            "Returns a list of all child namespaces that belong to the namespace namespace.
-            If namespace is not specified, then the children are returned for the current
-            namespace. This command returns fully-qualified names, which start with a double
-            colon (::). If the optional pattern is given, then this command returns only the
-            names that match the glob-style pattern. The actual pattern used is determined as
-            follows: a pattern that starts with double colon (::) is used directly, otherwise
-            the namespace namespace (or the fully-qualified name of the current namespace) is
-            prepended onto the pattern."
-        @values
-        namespace -optional 1
-        pattern -optional 1
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::namespace::origin
-        @cmd -name "Built-in: tcl::namespace::origin" -help\
-            "Returns the fully-qualified name of the original command to which the
-            imported command command refers. When a command is imported into a
-            namespace, a new command is created in that namespace that points to the
-            actual command in the exporting namespace. If a command is imported into
-            a sequence of namespaces a,b,...,n where each successive namespace just
-            imports the command from the previous namespace, this command returns
-            the fully-qualified name of the original command in the first namespace, a.
-            If command does not refer to an imported command, the command's own
-            fully-qualified name is returned
-            "
-        @values
-        command
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::namespace::path
-        @cmd -name "Built-in: tcl::namespace::path" -help\
-            "Returns the command resolution path of the current namespace.
-            If namespaceList is specified as a list of named namespaces, the current
-            namespace's command resolution path is set to those namespaces and returns
-            the empty list. The default command resolution path is always empty.
-            See the section NAME_RESOLUTION in the manpage for an explanation of the
-            rules regarding name resolution."
-        @values -min 0 -max 1
-        namespaceList -type list -optional 1 -help\
-            "List of existing namespaces"
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::namespace::unknown
-        @cmd -name "Built-in: tcl::namespace::unknown" -help\
-            "Sets or returns the unknown command handler for the current namespace.
-            The handler is invoked when a command called from within the namespace cannot
-            be found in the current namespace, the namespace's path nor in the global
-            namespace.
-            When the handler is invoiked, the full invocation line will be appended to
-            the script and the result evaluated in the context of the namespace.
-            The default handler for all namespaces is ${[a+ italic]}::unknown${[a+ noitalic]}.
-            If no argument is given, it returns the handler for the current namespace."
-        @values -min 0 -max 1
-        script -type script -optional 1 -help\
-            "A well formed list representing a command name and optional arguments."
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::namespace::which
-        @cmd -name "Built-in: tcl::namespace::which" -help\
-            "Looks up name as either a command or variable and returns its fully-qulified name.
-            For example, if name does not exist in the current namespace but does exist in the
-            global namespace, this command returns a fully-qualified name in the global namespace.
-            If the command or variable does not exist, this command returns an empty string. If
-            the variable has been created but not defined, such as with the variable command or
-            through a trace on the variable, this command will return the fully-qualified name
-            of the variable. If no flag is given, name is treated as a command name.
-            See the section NAME RESOLUTION in the manpage for an explanation of the rules
-            regarding name resolution.
-            "
-            @opts
-            -command -type none
-            #todo - make mutually exclusive - (separate forms)
-            -variable -type none
-            @values -min 1 -max 1
-            name
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::process::status
-        @cmd -name "Built-in: tcl::process::status" -help\
-            "Returns a dictionary mapping subprocess PIDs to their respective status.
-            If ${$I}pids${$NI} is specified as a list of PIDs then the command
-            only returns the status of the matching subprocesses if they exist.
-            For active processes, the status is an empty value. For terminated
-            processes, the status is a list with the following format:
-            {code ?msg errorCode?}
-            where:
-                ${$I}code${$NI}
-                    is a standard Tcl return code, ie.,
-                    0 for TCL_OK and 1 for TCL_ERROR,
-                ${$I}msg${$NI}
-                    is the human readable error message,
-                ${$I}errorCode${$NI}
-                    uses the same format as the errorCode global variable
-                    Note that msg and errorCode are only present for abnormally
-                    terminated processes (i.e. those where the code is nonzero).
-                    Under the hood this command calls Tcl_WaitPid with the
-                    WNOHANG flag set for non-blocking behaviour, unless the -wait
-                    switch is set (see below).
-
-            "
-        -wait -type none -optional 1 -help\
-            "By default the command returns immediately (the underlying Tcl_WaitPid
-              is called with the WNOHANG flag set) unless this switch is set. if pids
-              is specified as a list of PIDS then the command waits until the status
-              of the matching subprocesses are avaliable. If pids was not specified,
-              this command will wait for all known subprocesses."
-        -- -type none -optional 1 -help\
-            "Marks the end of switches. The argument following this one will be
-              treated as the first arg even if it starts with a -."
-        @values -min 0 -max 1
-        pids -type list -optional 1 -help\
-            "A list of PIDs"
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-
-    lappend PUNKARGS [list {
-        @id	-id ::tcl::process::purge
-        @cmd -name "Built-in: tcl::process::purge" -help\
-            "Cleans up all data associated with terminated subprocesses. If pids is
-            specified as a list of PIDs then the command only cleans up data for
-            the matching subprocesses if they exist. If a process listed is still
-            active, this command does nothing to that process.
-            Any PID that does not correspond to a subprocess is ignored."
-        @values -min 0 -max 1
-        pids -type list -optional 1 -help\
-            "A list of PIDs"
-    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-    ############################################################################################################################################################
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # COMMANDS A-H
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    ############################################################################################################################################################
-
-    namespace eval argdoc {
-        #categorise array subcommands based on currently known groupings.
-        #we do this dynamically because Tcl ensembles (even some core ones) can have subcommands added at runtime.
-        proc array_subcommands {} {
-            #puts "--array_subcommands frames:"
-            #for {set i 0} {$i <= [info frame]} {incr i} {
-            #    puts "$i   [info frame $i]"
-            #}
-
-            #dict set groups ""              {bogus names} ;#test adding both existant and nonexistant to the default group
-            dict set groups "search"        {startsearch anymore nextelement donesearch}
-            return [ensemble_subcommands_definition -groupdict $groups -columns 4 array]
-        }
-    }
-
-    lappend PUNKARGS [list {
-        #test of @form
-        @id     -id ::after
-        @cmd    -name "Built-in: after"\
-            -summary\
-            "Execute a command after a time delay."\
-            -help\
-            "This command is used to delay execution of the program or to execute a
-            command in background sometime in the future.
-            The after ms and after idle forms of the command assume that the application
-            is event driven: the delayed commands will not be executed unless the
-            application enters the event loop. In applications that are not normally
-            event-driven, such as tclsh, the event loop can be entered with the vwait
-            and update commands."
-
-        # ----------  shared elements -------------
-        @ref    -id     common_script_help  -help\
-            "script argument to be concatenated in the same fashion as the concat command"
-        # ----------  shared elements -------------
-
-        #@form   -form   {delay}             -synopsis "after ms"
-        @form   -form   {delay}
-        #@form   -form   {schedule_ms}       -synopsis "after ms ?script...?"
-        @form   -form   {schedule_ms}
-
-        #review
-        #@values -form   {*} #note "classify next argument as a value not a leader"
-        #@values -form   {*}
-        @leaders -form {delay schedule_ms} -min 1 -max 1
-        ms      -form   {*}                 -type int -help\
-            "milliseconds"
-
-        @values -form   {delay}             -min 0 -max 0
-
-        @values -form   {schedule_ms}       -min 1
-        script  -form   {schedule_ms}       -multiple 1 -optional 0  ref-help common_script_help
-
-
-        #@form   -form   {cancelid}          -synopsis "after cancel id"
-        @form   -form   {cancelid}
-        @leaders                            -min 1 -max 1
-        cancel                              -choices {cancel}
-        @values                             -min 1 -max 1
-        id
-
-
-        #@form   -form   {cancelscript}      -synopsis "after cancel script ?script...?"
-        @form   -form   {cancelscript}
-        @leaders
-            cancel                          -choices {cancel}
-        @values                             -min 1
-            script                          -multiple 1 -optional 0  ref-help common_script_help
-
-
-        #@form   -form   {schedule_idle}     -synopsis "after idle script ?script...?"
-        @form   -form   {schedule_idle}
-        @leaders                            -min 1 -max 1
-            idle                            -choices {idle} -choiceprefixreservelist {info}
-        @values                             -min 1
-            script                          -multiple 1 -optional 0 ref-help common_script_help
-
-        #@form   -form   {info}              -synopsis "after info ?id?"
-        @form   -form   {info}
-        @leaders                            -min 1 -max 1
-            info                            -choices {info} -choiceprefixreservelist {idle}
-        @values                             -min 0 -max 1
-            id                              -optional 1
-
-    } "@doc -name Manpage: -url [manpage_tcl after]" ]
-
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::append
-            @cmd    -name "Built-in: append"\
-                -summary\
-                "Append to variable."\
-                -help\
-                "Append all of the ${$I}value${$NI} arguments to the current value of variable
-                ${$I}varName${$NI}. if ${$I}varName${$NI} does not exist, it is given a value equal
-                to the concatenation of all the ${$I}value${$NI} arguments.
-                if ${$I}varName indicates an element that does not exist of an array that has a default value
-                set, the concatenation of the default value and all the ${$I}value${$NI} arguments will be stored
-                in the array element.
-                The result of this command is the new value stored in variable ${$I}varName${$NI}.
-                This command privides an efficient way to build up long variables incrementally.
-                For example, \"${$B}append a $b${$N}\" is much more efficient than \"${$B}set a $a$b${$N}\"
-                if ${$B}$a${$N} is long."
-            @values -min 1
-            varName -optional 0
-            value -type string -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl append]" ]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id     -id ::apply
-            @cmd    -name "Built-in: apply"\
-                -summary\
-                {Apply an anonymous function.}\
-                -help\
-                {The command ${$B}apply${$N} applies the function ${$I}func${$NI} to the arguments arg1 arg2 ...
-                and returns the result.
-                The function func is a two element list {${$I}args body${$NI}} or a three element list
-                {${$I}args body namespace${$NI}} (as if the list command had been used). The first
-                element ${$I}args${$NI} specifies the formal arguments to func. The specification of
-                the formal arguments ${$I}args${$NI} is shared with the ${$B}proc${$N} command, and is described
-                in detail in the corresponding manual page.
-
-                The contents of ${$I}body${$NI} are executed by the Tcl interpreter after the local
-                variables corresponding to the formal arguments are given the values of the
-                actual parameters arg1 arg2 .... When ${$I}body${$NI} is being executed, variable names
-                normally refer to local variables, which are created automatically when
-                referenced and deleted when ${$B}apply${$N} returns. One local variable is automatically
-                created for each of the function's arguments. Global variables can only be
-                accessed by invoking the ${$B}global${$N} command or the ${$B}upvar${$N} command. Namespace
-                variables can only be accessed by invoking the ${$B}variable${$N} command or the ${$B}upvar${$N}
-                command.
-
-                The invocation of ${$B}apply${$N} adds a call frame to Tcl's evaluation stack (the stack
-                of frames accessed via ${$B}uplevel${$N}). The execution of ${$I}body${$NI} proceeds in this call
-                frame, in the namespace given by ${$I}namespace${$NI} or in the global namespace if none
-                was specified. If given, ${$I}namespace${$NI} is interpreted relative to the global
-                namespace even if its name does not start with “::”.
-
-                The semantics of ${$B}apply${$N} can also be described by approximately this:
-                  ${[punk::args::tclcore::argdoc::example {
-                    proc apply {fun args} {
-                        set len [llength $fun]
-                        if {($len < 2) || ($len > 3)} {
-                            error "can't interpret \"$fun\" as anonymous function"  
-                        }
-                        lassign $fun argList body ns
-                        set name ::$ns::[getGloballyUniqueName]
-                        set body0 {
-                            rename [lindex [info level 0] 0] {}
-                        }
-                        proc $name $argList ${body0}$body
-                        set code [catch {uplevel 1 $name $args} res opt]
-                        return -options $opt $res
-                    }}]}
-                }
-
-            @values  -min 1
-            "{args body ?namespace?}" -optional 0 -type list -minsize 2 -maxsize 3
-            arg -type any -optional 1 -multiple 1
-
-
-        } "@doc -name Manpage: -url [manpage_tcl append]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::array
-            @cmd    -name "Built-in: array"\
-                -summary\
-                "Manipulate array variables"\
-                -help\
-                "This command performs one of several operations on the variable given by
-                arrayName. Unless otherwise specified for individual commands below,
-                arrayName must be the name of an existing array variable. The subcommand
-                argument determines what action is carried out by the command."
-            @leaders
-            ${[punk::args::tclcore::argdoc::array_subcommands]}
-
-        } "@doc -name Manpage: -url [manpage_tcl array]" ]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        lappend PUNKARGS [list {
-            @id     -id ::tcl::array::default
-            @cmd    -name "Built-in: array default"\
-                -summary\
-                "Manages the default value of the array."\
-                -help\
-                "Arrays initially have no default value, but this command allows you to set one;
-                the default value will be returned when reading from an element of the array
-                ${$I}arrayName${$NI} if the read would otherwise result in an error.
-                Note that this may cause the ${$B}append${$N}, ${$B}dict${$N}, ${$B}incr${$N} and ${$B}lappend${$N}
-                commands to change their behaviour in relation to non-existing array elements."
-
-            @form -form exists
-            @leaders
-            exists -type literal(exists) -help\
-                "This returns a boolean value indicating whether a default value has
-                  been set for the array ${$I}arrayName${$NI}. Returns a false value if
-                  ${$I}arrayName${$NI} does not exist. Raises an error if ${$I}arrayName${$NI}
-                  is an existing variable that is not an array."
-            @values -min 1 -max 1
-            arrayName
-
-            @form -form get
-            @leaders
-            get -type literal(get) -help\
-                "This returns the current default value for the array ${$I}arrayName${$NI}.
-                  Raises an error if ${$I}arrayName${$NI} is an existing variable that is
-                  not an array, or if ${$I}arrayName${$NI} is an array without a default value."
-            @values -min 1 -max 1
-            arrayName
-
-            @form -form set
-            @leaders
-            set -type literal(set) -help\
-                "This sets the default value for the array ${$I}arrayName${$NI} to ${$I}value${$NI}.
-                Returns the empty string. Raises an error if ${$I}arrayName${$NI} is an existing
-                variable that is not an array, or if ${$I}arrayName${$NI} is an illegal name for an
-                array. If ${$I}arrayName${$NI} does not currently exist, it is created as an empty
-                array as well as having its default value set."
-            @values -min 2 -max 2
-            arrayName
-            value
-
-            @form -form unset
-            @leaders
-            unset -type literal(unset) -help\
-                "This removes the default value for the array ${$I}arrayName${$NI} and returns
-                the empty string. Does nothing if ${$I}arrayName${$NI} does not have a default
-                value. Raises an error if ${$I}arrayName${$NI} is an existing variable that is
-                not an array."
-            @values -min 1 -max 1
-            arrayName
-
-
-        } "@doc -name Manpage: -url [manpage_tcl array]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    }
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::break
-            @cmd    -name "Built-in: break"\
-                -summary\
-                "Abort looping command"\
-                -help\
-                "This command is typically invoked inside the body of a looping command such
-                as ${$B}for${$N} or ${$B}foreach${$N} or ${$B}while${$N}. It returns a
-                3 (${$B}TCL_BREAK${$N}) result code, which causes a break exception
-                to occur. The exception causes the current script to be aborted out to the
-                innermost containing loop command, which then aborts its execution and
-                returns normally. Break exceptions are also handled in a few other
-                situations, such as the ${$B}catch${$N} command, Tk event bindings, and
-                the outermost scripts of procedure bodies."
-            @values -min 0 -max 0
-        } "@doc -name Manpage: -url [manpage_tcl break]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::catch
-            @cmd    -name "Built-in: catch"\
-                -summary\
-                "Evaluate script and trap exceptional returns."\
-                -help\
-                "The catch command may be used to prevent errors from aborting command
-                interpretation. The catch command calls the Tcl interpreter recursively to
-                execute script, and always returns without raising an error, regardless of
-                any errors that might occur while executing script.
-                If script raises an error, catch will return a non-zero integer value
-                corresponding to the exceptional return code returned by evaluation of
-                script. Tcl defines the normal return code from script evaluation to be
-                zero (0), or TCL_OK. Tcl also defines four exceptional return codes:
-                1 (TCL_ERROR), 2 (TCL_RETURN), 3 (TCL_BREAK), and 4 (TCL_CONTINUE).
-                Errors during evaluation of a script are indicated by a return code of
-                TCL_ERROR. The other exceptional return codes are returned by the return,
-                break, and continue commands and in other special situations as documented.
-                New commands defined by Tcl packages as well as scripts that make use of the
-                return -code command can return other integer values as the return code.
-                These must however lie outside the range reserved for Tcl as documented for
-                the return command.
-
-                If the resultVarName argument is given, then the variable it names is set to
-                the result of the script evaluation. When the return code from the script is
-                1 (TCL_ERROR), the value stored in resultVarName is an error message. When
-                the return code from the script is 0 (TCL_OK), the value stored in
-                resultVarName is the value returned from script.
-
-                If the optionsVarName argument is given, then the variable it names is set to
-                a dictionary of return options returned by evaluation of script. Tcl specifies
-                two entries that are always defined in the dictionary: -code and -level. When
-                the return code from evaluation of script is not TCL_RETURN, the value of the
-                -level entry will be 0, and the value of the -code entry will be the same as
-                the return code. Only when the return code is TCL_RETURN will the values of
-                the -level and -code entries be something else, as further described in the
-                documentation for the return command.
-
-                When the return code from evaluation of script is TCL_ERROR, four additional
-                entries are defined in the dictionary of return options stored in optionsVarName:
-                -errorinfo, -errorcode, -errorline, and -errorstack. The value of the -errorinfo
-                entry is a formatted stack trace containing more information about the context in
-                which the error happened. The formatted stack trace is meant to be read by a
-                person. The value of the -errorcode entry is additional information about the
-                error stored as a list. The -errorcode value is meant to be further processed by
-                programs, and may not be particularly readable by people. The value of the
-                -errorline entry is an integer indicating which line of script was being
-                evaluated when the error occurred. The value of the -errorstack entry is an
-                even-sized list made of token-parameter pairs accumulated while unwinding the
-                stack. The token may be “CALL”, in which case the parameter is a list made of the
-                proc name and arguments at the corresponding level; or it may be “UP”, in which
-                case the parameter is the relative level (as in uplevel) of the previous CALL.
-                The salient differences with respect to -errorinfo are that:
-
-
-                  1. it is a machine-readable form that is amenable to processing with
-                     [foreach {tok prm} ...],
-                  2. it contains the true (substituted) values passed to the functions, instead of
-                    the static text of the calling sites, and
-                  3. it is coarser-grained, with only one element per stack frame (like procs;
-                     no separate elements for foreach constructs for example).
-
-                The values of the -errorinfo and -errorcode entries of the most recent error are
-                also available as values of the global variables ::errorInfo and ::errorCode
-                respectively. The value of the -errorstack entry surfaces as info errorstack.
-
-                Tcl packages may provide commands that set other entries in the dictionary of
-                return options, and the return command may be used by scripts to set return options
-                in addition to those defined above."
-            @values -min 1 -max 3
-            script
-            resultVarName -type string -optional 1
-            optionsVarName -type string -optional 1
-
-        } "@doc -name Manpage: -url [manpage_tcl catch]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::concat
-            @cmd    -name "Built-in: concat"\
-                -summary\
-                "Join lists together."\
-                -help\
-                "This command joins each of its arguments together with spaces after trimming
-                leading and trailing white-space from each of them. If all of the arguments
-                are lists, this has the same effect as concatenating them into a single list.
-                Arguments that are empty (after trimming) are ignored entirely. It permits
-                any number of arguments; if no args are supplied, the result is an empty
-                string."
-            @values -min 0
-            arg -type string -optional 1 -multiple 1 -help\
-                "Usually, but not necessarily a proper Tcl list"
-        } "@doc -name Manpage: -url [manpage_tcl concat]" ]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::const
-            @cmd    -name "Built-in: const"\
-                -summary\
-                "Create and initialise a constant."\
-                -help\
-                "This command is normally used within a procedure body (or method body,
-                or lambda term) to create a constant within that procedure, or within a
-                namespace eval body to create a constant within that namespace. The
-                constant is an unmodifiable variable, called varName, that is initialised
-                with value. The result of const is always the empty string on success.
-                If a variable varname does not exist, it is create with its value set to
-                value and marked as a constant; this means that no other command (e.g set,
-                append, incr, unset) may modify or remove the variable; variables are
-                checked for whether they are constants before any traces are called. If a
-                variable varName already exists, it is an error unless that variable is
-                marked as a constant (in which case const is a no-op)
-
-                The varName may not be a qualified name or reference an element of an
-                array by any means. If the variable exists and is an array, that is an
-                error. Constants are normally only removed by their containing procedure
-                exiting or their namespace being deleted.
-                "
-            @values -min 1 -max 2
-            varName -help ""
-            value
-
-        } "@doc -name Manpage: -url [manpage_tcl const]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::continue
-            @cmd    -name "Built-in: continue"\
-                -summary\
-                "Skip to the next iteration of a loop."\
-                -help\
-                "This command is typically invoked inside the body of a looping command such
-                as ${$B}for${$N} or ${$B}foreach${$N} or ${$B}while${$N}. It returns a
-                4 (${$B}TCL_CONTINUE${$N}) result code, which causes a continue exception
-                to occur. The exception causes the current script to be aborted out to the
-                innermost containing loop command, which then continues with the next
-                iteration of the loop. Continue exceptions are also handled in a few other
-                situations, such as the ${$B}catch${$N} command and the outermost scripts of
-                procedure bodies."
-            @values -min 0 -max 0
-        } "@doc -name Manpage: -url [manpage_tcl continue]" ]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::eof
-            @cmd -name "Built-in: eof"\
-                -summary\
-                "Check for end of file condition on channel"\
-                -help\
-                "Test whether the last input operation on the channel called ${$I}channel${$NI}
-                failed because the end of the data stream was reached, returning 1 if end-of-file
-                was reached, and 0 otherwise.
-
-                The ${$B}eof${$N} command has been superceded by the ${$B}chan eof${$N} command
-                which supports the same syntax and options."
-            @values -min 1 -max 1
-            channel -help \
-                ""
-        } "@doc -name Manpage: -url [manpage_tcl eof]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::error
-            @cmd    -name "Built-in: error"\
-                -summary\
-                "Generate an error."\
-                -help\
-                "Returns a TCL_ERROR code, which causes command interpretation to be unwound.
-                Message is a string that is returned to the application to indicate what went
-                wrong.
-                The -errorinfo return option of an interpreter is used to accumulate a stack
-                trace of what was in progress when an error occurred; as nested commands
-                unwind, the Tcl interpreter adds information to the -errorinfo return option.
-                If the info argument is present, it is used to initialize the -errorinfo
-                return options and the first increment of unwind information will not be added
-                by the Tcl interpreter. In other words, the command containing the error
-                command will not appear in the stack trace; in its place will be info.
-                Historically, this feature had been most useful in conjunction with the catch
-                command: if a caught error cannot be handled successfully, info can be used to
-                return a stack trace reflecting the original point of occurrence of the error:
-                  ${[punk::args::tclcore::argdoc::example {
-                    catch {...} errMsg
-                    set savedInfo $::errorInfo  
-                        ...
-                    error $errMsg $savedInfo
-                  }]}
-                When working with Tcl 8.5 or later, the following code should be used intead:
-                  ${[punk::args::tclcore::argdoc::example {
-                    catch {...} errMsg options
-                        ...
-                    return -options $options $errMsg
-                  }]}
-                If the code argument is present, then its value is stored in the -errorcode
-                return option. The -errorcode return option is intended to hold a
-                machine-readable description of the error in cases where such information is
-                available; see the return manual page for information on the proper format for
-                this option's value."
-            @values -min 1 -max 3
-            message -type string
-            info    -type string -optional 1
-            code    -type list   -optional 1 -help\
-                "machine-readable data to store in -errorcode return option"
-
-        } "@doc -name Manpage: -url [manpage_tcl error]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::eval
-            @cmd -name "Built-in: eval"\
-                -summary\
-                "Evaluate a Tcl script."\
-                -help\
-                "${$B}Eval${$N} takes one or more arguments, which together comprise a Tcl script containing
-                one or more commands. ${$B}Eval${$N} concatenates all its arguments in the same fashion as the
-                ${$B}concat${$N} command, passes the concatenated string to the Tcl interpreter recursively,
-                and returns the result of that evaluation (or any error generated by it).
-                Note that the ${$B}list${$N} command quotes sequences of words in such a way that they are not
-                further expanded by the ${$B}eval${$N} command; for any values, $a, $b, and $c, these two lines
-                are effectively equivalent:
-
-                    eval [list $a $b $c]
-                    $a $b $c
-                "
-            @values -min 1 -max -1
-            arg -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl eval]"\
-        {@examples -help {
-            Often, it is useful to store a fragment of a script in a variable and execute it later on
-            with extra values appended. This technique is used in a number of places throughout the Tcl
-            core (e.g. in ${$B}fcopy${$N}, ${$B}lsort${$N} and ${$B}trace${$N} command callbacks). This example shows how to do this
-            using core Tcl commands:
-                ${[punk::args::tclcore::argdoc::example {
-                  set script {
-                      puts "logging now"
-                      lappend $myCurrentLogVar
-                  }
-                  set myCurrentLogVar log1
-                  # Set up a switch of logging variable part way through!  
-                  after 20000 set myCurrentLogVar log2
-
-                  for {set i 0} {$i<10} {incr i} {
-                      # Introduce a random delay
-                      after [expr {int(5000 * rand())}]
-                      update    ;# Check for the asynch log switch
-                      eval $script $i [clock clicks]
-                  }
-                }]}
-            Note that in the most common case (where the script fragment is actually just a list of words
-            forming a command prefix), it is better to use {*}$script when doing this sort of invocation
-            pattern. It is less general than the eval command, and hence easier to make robust in practice.
-            The following procedure acts in a way that is analogous to the lappend command, except it
-            inserts the argument values at the start of the list in the variable:
-                ${[punk::args::tclcore::argdoc::example {
-                  proc lprepend {varName args} {
-                      upvar 1 $varName var
-                      # Ensure that the variable exists and contains a list  
-                      lappend var
-                      # Now we insert all the arguments in one go
-                      set var [eval [list linsert $var 0] $args]
-                  }
-                }]}
-            However, the last line would now normally be written without eval, like this:
-                ${[punk::args::tclcore::argdoc::example {
-                  set var [linsert $var 0 {*}$args]  
-                }]}
-            Or indeed like this:
-                ${[punk::args::tclcore::argdoc::example {
-                   set var [list {*}$args {*}$var]  
-                }]}
-            }
-        }]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::exit
-            @cmd -name "Built-in: exit"\
-                -summary\
-                "End the application."\
-                -help\
-                "Terminate the process, returning ${$I}returnCode${$NI} to the system as the exit status.
-                If ${$I}returnCode${$NI} is not specified then it default to 0."
-            @values -min 0 -max 1
-            returnCode -type integer -default 0 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl exit]"\
-        {@examples -help {
-            Since non-zero exit codes are usually interpreted as error cases by the calling process,
-            the exit command is an important part of signaling that something fatal has gone wrong.
-            This code fragment is useful in scripts to act as a general problem trap:
-                ${[punk::args::tclcore::argdoc::example {
-                  proc main {} {
-                      # ... put the real main code in here ...
-                  }
-
-                  if {[catch {main} msg options]} {
-                      puts stderr "unexpected script error: $msg"
-                      if {[info exists env(DEBUG)]} {
-                          puts stderr "---- BEGIN TRACE ----"
-                          puts stderr [dict get $options -errorinfo]
-                          puts stderr "---- END TRACE ----"
-                      }
-
-                      # Reserve code 1 for "expected" error exits...
-                      exit 2
-                  }
-                }]}
-            }
-        }]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::tcl::build-info
-            @cmd    -name "Built-in: tcl::build-info"\
-                -summary\
-                "Build info."\
-                -help\
-                "This command provides a way to retrieve information about how Tcl was built.
-                Without any options, the command returns the Tcl patchlevel, followed by the
-                '+'-sign, followed by the fossil commit-id followed by a list of dot-separated
-                tags. If a field is given, this command extracts that field as described below.
-                Any other field value not mentioned below will always return \"0\"."
-            @leaders -min 0 -max 1
-            field -type string -optional 1 -choicecolumns 3\
-            -choices {
-                clang commit compiledebug compiler compilestats cplusplus debug gcc icc ilp32 memdebug msvc
-                nmake no-deprecate no-thread no-optimize objective-c objective-cplusplus patchlevel profile
-                purify static tommath version zlib
-            }\
-            -choicelabels {
-                clang\
-                " Returns the clang version number (as 4 digits)
-                 if Tcl is compiled with clang, 0 otherwise."
-                commit\
-                " Returns the fossil commit-id where Tcl was
-                 built from."
-                compiledebug\
-                " Returns 1 if Tcl is compiled with
-                 ${$B}-DTCL_COMPILE_DEBUG${$N}, 0 otherwise."
-                compiler\
-                " Returns the compiler name (either clang, gcc,
-                 icc or msvc), followed by a dash and a (4-digit)
-                 version number."
-                compilestats\
-                " Returns 1 if Tcl is compiled with
-                 ${$B}-DTCL_COMPILE_STATS${$N}, 0 otherwise."
-                cplusplus\
-                " Returns 1 if Tcl is compiled with a C++
-                 compiler, 0 otherwise."
-                debug\
-                " Returns 1 if Tcl is not compiled with
-                 ${$B}-DNDEBUG${$N}, 0 otherwise."
-                gcc\
-                " Returns the gcc version number (as 4 digits)
-                 if Tcl is compiled with gcc, 0 otherwise."
-                icc\
-                " Returns the icc version number (as 4 digits)
-                 if Tcl is compiled with icc, 0 otherwise."
-                ilp32\
-                " Returns 1 if Tcl is compiled such that integers,
-                 longs and pointers are all 32-bit, 0 otherwise."
-                memdebug\
-                " Returns 1 if Tcl is compiled with
-                ${$B}-DTCL_MEM_DEBUG${$N}, 0 otherwise."
-                msvc\
-                " Returns the msvc version number (as 4 digits)
-                 if Tcl is compiled with msvc, 0 otherwise."
-                nmake\
-                " Returns 1 if Tcl is built using nmake,
-                 0 otherwise"
-                no-deprecate\
-                " Returns 1 if Tcl is compiled with
-                ${$B}-DTCL_NO_DEPRECATED${$N}, 0 otherwise."
-                no-thread\
-                " Returns 1 if Tcl is compiled with
-                 ${$B}-DTCL_THREADS${$N}=0, 0 otherwise."
-                no-optimize\
-                " Returns 1 if Tcl is not compiled with
-                 ${$B}-DTCL_CFG_OPTIMIZED${$N}, 0 otherwise."
-                objective-c\
-                " Returns 1 if Tcl is compiled with an
-                 objective-c compiler, 0 otherwise."
-                objective-cplusplus\
-                " Returns 1 if Tcl is compiled with an
-                 objective-c++ compiler, 0 otherwise."
-                patchlevel\
-                " Returns the Tcl patchlevel, same as
-                 ${$B}info patchlevel${$N}."
-                profile\
-                " Returns 1 if Tcl is compiled with
-                 ${$B}-DTCL_CFG_PROFILED${$N}, 0 otherwise."
-                purify\
-                " Returns 1 if Tcl is compiled with
-                 ${$B}-DPURIFY${$N}, 0 otherwise."
-                static\
-                " Returns 1 if Tcl is compiled as a static
-                 library, 0 otherwise."
-                tommath\
-                " Returns the libtommath version number
-                 (as 4 digits) if libtommath is built into
-                 Tcl, 0 otherwise."
-                version\
-                " Returns the Tcl version, same as
-                 ${$B}info tclversion${$N}."
-                zlib\
-                " Returns the zlib version number (as 4 digits)
-                 if zlib is built into Tcl, 0 otherwise."
-            }
-            @values -min 0 -max 0
-        }  "@doc -name Manpage: -url [manpage_tcl buildinfo]"\
-        {@examples -help {
-            These show the use of ::tcl::build-info.
-                ${[punk::args::tclcore::argdoc::example {
-                ::tcl::build-info
-                     → 9.0.2+af16c07b81655fabde8028374161ad54b84ef9956843c63f49976b4ef601b611.gcc-1204
-                ::tcl::build-info commit
-                     → af16c07b81655fabde8028374161ad54b84ef9956843c63f49976b4ef601b611
-                ::tcl::build-info compiler
-                     → gcc-1204
-                ::tcl::build-info gcc
-                     → 1204
-                ::tcl::build-info version
-                     → 9.0
-                ::tcl::build-info patchlevel
-                     → 9.0.2
-                }]}
-            }
-        }]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::exec
-            @cmd    -name "Built-in: exec"\
-                -summary\
-                "Invoke subprocesses."\
-                -help\
-                "This command treats its arguments as the specification of one or more
-                subprocesses to execute. The arguments take the form of a standard shell
-                pipeline where each arg becomes one word of a command, and each distinct
-                command becomes a subprocess. The result of the command is the standard
-                output of the final subprocess in the pipeline, interpreted using the
-                system encoding; to use any other encoding (especially including binary
-                data), the pipeline must be opened, configured and read explicitly.
-
-                If the initial arguments to exec start with - then they are treated as
-                command-line switches and are not part of the pipeline specification.
-
-                (see manpage for full details - especially 'portability issues')"
-            @leaders -min 0 -max 0
-            @opts
-            -ignorestderr -type none -help\
-                "stops the ${$B}exec${$N} command from treating the output
-                  of messages to the pipeline's standard error channel as an
-                  error case."
-            -keepnewline -type none -help\
-                "Retains a trailing newline in the pipeline's output.
-                  Normally a trailing newline will be deleted."
-            -- -type none -help\
-                "Marks the end of switches. The argument following this
-                  one will be treated as the first ${$I}arg${$NI} even if it
-                  starts with a -."
-            @values -min 1 -max -1
-            arg -type string -multiple 1 -optional 0
-            #we must give an optional value a -default - or it will be processed as empty string and won't validate if not received!
-            #(default values are never validated)
-            stderr_to_result    -type {literal(2>@1)}   -optional 1 -default 0
-            bgexec              -type {literal(&)}      -optional 1 -default 0
-        }  "@doc -name Manpage: -url [manpage_tcl expr]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::expr
-            @cmd    -name "Built-in: expr"\
-                -summary\
-                "Evaluate an expression."\
-                -help\
-                "Concatenates ${$I}args${$NI}, separated by a space, into an expression,
-                and evaluates that expression, returning its value. The operators permitted
-                in an expression include a subset of the operators permitted in C expressions.
-                For those operators common to both Tcl and C, Tcl applies the same meaning and
-                precedence as the corresponding C operators. The value of an expression is
-                often a numeric result, either an integer or a floating-point value, but may
-                also be a non-numeric value. For example, the expression
-                  ${$B}expr${$N} 8.2 + 6
-                evaluates to 14.2. Expressions differ from C expressions in the way that
-                operands are specified. Expressions also support non-numeric operands, string
-                comparisons, and some additional operators not found in C.
-                When the result of expression is an integer, it is in decimal form, and when
-                the result is a floating-point number, it is in the form produced by the
-                ${$B}%g${$N} format specifier of ${$B}format${$N}.
-                At any point in the expression except within double quotes or braces, ${$B}#${$N}
-                is the beginning of a comment, which lasts to the end of the line or end of
-                the expression, whichever comes first.
-                (see manpage for full details)"
-            @values -min 1 -max -1
-            arg -type string -multiple 1 -optional 0
-        }  "@doc -name Manpage: -url [manpage_tcl expr]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::for
-            @cmd    -name "Built-in: for"\
-                -summary\
-                "'For' loop"\
-                -help\
-                "${$B}For${$N} is a looping command, simliar in structure to the C ${$B}for${$N}
-                statement. The ${$I}start${$NI}, ${$I}next${$NI}, and ${$I}body${$NI} arguments
-                must be Tcl command strings, and ${$I}test${$NI} is an expression string. The
-                ${$B}for${$N} command first invokes the Tcl interpreter to execute ${$I}start${$NI}.
-                Then it repeatedly evaluates ${$I}test${$NI} as an expression; if the result
-                is non-zero it invokes the Tcl interpreter on ${$I}body${$NI}, then invokes
-                the Tcl interpreter on ${$I}next${$NI}, then repeats the loop. The command
-                terminates when ${$I}test${$NI} evaluates to 0. If a ${$B}continue${$N} command
-                is invoked within ${$I}body${$NI} then any remaining commands in the current
-                execution of ${$I}body${$NI} are skipped; processing continues by invoking the
-                Tcl interpreter on ${$I}next${$NI}, then evaluating ${$I}test${$NI}, and so on.
-                If a ${$B}break${$N} command is invoked within ${I}body${$NI} or ${$I}next${$NI},
-                then the ${$B}for${$N} command will return immediately. The operation of ${$B}break${$N}
-                and ${$B}continue${$N} are similar to corresponding statements in C.
-                ${$B}for${$N} returns an empty string.
-
-                Note that ${$I}test${$NI} should almost always be enclosed in braces. If not,
-                variable substitutions will be made before the ${$B}for${$N} command starts
-                executing, which means that variable changes made by the loop body will not
-                be considered in the expression. This is likely to result in an infinite loop.
-                If ${$I}test${$NI} is enclosed in braces, variable substitutions are delayed
-                until the expression is evaluated (before each loop iteration), so changes
-                in the variables will be visible.
-                "
-            @values -min 4 -max 4
-            start -type script
-            test -type expr
-            next -type script
-            body -type script -help\
-                "Tcl script"
-        } "@doc -name Manpage: -url [manpage_tcl for]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::foreach
-            @cmd    -name "Built-in: foreach"\
-                -summary\
-                "Iterate over all elements in one or more lists."\
-                -help\
-                "The ${$B}foreach${$N} command implements a loop where the loop variable(s)
-                take on values from one or more lists. In the simplest case there is one loop
-                variable, ${$I}varname${$NI} and one list, ${$I}list${$NI}, that is a list of values
-                to assign to ${$I}varname${$NI}. The body argument is a Tcl script. For each element
-                of ${$I}list${$NI} (in order from first to last), ${$B}foreach${$N} assigns the contents
-                of the element to ${$I}varname${$NI} as if the ${$B}lindex${$N} command had been used
-                to extract the element, then calls the Tcl interpreter to execute ${$I}body${$NI}.
-
-                In the general case there can be more than one value list, and each value list
-                can be associated with a list of loop variables. During each iteration of the
-                loop the variable of each ${$I}varlist${$NI} are assigned consecutive values from
-                the corresponding ${$I}list${$NI}. Values in each ${$I}list${$NI} are used in order from
-                first to last, and each value is used exactly once. The total number of loop
-                iterations is large enough to use up all the values from all the value lists.
-                If a value list does not contain enough elements for each of its loop variables
-                in each iteration, empty values are used for the missing elements.
-
-                The ${$B}break${$N} and ${$B}continue${$N} statements may be invoked inside ${$I}body${$NI},
-                with the same effect as in the ${$B}for${$N} command.
-                ${$B}Foreach${$N} returns an empty string."
-            @values
-            "varlist list" -type {list list} -typesynopsis {varlist list} -multiple 1 -optional 0
-            body -type string -optional 0 -help\
-                "Tcl script"
-        } "@doc -name Manpage: -url [manpage_tcl foreach]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::gets
-            @cmd    -name "Built-in: gets"\
-                -summary\
-                "Read a line from a channel"\
-                -help\
-                "The ${$B}gets${$N} command has been superceded by the ${$B}chan gets${$N} command
-                which supports the same syntax and optsion."
-            @values
-            channel
-            varName -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl gets]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::glob
-            @cmd    -name "Built-in: glob"\
-                    -summary\
-                "Return names of files that match patterns."\
-                    -help\
-                "This command performs file name “globbing” in a fashion similar to the csh shell or bash shell.
-                It returns a list of the files whose names match any of the pattern arguments. No particular
-                order is guaranteed in the list, so if a sorted list is required the caller should use lsort."
-            @opts
-            -directory -type directory -help\
-                "Search for files which match the given patterns starting in the given ${$I}directory${$NI}.
-                  This allows searching of directories whose name contains glob-sensitive characters
-                  without the need to quote such characters explicitly. This option may not be used
-                  in conjunction with ${$B}-path${$N}, which is used to allow searching for complete file
-                  paths whose names may contain glob-sensitive characters."
-            -join -type none -help\
-                "The remaining pattern arguments, after option processing, are treated as a single
-                  pattern obtained by joining the arguments with directory separators."
-            -nocomplain -type none -help\
-                "Allows an empty list to be returned without error; This is the default behavior in Tcl 9.0,
-                  so this switch has no effect any more."
-            -path -type string -help\
-                "Search for files with the given pathPrefix where the rest of the name matches the given
-                  patterns. This allows searching for files with names similar to a given file (as opposed
-                  to a directory) even when the names contain glob-sensitive characters. This option may not
-                  be used in conjunction with ${$B}-directory${$N}. For example, to find all files with the same root
-                  name as $path, but differing extensions, you should use
-                  “${$B}glob -path [file rootname $path] .*${$N}” which will work even if $path contains numerous
-                  glob-sensitive characters."
-            -tails -type none -help\
-                "Only return the part of each file found which follows the last directory named in any ${$B}-directory${$N}
-                  or ${$B}-path${$N} path specification. Thus “${$B}glob -tails -directory $dir *${$N}” is equivalent to
-                  “${$B}set pwd [pwd]; cd $dir; glob *; cd $pwd${$N}”. For -path specifications, the returned names will
-                  include the last path segment, so “${$B}glob -tails -path [file rootname /home/fred/foo.tex] .*${$N}” will
-                  return paths like foo.aux foo.bib foo.tex etc."
-            -types -type list -help\
-                "Only list files or directories which match typeList, where the items in the list have two forms. The
-                  first form is like the -type option of the Unix find command: b (block special file),
-                  c (character special file), d (directory), f (plain file), l (symbolic link), p (named pipe), or
-                  s (socket), where multiple types may be specified in the list. Glob will return all files which match
-                  at least one of the types given. Note that symbolic links will be returned both if -types l is given,
-                  or if the target of a link matches the requested type. So, a link to a directory will be returned
-                  if -types d was specified.
-                  The second form specifies types where all the types given must match. These are r, w, x as file
-                  permissions, and readonly, hidden as special permission cases. On the Macintosh, macOS types and
-                  creators are also supported, where any item which is four characters long is assumed to be a macOS
-                  type (e.g. TEXT). Items which are of the form {macintosh type XXXX} or {macintosh creator XXXX} will
-                  match types or creators respectively. Unrecognized types, or specifications of multiple macOS
-                  types/creators will signal an error.
-
-                  The two forms may be mixed, so -types {d f r w} will find all regular files OR directories that have
-                  both read AND write permissions. The following are equivalent:
-                    ${[punk::args::tclcore::argdoc::example {
-                    glob -type d *  
-                    glob */}
-                  ]}
-                except that the first case doesn't return the trailing “/” and is more platform independent."
-            -- -type none -help\
-                "Marks the end of switches. The argument following this one will be treated as a pattern even if it
-                starts with a -."
-            @values -min 1 -max -1
-            pattern -type string -multiple 1 -optional 1 -help\
-                "The pattern arguments may contain any of the following special characters, which are a superset of
-                  those supported by string match:
-                  ${$B}?${$N}
-                      Matches any single character.
-                  ${$B}*${$N}
-                      Matches any sequence of zero or more characters.
-                  ${$B}[chars]${$N}
-                      Matches any single character in ${$I}chars${$NI}. If ${$I}chars${$NI} contains a sequence of
-                      the form a-b then any character between ${$I}a${$NI} and ${$I}b${$NI} (inclusive) will match.
-                  ${$B}\x${$N}
-                      Matches the character ${$I}x${$NI}
-                  ${$B}{a,b,...}${$N}
-                      Matches any of the sub-patterns ${$I}a${$NI}, ${$I}b${$NI}, etc.
-
-                   On Unix, as with csh, a “.”  at the beginning of a file's name or just after a “/” must be matched
-                   explicitly or with a {} construct, unless the -types hidden flag is given (since “.”  at the
-                   beginning of a file's name indicates that it is hidden). On other platforms, files beginning with
-                   a “.”  are handled no differently to any others, except the special directories “.”  and “..”
-                   which must be matched explicitly (this is to avoid a recursive pattern like “glob -join * * * *”
-                   from recursing up the directory hierarchy as well as down). In addition, all “/” characters must be
-                   matched explicitly.
-
-                  The ${$B}glob${$N} command differs from csh globbing in two ways. First, it does not sort its result list
-                  (use the lsort command if you want the list sorted). Second, glob only returns the names of files
-                  that actually exist; in csh no check for existence is made unless a pattern contains a ?, *,
-                  or [] construct."
-        }  "@doc -name Manpage: -url [manpage_tcl glob]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::global
-            @cmd    -name "Built-in: global"\
-                -summary\
-                "Access global variables from procs."\
-                -help\
-                "This command has no effect unless executed in the context of a proc body. If the ${$B}global${$N} command is executed
-                in the context of a proc body, it creates local variables linked to the corresponding global variables (though
-                these linked variables, like those created by ${$B}upvar${$N}, are not included in the list returned by ${$B}info locals${$N}).
-                If ${$I}varname${$NI} contains namespace qualifiers, the local variable's name is the unqualified name of the global
-                variable, as determined by the ${$B}namespace tail${$N} command.
-
-                ${$I}varname${$NI} is always treated as the name of a variable, not an array element. An error is returned if the name
-                looks like an array element, such as ${$B}a(b)${$N}."
-            @values -min 0 -max -1
-            varName -multiple 1 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl global]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    }
-
-    ############################################################################################################################################################
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # COMMANDS I-L
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    ############################################################################################################################################################
-
-
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::if
-            @cmd -name "Built-in: if"\
-                -summary\
-                "Execute scripts conditionally."\
-                -help\
-                "The ${$B}if${$N} command evaluates ${$I}expr1${$NI} as an expression (in the
-                same way that ${$B}expr${$N} evaluates its argument). The value of the
-                expression must be a boolean (a numeric value, where 0 is false and anything
-                is true, or a string value such as ${$B}true${$N} or ${$B}yes${$N} for true
-                and ${$B}false${$N} or ${$B}no${$N} for false); if it is true then ${$I}body1${$NI}
-                is executed by passing it to the Tcl interpreter. Otherwise the ${$I}expr${$NI}
-                from any following ${$I}elseif${$NI} clause is evaluated as an expression and if
-                it is true then it's ${$I}body${$NI} is evaluated, and so on for each ${$I}elseif${$NI}
-                clause. If none of the expressions evaluates to true then the ${$I}body${$NI} from the
-                trailing ${$I}else${$NI} clause is evaluated if present.
-                The ${$B}then${$N} and ${$B}else${$N} arguments are optional \"noise words\" to make
-                the command easier to read. There may be any number of ${$B}elseif${$N} clauses,
-                including zero.
-                The return value from the command is the result of the body script that was
-                executed, or an empty string if none of the expressions was non-zero and there was
-                no trailing ${$I}else${$NI} clause.
-                (todo: punk::args variable clause length parsing due to 'noise words' - work in progress)"
-            @leaders -min 0 -max 0
-            @values -min 2 -max -1
-            expr1 -type expr -optional 0
-            then -type literal(then) -optional 1
-            body1 -type script -optional 0
-            #todo - punk::args variable-length striding by use of ?name? in -type list
-            "elseif_clause" -type {literal(elseif) expr ?literal(then)? script} -optional 1 -multiple 1
-            "else_clause"   -type {?literal(else)? script} -optional 1 -multiple 0
-        } "@doc -name Manpage: -url [manpage_tcl if]"]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::incr
-            @cmd -name "Built-in: incr"\
-                -summary\
-                "Increment the value of a variable."\
-                -help\
-                "Increments the value stored in the variable whose name is ${$I}varName${$NI}. The
-                value of the variable must be an integer. If ${$I}increment${$NI} is supplied then
-                its value (which must be an integer) is added to the value of variable
-                ${$I}varName${$NI}; otherwise 1 is added to ${$I}varName${$NI}. The new value is stored as a
-                decimal string in variable ${$I}varName${$NI} and also returned as result.
-                Starting with the Tcl 8.5 release, the variable ${$I}varName${$NI} passed to ${$B}incr${$N}
-                may be unset, and in that case, it will be set to the value ${$I}increment${$NI} or
-                to the default increment value of ${$B}1${$N}. If ${$I}varName${$NI} indicates an element that
-                does not exist of an array that has a default value set, the sum of the
-                default value and the ${$I}increment${$NI} (or 1) will be stored in the array element."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 2
-            varName -type string
-            increment -type integer -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl incr]"]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::join
-            @cmd    -name "Built-in: join"\
-                    -summary\
-                "Create a string by joining together list elements."\
-                    -help\
-                "The ${$I}list${$NI} argument must be a valid Tcl list. This command returns the string
-                formed by joining all of the elements of ${$I}list${$NI} together with ${$I}joinString${$NI}
-                separating each adjacent pair of elements. The ${$I}joinString${$NI} argument defaults
-                to a space character."
-            @values -min 1
-            list -type list
-            joinString -type string -default " " -optional 1
-
-        } "@doc -name Manpage: -url [manpage_tcl concat]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::lappend
-            @cmd -name "Built-in: lappend"\
-                -summary\
-                "Append list elements onto a variable."\
-                -help\
-                "This command treats the variable given by ${$I}listVar${$NI} as a list and
-                appends each of the ${$I}value${$NI} arguments to that list as a separate
-                element, with spaces between elements. If ${$I}listVar${$NI} does not exist,
-                it is created as a list with elements given by the value arguments. If
-                ${$I}listVar${$NI} indicates an element that does not exist of an array that
-                has a default value set, a list that is comprised of the default value with
-                all the ${$I}value${$NI} arguments appended as elements will be stored in the
-                array element. ${$I}Lappend${$NI} is similar to ${$I}append${$NI} except that the
-                values are appended as list elements rather than raw text. This command
-                provides a relatively efficient way to build up large lists. For example,
-                 ${$B}\"lappend a $b\"${$N} is much more efficient than
-                 ${$B}\"set a [concat $a [list $b]]\"${$N} when ${$B}$a${$N} is long."
-            @values -min 1 -max -1
-            listVar -type string -help\
-                "Existing list variable name"
-            value -type any -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl lappend]"]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id	-id ::lassign
-            @cmd -name "Built-in: lassign"\
-                -summary\
-                "Assign list elements to variables."\
-                -help\
-                "This command treats the value ${$I}list${$NI} as a list and assigns
-                successive elements from that list to the variables given by the
-                ${$I}varName${$NI} arguments in order. If there are more variable
-                names than list elements, the remaining variables are set to the
-                empty string. If there are more list elements than variables, a
-                list of unassigned elements is returned."
-            @values -min 1 -max -1
-            list -type list -help\
-                "tcl list as a value"
-            varName -type any -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl lassign]"]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::ledit
-            @cmd -name "Built-in: ledit"\
-                -summary\
-                "Replace elements of a list stored in variable."\
-                -help\
-                "The command fetches the list value in variable listVar and replaces the
-                elements in the range given by indices first to last (inclusive) with the
-                value arguments. The resulting list is then stored back in listVar and
-                returned as the result of the command.
-                Arguments first and last are index values specifying the first and last
-                elements of the range to replace. They are interpreted the same as index
-                values for the command ${$B}string index${$N}, supporting simple index arithmetic
-                and indices relative to the end of the list. The index ${$B}0${$N} refers to the
-                first element of the list, and end refers to the last element of the list.
-                (Unlike with ${$B}lpop${$N}, ${$B}lset${$N}, and ${$B}lindex${$N}, indices into sublists are not
-                supported.)
-
-                If either first or last is less than zero, it is considered to refer to the
-                position before the first element of the list. This allows elements to be
-                prepended.
-
-                If either first or last indicates a position greater than the index of the
-                last element of the list, it is treated as if it is an index one greater
-                than the last element. This allows elements to be appended.
-
-                If last is less than first, then any specified elements will be inserted
-                into the list before the element specified by first with no elements being
-                deleted.
-
-                The value arguments specify zero or more new elements to be added to the
-                list in place of those that were deleted. Each value argument will become a
-                separate element of the list. If no value arguments are specified, the
-                elements between first and last are simply deleted."
-            @values -min 3 -max -1
-            listVar -type string -help\
-                "Existing list variable name"
-            first -type indexexpression
-            last -type indexexpression
-            value -type any -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl ledit]"\
-        {@examples -help {
-            Prepend to a list.
-                ${[punk::args::tclcore::argdoc::example {
-                  set lst {c d e f g}
-                      -> c d e f g
-                  ledit lst -1 -1 a b
-                      -> a b c d e f g  
-                }]}
-            Append to the list.
-                ${[punk::args::tclcore::argdoc::example {
-                  ledit lst end+1 end+1 h i  
-                      -> a b c d e f g h i
-                }]}
-            Delete the third and fourth elements.
-                ${[punk::args::tclcore::argdoc::example {
-                  ledit lst 2 3
-                      -> a b e f g h i  
-                }]}
-            Replace two elements with three.
-                ${[punk::args::tclcore::argdoc::example {
-                  ledit lst 2 3 x y z
-                      -> a b x y z g h i  
-                  set lst
-                      -> a b x y z g h i
-                }]}
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lindex
-            @cmd -name "Built-in: lindex"\
-                -summary\
-                "Retrieve an element from a list."\
-                -help\
-                "When no index is supplied or a single index is supplied as an empty list,
-                the value of the entire list is simply returned.
-
-                If a single index is supplied and is a list of indices - this list is used
-                as a sequence of nested indices.
-                The command,
-                lindex $a 1 2 3
-                or
-                lindex $l {1 2 3}
-                is synonymous with
-                lindex [lindex [lindex $a 1] 2] 3
-
-                When presented with a single index, the lindex command treats list as a Tcl list
-                and returns the index'th element from it (0 refers to the first element of the
-                list). In extracting the element, lindex observes the same rules concerning
-                braces and quotes and backslashes as the Tcl command interpreter; however,
-                variable substution and command substitution do not occur. If index is negative
-                or greater than or equal to the number of elements in 'list', then an empty
-                string is returned. The interpretation of each simple index value is the same
-                as for the command 'string index', supporting simple index arithmetic and
-                indices relative to the end of the list.
-
-                If additional index arguments are supplied, then each argument is used in turn
-                to select an element from the previous indexing operation, allowing the script
-                to select elements from sublists."
-            @values -min 1 -max -1
-            list -type list -help\
-                "tcl list as a value"
-            index -type indexexpression -multiple 1 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl lindex]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::linsert
-            @cmd -name "Built-in: linsert"\
-                -summary\
-                "Insert elements into a list."\
-                -help\
-                "This command produces a new list from ${$I}list${$NI} by insertaing all of the
-                ${$I}element${$NI} arguments just before the ${$I}index${$NI}'th element of list.
-                Each ${$I}element${$NI} argument will become a separate element of the new list.
-                If ${$I}index${$NI} is less than or equal to zero, then the new elements are
-                inserted at the beginning of the list, and if ${$I}index${$NI} is greater or equal
-                to the length of ${$I}list${$NI}, it is as if it was ${$B}end${$N}.
-                As with ${$B}string index${$N}, the ${$I}index${$NI} value supports both simple index
-                arithmetic and end-relative indexing.
-                Subject to the restrictions that indices must refer to locations inside the list and
-                that the ${$I}elements${$NI} will always be inserted in order, insertions are done so
-                that when ${$I}index${$NI} is start-relative, the first ${$I}element${$NI} will be at that
-                index in the resulting list, and when ${$I}index${$NI} is end-relative, the last element will
-                be at that index in the resulting list."
-            @values -min 2 -max -1
-            list -type string -help\
-                "tcl list as a value"
-            index -type indexexpression
-            element -type any -optional 1 -multiple 1
-            @seealso -commands {list list lappend lassign ledit lindex llength lmap lpop lrange lrepeat lreplace lreverse lsearch lseq lset lsort}
-        } "@doc -name Manpage: -url [manpage_tcl linsert]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::list
-            @cmd -name "Built-in: list"\
-                -summary\
-                "Create a list."\
-                -help\
-                "This command returns a list comprised of all the args, or an empty string
-                if no args are specified. Braces and backslashes get added as necessary,
-                so that the lindex command may be used on the result to re-extract the
-                original arguments, and also so that eval may be used to execute the
-                resulting list, with arg1 comprising the command's name and the other args
-                comprising its arguments. List produces slightly different results than
-                concat: concat removes one level of grouping before forming the list,
-                while list works directly from the original arguments."
-            @values -min 0 -max -1
-            arg -type any -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl list]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::llength
-            @cmd -name "Built-in: llength"\
-                -summary\
-                "Count the number of elements in a list."\
-                -help\
-                "Treats ${$I}list${$NI} as a list and returns a decimal string giving the
-                number of elements in it."
-            @values -min 1 -max 1
-            list -type list -help\
-                "tcl list as a value"
-        } "@doc -name Manpage: -url [manpage_tcl llength]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::lmap
-            @cmd    -name "Built-in: lmap"\
-                -summary\
-                "Iterate over all elements in one or more lists and collect results."\
-                -help\
-                "The ${$B}lmap${$N} command implements a loop where the loop variable(s)
-                take on values from one or more lists, and the loop returns a list of results
-                collected from each iteration.
-                In the simplest case there is one loop variable, ${$I}varname${$NI} and one ${$I}list${$NI},
-                that is a list of values to assign to ${$I}varName${$NI}. The ${$I}body${$NI}
-                argument is a Tcl script. For each element of ${$I}list${$NI} (in order from first
-                to last), ${$B}lmap${$N} assigns the contents of the element to ${$I}varName${$NI}
-                as if the ${$B}lindex${$N} command had been used to extract the element, then
-                calls the Tcl interpreter to execute ${$I}body${$NI}.
-                If execution of the body completes normally then the result of body is appended
-                to an accumulator list. ${$B}lmap${$N} returns the accumulator list.
-
-                In the general case there can be more than one value list, and each value list
-                can be associated with a list of loop variables. During each iteration of the
-                loop the variable of each ${$I}varlist${$NI} are assigned consecutive values from
-                the corresponding ${$I}list${$NI}. Values in each ${$I}list${$NI} are used in order from
-                first to last, and each value is used exactly once. The total number of loop
-                iterations is large enough to use up all the values from all the value lists.
-                If a value list does not contain enough elements for each of its loop variables
-                in each iteration, empty values are used for the missing elements.
-
-                The ${$B}break${$N} and ${$B}continue${$N} statements may be invoked inside ${$I}body${$NI},
-                with the same effect as in the ${$B}for${$N} and ${$B}foreach${$N} commands.
-                In these cases the body does not complete normally and the result is not appended
-                to the accumulator list."
-            @values
-            "varlist list" -type {list list} -typesynopsis {varlist list} -multiple 1 -optional 0
-            body -type string -optional 0 -help\
-                "Tcl script"
-        } "@doc -name Manpage: -url [manpage_tcl lmap]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lpop
-            @cmd -name "Built-in: lpop"\
-                -summary\
-                "Get and remove an element in a list."\
-                -help\
-                "The ${$B}lpop${$N} command acepts a parameter, ${$I}varName${$NI}, which
-                it interprets as the name of a variable containing a Tcl list.
-                It also accepts one or more ${$I}indices${$NI} into the list. If no indices
-                are presented, it defaults to \"${$B}end${$N}\"."
-            @values -min 1 -max -1
-            listVar -type string -help\
-                "Existing list variable name"
-            index -type indexexpression -default end -optional 1 -multiple 1 -help\
-            "When presented with a single index, the lpop command addresses
-                the index'th element in it, removes it from the list and returns
-                the element.
-                If index is negative or greater or equal than the number of
-                elements in the list in the variable ${$I}listVar${$NI}, an error occurs.
-                If addition index arguments are supplied, then each argument is used
-                in turn to address an element within a sublist designated by the
-                previous indexing operation, allowing the script to remove elements
-                in sublists, similar to lindex and lset."
-        } "@doc -name Manpage: -url [manpage_tcl lpop]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lrange
-            @cmd -name "Built-in: lrange"\
-                -summary\
-                "return one or more adjacent elements from a list."\
-                -help\
-                "The new list returned consists of elements first through last, inclusive.
-                The index values first and last are interpreted the same as index values
-                for the command 'string index', supporting simple index arithmetic and
-                indices relative to the end of the list.
-                e.g lrange {a b c} 0 end-1
-                "
-            @values -min 3 -max 3
-            list -type list -help\
-                "tcl list as a value"
-            first -type indexexpression -help\
-                "index expression for first element"
-            last -type indexexpression  -help\
-                "index expression for last element"
-        } "@doc -name Manpage: -url [manpage_tcl lrange]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lrepeat
-            @cmd -name "Built-in: lrepeat"\
-                -summary\
-                "Build a list by repeating elements."\
-                -help\
-                "The ${$B}lrepeat${$N} command creates a list of size count * number of
-                elements by repeating ${$I}count${$NI} times the sequence of elements
-                ${$I}element${$NI} ...  count must be a non-negative integer, ${$I}element${$NI}
-                can be any Tcl value."
-            @values -min 1 -max -1
-            count -type integer -range {0 ""}
-            element -type string -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl lrepeat]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lreplace
-            @cmd -name "Built-in: lreplace"\
-                -summary\
-                "Replace elements in a list with new elements."\
-                -help\
-                "${$B}lreplace${$N} returns a new list formed by replacing zero or more
-                elements of ${$I}list${$NI} with the ${$I}element${$NI} arguments.
-                ${$I}first${$NI} and ${$I}last${$NI} are index values specifying the first
-                and last elements of the range to replace. The index values ${$I}first${$NI} and
-                ${$I}last${$NI} are interpreted the same as index values for the command ${$B}string index${$N},
-                supporting simple index arithmetic and indices relative to the end of the list.
-                0 refers to the first element of the list, and ${$B}end${$N} refers to the last element
-                of the list.
-                If either ${$I}first${$NI} or ${$I}last${$NI} is less than zero, it is considered
-                to refer to before the first element of the list. This allows ${$B}lreplace${$N} to
-                prepend elements to ${$I}list${$NI}. If either ${$I}first${$NI} or ${$I}last${$NI} indicates
-                a position greater than the index of the last element of the list, it is
-                treated as if it is an index one greater than the last element. This allows
-                ${$B}lreplace${$N} to append elements to ${$I}list${$NI}.
-                If ${$I}last${$NI} is less than ${$I}first${$NI}, then any specified elements will
-                be inserted into the list before the element specified by ${$I}first${$NI}, with
-                no elements being deleted.
-                The ${$I}element${$NI} arguments specify zero or more new elements to be added
-                to the list in place of those that were deleted. Each ${$I}element${$NI} argument
-                will become a separate element of the list. If no ${$I}element${$NI} arguments
-                are specified, then the elements between ${$I}first${$NI} and ${$I}last${$NI} are
-                simply deleted."
-            @values -min 3 -max -1
-            list -type list -help\
-                "tcl list as a value"
-            first -type indexexpression
-            last -type indexexpression
-            element -type string -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl lreplace]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lremove
-            @cmd -name "Built-in: lremove"\
-                -summary\
-                "Remove elements from a list by index."\
-                -help\
-                "lremove returns a new list formed by simultaneously removing zero or
-                more elements of list at each of the indices given by an arbitrary
-                number of index arguments. The indices may be in any order and may be
-                repeated; the element at index will only be removed once. The index
-                values are interpreted the same as index values for the command
-                'string index', supporting simple index arithmetic and indices relative
-                to the end of the list. 0 refers to the first element of the list, and
-                end refers to the last element of the list."
-            @values -min 1 -max -1
-            list -type list -help\
-                "tcl list as a value"
-            index -type indexexpression -multiple 1 -optional 1
-
-            @seealso -commands {list lappend lassign ledit lindex linsert llength lmap lpop lrange lrepeat lreplace lreverse lsearch lseq lset lsort}
-        } "@doc -name Manpage: -url [manpage_tcl lremove]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lreverse
-            @cmd -name "Built-in: lreverse"\
-                -summary\
-                "Reverse the order of a list."\
-                -help\
-                "The ${$B}lreverse${$N} command returns a list that has the same elements
-                as its input list, ${$I}list${$NI}, exept with the elements in reverse
-                order."
-            @values -min 1 -max 1
-            list -type list -help\
-                "tcl list as a value"
-        } "@doc -name Manpage: -url [manpage_tcl lreverse]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lset
-            @cmd -name "Built-in: lset"\
-                -summary\
-                "Change an element in a list."\
-                -help\
-                "The ${$B}lset${$N} command accepts a parameter, ${$I}varName${$NI}, which
-                it interprets as the name of a variable containint a Tcl list. It also
-                accepts zero or more ${$I}indices${$NI} into the list. The indices may
-                be presented either consecutively on the command line, or grouped in a
-                Tcl list and presented as a single argument. Finally, it accepts a new
-                value for an element of ${$I}varName${$NI}.
-                If no indices are presented, the command takes the form:
-                    ${$B}lset${$N} ${$I}varName${$NI} ${$I}newValue${$NI}
-                or
-                    ${$B}lset${$N} ${$I}varName${$NI} {} ${$I}newValue${$NI}
-                In this case, ${$I}newValue${$NI} replaces the old value of the variable
-                ${$I}varName${$N}.
-
-                When presented with a single index, the ${$B}lset${$N} command treates the
-                contents of the ${$I}varName${$NI} variable as a Tcl list. It addresses
-                the ${$I}index${$NI}'th element in it (0 refers to the first element of the
-                list). When interpreting the list, ${$B}lset${$N} observes the same rules
-                concerning braces and quotes and backslashes as the Tcl command interpreter;
-                however; variable substitution and command substitution do not occur.
-                The command constructs a new list in which the designated element is replaced
-                with ${$I}newValue${$NI}. This new list is stored in the variable ${$I}varName${$NI},
-                and is also the return value from the ${$B}lset${$N} command.
-                If ${$I}index${$NI} is negative or greater than the number of elements in
-                ${$I}$varName${$NI}, then an error occurs.
-                If ${$I}index${$NI} is equal to the number of elements in ${$I}$varName${$NI},
-                then the given element is appended to the list.
-                The interpretation of each simple ${$I}index${$NI} value is the same as for the
-                command ${$B}string index${$N}, supporting simple index arithmetic and indices
-                relative to the end of the list.
-                If additional ${$I}index${$NI} arguments are supplied, then each argument is used
-                in turn to address an element within a sublist designated by the previous indexing
-                operation, allowing the script to alter elements in sublists (or append elements to
-                sublists).
-                The command,
-                  ${$B}lset${$N} a 1 2 newValue
-                or
-                  ${$B}lset${$N} a {1 2} newValue
-                replaces element 2 of sublist 1 with ${$I}newValue${$NI}.
-                The integer appearing in each ${$I}index${$NI} argument must be greater than or equal
-                to zero. The integer appearing in each ${$I}index${$NI} argument must be less than or
-                equal to the length of the corresponding list. In other wirds, the ${$B}lset${$N} command
-                can change the size of a list only by appending an element (setting the one after
-                the current end). If an index is outside the permitted range, an error is reported."
-            @form -form index
-            @leaders -min 1 -max -1
-            listVar -type string -help\
-                "Existing list variable name"
-            index -type indexexpression -multiple 1
-            @values -min 1 -max 1
-            newValue -type any
-
-            @form -form indexlist
-            @leaders -min 2 -max 2
-            listVar -type string -help\
-                "Existing list variable name"
-            indexList -type list -optional 1 -multiple 0
-            @values -min 1 -max 1
-            newValue -type any
-
-
-        } "@doc -name Manpage: -url [manpage_tcl lset]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lseq
-            @cmd -name "Built-in: lseq"\
-                -summary\
-                "Build a numeric sequence returned as a list."\
-                -help\
-                "The ${$B}lseq${$N} command creates a sequence of numeric values using the given
-                parameters ${$I}start${$NI}, ${$I}end${$NI} and ${$I}step${$NI}. The ${$I}operation${$NI}
-                argument \"..\" or \"${$B}to${$N}\" defines the range. The \"${$B}count${$N}\" option is
-                used to defina a count of the number of elements in the list. A short form use of the
-                command, with a single ${$I}count${$NI} value, will creat a range from 0 to ${$I}count-1${$NI}.
-                The ${$B}lseq${$N} command can produce both increasing and decreasing sequences.
-                When both ${$I}start${$NI} and ${$I}end${$NI} are provided without a ${$I}step${$NI} value,
-                then if ${$I}start${$NI} <= ${$I}end${$NI}, the sequence will be increasing and if
-                ${$I}start${$NI} > ${$I}end${$NI} it will be decreasing. If a ${$I}step${$NI} value is
-                included, it's sign should agree with the direction of the sequence
-                (descending -> negative and ascending -> positive), otherwise an empty list is returned.
-                For example:
-                  ${[punk::args::tclcore::argdoc::example {
-                  % lseq 1 to 5             ;#increasing
-                  -> 1 2 3 4 5
-
-                  % lseq 5 to 1             ;#decreasing
-                  -> 5 4 3 2 1
-
-                  % lseq 6 to 1 by 2        ;#decreasing, step wrong sign, empty list
-
-                  % lseq 1 5 by 0           ;#all step sizes of 0 produce an empty list
-                  }]}
-
-                The numeric arguments ${$I}start${$NI}, ${$I}end${$NI}, ${$I}step${$NI} and ${$I}count${$NI}, may
-                also be a valid expression. The expression will be evaluated and the numeric result will
-                be used. An expression that does not evaluate to a number will produce an invalid argument error.
-                ${$I}Start${$NI} defines the initial value and ${$I}end${$NI} defines the limit, not necessarily
-                the last value. ${$B}lseq${$N} produces a list with ${$B}count${$N} elements and if ${$B}count${$N}
-                is not supplied, it is computed as:
-                  count = int( (end - start + step) / step)
-                "
-            @form   -form range
-            @leaders -min 0 -max 0
-            @values -min 2 -max 5
-            start -type number|expr
-            ..|to -type string -choices {.. to} -optional 1
-            end   -type number|expr
-            "by step" -type {literal(by) number|expr} -optional 1
-
-            @form   -form start_count
-            @leaders -min 0 -max 0
-            @values -min 3 -max 5
-            start -type number|expr
-            count -type literal
-            countelements -type number|expr
-            "by step" -type {literal(by) number|expr} -optional 1
-
-            @form   -form count
-            @leaders -min 0 -max 0
-            @values -min 1 -max 3
-            countelements -type number|expr
-            "by step" -type {literal(by) number|expr} -optional 1
-
-        } "@doc -name Manpage: -url [manpage_tcl lreverse]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        punk::args::define {
-            @id	-id ::lsearch
-            @cmd -name "Built-in: lsearch"\
-                -summary\
-                "See if a list contains a particular element."\
-                -help\
-                "This command searches the elements of list to see if one of them matches pattern. If so, the command returns
-                the index of the first matching element (unless the options -all or -inline are specified.) If not, the command
-                returns -1 or (if options -all or -inline are specified) the empty string. The option arguments indicates how
-                the elements of the list are to be matched against pattern.
-
-                (documentation incomplete - punk::args fixes required for grouped mutually exlusive options and prefix calculation)
-                "
-            @leaders -min 0 -max 0
-            @opts -type none -parsekey "-MATCHSTYLE" -group "MATCHING STYLE OPTIONS" -grouphelp\
-                "If all matching style options are omitted, the default matching style is -glob.
-                  If more than one matching style is specified, the last matching style given
-                  takes precedence."
-
-            -exact  -typedefaults "-exact" -help\
-                "Pattern is a literal string that is compared for exact equality against each list element."
-            -glob   -typedefaults "-glob" -default "-glob" -help\
-                "Pattern is a glob-style pattern which is matched against each list element using the same
-                  rules as the string match command."
-            -regexp -typedefaults "-regexp" -help\
-                "Pattern is treated as a regular expression and matched against each list element using the
-                  rules described in the re_syntax reference page."
-            -sorted -typedefaults "-sorted" -help\
-                "The list elements are in sorted order. If this option is specified, lsearch will use a more
-                  efficient searching algorithm to search list. If no other options are specified, list is
-                  assumed to be sorted in increasing order, and to contain ASCII strings. This option is
-                  mutually exclusive with -glob and -regexp, and is treated exactly like -exact when either
-                  -all or -not are specified."
-
-
-            @opts -type string -parsekey "" -group "GENERAL MODIFIER OPTIONS"
-            -all -type none -help\
-                "Changes the result to be the list of all matching indices (or all matching values if -inline is specified as well.)
-                  If indices are returned, the indices will be in ascending numeric order. If values are returned, the order of the
-                  values will be the order of those values within the input list."
-            -inline -type none -help\
-                "The matching value is returned instead of its index (or an empty string if no value matches.) If -all is also
-                  specified, then the result of the command is the list of all values that matched."
-            -not -type none
-            -start -type none
-
-            @opts -type none -parsekey "-CONTENTOPTION" -group "CONTENTS DESCRIPTION OPTIONS" -grouphelp\
-                  "These options describe how to interpret the items in the list being searched. They are only meaningful when
-                    used with the -exact and -sorted options. If more than one is specified, the last one takes precedence.
-                    The default is -ascii."
-            -ascii      -typedefaults "-ascii" -default "-ascii" -help\
-                 "The list elements are to be examined as Unicode strings (the name is for backward-compatibility reasons.)"
-            -dictionary -typedefaults "-dictionary" -help\
-                "The list elements are to be compared using dictionary-style comparisons (see lsort for a fuller
-                  description). Note that this only makes a meaningful difference from the -ascii option when the -sorted
-                  option is given, because values are only dictionary-equal when exactly equal."
-            -integer -typedefaults "-integer" -help\
-                "The list elements are to be compared as integers."
-            -nocase -typedefaults "-nocase" -help\
-                "Causes comparisons to be handled in a case-insensitive manner. Has no effect if combined with the
-                -dictionary, -integer, or -real options."
-            -real -typedefaults "-real" -help\
-                "The list elements are to be compared as floating-point values."
-
-
-            # -groupdefault "-increasing" ???
-            @opts -type none  -parsekey "-SORTOPTION" -group "SORTED LIST OPTIONS" -grouphelp\
-                "These options (only meaningful with the -sorted option) specify how the list is sorted. If more than one is
-                  given, the last one takes precedence. The default option is -increasing."
-            -decreasing -typedefaults "-decreasing" -help\
-                " The list elements are sorted in decreasing order. This option is only meaningful when used with -sorted."
-            -increasing -typedefaults "-increasing" -default "-increasing" -help\
-                " The list elements are sorted in increasing order. This option is only meaningful when used with -sorted."
-            -bisect     -typedefaults "-bisect" -help\
-                " Inexact search when the list elements are in sorted order. For an increasing list the last index where
-                 the element is less than or equal to the pattern is returned. For a decreasing list the last index where
-                 the element is greater than or equal to the pattern is returned. If the pattern is before the first
-                 element or the list is empty, -1 is returned. This option implies -sorted and cannot be used with either
-                 -all or -not."
-
-            @opts -type string  -parsekey "" -group "NESTED LIST OPTIONS" -grouphelp\
-                "These options are used to search lists of lists. They may be used with any other options."
-            -stride -type integer -default 1 -typesynopsis strideLength -help\
-                "If this option is specified, the list is treated as consisting of groups of ${$I}strideLength${$NI} elements and the
-                  groups are searched by either their first element or, if the ${$B}-index${$N} option is used, by the element within
-                  each group given by the first index passed to -index (which is then ignored by -index). The resulting
-                  index always points to the first element in a group.
-                  The list length must be an integer multiple of strideLength, which in turn must be at least 1. A
-                  strideLength of 1 is the default and indicates no grouping."
-            -index -type list -typesynopsis indexList -help\
-                "This option is designed for use when searching within nested lists. The indexList argument gives a path of
-                  indices (much as might be used with the lindex or lset commands) within each element to allow the location
-                  of the term being matched against."
-            -subindices -type none -help\
-                "If this option is given, the index result from this command (or every index result when -all is also
-                  specified) will be a complete path (suitable for use with lindex or lset) within the overall list to the
-                  term found. This option has no effect unless the -index is also specified, and is just a convenience
-                  short-cut."
-            @opts -parsekey "" -group ""
-            @values -min 2 -max 2
-            list -type list
-            pattern -type string
-        } "@doc -name Manpage: -url [manpage_tcl lsearch]"
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::lsort
-            @cmd -name "Built-in: lsort"\
-                -summary\
-                "Sort the elements of a list."\
-                -help\
-                "This command sorts the elements of ${$I}list${$NI}, returning a new list
-                in sorted order. The implementation of the ${$B}lsort${$N} command uses
-                the merge-sort algorithem which is a stable sort that has O(n log n)
-                performance characteristics.
-
-                NOTES:
-                  The options to ${$B}lsort${$N} only control what sort of comparison is used, and
-                  do not necessarily constrain what the values themselves actually are.
-                  This distinction is only noticeable when the list to be sorted has fewer
-                  than two elements.
-                  The lsort command is reentrant, meaning it is safe to use as part of the
-                  implementation of a command used in the ${$B}-command${$N} option."
-            @leaders -min 0 -max 0
-            @opts
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            -ascii -type none -help\
-                "Use string comparison with Unicode code-point collation order (the name
-                  is for backward-compatibility reasons.) This is the default."
-            -dictionary -type none -help\
-                "Use dictionary-style comparison. This is the same as ${$B}-ascii${$N} except (a)
-                  case is ignored except as a tie-breaker and (b) if two strings contain
-                  embedded numbers, the numbers compare as integers, not characters. For
-                  example, in ${$B}-dictionary${$N} mode, bigBoy sorts between bigbang and bigboy,
-                  and x10y sorts between x9y and x11y. Overrides the ${$B}-nocase${$N} option."
-            -integer -type none -help\
-                "Convert list elements to integers and use integer comparison."
-            -real -type none -help\
-                "Convert list elements to floating-point values and use floating comparison."
-            -command -type string -help\
-                "Use command as a comparison command. To compare two elements, evaluate a
-                  Tcl script consisting of command with the two elements appended as
-                  additional arguments. The script should return an integer less than,
-                  equal to, or greater than zero if the first element is to be considered
-                  less than, equal to, or greater than the second, respectively."
-            -increasing -type none -help\
-                "Sort the list in increasing order (\"smallest\" items first).
-                  This is the default."
-            -decreasing -type none -help\
-                "Sort the list in decreasing order (\"largest\" items first)."
-            -indices -type none -help\
-                "Return a list of ${$I}indices${$NI} into list in sorted order instead of the
-                  values themselves."
-            -index -type indexList -help\
-                {If this option is specified, each of the elements of list must itself be
-                  a proper Tcl sublist (unless -stride is used). Instead of sorting based
-                  on whole sublists, lsort will extract the indexList'th element from each
-                  sublist (as if the overall element and the indexList were passed to lindex)
-                  and sort based on the given element.
-                  For example,
-                    ${[punk::args::tclcore::argdoc::example {
-                      lsort -integer -index 1 \ 
-                            {{First 24} {Second 18} {Third 30}}  }]}
-                  returns ${$B}{Second 18} {First 24} {Third 30}${$N},
-                    ${[punk::args::tclcore::argdoc::example {
-                      lsort -index end-1 \ 
-                            {{a 1 e i} {b 2 3 f g} {c 4 5 6 d h}}  }]}
-                  returns ${$B}{c 4 5 6 d h} {a 1 e i} {b 2 3 f 5}${$N}, and
-                    ${[punk::args::tclcore::argdoc::example {
-                      lsort -index {0 1} {
-                          {{b i g}   12345}  
-                          {{d e m o} 34512}  
-                          {{c o d e} 54321}  
-                      }}]}
-                  returns ${$B}{{d e m o} 34512} {{b i g} 12345} {{c o d e} 54321}${$N}
-                  (because e sorts before i which sorts before o.) This option is much more
-                  efficient than using ${$B}-command${$N} to achieve the same effect.}
-            -stride -type integer -range {2 ""} -help\
-                {If this option is specified, the list is treated as consisting of groups
-                  of strideLength elements and the groups are sorted by either their first
-                  element or, if the ${$B}-index${$N} option is used, by the element within each
-                  group given by the first index passed to ${$B}-index${$N} (which is then ignored
-                  by ${$B}-index${$N}). Elements always remain in the same position within their
-                  group.
-                  The list length must be an integer multiple of the strideLength, which
-                  in turn must be at least 2.
-                  For example,
-                    ${[punk::args::tclcore::argdoc::example {
-                    lsort -stride 2 {carrot 10 apple 50 banana 25}  }]}
-                  returns "apple 50 banana 25 carrot 10", and
-                    ${[punk::args::tclcore::argdoc::example {
-                    lsort -stride 2 -index 1 -integer {carrot 10 apple 50 banana 25}  }]}
-                  returns "carrot 10 banana 25 apple 50".}
-            -nocase -type none -help\
-                "Causes comparisons to be handled in a case-insensitive manner. Has no
-                  effect if combined with the ${$B}-dictionary${$N}, ${$B}-integer${$N}, or
-                  ${$B}-real${$N} options."
-            -unique -type none -help\
-                "If this option is specified, then only the last set of duplicate elements
-                  found in the list will be retained. Note that duplicates are determined
-                  relative to the comparison used in the sort. Thus if ${$B}-index 0${$N} is
-                  used, ${$B}{1 a}${$N} and ${$B}{1 b}${$N} would be considered duplicates and
-                  only the second element, ${$B}{1 b}${$N}, would be retained."
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            @values -min 1 -max 1
-            list -type list -help\
-                "tcl list as a value"
-
-        } "@doc -name Manpage: -url [manpage_tcl lsort]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    }
-
-
-    ############################################################################################################################################################
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # COMMANDS M-Z
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    ############################################################################################################################################################
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::proc
-            @cmd -name "Built-in: proc"\
-                -summary\
-                "Create a Tcl procedure."\
-                -help\
-                "The ${$B}proc${$N} command creates a new Tcl procedure named name, replacing
-                any existing command or procedure there may have been by that name. Whenever
-                the new command is invoked, the contents of ${$I}body${$NI} will be executed by
-                the Tcl interpreter. Normally, ${$I}name${$NI} is unqualified (does not include
-                the names of any containing namespaces), and the new procedure is created in
-                the current namespace. If ${$I}name${$NI} includes any namespace qualifiers
-                the procdure is created in the specified namesapce. ${$I}Args${$NI} specifies
-                the formal arguments to the procedure. It consists of a list, possibly empty,
-                each of whose elements specifies on argument. Each argument specifier is also
-                a list with either one or two fields. If there is only a single field in the
-                specifier then it is the name of the argument; if there are two fields, then
-                the first is the argument name and the second is its default value. Arguments
-                with default values that are followed by non-defaulted arguments become
-                required arguments; enough actual arguments must be supplied to allow all
-                arguments up to and including the last required formal argument.
-
-                When ${$I}name${$NI} is invoked a local variable will be created for each of
-                the formal arguments to the procedure; its value will be the value of the
-                corresponding argument in the invoking command or the argument's default
-                value. Actual arguments are assigned to formal arguments strictly in order.
-                Arguments with default values need not be specified in a procedure invocation.
-                However, there must be enough actual arguments for all the formal arguments
-                that do not have defaults, and there must not be any extra actual arguments.
-                Arguments with default values that are followed by non-defaulted arguments
-                become de-facto required arguments, though this may change in a future version
-                of Tcl; portable code should ensure that all optional arguments come after
-                all required arguments.
-
-                There is one special case to permit procedures with variable number of
-                arguments. If the last formal argument has the name \"${$B}args${$N}\", then a
-                call to the procedure may contain more actual arguments than the procedure
-                has formal arguments. In this case, all of the actual arguments starting at
-                the one that would be assigned to ${$B}args${$N} are combined into a list
-                (as if the ${$B}list${$N} command had been used); this combined value is assigned
-                to the local variable ${$B}args${$N}.
-
-                When ${$I}body${$NI} is being executed, variable names normally refer to local
-                variables, which are created automatically when referenced, and deleted when
-                the procedure returns. One local variable is automatically created for each of
-                the procedure's arguments. Other variables can only be accessed by invoking
-                one of ${$B}global${$N}, ${$B}variable${$N}, ${$B}upvar${$N} or ${$B}namespace upvar${$N}
-                commands. The current namespace when ${$I}body${$NI} is executed will be the
-                namespace that the procedure's name exists in, which will be the namespace that
-                it was created in unless it has been changed with ${$B}rename${$N}.
-
-                The ${$B}proc${$N} command returns an empty string. When a procedure is invoked,
-                the procedure's return value is the value specified in a ${$B}return${$N} command.
-                If the procedure does not execute an explicit ${$B}return${$N}, then its return
-                value is the value of the last command executed in the procedure's body. If an
-                error occurs while executing the procedure body, then the procedure-as-a-whole
-                will return that same error."
-            @values -min 3 -max 3
-            name -type string
-            #todo - list elements must be length 1 or length 2
-            args -type list
-            body -type script
-        } "@doc -name Manpage: -url [manpage_tcl proc]"
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::puts
-            @cmd -name "Built-in: puts"\
-                -summary\
-                "Write to a channel."\
-                -help\
-                "The ${$B}puts${$N} command has been superceded by the ${$B}chan puts${$N} command which
-                supports the same syntax and options."
-            @opts -prefix 0
-            -nonewline -type none
-            @values -min 1 -max 2
-            channel -type string -optional 1
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl puts]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::pwd
-            @cmd -name "Built-in: pwd"\
-                -summary\
-                "Return the absolute path of the current working directory."\
-                -help\
-                "Returns the absolute path name of the current working directory.
-                (This is a process-wide value)
-
-                ${$B}EXAMPLE${$N}
-                Sometimes it is useful to change to a known directory when running some external
-                command using exec, but it is important to keep the application usually running
-                in the directory that it was started in (unless the user specifies otherwise)
-                since that minimizes user confusion. The way to do this is to save the current
-                directory while the external command is being run:
-                ${[punk::args::tclcore::argdoc::example {
-                  set tarFile [file normalize somefile.tar]  
-                  set savedDir [pwd]
-                  cd /tmp
-                  exec tar -xf $tarFile
-                  cd $savedDir
-                }]}"
-            @leaders -min 0 -max 0
-            @values -min 0 -max 0
-        } "@doc -name Manpage: -url [manpage_tcl pwd]"\
-        {@examples -help {
-                Sometimes it is useful to change to a known directory when running some external
-                command using exec, but it is important to keep the application usually running
-                in the directory that it was started in (unless the user specifies otherwise)
-                since that minimizes user confusion. The way to do this is to save the current
-                directory while the external command is being run:
-                ${[punk::args::tclcore::argdoc::example {
-                  set tarFile [file normalize somefile.tar]  
-                  set savedDir [pwd]
-                  cd /tmp
-                  exec tar -xf $tarFile
-                  cd $savedDir
-                }]}
-            }
-        }
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::read
-            @cmd -name "Built-in: read"\
-                -summary\
-                "Read from a channel."\
-                -help\
-                "The ${$B}read${$N} command has been superceded by the ${$B}chan read${$N} command which supports
-                the same syntax and options."
-            @form -form read
-            @opts
-            -nonewline -type none
-            @values -min 1 -max 1
-            channel
-
-            @form -form readchars
-            @values -min 1 -max 2
-            channel
-            numChars -type integer -optional 1
-
-        } "@doc -name Manpage: -url [manpage_tcl read]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::rename
-            @cmd -name "Built-in: rename"\
-                -summary\
-                "Rename or delete a command."\
-                -help\
-                "Rename the command that used to be called ${$I}oldName${$NI} so that it is now called ${$I}newName${$NI}. If
-                ${$I}newName${$NI} is an empty string then ${$I}oldName${$NI} is deleted. ${$I}oldName${$NI} and ${$I}newName${$NI} may include
-                namespace qualifiers (names of containing namespaces). If a command is renamed into a
-                different namespace, future invocations of it will execute in the new namespace. The
-                ${$B}rename${$N} command returns an empty string as result."
-            @values -min 2 -max 2
-            oldName -type string
-            newName -type string
-        } "@doc -name Manpage: -url [manpage_tcl rename]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::return
-            @cmd -name "Built-in: return"\
-                -summary\
-                "Return from a procedure, or set return code of script."\
-                -help\
-                "In its simplest usage, the return command is used without options in the body of a
-                procedure to immediately return control to the caller of the procedure. If a result
-                argument is provided, its value becomes the result of the procedure passed back to
-                the caller. If result is not specified then an empty string will be returned to the
-                caller as the result of the procedure.
-                The return command serves a similar function within script files that are evaluated
-                by the source command. When source evaluates the contents of a file as a script, an
-                invocation of the return command will cause script evaluation to immediately cease,
-                and the value result (or an empty string) will be returned as the result of the
-                source command.
-
-                In addition to the result of a procedure, the return code of a procedure may also be
-                set by return through use of the -code option. In the usual case where the -code
-                option is not specified the procedure will return normally. However, the -code option
-                may be used to generate an exceptional return from the procedure.
-
-                ${$B}RETURN OPTIONS${$N}
-                In addition to a result and a return code, evaluation of a command in Tcl also produces
-                a dictionary of return options. In general usage, all option value pairs given as
-                arguments to return become entries in the return options dictionary, and any values at
-                all are acceptable except as noted below. The catch command may be used to capture all
-                of this information — the return code, the result, and the return options dictionary —
-                that arise from evaluation of a script.
-
-                As documented above, the -code entry in the return options dictionary receives special
-                treatment by Tcl. There are other return options also recognized and treated specially
-                by Tcl. They are: -errorcode, -errorinfo, -errorstack, -level, -options.
-
-                ${$B}RETURN CODE HANDLINE MECHANISMS${$N}
-                Return codes are used in Tcl to control program flow. A Tcl script is a sequence of Tcl
-                commands. So long as each command evaluation returns a return code of TCL_OK, evaluation
-                will continue to the next command in the script. Any exceptional return code (non-TCL_OK)
-                returned by a command evaluation causes the flow on to the next command to be interrupted.
-                Script evaluation ceases, and the exceptional return code from the command becomes the
-                return code of the full script evaluation. This is the mechanism by which errors during
-                script evaluation cause an interruption and unwinding of the call stack. It is also the
-                mechanism by which commands like break, continue, and return cause script evaluation to
-                terminate without evaluating all commands in sequence.
-                Some of Tcl's built-in commands evaluate scripts as part of their functioning. These
-                commands can make use of exceptional return codes to enable special features. For example,
-                the built-in Tcl commands that provide loops — such as while, for, and foreach — evaluate
-                a script that is the body of the loop. If evaluation of the loop body returns the return
-                code of TCL_BREAK or TCL_CONTINUE, the loop command can react in such a way as to give the
-                break and continue commands their documented interpretation in loops.
-
-                Procedure invocation also involves evaluation of a script, the body of the procedure.
-                Procedure invocation provides special treatment when evaluation of the procedure body
-                returns the return code TCL_RETURN. In that circumstance, the -level entry in the return
-                options dictionary is decremented. If after decrementing, the value of the -level entry is
-                0, then the value of the -code entry becomes the return code of the procedure. If after
-                decrementing, the value of the -level entry is greater than zero, then the return code of
-                the procedure is TCL_RETURN. If the procedure invocation occurred during the evaluation of
-                the body of another procedure, the process will repeat itself up the call stack,
-                decrementing the value of the -level entry at each level, so that the code will be the
-                return code of the current command level levels up the call stack. The source command
-                performs the same handling of the TCL_RETURN return code, which explains the similarity of
-                return invocation during a source to return invocation within a procedure.
-
-                The return code of the return command itself triggers this special handling by procedure
-                invocation. If return is provided the option -level 0, then the return code of the return
-                command itself will be the value code of the -code option (or TCL_OK by default). Any
-                other value for the -level option (including the default value of 1) will cause the return
-                code of the return command itself to be TCL_RETURN, triggering a return from the enclosing
-                procedure."
-
-            @form -form basic
-            @form -form code
-            @form -form options
-
-            @leaders -form {basic code options} -min 0 -max 0
-
-            @opts -form {code options}
-            -code -form {code options} -default 0\
-                -type int\
-                -typesynopsis {${$I}choice${$NI}|<${$I}int${$NI}>}\
-                -help\
-                "When a value is given outside of the listed choices, it's value must be an
-                integer; it will be returned as the return code for the current procedure.
-                Applications and packages should use values in the range 5 to 1073741823
-                (0x3fffffff) for their own purposes. Values outside this range are reserved
-                for use by Tcl.
-
-                When a procedure wants to signal that it has received invalid arguments from
-                its caller, it may use return -code error with result set to a suitable error
-                message. Otherwise usage of the return -code option is mostly limited to
-                procedures that implement a new control structure.
-
-                The return -code command acts similarly within script files that are evaluated
-                by the source command. During the evaluation of the contents of a file as a
-                script by source, an invocation of the return -code code command will cause the
-                return code of source to be code."\
-                -choicecolumns 2\
-                -choiceprefix 0\
-                -choicerestricted 0\
-                -choices {ok 0 error 1 return 2 break 3 continue 4}\
-                -choicelabels {
-                ok\
-                " Normal return: same as if the option is omitted.
-                 The return code of the procedure is 0 (TCL_OK)."
-                error\
-                " Error return: the return code of the procedure is
-                 1 (TCL_ERROR). The procedure command behaves in
-                 its calling context as if it were the command
-                 error result. See below for additional options."
-                return\
-                " The return code of the procedure is 2
-                 (TCL_RETURN). The procedure command behaves in its
-                 calling context as if it were the command return
-                 (with no arguments)."
-                break\
-                " The return code of the procedure is 3 (TCL_BREAK).
-                 The procedure command behaves in its calling
-                 context as if it were the command break."
-                continue\
-                 "The return code of the procedure is 4
-                 (TCL_CONTINUE). The procedure command behaves in
-                 its calling context as if it were the command
-                 continue."
-                }
-
-            -errorcode      -form options -type list -help\
-                "The -errorcode option receives special treatment only when the value of the
-                  -code option is TCL_ERROR. Then the list value is meant to be additional
-                  information about the error, presented as a Tcl list for further processing
-                  by programs. If no -errorcode option is provided to return when the -code
-                  error option is provided, Tcl will set the value of the -errorcode entry in
-                  the return options dictionary to the default value of NONE. The -errorcode
-                  return option will also be stored in the global variable errorCode."
-            -errorinfo      -form options -type list -typesynopsis ${$I}info${$NI} -help\
-                "The -errorinfo option receives special treatment only when the value of the
-                  -code option is TCL_ERROR. Then info is the initial stack trace, meant to
-                  provide to a human reader additional information about the context in which
-                  the error occurred. The stack trace will also be stored in the global
-                  variable errorInfo. If no -errorinfo option is provided to return when the
-                  -code error option is provided, Tcl will provide its own initial stack trace
-                  value in the entry for -errorinfo. Tcl's initial stack trace will include
-                  only the call to the procedure, and stack unwinding will append information
-                  about higher stack levels, but there will be no information about the
-                  context of the error within the procedure. Typically the info value is
-                  supplied from the value of -errorinfo in a return options dictionary
-                  captured by the catch command (or from the copy of that information stored in
-                  the global variable errorInfo)."
-            -errorstack     -form options -type list -help\
-                "The -errorstack option receives special treatment only when the value of the
-                  -code option is TCL_ERROR. Then list is the initial error stack, recording
-                  actual argument values passed to each proc level. The error stack will also
-                  be reachable through info errorstack. If no -errorstack option is provided to
-                  return when the -code error option is provided, Tcl will provide its own
-                  initial error stack in the entry for -errorstack. Tcl's initial error stack
-                  will include only the call to the procedure, and stack unwinding will append
-                  information about higher stack levels, but there will be no information about
-                  the context of the error within the procedure. Typically the list value is
-                  supplied from the value of -errorstack in a return options dictionary
-                  captured by the catch command (or from the copy of that information from info
-                  errorstack)."
-            -level          -form options -type integer -range {0 ""} -typesynopsis ${$I}level${$NI} -help\
-                "The -level and -code options work together to set the return code to be
-                  returned by one of the commands currently being evaluated. The level value must
-                  be a non-negative integer representing a number of levels on the call stack. It
-                  defines the number of levels up the stack at which the return code of a command
-                  currently being evaluated should be code. If no -level option is provided, the
-                  default value of level is 1, so that return sets the return code that the
-                  current procedure returns to its caller, 1 level up the call stack. The
-                  mechanism by which these options work is described in more detail below."
-            -options        -form options -type dict -help\
-                "The value options must be a valid dictionary. The entries of that dictionary
-                  are treated as additional option value pairs for the return command."
-
-
-            @values -form * -min 0 -max 1
-            result  -form * -type string -optional 1
-
-
-        } "@doc -name Manpage: -url [manpage_tcl return]"
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::set
-            @cmd -name "Built-in: set"\
-                -summary\
-                "Read and write variables."\
-                -help\
-                "Returns the value of variable ${$I}varName${$NI}. If ${$I}value${$NI} is specified,
-                then set the value of ${$I}varName${$NI} to ${$I}value${$NI}, creating a new variable
-                if one does not already exist, and return its value. If ${$I}varName${$NI}
-                contains an open parenthesis and ends with a close parenthesis,
-                then it refers to an array element: the characters before the
-                first open parenthesis are the name of the array, and the
-                characters between the parentheses are the index within the array.
-                Otherwise ${$I}varName${$NI} refers to a scalar variable.
-                If ${$I}varName${$NI} includes namespace qualifiers (in the array name if it
-                refers to an array element), or if ${$I}varName${$NI} is unqualified (does
-                not include the names of any containing namespaces) but no
-                procedure is active, ${$I}varName${$NI} refers to a namespace variable
-                resolved according to the rules described under NAME RESOLUTION
-                in the namespace manual page.
-                If a procedure is active and ${$I}varName${$NI} is unqualified, then ${$I}varName${$NI}
-                refers to a parameter or local variable of the procedure, unless
-                ${$I}varName${$NI} was declared to resolve differently through one of the
-                global, variable, or upvar commands.
-                "
-            @values -min 1 -max 2
-            varName -type string -help\
-            "name of scalar or array variable
-                    scalar variable             e.g myvar
-                    array element               e.g myarray(identifier.x)
-                    namespaced scalar variable  e.g ::ns1::myvar
-                    namespaced array element    e.g ::ns1::myarray(subelement)
-                Nested datastructures may be simulated with an array by using
-                some programmer chosen convention to seperate levels.
-                e.g set myarray(config,0)   \"val1\"
-                    set myarray(config,1)   \"etc\"
-                    set myarray(data,0)     {a b c}
-                see the dict command for an alternative datastructure."
-            value -type any -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl set]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::socket
-            @cmd -name "Built-in: socket"\
-                -summary\
-                "Open a TCP network connection."\
-                -help\
-                "This command opens a network socket and returns a channel identifier that
-                may be used in future invocations of commands like ${$B}read${$N}, ${$B}puts${$N} and ${$B}flush${$N}.
-                At present only the TCP network protocol is supported over IPv4 and IPv6;
-                future releases may include support for additional protocols. The ${$B}socket${$N}
-                command may be used to open either the client or server side of a
-                connection, depending on whether the ${$B}-server${$N} switch is specified.
-                Note that the default encoding for all sockets is the system encoding, as
-                returned by ${$B}encoding${$N} system. Most of the time, you will need to use chan
-                configure to alter this to something else, such as utf-8 (ideal for
-                communicating with other Tcl processes) or iso8859-1 (useful for many
-                network protocols, especially the older ones).
-
-                ${$B}CLIENT SOCKETS${$N}
-                If the -server option is not specified, then the client side of a connection is opened
-                and the command returns a channel identifier that can be used for both reading and
-                writing. Port and host specify a port to connect to; there must be a server accepting
-                connections on this port. Port is an integer port number (or service name, where
-                supported and understood by the host operating system) and host is either a domain-style
-                name such as www.tcl.tk or a numerical IPv4 or IPv6 address such as 127.0.0.1 or
-                2001:DB8::1. Use localhost to refer to the host on which the command is invoked.
-
-                ${$B}SERVER SOCKETS${$N}
-                If the -server option is specified then the new socket will be a server that listens on
-                the given port (either an integer or a service name, where supported and understood by
-                the host operating system; if port is zero, the operating system will allocate a free
-                port to the server socket which may be discovered by using chan configure to read the
-                -sockname option). If the host supports both, IPv4 and IPv6, the socket will listen on
-                both address families. Tcl will automatically accept connections to the given port. For
-                each connection Tcl will create a new channel that may be used to communicate with the
-                client. Tcl then invokes command (properly a command prefix list, see the EXAMPLES below)
-                with three additional arguments: the name of the new channel, the address, in network
-                address notation, of the client's host, and the client's port number.
-
-                Server channels cannot be used for input or output; their sole use is to accept new
-                client connections. The channels created for each incoming client connection are opened
-                for input and output. Closing the server channel shuts down the server so that no new
-                connections will be accepted; however, existing connections will be unaffected.
-
-                Server sockets depend on the Tcl event mechanism to find out when new connections are
-                opened. If the application does not enter the event loop, for example by invoking the
-                vwait command or calling the C procedure Tcl_DoOneEvent, then no connections will be
-                accepted.
-
-                If port is specified as zero, the operating system will allocate an unused port for use
-                as a server socket. The port number actually allocated may be retrieved from the created
-                server socket using the chan configure command to retrieve the -sockname option as
-                described below.
-
-                ${$B}CONFIGURATION OPTIONS${$N}
-                The chan configure command can be used to query several readonly configuration options
-                for socket channels or in some cases to set alternative properties on socket channels:
-
-                    -error
-                      This option gets the current error status of the given socket. This is useful
-                      when you need to determine if an asynchronous connect operation succeeded. If
-                      there was an error, the error message is returned. If there was no error, an
-                      empty string is returned.
-                      Note that the error status is reset by the read operation; this mimics the
-                      underlying getsockopt(SO_ERROR) call.
-
-                    -sockname
-                      For client sockets (including the channels that get created when a client
-                      connects to a server socket) this option returns a list of three elements,
-                      the address, the host name and the port number for the socket. If the host
-                      name cannot be computed, the second element is identical to the address, the
-                      first element of the list.
-                      For server sockets this option returns a list of a multiple of three elements
-                      each group of which have the same meaning as described above. The list contains
-                      more than one group when the server socket was created without -myaddr or with
-                      the argument to -myaddr being a domain name that resolves multiple IP addresses
-                      that are local to the invoking host.
-
-                    -peername
-                      This option is not supported by server sockets. For client and accepted sockets,
-                      this option returns a list of three elements; these are the address, the host name
-                      and the port to which the peer socket is connected or bound. If the host name
-                      cannot be computed, the second element of the list is identical to the address,
-                      its first element.
-
-                    -connecting
-                      This option is not supported by server sockets. For client sockets, this option
-                      returns 1 if an asynchronous connect is still in progress, 0 otherwise.
-
-                    -keepalive
-                      This option sets or queries the TCP keepalive option on the socket as 1 if
-                      keepalive is turned on, 0 otherwise.
-
-                    -nodelay
-                      This option sets or queries the TCP nodelay option on the socket as 1 if nodelay
-                      is turned on, 0 otherwise."
-            @form -form client
-            @leaders -min 0 -max 0
-            @opts
-            -myaddr -type string -typesynopsis ${$I}addr${$NI} -help\
-                "${$I}Addr${$NI} gives the domain-style name or numerical IP address of the client-side
-                  network interface to use for the connection. This option may be useful if
-                  the client machine has multiple network interfaces. If the option is omitted
-                  then the client-side interface will be chosen by the system software."
-            -myport -type string -typesynopsis ${$I}port${$NI} -help\
-                "${$I}Port${$NI} specifies an integer port number (or service name, where supported and
-                  understood by the host operating system) to use for the client's side of the
-                  connection. If this option is omitted, the client's port number will be
-                  chosen at random by the system software."
-            -async -type none -help\
-                "This option will cause the client socket to be connected asynchronously. This means
-                  that the socket will be created immediately but may not yet be connected to the
-                  server, when the call to ${$B}socket${$N} returns.
-                  When a gets or flush is done on the socket before the connection attempt succeeds
-                  or fails, if the socket is in blocking mode, the operation will wait until the
-                  connection is completed or fails. If the socket is in nonblocking mode and a gets
-                  or flush is done on the socket before the connection attempt succeeds or fails, the
-                  operation returns immediately and fblocked on the socket returns 1. Synchronous
-                  client sockets may be switched (after they have connected) to operating in
-                  asynchronous mode using:
-
-                    chan configure chan -blocking 0
-
-                  See the ${$B}chan configure${$N} command for more details.
-
-                  The Tcl event loop should be running while an asynchronous connection is in progress,
-                  because it may have to do several connection attempts in the background. Running the
-                  event loop also allows you to set up a writable channel event on the socket to get
-                  notified when the asynchronous connection has succeeded or failed. See the vwait and
-                  the chan commands for more details on the event loop and channel events.
-
-                  The ${$B}chan configure${$N} option ${$B}-connecting${N} may be used to check if the connect is still
-                  running. To verify a successful connect, the option ${$B}-error${N} may be checked when
-                  ${$B}-connecting${$N} returned 0.
-
-                  Operation without the event queue requires at the moment calls to ${$B}chan configure${$N} to
-                  advance the internal state machine."
-            @values -min 2 -max 2
-            host -type string
-            port -type string
-
-
-            @form -form server
-            @leaders -min 0 -max 0
-            @opts
-            -server -type list -typesynopsis ${$I}command${$NI}
-            -myaddr -type string -typesynopsis ${$I}addr${$NI} -help\
-                "Addr gives the domain-style name or numerical IP address of the server-side
-                  network interface to use for the connection. This option may be useful if
-                  the server machine has multiple network interfaces. If the option is
-                  omitted then the server socket is bound to the wildcard address so that it
-                  can accept connections from any interface. If addr is a domain name that
-                  resolves to multiple IP addresses that are available on the local machine,
-                  the socket will listen on all of them."
-            -reuseaddr -type boolean -help\
-                "Tells the kernel whether to reuse the local address if there is no socket
-                  actively listening on it. This is the default on Windows."
-            -reuseport -type boolean -help\
-                "Tells the kernel whether to allow the binding of multiple sockets to the
-                  same address and port."
-            @values -min 1 -max 1
-            port -type string -help\
-                "port number or service name"
-
-        } "@doc -name Manpage: -url [manpage_tcl socket]"\
-        {@examples -help {
-            Here is a very simple time server:
-                ${[punk::args::tclcore::argdoc::example {
-                  proc Server {startTime channel clientaddr clientport} {
-                      puts "Connection from $clientaddr registered"
-                      set now [clock seconds]
-                      puts $channel [clock format $now]
-                      puts $channel "[expr {$now - $startTime}] since start"  
-                      close $channel
-                  }
-
-                  socket -server [list Server [clock seconds]] 9900
-                  vwait forever}]}
-            And here is the corresponding client to talk to the server and extract some information:
-                ${[punk::args::tclcore::argdoc::example {
-                  set server localhost
-                  set sockChan [socket $server 9900]
-                  gets $sockChan line1
-                  gets $sockChan line2
-                  close $sockChan
-                  puts "The time on $server is $line1"
-                  puts "That is [lindex $line2 0]s since the server started"  }]}
-        }}
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::source
-            @cmd -name "Built-in: source"\
-                -summary\
-                "Evaluate a file or resource as a Tcl script."\
-                -help\
-                "This command takes the contents of the specified file or resource and passes
-                it to the Tcl interpreter as a text script. The return value from ${$B}source${$N} is the
-                return value of the last command executed in the script. If an error occurs in
-                evaluating the contents of the script then the ${$B}source${$N} command will return that
-                error. If a return command is invoked from within the script then the remainder
-                of the file will be skipped and the ${$B}source${$N} command will return normally with
-                the result from the return command.
-                The end-of-file character for files is “\\32” (^Z) for all platforms. The source
-                command will read files up to this character. This restriction does not exist
-                for the read or gets commands, allowing for files containing code and data
-                segments (scripted documents). If you require a “^Z” in code for string
-                comparison, you can use “\\x1A”, which will be safely substituted by the Tcl
-                interpreter into “^Z”.
-
-                A leading BOM (Byte order mark) contained in the file is ignored for unicode
-                encodings (utf-8, utf-16, ucs-2).
-
-                The ${$B}-encoding${$N} option is used to specify the encoding of the data stored in
-                ${$I}fileName${$NI}. When the ${$B}-encoding option${N} is omitted, the utf-8 encoding is assumed."
-
-            @leaders -min 0 -max 0
-            @opts
-            -encoding -type string -default utf-8 -typesynopsis ${$I}encodingName${$NI}
-            fileName
-
-        } "@doc -name Manpage: -url [manpage_tcl source]"\
-        {@examples -help {
-            Run the script in the file ${B}foo.tcl${$N} and then the script in ${$B}bar.tcl${$N}:
-                ${[punk::args::tclcore::argdoc::example {
-                  source foo.tcl
-                  source bar.tcl  }]}
-            Alternatively:
-                ${[punk::args::tclcore::argdoc::example {
-                  foreach scriptFile {foo.tcl bar.tcl} {  
-                      source $scriptFile
-                  }}]}
-        }}
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::split
-            @cmd -name "Built-in: split"\
-                -summary\
-                "Split a string into a proper Tcl list."\
-                -help\
-                "Returns a list created by splitting string at each character that is in
-                the ${$I}splitChars${$NI} argument. Each element of the result list will
-                consist of the characters from ${$I}string${$NI} that lie between instances
-                of the characters in ${$I}splitChars${$NI}. Empty list elements will be
-                generated if string contains adjacent characters in ${$I}splitChars${$NI},
-                or if the first or last character of string is in ${$I}splitChars${$NI}.
-                If ${$I}splitChars${$NI} is an empty string then each character of ${$I}string${$NI}
-                becomes a separate element of the result list. ${$I}splitChars${$NI} defaults
-                to the standard white-space characters."
-            @values -min 1 -max 2
-            string -type string
-            splitChars -type string -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl split]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    }
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        punk::args::define {
-            @id	-id ::tcl::string::cat
-
-            @cmd -name "Built-in: tcl::string::cat"\
-                -summary\
-                "Concatenate strings."\
-                -help\
-                "Concatenate the given strings just like placing them directly next to each other and
-                return the resulting compound string. If no strings are present, the result is an
-                empty string.
-                This primitive is occasionally handier than juxtaposition of strings when mixed quoting
-                is wanted, or when the aim is to return the result of a concatentation without resorting
-                to return -level 0, and is more efficient than building a list of arguments and using
-                join with an empty join string."
-            @values -min 0 -max -1
-            string -type string -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::compare
-
-            @cmd -name "Built-in: tcl::string::compare" -help\
-                "Perform a character-by-character comparison of strings string1 and string2.
-                Returns -1, 0, or 1, dpending on whether string1 is lexicographically
-                lessthan, equal to, or greater than string2"
-
-            -nocase -type none -help\
-                "If -nocase is specified, then the strings are compared in a case insensitive manner."
-
-            -length -type integer -help\
-            "If -length is specified, then only the first length characters are used in the comparison.
-                If -length is negative, it is ignored."
-
-            @values -min 2 -max 2
-            string1 -type string
-            string2 -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::equal
-
-            @cmd -name "Built-in: tcl::string::equal"\
-                -summary\
-                "Compare strings."\
-                -help\
-                "Perform a character-by-character comparison of strings string1 and string2.
-                Returns 1 if string1 and string2 are identical, or 0 when not."
-
-            -nocase -type none -help\
-                "If -nocase is specified, then the strings are compared in a case insensitive manner."
-
-            -length -type integer -help\
-            "If -length is specified, then only the first length characters are used in the comparison.
-                If -length is negative, it is ignored."
-
-            @values -min 2 -max 2
-            string1 -type string
-            string2 -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::first
-            @cmd -name "Built-in: tcl::string::first" -help\
-                "Search ${$I}haystackString${$NI} for a sequence of characters that exactly match the characters
-                in  ${$I}needleString${$NI}. If found, return the index of the first character in the first such
-                match within ${$I}haystackString${$NI}. If there is no match, then return -1. If startIndex is
-                specified (in any of the forms described in STRING_INDICES), then the search is
-                constrained to start with the character in ${$I}haystackString${$NI} specified by the index.
-                For Example,
-                    ${[punk::args::tclcore::argdoc::example {
-                    string first a 0a23456789abcdef 5  }]}
-                  will return ${$B}10${$N}, but
-                    ${[punk::args::tclcore::argdoc::example {
-                    string first a 0a23456789abcdef 11  }]}
-                  will return ${$B}-1${$N}.
-                "
-            @values -min 2 -max 3
-            needleString -type string
-            haystackString -type string
-            startIndex -type indexexpression -optional 1 -help\
-                "integer or simple expression."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::index
-            @cmd -name "Built-in: tcl::string::index" -help\
-                "Returns the ${$I}charIndex${$NI}'th character of the ${$I}string${$NI} argument. A ${$I}charIndex${$NI} of 0
-                corresponds to the first character of the string. ${$I}charIndex${$NI} may be specified
-                as described in the STRING INDICES section."
-            @values -min 2 -max 2
-            string -type string
-            charIndex -type indexexpression
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::insert
-            @cmd -name "Built-in: tcl::string::insert" -help\
-                "Returns a copy of string with insertString inserted at the index'th character.
-                If index is start-relative, the first character inserted in the returned string will be
-                at the specified index.
-                If index is end-relative, the last character inserted in the returned string will be
-                at the specified index.
-                if index is at or before the start of string (e.g., index is 0), insertString is
-                prepended to the string.
-                If index is at or after the end of the string (e.g., index is end), insertString is
-                appended to string."
-
-            @values -min 3 -max 3
-            string -type string
-            index -type indexexpression -help\
-                "The index may be specified as described in the STRING_INDICES section"
-            insertString -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-
-        punk::args::define {
-            @id	-id ::tcl::string::last
-            @cmd -name "Built-in: tcl::string::last" -help\
-                "Search ${$I}haystackString${$NI} for a sequence of characters that exactly match the characters
-                in  ${$I}needleString${$NI}. If found, return the index of the first character in the last such
-                match within ${$I}haystackString${$NI}. If there is no match, then return -1. If lastIndex is
-                specified (in any of the forms described in STRING_INDICES), then only the characters
-                in ${$I}haystackString${$NI} at or before the specified lastIndex will be considered by the search.
-                For example,
-                    ${[punk::args::tclcore::argdoc::example {
-                    string last a 0a23456789abcdef 15  }]}
-                 will return ${$B}10${$N}, but
-                    ${[punk::args::tclcore::argdoc::example {
-                    string last a 0a23456789abcdef 9  }]}
-                 will return ${$B}1${$N}."
-            @values -min 1 -max 3
-            needleString -type string
-            haystackString -type string
-            lastIndex -type indexexpression -optional 1 -help\
-                "integer or simple expression."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::length
-            @cmd -name "Built-in: tcl::string::length" -help\
-                "Returns a decimal string giving the number of characters in ${$I}string${$NI}. Note that this is
-                not necessarily the same as the number of bytes used to store the string. If the value
-                is a byte array value (such as those returned from reading a binary encoded channel),
-                then this will return the actual byte length of the value."
-            @values -min 1 -max 1
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::map
-            @cmd -name "Built-in: tcl::string::map" -help\
-                "Replaces substrings in string based on the key-value pairs in ${$I}mapping${$NI}. ${$I}mapping${$NI} is a
-                list of key value key value ... as in the form returned by ${$B}array get${$N}. Each instance
-                of a key in the string will be replaced with its corresponding value. If ${$B}-nocase${$N} is
-                specified, then matching is done without regard to case differences. Both key and
-                value may be multiple characters. Replacement is done in an ordered manner, so the
-                key appearing first in the list will be checked first, and so on. ${$I}string${$NI} is only
-                iterated over once, so earlier key replacements will have no affect for later key
-                matches. For example,
-                    ${[punk::args::tclcore::argdoc::example {
-                    string map {abc 1 ab 2 a 3 1 0} 1abcaababcabababc  }]}
-                 will return the string ${$B}01321221${$N}.
-                 Note that if an earlier key is a prefix of a later one, it will completely mask
-                 the later one, So if the previous example were reordered like this,
-                    ${[punk::args::tclcore::argdoc::example {
-                    string map {1 0 ab 2 a 3 abc 1} 1abcaababcabababc  }]}
-                 it will return the string ${$B}02c322c222c${$N}.
-                "
-            @opts
-            -nocase -type none
-            @values -min 2 -max 2
-            mapping -type dict
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::match
-            @cmd -name "Built-in: tcl::string::match" -help\
-                {See if pattern matches string; return 1 if it does, 0 if it does not. If -nocase is
-                specified, then the pattern attempts to match against the string in a case insensitive
-                manner. For the two strings to match, their contents must be identical except that the
-                following special sequences may appear in pattern:
-                ${$B}*${$N}
-                    Matches any sequence of characters in ${$I}string${$NI}, including a null string.
-                ${$B}?${$N}
-                    Matches any single character in ${$I}string${$NI}.
-                ${$B}[${$N}chars${$B}]${$N}
-                    Matches any character in the set given by chars. If a sequence of the form x-y
-                    appears in chars, then any character between x and y, inclusive, will match. When
-                    used with -nocase, the end points of the range are converted to lower case first.
-                    Whereas {[A-z]} matches “_” when matching case-sensitively (since “_” falls between
-                    the “Z” and “a”), with -nocase this is considered like {[A-Za-z]} (and probably what
-                    was meant in the first place).
-                ${$B}\${$N}x
-                    Matches the single character ${$I}x${$NI}. This provides a way of avoiding the special
-                    interpretation of the characters ${$B}*?[]\${$N} in ${$I}pattern${$NI}.}
-            @opts
-            -nocase -type none
-            @values -min 2 -max 2
-            pattern -type string
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::range
-            @cmd -name "Built-in: tcl::string::range" -help\
-                "Returns a range of consecutive characters from ${$I}string${$NI}, starting with the character whose
-                index is ${$I}first${$NI} and ending with the character whose index is ${$I}last${$NI} (using the forms described
-                in ${$B}STRING INDICES${$N}). An index of ${$B}0${$N} refers to the first character of the string; an index of
-                ${$B}end${$N} refers to last character of the string. ${$I}first${$NI} and ${$I}last${$NI} may be specified as for the index
-                method. If ${$I}first${$NI} is less than zero then it is treated as if it were zero, and if ${$I}last${$NI} is
-                greater than or equal to the length of the string then it is treated as if it were ${$B}end${$N}. If
-                first is greater than last then an empty string is returned."
-            @values -min 3 -max 3
-            string  -type string
-            first   -type indexexpression
-            last    -type indexexpression
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::repeat
-            @cmd -name "Built-in: tcl::string::repeat"\
-                -summary\
-                "Build a string by repeating elements."\
-                -help\
-                "Returns a string consisting of string concatenated with itself count times."
-            @values -min 2 -max 2
-            string -type string
-            count -type int -help\
-                "If count is 0, the empty string will be returned."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::replace
-            @cmd -name "Built-in: tcl::string::replace" -help\
-                "Removes a range of consecutive characters from string, starting with the character whose
-                index is first and ending with the character whose index is last
-                (Using the forms described in STRING_INDICES). An index of 0 refers to the first
-                character of the string. First and last may be specified as for the index method.
-                If first is less than zero then it is treated as if it were zero, and if last is
-                greater than or equal to the length of the string then it is treated as if it were
-                end. The initial string is returned untouched, if first is greater than last, or if
-                first is equal to or greater than the length of the inital string, or last is less
-                than 0."
-            @values -min 3 -max 4
-            string -type string
-            first -type indexexpression
-            last -type indexexpression
-            newstring -type string -optional 1 -help\
-                "If newstring is specified, then it is placed in the removed character range."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::reverse
-            @cmd -name "Built-in: tcl::string::reverse" -help\
-                "Returns a string that is the same length as ${$I}string${$NI} but with its
-                characters in reverse order."
-            @values -min 1 -max 1
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::tolower
-            @cmd -name "Built-in: tcl::string::tolower" -help\
-            "Returns a value equal to ${$I}string${$NI} except that all upper (or title) case case letters have
-            been converted to lower case.
-            ${$I}first${$NI} and ${$I}last${$NI} may be specified using the forms described in STRING INDICES."
-            @values -min 1 -max 3
-            string -type string
-            first -type indexexpression -optional 1 -help\
-                "If ${$I}first${$NI} is specified, it refers to the first char index in the string to start modifying.
-                  If ${$I}last${$NI} is ${$B}not${$N} specified, only the character at position ${$I}first${$NI} is converted, otherwise ${$I}last${$NI} refers to
-                  the char index in the string to stop at (inclusive)."
-            last -type indexexpression -optional 1 -help\
-                "If ${$I}last${$NI} is specified, it refers to the char index in the string to stop at (inclusive)."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::totitle
-            @cmd -name "Built-in: tcl::string::totitle" -help\
-            "Returns a value equal to string except that the first character in string is converted to
-            its Unicode title case variant (or upper case if there is no title case variant) and the
-            rest of the string is converted to lower case.
-            ${$I}first${$NI} and ${$I}last${$NI} may be specified using the forms described in STRING INDICES."
-
-            @values -min 1 -max 3
-            string -type string
-            first -type indexexpression -optional 1 -help\
-                "If ${$I}first${$NI} is specified, it refers to the first char index in the string to start modifying.
-                  If ${$I}last${$NI} is ${$B}not${$N} specified, only the character at position ${$I}first${$NI} is converted, otherwise ${$I}last${$NI} refers to
-                  the char index in the string to stop at (inclusive)."
-            last -type indexexpression -optional 1 -help\
-                "If ${$I}last${$NI} is specified, it refers to the char index in the string to stop at (inclusive)."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::toupper
-            @cmd -name "Built-in: tcl::string::toupper" -help\
-            "Returns a value equal to ${$I}string${$NI} except that all lower (or title) case case letters have
-            been converted to upper case.
-            ${$I}first${$NI} and ${$I}last${$NI} may be specified using the forms described in STRING INDICES."
-            @values -min 1 -max 3
-            string -type string
-            first -type indexexpression -optional 1 -help\
-                "If ${$I}first${$NI} is specified, it refers to the first char index in the string to start modifying.
-                  If ${$I}last${$NI} is ${$B}not${$N} specified, only the character at position ${$I}first${$NI} is converted, otherwise ${$I}last${$NI} refers to
-                  the char index in the string to stop at (inclusive)."
-            last -type indexexpression -optional 1 -help\
-                "If ${$I}last${$NI} is specified, it refers to the char index in the string to stop at (inclusive)."
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::trim
-            @cmd -name "Built-in: tcl::string::trim" -help\
-            {Returns a value equal to ${$I}string${$NI} except that any leading or trailing characters
-            present in the string given by ${$I}chars${$NI} are removed. if ${$I}chars${$NI} is not specified
-            then white space is removed (any character for which ${$N}string is space${$N} returns 1, and "\0"}
-            @values -min 1 -max 2
-            string -type string
-            chars -type string -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-        punk::args::define {
-            @id	-id ::tcl::string::trimleft
-            @cmd -name "Built-in: tcl::string::trimleft" -help\
-            {Returns a value equal to ${$I}string${$NI} except that any leading characters
-            present in the string given by ${$I}chars${$NI} are removed. if ${$I}chars${$NI} is not specified
-            then white space is removed (any character for which ${$N}string is space${$N} returns 1, and "\0"}
-            @values -min 1 -max 2
-            string -type string
-            chars -type string -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-        punk::args::define {
-            @id	-id ::tcl::string::trimright
-            @cmd -name "Built-in: tcl::string::trimright" -help\
-            {Returns a value equal to ${$I}string${$NI} except that any trailing characters
-            present in the string given by ${$I}chars${$NI} are removed. if ${$I}chars${$NI} is not specified
-            then white space is removed (any character for which ${$N}string is space${$N} returns 1, and "\0"}
-            @values -min 1 -max 2
-            string -type string
-            chars -type string -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-
-        punk::args::define {
-            @id	-id ::tcl::string::wordend
-            @cmd -name "Built-in: tcl::string::wordend" -help\
-                "Returns the index of the character just after the last one in the word containing
-                character ${$I}charIndex${$NI} of ${$I}string${$NI}.
-                A word is considered to be any contiguous range of alphanumeric (Unicode letters or decimal digits)
-                or underscore (Unicode connector punctuation) characters, or any single character other than these."
-            @values -min 2 -max 2
-            string -type string
-            charIndex -type indexexpression -help\
-                "integer or simple expresssion.
-                e.g end
-                e.g end-1
-                e.g M+N"
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-
-        punk::args::define {
-            @id	-id ::tcl::string::wordstart
-            @cmd -name "Built-in: tcl::string::wordstart" -help\
-                "Returns the index of the first character in the word containing
-                character ${$I}charIndex${$NI} of ${$I}string${$NI}.
-                A word is considered to be any contiguous range of alphanumeric (Unicode letters or decimal digits)
-                or underscore (Unicode connector punctuation) characters, or any single character other than these.
-                "
-            @values -min 2 -max 2
-            string -type string
-            charIndex -type indexexpression -help\
-                "integer or simple expresssion.
-                e.g end
-                e.g end-1
-                e.g M+N"
-        } "@doc -name Manpage: -url [manpage_tcl string]"
-    }
-
-    punk::args::define [punk::args::lib::tstr -return string {
-        @id	-id ::tcl::string::is
-        @cmd -name "Built-in: tcl::string::is" -help\
-            "Returns 1 if string is a valid member of the specified character class, otherwise returns 0.
-            "
-        @leaders -min 1 -max 1
-        class -type string\
-              -choices {
-                alnum
-                alpha
-                ascii
-                boolean
-                control
-                dict
-                digit
-                double
-                entier
-                false
-                graph
-                integer
-                list
-                lower
-                print
-                punct
-                space
-                true
-                upper
-                wideinteger
-                wordchar
-                xdigit
-            }\
-            -choicelabels {
-                alnum\
-            " Any Unicode alphabet
-             or digit character"
-                alpha\
-            " Any Unicode alphabet
-             character"
-                ascii\
-            " Any character with
-             a value less than \\u0080
-             (those that are in the
-             7-bit ascii range)"
-                boolean\
-           " Any of the forms allowed
-             for Tcl_GetBoolean"
-                control\
-           " Any Unicode control char"
-                dict\
-           " Any proper dict structure,
-             with optional surrounding
-             whitespace. In case of
-             improper dict structure, 0
-             is returned and the varname
-             will contain the index of
-             the \"element\" where the
-             dict parsing fails or -1 if
-             this cannot be determined."
-                digit\
-           " Any Unicode digit char.
-             Note that this includes
-             chars outside of the \[0-9\]
-             range."
-                double\
-           " Any of the forms allowed
-             for Tcl_GetDoubleFromObj.
-             ${$A_WARN}With optional surrounding${$A_RST}
-             ${$A_WARN}whitespace.${$A_RST}"
-                entier\
-           " Synonym for integer"
-                false\
-           " Any of the forms allowed
-             for Tcl_GetBoolean where the
-             value is false"
-                graph\
-           " Any Unicode printing char
-             except space."
-                integer\
-           " Any of the valid string
-             formats for an integer value
-             of arbitrary size in Tcl,
-             ${$A_WARN}with optional surrounding${$A_RST}
-             ${$A_WARN}whitespace${$A_RST}. The formats
-             accepted are exactly those
-             accepted by the C routine
-             Tcl_GetBignumFromObj."
-                list\
-           " Any proper list structure,
-             with optional surrounding
-             whitespace. In case of
-             improper list structure, 0
-             is returned and the varname
-             will contain the index of
-             the \"element\" where list
-             parsing fails, or -1 if
-             this cannot be determined"
-                lower\
-           " Any Unicode lower case
-             alphabet character"
-                print\
-           " Any Unicode printing
-             character, including space"
-                punct\
-           " Any Unicode punctuation
-             character."
-                space\
-           " Any Unicode whitespace
-             character, mongolian vowel
-             separator (U+180e),
-             zero width space (U+200b),
-             word joiner (U+2060) or
-             zero width no-break space
-             (U+feff) (=BOM)"
-                true\
-           " Any of the forms allowed
-             for Tcl_GetBoolean where the
-             value is true"
-                upper\
-           " Any upper case alphabet
-             character in the Unicode
-             character set"
-                wideinteger\
-           " Any of the valid forms
-             for a wide integer in Tcl,
-             ${$A_WARN}with optional surrounding${$A_RST}
-             ${$A_WARN}whitespace${$A_RST}. In case of
-             overflow in the value, 0 is
-             returned and the varname
-             will contain -1."
-                wordchar\
-           " Any Unicode word char.
-             That is any alphanumeric
-             character, and any
-             Unicode connector
-             punctuation characters
-             (e.g. underscore)"
-                xdigit\
-           " Any hexadecimal digit
-             character ([0-9A-Fa-f])."
-            }\
-            -help\
-            "character class
-              In the case of boolean, true and false, if the function will return 0, then the
-              varname will always be set to 0, due to the varied nature of a valid boolean value"
-
-        -strict -type none -help\
-            "If -strict is specified, then an empty string returns 0,
-              otherwise an empty string will return 1 on any class"
-        -failindex -type variablename -help\
-            "If -failindex is specified, then if the function returns 0,
-              the index in the string where the class was no longer
-              valid will be stored in the variable named."
-        @values -min 1 -max 1
-        string -type string -optional 0
-    }] "@doc -name Manpage: -url [manpage_tcl string]"
-
-
-    #a test of going deeper - we should be able to define these by reference to above text
-    #e.g dict get [lrange [punk::args::resolved_def -types leaders ::tcl::string::is class] 1 end] -choicelabels xdigit
-    #set string_class_choices        [dict get [lrange [punk::args::resolved_def -types leaders ::tcl::string::is class] 1 end] -choices]
-    set string_class_choicelabels   [dict get [lrange [punk::args::resolved_def -types leaders ::tcl::string::is class] 1 end] -choicelabels]
-    dict for {sclass slabel} $string_class_choicelabels {
-        punk::args::define [string map [list %sc% $sclass %slabel% $slabel] {
-            @id	-id "::tcl::string::is %sc%"
-            @cmd -name "Built-in: string is %sc%" -help\
-                {%slabel%}
-            ${[punk::args::resolved_def -types opts ::tcl::string::is -*]}
-            @values -min 1 -max 1
-            string -type string -optional 0
-        }] "@doc -name Manpage: -url [manpage_tcl string]"
-    }
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        punk::args::define {
-            @id	-id ::subst
-            @cmd -name "Built-in: subst"\
-                -summary\
-                "Perform backslash, command, and variable substitutions."\
-                -help\
-                "This command performs variable substitutions, command substitutions,
-                and backslash substitutions on its ${$I}string${$NI} argument and returns the
-                fully-substituted result. The substitutions are performed in exactly
-                the same way as for Tcl commands. As a result, the ${$I}string${$NI} argument is
-                actually substituted twice, once by the Tcl parser in the usual
-                fashion for Tcl commands, and again by the subst command.
-                If any of the ${$B}-nobackslashes${$N}, ${$B}-nocommands${$N}, or ${$B}-novariables${$N} are
-                specified, then the corresponding substitutions are not performed.
-                For example, if ${$B}-nocommands${$N} is specified, command substitution is not
-                performed: open and close brackets are treated as ordinary characters
-                with no special interpretation.
-
-                Note that the substitution of one kind can include substitution of
-                other kinds. For example, even when the ${$B}-novariables${$N} option is
-                specified, command substitution is performed without restriction.
-                This means that any variable substitution necessary to complete the
-                command substitution will still take place. Likewise, any command
-                substitution necessary to complete a variable substitution will take
-                place, even when ${$B}-nocommands${$N} is specified. See the EXAMPLES below.
-
-                If an error occurs during substitution, then ${$B}subst${$N} will return that
-                error. If a break exception occurs during command or variable
-                substitution, the result of the whole substitution will be the string
-                (as substituted) up to the start of the substitution that raised the
-                exception. If a continue exception occurs during the evaluation of a
-                command or variable substitution, an empty string will be substituted
-                for that entire command or variable substitution (as long as it is
-                well-formed Tcl.) If a return exception occurs, or any other return
-                code is returned during command or variable substitution, then the
-                returned value is substituted for that substitution.
-                See the EXAMPLES below. In this way, all exceptional return codes are
-                “caught” by ${$B}subst${$N}. The ${$B}subst${$N} command itself will either return an
-                error, or will complete successfully."
-            @opts
-            -nobackslashes -type none
-            -nocommands -type none
-            -novariables -type none
-            @values -min 1 -max -1
-            string -type string
-        } "@doc -name Manpage: -url [manpage_tcl subst]"
-    }
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::switch
-            @cmd -name "Built-in: switch"\
-                -summary\
-                "Evaluate one of several scripts, depending on a given value."\
-                -help\
-                "The ${$B}switch${$N} command matches its ${$I}string${$NI} argument against each of the ${$I}pattern${$NI} arguments
-                in order. As soon as it finds a ${$I}pattern${$NI} that matches ${$I}string${$NI} it evaluates the following
-                ${$I}body${$NI} argument by passing it recursively to the Tcl interpreter and returns the result
-                of that evaluation. If the last ${$I}pattern${$NI} argument is ${$B}default${$N} then it matches anything.
-                If no ${$I}pattern${$NI} argument matches ${$I}string${$NI} and no default is given, then the ${$B}switch${$N} command
-                returns an empty string.
-                If the initial arguments to ${$B}switch${$N} start with - then they are treated as options unless
-                there are exactly two arguments to ${$B}switch${$N} (in which case the first must the ${$I}string${$NI} and
-                the second must be the ${$I}pattern/body${$NI} list).
-
-                Two syntaxes are provided for the ${$I}pattern${$NI} and ${$I}body${$NI} arguments. The first uses a separate
-                argument for each of the patterns and commands; this form is convenient if substitutions
-                are desired on some of the patterns or commands. The second form places all of the
-                patterns and commands together into a single argument; the argument must have proper
-                list structure, with the elements of the list being the patterns and commands. The
-                second form makes it easy to construct multi-line switch commands, since the braces
-                around the whole list make it unnecessary to include a backslash at the end of each
-                line. Since the ${$I}pattern${$NI} arguments are in braces in the second form, no command or
-                variable substitutions are performed on them; this makes the behavior of the second form
-                different than the first form in some cases.
-
-                If a ${$I}body${$NI} is specified as “-” it means that the ${$I}body${$NI} for the next pattern should also be
-                used as the body for this pattern (if the next pattern also has a body of “-” then the
-                body after that is used, and so on). This feature makes it possible to share a single
-                ${$I}body${$NI} among several patterns.
-
-                Beware of how you place comments in ${$B}switch${$N} commands. Comments should only be placed
-                ${$B}inside${$N} the execution body of one of the patterns, and not intermingled with the
-                patterns."
-
-            @form -form separate
-            @form -form block
-            @leaders -form {separate block} -min 0 -max 0
-
-            @form -form {separate block}
-            @opts
-            -exact      -type none -help\
-                "Use exact matching when comparing ${$I}string${$NI} to a pattern. This is the default."
-            -glob       -type none -help\
-                "When matching ${$I}string${$NI} to the patterns, use glob-style matching (i.e. the same as
-                  implemented by the ${$B}string match${$N} command)."
-            -regexp     -type none -help\
-                "When matching ${$I}string${$NI} to the patterns, use regular expression matching (as described
-                  in the ${$B}re_syntax${$N} reference page)."
-            -nocase     -type none -help\
-                "Causes comparisons to be handled in a case-insensitive manner."
-            #matchvar/indexvar only legel when -regexp specified !todo
-            -matchvar   -type string -typesynopsis ${$I}varName${$NI} -help\
-                "This option (only legal when ${$B}-regexp${$N} is also specified) specifies the name of a variable into
-                  which the list of matches found by the regular expression engine will be written. The first
-                  element of the list written will be the overall substring of the input string (i.e. the
-                  string argument to ${$B}switch${$N}) matched, the second element of the list will be the substring
-                  matched by the first capturing parenthesis in the regular expression that matched, and so on.
-                  When a ${$B}default${$N} branch is taken, the variable will have the empty list written to it. This
-                  option may be specified at the same time as the ${$B}-indexvar${$N} option."
-            -indexvar   -type string -typesynopsis ${$I}varName${$NI} -help\
-                "This option (only legal when ${$B}-regexp${$N} is also specified) specifies the name of a variable into which the
-                  list of indices referring to matching substrings found by the regular expression engine will be written.
-                  The first element of the list written will be a two-element list specifying the index of the start and
-                  index of the first character after the end of the overall substring of the input string (i.e. the string
-                  argument to switch) matched, in a similar way to the ${$B}-indices${$N} option to ${$B}regexp${$N} can obtain. Similarly,
-                  the second element of the list refers to the first capturing parenthesis in the regular expression that
-                  matched, and so on. When a ${$B}default${$N} branch is taken, the variable will have the empty list written to it.
-                  This option may be specified at the same time as the ${$B}-matchvar${$N} option."
-            --          -type none -help\
-                "Marks the end of options. The argument following this one will be treated as string even if it starts with a -.
-                This is not required when the matching patterns and bodies are grouped together in a single argument."
-
-            @values -form separate -min 3 -max -1
-            @values -form block -min 2 -max 2
-
-            string  -form *    -type string -help\
-                "string to match for."
-
-            "pattern body"                      -form separate -type {string script} -typesynopsis {${$I}pattern${$NI} ${$I}body${$NI}} -optional 0 -multiple 1
-
-            "{pattern body ?pattern body?...}"   -form block    -type dict
-
-        } "@doc -name Manpage: -url [manpage_tcl switch]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tailcall
-            @cmd -name "Built-in: tailcall"\
-                -summary\
-                "Replace the current procedure with another command."\
-                -help\
-                "The ${$B}tailcall${$N} command replaces the currently executing procedure,
-                lambda aplication, or method with another command. The ${$I}command${$NI},
-                which will have ${$I}arg${$NI} ... passed as arguments if they are supplied,
-                will be looked up in the current namespace context, not in the caller's.
-                Apart from that difference in resolution, it is equivalent to:
-                ------------------------------------------------
-                return [uplevel 1 [list ${$I}command ?${$I}arg${$NI} ...?]]
-                ------------------------------------------------
-                This command may not be invoked from within an ${$I}uplevel${$NI} into a
-                procedure or insida a ${$B}catch${$N} inside a procedure or lambda."
-            @values -min 1 -max -1
-            command -type string
-            arg -optional 1 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl tailcall]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::throw
-            @cmd -name "Built-in: throw"\
-                -summary\
-                "Generate a machine-readable error."\
-                -help\
-                "This command causes the current evaluation to be unwound with an error.
-                The error created is described by the type and message arguments: type must
-                contain a list of words describing the error in a form that is
-                machine-readable (and which will form the error-code part of the result
-                dictionary), and message should contain text that is intended for display to
-                a human being.
-                The stack will be unwound until the error is trapped by a suitable catch or
-                try command. If it reaches the event loop without being trapped, it will be
-                reported through the bgerror mechanism. If it reaches the top level of script
-                evaluation in tclsh, it will be printed on the console before, in the
-                non-interactive case, causing an exit (the behavior in other programs will
-                depend on the details of how Tcl is embedded and used).
-
-                By convention, the words in the type argument should go from most general to
-                most specific.
-                ${B}EXAMPLES${$N}
-                The following produces an error that is identical to that produced by expr
-                when trying to divide a value by zero.
-                ${[punk::args::tclcore::argdoc::example {
-                  throw {ARITH DIVZERO {divide by zero}} {divide by zero}
-                }]}"
-            @values -min 2 -max 2
-            type -type list
-            message -type string
-        } "@doc -name Manpage: -url [manpage_tcl throw]"
-
-
-    }
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    punk::args::define {
-        @id	-id ::trace
-        @cmd -name "Built-in: trace"\
-            -summary\
-            "Monitor variable accesses, command usages and command executions."\
-            -help\
-            "This command causes Tcl commands to be executed whenever certain
-            operations are invoked. "
-
-        #@form   -synopsis "trace option ?arg arg...?"
-        @leaders -min 1 -max 1
-        option  -choicegroups {
-                        ""          {add remove info}
-                        obsolete    {variable vdelete vinfo}
-                    }\
-                    -choiceinfo {
-                        add {{doctype punkargs} {subhelp ::trace add}}
-                    }
-        @values -min 0 -max 0
-
-    } "@doc -name Manpage: -url [manpage_tcl trace]"
-
-    punk::args::define {
-        @id	-id "::trace add"
-        @cmd -name "Built-in: trace add" -help\
-            ""
-        @form   -synopsis "trace add type name ops ?args?"
-        @leaders
-        type    -choicegroups {
-                        ""          {command execution variable}
-                    }\
-                    -choiceinfo {
-                        command {{doctype punkargs}}
-                        execution {{doctype punkargs}}
-                    }
-
-    } "@doc -name Manpage: -url [manpage_tcl trace]"
-
-    punk::args::define {
-        @id	-id "::trace add command"
-        @cmd -name "Built-in: trace add command" -help\
-            "Arrange for commandPrefix to be executed (with additional arguments)
-            whenever command name is modified in one of the ways given by the list
-            ops. Name will be resolved using the usual namespace resolution rules
-            used by commands. If the command does not exist, an error will be thrown."
-        name -type string -help\
-            "Name of command"
-        ops -type list -choices {rename delete} -choiceprefix 0 -choicemultiple {1 2}\
-            -choicelabels {
-                rename\
-            " Invoke commandPrefix whenever the traced command
-             is renamed. Note that renaming to the empty string
-             is considered deletion, and will not be traced with
-             'rename'"
-                delete\
-            " Invoke commandPrefix when the traced command is deleted.
-             Commands can be deleted explicitly using the rename command to
-             rename the command to an empty string. Commands are also deleted
-             when the interpreter is deleted, but traces will not be invoked
-             because there is no interpreter in which to execute them."
-            }\
-            -help\
-            "Indicates which operations are of interest."
-        commandPrefix  -type string  -help\
-            "When the trace triggers, depending on the operations being traced, a
-              number of arguments are appended to commandPrefix so that the actual
-              command is as follows:
-                  --------------------------------
-                  commandPrefix oldName newName op
-                  --------------------------------
-                  OldName and newName give the traced command's current (old) name,
-                  and the name to which it is being renamed (the empty string if this
-                  is a \"delete\" operation). Op indicates what operation is being
-                  performed on the command, and is one of rename or delete as defined
-                  above. The trace operation cannot be used to stop a command from being
-                  deleted. Tcl will always remove the command once the trace is complete.
-                  Recursive renaming or deleting will not cause further traces of the
-                  same type to be evaluated, so a delete trace which itself deletes a
-                  command, or a rename trace which itself renames the command will not
-                  cause further trace evaluations to occur. Both oldName and newName are
-                  fully qualified with any namespace(s) in which they appear.
-                  "
-    } "@doc -name Manpage: -url [manpage_tcl trace]"
-
-
-    punk::args::define {
-        @id	-id "::trace add execution"
-        @cmd -name "Built-in: trace add execution" -help\
-            "Arrange for commandPrefix to be executed (with additional arguments)
-            whenever command name is executed, with traces occurring at the points
-            indicated by the list ops. Name will be resolved using the usual namespace
-            resolution ruls used by commands. If the command does not exist, and error
-            will be thrown"
-        name -type string -help\
-            "Name of command"
-        # ---------------------------------------------------------------
-        ops -type list -choices {enter leave enterstep leavestep} -choiceprefix 0\
-            -choicemultiple {1 4}\
-            -choicecolumns 2\
-            -choicelabels {
-                enter\
-            " Invoke commandPrefix whenever the command name is executed,
-             just before the actual execution takes place."
-                leave\
-            " Invoke commandPrefix whenever the command name is executed,
-             just after the actual execution takes place."
-                enterstep\
-            " Invoke commandPrefix for every Tcl command which is executed
-             from the start of the execution of the procedure name until
-             that procedure finishes. CommandPrefix is invoked just before
-             the actual execution of the Tcl command being reported takes
-             place. For example if we have
-             \"proc foo {} { puts \"hello\" }\", then an enterstep trace
-             would be invoked just before \"puts \"hello\"\" is executed.
-             Setting an enterstep trace on a command name that does not
-             refer to a procedure will not result in an error and is
-             simply ignored."
-                leavestep\
-            " Invoke commandPrefix for every Tcl command which is executed
-             from the start of the execution of the procedure name until
-             that procedure finishes. CommandPrefix is invoked just after
-             the actual execution of the Tcl command being reported takes
-             place. Setting a leavestep trace on a command name that does
-             not refer to a procedure will not result in an error and is
-             simply ignored."
-             }\
-            -help\
-            "Indicates which operations are of interest."
-        commandPrefix  -type string -help\
-            "When the trace triggers, depending on the operation being traced, a
-              number of arguments are appended to commandPrefix so that the actual
-              command is as follows:
-                  For enter and enterstep operations:
-                    -------------------------------
-                    commandPrefix command-string op
-                    -------------------------------
-                    Command-string give the complete current command being executed
-                    (the traced command for a enter operation, an arbitrary command
-                    for an enterstep operation), including all arguments in their
-                    fully expanded form. Op indicates what operation is being performed
-                    on the command execution, and is on of enter or enterstep as
-                    defined above. The trace operation can be used to stop the command
-                    from executing, by deleting the command in question. Of course when
-                    the command is subsequently executed, an \"invalid command\" error
-                    will occur.
-                  For leave and leavestep operations:
-                    -------------------------------------------
-                    commandPrefix command-string code result op
-                    -------------------------------------------
-                    Command-string gives the complete current command being executed
-                    (the traced command for a leave operation, an arbitrary command
-                    for a leavestep operation), including all arguments in their
-                    fully expanded form. Code give the result code of that execution,
-                    and result the result string. Op indicates what operation is being
-                    performed on the command execution and is one of leave or leavestep
-                    as defined above.
-
-                    Note that the creation of many enterstep or leavestep traces can
-                    lead to unintuitive results, since the invoked commands from one
-                    trace can themselves lead to further command invocations for other
-                    traces.
-
-                    CommandPrefix executes in the same context as the code that invoked
-                    the traced operation: thus the commandPrefix, if invoked from a
-                    procedure, will have access to the same local variables as code in the
-                    procedure. This context may be different thatn the context in which
-                    the trace was created. If commandPrefix invokes a procedure (which
-                    it normally does) then the procedure will have to use upvar or uplevel
-                    commands if it wishes to access the local variables of the code which
-                    invoked the trace operation.
-
-                    While commandPrefix is executing during an execution trace, traces on
-                    name are temporarily disabled. This allows the commandPrefix to execute
-                    name in its body without invoking any other traces again. If an error
-                    occurs while executing the commandPrefix, then the command name as a
-                    whole will return that same error.
-
-                    When multiple traces are set on name, then for enter and enterstep
-                    operations, the traced commands are invoked in the reverse order of how
-                    the traces were originally created; and for leave and leavestep operations,
-                    the traced commands are invoked in the original order of creation.
-
-                    The behaviour of execution traces is currently undefined for a command name
-                    imported into another namespace.
-                    "
-    } "@doc -name Manpage: -url [manpage_tcl trace]"
-
-    punk::args::define {
-        @id	-id "::trace remove command"
-        @cmd -name "Built-in: trace remove command" -help\
-            "If there is a trace set on command name with the operations and command
-            given by opList and commandPrefix, then the trace is removed, so that
-            commandPrefix will never again be invoked. Returns an empty string. If
-            name does not exist, the command will throw an error"
-        @values
-        name   -type string -help\
-            "Name of command"
-        opList -type list -help\
-            "A list of one or more of the following items:
-              rename
-              delete"
-        commandPrefix
-    } "@doc -name Manpage: -url [manpage_tcl trace]"
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::try
-            @cmd -name "Built-in: try"\
-                -summary\
-                "Trap and process errors and exceptions"\
-                -help\
-                "This command executes the script body and, depending on what the outcome of
-                that script is (normal exit, error, or some other exceptional result), runs
-                a handler script to deal with the case. Once that has all happened, if the
-                finally clause is present, the script it includes will be run and the result
-                of the handler (or the body if no handler matched) is allowed to continue to
-                propagate. Note that the finally clause is processed even if an error occurs
-                and irrespective of which, if any, handler is used.
-                The handler clauses are each expressed as several words, and must have one of
-                the following forms:
-
-                  ${$B}on${$N} code variableList script
-                    This clause matches if the evaluation of body completed with the exception
-                    code ${$I}code${$NI}. The code may be expressed as an integer or one of
-                    the following literal words: ok, error, return, break, or continue. Those
-                    literals correspond to the integers 0 through 4 respectively.
-                  ${$B}trap${$N} pattern variableList script
-                    This clause matches if the evaluation of body resulted in an error and the
-                    prefix of the -errorcode from the interpreter's status dictionary is equal
-                    to the pattern. The number of prefix words taken from the -errorcode is
-                    equal to the list-length of pattern, and inter-word spaces are normalized
-                    in both the -errorcode and pattern before comparison.
-
-                The variableList word in each handler is always interpreted as a list of
-                variable names. If the first word of the list is present and non-empty, it
-                names a variable into which the result of the evaluation of body (from the main
-                try) will be placed; this will contain the human-readable form of any errors.
-                If the second word of the list is present and non-empty, it names a variable
-                into which the options dictionary of the interpreter at the moment of
-                completion of execution of body will be placed.
-
-                The script word of each handler is also always interpreted the same: as a Tcl
-                script to evaluate if the clause is matched. If script is a literal “-” and the
-                handler is not the last one, the script of the following handler is invoked
-                instead (just like with the switch command).
-
-                Note that handler clauses are matched against in order, and that the first
-                matching one is always selected. At most one handler clause will selected. As a
-                consequence, an on error will mask any subsequent trap in the try. Also note
-                that on error is equivalent to trap {}.
-
-                If an exception (i.e. any non-ok result) occurs during the evaluation of either
-                the handler or the finally clause, the original exception's status dictionary
-                will be added to the new exception's status dictionary under the -during key."
-
-            @leaders -min 0 -max 0
-            @values -min 1 -max -1
-            body -type script
-
-            # handler for multiple on and/or trap clauses
-            #This works,but is not ideal. Does not extend to more complex cases.
-            #we would like to be able to define multiple handler clauses with possibly different arity,
-            #and display properly distinguished synopses and help (including for example -choices for code type)
-            #Each type of handler must be able to be interleaved arbitrarily.
-            #we can't define a separate on_handler and try_handler as it stands, because positionality would
-            #force all on_handlers to be together and all try_handlers to be together, and it would force
-            #one type of handler to be listed always before or always after the other.
-            handler -optional 1 -multiple 1 -type {literal(on)|literal(trap) string list string}\
-                -typesynopsis {"" code|pattern variableList script}
-            #todo?
-            #JJJJ
-            #a way to define a compound type?
-            #handler -optional 1 -multiple 1 -type {<on_handler>|<try_handler>}
-            ##<on_handler> -type {literal(on) <code> <variableList> <script>}
-            ##<code> -type int -choices {0|ok 1|error 2|return 3|break 4|continue} -choicelabels {...}
-            #..
-            ##<try_handler> -type {literal(trap) <pattern> <variableList> <script>}
-            ##<pattern> -type list
-
-            #consider also RPN for compound type definitions
-            ##<mytype1> -type {{int double OR}}
-            ##<mytype2> -type {{stringstartswith a stringendswith z AND int OR}}
-
-            finally -optional 1 -optional 1 -type {literal(finally) script}
-
-        } "@doc -name Manpage: -url [manpage_tcl try]"\
-        {@examples -help {
-            Ensure that a file is closed no matter what:
-                ${[punk::args::tclcore::argdoc::example {
-                  set f [open /some/file/name a]  
-                  try {
-                      puts $f "some message"
-                      # ...
-                  } finally {
-                      close $f
-                  }
-                }]}
-            Handle different reasons for a file to not be openable for reading:
-                ${[punk::args::tclcore::argdoc::example {
-                  try {
-                      set f [open /some/file/name r]
-                  } trap {POSIX EISDIR} {} {
-                      puts "failed to open /some/file/name: it's a directory"  
-                  } trap {POSIX ENOENT} {} {
-                      puts "failed to open /some/file/name: it doesn't exist"
-                  }
-                }]}
-            Proc to read a file in utf-8 encoding and return its contents.
-            The file is closed in success and error case by the finally clause.
-            It is allowed to call return within the try block. Remark that with
-            tcl 9, the read command may also throw utf-8 conversion errors:
-                ${[punk::args::tclcore::argdoc::example {
-                  proc readfile {filename} {
-                      set f [open $filename r]
-                      try {
-                          fconfigure $f -encoding utf-8 -profile strict  
-                          return [read $f]
-                      } finally {
-                          close $f
-                      }
-                  }
-                }]}
-        }
-        }
-
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::variable
-            @cmd -name "Built-in: variable"\
-                -summary\
-                "Create and initialise a namespace variable."\
-                -help\
-                "This command is normally used within a namespace eval command to create one
-                or more variables within a namespace. Each variable name is initialized with
-                value. The value for the last variable is optional.
-                If a variable name does not exist, it is created. In this case, if value is
-                specified, it is assigned to the newly created variable. If no value is
-                specified, the new variable is left undefined. If the variable already exists,
-                it is set to value if value is specified or left unchanged if no value is
-                given. Normally, name is unqualified (does not include the names of any
-                containing namespaces), and the variable is created in the current namespace.
-                If name includes any namespace qualifiers, the variable is created in the
-                specified namespace. If the variable is not defined, it will be visible to the
-                namespace which command, but not to the info exists command.
-
-                If the variable command is executed inside a Tcl procedure, it creates local
-                variables linked to the corresponding namespace variables (and therefore these
-                variables are listed by info vars.) In this way the variable command resembles
-                the global command, although the global command resolves variable names with
-                respect to the global namespace instead of the current namespace of the
-                procedure. If any values are given, they are used to modify the values of the
-                associated namespace variables. If a namespace variable does not exist, it is
-                created and optionally initialized.
-
-                A name argument cannot reference an element within an array. Instead, name
-                should reference the entire array, and the initialization value should be left
-                off. After the variable has been declared, elements within the array can be set
-                using ordinary set or array commands."
-            #@form -form "setvalues" -synopsis "variable ?name value...? ?name?"
-            @form -form "setvalues"
-            @values -min 0 -max -1
-            "name value" -type {string any} -optional 1 -multiple 1
-            name -type string -optional 1
-
-            #In this case - we don't want name_value to display - as this is only used for documenting a Built-in
-            #For the case where an @arggroups is used also for parsing - the help should display the synopsis form
-            #and also the name of the var in which it is placed.
-            #  e.g
-            #  ?{name value}...?
-            #  (name_value)
-            #The second line giving an indication the resulting list of pairs can be accessed with something like:
-            #  dict get $argd values name_value
-
-            #@arggroup -name name_value -min 1 -max 2 -optional 1 -multiple 1 -args {
-            #        name
-            #        value
-            #    }
-
-            @form -form "declare"
-            @values -min 1 -max 1
-            name -optional 0
-
-        } "@doc -name Manpage: -url [manpage_tcl variable]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::vwait
-            @cmd -name "Built-in: ::vwait"\
-            -summary\
-            "Process events until a variable is written."\
-            -help\
-            "This command enters the Tcl event loop to process events, blocking the application
-            if no events are ready. It continues processing events until some event handler sets
-            the value of the global variable varName. Once varName has been set, the vwait
-            command will return as soon as the event handler that modified varName completes.
-            The varName argument is always interpreted as a variable name with respect to the
-            global namespace, but can refer to any namespace's variables if the fully-qualified
-            name is given.
-            In the second more complex command form options allow for finer control of the wait
-            operation and to deal with multiple event sources.
-
-            The result returned by vwait is for the simple form an empty string. If the -timeout
-            option is specified, the result is the number of milliseconds remaining when the wait
-            condition has been met, or -1 if the wait operation timed out.
-
-            If the -extended option is specified, the result is made up of a Tcl list with an
-            even number of elements. Odd elements take the values readable, timeleft, variable,
-            and writable. Even elements are the corresponding variable and channel names or the
-            remaining number of milliseconds. The list is ordered by the occurrences of the
-            event(s) with the exception of timeleft which always comes last.
-
-            In some cases the vwait command may not return immediately after varName et.al. is set.
-            This happens if the event handler that sets varName does not complete immediately. For
-            example, if an event handler sets varName and then itself calls vwait to wait for a
-            different variable, then it may not return for a long time. During this time the
-            top-level vwait is blocked waiting for the event handler to complete, so it cannot
-            return either. (See the NESTED VWAITS BY EXAMPLE below.)
-
-            To be clear, multiple vwait calls will nest and will not happen in parallel. The
-            outermost call to vwait will not return until all the inner ones do. It is recommended
-            that code should never nest vwait calls (by avoiding putting them in event callbacks)
-            but when that is not possible, care should be taken to add interlock variables to the
-            code to prevent all reentrant calls to vwait that are not strictly necessary. Be aware
-            that the synchronous modes of operation of some Tcl packages (e.g., http) use vwait
-            internally; if using the event loop, it is best to use the asynchronous callback-based
-            modes of operation of those packages where available."
-
-            @form -form basic
-            @leaders -min 0 -max 0
-            @opts -min 0 -max 0
-            @values -min 1 -max 1
-            varName -type string
-
-            @form -form complex
-            @leaders -min 0 -max 0
-            @opts
-            -all -type none -help\
-                "All conditions for the wait operation must be met to complete the wait operation.
-                  Otherwise (the default) the first event completes the wait"
-            -extended -type none -help\
-                "An extended result in list form is returned, see above for explanation."
-            -nofileevents -type none -help\
-                "File events are not handled in the wait operation."
-            -noidleevents -type none -help\
-                "Idle handlers are not invoked during the wait operation."
-            -notimerevents -type none -help\
-                "Timer handlers are not serviced during the wait operation."
-            -nowindowevents -type none -help\
-                "Events of the windowing system are not handled during the wait operation."
-            -readable -type string -typesynopsis ${$I}channel${$NI} -help\
-                "${$I}Channel${$NI} must name a Tcl channel open for reading. If ${$I}channel${$NI} is or becomes
-                  readable the wait operation completes."
-            -timeout -type integer -typesynopsis ${$I}milliseconds${$NI} -help\
-                "The wait operation is constrained to ${$I}milliseconds${$NI}."
-            -variable -type string -typesynopsis ${$I}varName${$NI} -help\
-                "${$I}VarName${$NI} must be the name of a global variable. Writing or unsetting this variable
-                  completes the wait operation."
-            -writable -type string -typesynopsis ${$I}channel${$NI} -help\
-                "${$I}Channel${$NI} must name a Tcl channel open for writing. If ${$I}channel${$NI} is or becomes
-                  writable the wait operation completes."
-            -- -type none -help\
-                "Marks the end of options. All following arguments are handled as variable names."
-            @values -min 0 -max -1
-            varName -type string -multiple 1 -optional 1
-
-
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl vwait]"\
-        {@examples -help {
-            Run the event-loop continually until some event calls exit. (You can use any variable not mentioned elsewhere,
-            but the name forever reminds you at a glance of the intent.)
-                ${[punk::args::tclcore::argdoc::example {
-                  vwait forever
-                }]}
-            Wait five seconds for a connection to a server socket, otherwise close the socket and continue running the script:
-                ${[punk::args::tclcore::argdoc::example {
-                  # Initialise the state
-                  after 5000 set state timeout
-                  set server [socket -server accept 12345]
-                  proc accept {args} {
-                      global state connectionInfo
-                      set state accepted
-                      set connectionInfo $args
-                  }
-
-                  # Wait for something to happen
-                  vwait state
-
-                  # Clean up events that could have happened
-                  close $server
-                  after cancel set state timeout
-
-                  # Do something based on how the vwait finished...
-                  switch $state {
-                      timeout {
-                          puts "no connection on port 12345"
-                      }
-                      accepted {
-                          puts "connection: $connectionInfo"
-                          puts [lindex $connectionInfo 0] "Hello there!"
-                      }
-                  }
-                }]}
-            A command that will wait for some time delay by waiting for a namespace variable to be set. Includes an interlock
-            to prevent nested waits.
-                ${[punk::args::tclcore::argdoc::example {
-                  namespace eval example {
-                      variable v done
-                      proc wait {delay} {
-                          variable v
-                          if {$v ne "waiting"} {
-                              set v waiting
-                              after $delay [namespace code {set v done}]
-                              vwait [namespace which -variable v]
-                          }
-                          return $v
-                      }
-                  }
-                }]}
-
-            ${$B}NESTED VWAITS BY EXAMPLE${$N}
-            This example demonstrates what can happen when the vwait command is nested. The script will never finish because
-            the waiting for the a variable never finishes; that vwait command is still waiting for a script scheduled with
-            after to complete, which just happens to be running an inner vwait (for b) even though the event that the outer
-            vwait was waiting for (the setting of a) has occurred.
-                ${[punk::args::tclcore::argdoc::example {
-                  after 500 {
-                      puts "waiting for b"
-                      vwait b
-                      puts "b was set"
-                  }
-                  after 1000 {
-                      puts "setting a"
-                      set a 10
-                  }
-                  puts "waiting for a"
-                  vwait a
-                  puts "a was set"
-                  puts "setting b"
-                  set b 42
-                }]}
-            If you run the above code, you get this output:
-                ${[punk::args::tclcore::argdoc::example {
-                  waiting for a
-                  waiting for b
-                  setting a
-                }]}
-            The script will never print “a was set” until after it has printed “b was set” because of the nesting of vwait
-            commands, and yet b will not be set until after the outer vwait returns, so the script has deadlocked. The only
-            ways to avoid this are to either structure the overall program in continuation-passing style or to use coroutine
-            to make the continuations implicit. The first of these options would be written as:
-                ${[punk::args::tclcore::argdoc::example {
-                  after 500 {
-                      puts "waiting for b"
-                      trace add variable b write {apply {args {
-                          global a b
-                          trace remove variable ::b write \
-                                  [lrange [info level 0] 0 1]
-                          puts "b was set"
-                          set ::done ok
-                      }}}
-                  }
-                  after 1000 {
-                      puts "setting a"
-                      set a 10
-                  }
-                  puts "waiting for a"
-                  trace add variable a write {apply {args {
-                      global a b
-                      trace remove variable a write [lrange [info level 0] 0 1]
-                      puts "a was set"
-                      puts "setting b"
-                      set b 42
-                  }}}
-                  vwait done
-                }]}
-            The second option, with coroutine and some helper procedures, is done like this:
-                ${[punk::args::tclcore::argdoc::example {
-                  # A coroutine-based wait-for-variable command
-                  proc waitvar globalVar {
-                      trace add variable ::$globalVar write \
-                              [list apply {{v c args} {
-                          trace remove variable $v write \
-                                  [lrange [info level 0] 0 3]
-                          after 0 $c
-                      }} ::$globalVar [info coroutine]]
-                      yield
-                  }
-                  # A coroutine-based wait-for-some-time command
-                  proc waittime ms {
-                      after $ms [info coroutine]
-                      yield
-                  }
-
-                  coroutine task-1 eval {
-                      puts "waiting for a"
-                      waitvar a
-                      puts "a was set"
-                      puts "setting b"
-                      set b 42
-                  }
-                  coroutine task-2 eval {
-                      waittime 500
-                      puts "waiting for b"
-                      waitvar b
-                      puts "b was set"
-                      set done ok
-                  }
-                  coroutine task-3 eval {
-                      waittime 1000
-                      puts "setting a"
-                      set a 10
-                  }
-                  vwait done
-                }]}
-
-        }}
-
-    }
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    namespace eval argdoc {
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::unset
-            @cmd    -name "Built-in: unset"\
-                -summary\
-                {Delete variables.}\
-                -help\
-                "This command removes one or more variables. Each name is a variable name,
-                specified in any of the ways acceptable to the ${$B}set${$N} command. If a ${$I}name${$NI} refers
-                to an element of an array then that element is removed without affecting the
-                rest of the array. If a name consists of an array name with no parenthesized
-                index, then the entire array is deleted. The ${$B}unset${$N} command returns an empty
-                string as result. If ${$B}-nocomplain${$N} is specified as the first argument, any
-                possible errors are suppressed. The option may not be abbreviated, in order
-                to disambiguate it from possible variable names. The option -- indicates the
-                end of the options, and should be used if you wish to remove a variable with
-                the same name as any of the options. If an error occurs during variable
-                deletion, any variables after the named one causing the error are not deleted.
-                An error can occur when the named variable does not exist, or the name refers
-                to an array element but the variable is a scalar, or the name refers to a
-                variable in a non-existent namespace."
-            @leaders -min 0 -max 0
-            @opts
-            -nocomplain -type none
-            -- -type none
-            @values -min 0 -max -1
-            name -type string -multiple 1 -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl upvar]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::update
-            @cmd    -name "Built-in: update"\
-                -summary\
-                {Process pending events and idle callbacks.}\
-                -help\
-                "This command is used to bring the application “up to date” by entering the
-                event loop repeatedly until all pending events (including idle callbacks)
-                have been processed.
-                If the idletasks keyword is specified as an argument to the command, then no
-                new events or errors are processed; only idle callbacks are invoked. This
-                causes operations that are normally deferred, such as display updates and
-                window layout calculations, to be performed immediately.
-
-                The update idletasks command is useful in scripts where changes have been
-                made to the application's state and you want those changes to appear on the
-                display immediately, rather than waiting for the script to complete. Most
-                display updates are performed as idle callbacks, so update idletasks will
-                cause them to run. However, there are some kinds of updates that only happen
-                in response to events, such as those triggered by window size changes; these
-                updates will not occur in update idletasks.
-
-                The update command with no options is useful in scripts where you are
-                performing a long-running computation but you still want the application to
-                respond to events such as user interactions; if you occasionally call update
-                then user input will be processed during the next call to update."
-            @leaders -min 0 -max 0
-            @opts
-            @values -min 0 -max 1
-            idletasks -type literalprefix(idletasks) -optional 1
-        } "@doc -name Manpage: -url [manpage_tcl update]"\
-        {@examples -help {
-            Run computations for about a second and then finish:
-                ${[punk::args::tclcore::argdoc::example {
-                  set x 1000
-                  set done 0
-                  after 1000 set done 1
-                  while {!$done} {
-                      # A very silly example!
-                      set x [expr {log($x) ** 2.8}]
-
-                      # Test to see if our time-limit has been hit.  This would
-                      # also give a chance for serving network sockets and, if
-                      # the Tk package is loaded, updating a user interface.
-                      update
-                  }
-                }]}
-            }
-        }]
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::uplevel
-            @cmd    -name "Built-in: uplevel"\
-                -summary\
-                "Execute a script in a different stack frame."\
-                -help\
-                {All of the ${$I}arg${$NI} arguments are concatenated as if they had been passed to
-                ${$B}concat${$N}; the result is then evaluated in the variable context indicated by
-                ${$I}level${$NI}. ${$B}Uplevel${$N} returns the result of that evaluation.
-                If ${$I}level${$NI} is an integer then it gives a distance (up the procedure calling
-                stack) to move before executing the command. If ${$I}level${$NI} consists of ${$B}#${$N}
-                followed by an integer then the level gives an absolute level. If ${$I}level${$NI} is
-                omitted then it defaults to ${$B}1${$N}. ${$I}Level${$NI} cannot be defaulted if the first
-                command argument is an integer or starts with ${$B}#${$N}.
-
-                For example, suppose that procedure a was invoked from top-level, and that
-                it called b, and that b called c. Suppose that c invokes the uplevel
-                command. If level is 1 or #2 or omitted, then the command will be executed
-                in the variable context of b. If level is 2 or #1 then the command will be
-                executed in the variable context of a. If level is 3 or #0 then the command
-                will be executed at top-level (only global variables will be visible).
-
-                The uplevel command causes the invoking procedure to disappear from the
-                procedure calling stack while the command is being executed. In the above
-                example, suppose c invokes the command:
-                  ${[punk::args::tclcore::argdoc::example {
-                       uplevel 1 {set x 43; d}}]}
-                where d is another Tcl procedure. The set command will modify the variable
-                x in b's context, and d will execute at level 3, as if called from b. If it
-                in turn executes the command:
-                  ${[punk::args::tclcore::argdoc::example {
-                       uplevel 1 {set x 42}}]}
-                then the set command will modify the same variable x in b's context: the
-                procedure c does not appear to be on the call stack when d is executing.
-                The info level command may be used to obtain the level of the current
-                procedure.
-
-                ${$B}Uplevel${$N} makes it possible to implement new control constructs as Tcl
-                procedures (for example, uplevel could be used to implement the while
-                construct as a Tcl procedure).
-
-                The ${$B}namespace eval${$N} and ${$B}apply${$N} commands offer other ways (besides procedure
-                calls) that the Tcl naming context can change. They add a call frame to the
-                stack to represent the namespace context. This means each ${$B}namespace eval${$N}
-                command counts as another call level for ${$B}uplevel${$N} and ${$B}upvar${$N} commands. For
-                example, ${$B}info level 1${$N} will return a list describing a command that is either
-                the outermost procedure call or the outermost ${$B}namespace eval${$N} command. Also,
-                ${$B}uplevel #0${$N} evaluates a script at top-level in the outermost namespace (the
-                global namespace).}
-            @leaders -min 0 -max 1
-            level -type int|stringstartswith(#) -optional 1 -default 1
-            @values -min 1 -max -1
-            arg -type string -optional 0 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl uplevel]" ]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::upvar
-            @cmd    -name "Built-in: upvar"\
-                -summary\
-                {Create link to variable in a different stack frame.}\
-                -help\
-                {This command arranges for one or more local variables in the current procedure
-                to refer to variables in an enclosing procedure call or to global variables.
-                Level may have any of the forms permitted for the ${$B}uplevel${$N} command, and may be
-                omitted (it defaults to 1). For each otherVar argument, upvar makes the
-                variable by that name in the procedure frame given by level (or at global level,
-                if level is #0) accessible in the current procedure by the name given in the
-                corresponding myVar argument. The variable named by otherVar need not exist at
-                the time of the call; it will be created the first time myVar is referenced,
-                just like an ordinary variable. There must not exist a variable by the name
-                myVar at the time upvar is invoked. MyVar is always treated as the name of a
-                variable, not an array element. An error is returned if the name looks like an
-                array element, such as ${$B}a(b)${$N}. OtherVar may refer to a scalar variable, an array,
-                or an array element. Upvar returns an empty string.
-                The upvar command simplifies the implementation of call-by-name procedure
-                calling and also makes it easier to build new control constructs as Tcl
-                procedures.
-                For example, consider the following procedure:
-                  ${[punk::args::tclcore::argdoc::example {
-                    proc add2 name {
-                        upvar $name x
-                        set x [expr {$x + 2}]
-                    }}]}
-                If add2 is invoked with an argument giving the name of a variable, it adds
-                two to the value of that variable. Although add2 could have been implemented
-                using ${$B}uplevel${$N} instead of ${$B}upvar${$N}, ${$B}upvar${$N} makes it simpler for add2 to access the
-                variable in the caller's procedure frame.
-
-                ${$B}namespace eval${$N} is another way (besides procedure calls) that the Tcl naming
-                context can change. It adds a call frame to the stack to represent the namespace
-                context. This means each ${$B}namespace eval${$N} command counts as another call level for
-                ${$B}uplevel${$N} and ${$B}upvar${$N} commands. For example, ${$B}info level 1${$N} will return a list
-                describing a command that is either the outermost procedure call or the outermost
-                ${$B}namespace eval${$N} command. Also, ${$B}uplevel #0${$N} evaluates a script at top-level in the
-                outermost namespace (the global namespace).
-
-                If an upvar variable is unset (e.g. ${$B}x${$N} in ${$B}add2${$N} above), the ${$B}unset${$N} operation affects
-                the variable it is linked to, not the upvar variable. There is no way to unset an
-                upvar variable except by exiting the procedure in which it is defined. However, it
-                is possible to retarget an upvar variable by executing another ${$B}upvar${$N} command.}
-            @leaders -min 0 -max 1 -takewhenargsmodulo 2
-            #consider -takewhenargsmodulo 2 ?? incompatible with various mixed @opts/@values configurations
-            #level -type int|stringstartswith(#) -optional 1 -default 1
-            #                stringregexp(^#[0-9]$)
-            #                stringsuffix(xxx)
-
-            #this leader is greedy - i.e if the type matches it will take it.
-            #this is at odds with the way Tcl parses upvar args - it seems to look at the number of total args
-            #and will not assign a first value that passes int|stringstartswith(#) to 'level' if there is an even number of args in total
-            #e.g tcl will accept: upvar #1 blah #2 etc
-            #hence the need for -takewhenargsmodulo 2
-            level -type int|stringstartswith(#) -optional 1 -default 1
-            @values -min 2 -max -1
-            varmapping -type {string string} -typesynopsis {${$I}otherVar${$NI} ${$I}myVar${$NI}} -optional 0 -multiple 1
-        } "@doc -name Manpage: -url [manpage_tcl upvar]" ]
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        lappend PUNKARGS [list {
-            @id     -id ::while
-            @cmd    -name "Built-in: while"\
-            -summary\
-                {Execute script repeatedly as long as a condition is met.}\
-            -help\
-                {The ${$B}while${$N} command evaluates test as an expression (in the same way
-                that ${$B}expr${$N} evaluates its argument). The value of the expression must a proper
-                boolean value; if it is a true value then body is executed by passing it to
-                the Tcl interpreter. Once body has been executed then test is evaluated again,
-                and the process repeats until eventually test evaluates to a false boolean
-                value. ${$B}Continue${$N} commands may be executed inside body to terminate the current
-                iteration of the loop, and ${$B}break${$N} commands may be executed inside body to cause
-                immediate termination of the ${$B}while${$N} command. The ${$B}while${$N} command always returns
-                an empty string.
-
-                Note that ${$I}test${$NI} should almost always be enclosed in braces. If not, variable
-                substitutions will be made before the ${$B}while${$N} command starts executing, which
-                means that variable changes made by the loop body will not be considered in
-                the expression. This is likely to result in an infinite loop. If ${$I}test${$NI} is
-                enclosed in braces, variable substitutions are delayed until the expression is
-                evaluated (before each loop iteration), so changes in the variables will be
-                visible. For an example, try the following script with and without the braces
-                around ${$B}$x<10:${$N}
-                  ${[punk::args::tclcore::argdoc::example {
-                  set x 0
-                  while {$x<10} {
-                    puts "x is $x"
-                    incr x
-                  }
-                  }]}
-                }
-            @values -min 2 -max 2
-            test -type expr
-            body -type script -help\
-                "Tcl script"
-        } "@doc -name Manpage: -url [manpage_tcl while]" ]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    }
-
-    namespace eval argdoc {
-        if {[catch {zlib::pkgconfig get zlibVersion} ZLIBVERSION]} {
-            set ZLIBVERSION "(unknown)"
-
-        }
-        #zlib is an ensemble-*like* native command
-        #we can't use 'namespace ensemble configure' to query it
-
-        #define subcommand documentation first
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @dynamic
-            @id  -id "::zlib adler32"
-            @cmd -name "Built-in: ::zlib adler32"\
-                -summary\
-                "Compute Adler-32 checksum."\
-                -help\
-                "Compute a checksum of binary string ${$I}string${$NI} using the Adler32
-                algorithm. If given, ${$I}initValue${$NI} is used to initialize the checksum engine.
-                "
-            @values -min 1 -max 2
-            string -type string
-            initValue -type string -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @dynamic
-            @id  -id "::zlib crc32"
-            @cmd -name Built-in: ::zlib crc32"\
-                -summary\
-                "Compute CRC-32 checksum."\
-                -help\
-                "Compute a checksum of binary string ${$I}string${$NI} using the CRC-32
-                algorithm. If given, ${$I}initValue${$NI} is used to initialize the checksum engine.
-                "
-            @values -min 1 -max 2
-            string -type string
-            initValue -type string -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @dynamic
-            @id  -id "::zlib compress"
-            @cmd -name "Built-in: ::zlib compress"\
-                -summary\
-                "Compress with zlib-format."\
-                -help\
-                "Returns the zlib-format compressed binary data of the binary string in ${$I}string${$NI}.
-                If present, ${$I}level${$NI} gives the compression level to use (from 0, which is
-                uncompressed, to 9, maximally compressed)."
-            @values -min 1 -max 2
-            string -type string
-            level -type integer -range {0 9} -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @dynamic
-            @id  -id "::zlib decompress"
-            @cmd -name "Built-in: ::zlib decompress"\
-                -summary\
-                "Decompress zlib-format."\
-                -help\
-                "Returns the uncompressed version of the raw compressed binary data in
-                ${$I}string${$NI}. If present, ${$I}bufferSize${$NI} is a hint as to what size of buffer is to
-                be used to receive the data."
-            @values -min 1 -max 2
-            string -type string
-            bufferSize -type integer -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id  -id "::zlib deflate"
-            @cmd -name "Built-in: ::zlib deflate" -help\
-                "Returns the raw compressed binary data of the binary string in ${$I}string${$NI}.
-                If present, ${$I}level${$NI} gives the compression level to use (from 0, which is
-                uncompressed, to 9, maximally compressed)."
-            @values -min 1 -max 2
-            string -type string
-            level -type integer -range {0 9} -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id  -id "::zlib push"
-            @cmd -name "Built-in: ::zlib push"\
-                -summary\
-                "Push a compressing/decompressing transform onto a channel."\
-                -help\
-                "Pushes a compressing or decompressing transformation onto the channel
-                channel. The transformation can be removed again with chan pop. The mode
-                argument determines what type of transformation is pushed.
-
-                Both compressing and decompressing channel transformations add extra
-                configuration options that may be accessed through chan configure.
-                The options are:
-
-                -checksum checksum
-                  This read-only option gets the current checksum for the uncompressed
-                  data that the compression engine has seen so far. It is valid for both
-                  compressing and decompressing transforms, but not for the raw inflate
-                  and deflate formats. The compression algorithm depends on what format
-                  is being produced or consumed.
-                -dictionary binData
-                  This read-write options gets or sets the initial compression dictionary
-                  to use when working with compressing or decompressing the data to be
-                  binData. It is not valid for transformations that work with gzip-format
-                  data, and should not normally be set on compressing transformations
-                  other than at the point where the transformation is stacked. Note that
-                  this cannot be used to get the current active compression dictionary
-                  mid-stream, as that information is not exposed by the underlying library.
-                -flush type
-                  This write-only operation flushes the current state of the compressor to
-                  the underlying channel. It is only valid for compressing transformations.
-                  The type must be either sync or full for a normal flush or an expensive
-                  flush respectively. Flushing degrades the compression ratio, but makes it
-                  easier for a decompressor to recover more of the file in the case of data
-                  corruption.
-                -header dictionary
-                  This read-only option, only valid for decompressing transforms that are
-                  processing gzip-format data, returns the dictionary describing the header
-                  read off the data stream.
-                -limit readaheadLimit
-                  This read-write option is used by decompressing channels to control the
-                  maximum number of bytes ahead to read from the underlying data source.
-                  See below for more information."
-            @leaders -min 2 -max 2
-                      # -- --- --- --- --- --- --- --- --- --- ---
-            mode -type string -choicecolumns 2 -choices {compress decompress deflate gunzip gzip inflate} -choicelabels {
-                compress\
-                "The transformation will be a compressing
-                  transformation that produces zlib-format
-                  data on channel, which must be writable."
-                decompress\
-                "The transformation will be a decompressing
-                  transformation that reads zlib-format data
-                  from channel, which must be readable."
-                deflate\
-                "The transformation will be a compressing
-                  transformation that produces raw compressed
-                  data on channel, which must be writable."
-                gunzip\
-                "The transformation will be a decompressing
-                  transformation that reads gzip-format data
-                  from channel, which must be readable."
-                gzip\
-                "The transformation will be a compressing
-                  transformation that produces gzip-format
-                  data on channel, which must be writable."
-                inflate\
-                "The transformation will be a decompressing
-                  transformation that reads raw compressed
-                  data from channel, which must be readable."
-                }
-            channel -type string
-            @opts
-            -dictionary -type dict -typesynopsis ${$I}binData${$NI} -help\
-                "Sets the compression dictionary to use when working with compressing or
-                  decompressing the data to be binData. Not valid for transformations that
-                  work with gzip-format data. The dictionary should consist of strings
-                  (byte sequences) that are likely to be encountered later in the data to
-                  be compressed, with the most commonly used strings preferably put towards
-                  the end of the dictionary. Tcl provides no mechanism for choosing a good
-                  such dictionary for a particular data sequence."
-            -header -type dict   -typesynopsis ${$I}dictionary${$NI} -help\
-                "Passes a description of the gzip header to create, in the same format that
-                  zlib gzip understands."
-            -level -type integer -range {0 9} -typesynopsis ${$I}compressionLevel${$NI} -help\
-                "How hard to compress the data. Must be an integer from 0 (uncompressed) to
-                  9 (maximally compressed)."
-            -limit -type integer -typesynopsis ${$I}readaheadLimit${$NI} -help\
-                "The maximum number of bytes ahead to read when decompressing.
-
-                  This option has become irrelevant. It was originally introduced to prevent
-                  Tcl from reading beyond the end of a compressed stream in multi-stream
-                  channels to ensure that the data after was left alone for further reading,
-                  at the cost of speed.
-
-                  Tcl now automatically returns any bytes it has read beyond the end of a
-                  compressed stream back to the channel, making them appear as unread to
-                  further readers."
-            @values -min 0 -max 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id  -id "::zlib gunzip"
-            @cmd -name "Built-in: ::zlib gunzip"\
-                -summary\
-                "Decompress gzip format."\
-                -help\
-                "Return the uncompressed contents of binary string ${$I}string${$NI}, which must have
-                been in gzip format. If ${$B}-headerVar${$N} is given, store a dictionary describing
-                the contents of the gzip header in the variable called varName. The keys of the
-                dictionary that may be present are:
-
-                  ${$B}comment${$N}
-                    The comment field from the header, if present.
-                  ${$B}crc${$N}
-                    A boolean value describing whether a CRC of the header is computed.
-                  ${$B}filename${$N}
-                    The filename field from the header, if present.
-                  ${$B}os${$N}
-                    The operating system type code field from the header (if not the QW unknown value).
-                    See RFC 1952 for the meaning of these codes.
-                  ${$B}size${$N}
-                    The size of the uncompressed data.
-                  ${$B}time${$N}
-                    The time field from the header if non-zero, expected to be time that the file named
-                    by the ${$B}filename${$N} field was modified. Suitable for use with ${$B}clock format${$N}.
-                  ${$B}type${$N}
-                    The type of the uncompressed data (${$B}binary${$N} or ${$B}text${$N}) if known."
-            @leaders -min 1 -max 1
-            string -type string
-            @opts
-            -headerVar -type string -typesynopsis ${$I}varName${$NI}
-            @values -max 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id  -id "::zlib gzip"
-            @cmd -name "Built-in: ::zlib gzip"\
-                -summary\
-                "Compress with gzip format."\
-                -help\
-                "Return the compressed contents of binary string string in gzip format.
-                If -level is given, level gives the compression level to use (from 0,
-                which is uncompressed, to 9, maximally compressed). If -header is given,
-                dict is a dictionary containing values used for the gzip header.
-                The following keys may be defined:
-
-                  ${$B}comment${$N}
-                    Add the given comment to the header of the gzip-format data.
-                  ${$B}crc${$N}
-                    A boolean saying whether to compute a CRC of the header. Note that
-                    if the data is to be interchanged with the gzip program, a header CRC
-                    should not be computed.
-                  ${$B}filename${$N}
-                    The name of the file that the data to be compressed came from.
-                  ${$B}os${$N}
-                    The operating system type code, which should be one of the values
-                    described in RFC 1952.
-                  ${$B}time${$N}
-                    The time that the file named in the filename key was last modified.
-                    This will be in the same as is returned by clock seconds or ${$B}file
-                    mtime${$N}.
-                  ${$B}type${$N}
-                    The type of the data being compressed, being ${$B}binary${$N} or ${$B}text${$N}."
-            @leaders -min 1 -max 1
-            string -type string
-            @opts
-            -level -type integer -range {0 9} -typesynopsis ${$I}level${$NI}
-            -header -type dict -typesynopsis ${$I}dict${$NI}
-            @values -max 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-        set CHOICES [list compress decompress deflate gunzip gzip inflate push stream adler32 crc32]
-
-        #manual synopses for subcommands not yet defined
-        set CHOICELABELS [subst -novariables {
-            compress    "zlib compress string ?level?"
-            decompress  "zlib decompress string ?buffersize?"
-            deflate     "zlib deflate string ?level?"
-            gunzip      "zlib gunzip string ?-headerVar varName?"
-            gzip        "zlib gzip string ?-level level? ?-header dict?"
-            inflate     "zlib inflate string ?bufferSize?"
-            push        "zlib push [punk::ansi::a+ italic]mode[punk::ansi::a+ noitalic] channel ?options ...?"
-            stream      "zlib stream mode ?options?"
-            adler32     "zlib adler32 string ?initValue?"
-            crc32       "zlib crc32 string ?initValue?"
-        }]
-        set CHOICEINFO [dict create]
-        foreach sub $CHOICES {
-            #default for all
-            dict set CHOICEINFO $sub {{doctype native}}
-        }
-        foreach id [punk::args::get_ids "::zlib *"] {
-            if {[llength $id] == 2} {
-                lassign $id _ sub
-                dict set CHOICEINFO $sub {{doctype native} {doctype punkargs}}
-                #override manual synopsis entry
-                dict set CHOICELABELS $sub [punk::ns::synopsis "::zlib $sub"]
-            }
-        }
-
-        punk::args::define {
-            @id	-id ::zlib
-            @cmd -name "Built-in: ::zlib"\
-            -summary\
-            "Zlib library compression and decompression operations."\
-            -help\
-            "zlib version: ${$ZLIBVERSION}
-            The zlib command provides access to the compression and check-summing facilities of the Zlib library
-            by Jean-loup Gailly and Mark Adler."
-            @leaders -min 1 -max 1
-            subcommand -type string\
-                -choicecolumns 2\
-                -choicegroups {
-                    compression     {compress decompress deflate gunzip gzip inflate}
-                    channel         {push}
-                    streaming       {stream}
-                    checksumming    {adler32 crc32}
-                    }\
-                -choicelabels {${$CHOICELABELS}}\
-                -choiceinfo  {${$CHOICEINFO}}
-
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zlib]"\
-        {@examples -help {
-            To compress a Tcl string, it should be first converted to a particular charset encoding since the zlib
-            command always operates on binary strings.
-                ${[punk::args::tclcore::argdoc::example {
-                  set binData [encoding convertto utf-8 $string]  
-                  set compData [zlib compress $binData]
-                }]}
-            When converting back, it is also important to reverse the charset encoding:
-                ${[punk::args::tclcore::argdoc::example {
-                  set binData [zlib decompress $compData]
-                  set string [encoding convertfrom utf-8 $binData]  
-                }]}
-            The compression operation from above can also be done with streams, which is especially helpful when you
-            want to accumulate the data by stages:
-                ${[punk::args::tclcore::argdoc::example {
-                  set strm [zlib stream compress]
-                  $strm put [encoding convertto utf-8 $string]
-                  # ...
-                  $strm finalize
-                  set compData [$strm get]
-                  $strm close
-                }]}
-        }}
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        proc zipfs_subcommands {} {
-            dict set groups ""                      {canonical exists find info list mount mountdata root unmount}
-            dict set groups "ZIP Creation"          {mkzip mkimg mkkey lmkimg lmkzip}
-            return [ensemble_subcommands_definition -groupdict $groups -columns 3 zipfs]
-        }
-        set DYN_ZIPFS_SUBCOMMANDS {${[punk::args::tclcore::argdoc::zipfs_subcommands]}}
-        punk::args::define {
-            @dynamic
-            @id	-id ::zipfs
-            @cmd -name "Built-in: ::zipfs"\
-            -summary\
-                "Mount and work with ZIP files within Tcl."\
-            -help\
-                "The ${$B}zipfs${$N} command provides Tcl with the ability to mount the contents of a
-                ZIP archive file as a virtual file system. Tcl's ZIP archive support is
-                limited to basic features and options. Supported storage methods include
-                only STORE and DEFLATE with optional simple encryption, sufficient to
-                prevent casual inspection of their contents but not able to prevent access
-                by even a moderately determined attacker. Strong encryption, multi-part
-                archives, platform metadata, zip64 formats and other compression methods
-                like bzip2 are not supported.
-
-                Files within mounted archives can be written to but new files or directories
-                cannot be created. Further, modifications to files are limited to the
-                mounted archive in memory and are not persisted to disk.
-
-                Paths in mounted archives are case-sensitive on all platforms."
-            @leaders -min 1 -max 1
-            ${$DYN_ZIPFS_SUBCOMMANDS}
-            @values -min 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::canonical
-            @cmd -name "Built-in: ::zipfs::canonical" -help\
-                "This takes the name of a file, ${$I}filename${$NI}, and produces where it would be
-                mapped into a zipfs mount as its result. If specified, mountpoint says
-                within which mount the mapping will be done; if omitted, the main root of
-                the zipfs system is used."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            mountpoint -type string -optional 1
-            filename -type string
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::exists
-            @cmd -name "Built-in: ::zipfs::exists" -help\
-                "Return 1 if the given filename exists in the mounted zipfs and 0 if it does not."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            filename -type file
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::find
-            @cmd -name "Built-in: ::zipfs::find" -help\
-                "Returns the list of paths under directory ${$I}directoryName${$NI} which need not
-                be within a zipfs mounted archive. The paths are prefixed with
-                ${$I}directoryName${$NI}. This command is also used by the ${$B}zipfs mkzip${$N} and
-                ${$B}zipfs mkimg${$N} commands."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            directoryName -type directory
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::info
-            @cmd -name "Built-in: ::zipfs::info" -help\
-                "Return information about the given ${$I}file${$NI} in the mounted zipfs.
-                The information consists of:
-                  1. the name of the ZIP archive file that contains the file,
-                  2. the size of the file after decompressions,
-                  3. the compressed size of the file, and
-                  4. the offset of the compressed data in the ZIP archive file.
-
-                As a special case, querying the mount point gives the start of the zip
-                data as the offset in (4), which can be used to truncate the zip
-                information from an executable. Querying an ancestor of a mount point
-                will raise an error."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            file -type string
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::list
-            @cmd -name "Built-in: ::zipfs::list" -help\
-                "If pattern is not specified, the command returns a list of files across
-                all zipfs mounted archives. If pattern is specified, only those paths
-                matching the pattern are returned. By default, or with the -glob option,
-                the pattern is treated as a glob pattern and matching is done as described
-                for the string match command. Alternatively, the -regexp option may be
-                used to specify matching pattern as a regular expression. The file names
-                are returned in arbitrary order. Note that path separators are treated as
-                ordinary characters in the matching. Thus forward slashes should be used
-                as path separators in the pattern. The returned paths only include those
-                actually in the archive and does not include intermediate directories in
-                mount paths."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            #patterntype -type literalprefix(-glob)|literalprefix(-regexp) -optional 1
-            patterntype -type string -default -glob -choices {-glob -regexp} -typesynopsis -glob|-regex
-            pattern -type string -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::lmkimg
-            @cmd -name "Built-in: ::zipfs::lmkimg" -help\
-                "This command is like ${$B}zipfs mkimg${$N}, but instead of an input directory,
-                ${$I}inlist${$NI} must be a Tcl list where the odd elements are the names of files
-                to be copied into the archive in the image, and the even elements are
-                their respective names within that archive."
-            @leaders -min 0 -max 0
-            @values -min 2 -max 4
-            outfile -type file
-            inlist -type dict
-            password -type any -optional 1
-            infile -type file -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::lmkzip
-            @cmd -name "Built-in: ::zipfs::lmkzip" -help\
-                "This command is like ${$B}zipfs mkzip${$N}, but instead of an input directory,
-                ${$I}inlist${$NI} must be a Tcl list where the odd elements are the names of files
-                to be copied into the archive, and the even elements are their respective
-                names within that archive."
-            @leaders -min 0 -max 0
-            @values -min 2 -max 3
-            outfile -type file
-            inlist -type dict
-            password -type any -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::mount
-            @cmd -name "Built-in: ::zipfs::mount" -help\
-                "The ${$B}zipfs mount${$N} command mounts ZIP archives as Tcl virtual file systems
-                and returns information about current mounts.
-
-                With no arguments, the command returns a dictionary mapping mount points
-                to the path of the corresponding ZIP archive.
-
-                In the single argument form, the command returns the file path of the ZIP
-                archive mounted at the specified mount point.
-
-                In the third form, the command mounts the ZIP archive zipfile as a Tcl
-                virtual filesystem at ${$I}mountpoint${$NI}. After this command executes, files
-                contained in zipfile will appear to Tcl to be regular files at the mount
-                point. If ${$I}mountpoint${$NI} is specified as an empty string, it is defaulted to
-                the ${$B}[zipfs root]${$N}. The command returns the normalized mount point path.
-
-                If not under the zipfs file system root, ${$I}mountpoint${$NI} is normalized with
-                respect to it. For example, a mount point passed as either ${$B}mt${$N} or ${$B}/mt${$N} would
-                be normalized to ${$B}//zipfs:/mt${$N} (given that ${$B}zipfs root${$N} returns “//zipfs:/”).
-                An error is raised if the mount point includes a drive or UNC volume.
-
-                ${$B}NB${$N}: because the current working directory is a concept maintained by the
-                operating system, using ${$B}cd${$N} into a mounted archive will only work in the
-                current process, and then not entirely consistently (e.g., if a shared
-                library uses direct access to the OS rather than through Tcl's filesystem
-                API, it will not see the current directory as being inside the mount and
-                will not be able to access the files inside the mount)."
-            @leaders -min 0 -max 0
-            @form -form dict
-            @values -min 0 -max 0
-
-            @form -form query
-            @values -min 1 -max 1
-            mountpoint
-
-            @form -form mount
-            @values -min 2 -max 3
-            zipfile -type file
-            mountpoint -type string
-            password -type string -optional 1
-
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::mountdata
-            @cmd -name "Built-in: ::zipfs::mountdata" -help\
-                "Mounts the ZIP archive content ${$I}data${$NI} as a Tcl virtual filesystem at ${$I}mountpoint${$NI}."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            data -type any
-            mountpoint -type string
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::mkzip
-            @cmd -name "Built-in: ::zipfs::mkzip"\
-            -summary\
-                "Create a ZIP archive."\
-            -help\
-                "Creates a ZIP archive file named outfile from the contents of the input
-                directory indir (contained regular files only) with optional ZIP password
-                password. While processing the files below indir the optional file name
-                prefix given in strip is stripped off the beginning of the respective file
-                name if non-empty. When stripping, it is common to remove either the whole
-                source directory name or the name of its parent directory.
-                Caution: the choice of the indir parameter (less the optional stripped
-                prefix) determines the later root name of the archive's content."
-            @leaders -min 0 -max 0
-            @values -min 2 -max 4
-            outfile
-            indir
-            strip -type string -optional 1 -help\
-                "file name prefix"
-            password -type any -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::mkimg
-            @cmd -name "Built-in: ::zipfs::mkimg" -help\
-                "Creates an image (potentially a new executable file) similar to ${$B}zipfs mkzip${$N};
-                see that command for a description of most parameters to this command, as
-                they behave identically here. If outfile exists, it will be silently
-                overwritten.
-                If the ${$I}infile${$NI} parameter is specified, this file is prepended in front of the
-                ZIP archive, otherwise the file returned by ${$B}info nameofexecutable${$N} (i.e., the
-                executable file of the running process, typically ${$B}wish${$N} or ${$B}tclsh${$N}) is used. If
-                the ${$I}password${$NI} parameter is not the empty string, an obfuscated version of that
-                password (see ${$B}zipfs mkkey${$N}) is placed between the image and ZIP chunks of the
-                output file and the contents of the ZIP chunk are protected with that
-                password. If the starting image has a ZIP archive already attached to it, it
-                is removed from the copy in ${$I}outfile${$NI} before the new ZIP archive is added.
-
-                If there is a file, main.tcl, in the root directory of the resulting archive
-                and the image file that the archive is attached to is a ${$B}tclsh${$N} (or ${$B}wish${$N})
-                instance (true by default, but depends on your configuration), then the
-                resulting image is an executable that will ${$B}source${$N} the script in that main.tcl
-                after mounting the ZIP archive, and will ${$B}exit${$N} once that script has been
-                executed.
-
-                Note: ${$B}tclsh${$N} and ${$B}wish${$N} can be built using either dynamic binding or static
-                binding of the core implementation libraries. With a dynamic binding, the
-                base application Tcl_Library contents are attached to the libtcl and libtk
-                shared library, respectively. With a static binding, the Tcl_Library contents,
-                etc., are attached to the application, tclsh or wish. When using ${$B}mkimg${$N} with a
-                statically built tclsh, it is the user's responsibility to preserve the
-                attached archive by first extracting it to a temporary location, and then add
-                whatever additional files desired, before creating and attaching the new
-                archive to the new application."
-            @leaders -min 0 -max 0
-            @values -min 2 -max 5
-            outfile
-            indir
-            strip -type string -optional 1 -help\
-                "file name prefix"
-            password -type string -optional 1
-            infile   -type string -optional 1
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::mkkey
-            @cmd -name "Built-in: ::zipfs::mkzip" -help\
-                "Given the clear text ${$I}password${$NI} argument, an obfuscated string version is
-                returned with the same format used in the ${$B}zipfs mkimg${$N} command."
-            @leaders -min 0 -max 0
-            @values -min 1 -max 1
-            password -type string
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::root
-            @cmd -name "Built-in: ::zipfs::root" -help\
-                "Returns a constant string which indicates the mount point for zipfs
-                volumes for the current platform. User should not rely on the mount point
-                being the same constant string for all platforms."
-            @leaders -min 0 -max 0
-            @opts -min 0 -max 0
-            @values -min 0 -max 0
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        punk::args::define {
-            @id	-id ::tcl::zipfs::unmount
-            @cmd -name "Built-in: ::zipfs::unmount" -help\
-                "Unmounts a previously mounted ZIP archive mounted to ${$I}mountpoint${$NI}. The
-                command will fail with an error exception if there are any files within
-                the mounted archive are open."
-            @leaders -min 0 -max 0
-            @opts -min 0 -max 0
-            @values -min 1 -max 1
-            mountpoint
-        } "@doc -name Manpage: -url [punk::args::tclcore::manpage_tcl zipfs]"
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-    }
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-
-    #*** !doctools
-    #[subsection {Namespace punk::args::tclcore}]
-    #[para] Core API functions for punk::args::tclcore
-    #[list_begin definitions]
-
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok"
-    #}
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::args::tclcore ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::args::tclcore::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::args::tclcore::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::args::tclcore::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-#tcl::namespace::eval punk::args::tclcore::system {
-    #*** !doctools
-    #[subsection {Namespace punk::args::tclcore::system}]
-    #[para] Internal functions that are not part of the API
-
-
-
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::args::tclcore ::punk::args::tclcore::argdoc
-}
-
-##  Ready
-package provide punk::args::tclcore [tcl::namespace::eval punk::args::tclcore {
-    variable pkg punk::args::tclcore
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/assertion-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/assertion-0.1.0.tm
deleted file mode 100644
index 80f4b14d..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/assertion-0.1.0.tm
+++ /dev/null
@@ -1,424 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::assertion 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::assertion 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {assertion alternative to control::assert}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {per-namespace assertions with }]             [comment {-- Description at end of page heading --}]
-#[require punk::assertion]
-#[keywords module assertion assert debug]
-#[description]
-#[para] The punk::assertion library has the same semantics as Tcllib's control::assert library for the assert command itself.
-#[para] The main difference is the way in which assert is enabled/disabled in namespaces.
-#[para] Due to commands such as 'namespace path' - the assert command could be available in arbitrary namespaces unrelated by tree structure to namespaces where assert has been directly imported.
-#[para] punk::assertion::active 0|1  allows activating and deactivating assertions in any namespace where the assert command is available - but only affecting the activations state of the namespace in which it is called.
-#[para] If such a non-primary assertion namespace never had active set to 0 or 1 - then it will activate/deactivate when the namespace corresponding to the found assert command (primary) is activated/deactivated.
-#[para] Once marked active or inactive - such a non-primary namespace will no longer follow the primary
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::assertion
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::assertion
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::assertion::class {
-    #*** !doctools
-    #[subsection {Namespace punk::assertion::class}]
-    #[para] class definitions
-    if {[tcl::info::commands [tcl::namespace::current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#keep 2 namespaces for assertActive and assertInactive so there is introspection available via namespace origin
-tcl::namespace::eval punk::assertion::primary {
-    #tcl::namespace::export {[a-z]*}
-    tcl::namespace::export assertActive assertInactive
-    proc assertActive {expr args} {
-
-        set code [catch {uplevel 1 [list expr $expr]} res]
-        if {$code} {
-            return -code $code $res
-        }
-        if {![tcl::string::is boolean -strict $res]} {
-            return -code error "invalid boolean expression: $expr"
-        }
-
-        if {$res} {return}
-
-        if {[llength $args]} {
-            #set msg "[join $args]"
-            set msg "$args punk::assertion failed expr $expr"
-        } else {
-            set msg "punk::assertion failed expr $expr" ;#give a clue in the default msg about which assert lib is in use
-        }
-
-        upvar ::punk::assertion::CallbackCmd CallbackCmd
-        # Might want to catch this
-        tcl::namespace::eval :: $CallbackCmd [list $msg]
-    }
-    proc assertInactive args {}
-
-}
-tcl::namespace::eval punk::assertion::secondary {
-    tcl::namespace::export *
-    #we need to actually define these procs here, (not import then re-export) - or namespace origin will report the original source namespace - which isn't what we want.
-    proc assertActive {expr args} [tcl::info::body ::punk::assertion::primary::assertActive]
-    proc assertInactive args {}
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::assertion {
-    variable CallbackCmd [list return -code error]
-
-    #puts --------AAA
-    #*very* slow in safe interp - why?
-    #tcl::namespace::import ::punk::assertion::primary::assertActive
-
-    proc do_ns_import {} {
-        uplevel 1 [list tcl::namespace::import ::punk::assertion::primary::assertActive]
-    }
-    do_ns_import
-    #puts --------BBB
-    rename assertActive assert
-
-}
-
-
-tcl::namespace::eval punk::assertion {
-    tcl::namespace::export *
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::assertion}]
-    #[para] Core API functions for punk::assertion
-    #[list_begin definitions]
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok"
-    #}
-
-    #like tcllib's control::assert - we are limited to the same callback for all namespaces.
-    #review - a per namespace - or per assert command callback may be tricky to do performantly.
-    #Would probably involve rewriting the proc body - otherwise we have a runtime penalty in the assert of looking it up.
-    proc callback {args} {
-        #set nscaller [uplevel 1 [list namespace current]]
-        #set which_assert [namespace eval $nscaller {namespace which assert}]
-
-        upvar ::punk::assertion::CallbackCmd cb
-	    set n [llength $args]
-	    if {$n > 1} {
-		return -code error "wrong # args: should be\
-			\"[lindex [tcl::info::level 0] 0] ?command?\""
-	    }
-	    if {$n} {
-            set  cb [lindex $args 0]
-            return
-	    }
-	    return $cb
-	}
-
-    proc active {{on_off ""}} {
-        set nscaller [uplevel 1 [list tcl::namespace::current]]
-        set which_assert [tcl::namespace::eval $nscaller {tcl::namespace::which assert}]
-        #puts "nscaller:'$nscaller'"
-        #puts "which_assert: $which_assert"
-
-        if {$on_off eq ""} {
-            if {$which_assert eq ""} {return 0}
-            set assertorigin [tcl::namespace::origin $which_assert]
-            #puts "ns which assert:        $which_assert"
-            #puts "ns origin assert:       $assertorigin"
-            return [expr {"assertActive" eq [tcl::namespace::tail $assertorigin]}]
-        }
-        if {![tcl::string::is boolean -strict $on_off]} {
-            error "invalid boolean value : $on_off"
-        } else {
-            set info_command [tcl::namespace::eval $nscaller {tcl::info::commands assert}]
-            if {$on_off} {
-                #Enable it in calling namespace
-                if {"assert" eq $info_command} {
-                    #There is an assert command reachable - due to namespace path etc, it could be in another namespace entirely - (not necessarily in an ancestor namespace of the namespace's tree structure)
-                    if {$which_assert eq [punk::assertion::system::nsjoin ${nscaller} assert]} {
-                        tcl::namespace::eval $nscaller {
-                            set assertorigin [tcl::namespace::origin assert]
-                            set assertorigin_ns [punk::assertion::system::nsprefix $assertorigin]
-                            switch -- $assertorigin_ns {
-                                ::punk::assertion {
-                                    #original import - switch to primary origin
-                                    rename assert {}
-                                    tcl::namespace::import ::punk::assertion::primary::assertActive
-                                    rename assertActive assert
-                                }
-                                ::punk::assertion::primary - ::punk::assertion::secondary {
-                                    #keep using from same origin ns
-                                    rename assert {}
-                                    tcl::namespace::import ${assertorigin_ns}::assertActive
-                                    rename assertActive assert
-                                }
-                                default {
-                                    error "The assert command in this namespace is not from punk::assertion package. Use the enable mechanism from the package associated with $assertorigin or remove the existing assert command and namespace import punk::assertion::assert"
-                                }
-                            }
-                        }
-                        return 1
-                    } else {
-                        #assert is available, but isn't in the calling namespace - we should enable it in a way that is distinguishable from case where assert was explicitly imported to this namespace
-                        tcl::namespace::eval $nscaller {
-                            set assertorigin [tcl::namespace::origin assert]
-                            if {[tcl::string::match ::punk::assertion::* $assertorigin]} {
-                                tcl::namespace::import ::punk::assertion::secondary::assertActive
-                                rename assertActive assert
-                            } else {
-                                error "The reachable assert command at '$which_assert' is not from punk::assertion package. Import punk::assertion::assert - or use the enable mechanism from the package associated with $assertorigin"
-                            }
-                        }
-                        return 1
-                    }
-
-                } else {
-                    #no assert command reachable
-                    puts stderr "no assert command visible from namespace '$nscaller' - use: namespace import ::punk::assertion::assert"
-                    return 0
-                }
-            } else {
-                #Disable
-                if {"assert" eq $info_command} {
-                    if {$which_assert eq [punk::assertion::system::nsjoin ${nscaller} assert]} {
-                        #assert is present in callers NS
-                        tcl::namespace::eval $nscaller {
-                            set assertorigin [tcl::namespace::origin assert]
-                            set assertorigin_ns [punk::assertion::system::nsprefix $assertorigin]
-                            switch -glob -- $assertorigin_ns {
-                                ::punk::assertion {
-                                    #original import
-                                    rename assert {}
-                                    tcl::namespace::import punk::assertion::primary::assertInactive
-                                    rename assertInactive assert
-                                }
-                                ::punk::assertion::primary - ::punk::assertion::secondary {
-                                    #keep using from same origin ns
-                                    rename assert {}
-                                    tcl::namespace::import ${assertorigin_ns}::assertInactive
-                                    rename assertInactive assert
-                                }
-                                default {
-                                    error "The assert command in this namespace is not from punk::assertion package. Use the disable mechanism from the package associated with $assertorigin or remove the existing assert command and namespace import punk::assertion::assert"
-                                }
-                            }
-                        }
-                        return 0
-                    } else {
-                        #assert not present in callers NS - first install of secondary (if assert is from punk::assertion::*)
-                        tcl::namespace::eval $nscaller {
-                            set assertorigin [tcl::namespace::origin assert]
-                            set assertorigin_ns [punk::assertion::system::nsprefix $assertorigin]
-                            if {[tcl::string::match ::punk::assertion::* $assertorigin]} {
-                                tcl::namespace::import ::punk::assertion::secondary::assertInactive
-                                rename assertInactive assert
-                            } else {
-                                error "The reachable assert command at '$which_assert' is not from punk::assertion package. Import punk::assertion::assert - or use the enable mechanism from the package associated with $assertorigin"
-                            }
-                        }
-                        return 0
-                    }
-                } else {
-                    #no assert command reachable
-                    #If caller is using assert in this namespace - they should have imported it, or ensured it was reachable via namespace path
-                    puts stderr "no assert command visible from namespace '$nscaller' - use: namespace import ::punk::assertion::assert"
-                    return 0
-                }
-            }
-        }
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::assertion ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::assertion::lib {
-    tcl::namespace::export *
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::assertion::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::assertion::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-tcl::namespace::eval punk::assertion::system {
-    #*** !doctools
-    #[subsection {Namespace punk::assertion::system}]
-    #[para] Internal functions that are not part of the API
-
-    #Maintenance - snarfed from punk::ns to reduce dependencies - punk::ns::nsprefix is the master version
-    #nsprefix/nstail are string functions - they do not concern themselves with what namespaces are present in the system
-    proc nsprefix {{nspath {}}} {
-        #normalize the common case of ::::
-        set nspath [tcl::string::map [list :::: ::] $nspath]
-        set rawprefix [tcl::string::range $nspath 0 end-[tcl::string::length [nstail $nspath]]]
-        if {$rawprefix eq "::"} {
-            return $rawprefix
-        } else {
-            if {[tcl::string::match *:: $rawprefix]} {
-                return  [tcl::string::range $rawprefix 0 end-2]
-            } else {
-                return $rawprefix
-            }
-            #return [tcl::string::trimright $rawprefix :]
-        }
-    }
-    #see also punk::ns - keep in sync
-    proc nstail {nspath args} {
-        #normalize the common case of ::::
-        set nspath [tcl::string::map [list :::: ::] $nspath]
-        set mapped [tcl::string::map [list :: \u0FFF] $nspath]
-        set parts [split $mapped \u0FFF]
-
-        set defaults [list -strict 0]
-        set opts [tcl::dict::merge $defaults $args]
-        set strict [tcl::dict::get $opts -strict]
-
-        if {$strict} {
-            foreach p $parts {
-                if {[tcl::string::match :* $p]} {
-                    error "nstail unpaired colon ':' in $nspath"
-                }
-            }
-        }
-        #e.g  ::x::y:::z  should return ":z" despite it being a bad idea for a command name.
-        return [lindex $parts end]
-    }
-    proc nsjoin {prefix name} {
-        if {[tcl::string::match ::* $name]} {
-            if {"$prefix" ne ""} {
-                error "nsjoin: won't join non-empty prefix to absolute namespace path '$name'"
-            }
-            return $name
-        }
-        if {"$prefix" eq "::"} {
-            return ::$name
-        }
-        #if {"$name" eq ""} {
-        #    return $prefix
-        #}
-        #nsjoin ::x::y ""  should return ::x::y::   - this is the correct fully qualified form used to call a command that is the empty string
-        return ${prefix}::$name
-    }
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::assertion [tcl::namespace::eval punk::assertion {
-    variable pkg punk::assertion
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/cap-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/cap-0.1.0.tm
deleted file mode 100644
index 2ede3723..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/cap-0.1.0.tm
+++ /dev/null
@@ -1,696 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::cap 0.1.0
-# Meta platform     tcl
-# Meta description  pkg capability register
-# Meta license      BSD
-# @@ Meta End
-
-
-#*** !doctools
-#[manpage_begin punkshell_module_punk::cap 0 0.1.0]
-#[copyright "2023 JMNoble - BSD licensed"]
-#[titledesc {capability provider and handler plugin system}]
-#[moddesc {punk capabilities plugin system}]
-#[require punk::cap]
-#[description]
-#[keywords module capability plugin]
-#[section Overview]
-#[para]punk::cap provides management of named capabilities and the provider packages and handler packages that implement a pluggable capability.
-#[para]see also [uri https://core.tcl-lang.org/tcllib/doc/trunk/embedded/md/tcllib/files/modules/pluginmgr/pluginmgr.md {tcllib pluginmgr}] for an alternative which uses safe interpreters
-#[subsection Concepts]
-#[para]A [term capability] may be something like providing a folder of files, or just a data dictionary, and/or an API
-#
-#[para][term {capability handler}] - a package/namespace which may provide validation and standardised ways of looking up provider data
-# registered (or not) using register_capabilityname <capname> <capnamespace>
-#
-#[para][term {capability provider}] - a package which registers as providing one or more capablities.
-#[para]registered using register_package <pkg> <capabilitylist>
-#the capabilitylist is a list of 2-element lists where the first element is the capabilityname and the second element is a (possibly empty) dict of data relevant to that capability
-#A capabilityname may appear multiple times. ie a package may register that it provides the capability with multiple datasets.
-
-
-#*** !doctools
-#[section API]
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require oolib
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::cap {
-    variable pkgcapsdeclared [tcl::dict::create]
-    variable pkgcapsaccepted [tcl::dict::create]
-    variable caps [tcl::dict::create]
-    namespace eval class {
-        if {[tcl::info::commands ::punk::cap::class::interface_caphandler.registry] eq ""} {
-            #*** !doctools
-            #[subsection {Namespace punk::cap::class}]
-            #[para] class definitions
-            #[list_begin itemized] [comment {- punk::cap::class groupings -}]
-            #  [item]
-            #  [para] [emph {handler_classes}]
-            #  [list_begin enumerated]
-
-            oo::class create ::punk::cap::class::interface_caphandler.registry {
-                #*** !doctools
-                #[enum] CLASS [class interface_caphandler.registry]
-                #[list_begin definitions]
-                #    [para] [emph METHODS]
-                method pkg_register {pkg capname capdict fullcapabilitylist} {
-                    #*** !doctools
-                    #[call class::interface_caphandler.registry [method pkg_register] [arg pkg] [arg capname] [arg capdict] [arg fullcapabilitylist]]
-                    #handler may override and return 0 (indicating don't register)e.g if pkg capdict data wasn't valid
-                    #overridden handler must be able to handle multiple calls for same pkg - but it may return 1 or 0 as it wishes.
-                    return 1 ;#default to permit
-                }
-                method pkg_unregister {pkg} {
-                    #*** !doctools
-                    #[call class::interface_caphandler.registry [method pkg_unregister] [arg pkg]]
-                    return ;#unregistration return is ignored - review
-                }
-                #*** !doctools
-                #[list_end]
-            }
-
-            oo::class create ::punk::cap::class::interface_caphandler.sysapi {
-                #*** !doctools
-                #[enum] CLASS [class interface_caphandler.sysapi]
-                #[list_begin definitions]
-                #    [para] [emph METHODS]
-
-
-                #*** !doctools
-                #[list_end]
-            }
-
-            #*** !doctools
-            #  [list_end] [comment {- end enumeration handler classes -}]
-
-            #*** !doctools
-            #  [item]
-            #  [para] [emph {provider_classes}]
-            #  [list_begin enumerated]
-
-            #Provider classes
-            oo::class create ::punk::cap::class::interface_capprovider.registration {
-                #*** !doctools
-                #    [enum] CLASS [class interface_cappprovider.registration]
-                #    [para]Your provider package will need to instantiate this object under a sub-namespace called [namespace capsystem] within your package namespace.
-                #    [para]If your package namespace is mypackages::providerpkg then the object command would be at mypackages::providerpkg::capsystem::capprovider.registration
-                #    [para]Example code for your provider package to evaluate within its namespace:
-                #    [example {
-                #namespace eval capsystem {
-                #    if {[info commands capprovider.registration] eq ""} {
-                #        punk::cap::class::interface_capprovider.registration create capprovider.registration
-                #        oo::objdefine capprovider.registration {
-                #            method get_declarations {} {
-                #                set decls [list]
-                #                lappend decls [list punk.templates {relpath ../templates}]
-                #                lappend decls [list another_capability_name {somekey blah key2 etc}]
-                #                return $decls
-                #            }
-                #        }
-                #    }
-                #}
-                #}]
-                #[para] The above example declares that your package can be registered as a provider for the capabilities named 'punk.templates' and 'another_capability_name'
-                #    [list_begin definitions]
-                #    [para] [emph METHODS]
-                method get_declarations {} {
-                    #***
-                    #[call class::interface_capprovider.registration [method get_declarations]]
-                    #[para] This method must be overridden by your provider using oo::objdefine cappprovider.registration as in the example above.
-                    # There must be at least one 2-element list in the result for the provider to be registerable.
-                    #[para]The first element of the list is the capabilityname - which can be custom to your provider/handler packages - or a well-known name that other authors may use/implement.
-                    #[para]The second element is a dictionary of keys specific to the capability being implemented. It may be empty if the any potential capability handlers for the named capability don't require registration data.
-                    error "interface_capprovider.registration not implemented by provider"
-                }
-                #*** !doctools
-                #    [list_end]
-            }
-
-            oo::class create ::punk::cap::class::interface_capprovider.provider {
-                #*** !doctools
-                #    [enum] CLASS [class interface_capprovider.provider]
-                #    [para] Your provider package will need to instantiate this directly under it's own namespace with the command name of [emph {provider}]
-                #    [example {
-                #       namespace eval mypackages::providerpkg {
-                #           punk::cap::class::interface_capprovider.provider create provider mypackages::providerpkg
-                #       }
-                #    }]
-                #    [list_begin definitions]
-                #    [para] [emph METHODS]
-                variable provider_pkg
-                variable registrationobj
-                constructor {providerpkg} {
-                    #*** !doctools
-                    #[call class::interface_capprovider.provider [method constructor] [arg providerpkg]]
-                    variable provider_pkg
-                    if {$providerpkg in {"" "::"}} {
-                        error "interface_capprovider.provider constructor error. Invalid provider '$providerpkg'"
-                    }
-                    if {![namespace exists ::$providerpkg]} {
-                        error "interface_capprovider.provider constructor error. Invalid provider '$providerpkg' - matching namespace not found"
-                    }
-
-                    set registrationobj ::${providerpkg}::capsystem::capprovider.registration
-                    if {[tcl::info::commands $registrationobj] eq ""} {
-                        error "capprovider.provider constructor error. Missing capprovider.registration interface at '$obj' (command not found) interface_capprovider.regstration instantiation must precede interface_capprovider.provider"
-                    }
-
-                    #review - what are we trying to achieve here?
-                    set provider_pkg [tcl::string::trim $providerpkg ""]
-                }
-                method register {{capabilityname_glob *}} {
-                    #*** !doctools
-                    #[comment {- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---}]
-                    #[call class::interface_capprovider.provider [method register] [opt capabilityname_glob]]
-                    #
-                    #[para]This is the mechanism by which a user of your provider package will register your package as a provider of the capability named.
-                    #
-                    #[para]A user of your provider may elect to register all your declared capabilities:
-                    #[example {
-                    #  package require mypackages::providerpkg
-                    #  mypackages::providerpkg::provider register *
-                    #}]
-                    #[para] Or a specific capability may be registered:
-                    #[example {
-                    #  package require mypackages::providerpkg
-                    #  mypackages::providerpkg::provider register another_capability_name
-                    #}]
-                    #
-                    variable provider_pkg
-                    set all_decls [$registrationobj get_declarations]
-                    set register_decls [lsearch -all -inline -index 0 $all_decls $capabilityname_glob]
-                    punk::cap::register_package $provider_pkg $register_decls
-                }
-                method capabilities {} {
-                    #*** !doctools
-                    #[comment {- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---}]
-                    #[call class::interface_capprovider.provider [method capabilities]]
-                    #[para] return a list of capabilities supported by this provider package
-                    variable provider_pkg
-                    variable registrationobj
-
-                    set capabilities [list]
-                    set decls [$registrationobj get_declarations]
-                    foreach decl $decls {
-                        lassign $decl capname capdict
-                        if {$capname ni $capabilities} {
-                            lappend capabilities $capname
-                        }
-                    }
-                    return $capabilities
-                }
-                #*** !doctools
-                #    [list_end] [comment {- end class definitions -}]
-            }
-            #*** !doctools
-            #  [list_end] [comment {- end enumeration provider_classes }]
-            #[list_end] [comment {- end itemized list punk::cap::class groupings -}]
-        }
-    } ;# end namespace class
-
-    #*** !doctools
-    #[subsection {Namespace punk::cap}]
-    #[para] Main punk::cap API for client programs interested in using capability handler packages and associated (registered) provider packages
-    #[list_begin definitions]
-
-    #Not all capability names have to be registered.
-    #A package registering as a provider using register_package can include capabilitynames in it's capabilitylist which have no associated handler.
-    #such unregistered capabilitynames may be used just to flag something, or have datamembers significant to callers cooperatively interested in that capname.
-    #we allow registering a capability with an empty handler (capnamespace) - but this means another handler could be registered later.
-    proc register_capabilityname {capname capnamespace} {
-        #puts stderr "REGISTER_CAPABILITYNAME $capname $capnamespace"
-        variable caps
-        variable pkgcapsdeclared
-        variable pkgcapsaccepted
-        if {$capnamespace ne ""} {
-            #normalize with leading :: in case caller passed in package name rather than fully qualified namespace
-            if {![tcl::string::match ::* $capnamespace]} {
-                set capnamespace ::$capnamespace
-            }
-        }
-        #allow register of existing capname iff there is no current handler
-        #as handlers can be used to validate during provider registration - ideally handlers should be registered before any pkgs call register_package
-        #we allow loading a handler later though - but will need to validate existing data from pkgs that have already registered as providers
-        if {[set hdlr [capability_get_handler $capname]] ne ""} {
-            puts stderr "register_capabilityname cannot register capability:$capname with handler:$capnamespace. There is already a registered handler:$hdlr"
-            return
-        }
-        #assertion: capnamespace may or may not be empty string, capname may or may not already exist in caps dict, caps $capname providers may have existing entries.
-        tcl::dict::set caps $capname handler $capnamespace
-        if {![tcl::dict::exists $caps $capname providers]} {
-            tcl::dict::set caps $capname providers [list]
-        }
-        if {[llength [set providers [tcl::dict::get $caps $capname providers]]]} {
-            #some provider(s) were in place before the handler was registered
-            if {[set capreg [punk::cap::capsystem::get_caphandler_registry $capname]] ne ""} {
-                foreach pkg $providers {
-                    set fullcapabilitylist [tcl::dict::get $pkgcapsdeclared $pkg]
-                    set capname_capabilitylist [lsearch -all -inline -index 0 $fullcapabilitylist $capname]
-                    foreach capspec $capname_capabilitylist {
-                        lassign $capspec cn capdict
-                        #if {$cn ne $capname} {
-                        #    continue
-                        #}
-                        if {[catch {$capreg pkg_register $pkg $capdict $fullcapabilitylist} do_register]} {
-                            puts stderr "punk::cap::register_capabilityname '$capname' '$capnamespace' failed to register provider package '$pkg' - possible error in handler or provider"
-                            puts stderr "error message:"
-                            puts stderr $do_register
-                            set do_register 0
-                        }
-
-                        set list_accepted [tcl::dict::get $pkgcapsaccepted $pkg]
-                        if {$do_register} {
-                            if {$capspec ni $list_accepted} {
-                                tcl::dict::lappend pkgcapsaccepted $pkg $capspec
-                            }
-                        } else {
-                            set posn [lsearch $list_accepted $capspec]
-                            if {$posn >=0} {
-                                set list_accepted [lreplace $list_accepted $posn $posn]
-                                tcl::dict::set pkgcapsaccepted $pkg $list_accepted
-                            }
-                        }
-                    }
-                    #check if any accepted for this cap and remove from caps as necessary
-                    set count 0
-                    foreach accepted_capspec [tcl::dict::get $pkgcapsaccepted $pkg] {
-                        if {[lindex $accepted_capspec 0] eq $capname} {
-                            incr count
-                        }
-                    }
-                    if {$count == 0} {
-                        set pkgposn [lsearch $providers $pkg]
-                        if {$pkgposn >= 0} {
-                           set updated_providers [lreplace $providers $posn $posn]
-                           tcl::dict::set caps $capname providers $updated_providers
-                        }
-                    }
-                }
-
-            }
-
-        }
-    }
-    proc capability_exists {capname} {
-        #*** !doctools
-        # [call [fun capability_exists] [arg capname]]
-        # Return a boolean indicating if the named capability exists  (0|1)
-        variable caps
-        return [tcl::dict::exists $caps $capname]
-    }
-    proc capability_has_handler {capname} {
-        #*** !doctools
-        # [call [fun capability_has_handler] [arg capname]]
-        #Return a boolean indicating if the named capability has a handler package installed (0|1)
-        variable caps
-        return [expr {[tcl::dict::exists $caps $capname handler] && [tcl::dict::get $caps $capname handler] ne ""}]
-    }
-    proc capability_get_handler {capname} {
-        #*** !doctools
-        # [call [fun capability_get_handler] [arg capname]]
-        #Return the base namespace of the active handler package for the named capability.
-        #[para] The base namespace for a handler will always be the package name, but prefixed with ::
-        variable caps
-        if {[tcl::dict::exists $caps $capname]} {
-            return [tcl::dict::get $caps $capname handler]
-        }
-        return ""
-    }
-    proc call_handler {capname args} {
-        if {[set handler [capability_get_handler $capname]] eq ""} {
-            error "punk::cap::call_handler $capname $args - no handler registered for capability $capname"
-        }
-        set obj ${handler}::api_$capname
-        $obj [lindex $args 0] {*}[lrange $args 1 end]
-    }
-    proc get_providers {capname} {
-        variable caps
-        if {[tcl::dict::exists $caps $capname]} {
-            return [tcl::dict::get $caps $capname providers]
-        }
-        return [list]
-    }
-
-    #register package with arbitrary capnames from capabilitylist
-    #The registered pkg is a module that provides some service to that capname. Possibly just data members or possibly an implementation of an API, that the capability will use.
-    proc register_package {pkg capabilitylist args} {
-        variable pkgcapsdeclared
-        variable pkgcapsaccepted
-        variable caps
-        set opts [dict create\
-            -nowarnings false
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -nowarnings {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "Unrecognized option $k. Known options [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        set warnings [expr {! [tcl::dict::get $opts -nowarnings]}]
-
-        if {[tcl::string::match ::* $pkg]} {
-            set pkg [tcl::string::range $pkg 2 end]
-        }
-        if {[tcl::dict::exists $pkgcapsaccepted $pkg]} {
-            set pkg_already_accepted [tcl::dict::get $pkgcapsaccepted $pkg]
-        } else {
-            set pkg_already_accepted [list]
-        }
-        package require $pkg
-        set providerapi ::${pkg}::provider
-        if {[tcl::info::commands $providerapi] eq ""} {
-            error "register_package error. pkg '$pkg' doesn't seem to be a punk::cap capability provider (no object found at $providerapi)"
-        }
-        set defined_caps [$providerapi capabilities]
-        #for each capability
-        # - ensure 1st element is a single word
-        # - ensure that if 2nd element (capdict) is present - it is dict shaped
-        set capabilitylist_count [llength $capabilitylist]
-        set accepted_count 0
-        set errorlist [list];# list of dicts
-        set warninglist [list]
-        foreach capspec $capabilitylist {
-            lassign $capspec capname capdict
-
-            if {$warnings} {
-                if {$capname ni $defined_caps} {
-                    puts stderr "WARNING: pkg '$pkg' doesn't declare support for capability '$capname'."
-                }
-            }
-            if {[llength $capname] !=1} {
-                puts stderr "register_package error. pkg: '$pkg' An entry in the capability list doesn't appear to have a single-word name. Problematic entry:'$capspec'"
-                set reason "First element of capspec not a single-word name"
-                lappend errorlist [tcl::dict::create msg $reason capspec $capspec]
-                continue
-            }
-            if {[expr {[llength $capdict] %2 != 0}]} {
-                puts stderr "register_package error. pkg:'$pkg' The second element for capname:'$capname' doesn't appear to be a valid dict. Problematic entry: '$capspec'"
-                set reason "The second element of the capspec isn't a valid dict"
-                lappend errorlist [tcl::dict::create msg $reason capspec $capspec]
-                continue
-            }
-            if {$capspec in $pkg_already_accepted} {
-                #review - multiple handlers? if so - will need to record which handler(s) accepted the capspec
-                if {$warnings} {
-                    puts stderr "WARNING: register_package pkg $pkg already has capspec marked as accepted: $capspec"
-                }
-                lappend warninglist [tcl::dict::create msg "pkg $pkg already has this capspec marked as accepted" capspec $capspec]
-                continue
-            }
-            if {[tcl::dict::exists $caps $capname]} {
-                set cap_pkgs [tcl::dict::get $caps $capname providers]
-            } else {
-                dict set caps $capname [tcl::dict::create handler "" providers [list]]
-                set cap_pkgs [list]
-            }
-            #todo  - if there's a caphandler - call it's init/validation callback for the pkg
-            set do_register 1 ;#default assumption unless vetoed by handler
-            if {[set capreg [punk::cap::capsystem::get_caphandler_registry $capname]] ne ""} {
-                #Note that the interface_caphandler.registry instance must be able to handle multiple calls for same pkg
-                set do_register [$capreg pkg_register $pkg $capname $capdict $capabilitylist]
-            }
-            if {$do_register} {
-                if {$pkg ni $cap_pkgs} {
-                    lappend cap_pkgs $pkg
-                    tcl::dict::set caps $capname providers $cap_pkgs
-                }
-                tcl::dict::lappend pkgcapsaccepted $pkg $capspec ;#if pkg is being registered prior to handler-registration - the handler may undo this entry
-            }
-        }
-        #another call to register_pkg with same pkg may have been made (most likely with different capname) so we must append - but check not already present
-        #dict lappend pkgcapsdeclared $pkg $capabilitylist
-        if {[tcl::dict::exists $pkgcapsdeclared $pkg]} {
-            #review - untested
-            set mergecapspecs [tcl::dict::get $pkgcapsdeclared $pkg]
-            foreach spec $capabilitylist {
-                if {$spec ni $mergecapspecs} {
-                    lappend mergecapspecs $spec
-                }
-            }
-            tcl::dict::set pkgcapsdeclared $pkg $mergecapspecs
-        } else {
-            tcl::dict::set pkgcapsdeclared $pkg $capabilitylist
-        }
-        set resultdict [list num_capabilities $capabilitylist_count num_accepted $accepted_count]
-        if {[llength $errorlist]} {
-            tcl::dict::set resultdict errors $errorlist
-        }
-        if {[llength $warninglist]} {
-            tcl::dict::set resultdict warnings $warninglist
-        }
-        return $resultdict
-    }
-
-    #todo!
-    proc unregister_package {pkg {capname *}} {
-        variable pkgcapsdeclared
-        variable caps
-        if {[string match ::* $pkg]} {
-            set pkg [string range $pkg 2 end]
-        }
-        if {[dict exists $pkgcapsdeclared $pkg]} {
-            #remove corresponding entries in caps
-            set capabilitylist [dict get $pkgcapsdeclared $pkg]
-            foreach c $capabilitylist {
-                set do_unregister 1
-                lassign $c capname _capdict
-                set cap_info [dict get $caps $capname]
-                set pkglist [dict get $cap_info providers]
-                set posn [lsearch $pkglist $pkg]
-                if {$posn >= 0} {
-                    if {[set capreg [punk::cap::capsystem::get_caphandler_registry $capname]] ne ""} {
-                        #review
-                        # it seems not useful to allow the callback to block this unregister action
-                        #the pkg may have multiple datasets for each capname so callback will only be called for first dataset we encounter
-                        #vetoing unregister would make this more complex for no particular advantage
-                        #if per dataset deregistration required this should probably be a separate thing
-                        $capreg pkg_unregister $pkg $capname
-                    }
-                    set pkglist [lreplace $pkglist $posn $posn]
-                    dict set caps $capname providers $pkglist
-                }
-            }
-            #delete the main registration record
-            dict unset pkgcapsdeclared $pkg
-        }
-    }
-
-    proc pkgcap {pkg {capsearch}} {
-        variable pkgcapsdeclared
-        variable pkgcapsaccepted
-        if {[string match ::* $pkg]} {
-            set pkg [string range $pkg 2 end]
-        }
-        if {[dict exists $pkgcapsdeclared $pkg]} {
-            set accepted ""
-            if {[dict exists $pkgcapsaccepted $pkg]} {
-                set accepted [lsearch -all -inline -glob -index 0 [dict get $pkgcapsaccepted $pkg] $capsearch]
-            }
-            return [dict create declared [lsearch -all -inline -glob -index 0 [dict get $pkgcapsdeclared $pkg] $capsearch] accepted $accepted]
-        } else {
-            return
-        }
-    }
-    proc pkgcaps {} {
-        variable pkgcapsdeclared
-        variable pkgcapsaccepted
-        set result [dict create]
-        foreach {pkg capsdeclared} $pkgcapsdeclared {
-            set accepted ""
-            if {[dict exists $pkgcapsaccepted $pkg]} {
-                set accepted [dict get $pkgcapsaccepted $pkg]
-            }
-            dict set result $pkg declared $capsdeclared
-            dict set result $pkg accepted $accepted
-        }
-        return $result
-    }
-
-    proc capability {capname} {
-        variable caps
-        if {[dict exists $caps $capname]} {
-            return [dict get $caps $capname]
-        }
-        return ""
-    }
-    proc capabilities {{glob *}} {
-        variable caps
-        set capnames [lsort [dict keys $caps $glob]]
-        set cap_list [list]
-        foreach capname $capnames {
-            lappend cap_list [list $capname [dict get $caps $capname]]
-        }
-        return $cap_list
-    }
-
-    proc capabilitynames {{glob *}} {
-        variable caps
-        return [lsort [dict keys $caps $glob]]
-    }
-    #return only those capnames which have at least one provider
-    proc capabilitynames_provided {{glob *}} {
-        variable caps
-        set keys [lsort [dict keys $caps $glob]]
-        set cap_list [list]
-        foreach k $keys {
-            if {[llength [dict get $caps $k providers]] > 0} {
-                lappend cap_list $k
-            }
-        }
-        return $cap_list
-    }
-    #*** !doctools
-    #[list_end] [comment {- end definitions for namespace punk::cap -}]
-
-    namespace eval advanced {
-    #*** !doctools
-    #[subsection {Namespace punk::cap::advanced}]
-    #[para] punk::cap::advanced API. Functions here are generally not the preferred way to interact with punk::cap.
-    #[para] In some cases they may allow interaction in less safe ways or may allow use of features that are unavailable in the base namespace.
-    #[para] Some functions are here because they are only marginally or rarely useful, and they are here to keep the base API simple.
-    #[list_begin definitions]
-
-    proc promote_provider {pkg} {
-        #*** !doctools
-        # [call advanced::[fun promote_provider] [arg pkg]]
-        #[para]Move the named provider package to the preferred end of the list (tail).
-        #[para]The active handler may or may not utilise this for preferencing. See documentation for the specific handler package to confirm.
-        #[para]
-        #[para] promote/demote doesn't always make a lot of sense ..  should preferably be configurable per capapbility for multicap provider pkgs
-        #[para]The idea is to provide a crude way to preference/depreference packages independently of order the packages were loaded
-        #e.g a caller or cap-handler can ascribe some meaning to the order of the 'providers' key returned from punk::cap::capabilities <capname>
-        #[para]The order of providers will be the order the packages were loaded & registered
-        #[para]the naming: "promote vs demote" operates on a latest-package-in-list has higher preference assumption (matching last pkg loaded)
-        #[para]Each capability handler could and should implement specific preferencing methods within its own API if finer control needed.
-        #In some cases the preference/loading order may be inapplicable/irrelevant to a particular capability anyway.
-        #[para]As this is just a basic mechanism, which can't support independent per-cap preferencing for multi-cap packages -
-        # it only allows putting the pkgs to the head or tail of the lists.
-        #[para]Whether particular caps or users of caps do anything with this ordering is dependent on the cap-handler and/or calling code.
-        variable pkgcapsdeclared
-        variable caps
-        if {[string match ::* $pkg]} {
-            set pkg [string range $pkg 2 end]
-        }
-        if {![dict exists $pkgcapsdeclared $pkg]} {
-            error "punk::cap::promote_package error pkg'$pkg' not registered. Use register_package \$pkg first"
-        }
-        if {[dict size $pkgcapsdeclared] > 1} {
-            set pkginfo [dict get $pkgcapsdeclared $pkg]
-            #remove and re-add at end of dict
-            dict unset pkgcapsdeclared $pkg
-            dict set pkgcapsdeclared $pkg $pkginfo
-            dict for {cap cap_info} $caps {
-                set cap_pkgs [dict get $cap_info providers]
-                if {$pkg in $cap_pkgs} {
-                    set posn [lsearch $cap_pkgs $pkg]
-                    if {$posn >=0} {
-                        #rewrite package list with pkg at tail of list for this capability
-                        set cap_pkgs [lreplace $cap_pkgs $posn $posn]
-                        lappend cap_pkgs $pkg
-                        dict set caps $cap providers $cap_pkgs
-                    }
-                }
-            }
-        }
-    }
-    proc demote_provider {pkg} {
-        #*** !doctools
-        # [call advanced::[fun demote_provider] [arg pkg]]
-        #[para]Move the named provider package to the preferred end of the list (tail).
-        #[para]The active handler may or may not utilise this for preferencing. See documentation for the specific handler package to confirm.
-        variable pkgcapsdeclared
-        variable caps
-        if {[string match ::* $pkg]} {
-            set pkg [string range $pkg 2 end]
-        }
-        if {![dict exists $pkgcapsdeclared $pkg]} {
-            error "punk::cap::promote_package error pkg'$pkg' not registered. Use register_package \$pkg first"
-        }
-        if {[dict size $pkgcapsdeclared] > 1} {
-            set pkginfo [dict get $pkgcapsdeclared $pkg]
-            #remove and re-add at start of dict
-            dict unset pkgcapsdeclared $pkg
-            dict set pkgcapsdeclared $pkg $pkginfo
-            set pkgcapsdeclared [dict merge [dict create $pkg $pkginfo] $pkgcapsdeclared]
-            dict for {cap cap_info} $caps {
-                set cap_pkgs [dict get $cap_info providers]
-                if {$pkg in $cap_pkgs} {
-                    set posn [lsearch $cap_pkgs $pkg]
-                    if {$posn >=0} {
-                        #rewrite package list with pkg at head of list for this capability
-                        set cap_pkgs [lreplace $cap_pkgs $posn $posn]
-                        set cap_pkgs [list $pkg {*}$cap_pkgs]
-                        dict set caps $cap providers $cap_pkgs
-                    }
-                }
-            }
-        }
-    }
-
-    #*** !doctools
-    #[list_end]
-    }
-
-
-#*** !doctools
-#[section Internal]
-
-    namespace eval capsystem {
-        #*** !doctools
-        #[subsection {Namespace punk::cap::capsystem}]
-        #[para] Internal functions used to communicate between punk::cap and capability handlers
-        #[list_begin definitions]
-        proc get_caphandler_registry {capname} {
-            set ns [::punk::cap::capability_get_handler $capname]::capsystem
-            if {[namespace exists ${ns}]} {
-                if {[info command ${ns}::caphandler.registry] ne ""} {
-                    if {[info object isa object ${ns}::caphandler.registry]} {
-                        return ${ns}::caphandler.registry
-                    }
-                }
-            }
-            return ""
-        }
-        #*** !doctools
-        #[list_end]
-    }
-}
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::cap [namespace eval punk::cap {
-    variable version
-    variable pkg punk::cap
-    set version 0.1.0
-    variable README.md  [string map [list %pkg% $pkg %ver% $version] {
-        # punk capabilities system
-        ## pkg: %pkg% version: %ver%
-
-        punk::cap base namespace
-    }]
-    return $version
-}]
-return
-
-#*** !doctools
-#[manpage_end]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm
deleted file mode 100644
index e6bf4b9d..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm
+++ /dev/null
@@ -1,2841 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::char 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::char 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {character-set and unicode utilities}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {character-set nad unicode}]             [comment {-- Description at end of page heading --}]
-#[require punk::char]
-#[keywords module encodings]
-#[description]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::char
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::char
-#[list_begin itemized]
-#[item] [package {Tcl 8.6}]
-
-#
-
-#*** !doctools
-#[item] [package {overtype}]
-#[para] -
-#[item] [package {textblock}]
-#[para] -
-#[item] [package console]
-#[para] -
-
-package require Tcl 8.6-
-#dependency on tcllib not ideal for bootstrapping as punk::char is core to many features.. (textutil::wcswidth is therefore included in bootsupport/include_modules.config) review
-package require textutil
-package require textutil::wcswidth
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-#Note that ansi escapes can begin with \033\[ (\u001b\[)  or the single character "Control Sequence Introducer" 0x9b
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::char {
-    tcl::namespace::export *
-
-    variable grapheme_widths [tcl::dict::create]
-    # -- --------------------------------------------------------------------------
-    variable encmimens  ;#namespace of mime package providing reversemapencoding and mapencoding functions
-    #tcllib mime requires tcl::chan::memchan,events,core and/or Trf
-    if {![catch {package require punk::encmime} errM]} {
-        set encmimens ::punk::encmime
-    } else {
-        package require mime
-        set encmimens ::mime
-    }
-    # -- --------------------------------------------------------------------------
-
-    variable invalid "???" ;# ideally this would be 0xFFFD - which should display as black diamond/rhombus with question mark. As at 2023 - this tends to display indistinguishably from other missing glyph boxes - so we use a longer sequence we can detect by length and to display obviously
-    variable invalid_display_char \u25ab; #todo - change to 0xFFFD once diamond glyph more common?
-
-
-    #more useful for referring to ANSI documentation would be a proper 7-bit and 8-bit 'Code Table' layout
-    #as described in ECMA-35 5.2
-    # where the positions of the table are in one-to-one correspondence with the bit combinations of the code.
-    #-  for 7-bit: 8 columns 16 rows
-    #-  for 8-bit 16 columns 16 rows
-    proc codetable {which} {
-        set bits 8
-        switch -- $which {
-            ascii8 {
-                set which default
-            }
-            ascii {
-                set bits 7
-            }
-            default {
-                if {$which ni [encoding names]} {
-                    error "codetable unsupported - use 'ascii' or an entry from the result of the 'encoding names' command."
-                }
-            }
-        }
-        package require punk::ansi
-
-        set hibit_count [expr {$bits-4}]
-        set bitcolumns [expr {2**$hibit_count}] ;#always 4 bits for the rows - remaining bits for the columns
-        set columncount [expr {$bitcolumns + 6}]
-
-
-        #set header1 [list "" "b7\nb6\nb5" "0\n0\n0" "0\n0\n1" "0\n1\n0" "0\n1\n1" "1\n0\n0" "1\n0\n1" "1\n1\n0" "1\n1\n1"]
-        set header1 [list]
-        set hibits_label ""
-        set indent ""
-        for {set hb $bits} {$hb > 4} {incr hb -1} {
-            append hibits_label ${indent}b$hb\n
-            append indent "  "
-        }
-        set hibits_label [string range $hibits_label 0 end-1]
-        lappend header1 $hibits_label "" "" "" "" ""
-
-        for {set colidx 0} {$colidx < $bitcolumns} {incr colidx} {
-            set binval [format %0${hibit_count}b $colidx]
-            set binvalbits [split $binval ""]
-            set indent  ""
-            set display_hibits ""
-            foreach bb $binvalbits {
-                append display_hibits $indent$bb\n
-                append indent " "
-            }
-            set display_hibits [string range $display_hibits 0 end-1]
-            lappend header1 $display_hibits
-        }
-        #\u2193 down arrow
-        #right-down arrows
-        #\u2ba7
-        #\u21b4
-        #\u2b0e
-        set header2 [list "   Bits" b4 b3 b2 b1 "column \u2192\nrow \u2b0e" {*}[punk::lib::range 0 $bitcolumns-1]]
-        set headers [list $header1 $header2]
-
-        #set t [textblock::table -return tableobject -rows $rows]
-        set t [textblock::table -return tableobject]
-        #todo - fix textblock::table to allow configure -columncount
-        for {set c 0} {$c < $columncount} {incr c} {
-            $t add_column
-        }
-
-        set vheaders [punk::transpose_equal_lists $headers]
-        set hidx -1
-        foreach vh $vheaders {
-            incr hidx
-            $t configure_column $hidx -headers $vh
-        }
-        $t configure_header 0 -colspans [list 6 0 0 0 0 0 {*}[lrepeat $bitcolumns 1]]
-        $t configure_column 0 -blockalign left
-
-        #always 16 rows - remaining bits form the columns
-        for {set ridx 0} {$ridx <= 15} {incr ridx} {
-            set charlist [list]
-            set lowbits [format %04b $ridx]
-            for {set i 0} {$i < $bitcolumns} {incr i} {
-                set hibits [format %0${hibit_count}b $i]
-                set ch [format %c [scan ${hibits}${lowbits} %b]]
-                #puts "-->${hibits}${lowbits} ch:$ch"
-                if {$which ne "default"} {
-                    if {[catch {encoding convertfrom $which $ch} ch]} {
-                        set ch [punk::ansi::a red bold]-[punk::ansi::a]
-                        lappend charlist $ch
-                    } else {
-                        lappend charlist [punk::ansi::ansistring VIEW -lf 1 -vt 1 $ch]
-                    } 
-                } else {
-                    lappend charlist [punk::ansi::ansistring VIEW -lf 1 -vt 1 $ch]
-                }
-            }
-            set r [list "" {*}[split $lowbits ""] $ridx {*}$charlist]
-            $t add_row $r
-        }
-        set result [$t print]
-        $t destroy
-        return $result
-    }
-
-    #just the 7-bit ascii. use [page ascii] for the 8-bit layout
-    proc ascii {} {return {
-        00 NUL  01 SOH  02 STX  03 ETX  04 EOT  05 ENQ  06 ACK  07 BEL
-        08 BS   09 HT   0a LF   0b VT   0c FF   0d CR   0e SO   0f SI
-        10 DLE  11 DC1  12 DC2  13 DC3  14 DC4  15 NAK  16 SYN  17 ETB
-        18 CAN  19 EM   1a SUB  1b ESC  1c FS   1d GS   1e RS   1f US
-        20 SP   21  !   22  "   23  #   24  $   25  %   26  &   27  '
-        28  (   29  )   2a  *   2b  +   2c  ,   2d  -   2e  .   2f  /
-        30  0   31  1   32  2   33  3   34  4   35  5   36  6   37  7
-        38  8   39  9   3a  :   3b  ;   3c  <   3d  =   3e  >   3f  ?
-        40  @   41  A   42  B   43  C   44  D   45  E   46  F   47  G
-        48  H   49  I   4a  J   4b  K   4c  L   4d  M   4e  N   4f  O
-        50  P   51  Q   52  R   53  S   54  T   55  U   56  V   57  W
-        58  X   59  Y   5a  Z   5b  [   5c  \   5d  ]   5e  ^   5f  _
-        60  `   61  a   62  b   63  c   64  d   65  e   66  f   67  g
-        68  h   69  i   6a  j   6b  k   6c  l   6d  m   6e  n   6f  o
-        70  p   71  q   72  r   73  s   74  t   75  u   76  v   77  w
-        78  x   79  y   7a  z   7b  {   7c  |   7d  }   7e  ~   7f DEL
-    }}
-
-    #G0 character set
-    proc ascii2 {} {
-        set dict [asciidict2]
-        set out ""
-        set i 1
-        append out "        "
-        tcl::dict::for {k v} $dict {
-            #single chars are wrapped with \033(0  and \033(B  ie total length 7
-            if {[tcl::string::length $v] == 7} {
-                set v " $v "
-            } elseif {[tcl::string::length $v] == 2} {
-                set v "$v "
-            } elseif {[tcl::string::length $v] == 0} {
-                set v "   "
-            }
-            append out "$k $v  "
-            if {$i > 0 && $i % 8 == 0} {
-                set out [tcl::string::range $out 0 end-2]
-                append out \n "        "
-            }
-            incr i
-        }
-        set out [tcl::string::trimright $out " "]
-        return $out
-    }
-
-
-    proc symbol {} {
-        tailcall page symbol
-    }
-    proc dingbats {} {
-        set out ""
-        append out [page dingbats] \n
-        set unicode_dict [charset_dictget Dingbats]
-
-        append out "        "
-        set i 1
-        tcl::dict::for {k charinfo} $unicode_dict {
-            set char [tcl::dict::get $charinfo char]
-            if {[tcl::string::length $char] == 0} {
-                set displayv "   "
-            } elseif {[tcl::string::length $char] == 1} {
-                set displayv " $char "
-            } else {
-                set displayv $char
-            }
-            append out "$k $displayv  "
-            if {$i > 0 && $i % 8 == 0} {
-                set out [tcl::string::range $out 0 end-2]
-                append out \n "        "
-            }
-            incr i
-        }
-        return $out
-    }
-    proc page_names {{search *}} {
-        set all_names [list]
-        set d [page_names_dict $search]
-        tcl::dict::for {k v} $d {
-            if {$k ni $all_names} {
-                lappend all_names $k
-            }
-            foreach m $v {
-                if {$m ni $all_names} {
-                    lappend all_names $m
-                }
-            }
-        }
-        return [lsort $all_names]
-    }
-    proc page_names_help {{namesearch *}} {
-        set d [page_names_dict $namesearch]
-
-        set out ""
-        tcl::dict::for {k v} $d {
-            append out "$k $v" \n
-        }
-        return [linesort $out]
-    }
-    proc page_names_dict {{search *}} {
-        if {![regexp {[?*]} $search]} {
-            set search "*$search*"
-        }
-        set encnames [encoding names]
-        foreach enc $encnames {
-            tcl::dict::set d $enc [list]
-        }
-        variable encmimens
-        set mimenames [array get ${encmimens}::reversemap]
-        tcl::dict::for {mname encname} $mimenames {
-            if {$encname in $encnames} {
-                set enclist [tcl::dict::get $d $encname]
-                if {$mname ni $enclist} {
-                    tcl::dict::lappend d $encname $mname
-                }
-            }
-        }
-        foreach enc [lsort $encnames] {
-            set mime_enc [${encmimens}::mapencoding $enc]
-            if {$mime_enc ne ""} {
-                set enclist [tcl::dict::get $d $enc]
-                if {$mime_enc ni $enclist} {
-                    tcl::dict::lappend d $enc $mime_enc
-                }
-            }
-        }
-        set dresult [tcl::dict::create]
-        if {$search ne "*"} {
-            tcl::dict::for {k v} $d {
-                if {[tcl::string::match -nocase $search $k] || ([lsearch -nocase $v $search]) >= 0} {
-                    tcl::dict::set dresult $k $v
-                }
-            }
-        } else {
-            set dresult $d
-        }
-        return $dresult
-    }
-    proc page8 {encname args} {
-        tcl::dict::set args -cols 8
-        tailcall page $encname {*}$args
-    }
-    proc page16 {encname args} {
-        tcl::dict::set args -cols 16
-        tailcall page $encname {*}$args
-    }
-
-    #This will not display for example, c0 glyphs for cp437
-    # we could use the punk::ansi::cp437_map dict - but while that might be what some expect to see - it would probably be too much magic for this function - which is intended to align more with what Tcl's encoding convertfrom/to actually does.
-    # for nonprinting members of the page, 2 and 3 letter codes are used rather than unicode visualisation replacements or even unicode equivalent replacements known to be appropriate for the page
-    proc page {encname args} {
-        variable invalid
-        set encname [encname $encname]
-        set defaults [list\
-            -range {0 256}\
-            -cols 16\
-        ]
-        set opts [tcl::dict::merge $defaults $args]
-        # -- --- --- --- --- --- --- --- ---
-        set cols            [tcl::dict::get $opts -cols]
-        # -- --- --- --- --- --- --- --- ---
-
-        set d_bytedisplay [basedict_display]
-
-        #set d_ascii [pagedict_raw ascii]
-        set d_ascii [basedict]
-        set d_asciiposn [lreverse $d_ascii] ;#values should be unique except for "???". We are mainly interested in which ones have display-names e.g cr csi
-        #The results of this are best seen by comparing the ebcdic and ascii pages
-
-        set d_page  [pagedict_raw $encname]
-
-        set out ""
-        set i 1
-        append out "        "
-        tcl::dict::for {k rawchar} $d_page {
-            set num [expr {"0x$k"}]
-            #see if ascii equivalent exists and has a name
-            if {$rawchar eq $invalid} {
-                set displayv "$invalid"
-            } else {
-                set bytedisplay ""
-                if {[tcl::dict::exists $d_asciiposn $rawchar]} {
-                    set asciiposn [tcl::dict::get $d_asciiposn $rawchar]
-                    set bytedisplay [tcl::dict::get $d_bytedisplay $asciiposn]
-                }
-                if {$bytedisplay eq $invalid} {
-                    #
-                    set displayv " $rawchar "
-                } else {
-                    set displaylen [tcl::string::length $bytedisplay]
-                    if {$displaylen == 2} {
-                        set displayv "$bytedisplay "
-                    } elseif {$displaylen == 3} {
-                        set displayv $bytedisplay
-                    } else {
-                        if {[tcl::string::length $rawchar] == 0} {
-                            set displayv "   "
-                        } else {
-                            #presumed 1
-                            set displayv " $rawchar "
-                        }
-                    }
-                }
-            }
-
-            append out "$k $displayv  "
-            if {$i > 0 && $i % $cols == 0} {
-                set out [tcl::string::range $out 0 end-2]
-                append out \n "        "
-            }
-            incr i
-        }
-        set out [tcl::string::trimright $out " "]
-        return $out
-    }
-
-    proc pagechar1 {page num} {
-        set encpage [encname $page]
-        encoding convertfrom $encpage [format %c $num]
-    }
-
-    proc pagechar {page num} {
-        set encpage [encname $page]
-
-        set ch [format %c $num]
-        if {[decodable $ch $encpage]} {
-            set outchar [encoding convertfrom $encpage $ch]
-        } else {
-            #here we will use \0xFFFD instead of our replacement string ??? - as the name pagechar implies always returning a single character. REVIEW.
-            set outchar $::punk::char::invalid_display_char
-        }
-        return $outchar
-    }
-    proc pagechar_info {page num} {
-        set ch [format %c $num]
-        set h [format %04x $num]
-        set encpage [encname $page]
-        if {[decodable $ch $encpage]} {
-            set outchar [encoding convertfrom $encpage $ch]
-        } else {
-            error "pagechar_info: $h not decodable from $encpage"
-        }
-        package require punk::console
-        puts -nonewline stdout \033\[s;flush stdout
-        lassign [punk::console::get_cursor_pos_list] _row1 col1
-        puts -nonewline stdout "$outchar";flush stdout
-        lassign [punk::console::get_cursor_pos_list] _row2 col2
-        puts -nonewline stdout "\033\[u";flush stdout
-        return "$col1 -> $col2"
-    }
-
-    proc pagebyte {page num} {
-        set encpage [encname $page]
-
-        set ch [format %c $num]
-        if {[decodable $ch $encpage]} {
-            #set outchar [encoding convertto $encpage [format %c $num]]
-            set outchar [format %c $num]
-        } else {
-            set outchar $::punk::char::invalid_display_char
-        }
-        return $outchar
-    }
-
-    proc all_pages {} {
-        set out ""
-        set mimenamesdict [page_names_dict]
-        foreach encname [encoding names] {
-            if {[tcl::dict::exists $mimenamesdict $encname]} {
-                set alt "([tcl::dict::get $mimenamesdict $encname])"
-            } else {
-                set alt ""
-            }
-            append out "$encname $alt" \n
-            append out [page $encname]
-        }
-        return $out
-    }
-
-    proc encname {encoding_name_or_alias} {
-        set encname $encoding_name_or_alias
-        if {[lsearch -nocase [page_names] $encname] < 0} {
-            error "Unknown encoding '$encname' - use 'punk::char::page_names' to see valid encoding names on this system"
-        }
-        variable encmimens
-        if {$encname ni [encoding names]} {
-            set encname [${encmimens}::reversemapencoding $encname]
-        }
-        return $encname
-    }
-
-    proc pagedict_raw {encname} {
-        variable invalid ;# ="???"
-        set encname [encname $encname]
-        set d [tcl::dict::create]
-        for {set i 0} {$i < 256} {incr i} {
-            set k [format %02x $i]
-            #tcl::dict::set d $k [encoding convertfrom $encname [format %c $i]]
-            set ch [format %c $i] ;
-            #jmn
-            if {[decodable $ch $encname]} {
-                #set encchar [encoding convertto $encname $ch]
-                #tcl::dict::set d $k [encoding convertfrom $encchar]
-                tcl::dict::set d $k [encoding convertfrom $encname $ch]
-            } else {
-                tcl::dict::set d $k $invalid ;#use replacement so we can detect difference from actual "?"
-            }
-        }
-        return $d
-    }
-    proc asciidict {} {
-        variable invalid
-        set d [tcl::dict::create]
-        set a128 [asciidict128]
-        for {set i 0} {$i < 256} {incr i} {
-            set k [format %02x $i]
-            if {$i <= 127} {
-                tcl::dict::set d $k [tcl::dict::get $a128 $k]
-            } else {
-                #
-                tcl::dict::set d $k $invalid
-            }
-
-            if {$i <=32} {
-                #no point emitting the lower control characters raw to screen - emit the short-names defined in the 'ascii' proc
-                tcl::dict::set d $k [tcl::dict::get $a128 $k]
-            } else {
-                if {$i == 0x9b} {
-                    tcl::dict::set d $k CSI ;#don't emit the ansi 'Control Sequence Introducer' - or it will be interpreted by the console and affect the layout.
-                } else {
-                    tcl::dict::set d $k [format %c $i]
-                }
-            }
-        }
-        return $d
-    }
-
-    proc basedict_display {} {
-        set d [tcl::dict::create]
-        set a128 [asciidict128]
-        for {set i 0} {$i < 256} {incr i} {
-            set k [format %02x $i]
-            if {$i <=32} {
-                #no point emitting the lower control characters raw to screen - emit the short-names defined in the 'ascii' proc
-                tcl::dict::set d $k [tcl::dict::get $a128 $k]
-            } else {
-                if {$i == 0x9b} {
-                    tcl::dict::set d $k CSI ;#don't emit the ansi 'Control Sequence Introducer' - or it will be interpreted by the console and affect the layout.
-                } elseif {$i == 0x9c} {
-                    tcl::dict::set d $k OSC
-                } else {
-                    #tcl::dict::set d $k [encoding convertfrom [encoding system] [format %c $i]]
-                    #don't use encoding convertfrom - we want the value independent of the current encoding system.
-                    tcl::dict::set d $k [format %c $i]
-                }
-            }
-        }
-        return $d
-    }
-    proc basedict_encoding_system {} {
-        #result depends on 'encoding system' currently in effect
-        set d [tcl::dict::create]
-        for {set i 0} {$i < 256} {incr i} {
-            set k [format %02x $i]
-            tcl::dict::set d $k [encoding convertfrom [encoding system] [format %c $i]]
-        }
-        return $d
-    }
-
-    proc basedict {} {
-        #this gives same result independent of current value of 'encoding system'
-        set d [tcl::dict::create]
-        for {set i 0} {$i < 256} {incr i} {
-            set k [format %02x $i]
-            tcl::dict::set d $k [format %c $i]
-        }
-        return $d
-    }
-    proc pagedict {pagename args} {
-        variable  charsets
-        set encname [encname $pagename]
-        set defaults [list\
-            -range {0 255}\
-            -charset ""\
-        ]
-        set opts [tcl::dict::merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- ---
-        set range       [tcl::dict::get $opts -range]
-        set charset     [tcl::dict::get $opts -charset]
-        # -- --- --- --- --- --- --- --- --- ---
-        if {$charset ne ""} {
-            if {$charset ni [charset_names]} {
-                error "unknown charset '$charset' - use 'charset_names' to get list"
-            }
-            set setinfo [tcl::dict::get $charsets $charset]
-            set ranges [tcl::dict::get $setinfo ranges]
-            set charset_dict [tcl::dict::create]
-            foreach r $ranges {
-                set start [tcl::dict::get $r start]
-                set end   [tcl::dict::get $r end]
-                #set charset_dict [tcl::dict::merge $charset_dict [char_range_dict $start $end]]
-                break
-            }
-
-        } else {
-            set start [lindex $range 0]
-            set end  [lindex $range 1]
-        }
-
-        set d [tcl::dict::create]
-        for {set i $start} {$i <= $end} {incr i} {
-            set k [format %02x $i]
-            tcl::dict::set d $k [encoding convertfrom $encname [format %c $i]]
-        }
-        return $d
-    }
-
-    #todo - benchmark peformance - improve punk pipeline
-    proc asciidict128 {} {
-        regexp -all -inline {\S+} [concat {*}[linelist -line trimleft [ascii]]]
-    }
-    proc _asciidict128 {} {
-        .= ascii |> .=> linelist -line trimleft |> .=* concat |> {regexp -all -inline {\S+} $data}
-    }
-
-    #review - use terminal to display actual supported DEC specials vs using dict at: punk::ansi::map_special_graphics which maps to known unicode equivalents
-    proc asciidict2 {} {
-        set d [tcl::dict::create]
-        tcl::dict::for {k v} [basedict_display] {
-            if {[tcl::string::length $v] == 1} {
-                set num [expr {"0x$k"}]
-                #tcl::dict::set d $k "\033(0[subst \\u00$k]\033(B"
-                tcl::dict::set d $k "\033(0[format %c $num]\033(B"
-            } else {
-                tcl::dict::set d $k $v
-            }
-        }
-        return $d
-    }
-
-    #-- --- --- --- --- --- --- ---
-    # encoding convertfrom & encoding convertto can be somewhat confusing to think about. (Need to think in reverse.)
-    # e.g encoding convertto dingbats <somethingpretty>  will output something that doesn't look dingbatty on screen.
-    #-- --- --- --- --- --- --- ---
-    #must use Tcl instead of tcl (at least for 8.6)
-    if {![package vsatisfies [package present Tcl] 8.7-]} {
-        proc encodable "s {enc [encoding system]}" {
-            set encname [encname $enc]
-            if {($encname eq "ascii")} {
-                #8.6 fails to round-trip convert 0x7f del character despite it being in the ascii range (review Why?? what else doesn't round-trip but should?)
-                #just strip it out of the string as we are only after a boolean answer and if s is only a single del char empty string will result in true
-                set s [tcl::string::map [list [format %c 0x7f] ""] $s]
-            }
-            string eq $s [encoding convertfrom $encname [encoding convertto $encname $s]]
-        }
-        #note also that tcl8.6 has anomalies with how it handles some unassigned codepoints
-        # e.g unassigned codes in the middle of a codepage may appear to be encodable&decodable in a round trip whereas undefined codepoints at the end may get the replacement character defined in the tcl encodings dir (usually the 3f char: "?")
-        proc decodable "s {enc [encoding system]}" {
-            set encname [encname $enc]
-            #review
-            string eq $s [encoding convertto $encname [encoding convertfrom $encname $s]]
-        }
-    } else {
-        #review - use -profile?
-        proc encodable "s {enc [encoding system]}" {
-            set encname [encname $enc]
-            if {![catch {
-                string eq $s [encoding convertfrom $encname [encoding convertto $encname $s]]
-            } result]} {
-                return $result
-            } else {
-                return 0
-            }
-        }
-        proc decodable "s {enc [encoding system]}" {
-            set encname [encname $enc]
-            if {![catch {
-                string eq $s [encoding convertto $encname [encoding convertfrom $encname $s]]
-            } result]} {
-                return $result
-            } else {
-                return 0
-            }
-        }
-    }
-    #-- --- --- --- --- --- --- ---
-    proc test_japanese {{encoding jis0208}} {
-        #A very basic test of 2char encodings such as jis0208
-        set yatbun 日本  ;# encoding convertfrom jis0208 F|K\\
-        lassign [split $yatbun] yat bun
-        puts "original yatbun ${yat} ${bun}"
-        set eyat [encoding convertto $encoding $yat]
-        set ebun [encoding convertto $encoding $bun]
-        puts "$encoding encoded: ${eyat} ${ebun}"
-        puts "reencoded: [encoding convertfrom $encoding $eyat] [encoding convertfrom $encoding $ebun]"
-        return $yatbun
-    }
-    proc test_grave {} {
-        set g [format %c 0x300]
-        puts stdout "Testing console display of grave accented a in between letters x and y - accent should combine over the top of the letter a."
-        puts stdout "Apparent width should theoretically be 1 console-column"
-        package require punk::console
-        puts stdout "# -- --- --- ---"
-        puts -nonewline "xa${g}z";set cursorposn [punk::console::get_cursor_pos]
-        puts stdout \n
-        puts stdout "cursor position immediately after outputing 4 bytes (expecting 3 glyphs): $cursorposn"
-        puts stdout "# -- --- --- ---"
-        puts -nonewline "xyz";set cursorposn [punk::console::get_cursor_pos]
-        puts stdout \n
-        puts stdout "cursor position immediately after outputing 3 bytes (xyz): $cursorposn"
-    }
-    proc test_zalgo {} {
-        #from: https://github.com/jameslanska/unicode-display-width/blob/5e28d94c75e8c421a87199363b85c90dc37125b8/docs/unicode_background.md
-        #see: https://lingojam.com/ZalgoText
-        puts stdout "44 chars long - 9 graphemes - 9 columns wide"
-
-        set str "Ẓ̌á̲l͔̝̞̄̑͌g̖̘̘̔̔͢͞͝o̪̔T̢̙̫̈̍͞e̬͈͕͌̏͑x̺̍ṭ̓̓ͅ"
-
-    }
-
-    proc test_zalgo2 {} {
-
-        # ------------------------
-
-
-
-        set str "Z̸̢͉̣͔̭̪͙̖̳̘͈͍̤̩̟͈͈͕̯̅̏̆̓̌́́͌̿̕ͅą̷̦̤̫̩͕̥̐̎̓́́̂̀͆́̔̄̈́̏̌́̆͜͜͝͠l̴̩̙̺͚̟͇͖͔͕̹̟͌̈́̄̇́̉̋̕̚͜͠͠g̸͇̩͔̺̝̗̥̖̙̑̈́̈́̿̾̌͌͊̈̀͊̑̇̑͌̍̅̌͊͜͠͝ǫ̴̢̧͎͔̞̤̻̱̮̬͕̗̭͍̣̠̳̆̀̋̓͒̾̄͜͝͠͝T̴̛͉̬̋́̈́̈́̓͗̍̏̔̈̋̀͐̓̎̅̚̕͠͝͝ê̵̖̖̈͊̔̓̔̐̓̃͊̋͋̎͂͋̕x̴̡͎͖̼͎̦͎̲̪̘̺̯̲̬̮̥̼̰͌̃͜ͅt̶̛̘͎̰̔͐͌́̈́͊͗͌̅͂̐̆͌̀͂͘"
-
-
-
-
-        # ------------------------
-    }
-
-    proc test_zalgo3 {} {
-
-        # ------------------------
-
-
-
-
-       set str "Ẕ̸̢̼̺̜̰̣̣̖̭̜͓͖̺̥̼̠͙͙̟̥̟̠̤̫͍̠̤̮͚̝̜̙͈̦̙̩̹̙̜̩̦͔͕̈̃̅̇̈́͂̇̽̈́́́́̎͊̂̑̋͆̔̾͋̚͜ͅã̵̛̪̽̎̃͑̒̇͋͂̽̃̍͊̀̈̊̊̔̊̆̈́͗͑͗̽̄̋͗̄͌̑͊͝͝͠ͅl̵̢͇̖͉͖̝̹̜̞͓͎͍͈̞̱̙͙̦̪͔̱̮͈͉̼͎̭̝̯͇͚̺̟̱͙̳̰̙͚͖̝̫͙̎̅̃͆̈́̋̌̔̋̋͗̈́̔̐͆̈́̓̾̄̀́̏́͒̆̌͒̈́̈́̾̏̀͜͝g̸̖͂͋̊͗̈́̓̆̈̋̒͐̕o̶̧̢͓̲̗̠̘͕̦̤̹̗͉̰͔̯͓̭̹̻͔͇̯̜̙̍̂̃̃̀̓͌̒͊̊̋̒̿̿̌͐̄͗̾̕͝T̶̛̳̜̰͍̹̻̫̠̱̼̼̙̆̑̾̾͛́́̿͋͌̎̀̀̽̆͌̽̂̈̇̅̇̃́̿͗̾͒̎͊̑̾͝͠ȩ̸̢̨̛̛̛̭͔͎͇̫͎͈̲̻̙͕͎̣͈̩̺̗͖͙͇͌͐̒̎͐̓́̉́͐̓̐͌̅̊͋͑̈́͗͑̏̕͜͜͝ͅx̸̧̧̛̖̣̥̘͎͎̳̭̙̦̝͖̝̮̱̹̯̺̙̩̯̮͖̻̰͓̰̩͇̥̑͌̊̐̉̏͆̓̑̎̊̓͒̂̄̆͆̀̊̄̈̽͐͛̏͊̓̌͑́̎̈́̍̈́̊͗̉̋͆̿̊͘͜͜͝͝ͅͅͅt̵̡̨̜̘͎̦͚̠̗̺͉̼̠̲̠͙̺̹̗̲̏̈́̂̚͜͜͝ͅ"
-
-
-
-
-
-        # ------------------------
-
-    }
-
-
-
-    proc test_farmer {} {
-        #an interesting article re grapheme clustering problems in terminals https://mitchellh.com/writing/grapheme-clusters-in-terminals
-        #(similar to the problem with grave accent rendering width that the test_grave proc is written for)
-        # -- --- --- --- ---
-        #These pasted glyphs can display in console even when the unicode versions don't (tcl 8.6 limited to 65533/FFFD ?)
-        upvar farmer1_paste test_farmer1
-        upvar farmer2_paste test_farmer2
-        set test_farmer1 🧑‍🌾   ;#contains zero-width joiner between
-        set test_farmer2 🧑🌾
-        puts "pasted farmer1 exporting as var farmer1_paste: $test_farmer1"
-        puts "pasted farmer2 exporting as var farmer2_paste: $test_farmer2"
-        # -- --- --- --- ---
-
-
-        set farmer1 "\U0001f9d1\U0000200d\U0001f33e"
-        set farmer2 "\U0001f9d1\U0001f33e"
-        puts stdout "farmer1 with zero-width joiner, codes: \\U0001f9d1\\U0000200d\\U0001f33e   : $farmer1"
-        puts stdout "farmer2 with no joiner          codes: \\U0001f9d1\\U001f33e               : $farmer2"
-
-        package require punk::console
-        puts stdout \n
-        puts stdout "#2--5---9---C---"
-        puts -nonewline stdout \033\[2K\033\[1G ;#2K erase line 1G cursor at col1
-        puts -nonewline "${farmer1}";set cursorposn [punk::console::get_cursor_pos_list]
-        puts stdout "\ncursor position immediately after outputing farmer1 (expecting 1 glyph 2 wide)          : cursor at col [lindex $cursorposn 1]"
-        if {[lindex $cursorposn 1] eq "3"} {
-            puts stdout "[a+ green]OK[a]"
-        } else {
-            puts stdout "[a+ red]ERR - expected cursor position to be 3 after emitting farmer1[a]"
-        }
-        puts stdout "----------------"
-        puts stdout "#2--5---9---C---"
-        puts -nonewline "${farmer2}";set cursorposn [punk::console::get_cursor_pos_list]
-        puts stdout "\ncursor position immediately after outputing farmer2 (expecting 2 glyphs 4 wide in total): cursor at col [lindex $cursorposn 1]"
-        if {[lindex $cursorposn 1] eq "5"} {
-            puts stdout "[a+ green]OK[a]"
-        } else {
-            puts stdout "[a+ red]ERR - expected cursor position to be 5 after emitting farmer2[a]"
-        }
-        puts stdout "----------------"
-
-        puts "returning farmer1 - should be single glyph"
-        return $farmer1
-    }
-
-    #G0 Sets Sequence   G1 Sets Sequence   Meaning
-    #ESC ( A            ESC ) A            United Kingdom Set
-    #ESC ( B            ESC ) B            ASCII Set
-    #ESC ( 0            ESC ) 0            Special Graphics
-    #ESC ( 1            ESC ) 1            Alternate Character ROM Standard Character Set
-    #ESC ( 2            ESC ) 2            Alternate Character ROM Special Graphic
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # Unicode character sets - some hardcoded - some loadable from data files
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    variable charinfo [tcl::dict::create]
-    variable charsets [tcl::dict::create]
-
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # Aggregate character sets (ones that pick various ranges from underlying unicode ranges)
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    tcl::dict::set charsets "WGL4" [list altname "Windows Glyph List 4" ranges [list\
-        {start 0        end 127     name "basic latin"}\
-        {start 128      end 255     name "latin-1 supplement"}\
-        {start 256      end 383     name "Latin Extended-A"}\
-        {start 402      end 402     name "subset Latin Extended-B"}\
-        {start 506      end 511     name "subset Latin Extended-B"}\
-        {start 710      end 711     name "subset Spacing Modifier Letters"}\
-        {start 713      end 713     name "subset Spacing Modifier Letters"}\
-        {start 728      end 733     name "subset Spacing Modifier Letters"}\
-        {start 900      end 906     name "subset Greek"}\
-        {start 908      end 908     name "subset Greek"}\
-        {start 910      end 974     name "subset Greek"}\
-        {start 1024     end 1119    name "subset Cyrillic"}\
-        {start 1168     end 1169    name "subset Cyrillic"}\
-        {start 7808     end 7813    name "subset Latin Extended Additional"}\
-        {start 7922     end 7923    name "subset Latin Extended Additional"}\
-        {start 8211     end 8213    name "subset General Punctuation"}\
-        {start 8215     end 8222    name "subset General Punctuation"}\
-        {start 8224     end 8226    name "subset General Punctuation"}\
-        {start 8230     end 8230    name "subset General Punctuation"}\
-        {start 8240     end 8240    name "subset General Punctuation"}\
-        {start 8242     end 8243    name "subset General Punctuation"}\
-        ] description "Microsoft WGL4 Repertoire" settype "other"]
-
-
-
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #The base page 0-256 8bit range - values don't have specific characters or descriptions - as they are codepage dependent
-    #we will fill this here for completeness - but with placeholders
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    tcl::dict::set charsets "8bit" [list ranges [list {start 0 end 127 name ascii} {start 128 end 255 name 8bit-ascii}] description "8bit extended ascii range" settype "other"]
-    for {set i 0} {$i < 256} {incr i} {
-        tcl::dict::set charinfo $i [list desc "codepage-dependent" short "byte_[format %02x $i]"]
-    }
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # Unicode ranges
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    tcl::dict::set charsets "greek" [list ranges [list {start 880 end 1023} {start 7936 end 8191}] description "Greek and Coptic" settype "other"]
-
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    tcl::dict::set charsets "Block Elements" [list ranges [list {start 9600 end 9631}] description "Block Elements" settype "other"]
-    tcl::dict::set charinfo 9600 [list desc "Upper Half Block"                                    short "blocke_up_half"]
-    tcl::dict::set charinfo 9601 [list desc "Lower One Eighth Block"                              short "blocke_lw_1_8th"]
-    tcl::dict::set charinfo 9602 [list desc "Lower One Quarter Block"                             short "blocke_lw_1_qtr"]
-
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    tcl::dict::set charsets "Dingbats" [list ranges [list {start 9984 end 10175 }] description "Unicode Dingbats" settype "tcl_supplemented"]
-    tcl::dict::set charinfo 9984 [list desc "Black Safety Scissors"                               short "dingbats_black_safety_scissors"]
-    #...
-    tcl::dict::set charinfo 10175 [list desc "Double Curly Loop"                                  short "dingbats_double_curly_loop"]
-
-
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #variation selectors 0xFe01 - 0xFE0F
-    tcl::dict::set charsets "Variation Selectors" [list ranges [list {start 65024 end 65039}] description "Variation Selectors" note "combining character with previous char - variant glyph display" settype "tcl_supplemented"]
-    tcl::dict::set charinfo 65024 [list desc "Variation Selector-1"                                                short "VS1"]
-    tcl::dict::set charinfo 65025 [list desc "Variation Selector-2"                                                short "VS2"]
-    tcl::dict::set charinfo 65026 [list desc "Variation Selector-3"                                                short "VS3"]
-    tcl::dict::set charinfo 65027 [list desc "Variation Selector-4"                                                short "VS4"]
-    tcl::dict::set charinfo 65027 [list desc "Variation Selector-5"                                                short "VS5"]
-    tcl::dict::set charinfo 65029 [list desc "Variation Selector-6"                                                short "VS6"]
-    tcl::dict::set charinfo 65030 [list desc "Variation Selector-7"                                                short "VS7"]
-    tcl::dict::set charinfo 65031 [list desc "Variation Selector-8"                                                short "VS8"]
-    tcl::dict::set charinfo 65032 [list desc "Variation Selector-9"                                                short "VS9"]
-    tcl::dict::set charinfo 65033 [list desc "Variation Selector-10"                                               short "VS10"]
-    tcl::dict::set charinfo 65034 [list desc "Variation Selector-11"                                               short "VS11"]
-    tcl::dict::set charinfo 65035 [list desc "Variation Selector-12"                                               short "VS12"]
-    tcl::dict::set charinfo 65036 [list desc "Variation Selector-13"                                               short "VS13"]
-    tcl::dict::set charinfo 65037 [list desc "Variation Selector-14"                                               short "VS14"]
-    tcl::dict::set charinfo 65038 [list desc "Variation Selector-15 text variation"                                short "VS15"] ;#still an image - just more suitable for text-presentation e.g word-processing doc
-    tcl::dict::set charinfo 65039 [list desc "Variation Selector-16 emoji variation"                               short "VS16"]
-
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    # emoticons https://www.unicode.org/charts/PDF/U1F600.pdf
-    tcl::dict::set charsets "Emoticons" [list ranges [list {start 128512 end 128591}] description "Emoticons" settype "tcl_supplemented"]
-    tcl::dict::set charinfo 128512 [list desc "Grinning Face"                                     short "emoticon_gface"]
-    tcl::dict::set charinfo 128513 [list desc "Grinning Face with Smiling Eyes"                   short "emoticon_gface_smile_eyes"]
-    tcl::dict::set charinfo 128514 [list desc "Face with Tears of Joy"                            short "emoticon_face_tears_joy"]
-
-    #todo
-    tcl::dict::set charinfo 128590 [list desc "Person with Pouting Face"                          short "emoticon_person_pout"]
-
-    # -- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    tcl::dict::set charsets "Box Drawing" [list ranges [list {start 9472 end 9599}] description "Box Drawing" settype "tcl_supplemented"]
-    tcl::dict::set charinfo 9472 [list desc "Box Drawings Light Horizontal"                       short "boxd_lhz"]
-    tcl::dict::set charinfo 9473 [list desc "Box Drawings Heavy Horizontal"                       short "boxd_hhz"]
-    tcl::dict::set charinfo 9474 [list desc "Box Drawings Light Vertical"                         short "boxd_lv"]
-    tcl::dict::set charinfo 9475 [list desc "Box Drawings Heavy Vertical"                         short "boxd_hv"]
-    tcl::dict::set charinfo 9476 [list desc "Box Drawings Light Triple Dash Horizontal"           short "boxd_ltdshhz"]
-    tcl::dict::set charinfo 9477 [list desc "Box Drawings Heavy Triple Dash Horizontal"           short "boxd_htdshhz"]
-    tcl::dict::set charinfo 9478 [list desc "Box Drawings Light Triple Dash Vertical"             short "boxd_ltdshv"]
-    tcl::dict::set charinfo 9479 [list desc "Box Drawings Heavy Triple Dash Vertical"             short "boxd_htdshv"]
-    tcl::dict::set charinfo 9480 [list desc "Box Drawings Light Quadruple Dash Horizontal"        short "boxd_lqdshhz"]
-    tcl::dict::set charinfo 9481 [list desc "Box Drawings Heavy Quadruple Dash Horizontal"        short "boxd_hqdshhz"]
-    tcl::dict::set charinfo 9482 [list desc "Box Drawings Light Quadruple Dash Vertical"          short "boxd_lqdshv"]
-    tcl::dict::set charinfo 9483 [list desc "Box Drawings Heavy Quadruple Dash Vertical"          short "boxd_hqdshv"]
-    tcl::dict::set charinfo 9484 [list desc "Box Drawings Light Down and Right"                   short "boxd_ldr"]
-    tcl::dict::set charinfo 9485 [list desc "Box Drawings Down Light and Right Heavy"             short "boxd_dlrh"]
-    tcl::dict::set charinfo 9486 [list desc "Box Drawings Down Heavy and Right Light"             short "boxd_dhrl"]
-    tcl::dict::set charinfo 9487 [list desc "Box Drawings Heavy Down and Right"                   short "boxd_hdr"]
-    tcl::dict::set charinfo 9488 [list desc "Box Drawings Light Down and Left"                    short "boxd_ldl"]
-    tcl::dict::set charinfo 9489 [list desc "Box Drawings Down Light and Left Heavy"              short "boxd_dllh"]
-    tcl::dict::set charinfo 9490 [list desc "Box Drawings Down Heavy and Left Light"              short "boxd_dhll"]
-    tcl::dict::set charinfo 9491 [list desc "Box Drawings Heavy Down and Left"                    short "boxd_hdl"]
-    tcl::dict::set charinfo 9492 [list desc "Box Drawings Light Up and Right"                     short "boxd_lur"]
-    tcl::dict::set charinfo 9493 [list desc "Box Drawings Up Light and Right Heavy"               short "boxd_ulrh"]
-    tcl::dict::set charinfo 9494 [list desc "Box Drawings Up Heavy and Right Light"               short "boxd_uhrl"]
-    tcl::dict::set charinfo 9495 [list desc "Box Drawings Heavy Up and Right"                     short "boxd_hur"]
-    tcl::dict::set charinfo 9496 [list desc "Box Drawings Light Up and Left"                      short "boxd_lul"]
-    tcl::dict::set charinfo 9497 [list desc "Box Drawings Up Light and Left Heavy"                short "boxd_ullh"]
-    tcl::dict::set charinfo 9498 [list desc "Box Drawings Up Heavy and Left Light"                short "boxd_uhll"]
-    tcl::dict::set charinfo 9499 [list desc "Box Drawings Heavy Up and Left"                      short "boxd_hul"]
-    tcl::dict::set charinfo 9500 [list desc "Box Drawings Light Vertical and Right"               short "boxd_lvr"]
-    tcl::dict::set charinfo 9501 [list desc "Box Drawings Vertical Light and Right Heavy"         short "boxd_vlrh"]
-    tcl::dict::set charinfo 9502 [list desc "Box Drawings Up Heavy and Right Down Light"          short "boxd_uhrdl"]
-    tcl::dict::set charinfo 9503 [list desc "Box Drawings Down Heavy and Right Up Light"          short "boxd_dhrul"]
-    tcl::dict::set charinfo 9504 [list desc "Box Drawings Vertical Heavy and Right Light"         short "boxd_vhrl"]
-    tcl::dict::set charinfo 9505 [list desc "Box Drawings Down Light and Right Up Heavy"          short "boxd_dlruh"]
-    tcl::dict::set charinfo 9506 [list desc "Box Drawings Up Light and Right Down Heavy"          short "boxd_ulrdh"]
-    tcl::dict::set charinfo 9507 [list desc "Box Drawings Heavy Vertical and Right"               short "boxd_hvr"]
-    tcl::dict::set charinfo 9508 [list desc "Box Drawings Light Vertical and Left"                short "boxd_lvl"]
-    tcl::dict::set charinfo 9509 [list desc "Box Drawings Vertical Light and Left Heavy"          short "boxd_vllh"]
-    tcl::dict::set charinfo 9510 [list desc "Box Drawings Up Heavy and Let Down Light"            short "boxd_uhldl"]
-    tcl::dict::set charinfo 9511 [list desc "Box Drawings Down Heavy and Left Up Light"           short "boxd_dhlul"]
-    tcl::dict::set charinfo 9512 [list desc "Box Drawings Vertical Heavy and Left Light"          short "boxd_vhll"]
-    tcl::dict::set charinfo 9513 [list desc "Box Drawings Down Light and left Up Heavy"           short "boxd_dlluh"]
-    tcl::dict::set charinfo 9514 [list desc "Box Drawings Up Light and Left Down Heavy"           short "boxd_ulldh"]
-    tcl::dict::set charinfo 9515 [list desc "Box Drawings Heavy Vertical and Left"                short "boxd_hvl"]
-    tcl::dict::set charinfo 9516 [list desc "Box Drawings Light Down and Horizontal"              short "boxd_ldhz"]
-    tcl::dict::set charinfo 9517 [list desc "Box Drawings Left Heavy and Right Down Light"        short "boxd_lhrdl"]
-    tcl::dict::set charinfo 9518 [list desc "Box Drawings Right Heavy and Left Down Light"        short "boxd_rhldl"]
-    tcl::dict::set charinfo 9519 [list desc "Box Drawings Down Light and Horizontal Heavy"        short "boxd_dlhzh"]
-    tcl::dict::set charinfo 9520 [list desc "Box Drawings Down Heavy and Horizontal Light"        short "boxd_dhhzl"]
-    tcl::dict::set charinfo 9521 [list desc "Box Drawings Right Light and Left Down Heavy"        short "boxd_rlldh"]
-    tcl::dict::set charinfo 9522 [list desc "Box Drawings Left Light and Right Down Heavy"        short "boxd_llrdh"]
-    tcl::dict::set charinfo 9523 [list desc "Box Drawings Heavy Down and Horizontal"              short "boxd_hdhz"]
-    tcl::dict::set charinfo 9524 [list desc "Box Drawings Light Up and Horizontal"                short "boxd_luhz"]
-    tcl::dict::set charinfo 9525 [list desc "Box Drawings Left Heavy and Right Up Light"          short "boxd_lhrul"]
-    tcl::dict::set charinfo 9526 [list desc "Box Drawings Right Heavy and Left Up Light"          short "boxd_rhlul"]
-    tcl::dict::set charinfo 9527 [list desc "Box Drawings Up Light and Horizontal Heavy"          short "boxd_ulhzh"]
-    tcl::dict::set charinfo 9528 [list desc "Box Drawings Up Heavy and Horizontal Light"          short "boxd_uhhzl"]
-    tcl::dict::set charinfo 9529 [list desc "Box Drawings Right Light and Left Up Heavy"          short "boxd_rlluh"]
-    tcl::dict::set charinfo 9530 [list desc "Box Drawings Left Light and Right Up Heavy"          short "boxd_llruh"]
-    tcl::dict::set charinfo 9531 [list desc "Box Drawings Heavy Up and Horizontal"                short "boxd_huhz"]
-    tcl::dict::set charinfo 9532 [list desc "Box Drawings Light Vertical and Horizontal"          short "boxd_lvhz"]
-    tcl::dict::set charinfo 9533 [list desc "Box Drawings Left Heavy and Right Vertical Light"    short "boxd_lhrvl"]
-    tcl::dict::set charinfo 9534 [list desc "Box Drawings Right Heavy and Left Vertical Light"    short "boxd_rhlvl"]
-    tcl::dict::set charinfo 9535 [list desc "Box Drawings Vertical Light and Horizontal Heavy"    short "boxd_vlhzh"]
-    tcl::dict::set charinfo 9536 [list desc "Box Drawings Up Heavy and Down Horizontal Light"     short "boxd_uhdhzl"]
-    tcl::dict::set charinfo 9537 [list desc "Box Drawings Down Heavy and Up Horizontal Light"     short "boxd_dhuhzl"]
-    tcl::dict::set charinfo 9538 [list desc "Box Drawings Vertical Heavy and Horizontal Light"    short "boxd_vhhzl"]
-    tcl::dict::set charinfo 9539 [list desc "Box Drawings Left Up Heavy and Right Down Light"     short "boxd_luhrdl"]
-    tcl::dict::set charinfo 9540 [list desc "Box Drawings Right Up Heavy and Left Down Light"     short "boxd_ruhldl"]
-    tcl::dict::set charinfo 9541 [list desc "Box Drawings Left Down Heavy and Right Up Light"     short "boxd_ldhrul"]
-    tcl::dict::set charinfo 9542 [list desc "Box Drawings Right Down Heavy and Left Up Light"     short "boxd_rdhlul"]
-    tcl::dict::set charinfo 9543 [list desc "Box Drawings Down Light and Up Horizontal Heavy"     short "boxd_dluhzh"]
-    tcl::dict::set charinfo 9544 [list desc "Box Drawings Up Light and Down Horizontal Heavy"     short "boxd_dldhzh"]
-    tcl::dict::set charinfo 9545 [list desc "Box Drawings Right Light and Left Vertical Heavy"    short "boxd_rllvh"]
-    tcl::dict::set charinfo 9546 [list desc "Box Drawings Left Light and Right Vertical Heavy"    short "boxd_llrvh"]
-    tcl::dict::set charinfo 9547 [list desc "Box Drawings Heavy Vertical and Horizontal"          short "boxd_hvhz"]
-    tcl::dict::set charinfo 9548 [list desc "Box Drawings Light Double Dash Horizontal"           short "boxd_lddshhz"]
-    tcl::dict::set charinfo 9549 [list desc "Box Drawings Heavy Double Dash Horizontal"           short "boxd_hddshhz"]
-    tcl::dict::set charinfo 9550 [list desc "Box Drawings Light Double Dash Vertical"             short "boxd_lddshv"]
-    tcl::dict::set charinfo 9551 [list desc "Box Drawings Heavy Double Dash Vertical"             short "boxd_hddshv"]
-    tcl::dict::set charinfo 9552 [list desc "Box Drawings Double Horizontal"                      short "boxd_dhz"]
-    tcl::dict::set charinfo 9553 [list desc "Box Drawings Double Vertical"                        short "boxd_dv"]
-    tcl::dict::set charinfo 9554 [list desc "Box Drawings Down Single and Right Double"           short "boxd_dsrd"]
-    tcl::dict::set charinfo 9555 [list desc "Box Drawings Down Double and Right Single"           short "boxd_ddrs"]
-    tcl::dict::set charinfo 9556 [list desc "Box Drawings Double Down and Right"                  short "boxd_ddr"]
-    tcl::dict::set charinfo 9557 [list desc "Box Drawings Down Single and Left Double"            short "boxd_dsld"]
-    tcl::dict::set charinfo 9558 [list desc "Box Drawings Down Double and Left Single"            short "boxd_ddls"]
-    tcl::dict::set charinfo 9559 [list desc "Box Drawings Double Down and Left"                   short "boxd_ddl"]
-    tcl::dict::set charinfo 9560 [list desc "Box Drawings Up Single and Right Double"             short "boxd_usrd"]
-    tcl::dict::set charinfo 9561 [list desc "Box Drawings Up Double and Right Single"             short "boxd_udrs"]
-    tcl::dict::set charinfo 9562 [list desc "Box Drawings Double Up and Right"                    short "boxd_dur"]
-    tcl::dict::set charinfo 9563 [list desc "Box Drawings Up Single and Left Double"              short "boxd_usld"]
-    tcl::dict::set charinfo 9564 [list desc "Box Drawings Up Double and Left Single"              short "boxd_udls"]
-    tcl::dict::set charinfo 9565 [list desc "Box Drawings Double Up and Left"                     short "boxd_dul"]
-    tcl::dict::set charinfo 9566 [list desc "Box Drawings Vertical Single and Right Double"       short "boxd_vsrd"]
-    tcl::dict::set charinfo 9567 [list desc "Box Drawings Vertical Double and Right Single"       short "boxd_vdrs"]
-    tcl::dict::set charinfo 9568 [list desc "Box Drawings Double Vertical and Right"              short "boxd_dvr"]
-    tcl::dict::set charinfo 9569 [list desc "Box Drawings Vertical Single and Left Double"        short "boxd_vsld"]
-    tcl::dict::set charinfo 9570 [list desc "Box Drawings Vertical Double and Left Single"        short "boxd_vdls"]
-    tcl::dict::set charinfo 9571 [list desc "Box Drawings Double Vertical and Left"               short "boxd_dvl"]
-    tcl::dict::set charinfo 9572 [list desc "Box Drawings Down Single and Horizontal Double"      short "boxd_dshzd"]
-    tcl::dict::set charinfo 9573 [list desc "Box Drawings Down Double and Horizontal Single"      short "boxd_ddhzs"]
-    tcl::dict::set charinfo 9574 [list desc "Box Drawings Double Down and Horizontal"             short "boxd_ddhz"]
-    tcl::dict::set charinfo 9575 [list desc "Box Drawings Up Single and Horizontal Double"        short "boxd_ushzd"]
-    tcl::dict::set charinfo 9576 [list desc "Box Drawings Up Double and Horizontal Single"        short "boxd_udhzs"]
-    tcl::dict::set charinfo 9577 [list desc "Box Drawings Double Up and Horizontal"               short "boxd_duhz"]
-    tcl::dict::set charinfo 9578 [list desc "Box Drawings Vertical Single and Horizontal Double"  short "boxd_vshzd"]
-    tcl::dict::set charinfo 9579 [list desc "Box Drawings Vertical Double and Horizontal Single"  short "boxd_vdhzs"]
-    tcl::dict::set charinfo 9580 [list desc "Box Drawings Double Vertical and Horizontal"         short "boxd_dvhz"]
-    tcl::dict::set charinfo 9581 [list desc "Box Drawings Light Arc Down and Right"               short "boxd_ladr"]
-    tcl::dict::set charinfo 9582 [list desc "Box Drawings Light Arc Down and Left"                short "boxd_ladl"]
-    tcl::dict::set charinfo 9583 [list desc "Box Drawings Light Arc Up and Left"                  short "boxd_laul"]
-    tcl::dict::set charinfo 9584 [list desc "Box Drawings Light Arc Up and Right"                 short "boxd_laur"]
-    tcl::dict::set charinfo 9585 [list desc "Box Drawings Light Diagonal Upper Right To Lower Left"   short "boxd_ldgurll"]
-    tcl::dict::set charinfo 9586 [list desc "Box Drawings Light Diagonal Upper Left To Lower Right"   short "boxd_ldgullr"]
-    tcl::dict::set charinfo 9587 [list desc "Box Drawings Light Diagonal Cross"                   short "boxd_ldc"]
-    tcl::dict::set charinfo 9588 [list desc "Box Drawings Light Left"                             short "boxd_ll"]
-    tcl::dict::set charinfo 9589 [list desc "Box Drawings Light Up"                               short "boxd_lu"]
-    tcl::dict::set charinfo 9590 [list desc "Box Drawings Light Right"                            short "boxd_lr"]
-    tcl::dict::set charinfo 9591 [list desc "Box Drawings Light Down"                             short "boxd_ld"]
-    tcl::dict::set charinfo 9592 [list desc "Box Drawings Heavy Left"                             short "boxd_hl"]
-    tcl::dict::set charinfo 9593 [list desc "Box Drawings Heavy Up"                               short "boxd_hu"]
-    tcl::dict::set charinfo 9594 [list desc "Box Drawings Heavy Right"                            short "boxd_hr"]
-    tcl::dict::set charinfo 9595 [list desc "Box Drawings Heavy Down"                             short "boxd_hd"]
-    tcl::dict::set charinfo 9596 [list desc "Box Drawings Light Left and Heavy Right"             short "boxd_llhr"]
-    tcl::dict::set charinfo 9597 [list desc "Box Drawings Light Up and Heavy Down"                short "boxd_luhd"]
-    tcl::dict::set charinfo 9598 [list desc "Box Drawings Heavy Left and Light Right"             short "boxd_hllr"]
-    tcl::dict::set charinfo 9599 [list desc "Box Drawings Heavy Up and Light Down"                short "boxd_huld"]
-
-
-    tcl::dict::set charsets "Halfwidth and Fullwidth Forms" [list ranges [list {start 65280 end 65519}] description "Halfwidth and Fullwidth Forms (variants)" settype "tcl_supplemental"]
-        tcl::dict::set charsets "ascii_fullwidth" [list ranges [list {start 65281 end 65374}] description "Ascii 21 to 7E fullwidth" parentblock "halfwidth_and_fullwidth_forms" settype "other"]
-
-    tcl::dict::set charsets "Specials" [list ranges [list {start 65520 end 65535}] description "Specials" settype "tcl_supplemental"]
-
-    tcl::dict::set charsets "noncharacters" [list ranges [list\
-        {start 64976 end 65007   note "BMP FDD0..FDEF"}\
-        {start 65534 end 65535   note "BMP FFFE,FFFF"}\
-        {start 131070 end 131071 note "plane1 1FFFE,1FFFF"}\
-        {start 196606 end 196607 note "plane2 2FFFE,2FFFF"}\
-        {start 262142 end 262143 note "plane3 3FFFE,3FFFF"}\
-        {start 327678 end 327679 note "plane4 4FFFE,4FFFF"}\
-        {start 393214 end 393215 note "plane5 5FFFE,5FFFF"}\
-        {start 458750 end 458751 note "plane6 6FFFE,6FFFF"}\
-        {start 524286 end 524287 note "plane7 7FFFE,7FFFF"}\
-        {start 589822 end 589823 note "plane8 8FFFE,8FFFF"}\
-        {start 655358 end 655359 note "plane9 9FFFE,9FFFF"}\
-        {start 720894 end 720895 note "plane10 AFFFE,AFFFF"}\
-        {start 786430 end 786431 note "plane11 BFFFE,BFFFF"}\
-        {start 851966 end 851967 note "plane12 CFFFE,CFFFF"}\
-        {start 917502 end 917503 note "plane13 DFFFE,DFFFF"}\
-        {start 983038 end 983039 note "plane14 EFFFE,EFFFF"}\
-        {start 1048574 end 1048575 note "plane15 FFFFE,FFFFF"}\
-        {start 1114110 end 1114111 note "plane16 10FFFE,10FFFF"}\
-        ] description "non-characters" settype "tcl_supplemental"]
-
-    #build dicts keyed on short
-    variable charshort
-    proc _build_charshort {} {
-        variable charshort
-        set charshort [tcl::dict::create]
-        variable charinfo
-        tcl::dict::for {k v} $charinfo {
-            if {[tcl::dict::exists $v short]} {
-                set sh [tcl::dict::get $v short]
-                if {[tcl::dict::exists $charshort $sh]} {
-                    puts stderr "_build_charshort WARNING character data load duplicate shortcode '$sh'"
-                }
-                tcl::dict::set charshort $sh  [format %c $k]
-            }
-        }
-        return [tcl::dict::size $charshort]
-    }
-    _build_charshort
-
-    variable charset_extents_startpoints ;#stores endpoints   associated with each startpoint - but named after key which is startpoint.
-    variable charset_extents_endpoints   ;#stores startpoints assoicated with each endpoint   - but named after key which is endpoint.
-    variable charset_extents_rangenames  ;# dict keyed on start,end pointing to list of 2-tuples {setname rangeindex_within_set}
-    #build 2 indexes for each range.(charsets are not just unicode blocks so can have multiple ranges)
-    #Note that a range could be as small as a single char (startpoint = endpoint) so there can be many ranges with same start and end if charsets use some of the same subsets.
-    #as each charset_extents_startpoins,charset_extents_endpoints is built - the associated range name and index is appended to the rangenames dict
-    #startpoints - key is startpoint of a range, value is list of endpoints one for each range starting at this startpoint-key
-    #endpoints   - key is endpoint of a range,   value is list of startpoints one for each range ending at this endpoint-key
-    proc _build_charset_extents {} {
-        variable charsets
-        variable charset_extents_startpoints
-        variable charset_extents_endpoints
-        variable charset_extents_rangenames
-        set charset_extents_startpoints     [tcl::dict::create]
-        set charset_extents_endpoints       [tcl::dict::create]
-        set charset_extents_rangenames      [tcl::dict::create]
-        tcl::dict::for {setname setinfo} $charsets {
-            set ranges [tcl::dict::get $setinfo ranges]
-            if {[tcl::dict::get $setinfo settype] eq "block"} {
-                #unicode block must have a single range
-                #we consider a char a member of the block even if unassigned/reserved (as per unicode documentation)
-                set start [tcl::dict::get [lindex $ranges 0] start]
-                set end [tcl::dict::get [lindex $ranges 0] end]
-                if {![tcl::dict::exists $charset_extents_startpoints $start] || $end ni [tcl::dict::get $charset_extents_startpoints $start]} {
-                    #assertion if end wasn't in startpoits list - then start won't be in endpoints list
-                    tcl::dict::lappend charset_extents_startpoints  $start $end
-                    tcl::dict::lappend charset_extents_endpoints $end $start
-                }
-                tcl::dict::lappend charset_extents_rangenames ${start},${end} [list $setname 1]
-            } else {
-                #multirange sets/scripts. have holes. Char not a member if it's not explicitly in a defined range.
-                #They should be in order within a set - but we don't assume so
-                set r 1
-                foreach range $ranges {
-                    set start [tcl::dict::get $range start]
-                    set end [tcl::dict::get $range end]
-                    if {![tcl::dict::exists $charset_extents_startpoints $start] || $end ni [tcl::dict::get $charset_extents_startpoints $start]} {
-                        #assertion if end wasn't in startpoits list - then start won't be in endpoints list
-                        tcl::dict::lappend charset_extents_startpoints  $start $end
-                        tcl::dict::lappend charset_extents_endpoints    $end   $start
-                    }
-                    tcl::dict::lappend charset_extents_rangenames ${start},${end} [list $setname $r]
-                    incr r
-                }
-            }
-        }
-        #maintain in sorted order
-        #-stride is available in lsort even at tcl8.6 - but not in lsearch
-        set charset_extents_startpoints [lsort -stride 2 -integer $charset_extents_startpoints]
-        set charset_extents_endpoints   [lsort -stride 2 -integer $charset_extents_endpoints]
-        #no need to sort charset_extents_rangenames - lookup only done using dict methods
-        return [tcl::dict::size $charset_extents_startpoints]
-    }
-    _build_charset_extents ;#rebuilds for all charsets
-
-    #nerdfonts are within the Private use E000 - F8FF range
-    proc load_nerdfonts {} {
-        variable charsets
-        variable charinfo
-        package require fileutil
-        set ver [package provide punk::char]
-        if {$ver ne ""} {
-            set ifneeded [package ifneeded punk::char [package provide punk::char]]
-            #puts stderr "punk::char ifneeded script: $ifneeded"
-            lassign [split $ifneeded ";"] _  sourceinfo
-            set basedir  [file dirname [lindex $sourceinfo end]]
-        } else {
-            #review - will only work at package load time
-            set scr [info script]
-            if {$scr eq ""} {
-                error "load_nerdfonts unable to determine package folder"
-            }
-            set basedir [file dirname [info script]]
-        }
-        set pkg_data_dir [file join $basedir char]
-        set fname [file join $pkg_data_dir nerd-fonts-glyph-list.txt]
-        if {[file exists $fname]} {
-            #puts stderr "load_nerdfonts loading $fname"
-            set data [fileutil::cat -translation binary $fname]
-            set short_seen [tcl::dict::create]
-            set current_set_range [tcl::dict::create]
-            set filesets_loading [list]
-            foreach ln [split $data \n] {
-                    set ln [tcl::string::trim $ln]
-                    if {$ln eq ""} {continue}
-                    set desc [lassign $ln hex rawsetname]
-                    set hexnum 0x$hex
-                    set dec [expr $hexnum]
-                    set setname "nf_$rawsetname"  ;#Ensure nerdfont set names are prefixed.
-
-                    if {$setname ni $filesets_loading} {
-                        if {![tcl::dict::exists $charsets $setname]} {
-                            #set exists - but not in our filesets_loading list - therefore this set has been previously loaded, so clear old data first
-                            dict unset charset $setname
-                        }
-                        set newrange [list start $dec end $dec]
-                        tcl::dict::set current_set_range $setname $newrange
-                        tcl::dict::set charsets $setname [list ranges [list $newrange]  description "nerd fonts $rawsetname" settype "nerdfonts privateuse"]
-
-                        lappend filesets_loading $setname
-                    }
-                    #expects ordered glyph list
-                    set existing_range [tcl::dict::get $current_set_range $setname]
-                    set existing_end [tcl::dict::get $existing_range end]
-                    if {$dec - $existing_end == 1} {
-                        #part of current range
-                        tcl::dict::set current_set_range $setname end $dec
-                        #overwrite last ranges element
-                        set rangelist [lrange [tcl::dict::get $charsets $setname ranges] 0 end-1]
-                        lappend rangelist [tcl::dict::get $current_set_range $setname]
-                        tcl::dict::set charsets $setname ranges $rangelist
-                    } else {
-                        #new range for set
-                        tcl::dict::set current_set_range $setname start $dec
-                        tcl::dict::set current_set_range $setname end $dec
-                        set rangelist [tcl::dict::get $charsets $setname ranges]
-                        lappend rangelist [tcl::dict::get $current_set_range $setname]
-                        tcl::dict::set charsets $setname ranges $rangelist
-                    }
-
-                    if {![tcl::dict::exists $charinfo $dec]} {
-                        # -- ---
-                        #review
-                        set map [list beaufort bf gibbous gb crescent cr thunderstorm tstorm thermometer thermom]
-                        lappend map {*}[list directory dir creativecommons ccom creative_commons ccom forwardslash fs]
-                        lappend map {*}[list multimedia mm multiple multi outline outl language lang]
-                        lappend map {*}[list odnoklassniki okru]
-                        # -- ---
-                        #consider other ways to unambiguously shorten names?
-                        #normalize nf_fa & nf_fa 'o' element to 'outl' so outlines can be searched across sets more easily (o not necessarily at last position)
-                        set normdesc [list]
-                        foreach el $desc {
-                            if {$el eq "o"} {
-                                set el "outl"
-                            }
-                            lappend normdesc $el
-                        }
-                        set joined_desc [join $normdesc _]
-                        #map after join so we can normalize some underscored elements e.g creativecommons & creative_commons
-                        set mapped_desc [tcl::string::map $map $joined_desc]
-                        set s nf_${rawsetname}_$mapped_desc
-
-                        if {![tcl::dict::exists $short_seen $s]} {
-                            tcl::dict::set short_seen $s {}
-                        } else {
-                            #duplicate in the data file (e.g 2023 weather night alt rain mix)
-                            set s ${s}_$hex
-                        }
-                        tcl::dict::set charinfo $dec [list desc "$desc" short $s]
-                    }
-            }
-           _build_charshort
-           _build_charset_extents
-        } else {
-            puts stderr "unable to find glyph file. Tried $fname"
-        }
-    }
-
-    proc package_base {} {
-        #assume punk::char is in .tm form and we can use the package provide statement to determine base location
-        #review
-        set pkgver [package present punk::char]
-        set pkginfo [package ifneeded punk::char $pkgver]
-        set tmfile [lindex $pkginfo end]
-        set pkg_base  [file dirname $tmfile]
-        return $pkg_base
-    }
-    tcl::namespace::eval internal {
-        proc unicode_folder {} {
-            set parent [file join [punk::char::package_base] char]
-            set candidates [glob -nocomplain -type d -dir $parent -tail unicode*]
-            set candidates [lsort -increasing $candidates] ;#review - dictionary sort - how are unicode versions ranked/compared??
-            if {![llength $candidates]} {
-                error "Failed to find unicode data folder in folder '$parent'"
-            }
-            set folder [file join $parent [lindex $candidates end]]
-            return $folder
-        }
-        proc dict_getdef {dictValue args} {
-            if {[llength $args] < 2} {
-                error {wrong # args: should be "dict_getdef dictValue ?key ...? key default"}
-            }
-            set keys [lrange $args 0 end-1]
-            if {[tcl::dict::exists $dictValue {*}$keys]} {
-                return [tcl::dict::get $dictValue {*}$keys]
-            } else {
-                return [lindex $args end]
-            }
-        }
-    }
-
-
-
-    #charsets structure
-    #tcl::dict::set charsets "halfwidth_and_fullwidth_forms" [list ranges [list {start 65280 end 65519}] description "Halfwidth and Fullwidth Forms (variants) settype block"]
-
-    #unicode Blocks.txt
-    #load the defined blocks into 'charsets' and mark as type 'block'. Unicode blocks have only one range - and don't overlap.
-    #We don't treat unassigned/reserved codes within a block specially at this stage - ie we will not chop a block into subranges on that basis.
-    #unassigned code points should get certain default properties (e.g bidirectionality ) according to their block - so it makes sense to treat them as belonging to the block.
-    #They also get the general property of Cn (Other,not assigned or Other,reserved) and a "Basic Type" of Noncharacter or Reserved
-    proc load_unicode_blocks {} {
-        #sample data line
-        #0000..007F; Basic Latin
-        variable charsets
-        set file [file join [internal::unicode_folder] Blocks.txt]
-        if {![file exists $file]} {
-            error "Unicode Blocks.txt file not found at path '$file'"
-        }
-        puts "ok.. loading"
-        set fd [open $file r]
-        chan configure $fd -translation binary
-        set data [read $fd]
-        close $fd
-        set block_count 0
-        foreach ln [split $data \n] {
-            set ln [tcl::string::trim $ln]
-            if {[tcl::string::match #* $ln]} {
-                continue
-            }
-            if {[set pcolon [tcl::string::first ";" $ln]] > 0} {
-                set lhs [tcl::string::trim [tcl::string::range $ln 0 $pcolon-1]]
-                set name [tcl::string::trim [tcl::string::range $ln $pcolon+1 end]]
-                set lhsparts [split $lhs .]
-                set start [lindex $lhsparts 0]
-                set end   [lindex $lhsparts end]
-                #puts "$start -> $end  '$name'"
-                set  decimal_start [expr {"0x$start"}]
-                set  decimal_end   [expr {"0x$end"}]
-                tcl::dict::set charsets $name [list ranges [list [list start $decimal_start end $decimal_end note "unicode block $lhs"]] description "" settype block]
-                incr block_count
-            }
-        }
-        _build_charset_extents
-        return $block_count
-    }
-
-    #unicode scripts
-
-    #unicode UnicodeData.txt
-
-
-
-    #https://www.unicode.org/reports/tr44/#Property_Values
-
-
-    #unicode EastAsianWidth.txt
-    #classify width of character - which is contextual in some cases
-    #####
-    #Review - this is initial naive assumption that should get us mostly what we want for layout purposes in a utf-8-centric world.
-    #We will just load the values and treat H,N,Na as 1-wide and A,F,W as 2-wide for functions such as char::string_width on the basis that those using legacy sets can query the property and make their own determinations in those contexts.
-    ####
-    # -- ---
-    #A = Ambiguous - All characters that can be sometimes wide and sometimes narrow.  (wide in east asian legacy sets, narrow in non-east asian usage) (private use chars considered ambiguous)
-    #F = East Asian Full-width
-    #H = East Asian Half-width
-    #N = Not east Asian (Neutral) - all other characters. (do not occur in legacy East Asian character sets) - treated like Na
-    #Na = East Asian Narrow  - all other characters that are always narrow and have explicit full-width counterparts (e.g includes all of ASCII)
-    #W = East Asian Wide - all other characters that are always wide (Occur only in the context of Eas Asian Typography)
-    # -- ---
-
-
-
-
-    proc charshort {shortname} {
-        variable charshort
-        return [tcl::dict::get $charshort $shortname]
-    }
-
-    proc box_drawing {args} {
-        return [charset "Box Drawing" {*}$args]
-    }
-    proc box_drawing_dict {} {
-        return [charset_dict "Box Drawing"]
-    }
-
-    proc char_hex {char} {
-        return  [format %08x [scan $char %c]]
-    }
-
-    proc char_info_hex {hex args} {
-        set hex [tcl::string::map [list _ ""] $hex]
-        if {[tcl::string::is xdigit -strict $hex]} {
-            #has no leading 0x
-            set dec [expr {"0x$hex"}]
-        } else {
-            set dec [expr {$hex}]
-        }
-        return [char_info_dec $dec {*}$args]
-    }
-    proc char_info {char args} {
-        #Note - on some versions of Tcl -e.g 8.6 use could supply something like \U1f600 (smiley icon) but we receive fffd (replacement special)
-        #there is no way to detect what the user intended ie we can't distinguish if they actually typed \UFFFD
-        #we can test if such mapping happens in general - and warn if codepoint is FFFD in the result dict
-        set returninfo [tcl::dict::create]
-        if {[tcl::string::equal \UFFFD $char] && [tcl::string::equal \U1F600 \UFFFD]} {
-            tcl::dict::set returninfo WARNING "this tcl maps multiple to FFFD"
-        }
-        lassign [scan $char %c%s] dec_char remainder
-        if {[tcl::string::length $remainder]} {
-            error "char_info requires a single character"
-        }
-        set result [tcl::dict::merge $returninfo [char_info_dec $dec_char {*}$args]]
-    }
-    proc char_info_dec {dec args} {
-        set dec_char [expr {$dec}]
-        set opts [tcl::dict::create\
-            -fields {default}\
-            -except {}\
-        ]
-        #testwidth is so named because it peforms an actual test on the console using ansi escapes - and the name gives a hint that it is a little slow
-        set known_fields [list all default dec hex desc short testwidth char memberof] ;#maint fields from charinfo 'desc' 'short'
-        #todo - unicode properties
-        # tclwhitespace  (different to unicode concept of whitespace. review )
-
-        foreach {k v} $args {
-            switch -- $k {
-                -fields - -except {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "char_info unrecognised option '$k'. Known options:'[tcl::dict::keys $opts]' known_fields: $known_fields usage: char_info <char> ?-fields {<fieldnames>}? ?-except {<fieldnames>}?"
-                }
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_fields      [tcl::dict::get $opts -fields]
-        set opt_except      [tcl::dict::get $opts -except]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set initial_fields [list]
-        if {"default" in $opt_fields} {
-            set initial_fields $known_fields
-            if {"testwidth" ni $opt_fields} {
-                if {"testwidth" ni $opt_except} {
-                    lappend opt_except testwidth
-                }
-            }
-            if {"char" ni $opt_fields} {
-                if {"char" ni $opt_except} {
-                    lappend opt_except char
-                }
-            }
-        } elseif {"all" in $opt_fields} {
-            set initial_fields $known_fields
-        } else {
-            foreach f $opt_fields {
-                if {$f in $known_fields} {
-                    lappend initial_fields $f
-                } else {
-                    error "char_info unknown field name: '$f' known fields: '$known_fields'"
-                }
-            }
-        }
-        foreach e $opt_except {
-            if {$e ni $known_fields} {
-                error "char_info unknown field name $e in -except. known fields: '$known_fields'"
-            }
-        }
-        set fields [list]
-        foreach f $initial_fields {
-            if {$f ne "all" && $f ni $opt_except} {
-                lappend fields $f
-            }
-        }
-        if {![llength $fields]} {
-            return
-        }
-
-        variable charinfo
-        variable charsets
-        set hex_char [format %04x $dec_char]
-        set returninfo [tcl::dict::create]
-        foreach f $fields {
-            switch -- $f {
-                dec {
-                    tcl::dict::set returninfo dec $dec_char
-                }
-                hex {
-                    tcl::dict::set returninfo hex $hex_char
-                }
-                desc {
-                    if {[tcl::dict::exists $charinfo $dec_char desc]} {
-                        tcl::dict::set returninfo desc [tcl::dict::get $charinfo $dec_char desc]
-                    } else {
-                        tcl::dict::set returninfo desc ""
-                    }
-                }
-                short {
-                    if {[tcl::dict::exists $charinfo $dec_char short]} {
-                        tcl::dict::set returninfo desc [tcl::dict::get $charinfo $dec_char short]
-                    } else {
-                        tcl::dict::set returninfo short ""
-                    }
-                }
-                testwidth {
-                    #todo - expectedwidth - lookup the printing width it is *supposed* to have from unicode tables
-                    #testwidth is one of the main ones likely to be worthwhile excluding as querying the console via ansi takes time
-                    set existing_testwidth ""
-                    if {[tcl::dict::exists $charinfo $dec_char testwidth]} {
-                    set existing_testwidth [tcl::dict::get $charinfo $dec_char testwidth]
-                    }
-                    if {$existing_testwidth eq ""} {
-                        #no cached data - do expensive cursor-position test (Note this might not be 100% reliable - terminals lie e.g if ansi escape sequence has set to wide printing.)
-                        set char [format %c $dec_char]
-                        set chwidth [char_info_testwidth $char]
-
-                        tcl::dict::set returninfo testwidth $chwidth
-                        #cache it. todo - -verify flag to force recalc in case font/terminal changed in some way?
-                        tcl::dict::set charinfo $dec_char testwidth $chwidth
-                    } else {
-                        tcl::dict::set returninfo testwidth $existing_testwidth
-                    }
-                }
-                char {
-                    set char [format %c $dec_char]
-                    tcl::dict::set returninfo char $char
-                }
-                memberof {
-                    #memberof takes in the order of a few hundred microseconds if a simple scan of all ranges is taken - possibly worthwhile caching/optimising
-                    #note that memberof is not just unicode blocks - but scripts and other non-contiguous sets consisting of multiple ranges - some of which may include ranges of a single character. (e.g WGL4)
-                    #This means there probably isn't a really efficient means of calculating membership other than scanning all the defined ranges.
-                    #We could potentially populate it using a side-thread - but it seems reasonable to just cache result after first use here.
-                    #some efficiency could also be gained by pre-calculating the extents for each charset which isn't a simple unicode block. (and perhaps sorting by max char)
-                    set memberof [list]
-                    tcl::dict::for {setname setinfo} $charsets {
-                        foreach r [tcl::dict::get $setinfo ranges] {
-                            set s [tcl::dict::get $r start]
-                            set e [tcl::dict::get $r end]
-                            if {$dec_char >= $s && $dec_char <= $e} {
-                                lappend memberof $setname
-                                break
-                            }
-                        }
-                    }
-                    tcl::dict::set returninfo memberof $memberof
-                }
-            }
-        }
-
-        return $returninfo
-    }
-
-    proc _char_info_dec_memberof_scan {dec} {
-        variable charsets
-        set memberof [list]
-        tcl::dict::for {setname setinfo} $charsets {
-            foreach r [tcl::dict::get $setinfo ranges] {
-                set s [tcl::dict::get $r start]
-                set e [tcl::dict::get $r end]
-                if {$dec >= $s && $dec <= $e} {
-                    lappend memberof $setname
-                    break
-                }
-            }
-        }
-        return $memberof
-    }
-    proc range_split_info {dec} {
-        variable charset_extents_startpoints
-        variable charset_extents_endpoints
-        set skeys [tcl::dict::keys $charset_extents_startpoints]
-        set ekeys [tcl::dict::keys $charset_extents_endpoints]
-        set splen [tcl::dict::size $charset_extents_startpoints]
-        set eplen [tcl::dict::size $charset_extents_endpoints]
-        set s [lsearch -bisect -integer $skeys $dec]
-        set s_at_or_below [lrange $skeys 0 $s]
-        set e_of_s [list]
-        foreach sk $s_at_or_below {
-            lappend e_of_s {*}[tcl::dict::get $charset_extents_startpoints $sk]
-        }
-        set e_of_s [lsort -integer $e_of_s]
-        set splitposn [lsearch -bisect -integer $e_of_s $dec]
-        if {[lindex $e_of_s $splitposn] < $dec} {incr splitposn}
-        #set lhs_endpoints_to_check [expr {[llength $e_of_s] - $splitposn}]
-        set reduced_endpoints [lrange $e_of_s $splitposn end]
-        set sps [list]
-        foreach ep $reduced_endpoints {
-            lappend sps {*}[tcl::dict::get $charset_extents_endpoints $ep]
-        }
-
-
-
-        set e [lsearch -bisect -integer $ekeys $dec]
-        if {$e >= 0} {
-            set e_at_or_above [lrange $ekeys $e end]
-            set s_of_e [list]
-            foreach  ek $e_at_or_above {
-                lappend s_of_e {*}[tcl::dict::get $charset_extents_endpoints $ek]
-            }
-            set startpoints_of_above [llength $s_of_e]
-            set splitposn [lsearch -bisect -integer $s_of_e $dec]
-            set reduced_startpoints [lrange $s_of_e 0 $splitposn]
-            set eps [list]
-            foreach sp $reduced_startpoints {
-                lappend eps {*}[tcl::dict::get $charset_extents_startpoints $sp]
-            }
-        } else {
-            set s_of_e [list]
-            set reduced_startpoints [list]
-            set eps [list]
-
-        }
-
-        return [tcl::dict::create startpoints $splen endpoints $eplen midpoint [expr {floor($eplen/2)}] posn $e lhs_endpoints_to_check "[llength $reduced_endpoints]/[llength $e_of_s]=[llength $sps]ranges" rhs_startpoints_to_check "[llength $reduced_startpoints]/[llength $s_of_e]=[llength $eps]"]
-    }
-    #for just a few extra sets such as wgl4 and unicode blocks loaded - this gives e.g 5x + better performance than the simple search above, and up to twice as slow for tcl 8.6
-    #performance biased towards lower numbered characters (which is not too bad in the context of unicode)
-    #todo - could be tuned to perform better at end by assuming a fairly even distribution of ranges - and so searching startpoint ranges first for items left of middle, endpoint ranges first for items right of middle
-    #review with scripts loaded and more defined ranges..
-    #This algorithm supports arbitrary overlapping ranges and ranges with same start & endpoints
-    #Should be much better than O(n) for n sets except for pathological case of member of all or nearly-all intervals ?
-    #review - compare with 'interval tree' algorithms.
-    proc char_info_dec_memberof {dec} {
-        variable charset_extents_startpoints
-        variable charset_extents_endpoints
-        variable charset_extents_rangenames
-        if {[package vcompare [info tclversion] 8.7a5] >= 0} {
-            #algorithm should theoretically be a little better with -stride
-            set last_smaller_or_equal_startposn [lsearch -stride 2 -bisect -integer $charset_extents_startpoints $dec]
-            set sets_starting_below [lrange $charset_extents_startpoints 0 $last_smaller_or_equal_startposn+1] ;#+1 to include 2nd element of stridden pair
-            set endpoints_of_starting_below [lsort -integer [concat {*}[tcl::dict::values $sets_starting_below]]]
-        } else {
-            #no -stride available
-            set startkeys [tcl::dict::keys $charset_extents_startpoints]
-            set last_smaller_or_equal_startkeyposn [lsearch -bisect -integer $startkeys $dec] ;#assert will always return one of the keys if number >=0 supplied (last key if > all)
-            #set startkey_found [lindex $startkeys $last_smaller_or_equal_startkeyposn]
-            set start_below_keys [lrange $startkeys 0 $last_smaller_or_equal_startkeyposn] ;#These are the keys of sets which start at or below dec
-            #puts "start_below_keys: '$start_below_keys'"
-            set endpoints_of_starting_below [list]
-            foreach belowkey $start_below_keys {
-                lappend endpoints_of_starting_below {*}[tcl::dict::get $charset_extents_startpoints $belowkey]
-            }
-            set endpoints_of_starting_below [lsort -integer $endpoints_of_starting_below[unset endpoints_of_starting_below]]
-        }
-
-        set splitposn [lsearch -bisect -integer $endpoints_of_starting_below $dec] ;#splitposn = last smaller or equal endposn
-        if {[lindex $endpoints_of_starting_below $splitposn] < $dec} { incr splitposn}
-        set reduced_opposite_limit [lrange $endpoints_of_starting_below $splitposn end]
-        ################
-        #note each endpoint points to multiple startpoints which may still include some that are not in range. (e.g range y can share endpoint with x that starts in-range - but y starts above character )
-        #  x1         x2
-        #        y1   y2
-        #     c
-        ################
-        #we have reduced our set of endpoints sufficiently (to those at or above dec) to run through and test each startpoint
-        set ranges [list]
-        foreach ep $reduced_opposite_limit {
-            foreach s [tcl::dict::get $charset_extents_endpoints $ep] {
-                if {$s <= $dec} {
-                    lappend ranges [tcl::dict::get $charset_extents_rangenames $s,$ep]
-                }
-            }
-        }
-        return $ranges
-
-    }
-
-
-    #with glob searching of description and short
-    proc char_range_dict {start end args} {
-        if {![tcl::string::is integer -strict $start] || ![tcl::string::is integer -strict $end]} {
-            error "char_range_dict error start and end must be integers"
-        }
-        set and_globs [list]
-        if {![llength $args]} {
-            set args [list *]
-        }
-        foreach glob $args {
-            if {![regexp {[*?]} $glob]} {
-                lappend and_globs "*$glob*"
-            } else {
-                lappend and_globs $glob
-            }
-        }
-        variable charinfo
-        set cdict [tcl::dict::create]
-        set start [expr {$start}] ;#force string rep to decimal - otherwise first use of i as string could be hex or other rep whilst other i values will be decimal string rep due to incr
-        for {set i $start} {$i <= $end} {incr i} {
-            set hx [format %04x $i]
-            set ch [format %c $i]
-            if {[tcl::dict::exists $charinfo $i desc]} {
-                set d [tcl::dict::get $charinfo $i desc]
-            } else {
-                set d ""
-            }
-            if {[tcl::dict::exists $charinfo $i short]} {
-                set s [tcl::dict::get $charinfo $i short]
-            } else {
-                set s ""
-            }
-            set matchcount 0
-            foreach glob $and_globs {
-                if {[tcl::string::match -nocase $glob $s] || [tcl::string::match -nocase $glob $d]} {
-                   incr matchcount
-                }
-            }
-            if {$matchcount == [llength $and_globs]} {
-                if {[tcl::dict::exists $charinfo $i]} {
-                    tcl::dict::set cdict $hx [tcl::dict::merge [tcl::dict::create dec $i hex $hx char $ch] [tcl::dict::get $charinfo $i]]
-                } else {
-                    tcl::dict::set cdict $hx [list dec $i hex $hx char $ch desc $d short $s]
-                }
-            }
-        }
-        return $cdict
-    }
-    #with glob searches of desc and short
-    proc char_range {start end args} {
-        package require overtype
-        if {![tcl::string::is integer -strict $start] || ![tcl::string::is integer -strict $end]} {
-            error "char_range error start and end must be integers"
-        }
-        set charset_dict [char_range_dict $start $end {*}$args]
-        set out ""
-        set col3 [tcl::string::repeat " " 12]
-        tcl::dict::for {k inf} $charset_dict {
-            set s [internal::dict_getdef $inf short ""]
-            set d [internal::dict_getdef $inf desc ""]
-            set s_col [overtype::left $col3 $s]
-            append out "$k [tcl::dict::get $inf dec] [tcl::dict::get $inf char] $s_col $d" \n
-        }
-        return $out
-    }
-
-
-    #non-overlapping unicode blocks
-    proc char_blocks {{name_or_glob *}} {
-        variable charsets
-        #todo - more efficient datastructures?
-        if {![regexp {[?*]} $name_or_glob]} {
-            #no glob - just retrieve it
-            if {[tcl::dict::exists $charsets $name_or_glob]} {
-                if {[tcl::dict::get $charsets $name_or_glob settype] eq "block"} {
-                    return [tcl::dict::create $name_or_glob [tcl::dict::get $charsets $name_or_glob]]
-                }
-            }
-            #no exact match - try case insensitive..
-            set name [lsearch -inline -nocase [tcl::dict::keys $charsets] $name_or_glob]
-            if {$name ne ""} {
-                if {[tcl::dict::get $charsets $name settype] eq "block"} {
-                    return [tcl::dict::create $name [tcl::dict::get $charsets $name]]
-                }
-            }
-
-        } else {
-            #build a subset
-            set charsets_block [tcl::dict::create]
-            tcl::dict::for {k v} $charsets {
-                if {[tcl::string::match -nocase $name_or_glob $k]} {
-                    if {[tcl::dict::get $v settype] eq "block"} {
-                        tcl::dict::set charsets_block $k $v
-                    }
-                }
-            }
-            return $charsets_block
-        }
-    }
-    proc charset_names {{name_or_glob *}} {
-        variable charsets
-        if {![regexp {[?*]} $name_or_glob]} {
-            #no glob - just retrieve it
-            if {[tcl::dict::exists $charsets $name_or_glob]} {
-                return [list $name_or_glob]
-            }
-            #no exact match - try case insensitive..
-            set name [lsearch -inline -nocase [tcl::dict::keys $charsets] $name_or_glob]
-            if {$name ne ""} {
-                return [list $name]
-            }
-        } else {
-            if {$name_or_glob eq "*"} {
-                return [lsort [tcl::dict::keys $charsets]]
-            }
-            #tcl::dict::keys $dict <pattern> doesn't have option for case insensitive searches
-            return [lsort [lsearch -all -inline -nocase [tcl::dict::keys $charsets] $name_or_glob]]
-        }
-    }
-
-    #deprecated
-    #major named sets such as unicode blocks, scripts, and other sets such as microsoft WGL4
-    #case insensitive search - possibly with *basic* globs (? and * only - not lb rb)
-    proc charset_names2 {{namesearch *}} {
-        variable charsets
-        #dictionary sorting of the keys is slow! - we should obviously store it in sorted order instead of sorting entire list on retrieval - or just sort results
-        #set sortedkeys [lsort -increasing -dictionary [tcl::dict::keys $charsets]] ;#NOTE must use -dictionary to use -sorted flag below
-        set sortedkeys [lsort -increasing [tcl::dict::keys $charsets]]
-        if {$namesearch eq "*"} {
-            return $sortedkeys
-        }
-        if {[regexp {[?*]} $namesearch]} {
-            #name glob search
-            return [lsearch -all -inline -nocase $sortedkeys $namesearch] ;#no point using -sorted flag when -all is used
-        } else {
-            #return [lsearch -sorted -inline -nocase $sortedkeys $namesearch] ;#no globs  - bails out earlier if -sorted?
-            return [lsearch -inline -nocase $sortedkeys $namesearch] ;#no globs
-        }
-    }
-    proc charsets {{namesearch *}} {
-        package require textblock
-        variable charsets
-        set charset_names [charset_names $namesearch]
-        set settype_list [list]
-        foreach setname $charset_names {
-            lappend settype_list [tcl::dict::get $charsets $setname settype]
-        }
-
-        set charset_names [linsert $charset_names 0 "Set Name"]
-        set settype_list  [linsert $settype_list 0 "Set Type"]
-
-        return [textblock::join -- [list_as_lines -- $charset_names] " " [list_as_lines $settype_list]]
-    }
-    proc charset_defget {exactname} {
-        variable charsets
-        return [tcl::dict::get $charsets $exactname]
-    }
-    proc charset_defs {charsetname} {
-        variable charsets
-        set matches [charset_names $charsetname]
-        set def_list [list]
-        foreach setname $matches {
-            lappend def_list [tcl::dict::create $setname [tcl::dict::get $charsets $setname]]
-        }
-        return [join $def_list \n]
-    }
-    proc charset_dictget {exactname} {
-        variable charsets
-        set setinfo [tcl::dict::get $charsets $exactname]
-        set ranges [tcl::dict::get $setinfo ranges]
-        set charset_dict [tcl::dict::create]
-        foreach r $ranges {
-            set start [tcl::dict::get $r start]
-            set end   [tcl::dict::get $r end]
-            set charset_dict [tcl::dict::merge $charset_dict [char_range_dict $start $end]]
-        }
-        return $charset_dict
-    }
-    proc charset_dicts {searchname} {
-        variable  charsets
-        set matches [charset_names $searchname]
-        if {![llength $matches]} {
-            error "No charset found matching name '$searchname' - use 'charset_names' to get list"
-        }
-        set dict_list [list]
-        foreach m $matches {
-            lappend dict_list [tcl::dict::create $m [charset_dictget $m]]
-        }
-        #return $dict_list
-        return [join $dict_list \n]
-    }
-    proc charset_page {namesearch args} {
-        _charset_page_search $namesearch $args ;#pass args to descsearch argument
-    }
-    proc _charset_page_search {namesearch search_this_and_that args} {
-        variable  charsets
-        variable charinfo
-        set matched_names [charset_names $namesearch]
-        if {![llength $matched_names]} {
-            error "charset_page no charset matched pattern '$namesearch' - use 'charset_names' to get list"
-        }
-        set defaults [tcl::dict::create\
-            -ansi 0\
-            -lined 1\
-        ]
-        set opts [tcl::dict::merge $defaults $args]
-        # -- --- --- ---
-        set opt_ansi        [tcl::dict::get $opts -ansi]
-        set opt_lined       [tcl::dict::get $opts -lined]
-        # -- --- --- ---
-        set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-
-        if {$opt_ansi} {
-            set a1 [a BLACK white bold]
-            set a2 [a]
-        } else {
-            set a1 ""
-            set a2 ""
-        }
-        set cols 16
-        set prefix "    "
-        append out $prefix
-        foreach charsetname $matched_names {
-            if {[llength $search_this_and_that]} {
-                set setinfo [tcl::dict::get $charsets $charsetname]
-                set ranges [tcl::dict::get $setinfo ranges]
-                set charset_dict [tcl::dict::create]
-                foreach r $ranges {
-                    set start [tcl::dict::get $r start]
-                    set end   [tcl::dict::get $r end]
-                    set charset_dict [tcl::dict::merge $charset_dict [char_range_dict $start $end {*}$search_this_and_that]]
-                }
-            } else {
-                set charset_dict [charset_dictget $charsetname]
-            }
-            if {![tcl::dict::size $charset_dict]} {
-                continue
-            }
-            set i 1
-            append out \n $prefix $charsetname
-            append out \n
-
-            set marker_line $prefix
-            set line     $prefix
-            tcl::dict::for {hex inf} $charset_dict {
-                set ch [tcl::dict::get $inf char]
-                set twidth ""
-                set dec [expr {"0x$hex"}]
-                if {[tcl::dict::exists $charinfo $dec testwidth]} {
-                    set twidth [tcl::dict::get $charinfo $dec testwidth]
-                }
-                if {$twidth eq ""} {
-                    #set width [ansifreestring_width $ch] ;#based on unicode props
-                    set width [grapheme_width_cached $ch]
-                } else {
-                    set width $twidth
-                }
-                if {$width == 0} {
-                    set marker "   "
-                    if {[regexp $re_diacritics $ch]} {
-                        #attempt to combine with space to get 3-wide displayv with diacritic showing at left space
-                        #todo - dualchar diacritics?
-                        set displayv " $ch  "
-                    } else {
-                        set displayv "   "
-                    }
-                } elseif {$width == 1} {
-                    set marker "_  "
-                    set displayv "${a1}$ch${a2}  "
-                } else {
-                    #presumed 2
-                    set marker "__ "
-                    set displayv "${a1}$ch${a2} "
-                }
-                set hexlen [tcl::string::length $hex]
-                append marker_line "[tcl::string::repeat " " $hexlen] $marker"
-                append line "$hex $displayv"
-                if {$i == [tcl::dict::size $charset_dict] || $i % $cols == 0} {
-                    if {$opt_lined} {
-                        append out $marker_line \n
-                    }
-                    append out $line \n
-                    set marker_line $prefix
-                    set line $prefix
-                    #set out [tcl::string::range $out 0 end-2]
-                    #append out \n "        "
-                }
-                incr i
-            }
-        }
-        set out [tcl::string::trimright $out " "]
-        return $out
-    }
-
-    #allows search on both name and an anded list of globs to be applied to description & short
-    proc charset {namesearch args} {
-        package require overtype
-        variable  charsets
-        set matched_names [charset_names $namesearch]
-        if {![llength $matched_names]} {
-            error "No charset matched pattern '$namesearch' - use 'charset_names' to get list"
-        }
-        set search_this_and_that $args
-
-        set out ""
-
-        foreach charsetname $matched_names {
-            if {[llength $search_this_and_that]} {
-                set setinfo [tcl::dict::get $charsets $charsetname]
-                set ranges [tcl::dict::get $setinfo ranges]
-                set charset_dict [tcl::dict::create]
-                foreach r $ranges {
-                    set start [tcl::dict::get $r start]
-                    set end   [tcl::dict::get $r end]
-                    set charset_dict [tcl::dict::merge $charset_dict [char_range_dict $start $end {*}$search_this_and_that]]
-                }
-            } else {
-                set charset_dict [charset_dictget $charsetname]
-            }
-
-            set col_items_short [list]
-            set col_items_desc  [list]
-            tcl::dict::for {k inf} $charset_dict {
-                lappend col_items_desc  [internal::dict_getdef $inf desc ""]
-                lappend col_items_short [internal::dict_getdef $inf short ""]
-            }
-            if {[llength $col_items_desc]} {
-                set widest3 [tcl::mathfunc::max {*}[lmap v $col_items_short {tcl::string::length $v}]]
-                if {$widest3 == 0} {
-                    set col3 " "
-                } else {
-                    set col3 [tcl::string::repeat " " $widest3]
-                }
-                tcl::dict::for {k inf} $charset_dict {
-                    set s [internal::dict_getdef $inf short ""]
-                    set d [internal::dict_getdef $inf desc ""]
-                    set s_col [overtype::left $col3 $s]
-                    append out "$k [tcl::dict::get $inf char] $s_col $d" \n
-                }
-            }
-        }
-
-        return $out
-    }
-
-    #use console cursor movements to test and cache the column-width of each char in the set of characters returned by the search criteria
-    proc charset_calibrate {namesearch args} {
-        variable  charsets
-        variable charinfo
-        set matched_names [charset_names $namesearch]
-        if {![llength $matched_names]} {
-            error "No charset matched pattern '$namesearch' - use 'charset_names' to get list"
-        }
-        set search_this_and_that $args
-        set charcount 0
-        set width_results [tcl::dict::create]
-        puts stdout "calibrating using terminal cursor movements.."
-        foreach charsetname $matched_names {
-            if {[llength $search_this_and_that]} {
-                set setinfo [tcl::dict::get $charsets $charsetname]
-                set ranges [tcl::dict::get $setinfo ranges]
-                set charset_dict [tcl::dict::create]
-                foreach r $ranges {
-                    set start [tcl::dict::get $r start]
-                    set end   [tcl::dict::get $r end]
-                    set charset_dict [tcl::dict::merge $charset_dict [char_range_dict $start $end {*}$search_this_and_that]]
-                }
-            } else {
-                set charset_dict [charset_dictget $charsetname]
-            }
-            if {![tcl::dict::size $charset_dict]} {
-                continue
-            }
-            tcl::dict::for {hex inf} $charset_dict {
-                set ch [format %c 0x$hex]
-                set twidth ""
-                set dec [expr {"0x$hex"}]
-                if {[tcl::dict::exists $charinfo $dec testwidth]} {
-                    set twidth [tcl::dict::get $charinfo $dec testwidth]
-                }
-                if {$twidth eq ""} {
-                    #puts -nonewline stdout "." ;#this
-                    set width [char_info_testwidth $ch] ;#based on console test rather than unicode props
-                    tcl::dict::set charinfo $dec testwidth $width
-                } else {
-                    set width $twidth
-                }
-                tcl::dict::incr width_results $width
-                incr charcount
-            }
-        }
-        puts stdout "\ncalibration done - results cached in charinfo dictionary"
-        return [tcl::dict::create charcount $charcount widths $width_results]
-    }
-
-    #maint warning - also in overtype!
-    #intended for single grapheme - but will work for multiple
-    #cannot contain ansi or newlines
-    #(a cache of ansifreestring_width calls - as these are quite regex heavy)
-    #review - effective memory leak on longrunning programs if never cleared
-    #tradeoff in fragmenting cache and reducing efficiency vs ability to clear in a scoped manner
-    proc grapheme_width_cached {ch {key ""}} {
-        variable grapheme_widths
-        #if key eq "*" - we won't be able to clear that cache individually. Perhaps that's ok
-        if {[tcl::dict::exists $grapheme_widths $key $ch]} {
-            return [tcl::dict::get $grapheme_widths $key $ch]
-        }
-        set width [punk::char::ansifreestring_width $ch] ;#review - can we provide faster version if we know it's a single grapheme rather than a string? (grapheme is still a string as it may have combiners/diacritics)
-        tcl::dict::set grapheme_widths $key $ch $width
-        return $width
-    }
-    proc grapheme_width_cache_clear {key} {
-        variable grapheme_widths
-        if {$key eq "*} {
-            set grapheme_widths [tcl::dict::create]
-        } else {
-            tcl::dict::unset grapheme_widths $key
-        }
-        return
-    }
-    #no char_width - use grapheme_width terminology to be clearer
-    proc grapheme_width {char} {
-        error "grapheme_width unimplemented - use ansifreestring_width"
-    }
-
-    #return N Na W etc from unicode data
-    #review
-    proc char_uc_width_prop {char} {
-        error "char_uc_width unimplemented try textutil::wcswidth_type"
-    }
-    #todo - provide a grapheme_width function  that is optimised for speed
-    proc string_width {text} {
-        #burn approx 2uS (2024) checking for ansi codes - not just SGR
-        if {[punk::ansi::ta::detect $text]} {
-            puts stderr "string_width detected ANSI!"
-        }
-        if {[tcl::string::last \n $text] >= 0} {
-            error "string_width accepts only a single line"
-        }
-        #tailcall ansifreestring_width $text
-        ansifreestring_width $text
-    }
-
-    #todo - consider disallowing/erroring out when \r \n in string?
-    # - tab/vtab?
-    # - compare with wcswidth returning -1 for entire string containing such in python,perl
-    proc wcswidth {string} {
-        #faster than textutil::wcswidth (at least for string up to a few K in length)
-        #..but - 'scan' is horrible for 400K+ (Tcl evaluation stack has to be reallocated/copied?)
-        #Tcl initial evaluation stack size is 2000 (? review)
-        #REVIEW - when we cater for grapheme clusters - we can't just split the string at arbitrary points like this!!
-        set chunksize 2000
-        set chunks_required [expr {int(ceil([tcl::string::length $string] / double($chunksize)))}]
-        set width 0
-        set startidx 0
-        set endidx [expr {$startidx + $chunksize -1}]
-        for {set i 0} {$i < $chunks_required} {incr i} {
-            set chunk [tcl::string::range $string $startidx $endidx]
-
-            set codes [scan $chunk [tcl::string::repeat %c [tcl::string::length $chunk]]]
-            foreach c $codes {
-                if {$c <= 255} {
-                    if {$c == 9 || ($c >= 31 && $c != 127)} {
-                        #review - non-printing ascii? why does textutil::wcswidth report 1 ??
-                        #todo - compare with python or other lang wcwidth
-                        incr width
-                    }
-                } elseif {$c < 917504 || $c > 917631} {
-                    #TODO - various other joiners and non-printing chars
-                    set w [textutil::wcswidth_char $c]
-                    if {$w < 0} {
-                        return -1
-                    } else {
-                        incr width $w
-                    }
-                }
-            }
-            incr startidx   $chunksize
-            incr endidx     $chunksize
-        }
-        return $width
-    }
-
-
-
-    # ------------------------------------------------------------------------------------------------------
-    #test
-    # ------------------------------------------------------------------------------------------------------
-    proc grapheme_split_tk {string} {
-        if {![regexp "\[\uFF-\U10FFFF\]" $string]} {
-            #only ascii (7 or 8 bit) - no joiners or unicode
-            return [split $string {}]
-        }
-        package require tk
-        set i 0
-        set graphemes [list]
-        while {$i < [tcl::string::length $string]} {
-            set aftercluster [tk::endOfCluster $string $i]
-            lappend graphemes [string range $string $i $aftercluster-1]
-            set i $aftercluster
-        }
-        return $graphemes
-    }
-    proc wcswidth_clustered {string} {
-        package require tk
-        set width 0
-        set i 0
-        if {![regexp "\[\uFF-\U10FFFF\]" $string]} {
-            return [punk::char::wcswidth_unclustered $string] ;#still use our wcswidth to account for non-printable ascii
-        }
-        while {$i < [tcl::string::length $string]} {
-            set aftercluster [tk::endOfCluster $string $i]
-            set g [string range $string $i $aftercluster-1]
-            if {$aftercluster > ($i + 1)} {
-                #review - proper way to determine screen width (columns occupied) of a cluster??
-                #according to this:
-                #https://lib.rs/crates/unicode-display-width
-                #for each grapheme - if any of the code points in the cluster have an east asian width of 2,
-                #The entire grapheme width is 2 regardless of how many code points constitute the grapheme
-                set gw 1
-                foreach ch [split $g ""] {
-                    if {[punk::char::wcswidth_single $ch] == 2} {
-                        set gw 2
-                        break
-                    }
-                }
-                incr width $gw
-
-                #if {[string first \u200d $g] >=0} {
-                #    incr width 2
-                #} else {
-                #    #other joiners???
-                #    incr width [wcswidth_unclustered $g]
-                #}
-            } else {
-                incr width [wcswidth_unclustered $g]
-            }
-            set i $aftercluster
-        }
-
-        return $width
-    }
-    proc wcswidth_single {char} {
-        scan $char %c dec
-        if {$dec <= 255} {
-            if {$dec == 9} {
-                #tab always represented by at least one char in terminal etc.
-                #caller will need to process tabs themselves to determine extra width applicable to their circumstance.
-                return 1
-            }
-            if {($dec < 31 || $dec == 127)} {
-                return 0
-            }
-            #review - non-printing ascii? why does textutil::wcswidth report 1 ??
-            #todo - compare with python or other lang wcwidth
-            return 1
-        } elseif {$dec < 917504 || $dec > 917631} {
-            #TODO - various other joiners and non-printing chars
-            return [textutil::wcswidth_char $dec] ;#note textutil::wcswidth_char takes a decimal codepoint!
-            #may return -1 - REVIEW
-        }
-        return 0
-    }
-    proc wcswidth_unclustered1 {string} {
-        set width 0
-        foreach c [split $string {}] {
-            scan $c %c dec
-            if {$dec <= 255} {
-                if {$dec == 9 || ($dec >= 31 && $dec != 127)} {
-                    #review - non-printing ascii? why does textutil::wcswidth report 1 ??
-                    #todo - compare with python or other lang wcwidth
-                    incr width
-                }
-            } elseif {$dec < 917504 || $dec > 917631} {
-                #TODO - various other joiners and non-printing chars
-                set w [textutil::wcswidth_char $dec] ;#takes decimal codepoint
-                if {$w < 0} {
-                    return -1
-                } else {
-                    incr width $w
-                }
-            }
-        }
-        return $width
-    }
-    #todo - consider disallowing/erroring out when \r \n in string?
-    # - tab/vtab?
-    # - compare with wcswidth returning -1 for entire string containing such in python,perl
-    proc wcswidth_unclustered {string} {
-        #faster than textutil::wcswidth (at least for string up to a few K in length)
-        #..but - 'scan' is horrible for 400K+ (Tcl evaluation stack has to be reallocated/copied?)
-        #Tcl initial evaluation stack size is 2000 (? review)
-        #we can only split the string at arbitrary points like this because we are specifically dealing with input that has no clusters!.
-        set chunksize 2000
-        set chunks_required [expr {int(ceil([tcl::string::length $string] / double($chunksize)))}]
-        set width 0
-        set startidx 0
-        set endidx [expr {$startidx + $chunksize -1}]
-        for {set i 0} {$i < $chunks_required} {incr i} {
-            set chunk [tcl::string::range $string $startidx $endidx]
-
-            set codes [scan $chunk [tcl::string::repeat %c [tcl::string::length $chunk]]]
-            foreach dec $codes {
-                if {$dec <= 255} {
-                    if {($dec ==9 || ($dec >= 31 && $dec != 127))} {
-                        #review - non-printing ascii? why does textutil::wcswidth report 1 ??
-                        #todo - compare with python or other lang wcswidth
-                        incr width
-                    }
-                } elseif {$dec < 917504 || $dec > 917631} {
-                    #TODO - various other joiners and non-printing chars
-                    set w [textutil::wcswidth_char $dec]
-                    if {$w < 0} {
-                        return -1
-                    } else {
-                        incr width $w
-                    }
-                }
-            }
-            incr startidx   $chunksize
-            incr endidx     $chunksize
-        }
-        return $width
-    }
-    # ------------------------------------------------------------------------------------------------------
-
-    proc wcswidth0 {string} {
-        #faster than textutil::wcswidth (at least for string up to a few K in length)
-        #..but - 'scan' is horrible for 400K+
-        #TODO
-        set codes [scan $string [tcl::string::repeat %c [tcl::string::length $string]]]
-        set width 0
-        foreach dec $codes {
-            #unicode Tags block zero width
-            if {$dec < 917504 || $dec > 917631} {
-                if {$dec <= 255} {
-                    #review - non-printing ascii? why does textutil::wcswidth report 1 ??
-                    #todo - compare with python or other lang wcwidth
-                    if {!($dec < 31 || $dec == 127)} {
-                        incr width
-                    }
-                } else {
-                    #TODO - various other joiners and non-printing chars
-                    set w [textutil::wcswidth_char $dec] ;#takes decimal codepoint
-                    if {$w < 0} {
-                    return -1
-                    } else {
-                    incr width $w
-                    }
-                }
-            }
-        }
-        return $width
-    }
-    proc wcswidth2 {string} {
-        set codes [scan $string [tcl::string::repeat %c [tcl::string::length $string]]]
-        set widths [lmap dec $codes {textutil::wcswidth_char $dec}]
-        if {-1 in $widths} {
-            return -1
-        }
-        return [tcl::mathop::+ {*}$widths]
-    }
-
-    #prerequisites - no ansi escapes -  no newlines  - utf8 encoding assumed
-    #review - what about \r \t \b ?
-    #NO processing of \b - already handled in ansi::printing_length which then calls this
-    #this version breaks string into sequences of ascii vs unicode
-    proc ansifreestring_width {text} {
-        #caller responsible for calling ansistrip first if text may have ansi codes - and for ensuring no newlines
-        #we can c0 control characters after or while processing ansi escapes.
-        #we need to map remaining control characters to zero-width (under assumption we're not using a font/codepage that displays them - review!)
-        #anyway - we must allow things like raw ESC,DEL, NUL etc to pass through without error
-        #if {[tcl::string::first \033 $text] >= 0} {
-        #    error "string_width doesn't accept ansi escape sequences. Use punk::ansi::ansistrip first"
-        #}
-
-
-        #todo - various combining diacritical marks.. from grave - to various complicated unicode joiners and composing chars etc
-        #as at 2023 - terminals generally seem to use the simplistic approach of tallying up individual character-widths, which means combinations that print short are reported too long by the terminal esc 6 n sequence.
-
-
-        #- {Combining Diacritical Marks} {ranges {{start 768 end 879 note {unicode block 0300..036F}}} description {} settype block}
-        #- {Combining Diacritical Marks Extended} {ranges {{start 6832 end 6911 note {unicode block 1AB0..1AFF}}} description {} settype block}
-        #- {Combining Diacritical Marks Supplement} {ranges {{start 7616 end 7679 note {unicode block 1DC0..1DFF}}} description {} settype block}
-        #- {Combining Diacritical Marks for Symbols} {ranges {{start 8400 end 8447 note {unicode block 20D0..20FF}}} description {} settype block}
-        #- {Combining Half Marks} {ranges {{start 65056 end 65071 note {unicode block FE20..FE2F}}} description {} settype block}
-        #
-        # initial simplistic approach is just to strip these ... todo REVIEW
-
-        #experiment to detect leading diacritics - but this isn't necessary - it's still zero-width - and if the user is splitting properly we shouldn't be getting a string with leading diacritics anyway
-        #(leading combiners may display in terminal as mark on rightmost prompt char which is usually a space - but won't add width even then)
-        #set re_leading_diacritic {^(?:[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+)}
-        #if {[regexp $re_leading_diacritic $text]} {
-        #    set text " $text"
-        #}
-        set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-        set text [regsub -all $re_diacritics $text ""]
-
-        # -- --- --- --- --- --- ---
-        #review
-        #if we strip out ZWJ \u200d (zero width combiner) - then we don't give the chance for a grapheme combining test to merge properly e.g combining emojis
-        #as at 2024 - textutil::wcswidth just uses the unicode east-asian width property data and doesn't seem to handle these specially - it counts this joiner and others as one wide (also BOM \uFFEF)
-
-        #TODO - once we have proper grapheme cluster splitting - work out which of these characters should be left in and/or when exactly their length-effects apply
-        #
-        #for now - strip them out
-
-        #ZWNJ \u200c should also be zero length - but as a 'non' joiner - it should add zero to the length
-        #ZWSP \u200b zero width space
-
-        #\uFFEFBOM/ ZWNBSP and others that should be zero width
-        #todo - work out proper way to mark/group zero width.
-
-        #set text [tcl::string::map [list \u200b "" \u200c "" \u200d "" \uFFEF ""] $text]
-        set text [tcl::string::map [list \u200b "" \u200c "" \u200d ""] $text]
-        #\uFFEF tends to print as 1 length replacement char - REVIEW
-        #\uFFFF varies between terminals - some print replacement char (width 1) some print nothing (width 0)
-        # -- --- --- --- --- --- ---
-
-        #we should only map control sequences to nothing after processing ones with length effects, such as \b (\x07f) or DEL \x1f
-        #todo - document that these shouldn't be present in input rather than explicitly checking here
-
-        #c0 controls + del (127 7f) - tab
-        #set re_ascii_c0 {[\U0000-\U001F]}
-        set re_ascii_c0 {[\u0000-\u0008\u000A-\u001F\u007F]}
-        set text [regsub -all $re_ascii_c0 $text ""]
-
-        #c1 controls - first section of the Latin-1 Supplement block - all non-printable from a utf-8 perspective
-        #some or all of these may have a visual representation in other encodings e.g cp855 seems to have 1 width for them all
-        #we are presuming that the text supplied has been converted from any other encoding to utf8 - so we don't need to handle that here
-        #they should also be unlikely to be present in an ansi-free string (as is a precondition for use of this function)
-        set text [regsub -all {[\u0080-\u009f]+} $text ""]
-
-
-        #short-circuit basic cases
-        #support tcl pre 2023-11 - see regexp bug below
-        #if {![regexp {[\uFF-\U10FFFF]} $text]} {
-        #    return [tcl::string::length $text]
-        #}
-        if {![regexp "\[\uFF-\U10FFFF\]" $text]} {
-            return [tcl::string::length $text]
-            #punk::char::wcswidth has to split and examine dec value of each code
-            #By stripping controls + 7F (leaving tab) we've already eliminated the non-printable ascii - REVIEW
-            #return [punk::char::wcswidth $text] ;#still use our wcswidth to account for non-printable ascii
-        }
-
-        #split just to get the standalone character widths - and then scan for other combiners (?) - or scan for clusters first?
-
-        #review
-        #set can_regex_high_unicode [tcl::string::match [regexp -all -inline {[\U80-\U0010FFFF]} \U0001F525] \U0001F525]
-        #tcl pre 2023-11 - braced high unicode regexes don't work
-        #fixed in bug-4ed788c618 2023-11
-        #set uc_chars [regexp -all -inline "\[\u0100-\U10FFFF\]" $text] ;#e.g return list of chars in range only
-
-        #maintain unicode as sequences - todo - scan for grapheme clusters
-        #set uc_sequences [punk::ansi::ta::_perlish_split "(?:\[\u0100-\U10FFFF\])+" $text]
-        set uc_sequences [punk::ansi::ta::_perlish_split "(?:\[\u0000-\u00FF\])+" $text]
-        set len 0
-        foreach {uc ascii} $uc_sequences {
-            #puts "-ascii $ascii"
-            #puts "-uc $uc"
-            incr len [tcl::string::length $ascii]
-            #textutil::wcswidth uses unicode data
-            #fall back to textutil::wcswidth (which doesn't for example handle diactricts/combiners so we can't use until these and other things such as \u200b and diacritics are already stripped/accounted for)
-            #todo - find something that understands grapheme clusters - needed also for grapheme_split
-            #use punk::char::wcswidth - faster than the string split in textutil::wcswidth but still uses textutil::wcswidth_char
-            incr len [punk::char::wcswidth $uc]
-        }
-        #todo - work out what to do with anomalies like grave combiner which print at different lengths on different terminals (fonts?) and for which cursor-query escape sequence lies.
-        return $len
-    }
-
-    #kept as a fallback for review/test if textutil::wcswidth doesn't do what we require on all terminals.
-    #this version looks at console testwidths if they've been cached.
-    #It is relatively fast - but tests unicode widths char by char - so won't be useful going forward for grapheme clusters.
-    proc ansifreestring_width2 {text} {
-        #caller responsible for calling ansistrip first if text may have ansi codes - and for ensuring no newlines
-
-
-
-        #we can c0 control characters after or while processing ansi escapes.
-        #we need to map remaining control characters to zero-width (under assumption we're not using a font/codepage that displays them - review!)
-        #anyway - we must allow things like raw ESC,DEL, NUL etc to pass through without error
-        #if {[tcl::string::first \033 $text] >= 0} {
-        #    error "string_width doesn't accept ansi escape sequences. Use punk::ansi::ansistrip first"
-        #}
-
-
-        #todo - various combining diacritical marks.. from grave - to various complicated unicode joiners and composing chars etc
-        #as at 2023 - terminals generally seem to use the simplistic approach of tallying up individual character-widths, which means combinations that print short are reported too long by the terminal esc 6 n sequence.
-
-
-        #- {Combining Diacritical Marks} {ranges {{start 768 end 879 note {unicode block 0300..036F}}} description {} settype block}
-        #- {Combining Diacritical Marks Extended} {ranges {{start 6832 end 6911 note {unicode block 1AB0..1AFF}}} description {} settype block}
-        #- {Combining Diacritical Marks Supplement} {ranges {{start 7616 end 7679 note {unicode block 1DC0..1DFF}}} description {} settype block}
-        #- {Combining Diacritical Marks for Symbols} {ranges {{start 8400 end 8447 note {unicode block 20D0..20FF}}} description {} settype block}
-        #- {Combining Half Marks} {ranges {{start 65056 end 65071 note {unicode block FE20..FE2F}}} description {} settype block}
-        #
-        # initial simplistic approach is just to strip these ... todo REVIEW
-
-        #experiment to detect leading diacritics - but this isn't necessary - it's still zero-width - and if the user is splitting properly we shouldn't be getting a string with leading diacritics anyway
-        #(leading combiners may display in terminal as mark on rightmost prompt char which is usually a space - but won't add width even then)
-        #set re_leading_diacritic {^(?:[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+)}
-        #if {[regexp $re_leading_diacritic $text]} {
-        #    set text " $text"
-        #}
-        set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-        set text [regsub -all $re_diacritics $text ""]
-
-        #review
-        #if we strip out ZWJ \u0200d (zero width combiner) - then we don't give the chance for a grapheme combining test to merge properly e.g combining emojis
-        #as at 2024 - textutil::wcswidth doesn't seem to be aware of these - and counts the joiner as one wide
-
-        #ZWNJ \u0200c should also be zero length - but as a 'non' joiner - it should add zero to the length
-
-        #ZWSP \u0200b zero width space
-
-
-        #we should only map control sequences to nothing after processing ones with length effects, such as \b (\x07f) or DEL \x1f
-        #todo - document that these shouldn't be present in input rather than explicitly checking here
-        set re_ascii_c0 {[\U0000-\U001F]}
-        set text [regsub -all $re_ascii_c0 $text ""]
-
-        #short-circuit basic cases
-        #support tcl pre 2023-11 - see regexp bug below
-        #if {![regexp {[\uFF-\U10FFFF]} $text]} {
-        #    return [tcl::string::length $text]
-        #}
-        if {![regexp "\[\uFF-\U10FFFF\]" $text]} {
-            return [tcl::string::length $text]
-        }
-
-        #review - wcswidth should detect these
-        set re_ascii_fullwidth {[\uFF01-\uFF5e]}
-
-        set doublewidth_char_count 0
-        set zerowidth_char_count 0
-        #split just to get the standalone character widths - and then scan for other combiners (?)
-        #review
-        #set can_regex_high_unicode [tcl::string::match [regexp -all -inline {[\U80-\U0010FFFF]} \U0001F525] \U0001F525]
-        #tcl pre 2023-11 - braced high unicode regexes don't work
-        #fixed in bug-4ed788c618 2023-11
-        #set uc_sequences [regexp -all -inline -indices {[\u0100-\U10FFFF]} $text]
-        #set uc_sequences [regexp -all -inline -indices "\[\u0100-\U10FFFF\]" $text] ;#e.g for string: \U0001f9d1abc\U001f525ab returns {0 0} {4 4}
-        set uc_chars [regexp -all -inline "\[\u0100-\U10FFFF\]" $text] ;#e.g return list of chars in range only
-        foreach c $uc_chars {
-            if {[regexp $re_ascii_fullwidth $c]} {
-                incr doublewidth_char_count
-            } else {
-                #review
-                # a)- terminals lie - so we could have a bad cached testwidth
-                # b)- textutil::wcswidth_char seems to be east-asian-width based - and not a reliable indicator of 'character cells taken by the character when printed to the terminal' despite this statement in tclllib docs.
-                #(character width is a complex context-dependent topic)
-                # c) by checking for a cached console testwidth first - we make this function less deterministic/repeatable depending on whether console tests have been run.
-                # d) Upstream caching of grapheme_width may also lock in a result from whatever method was first employed here
-                #Despite all this - the mechanism is hoped to give best effort consistency for terminals
-                #further work needed for combining emojis etc - which can't be done in a per character loop
-                #todo - see if wcswidth does any of this. It is very slow for strings that include mixed ascii/unicode - so perhaps we can use a perlish_split
-                # to process sequences of unicode.
-                #- and the user has the option to test character sets first if terminal position reporting gives better results
-                if {[char_info_is_testwidth_cached $c]} {
-                    set width [char_info_testwidth_cached $c]
-                } else {
-                    #textutil::wcswidth uses unicode data
-                    #fall back to textutil::wcswidth (which doesn't for example handle diactricts/combiners so we can't use until these and other things such as \u200b and diacritics are already stripped/accounted for)
-                    set width [textutil::wcswidth_char [scan $c %c]]
-                }
-                if {$width == 0} {
-                    incr zerowidth_char_count
-                } elseif {$width == 2} {
-                    incr doublewidth_char_count
-                }
-            }
-        }
-        #todo - work out what to do with anomalies like grave combiner which print at different lengths on different terminals (fonts?) and for which cursor-query escape sequence lies.
-        return [expr {[tcl::string::length $text] + $doublewidth_char_count - $zerowidth_char_count}]
-    }
-
-    #slow - textutil::wcswidth is slow with mixed ascii uc
-    proc ansifreestring_width3 {text} {
-        #caller responsible for calling ansistrip first if text may have ansi codes - and for ensuring no newlines
-
-
-
-        #we can c0 control characters after or while processing ansi escapes.
-        #we need to map remaining control characters to zero-width (under assumption we're not using a font/codepage that displays them - review!)
-        #anyway - we must allow things like raw ESC,DEL, NUL etc to pass through without error
-        #if {[tcl::string::first \033 $text] >= 0} {
-        #    error "string_width doesn't accept ansi escape sequences. Use punk::ansi::ansistrip first"
-        #}
-
-
-        #review - work out what to do with anomalies like grave combiner which print at different lengths on different terminals (fonts?) and for which cursor-query escape sequence lies.
-        # - various combining diacritical marks.. from grave - to various complicated unicode joiners and composing chars etc
-        #as at 2023 - terminals generally seem to use the simplistic approach of tallying up individual character-widths, which means combinations that print short are reported too long by the terminal esc 6 n sequence.
-
-        #- {Combining Diacritical Marks} {ranges {{start 768 end 879 note {unicode block 0300..036F}}} description {} settype block}
-        #- {Combining Diacritical Marks Extended} {ranges {{start 6832 end 6911 note {unicode block 1AB0..1AFF}}} description {} settype block}
-        #- {Combining Diacritical Marks Supplement} {ranges {{start 7616 end 7679 note {unicode block 1DC0..1DFF}}} description {} settype block}
-        #- {Combining Diacritical Marks for Symbols} {ranges {{start 8400 end 8447 note {unicode block 20D0..20FF}}} description {} settype block}
-        #- {Combining Half Marks} {ranges {{start 65056 end 65071 note {unicode block FE20..FE2F}}} description {} settype block}
-        #
-        # initial simplistic approach is just to strip these ... todo REVIEW
-
-        #experiment to detect leading diacritics - but this isn't necessary - it's still zero-width - and if the user is splitting properly we shouldn't be getting a string with leading diacritics anyway
-        #(leading combiners may display in terminal as mark on rightmost prompt char which is usually a space - but won't add width even then)
-        #set re_leading_diacritic {^(?:[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+)}
-        #if {[regexp $re_leading_diacritic $text]} {
-        #    set text " $text"
-        #}
-        set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-        set text [regsub -all $re_diacritics $text ""]
-
-        #we should only map control sequences to nothing after processing ones with length effects, such as \b (\x07f) or DEL \x1f
-        #todo - document that these shouldn't be present in input rather than explicitly checking here
-        set re_ascii_c0 {[\U0000-\U001F]}
-        set text [regsub -all $re_ascii_c0 $text ""]
-
-        #short-circuit basic cases
-        #support tcl pre 2023-11 - see regexp bug below
-        #if {![regexp {[\uFF-\U10FFFF]} $text]} {
-        #    return [tcl::string::length $text]
-        #}
-        if {![regexp "\[\uFF-\U10FFFF\]" $text]} {
-            return [tcl::string::length $text]
-        }
-
-        #slow when ascii mixed with unicode (but why?)
-        return [punk::char::wcswidth $text]
-    }
-    #This shouldn't be called on text containing ansi codes!
-    proc strip_nonprinting_ascii {str} {
-        #review - some single-byte 'control' chars have visual representations e.g ETX as heart depending on font/codepage
-        #It is currently used for screen display width calculations
-        #equivalent for various unicode combining chars etc?
-        set map [list\
-            \x00 ""\
-            \x07 ""\
-            \x7f ""\
-        ]
-        return [tcl::string::map $map $str]
-    }
-
-    #todo - lookup from unicode tables
-    variable flags [dict create\
-        AU \U1F1E6\U1F1FA\
-        US \U1F1FA\U1F1F8\
-        ZW \U1F1FF\U1F1FC
-    ]
-    variable rflags
-    dict for {k v} $flags {
-        dict set rflags $v $k
-    }
-
-
-    proc flag_from_ascii {code} {
-        variable flags
-        if {[regexp {^[A-Z]{2}$} $code]} {
-            if {[dict exists $flags $code]} {
-                return [dict get $flags $code]
-            } else {
-                error "unsupported flags code: $code"
-            }
-        } else {
-             #try as subregion
-             #e.g gbeng,gbwls,gbsct
-             return \U1f3f4[tag_from_ascii $code]\Ue007f
-        }
-    }
-    proc flag_to_ascii {charsequence} {
-        variable rflags
-        if {[dict exists $rflags $charsequence]} {
-            return [dict get $rflags $charsequence]
-        }
-        if {[string index $charsequence 0] eq "\U1F3F4" && [string index $charsequence end] eq "\UE007F"} {
-            #subdivision flag
-            set tag [string range $charsequence 1 end-1]
-            return [tag_to_ascii $tag]
-        }
-        error "unknown flag $charsequence"
-    }
-
-    proc tag_to_ascii {t} {
-        set fmt [string repeat %c [string length $t]]
-        set declist [scan $t $fmt]
-        #unicode Tags block - e0000 to e007f
-        set declist [lmap dec $declist {
-                if {$dec < 917504 || $dec > 917631} {
-                        error "char [ansistring VIEW -lf 1 -cr 1 -vt 1 [format %c $dec]] has decimal value $dec. Not in unicode Tags block range 917504-917631 (e0000-e007f)"
-                }
-                incr dec -917504
-        }]
-        return [format $fmt {*}$declist]
-    }
-    proc tag_from_ascii {a} {
-        set fmt [string repeat %c [string length $a]]
-        set declist [scan $a $fmt]
-        set declist [lmap dec $declist {
-                if {$dec > 127} {
-                error "char [ansistring VIEW -lf 1 -cr 1 -vt 1 [format %c $dec]] has decimal value $dec. Not in ascii range 0-127"
-                }
-                incr dec 917504
-        }]
-        return [format $fmt {*}$declist]
-    }
-
-    #split into plaintext and runs of combiners (combining diacritical marks - not ZWJ or ZWJNJ)
-    proc combiner_split {text} {
-        #split into odd numbered list (or zero) in a similar way to punk::ansi::ta::_perlish_split
-        #
-        #set re_diacritics {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+}
-        set graphemes [list]
-        if {[tcl::string::length $text] == 0} {
-            return {}
-        }
-        set list [list]
-        set start 0
-        set strlen [tcl::string::length $text]
-        #make sure our regexes aren't non-greedy - or we may not have exit condition for loop
-        #review
-        while {$start < $strlen && [regexp -start $start -indices -- {[\u0300-\u036f]+|[\u1ab0-\u1aff]+|[\u1dc0-\u1dff]+|[\u20d0-\u20ff]+|[\ufe20-\ufe2f]+} $text match]} {
-            lassign $match      matchStart matchEnd
-            #puts "->start $start ->match $matchStart $matchEnd"
-            lappend list [tcl::string::range $text $start $matchStart-1] [tcl::string::range $text $matchStart $matchEnd]
-            set start [expr {$matchEnd+1}]
-        }
-        lappend list [tcl::string::range $text $start end]
-    }
-
-    #ZWJ ZWNJ ?
-    #SWSP ?
-
-    #1st shot - basic diacritics
-    #todo - become aware of unicode grapheme cluster boundaries
-    #This is difficult in Tcl without unicode property based Character Classes in the regex engine
-    #review - this needs to be performant - it is used a lot by punk terminal/ansi features
-    #todo - trie data structures for unicode?
-    #for now we can at least combine diacritics
-    #should also handle the ZWJ (and the variation selectors? eg \uFE0F) character which should account for emoji clusters
-    #Note - emoji cluster could be for example 11 code points/41 bytes (family emoji with skin tone modifiers for each member, 3 ZWJs)
-    #This still leaves a whole class of clusters.. korean etc unhandled :/
-    #todo - tk::startOfCluster / tk::endOfCluster - try to get it brought into Tcl
-    #https://core.tcl-lang.org/tcl/tktview/a4c7eeaf63
-    proc grapheme_split {text} {
-        set graphemes [list]
-        set csplits [combiner_split $text]
-        foreach {pt combiners} [lrange $csplits 0 end-1] {
-            set clist [split $pt ""]
-            lappend graphemes {*}[lrange $clist 0 end-1]
-            lappend graphemes [tcl::string::cat [lindex $clist end] $combiners]
-        }
-        #last csplit never has a combiner (_perlish_split style) - and may be empty - in which case we don't append it as a grapheme
-        if {[lindex $csplits end] ne ""} {
-            lappend graphemes {*}[split [lindex $csplits end] ""]
-        }
-        return $graphemes
-    }
-    proc grapheme_split_dec {text} {
-        set graphemes [list]
-        set csplits [combiner_split $text]
-        foreach {pt combiners} [lrange $csplits 0 end-1] {
-            set pt_decs [scan $pt [tcl::string::repeat %c [tcl::string::length $pt]]] ;#warning scan %c... slow for v large strings (e.g 400k+)
-            set combiner_decs [scan $combiners [tcl::string::repeat %c [tcl::string::length $combiners]]]
-            lset pt_decs end [concat [lindex $pt_decs end] $combiner_decs]
-            lappend graphemes {*}$pt_decs
-        }
-        #last csplit never has a combiner (_perlish_split style) - and may be empty - in which case we don't append it as a grapheme
-        if {[lindex $csplits end] ne ""} {
-            lappend graphemes {*}[scan [lindex $csplits end] [tcl::string::repeat %c [tcl::string::length [lindex $csplits end]]]]
-        }
-        return $graphemes
-    }
-    proc grapheme_split_dec2 {text} {
-        set graphemes [list]
-        set csplits [combiner_split $text]
-        foreach {pt combiners} $csplits {
-            set pt_decs [scan $pt [tcl::string::repeat %c [tcl::string::length $pt]]]
-            if {$combiners ne ""} {
-                set combiner_decs [scan $combiners [tcl::string::repeat %c [tcl::string::length $combiners]]]
-                lset pt_decs end [concat [lindex $pt_decs end] $combiner_decs]
-            }
-            lappend graphemes {*}$pt_decs
-        }
-        return $graphemes
-    }
-    proc grapheme_split2 {text} {
-        set graphemes [list]
-        set csplits [combiner_split $text]
-        foreach {pt combiners} [lrange $csplits 0 end-1] {
-            set clist [split $pt ""]
-            lappend graphemes {*}[lrange $clist 0 end-1] [tcl::string::cat [lindex $clist end] $combiners]
-        }
-        #last csplit never has a combiner (_perlish_split style) - and may be empty - in which case we don't append it as a grapheme
-        if {[lindex $csplits end] ne ""} {
-            lappend graphemes {*}[split [lindex $csplits end] ""]
-        }
-        return $graphemes
-    }
-
-    # -- --- --- --- ---
-    #will accept a single char or a string - test using console cursor position reporting
-    #unreliable
-    proc char_info_testwidth {ch {emit 0}} {
-        package require punk::console
-        #uses cursor movement and relies on console to report position.. which it may do properly for single chars - but may misreport for combinations that combine into a single glyph
-        tailcall punk::console::test_char_width $ch $emit
-    }
-    proc char_info_testwidth_cached {char} {
-        variable charinfo
-        set dec [scan $char %c]
-        set twidth ""
-        if {[tcl::dict::exists $charinfo $dec testwidth]} {
-            set twidth [tcl::dict::get $charinfo $dec testwidth]
-        }
-        if {$twidth eq ""} {
-            set width [char_info_testwidth $char]
-            tcl::dict::set charinfo $dec testwidth $width
-            return $width
-        } else {
-            return $twidth
-        }
-    }
-    proc char_info_is_testwidth_cached {char} {
-        variable charinfo
-        return [tcl::dict::exists $charinfo [scan $char %c] testwidth]
-    }
-    # -- --- --- --- ---
-
-
-}
-
-
-tcl::namespace::eval punk::char::lib {
-    variable num_superscript
-    #digits and a small set of related symbols
-    set num_superscript [list\
-        i   \u2071\
-        0   \u2070\
-        1   \u00B9\
-        2   \u00B2\
-        3   \u00B3\
-        4   \u2074\
-        5   \u2075\
-        6   \u2076\
-        7   \u2077\
-        8   \u2078\
-        9   \u2079\
-        +   \u207A\
-        -   \u207B\
-        =   \u207C\
-        (   \u207D\
-        )   \u207E\
-        n   \u207F\
-    ]
-    variable num_supersub_re
-    set num_supersub_re {^[0-9in+\-\(\)\=]+$}
-    proc superscript_number {n} {
-        if {$n eq ""} {return ""}
-        variable num_superscript
-        variable num_supersub_re
-        if {![regexp $num_supersub_re $n]} {
-            error "Cannot convert string '$n' to superscript. valid chars: [dict keys $num_superscript]"
-        }
-        return [string map $num_superscript $n]
-    }
-    set num_subscript [list\
-        i       \u1D62\
-        0       \u2080\
-        1       \u2081\
-        2       \u2082\
-        3       \u2083\
-        4       \u2084\
-        5       \u2085\
-        6       \u2086\
-        7       \u2087\
-        8       \u2088\
-        9       \u2089\
-        +       \u208A\
-        -       \u208B\
-        =       \u208C\
-        (       \u208D\
-        )       \u208E\
-        n       \u2099\
-    ]
-    proc subscript_number {n} {
-        if {$n eq ""} {return ""}
-        variable num_subscript
-        variable num_supersub_re
-        if {![regexp $num_supersub_re $n]} {
-            error "Cannot convert string '$n' to subcript. valid chars: [dict keys $num_subscript]"
-        }
-        return [string map $num_subscript $n]
-    }
-}
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::char [tcl::namespace::eval punk::char {
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/config-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/config-0.1.tm
deleted file mode 100644
index 8d5a5dca..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/config-0.1.tm
+++ /dev/null
@@ -1,670 +0,0 @@
-
-tcl::namespace::eval punk::config {
-    variable configdata [dict create] ;#key on config names. At least default, startup, running
-
-    #variable startup ;#include env overrides
-    #variable running
-
-    variable punk_env_vars
-    variable other_env_vars
-
-    variable vars
-
-    namespace export {[a-z]*}
-    namespace ensemble create
-    namespace eval punk {namespace export config}
-
-    proc _homedir {} {
-        if {[info exists ::env(HOME)]} {
-            set home [file normalize $::env(HOME)]
-        } else {
-            #not available on 8.6? ok will error out here.
-            set home [file tildeexpand ~]
-        }
-        return $home
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id     ::punk::config::dir
-        @cmd    -name   punk::config::dir -help\
-            "Get the path for the default config folder
-            Config files are in toml format.
-
-            The XDG_CONFIG_HOME env var is the preferred
-            choice of location.
-            A folder under the user's home directory,
-            at .config/punk/shell is chosen if
-            XDG_CONFIG_HOME is not configured.
-            "
-        @leaders -min 0 -max 0
-        @opts
-        -quiet -type none -help\
-            "Suppress warning given when the folder does
-              not yet exist"
-        @values -min 0 -max 0
-    }]
-    proc dir {args} {
-        #set be_quiet [dict exists $received -quiet]
-        if {"-quiet" in $args} {
-            set be_quiet 1
-        } else {
-            set be_quiet 0
-        }
-
-        set was_noisy 0
-
-        set config_home [punk::config::configure running xdg_config_home]
-
-        set config_dir [file join $config_home punk shell]
-
-        if {!$be_quiet && ![file exists $config_dir]} {
-            set msg         "punk::shell data storage folder at $config_dir does not yet exist."
-            puts stderr $msg
-            set was_noisy 1
-        }
-
-        if {!$be_quiet && $was_noisy} {
-            puts stderr "punk::config::dir - call with -quiet option to suppress these messages"
-        }
-        return $config_dir
-
-        #if {[info exists ::env(XDG_CONFIG_HOME)]} {
-        #    set config_home $::env(XDG_CONFIG_HOME)
-        #} else {
-        #    set config_home [file join [_homedir] .config]
-        #    if {!$be_quiet} {
-        #        puts stderr "Environment variable XDG_CONFIG_HOME does not exist - consider setting it if $config_home is not a suitable location"
-        #        set was_noisy 1
-        #    }
-        #}
-        #if {!$be_quiet && ![file exists $config_home]} {
-        #    #parent folder for 'punk' config dir doesn't exist
-        #    set msg "configuration location (XDG_CONFIG_HOME or ~/.config) $config_home does not yet exist"
-        #    append msg \n " - please create it and/or set XDG_CONFIG_HOME env var."
-        #    puts stderr $msg
-        #    set was_noisy 1
-        #}
-        #set config_dir [file join $config_home punk shell]
-        #if {!$be_quiet && ![file exists $config_dir]} {
-        #    set msg         "punk::shell data storage folder at $config_dir does not yet exist."
-        #    append msg \n   "  It will be created if api_context_save is called without specifying an alternate location."
-        #    puts stderr $msg
-        #    set was_noisy 1
-        #}
-        #if {!$be_quiet && $was_noisy} {
-        #    puts stderr "punk::config::dir - call with -quiet option to suppress these messages"
-        #}
-        #return [file join $configdir config.toml]
-    }
-
-    #todo - XDG_DATA_HOME etc
-    #https://specifications.freedesktop.org/basedir-spec/latest/
-    # see also: http://hiphish.github.io/blog/2020/08/30/dotfiles-were-a-mistake/
-
-    proc init {} {
-        variable configdata
-
-        #variable defaults
-        #variable startup
-        #variable running
-        variable punk_env_vars
-        variable punk_env_vars_config
-        variable other_env_vars
-        variable other_env_vars_config
-
-        set exename ""
-        catch {
-            #catch for safe interps
-            #safe base will return empty string, ordinary safe interp will raise error
-            set exename [tcl::info::nameofexecutable]
-        }
-        if {$exename ne ""} {
-            set exefolder [file dirname $exename]
-            #default file logs to logs folder at same level as exe if writable, or empty string
-            set log_folder [file normalize $exefolder/../logs] ;#~2ms
-            #tcl::dict::set startup scriptlib $exefolder/scriptlib
-            #tcl::dict::set startup apps $exefolder/../../punkapps
-
-            #todo - use punk main.tcl location instead - exefolder doesn't work if system tclsh used etc
-            set default_scriptlib $exefolder/scriptlib
-            set default_apps $exefolder/../../punkapps
-            if {[file isdirectory $log_folder] && [file writable $log_folder]} {
-                #tcl::dict::set startup logfile_stdout $log_folder/repl-exec-stdout.txt
-                #tcl::dict::set startup logfile_stderr $log_folder/repl-exec-stderr.txt
-                set default_logfile_stdout $log_folder/repl-exec-stdout.txt
-                set default_logfile_stderr $log_folder/repl-exec-stderr.txt
-            } else {
-                set default_logfile_stdout ""
-                set default_logfile_stderr ""
-            }
-        } else {
-            #probably a safe interp - which cannot access info nameofexecutable even if access given to the location via punk::island
-            #review - todo?
-            #tcl::dict::set startup scriptlib ""
-            #tcl::dict::set startup apps ""
-            set default_scriptlib ""
-            set default_apps ""
-            set default_logfile_stdout ""
-            set default_logfile_stderr ""
-        }
-
-        # auto_exec_mechanism ;#whether to use exec instead of experimental shellfilter::run
-
-        #optional channel transforms on stdout/stderr.
-        #can sometimes be useful to distinguish eventloop stdout/stderr writes compared to those triggered directly from repl commands
-        #If no distinction necessary - should use default_color_<chan>
-        #The counterpart: default_color_<chan>_repl is a transform that is added and removed with each repl evaluation.
-        #startup color_stdout - parameters as suitable for punk::ansi::a+ (test with 'punk::ansi::a?') e.g "cyan bold" ;#not a good idea to default
-        set default_color_stdout brightwhite         ;#stdout colour including  background calls (after etc)
-        set default_color_stdout_repl ""    ;#stdout colour applied during direct repl call only
-        #This wraps the stderr stream as it comes in with Ansi - probably best to default to empty.. but it's useful.
-        #set  default_color_stderr "red bold"
-        #set default_color_stderr "web-lightsalmon"
-        set default_color_stderr yellow  ;#limit to basic colours for wider terminal support. yellow = term-olive
-        set default_color_stderr_repl  "" ;#during repl call only
-
-        set homedir ""
-        if {[catch {
-            #depending on which build of tcl - some safe interps prior to bugfix https://core.tcl-lang.org/tcl/info/3aa487993f will return a homedir value in an unmodified safe interp
-            #other 'safe' interps may have explicitly made this available - we shouldn't override that decision here using interp issafe so we can't compensate for versions which shouldn't really be returning this in the safe interp
-            set homedir [file home]
-        } errM]} {
-            #tcl 8.6 doesn't have file home.. try again
-            if {[info exists ::env(HOME)]} {
-                set homedir $::env(HOME)
-            }
-        }
-
-
-        # per user xdg vars
-        # ---
-        set default_xdg_config_home "" ;#config data - portable
-        set default_xdg_data_home "" ;#data the user likely to want to be portable
-        set default_xdg_cache_home "" ;#local cache
-        set default_xdg_state_home "" ;#persistent user data such as logs, but not as important or as portable as those in xdg_data_home
-        # ---
-        set default_xdg_data_dirs "" ;#non-user specific
-        #xdg_config_dirs ?
-        #xdg_runtime_dir ?
-
-
-        #review. we are assuming if we can't get a home dir - then all the xdg vars including xdg_data_dirs aren't likely to be useful (as presumably filesystem access is absent)
-        #(safe interp generally won't have access to ::env either)
-        #This coupling doesn't necessarily hold - its possible the relevant env vars were copied to a safe interp - although that would be a policy that would make disabling 'info home' inconsistent.
-        if {$homedir ne ""} {
-            if {"windows" eq $::tcl_platform(platform)} {
-                #as much as I'd prefer to use ~/.local/share and ~/.config to keep them more consistent with unixlike platforms - the vast majority of apps put them where microsoft wants them.
-                #we have a choice of LOCALAPPDATA vs APPDATA  (local to machine vs potentially roaming/redirected in a corporate environment)
-                #using the roaming location should not impact users who aren't using a domain controller but is potentially much more convenient for those who do.
-                if {[info exists ::env(APPDATA)]} {
-                    #Typical existing/default value for env(APPDATA) on windows is c:\Users\<username>\AppData\Roaming
-                    set default_xdg_config_home $::env(APPDATA)
-                }
-
-                #The xdg_cache_home should be kept local
-                if {[info exists ::env(LOCALAPPDATA)]} {
-                    #Typical existing/default value for env(APPDATA) on windows is c:\Users\<username>\AppData\Local
-                    set default_xdg_data_home  $::env(LOCALAPPDATA)
-                    set default_xdg_cache_home $::env(LOCALAPPDATA)
-                    set default_xdg_state_home $::env(LOCALAPPDATA)
-                }
-
-                if {[info exists ::env(PROGRAMDATA)]} {
-                    #- equiv env(ALLUSERSPROFILE) ?
-                    set default_xdg_data_dirs $::env(PROGRAMDATA)
-                }
-
-            } else {
-                #follow defaults as specified on freedesktop.org e.g https://specifications.freedesktop.org/basedir-spec/latest/ar01s03.html
-                set default_xdg_config_home [file join $homedir .config]
-                set default_xdg_data_home   [file join $homedir .local share]
-                set default_xdg_cache_home  [file join $homedir .cache]
-                set default_xdg_state_home  [file join $homedir .local state]
-                set default_xdg_data_dirs   /usr/local/share
-            }
-        }
-
-        dict set configdata defaults [dict create\
-            apps                    $default_apps\
-            config                  "startup"\
-            configset               "main"\
-            scriptlib               $default_scriptlib\
-            color_stdout            $default_color_stdout\
-            color_stdout_repl       $default_color_stdout_repl\
-            color_stderr            $default_color_stderr\
-            color_stderr_repl       $default_color_stderr_repl\
-            logfile_stdout          $default_logfile_stdout\
-            logfile_stderr          $default_logfile_stderr\
-            logfile_active          0\
-            syslog_stdout           "127.0.0.1:514"\
-            syslog_stderr           "127.0.0.1:514"\
-            syslog_active           0\
-            auto_exec_mechanism     exec\
-            auto_noexec             0\
-            xdg_config_home         $default_xdg_config_home\
-            xdg_data_home           $default_xdg_data_home\
-            xdg_cache_home          $default_xdg_cache_home\
-            xdg_state_home          $default_xdg_state_home\
-            xdg_data_dirs           $default_xdg_data_dirs\
-            theme_posh_override     ""\
-            posh_theme              ""\
-            posh_themes_path        ""\
-        ]
-
-        dict set configdata startup [dict get $configdata defaults]
-        #load values from saved config file  - $xdg_config_home/punk/punk.config ?
-        #typically we want env vars to override the stored config - as env vars conventionally used on some commandlines.
-        #that's possibly ok for the PUNK_ vars
-        #however.. others like the xdg vars and NOCOLOR may apply to other apps.. and we may want to override them from the saved config?
-        #making some env vars override saved config values and some not would be potentially confusing. may need one/more specific settings or env vars to determine which takes precedence?
-        #simpler is probably just to let env vars take precedence - and warn when saving or viewing config that the saved values are being overridden
-        #- requiring user to manually unset any unwanted env vars when launching?
-
-        #we are likely to want the saved configs for subshells/decks to override them however.
-
-        #todo - load/save config file
-
-        #todo - define which configvars are settable in env
-        #list of varname varinfo where varinfo is a sub dictionary (type key is mandatory, with value from: string,pathlist,boolean)
-        set punk_env_vars_config [dict create \
-            PUNK_APPS                   {type pathlist}\
-            PUNK_CONFIG                 {type string}\
-            PUNK_CONFIGSET              {type string}\
-            PUNK_SCRIPTLIB              {type string}\
-            PUNK_AUTO_EXEC_MECHANISM    {type string}\
-            PUNK_AUTO_NOEXEC            {type string   default 0 help "set 1 to set Tcl's ::auto_noexec true.\nStops 'unknown' from running external programs"}\
-            PUNK_COLOR_STDERR           {type string   help "stderr colour transform. Use 'punk::ansi::a?' to see colour names"}\
-            PUNK_COLOR_STDERR_REPL      {type string   help "stderr colour transform only while command running (not active during 'after')"}\
-            PUNK_COLOR_STDOUT           {type string   help "stdout colour transform. Use 'punk::ansi::a?' to see colour names"}\
-            PUNK_COLOR_STDOUT_REPL      {type string   help "stdout colour transform only while command running (not active during 'after')"}\
-            PUNK_LOGFILE_STDOUT         {type string}\
-            PUNK_LOGFILE_STDERR         {type string}\
-            PUNK_LOGFILE_ACTIVE         {type string}\
-            PUNK_SYSLOG_STDOUT          {type string}\
-            PUNK_SYSLOG_STDERR          {type string}\
-            PUNK_SYSLOG_ACTIVE          {type string}\
-            PUNK_THEME_POSH_OVERRIDE    {type string}\
-            ]
-        set punk_env_vars [dict keys $punk_env_vars_config]
-
-        #override with env vars if set
-        foreach {evar varinfo} $punk_env_vars_config {
-            if {[info exists ::env($evar)]} {
-                set vartype [dict get $varinfo type]
-                set f [set ::env($evar)]
-                if {$f ne "default"} {
-                    #e.g PUNK_SCRIPTLIB -> scriptlib
-                    set varname [tcl::string::tolower [tcl::string::range $evar 5 end]]
-                    if {$vartype eq "pathlist"} {
-                        #colon vs semicolon path sep is problematic for windows environments where unix-like systems such as cygwin/wsl are used and a variable may be set for either the native path separator or the unix-like system
-                        #Even without the colon vs semicolon issue, native vs unix-like paths on windows mixed environment systems can cause grief.
-                        #For now at least, we will simply respect the platform pathSeparator and hope the user manages the environment variables appropriately.
-                        #some programs do automatic translation - which is a nice idea in principle - but is also prone to error as we don't know if it's already occurred or not depending on how things are launched.
-                        #An example of where this sort of thing can go wrong is env(TCLLIBPATH) - which is defined as a space separated list not requiring further splitting
-                        # - but some programs have been known to split this value on colon anyway, which breaks things on windows.
-                        set paths [split $f $::tcl_platform(pathSeparator)]
-                        set final [list]
-                        #eliminate empty values (leading or trailing or extraneous separators)
-                        foreach p $paths {
-                            if {[tcl::string::trim $p] ne ""} {
-                                lappend final $p
-                            }
-                        }
-                        tcl::dict::set configdata startup $varname $final
-                    } else {
-                        tcl::dict::set configdata startup $varname $f
-                    }
-                }
-            }
-        }
-
-        # https://no-color.org
-        #if {[info exists ::env(NO_COLOR)]} {
-        #    if {$::env(NO_COLOR) ne ""} {
-        #        set colour_disabled 1
-        #    }
-        #}
-        set other_env_vars_config [dict create\
-            NO_COLOR            {type string}\
-            XDG_CONFIG_HOME     {type string}\
-            XDG_DATA_HOME       {type string}\
-            XDG_CACHE_HOME      {type string}\
-            XDG_STATE_HOME      {type string}\
-            XDG_DATA_DIRS       {type pathlist}\
-            POSH_THEME          {type string}\
-            POSH_THEMES_PATH    {type string}\
-            TCLLIBPATH          {type string}\
-        ]
-        lassign [split [info tclversion] .] tclmajorv tclminorv
-        #don't rely on lseq or punk::lib for now..
-        set relevant_minors [list]
-        for {set i 0} {$i <= $tclminorv} {incr i} {
-            lappend relevant_minors $i
-        }
-        foreach minor $relevant_minors {
-            set vname TCL${tclmajorv}_${minor}_TM_PATH
-            if {$minor eq $tclminorv || [info exists ::env($vname)]} {
-                dict set other_env_vars_config $vname {type string}
-            }
-        }
-        set other_env_vars [dict keys $other_env_vars_config]
-
-        foreach {evar varinfo} $other_env_vars_config {
-            if {[info exists ::env($evar)]} {
-                set vartype [dict get $varinfo type]
-                set f [set ::env($evar)]
-                if {$f ne "default"} {
-                    set varname [tcl::string::tolower $evar]
-                    if {$vartype eq "pathlist"} {
-                        set paths [split $f $::tcl_platform(pathSeparator)]
-                        set final [list]
-                        #eliminate empty values (leading or trailing or extraneous separators)
-                        foreach p $paths {
-                            if {[tcl::string::trim $p] ne ""} {
-                                lappend final $p
-                            }
-                        }
-                        tcl::dict::set configdata startup $varname $final
-                    } else {
-                        tcl::dict::set configdata startup $varname $f
-                    }
-                }
-            }
-        }
-
-        set config_home [dict get $configdata startup xdg_config_home]
-
-        if {![file exists $config_home]} {
-            puts stderr "punk::config::init creating punk shell config dir: $config_home"
-            if {[catch {file mkdir $config_home} errM]} {
-                puts stderr "punk::config::init failed to create dir at $config_home\n$errM"
-            }
-        }
-
-        set configset   [dict get $configdata defaults configset]
-        set config      [dict get $configdata defaults config]
-
-        set startupfile [file join $config_home $configset $config.toml]
-        if {![file exists $startupfile]} {
-            puts stderr "punk::config::init creating punk shell config file: $config for configset: $configset"
-            puts stderr "(todo)"
-        }
-
-        #unset -nocomplain vars
-
-        #todo
-        set running [tcl::dict::create]
-        dict set configdata running [tcl::dict::merge $running [dict get $configdata startup]]
-    }
-
-    #todo
-    proc Apply {config} {
-        variable configdata
-        puts stderr "punk::config::Apply partially implemented"
-        set configname [string map {-config ""} $config]
-        if {$configname in {startup running}} {
-            set applyconfig [dict get $configdata $configname]
-
-            if {[dict exists $applyconfig auto_noexec]} {
-                set auto [dict get $applyconfig auto_noexec]
-                if {![string is boolean -strict $auto]} {
-                    error "config::Apply error - invalid data for auto_noexec:'$auto' - expected boolean"
-                }
-                if {$auto} {
-                    set ::auto_noexec 1
-                } else {
-                    #puts "auto_noexec false"
-                    unset -nocomplain ::auto_noexec
-                }
-            }
-
-        } else {
-            error "no config named '$config' found"
-        }
-        return "apply done"
-    }
-
-    #todo - consider how to divide up settings, categories, 'devices', decks etc
-    proc get_running_global {varname} {
-        variable configdata
-        set running [dict get $configdata running]
-        if {[dict exists $running $varname]} {
-            return [dict get $running $varname]
-        }
-        error "No such global configuration item '$varname' found in running config"
-    }
-    proc get_startup_global {varname} {
-        variable configdata
-        set startup [dict get $configdata startup]
-        if {[dict exists $startup $varname]} {
-            return [dict get $startup $varname]
-        }
-        error "No such global configuration item '$varname' found in startup config"
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::config::get
-        @cmd   -name punk::config::get -help\
-            "Get configuration values from a config.
-            Accepts globs eg XDG*"
-        @leaders -min 1 -max 1
-        #todo - load more whichconfig choices?
-        whichconfig -type any -choices {config startup-configuration running-configuration}
-        @values -min 0 -max -1
-        globkey -type string -default * -optional 1 -multiple 1
-    }]
-    proc get {args} {
-        set argd [punk::args::parse $args withid ::punk::config::get]
-        lassign [dict values $argd] leaders opts values received solos
-        set whichconfig [dict get $leaders whichconfig]
-        set globs       [dict get $values globkey] ;#list
-
-        variable configdata
-
-        switch -- $whichconfig {
-            config - startup-configuration {
-                #review 'config' ??
-                #show *startup* config - different behaviour may be confusing to those used to router startup and running configs
-                set configrecords [dict get $configdata startup]
-            }
-            running-configuration {
-                set configrecords [dict get $configdata running]
-            }
-            default {
-                error "Unknown config name '$whichconfig' - try startup or running"
-            }
-        }
-        if {"*" in $globs} {
-            return $configrecords
-        } else {
-            set keys [list]
-            foreach g $globs {
-                lappend keys {*}[dict keys $configrecords [string tolower $g]] ;#review tolower?
-            }
-
-            set filtered [dict create]
-            foreach k $keys {
-                dict set filtered $k [dict get $configrecords $k]
-            }
-            return $filtered
-        }
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::config::configure
-        @cmd   -name punk::config::configure -help\
-            "Get/set configuration values from a config"
-        @leaders -min 1 -max 1
-        whichconfig -type any -choices {defaults startup-configuration running-configuration}
-        @values -min 0 -max 2
-        key -type string -optional 1
-        newvalue -optional 1
-    }]
-    proc configure {args} {
-        set argd [punk::args::parse $args withid ::punk::config::configure]
-        lassign [dict values $argd] leaders opts values received solos
-        set whichconfig  [dict get $argd leaders whichconfig]
-        variable configdata
-        if {"running" ni [dict keys $configdata]} {
-            init
-            Apply startup
-        }
-        switch -- $whichconfig {
-            defaults {
-                set configrecords [dict get $configdata defaults]
-            }
-            startup-configuration {
-                set configrecords [dict get $configdata startup]
-            }
-            running-configuration {
-                set configrecords [dict get $configdata running]
-            }
-        }
-        if {![dict exists $received key]} {
-            return $configrecords
-        }
-        set key [dict get $values key]
-        if {![dict exists $received newvalue]} {
-            return [dict get $configrecords $key]
-        }
-        error "setting value not implemented"
-    }
-
-    namespace eval argdoc {
-        set DYN_GET_LEADERS {${[punk::args::resolved_def -types leaders ::punk::config::get]}}
-        set DYN_GET_VALUES  {${[punk::args::resolved_def -types values ::punk::config::get]}}
-
-        lappend PUNKARGS [list {
-            @dynamic
-            @id     -id ::punk::config::show
-            @cmd   -name punk::config::get -help\
-                "Display configuration values from a config.
-                Accepts globs eg XDG*"
-            @leaders -min 1 -max 1
-        }\
-        {${$DYN_GET_LEADERS}}\
-        "@values -min 0 -max -1"\
-        {${$DYN_GET_VALUES}}\
-        ]
-    }
-    proc show {args} {
-        #todo - tables for console
-        set configrecords [punk::config::get {*}$args]
-        return [punk::lib::showdict $configrecords]
-    }
-
-
-
-    #e.g
-    # copy running-config startup-config
-    # copy startup-config test-config.cfg
-    # copy backup-config.cfg running-config
-    #review - consider the merge vs overwrite feature of some routers.. where copy to running-config does a merge rather than an overwrite
-    #This is to allow partial configs to be loaded to running, whereas a save of running to any target is always a complete configuration
-    proc copy {args} {
-        set argdef {
-            @id     -id ::punk::config::copy
-            @cmd    -name punk::config::copy -help\
-                "Copy a partial or full configuration from one config to another
-                If a target config has additional settings, then the source config can be considered to be partial with regards to the target.
-                "
-            -type   -default ""     -choices {replace merge} -help\
-                "Defaults to merge when target is running-config
-                Defaults to replace when source is running-config"
-            @values -min 2 -max 2
-            fromconfig      -help\
-                "running or startup or file name (not fully implemented)"
-            toconfig      -help\
-                "running or startup or file name (not fully implemented)"
-        }
-        set argd [punk::args::parse $args withdef $argdef]
-        set fromconfig  [dict get $argd values fromconfig]
-        set toconfig    [dict get $argd values toconfig]
-        set fromconfig [string map {-config ""} $fromconfig]
-        set toconfig    [string map {-config ""} $toconfig]
-
-        set copytype [dict get $argd opts -type]
-
-
-        #todo - warn & prompt if doing merge copy to startup
-        switch -exact -- $fromconfig-$toconfig {
-            running-startup {
-                if {$copytype eq ""} {
-                    set copytype replace ;#full configuration
-                }
-                if {$copytype eq "replace"} {
-                    error "punk::config::copy error. full configuration copy from running to startup config not yet supported"
-                } else {
-                    error "punk::config::copy error. merge configuration copy from running to startup config not yet supported"
-                }
-            }
-            startup-running {
-                #default type merge - even though it's not always what is desired
-                if {$copytype eq ""} {
-                    set copytype merge ;#load in a partial configuration
-                }
-
-                #warn/prompt either way
-                if {$copytype eq "replace"} {
-                    #some routers require use of a separate command for this branch.
-                    #presumably to ensure the user doesn't accidentally load partials onto a running system
-                    #
-                    error "punk::config::copy error. full configuration copy from startup to overwrite running config not supported"
-                } else {
-                    error "punk::config::copy error. merge copy from possibly partial configuration: startup to running config not currently supported"
-                }
-            }
-            default {
-                error "punk::config::copy error. copy must from running to startup or startup to running. File sources/targets not yet supported"
-            }
-        }
-    }
-
-
-
-
-
-}
-
-
-
-
-
-#todo - move to cli?
-::tcl::namespace::eval punk::config {
-    #todo - something better - 'previous' rather than reverting to startup
-    proc channelcolors {{onoff {}}} {
-        variable configdata
-        #variable running
-        #variable startup
-
-        if {![string length $onoff]} {
-            return [list stdout [dict get $configdata running color_stdout] stderr [dict get $configdata running color_stderr]]
-        } else {
-            if {![string is boolean $onoff]} {
-                error "channelcolors: invalid value $onoff - expected boolean: true|false|on|off|1|0|yes|no"
-            }
-            if {$onoff} {
-                dict set configdata running color_stdout [dict get $startup color_stdout]
-                dict set configdata running color_stderr [dict get $startup color_stderr]
-            } else {
-                dict set configdata running color_stdout ""
-                dict set configdata running color_stderr ""
-            }
-        }
-        return [list stdout [dict get $configdata running color_stdout] stderr [dict get $configdata running color_stderr]]
-    }
-
-}
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::config
-}
-
-
-package provide punk::config [tcl::namespace::eval punk::config {
-	variable version
-	set version 0.1
-
-}]
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm
deleted file mode 100644
index b8b56d23..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm
+++ /dev/null
@@ -1,2720 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::console 0.1.1
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::console 0 0.1.1]
-#[copyright "2024"]
-#[titledesc {punk console}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk console}]             [comment {-- Description at end of page heading --}] 
-#[require punk::console]
-#[keywords module console terminal]
-#[description]
-#[para]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::console
-#[subsection Concepts]
-#[para]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::console
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require Thread  ;#tsv required to sync is_raw
-package require punk::ansi
-package require punk::args
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {Thread}]
-#[item] [package {punk::ansi}]
-#[item] [package {punk::args}]
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-
-#if {"windows" eq $::tcl_platform(platform)} {
-#    #package require zzzload
-#    #zzzload::pkg_require twapi
-#}
-
-#see https://learn.microsoft.com/en-us/windows/console/classic-vs-vt  
-#https://learn.microsoft.com/en-us/windows/console/creating-a-pseudoconsole-session
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::console {
-    #*** !doctools
-    #[subsection {Namespace punk::console}]
-    #[para]
-
-    #*** !doctools
-    #[list_begin definitions]
-
-    variable PUNKARGS
-
-    variable tabwidth 8  ;#default only - will attempt to detect and set to that configured in terminal
-    #Note that windows terminal cooked mode seems to use 8 for interactive use even if set differently
-    #e.g typing tab characters may still be echoed 8-spaced while writing to stdout my obey the terminal's tab stops.  
-    variable has_twapi 0
-    variable previous_stty_state_stdin ""
-    variable previous_stty_state_stdout ""
-    variable previous_stty_state_stderr ""
-
-    #variable is_raw 0
-    if {![tsv::exists console is_raw]} {
-        tsv::set console is_raw 0
-    }
-    
-    variable input_chunks_waiting
-    if {![info exists input_chunks_waiting(stdin)]} {
-        set input_chunks_waiting(stdin) [list]
-    }
-    variable ansi_response_chunk ;#array keyed on callid
-    variable ansi_response_wait   ;#array keyed on callid
-    array set ansi_response_wait {}
-    variable ansi_response_queue [list];#list of callids
-    variable ansi_response_queuedata ;#dict keyed on callid - with function params
-
-    # --
-    variable ansi_available -1 ;#default -1 for unknown. Leave it this way so test for ansi support is run. 
-    #-1 still evaluates to true - as the modern assumption for ansi availability is true
-    #only false if ansi_available has been set 0 by test_can_ansi 
-    #support ansistrip for legacy windows terminals
-    # --
-
-    variable ansi_wanted 2 ;#2 for default assumed yes, will be set to -1 for automatically unwanted when ansi unavailable  values of 0 or 1 won't be autoset 
-
-
-
-    #punk::console namespace - contains *directly* acting functions - some based on ansi escapes from the 'ansi' sub namespace, some on local system calls or executable calls wrapped in the 'local' sub namespace
-    #directly acting means they write to stdout to cause the console to peform the action,  or they perform the action immediately via other means.
-    #punk::console::ansi contains a subset of punk::ansi, but with emission to stdout as opposed to simply returning the ansi sequence.
-    #punk::console::local functions are used by punk::console commands when there is no ansi equivalent
-    #ansi escape sequences are possibly preferable esp if terminal is remote to process running punk::console 
-    # punk::local commands may be more performant in some circumstances where console is directly attached, but it shouldn't be assumed. e.g ansi::titleset outperforms local::titleset on windows with twapi.
-
-    namespace eval local {
-        #non-ansi terminal/console control functions
-        #e.g external utils system API's.
-        namespace export *
-    }
-
-    if {"windows" eq $::tcl_platform(platform)} {
-        #accept args for all dummy/load functions so we don't have to match/update argument signatures here
-        set has_twapi [expr {! [catch {package require twapi}]}]
-
-        if {$has_twapi} {
-            #this is really enableAnsi *processing*
-            proc enableAnsi {} {
-                #output handle modes
-                #Enable virtual terminal processing (sometimes off in older windows terminals)
-                #ENABLE_PROCESSED_OUTPUT = 0x0001
-                #ENABLE_WRAP_AT_EOL_OUTPUT = 0x0002
-                #ENABLE_VIRTUAL_TERMINAL_PROCESSING = 0x0004
-                #DISABLE_NEWLINE_AUTO_RETURN = 0x0008
-                if {[catch {twapi::get_console_handle stdout} h_out]} {
-                    puts stderr "enableAnsi failed: twapi cannot get console handle for stdout"
-                    return
-                }
-
-                set oldmode_out [twapi::GetConsoleMode $h_out]
-                set newmode_out [expr {$oldmode_out | 4}] ;#don't enable processed output too, even though it's required. keep symmetrical with disableAnsi?
-
-                twapi::SetConsoleMode $h_out $newmode_out
-
-                #what does window_input have to do with it??
-                #input handle modes
-                #ENABLE_PROCESSED_INPUT 0x0001  ;#set to zero will allow ctrl-c to be reported as keyboard input rather than as a signal
-                #ENABLE_LINE_INPUT 0x0002
-                #ENABLE_ECHO_INPUT 0x0004
-                #ENABLE_WINDOW_INPUT 0x0008  (default off when a terminal created)
-                #ENABLE_MOUSE_INPUT 0x0010
-                #ENABLE_INSERT_MODE 0X0020
-                #ENABLE_QUICK_EDIT_MODE 0x0040
-                #ENABLE_VIRTUAL_TERMINAL_INPUT 0x0200 (default off when a terminal created) (512)
-                set h_in [twapi::get_console_handle stdin]
-                set oldmode_in [twapi::GetConsoleMode $h_in]
-                set newmode_in [expr {$oldmode_in | 8}]
-                #set newmode_in [expr {$oldmode_in | 0x208}]
-
-                twapi::SetConsoleMode $h_in $newmode_in
-
-                return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
-            }
-            proc disableAnsi {} {
-                set h_out [twapi::get_console_handle stdout] 
-                set oldmode_out [twapi::GetConsoleMode $h_out]
-                set newmode_out [expr {$oldmode_out & ~4}]
-                twapi::SetConsoleMode $h_out $newmode_out
-
-                #??? review
-                set h_in [twapi::get_console_handle stdin]
-                set oldmode_in [twapi::GetConsoleMode $h_in]
-                set newmode_in [expr {$oldmode_in & ~8}]
-                twapi::SetConsoleMode $h_in $newmode_in
-
-
-                return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
-            }
-            proc enableVirtualTerminal {{channels {input output}}} {
-                set ins [list in input stdin]
-                set outs [list out output stdout stderr]
-                set known [concat $ins $outs both]
-                set directions [list]
-                foreach v $channels {
-                    if {$v in $ins} {
-                        lappend directions input
-                    } elseif {$v in $outs} {
-                        lappend directions output
-                    } elseif {$v eq "both"} {
-                        lappend directions input output
-                    }
-                    if {$v ni $known} {
-                        error "enableVirtualTerminal expected channel values to be one of '$known'. (all values mapped to input and/or output)"
-                    }
-                }
-                set channels $directions ;#don't worry about dups.
-                if {"both" in $channels} {
-                    lappend channels input output
-                }
-                set result [dict create]
-                if {"output" in $channels} {
-                    #note setting stdout makes stderr have the same settings - ie there is really only one output to configure
-                    set h_out [twapi::get_console_handle stdout]
-                    set oldmode [twapi::GetConsoleMode $h_out]
-                    set newmode [expr {$oldmode | 4}]
-                    twapi::SetConsoleMode $h_out $newmode
-                    dict set result output [list from $oldmode to $newmode]
-                }
-
-                if {"input" in $channels} {
-                    set h_in [twapi::get_console_handle stdin]
-                    set oldmode_in [twapi::GetConsoleMode $h_in]
-                    set newmode_in [expr {$oldmode_in | 0x200}]
-                    twapi::SetConsoleMode $h_in $newmode_in
-                    dict set result input [list from $oldmode_in to $newmode_in]
-                }
-
-                return $result
-            }
-
-            proc disableVirtualTerminal {{channels {input output}}} {
-                set ins [list in input stdin]
-                set outs [list out output stdout stderr]
-                set known [concat $ins $outs both]
-                set directions [list]
-                foreach v $channels {
-                    if {$v in $ins} {
-                        lappend directions input
-                    } elseif {$v in $outs} {
-                        lappend directions output
-                    } elseif {$v eq "both"} {
-                        lappend directions input output
-                    }
-                    if {$v ni $known} {
-                        error "disableVirtualTerminal expected channel values to be one of '$known'. (all values mapped to input and/or output)"
-                    }
-                }
-                set channels $directions ;#don't worry about dups.
-                if {"both" in $channels} {
-                    lappend channels input output
-                }
-                set result [dict create]
-                if {"output" in $channels} {
-                    #as above - configuring stdout does stderr too
-                    set h_out [twapi::get_console_handle stdout] 
-                    set oldmode [twapi::GetConsoleMode $h_out]
-                    set newmode [expr {$oldmode & ~4}]
-                    twapi::SetConsoleMode $h_out $newmode
-                    dict set result output [list from $oldmode to $newmode]
-                }
-                if {"input" in $channels} {
-                    set h_in [twapi::get_console_handle stdin]
-                    set oldmode_in [twapi::GetConsoleMode $h_in]
-                    set newmode_in [expr {$oldmode_in & ~0x200}]
-                    twapi::SetConsoleMode $h_in $newmode_in
-                    dict set result input [list from $oldmode_in to $newmode_in]
-                }
-
-                #return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
-                return $result
-            }
-            proc enableProcessedInput {} {
-                set h_in [twapi::get_console_handle stdin]
-                set oldmode_in [twapi::GetConsoleMode $h_in]
-                set newmode_in [expr {$oldmode_in | 1}]
-                twapi::SetConsoleMode $h_in $newmode_in
-                return [list stdin [list from $oldmode_in to $newmode_in]]
-            }
-            proc disableProcessedInput {} {
-                set h_in [twapi::get_console_handle stdin]
-                set oldmode_in [twapi::GetConsoleMode $h_in]
-                set newmode_in [expr {$oldmode_in & ~1}]
-                twapi::SetConsoleMode $h_in $newmode_in
-                return [list stdin [list from $oldmode_in to $newmode_in]]
-            }
-            proc enableRaw {{channel stdin}} {
-                #variable is_raw
-                variable previous_stty_state_$channel
-
-                if {[catch {twapi::get_console_handle stdin} console_handle]} {
-                    puts stderr "enableRaw error: twapi cannot get console handle for stdin"
-                    #review. If twapi couldn't get a console handle - no point trying other mechanisms(?)
-                    return
-                }
-                #returns dictionary
-                #e.g -processedinput 1 -lineinput 1 -echoinput 1 -windowinput 0 -mouseinput 0 -insertmode 1 -quickeditmode 1 -extendedmode 1 -autoposition 0
-                set oldmode [twapi::get_console_input_mode]
-                twapi::modify_console_input_mode $console_handle -lineinput 0 -echoinput 0
-                # Turn off the echo and line-editing bits
-                #set newmode [dict merge $oldmode [dict create -lineinput 0 -echoinput 0]]
-                set newmode [twapi::get_console_input_mode]
-
-                tsv::set console is_raw 1
-                #don't disable handler - it will detect is_raw
-                ###    twapi::set_console_control_handler {}
-                return [list stdin [list from $oldmode to $newmode]]
-            }
-
-            #note: twapi GetStdHandle & GetConsoleMode & SetConsoleCombo unreliable - fails with invalid handle (somewhat intermittent.. after stdin reopened?)
-            #could be we were missing a step in reopening stdin and console configuration?
-
-            proc disableRaw {{channel stdin}} {
-                #variable is_raw
-                variable previous_stty_state_$channel
-                set ch_state [chan conf $channel]
-                if {[dict exists $ch_state -inputmode]} {
-                    chan conf $channel -inputmode normal
-                    tsv::set console is_raw 0
-                    return [list $channel [list from [dict get $ch_state -inputmode] to normal]]
-                } else {
-                    if {[catch {twapi::get_console_handle stdin} console_handle]} {
-                        #e.g tkcon/wish
-                        puts stderr "disableRaw error: twapi cannot get console handle for stdin"
-                        return ;# ???
-                    }
-                    set oldmode [twapi::get_console_input_mode]
-                    # Turn on the echo and line-editing bits
-                    twapi::modify_console_input_mode $console_handle -lineinput 1 -echoinput 1
-                    set newmode [twapi::get_console_input_mode]
-                    tsv::set console is_raw 0
-                    return [list stdin [list from $oldmode to $newmode]]
-                }
-            }
-
-        } else {
-
-            variable ps_consolemode_pid
-            variable ps_consolemode_contents
-            variable ps_pipename
-            if {![info exists ps_consolemode_contents]} {
-                #start persistent powershell consolemode_server.ps1 named pipe server
-                if {$::argv0 ne ""} {
-                    set pstooldir [file dirname [file dirname [file normalize $::argv0]]]/scriptlib/utils/pwsh
-                } else {
-                    set pstooldir [pwd]
-                }
-                #set ps_script $pstooldir/consolemode_server.ps1
-                set ps_script $pstooldir/consolemode_server_async.ps1
-                if {[file exists $ps_script]} {
-                    set fd [open $ps_script r]
-                    chan configure $fd -translation binary
-                    set ps_consoleid [pid]-[expr {int(999 * rand())+1}]
-                    set ps_consolemode_contents [string map [list "<punkshell_consoleid>" $ps_consoleid] [read $fd]]
-                    close $fd
-                    #set ps_consolemode_pipe [twapi::namedpipe_client {//./pipe/punkshell_ps_consolemode} -access write]
-                    #set ps_cmd [auto_execok pwsh.exe]
-                    set ps_cmd [auto_execok pwsh.exe]
-                    if {$ps_cmd eq ""} {
-                        set ps_cmd [auto_execok powershell.exe]
-                    }
-                    if {$ps_cmd ne ""} {
-                        set ps_consolemode_pid [exec {*}$ps_cmd -nop -nol -c $ps_consolemode_contents &]
-                        set ps_pipename {\\.\pipe\punkshell_ps_consolemode_}
-                        append ps_pipename $ps_consoleid
-                        puts stderr "twapi not present, using persistent powershell process: pipename: $ps_pipename pid: $ps_consolemode_pid"
-                        #todo -  taskkill /F /PID $ps_consolemode_pid
-                        #when?
-                        #review
-                        #if {[catch {puts "pidinfo: [::tcl::process::status $ps_consolemode_pid]"} errM]} {
-                        #    puts stderr "--- failed to get process status for $ps_consolemode_pid\n$errM"
-                        #}
-                        #set p [open {\\.\pipe\punkshell_ps_consolemode} w]
-                        #chan conf $p -buffering none -blocking 1
-                        #puts $p ""
-                        #close $p
-                    }
-                }
-
-            }
-
-
-            #enableRaw
-            proc enableRaw {{channel stdin}} {
-                #puts stderr "punk::console::enableRaw"
-                #variable is_raw
-                variable previous_stty_state_$channel
-                variable ps_consolemode_contents
-                variable ps_pipename
-
-
-                if {[info exists ps_consolemode_contents]} {
-                    #ps_pipename e.g \\.\pipe\punkwinshell_ps_consolemode_12345-1223456
-
-                    set trynum 0
-                    set wrote 0
-                    while {$trynum < 5} {
-                        incr trynum
-                        if {![catch {
-                            set pipe [open $ps_pipename w]
-                        } errMsg]} {
-                            chan conf $pipe -buffering line
-                            puts -nonewline $pipe "enableraw\r\n"
-                            #flush $pipe
-                            #after 10
-                            #close $pipe
-                            set wrote 1
-                            break
-                        } else {
-                            after 100
-                        }
-                    }
-                    if {$wrote} {
-                        tsv::set console is_raw 1
-                        #after 100
-                        close $pipe
-                    } else {
-                        puts stderr "write to $ps_pipename failed trynum: $trynum\n$errMsg"
-                    }
-                } elseif {[set sttycmd [auto_execok stty]] ne ""} {
-                    #todo - something else entirely
-                    #this approach does not work on windows
-                    #the msys/cygwin stty command is launched as a subprocess - can be used to retrieve info
-                    # but seems to be useless as far as affecting the calling process/console
-                    if {[set previous_stty_state_$channel] eq ""} {
-                        set previous_stty_state_$channel [exec {*}$sttycmd -g <@$channel]
-                    }
-
-                    exec {*}$sttycmd raw -echo <@$channel
-                    tsv::set console is_raw 1
-                    #review - inconsistent return dict
-                    return [dict create stdin [list from [set previous_stty_state_$channel] to "" note "fixme - to state not shown"]]
-                } else {
-                    error "punk::console::enableRaw Unable to use twapi or stty to set raw mode - aborting"
-                }
-            }
-
-
-            proc disableRaw {{channel stdin}} {
-                variable previous_stty_state_$channel
-                set ch_state [chan conf $channel]
-                if {[dict exists $ch_state -inputmode]} {
-                    chan conf $channel -inputmode normal
-                    tsv::set console is_raw 0
-                    return [list $channel [list from [dict get $ch_state -inputmode] to normal]]
-                } else {
-                    #tcl <= 8.6x doesn't support -inputmode
-                    if {[set sttycmd [auto_execok stty]] ne ""} {
-                        #this doesn't work on windows
-                        #It may seem to - only because running *any* external utility can exit raw mode
-                        set sttycmd [auto_execok stty]
-                        if {[set previous_stty_state_$channel] ne ""} {
-                            exec {*}$sttycmd [set previous_stty_state_$channel]
-                            set previous_stty_state_$channel ""
-                            return restored
-                        }
-                        exec {*}$sttycmd -raw echo <@$channel
-                        tsv::set console is_raw 0
-                        #do we really want to exec stty yet again to show final 'to' state? 
-                        #probably not. We should work out how to read the stty result flags and set a result.. or just limit from,to to showing echo and lineedit states.
-                        return [list stdin  [list from "[set previous_stty_state_$channel]" to "" note "fixme - to state not shown"]]
-                    } else {
-                        error "punk::console::disableRaw Unable to use twapi or stty to unset raw mode - aborting"
-                    }
-                }
-            }
-
-            #enableAnsi
-            proc enableAnsi {} {
-            }
-            #disableAnsi
-            proc enableAnsi {} {
-            }
-            #enableVirtualTerminal
-            proc enableVirtualTerminal {{channels {input output}}} {
-            }
-            #disableVirtualTerminal
-            proc disableVirtualTerminal {{channels {input output}}} {
-            }
-            #enableProcessedInput
-            #disableProcessedInput
-
-        }
-
-    } else {
-        #non-windows platforms
-
-        proc enableAnsi {} {
-            #todo?
-        }
-        proc disableAnsi {} {
-
-        }
-
-        #todo - something better - the 'channel' concept may not really apply on unix, as raw mode is set for input and output modes currently - only valid to set on a readable channel?
-        #on windows they can be set independently (but not with stty) - REVIEW
-
-        proc enableVirtualTerminal {{channels {input output}}} {
-
-        }
-        proc disableVirtualTerminal {args} {
-
-        }
-
-        #NOTE - the is_raw is only being set in current interp - but the channel is shared.
-        #this is problematic with the repl thread being separate. - must be a tsv?  REVIEW
-        proc enableRaw {{channel stdin}} {
-            #variable is_raw 
-
-            variable previous_stty_state_$channel
-            set sttycmd [auto_execok stty]
-            if {[set previous_stty_state_$channel] eq ""} {
-                if {[catch {exec {*}$sttycmd -g <@$channel} previous_stty_state_$channel]} {
-                    set previous_stty_state_$channel ""
-                }
-            }
-
-            exec {*}$sttycmd raw -echo <@$channel
-            tsv::set console is_raw 1
-            return [dict create previous [set previous_stty_state_$channel]]
-        }
-        proc disableRaw {{channel stdin}} {
-            #variable is_raw
-            variable previous_stty_state_$channel
-            set sttycmd [auto_execok stty]
-            if {[set previous_stty_state_$channel] ne ""} {
-                exec {*}$sttycmd [set previous_stty_state_$channel]
-                set previous_stty_state_$channel ""
-                tsv::set console is_raw 0
-                return restored
-            }
-            exec {*}$sttycmd -raw echo <@$channel
-            tsv::set console is_raw 0
-            return done
-        }
-    }
-
-    #review - document and decide granularity required. should we enable/disable more than one at once? 
-    proc enable_mouse {} {
-        puts -nonewline stdout \x1b\[?1000h
-        puts -nonewline stdout \x1b\[?1003h
-        puts -nonewline stdout \x1b\[?1015h
-        puts -nonewline stdout \x1b\[?1006h
-        flush stdout
-    }
-    proc disable_mouse {} {
-        puts -nonewline stdout \x1b\[?1000l
-        puts -nonewline stdout \x1b\[?1003l
-        puts -nonewline stdout \x1b\[?1015l
-        puts -nonewline stdout \x1b\[?1006l
-        flush stdout
-    }
-    proc enable_bracketed_paste {} {
-        puts -nonewline stdout \x1b\[?2004h
-    }
-    proc disable_bracketed_paste {} {
-        puts -nonewline stdout \x1b\[?2004l
-    }
-    proc start_application_mode {} {
-        #need loop to read events?
-        puts -nonewline stdout \x1b\[?1049h  ;#alt screen
-        enable_mouse
-        #puts -nonewline stdout \x1b\[?25l  ;#hide cursor
-        puts -nonewline stdout \x1b\[?1003h\n
-        enable_bracketed_paste
-    }
-    #todo stop_application_mode {} {}
-
-    proc mode {{raw_or_line query}} {
-        #variable is_raw
-        variable ansi_available
-        set raw_or_line [string tolower $raw_or_line]
-        if {$raw_or_line eq "query"} {
-            if {[tsv::get console is_raw]} {
-                return "raw"
-            } else {
-                return "line"
-            }
-        } elseif {$raw_or_line eq "raw"} {
-            if {[catch {
-                punk::console::enableRaw
-            } errM]} {
-                puts stderr "Warning punk::console::enableRaw failed - $errM"
-            }
-            if {[can_ansi]} {
-                punk::console::enableVirtualTerminal both
-            }
-        } elseif {$raw_or_line eq "line"} {
-            #review -order. disableRaw has memory from enableRaw.. but but for line mode we want vt disabled - so call it after disableRaw (?) 
-            if {[catch {
-                punk::console::disableRaw
-            } errM]} {
-                puts stderr "Warning punk::console::disableRaw failed - $errM"
-            }
-            if {[can_ansi]} {
-                punk::console::disableVirtualTerminal input ;#default readline arrow behaviour etc
-                punk::console::enableVirtualTerminal output ;#display/use ansi codes
-            }
-        } else {
-            error "punk::console::mode expected 'raw' or 'line' or default value 'query'"
-        }
-    }
-
-    namespace eval internal {
-        proc abort_if_loop {{failmsg ""}} {
-            #puts "il1 [info level 1]"
-            #puts "thisproc: [lindex [info level 0] 0]"
-            set would_loop [uplevel 1 {expr {[string match *loopavoidancetoken* [info body [namespace tail [lindex [info level 0] 0]]]]}}]
-            #puts "would_loop: $would_loop"
-            if {$would_loop} {
-                set procname [uplevel 1 {namespace tail [lindex [info level 0] 0]}]
-                if {$failmsg eq ""} {
-                    set errmsg "[namespace current] Failed to redefine procedure $procname"
-                } else {
-                    set errmsg $failmsg
-                }
-                error $errmsg
-            }
-        }
-        proc define_windows_procs {} {
-
-
-
-
-        }
-
-        lappend PUNKARGS [list {
-            @id -id ::punk::console::internal::get_ansi_response_payload
-            @cmd -name punk::console::internal::get_ansi_response_payload -help\
-                "Terminal query helper.
-                Captures the significant portion (payload as defined by
-                supplied capturingendregex capture groups) of the input
-                channel's response to a query placed on the output channel.
-                Usually this means a write to stdout with a response on
-                stdin.
-                This function uses a 'chan event' read handler function
-                ::punk::console::internal::ansi_response_handler_regex to
-                read the input channel character by character to ensure it
-                doesn't overconsume input.
-
-                It can run cooperatively with the punk::repl stdin reader
-                or other readers if done carefully.
-                The mechanism to run while other readers are active involves
-                disabling and re-enabling installed 'chan event' handlers
-                and possibly using a shared namespace variable 
-                (::punk::console::input_chunks_waiting) to ensure all data
-                gets to the right handler. (unread data on input prior to this
-                function being called) 
-                Not fully documented. (source diving required -see punk::repl)
-                "
-            @opts
-            -ignoreok -type boolean -default 0 -help\
-                "Experimental/debug 
-                  ignore the regex match 'ok' response
-                  and keep going."
-            -return -type string -default payload -choices {payload dict} -choicelabels {
-                    dict\
-                     "dict with keys prefix,response,payload,all"
-                } -help\
-                "Return format"
-
-            -terminal -default {stdin stdout} -type list -help\
-                "terminal (currently list of in/out channels) (todo - object?)"
-            -expected_ms -default 300 -type integer -help\
-                "Expected number of ms for response from terminal.
-                  100ms is usually plenty for a local terminal and a
-                  basic query such as cursor position.
-                  However on a busy machine a higher timeout may be
-                  prudent."
-            @values -min 2 -max 2
-            query -type string -help\
-                "ANSI sequence such as \x1b\[?6n which
-                  should elicit a response by the terminal
-                  on stdin"
-            capturingendregex -type string -help\
-               "capturingendregex should capture ANY prefix, whole escape match - and a subcapture
-                  of the data we're interested in; and match at end of string.
-                  ie  {(.*)(ESC(info)end)$}
-                  e.g {(.*)(\x1bP44!~([:alnum:])\x1b\\)$}
-                  we expect 4 results from regexp -indices -inline (overallmatch, prefix, wholeescape,info)"
-        }]
-        #todo - check capturingendregex value supplied has appropriate captures and tail-anchor
-        proc get_ansi_response_payload {args} {
-            #we pay a few 10s of microseconds to use punk::args::parse (on the happy path)
-            #seems reasonable for the flexibility in this case.
-            set argd [punk::args::parse $args withid ::punk::console::internal::get_ansi_response_payload]
-            lassign [dict values $argd] leaders opts values received
-
-            set inoutchannels       [dict get $opts -terminal]
-            set expected            [dict get $opts -expected_ms]
-            set ignoreok            [dict get $opts -ignoreok]
-            set returntype          [dict get $opts -return]
-            set query               [dict get $values query]
-            set capturingendregex   [dict get $values capturingendregex]
-
-            lassign $inoutchannels input output
-
-            #chunks from input that need to be handled by readers
-            upvar ::punk::console::input_chunks_waiting input_chunks_waiting
-
-            #we need to cooperate with other stdin/$input readers and put data here if we overconsume.
-            #Main repl reader may be currently active - or may be inactive.
-            #This call could come from within code called by the main reader - or from user code running while main read-loop is temporarily disabled
-            #In other contexts there may not even be another input reader
-            
-            #REVIEW - what if there is existing data in input_chunks_waiting - is it for us?
-            #This occurs for example with key held down on autorepeat and is normal
-            #enable it here for debug/testing only
-            #if {[info exists input_chunks_waiting($input)] && [llength $input_chunks_waiting($input)]} {
-            #    puts stderr "[punk::ansi::a+ cyan bold]get_ansi_response_payload called while input_chunks_waiting($input) contained data: [punk::ansi::a][ansistring VIEW $input_chunks_waiting($input)]"
-            #}
-
-            if {!$::punk::console::ansi_available} {
-                return ""
-            }
-            # -- ---
-            #set callid [info cmdcount] ;#info cmdcount is fast, though not as fast as clock clicks - and whilst not unique in a long-running app(will wrap?) - fine for this context 
-            #clock clicks is approx 2x faster - but can sometimes give duplicates if called sequentially e.g list [clock clicks] [clock clicks]
-            #Either is suitable here, where subsequent calls will be relatively far apart in time
-            #speed of call insignificant compared to function
-            set callid [clock clicks]
-            # -- ---
-            #
-
-            upvar ::punk::console::ansi_response_chunk  accumulator
-            upvar ::punk::console::ansi_response_wait   waitvar
-            upvar ::punk::console::ansi_response_queue  queue
-            upvar ::punk::console::ansi_response_queuedata queuedata
-            upvar ::punk::console::ansi_response_tslaunch tslaunch
-            upvar ::punk::console::ansi_response_tsclock  tsclock 
-            upvar ::punk::console::ansi_response_timeoutid timeoutid
-            set accumulator($callid)    ""
-            set waitvar($callid)        ""
-
-            lappend queue               $callid
-            if {[llength $queue] > 1} { 
-                #while {[lindex $queue 0] ne $callid} {}
-                set queuedata($callid) $args
-                set runningid [lindex $queue 0]
-                while {$runningid ne $callid} {
-                    #puts stderr "."
-                    vwait ::punk::console::ansi_response_wait
-                    set runningid [lindex $queue 0]
-                    if {$runningid ne $callid} {
-                        set ::punk::console::ansi_response_wait($runningid) $::punk::console::ansi_response_wait($runningid)
-                        update ;#REVIEW - probably a bad idea 
-                        after 10
-                        set runningid [lindex $queue 0] ;#jn test
-                    }
-                }
-            }
-
-
-
-            #todo - use a linked array and an accumulatorid and waitvar id? When can there be more than one terminal query in-flight?
-
-            set existing_handler [chan event $input readable] ;#review!
-            set this_handler ::punk::console::internal::ansi_response_handler_regex
-            if {[lindex $existing_handler 0] eq $this_handler} {
-                puts stderr "[punk::ansi::a+ red]Warning for callid $callid get_ansi_response_payload called while existing ansi response handler in place[a]: $this_handler"
-                puts stderr "queue state: $queue"
-                flush stderr
-
-                if {[lindex $queue 0] ne $callid} {
-                    error "get_ansi_response_payload - re-entrancy unrecoverable"
-                }
-            }
-            chan event $input readable {}
-
-            # - stderr vs stdout
-            #It has to be same channel as used by functions such as test_char_width or erroneous results returned for those functions
-            #(presumably race conditions as to when data hits console?)
-            #review - experiment changing this and calling functions to stderr and see if it works
-            #review - Are there disadvantages to using stdout vs stderr?
-
-
-            set previous_input_state [chan configure $input]
-            #chan configure $input -blocking 0
-
-            #todo - make timeout configurable?
-            set waitvarname "::punk::console::ansi_response_wait($callid)"
-
-
-            #todo - test and save rawstate so we don't disableRaw if console was already raw
-            if {![tsv::get console is_raw]} {
-                set was_raw 0
-                punk::console::enableRaw
-                #after 0 [list chan event $input readable [list $this_handler $input $callid $capturingendregex]]
-                incr expected 50 ;#review
-                set timeoutid($callid) [after $expected [list set $waitvarname timedout]]
-                #puts stdout "sending console request [ansistring VIEW $query]"
-            } else {
-                set was_raw 1
-                set timeoutid($callid) [after $expected [list set $waitvarname timedout]]
-            }
-            #write before console enableRaw vs after??
-            #There seem to be problems (e.g on WSL) if we write too early - the output ends up on screen but we don't read it
-            puts -nonewline $output $query;flush $output
-            chan configure $input -blocking 0
-
-            set tslaunch($callid) [clock millis] ;#time of launch - may be delay before first event depending on what's going on
-            set tsclock($callid)  $tslaunch($callid)
-            #after 0
-            #------------------
-            #trying alternatives to get faster read and maintain reliability..REVIEW
-            #we should care more about performance in raw mode - as ultimately that's the one we prefer for full features
-            #------------------
-            #  1) faster - races?
-            $this_handler $input $callid $capturingendregex
-            $this_handler $input $callid $capturingendregex
-            if {$ignoreok || $waitvar($callid) ne "ok"} {
-                chan event $input readable [list $this_handler $input $callid $capturingendregex]
-            }
-            # 2) more reliable?
-            #chan event $input readable [list $this_handler $input $callid $capturingendregex]
-            #------------------
-
-
-            #response from terminal
-            #e.g for cursor position  \033\[46;1R
-
-            #after 0 [list $this_handler $input $callid $capturingendregex]
-            set remaining $expected
-            if {$waitvar($callid) eq ""} {
-                set lastvwait [clock millis]
-                vwait ::punk::console::ansi_response_wait($callid)
-                #puts stderr ">>>> end vwait1 $waitvar($callid)<<<<"
-                while {[string match extend-* $waitvar($callid)] || ($ignoreok && $waitvar($callid) eq "ok")} {
-                    if {[string match extend-* $waitvar($callid)]} {
-                        set extension [lindex [split $waitvar($callid) -] 1]
-                        if {$extension eq ""} {
-                            puts "blank extension $waitvar($callid)"
-                            puts "->[set $waitvar($callid)]<-"
-                        }
-                        puts stderr "get_ansi_response_payload Extending timeout by $extension for callid:$callid"
-                        after cancel $timeoutid($callid)
-                        set total_elapsed [expr {[clock millis] - $tslaunch($callid)}]
-                        set last_elapsed [expr {[clock millis] - $lastvwait}]
-                        set remaining [expr {$remaining - $last_elapsed}]
-                        if {$remaining < 0} {set remaining 0}
-                        set newtime [expr {$remaining + $extension}]
-                        set timeoutid($callid) [after $newtime [list set $waitvarname timedout]]
-                        set lastvwait [clock millis]
-                        vwait ::punk::console::ansi_response_wait($callid)
-                    } else {
-                        #ignoreok - reapply the handler that disabled itself due to 'ok'
-                        chan event $input readable [list $this_handler $input $callid $capturingendregex]
-                        set lastvwait [clock millis]
-                        vwait ::punk::console::ansi_response_wait($callid)
-                    }
-                }
-            }
-            #response handler automatically removes it's own chan event
-            chan event $input readable {} ;#explicit remove anyway - review
-
-            if {$waitvar($callid) ne "timedout"} {
-                after cancel $timeoutid($callid)
-            } else {
-                puts stderr "timeout (timediff [expr {[clock millis] - $tslaunch($callid)}]ms) in get_ansi_response_payload. callid $callid Ansi request was:'[ansistring VIEW -lf 1 -vt 1 $query]'"
-            }
-
-            if {$was_raw == 0} {
-                punk::console::disableRaw
-            }
-
-            #restore $input state
-            #it *might* be ok to restore entire state on an input channel
-            #(it's not always on all channels - e.g stdout has -winsize which is read-only)
-            #Safest to only restore what we think we've modified.
-            chan configure $input -blocking [dict get $previous_input_state -blocking]
-
-
-
-            set input_read [set accumulator($callid)]
-
-            if {$input_read ne ""} {
-                set got_match [regexp -indices $capturingendregex $input_read _match_indices prefix_indices response_indices payload_indices]
-                if {$got_match} {
-                    set responsedata [string range $input_read {*}$response_indices]
-                    set payload [string range $input_read {*}$payload_indices]
-                    set prefixdata [string range $input_read {*}$prefix_indices]
-                    if {!$ignoreok && $prefixdata ne ""} {
-                        #puts stderr "Warning - get_ansi_response_payload read extra data at start - '[ansistring VIEW -lf 1 $prefixdata]'  (responsedata=[ansistring VIEW -lf 1 $responsedata])"
-                        lappend input_chunks_waiting($input) $prefixdata
-                    }
-                } else {
-                    #timedout - or eof?
-                    if {!$ignoreok} {
-                        puts stderr "get_ansi_response_payload callid:$callid regex match '$capturingendregex' to input_read '[ansistring VIEW -lf 1 -vt 1 $input_read]' not found"
-                        lappend input_chunks_waiting($input) $input_read
-                        set payload ""
-                    } else {
-                        set responsedata ""
-                        set payload ""
-                        set prefixdata ""
-                    }
-                }
-            } else {
-                #timedout or eof? and nothing read
-                set responsedata    ""
-                set prefixdata  ""
-                set payload     ""
-            }
-
-            # -------------------------------------------------------------------------------------
-            # Other input readers
-            # -------------------------------------------------------------------------------------
-            #is there a way to know if existing_handler is input_chunks_waiting aware?
-            if {[string length $existing_handler] && [lindex $existing_handler 0] ne $this_handler} {
-                #puts "get_ansi_response_payload reinstalling ------>$existing_handler<------"
-                chan event $input readable $existing_handler
-                #this_handler may have consumed all pending input on $input - so there may be no trigger for the readable chan event for existing_handler
-                if {[llength $input_chunks_waiting($input)]} {
-                    #This is experimental If a handler is aware of input_chunks_waiting - there should be no need to schedule a trigger
-                    #If it isn't, but the handler can accept an existing chunk of data as a 'waiting' argument - we could trigger and pass it the waiting chunks - but there's no way to know its API.
-                    #we could look at info args - but that's not likely to tell us much in a robust way.
-                    #we could create a reflected channel for stdin? That is potentially an overreach..?
-                    #triggering it manually... as it was already listening - this should generally do no harm as it was the active reader anyway, but won't help with the missing data if it's input_chunks_waiting-unaware.
-                    set handler_args [info args [lindex $existing_handler 0]]
-                    if {[lindex $handler_args end] eq "waiting"} {
-                        #Looks like the existing handler is setup for punk repl cooperation.
-
-                        puts stdout "\n\n[punk::ansi::a+ yellow bold]-->punk::console::get_ansi_response_payload callid $callid triggering existing handler\n $existing_handler while over-read data is in punk::console::input_chunks_waiting($input) instead of channel[punk::ansi::a]"
-                        puts stdout "[punk::ansi::a+ yellow bold]-->waiting: [ansistring VIEW -lf 1 -vt 1 $input_chunks_waiting($input)][punk::ansi::a]"
-                        flush stdout
-
-                        #concat and supply to existing handler in single text block - review
-                        #Note will only
-                        set waitingdata [join $input_chunks_waiting($input) ""]
-                        set input_chunks_waiting($input) [list]
-                        #after idle [list after 0 [list {*}$existing_handler $waitingdata]]
-                        after idle [list {*}$existing_handler $waitingdata]  ;#after 0 may be put ahead of events it shouldn't be - review
-                        unset waitingdata
-                    } else {
-                        #! todo? for now, emit a clue as to what's happening.
-                        puts stderr "[punk::ansi::a+ yellow bold]-->punk::console::get_ansi_response_payload cannot trigger existing handler $existing_handler while over-read data is in punk::console::input_chunks_waiting($input) instead of channel [ansistring VIEW $input_chunks_waiting($input)][punk::ansi::a]"
-                        if {[package provide punk::repl::codethread] ne "" && [punk::repl::codethread::is_running]} {
-                            if {[eof $input]} {
-                                puts stdout "restarting repl"
-                                repl::reopen_stdin
-                            }
-                        }
-                    }
-                }
-                #Note - we still may be in_repl_handler here (which disables its own reader while executing commandlines)
-                #The input_chunks_waiting may really belong to the existing_handler we found - but if it doesn't consume them they will end up being read by the repl_handler when it eventually re-enables.
-                #todo - some better structure than just a list of waiting chunks indexed by input channel, so repl/other handlers can determine the context in which these waiting chunks were generated?
-            } elseif {[package provide punk::repl::codethread] ne "" && [punk::repl::codethread::is_running]} {
-                #if {[llength $input_chunks_waiting($input)]} {
-                    #don't trigger the repl handler manually - we will inevitably get things out of order - as it knows when to enable/disable itself based on whether chunks are waiting.
-                    #triggering it by putting it on the eventloop will potentially result in re-entrancy
-                    #The cooperating reader must be designed to consume waiting chunks and only reschedule it's channel read handler once all waiting chunks have been consumed.
-                    #puts stderr "[punk::ansi::a+ green bold]--> repl_handler has chunks to consume [ansistring VIEW $input_chunks_waiting($input)][punk::ansi::a]"
-                #}
-                if {[eof $input]} {
-                    #test
-                    puts stdout "get_ansi_response_payload experimental - restarting repl"
-                    repl::reopen stdin
-                }
-            }
-            # -------------------------------------------------------------------------------------
-
-
-
-            unset -nocomplain accumulator($callid)
-            unset -nocomplain waitvar($callid)
-            unset -nocomplain timeoutid($callid)
-            unset -nocomplain tsclock($callid)
-            unset -nocomplain tslaunch($callid)
-            dict unset queuedata $callid
-
-            #lpop queue 0
-            ledit queue 0 0
-            if {[llength $queue] > 0} {
-                set next_callid [lindex $queue 0]
-                set waitvar($callid) go_ahead
-                #set nextdata [set queuedata($next_callid)]
-            }
-
-
-
-            #set punk::console::chunk ""
-            if {$returntype eq "dict"} {
-                return [dict create\
-                    prefix      $prefixdata\
-                    payload     $payload\
-                    response    $responsedata\
-                    all         $input_read\
-                ]
-            } else {
-                return $payload
-            }
-        }
-
-
-        #review - reading 1 byte at a time and repeatedly running the small capturing/completion regex seems a little inefficient... but we don't have a way to peek or put back chars (?)
-        #review (we do have the punk::console::input_chunks_waiting($chan) array to cooperatively put back data - but this won't work for user scripts not aware of this)
-        #review - timeout - what if terminal doesn't put data on stdin? error vs stderr report vs empty results
-        #review -  Main loop may need to detect some terminal responses and store them for lookup instead-of or as-well-as this handler?
-        #e.g what happens to mouse-events while user code is executing?
-        #we may still need this handler if such a loop doesn't exist.
-        proc ansi_response_handler_regex {chan callid endregex} {
-            upvar ::punk::console::ansi_response_chunk chunks
-            upvar ::punk::console::ansi_response_wait waits
-            upvar ::punk::console::ansi_response_tslaunch tslaunch ;#initial time in millis was set when chan event was created
-            upvar ::punk::console::ansi_response_tsclock tsclock
-
-            #endregex should explicitly have a trailing $
-            set status [catch {read $chan 1} bytes]
-            if { $status != 0 } {
-                # Error on the channel
-                chan event $chan readable {}
-                puts "ansi_response_handler_regex error reading $chan: $bytes"
-                set waits($callid) [list error error_read status $status bytes $bytes]
-            } elseif {$bytes ne ""} {
-                #puts stderr . ;flush stderr
-                # Successfully read the channel
-                #puts "got: [string length $bytes]bytes"
-                set sofar [append chunks($callid) $bytes]
-                #puts stderr [ansistring VIEW $chunks($callid)]
-                #review - what is min length of any ansiresponse?
-                #we know there is at least one of only 3 chars, vt52 response to ESC Z: ESC / Z
-                #endregex is capturing - but as we are only testing the match here
-                #it should perform the same as if it were non-capturing
-                if {[string length $sofar] > 2 && [regexp $endregex $sofar]} {
-                    #puts stderr "matched - setting ansi_response_wait($callid) ok"
-                    chan event $chan readable {}
-                    set waits($callid) ok
-                } else {
-                    # 30ms 16ms?
-                    set tsnow [clock millis]
-                    set total_elapsed [expr {[set tslaunch($callid)] - $tsnow}]
-                    set last_elapsed  [expr {[set tsclock($callid)] - $tsnow}]
-                    if {[string length $sofar] % 10 == 0 ||  $last_elapsed > 16} {
-                        if {$total_elapsed > 3000} {
-                            #REVIEW
-                            #too long since initial read handler launched..
-                            #is other data being pumped into stdin? Eventloop starvation? Did we miss our codes?
-                            #For now we'll stop extending the timeout.
-                            after cancel $::punk::console::ansi_response_timeoutid($callid)
-                            set waits($callid) [list error error_ansi_response_handler_regex_too_long_reading]
-                        } else {
-                            if {$last_elapsed > 0} {
-                                after cancel $::punk::console::ansi_response_timeoutid($callid)
-                                set waits($callid) extend-[expr {min(16,$last_elapsed)}]
-                            }
-                        }
-                    }
-                    set tsclock(callid) [clock millis]
-                }
-            } elseif {[catch {eof $chan}] || [eof $chan]} {
-                catch {chan event $chan readable {}}
-                # End of file on the channel
-                #review
-                puts stderr "ansi_response_handler_regex end of file on channel $chan"
-                set waits($callid) eof
-            } elseif {![catch {chan blocked $chan}] && [chan blocked $chan]} {
-                # Read blocked is normal. (chan -blocking = 0 but reading only 1 char)
-                # Caller should be using timeout on the wait variable
-                #set waits($callid) continue
-                set tsclock($callid) [clock millis]
-            } else {
-                chan event $chan readable {}
-                # Something else
-                puts stderr "ansi_response_handler_regex Situation shouldn't be possible. No error and no bytes read on channel $chan but not chan blocked or EOF"
-                set waits($callid) error_unknown_zerobytes_while_not_blocked_or_eof
-            }
-        }
-    } ;#end namespace eval internal
-
-    variable colour_disabled 0
-    #todo - move to punk::config
-    # https://no-color.org
-    if {[info exists ::env(NO_COLOR)]} {
-        if {$::env(NO_COLOR) ne ""} {
-            set colour_disabled 1
-        }
-    }
-
-    #a and a+ functions are not very useful when emitting directly to console
-    #e.g puts [punk::console::a red]test[punk::console::a cyan] would produce a cyan coloured test as the commands are evaluated first
-
-
-    #punk::args::set_alias ::punk::console::code_a+ ::punk::ansi::a+
-    lappend PUNKARGS_aliases {::punk::console::code_a+ ::punk::ansi::a+}
-    proc code_a+ {args} {
-        variable ansi_wanted
-        if {$ansi_wanted <= 0} {
-            return
-        }
-        #a and a+ are called a *lot* - avoid even slight overhead of tailcall as it doesn't give us anything useful here
-        #tailcall punk::ansi::a+ {*}$args
-        ::punk::ansi::a+ {*}$args
-    }
-    lappend PUNKARGS_aliases {::punk::console::code_a ::punk::ansi::a}
-    proc code_a {args} {
-        variable ansi_wanted
-        if {$ansi_wanted <= 0} {
-            return
-        }
-        #tailcall punk::ansi::a {*}$args
-        ::punk::ansi::a {*}$args
-    }
-    lappend PUNKARGS_aliases {::punk::console::code_a? ::punk::ansi::a?}
-    proc code_a? {args} {
-        variable ansi_wanted
-        if {$ansi_wanted <= 0} {
-            return [punk::ansi::ansistripraw [::punk::ansi::a? {*}$args]]
-        } else {
-            tailcall ::punk::ansi::a? {*}$args
-        }
-    }
-    #proc a? {args} {
-    #    #stdout
-    #    variable ansi_wanted
-    #    if {$ansi_wanted <= 0} {
-    #        puts -nonewline [punk::ansi::ansistripraw [::punk::ansi::a?]]
-    #    } else {
-    #        tailcall ansi::a? {*}$args
-    #    }
-    #}
-
-    #REVIEW!  this needs reworking.
-    #It needs to be clarified as to what ansi off is supposed to do.
-    #Turning ansi off only stops new ansi being generated - but what about codes stored in configurations of existing elements such as tables/frames?
-    #It will stop underlines/bold/reverse as well as SGR colours
-    #what about ansi movement codes etc?
-    #we already have colour on|off which disables SGR codes in a+ etc as well as stderr/stdout channel transforms
-    proc ansi {{onoff {}}} {
-        variable ansi_wanted
-        if {[string length $onoff]} {
-            set onoff [string tolower $onoff]
-            switch -- $onoff {
-                1 -
-                on -
-                true -
-                yes {
-                    set ansi_wanted 1
-                }
-                0 -
-                off -
-                false -
-                no {
-                    set ansi_wanted 0
-                    punk::ansi::sgr_cache -action clear
-                }
-                default {
-                    set ansi_wanted 2
-                }
-                default {
-                    error "punk::console::ansi expected 0|1|on|off|true|false|yes|no|default"
-                }
-            }
-        }
-        catch {punk::repl::reset_prompt}
-        puts stderr "::punk::console::ansi - use 'colour' command to turn SGR codes on/off"
-        return [expr {$ansi_wanted}]
-    }
-
-    #colour
-    # Turning colour off will stop SGR colour codes from being generated unless 'forcecolour' is added to the argument list for the punk::ans::a functions
-    proc colour {{on {}}} {
-        variable colour_disabled
-        if {$on ne ""} {
-            if {![string is boolean -strict $on]} {
-                error "punk::console::colour expected a boolean e.g 0|1|on|off|true|false|yes|no"
-            }
-            #an experiment with complete disabling vs test of state for each call
-            if {$on} {
-                if {$colour_disabled} {
-                    #change of state
-                    punk::ansi::sgr_cache -action clear
-                    catch {punk::repl::reset_prompt}
-                    set colour_disabled 0
-                }
-            } else {
-                #we don't disable a/a+ entirely - they must still emit underlines/bold/reverse
-                if {!$colour_disabled} {
-                    #change of state
-                    punk::ansi::sgr_cache -action clear
-                    catch {punk::repl::reset_prompt}
-                    set colour_disabled 1
-                }
-            }
-        }
-        return [expr {!$colour_disabled}]
-    }
-
-    #test - find a better place to set terminal type
-    variable is_vt52 0
-    proc vt52 {{onoff {}}} {
-        #todo - return to colour state beforehand?. support 0-15 vt52 colours?
-        #we shouldn't have to trun off colour to enter vt52 - we should make punk::console emit correct codes
-        variable is_vt52
-        if {$onoff eq ""} {
-            return $is_vt52
-        }
-        if {![string is boolean -strict $onoff]} {
-            error "vt52 setting must be a boolean - or empty to query"
-        }
-        if {$is_vt52} {
-            if {!$onoff} {
-                puts -nonewline "\x1b<"
-                set is_vt52 0
-                colour on
-            }
-        } else {
-            if {$onoff} {
-                unset_mode DECANM
-                set is_vt52 1
-                colour off
-            } else {
-                puts -nonewline "\x1b<"
-                #emit even though our is_vt52 flag thinks it's on. Should be harmless if underlying terminal already vt100+
-            }
-        }
-        return $is_vt52
-    }
-
-    namespace eval local {
-        proc set_codepage_output {cpname} {
-            #todo
-            if {"windows" eq $::tcl_platform(platform)} {
-                twapi::set_console_output_codepage $cpname
-            } else {
-                error "set_codepage_output unimplemented on $::tcl_platform(platform)"
-            }
-        }
-        proc set_codepage_input {cpname} {
-            #todo
-            if {"windows" eq $::tcl_platform(platform)} {
-                twapi::set_console_input_codepage $cpname
-            } else {
-                error "set_codepage_input unimplemented on $::tcl_platform(platform)"
-            }
-        }
-        lappend PUNKARGS [list {
-            @id -id ::punk::console::local::echo
-            @cmd -name punk::console::local::echo -help\
-                "Use stty on unix, or twapi on windows to set terminal
-                local input echo on/off - experimental"
-            @values -min 0 -max 1
-            onoff -type boolean -default "" -help\
-                "Omit or pass empty string to query current echo state."
-        }]
-        proc echo {args} {
-            set argd [punk::args::parse $args withid ::punk::console::local::echo]
-            set onoff   [dict get $argd values onoff]
-
-            set is_windows [string equal "windows" $::tcl_platform(platform)]
-            if {$onoff eq ""} {
-                #query
-                if {$is_windows} {
-                    package require twapi
-                    set inputstate [twapi::get_console_input_mode]
-                    return [dict get $inputstate -echoinput]
-                } else {
-                    #counterintuitively - the human format (-a) seems more consistent across platforms than the machine readable (-g) formats
-                    #for now, quick and dirty look for echo in the list seems to work on wsl & freebsd at least.
-                    set tstate [exec stty -a]
-                    if {[lsearch $tstate echo] > 0} {
-                        return 1
-                    } else {
-                        return 0
-                    }
-                }
-            } else {
-                if {![string is boolean -strict $onoff]} {
-                    error "::punk::console::local::echo requires boolean argument to set on or off"
-                }
-                if {$is_windows} {
-                    set onoff [expr {true && $onoff}] ;#ensure true,yes etc are converted to 1|0
-                    set conh [twapi::get_console_handle stdin]
-                    twapi::modify_console_input_mode $conh -echoinput $onoff
-
-                    return $onoff
-                } else {
-                    if {$onoff} {
-                        {*}[auto_execok stty] echo
-                        return 1
-                    } else {
-                        {*}[auto_execok stty] -echo
-                        return 0
-                    }
-                }
-            }
-        }
-    }
-    namespace import local::set_codepage_output
-    namespace import local::set_codepage_input
-
-
-    lappend PUNKARGS [list {
-        @id -id ::punk::console::show_input_response
-        @cmd -name punk::console::show_input_response -help\
-            "Debug command for console queries using ANSI"
-        @opts
-        -terminal -default {stdin stdout} -type list -help\
-            "terminal (currently list of in/out channels) (todo - object?)"
-        -expected_ms -type integer -default 500 -help\
-            "Number of ms to wait for response"
-        @values -min 1 -max 1
-        request -type string -help\
-            {ANSI sequence such as \x1b\[?6n which
-             should elicit a response by the terminal
-             on stdin}
-    }]
-    proc show_input_response {args} {
-        set argd [punk::args::parse $args withid ::punk::console::show_input_response]
-        lassign [dict values $argd] leaders opts values received
-        set request         [dict get $values request]
-        set inoutchannels   [dict get $opts -terminal]
-        set expected        [dict get $opts -expected_ms]
-
-        set capturingregex {(((.*)))$} ;#capture entire response same as response-payload
-        set ts_start [clock millis]
-        set response [punk::console::internal::get_ansi_response_payload -ignoreok 1 -return dict -expected_ms $expected -terminal $inoutchannels $request $capturingregex]
-        set ts_end   [clock millis]
-        puts stderr $response
-        set out ""
-        dict for {k v} $response {
-            append out "$k [ansistring VIEW $v]" \n
-        }
-        append out "totalms [expr {$ts_end - $ts_start}]"
-        return $out
-    }
-
-    # -- --- --- --- --- --- ---
-    #get_ansi_response functions
-    #review - can these functions sensibly be used on channels not attached to the local console?
-    #ie can we default to {stdin stdout} but allow other channel pairs?
-    # -- --- --- --- --- --- ---
-    proc get_cursor_pos {{inoutchannels {stdin stdout}}} {
-        if {$::punk::console::is_vt52} {
-            error "vt52 can't perform get_cursor_pos"
-        }
-        #response from terminal
-        #e.g  \033\[46;1R
-        set capturingregex {(.*)(\x1b\[([0-9]+;[0-9]+)R)$} ;#must capture prefix,entire-response,response-payload
-
-        set request "\033\[6n"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        #some terminals fail to respond properly to \x1b\[6n but do respond to \x1b\[?6n and vice-versa :/
-        #todo - what?
-        #often terminals that fail will just put the raw request code on stdin - we could detect that and then
-        #try the other?
-
-        return $payload
-    }
-    proc get_checksum_rect {id page t l b r {inoutchannels {stdin stdout}}} {
-        #e.g \x1b\[P44!~E797\x1b\\
-        #re e.g {(.*)(\x1b\[P44!~([[:alnum:]])\x1b\[\\)$}
-        set capturingregex [string map [list %id% $id] {(.*)(\x1bP%id%!~([[:alnum:]]+)\x1b\\)$}]
-        set request "\x1b\[${id}\;${page}\;$t\;$l\;$b\;$r*y"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-    proc get_device_status {{inoutchannels {stdin stdout}}} {
-        set capturingregex {(.*)(\x1b\[([0-9]+)n)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[5n"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-
-    variable last_da1_result ""
-    #TODO - 22? 28? 32?
-    #1   132 columns
-    #2 Printer port extension
-    #4 Sixel extension
-    #6 Selective erase
-    #7 DRCS
-    #8 UDK
-    #9 NRCS
-    #12 SCS extension
-    #15 Technical character set	
-    #18 Windowing capability
-    #21 Horizontal scrolling
-    #23 Greek extension
-    #24 Turkish extension
-    #42 ISO Latin 2 character set
-    #44 PCTerm
-    #45 Soft key map
-    #46 ASCII emulation
-
-    #https://vt100.net/docs/vt510-rm/DA1.html
-    #
-    proc get_device_attributes {{inoutchannels {stdin stdout}}} {
-        #Note the vt52 rough equivalen \x1bZ - commonly supported but probably best considered obsolete as it collides with ECMA 48 SCI Single Character Introducer
-        #DA1
-        variable last_da1_result
-        #first element in result is the terminal's architectural class 61,62,63,64.. ?
-        #for vt100 we get things like: "ESC\[?1;0c"
-        #for vt102 "ESC\[?6c"
-
-        #set capturingregex {(.*)(\x1b\[\?6[0-9][;]*([;0-9]+)c)$} ;#must capture prefix,entire-response,response-payload
-        set capturingregex {(.*)(\x1b\[\?([0-9]*[;0-9]+)c)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[c"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        set last_da1_result $payload
-        return $payload
-    }
-    #https://vt100.net/docs/vt510-rm/DA2.html
-    proc get_device_attributes_secondary {{inoutchannels {stdin stdout}}} {
-        #DA2
-        set capturingregex {(.*)(\x1b\[\>([0-9]*[;][0-9]*[;][0-1]c))$} ;#must capture prefix,entire-response,response-payload
-        #expect  CSI > X;10|20;0|1c - docs suggest X should be something like 61. In practice we see 0 or 1 (windows) REVIEW
-        set request "\x1b\[>c"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-    proc get_device_attributes_tertiary {{inoutchannels {stdin stdout}}} {
-        #DA3
-        set capturingregex {(.*)(\x1bP!\|([0-9]{8})\x1b\\)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[=c"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-    proc get_terminal_id {{inoutchannels {stdin stdout}}} {
-        #DA3 - alias
-        get_device_attributes_tertiary $inoutchannels
-    }
-
-    proc get_tabstops {{inoutchannels {stdin stdout}}} {
-        #DECTABSR \x1b\[2\$w
-        #response example " ^[P2$u9/17/25/33/41/49/57/65/73/81^[\ " (where ^[ is \x1b)
-        #set capturingregex {(.*)(\x1b\[P2$u()\x1b\[\\)}
-        #set capturingregex {(.*)(\x1bP2$u((?:[0-9]+)*(?:\/[0-9]+)*)\x1b\\)$}
-        set capturingregex {(.*)(\x1bP2\$u(.*)\x1b\\)$}
-        set request "\x1b\[2\$w"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        set tabstops [split $payload "/"]
-        return $tabstops
-    }
-
-    #a simple estimation of tab-width under assumption console is set with even spacing.
-    #It's known this isn't always the case - but things like textutil::untabify2 take only a single value
-    #on some systems test_char_width is a similar speed to get_tabstop_apparent_width - but on some test_char_width is much slower
-    #we will use test_char_width as a fallback
-    proc get_tabstop_apparent_width {{inoutchannels {stdin stdout}}} {
-        set tslist [get_tabstops $inoutchannels]
-        if {![llength $tslist]} {
-            #either terminal failed to report - or none set.
-            set testw [test_char_width \t]
-            if {[string is integer -strict $testw]} {
-                return $testw
-            }
-            #We don't support none - default to 8
-            return 8
-        }
-        #we generally expect to see a tabstop at column 1 - but it may not be set.
-        if {[lindex $tslist 0] eq "1"} {
-            if {[llength $tslist] == 1} {
-                set testw [test_char_width \t]
-                if {[string is integer -strict $testw]} {
-                    return $testw
-                }
-                return 8
-            } else {
-                set next [lindex $tslist 1]
-                return [expr {$next - 1}]
-            }
-        } else {
-            #simplistic guess at width - review - do we need to consider leftmost tabstops as more likely to be non-representative and look further into the list?
-            if {[llength $tslist] == 1} {
-                return [lindex $tslist 0]
-            } else {
-                return [expr {[lindex $tslist 1] - [lindex $tslist 0]}]
-            }
-        }
-    }
-    #default to 8 just because it seems to be most common default in terminals
-    proc set_tabstop_width {{w 8}} {
-        set tsize [get_size]
-        set width [dict get $tsize columns]
-        set mod [expr {$width % $w}]
-        set max [expr {$width - $mod}]
-        set tstops ""
-        set c 1
-        while {$c <= $max} {
-            append tstops [string repeat " " $w][punk::ansi::set_tabstop]
-            incr c $w
-        }
-        set punk::console::tabwidth $w ;#we also attempt to read terminal's tabstops and set tabwidth to the apparent spacing of first non-1 value in tabstops list.
-        catch {textutil::tabify::untabify2 "" $w} ;#textutil tabify can end up uninitialised and raise errors like "can't read Spaces(<n>).." after a tabstop change  This call seems to keep tabify happy - review.
-        puts -nonewline "[punk::ansi::clear_all_tabstops]\n[punk::ansi::set_tabstop]$tstops"
-    }
-
-
-    proc get_cursor_pos_list {{inoutchannels {stdin stdout}}} {
-        return [split [get_cursor_pos $inoutchannels] ";"]
-    }
-
-    #todo - work out how to query terminal and set cell size in pixels
-    #for now use the windows default
-    variable cell_size
-    set cell_size ""
-    set cell_size_fallback 10x20
-
-    #todo - change -inoutchannels to -terminalobject with prebuilt default
-
-    punk::args::define {
-        @id     -id ::punk::console::cell_size
-        -inoutchannels -default {stdin stdout} -type list
-        @values -min 0 -max 1
-        newsize -default "" -help\
-            "character cell pixel dimensions WxH
-              or omit to query cell size."
-    }
-    proc cell_size {args} {
-        set argd [punk::args::get_by_id ::punk::console::cell_size $args]
-        set inoutchannels   [dict get $argd opts -inoutchannels]
-        set newsize         [dict get $argd values newsize]
-
-        variable cell_size
-        if {$newsize eq ""} {
-            #query existing setting
-            if {$cell_size eq ""} {
-                #not set - try to query terminal's overall dimensions
-                set pixeldict [punk::console::get_xterm_pixels $inoutchannels]
-                lassign $pixeldict _w sw _h sh
-                if {[string is integer -strict $sw] && [string is integer -strict $sh]} {
-                    lassign [punk::console::get_size] _cols columns _rows rows
-                    #review - is returned size in pixels always a multiple of rows and cols?
-                    set w [expr {$sw / $columns}]
-                    set h [expr {$sh / $rows}]
-                    set cell_size ${w}x${h}
-                    return $cell_size
-                } else {
-                    set cell_size $::punk::console::cell_size_fallback
-                    puts stderr "punk::console::cell_size unable to query terminal for pixel data - using default $cell_size"
-                    return $cell_size
-                }
-            }
-            return $cell_size
-        }
-        #newsize supplied - try to set
-        lassign [split [string tolower $newsize] x] w h
-        if {![string is integer -strict $w] || ![string is integer -strict $h] || $w < 1 || $h < 1} {
-            error "punk::sixel::cell_size error - expected format WxH where W and H are positive integers - got '$newsize'"
-        }
-        set cell_size ${w}x${h}
-    }
-    punk::args::define {
-        @id     -id ::punk::console::test_is_vt52
-        @cmd    -name punk::console::test_is_vt52 -help\
-            "in development.. broken"
-        -inoutchannels -default {stdin stdout} -type list
-        @values -min 0 -max 0
-    }
-
-    #only works in raw mode for windows terminal - (esc in output stripped?) why?
-    # works in line mode for alacrity and wezterm
-    proc test_is_vt52    {args} {
-        set argd [punk::args::get_by_id ::punk::console::test_is_vt52 $args]
-        set inoutchannels   [dict get $argd opts -inoutchannels]
-        #ESC / K  VT52 without printer
-        #ESC / M  VT52 with printer
-        #ESC / Z  VT52 emulator?? review
-
-        #TODO
-        set capturingregex {(.*)(?:(\x1b\/(Z))|(\x1b\/(K))|(\x1b\/(M))|(\x1b\[\?([0-9;]+)c))$} ;#must capture prefix,entire-response,response-payload
-        #set capturingregex {(.*)(\x1b\[([0-9;]+)c)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1bZ"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        #puts -->$payload<--
-        return [expr {$payload in {Z K M}}]
-    }
-
-    #todo - determine cursor on/off state before the call to restore properly.
-    proc get_size {{inoutchannels {stdin stdout}}} {
-        lassign $inoutchannels in out
-        #we can't reliably use [chan names] for stdin,stdout. There could be stacked channels and they may have a names such as file22fb27fe810
-        #chan eof is faster whether chan exists or not than
-        if {[catch {chan eof $out} is_eof]} {
-                error "punk::console::get_size output channel $out seems to be closed ([info level 1])"
-        } else {
-            if {$is_eof} {
-                error "punk::console::get_size eof on output channel $out ([info level 1])"
-            }
-        }
-        #we don't need to care about the input channel if chan configure on the output can give us the info.
-        #short circuit ansi cursor movement method if chan configure supports the -winsize value
-        set outconf [chan configure $out]
-        if {[dict exists $outconf -winsize]} {
-            #this mechanism is much faster than ansi cursor movements
-            #REVIEW check if any x-platform anomalies with this method?
-            #can -winsize key exist but contain erroneous info? We will check that we get 2 ints at least
-            lassign [dict get $outconf -winsize] cols lines
-            if {[string is integer -strict $cols] && [string is integer -strict $lines]} {
-                return [list columns $cols rows $lines]
-            }
-            #continue on to ansi mechanism if we didn't get 2 ints
-        }
-
-        if {[catch {chan eof $in} is_eof]} {
-                error "punk::console::get_size input channel $in seems to be closed ([info level 1])"
-        } else {
-            if {$is_eof} {
-                error "punk::console::get_size eof on input channel $in ([info level 1])"
-            }
-        }
-
-        #keep out of catch - no point in even trying a restore move if we can't get start position - just fail here.
-        #no vt52 equiv? may as well strip all vt52 from here?
-        lassign [get_cursor_pos_list $inoutchannels] start_row start_col
-        variable is_vt52
-        if {!$is_vt52} {
-            set movefunc    "punk::ansi::move"
-            set func_coff   "punk::ansi::cursor_off"
-            set func_con    "punk::ansi::cursor_on"
-        } else {
-            set movefunc "punk::ansi::vt52move"
-            set func_coff   "punk::ansi::cursor_off_vt52"
-            set func_con    "punk::ansi::cursor_on_vt52"
-        }
-        if {[catch {
-            #some terminals (conemu on windows) scroll the viewport when we make a big move down like this - a  move to 1 1 immediately after cursor_save doesn't seem to fix that.
-            #This issue also occurs when switching back from the alternate screen buffer - so perhaps that needs to be addressed elsewhere.
-
-            puts -nonewline $out [$func_coff][$movefunc 2000 2000]
-            lassign [get_cursor_pos_list $inoutchannels] lines cols
-            puts -nonewline $out [$movefunc $start_row $start_col][$func_con];flush stdout
-            set result [list columns $cols rows $lines]
-        } errM]} {
-            puts -nonewline $out [$movefunc $start_row $start_col]
-            puts -nonewline $out [$func_con]
-            error "$errM"
-        } else {
-            return $result
-        }
-    }
-
-    #faster than get_size when it is using ansi mechanism - but uses cursor_save - which we may want to avoid if calling during another operation which uses cursor save/restore
-    proc get_size_cursorrestore {{inoutchannels {stdin stdout}}} {
-        lassign $inoutchannels in out
-        #we use the same shortcircuit mechanism as get_size to avoid ansi at all if the output channel will give us the info directly
-        set outconf [chan configure $out]
-        if {[dict exists $outconf -winsize]} {
-            lassign [dict get $outconf -winsize] cols lines
-            if {[string is integer -strict $cols] && [string is integer -strict $lines]} {
-                return [list columns $cols rows $lines]
-            }
-        }
-
-        if {[catch {
-            #some terminals (conemu on windows) scroll the viewport when we make a big move down like this - a  move to 1 1 immediately after cursor_save doesn't seem to fix that.
-            #This issue also occurs when switching back from the alternate screen buffer - so perhaps that needs to be addressed elsewhere.
-            puts -nonewline $out [punk::ansi::cursor_off][punk::ansi::cursor_save_dec][punk::ansi::move 2000 2000]
-            lassign [get_cursor_pos_list $inoutchannels] lines cols
-            puts -nonewline $out [punk::ansi::cursor_restore][punk::console::cursor_on];flush $out
-            set result [list columns $cols rows $lines]
-        } errM]} {
-            puts -nonewline $out [punk::ansi::cursor_restore_dec]
-            puts -nonewline $out [punk::ansi::cursor_on]
-            error "$errM"
-        } else {
-            return $result
-        }
-    }
-    proc get_dimensions {{inoutchannels {stdin stdout}}} {
-        lassign [get_size $inoutchannels] _c cols _l lines
-        return "${cols}x${lines}"
-    }
-    #the (xterm?) CSI 18t query is supported by *some* terminals
-    proc get_xterm_size {{inoutchannels {stdin stdout}}} {
-        set capturingregex {(.*)(\x1b\[8;([0-9]+;[0-9]+)t)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[18t"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        lassign [split $payload {;}] rows cols
-        return [list columns $cols rows $rows]
-    }
-    proc get_xterm_pixels {{inoutchannels {stdin stdout}}} {
-        set capturingregex {(.*)(\x1b\[4;([0-9]+;[0-9]+)t)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[14t"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        lassign [split $payload {;}] height width
-        return [list width $width height $height]
-    }
-
-
-    proc get_mode_line_wrap {{inoutchannels {stdin stdout}}} {
-        set capturingregex {(.*)(\x1b\[\?7;([0-9]+)\$y)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[?7\$p"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-    #Terminals generally default to LNM being reset (off) ie enter key sends a lone <cr>
-    #Terminals tested on windows either don't respond to this query, or respond with 0 (meaning mode not understood)
-    #I presume from this that almost nobody is using LNM 1 (which sends both <cr> and <lf>)
-    proc get_mode_LNM {{inoutchannels {stdin stdout}}} {
-        set capturingregex {(.*)(\x1b\[\?20;([0-9]+)\$y)$} ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[?20\$p"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-    #DECRPM responses e.g:
-    # \x1b\[?7\;1\$y
-    # \x1b\[?7\;2\$y
-    #where 1 = set, 2 = unset. (0 = mode not recognised, 3 = permanently set, 4 = permanently unset)
-    proc get_mode {num_or_name {inoutchannels {stdin stdout}}} {
-        if {[string is integer -strict $num_or_name]} {
-            set m $num_or_name
-        } else {
-            upvar ::punk::ansi::decmode_names decmode_names
-            if {[dict exists $decmode_names $num_or_name]} {
-                set m [dict get $decmode_names $num_or_name]
-            } else {
-                error "punk::console::get_mode unrecognised mode '$num_or_name'. Known mode names: [dict keys $decmode_names]"
-            }
-        }
-        set capturingregex [string map [list %MODE% $m] {(.*)(\x1b\[\?%MODE%;([0-9]+)\$y)$}] ;#must capture prefix,entire-response,response-payload
-        set request "\x1b\[?$m\$p"
-        set payload [punk::console::internal::get_ansi_response_payload -terminal $inoutchannels $request $capturingregex]
-        return $payload
-    }
-    proc set_mode {num_or_name {inoutchannels {stdin stdout}}} {
-        if {[string is integer -strict $num_or_name]} {
-            set m $num_or_name
-        } else {
-            upvar ::punk::ansi::decmode_names decmode_names
-            if {[dict exists $decmode_names $num_or_name]} {
-                set m [dict get $decmode_names $num_or_name]
-            } else {
-                error "punk::console::set_mode unrecognised mode '$num_or_name'. Known mode names: [dict keys $decmode_names]"
-            }
-        }
-        puts -nonewline "\x1b\[?${m}h"
-    }
-    proc unset_mode {num_or_name {inoutchannels {stdin stdout}}} {
-        if {[string is integer -strict $num_or_name]} {
-            set m $num_or_name
-        } else {
-            upvar ::punk::ansi::decmode_names decmode_names
-            if {[dict exists $decmode_names $num_or_name]} {
-                set m [dict get $decmode_names $num_or_name]
-            } else {
-                error "punk::console::unset_mode unrecognised mode '$num_or_name'. Known mode names: [dict keys $decmode_names]"
-            }
-        }
-        puts -nonewline "\x1b\[?${m}l"
-    }
-
-
-    #terminals lie. This should be a reasonable (albeit relatively slow) test of actual width - but some terminals seem to miscalculate.
-    #todo - a visual interactive test/questionnaire to ask user if things are lining up or if the terminal is telling fibs about cursor position.
-    #todo - determine if these anomalies are independent of font
-    #punk::ansi should be able to glean widths from unicode data files - but this may be incomplete - todo - compare with what terminal actually does.
-    #review - vertical movements (e.g /n /v will cause emit 0 to be ineffective - todo - disallow?)
-    proc test_char_width {char_or_string {emit 0}} {
-        #return 1
-        #JMN
-        #puts stderr "cwtest"
-        variable ansi_available
-        if {!$ansi_available} {
-            puts stderr "No ansi - cannot test char_width of '$char_or_string' returning [string length $char_or_string]"
-            return [string length $char_or_string]
-        }
-
-        if {!$emit} {
-            puts -nonewline stdout \033\[2K\033\[1G ;#2K erase line, 1G cursor at col1
-        }
-        set response ""
-        if {[catch {
-            set response [punk::console::get_cursor_pos]
-        } errM]} {
-            puts stderr "Cannot test_char_width for '[punk::ansi::ansistring VIEW $char_or_string]' - may be no console? Error message from get_cursor_pos: $errM"
-            return
-        }
-        lassign [split $response ";"] _row1 col1
-        if {![string length $response] || ![string is integer -strict $col1]} {
-            puts stderr "test_char_width Could not interpret response from get_cursor_pos for initial cursor pos. Response: '[punk::ansi::ansistring VIEW $response]'"
-            flush stderr
-            return
-        }
-
-        #On tcl9 - we could get an 'invalid or incomplete multibye or wide character' error
-        #e.g contains surrogate pair
-        if {[catch {
-            puts -nonewline stdout $char_or_string
-        } errM]} {
-            puts stderr "test_char_width couldn't emit this string - \nerror: $errM"
-        }
-
-        set response [punk::console::get_cursor_pos]
-        lassign [split $response ";"] _row2 col2
-        if {![string is integer -strict $col2]} {
-            puts stderr "test_char_width could not interpret response from get_cursor_pos for post-emit cursor pos. Response:'[punk::ansi::ansistring VIEW $response]'"
-            flush stderr
-            return
-        }
-
-        if {!$emit} {
-            puts -nonewline stdout \033\[2K\033\[1G
-        }
-        flush stdout;#if we don't flush - a subsequent stderr write could move the cursor to a newline and interfere with our 2K1G erasure and cursor repositioning.
-        return [expr {$col2 - $col1}]
-    }
-
-    #get reported cursor position after emitting teststring.
-    #The row is more likely to be a lie than the column
-    #With wrapping on we should be able to test if the terminal has an inconsistency between reported width and when it actually wraps.
-    #(but as line wrapping generally occurs based on width - we probably won't see this - just 'apparently' early wrapping due to printing mismatch with width)
-    #unfortunately if terminal reports something like \u200B as width 1, but doesn't print it - we can't tell. (vs reporting 1 wide and printing replacement char/space)
-    #When cursor is already at bottom of screen, scrolling will occur so rowoffset will be zero
-    #we either need to move cursor up before test - or use alt screen  ( or scroll_up then scroll_down?)
-    #for now we will use alt screen to reduce scrolling effects - REVIEW
-    proc test_string_cursor {teststring {emit 0}} {
-        variable ansi_available
-        if {!$ansi_available} {
-            puts stderr "No ansi - cannot test char_width of '$teststring' returning [string length $test_string]"
-            return [string length $teststring]
-        }
-        punk::console::enable_alt_screen
-        punk::console::move 0 0
-        if {!$emit} {
-            puts -nonewline stdout \033\[2K\033\[1G ;#2K erase line, 1G cursor at col1
-        }
-        set response ""
-        if {[catch {
-            set response [punk::console::get_cursor_pos]
-        } errM]} {
-            puts stderr "Cannot test_string_cursor for '[punk::ansi::ansistring VIEW $teststring]' - may be no console? Error message from get_cursor_pos: $errM"
-            return
-        }
-        lassign [split $response ";"] row1 col1
-        if {![string length $response] || ![string is integer -strict $col1] || ![string is integer -strict $row1]} {
-            puts stderr "test_string_cursor Could not interpret response from get_cursor_pos for initial cursor pos. Response: '[punk::ansi::ansistring VIEW $response]'"
-            flush stderr
-            return
-        }
-
-        puts -nonewline stdout $teststring
-        flush stdout
-        set response [punk::console::get_cursor_pos]
-        lassign [split $response ";"] row2 col2
-        if {![string is integer -strict $col2] || ![string is integer -strict $row2]} {
-            puts stderr "test_string_cursor could not interpret response from get_cursor_pos for post-emit cursor pos. Response:'[punk::ansi::ansistring VIEW $response]'"
-            flush stderr
-            return
-        }
-
-        if {!$emit} {
-            puts -nonewline stdout \033\[2K\033\[1G
-        }
-        flush stdout;#if we don't flush - a subsequent stderr write could move the cursor to a newline and interfere with our 2K1G erasure and cursor repositioning.
-        punk::console::disable_alt_screen
-        return [list rowoffset [expr {$col2 - $col1}] columnoffset [expr {$row2 - $row1}]]
-    }
-
-    #todo! - improve ideally we want to use VT sequences to determine - and make a separate utility for testing via systemcalls/os api
-    proc test_can_ansi {} {
-        #don't set ansi_avaliable here - we want to be able to change things, retest etc.
-        if {"windows" eq "$::tcl_platform(platform)"} {
-            if {[package provide twapi] ne ""} {
-                if {[catch {twapi::get_console_handle stdout} h_out]} {
-                    puts stderr "test_can_ansi: twapi cannot get console handle for stdout"
-                    return 0
-                }
-                set existing_mode [twapi::GetConsoleMode $h_out]
-                if {[expr {$existing_mode & 4}]} {
-                    #virtual terminal processing happens to be enabled - so it's supported
-                    return 1
-                }
-                #output mode
-                #ENABLE_VIRTUAL_TERMINAL_PROCESSING = 0x0004
-
-                #try temporarily setting it - if we get an error - ansi not supported
-                if {[catch {
-                    twapi::SetConsoleMode $h_out [expr {$existing_mode | 4}]
-                } errM]} {
-                    return 0
-                }
-                #restore
-                twapi::SetConsoleMode $h_out [expr {$existing_mode & ~4}]
-                return 1
-            } else {
-                #todo - try a cursorpos query and read stdin to see if we got a response?
-                puts stderr "Unable to verify terminal ansi support - assuming modern default of true"
-                puts stderr "to force disable, use command: ansi off"
-                return 1
-            }
-        } else {
-            return 1
-        }
-    }
-
-    #review
-    proc can_ansi {} {
-        variable ansi_available
-        if {!$ansi_available} {
-            return 0
-        }
-        #ansi_available defaults to -1 (unknown)
-        if {$ansi_available == -1} {
-            set ansi_available [test_can_ansi]
-            return $ansi_available
-        }
-        return 1
-    }
-
-
-    variable grapheme_cluster_support [dict create] ;#default empty dict for unknown/untested
-    #todo - flag to retest? (for consoles where grapheme cluster support can be disabled e.g via decmode 2027)
-    proc grapheme_cluster_support {} {
-        variable grapheme_cluster_support
-        if {[dict size $grapheme_cluster_support]} {
-            return $grapheme_cluster_support
-        }
-
-        if {[info exists ::env(TERM_PROGRAM)]} {
-            #terminals known to support grapheme clusters, but unable to respond to decmode request 2027
-            #wezterm (on windows as at 2024-12 decmode 2027 doesn't work)
-            #REVIEW - what if terminal is remote wezterm? can/will this env variable
-            # iterm and apple terminal also set TERM_PROGRAM
-            if {[string tolower $::env(TERM_PROGRAM)] in [list wezterm]} {
-                set is_available 1
-                return [dict create available 1 mode set]
-            }
-        }
-        #where 1 = set, 2 = unset. (0 = mode not recognised, 3 = permanently set, 4 = permanently unset)
-        set state [get_mode grapheme_clusters] ;#decmode 2027 extension
-        set is_available 0
-        switch -- $state {
-            0 {
-                set m unsupported ;# the dec query is unsupported - but it's possible the terminal still has grapheme support
-            }
-            1 {
-                set m set
-                set is_available 1
-            }
-            2 {
-                set m unset
-            }
-            3 {
-                set m permanently_set
-                set is_available 1
-            }
-            4 {
-                set m permanently_unset
-            }
-            default {
-                set m "BAD_RESPONSE"
-            }
-        }
-        return [dict create available $is_available mode $m]
-    }
-
-
-    #review - the concept of using local mechanisms at all (ie apis) vs ansi is not necessarily something we want/need to support.
-    #For the system to be really useful if needs to operate in conditions where the terminal is remote
-    #This seems to be why windows console is deprecating various non-ansi api methods for interacting with the console.
-    namespace eval local {
-        proc titleset {windowtitle} {
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {![catch {twapi::set_console_title $windowtitle} result]} {
-                    return $windowtitle
-                } else {
-                    error "punk::console::local::titleset failed to set title - try punk::console::ansi::titleset"
-                }
-            } else {
-                error "punk::console::local::titleset has no local mechanism to set the window title on this platform. try punk::console::ansi::titleset"
-            }
-        }
-        proc titleget {} {
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {![catch {twapi::get_console_title} result]} {
-                    return $result
-                } else {
-                    error "punk::console::local::titleset failed to set title - ensure twapi is available"
-                }
-            } else {
-                #titleget - https://invisible-island.net/xterm/xterm.faq.html#how2_title
-                # won't work on all platforms/terminals - but may be worth implementing (for overtype::renderspace / frames etc)
-                error "punk::console::local::titleget has no local mechanism to get the window title on this platform."
-            }
-        }
-    }
-
-
-    proc infocmp {} {
-        set cmd1 [auto_execok infocmp]
-        if {[string length $cmd1]} {
-            puts stderr ""
-            return [exec {*}$cmd1]
-        } else {
-            puts stderr "infocmp doesn't seem to be present"
-            if {$::tcl_platform(platform) eq "FreeBSD"} {
-                puts stderr "For FreeBSD - install ncurses to get infocmp and related binaries and also install terminfo-db"
-            }
-            set tcmd [auto_execok tput]
-            if {[string length $tcmd]} {
-                puts stderr "tput seems to be available. Try something like: tput -S - (freebsd)"
-            }
-            #todo - what? can tput query all caps? OS differences?
-        }
-    }
-
-
-    #todo - compare speed with get_cursor_pos - work out why the big difference
-    proc test_cursor_pos {} {
-        if {![tsv::get console is_raw]} {
-            set was_raw 0
-            enableRaw
-        } else {
-            set was_raw 1
-        }
-        puts -nonewline stdout \033\[6n ;flush stdout
-        chan configure stdin -blocking 0
-        set info [read stdin 20] ;#
-        after 1
-        if {[string first "R" $info] <=0} {
-            append info [read stdin 20]
-        }
-        if {!$was_raw} {
-            disableRaw
-        }
-        set data [string range [string trim $info] 2 end-1]
-        return [split $data ";"]
-    }
-
-
-    #channel?
-    namespace eval ansi {
-        variable PUNKARGS
-        #ansi escape sequence based terminal/console control functions
-        namespace export *
-
-        #proc a {args} {
-        #    puts -nonewline [::punk::ansi::a {*}$args]
-        #}
-        #proc a+ {args} {
-        #    puts -nonewline [::punk::ansi::a+ {*}$args]
-        #}
-        #proc a? {args} {
-        #    puts -nonewline stdout [::punk::ansi::a? {*}$args]
-        #}
-        proc clear {} {
-            puts -nonewline stdout [punk::ansi::clear]
-        }
-        proc clear_above {} {
-            puts -nonewline stdout [punk::ansi::clear_above]
-        }
-        proc clear_below {} {
-            puts -nonewline stdout [punk::ansi::clear_below]
-        }
-        proc clear_all {} {
-            puts -nonewline stdout [punk::ansi::clear_all]
-        }
-        proc reset {} {
-            puts -nonewline stdout [punk::ansi::reset]
-        }
-        proc cursor_on {} {
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                puts -nonewline stdout [punk::ansi::cursor_on]
-            } else {
-                puts -nonewline stdout [punk::ansi::cursor_on_vt52]
-            }
-        }
-        proc cursor_off {} {
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                puts -nonewline stdout [punk::ansi::cursor_off]
-            } else {
-                puts -nonewline stdout [punk::ansi::cursor_off_vt52]
-            }
-        }
-
-        lappend PUNKARGS [list {
-            @id     -id     ::punk::console::ansi::move
-            @cmd    -name   punk::console::move -help\
-                {Return an ANSI or vt52 sequence to move cursor to row,col
-                (aka: cursor home)
-
-                The sequence emitted will depend on the mode of the
-                terminal as stored in the consolehandle.
-                Directly setting the mode via raw escape sequences:
-                    e.g unset_mode DECANM  for vt52
-                    or puts \x1b< to return to ANSI
-                will not necessarily update the application of
-                the change in terminal state. Major state changes
-                such as this should be done via provided functions
-                that keep the REPL state in sync with the underlying
-                terminal state.
-
-                For ANSI the sequence is of the form:
-                  ESC[<row>;<col>H
-                  (CSI row ; col H)
-                This sequence will generally not be understood by
-                terminals that are in vt52 mode.
-
-                For VT52 the sequence is of the form:
-                  ESCY<rowchar><colchar>
-                This sequence will generally not be understood by
-                terminals that are not in vt52 mode even if higher
-                modes are supported.
-
-                }
-            @values -min 2 -max 2
-            row -type integer -help\
-                "row number - starting at 1"
-            col -type integer -help\
-                "column number - starting at 1"
-        }]
-        proc move {row col} {
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                return [punk::ansi::move $row $col]
-            } else {
-                return [punk::ansi::vt52move $row $col]
-            }
-        }
-        proc move_forward {n} {
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                puts -nonewline stdout [punk::ansi::move_forward $n]
-            } else {
-                puts -nonewline stdout [punk::ansi::vt52move_forward $n]
-            }
-        }
-        proc move_back {n} {
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                puts -nonewline stdout [punk::ansi::move_back $n]
-            } else {
-                puts -nonewline stdout [punk::ansi::vt52move_back $n]
-            }
-        }
-        proc move_up {n} {
-            puts -nonewline stdout [punk::ansi::move_up $n]
-        }
-        proc move_down {n} {
-            puts -nonewline stdout [punk::ansi::move_down $n]
-        }
-        proc move_column {col} {
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                puts -nonewline stdout [punk::ansi::move_column $col]
-            } else {
-                puts -nonewline stdout [punk::ansi::vt52move_column $col]
-            }
-        }
-        proc move_row {row} {
-            puts -nonewline stdout [punk::ansi::move_row $row]
-        }
-        proc move_emit {row col data args} {
-            upvar ::punk::console::is_v52 is_vt52
-            if {!$is_vt52} {
-                puts -nonewline stdout [punk::ansi::move_emit $row $col $data {*}$args]
-            } else {
-                puts -nonewline stdout [punk::ansi::v52move_emit $row $col $data {*}$args]
-            }
-        }
-        proc move_emit_return {row col data args} {
-            #todo detect if in raw mode or not?
-            set is_in_raw 0
-            lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-
-            set commands ""
-            append commands [punk::ansi::move_emit $row $col $data {*}$args]
-            foreach {row col data} $args {
-                append commands [punk::ansi::move_emit $row $col $data {*}$args]
-            }
-            if {!$is_in_raw} {
-                incr orig_row -1
-            }
-            append commands [punk::ansi::move  $orig_row $orig_col]
-            puts -nonewline stdout $commands
-            return ""
-        }
-        proc move_emitblock_return {row col textblock} {
-            lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-
-            set commands ""
-            foreach ln [split $textblock \n] {
-                append commands [punk::ansi::move_emit $row $col $ln]
-                incr row
-            }
-            append commands [punk::ansi::move $orig_row $orig_col]
-            puts -nonewline $commands
-            return
-        }
-        #we can be (slightly?) faster and more efficient if we use the consoles cursor_save_dec command - but each savecursor overrides any previous one.
-        #leave cursor_off/cursor_on to caller who can wrap more efficiently..
-        proc cursorsave_move_emit_return {row col data args} {
-            upvar ::punk::console::is_vt52 is_vt52
-            #JMN
-            set commands ""
-            if {!$is_vt52} {
-                append commands [punk::ansi::cursor_save_dec]
-                append commands [punk::ansi::move_emit $row $col $data]
-                foreach {row col data} $args {
-                    append commands [punk::ansi::move_emit $row $col $data]
-                }
-                append commands [punk::ansi::cursor_restore_dec]
-            } else {
-                append commands [punk::ansi::cursor_save_vt52]
-                append commands [punk::ansi::vt52move_emit $row $col $data]
-                foreach {row col data} $args {
-                    append commands [punk::ansi::vt52move_emit $row $col $data]
-                }
-                append commands [punk::ansi::cursor_restore_vt52]
-            }
-            puts -nonewline stdout $commands; flush stdout
-        }
-        proc cursorsave_move_emitblock_return {row col textblock} {
-            set commands ""
-            upvar ::punk::console::is_vt52 is_vt52
-            if {!$is_vt52} {
-                append commands [punk::ansi::cursor_save_dec]
-                foreach ln [split $textblock \n] {
-                    append commands [punk::ansi::move_emit $row $col $ln]
-                    incr row
-                }
-                append commands [punk::ansi::cursor_restore_dec]
-            } else {
-                append commands [punk::ansi::cursor_save_vt52]
-                foreach ln [split $textblock \n] {
-                    append commands [punk::ansi::vt52move_emit $row $col $ln]
-                    incr row
-                }
-                append commands [punk::ansi::cursor_restore_vt52]
-            }
-            puts -nonewline stdout $commands;flush stdout
-            return
-        }
-        proc move_call_return {row col script} {
-            lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-            move $row $col
-            uplevel 1 $script
-            move  $orig_row $orig_col
-        }
-        proc scroll_up {n} {
-            puts -nonewline stdout [punk::ansi::scroll_up $n]
-        }
-        proc scroll_down {n} {
-            puts -nonewline stdout [punk::ansi::scroll_down $n]
-        }
-        proc enable_alt_screen {} {
-            puts -nonewline stdout [punk::ansi::enable_alt_screen]
-        }
-        proc disable_alt_screen {} {
-            puts -nonewline stdout [punk::ansi::disable_alt_screen]
-        }
-
-        #review - worth the extra microseconds to inline? might be if used in for example prompt on every keypress.
-        #caller should build as much as possible using the punk::ansi versions to avoid extra puts calls
-        proc cursor_save {} {
-            #*** !doctools
-            #[call [fun cursor_save]]
-            puts -nonewline stdout \x1b\[s
-        }
-        proc cursor_restore {} {
-            #*** !doctools
-            #[call [fun cursor_restore]]
-            puts -nonewline stdout \x1b\[u
-        }
-        #DEC equivalents of cursor_save/cursor_restore - perhaps more widely supported?
-        proc cursor_save_dec {} {
-            #*** !doctools
-            #[call [fun cursor_save_dec]]
-            puts -nonewline \x1b7
-        }
-        proc cursor_restore_dec {} {
-            #*** !doctools
-            #[call [fun cursor_restore_dec]]
-            puts -nonewline \x1b8
-        }
-
-        proc insert_spaces {count} {
-            puts -nonewline stdout \x1b\[${count}@
-        }
-        proc delete_characters {count} {
-            puts -nonewline \x1b\[${count}P
-        }
-        proc erase_characters {count} {
-            puts -nonewline \x1b\[${count}X
-        }
-        proc insert_lines {count} {
-            puts -nonewline \x1b\[${count}L
-        }
-        proc delete_lines {count} {
-            puts -nonewline \x1b\[${count}M
-        }
-        proc titleset {windowtitle} {
-            puts -nonewline stdout [punk::ansi::titleset $windowtitle]
-        }
-        proc test_decaln {} {
-            puts -nonewline stdout [punk::ansi::test_decaln]
-        }
-    }
-    namespace import ::punk::console::ansi::*
-    catch {rename titleset ""}
-    #namespace import ansi::titleset
-    proc titleset {windowtitle} {
-        variable ansi_wanted
-        if { $ansi_wanted <= 0} {
-            punk::console::local::titleset $windowtitle
-        } else {
-            ansi::titleset $windowtitle
-        }
-    }
-    #no known pure-ansi solution
-    proc titleget {} {
-        return [local::titleget]
-    }
-
-    foreach ansicmd [list ::punk::console::ansi::move] {
-        set ctail   [namespace tail $ansicmd]
-        set arglist [info args $ansicmd]
-        set argcall ""
-        if {[llength $arglist]} {
-            foreach a [lrange $arglist 0 end-1] {
-                append argcall "\$$a "
-            }
-            if {[lindex $arglist end] eq "args"} {
-                append argcall {{*}$args}
-            } else {
-                append argcall "\$[lindex $arglist end]"
-            }
-        }
-        catch {rename $ctail ""}
-        proc $ctail $arglist [string map [list %ansicmd% $ansicmd %argcall% $argcall] {
-            puts -nonewline [%ansicmd% %argcall%]
-        }]
-    }
-
-
-
-    #experimental
-    proc rhs_prompt {col text} {
-        package require textblock
-        lassign [textblock::size $text] _w tw _h th
-        if {$th > 1} {
-             #move up first.. need to know current line?
-        }
-        #set  blanks [string repeat " " [expr {$col + $tw}]]
-        #puts -nonewline [punk::ansi::erase_eol]$blanks;move_emit_return this $col $text
-        #puts -nonewline  [move_emit_return this $col [punk::ansi::insert_spaces 150]$text]
-        cursor_save_dec
-        #move_emit_return this $col [punk::ansi::move_forward 50][punk::ansi::insert_spaces 150][punk::ansi::move_back 50][punk::ansi::move_forward $col]$text
-        #puts -nonewline [punk::ansi::insert_spaces 150][punk::ansi::move_column $col]$text
-        puts -nonewline [punk::ansi::erase_eol][punk::ansi::move_column $col]$text
-        cursor_restore
-    }
-
-    #this doesn't work - we would need an internal virtual screen structure to pick up cursor attributes from arbitrary locations?
-    # ncurses and its ilk may have something like that - but we specifically want to avoid curses libraries
-    proc pick {row col} {
-        lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-        set test ""
-        #set test [a green Yellow]
-        move_emit $row $col $test\0337
-        puts -nonewline \0338\033\[${orig_row}\;${orig_col}H
-    }
-    proc pick_emit {row col data} {
-        set test ""
-        #set test [a green Purple]
-        lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-        move_emit $row $col $test\0337
-        puts -nonewline \0338\033\[${orig_row}\;${orig_col}H$data
-    }
-
-    # -- --- --- --- --- ---
-    namespace eval clock {
-
-        #map chars of chars "0" to "?""  ie 0x30 to x3f
-        variable fontmap1 {
-            7C CE DE F6 E6 C6 7C 00
-            30 70 30 30 30 30 FC 00
-            78 CC 0C 38 60 CC FC 00
-            78 CC 0C 38 0C CC 78 00
-            1C 3C 6C CC FE 0C 1E 00
-            FC C0 F8 0C 0C CC 78 00
-            38 60 C0 F8 CC CC 78 00
-            FC CC 0C 18 30 30 30 00
-            78 CC CC 78 CC CC 78 00
-            78 CC CC 7C 0C 18 70 00
-            00 18 18 00 00 18 18 00
-            00 18 18 00 00 18 18 30
-            18 30 60 C0 60 30 18 00
-            00 00 7E 00 7E 00 00 00
-            60 30 18 0C 18 30 60 00
-            3C 66 0C 18 18 00 18 00
-        }
-        #libungif extras
-        append fontmap1 {
-            7c 82 9a aa aa 9e 7c 00
-            38 6c c6 c6 fe c6 c6 00
-            fc c6 c6 fc c6 c6 fc 00
-        }
-
-        #https://github.com/Distrotech/libungif/blob/master/lib/gif_font.c
-        variable fontmap {
-        }
-        #ascii row 0x00 to 0x1F control chars
-        #(cp437 glyphs)
-        append fontmap {
-            00 00 00 00 00 00 00 00
-            3c 42 a5 81 bd 42 3c 00
-            3c 7e db ff c3 7e 3c 00
-            00 ee fe fe 7c 38 10 00
-            10 38 7c fe 7c 38 10 00
-            00 3c 18 ff ff 08 18 00
-            10 38 7c fe fe 10 38 00
-            00 00 18 3c 18 00 00 00
-            ff ff e7 c3 e7 ff ff ff
-            00 3c 42 81 81 42 3c 00
-            ff c3 bd 7e 7e bd c3 ff
-            1f 07 0d 7c c6 c6 7c 00
-            00 7e c3 c3 7e 18 7e 18
-            04 06 07 04 04 fc f8 00
-            0c 0a 0d 0b f9 f9 1f 1f
-            00 92 7c 44 c6 7c 92 00
-            00 00 60 78 7e 78 60 00
-            00 00 06 1e 7e 1e 06 00
-            18 7e 18 18 18 18 7e 18
-            66 66 66 66 66 00 66 00
-            ff b6 76 36 36 36 36 00
-            7e c1 dc 22 22 1f 83 7e
-            00 00 00 7e 7e 00 00 00
-            18 7e 18 18 7e 18 00 ff
-            18 7e 18 18 18 18 18 00
-            18 18 18 18 18 7e 18 00
-            00 04 06 ff 06 04 00 00
-            00 20 60 ff 60 20 00 00
-            00 00 00 c0 c0 c0 ff 00
-            00 24 66 ff 66 24 00 00
-            00 00 10 38 7c fe 00 00
-            00 00 00 fe 7c 38 10 00
-        }
-        #chars SP to "/"  row 0x20 to 0x2f
-        append fontmap {
-            00 00 00 00 00 00 00 00
-            30 30 30 30 30 00 30 00
-            66 66 00 00 00 00 00 00
-            6c 6c fe 6c fe 6c 6c 00
-            10 7c d2 7c 86 7c 10 00
-            f0 96 fc 18 3e 72 de 00
-            30 48 30 78 ce cc 78 00
-            0c 0c 18 00 00 00 00 00
-            10 60 c0 c0 c0 60 10 00
-            10 0c 06 06 06 0c 10 00
-            00 54 38 fe 38 54 00 00
-            00 18 18 7e 18 18 00 00
-            00 00 00 00 00 00 18 70
-            00 00 00 7e 00 00 00 00
-            00 00 00 00 00 00 18 00
-            02 06 0c 18 30 60 c0 00
-        }
-        #chars "0" to "?""  row 0x30 to 0x3f
-        append fontmap {
-            7c c6 c6 c6 c6 c6 7c 00
-            18 38 78 18 18 18 3c 00
-            7c c6 06 0c 30 60 fe 00
-            7c c6 06 3c 06 c6 7c 00
-            0e 1e 36 66 fe 06 06 00
-            fe c0 c0 fc 06 06 fc 00
-            7c c6 c0 fc c6 c6 7c 00
-            fe 06 0c 18 30 60 60 00
-            7c c6 c6 7c c6 c6 7c 00
-            7c c6 c6 7e 06 c6 7c 00
-            00 30 00 00 00 30 00 00
-            00 30 00 00 00 30 20 00
-            00 1c 30 60 30 1c 00 00
-            00 00 7e 00 7e 00 00 00
-            00 70 18 0c 18 70 00 00
-            7c c6 0c 18 30 00 30 00
-        }
-        #chars "@" to "O" row 0x40 to 0x4f
-        append fontmap {
-            7c 82 9a aa aa 9e 7c 00
-            38 6c c6 c6 fe c6 c6 00
-            fc c6 c6 fc c6 c6 fc 00
-            7c c6 c6 c0 c0 c6 7c 00
-            f8 cc c6 c6 c6 cc f8 00
-            fe c0 c0 fc c0 c0 fe 00
-            fe c0 c0 fc c0 c0 c0 00
-            7c c6 c0 ce c6 c6 7e 00
-            c6 c6 c6 fe c6 c6 c6 00
-            78 30 30 30 30 30 78 00
-            1e 06 06 06 c6 c6 7c 00
-            c6 cc d8 f0 d8 cc c6 00
-            c0 c0 c0 c0 c0 c0 fe 00
-            c6 ee fe d6 c6 c6 c6 00
-            c6 e6 f6 de ce c6 c6 00
-            7c c6 c6 c6 c6 c6 7c 00
-        }
-        #chars "P" to "_" row 0x50 to 0x5f
-        append fontmap {
-            fc c6 c6 fc c0 c0 c0 00
-            7c c6 c6 c6 c6 c6 7c 06
-            fc c6 c6 fc c6 c6 c6 00
-            78 cc 60 30 18 cc 78 00
-            fc 30 30 30 30 30 30 00
-            c6 c6 c6 c6 c6 c6 7c 00
-            c6 c6 c6 c6 c6 6c 38 00
-            c6 c6 c6 d6 fe ee c6 00
-            c6 c6 6c 38 6c c6 c6 00
-            c3 c3 66 3c 18 18 18 00
-            fe 0c 18 30 60 c0 fe 00
-            3c 30 30 30 30 30 3c 00
-            c0 60 30 18 0c 06 03 00
-            3c 0c 0c 0c 0c 0c 3c 00
-            00 38 6c c6 00 00 00 00
-            00 00 00 00 00 00 00 ff
-        }
-        #chars "`" to "o" row 0x60 to 0x6f
-        append fontmap {
-            30 30 18 00 00 00 00 00
-            00 00 7c 06 7e c6 7e 00
-            c0 c0 fc c6 c6 e6 dc 00
-            00 00 7c c6 c0 c0 7e 00
-            06 06 7e c6 c6 ce 76 00
-            00 00 7c c6 fe c0 7e 00
-            1e 30 7c 30 30 30 30 00
-            00 00 7e c6 ce 76 06 7c
-            c0 c0 fc c6 c6 c6 c6 00
-            18 00 38 18 18 18 3c 00
-            18 00 38 18 18 18 18 f0
-            c0 c0 cc d8 f0 d8 cc 00
-            38 18 18 18 18 18 3c 00
-            00 00 cc fe d6 c6 c6 00
-            00 00 fc c6 c6 c6 c6 00
-            00 00 7c c6 c6 c6 7c 00
-        }
-        #chars "p" to DEL row 0x70 to 0x7f
-        append fontmap {
-            00 00 fc c6 c6 e6 dc c0
-            00 00 7e c6 c6 ce 76 06
-            00 00 6e 70 60 60 60 00
-            00 00 7c c0 7c 06 fc 00
-            30 30 7c 30 30 30 1c 00
-            00 00 c6 c6 c6 c6 7e 00
-            00 00 c6 c6 c6 6c 38 00
-            00 00 c6 c6 d6 fe 6c 00
-            00 00 c6 6c 38 6c c6 00
-            00 00 c6 c6 ce 76 06 7c
-            00 00 fc 18 30 60 fc 00
-            0e 18 18 70 18 18 0e 00
-            18 18 18 00 18 18 18 00
-            e0 30 30 1c 30 30 e0 00
-            00 00 70 9a 0e 00 00 00
-            00 00 18 3c 66 ff 00 00
-        }
-
-        proc bigstr {str row col} {
-            variable fontmap
-            #curses attr off reverse
-            #a noreverse
-            set reverse 0
-            set output ""
-            set charno 0
-            foreach char [split $str {}] {
-                binary scan $char c f
-                set index [expr {$f * 8}]
-                for {set line 0} {$line < 8} {incr line} {
-                    set bitline 0x[lindex $fontmap [expr {$index + $line}]]
-                    binary scan [binary format c $bitline] B8 charline
-                    set cix 0
-                    foreach c [split $charline {}] {
-                        if {$c} {
-                            append output [punk::ansi::move_emit [expr {$row + $line}] [expr {$col + $charno * 8 + $cix}] "[a+ reverse] [a+ noreverse]"]
-                            #curses attr on reverse
-                            #curses move [expr $row + $line] [expr $col + $charno * 8 + $cix]
-                            #curses puts " "
-                        }
-                        incr cix
-                    }
-                }
-                incr charno
-            }
-            return $output
-        }
-        proc get_time {} {
-            overtype::left -width 70 "" [bigstr [clock format [clock seconds] -format %H:%M:%S] 1 1]
-        }
-
-
-        proc display1 {} {
-            #punk::console::clear
-            punk::console::move_call_return 20 20 {punk::console::clear_above}
-            flush stdout
-            punk::console::move_call_return 0 0 {puts stdout [bigstr [clock format [clock seconds] -format %H:%M:%S] 10 5]}
-            after 2000 {punk::console::clock::display}
-        }
-        proc display {} {
-            lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-            punk::console::move 20 20
-            punk::console::clear_above
-            punk::console::move 0 0
-            puts -nonewline [bigstr [clock format [clock seconds] -format %H:%M:%S] 10 5]
-
-            punk::console::move $orig_row $orig_col
-            #after 2000 {punk::console::clock::display}
-        }
-
-        proc displaystr {str} {
-            lassign [punk::console::get_cursor_pos_list] orig_row orig_col
-            punk::console::move 20 20
-            punk::console::clear_above
-            punk::console::move 0 0
-            puts -nonewline [bigstr $str 10 5]
-
-            punk::console::move $orig_row $orig_col
-        }
-
-
-    }
-
-    proc test {} {
-        set high_unicode_length [string length \U00010000]
-        set can_high_unicode 0
-        set can_regex_high_unicode 0
-        set can_terminal_report_dingbat_width 0
-        set can_terminal_report_diacritic_width 0
-        if {$high_unicode_length != 1} {
-            puts stderr "punk::console WARNING: no modern unicode support in this Tcl version. High unicode values not properly supported. (string length \\U00010000 : $high_unicode_length should be 1)"
-        } else {
-            set can_high_unicode 1
-            set can_regex_high_unicode [string equal [regexp -all -inline {[\U80-\U0010FFFF]} \U0001F525] \U0001F525]
-            if {!$can_regex_high_unicode} {
-                puts stderr "punk::console warning: TCL version cannot perform braced regex of high unicode"
-            }
-        }
-        set dingbat_heavy_plus_width [punk::console::test_char_width \U2795] ;#review - may be font dependent. We chose a wide dingbat as a glyph that is hopefully commonly renderable - and should display 2 wide.
-        #This will give a false report that terminal can't report width if the glyph (or replacement glyph) is actually being rendered 1 wide.
-        #we can't distinguish without user interaction?
-        if {$dingbat_heavy_plus_width == 2} {
-            set can_terminal_report_dingbat_width 1
-        } else {
-            puts stderr "punk::console warning: terminal either not displaying wide unicode as wide, or unable to report width properly."
-        }
-        set diacritic_width [punk::console::test_char_width a\u0300]
-        if {$diacritic_width == 1} {
-            set can_terminal_report_diacritic_width 1
-        } else {
-            puts stderr "punk::console warning: terminal unable to report diacritic width properly."
-        }
-
-        if {$can_high_unicode && $can_regex_high_unicode && $can_terminal_report_dingbat_width && $can_terminal_report_diacritic_width} {
-            set result [list result ok]
-        } else {
-            set result [list result error]
-        }
-        return $result
-    }
-    #run the test and allow warnings to be emitted to stderr on package load. User should know the terminal and/or Tcl version are not optimal for unicode character work
-    #set testresult [test1]
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::console ---}]
-}
-
-namespace eval punk::console::check {
-    variable has_bug_legacysymbolwidth -1 ;#undetermined
-    proc has_bug_legacysymbolwidth {} {
-        #some terminals (on windows as at 2024) miscount width of these single-width blocks internally
-        #resulting in extra spacing that is sometimes well removed from the character itself (e.g at next ansi reset)
-        #This was fixed in windows-terminal based systems (2021) but persists in others.
-        #https://github.com/microsoft/terminal/issues/11694
-        variable has_bug_legacysymbolwidth
-        if {!$has_bug_legacysymbolwidth} {
-            return 0
-        }
-        if {$has_bug_legacysymbolwidth == -1} {
-            #run the test using ansi movement
-            #we only test a specific character from the known problematic set
-            set w [punk::console::test_char_width \U1fb7d]
-            if {$w == 1} {
-                set has_bug_legacysymbolwidth  0
-            } else {
-                #can return 2 on legacy window consoles for example
-                set has_bug_legacysymbolwidth  1
-            }
-            return $has_bug_legacysymbolwidth
-        }
-        return 1
-    }
-    variable has_bug_zwsp -1 ;#undetermined
-    proc has_bug_zwsp {} {
-        #Note that some terminals behave differently regarding a leading zwsp vs one that is inline between other chars.
-        #we are only testing the inline behaviour here.
-        variable has_bug_zwsp
-        if {!$has_bug_zwsp} {
-            return 0
-        }
-        if {$has_bug_zwsp == -1} {
-            set w [punk::console::test_char_width X\u200bY]
-        }
-        if {$w == 2} {
-            return 0
-        } else {
-            #may return 3 - but this gives no indication of whether terminal hides it or not.
-            return 1
-        }
-        return 1
-    }
-
-}
-
-
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::console ::punk::console::internal ::punk::console::local ::punk::console::ansi
-}
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::console [namespace eval punk::console {
-    variable version
-    set version 0.1.1 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/docgen-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/docgen-0.1.0.tm
deleted file mode 100644
index f3808c15..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/docgen-0.1.0.tm
+++ /dev/null
@@ -1,87 +0,0 @@
-
-# -*- tcl -*
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::docgen 0.1.0
-# Meta platform     tcl
-# Meta license      BSD
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-package require punk::repo
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::docgen {
-    proc get_doctools_comments {fname} {
-        #does no validation of doctools commands
-        #existence of string match #\**!doctools is taken as evidence enough that the file has inline doctools - review
-        if {![file exists $fname]} {
-            error "get_doctools_comments file '$fname' not found"
-        }
-        set fd [open $fname r]
-        chan conf $fd -translation binary
-        set data [read $fd]
-        close $fd
-        if {![string match "*#\**!doctools*" $data]} {
-            return
-        }
-        set data [string map [list \r\n \n] $data]
-        set in_doctools 0
-        set doctools ""
-        #foreach ln [split $data \n] {
-        #    set ln [string trim $ln]
-        #    if {$in_doctools && [string index $ln 0] != "#"} {
-        #        set in_doctools 0
-        #    } elseif {[string range $ln 0 1] == "#*"} {
-        #        #todo - process doctools ordering hints in tail of line
-        #        set in_doctools 1
-        #    } elseif {$in_doctools} {
-        #        append doctools [string range $ln 1 end] \n
-        #    }
-        #}
-        foreach ln [split $data \n] {
-            set ln [string trim $ln]
-            if {$in_doctools} {
-                if {[string index $ln 0] != "#"} {
-                    set in_doctools 0
-                } else {
-                    append doctools [string range $ln 1 end] \n
-                }
-            } else {
-                if {[string range $ln 0 1] == "#*" && [string first "!doctools" $ln] >=2} {
-                    #todo - process doctools ordering hints in tail of line
-                    set in_doctools 1
-                }
-            }
-        }
-        return $doctools
-    }
-    #todo - proc autogen_doctools_comments {fname} {}
-    # - will probably need to use something like parsetcl - as we won't be able to reliably source in an interp without side-effects and use info body etc.
-    # - mechanism will be to autodocument namespaces, procs, methods where no #*** doctools indication present - but use existing doctools comments for that particular item if it is present.
-
-
-
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::docgen [namespace eval punk::docgen {
-    variable pkg punk::docgen
-    variable version
-    set version 0.1.0 
-}]
-return
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/du-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/du-0.1.0.tm
deleted file mode 100644
index a95a6242..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/du-0.1.0.tm
+++ /dev/null
@@ -1,1641 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::du 0.1.0
-# Meta platform     tcl
-# Meta license      BSD 
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::mix::base
-package require struct::set
-package require punk::args
-
-
-namespace eval punk::du {
-    variable has_twapi 0
-}
-if {"windows" eq $::tcl_platform(platform)} {
-    if {![interp issafe]} {
-        #package require zzzload ;#dependency on Thread package
-        #zzzload::pkg_require twapi
-    }
-
-    if {[catch {package require twapi}]} {
-        puts stderr "Warning: punk::du - unable to load twapi. Disk operations may be much slower on windows without the twapi package"
-    } else {
-        set punk::du::has_twapi 1
-    }
-    #package require punk::winpath
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::du {
-    
-
-    proc dirlisting {folderpath args} {
-        set defaults [dict create\
-            -glob *\
-        ]
-        set opts [dict merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_glob            [dict get $opts -glob]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        if {[lib::pathcharacterlen $folderpath] == 0} {
-           set folderpath [pwd]
-        } elseif {[file pathtype $folderpath] ne "absolute"} {
-            #file normalize relativelly slow - avoid in inner loops
-            #set folderpath [file normalize $folderpath]
-            
-        }
-        #run whichever of du_dirlisting_twapi, du_dirlisting_generic, du_dirlisting_unix has been activated
-        set dirinfo [active::du_dirlisting $folderpath {*}$opts]
-    }
-
-    
-
-    #Note that unix du seems to do depth-first - which makese sense when piping.. as output can be emitted as we go rather than requiring sort at end.
-    #breadth-first with sort can be quite fast .. but memory usage can easily get out of control
-    proc du { args } {
-        variable has_twapi
-
-        #todo - use punk::args
-
-        if 0 {
-        switch -exact [llength $args] {
-            0 {
-                set dir .
-                set switch -k
-            }
-            1 {
-                set dir $args
-                set switch -k
-            }
-            2 {
-                set switch [lindex $args 0]
-                set dir [lindex $args 1]
-            }
-            default {
-                set msg "only one switch and one dir "
-                append msg "currently supported"
-                return -code error $msg
-            }
-        }
-
-        set switch [string tolower $switch]
-
-        set -b 1
-        set -k 1024
-        set -m [expr 1024*1024]
-        }
-
-
-        set opts $args
-        # flags in args are solos (or longopts --something=somethingelse) or sometimes pairopts
-        # we don't currently support mashopts  (ie -xy  vs separate -x -y)
-
-
-        #-------------------------------------------------------
-        # process any pairopts first and remove the pair
-        # (may also process some solo-opts)
-
-        set opt_depth -1
-        if {[set posn [lsearch $opts -d]] >= 0} {
-            set opt_depth [lindex $opts $posn+1]
-            set opts [lreplace $opts $posn $posn+1]
-        }
-        foreach o $opts {
-            if {[string match --max-depth=* $o]} {
-                set opt_depth [lindex [split $o =] 1]
-                if {![string is integer -strict $opt_depth]} {
-                    error "--max-depth=n  n must be an integer"
-                }
-            }
-        }
-        #-------------------------------------------------------
-        #only solos and longopts remain in the opts now
-        
-
-        set lastarg [lindex $opts end]
-        if {[string length $lastarg] && (![string match -* $lastarg])} {
-            set dir $lastarg
-            set opts [lrange $opts 0 end-1]
-        } else {
-            set dir . 
-            set opts $opts
-        }
-        foreach a $opts {
-            if {![string match -* $a]} {
-                error "unrecognized option '$a'"
-            } 
-        }
-
-        set -b 1
-        set -k 1024
-        set -m [expr 1024*1024]
-        set switch -k ;#default (same as unix)
-        set lc_opts [string tolower $opts] 
-
-
-
-        if {"-b" in $lc_opts} {
-            set switch -b
-        } elseif {"-k" in $lc_opts} {
-            set switch -k
-        } elseif {"-m" in $lc_opts} {
-            set switch -m
-        }
-        set opt_progress 0
-        if {"--prog" in $lc_opts || "--progress" in $lc_opts} {
-            set opt_progress 1
-        }
-        set opt_extra 0
-        if {"--extra" in $lc_opts} {
-            set opt_extra 1
-        }
-        set opt_vfs 0
-        #This configures whether to enter a vfsmount point 
-        #It will have no effect if cwd already with a vfs mount point - as then opt_vfs will be set to 1 automatically anyway.
-        if {"--vfs" in $lc_opts} {
-            set opt_vfs 1
-        }
-
-
-
-        set result [list]
-
-        set dir_depths_remaining [list]
-
-        set is_windows [expr {$::tcl_platform(platform) eq "windows"}]
-        set zero [expr {0}]
-
-        # ## ### ### ### ###
-        # containerid and itemid
-        set folders [list] ;#we lookup string by index
-        lappend folders [file dirname $dir]
-        lappend folders $dir ;#itemindex 1
-        # ## ### ### ### ###
-        if {![file isdirectory $dir]} {
-            lappend dir_depths_remaining [list $zero $zero [expr {1}] [lib::du_lit [file tail $dir]] [file size $dir]]
-            #set ary($dir,bytes) [file size $dir]
-            set leveldircount 0
-        } else {
-            lappend dir_depths_remaining [list $zero $zero [expr {1}] [lib::du_lit [file tail $dir]] $zero]
-            set leveldircount 1
-        }
-        set level [expr {0}] 
-        set nextlevel [expr {1}]
-        #dir_depths list structure
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        #0          1               2           3       4       5
-        #i_depth    i_containerid   i_itemid    i_item  i_size  i_index
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set i_depth         [expr {0}]
-        set i_containerid   [expr {1}]
-        set i_itemid        [expr {2}]
-        set i_item          [expr {3}]
-        set i_size          [expr {4}]
-        set i_index         [expr {5}]
-
-
-        set listlength [llength $dir_depths_remaining] 
-        set diridx 0
-        #this is a breadth-first algorithm
-        while {$leveldircount > 0} {
-            set leveldirs 0
-            set levelfiles 0
-            for {set i $diridx} {$i < $listlength} {incr i} {
-                #lassign [lindex $dir_depths_remaining $i] _d containeridx folderidx itm bytecount
-                set folderidx [lindex $dir_depths_remaining $i $i_itemid]
-                set folderpath [lindex $folders $folderidx] 
-                #puts stderr ->$folderpath
-                #if {$i >= 20} {
-                #return
-                #}
-
-                #twapi supports gathering file sizes during directory contents traversal
-                #for dirlisting methods that return an empty list in filesizes whilst files has entries - we will need to populate it below
-                #e.g tcl glob based dirlisting doesn't support gathering file sizes at the same time
-              
-                set in_vfs 0
-                if {[package provide vfs] ne ""} {
-                    if {[file pathtype $folderpath] ne "absolute"} {
-                        set testpath [file normalize $folderpath]
-                    } else {
-                        set testpath $folderpath
-                    }
-                    foreach vfsmount [vfs::filesystem info] {
-                            
-                        if {[punk::mix::base::lib::path_a_atorbelow_b $testpath $vfsmount]} {
-                            set in_vfs 1
-                            #if already descended to or below a vfs mount point - set opt_vfs true
-                            set opt_vfs 1
-                            break
-                        }
-                    }
-                }
-
-                if {$in_vfs} {
-                    set du_info [lib::du_dirlisting_tclvfs $folderpath]
-                } else {
-                    set in_zipfs 0
-                    if {[info commands ::tcl::zipfs::mount] ne ""} {
-                        if {[file pathtype $folderpath] ne "absolute"} {
-                            set testpath [file normalize $folderpath]
-                        } else {
-                            set testpath $folderpath
-                        }
-                        dict for {zmount zpath} [::tcl::zipfs::mount] {
-                            if {[punk::mix::base::lib::path_a_atorbelow_b $testpath $zmount]} {
-                                set in_zipfs 1
-                                break
-                            }
-                        }
-                    }
-                    if {$in_zipfs} {
-                        #relative vs absolute? review - cwd valid for //zipfs:/ ??
-                        set du_info [lib::du_dirlisting_zipfs $folderpath]
-                    } else {
-                        #run the activated function (proc imported to active namespace and renamed)
-                        set du_info [active::du_dirlisting $folderpath]
-                    }
-                }
-
-                
-                set dirs [dict get $du_info dirs]
-                set files [dict get $du_info files]
-                set filesizes [dict get $du_info filesizes]
-                set vfsmounts [dict get $du_info vfsmounts]
-                #puts "---> vfsmounts $vfsmounts "
-                if {$opt_vfs} {
-                    foreach vm $vfsmounts {
-                        #puts stderr "vm: $vm"
-                        #check if vfs is mounted over a file or a dir
-                        if {$vm in $files} {
-                            puts stderr "vfs mounted over file $vm"
-                            set mposn [lsearch $files $vm]
-                            set files [lreplace $files $mposn $mposn]
-                            if {[llength $filesizes]} {
-                                set filesizes [lreplace $filesizes $mposn $mposn]
-                            }
-                        }
-                        if {$vm ni $dirs} {
-                            puts stderr "treating $vm as dir"
-                            lappend dirs $vm
-                        }
-                    }
-                }
-
-
-                incr leveldirs  [llength $dirs]
-                incr levelfiles [llength $files]
-
-                #lappend dir_depths_remaining {*}[lmap d $dirs {::list $nextdepth [lib::du_lit $cont/$itm] $d $zero}]
-                #folderidx is parent index for new dirs
-                lappend dir_depths_remaining {*}[lib::du_new_eachdir $dirs $nextlevel $folderidx]
-
-                #we don't need to sort files (unless we add an option such as -a to du (?))
-                set bytecount [expr {0}]
-
-                if {[llength $files] && ![llength $filesizes]} {
-                    #listing mechanism didn't supply corresponding sizes
-                    foreach filename $files {
-                        #incr bytecount [file size [file join $folderpath $filename]
-                        incr bytecount [file size $filename]
-                    }
-                } else {
-                    set filesizes [lsearch -all -inline -not $filesizes[unset filesizes] na] ;#only legal non-number is na
-                    set bytecount [tcl::mathop::+ {*}$filesizes]
-                }
-
-
-                #we can safely assume initial count was zero
-                lset dir_depths_remaining $i $i_size $bytecount
-                #incr diridx
-            }
-            #puts stdout "level: $level dirs: $leveldirs"
-            if {$opt_extra} {
-                puts stdout "level: $level dircount: $leveldirs filecount: $levelfiles"
-            }
-            incr level ;#zero based
-            set nextlevel [expr {$level + 1}]
-            set leveldircount [expr {[llength $dir_depths_remaining] - $listlength }]; #current - previous - while loop terminates when zero
-            #puts "diridx: $diridx i: $i rem: [llength $dir_depths_remaining] listlenth:$listlength levldircount: $leveldircount"
-            set diridx $i
-            set listlength  [llength $dir_depths_remaining]
-        }
-        #puts stdout ">>> loop done"
-        #flush stdout
-        #puts stdout $dir_depths_remaining
-        set dirs_as_encountered $dir_depths_remaining ;#index is in sync with 'folders' list
-        set dir_depths_longfirst $dirs_as_encountered
-
-        #store the index before sorting
-        for {set i 0} {$i < [llength $dir_depths_remaining]} {incr i} {
-            lset dir_depths_longfirst $i $i_index $i
-        }
-        set dir_depths_longfirst [lsort -integer -index 0 -decreasing $dir_depths_longfirst[set dir_depths_longfirst {}]]
-
-        #store main index in the reducing list
-        set dir_depths_remaining $dir_depths_longfirst
-        for {set i 0} {$i < [llength $dir_depths_remaining]} {incr i} {
-            #stored index at position 3
-            lset dir_depths_remaining $i $i_index $i
-        }
-
-        #index 3
-        #dir_depths_remaining -> dir_depths_longfirst -> dirs_as_encountered
-
-        #puts stdout "initial dir_depths_remaining: $dir_depths_remaining"
-
-
-        #summing performance is not terrible but significant on large tree - the real time is for large trees in the main loop above
-        #update - on really  large trees the reverse is true especiallyl now that twapi fixed the original speed issues.. todo - rework/simplify below - review natsort
-        #
-        #TODO - reconsider sorting by depth.. lreverse dirs_as_encountered should work.. 
-        if {[llength $dir_depths_longfirst] > 1} {
-            set i 0
-            foreach dd $dir_depths_longfirst {
-                lassign $dd d parentidx folderidx item bytecount
-                #set nm $cont/$item
-                set nm [lindex $folders $folderidx]
-                set dnext [expr {$d +1}]
-                set nextdepthposns [lsearch -all -integer -index 0 $dir_depths_remaining $dnext]
-                set nextdepthposns [lsort -integer -decreasing $nextdepthposns[set nextdepthposns {}]];#remove later elements first
-                foreach posn $nextdepthposns {
-                    set id [lindex $dir_depths_remaining $posn $i_itemid]
-                    set ndirname [lindex $folders $id]
-                    #set ndirname $cont/$item
-                    #set item [lindex $dir_depths_remaining $posn $i_item]
-                    #set ndirname [lindex $ndir 1]
-                    if {[string match $nm/* $ndirname]} {
-                        #puts stdout "dir $nm adding subdir size $ndirname"
-                        #puts stdout "incr $nm from $ary($nm,bytes) plus $ary($ndirname,bytes)"
-                        incr bytecount [lindex $dir_depths_remaining $posn $i_size]
-                        set dir_depths_remaining [lreplace $dir_depths_remaining[set dir_depths_remaining {}] $posn $posn]
-                    }
-                }
-                lset dir_depths_longfirst $i $i_size $bytecount
-                set p [lsearch -index $i_index -integer $dir_depths_remaining $i]
-                lset dir_depths_remaining $p $i_size $bytecount
-                #set ary($nm,bytes) $bytecount
-                incr i
-            }
-        }
-        #set dir_depths_longfirst [lsort -index 1 -decreasing $dir_depths_longfirst]
-        #
-
-        set retval [list]
-        #copy across the bytecounts
-        for {set i 0} {$i < [llength $dir_depths_longfirst]} {incr i} {
-            set posn [lindex $dir_depths_longfirst $i $i_index]
-            set bytes [lindex $dir_depths_longfirst $i $i_size]
-            lset dirs_as_encountered $posn $i_size $bytes 
-        }
-        foreach dirinfo [lreverse $dirs_as_encountered] {
-            set id [lindex $dirinfo $i_itemid]
-            set depth [lindex $dirinfo $i_depth]
-            if {($opt_depth >= 0) && $depth > $opt_depth} {
-                continue
-            }
-            set path [lindex $folders $id]
-            #set path $cont/$item
-            set item [lindex $dirinfo $i_item]
-            set bytes [lindex $dirinfo $i_size]
-            set size [expr {$bytes / [set $switch]}]
-            lappend retval [list $size $path]
-        }
-        # copyright 2002 by The LIGO Laboratory
-        return $retval
-    }
-    namespace eval active {
-        variable functions [list du_dirlisting ""]
-        variable functions_known [dict create]
-
-        #known functions from lib namespace
-        dict set functions_known du_dirlisting [list du_dirlisting_twapi du_dirlisting_generic du_dirlisting_unix du_dirlisting_undecided]
-
-        proc show_functions {} {
-            variable functions
-            variable functions_known
-            set msg ""
-            dict for {callname implementations} $functions_known {
-                append msg "callname: $callname" \n
-                foreach imp $implementations {
-                    if {[dict get $functions $callname] eq $imp} {
-                        append msg "  $imp (active)" \n
-                    } else {
-                        append msg "  $imp" \n
-                    }
-                }
-            }
-            return $msg
-        }
-        proc set_active_function {callname implementation} {
-            variable functions
-            variable functions_known
-            if {$callname ni [dict keys $functions_known]} {
-                error "unknown function callname $callname"
-            }
-            if {$implementation ni [dict get $functions_known $callname]} {
-                error "unknown implementation $implementation for callname $callname"
-            }
-            dict set functions $callname $implementation
-
-            catch {rename ::punk::du::active::$callname ""}
-            namespace eval ::punk::du::active [string map [list %imp% $implementation %call% $callname] {
-                namespace import ::punk::du::lib::%imp%
-                rename %imp% %call% 
-            }]
-
-            return $implementation
-        }
-        proc get_active_function {callname} {
-            variable functions
-            variable functions_known
-            if {$callname ni [dict keys $functions_known]} {
-                error "unknown function callname $callname known functions: [dict keys $functions_known]"
-            }
-            return [dict get $functions $callname]
-        }
-
-
-        #where we import & the appropriate du_listing.. function for the platform
-    }
-    namespace eval lib {
-        variable du_literal
-        variable winfile_attributes [list 16 directory 32 archive 1024 reparse_point 18 [list directory hidden] 34 [list archive hidden] ]
-        #caching this is faster than calling twapi api each time.. unknown if twapi is calculating from bitmask - or calling windows api
-        #we could work out all flags and calculate from bitmask.. but it's not necessarily going to be faster than some simple caching mechanism like this
-
-        proc decode_win_attributes {bitmask} {
-            variable winfile_attributes
-            if {[dict exists $winfile_attributes $bitmask]} {
-                return [dict get $winfile_attributes $bitmask]
-            } else {
-                #list/dict shimmering?
-                return [lindex [lappend winfile_attributes $bitmask [twapi::decode_file_attributes $bitmask]] end]
-            }
-        }
-        variable win_reparse_tags
-        #implied prefix for all names IO_REPARSE_TAG_
-        #list of reparse tags: https://learn.microsoft.com/en-us/openspecs/windows_protocols/ms-fscc/c8e77b37-3909-4fe6-a4ea-2b9d423b1ee4
-        set win_reparse_tags [dict create\
-            RESERVED_ZERO       [list hex 0x00000000    obsolete 0 serverside 0 meaning "Reserved reparse tag value"]\
-            RESERVED_ONE        [list hex 0x00000001    obsolete 0 serverside 0 meaning "Reserved reparse tag value"]\
-            RESERVED_TWO        [list hex 0x00000002    obsolete 0 serverside 0 meaning "Reserved reparse tag value"]\
-            MOUNT_POINT         [list hex 0xA0000003    obsolete 0 serverside 0 meaning "Used for mount point support"]\
-            HSM                 [list hex 0xC0000004    obsolete 1 serverside 0 meaning "Obsolete. Used by legacy Hierarchical Storage Manager Product"]\
-            DRIVE_EXTENDER      [list hex 0x80000005    obsolete 0 serverside 0 meaning "Home server drive extender"]\
-            HSM2                [list hex 0xC0000006    obsolete 1 serverside 0 meaning "Obsolete. Used by legacy Hierarchical Storage Manager Product"]\
-            SIS                 [list hex 0x80000007    obsolete 0 serverside 1 meaning "Used by single-instance storage (SIS) filter driver."]\
-            WIM                 [list hex 0x80000008    obsolete 0 serverside 1 meaning "Used by the WIM Mount filter."]\
-            CSV                 [list hex 0x80000008    obsolete 1 serverside 1 meaning "Obsolete. Used by Clustered Shared Volumes (CSV) version 1 in Windows Server 2008 R2 operating system. "]\
-            DFS                 [list hex 0x8000000A    obsolete 0 serverside 1 meaning "Used by the DFS filter. The DFS is described in the Distributed File System (DFS): Referral Protocol Specification \[MS-DFSC\]."]\
-            FILTER_MANAGER      [list hex 0x8000000B    obsolete 0 serverside 0 meaning "Used by filter manager test harness"]\
-            SYMLINK             [list hex 0xA000000C    obsolete 0 serverside 0 meaning "Used for symbolic link support."]\
-            IIS_CACHE           [list hex 0xA0000010    obsolete 0 serverside 1 meaning "Used by Microsoft Internet Information Services (IIS) caching. "]\
-            DFSR                [list hex 0x80000012    obsolete 0 serverside 1 meaning "Used by the DFS filter. The DFS is described in \[MS-DFSC\]. "]\
-            DEDUP               [list hex 0x80000013    obsolete 0 serverside 1 meaning "Used by the Data Deduplication (Dedup) filter. "]\
-            APPXSTRM            [list hex 0xC0000014    obsolete 0 serverside 0 meaning "Not used."]\
-            NFS                 [list hex 0x80000014    obsolete 0 serverside 1 meaning "Used by the Network File System (NFS) component. "]\
-            FILE_PLACEHOLDER    [list hex 0x80000015    obsolete 1 serverside 1 meaning "Obsolete. Used by Windows Shell for legacy placeholder files in Windows 8.1. "]\
-            DFM                 [list hex 0x80000016    obsolete 0 serverside 1 meaning "Used by the Dynamic File filter. "]\
-            WOF                 [list hex 0x80000017    obsolete 0 serverside 1 meaning "Used by the Windows Overlay filter, for either WIMBoot or single-file compression."]\
-            WCI                 [list hex 0x80000018    obsolete 0 serverside 1 meaning "Used by the Windows Container Isolation filter. "]\
-            WCI_2               [list hex 0x90001018    obsolete 0 serverside 1 meaning "Used by the Windows Container Isolation filter. "]\
-            GLOBAL_REPARSE      [list hex 0xA0000019    obsolete 0 serverside 1 meaning "Used by NPFS to indicate a named pipe symbolic link from a server silo into the host silo."]\
-            CLOUD               [list hex 0x9000001A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_1             [list hex 0x9000101A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_2             [list hex 0x9000201A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_3             [list hex 0x9000301A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_4             [list hex 0x9000401A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_5             [list hex 0x9000501A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_6             [list hex 0x9000601A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_7             [list hex 0x9000701A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_8             [list hex 0x9000801A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_9             [list hex 0x9000901A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_A             [list hex 0x9000A01A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_B             [list hex 0x9000B01A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_C             [list hex 0x9000C01A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_D             [list hex 0x9000D01A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_E             [list hex 0x9000E01A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            CLOUD_F             [list hex 0x9000F01A    obsolete 0 serverside 1 meaning "Used by the Cloud Files filter, for files managed by a sync engine such as Microsoft OneDrive."]\
-            APPEXECLINK         [list hex 0x8000001B    obsolete 0 serverside 1 meaning "Used by Universal Windows Platform (UWP) packages to encode information that allows the application to be launched by CreateProcess."]\
-            PROJFS              [list hex 0x9000001C    obsolete 0 serverside 1 meaning "Used by the Windows Projected File System filter, for files managed by a user mode provider such as VFS for Git."]\
-            LX_SYMLINK          [list hex 0xA000001D    obsolete 0 serverside 1 meaning "Used by the Windows Subsystem for Linux (WSL) to represent a UNIX symbolic link."]\
-            STORAGE_SYNC        [list hex 0x8000001E    obsolete 0 serverside 1 meaning "Used by the Azure File Sync (AFS) filter."]\
-            WCI_TOMBSTONE       [list hex 0xA000001F    obsolete 0 serverside 1 meaning "Used by the Windows Container Isolation filter."]\
-            UNHANDLED           [list hex 0x80000020    obsolete 0 serverside 1 meaning "Used by the Windows Container Isolation filter."]\
-            ONEDRIVE            [list hex 0x80000021    obsolete 0 serverside 0 meaning "Not used"]\
-            PROJFS_TOMBSTONE    [list hex 0xA0000022    obsolete 0 serverside 1 meaning "Used by the Windows Projected File System filter, for files managed by a user mode provider such as VFS for Git."]\
-            AF_UNIX             [list hex 0x80000023    obsolete 0 serverside 1 meaning "Used by the Windows Subsystem for Linux (WSL) to represent a UNIX domain socket."]\
-            LX_FIFO             [list hex 0x80000024    obsolete 0 serverside 1 meaning "Used by the Windows Subsystem for Linux (WSL) to represent a UNIX FIFO (named pipe)."]\
-            LX_CHR              [list hex 0x80000025    obsolete 0 serverside 1 meaning "Used by the Windows Subsystem for Linux (WSL) to represent a UNIX character special file."]\
-            LX_BLK              [list hex 0x80000026    obsolete 0 serverside 1 meaning "Used by the Windows Subsystem for Linux (WSL) to represent a UNIX block special file."]\
-            WCI_LINK            [list hex 0xA0000027    obsolete 0 serverside 1 meaning "Used by the Windows Container Isolation filter."]\
-            WCI_LINK_1          [list hex 0xA0001027    obsolete 0 serverside 1 meaning "Used by the Windows Container Isolation filter."]\
-        ]
-        variable win_reparse_tags_by_int
-        dict for {k v} $win_reparse_tags {
-            set intkey [expr {[dict get $v hex]}]
-            set info [dict merge [dict create tag $k] $v] ;#put tag at front
-            dict set win_reparse_tags_by_int $intkey $info
-        }
-
-        #https://stackoverflow.com/questions/46383428/get-the-immediate-target-path-from-symlink-reparse-point
-        #need to call twapi::create_file with FILE_FLAG_OPEN_REPARSE_POINT 0x00200000
-        #then twapi::device_ioctl (win32 DeviceIoControl) 
-        #then parse buffer somehow (binary scan..)
-        #https://learn.microsoft.com/en-us/openspecs/windows_protocols/ms-fscc/b41f1cbf-10df-4a47-98d4-1c52a833d913
-
-        proc Get_attributes_from_iteminfo {args} {
-            variable win_reparse_tags_by_int
-
-            set argd [punk::args::parse $args withdef {
-                @id             -id ::punk::du::lib::Get_attributes_from_iteminfo
-                -debug          -default 0                                  -help "set 1 for raw data on -debugchannel (default stderr)"
-                -debugchannel   -default stderr                             -help "channel to write debug output, or none to append to output"
-                @values         -min 1 -max 1
-                iteminfo                                                    -help "iteminfo dict as set by 'twapi::find_file_next <iterator> iteminfo'"
-            }]
-            set opts [dict get $argd opts]
-            set iteminfo [dict get $argd values iteminfo]
-            set opt_debug           [dict get $opts -debug]
-            set opt_debugchannel    [dict get $opts -debugchannel]
-            #-longname is placeholder - caller needs to set
-            set result [dict create -archive 0 -hidden 0 -longname [dict get $iteminfo name] -readonly 0 -shortname {} -system 0]
-            if {$opt_debug} {
-                set dbg "iteminfo returned by find_file_open\n"
-                append dbg [pdict -channel none iteminfo]
-                if {$opt_debugchannel eq "none"} {
-                    dict set result -debug $dbg
-                } else {
-                    puts -nonewline $opt_debugchannel $dbg 
-                }
-
-            }
-
-            set attrinfo [decode_win_attributes [dict get $iteminfo attrs]]
-            if {"hidden" in $attrinfo} {
-                dict set result -hidden 1
-            }
-            if {"system" in $attrinfo} {
-                dict set result -system 1
-            }
-            if {"readonly" in $attrinfo} {
-                dict set result -readonly 1
-            }
-            dict set result -shortname [dict get $iteminfo altname]
-            dict set result -fileattributes $attrinfo
-            if {"reparse_point" in $attrinfo} {
-                #the twapi API splits this 32bit value for us
-                set  low_word  [dict get $iteminfo reserve0]
-                set  high_word [dict get $iteminfo reserve1]
-                # 3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
-                # 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
-                #+-+-+-+-+-----------------------+-------------------------------+
-                #|M|R|N|R|     Reserved bits     |      Reparse tag value        |
-                #+-+-+-+-+-----------------------+-------------------------------+
-                #todo - is_microsoft from first bit of high_word
-                set low_int [expr {$low_word}] ;#review - int vs string rep for dict key lookup? does it matter?
-                if {[dict exists $win_reparse_tags_by_int $low_int]} {
-                    dict set result -reparseinfo [dict get $win_reparse_tags_by_int $low_int] 
-                } else {
-                    dict set result -reparseinfo [dict create tag "<UNKNOWN>" hex 0x[format %X $low_int] meaning "unknown reparse tag int:$low_int"]
-                }
-            }
-            dict set result -raw $iteminfo
-            return $result
-        }
-
-
-        proc attributes_twapi {args} {
-            set argd [punk::args::parse $args withdef {
-                @id             -id ::punk::du::lib::attributes_twapi
-                -debug          -default 0                                  -help "set 1 for raw data on -debugchannel (default stderr)"
-                -debugchannel   -default stderr                             -help "channel to write debug output, or none to append to output"
-                -detail         -default basic      -choices {basic full}   -help "full returns also the altname/shortname field"
-                @values         -min 1 -max 1
-                path                                                        -help "path to file or folder for which to retrieve attributes"
-            }]
-            set opts [dict get $argd opts]
-            set path [dict get $argd values path]
-            set opt_detail          [dict get $opts -detail]
-            set opt_debug           [dict get $opts -debug]
-            set opt_debugchannel    [dict get $opts -debugchannel]
-
-            try {
-                set iterator [twapi::find_file_open $path -detail $opt_detail] ;# -detail full only adds data to the altname field
-                if {[twapi::find_file_next $iterator iteminfo]} {
-                    set result [Get_attributes_from_iteminfo -debug $opt_debug -debugchannel $opt_debugchannel $iteminfo]
-                    return $result
-                } else {
-                    error "could not read attributes for $path"
-                }
-            } finally {
-                catch {twapi::find_file_close $iterator}
-            }
-        }
-
-        #todo - review 'errors' key. We have errors relating to containing folder and args vs per child-item errors - additional key needed?
-        namespace export attributes_twapi du_dirlisting_twapi du_dirlisting_generic du_dirlisting_unix du_dirlisting_undecided du_dirlisting_tclvfs
-        # get listing without using unix-tools (may not be installed on the windows system)
-        # this dirlisting is customised for du - so only retrieves dirs,files,filesizes (minimum work needed to perform du function)
-        # This also preserves path rep for elements in the dirs/folders keys etc - which can make a big difference in performance 
-        proc du_dirlisting_twapi {folderpath args} {
-            set defaults [dict create\
-                -glob *\
-                -filedebug 0\
-                -with_sizes 1\
-                -with_times 1\
-            ]
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_glob            [dict get $opts -glob]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_sizes      [dict get $opts -with_sizes]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_filedebug       [dict get $opts -filedebug] ;#per file
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set ftypes [list f d l]
-            if {"$opt_with_sizes" in {0 1}} {
-                #don't use string is boolean - (f false vs f file!)
-                #only accept 0|1 
-                if {$opt_with_sizes} {
-                    set sized_types $ftypes
-                } else {
-                    set sized_types [list]
-                }
-            } else {
-                set sized_types $opt_with_sizes
-            }
-            if {[llength $sized_types]} {
-                foreach st $sized_types {
-                    if {$st ni $ftypes} {
-                        error "du_dirlisting_twapi unrecognized element in -with_sizes '$st'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_times      [dict get $opts -with_times]
-            if {"$opt_with_times" in {0 1}} {
-                if {$opt_with_times} {
-                    set timed_types $ftypes
-                } else {
-                    set timed_types [list]
-                }
-            } else {
-                set timed_types $opt_with_times
-            }
-            if {[llength $timed_types]} {
-                foreach item $timed_types {
-                    if {$item ni $ftypes} {
-                        error "du_dirlisting_twapi unrecognised element in -with-times '$item'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-            set errors [dict create]
-            set altname "" ;#possible we have to use a different name e.g short windows name or dos-device path //?/
-            # return it so it can be stored and tried as an alternative for problem paths
-            #puts stderr ">>> glob: $opt_glob"
-            #REVIEW! windows api pattern matchttps://www.red-gate.com/simple-talk/blogs/the-unexpected-behaviour-of-directoryinfo-getfiles-with-three-letter-extensions/hing is .. weird. partly due to 8.3 filenames
-            #https://www.red-gate.com/simple-talk/blogs/the-unexpected-behaviour-of-directoryinfo-getfiles-with-three-letter-extensions/
-            #we will certainly need to check the resulting listing with our supplied glob.. but maybe we will have to change the glob passed to find_file_open too.
-            # using * all the time may be inefficient - so we might be able to avoid that in some cases.
-            try {
-                #glob of * will return dotfiles too on windows
-                set iterator [twapi::find_file_open [file join $folderpath $opt_glob] -detail basic] ;# -detail full only adds data to the altname field
-            } on error args {
-                try {
-                    if {[string match "*denied*" $args]} {
-                        #output similar format as unixy du
-                        puts stderr "[file dirname $folderpath] '[file tail $folderpath]':$args"
-                        dict lappend errors $folderpath $::errorCode
-                        return [list dirs {} vfsmounts {} links {} files {} filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-                    }
-                    if {[string match "*TWAPI_WIN32 59*" $::errorCode]} {
-                        puts stderr "[file dirname $folderpath] '[file tail $folderpath]':$args (possibly blocked by permissions or share config e.g follow symlinks = no on samba)"
-                        puts stderr "  (errorcode: $::errorCode)\n"
-                        dict lappend errors $folderpath $::errorCode
-                        return [list dirs {} vfsmounts {} links {} files {} filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-                    }
-
-
-                    #errorcode TWAPI_WIN32 2 {The system cannot find the file specified.}
-                    #This can be a perfectly normal failure to match the glob.. which means we shouldn't really warn or error
-                    #The find-all glob * won't get here because it returns . & .. 
-                    #so we should return immediately only if the glob has globchars ? or *  but isn't equal to just "*" ? (review)
-                    #Note that windows glob ? seems to return more than just single char results - it includes .. - which differs to tcl glob 
-                    #also ???? seems to returns items 4 or less - not just items exactly 4 long (review - where is this documented?)
-                    if {$opt_glob ne "*" && [regexp {[?*]} $opt_glob]} {
-                        if {[string match "*TWAPI_WIN32 2 *" $::errorCode]} {
-                            #looks like an ordinary no results for chosen glob
-                            return [list dirs {} vfsmounts {} links {} files {} filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-                        }
-                    }
-
-
-                    if {[set plen [pathcharacterlen $folderpath]] >= 250} {
-                        set errmsg "error reading folder: $folderpath (len:$plen)\n"
-                        append errmsg "error: $args" \n
-                        append errmsg "errorcode: $::errorCode" \n
-                        # re-fetch this folder with altnames 
-                        #file normalize - aside from being slow - will have problems with long paths - so this won't work.
-                        #this function should only accept absolute paths
-                        #
-                        #
-                        #Note: using -detail full  only helps if the last segment of path has an altname..
-                        #To properly shorten we need to have kept track of altname all the way from the root!
-                        #We can .. for now call Tcl's file attributes to get shortname of the whole path - it is *expensive* e.g 5ms for a long path on local ssd
-                        #### SLOW
-                        set fixedpath [dict get [file attributes $folderpath] -shortname]
-                        #### SLOW
-                        
-                        
-                        append errmsg "retrying with with windows altname '$fixedpath'"
-                        puts stderr $errmsg
-                    } else {
-                        set errmsg "error reading folder: $folderpath (len:$plen)\n"
-                        append errmsg "error: $args" \n
-                        append errmsg "errorcode: $::errorCode" \n
-                        set tmp_errors [list $::errorCode]
-                        #possibly an illegal windows filename - easily happens on a machine with WSL or with drive mapped to unix share
-                        #we can use //?/path  dos device path - but not with tcl functions
-                        #unfortunately we can't call find_file_open directly on the problem name - we have to call the parent folder and iterate through again..
-                        #this gets problematic as we go deeper unless we rewrite the .. but we can get at least one level further here
-                       
-                        set fixedtail ""
-
-                        set parent [file dirname $folderpath]
-                        set badtail [file tail $folderpath]
-                        set iterator [twapi::find_file_open [file join $parent *] -detail full] ;#retrieve with altnames
-                        while {[twapi::find_file_next $iterator iteminfo]} {
-                            set nm [dict get $iteminfo name]
-                            if {$nm eq $badtail} {
-                                set fixedtail [dict get $iteminfo altname] 
-                                break
-                            }
-                        }
-
-                        if {![string length $fixedtail]} {
-                            dict lappend errors $folderpath {*}$tmp_errors
-                            puts stderr "[file dirname $folderpath] '[file tail $folderpath]':$args (Unable to retrieve altname to progress further with path - returning no contents for this folder)"
-                            return [list dirs {} vfsmounts {} links {} files {} filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-                        }
-
-                        #twapi as at 2023-08 doesn't seem to support //?/ dos device paths.. 
-                        #Tcl can test only get as far as testing existence of illegal name by prefixing with //?/ - but can't glob inside it
-                        #we can call file attributes on it - but we get no shortname (but we could get shortname for parent that way)
-                        #so the illegalname_fix doesn't really work here
-                        #set fixedpath [punk::winpath::illegalname_fix $parent $fixedtail]
-
-                        #this has shortpath for the tail - but it's not the canonical-shortpath because we didn't call it on the $parent part REIEW.
-                        set fixedpath [file join $parent $fixedtail]
-                        append errmsg "retrying with with windows dos device path $fixedpath\n"
-                        puts stderr $errmsg
-                        
-                    }
-
-                    if {[catch {
-                        set iterator [twapi::find_file_open $fixedpath/* -detail basic]
-                    } errMsg]} {
-                        puts stderr "[file dirname $folderpath] '[file tail $folderpath]':$args (failed to read even with fixedpath:'$fixedpath')"
-                        puts stderr "  (errorcode: $::errorCode)\n"
-                        puts stderr "$errMsg"   
-                        dict lappend errors $folderpath $::errorCode
-                        return [list dirs {} vfsmounts {} links {} files {} filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-                    }
-
-
-                } on error args {
-                        set errmsg "error reading folder: $folderpath\n"
-                        append errmsg "error: $args" \n
-                        append errmsg "errorInfo: $::errorInfo" \n
-                        puts stderr "$errmsg"
-                        puts stderr "FAILED to collect info for folder '$folderpath'"
-                        #append errmsg "aborting.."
-                        #error $errmsg
-                        return [list dirs {} vfsmounts {} links {} files {} filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-                    
-                }
-            }
-            set dirs [list]
-            set files [list]
-            set filesizes [list]
-            set allsizes [dict create]
-            set alltimes [dict create]
-
-            set links [list]
-            set linkinfo [dict create]
-            set debuginfo [dict create]
-            set flaggedhidden [list]
-            set flaggedsystem [list]
-            set flaggedreadonly [list]
-
-            while {[twapi::find_file_next $iterator iteminfo]} {
-                set nm [dict get $iteminfo name]
-                #recheck glob
-                #review!
-                if {![string match $opt_glob $nm]} {
-                    continue
-                }
-                set tail_altname [dict get $iteminfo altname] ;#altname of tail - not whole path
-                #set attrinfo [decode_win_attributes [dict get $iteminfo attrs]]
-                set ftype ""
-                #attributes applicable to any classification
-                set fullname [file_join_one $folderpath $nm]
-                
-                set attrdict [Get_attributes_from_iteminfo -debug $opt_filedebug -debugchannel none $iteminfo] ;#-debugchannel none puts -debug key in the resulting dict
-                set file_attributes [dict get $attrdict -fileattributes]
-
-                set linkdata [dict create]
-                # -----------------------------------------------------------
-                #main classification
-                if {"reparse_point" in $file_attributes} {
-                    #this concept doesn't correspond 1-to-1 with unix links
-                    #https://learn.microsoft.com/en-us/windows/win32/fileio/reparse-points
-                    #review - and see which if any actually belong in the links key of our return
-
-
-                    #One thing it could be, is a 'mounted folder' https://learn.microsoft.com/en-us/windows/win32/fileio/determining-whether-a-directory-is-a-volume-mount-point
-                    #
-                    #we will treat as  zero sized for du purposes.. review - option -L  for symlinks like BSD du?
-                    #Note 'file readlink' can fail on windows - reporting 'invalid argument' - according to tcl docs, 'On systems that don't support symbolic links this option is undefined'
-                    #The link may be viewable ok in windows explorer, and cmd.exe /c dir and unix tools such as ls
-                    #if we need it without resorting to unix-tools that may not be installed: exec {*}[auto_execok dir] /A:L {c:\some\path}
-                    #e.g (stripped of headers/footers and other lines)
-                    #2022-10-02  04:07 AM    <SYMLINKD>     priv [\\?\c:\repo\elixir\gameportal\apps\test\priv]
-                    #Note we will have to parse beyond header fluff as /B strips the symlink info along with headers.
-                    #du includes the size of the symlink
-                    #but we can't get it with tcl's file size
-                    #twapi doesn't seem to have anything to help read it either (?)
-                    #the above was verified with a symlink that points to a non-existant folder.. mileage may vary for an actually valid link
-                    #
-                    #Note also - a shortcut created in explorer with drag and drop to an existant folder is a different animal to a symlink (file with .lnk extension) even though it looks the same in explorer window.
-                    #
-                    #links are techically files too, whether they point to a file/dir or nothing.
-                    lappend links $fullname
-                    set ftype "l"
-                    dict set linkdata linktype reparse_point
-                    dict set linkdata reparseinfo [dict get $attrdict -reparseinfo]
-                    if {"directory" ni $file_attributes} {
-                        dict set linkdata target_type file
-                    }
-                }
-                if {"directory" in $file_attributes} {
-                    if {$nm in {. ..}} {
-                        continue
-                    }
-                    if {"reparse_point" ni $file_attributes} {
-                        lappend dirs $fullname
-                        set ftype "d"
-                    } else {
-                        #other mechanisms can't immediately classify a link as file vs directory - so we don't return this info in the main dirs/files collections 
-                        dict set linkdata target_type directory
-                    }
-                }
-                if {"reparse_point" ni $file_attributes && "directory" ni $file_attributes} {
-                    #review - is anything that isn't a reparse_point or a directory, some sort of 'file' in this context? What about the 'device' attribute? Can that occur in a directory listing of some sort?
-                    lappend files $fullname
-                    if {"f" in $sized_types} {
-                        lappend filesizes   [dict get $iteminfo size]
-                    }
-                    set ftype "f"
-                }
-                # -----------------------------------------------------------
-
-                if {[dict get $attrdict -hidden]} {
-                    lappend flaggedhidden $fullname 
-                }
-                if {[dict get $attrdict -system]} {
-                    lappend flaggedsystem  $fullname
-                }
-                if {[dict get $attrdict -readonly]} {
-                    lappend flaggedreadonly  $fullname
-                }
-                if {$ftype in $sized_types} {
-                    dict set allsizes $fullname [dict create bytes [dict get $iteminfo size]]
-                }
-                if {$ftype in $timed_types} {
-                    #convert time from windows (100ns units since jan 1, 1601) to Tcl time (seconds since Jan 1, 1970)
-                    #We lose some precision by not passing the boolean to the large_system_time_to_secs_since_1970 function which returns fractional seconds
-                    #but we need to maintain compatibility with other platforms and other tcl functions so if we want to return more precise times we will need another flag and/or result dict
-                    dict set alltimes $fullname [dict create\
-                        c [twapi::large_system_time_to_secs_since_1970 [dict get $iteminfo ctime]]\
-                        a [twapi::large_system_time_to_secs_since_1970 [dict get $iteminfo atime]]\
-                        m [twapi::large_system_time_to_secs_since_1970 [dict get $iteminfo mtime]]\
-                    ]
-                }
-                if {[dict size $linkdata]} {
-                    dict set linkinfo $fullname $linkdata
-                }
-                if {[dict exists $attrdict -debug]} {
-                    dict set debuginfo $fullname [dict get $attrdict -debug]
-                }
-            }
-            twapi::find_file_close $iterator
-            set vfsmounts [get_vfsmounts_in_folder $folderpath]
-
-            set effective_opts $opts
-            dict set effective_opts -with_times $timed_types
-            dict set effective_opts -with_sizes $sized_types
-
-            #also determine whether vfs.  file system x  is *much* faster than file attributes
-            #whether or not there is a corresponding file/dir add any applicable mountpoints for the containing folder
-            return [list dirs $dirs vfsmounts $vfsmounts links $links linkinfo $linkinfo files $files filesizes $filesizes sizes $allsizes times $alltimes flaggedhidden $flaggedhidden flaggedsystem $flaggedsystem flaggedreadonly $flaggedreadonly altname $altname opts $effective_opts debuginfo $debuginfo errors $errors]
-        }
-        proc get_vfsmounts_in_folder {folderpath} {
-            set vfsmounts [list]
-            if {![llength [package provide vfs]]} {
-               return [list] 
-            }
-            set fpath [punk::objclone $folderpath]
-            set is_rel 0
-            if {[file pathtype $fpath] ne "absolute"} {
-                set fpath [file normalize $fpath]
-                set is_rel 1
-            }
-            set known_vfs_mounts [vfs::filesystem info]
-            foreach mount $known_vfs_mounts {
-                if {[punk::mix::base::lib::path_a_above_b $fpath $mount]} {
-                    if {([llength [file split $mount]] - [llength [file split $fpath]]) == 1} {
-                        #the mount is in this folder
-                        if {$is_rel} {
-                            lappend vfsmounts [file join $folderpath [file tail $mount]]
-                        } else {
-                            lappend vfsmounts $mount
-                        }
-                    }
-                }
-            }
-            return $vfsmounts
-        }
-        #work around the horrible tilde-expansion thing (not needed for tcl 9+)
-        proc file_join_one {base newtail} {
-            if {[string index $newtail 0] ne {~}} {
-                return [file join $base $newtail]
-            }
-            return [file join $base ./$newtail]
-        }
-
-
-        #this is the cross-platform pure-tcl version - which calls glob multiple times to make sure it gets everythign it needs and can ignore everything it needs to.
-        #These repeated calls to glob will be a killer for performance  - especially on a network share or when walking a large directory structure
-        proc du_dirlisting_generic {folderpath args} {
-            set opts [dict create\
-                -glob *\
-                -with_sizes 0\
-                -with_times 0\
-            ]
-            set errors [dict create]
-            foreach {k v} $args {
-                switch -- $k {
-                    -glob - -with_sizes - -with_times {
-                        dict set opts $k $v
-                    }
-                    default {
-                        error  "du_dirlisting_generic unknown-option '$k'. Known-options: [dict keys $opts]"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_glob            [dict get $opts -glob]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_sizes      [dict get $opts -with_sizes]
-            set ftypes [list f d l]
-            if {"$opt_with_sizes" in {0 1}} {
-                #don't use string is boolean (false vs f problem where f indicates file)
-                if {$opt_with_sizes} {
-                    set sized_types $ftypes
-                } else {
-                    set sized_types [list]
-                }
-            } else {
-                set sized_types $opt_with_sizes
-            }
-            if {[llength $sized_types]} {
-                foreach st $sized_types {
-                    if {$st ni $ftypes} {
-                        error "du_dirlisting_generic unrecognized element in -with_sizes '$st'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_times      [dict get $opts -with_times]
-            if {"$opt_with_times" in {0 1}} {
-                if {$opt_with_times} {
-                    set timed_types $ftypes
-                } else {
-                    set timed_types [list]
-                }
-            } else {
-                set timed_types $opt_with_times
-            }
-            if {[llength $timed_types]} {
-                foreach item $timed_types {
-                    if {$item ni $ftypes} {
-                        error "du_dirlisting_generic unrecognised element in -with-times '$item'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            # The repeated globs are a source of slowness for this function.
-            #TODO - we could minimize the number of globs if we know we need to do a file stat and/or file attributes on each entry anyway
-            #For the case where we don't need times,sizes or other metadata - it is faster to do multiple globs
-            #This all makes this function complicated to gather the required data efficiently.
-            
-            #note platform differences between what is considered hidden make this tricky.
-            # on windows 'glob .*' will not return some hidden dot items but will return . ..   and glob -types hidden .* will not return some dotted items
-            # glob -types hidden *  on windows will not necessarily return all dot files/folders
-            # unix-like platforms seem to consider all dot files as hidden so processing is more straightforward
-            #  we need to process * and .* in the same glob calls and remove duplicates 
-            #  if we do * and .* in separate iterations of this loop we lose the ability to filter duplicates easily
-
-            #note - with this design, we can't glob for all except dotfiles - this is for cross-platform consistency and efficiency (Review).
-            #dotfiles aren't considered hidden on all platforms
-            #some sort of antiglob is a possible enhancement and more consistent with the view that leading dot should be treated as any other filename character in this context.
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {$opt_glob eq "*"} {
-                    #Note - glob operations seem to be faster than looped tests like 'file isdirectory' & 'file readlink' 
-                    #set parent [lindex $folders $folderidx]
-                    set hdirs  [glob -nocomplain -dir $folderpath -types {hidden d}  * .*]
-                    set dirs   [glob -nocomplain -dir $folderpath -types d           * .*]
-
-                    set hlinks [glob -nocomplain -dir $folderpath -types {hidden l}  * .*]
-                    set links  [glob -nocomplain -dir $folderpath -types l           * .*] ;#links may have dupes - we don't care. punk::lib::struct_set_diff_unique 
-
-                    set hfiles [glob -nocomplain -dir $folderpath -types {hidden f}  * .*]
-                    set files  [glob -nocomplain -dir $folderpath -types f           * .*]
-                } else {
-                    set hdirs  [glob -nocomplain -dir $folderpath -types {hidden d}   $opt_glob]
-                    set dirs   [glob -nocomplain -dir $folderpath -types d            $opt_glob]
-
-                    set hlinks [glob -nocomplain -dir $folderpath -types {hidden l}   $opt_glob]
-                    set links  [glob -nocomplain -dir $folderpath -types l            $opt_glob] ;#links may have dupes - we don't care. punk::lib::struct_set_diff_unique 
-
-                    set hfiles [glob -nocomplain -dir $folderpath -types {hidden f}   $opt_glob]
-                    set files  [glob -nocomplain -dir $folderpath -types f            $opt_glob]
-                }
-            } else {
-                set hdirs {}
-                set hfiles {}
-                set hlinks {}
-                if {$opt_glob eq "*"} {
-                    #Note - glob operations seem to be faster than looped tests like 'file isdirectory' & 'file readlink' 
-                    #set parent [lindex $folders $folderidx]
-                    set dirs   [glob -nocomplain -dir $folderpath -types d           * .*]
-                    set links  [glob -nocomplain -dir $folderpath -types l           * .*] ;#links may have dupes - we don't care. punk::lib::struct_set_diff_unique 
-                    set files  [glob -nocomplain -dir $folderpath -types f           * .*]
-                } else {
-                    set dirs   [glob -nocomplain -dir $folderpath -types d            $opt_glob]
-                    set links  [glob -nocomplain -dir $folderpath -types l            $opt_glob] ;#links may have dupes - we don't care. punk::lib::struct_set_diff_unique 
-                    set files  [glob -nocomplain -dir $folderpath -types f            $opt_glob]
-                }
-
-            }
-
-            #note struct::set difference produces unordered result
-            #struct::set difference removes duplicates (but not always.. e.g if using tcl impl and 2nd element empty!)
-            #relying on struct::set to remove dupes is somewhat risky. 
-            #It is not well documented - and behaviour of dupes in inputs is underspecified as it appears to be intended for mathematical 'sets' ie lists without dupes 
-            #for this reason we must use the wrapper punk::lib::struct_set_diff_unique, which will use the well behaved critcl for speed if avail, but fall back to a deduping tcl version
-            #remove links and . .. from directories, remove links from files
-            #ideally we would like to classify links by whether they point to files vs dirs - but there are enough cross-platform differences that we will have to leave it to the caller to sort out for now.
-            #struct::set will affect order: tcl vs critcl give different ordering!
-            set files [punk::lib::struct_set_diff_unique [list {*}$hfiles {*}$files[unset files]]    $links]
-            set dirs  [punk::lib::struct_set_diff_unique [list {*}$hdirs  {*}$dirs[unset dirs]  ]    [list {*}$links [file join $folderpath .]  [file join $folderpath ..]]]
-
-
-            #----
-            set mdata_lists [du_get_metadata_lists $sized_types $timed_types $files $dirs $links]
-
-
-            set flaggedhidden [list {*}$hdirs {*}$hfiles {*}$hlinks]
-            #unix dotted files/folders are not 'flagged' as such - it's a convention - so the client can use the same convention to decide if something is hidden
-            #this allows us to return less data - but more importantly - reserve flaggedhidden for systems where such a flag exists and avoid conflating the different concepts of what is hidden
-
-            set vfsmounts [get_vfsmounts_in_folder $folderpath]
-
-            set effective_opts $opts
-            dict set effective_opts -with_times $timed_types
-            dict set effective_opts -with_sizes $sized_types
-
-            return [list dirs $dirs vfsmounts $vfsmounts links $links files $files filesizes [dict get $mdata_lists fsizes] sizes [dict get $mdata_lists allsizes] times [dict get $mdata_lists alltimes] flaggedhidden $flaggedhidden flaggedsystem {} flaggedreadonly {} altname {} opts $effective_opts errors $errors]
-        }
-
-        #zipfs attributes/behaviour fairly different to tclvfs - keep separate
-        #e.g we can populate compsizes for files (compressed size)
-        proc du_dirlisting_zipfs {folderpath args} {
-            puts stderr "zipfs: $folderpath"
-            set defaults [dict create\
-                -glob *\
-                -with_sizes 0\
-                -with_times 0\
-            ]
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_glob            [dict get $opts -glob]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_sizes      [dict get $opts -with_sizes]
-            set ftypes [list f d l]
-            if {"$opt_with_sizes" in {0 1}} {
-                #don't use string is boolean (false vs f problem where f indicates file)
-                if {$opt_with_sizes} {
-                    set sized_types $ftypes
-                } else {
-                    set sized_types [list]
-                }
-            } else {
-                set sized_types $opt_with_sizes
-            }
-            if {[llength $sized_types]} {
-                foreach st $sized_types {
-                    if {$st ni $ftypes} {
-                        error "du_dirlisting_zipfs unrecognized element in -with_sizes '$st'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_times      [dict get $opts -with_times]
-            if {"$opt_with_times" in {0 1}} {
-                if {$opt_with_times} {
-                    set timed_types $ftypes
-                } else {
-                    set timed_types [list]
-                }
-            } else {
-                set timed_types $opt_with_times
-            }
-            if {[llength $timed_types]} {
-                foreach item $timed_types {
-                    if {$item ni $ftypes} {
-                        error "du_dirlisting_zipfs unrecognised element in -with-times '$item'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set effective_opts $opts
-            dict set effective_opts -with_times $timed_types
-            dict set effective_opts -with_sizes $sized_types
-            set errors [dict create]
-
-            #determine if the 'folder' we are looking at is at or below a zipfs mountpoint.
-            #we could be somewhere between //zipfs:/ and //zipfs:/.../.../mountpoint
-            #The paths in between will not respond to file attr file stat etc (error after long delay)
-            #we can calculate these intermediate paths from the zipfs mount data and return these intermediates as 'folders' to make the structure navigable
-            if {$folderpath eq "//zipfs:/"} {
-                #review - currently dead branch as we can't glob or navigate here? 
-                set dirs [list]
-                dict for {mount _zipfile} [::tcl::zipfs::mount] {
-                    set parts [file split $mount]
-                    set next [lindex $parts 1]
-                    if {$next ni $dirs} {
-                        lappend dirs $next
-                    }
-                }
-                set files {} ;#no files directly here
-                set links {}
-                set vfsmounts {} ;#review
-                return [list dirs $dirs vfsmounts $vfsmounts links $links files $files filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $effective_opts errors $errors]
-            }
-            set vdirs [list]
-            dict for {zmount zfile} [::tcl::zipfs::mount] {
-                if {[punk::mix::base::lib::path_a_above_b $folderpath $zmount]} {
-                    #location is above zmount =  location is shorter path than zmount 
-                    set remainder [punk::repo::path_strip_prefixdepth $zmount $folderpath] ;#supply shorter path (one to be stripped) as second arg 
-                    set next [lindex [file split $remainder] 0]
-                    if {$next ni $vdirs} {
-                        lappend vdirs $next
-                    }
-                }
-            }
-            if {[llength $vdirs]} {
-                #location is virtual (intermediary location above one or more zipfs mount points)
-                #'file isdirectory' etc & glob - will not work
-
-                set files {}
-                set links {}
-                set vfsmounts {} ;#review
-                return [list dirs $vdirs vfsmounts $vfsmounts links $links files $files filesizes {} sizes {} times {} flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $effective_opts errors $errors]
-            }
-
-            #if {[punk::mix::base::lib::path_a_above_b $folderpath "//zipfs:/"]} {}
-
-            #todo - hidden? not returned in attributes on windows at least.
-            #zipfs files also reported as links by glob - review - should we preserve this in response? (2024 unable to duplicate)
-            if {$opt_glob eq "*"} {
-                set dirs   [glob -nocomplain -dir $folderpath -types d           * .*] ;# also returns links to dirs
-                set links  [glob -nocomplain -dir $folderpath -types l           * .*]  ;# links may have dupes - we don't care. struct::set difference will remove
-                set files  [glob -nocomplain -dir $folderpath -types f           * .*] ;# also returns links to files
-            } else {
-                set dirs   [glob -nocomplain -dir $folderpath -types d           $opt_glob]
-                set links  [glob -nocomplain -dir $folderpath -types l           $opt_glob]
-                set files  [glob -nocomplain -dir $folderpath -types f           $opt_glob]
-            }
-            #remove any links from our dirs and files collections
-            #see du_dirlisting_generic re struct::set difference issues
-            set dirs  [punk::lib::struct_set_diff_unique $dirs[unset dirs]    [list {*}$links [file join $folderpath .] [file join $folderpath ..]]]
-            set files [punk::lib::struct_set_diff_unique $files[unset files]  $links]
-
-
-            #nested vfs mount.. REVIEW - does anything need special handling?
-            #zipfs probably can't nest in itself - but unknown if vfs can be mounted within //zipfs:/ structure - todo TEST
-            set vfsmounts [get_vfsmounts_in_folder $folderpath]
-
-            set mdata_lists [du_get_metadata_lists $sized_types $timed_types $files $dirs $links]
-
-
-
-            return [list dirs $dirs vfsmounts $vfsmounts links $links files $files filesizes [dict get $mdata_lists fsizes] sizes [dict get $mdata_lists allsizes] times [dict get $mdata_lists alltimes] flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $effective_opts errors $errors]
-
-        }
-        proc du_dirlisting_tclvfs {folderpath args} {
-            set defaults [dict create\
-                -glob *\
-                -with_sizes 0\
-                -with_times 0\
-            ]
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_glob            [dict get $opts -glob]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_sizes      [dict get $opts -with_sizes]
-            set ftypes [list f d l]
-            if {"$opt_with_sizes" in {0 1}} {
-                #don't use string is boolean (false vs f problem where f indicates file)
-                if {$opt_with_sizes} {
-                    set sized_types $ftypes
-                } else {
-                    set sized_types [list]
-                }
-            } else {
-                set sized_types $opt_with_sizes
-            }
-            if {[llength $sized_types]} {
-                foreach st $sized_types {
-                    if {$st ni $ftypes} {
-                        error "du_dirlisting_tclvfs unrecognized element in -with_sizes '$st'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_times      [dict get $opts -with_times]
-            if {"$opt_with_times" in {0 1}} {
-                if {$opt_with_times} {
-                    set timed_types $ftypes
-                } else {
-                    set timed_types [list]
-                }
-            } else {
-                set timed_types $opt_with_times
-            }
-            if {[llength $timed_types]} {
-                foreach item $timed_types {
-                    if {$item ni $ftypes} {
-                        error "du_dirlisting_tclvfs unrecognised element in -with-times '$item'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-            #at least some vfs on windows seem to support the -hidden attribute
-            #we are presuming glob will accept the -types hidden option for all vfs - even if it doesn't really apply REVIEW
-            #The extra globs aren't nice - but hopefully the vfs is reasonably performant (?)
-            set errors [dict create]
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {$opt_glob eq "*"} {
-                    set hdirs  [glob -nocomplain -dir $folderpath -types {hidden d}  * .*] 
-                    set dirs   [glob -nocomplain -dir $folderpath -types d           * .*] ;# also returns links to dirs
-                    #review - how are links handled in vfs? presumably if the vfs is a full implementation they should work at least within the vfs? 
-                    set hlinks [glob -nocomplain -dir $folderpath -types {hidden l}  * .*]
-                    set links  [glob -nocomplain -dir $folderpath -types l           * .*]  ;# links may have dupes - we don't care. struct::set difference will remove
-                    set hfiles [glob -nocomplain -dir $folderpath -types {hidden l}  * .*]
-                    set files  [glob -nocomplain -dir $folderpath -types f           * .*] ;# also returns links to files
-                } else {
-                    set hdirs  [glob -nocomplain -dir $folderpath -types {hidden d}  $opt_glob]
-                    set dirs   [glob -nocomplain -dir $folderpath -types d           $opt_glob]
-                    set hlinks [glob -nocomplain -dir $folderpath -types {hidden l}  $opt_glob]
-                    set links  [glob -nocomplain -dir $folderpath -types l           $opt_glob]
-                    set hfiles [glob -nocomplain -dir $folderpath -types {hidden f}  $opt_glob]
-                    set files  [glob -nocomplain -dir $folderpath -types f           $opt_glob]
-                }
-            } else {
-                #we leave it to the ui on unix to classify dotfiles as hidden
-                set hdirs {}
-                set hfiles {}
-                set hlinks {}
-                if {$opt_glob eq "*"} {
-                    set dirs   [glob -nocomplain -dir $folderpath -types d           * .*] ;# also returns links to dirs
-                    #review - how are links handled in vfs? presumably if the vfs is a full implementation they should work at least within the vfs? 
-                    set links  [glob -nocomplain -dir $folderpath -types l           * .*]  ;# links may have dupes - we don't care. struct::set difference will remove
-                    set files  [glob -nocomplain -dir $folderpath -types f           * .*] ;# also returns links to files
-                } else {
-                    set dirs   [glob -nocomplain -dir $folderpath -types d           $opt_glob]
-                    set links  [glob -nocomplain -dir $folderpath -types l           $opt_glob]
-                    set files  [glob -nocomplain -dir $folderpath -types f           $opt_glob]
-                }
-            }
-            #remove any links from our dirs and files collections
-            #see du_dirlisting_generic re struct::set difference issues
-            set dirs  [punk::lib::struct_set_diff_unique $dirs[unset dirs]    [list {*}$links [file join $folderpath .] [file join $folderpath ..] ]]
-            set files [punk::lib::struct_set_diff_unique $files[unset files] $links]
-            #nested vfs mount.. REVIEW - does anything need special handling?
-            set vfsmounts [get_vfsmounts_in_folder $folderpath]
-
-            set mdata_lists [du_get_metadata_lists $sized_types $timed_types $files $dirs $links]
-
-            set flaggedhidden [list {*}$hdirs {*}$hfiles {*}$hlinks]
-
-            set effective_opts $opts
-            dict set effective_opts -with_times $timed_types
-            dict set effective_opts -with_sizes $sized_types
-
-            return [list dirs $dirs vfsmounts $vfsmounts links $links files $files filesizes [dict get $mdata_lists fsizes] sizes [dict get $mdata_lists allsizes] times [dict get $mdata_lists alltimes] flaggedhidden $flaggedhidden flaggedsystem {} flaggedreadonly {} altname {} opts $effective_opts errors $errors]
-        }
-
-        #we can halve the number of round trips on unix-like systems, where 'hidden' always corresponds to dotted files
-        #but we don't classify as such anyway. (leave for UI)
-        proc du_dirlisting_unix {folderpath args} {
-            set defaults [dict create\
-                -glob *\
-                -with_sizes 0\
-                -with_times 0\
-            ]
-            set errors [dict create]
-            dict lappend errors $folderpath "metadata support incomplete - prefer du_dirlisting_generic"
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_glob            [dict get $opts -glob]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_sizes      [dict get $opts -with_sizes]
-            set ftypes [list f d l]
-            if {"$opt_with_sizes" in {0 1}} {
-                #don't use string is boolean (false vs f problem where f indicates file) 
-                if {$opt_with_sizes} {
-                    set sized_types $ftypes
-                } else {
-                    set sized_types [list]
-                }
-            } else {
-                set sized_types $opt_with_sizes
-            }
-            if {[llength $sized_types]} {
-                foreach st $sized_types {
-                    if {$st ni $ftypes} {
-                        error "du_dirlisting_generic unrecognized element in -with_sizes '$st'"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_with_times      [dict get $opts -with_times]
-            if {"$opt_with_times" in {0 1}} {
-                if {$opt_with_times} {
-                    set timed_types $ftypes
-                } else {
-                    set timed_types [list]
-                }
-            } else {
-                set timed_types $opt_with_times
-            }
-            if {[llength $timed_types]} {
-                foreach item $timed_types {
-                    if {$item ni $ftypes} {
-                        error "du_dirlisting_generic unrecognised element in -with-times '$item'"
-                    }
-                }
-            }
-            
-            #this is not consistent with standard way * works for unix folders - but it is consistent with behaviour of this facility on windows 
-            #we don't classify anything as 'flaggedhidden' on unix.
-            #it is a convention for dotfiles rather than a flag - and we'll leave the distinction for the display library 
-            #This 
-            if {$opt_glob eq "*"} {
-                set dirs   [glob -nocomplain -dir $folderpath -types d           * .*] ;# also returns links to dirs
-                set links  [glob -nocomplain -dir $folderpath -types l           * .*]  ;# links may have dupes - we don't care. struct::set difference will remove
-                set files  [glob -nocomplain -dir $folderpath -types f           * .*] ;# also returns links to files
-            } else {
-                set dirs   [glob -nocomplain -dir $folderpath -types d           $opt_glob]
-                set links  [glob -nocomplain -dir $folderpath -types l           $opt_glob]
-                set files  [glob -nocomplain -dir $folderpath -types f           $opt_glob]
-            }
-            #remove any links from our dirs and files collections
-            #see du_dirlisting_generic re struct::set difference issues
-            set dirs  [punk::lib::struct_set_diff_unique $dirs[unset dirs]    [list {*}$links [file join $folderpath .] [file join $folderpath ..] ]]
-            set files [punk::lib::struct_set_diff_unique $files[unset files] $links]
-            set vfsmounts [get_vfsmounts_in_folder $folderpath]
-
-            set mdata_lists [du_get_metadata_lists $sized_types $timed_types $files $dirs $links]
-
-            set effective_opts $opts
-            dict set effective_opts -with_times $timed_types
-            dict set effective_opts -with_sizes $sized_types
-
-
-            return [list dirs $dirs vfsmounts $vfsmounts links $links files $files filesizes [dict get $mdata_lists fsizes] sizes [dict get $mdata_lists allsizes] times [dict get $mdata_lists alltimes] flaggedhidden {} flaggedsystem {} flaggedreadonly {} altname {} opts $opts errors $errors]
-        }
-
-        #return fsizes,allsizes,alltimes metadata in same order as files,dirs,links lists - if specified in sized_types 
-        proc du_get_metadata_lists {sized_types timed_types files dirs links} {
-            set meta_dict [dict create]
-            set meta_types [list {*}$sized_types {*}$timed_types]
-            #known tcl stat keys 2023 - review
-            set empty_stat_dict [dict create atime {} ctime {} dev {} gid {} ino {} mode {} mtime {} nlink {} size {} type {} uid {}]
-            #make sure we call file stat only once per item
-            set statkeys [list]
-            if {[llength $meta_types]} {
-                foreach ft {f d l} lvar {files dirs links} {
-                    if {"$ft" in $meta_types} {
-                        foreach path [set $lvar] {
-                            #caller may have read perm on the containing folder - but not on child item - so file stat could raise an error
-                            if {![catch {file stat $path arrstat} errM]} {
-                                dict set meta_dict $path [dict create shorttype $ft {*}[array get arrstat]]
-                            } else {
-                                puts stderr "du_get_metadata_lists: file stat $path error: $errM"
-                                dict lappend errors $path "file stat error: $errM"
-                                dict set meta_dict $path [dict create shorttype $ft {*}$empty_stat_dict]
-                            }
-                        }
-                    }
-                }
-            }
-            set fsizes [list]
-            set allsizes [dict create]
-            set alltimes [dict create]
-            #review birthtime field of stat? cross-platform differences ctime etc?
-            dict for {path pathinfo} $meta_dict {
-                set ft [dict get $pathinfo shorttype]
-                if {$ft in $sized_types} {
-                    dict set allsizes $path [dict create bytes [dict get $pathinfo size]]
-                    if {$ft eq "f"} {
-                        #subst with na if empty? 
-                        lappend fsizes [dict get $pathinfo size]
-                        if {[dict get $pathinfo size] eq ""} {
-                            puts stderr "du_get_metadata_lists: fsize $path is empty!"
-                        }
-                    }
-                }
-                if {$ft in $timed_types} {
-                    dict set alltimes $path [dict create c [dict get $pathinfo ctime] a [dict get $pathinfo atime] m [dict get $pathinfo mtime]]
-                }
-            }
-            #todo - fix . The list lengths will presumably match but have empty values if failed to stat
-            if {"f" in $sized_types} {
-                if {[llength $fsizes] ne [llength $files]} {
-                    dict lappend errors general "failed to retrieve all file sizes"
-                }
-            }
-            return [dict create fsizes $fsizes allsizes $allsizes alltimes $alltimes]
-        }
-
-
-        proc du_lit value {
-            variable du_literal
-            if {![info exists du_literal($value)]} {
-                set du_literal($value) $value
-            }
-            return $du_literal($value)
-        }
-
-        #v1
-        proc du_new_eachdirtail {dirtails depth parentfolderidx} {
-            set newlist {}
-            upvar folders folders
-            set parentpath [lindex $folders $parentfolderidx]
-            set newindex [llength $folders]
-            foreach dt $dirtails {
-                lappend folders [file join $parentpath [du_lit $dt]]; #store as a 'path' rather than a string (see tcl::unsupported::representation)
-                lappend newlist [::list $depth $parentfolderidx $newindex [du_lit $dt] [expr {0}]]
-                incr newindex
-            }
-            return $newlist
-        }
-        proc du_new_eachdir {dirpaths depth parentfolderidx} {
-            set newlist {}
-            upvar folders folders
-            set newindex [llength $folders]
-            foreach dp $dirpaths {
-                lappend folders $dp
-                #puts stdout "--->$dp"
-                lappend newlist [::list $depth $parentfolderidx $newindex [du_lit [file tail $dp]] [expr {0}]]
-                incr newindex
-            }
-            return $newlist
-        }
-
-        #same implementation as punk::strlen
-        #get length of path which has internal rep of path - maintaining path/list rep without shimmering to string representation.
-        proc pathcharacterlen {pathrep} {
-            append str2 $pathrep {}
-            string length $str2
-        }
-        #just an experiment
-        proc pathcharacterlen1 {pathrep} {
-            #This works - but is unnecessarily complex
-            set l 0
-            set parts [file split $pathrep]
-            if {[llength $parts] < 2} {
-                return [string length [lindex $parts 0]]
-            }
-            foreach seg $parts {
-                incr l [string length $seg]
-            }
-            return [expr {$l + [llength $parts] -2}]
-        }
-        #slower - doesn't work for short paths like c:/
-        proc pathcharacterlen2 {pathrep} {
-            return [tcl::mathop::+ {*}[lmap v [set plist [file split $pathrep]] {[string length $v]}] [llength $plist] -2]
-        }
-
-        #Strip using lengths without examining path components
-        #without normalization is much faster
-        proc path_strip_alreadynormalized_prefixdepth {path prefix} {
-            set tail [lrange  [file split $path] [llength [file split $prefix]] end]
-            if {[llength $tail]} {
-                return [file join {*}$tail]
-            }  else {
-                return ""
-            }
-        }
-
-        proc du_dirlisting_undecided {folderpath args} {
-            if {"windows" eq $::tcl_platform(platform)} {
-                #jmn disable twapi
-                #tailcall du_dirlisting_generic $folderpath {*}$args                        
-
-                package require zzzload
-                set loadstate [zzzload::pkg_require twapi]
-                if {$loadstate ni [list loading failed]} {
-                    #either already loaded by zzload or ordinary package require
-                    package require twapi ;#should be fast once twapi dll loaded in zzzload thread
-                    set ::punk::du::has_twapi 1
-                    punk::du::active::set_active_function du_dirlisting du_dirlisting_twapi
-                    tailcall du_dirlisting_twapi $folderpath {*}$args
-                } else {
-                    if {$loadstate eq "failed"} {
-                        puts stderr "punk::du defaulting to du_dirlisting_generic because twapi load failed"
-                        punk::du::active::set_active_function du_dirlisting du_dirlisting_generic
-                    }
-                    tailcall du_dirlisting_generic $folderpath {*}$args                        
-                }
-            } else {
-                punk::du::active::set_active_function du_dirlisting du_dirlisting_unix
-                tailcall du_dirlisting_unix $folderpath {*}$args
-            }
-        }
-
-
-    }
-    package require natsort
-    #interp alias {} du {} .=args>* punk::du |> .=>1 natsort::sort -cols 1 |> list_as_lines <args|
-    #use natsort -debug 2 to see index output
-    #this works better for display of directory/file names with spaces (doesn't show curly braces)
-    interp alias {} du2 {}   .=args>* punk::du::du |> .=>1 natsort::sort -cols 1  -outputformat words |> list_as_lines <args|
-
-    #experiment with csv as easy way to get column like format..
-    #The /r is somewhat cheating however.. as it messes up redirected output .. e.g if redirected to text file
-    interp alias {} du {}  .=args>* punk::du::du |> .=>1 natsort::sort -cols 1  -outputformat csv -outputformatoptions {\r\t\t\t} |> list_as_lines -- <args|
-
-
-}
-
-
- namespace eval ::punk::du::active {
-    variable functions
-    variable functions_kown
-    upvar ::punk::du::has_twapi has_twapi
-
-    set_active_function du_dirlisting du_dirlisting_undecided
-
-}
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::du [namespace eval punk::du {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/encmime-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/encmime-0.1.0.tm
deleted file mode 100644
index e049a3ea..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/encmime-0.1.0.tm
+++ /dev/null
@@ -1,437 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::encmime 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::encmime 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {mime encodings related subset of tcllib mime}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {mime encoding names and aliases}]             [comment {-- Description at end of page heading --}] 
-#[require punk::encmime]
-#[keywords module encodings]
-#[description]
-#[para] This is a workaround package to provide the mime encoding names used in tcllib's mime package - without additional dependencies
-#[para]tcllib mime loads either Trf or tcl::memchan functions. punk::encmime needs to work in a context where tcllib may not yet be loaded/available, and even these few dependencies are too much. 
-#[para]MAINTENANCE NOTE: The data in this module needs to be checked against the latest tcllib mime package
-#[para]taken from tcllib mime version: 1.7.2 in 2024
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::encmime
-#[subsection Concepts]
-#[para] Where practical - the actual tcllib mime package should be used instead.
-#[para]This set of encoding related functions is a snapshot of the data from the mime package - and may not be up to date.
-#[para]This pseudo-package was created to minimize dependencies for punk::char and punk::overtype
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::encmime
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::encmime::class {
-    #*** !doctools
-    #[subsection {Namespace punk::encmime::class}]
-    #[para] class definitions
-    if {[info commands [namespace current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::encmime {
-    namespace export *
-
-    variable encList {
-        ascii US-ASCII
-        big5 Big5
-        cp1250 Windows-1250
-        cp1251 Windows-1251
-        cp1252 Windows-1252
-        cp1253 Windows-1253
-        cp1254 Windows-1254
-        cp1255 Windows-1255
-        cp1256 Windows-1256
-        cp1257 Windows-1257
-        cp1258 Windows-1258
-        cp437 IBM437
-        cp737 {}
-        cp775 IBM775
-        cp850 IBM850
-        cp852 IBM852
-        cp855 IBM855
-        cp857 IBM857
-        cp860 IBM860
-        cp861 IBM861
-        cp862 IBM862
-        cp863 IBM863
-        cp864 IBM864
-        cp865 IBM865
-        cp866 IBM866
-        cp869 IBM869
-        cp874 {}
-        cp932 {}
-        cp936 GBK
-        cp949 {}
-        cp950 {}
-        dingbats {}
-        ebcdic {}
-        euc-cn EUC-CN
-        euc-jp EUC-JP
-        euc-kr EUC-KR
-        gb12345 GB12345
-        gb1988 GB1988
-        gb2312 GB2312
-        iso2022 ISO-2022
-        iso2022-jp ISO-2022-JP
-        iso2022-kr ISO-2022-KR
-        iso8859-1 ISO-8859-1
-        iso8859-2 ISO-8859-2
-        iso8859-3 ISO-8859-3
-        iso8859-4 ISO-8859-4
-        iso8859-5 ISO-8859-5
-        iso8859-6 ISO-8859-6
-        iso8859-7 ISO-8859-7
-        iso8859-8 ISO-8859-8
-        iso8859-9 ISO-8859-9
-        iso8859-10 ISO-8859-10
-        iso8859-13 ISO-8859-13
-        iso8859-14 ISO-8859-14
-        iso8859-15 ISO-8859-15
-        iso8859-16 ISO-8859-16
-        jis0201 JIS_X0201
-        jis0208 JIS_C6226-1983
-        jis0212 JIS_X0212-1990
-        koi8-r KOI8-R
-        koi8-u KOI8-U
-        ksc5601 KS_C_5601-1987
-        macCentEuro {}
-        macCroatian {}
-        macCyrillic {}
-        macDingbats {}
-        macGreek {}
-        macIceland {}
-        macJapan {}
-        macRoman {}
-        macRomania {}
-        macThai {}
-        macTurkish {}
-        macUkraine {}
-        shiftjis Shift_JIS
-        symbol {}
-        tis-620 TIS-620
-        unicode {}
-        utf-8 UTF-8
-    }
-    variable encodings
-    array set encodings $encList
-    variable reversemap
-    variable encAliasList {
-        ascii ANSI_X3.4-1968
-        ascii iso-ir-6
-        ascii ANSI_X3.4-1986
-        ascii ISO_646.irv:1991
-        ascii ASCII
-        ascii ISO646-US
-        ascii us
-        ascii IBM367
-        ascii cp367
-        cp437 cp437
-        cp437 437
-        cp775 cp775
-        cp850 cp850
-        cp850 850
-        cp852 cp852
-        cp852 852
-        cp855 cp855
-        cp855 855
-        cp857 cp857
-        cp857 857
-        cp860 cp860
-        cp860 860
-        cp861 cp861
-        cp861 861
-        cp861 cp-is
-        cp862 cp862
-        cp862 862
-        cp863 cp863
-        cp863 863
-        cp864 cp864
-        cp865 cp865
-        cp865 865
-        cp866 cp866
-        cp866 866
-        cp869 cp869
-        cp869 869
-        cp869 cp-gr
-        cp936 CP936
-        cp936 MS936
-        cp936 Windows-936
-        iso8859-1 ISO_8859-1:1987
-        iso8859-1 iso-ir-100
-        iso8859-1 ISO_8859-1
-        iso8859-1 latin1
-        iso8859-1 l1
-        iso8859-1 IBM819
-        iso8859-1 CP819
-        iso8859-2 ISO_8859-2:1987
-        iso8859-2 iso-ir-101
-        iso8859-2 ISO_8859-2
-        iso8859-2 latin2
-        iso8859-2 l2
-        iso8859-3 ISO_8859-3:1988
-        iso8859-3 iso-ir-109
-        iso8859-3 ISO_8859-3
-        iso8859-3 latin3
-        iso8859-3 l3
-        iso8859-4 ISO_8859-4:1988
-        iso8859-4 iso-ir-110
-        iso8859-4 ISO_8859-4
-        iso8859-4 latin4
-        iso8859-4 l4
-        iso8859-5 ISO_8859-5:1988
-        iso8859-5 iso-ir-144
-        iso8859-5 ISO_8859-5
-        iso8859-5 cyrillic
-        iso8859-6 ISO_8859-6:1987
-        iso8859-6 iso-ir-127
-        iso8859-6 ISO_8859-6
-        iso8859-6 ECMA-114
-        iso8859-6 ASMO-708
-        iso8859-6 arabic
-        iso8859-7 ISO_8859-7:1987
-        iso8859-7 iso-ir-126
-        iso8859-7 ISO_8859-7
-        iso8859-7 ELOT_928
-        iso8859-7 ECMA-118
-        iso8859-7 greek
-        iso8859-7 greek8
-        iso8859-8 ISO_8859-8:1988
-        iso8859-8 iso-ir-138
-        iso8859-8 ISO_8859-8
-        iso8859-8 hebrew
-        iso8859-9 ISO_8859-9:1989
-        iso8859-9 iso-ir-148
-        iso8859-9 ISO_8859-9
-        iso8859-9 latin5
-        iso8859-9 l5
-        iso8859-10 iso-ir-157
-        iso8859-10 l6
-        iso8859-10 ISO_8859-10:1992
-        iso8859-10 latin6
-        iso8859-14 iso-ir-199
-        iso8859-14 ISO_8859-14:1998
-        iso8859-14 ISO_8859-14
-        iso8859-14 latin8
-        iso8859-14 iso-celtic
-        iso8859-14 l8
-        iso8859-15 ISO_8859-15
-        iso8859-15 Latin-9
-        iso8859-16 iso-ir-226
-        iso8859-16 ISO_8859-16:2001
-        iso8859-16 ISO_8859-16
-        iso8859-16 latin10
-        iso8859-16 l10
-        jis0201 X0201
-        jis0208 iso-ir-87
-        jis0208 x0208
-        jis0208 JIS_X0208-1983
-        jis0212 x0212
-        jis0212 iso-ir-159
-        ksc5601 iso-ir-149
-        ksc5601 KS_C_5601-1989
-        ksc5601 KSC5601
-        ksc5601 korean
-        shiftjis MS_Kanji
-        utf-8 UTF8
-    }
-
-    #*** !doctools
-    #[subsection {Namespace punk::encmime}]
-    #[para] Core API functions for punk::encmime 
-    #[list_begin definitions]
-
-    # ::mime::mapencoding --
-    #
-    #    mime::mapencodings maps tcl encodings onto the proper names for their
-    #    MIME charset type.  This is only done for encodings whose charset types
-    #    were known.  The remaining encodings return {} for now.
-    #
-    # Arguments:
-    #       enc      The tcl encoding to map.
-    #
-    # Results:
-    #    Returns the MIME charset type for the specified tcl encoding, or {}
-    #       if none is known.
-    proc mapencoding {enc} {
-        #*** !doctools
-        #[call mapencoding [arg enc]]
-        #[para]maps tcl encodings onto the proper names for their MIME charset type.
-        #[para]This is only done for encodings whose charset types were known.
-        #[para]The remaining encodings return {} for now.
-        #[para]NOTE: consider using tcllib's mime::mapencoding instead if mime package available
-
-        variable encodings
-        if {[info exists encodings($enc)]} {
-            return $encodings($enc)
-        }
-        return {}
-    }
-
-    proc reversemapencoding {mimeType} {
-        #*** !doctools
-        #[call reversemapencoding [arg mimeType]]
-        #[para]mime::reversemapencodings maps MIME charset types onto tcl encoding names.
-        #[para]Returns the tcl encoding name for the specified mime charset, or {} if none is known
-        #[para] Arguments:
-        #       [list_begin arguments]
-        #       [arg_def string mimeType]       The MIME charset to convert into a tcl encoding type.
-        #       [list_end]
-        #[para]NOTE: consider using tcllib's mime::reversemapencoding instead if mime package available
-
-        variable reversemap
-
-        set lmimeType [string tolower $mimeType]
-        if {[info exists reversemap($lmimeType)]} {
-            return $reversemap($lmimeType)
-        }
-        return {}
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::encmime ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-::apply {{} {
-    variable encList
-    variable encAliasList
-    variable reversemap
-    foreach {enc mimeType} $encList {
-        if {$mimeType eq {}} continue
-	    set reversemap([string tolower $mimeType]) $enc
-    }
-    foreach {enc mimeType} $encAliasList {
-        set reversemap([string tolower $mimeType]) $enc
-    }
-    # Drop the helper variables
-    unset encList encAliasList
-
-} ::punk::encmime}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::encmime::lib {
-    namespace export *
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace punk::encmime::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::encmime::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval punk::encmime::system {
-    #*** !doctools
-    #[subsection {Namespace punk::encmime::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::encmime [namespace eval punk::encmime {
-    variable pkg punk::encmime
-    variable version
-    set version 0.1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/fileline-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/fileline-0.1.0.tm
deleted file mode 100644
index 86126a5c..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/fileline-0.1.0.tm
+++ /dev/null
@@ -1,1736 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::fileline 0.1.0
-# Meta platform     tcl
-# Meta license      BSD
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::fileline 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {file line-handling utilities}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk fileline}]             [comment {-- Description at end of page heading --}]
-#[require punk::fileline]
-#[keywords module text parse file encoding BOM]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para]Utilities for in-memory analysis of text file data as both line data and byte/char-counted data whilst preserving the line-endings (even if mixed)
-#[para]This is important for certain text files where examining the number of chars/bytes is important
-#[para]For example - windows .cmd/.bat files need some byte counting to determine if labels lie on chunk boundaries and need to be moved.
-#[para]This chunk-size counting will depend on the character encoding.
-#[para]Despite including the word 'file', the library doesn't necessarily deal with reading/writing to the filesystem -
-#[para]The raw data can be supplied as a string, or loaded from a file using punk::fileline::get_textinfo -file <filename>
-#[subsection Concepts]
-#[para]A chunk of textfile data (possibly representing a whole file - but usually at least a complete set of lines) is loaded into a punk::fileline::class::textinfo instance at object creation.
-#[example_begin]
-#    package require punk::fileline
-#    package require fileutil
-#    set rawdata [lb]fileutil::cat data.txt -translation binary[rb]
-#    punk::fileline::class::textinfo create obj_data  $rawdata
-#    puts stdout [lb]obj_data linecount[rb]
-#[example_end]
-#[subsection Notes]
-#[para]Line records are referred to by a zero-based index instead of a one-based index as is commonly used when displaying files.
-#[para]This is for programming consistency and convenience, and the module user should do their own conversion to one-based indexing for line display or messaging if desired.
-#[para]No support for lone carriage-returns being interpreted as line-endings.
-#[para]CR line-endings that are intended to be interpreted as such should be mapped to something else before the data is supplied to this module.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages needed by punk::fileline
-#[list_begin itemized]
-
-    package require Tcl 8.6-
-    package require punk::args
-    #*** !doctools
-    #[item] [package {Tcl 8.6-}]
-    #[item] [package {punk::args}]
-
-
-    # #package require frobz
-    # #*** !doctools
-    # #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end] [comment {- end dependencies list -}]
-
-#*** !doctools
-#[subsection {optional dependencies}]
-#[para] packages that add functionality but aren't strictly required
-#[list_begin itemized]
-
-    #*** !doctools
-    #[item] [package {punk::ansi}]
-    #[para] - recommended for class::textinfo [method chunk_boundary_display]
-    #[item] [package {punk::char}]
-    #[para] - recommended for class::textinfo [method chunk_boundary_display]
-    #[item] [package {overtype}]
-    #[para] - recommended for class::textinfo [method chunk_boundary_display]
-
-
-#*** !doctools
-#[list_end] [comment {- end optional dependencies list -}]
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::fileline::class {
-    namespace export *
-    #*** !doctools
-    #[subsection {Namespace punk::fileline::class}]
-    #[para] class definitions
-    if {[info commands [namespace current]::textinfo] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-
-        #uses zero based indexing. Caller can add 1 for line numbers
-        oo::class create [namespace current]::textinfo {
-                #*** !doctools
-                #[enum] CLASS [class textinfo]
-                #[list_begin definitions]
-                #    [para] [emph METHODS]
-
-                variable o_chunk ;#current state
-                variable o_chunkop_store
-                variable o_lineop_store
-
-                variable o_chunk_epoch
-                variable o_line_epoch
-                variable o_payloadlist
-                variable o_linemap
-                variable o_LF_C
-                variable o_CRLF_C
-
-
-                variable o_bom_id
-                variable o_bom
-                variable o_bom_map
-
-                #review - for now we expect datachunk to be data without BOM and already encoded appropriately
-                #fileline::get_textinfo has support for interpreting BOM - but we currently have no way to do that for data not coming from a file
-                #refactor to allow that code to be called from here?
-                constructor {datachunk args} {
-                    #*** !doctools
-                    #[call class::textinfo [method constructor] [arg datachunk] [opt {option value...}]]
-                    #[para] Constructor for textinfo object which represents a chunk or all of a file
-                    #[para] datachunk should be passed with the file data including line-endings as-is for full functionality. ie use something like:
-                    #[example_begin]
-                    #    chan configure $fd -translation binary
-                    #    set chunkdata [lb]read $fd[rb]]
-                    #or
-                    #    set chunkdata [lb]fileutil::cat <filename> -translation binary[rb]
-                    #[example_end]
-                    #[para] when loading the data
-                    namespace eval [namespace current] {
-                        set nspath [namespace path]
-                        foreach p [list ::punk::fileline ::punk::fileline::ansi] {
-                            if {$p ni $nspath} {
-                                lappend nspath $p
-                            }
-                        }
-                        namespace path $nspath
-                    }
-
-                    set o_bom_map [list\
-                        utf-8 \u00ef\u00bb\u00bf\
-                        utf-16be \u00fe\u00ff\
-                        utf-16le \u00ff\u00fe\
-                        utf-32be \u0000\u0000\u00fe\u00ff\
-                        utf-32le \u00ff\u00fe\u0000\u0000\
-                        utf-7    \u002b\u002f\u0076\
-                        utf-1    \u00f7\u0064\u004c\
-                        utf-ebcdic \u00dd\u0073\u0066\u0073\
-                        utf-scsu \u0003\u00fe\u00ff\
-                        utf-bocu-1 \u00fb\u00ee\u0028\
-                        utf-gb18030 \u0084\u0031\u0095\u0033\
-                    ]
-                    set o_bom_id ""
-                    set o_bom "" ;#review
-
-                    set o_chunk $datachunk
-                    set o_line_epoch [list]
-                    set o_chunk_epoch [list "fromchunkchange-at-[clock micros]"]
-                    set crlf_lf_placeholders [list \uFFFF \uFFFE] ;#defaults - if already exist in file - error out with message
-                    set defaults [dict create\
-                        -substitutionmap {}\
-                        -crlf_lf_placeholders $crlf_lf_placeholders\
-                        -userid "<pid-[pid]-tid-[thread::id]>"\
-                    ]
-                    set known_opts [dict keys $defaults]
-                    foreach {k v} $args {
-                        if {$k ni $known_opts} {
-                            error "[self] constructor error: unknown option '$k'. Known options: $known_opts"
-                        }
-                    }
-                    set opts [dict merge $defaults $args]
-                    # -- --- --- --- --- --- ---
-                    set opt_substitutionmap         [dict get $opts -substitutionmap] ;#review - can be done by caller - or a loadable -policy
-                    set opt_crlf_lf_placeholders    [dict get $opts -crlf_lf_placeholders]
-                    set opt_userid                  [dict get $opts -userid]
-                    # -- --- --- --- --- --- ---
-
-                    if {[llength $opt_crlf_lf_placeholders] != 2 || [string length [lindex $opt_crlf_lf_placeholders 0]] !=1 || [string length [lindex $opt_crlf_lf_placeholders 1]] !=1} {
-                        error "textinfo::constructor error: -crlf_lf_placeholders requires a list of exactly 2 chars"
-                    }
-                    lassign $opt_crlf_lf_placeholders o_LF_C o_CRLF_C
-                    if {[string first $o_LF_C $o_chunk] >=0} {
-                        set decval [scan $o_LF_C %c]
-                        if {$decval < 32 || $decval > 127} {
-                            set char_desc "(decimal value $decval)"
-                        } else {
-                            set char_desc "'$o_LF_C' (decimal value $decval)"
-                        }
-                        error "textinfo::constructor error: rawfiledata already contains linefeed substitution character $char_desc specified as first element of -crlf_lf_placeholders"
-                    }
-                    if {[string first $o_CRLF_C $o_chunk] >=0} {
-                        set decval [scan $o_CRLF_C %c]
-                        if {$decval < 32 || $decval > 127} {
-                            set char_desc "(decimal value $decval)"
-                        } else {
-                            set char_desc "'$o_CRLF_C' (decimal value $decval)"
-                        }
-                        error "textinfo::constructor error: rawfiledata already contains carriagereturn-linefeed substitution character $char_desc specified as second element of -crlf_lf_placeholders"
-                    }
-                    if {$o_LF_C eq $o_CRLF_C} {
-                        puts stderr "WARNING: same substitution character used for both elements of -crlf_lf_placeholders - byte counting may be off if file contains mixed line-endings"
-                    }
-
-                    my regenerate_lines
-
-                }
-
-                method set_bomid {bomid} {
-                    if {$bomid ni [dict keys $o_bom_map]} {
-                        error "Unrecognised bom-id $bomid. Known values: [dict keys $o_bom_map]"
-                    }
-                    set o_bom_id $bomid
-                    set o_bom [dict get $o_bom_map $bomid]
-                }
-                method get_bomid {} {
-                    return $o_bom_id
-                }
-                method get_bom {} {
-                    return $o_bom
-                }
-
-                method chunk {chunkstart chunkend} {
-                    #*** !doctools
-                    #[call class::textinfo [method chunk] [arg chunkstart] [arg chunkend]]
-                    #[para]Return a range of bytes from the underlying raw chunk data.
-                    #[para] e.g The following retrieves the entire chunk
-                    #[para] objName chunk 0 end
-                    return [string range $o_chunk $chunkstart $chunkend]
-                }
-                method chunklen {} {
-                    #*** !doctools
-                    #[call class::textinfo [method chunklen]]
-                    #[para] Number of bytes/characters in the raw data of the file
-                    return [string length $o_chunk]
-                }
-                method chunk_boundary_display {chunkstart chunkend chunksize args} {
-                    #*** !doctools
-                    #[call class::textinfo [method chunk_boundary_display]]
-                    #[para]Returns a string displaying the boundaries at chunksize bytes between chunkstart and chunkend
-                    #[para]Defaults to using ansi colour if punk::ansi module is available. Use -ansi 0 to disable colour
-                    set opts [dict create\
-                        -ansi $::punk::fileline::ansi::enabled\
-                        -offset 0\
-                        -displaybytes 200\
-                        -truncatedmark "..."\
-                        -completemark  "---"\
-                        -moremark      " + "\
-                        -continuemark  " > "\
-                        -linemaxwidth 100\
-                        -linebase       0\
-                        -limit          -1\
-                        -boundaries    {}\
-                        -showconfig    0\
-                        -boundaryheader {Boundary %i% at %b%}\
-                    ]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -ansi - -offset - -displaybytes - -truncatedmark - -completemark - -moremark - -continuemark - -linemaxwidth - -linebase - -limit - -boundaries - -showconfig - -boundaryheader {
-                                dict set opts $k $v
-                            }
-                            default {
-                                error "[self]::chunk_boundary error: unknown option '$k'. Known options: [dict keys $opts]"
-                            }
-                        }
-                    }
-                    # -- --- --- --- --- ---
-                    set opt_ansi [dict get $opts -ansi]
-                    set opt_offset [dict get $opts -offset]
-                    set opt_displaybytes [dict get $opts -displaybytes]
-                    set opt_tmark [dict get $opts -truncatedmark]
-                    set opt_cmark [dict get $opts -completemark]
-                    set opt_linemax [dict get $opts -linemaxwidth]
-                    set opt_linebase [dict get $opts -linebase]
-                    set opt_linebase [string map [list _ ""] $opt_linebase]
-                    set opt_limit [dict get $opts -limit] ;#limit number of boundaries to display
-                    set opt_boundaries [dict get $opts -boundaries] ;#use pre-calculated boundaries if supplied
-                    set opt_showconfig [dict get $opts -showconfig]
-                    set opt_boundaryheader [dict get $opts -boundaryheader]
-                    # -- --- --- --- --- ---
-                    package require overtype
-                    # will require punk::char and punk::ansi
-
-                    if {"::punk::fileline::ansi::ansistrip" ne [info commands ::punk::fileline::ansi::ansistrip]} {
-                        namespace eval ::punk::fileline::ansi {
-                            namespace import ::punk::ansi::*
-                        }
-                    }
-
-                    #This mechanism for enabling/disabling ansi is a bit clumsy - prone to errors with regard to keeping in sync with any api changes in punk ansi
-                    #It's done here to allow this to be used without the full set of punk modules and/or shell - REVIEW
-
-                    #risk of failing to reset on error
-                    set pre_ansi_enabled $::punk::fileline::ansi::enabled
-                    if {$opt_ansi} {
-                        set ::punk::fileline::ansi::enabled 1
-                    } else {
-                        set ::punk::fileline::ansi::enabled 0
-                    }
-                    if {"::punk::fileline::ansistrip" ne [info commands ::punk::fileline::ansistrip]} {
-                        proc ::punk::fileline::a {args} {
-                            if {$::punk::fileline::ansi::enabled} {
-                                tailcall ::punk::fileline::ansi::a {*}$args
-                            } else {
-                                return ""
-                            }
-                        }
-                        proc ::punk::fileline::a+ {args} {
-                            if {$::punk::fileline::ansi::enabled} {
-                                tailcall ::punk::fileline::ansi::a+ {*}$args
-                            } else {
-                                return ""
-                            }
-                        }
-                        proc ::punk::fileline::ansistrip {str} {
-                            if {$::punk::fileline::ansi::enabled} {
-                                tailcall ::punk::fileline::ansi::ansistrip $str
-                            } else {
-                                return $str
-                            }
-                        }
-                    }
-                    set maxline [lindex [my chunkrange_to_linerange $chunkend $chunkend] 0]
-                    set minline [lindex [my chunkrange_to_linerange $chunkstart $chunkstart] 0]
-
-                    #suport simple end+-int  (+-)start(+-)int to set linebase to line corresponding to chunkstart or chunkend
-                    #also simple int+int and int-int - nothing more complicated (similar to Tcl lrange etc in that regard)
-                    #commonly this will be something like -start or -end
-                    if {![string is integer -strict $opt_linebase]} {
-                        set sign ""
-                        set errunrecognised "unrecognised -linebase value '$opt_linebase'. Expected positive or negative integer or -start -start-int -start+int -end -end-int -end+int or -eof (where leading - is optional but probably desirable) "
-                        if {[string index $opt_linebase 0] eq "-"} {
-                            set sign -
-                            set tail [string range $opt_linebase 1 end]
-                        } else {
-                            set tail [string trimleft $opt_linebase +];#ignore +
-                        }
-                        #todo - switch -glob -- $tail
-                        if {[string match eof* $tail]} {
-                            set endmath [string range $tail 3 end]
-                            #todo endmath?
-                            if {$tail eq "eof"} {
-                                set lastline [lindex [my chunkrange_to_linerange end end] 0]
-                                set linebase ${sign}$lastline
-                            } else {
-                                error $errunrecognised
-                            }
-                        } elseif {[string match end* $tail]} {
-                            set endmath [string range $tail 3 end]
-                            if {[string length $endmath]} {
-                                set op [string index $endmath 0]
-                                if {$op in {+ -}} {
-                                    set operand [string range $endmath 1 end]
-                                    if {[string is integer -strict $operand]} {
-                                        if {$op eq "+"} {
-                                            set linebase [expr {$maxline + $operand}]
-                                        } else {
-                                            set linebase [expr {$maxline - $operand}]
-                                        }
-                                    } else {
-                                        error $errunrecognised
-                                    }
-                                } else {
-                                    error $errunrecognised
-                                }
-                            } else {
-                                set linebase $maxline
-                            }
-                            set linebase ${sign}$linebase
-                        } elseif {[string match start* $tail]} {
-                            set endmath [string range $tail 5 end]
-                            if {[string length $endmath]} {
-                                set op [string index $endmath 0]
-                                if {$op in {+ -}} {
-                                    set operand [string range $endmath 1 end]
-                                    if {[string is integer -strict $operand]} {
-                                        if {$op eq "+"} {
-                                            set linebase [expr {$minline + $operand}]
-                                        } else {
-                                            set linebase [expr {$minline - $operand}]
-                                        }
-                                    } else {
-                                        error $errunrecognised
-                                    }
-                                } else {
-                                    error $errunrecognised
-                                }
-                            } else {
-                                set linebase $minline
-                            }
-                            set linebase ${sign}$linebase
-                        } elseif {[string match *-* $tail]} {
-                            set extras [lassign [split $tail -] int1 int2]
-                            if {[llength $extras]} {
-                                error $errunrecognised
-                            }
-                            if {![string is integer -strict $int1] || ![string is integer -strict $int2]} {
-                                error $errunrecognised
-                            }
-                            set linebase [expr {$int1 - $int2}]
-                            set linebase ${sign}$linebase
-                        } elseif {[string match *+* $tail]} {
-                            set extras [lassign [split $tail +] int1 int2]
-                            if {[llength $extras]} {
-                                error $errunrecognised
-                            }
-                            if {![string is integer -strict $int1] || ![string is integer -strict $int2]} {
-                                error $errunrecognised
-                            }
-                            set linebase [expr {$int1 + $int2}]
-                            set linebase ${sign}$linebase
-                        } else {
-                            error $errunrecognised
-                        }
-
-                    } else {
-                        set linebase $opt_linebase
-                    }
-
-                    lassign [my numeric_chunkrange $chunkstart $chunkend] chunkstart chunkend
-
-                    if {![llength $opt_boundaries]} {
-                        set binfo [lib::range_spans_chunk_boundaries $chunkstart $chunkend $chunksize -offset $opt_offset]
-                        set boundaries [dict get $binfo boundaries]
-                    } else {
-                        set boundaries [list]
-                        foreach b $opt_boundaries {
-                            if {$chunkstart <= $b && $chunkend >= $b} {
-                                lappend boundaries [expr {$b + $opt_offset}]
-                            }
-                        }
-                    }
-
-
-                    if {![llength $boundaries]} {
-                        return "No boundaries found between $chunkstart and $chunkend for chunksize $chunksize (when offset $opt_offset)"
-                    }
-                    if {$opt_showconfig} {
-                        set result "chunk range $chunkstart $chunkend line range $minline $maxline linebase $linebase limit $opt_limit\n"
-                    } else {
-                        set result ""
-                    }
-                    set pre_bytes [expr {$opt_displaybytes /2}]
-                    set post_bytes $pre_bytes
-                    set max_bytes [expr {[my chunklen] -1}]
-                    if {$opt_limit > 0} {
-                        set boundaries [lrange $boundaries[unset boundaries] 0 $opt_limit-1]
-                    }
-
-                    set i 0
-                    foreach b $boundaries {
-                        if {$opt_boundaryheader ne ""} {
-                            set j [expr {$i+1}]
-                            append  result [string map [list %b% $b %i% $i %j% $j] $opt_boundaryheader] \n
-                        }
-                        set low [expr {max(($b - $pre_bytes),0)}]
-                        set high [expr {min(($b + $post_bytes),$max_bytes)}]
-
-                        set lineinfolist [my chunkrange_to_lineinfolist $low $high -show_truncated 1]
-                        set le_map [list \r\n <crlf> \r <cr> \n <lf>]
-                        set result_list [list]
-                        foreach lineinfo $lineinfolist {
-                            set lineidx [dict get $lineinfo lineindex]
-
-                            set linenum [expr {$lineidx + $linebase}]
-                            set s [dict get $lineinfo start]
-                            set e [dict get $lineinfo end]
-
-                            set boundarymarker ""
-                            set displayidx ""
-                            set linenum_display $linenum
-                            if {$s <= $b && $e >= $b} {
-                                set idx [expr {$b - $s}] ;#index into whole position in whole line - not so useful if we're viewing a small section of a line
-                                set char [string index [my line $lineidx] $idx]
-                                set char_display [string map [list \r <CR> \n <LF>] $char]
-                                if {[dict get $lineinfo is_truncated]} {
-                                    set tside [dict get $lineinfo truncatedside]
-                                    set truncated [dict get $lineinfo truncated]
-                                    set tlen [string length $truncated]
-                                    if {"left" in $tside} {
-                                        set tleft [dict get $lineinfo truncatedleft]
-                                        set tleftlen [string length $tleft]
-                                        set displayidx [expr {$idx - $tleftlen}]
-                                    } elseif {"right" in $tside} {
-                                        set displayidx $idx
-                                    }
-                                } else {
-                                    set displayidx $idx
-                                }
-                                set boundarymarker "'[a+ green bold]$char_display[a]'@$displayidx"
-                                set linenum_display ${linenum_display},$idx
-                            }
-
-                            set lhs_status $opt_cmark ;#default
-                            set rhs_status $opt_cmark ;#default
-                            if {[dict get $lineinfo is_truncated]} {
-                                set line [dict get $lineinfo truncated]
-                                set tside [dict get $lineinfo truncatedside]
-                                if {"left" in $tside && "right" in $tside } {
-                                    set lhs_status $opt_tmark
-                                    set rhs_status $opt_tmark
-                                } elseif {"left" in $tside} {
-                                    set lhs_status $opt_tmark
-                                } elseif {"right" in $tside} {
-                                    set rhs_status $opt_tmark
-                                }
-
-
-                            } else {
-                                set line [my line $lineidx]
-                            }
-                            if {$displayidx ne ""} {
-                                set line [string replace $line $displayidx $displayidx [a+ White green bold]$char_display[a]]
-                            }
-                            set displayline [string map $le_map $line]
-                            lappend result_list [list $linenum_display $boundarymarker $lhs_status $displayline $rhs_status]
-                        }
-                        set title_linenum "LNUM"
-                        set linenums [lsearch -index 0 -all -inline -subindices $result_list *]
-                        set markers [lsearch -index 1 -all -inline -subindices $result_list *]
-                        set lines   [lsearch -index 3 -all -inline -subindices $result_list *]
-                        set title_marker ""
-                        set title_line "Line"
-                        #todo - use punk::char for unicode support of wide chars etc?
-                        set widest_linenum [tcl::mathfunc::max {*}[lmap v [concat [list $title_linenum] $linenums] {string length $v}]]
-                        set widest_marker [tcl::mathfunc::max {*}[lmap v [concat [list $title_marker] $markers] {string length [ansistrip $v]}]]
-                        set widest_status [expr {max([string length $opt_cmark], [string length $opt_tmark])}]
-                        set widest_line [tcl::mathfunc::max {*}[lmap v [concat [list $title_line] $lines] {string length $v}]]
-                        foreach row $result_list {
-                            lassign $row linenum marker lhs_status line rhs_status
-                            append result [format " %-*s " $widest_linenum $linenum]
-	                        append result [format " %-*s " $widest_marker $marker]
-                            append result [format " %-*s " $widest_status $lhs_status]
-                            append result [format " %-*s " $widest_line $line]
-                            append result [format " %-*s " $widest_status $rhs_status] \n
-                        }
-                        incr i
-                    }
-                    set ::punk::fileline::ansi::enabled $pre_ansi_enabled
-                    return $result
-                }
-                method linecount {} {
-                    #*** !doctools
-                    #[call class::textinfo [method linecount]]
-                    #[para] Number of lines in the raw data of the file, counted as per the policy in effect
-                    return [llength $o_payloadlist]
-                }
-
-
-                method line {lineindex} {
-                    #*** !doctools
-                    #[call class::textinfo [method line] [arg lineindex]]
-                    #[para]Reconstructs and returns the raw line using the payload and per-line stored line-ending metadata
-                    #[para]A 'line' may be returned without a line-ending if the unerlying chunk had trailing data without a line-ending (or the chunk was loaded under a non-standard -policy setting)
-                    #[para]Whilst such data may not conform to definitions (e.g POSIX) of the terms 'textfile' and 'line' - it is useful here to represent it as a line with metadata le set to "none"
-                    #[para]To return just the data which might more commonly be needed for dealing with lines, use the [method linepayload] method - which returns the line data minus line-ending
-
-                    lassign [my numeric_linerange $lineindex 0] lineindex
-
-                    set le [dict get $o_linemap $lineindex le]
-                    set le_chars [dict get [dict create lf \n crlf \r\n none ""] $le]
-                    return [lindex $o_payloadlist $lineindex]$le_chars
-                }
-                method chunk_find_glob {globsearch args} {
-                    #todo - use linepayload_find_glob when -ignore_lineendings is 0 - but check truncations for 1st and last line
-                    error "unimplemented"
-                }
-                method linepayload_find_glob {globsearch args} {
-                    #*** !doctools
-                    #[call class::textinfo [method linepayload_find_glob] [arg globsearch] [opt {option value...}]]
-                    #[para]Return a lineinfolist (see [method lineinfo] and [method lineinfolist]) of lines where payload matches the [arg globsearch] string
-                    #[para]To limit the returned results use the -limit n option - where -limit 0 means return all matches.
-                    #[para]For example: [method linepayload_find_glob] "*test*" -limit 1
-                    #[para]The result is always a list of lineinfo dictionaries even if one item is returned
-                    #[para] -limitfrom can be start|end
-                    #[para]The order of results is always the order as they occur in the data - even if -limitfrom end is specified.
-                    #[para]-limitfrom end means that only the last -limit items are returned
-                    #[para]Note that as glob accepts [lb]chars[rb]] to mean match any character in the set given by chars, searching for literal square brackets should be done by escaping the bracket with a backslash
-                    #[para]This is true even if only a single square bracket is being searched for. e.g {*[lb]file*} will not find the word file followed by a left square-bracket - even though the search didn't close the square brackets.
-                    #[para]In the above case - the literal search should be {*\[lb]file*}
-
-                    set opts [dict create\
-                        -limit 0\
-                        -strategy 1\
-                        -start 0\
-                        -end end\
-                        -limitfrom start\
-                    ]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -limit - -strategy - -start - -end - -limitfrom {
-                                dict set opts $k $v
-                            }
-                            default {
-                                error "linepayload_find_glob unknown option '$k'. Known options: [dict keys $opts]"
-                            }
-                        }
-                    }
-                    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                    set opt_limit       [dict get $opts -limit]
-                    if {![string is integer -strict $opt_limit] || $opt_limit < 0} {
-                        error "linepayload_find_glob -limit must be positive integer"
-                    }
-                    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                    set opt_strategy    [dict get $opts -strategy]
-                    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                    set opt_start       [dict get $opts -start]
-                    set opt_start [expr {$opt_start}]
-                    if {$opt_start != 0} {error "-start unimplemented"}
-                    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                    set opt_end       [dict get $opts -end]
-                    set max_line_index [expr {[llength $o_payloadlist]-1}]
-                    if {$opt_end eq "end"} {
-                        set opt_end $max_line_index
-                    }
-                    #TODO
-                    if {$opt_end < $max_line_index} {error "-end less than max_line_index unimplemented"}
-                    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                    set opt_limitfrom   [dict get $opts -limitfrom]
-                    #-limitfrom  start|end only
-                    #TODO
-                    if {$opt_limitfrom ne "start"} {error "-limitfrom unimplemented"}
-                    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-                    set lineinfolist [list]
-
-                    if {$opt_limit == 1} {
-                        set idx [lsearch -glob [lrange $o_payloadlist $opt_start $opt_end] $globsearch]
-                        if {$idx >=0} {
-                            set i [expr {$opt_start + $idx}]
-                            lappend lineinfolist [list lineindex $i [dict get $o_linemap $i] payload [lindex $o_payloadlist $i]]
-                        }
-                    } elseif {$opt_limit == 0} {
-                        set indices [lsearch -all -glob [lrange $o_payloadlist $opt_start $opt_end] $globsearch]
-                        foreach irel $indices {
-                            set i [expr {$opt_start + $irel}]
-                            lappend lineinfolist [list lineindex $i [dict get $o_linemap $i] payload  [lindex $o_payloadlist $i]]
-                        }
-                    } else {
-                        #todo - auto-strategy based on limit vs number of lines
-                        if {$opt_strategy == 0} {
-                            set posn 0
-                            for {set r 0} {$r < $opt_limit} {incr r} {
-                                set n [lsearch [lrange $o_payloadlist $posn+$opt_start end] $globsearch]
-                                if {$n >=0} {
-                                    set irel [expr {$posn + $n}]
-                                    set i [expr {$irel + $opt_start}]
-                                    lappend lineinfolist [list lineindex $i {*}[dict get $o_linemap $i] payload [lindex $o_payloadlist $i]]
-                                    set posn [expr {$irel+1}]
-                                }
-                            }
-                        } else {
-                            set indices [lsearch -all -glob [lrange $o_payloadlist $opt_start $opt_end] $globsearch]
-                            set limited [lrange $indices 0 $opt_limit-1]
-                            foreach irel $limited {
-                                set i [expr {$opt_start + $irel}]
-                                lappend lineinfolist [list lineindex $i {*}[dict get $o_linemap $i] payload [lindex $o_payloadlist $i]]
-                            }
-                        }
-                    }
-                    return $lineinfolist
-                }
-                method linepayload {lineindex} {
-                    #*** !doctools
-                    #[call class::textinfo [method linepayload] [arg lineindex]]
-                    #[para]Return the text of the line indicated by the zero-based lineindex
-                    #[para]The line-ending is not returned in the data - but is still stored against this lineindex
-                    #[para]Line Metadata such as the line-ending for a particular line and the byte/character range it occupies within the chunk can be retrieved with the [method linemeta] method
-                    #[para]To retrieve both the line text and metadata in a single call the [method lineinfo] method can be used
-                    #[para]To retrieve an entire line including line-ending use the [method line] method.
-                    lassign [my numeric_linerange $lineindex 0] lineindex
-                    return [lindex $o_payloadlist $lineindex]
-                }
-                method linepayloads {startindex endindex} {
-                    #*** !doctools
-                    #[call class::textinfo [method linepayloads] [arg startindex] [arg endindex]]
-                    #[para]Return a list of just the payloads in the specified linindex range, with no metadata.
-                    return [lrange $o_payloadlist $startindex $endindex]
-                }
-                method linemeta {lineindex} {
-                    #*** !doctools
-                    #[call class::textinfo [method linemeta] [arg lineindex]]
-                    #[para]Return a dict of the metadata for the line indicated by the zero-based lineindex
-                    #[para]Keys returned include
-                    #[list_begin itemized]
-                    #[item] le
-                    #[para] A string representing the type of line-ending:  crlf|lf|none
-                    #[item] linelen
-                    #[para] The number of characters/bytes in the whole line including line-ending if any
-                    #[item] payloadlen
-                    #[para] The number of character/bytes in the line excluding line-ending
-                    #[item] start
-                    #[para] The zero-based index into the associated raw file data indicating at which byte/character index this line begins
-                    #[item] end
-                    #[para] The zero-based index into the associated raw file data indicating at which byte/character index this line ends
-                    #[para] This end-point corresponds to the last character of the line-ending if any - not necessarily the last character of the line's payload
-                    #[list_end]
-                    lassign [my numeric_linerange $lineindex 0] lineindex
-                    dict get $o_linemap $lineindex
-                }
-                method lineinfo {lineindex} {
-                    #*** !doctools
-                    #[call class::textinfo [method lineinfo] [arg lineindex]]
-                    #[para]Return a dict of the metadata and text for the line indicated by the zero-based lineindex
-                    #[para]This returns the same info as the [method linemeta] with an added key of 'payload' which is the text of the line without line-ending.
-                    #[para]The 'payload' value is the same as is returned from the [method linepayload] method.
-                    lassign [my numeric_linerange $lineindex 0] lineindex ;#convert lineindex to canonical number e.g 1_000 -> 1000  end -> highest index
-                    return [dict create lineindex $lineindex {*}[dict get $o_linemap $lineindex] payload [lindex $o_payloadlist $lineindex]]
-                }
-                method lineinfolist {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method lineinfolist] [arg startidx] [arg endidx]]
-                    #[para]Returns list of lineinfo dicts for each line in line index range startidx to endidx
-                    lassign [my numeric_linerange $startidx $endidx] startidx endidx
-                    set chunkstart  [dict get $o_linemap $startidx start]
-                    set chunkend    [dict get $o_linemap $endidx end]
-                    set line_list [my chunkrange_to_lineinfolist $chunkstart $chunkend] ;# assertion - no need to view truncations as we've picked start and end of complete lines
-                    #verify sanity
-                    set l_start [lindex $line_list 0]
-                    if {[set idx_start [dict get $l_start lineindex]] ne $startidx} {
-                        error "lineinfolist first lineindex $idx_start doesn't match startidx $startidx"
-                    }
-                    set l_end [lindex $line_list end]
-                    if {[set idx_end [dict get $l_end lineindex]] ne $endidx} {
-                        error "lineinfolist last lineindex $idx_end doesn't match endidx $endidx"
-                    }
-                    return $line_list
-                }
-
-                method linerange_to_chunkrange {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method linerange_to_chunkrange] [arg startidx] [arg endidx]]
-
-                    lassign [my numeric_linerange $startidx $endidx] startidx endidx
-                    #inclusive range
-                    return [list [dict get $o_linemap $startidx start] [dict get $o_linemap $endidx end]]
-                }
-                method linerange_to_chunk {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method linerange_to_chunk] [arg startidx] [arg endidx]]
-                    set chunkrange [my linerange_to_chunkrange $startidx $endidx]
-                    return [string range $o_chunk [lindex $chunkrange 0] [lindex $chunkrange 1]]
-                }
-                method lines {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method lines] [arg startidx] [arg endidx]]
-                    lassign [my numeric_linerange $startidx $endidx] startidx endidx
-                    set linelist [list]
-                    set le_map [dict create lf \n crlf \r\n none ""]
-                    for {set i $startidx} {$i <= $endidx} {incr i} {
-                        lappend linelist "[lindex $o_payloadlist $i][dict get $le_map [dict get $o_linemap $i le]]"
-                    }
-                    return $linelist
-                }
-                method linepayloads {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method linepayloads] [arg startidx] [arg endidx]]
-                    return [lrange $o_payloadlist $startidx $endidx]
-                }
-                method chunkrange_to_linerange {chunkstart chunkend} {
-                    #*** !doctools
-                    #[call class::textinfo [method chunkrange_to_linerange] [arg chunkstart] [arg chunkend]]
-                    lassign [my numeric_chunkrange $chunkstart $chunkend] chunkstart chunkend
-
-                    set linestart -1
-                    for {set i 0} {$i < [llength $o_payloadlist]} {incr i} {
-                        if {($chunkstart >= [dict get $o_linemap $i start]) && ($chunkstart <= [dict get $o_linemap $i end])} {
-                            set linestart $i
-                            break
-                        }
-                    }
-                    if {$linestart == -1} {
-                        error "Line with range in chunk spanning start index $chunkstart not found"
-                    }
-                    set lineend -1
-                    for {set i [expr {[llength $o_payloadlist] -1}]} {$i >=0} {incr i -1} {
-                        if {($chunkend >= [dict get $o_linemap $i start]) && ($chunkend <= [dict get $o_linemap $i end])} {
-                            set lineend $i
-                            break
-                        }
-                    }
-                    if {$lineend == -1} {
-                        error "Line with range spanning end index $chunkend not found"
-                    }
-                    return [list $linestart $lineend]
-                }
-                method chunkrange_to_lineinfolist {chunkstart chunkend args} {
-                    #*** !doctools
-                    #[call class::textinfo [method chunkrange_to_lineinfolist] [arg chunkstart] [arg chunkend] [opt {option value...}]]
-                    #[para]Return a list of dicts each with structure like the result of the [method lineinfo] method - but possibly with extra keys for truncation information if -show_truncated 1 is supplied
-                    #[para]The truncation key in a lineinfo dict may be returned for first and/or last line in the resulting list.
-                    #[para]truncation shows the shortened (missing bytes on left and/or right side) part of the entire line (potentially including line-ending or even partial line-ending)
-                    #[para]Note that this truncation info is only in the return value of this method - and will not be reflected in [method lineinfo] queries to the main chunk.
-
-                    lassign [my numeric_chunkrange $chunkstart $chunkend] chunkstart chunkend
-                    set defaults [dict create\
-                        -show_truncated 0\
-                    ]
-                    set known_opts [dict keys $defaults]
-                    foreach {k v} $args {
-                        if {$k ni $known_opts} {
-                            error "chunkrange_to_lines error: unknown option '$k'. Known options: $known_opts"
-                        }
-                    }
-                    set opts [dict merge $defaults $args]
-                    # -- --- --- --- --- --- --- ---
-                    set opt_show_truncated [dict get $opts -show_truncated]
-                    # -- --- --- --- --- --- --- ---
-
-                    set infolist [list]
-                    set linerange [my chunkrange_to_linerange $chunkstart $chunkend]
-                    lassign $linerange start_lineindex end_lineindex
-
-                    #if -show_truncated
-                    #return extra keys for first and last items (which may be the same item if chunkrange is entirely within a line)
-                    #add is_truncated 0|1 to all lines
-                    #Even if the start/end line is not fully within the chunkrange ie truncated - the 'payload' key will contain the original untruncated data
-                    ###########################
-                    # first line may have payload tail truncated - or just linefeed, or even a split linefeed
-                    ###########################
-                    set first [dict create lineindex $start_lineindex {*}[dict get $o_linemap $start_lineindex] payload [lindex $o_payloadlist $start_lineindex]]
-                    set start_info [dict get $o_linemap $start_lineindex]
-
-
-                    if {$chunkstart > [dict get $start_info start]} {
-                        dict set first is_truncated 1
-                        dict set first truncatedside [list left] ;#truncatedside is a list which may have 'right' added if last line is same as first line
-                    } else {
-                        dict set first is_truncated 0
-                    }
-
-                    if {$opt_show_truncated} {
-                        #line1
-                        if {$chunkstart > [dict get $start_info start]} {
-                            #there is lhs truncation
-                            set payload [lindex $o_payloadlist $start_lineindex]
-                            set line_start [dict get $start_info start]
-                            set le_chars [dict get [dict create lf \n crlf \r\n none ""] [dict get $start_info le]]
-                            set payload_and_le "${payload}${le_chars}"
-                            set split [expr {$chunkstart - $line_start}]
-                            set truncated [string range $payload_and_le $split end]
-                            set lhs [string range $payload_and_le 0 $split-1]
-
-                            dict set first truncated $truncated
-                            dict set first truncatedleft $lhs
-                        }
-                    }
-                    ###########################
-
-                    ###########################
-                    # middle lines if any - no truncation
-                    ###########################
-                    #difference in indexes of 1 would only mean 2 items to return
-                    set middle_list [list]
-                    if {($end_lineindex - $start_lineindex) > 1} {
-                        for {set i [expr {$start_lineindex +1}]} {$i <= [expr {$end_lineindex -1}] } {incr i} {
-                            #lineindex is key into main list
-                            lappend middle_list [dict create lineindex $i {*}[dict get $o_linemap $i] payload [lindex $o_payloadlist $i] is_truncated 0]
-                        }
-                    }
-                    ###########################
-
-                    ###########################
-                    # tail line  may have beginning or all of payload truncated - linefeed may be split if crlf
-                    # may be same line as first line - in which case truncation at beginning as well
-                    if {$end_lineindex == $start_lineindex} {
-                        #same record
-                        set end_info $start_info
-
-
-                        if {$chunkend < [dict get $end_info end]} {
-                            #there is rhs truncation
-                            if {[dict get $first is_truncated]} {
-                                dict set first truncatedside [list left right]
-                            } else {
-                                dict set first is_truncated 1
-                                dict set first truncatedside [list right]
-                            }
-                        }
-
-                        if {$opt_show_truncated} {
-                            if {$chunkend < [dict get $end_info end]} {
-                                #there is rhs truncation and we need to return the splits
-                                #do rhs truncation - possibly in addition to existing lhs truncation
-                                # ...
-                                set payload [lindex $o_payloadlist $end_lineindex]
-                                set line_start [dict get $end_info start]
-                                set le_chars [dict get [dict create lf \n crlf \r\n none ""] [dict get $end_info le]]
-                                set payload_and_le "${payload}${le_chars}"
-                                set split [expr {$chunkend - $line_start}]
-                                set truncated [string range $payload_and_le 0 $split]
-                                set rhs [string range $payload_and_le $split+1 end]
-                                dict set first truncatedright $rhs
-                                if {"left" ni [dict get $first truncatedside]} {
-                                    #rhs truncation only
-                                    puts "payload_and_le: $payload_and_le"
-                                    puts "LENGTH: [string length $payload_and_le]"
-                                    #---
-                                    #---
-                                    dict set first truncated $truncated
-                                    dict set first truncatedside [list right]
-                                } else {
-                                    #truncated on both sides
-                                    set lhslen [string length [dict get $first truncatedleft]]
-                                    #re-truncate the truncation to reapply the original lhs truncation
-                                    set truncated [string range $truncated $lhslen end]
-                                    dict set first truncated $truncated
-                                }
-                            }
-                        }
-                        #no middle or last to append
-                        lappend infolist $first
-                    } else {
-                        set last [dict create lineindex $end_lineindex {*}[dict get $o_linemap $end_lineindex] payload [lindex $o_payloadlist $end_lineindex]]
-                        set end_info [dict get $o_linemap $end_lineindex]
-
-
-                        if {$chunkend < [dict get $end_info end]} {
-                            dict set last is_truncated 1
-                            dict set last truncatedside [list right]
-                        } else {
-                            dict set last is_truncated 0
-                        }
-
-                        if {$opt_show_truncated} {
-                            if {$chunkend < [dict get $end_info end]} {
-                                #there is rhs truncation - and last line in range is a different line to first one
-                                set payload [lindex $o_payloadlist $end_lineindex]
-                                set line_start [dict get $end_info start]
-                                set line_end [dict get $end_info end]
-                                set le [dict get $end_info le]
-                                set le_size [dict get {lf 1 crlf 2 none 0} $le]
-                                set le_chars [dict get [dict create lf \n crlf \r\n none ""] $le]
-                                set payload_and_le "${payload}${le_chars}"
-
-                                set split [expr {$chunkend - $line_start}]
-                                set truncated [string range $payload_and_le 0 $split]
-                                set rhs [string range $payload_and_le $split+1 end]
-
-                                dict set last truncated $truncated
-                                dict set last truncatedright $rhs
-                                #this has the effect that truncating the rhs by 1 can result in truncated being larger than original payload for crlf lines - as payload now sees the cr
-                                #this is a bit unintuitive - but probably best reflects the reality. The truncated value is the truncated 'line' rather than the truncated 'payload'
-                            }
-                        }
-
-
-                        lappend infolist $first
-                        if {[llength $middle_list]} {
-                            lappend infolist {*}$middle_list
-                        }
-                        lappend infolist $last
-                    }
-                    ###########################
-                    #assertion  all records have is_truncated key.
-                    #assertion if is_truncated == 1 truncatedside should contain a list of either left, right or both left and right
-                    #assertion If not opt_show_truncated - then truncated records will not have truncated,truncatedleft,truncatedright keys.
-                    return $infolist
-                }
-
-                #need to check truncations so that any split \r\n is counted precisely  todo
-                method chunk_le_counts {chunkstart chunkend} {
-                    set infolines [my chunkrange_to_lineinfolist $chunkstart $chunkend -show_truncated 1]
-                    set lf_count 0
-                    set crlf_count 0
-                    set none_count 0
-                    foreach d $infolines {
-                        set le [dict get $d le]
-                        if {$le eq "lf"} {
-                            incr lf_count
-                        } elseif {$le eq "crlf"} {
-                            incr crlf_count
-                        } else {
-                            incr none_count
-                        }
-                    }
-                    #even without split crlf - this can overcount by counting the lf or crlf in a line which had an ending not in the chunk range specified
-
-                    #check first and last infoline for truncations
-                    #Also check if the truncation is directly between an crlf
-                    #both an lhs split and an rhs split could land between cr and lf
-                    #to be precise - we should presumably count the part within our chunk as either a none for cr or an lf
-                    #This means a caller counting chunk by chunk using this method will sometimes get the wrong answer depending on where crlfs lie relative to their chosen chunk size
-                    #This is presumably ok - as it should be a well known thing to watch out for.
-                    #If we're only receiving chunk by chunk we can't reliably detect splits vs lone <cr>s in the data
-                    #There are surely more efficient ways for a caller to count line-endings in the way that makes sense for them
-                    #but we should makes things as easy as possible for users of this line/chunk structure anyway.
-
-                    set first [lindex $infolines 0]
-                    if {[dict get $first is_truncated]} {
-                        #could be the only line - and truncated at one or both ends.
-                        #both a left and a right truncation could split a crlf
-
-                    }
-                    set last  [lindex $infolines end]
-                    if {[dict get $first lineindex] != [dict get $last lineindex]} {
-                        #only need to process last if it is a different line
-                        #if so - then split can only be left side
-
-                    }
-
-
-                    return [dict create lf $lf_count crlf $crlf_count unterminated $none_count warning line_ending_splits_unimplemented]
-                }
-
-                #todo - test last line and merge as necessary with first line from new chunk - generate line data only for appended chunk
-                method append_chunk {rawchunk} {
-                    error "sorry - unimplemented"
-                }
-
-                method numeric_linerange {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method numeric_linerange] [arg startidx] [arg endidx]]
-                    #[para]A helper to return any Tcl-style end end-x values given to startidx or endidx; converted to their specific values based on the current state of the underlying line data
-                    #[para]This is used internally by API functions such as [method line] to enable it to accept more expressive indices
-                    return [my normalize_indices $startidx $endidx [expr {[dict size $o_linemap]-1}]]
-                }
-                method numeric_chunkrange {startidx endidx} {
-                    #*** !doctools
-                    #[call class::textinfo [method numeric_chunkrange] [arg startidx] [arg endidx]]
-                    #[para]A helper to return any Tcl-style end end-x entries supplied to startidx or endidx; converted to their specific values based on the current state of the underlying chunk data
-                    return [my normalize_indices $startidx $endidx [expr {[string length $o_chunk]-1}]]
-                }
-                method normalize_indices {startidx endidx max} {
-                    #*** !doctools
-                    #[call class::textinfo [method normalize_indices] [arg startidx] [arg endidx] [arg max]]
-                    #[para]A utility to convert some of the of Tcl-style list-index expressions such as end, end-1 etc to valid indices in the range 0 to the supplied max
-                    #[para]Basic addition and subtraction expressions such as 4-1  5+2 are accepted
-                    #[para]startidx higher than endidx is allowed
-                    #[para]Unlike Tcl's index expressions - we raise an error if the calculated index is out of bounds 0 to max
-                    set original_startidx $startidx
-                    set original_endidx $endidx
-                    set startidx [string map [list _ ""] $startidx] ;#don't barf on Tcl 8.7+ underscores in numbers - we can't just use expr because it will not handle end-x
-                    set endidx   [string map [list _ ""] $endidx]
-                    if {![string is digit -strict "$startidx$endidx"]} {
-                        foreach whichvar [list start end] {
-                            upvar 0 ${whichvar}idx index
-                            if {![string is digit -strict $index]} {
-                                switch -glob -- $index {
-                                    end {
-                                        set index $max
-                                    }
-                                    "*-*" {
-                                        #end-int  or int-int - like lrange etc we don't accept arbitrarily complex expressions
-                                        lassign [split $index -] A B
-                                        if {$A eq "end"} {
-                                            set index [expr {$max - $B}]
-                                        } else {
-                                            set index [expr {$A - $B}]
-                                        }
-                                    }
-                                    "*+*" {
-                                        lassign [split $index +] A B
-                                        if {$A eq "end"} {
-                                            #review - this will just result in out of bounds error in final test - as desired
-                                            #By calculating here - we will see the result in the error message - but it's probably not particularly useful - as we don't really need end+ support at all.
-                                            set index [expr {$max + $B}]
-                                        } else {
-                                            set index [expr {$A + $B}]
-                                        }
-                                    }
-                                    default {
-                                        #May be something like +2 or -0  which braced expr can hanle
-                                        #we would like to avoid unbraced expr here - as we're potentially dealing with ranges that may come from external sources.
-                                        if {[catch {expr {$index}} index]} {
-                                            #could be  end+x - but we don't want out of bounds to be valid
-                                            #set it to something that the final bounds expr test can deal with
-                                            set index Inf
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                    }
-                    #Unlike Tcl lrange,lindex etc - we don't want to support out of bound indices.
-                    #show the supplied index and what it was mapped to in the error message.
-                    if {$startidx < 0 || $startidx > $max} {
-                        error "Bad start index '$original_startidx'. $startidx out of bounds 0 - $max"
-                    }
-                    if {$endidx < 0 || $endidx > $max} {
-                        error "Bad end index '$original_endidx'.  $endidx out of bounds 0 - $max (try $max or end)"
-                    }
-                    return [list $startidx $endidx]
-                }
-
-                method regenerate_lines {args} {
-                    #*** !doctools
-                    #[call class::textinfo [method regenerate_lines]]
-                    #[para]generate a list of lines from the current state of the stored raw data chunk and keep a map of line-endings indexed by lineindex
-                    #[para]This is called automatically by the Constructor during object creation
-                    #[para]It is exposed in the API experimentally - as chunk and line manipulation functions are considered.
-                    #[para]TODO - review whether such manual control will be necessary/desirable
-
-                    #we don't store the actual line-endings as characters (for better layout of debug/display of data) - instead we store names lf|crlf|none
-
-                    # first split on lf - then crlf. As we've replaced with single substution chars - the order doesn't matter.
-                    set o_payloadlist [list]
-                    set o_linemap [dict create]
-                    set crlf_replace [list \r\n $o_CRLF_C \n $o_LF_C]
-                    set normalised_data [string map $crlf_replace $o_chunk]
-
-                    set lf_lines [split $normalised_data $o_LF_C]
-
-                    set idx 0
-                    set lf_count 0
-                    set crlf_count 0
-                    set filedata_offset 0
-                    set i 0
-                    set imax [expr {[llength $lf_lines]-1}]
-                    foreach lfln $lf_lines {
-                        set crlf_parts [split $lfln $o_CRLF_C]
-                        if {[llength $crlf_parts] <= 1} {
-                            #no crlf
-                            set payloadlen [string length $lfln]
-                            set le_size 1
-                            set le lf
-                            if {$i == $imax} {
-                                #no more lf segments - and no crlfs
-                                if {$payloadlen > 0} {
-                                    #last line in split has chars - therefore there was no trailing line-ending
-                                    set le_size 0
-                                    set le none
-                                } else {
-                                    #empty space after last line-ending
-                                    #not really a line - we get here from splitting on our lf-replacement char
-                                    #An editor might display this pseudo-line with a line number - but we won't treat it as one here
-                                    break
-                                }
-                            }
-                            lappend o_payloadlist $lfln
-                            set linelen [expr {$payloadlen + $le_size}]
-                            #we include line-ending in byte count for a line.
-                            dict set o_linemap $idx [list le $le linelen $linelen payloadlen $payloadlen start $filedata_offset end [expr {$filedata_offset + $linelen -1}]]
-                            incr filedata_offset $linelen
-                            incr lf_count
-                            incr idx
-                        } else {
-                            foreach crlfpart [lrange $crlf_parts 0 end-1] {
-                                lappend o_payloadlist $crlfpart
-                                set payloadlen [string length $crlfpart]
-                                set linelen [expr {$payloadlen + 2}]
-                                dict set o_linemap $idx [list le crlf linelen $linelen payloadlen $payloadlen start $filedata_offset end [expr {$filedata_offset + $linelen -1}]]
-                                incr filedata_offset $linelen
-                                incr crlf_count
-                                incr idx
-                            }
-                            set lfpart [lindex $crlf_parts end]
-                            set payloadlen [string length $lfpart]
-                            if {$i == $imax} {
-                                #no more lf segments - but we did find crlf in last (or perhaps only) lf line
-                                #last element in our split  has no le
-                                if {$payloadlen > 0} {
-                                    set le_size 0
-                                    set le none
-                                } else {
-                                    #set le_size 2
-                                    #set le crlf
-                                    break
-                                }
-                            }  else {
-                                #more lf segments to come
-                                    set le_size 1
-                                    set le lf
-                            }
-
-                            lappend o_payloadlist $lfpart
-                            set linelen [expr {$payloadlen + $le_size}]
-                            dict set o_linemap $idx [list le $le linelen $linelen payloadlen $payloadlen start $filedata_offset end [expr {$filedata_offset + $linelen -1}]]
-                            incr filedata_offset $linelen
-                            incr lf_count
-                            incr idx
-                        }
-                        incr i
-                        #incr filedata_offset ;#move up 1 so start entry for next line is greater than end entry for previous line
-                    }
-                    set le_count [expr {$lf_count + $crlf_count}]
-                    if {$le_count != [llength $o_payloadlist]} {
-                        puts stderr "fileline::class::textinfo warning. regenerate_lines lf_count: $lf_count + crlf_count: $crlf_count does not equal length of lines stored: [llength $o_payloadlist]"
-                    }
-
-                }
-                method regenerate_chunk {} {
-                    #o_payloadlist
-                    #o_linemap
-                    set oldsize [string length $o_chunk]
-                    set newchunk ""
-                    #review - what was the intention here?
-                    puts stderr "regenerate_chunk -warning code incomplete"
-                    dict for {idx lineinfo} $o_linemap {
-                        #???
-                        #set
-
-                    }
-
-                    return [list newsize [string length $newchunk] oldsize $oldsize]
-                }
-
-
-                #*** !doctools
-                #[list_end]
-            }
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::fileline {
-    namespace export *
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::fileline}]
-    #[para] Core API functions for punk::fileline
-    #[list_begin definitions]
-
-    punk::args::define {
-        @id     -id ::punk::fileline::get_textinfo
-        @cmd    -name punk::fileline::get_textinfo -help\
-            "return: textinfo object instance"
-        -file -default {} -type existingfile
-        -translation -default iso8859-1
-        -encoding -default "\uFFFF"
-        -includebom -default 0
-        @values -min 0 -max 1
-    }
-    proc get_textinfo {args} {
-        #*** !doctools
-        #[call get_textinfo [opt {option value...}] [opt datachunk]]
-        #[para]Returns textinfo object instance representing data in string datachunk or if -file filename supplied - data loaded from a file
-        #[para]The encoding used is as specified in the -encoding option - or from the Byte Order Mark (bom) at the beginning of the data
-        #[para]For Tcl 8.6 - encodings such as utf-16le may not be available - so the bytes are swapped appropriately depending on the platform byteOrder and encoding 'unicode' is used.
-        #[para]encoding defaults to utf-8 if no -encoding specified and no BOM was found
-        #[para]Whether  -encoding was specified or not - by default the BOM characters are not retained in the line-data
-        #[para]If -includebom 1 is specified - the bom will be retained in the stored chunk and the data for line 1, but will undergo the same encoding transformation as the rest of the data
-        #[para]The get_bomid method of the returned object will contain an identifier for any BOM encountered.
-        #[para] e.g utf-8,utf-16be, utf-16le, utf-32be, utf32-le, SCSU, BOCU-1,GB18030, UTF-EBCDIC, utf-1, utf-7
-        #[para]If the encoding specified in the BOM isn't recognised by Tcl - the resulting data is likely to remain as the raw bytes of whatever encoding that is.
-        #[para]Currently only utf-8, utf-16* and utf-32* are properly supported even though the other BOMs are detected, reported via get_bomid, and stripped from the data.
-        #[para]GB18030 falls back to cp936/gbk (unless a gb18030 encoding has been installed). Use -encoding iso8859-1 if this isn't suitable and you need to do your own processing of the bytes.
-
-        lassign [dict values [punk::args::get_by_id ::punk::fileline::get_textinfo $args]] opts values
-        # -- --- --- ---
-        set opt_file    [dict get $opts -file]
-        set opt_translation [dict get $opts -translation]
-        set opt_encoding    [dict get $opts -encoding]
-        set opt_includebom  [dict get $opts -includebom]
-        # -- --- --- ---
-
-        if {$opt_file ne ""} {
-            set filename $opt_file
-            set fd [open $filename r]
-            chan configure $fd -translation binary -encoding $opt_translation;#should use translation binary to get actual line-endings - but we allow caller to override
-            #Always read encoding in binary - check for bom below and/or apply chosen opt_encoding
-            set rawchunk [read $fd]
-            close $fd
-            if {[llength $values]} {
-                puts stderr "Ignoring trailing argument [string length [lindex $values 0]] bytes. Not used when -file is specified"
-            }
-        } else {
-            set rawchunk [lindex $values 0]
-        }
-        set rawlen [string length $rawchunk]
-        #examine first 4 bytes for possible BOM
-        #big-endian BOMs
-        # -----------------------------------
-        #EFBBBF    - utf-8         reliabletxt
-        #FEFF      - utf-16be      reliabletxt
-        #FFFE      - utf-16le      reliabletxt
-        #0000FEFF  - utf-32be      reliabletxt
-        #FFFE0000  - utf-32le
-        #0000FFFE  - utf-32be(2143)  non-standard!   (not supported)
-        #FEFF0000  - utf-32le(3412)  non-standard!   (not supported - will detect as utf-16be)
-        #2B2F76    - utf-7          (not supported)
-        #F7644C    - utf-1          (not supported)
-        #DD736673  - UTF-EBCDIC     (not supported)
-        #0EFEFF    - SCSU           (not supported)
-        #FBEE28    - BOCU-1     Binary Ordered Compression for Unicode (mime-compatible) - (not supported - fall back to utf-8)
-        #84319533  - GB18030    -  Chinese gov standard (fall back to cp936 with warning if no encoding name)
-        # -----------------------------------
-
-        set first32 [string range $rawchunk 0 3]
-        #scan using capital H for big-endian order
-        set first32_be [binary scan $first32 H* maybe_bom] ;#we use H* instead of H8 for 8 nibbles (4 bytes) - because our first32 may contain less than 4 bytes - in which case we won't match
-        set bomid ""
-        set bomenc ""
-        set is_reliabletxt 0 ;#see http://reliabletxt.com - only utf-8 with bom, utf-16be, utf-16le, utf-32be supported as at 2024
-        set startdata 0
-        #todo switch -glob
-        if {[string match "efbbbf*" $maybe_bom]} {
-            set bomid utf-8
-            set bomenc utf-8
-            set is_reliabletxt 1
-            set startdata 3
-        } elseif {$maybe_bom eq "0000feff"} {
-            set bomid utf-32be
-            set bomenc utf-32be
-            set is_reliabletxt 1
-            set startdata 4
-        } elseif {$maybe_bom eq "fffe0000"} {
-            #Technically ambiguous - could be utf-16le bom followed by utf-16 null character (2 byte null)
-            puts stderr "WARNING - ambiguous BOM fffe0000 found. Treating as utf-32le - but could be utf-16le - consider manually setting -encoding or converting data to another encoding."
-            set bomid utf-32le
-            set bomenc utf-32le
-            set startdata 4
-        } elseif {[string match "feff*" $maybe_bom]} {
-            set bomid utf-16be
-            set bomenc utf-16be
-            set is_reliabletxt 1
-            set startdata 2
-        } elseif {[string match "fffe*" $maybe_bom]} {
-            set bomid utf-16le
-            set bomenc utf-16le
-            set is_reliabletxt 1
-            set startdata 2
-        } elseif {$maybe_bom eq "0efeff"} {
-            set bomid scsu
-            set bomenc "binary"
-            set startdata 3
-        } elseif {$maybe_bom eq "fbee28"} {
-            set bomid bocu-1
-            puts stderr "WARNING - bocu-1 BOM FBEE28 found. Not supported - back to binary"
-            set bomenc "binary" ;# utf-8???
-            set startdata 3
-        } elseif {$maybe_bom eq "84319533"} {
-            if {![dict exists [punk::char::page_names_dict gb18030] gb18030]} {
-                puts stderr "WARNING - no direct support for GB18030 (chinese) - falling back to cp936/gbk"
-                set bomenc cp936
-            } else {
-                set bomenc [dict get [punk::char::page_names_dict gb18030]] ;#review - this may never exist in Tcl or may be named differently - create a handler?
-            }
-            set bomid gb18030
-            set startdata 4
-        } elseif {$maybe_bom eq "f7644c"} {
-            puts stderr "WARNING utf-1 BOM F7644C found - not supported. Falling back to binary"
-            set bomid utf-1
-            set bomenc binary
-            set startdata 3
-        } elseif {[string match "2b2f76*" $maybe_bom]} {
-            puts stderr "WARNING utf-7 BOM 2b2f76 found - not supported. Falling back to binary and leaving BOM in data!"
-            #review - work out how to strip bom - last 2 bits of 4th byte belong to following character
-            set bomid utf-7
-            set bomenc binary
-            set startdata 0
-        }
-
-        #todo - check xml encoding attribute / html content-type
-        #todo - a separate chardet (https://chardet.readthedocs.io/ ) or mozilla like mechanism that can be manually called to autodetect character encoding
-        #This should be an explicit operation - not automatially done here unless we provide a flag for it.
-
-
-        if {$opt_includebom} {
-            set startdata 0
-        }
-
-        if {$opt_encoding eq "\uFFFF"} {
-            if {$bomenc ne "" && $bomenc ne "binary"} {
-                if {[package vcompare [package provide Tcl] 8.7] < 0} {
-                    #tcl 8.6 has unicode encoding but not utf-16le etc
-                    if {$bomenc ni [encoding names]} {
-                        if {$bomenc eq "utf-16le"} {
-                            if {$::tcl_platform(byteOrder) eq "littleEndian"} {
-                                set datachunk [encoding convertfrom unicode [string range $rawchunk $startdata end]]
-                                set encoding_selected unicode
-                            } else {
-                                set datachunk [encoding convertfrom unicode [system::wordswap16 [string range $rawchunk $startdata end]]]
-                                set encoding_selected "unicode (wordswapped 16)"
-                            }
-                        } elseif {$bomenc eq "utf-16be"} {
-                            if {$::tcl_platform(byteOrder) eq "littleEndian"} {
-                                set datachunk [encoding convertfrom unicode [system::wordswap16 [string range $rawchunk $startdata end]]]
-                                set encoding_selected "unicode (wordswapped 16)"
-                            } else {
-                                set datachunk [encoding convertfrom unicode [string range $rawchunk $startdata end]]
-                                set encoding_selected unicode
-                            }
-                        } elseif {$bomenc eq "utf-32le"} {
-                            if {$::tcl_platform(byteOrder) eq "littleEndian"} {
-                                set datachunk [encoding convertfrom unicode [string range $rawchunk $startdata end]]
-                                set encoding_selected unicode
-                            } else {
-                                set datachunk [encoding convertfrom unicode [system::wordswap32 [string range $rawchunk $startdata end]]]
-                                set encoding_selected "unicode (wordswapped 32)"
-                            }
-                        } elseif {$bomenc eq "utf-32be"} {
-                            if {$::tcl_platform(byteOrder) eq "littleEndian"} {
-                                set datachunk [encoding convertfrom unicode [system::wordswap32 [string range $rawchunk $startdata end]]]
-                                set encoding_selected "unicode (wordswapped 32)"
-                            } else {
-                                set datachunk [encoding convertfrom unicode [string range $rawchunk $startdata end]]
-                                set encoding_selected unicode
-                            }
-                        } else {
-                            error "Encoding $bomenc unavailable in this version of Tcl"
-                        }
-                    }  else {
-                        set datachunk [encoding convertfrom $bomenc [string range $rawchunk $startdata end]]
-                        set encoding_selected $bomenc
-                    }
-                } else {
-                    #tcl 8.7 plus has utf-16le etc
-                    set datachunk [encoding convertfrom $bomenc [string range $rawchunk $startdata end]]
-                    set encoding_selected $bomenc
-                }
-            } else {
-                #!?
-                if {$bomenc eq "binary"} {
-                    set datachunk [string range $rawchunk $startdata end]
-                    set encoding_selected binary
-                } else {
-                    set datachunk [encoding convertfrom utf-8 [string range $rawchunk $startdata end]]
-                    set encoding_selected utf-8
-                }
-            }
-        } else {
-            #manually specified encoding overrides bom - but still remove bom-chars REVIEW
-            #e.g we still want bom info - but specify binary encoding
-
-            if {$opt_encoding eq "binary"} {
-                set datachunk [string range $rawchunk $startdata end]
-            } else {
-                set datachunk [encoding convertfrom $opt_encoding [string range $rawchunk $startdata end]]
-            }
-            set encoding_selected $opt_encoding
-        }
-
-        set textobj [class::textinfo new $datachunk]
-        if {$bomid ne ""} {
-            $textobj set_bomid $bomid
-        }
-
-
-
-
-        set summary ""
-        append summary "Bytes loaded           :  $rawlen" \n
-        append summary "BOM ID                 :  $bomid" \n
-        append summary "Encoding selected      :  $encoding_selected" \n
-        append summary "Characters             :  [$textobj chunklen]" \n
-        append summary "Lines recognised       :  [$textobj linecount]" \n
-        set leinfo [$textobj chunk_le_counts 0 end]
-        append summary "crlf endings (windows) :  [dict get $leinfo crlf]" \n
-        append summary "lf endings   (unix)    :  [dict get $leinfo lf]" \n
-        append summary "unterminated lines     :  [dict get $leinfo unterminated]" \n
-        puts stdout $summary
-        return $textobj
-    }
-
-    proc file_boundary_display {filename startbyte endbyte chunksize args} {
-        set fd [open $filename r] ;#use default error if file not readable
-        chan configure $fd -translation binary
-        set rawfiledata [read $fd]
-        close $fd
-        set textobj [class::textinfo new $rawfiledata]
-        set result [$textobj chunk_boundary_display $startbyte $endbyte $chunksize {*}$args]
-        $textobj destroy
-        return $result
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::fileline ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::fileline::lib {
-    namespace export *
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace punk::fileline::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-
-    proc range_spans_chunk_boundaries {start end chunksize args} {
-        #*** !doctools
-        #[call [fun lib::range_spans_chunk_boundaries] [arg start] [arg end] [arg chunksize]]
-        #[para]Takes start and end offset, generally representing bytes or character indices, and computes a list of boundaries at multiples of the chunksize that are spanned by the start and end range.
-        #[list_begin arguments]
-        #  [arg_def integer start]
-        #  [para] zero-based start index of range
-        #  [arg_def integer end]
-        #  [para] zero-based end index of range
-        #  [arg_def integer chunksize]
-        #  [para] Number of bytes/characters  in chunk - must be positive and > 0
-        #[list_end]
-        #[para]returns a dict with the keys is_span and boundaries
-        #[para]is_span 0|1 indicates if the range specified spans a boundary of chunksize
-        #[para]boundaries contains a list of the spanned boundaries - which are always multiples of the chunksize
-        #[para]e.g
-        #[example_begin]
-        #    range_spans_chunk_boundaries 10 1750 512
-        #    is_span 1 boundaries {512 1024 1536}
-        #[example_end]
-        #[para]The -offset <int> option
-        #[example_begin]
-        #    range_spans_chunk_boundaries 10 1750 512 -offset 2
-        #    is_span 1 boundaries {514 1026 1538}
-        #[example_end]
-        #[para] This function automatically uses lseq (if Tcl >= 8.7) when number of boundaries spanned is approximately greater than 75
-        if {[catch {package require Tcl 8.7-}]} {
-            #only one implementation available for older Tcl
-            tailcall punk::fileline::system::_range_spans_chunk_boundaries_tcl $start $end $chunksize {*}$args
-        }
-        if {$chunksize < 1} {
-            error "range_spans_chunk_boundaries chunksize must be >= 1"
-        }
-
-        if {(abs($end - $start) / $chunksize) < 75} {
-            tailcall punk::fileline::system::_range_spans_chunk_boundaries_tcl $start $end $chunksize {*}$args
-        } else {
-            tailcall punk::fileline::system::_range_spans_chunk_boundaries_lseq $start $end $chunksize {*}$args
-        }
-    }
-
-    proc range_boundaries {start end chunksizes args} {
-        set argd [punk::args::parse $args withdef {
-            -offset -default 0
-        }]
-        lassign [dict values $argd] leaders opts remainingargs
-
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::fileline::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval punk::fileline::system {
-    #*** !doctools
-    #[subsection {Namespace punk::fileline::system}]
-    #[para] Internal functions that are not part of the API
-
-    proc wordswap16 {data} {
-        #scan in one endianness - format in the other. Whether we scan le/be first doesn't matter as long as we format using the opposite endianness
-        binary scan $data s* elements ;#scan little endian
-        return [binary format S* $elements] ;#format big endian
-    }
-    proc wordswap32 {data} {
-        binary scan $data i* elements
-        return [binary format I* $elements]
-    }
-
-    proc scan32bit_be {i32} {
-        if {[binary scan $i32 I x]} {
-            return $x
-        } else {
-            error "couldn't scan $i32"
-        }
-    }
-
-    #for 8.7+ using lseq
-    #much faster when resultant boundary size is large (at least when offset 0)
-    proc _range_spans_chunk_boundaries_lseq {start end chunksize args} {
-        if {$chunksize < 1} {error "chunksize must be > 0"} ;#sanitycheck in case called directly
-        set opts [dict create\
-            -offset 0\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -offset {
-                    dict set opts $k $v
-                }
-                default {
-                    error "unknown option '$k'. Known options: [dict keys $opts]"
-                }
-            }
-        }
-        # -- --- --- ---
-        set opt_offset [dict get $opts -offset]
-        # -- --- --- ---
-
-        set smod [expr {$start % $chunksize}]
-        if {$smod != 0} {
-            set start [expr {$start + ($chunksize - $smod)}]
-            if {$start > $end} {
-                return [list is_span 0 boundaries {}]
-            }
-        }
-        set boundaries [lseq $start to $end $chunksize]
-        #offset can be negative
-        if {$opt_offset} {
-            if {$opt_offset + [lindex $boundaries end] > $end || $opt_offset + [lindex $boundaries 0] < $start} {
-                set overflow 1
-            } else {
-                set overflow 0
-            }
-            set boundaries [lmap v $boundaries[unset boundaries]  {expr {$v + $opt_offset}}]
-            if {$overflow} {
-                #we don't know how many overflowed..
-                set inrange [list]
-                foreach b $boundaries {
-                    if {$b >= $start && $b <= $end} {
-                        lappend inrange $b
-                    }
-                }
-                set boundaries $inrange
-            }
-        }
-        return [list is_span [expr {[llength $boundaries]>0}] boundaries $boundaries]
-    }
-
-    #faster than lseq for small number of resultant boundaries (~< 75) (which is a common use case)
-    #gets very slow (comparitively) with large resultsets
-    proc _range_spans_chunk_boundaries_tcl {start end chunksize args} {
-        if {$chunksize < 1} {error "chunksize must be > 0"} ;#sanitycheck in case called directly
-        set opts [dict create\
-            -offset 0\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -offset {
-                    dict set opts $k $v
-                }
-                default {
-                    error "unknown option '$k'. Known options: [dict keys $opts]"
-                }
-            }
-        }
-        # -- --- --- ---
-        set opt_offset [dict get $opts -offset]
-        # -- --- --- ---
-
-        set is_span 0
-        set smod [expr {$start % $chunksize}]
-        if {$smod != 0} {
-            set start [expr {$start + ($chunksize - $smod)}]
-        }
-        set boundaries [list]
-
-        #we only need to pre-check the result-range for negative offsets - as our main loop stops before end?
-        if {$opt_offset < 0} {
-            #set btrack [expr {$start + $opt_offset}] ;#start back one to make sure we catch the first boundary
-            set btrack $bstart
-            set boff [expr {$btrack + $opt_offset}] ;#must be growing even if start and offset are negative - as chunksize is at least 1
-            while {$boff < $start} {
-                incr btrack $chunksize
-                set boff [expr {$btrack + $opt_offset}]
-            }
-            set bstart $btrack
-        } else {
-            set bstart $start
-        }
-        for {set b $bstart} {[set boff [expr {$b  + $opt_offset}]] <= $end} {incr b $chunksize} {
-            lappend boundaries $boff
-        }
-
-        return [list is_span [expr {[llength $boundaries]>0}] boundaries $boundaries offset $opt_offset]
-    }
-
-    proc _range_spans_chunk_boundaries_TIMEIT {start end chunksize {repeat 1}} {
-        puts "main  : [time {punk::fileline::lib::range_spans_chunk_boundaries $start $end $chunksize} $repeat]"
-        puts "tcl : [time {punk::fileline::system::_range_spans_chunk_boundaries_tcl $start $end $chunksize} $repeat]"
-        if {![catch {package require Tcl 8.7-}]} {
-            puts "lseq : [time {punk::fileline::system::_range_spans_chunk_boundaries_lseq $start $end $chunksize} $repeat]"
-        }
-    }
-}
-namespace eval punk::fileline::ansi {
-    #*** !doctools
-    #[subsection {Namespace punk::fileline::ansi}]
-    #[para]These are ansi functions imported from punk::ansi - or no-ops if that package is unavailable
-    #[para]See [package punk::ansi] for documentation
-    #[list_begin definitions]
-    variable enabled 1
-    #*** !doctools
-    #[call [fun ansi::a]]
-    #[call [fun ansi::a+]]
-    #[call [fun ansi::ansistrip]]
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::fileline::ansi ---}]
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::fileline [namespace eval punk::fileline {
-    variable pkg punk::fileline
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm
deleted file mode 100644
index 46cd5668..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm
+++ /dev/null
@@ -1,4556 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::lib 0.1.2
-# Meta platform     tcl
-# Meta license      BSD
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::lib 0 0.1.2]
-#[copyright "2024"]
-#[titledesc {punk general utility functions}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk library}]             [comment {-- Description at end of page heading --}]
-#[require punk::lib]
-#[keywords module utility lib]
-#[description]
-#[para]This is a set of utility functions that are commonly used across punk modules or are just considered to be general-purpose functions.
-#[para]The base set includes string and math functions but has no specific theme
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::lib
-#[subsection Concepts]
-#[para]The punk::lib modules should have no strong dependencies other than Tcl
-#[para]Dependendencies that only affect display or additional functionality may be included - but should fail gracefully if not present, and only when a function is called that uses one of these soft dependencies.
-#[para]This requirement for no strong dependencies, means that many utility functions that might otherwise seem worthy of inclusion here are not present.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::lib
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::args
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {punk::args}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-tcl::namespace::eval punk::lib::ensemble {
-    #wiki.tcl-lang.org/page/ensemble+extend
-    # extend an ensemble-like routine with the routines in some namespace
-    proc extend {routine extension} {
-        if {![string match ::* $routine]} {
-            set resolved [uplevel 1 [list ::tcl::namespace::which $routine]]
-            if {$resolved eq {}} {
-                error [list {no such routine} $routine]
-            }
-            set routine $resolved
-        }
-        set routinens [tcl::namespace::qualifiers $routine]
-        if {$routinens eq {::}} {
-            set routinens {}
-        }
-        set routinetail [tcl::namespace::tail $routine]
-
-        if {![string match ::* $extension]} {
-            set extension [uplevel 1 [
-                list [tcl::namespace::which namespace] current]]::$extension
-        }
-
-        if {![tcl::namespace::exists $extension]} {
-            error [list {no such namespace} $extension]
-        }
-
-        set extension [tcl::namespace::eval $extension [
-            list [tcl::namespace::which namespace] current]]
-
-        tcl::namespace::eval $extension [
-            list [tcl::namespace::which namespace] export *]
-
-        while 1 {
-            set renamed ${routinens}::${routinetail}_[clock clicks] ;#clock clicks unlikely to collide when not directly consecutive such as: list [clock clicks] [clock clicks]
-            if {[tcl::namespace::which $renamed] eq {}} break
-        }
-
-        rename $routine $renamed
-
-        tcl::namespace::eval $extension [
-            list namespace ensemble create -command $routine -unknown [
-                list apply {{renamed ensemble routine args} {
-                    list $renamed $routine
-                }} $renamed
-            ]
-        ]
-
-        return $routine
-    }
-}
-
-# some (?) tcl bug check procs needed to exist before main punk::lib namespaces are evaluated
-tcl::namespace::eval punk::lib::check {
-    proc has_tclbug_script_var {} {
-
-        set script {set j [list spud] ; list}
-        append script \n
-        uplevel #0 $script
-        set rep1 [tcl::unsupported::representation $::j]
-        set script ""
-        set rep2 [tcl::unsupported::representation $::j]
-
-        set nostring1 [string match "*no string" $rep1]
-        set nostring2 [string match "*no string" $rep2]
-
-        #we assume it should have no string rep in either case
-        #Review: check Tcl versions for behaviour/consistency
-        if {!$nostring2} {
-            return true
-        } else {
-            return false
-        }
-    }
-    proc has_tclbug_lsearch_strideallinline {} {
-        #bug only occurs with single -index value combined with -stride -all -inline -subindices
-        #https://core.tcl-lang.org/tcl/tktview/5a1aaa201d
-        if {[catch {lsearch -stride 3 -all -inline -index 1 -subindices {a1 a2 a3} *} result]} {
-            #we aren't looking for an error result - error most likely indicates tcl too old to support -stride
-            return 0
-        }
-        return [expr {$result ne "a2"}]
-    }
-
-    proc has_tclbug_list_quoting_emptyjoin {} {
-        #https://core.tcl-lang.org/tcl/tktview/e38dce74e2
-        set v1 [list {*}[lindex #foo] {*}[]] ;#can return "#foo" instead of "{#foo}" under some beta 9 releases
-        set v2 [list #foo] ;#normal tcl list quoting for 1st element that looks like a comment -> "{#foo}"
-        return [expr {![string equal $v1 $v2]}]  ;#if they're not equal - we have the bug.
-    }
-
-    proc has_tclbug_safeinterp_compile {{show 0}} {
-        #ensemble calls within safe interp not compiled
-        namespace eval [namespace current]::testcompile {
-            proc ensembletest {} {string index a 0}
-        }
-
-        set has_bug 0
-
-        set bytecode_outer [tcl::unsupported::disassemble proc [namespace current]::testcompile::ensembletest]
-        if {$show} {
-            puts outer:
-            puts $bytecode_outer
-        }
-        if {![interp issafe]} {
-            #test of safe subinterp only needed if we aren't already in a safe interp
-            if {![catch {
-                interp create x -safe
-            } errMsg]} {
-                x eval {proc ensembletest {} {string index a 0}}
-                set bytecode_safe [x eval {tcl::unsupported::disassemble proc ::ensembletest}]
-                if {$show} {
-                    puts safe:
-                    puts $bytecode_safe
-                }
-                interp delete x
-                #mainly we expect the safe interp might contain invokeStk - indicating not byte compiled (or we would see strindex instead)
-                #It's possible the interp we're running in is also not compiling ensembles.
-                #we could then get a result of 2 - which still indicates a problem
-                if {[string last "invokeStk" $bytecode_safe] >= 1} {
-                    incr has_bug
-                }
-            } else {
-                #our failure to create a safe interp here doesn't necessarily mean the Tcl version doesn't have the problem - but we could end up returning zero if somehow safe interp can't be created from unsafe interp?
-                #unlikely - but we should warn
-                puts stderr "Unable to create a safe sub-interp to test - result only indicates status of current interpreter"
-            }
-        }
-
-        namespace delete [namespace current]::testcompile
-
-        if {[string last "invokeStk" $bytecode_outer] >= 1} {
-            incr has_bug
-        }
-        return $has_bug
-    }
-}
-
-tcl::namespace::eval punk::lib::compat {
-    #*** !doctools
-    #[subsection {Namespace punk::lib::compat}]
-    #[para] compatibility functions for features that may not be available in earlier Tcl versions
-    #[para] These are generally 'forward compatibility' functions ie allowing earlier versions to use later features/idioms by using a Tcl-only version of a missing builtin.
-    #[para] Such Tcl-only versions will inevitably be less performant - perhaps significantly so.
-
-    #*** !doctools
-    #[list_begin definitions]
-
-
-
-
-    if {"::lremove" ne [info commands ::lremove]} {
-        #puts stderr "Warning - no built-in lremove"
-        interp alias {} lremove {} ::punk::lib::compat::lremove
-    }
-    proc lremove {list args} {
-        #*** !doctools
-        #[call [fun lremove] [arg list] [opt {index ...}]]
-        #[para] Forwards compatible lremove for versions 8.6 or less to support equivalent 8.7 lremove
-
-        set data [lmap v $list {list data $v}]
-        foreach doomed_index $args {
-            if {[llength $doomed_index] != 1} {error "bad index \"$doomed_index\": must be integer?\[+-]integer? or end?\[+-]integer?"}
-            lset data $doomed_index x ;#x won't collide as all our data has been mapped to 2 elements per value
-        }
-        set keep [lsearch -all -inline -not -exact $data x]
-        return [lsearch -all -inline -index 1 -subindices $keep *]
-    }
-    #not significantly different in performance over test of 100 elements - getting somewhere near 10% for 1k integers
-    proc lremove2 {list args} {
-        set data [lmap v $list {list data $v}]
-        foreach doomed_index $args {
-            if {[llength $doomed_index] != 1} {error "bad index \"$doomed_index\": must be integer?\[+-]integer? or end?\[+-]integer?"}
-            lset data $doomed_index x ;#x won't collide as all our data has been mapped to 2 elements per value
-        }
-        set keep [lsearch -all -inline -not -exact $data x]
-        return [lmap v $keep {lindex $v 1}]
-    }
-    #outside of lmap - don't know of any particularly nice ways to flatten to subindex 1 of each element..
-    #flattening then lsearch with -stride and * would be nice - but it's not avail in 8.6
-
-    if {![info exists ::auto_index(readFile)]} {
-        if {[info commands ::readFile] eq ""} {
-            proc ::readFile {filename {mode text}} {
-                #readFile not seen in auto_index or as command: installed by punk::lib
-                # Parse the arguments
-                set MODES {binary text}
-                set ERR     [list -level 1 -errorcode [list TCL LOOKUP MODE $mode]]
-                set mode    [tcl::prefix match -message "mode" -error $ERR $MODES $mode]
-
-                # Read the file
-                set f [open $filename [dict get {text r binary rb} $mode]]
-                try {
-                    return [read $f]
-                } finally {
-                    close $f
-                }
-            }
-        }
-    }
-    if {![info exists ::auto_index(writeFile)]} {
-        if {[info commands ::writeFile] eq ""} {
-            proc ::writeFile {args} {
-                #writeFile not seen in auto_index or as command: installed by punk::lib
-                # Parse the arguments
-                switch [llength $args] {
-                    2 {
-                        lassign $args filename data
-                        set mode text
-                    }
-                    3 {
-                        lassign $args filename mode data
-                        set MODES {binary text}
-                        set ERR     [list -level 1 -errorcode [list TCL LOOKUP MODE $mode]]
-                        set mode    [tcl::prefix match -message "mode" -error $ERR $MODES $mode]
-                    }
-                    default {
-                        set COMMAND [lindex [info level 0] 0]
-                        return -code error -errorcode {TCL WRONGARGS} "wrong # args: should be \"$COMMAND filename ?mode? data\""
-                    }
-                }
-
-                # Write the File
-                set f [open $filename [dict get {text w binary wb} $mode]]
-                try {
-                    puts -nonewline $f $data
-                } finally {
-                    close $f
-                }
-            }
-        }
-    }
-
-    if {"::lpop" ne [info commands ::lpop]} {
-        #puts stderr "Warning - no built-in lpop"
-        interp alias {} lpop {} ::punk::lib::compat::lpop
-        punk::args::set_alias ::punk::lib::compat::lpop ::lpop ;#point to the definition of ::lpop defined in punk::args::tclcore
-    }
-    proc lpop {lvar args} {
-        #*** !doctools
-        #[call [fun lpop] [arg listvar] [opt {index}]]
-        #[para] Forwards compatible lpop for versions 8.6 or less to support equivalent 8.7 lpop
-        upvar $lvar l
-        if {![llength $args]} {
-            set args [list end]
-        }
-        set v [lindex $l {*}$args]
-        set newlist $l
-
-        set path [list]
-        set subl $l
-        for {set i 0} {$i < [llength $args]} {incr i} {
-            set idx [lindex $args $i]
-            if {![llength [lrange $subl $idx $idx]]} {
-                error "tcl_lpop index \"$idx\" out of range"
-            }
-            lappend path [lindex $args $i]
-            set subl [lindex $l {*}$path]
-        }
-
-        set sublist_path [lrange $args 0 end-1]
-        set tailidx [lindex $args end]
-        if {![llength $sublist_path]} {
-            #set newlist [lremove $newlist $tailidx]
-            set newlist [lreplace $newlist $tailidx $tailidx]
-        } else {
-            set sublist [lindex $newlist {*}$sublist_path]
-            #set sublist [lremove $sublist $tailidx]
-            set sublist [lreplace $sublist $tailidx $tailidx]
-            lset newlist {*}$sublist_path $sublist
-        }
-        #puts "[set l]  -> $newlist"
-        set l $newlist
-        return $v
-    }
-    if {"::ledit" ni [info commands ::ledit]} {
-        interp alias {} ledit {} ::punk::lib::compat::ledit
-        punk::args::set_alias ::punk::lib::compat::ledit ::ledit
-    }
-    proc ledit {lvar first last args} {
-        upvar $lvar l
-        #use lindex_resolve to support for example: ledit lst end+1 end+1 h i
-        set fidx [punk::lib::lindex_resolve [llength $l] $first]
-        switch -exact -- $fidx {
-            -3 {
-                #index below lower bound
-                set pre [list]
-                set fidx -1
-            }
-            -2 {
-                #first index position is greater than index of last element in the list
-                set pre [lrange $l 0 end]
-                set fidx [llength $l]
-            }
-            default {
-                set pre [lrange $l 0 $first-1]
-            }
-        }
-        set lidx [punk::lib::lindex_resolve [llength $l] $last]
-        switch -exact -- $lidx {
-            -3 {
-                #index below lower bound
-                set post [lrange $l 0 end]
-            }
-            -2 {
-                #index above upper bound
-                set post [list]
-            }
-            default {
-                if {$lidx < $fidx} {
-                    #from ledit man page:
-                    #If last is less than first, then any specified elements will be inserted into the list before the element specified by first with no elements being deleted.
-                    set post [lrange $l $fidx end]
-                } else {
-                    set post [lrange $l $last+1 end]
-                }
-            }
-        }
-        set l [list {*}$pre {*}$args {*}$post]
-    }
-
-
-    #slight isolation - varnames don't leak - but calling context vars can be affected
-    proc lmaptcl2 {varnames list script} {
-        set result [list]
-        set values [list]
-        foreach v $varnames {
-            lappend values "\$$v"
-        }
-        set linkvars [uplevel 1 [list info vars]]
-        set nscaller [uplevel 1 [list namespace current]]
-
-        set apply_script ""
-        foreach vname $linkvars {
-            append apply_script [string map [list %vname% $vname]\
-             {upvar 2 %vname% %vname%}\
-            ] \n
-        }
-        append apply_script $script \n
-
-        #puts "--> $apply_script"
-        foreach $varnames $list {
-            lappend result [apply\
-                [list\
-                    $varnames\
-                    $apply_script\
-                    $nscaller\
-                ]  {*}[subst $values]\
-            ]
-        }
-        return $result
-    }
-
-    if {"::lmap" ne [info commands ::lmap]} {
-        #puts stderr "Warning - no built-in lpop"
-        interp alias {} lmap {} ::punk::lib::compat::lmaptcl
-    }
-    #lmap came in Tcl 8.6 - so probably not much need for a tcl forward compatibility version - but here it is anyway
-    proc lmaptcl {varnames list script} {
-        set result [list]
-        set varlist [list]
-        foreach varname $varnames {
-            upvar 1 $varname var_$varname ;#ensure no collisions with vars in this proc
-            lappend varlist  var_$varname
-        }
-        foreach $varlist $list {
-            lappend result [uplevel 1 $script]
-        }
-        return $result
-    }
-
-    #tcl8.7/9 compatibility for 8.6
-    if {[info commands ::tcl::string::insert] eq ""} {
-        #https://wiki.tcl-lang.org/page/string+insert
-        # Pure Tcl implementation of [string insert] command.
-        proc ::tcl::string::insert {string index insertString} {
-            # Convert end-relative and TIP 176 indexes to simple integers.
-            if {[regexp -expanded {
-                ^(end(?![\t\n\v\f\r ])      # "end" is never followed by whitespace
-                |[\t\n\v\f\r ]*[+-]?\d+)    # m, with optional leading whitespace
-                (?:([+-])                   # op, omitted when index is "end"
-                ([+-]?\d+))?                # n, omitted when index is "end"
-                [\t\n\v\f\r ]*$             # optional whitespace (unless "end")
-            } $index _ m op n]} {
-                # Convert first index to an integer.
-                switch $m {
-                    end     {set index [string length $string]}
-                    default {scan $m %d index}
-                }
-
-                # Add or subtract second index, if provided.
-                switch $op {
-                    + {set index [expr {$index + $n}]}
-                    - {set index [expr {$index - $n}]}
-                }
-            } elseif {![string is integer -strict $index]} {
-                # Reject invalid indexes.
-                return -code error "bad index \"$index\": must be\
-                        integer?\[+-\]integer? or end?\[+-\]integer?"
-            }
-
-            # Concatenate the pre-insert, insertion, and post-insert strings.
-            string cat [string range $string 0 [expr {$index - 1}]] $insertString\
-                    [string range $string $index end]
-        }
-
-        # Bind [string insert] to [::tcl::string::insert].
-        tcl::namespace::ensemble configure string -map [tcl::dict::replace\
-            [tcl::namespace::ensemble configure string -map]\
-            insert ::tcl::string::insert]
-    }
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::lib::compat ---}]
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::lib {
-    variable PUNKARGS
-    tcl::namespace::export *
-    variable has_struct_list
-    set has_struct_list [expr {![catch {package require struct::list}]}]
-    variable has_struct_set
-    set has_struct_set [expr {![catch {package require struct::set}]}]
-    variable has_punk_ansi
-    set has_punk_ansi [expr {![catch {package require punk::ansi}]}]
-    set has_twapi 0
-    if {"windows" eq $::tcl_platform(platform)} {
-        set has_twapi [expr {![catch {package require twapi}]}]
-    }
-
-    #NOTE: an alias may match in a namespace - but not have a corresponding command that matches that name (alias renamed)
-    proc aliases {{glob *}} {
-        set ns [uplevel 1 {::namespace current}] ;#must use :: - we can find ourselves in a namespace with a different 'namespace' command
-        set ns_mapped [string map {:: \uFFFF} $ns]
-        #puts stderr "aliases ns: $ns_mapped"
-        set segments [split $ns_mapped \uFFFF] ;#include empty string before leading ::
-        if {![string length [lindex $segments end]]} {
-            #special case for ::  only include leading segment rather thatn {} {}
-            set segments [lrange $segments 0 end-1]
-        }
-        set segcount [llength $segments] ;#only match number of segments matching current ns
-
-
-        set all_aliases [interp aliases {}]
-        set matched [list]
-        foreach a $all_aliases {
-            #normalize with leading ::
-            if {![string match ::* $a]} {
-                set abs ::$a
-            } else {
-                set abs $a
-            }
-
-            set asegs [split [string map {:: \uFFFF} $abs] \uFFFF]
-            set acount [llength $asegs]
-            #puts "alias $abs  acount:$acount asegs:$asegs segcount:$segcount segments: $segments"
-            if {($acount - 1) == $segcount} {
-                if {[lrange $asegs 0 end-1] eq $segments} {
-                    if {[string match $glob [lindex $asegs end]]} {
-                        #report this alias in the current namespace - even though there may be no matching command
-                        lappend matched $a  ;#add raw alias token which may or may not have leading ::
-                    }
-                }
-            }
-        }
-        #set matched_abs [lsearch -all -inline $all_aliases $glob]
-
-        return $matched
-    }
-
-    proc alias {{aliasorglob ""} args} {
-        set nsthis [uplevel 1 {::namespace current}] ;#must use :: - we can find ourselves in a namespace with a different 'namespace' command
-        if {[llength $args]} {
-            if {$aliasorglob in [interp aliases ""]} {
-                set existing [interp alias "" $aliasorglob]
-                puts stderr "Overwriting existing alias $aliasorglob -> $existing with $aliasorglob -> $args (in current session only)"
-            }
-            if {([llength $args] ==1) && [string trim [lindex $args 0]] eq ""} {
-                #use empty string/whitespace as intention to delete alias
-                return [interp alias "" $aliasorglob ""]
-            }
-            return [interp alias "" $aliasorglob "" {*}$args]
-        } else {
-            if {![string length $aliasorglob]} {
-                set aliaslist [punk::lib::aliases]
-                puts -nonewline stderr $aliaslist
-                return
-            }
-            #we need to first check for exact match of alias that happens to have glob chars i.e the supplied aliasorglob looks like a glob but is actually directly an alias
-            set target [interp alias "" $aliasorglob]
-            if {[llength $target]} {
-                return $target
-            }
-
-            if {([string first "*" $aliasorglob] >= 0) || ([string first "?" $aliasorglob] >= 0)} {
-                set aliaslist [punk::lib::aliases $aliasorglob]
-                puts -nonewline stderr $aliaslist
-                return
-            }
-            return [list]
-        }
-    }
-
-
-    # == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == ==
-    # Maintenance - This is the primary source for tm_version... functions
-    #             - certain packages script require these but without package dependency
-    #             - 1 punk boot script
-    #             - 2 packagetrace module
-    #             - These should be updated to sync with this
-    # == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == ==
-    proc tm_version_isvalid {versionpart} {
-        #Needs to be suitable for use with Tcl's 'package vcompare'
-        if {![catch [list package vcompare $versionpart $versionpart]]} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    proc tm_version_major {version} {
-        if {![tm_version_isvalid $version]} {
-            error "Invalid version '$version' is not a proper Tcl module version number"
-        }
-        set firstpart [lindex [split $version .] 0]
-        #check for a/b in first segment
-        if {[string is integer -strict $firstpart]} {
-            return $firstpart
-        }
-        if {[string first a $firstpart] > 0} {
-            return [lindex [split $firstpart a] 0]
-        }
-        if {[string first b $firstpart] > 0} {
-            return [lindex [split $firstpart b] 0]
-        }
-        error "tm_version_major unable to determine major version from version number '$version'"
-    }
-    proc tm_version_canonical {ver} {
-        #accepts a single valid version only - not a bounded or unbounded spec
-        if {![tm_version_isvalid $ver]} {
-            error "tm_version_canonical version '$ver' is not valid for a package version"
-        }
-        set parts [split $ver .]
-        set newparts [list]
-        foreach o $parts {
-            set trimmed [string trimleft $o 0]
-            set firstnonzero [string index $trimmed 0]
-            switch -exact -- $firstnonzero {
-                "" {
-                    lappend newparts 0
-                }
-                a - b {
-                    #e.g 000bnnnn -> bnnnnn
-                    set tailtrimmed [string trimleft [string range $trimmed 1 end] 0]
-                    if {$tailtrimmed eq ""} {
-                        set tailtrimmed 0
-                    }
-                    lappend newparts 0$firstnonzero$tailtrimmed
-                }
-                default {
-                    #digit
-                    if {[string is integer -strict $trimmed]} {
-                        #e.g 0100 -> 100
-                        lappend newparts $trimmed
-                    } else {
-                        #e.g 0100b003 -> 100b003 (still need to process tail)
-                        if {[set apos [string first a $trimmed]] > 0} {
-                            set lhs [string range $trimmed 0 $apos-1] ;#assert lhs non-empty and only digits or wouldn't be in this branch
-                            set rhs [string range $trimmed $apos+1 end] ;#assert rhs non-empty and only digits
-                            set rhs [string trimleft $rhs 0]
-                            if {$rhs eq ""} {
-                                set rhs 0
-                            }
-                            lappend newparts ${lhs}a${rhs}
-                        } elseif {[set bpos [string first b $trimmed]] > 0} {
-                            set lhs [string range $trimmed 0 $bpos-1] ;#assert lhs non-empty and only digits or wouldn't be in this branch
-                            set rhs [string range $trimmed $bpos+1 end] ;#assert rhs non-empty and only digits
-                            set rhs [string trimleft $rhs 0]
-                            if {$rhs eq ""} {
-                                set rhs 0
-                            }
-                            lappend newparts ${lhs}b${rhs}
-                        } else {
-                            #assert - shouldn't get here trimmed val should have been empty, an int or contained an a or b
-                            error "tm_version_canonical error - trimfail - unexpected"
-                        }
-                    }
-                }
-            }
-        }
-        return [join $newparts .]
-    }
-    proc tm_version_required_canonical {versionspec} {
-        #also trim leading zero from any dottedpart?
-        #Tcl *allows* leading zeros in any of the dotted parts - but they are not significant.
-        #e.g 1.01 is equivalent to 1.1 and 01.001
-        #also 1b3 == 1b0003
-
-        if {[string trim $versionspec] eq ""} {return ""}  ;#unspecified = any version
-        set errmsg "tm_version_required_canonical - invalid version specification"
-        if {[string first - $versionspec] < 0} {
-            #no dash
-            #looks like a minbounded version (ie a single version with no dash)  convert to min-max form
-            set from $versionspec
-            if {![tm_version_isvalid $from]} {
-                error "$errmsg '$versionpec'"
-            }
-            if {![catch {tm_version_major $from} majorv]} {
-                set from [tm_version_canonical $from]
-                return "${from}-[expr {$majorv +1}]"
-            } else {
-                error "$errmsg '$versionspec'"
-            }
-        } else {
-            # min- or min-max
-            #validation and canonicalisation (strip leading zeroes from each segment, including either side of a or b)
-            set parts [split $versionspec -] ;#we expect only 2 parts
-            lassign $parts from to
-            if {![tm_version_isvalid $from]} {
-                error "$errmsg '$versionspec'"
-            }
-            set from [tm_version_canonical $from]
-            if {[llength $parts] == 2} {
-                if {$to ne ""} {
-                    if {![tm_version_isvalid $to]} {
-                        error "$errmsg '$versionspec'"
-                    }
-                    set to [tm_version_canonical $to]
-                    return $from-$to
-                } else {
-                    return $from-
-                }
-            } else {
-                error "$errmsg '$versionspec'"
-            }
-            error "tm_version_required_canonical should have already returned a canonicalised versionspec - or produced an error with reason before this point"
-        }
-    }
-    # end tm_version... functions
-    # == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == ==
-
-
-
-    # -- ---
-    #https://stackoverflow.com/questions/17631269/whats-the-best-way-to-join-two-lists
-    #DKF's 2013 recommendation of using list {*}$first {*}$second seems not to apply in 2024
-    #8.6,8.7,9.0 - 'lappend first {*}$second'  is many times faster - especially as list grows
-    # Review and retest as new versions come out.
-    # -- ---
-    proc list_multi_append1 {lvar1 lvar2} {
-        #clear winner in 2024
-        upvar $lvar1 l1 $lvar2 l2
-        lappend l1 {*}$l2
-        return $l1
-    }
-    proc list_multi_append2 {lvar1 lvar2} {
-        upvar $lvar1 l1 $lvar2 l2
-        set l1 [list {*}$l1 {*}$l2]
-    }
-    proc list_multi_append3 {lvar1 lvar2} {
-        upvar $lvar1 l1 $lvar2 l2
-        set l1 [lindex [list [list {*}$l1 {*}$l2] [unset l1]] 0]
-    }
-    #testing e.g
-    #set l1_reset {a b c}
-    #set l2 {a b c d e f g}
-    #set l1 $l1_reset
-    #time {list_multi_append1 l1 l2} 1000
-    #set l1 $l1_reset
-    #time {list_multi_append2 l1 l2} 1000
-    # -- ---
-
-
-    proc lswap {lvar a z} {
-        upvar $lvar l
-        set len [llength $l]
-        if {[lindex_resolve_basic $len $a] < 0 || [lindex_resolve_basic $len $z] < 0} {
-            #lindex_resolve_basic returns only -1 if out of range
-            #if we didn't do this check - we could raise an error on second lset below - leaving list corrupted because only one lset occurred
-            #(e.g using: lswap mylist end-2 end on a two element list)
-
-            #on the unhapy path we can take time to check the nature of the out-of-boundness to give a nicer report
-            #use full 'lindex_resolve' which can report which side via -3 and -2 special results being lower and upper bound breaches respectively (-1 never returned)
-            set a_index [lindex_resolve $len $a]
-            set a_msg ""
-            switch -- $a_index {
-                -2 {
-                    set a_msg "1st supplied index $a is above the upper bound for the list ([llength $l])"
-                }
-                -3 {
-                    set a_msg "1st supplied index $a is below the lower bound for the list (0)"
-                }
-            }
-            set z_index [lindex_resolve $len $z]
-            set z_msg ""
-            switch -- $z_index {
-                -2 {
-                    set z_msg "2nd supplied index $z is above the upper bound for the list ([llength $l])"
-                }
-                -3 {
-                    set z_msg "2nd supplied index $z is below the lower bound for the list (0)"
-                }
-            }
-            set errmsg "lswap cannot swap indices $a and $z"
-            if {$a_msg ne ""} {
-                append errmsg \n $a_msg
-            }
-            if {$z_msg ne ""} {
-                append errmsg \n $z_msg
-            }
-            error $errmsg
-        }
-        set item2 [lindex $l $z]
-        lset l $z [lindex $l $a]
-        lset l $a $item2
-        return $l
-    }
-    #proc lswap2 {lvar a z} {
-    #    upvar $lvar l
-    #    #if index a strictly less <= z we can do in one-liner for fun - but it's replacing whole list - so much slower
-    #    set l [concat [lrange $l 0 $a-1] [lindex $l $z] [lrange $l $a+1 $z-1] [lindex $l $a] [lrange $l $z+1 end]]
-    #}
-
-    proc lswap2 {lvar a z} {
-        upvar $lvar l
-        #if index a strictly less <= z we can do in one-liner for fun - but it's replacing whole list - so much slower
-        set l [list {*}[lrange $l 0 $a-1] [lindex $l $z] {*}[lrange $l $a+1 $z-1] [lindex $l $a] {*}[lrange $l $z+1 end]]
-    }
-
-    #an experimental test of swapping vars without intermediate variables
-    #It's an interesting idea - but probably of little to no practical use
-    # - the swap_intvars3 version using intermediate var is faster in Tcl
-    # - This is probably unsurprising - as it's simpler code.
-    # Even if we tried this technique in c - the compiler would probably do a better job with the intermediate variable than with the math tricks.
-    #proc swap_intvars {swapv1 swapv2} {
-    #    upvar $swapv1 _x  $swapv2 _y
-    #    set _x [expr {[expr {$_x + $_y}] - [set _y $_x]}]
-    #}
-    #proc swap_intvars2 {swapv1 swapv2} {
-    #    upvar $swapv1 _x  $swapv2 _y
-    #    set _x [expr {$_x ^ $_y}]
-    #    set _y [expr {$_x ^ $_y}]
-    #    set _x [expr {$_x ^ $_y}]
-    #}
-    #proc swap_intvars3 {swapv1 swapv2} {
-    #    #using intermediate variable
-    #    upvar $swapv1 _x  $swapv2 _y
-    #    set z $_x
-    #    set _x $_y
-    #    set _y $z
-    #}
-
-    #*** !doctools
-    #[subsection {Namespace punk::lib}]
-    #[para] Core API functions for punk::lib
-    #[list_begin definitions]
-
-    if {[info commands lseq] ne ""} {
-        #tcl 8.7+ lseq significantly faster, especially for larger ranges
-        #The internal rep can be an 'arithseries' with no string representation
-        #support minimal set from to
-        proc range {from to} {
-            lseq $from $to
-        }
-    } else {
-        #lseq accepts basic expressions e.g 4-2 for both arguments
-        #e.g we can do lseq 0 [llength $list]-1
-        #if range is to be consistent with the lseq version above - it should support that, even though we don't support most lseq functionality in either wrapper.
-        proc range {from to} {
-            set to [offset_expr $to]
-            set from [offset_expr $from]
-            if {$to > $from} {
-                set count [expr {($to -$from) + 1}]
-                if {$from == 0} {
-                    return [lsearch -all [lrepeat $count 0] *]
-                } else {
-                    incr from -1
-                    return [lmap v [lrepeat $count 0] {incr from}]
-                }
-                #slower methods.
-                #2)
-                #set i -1
-                #set L [lrepeat $count 0]
-                #lmap v $L {lset L [incr i] [incr from];lindex {}}
-                #return $L
-                #3)
-                #set L {}
-                #for {set i 0} {$i < $count} {incr i} {
-                #    lappend L [incr from]
-                #}
-                #return $L
-            } elseif {$from > $to} {
-                set count [expr {$from - $to} + 1]
-                #1)
-                if {$to == 0} {
-                    return [lreverse [lsearch -all [lrepeat $count 0] *]]
-                } else {
-                    incr from
-                    return [lmap v [lrepeat $count 0] {incr from -1}]
-                }
-
-                #2)
-                #set i -1
-                #set L [lrepeat $count 0]
-                #lmap v $L {lset L [incr i] [incr from -1];lindex {}}
-                #return $L
-                #3)
-                #set L {}
-                #for {set i 0} {$i < $count} {incr i} {
-                #    lappend L [incr from -1]
-                #}
-                #return $L
-            } else {
-                return [list $from]
-            }
-        }
-    }
-
-    proc lzip {args} {
-        switch -- [llength $args] {
-            0 {return {}}
-            1 {return [lindex $args 0]}
-            2 {return [lzip2lists {*}$args]}
-            3 {return [lzip3lists {*}$args]}
-            4 {return [lzip4lists {*}$args]}
-            5 {return [lzip5lists {*}$args]}
-            6 {return [lzip6lists {*}$args]}
-            7 {return [lzip7lists {*}$args]}
-            8 {return [lzip8lists {*}$args]}
-            9 {return [lzip9lists {*}$args]}
-            10 {return [lzip10lists {*}$args]}
-            11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 20 - 21 - 22 - 23 - 24 - 25 - 26 - 27 - 28 - 29 - 30 - 31 - 32 {
-                set n [llength $args]
-                if {[info commands ::punk::lib::lzip${n}lists] eq ""} {
-                    puts "calling ::punk::lib::Build_lzipn $n"
-                    ::punk::lib::Build_lzipn $n
-                }
-                return [lzip${n}lists {*}$args]
-            }
-            default {
-                if {[llength $args] < 4000} {
-                    set n [llength $args]
-                    if {[info commands ::punk::lib::lzip${n}lists] eq ""} {
-                        puts "calling ::punk::lib::Build_lzipn $n"
-                        ::punk::lib::Build_lzipn $n
-                    }
-                    return [lzip${n}lists {*}$args]
-                } else {
-                    return [lzipn {*}$args]
-                }
-            }
-        }
-    }
-
-    proc Build_lzipn {n} {
-        set arglist [list]
-        #use punk::lib::range which defers to lseq if available
-        set vars [lmap i [punk::lib::range 0 $n] {string cat v$i}] ;#v0 v1 v2.. (v0 ignored)
-        set body "\nlmap "
-        for {set i 1} {$i <= $n} {incr i} {
-            lappend arglist l$i
-            append body "[lindex $vars $i] \$l$i "
-        }
-        append body "\{list "
-        for {set i 1} {$i <= $n} {incr i} {
-            append body "\$[lindex $vars $i] "
-        }
-        append body "\}" \n
-        puts "proc punk::lib::lzip${n}lists {$arglist} \{"
-        puts "$body"
-        puts "\}"
-        proc ::punk::lib::lzip${n}lists $arglist $body
-    }
-
-    #fastest is to know the number of lists to be zipped
-    proc lzip2lists {l1 l2} {
-        lmap a $l1 b $l2 {list $a $b}
-    }
-    proc lzip3lists {l1 l2 l3} {
-        lmap a $l1 b $l2 c $l3 {list $a $b $c}
-    }
-    proc lzip4lists {l1 l2 l3 l4} {
-        lmap a $l1 b $l2 c $l3 d $l4 {list $a $b $c $d}
-    }
-    proc lzip5lists {l1 l2 l3 l4 l5} {
-        lmap a $l1 b $l2 c $l3 d $l4 e $l5 {list $a $b $c $d $e}
-    }
-    proc lzip6lists {l1 l2 l3 l4 l5 l6} {
-        lmap a $l1 b $l2 c $l3 d $l4 e $l5 f $l6 {list $a $b $c $d $e $f}
-    }
-    proc lzip7lists {l1 l2 l3 l4 l5 l6 l7} {
-        lmap a $l1 b $l2 c $l3 d $l4 e $l5 f $l6 g $l7 {list $a $b $c $d $e $f $g}
-    }
-    proc lzip8lists {l1 l2 l3 l4 l5 l6 l7 l8} {
-        lmap a $l1 b $l2 c $l3 d $l4 e $l5 f $l6 g $l7 h $l8 {list $a $b $c $d $e $f $g $h}
-    }
-    proc lzip9lists {l1 l2 l3 l4 l5 l6 l7 l8 l9} {
-        lmap a $l1 b $l2 c $l3 d $l4 e $l5 f $l6 g $l7 h $l8 i $l9 {list $a $b $c $d $e $f $g $h $i}
-    }
-    proc lzip10lists {l1 l2 l3 l4 l5 l6 l7 l8 l9 l10} {
-        lmap a $l1 b $l2 c $l3 d $l4 e $l5 f $l6 g $l7 h $l8 i $l9 j $l10 {list $a $b $c $d $e $f $g $h $i $j}
-    }
-
-    #neat algorithm - but while lmap seems better than foreach - it seems the script is evaluated a little slowly
-    # review -
-    proc lzipn_alt args {
-        #stackoverflow - courtesy glenn jackman (modified)
-        foreach l $args {
-            lappend vars [incr n]
-            lappend lmap_args $n $l
-        }
-        lmap {*}$lmap_args {lmap v $vars {set $v}}
-    }
-
-    #2024 - outperforms lmap version - presumably because list sizes reduced as it goes(?)
-    proc lzipn_tcl8 {args} {
-        #wiki - courtesy JAL
-        set list_l $args
-        set zip_l []
-        while {1} {
-            set cur    [lmap a_l $list_l { lindex $a_l 0 }]
-            set list_l [lmap a_l $list_l { lrange $a_l 1 end }]
-
-            if {[join $cur {}] eq {}} {
-                break
-            }
-            lappend zip_l $cur
-        }
-        return $zip_l
-    }
-    proc lzipn_tcl9a {args} {
-        #compared to wiki version
-        #comparable for lists len <3 or number of args < 3
-        #approx 2x faster for large lists or more lists
-        #needs -stride single index bug fix to use empty string instead of NULL
-        if {![llength $args]} {return {}}
-        set lens [lmap l $args {llength $l}]
-        set numcolumns [::tcl::mathfunc::max {*}$lens]
-        set flatlist [lrepeat [expr {$numcolumns * [llength $args]}] {}]
-        set outlist  [lrepeat $numcolumns {}]
-        set s 0
-        foreach len $lens list $args {
-            #ledit flatlist $s $e {*}$l {*}[lrepeat [expr {($numcolumns -([llength $l] % $numcolumns)) % $numcolumns}] NULL]
-            ledit flatlist $s [expr {$s + $len - 1}] {*}$list
-            incr s $numcolumns
-        }
-        #needs single index lstride bugfix
-        for {set c 0} {$c < $numcolumns} {incr c} {
-            ledit outlist $c $c [lsearch -stride $numcolumns -index $c -inline -all -subindices $flatlist *]
-        }
-        return $outlist
-    }
-    proc lzipn_tcl9b {args} {
-        if {![llength $args]} {return {}}
-        set lens [lmap l $args {llength $l}]
-        set numcolumns [::tcl::mathfunc::max {*}$lens]
-        set flatlist [list]
-        foreach len $lens list $args {
-            lappend flatlist {*}$list {*}[lrepeat [expr {($numcolumns - ($len % $numcolumns)) % $numcolumns}] ""]
-        }
-        lmap c [lseq 0 $numcolumns-1] {lsearch -stride $numcolumns -index $c -inline -all -subindices $flatlist *}
-    }
-    proc lzipn_tcl9c {args} {
-        #SLOW
-        if {![llength $args]} {return {}}
-        set lens [lmap l $args {llength $l}]
-        set numcolumns [::tcl::mathfunc::max {*}$lens]
-        set flatlist [list]
-        foreach len $lens list $args {
-            lappend flatlist {*}$list {*}[lrepeat [expr {($numcolumns - ($len % $numcolumns)) % $numcolumns}] ""]
-        }
-        set zip_l {}
-        set cols_remaining $numcolumns
-        for {set c 0} {$c < $numcolumns} {incr c} {
-            if {$cols_remaining == 1} {
-                return [list {*}$zip_l $flatlist]
-            }
-            lappend zip_l  [lsearch -stride $cols_remaining -index 0 -inline -all -subindices $flatlist *]
-            set flen [llength $flatlist]
-            set flatlist [lremove $flatlist {*}[lseq 0 to $flen-1 by $cols_remaining]]
-            incr cols_remaining -1
-        }
-        return $zip_l
-    }
-    #keep both lzipn_tclX functions available for side-by-side testing in Tcl versions where it's possible
-    if {![package vsatisfies [package present Tcl] 9.0-] || [punk::lib::check::has_tclbug_lsearch_strideallinline ]} {
-        #-stride either not available - or has bug preventing use of main algorithm below
-        proc lzipn {args} [info body ::punk::lib::lzipn_tcl8]
-    } else {
-        proc lzipn {args} [info body ::punk::lib::lzipn_tcl9a]
-    }
-
-
-    namespace import ::punk::args::lib::tstr
-
-
-
-    proc invoke command {
-        #*** !doctools
-        #[call [fun invoke] [arg command]]
-        #[para]Invoke an external command (using tcl open command) capturing stdout,stderr and the exitcode
-        #[example {
-        #    set script {
-        #       puts stdout {hello on stdout}
-        #       puts stderr {hello on stderr}
-        #       exit 42
-        #    }
-        #    invoke [list tclsh <<$script]
-        #}]
-
-        #see https://wiki.tcl-lang.org/page/open
-        lassign [chan pipe] chanout chanin
-        lappend command 2>@$chanin
-        set fh [open |$command]
-        set stdout [read $fh]
-        close $chanin
-        set stderr [read $chanout]
-        close $chanout
-        if {[catch {close $fh} cres e]} {
-            dict with e {}
-            lassign [set -errorcode] sysmsg pid exit
-            if {$sysmsg eq {NONE}} {
-                #output to stderr caused [close] to fail.  Do nothing
-            } elseif {$sysmsg eq {CHILDSTATUS}} {
-                return [list $stdout $stderr $exit]
-            } else {
-                return -options $e $stderr
-            }
-        }
-        return [list $stdout $stderr 0]
-    }
-
-    proc pdict {args} {
-        package require punk::args
-        variable has_punk_ansi
-        if {!$has_punk_ansi} {
-            set sep " = "
-        } else {
-            #set sep " [a+ Web-seagreen]=[a] "
-            set sep " [punk::ansi::a+ Green]=[punk::ansi::a] "
-        }
-        set argspec [string map [list %sep% $sep] {
-            @id     -id ::punk::lib::pdict
-            @cmd    -name pdict -help\
-                "Print dict keys,values to channel
-                The pdict function operates on variable names - passing the value to the showdict function which operates on values
-                (see also showdict)"
-
-            @opts -any 1
-
-            #default separator to provide similarity to tcl's parray function
-            -separator -default "%sep%"
-            -roottype  -default "dict"
-            -substructure -default {}
-            -channel -default stdout -help\
-                "existing channel - or 'none' to return as string"
-
-            @values -min 1 -max -1
-
-            dictvar -type string -help "name of variable. Can be a dict, list or array"
-
-            patterns -type string -default "*" -multiple 1 -help {Multiple patterns can be specified as separate arguments.
-                  Each pattern consists of 1 or more segments separated by the hierarchy separator (forward slash)
-                  The system uses similar patterns to the punk pipeline pattern-matching system.
-                  The default assumed type is dict - but an array will automatically be extracted into key value pairs so will also work.
-                  Segments are classified into list,dict and string operations.
-                  Leading % indicates a string operation - e.g %# gives string length
-                  A segment with a single @ is a list operation e.g @0 gives first list element, @1-3 gives the lrange from 1 to 3
-                  A segment containing 2 @ symbols is a dict operation. e.g @@k1 retrieves the value for dict key 'k1'
-                  The operation type indicator is not always necessary if lower segments in the hierarchy are of the same type as the previous one.
-                  e.g1  pdict env */%#
-                      the pattern starts with default type dict, so * retrieves all keys & values,
-                      the next hierarchy switches to a string operation to get the length of each value.
-                  e.g2  pdict env W* S*
-                      Here we supply 2 patterns, each in default dict mode - to display keys and values where the keys match the glob patterns
-                  e.g3  pdict punk_testd */*
-                      This displays 2 levels of the dict hierarchy.
-                      Note that if the sublevel can't actually be interpreted as a dictionary (odd number of elements or not a list at all)
-                      - then the normal = separator will be replaced with a coloured (or underlined if colour off) 'mismatch' indicator.
-                  e.g4  set list {{k1 v1 k2 v2}  {k1 vv1 k2 vv2}}; pdict list @0-end/@@k2 @*/@@k1
-                      Here we supply 2 separate pattern hierarchies, where @0-end and @* are list operations and are equivalent
-                      The second level segment in each pattern switches to a dict operation to retrieve the value by key.
-                      When a list operation such as @* is used - integer list indexes are displayed on the left side of the = for that hierarchy level.
-            }
-        }]
-        #puts stderr "$argspec"
-        set argd [punk::args::parse $args withdef $argspec]
-
-        set opts [dict get $argd opts]
-        set dvar [dict get $argd values dictvar]
-        set patterns [dict get $argd values patterns]
-        set isarray [uplevel 1 [list array exists $dvar]]
-        if {$isarray} {
-            set dvalue [uplevel 1 [list array get $dvar]]
-            if {![dict exists $opts -keytemplates]} {
-                set arrdisplay [string map [list %dvar% $dvar] {${[if {[lindex $key 1] eq "query"} {val "%dvar% [lindex $key 0]"} {val "%dvar%($key)"}]}}]
-                dict set opts -keytemplates [list $arrdisplay]
-            }
-            dict set opts -keysorttype dictionary
-        } else {
-            set dvalue [uplevel 1 [list set $dvar]]
-        }
-        showdict {*}$opts $dvalue {*}$patterns
-    }
-
-    #TODO - much.
-    #showdict needs to be able to show different branches which share a root path
-    #e.g show key a1/b* in its entirety along with a1/c* - (or even exact duplicates)
-    # - specify ansi colour per pattern so different branches can be highlighted?
-    # - ideally we want to be able to use all the dict & list patterns from the punk pipeline system eg @head @tail # (count) etc
-    # - The current version is incomplete but passably usable.
-    # - Copy proc and attempt rework so we can get back to this as a baseline for functionality
-    proc showdict {args} {   ;# analogous to parray (except that it takes the dict as a value)
-        #set sep " [a+ Web-seagreen]=[a] "
-        variable has_punk_ansi
-        if {!$has_punk_ansi} {
-            set RST ""
-            set sep " = "
-            #set sep_mismatch " mismatch "
-            set sep \u2260 ;# equivalent [punk::ansi::convert_g0 [punk::ansi::g0 |]]  (not equal symbol)
-        } else {
-            set RST [punk::ansi::a]
-            set sep " [punk::ansi::a+ Green]=$RST " ;#stick to basic default colours for wider terminal support
-            #set sep_mismatch " [punk::ansi::a+ Brightred undercurly underline undt-white]mismatch$RST "
-            set sep_mismatch " [punk::ansi::a+ Brightred undercurly underline undt-white]\u2260$RST "
-        }
-        package require punk::pipe
-        #package require punk ;#we need pipeline pattern matching features
-        package require textblock
-
-        set argd [punk::args::parse $args withdef [string map [list %sep% $sep %sep_mismatch% $sep_mismatch] {
-            @id     -id ::punk::lib::showdict
-            @cmd    -name punk::lib::showdict -help "display dictionary keys and values"
-            #todo - table tableobject
-            -return             -default "tailtohead" -choices {tailtohead sidebyside}
-            -channel            -default none
-            -trimright          -default 1 -type boolean -help\
-                "Trim whitespace off rhs of each line.
-                  This can help prevent a single long line that wraps in terminal from making
-                  every line wrap due to long rhs padding."
-            -separator          -default {%sep%}  -help\
-                "Separator column between keys and values"
-            -separator_mismatch -default {%sep_mismatch%} -help\
-                "Separator to use when patterns mismatch"
-            -roottype           -default "dict"   -help\
-                "list,dict,string"
-            -ansibase_keys      -default ""  -help\
-                "ansi list for each level in -substructure. e.g \[list \[a+ red\] \[a+ web-green\]\]"
-            -substructure       -default {}
-            -ansibase_values    -default ""
-            -keytemplates       -default {\$\{$key\}} -type list -help\
-                "list of templates for keys at each level"
-            -keysorttype        -default "none" -choices {none dictionary ascii integer real}
-            -keysortdirection   -default increasing -choices {increasing decreasing}
-            -debug              -default 0 -type boolean -help\
-                "When enabled, produces some rudimentary debug output on stderr"
-            -- -type none -optional 1
-            @values -min 1 -max -1
-            dictvalue                       -type list -help\
-                "dict or list value"
-            patterns            -default "*"   -type string -multiple 1 -help\
-                "key or key glob pattern"
-        }]]
-
-        #for punk::lib - we want to reduce pkg dependencies.
-        # - so we won't even use the tcllib debug pkg here
-        set opt_debug               [dict get $argd opts -debug]
-        if {$opt_debug} {
-            if {[info body debug::showdict] eq ""} {
-                proc ::punk::lib::debug::showdict {args} {
-                    catch {puts stderr "punk::lib::showdict-> [string cat {*}$args]"}
-                }
-            }
-        } else {
-            if {[info body debug::showdict] ne ""} {
-                proc ::punk::lib::debug::showdict {args} {}
-            }
-        }
-
-        set opt_sep                 [dict get $argd opts -separator]
-        set opt_mismatch_sep        [dict get $argd opts -separator_mismatch]
-        set opt_keysorttype         [dict get $argd opts -keysorttype]
-        set opt_keysortdirection    [dict get $argd opts -keysortdirection]
-        set opt_trimright           [dict get $argd opts -trimright]
-        set opt_keytemplates        [dict get $argd opts -keytemplates]
-        debug::showdict "keytemplates ---> $opt_keytemplates <---"
-        set opt_ansibase_keys       [dict get $argd opts -ansibase_keys]
-        set opt_ansibase_values     [dict get $argd opts -ansibase_values]
-        set opt_return              [dict get $argd opts -return]
-        set opt_roottype            [dict get $argd opts -roottype]
-        set opt_structure           [dict get $argd opts -substructure]
-
-        set dval [dict get $argd values dictvalue]
-        set patterns [dict get $argd values patterns]
-
-        set result ""
-
-        #pattern hierarchy
-        #  */@1/@0,%#,%str    @0/@1      - patterns each one is a pattern or pattern_nest
-        #  * @1 @0,%#,%str          - segments
-        #  a b 1 0 %# %str          - keys
-
-        set pattern_key_index [list] ;#list of pattern_nests, same length as number of keys generated
-        set pattern_next_substructure [dict create]
-        set pattern_this_structure [dict create]
-
-        # -- --- --- ---
-        #REVIEW
-        #as much as possible we should pass the indices along as a query to the pipeline pattern matching system so we're not duplicating the work and introducing inconsistencies.
-        #The main difference here is that sometimes we are treating the result as key-val pairs with the key being the query, other times the key is part of the query, or from the result itself (list/dict indices/keys).
-        #todo - determine if there is a more consistent rule-based way to do this rather than adhoc
-        #e.g pdict something *
-        #we want the keys from the result as individual lines on lhs
-        #e.g  pdict something @@<key>
-        #we want <key> on lhs result on rhs
-        #<key> = v0
-        #e.g pdict something @0-2,@4
-        #we currently return:
-        #0 = v0
-        #1 = v1
-        #2 = v2
-        #4 = v4
-        #This means we've effectively auto-expanded the first list - elements 0-2. (or equivalently stated: we've flattened the 3 element and 1 element lists into one list of 4 elements)
-        #ie pdict is doing 'magic' compared to the normal pattern matching syntax, to make useage more convenient.
-        #this is a tradeoff that could create surprises and make things messy and/or inconsistent.
-        #todo - see if we can find a balance that gives consistency and logicality to the results whilst allowing still simplified matching syntax that is somewhat intuitive.
-        #It may be a matter of documenting what type of indexes are used directly as keys, and which return sets of further keys
-        #The solution for more consistency/predictability may involve being able to bracket some parts of the segment so for example we can apply an @join or %join within a segment
-        #that involves more complex pattern syntax & parsing (to be added to the main pipeline pattern syntax)
-        # -- --- --- ---
-
-        set filtered_keys [list]
-        if {$opt_roottype in {dict list string}} {
-            #puts "getting keys for roottype:$opt_roottype"
-            if {[llength $dval]} {
-                set re_numdashnum {^([-+]{0,1}\d+)-([-+]{0,1}\d+)$}
-                set re_idxdashidx {^([-+]{0,1}\d+|end[-+]{1}\d+|end)-([-+]{0,1}\d+|end[-+]{1}\d+|end)$}
-                foreach pattern_nest $patterns {
-                    set keyset [list]
-                    set keyset_structure [list]
-
-                    set segments [split $pattern_nest /]
-                    set levelpatterns [lindex $segments 0] ;#possibly comma separated patterns
-                    #we need to use _split_patterns to separate (e.g to protect commas that appear within quotes)
-                    set patterninfo [punk::pipe::lib::_split_patterns $levelpatterns]
-                    #puts stderr "showdict-->_split_patterns: $patterninfo"
-                    foreach v_idx $patterninfo {
-                        lassign $v_idx v idx
-                        #we don't support vars on lhs of index in this context - (because we support simplified glob patterns such as x* and literal dict keys such as kv which would otherwise be interpreted as vars with no index)
-                        set p $v$idx ;#_split_patterns has split too far in this context - the entire pattern is the index pattern
-                        if {[string index $p 0] eq "!"} {
-                            set get_not 1
-                            set p [string range $p 1 end]
-                        } else {
-                            set get_not 0
-                        }
-                        switch -exact -- $p {
-                            * - "" {
-                                if {$opt_roottype eq "list"} {
-                                    set keys [punk::lib::range 0 [llength $dval]-1] ;#compat wrapper around subset of lseq functionality
-                                    lappend keyset {*}$keys
-                                    lappend keyset_structure {*}[lrepeat [llength $keys] list]
-                                    dict set pattern_this_structure $p list
-                                } elseif {$opt_roottype eq "dict"} {
-                                    set keys [dict keys $dval]
-                                    lappend keyset {*}$keys
-                                    lappend keyset_structure {*}[lrepeat [llength $keys] dict]
-                                    dict set pattern_this_structure $p dict
-                                } else {
-                                    lappend keyset %string
-                                    lappend keyset_structure string
-                                    dict set pattern_this_structure $p string
-                                }
-                            }
-                            %# {
-                                dict set pattern_this_structure $p string
-                                lappend keyset %#
-                                lappend keyset_structure string
-                            }
-                            # {
-                                #todo get_not  !# is test for listiness (see punk)
-                                dict set pattern_this_structure $p list
-                                lappend keyset #
-                                lappend keyset_structure list
-                            }
-                            ## {
-                                dict set pattern_this_structure $p dict
-                                lappend keyset [list ## query]
-                                lappend keyset_structure dict
-                            }
-                            @* {
-                                #puts "showdict ---->@*<----"
-                                dict set pattern_this_structure $p list
-                                set keys [punk::lib::range 0 [llength $dval]-1]
-                                lappend keyset {*}$keys
-                                lappend keyset_structure {*}[lrepeat [llength $keys] list]
-                            }
-                            @@ {
-                                #get first k v from dict
-                                dict set pattern_this_structure $p dict
-                                lappend keyset [list @@ query]
-                                lappend keyset_structure dict
-                            }
-                            @*k@* - @*K@* {
-                                #returns keys only
-                                lappend keyset [list $p query]
-                                lappend keyset_structure dict
-                                dict set pattern_this_structure $p dict
-                            }
-                            @*.@* {
-                                set keys [dict keys $dval]
-                                lappend keyset {*}$keys
-                                lappend keyset_structure {*}[lrepeat [llength $keys] dict]
-                                dict set pattern_this_structure $p dict
-                            }
-                            default {
-                                #puts stderr "===p:$p"
-                                #the basic scheme also doesn't allow commas in dict keys access via the convenience @@key - which isn't great, especially for arrays where it is common practice!
-                                #we've already sacrificed whitespace in keys - so extra limitations should be reduced if it's to be passably useful
-                                #@@"key,etc" should allow any non-whitespace key
-                                switch -glob -- $p {
-                                    {@k\*@*} - {@K\*@*} {
-                                        #value glob return keys
-                                        #set search [string range $p 4 end]
-                                        #dict for {k v} $dval {
-                                        #    if {[string match $search $v]} {
-                                        #        lappend keyset $k
-                                        #    }
-                                        #}
-                                        if {$get_not} {
-                                            lappend keyset [list !$p query]
-                                        } else {
-                                            lappend keyset [list $p query]
-                                        }
-                                        lappend keyset_structure dict
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    @@* {
-                                        #exact match key - review - should raise error to match punk pipe behaviour?
-                                        set k [string range $p 2 end]
-                                        if {$get_not} {
-                                            if {[dict exists $dval $k]} {
-                                                set keys [dict keys [dict remove $dval $k]]
-                                                lappend keyset {*}$keys
-                                                lappend keyset_structure {*}[lrepeat [llength $keys] dict]
-                                            } else {
-                                                lappend keyset {*}[dict keys $dval]
-                                                lappend keyset_structure {*}[lrepeat [dict size $dval] dict]
-                                            }
-                                        } else {
-                                            if {[dict exists $dval $k]} {
-                                                lappend keyset $k
-                                                lappend keyset_structure dict
-                                            }
-                                        }
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    @k@* - @K@* {
-                                        #TODO get_not
-                                        set k [string range $p 3 end]
-                                        if {[dict exists $dval $k]} {
-                                            lappend keyset $k
-                                            lappend keyset_structure dict
-                                        }
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    {@\*@*} {
-                                        #return list of values
-                                        #set k [string range $p 3 end]
-                                        #lappend keyset {*}[dict keys $dval $k]
-                                        if {$get_not} {
-                                            lappend keyset [list !$p query]
-                                        } else {
-                                            lappend keyset [list $p query]
-                                        }
-                                        lappend keyset_structure dict
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    {@\*.@*} {
-                                        #TODO get_not
-                                        set k [string range $p 4 end]
-                                        set keys [dict keys $dval $k]
-                                        lappend keyset {*}$keys
-                                        lappend keyset_structure {*}[lrepeat [llength $keys] dict]
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    {@v\*@*} - {@V\*@*} {
-                                        #value-glob return value
-                                        #error "dict value-glob value-return only not supported here - bad pattern '$p' in '$pattern_nest'"
-                                        if {$get_not} {
-                                            lappend keyset [list !$p query]
-                                        } else {
-                                            lappend keyset [list $p query]
-                                        }
-                                        lappend keyset_structure dict
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    {@\*v@*} - {@\*V@*} {
-                                        #key-glob return value
-                                        lappend keyset [list $p query]
-                                        lappend keyset_structure dict
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    {@\*@*} - {@\*v@*} - {@\*V@} {
-                                        #key glob return val
-                                        lappend keyset [list $p query]
-                                        lappend keyset_structure dict
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    @??@* {
-                                        #exact key match - no error
-                                        lappend keyset [list $p query]
-                                        lappend keyset_structure dict
-                                        dict set pattern_this_structure $p dict
-                                    }
-                                    default {
-                                        set this_type $opt_roottype
-                                        if {[string match @* $p]} {
-                                            #list mode - trim optional list specifier @
-                                            set p [string range $p 1 end]
-                                            dict set pattern_this_structure $p list
-                                            set this_type list
-                                        } elseif {[string match %* $p]} {
-                                            dict set pattern_this_structure $p string
-                                            lappend keyset $p
-                                            lappend keyset_structure string
-                                            set this_type string
-                                        }
-                                        if {$this_type eq "list"} {
-                                            dict set pattern_this_structure $p list
-                                            if {[string is integer -strict $p]} {
-                                                if {$get_not} {
-                                                    set keys [punk::lib::range 0 [llength $dval]-1]
-                                                    set keys [lremove $keys $p]
-                                                    lappend keyset {*}$keys
-                                                    lappend keyset_structure {*}[lrepeat [llength $keys] list]
-                                                } else  {
-                                                    lappend keyset $p
-                                                    lappend keyset_structure list
-                                                }
-                                            } elseif {[string match "?*-?*" $p]} {
-                                                #could be either - don't change type
-                                                #list indices with tcl8.7 underscores? be careful. Before 8.7 we could have used regexp \d on integers
-                                                #now we should map _ to "" first
-                                                set p [string map {_ {}} $p]
-                                                #lassign [textutil::split::splitx $p {\.\.}] a b
-                                                if {![regexp $re_idxdashidx $p _match a b]} {
-                                                    error "unrecognised pattern $p"
-                                                }
-                                                set lower_resolve [punk::lib::lindex_resolve [llength $dval] $a] ;#-2 for too low, -1 for too high
-                                                #keep lower_resolve as separate var to lower for further checks based on which side out-of-bounds
-                                                if {${lower_resolve} == -2} {
-                                                    ##x
-                                                    #lower bound is above upper list range
-                                                    #match with decreasing indices is still possible
-                                                    set lower [expr {[llength $dval]-1}] ;#set to max
-                                                } elseif {$lower_resolve == -3} {
-                                                    ##x
-                                                    set lower 0
-                                                } else {
-                                                    set lower $lower_resolve
-                                                }
-                                                set upper [punk::lib::lindex_resolve [llength $dval] $b]
-                                                if {$upper == -3} {
-                                                    ##x
-                                                    #upper bound is below list range -
-                                                    if {$lower_resolve >=-2} {
-                                                        ##x
-                                                        set upper 0
-                                                    } else {
-                                                        continue
-                                                    }
-                                                } elseif {$upper == -2} {
-                                                    #use max
-                                                    set upper [expr {[llength $dval]-1}]
-                                                    #assert - upper >=0 because we have ruled out empty lists
-                                                }
-                                                #note lower can legitimately be higher than upper - lib::range, like lseq can produce sequence in reverse order
-                                                set keys [punk::lib::range $lower $upper]
-                                                if {$get_not} {
-                                                    set fullrange [punk::lib::range 0 [llength $dval]-1]
-                                                    set keys [lremove $fullrange {*}$keys]
-                                                    if {$lower > $upper} {
-                                                        set keys [lreverse $keys]
-                                                    }
-                                                }
-                                                lappend keyset {*}$keys
-                                                lappend keyset_structure {*}[lrepeat [llength $keys] list]
-                                            } else {
-                                                if {$get_not} {
-                                                    lappend keyset [list !@$p query]
-                                                } else {
-                                                    lappend keyset [list @$p query]
-                                                }
-                                                lappend keyset_structure list
-                                            }
-                                        } elseif {$this_type eq "string"} {
-                                            dict set pattern_this_structure $p string
-                                        } elseif {$this_type eq "dict"} {
-                                            #default equivalent to @\*@*
-                                            dict set pattern_this_structure $p dict
-                                            #puts "dict: appending keys from index '$p' keys: [dict keys $dval $p]"
-                                            set keys [dict keys $dval $p]
-                                            if {$get_not} {
-                                                set keys [dict keys [dict remove $dval {*}$keys]]
-                                            }
-                                            lappend keyset {*}$keys
-                                            lappend keyset_structure {*}[lrepeat [llength $keys] dict]
-                                        } else {
-                                            puts stderr "list: unrecognised pattern $p"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                    }
-
-                    # -- --- --- ---
-                    #check next pattern-segment for substructure type to use
-                    # -- --- --- ---
-                    set substructure ""
-                    set pnext [lindex $segments 1]
-                    set patterninfo [punk::pipe::lib::_split_patterns $levelpatterns]
-                    if {[llength $patterninfo] == 0} {
-                        # // ?  -review - what does this mean? for xpath this would mean at any level
-                        set substructure [lindex $pattern_this_structure end]
-                    } elseif {[llength $patterninfo] == 1} {
-                        #ignore the NOT operator for purposes of query-type detection
-                        if {[string index $pnext 0] eq "!"} {
-                            set pnext [string range $pnext 1 end]
-                        }
-                        # single type in segment e.g /@@something/
-                        switch -exact $pnext {
-                            "" {
-                                set substructure string
-                            }
-                            @*k@* - @*K@* - @*.@* - ## {
-                                set substructure dict
-                            }
-                            # {
-                                set substructure list
-                            }
-                            ## {
-                                set substructure dict
-                            }
-                            %# {
-                                set substructure string
-                            }
-                            * {
-                                #set substructure $opt_roottype
-                                #set substructure [dict get $pattern_this_structure $pattern_nest]
-                                set substructure [lindex $pattern_this_structure end]
-                            }
-                            default {
-                                switch -glob -- $pnext {
-                                    @??@* - @?@* - @@* {
-                                        #all 4 or 3 len prefixes bounded by @ are dict
-                                        set substructure dict
-                                    }
-                                    default {
-                                        if {[string match @* $pnext]} {
-                                            set substructure list
-                                        } elseif {[string match %* $pnext]} {
-                                            set substructure string
-                                        } else {
-                                            #set substructure $opt_roottype
-                                            #set substructure [dict get $pattern_this_structure $pattern_nest]
-                                            set substructure [lindex $pattern_this_structure end]
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                    } else {
-                        #e.g /@0,%str,.../
-                        #doesn't matter what the individual types are - we have a list result
-                        set substructure list
-                    }
-                    #puts "--pattern_nest: $pattern_nest substructure: $substructure"
-                    dict set pattern_next_substructure $pattern_nest $substructure
-                    # -- --- --- ---
-
-                    if {$opt_keysorttype ne "none"} {
-                        set int_keyset 1
-                        foreach k $keyset {
-                            if {![string is integer -strict $k]} {
-                                set int_keyset 0
-                                break
-                            }
-                        }
-                        if {$int_keyset} {
-                            set sortindices [lsort -indices -integer $keyset]
-                            #set keyset [lsort -integer $keyset]
-                        } else {
-                            #set keyset [lsort -$opt_keysorttype $keyset]
-                            set sortindices [lsort -indices -$opt_keysorttype $keyset]
-                        }
-                        set keyset              [lmap i $sortindices {lindex $keyset $i}]
-                        set keyset_structure    [lmap i $sortindices {lindex $keyset_structure $i}]
-                    }
-
-                    foreach k $keyset {
-                        lappend pattern_key_index $pattern_nest
-                    }
-
-                    lappend filtered_keys {*}$keyset
-                    lappend all_keyset_structure {*}$keyset_structure
-
-                    #puts stderr "--->pattern_nest:$pattern_nest  keyset:$keyset"
-                }
-            }
-            #puts stderr "[dict get $pattern_this_structure $pattern_nest] keys: $filtered_keys"
-        } else {
-           puts stdout "unrecognised roottype: $opt_roottype"
-           return $dval
-        }
-
-        if {[llength $filtered_keys]} {
-            #both keys and values could have newline characters.
-            #simple use of 'format' won't cut it for more complex dict keys/values
-            #use block::width or our columns won't align in some cases
-            switch -- $opt_return {
-                "tailtohead" {
-                    #last line of key is side by side (possibly with separator) with first line of value
-                    #This is more intelligible when terminal wrapping occurs - and is closer to what happens with parray multiline keys and values
-                    #we still pad the key to max width so that the separator appears in the same column - which in the case of wide keys could cause that to wrap for all entries
-
-                    set kt [lindex $opt_keytemplates 0]
-                    if {$kt eq ""} {
-                        set kt {${$key}}
-                    }
-                    #set display_keys [lmap k $filtered_keys {tcl::string::map [list %k% $k] $kt}]
-                    set display_keys [lmap key $filtered_keys {tstr -ret string -allowcommands $kt}]
-                    set maxl [::tcl::mathfunc::max {*}[lmap v $display_keys {textblock::width $v}]]
-
-                    set kidx 0
-                    set last_hidekey 0
-                    foreach keydisplay $display_keys key $filtered_keys  {
-                        set thisval "?"
-                        set hidekey 0
-                        set pattern_nest [lindex $pattern_key_index $kidx]
-                        set pattern_nest_list [split $pattern_nest /]
-                        #set this_type [dict get $pattern_this_structure $pattern_nest]
-                        #set this_type [dict get $pattern_this_structure $key]
-                        set this_type  [lindex $all_keyset_structure $kidx]
-                        #puts stderr "---> kidx:$kidx key:$key - pattern_nest:$pattern_nest this_type:$this_type"
-
-                        set is_match 1 ;#whether to display the normal separator or bad-match separator
-                        switch -- $this_type {
-                            dict {
-                                #todo? - slower lsearch if -dupes 1 flag set so we can display duplicate 'keys' if var not a proper dict but rather a dict-shaped list that we want to display as a dict
-                                # - default highlight dupes (ansi underline?)
-                                if {[lindex $key 1] eq "query"} {
-                                    set qry [lindex $key 0]
-                                    % thisval.= $qry= $dval
-                                } else {
-                                    set thisval [tcl::dict::get $dval $key]
-                                }
-
-                                #set substructure [lrange $opt_structure 1 end]
-
-                                set nextpatterns [list]
-                                #which pattern nest applies to this branch
-                                set nextsub [dict get $pattern_next_substructure $pattern_nest]
-                                if {[llength $pattern_nest_list]} {
-                                    set nest [lrange $pattern_nest_list 1 end]
-                                    lappend nextpatterns {*}[join $nest /]
-                                }
-                                set nextopts [dict get $argd opts]
-
-
-                                set subansibasekeys [lrange $opt_ansibase_keys 1 end]
-                                set nextkeytemplates    [lrange $opt_keytemplates 1 end]
-                                #dict set nextopts -substructure $nextsub
-                                dict set nextopts -keytemplates $nextkeytemplates
-                                dict set nextopts -ansibase_keys $subansibasekeys
-                                dict set nextopts -roottype $nextsub
-                                dict set nextopts -channel none
-                                #puts stderr "showdict {*}$nextopts $thisval [lindex $args end]"
-
-                                if {[llength $nextpatterns]} {
-                                    if {[catch {
-                                        set thisval [showdict {*}$nextopts -- $thisval {*}$nextpatterns]
-                                    } errMsg]} {
-                                        #puts stderr ">>> nextpatterns:'$nextpatterns' nextopts:'$nextopts'"
-                                        set is_match 0
-                                    }
-                                }
-                            }
-                            list {
-                                if {[string is integer -strict $key]} {
-                                    set thisval [lindex $dval $key]
-                                } else {
-                                    if {[lindex $key 1] eq "query"} {
-                                        set qry [lindex $key 0]
-                                    } else {
-                                        set qry $key
-                                    }
-                                    % thisval.= $qry= $dval
-                                }
-
-                                set nextpatterns [list]
-                                #which pattern nest applies to this branch
-                                set nextsub [dict get $pattern_next_substructure $pattern_nest]
-                                if {[llength $pattern_nest_list]} {
-                                    set nest [lrange $pattern_nest_list 1 end]
-                                    lappend nextpatterns {*}[join $nest /]
-                                }
-                                set nextopts [dict get $argd opts]
-
-                                dict set nextopts -roottype $nextsub
-                                dict set nextopts -channel none
-
-                                #if {![llength $nextpatterns]} {
-                                #    set nextpatterns *
-                                #}
-                                if {[llength $nextpatterns]} {
-                                    if {[catch {
-                                    set thisval [showdict {*}$nextopts -- $thisval {*}$nextpatterns]
-                                    } errMsg]} {
-                                        set is_match 0
-                                    }
-                                }
-                            }
-                            string {
-                                set hidekey 1
-                                if {$key eq "%string"} {
-                                    set hidekey 1
-                                    set thisval $dval
-                                } elseif {$key eq "%ansiview"} {
-                                    set thisval [ansistring VIEW -lf 1 $dval]
-                                } elseif {$key eq "%ansiviewstyle"} {
-                                    set thisval [ansistring VIEWSTYLE -lf 1 $dval]
-                                } elseif {[string match *lpad-* $key]} {
-                                    set hidekey 1
-                                    lassign [split $key -] _ extra
-                                    set width [expr {[textblock::width $dval] + $extra}]
-                                    set thisval [textblock::pad $dval -which left -width $width]
-                                } elseif {[string match *lpadstr-* $key]} {
-                                    set hidekey 1
-                                    lassign [split $key -] _ extra
-                                    set width [expr {[textblock::width $dval] + [tcl::string::length $extra]}]
-                                    set thisval [textblock::pad $dval -which left -width $width -padchar $extra]
-                                } elseif {[string match *rpad-* $key]} {
-                                    set hidekey 1
-                                    lassign [split $key -] _ extra
-                                    set width [expr {[textblock::width $dval] + $extra}]
-                                    set thisval [textblock::pad $dval -which right -width $width]
-                                } elseif {[string match *rpadstr-* $key]} {
-                                    set hidekey 1
-                                    lassign [split $key -] _ extra
-                                    set width [expr {[textblock::width $dval] + [tcl::string::length $extra]}]
-                                    set thisval [textblock::pad $dval -which right -width $width -padchar $extra]
-                                } else {
-                                    if {[lindex $key 1] eq "query"} {
-                                        set qry [lindex $key 0]
-                                    } else {
-                                        set qry $key
-                                    }
-                                    set thisval $dval
-                                    if {[string index $key 0] ne "%"} {
-                                        set key %$key
-                                    }
-                                    % thisval.= $key= $thisval
-                                }
-
-                                    set nextpatterns [list]
-                                    #which pattern nest applies to this branch
-                                    set nextsub [dict get $pattern_next_substructure $pattern_nest]
-                                    if {[llength $pattern_nest_list]} {
-                                        set nest [lrange $pattern_nest_list 1 end]
-                                        lappend nextpatterns {*}[join $nest /]
-                                    }
-                                    #set nextopts [dict get $argd opts]
-                                    dict set nextopts -roottype $nextsub
-                                    dict set nextopts -channel none
-
-                                    if {[llength $nextpatterns]} {
-                                        set thisval [showdict {*}$nextopts -- $thisval {*}$nextpatterns]
-                                    }
-
-                            }
-                        }
-                        if {$this_type eq "string" && $hidekey} {
-                            lassign [textblock::size $thisval] _vw vwidth _vh vheight
-                            #set blanks_above [string repeat \n [expr {$kheight -1}]]
-                            set vblock $opt_ansibase_values$thisval$RST
-                            #append result [textblock::join_basic -- $vblock]
-                            #review - we wouldn't need this space if we had a literal %sp %sp-x ??
-                            append result " $vblock"
-                        } else {
-                            set ansibase_key [lindex $opt_ansibase_keys 0]
-
-                            lassign [textblock::size $keydisplay] _kw kwidth _kh kheight
-                            lassign [textblock::size $thisval] _vw vwidth _vh vheight
-
-                            set totalheight [expr {$kheight + $vheight -1}]
-                            set blanks_above [string repeat \n [expr {$kheight -1}]]
-                            set blanks_below [string repeat \n [expr {$vheight -1}]]
-
-                            if {$is_match} {
-                                set use_sep $opt_sep
-                            } else {
-                                set use_sep $opt_mismatch_sep
-                            }
-
-
-                            set sepwidth  [textblock::width $use_sep]
-                            set kblock [textblock::pad $ansibase_key$keydisplay$RST$blanks_below -width $maxl]
-                            set sblock [textblock::pad $blanks_above$use_sep$blanks_below -width $sepwidth]
-                            set vblock $blanks_above$opt_ansibase_values$thisval$RST
-                            #only vblock is ragged - we can do a basic join because we don't care about rhs whitespace
-                            if {$last_hidekey} {
-                                append result \n
-                            }
-                            #append result [textblock::join_basic -- $kblock $sblock $vblock] \n
-                            append result [textblock::join_basic_raw $kblock $sblock $vblock] \n
-                        }
-                        set last_hidekey $hidekey
-                        incr kidx
-                    }
-                }
-                "sidebyside" {
-                    # TODO - fix
-                    #This is nice for multiline keys and values of reasonable length, will produce unintuitive results when line-wrapping occurs.
-                    #use ansibase_key etc to make the output more comprehensible in that situation.
-                    #This is why it is not the default. (review - terminal width detection and wrapping?)
-                    set maxl [::tcl::mathfunc::max {*}[lmap v $filtered_keys {textblock::width $v}]]
-                    foreach key $filtered_keys  {
-                        set kt [lindex $opt_keytemplates 0]
-                        if {$kt eq ""} {
-                            set kt "%k%"
-                        }
-                        set keydisplay $opt_ansibase_keys[string map [list %k% $key] $kt]$RST
-                        #append result [format "%-*s = %s" $maxl $key [dict get $dval $key]] \n
-                        #differing height blocks (ie ragged) so we need a full textblock::join rather than join_basic
-                        append result [textblock::join -- [textblock::pad $keydisplay -width $maxl] $opt_sep "$opt_ansibase_values[dict get $dval $key]$RST"] \n
-                    }
-                }
-            }
-        }
-        if {$opt_trimright} {
-            set result [::join [lines_as_list -line trimright $result] \n]
-        }
-        if {[string last \n $result] == [string length $result]-1} {
-            set result [string range $result 0 end-1]
-        }
-        #stdout/stderr can exist but not be in 'chan names' (e.g when transforms in place)
-        set chan [dict get $argd opts -channel]
-        switch -- $chan {
-            stderr - stdout {
-                puts $chan $result
-            }
-            none {
-                return $result
-            }
-            default {
-                #review - check member of chan names?
-                #just try outputting to the supplied channel for now
-                puts $chan $result
-            }
-        }
-    }
-
-    proc is_list_all_in_list {small large} {
-        if {[llength $small] > [llength $large]} {return 0}
-        foreach x $large {
-            ::set ($x) {}
-        }
-        foreach x $small {
-            if {![info exists ($x)]} {
-                return 0
-            }
-        }
-        return 1
-    }
-    #v2 generally seems slower
-    proc is_list_all_in_list2 {small large} {
-        set small_in_large [lsort [struct::set intersect [lsort -unique $small] $large ]]
-        return [struct::list equal [lsort $small] $small_in_large]
-    }
-    if {!$has_struct_list || !$has_struct_set} {
-        set body {
-            package require struct::list
-            package require struct::set
-        }
-        append body [info body is_list_all_in_list2]
-        proc is_list_all_in_list2 {small large} $body
-    }
-
-    proc is_list_all_ni_list {A B} {
-        foreach x $B {
-            ::set ($x) {}
-        }
-        foreach x $A {
-            if {[info exists ($x)]} {
-                return 0
-            }
-        }
-        return 1
-    }
-    proc is_list_all_ni_list2 {a b} {
-        set i [struct::set intersect $a $b]
-        return [expr {[llength $i] == 0}]
-    }
-    if {!$has_struct_set} {
-        set body {
-            package require struct::list
-        }
-        append body [info body is_list_all_ni_list2]
-        proc is_list_all_ni_list2 {a b} $body
-    }
-
-    #somewhat like struct::set difference - but order preserving, and doesn't treat as a 'set' so preserves dupes in fromlist
-    #struct::set difference may happen to preserve ordering when items are integers, but order can't be relied on,
-    # especially as struct::set has 2 differing implementations (tcl vs critcl) which return results with different ordering to each other and different deduping behaviour in some cases (e.g empty 2nd arg)
-    proc ldiff {fromlist removeitems} {
-        if {[llength $removeitems] == 0} {return $fromlist}
-        set result {}
-        foreach item $fromlist {
-            if {$item ni $removeitems} {
-                lappend result $item
-            }
-        }
-        return $result
-    }
-    #with ledit (also avail in 8.6 using punk::lib::compat::ledit
-    proc ldiff2 {fromlist removeitems} {
-        if {[llength $removeitems] == 0} {return $fromlist}
-        foreach item $removeitems {
-            set posns [lsearch -all -exact $fromlist $item]
-            foreach p $posns {ledit fromlist $p $p}
-        }
-        return $fromlist
-    }
-    proc ldiff3 {fromlist removeitems} {
-        set doomed [list]
-        foreach item $removeitems {
-            lappend doomed {*}[lsearch -all -exact $fromlist $item]
-        }
-        lremove $fromlist {*}$doomed
-    }
-
-    #fix for tcl impl of struct::set::diff which doesn't dedupe
-    proc struct_set_diff_unique {A B} {
-        package require struct::set ;#require even if tcl impl - so the dependency isn't missed accidentally due to Loaded state of programmers machine.
-        if {[struct::set::Loaded] eq "tcl"} {
-            return [punk::lib::setdiff $A $B]
-        } else {
-            #use (presumably critcl) implementation for speed
-            return [struct::set difference $A $B]
-        }
-    }
-
-
-    #non-dupe preserving - for consistency in dedupe behaviour we don't shortcircuit empty B
-    #consistent dedupe and order-maintenance of remaining items in A differentiate this from struct::set difference (dedupes with critcl, doesn't with tcl implementation 2024)
-    #also struct::set difference with critcl is faster
-    proc setdiff {A B} {
-        if {[llength $A] == 0} {return {}}
-        set d [dict create]
-        foreach x $A    {dict set d $x {}}
-        foreach x $B    {dict unset d $x}
-        return [dict keys $d]
-    }
-    #bulk dict remove is slower than a foreach with dict unset
-    #proc setdiff2 {fromlist removeitems} {
-    #    #if {[llength $fromlist] == 0} {return {}}
-    #    set d [dict create]
-    #    foreach x $fromlist {
-    #        dict set d $x {}
-    #    }
-    #    return [dict keys [dict remove $d {*}$removeitems]]
-    #}
-    #array is about 15% faster than dict - but unordered. (which is ok for sets - but we have struct::set for that)
-    proc setdiff_unordered {A B} {
-        if {[llength $A] == 0} {return {}}
-        array set tmp {}
-        foreach x $A {::set tmp($x) .}
-        foreach x $B {catch {unset tmp($x)}}
-        return [array names tmp]
-    }
-
-    #default/fallback implementation
-    proc lunique_unordered {list} {
-        lunique $list
-    }
-    if {$has_struct_set} {
-        if {[struct::set equal [struct::set union {a a} {}] {a}]} {
-            proc lunique_unordered {list} {
-                struct::set union $list {}
-            }
-        } else {
-            puts stderr "WARNING: struct::set union <list> <emptylist> no longer dedupes!"
-            #we could also test a sequence of: struct::set add
-        }
-    }
-
-
-    #order-preserving
-    proc lunique {list} {
-        set new {}
-        foreach item $list {
-            if {$item ni $new} {
-            lappend new $item
-            }
-        }
-        return $new
-    }
-    proc lunique2 {list} {
-        set doomed [list]
-        #expr 'in' probably faster than using a dict - for lists approx < 20,000 items. (wiki wisdom - url?)
-        for {set i 0} {$i < [llength $list]} {} {
-            set item [lindex $list $i]
-            lappend doomed {*}[lrange [lsearch -all -exact -start $i $list $item] 1 end]
-            while {[incr i] in $doomed} {}
-        }
-        lremove $list {*}$doomed
-    }
-    #The closure-like behaviour is *very* slow especially when called from a context such as the global namespace with lots of vars and large arrays such as ::env
-    proc lmapflat_closure {varnames list script} {
-        set result [list]
-        set values [list]
-        foreach v $varnames {
-            lappend values "\$$v"
-        }
-        # -- --- ---
-        #capture - use uplevel 1 or namespace eval depending on context
-        set capture [uplevel 1 {
-            apply { varnames  {
-                set capturevars [tcl::dict::create]
-                set capturearrs [tcl::dict::create]
-                foreach fullv $varnames {
-                    set  v [tcl::namespace::tail $fullv]
-                    upvar 1 $v var
-                    if {[info exists var]} {
-                        if {(![array exists var])} {
-                            tcl::dict::set capturevars $v $var
-                        } else {
-                            tcl::dict::set capturearrs capturedarray_$v [array get var]
-                        }
-                    } else {
-                        #A variable can show in the results for 'info vars' but still not 'exist'. e.g a 'variable x' declaration in the namespace where the variable has never been set
-                    }
-                }
-                return [tcl::dict::create vars $capturevars arrs $capturearrs]
-            } } [info vars]
-        } ]
-        # -- --- ---
-        set cvars [tcl::dict::get $capture vars]
-        set carrs [tcl::dict::get $capture arrs]
-        set apply_script ""
-        foreach arrayalias [tcl::dict::keys $carrs] {
-            set realname [string range $arrayalias [string first _ $arrayalias]+1 end]
-            append apply_script [string map [list %realname% $realname %arrayalias% $arrayalias] {
-                array set %realname% [set %arrayalias%][unset %arrayalias%]
-            }]
-        }
-
-        append apply_script [string map [list %script% $script] {
-                    #foreach arrayalias [info vars capturedarray_*] {
-                    #    set realname [string range $arrayalias [string first _ $arrayalias]+1 end]
-                    #    array set $realname [set $arrayalias][unset arrayalias]
-                    #}
-                    #return [eval %script%]
-                    %script%
-               }]
-        #puts "--> $apply_script"
-        foreach $varnames $list {
-            lappend result {*}[apply\
-                [list\
-                    [concat $varnames [tcl::dict::keys $cvars] [tcl::dict::keys $carrs] ]\
-                    $apply_script\
-                ]  {*}[subst $values] {*}[tcl::dict::values $cvars] {*}[tcl::dict::values $carrs]  ]
-        }
-        return $result
-    }
-    #link version - can write to vars in calling context - but keeps varnames themselves isolated
-    #performance much better than capture version - but still a big price to pay for the isolation
-    proc lmapflat_link {varnames list script} {
-        set result [list]
-        set values [list]
-        foreach v $varnames {
-            lappend values "\$$v"
-        }
-        set linkvars [uplevel 1 [list info vars]]
-        set nscaller [uplevel 1 [list namespace current]]
-
-        set apply_script ""
-        foreach vname $linkvars {
-            append apply_script [string map [list %vname% $vname]\
-             {upvar 2 %vname% %vname%}\
-            ] \n
-        }
-        append apply_script $script \n
-
-        #puts "--> $apply_script"
-        foreach $varnames $list {
-            lappend result {*}[apply\
-                [list\
-                    $varnames\
-                    $apply_script\
-                    $nscaller\
-                ]  {*}[subst $values]\
-            ]
-        }
-        return $result
-    }
-
-    #proc lmapflat {varnames list script} {
-    #    concat {*}[uplevel 1 [list lmap $varnames $list $script]]
-    #}
-    #lmap can accept multiple var list pairs
-    proc lmapflat {args} {
-        concat {*}[uplevel 1 [list lmap {*}$args]]
-    }
-    proc lmapflat2 {args} {
-        concat {*}[uplevel 1 lmap {*}$args]
-    }
-
-    #proc dict_getdef {dictValue args} {
-    #    if {[llength $args] < 1} {
-    #        error {wrong # args: should be "dict_getdef dictValue ?key ...? key default"}
-    #    }
-    #    set keys [lrange $args -1 end-1]
-    #    if {[tcl::dict::exists $dictValue {*}$keys]} {
-    #        return [tcl::dict::get $dictValue {*}$keys]
-    #    } else {
-    #        return [lindex $args end]
-    #    }
-    #}
-    if {[info commands ::tcl::dict::getdef] eq ""} {
-        proc dict_getdef {dictValue args} {
-            set keys [lrange $args 0 end-1]
-            if {[tcl::dict::exists $dictValue {*}$keys]} {
-                return [tcl::dict::get $dictValue {*}$keys]
-            } else {
-                return [lindex $args end]
-            }
-        }
-    } else {
-        #we pay a minor perf penalty for the wrap
-        interp alias "" ::punk::lib::dict_getdef "" ::tcl::dict::getdef
-    }
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok"
-    #}
-
-    #supports *safe* ultra basic offset expressions as used by lindex etc, but without the 'end' features
-    #safe in that we don't evaluate the expression as a string.
-    proc offset_expr {expression} {
-        set expression [tcl::string::map {_ {}} $expression]
-        if {[tcl::string::is integer -strict $expression]} {
-            return [expr {$expression}]
-        }
-        if {[regexp {(.*)([+-])(.*)} $expression _match a op b] && [tcl::string::is integer -strict $a] && [tcl::string::is integer -strict $b]} {
-            if {$op eq "-"} {
-                return [expr {$a - $b}]
-            } else {
-                return [expr {$a + $b}]
-            }
-        } else {
-            error "bad expression '$expression': must be integer?\[+-\]integer?"
-        }
-    }
-
-
-    #review - compare to IMAP4 methods of specifying ranges?
-    punk::args::define {
-        @id     -id     ::punk::lib::indexset_resolve
-        @cmd    -name     punk::lib::indexset_resolve\
-            -summary\
-            "Resolve an indexset to a list of integers based on supplied list or string length."\
-            -help\
-            "Resolve an 'indexset' to a list of actual indices within the range of the provided numitems value.
-            An indexset consists of a comma delimited list of indexes or index-ranges.
-            The indexes are 0-based.
-            Ranges must be specified with .. as the separator.
-            Whitespace is ignored.
-            Each index (or endpoint of an index-range) can be of the forms accepted by Tcl list or string commands,
-            e.g end-2 or 2+2.
-
-            end means the last page.
-            end-1 means the second last page.
-            0.. is the same as 0..end.
-            examples:
-            1,3..
-                output the page index 1 (2nd page) followed by all from index 3 to the end.
-            0-2,end
-                output the first 3 pages, and the last page.
-            end-1..0
-            output the indexes in reverse order from 2nd last page to first page."
-        @values -min 2 -max 2
-        numitems -type integer
-        indexset -type string
-    }
-    proc indexset_resolve {numitems indexset} {
-        if {![string is integer -strict $numitems] || ![regexp {^[\-\+_end,\.0-9]*$} $indexset]} {
-            #use parser on unhappy path only
-            set errmsg [punk::args::usage -scheme error ::punk::lib::indexset_resolve]
-            uplevel 1 [list return -code error -errorcode {TCL WRONGARGS PUNK} $errmsg]
-        } 
-        set index_list [list] ;#list of actual indexes within the range 
-        set iparts [split $indexset ,]
-        set index_list [list]
-        foreach ipart $iparts {
-            set ipart [string trim $ipart]
-            set rposn [string first .. $ipart]
-            if {$rposn>=0} {
-                #range
-                lassign           [punk::lib::string_splitbefore_indices $ipart $rposn $rposn+2] rawa _ rawb 
-                set rawa [string trim $rawa]
-                set rawb [string trim $rawb]
-                if {$rawa eq ""} {set rawa 0}
-                set a             [punk::lib::lindex_resolve $numitems $rawa]
-                if {$a == -3} {
-                    #undershot - leave negative
-                } elseif {$a == -2 && $rawa ne "-2"} {
-                    #overshot
-                    set a [expr {$numitems}] ;#put it outside the range on the upper side
-                }
-
-                if {$rawb eq ""} {
-                    if {$a > $numitems-1} {
-                        set rawb $a ;#make sure <overshot>.. doesn't return last item - should return nothing
-                    } else {
-                        set rawb end
-                    }
-                }
-                set b             [punk::lib::lindex_resolve $numitems $rawb]
-                if {$b == -3} {
-                    #undershot  - leave negative
-                } elseif {$b == -2 && $rawb ne "-2"} {
-                    set b [expr {$numitems}] ;#overshot - put it outside the range on the upper side
-                }
-
-                #e.g make sure <overshot>.. doesn't return last item - should return nothing as both are above the range.
-                if {$a >= 0 && $a <= $numitems-1 && $b >=0 && $b <= $numitems-1} {
-                    lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
-                } else {
-                    if {$a >= 0 && $a <= $numitems-1} {
-                        #only a is in the range
-                        if {$b < 0} {
-                            set b 0
-                        } else {
-                            set b [expr {$numitems-1}]
-                        }
-                        lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
-                    } elseif {$b >=0 && $b <= $numitems-1} {
-                        #only b is in the range
-                        if {$a < 0} {
-                            set a 0
-                        } else {
-                            set a [expr {$numitems-1}]
-                        }
-                        lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
-                    } else {
-                        #both outside the range
-                        if {$a < 0 && $b > 0} {
-                            #spans the range in forward order
-                            set a 0 
-                            set b [expr {$numitems-1}]
-                            lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
-                        } elseif {$a > 0 && $b < 0} {
-                            #spans the range in reverse order
-                            set a [expr {$numitems-1}]
-                            set b 0
-                            lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
-                        }
-                        #both outside of range on same side
-                    }
-                }
-            } else {
-                set idx [punk::lib::lindex_resolve_basic $numitems $ipart]
-                if {$idx >= 0} {
-                    lappend index_list $idx
-                }
-            }
-        }
-        return $index_list
-    }
-    # showdict uses lindex_resolve results -2 & -3 to determine whether index is out of bounds on upper vs lower side
-    #REVIEW: This shouldn't really need the list itself - just the length would suffice
-    punk::args::define {
-        @id     -id     ::punk::lib::lindex_resolve
-        @cmd    -name     punk::lib::lindex_resolve\
-            -summary\
-            "Resolve an indexexpression to an integer based on supplied list or string length."\
-            -help\
-            "Resolve an index which may be of the forms accepted by Tcl list or string commands such as end-2 or 2+2
-            to the actual integer index for the supplied list/string length, or to a negative value below -1 indicating
-            whether the index was below or above the range of possible indices for the length supplied.
-
-            Users may define procs which accept a list/string index and wish to accept the forms understood by Tcl.
-            This means the proc may be called with something like $x+2  end-$y  etc
-            Sometimes the actual integer index is desired.
-
-            We want to resolve the index used, without passing arbitrary expressions into the 'expr' function
-            - which could have security risks.
-            lindex_resolve will parse the index expression and return:
-             a) -3 if the supplied index expression is below the lower bound for the supplied list. (< 0)
-             b) -2 if the supplied index expression is above the upper bound for the supplied list. (> end)
-             lindex_resolve never returns -1 - as the similar function lindex_resolve_basic uses this to denote
-             out of range at either end of the list/string.
-            Otherwise it will return an integer corresponding to the position in the data.
-            This is in stark contrast to Tcl list/string function indices which will return empty strings for out of
-            bounds indices, or in the case of lrange, return results anyway.
-            Like Tcl list commands - it will produce an error if the form of the index is not acceptable.
-            For empty lists/string (datalength 0), end and end+x indices are considered to be out of bounds on the upper side
-            - thus returning -2
-
-            Note that for an index such as $x+1 - we never see the '$x' as it is substituted in the calling command.
-            We will get something like 10+1 - which can be resolved safely with expr
-            "
-        @values -min 2 -max 2
-        datalength -type integer
-        index -type indexexpression
-    }
-    proc lindex_resolve {len index} {
-        #*** !doctools
-        #[call [fun lindex_resolve] [arg len] [arg index]]
-        #[para]Resolve an index which may be of the forms accepted by Tcl list commands such as end-2 or 2+2 to the actual integer index for the supplied list/string length
-        #[para]Users may define procs which accept a list/string index and wish to accept the forms understood by Tcl.
-        #[para]This means the proc may be called with something like $x+2  end-$y  etc
-        #[para]Sometimes the actual integer index is desired.
-        #[para]We want to resolve the index used, without passing arbitrary expressions into the 'expr' function - which could have security risks.
-        #[para]lindex_resolve will parse the index expression and return:
-        #[para] a) -3 if the supplied index expression is below the lower bound for the supplied list. (< 0)
-        #[para] b) -2 if the supplied index expression is above the upper bound for the supplied list. (> end)
-        #[para] We don't return -1 - as the similar function lindex_resolve_basic uses this to denote out of range at either end of the list/string
-        #[para]Otherwise it will return an integer corresponding to the position in the list.
-        #[para]This is in stark contrast to Tcl list function indices which will return empty strings for out of bounds indices, or in the case of lrange, return results anyway.
-        #[para]Like Tcl list commands - it will produce an error if the form of the index is not acceptable
-        #[para]For empty lists, end and end+x indices are considered to be out of bounds on the upper side - thus returning -2
-
-        #Note that for an index such as $x+1 - we never see the '$x' as it is substituted in the calling command. We will get something like 10+1 - which can be resolved safely with expr
-        #if {![llength $list]} {
-        #    #review
-        #    return ???
-        #}
-        if {![string is integer -strict $len]} {
-            #<0 ?
-            error "lindex_resolve len must be an integer"
-        }
-        set index [tcl::string::map {_ {}} $index] ;#basic forward compatibility with integers such as 1_000 for 8.6
-        #todo - be stricter about malformations such as 1000_
-        if {[string is integer -strict $index]} {
-            #can match +i -i
-            if {$index < 0} {
-                return -3
-            } elseif {$index >= $len} {
-                return -2
-            } else {
-                #integer may still have + sign - normalize with expr
-                return [expr {$index}]
-            }
-        } else {
-            if {[string match end* $index]} {
-                if {$index ne "end"} {
-                    set op [string index $index 3]
-                    set offset [string range $index 4 end]
-                    if {$op ni {+ -} || ![string is integer -strict $offset]} {error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"}
-                    if {$op eq "+" && $offset != 0} {
-                        return -2
-                    }
-                } else {
-                    #index is 'end'
-                    set index [expr {$len-1}]
-                    if {$index < 0} {
-                        #special case - 'end' with empty list - treat end like a positive number out of bounds
-                        return -2
-                    } else {
-                        return $index
-                    }
-                }
-                if {$offset == 0} {
-                    set index [expr {$len-1}]
-                    if {$index < 0} {
-                        return -2 ;#special case as above
-                    } else {
-                        return $index
-                    }
-                } else {
-                    #by now, if op = + then offset = 0  so we only need to handle the minus case
-                    set index [expr {($len-1) - $offset}]
-                }
-                if {$index < 0} {
-                    return -3
-                } else {
-                    return $index
-                }
-            } else {
-                #plain +-<int> already handled above.
-                #we are trying to avoid evaluating unbraced expr of potentially insecure origin
-                if {[regexp {(.*)([+-])(.*)} $index _match a op b]} {
-                    if {[string is integer -strict $a] && [string is integer -strict $b]} {
-                        if {$op eq "-"} {
-                            set index [expr {$a - $b}]
-                        } else {
-                            set index [expr {$a + $b}]
-                        }
-                    } else {
-                        error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                    }
-                } else {
-                    error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                }
-                if {$index < 0} {
-                    return -3
-                } elseif {$index >= $len} {
-                    return -2
-                }
-                return $index
-            }
-        }
-    }
-    proc lindex_resolve_basic {len index} {
-        #*** !doctools
-        #[call [fun lindex_resolve_basic] [arg len] [arg index]]
-        #[para] Accepts index of the forms accepted by Tcl's list commands. (e.g compound indices such as 3+1 end-2)
-        #[para] returns -1 for out of range at either end, or a valid integer index
-        #[para] Unlike lindex_resolve; lindex_resolve_basic can't determine if an out of range index was out of range at the lower or upper bound
-        #[para] This is only likely to be faster than average over lindex_resolve for small lists and for Tcl which has the builtin lseq command
-        #[para] The performance advantage is more likely to be present when using compound indexes such as $x+1 or end-1
-        #[para] For pure integer indices the performance should be equivalent
-
-        if {![string is integer -strict $len]} {
-            error "lindex_resolve_basic len must be an integer"
-        }
-
-        set index [tcl::string::map {_ {}} $index] ;#forward compatibility with integers such as 1_000
-        if {[string is integer -strict $index]} {
-            #can match +i -i
-            #avoid even the lseq overhead when the index is simple
-            if {$index < 0 || ($index >= $len)} {
-                #even though in this case we could return -2 or -3 like lindex_resolve; for consistency we don't, as it's not always determinable for compound indices using the lseq method.
-                return -1
-            } else {
-                #integer may still have + sign - normalize with expr
-                return [expr {$index}]
-            }
-        }
-        if {$len > 0} {
-            #For large len - this is a wasteful allocation if no true lseq available in Tcl version.
-            #lseq produces an 'arithseries' object which we can index into without allocating an entire list (REVIEW)
-            set testlist [punk::lib::range 0 [expr {$len-1}]] ;# uses lseq if available, has fallback.
-        } else {
-            set testlist [list]
-            #we want to call 'lindex' even in this case - to get the appropriate error message
-        }
-        set idx [lindex $testlist $index]
-        if {$idx eq ""} {
-            #we have no way to determine if out of bounds is at lower vs upper end
-            return -1
-        } else {
-            return $idx
-        }
-    }
-    proc lindex_get {list index} {
-        set resultlist [lrange $list $index $index]
-        if {![llength $resultlist]} {
-            return -1
-        } else {
-            #we still don't know the actual integer index for an index such as end-x or int-int without parsing and evaluating ourself.
-            #we can return the value - but only in a way that won't collide with our -1 out-of-range indicator
-            return  [tcl::dict::create value [lindex $resultlist 0]]
-        }
-    }
-
-    proc string_splitbefore {str index} {
-        if {![string is integer -strict $index]} {
-            set index [punk::lib::lindex_resolve [string length $str] $index]
-            switch -- $index {
-                -2 {
-                    return [list $str ""]
-                }
-                -3 {
-                    return [list "" $str]
-                }
-            }
-        }
-        return [list [string range $str 0 $index-1] [string range $str $index end]]
-        #scan %s stops at whitespace - not useful here.
-        #scan $s %${p}s%s
-    }
-    proc string_splitbefore_indices {str args} {
-        set parts [list $str]
-        set sizes [list [string length $str]]
-        set s 0
-        foreach index $args {
-            if {![string is integer -strict $index]} {
-                set index [punk::lib::lindex_resolve [string length $str] $index]
-                switch -- $index {
-                    -2 {
-                        if {[lindex $sizes end] != 0} {
-                            ledit parts end end [lindex $parts end] {}
-                            ledit sizes end end [lindex $sizes end] 0
-                        }
-                        continue
-                    }
-                    -3 {
-                        if {[lindex $sizes 0] != 0} {
-                            ledit parts 0 0 {} [lindex $parts 0]
-                            ledit sizes 0 0 0  [lindex $sizes 0]
-                        }
-                        continue
-                    }
-                }
-            }
-            if {$index <= 0} {
-                if {[lindex $sizes 0] != 0} {
-                    ledit parts 0 0 {} [lindex $parts 0]
-                    ledit sizes 0 0 0 [lindex $sizes 0]
-                }
-                continue
-            }
-            if {$index >= [string length $str]} {
-                if {[lindex $sizes end] != 0} {
-                    ledit parts end end [lindex $parts end] {}
-                    ledit sizes end end [lindex $sizes end] 0
-                }
-                continue
-            }
-            set i -1
-            set a 0
-            foreach sz $sizes {
-                incr i
-                if {$a + $sz > $index} {
-                    set p [lindex $parts $i]
-                    #puts "a:$a index:$index"
-                    if {$a == $index} {
-                        break
-                    }
-                    ledit parts $i $i [string range $p 0 [expr {$index -$a -1}]] [string range $p $index-$a end]
-                    ledit sizes $i $i [expr {$index - $a}] [expr {($a + $sz)-$index}]
-                    break
-                }
-                incr a $sz
-            }
-            #puts "->parts:$parts"
-            #puts "->sizes:$sizes"
-        }
-        return $parts
-    }
-
-    proc K {x y} {return $x}
-    #*** !doctools
-    #[call [fun K] [arg x] [arg y]]
-    #[para]The K-combinator function - returns the first argument, x and discards y
-    #[para]see [uri https://wiki.tcl-lang.org/page/K]
-    #[para]It is used in cases where command-substitution at the calling-point performs some desired effect.
-
-
-    proc is_utf8_multibyteprefix {bytes} {
-        #*** !doctools
-        #[call [fun is_utf8_multibyteprefix] [arg str]]
-        #[para] Returns a boolean if str is potentially a prefix for a multibyte utf-8 character
-        #[para] ie - tests if it is possible that appending more data will result in a utf-8 codepoint
-        #[para] Will return false for an already complete utf-8 codepoint
-        #[para] It is assumed the incomplete sequence is at the beginning of the bytes argument
-        #[para] Suitable input for this might be from the unreturned tail portion of get_utf8_leading $testbytes
-        #[para] e.g using: set head [lb]get_utf8_leading $testbytes[rb] ; set tail [lb]string range $testbytes [lb]string length $head[rb] end[rb]
-        regexp {(?x)
-        ^
-        (?:
-        [\xC0-\xDF] |                   #possible prefix for two-byte codepoint
-        [\xE0-\xEF] [\x80-\xBF]{0,1} |  #possible prefix for three-byte codepoint
-        [\xF0-\xF4] [\x80-\xBF]{0,2}    #possible prefix for
-        )
-        $
-        } $bytes
-    }
-
-    proc is_utf8_first {str} {
-        regexp {(?x)   # Expanded regexp syntax, so I can put in comments :-)
-        ^
-        (?:
-        [\x00-\x7F] |                # Single-byte chars (ASCII range)
-        [\xC0-\xDF] [\x80-\xBF] |    # Two-byte chars (\u0080-\u07FF)
-        [\xE0-\xEF] [\x80-\xBF]{2} | # Three-byte chars (\u0800-\uFFFF)
-        [\xF0-\xF4] [\x80-\xBF]{3}   # Four-byte chars (U+10000-U+10FFFF, not supported by Tcl 8.5)
-        )
-        } $str
-    }
-    proc is_utf8_single {1234bytes} {
-        #*** !doctools
-        #[call [fun is_utf8_single] [arg 1234bytes]]
-        #[para] Tests input of 1,2,3 or 4 bytes and responds with a boolean indicating if it is a valid utf-8 character (codepoint)
-        regexp {(?x)   # Expanded regexp syntax, so I can put in comments :-)
-        ^
-        (?:
-        [\x00-\x7F] |                # Single-byte chars (ASCII range)
-        [\xC0-\xDF] [\x80-\xBF] |    # Two-byte chars (\u0080-\u07FF)
-        [\xE0-\xEF] [\x80-\xBF]{2} | # Three-byte chars (\u0800-\uFFFF)
-        [\xF0-\xF4] [\x80-\xBF]{3}   # Four-byte chars (U+10000-U+10FFFF, not supported by Tcl 8.5)
-        )
-        $
-        } $1234bytes
-    }
-    proc get_utf8_leading {rawbytes} {
-        #*** !doctools
-        #[call [fun get_utf8_leading] [arg rawbytes]]
-        #[para] return the leading portion of rawbytes that is a valid utf8 sequence.
-        #[para] This will stop at the point at which the bytes can't be interpreted as a complete utf-8 codepoint
-        #[para] e.g It will not return the first byte or 2 of a 3-byte utf-8 character if the last byte is missing, and will return only the valid utf-8 string from before the first byte of the incomplete character.
-        #[para] It will also only return the prefix before any bytes that cannot be part of a utf-8 sequence at all.
-        #[para] Note that while this will return valid utf8 - it has no knowledge of grapheme clusters or diacritics
-        #[para] This means if it is being used to process bytes split at some arbitrary point - the trailing data that isn't returned could be part of a grapheme cluster that belongs with the last character of the leading string already returned
-        #[para] The utf-8 BOM \xEF\xBB\xBF is a valid UTF8 3-byte sequence and so can also be returned as part of the leading utf8 bytes
-        if {[regexp {(?x)   # Expanded regexp syntax, so I can put in comments :-)
-            \A (
-            [\x00-\x7F] |                # Single-byte chars (ASCII range)
-            [\xC0-\xDF] [\x80-\xBF] |    # Two-byte chars (\u0080-\u07FF)
-            [\xE0-\xEF] [\x80-\xBF]{2} | # Three-byte chars (\u0800-\uFFFF)
-            [\xF0-\xF4] [\x80-\xBF]{3}   # Four-byte chars (U+10000-U+10FFFF, not supported by Tcl 8.5)
-            ) +
-        } $rawbytes completeChars]} {
-            return $completeChars
-        }
-        return ""
-    }
-    proc hex2dec {args} {
-        #*** !doctools
-        #[call [fun hex2dec] [opt {option value...}] [arg list_largeHex]]
-        #[para]Convert a list of (possibly large) unprefixed hex strings to their decimal values
-        #[para]hex2dec accepts and ignores internal underscores in the same manner as Tcl 8.7+ numbers e.g  hex2dec FF_FF returns 65535
-        #[para]Leading and trailing underscores are ignored as a matter of implementation convenience - but this shouldn't be relied upon.
-        #[para]Leading or trailing whitespace in each list member is allowed e.g hex2dec " F" returns 15
-        #[para]Internal whitespace e.g "F F" is not permitted - but a completely empty element "" is allowed and will return 0
-
-        set list_largeHex [lindex $args end]
-        set argopts [lrange $args 0 end-1]
-        if {[llength $argopts]%2 !=0} {
-            error "[namespace current]::hex2dec arguments prior to list_largeHex must be option/value pairs - received '$argopts'"
-        }
-        set opts [tcl::dict::create\
-            -validate 1\
-            -empty_as_hex "INVALID set -empty_as_hex to a hex string e.g FF if empty values should be replaced"\
-        ]
-        set known_opts [tcl::dict::keys $opts]
-        foreach {k v} $argopts {
-            tcl::dict::set opts [tcl::prefix match -message "options for hex2dec. Unexpected option" $known_opts $k] $v
-        }
-        # -- --- --- ---
-        set opt_validate [tcl::dict::get $opts -validate]
-        set opt_empty [tcl::dict::get $opts -empty_as_hex]
-        # -- --- --- ---
-
-        set list_largeHex [lmap h $list_largeHex[unset list_largeHex] {string map {_ ""} [string trim $h]}]
-        if {$opt_validate} {
-            #Note appended F so that we accept list of empty strings as per the documentation
-            if {![string is xdigit -strict [join $list_largeHex ""]F ]} {
-                error "[namespace current]::hex2dec error: non-hex digits encountered after stripping underscores and leading/trailing whitespace for each element\n $list_largeHex"
-            }
-        }
-        if {![string is xdigit -strict [string map {_ ""} $opt_empty]]} {
-            #mapping empty string to a value destroys any advantage of -scanonly
-            #todo - document that -scanonly has 2 restrictions - each element must be valid hex and less than 7 chars long
-            #set list_largeHex [lmap v $list_largeHex[set list_largeHex {}] {expr {$v eq ""} ? {0} : {[set v]}}]
-            if {[lsearch $list_largeHex ""] >=0} {
-                error "[namespace current]::hex2dec error: empty values in list cannot be mapped to non-hex $opt_empty"
-            }
-        } else {
-            set opt_empty [string trim [string map {_ ""} $opt_empty]]
-            if {[set first_empty [lsearch $list_largeHex ""]] >= 0} {
-                #set list_largeHex [lmap v $list_largeHex[set list_largeHex {}] {expr {$v eq ""} ? {$opt_empty} : {$v}}]
-                set nonempty_head [lrange $list_largeHex 0 $first_empty-1]
-                set list_largeHex [concat $nonempty_head [lmap v [lrange $list_largeHex $first_empty end] {expr {$v eq ""} ? {$opt_empty} : {$v}}]]
-            }
-        }
-        return [scan $list_largeHex [string repeat %llx [llength $list_largeHex]]]
-    }
-
-    proc dec2hex {args} {
-        #*** !doctools
-        #[call [fun dex2hex] [opt {option value...}] [arg list_decimals]]
-        #[para]Convert a list of decimal integers to a list of hex values
-        #[para] -width <int> can be used to make each hex value at least int characters wide, with leading zeroes.
-        #[para] -case upper|lower determines the case of the hex letters in the output
-        set list_decimals [lindex $args end]
-        set argopts [lrange $args 0 end-1]
-        if {[llength $argopts]%2 !=0} {
-            error "[namespace current]::dec2hex arguments prior to list_decimals must be option/value pairs - received '$argopts'"
-        }
-        set defaults [tcl::dict::create\
-            -width 1\
-            -case upper\
-            -empty_as_decimal "INVALID set -empty_as_decimal to a number if empty values should be replaced"\
-        ]
-        set known_opts [tcl::dict::keys $defaults]
-        set fullopts [tcl::dict::create]
-        foreach {k v} $argopts {
-            tcl::dict::set fullopts [tcl::prefix match -message "options for [tcl::namespace::current]::dec2hex. Unexpected option" $known_opts $k] $v
-        }
-        set opts [tcl::dict::merge $defaults $fullopts]
-        # -- --- --- ---
-        set opt_width       [tcl::dict::get $opts -width]
-        set opt_case        [tcl::dict::get $opts -case]
-        set opt_empty       [tcl::dict::get $opts -empty_as_decimal]
-        # -- --- --- ---
-
-
-        set resultlist [list]
-        switch -- [string tolower $opt_case] {
-            upper {
-                set spec X
-            }
-            lower {
-                set spec x
-            }
-            default {
-                error "[namespace current]::dec2hex unknown value '$opt_case' for -case expected upper|lower"
-            }
-        }
-        set fmt "%${opt_width}.${opt_width}ll${spec}"
-
-        set list_decimals [lmap d $list_decimals[unset list_decimals] {string map {_ ""} [string trim $d]}]
-        if {![string is digit -strict [string map {_ ""} $opt_empty]]} {
-            if {[lsearch $list_decimals ""] >=0} {
-                error "[namespace current]::dec2hex error: empty values in list cannot be mapped to non-decimal $opt_empty"
-            }
-        } else {
-            set opt_empty [string map {_ ""} $opt_empty]
-            if {[set first_empty [lsearch $list_decimals ""]] >= 0} {
-                set nonempty_head [lrange $list_decimals 0 $first_empty-1]
-                set list_decimals [concat $nonempty_head [lmap v [lrange $list_decimals $first_empty end] {expr {$v eq ""} ? {$opt_empty} : {$v}}]]
-            }
-        }
-        return [format [lrepeat [llength $list_decimals] $fmt] {*}$list_decimals]
-    }
-
-    proc log2 x "expr {log(\$x)/[expr log(2)]}"
-        #*** !doctools
-        #[call [fun log2] [arg x]]
-        #[para]log base2 of x
-        #[para]This uses a 'live' proc body - the divisor for the change of base is computed once at definition time
-        #[para](courtesy of RS [uri https://wiki.tcl-lang.org/page/Additional+math+functions])
-
-    proc logbase {b x} {
-        #*** !doctools
-        #[call [fun logbase] [arg b] [arg x]]
-        #[para]log base b of x
-        #[para]This function uses expr's natural log and the change of base division.
-        #[para]This means for example that we can get results like: logbase 10 1000 = 2.9999999999999996
-        #[para]Use expr's log10() function or tcl::mathfunc::log10 for base 10
-        expr {log($x)/log($b)}
-    }
-    proc factors {x} {
-        #*** !doctools
-        #[call [fun factors] [arg x]]
-        #[para]Return a sorted list of the positive factors of x where x > 0
-        #[para]For x = 0 we return only 0 and 1 as technically any number divides zero and there are an infinite number of factors. (including zero itself in this context)*
-        #[para]This is a simple brute-force implementation that iterates all numbers below the square root of x to check the factors
-        #[para]Because the implementation is so simple - the performance is very reasonable for numbers below at least a few 10's of millions
-        #[para]See tcllib math::numtheory::factors for a more complex implementation - which seems to be slower for 'small' numbers
-        #[para]Comparisons were done with some numbers below 17 digits long
-        #[para]For seriously big numbers - this simple algorithm would no doubt be outperformed by more complex algorithms.
-        #[para]The numtheory library stores some data about primes etc with each call - so may become faster when being used on more numbers
-        #but has the disadvantage of being slower for 'small' numbers and using more memory.
-        #[para]If the largest factor below x is needed - the greatestOddFactorBelow and GreatestFactorBelow functions are a faster way to get there than computing the whole list, even for small values of x
-        #[para]* Taking x=0; Notion of x being divisible by integer y being: There exists an integer p such that x = py
-        #[para]  In other mathematical contexts zero may be considered not to divide anything.
-        set factors [list 1]
-        set j 2
-        set max [expr {sqrt($x)}]
-        while {$j <= $max} {
-            if {($x % $j) == 0} {
-                lappend factors $j [expr {$x / $j}]
-            }
-            incr j
-        }
-        lappend factors $x
-        return [lsort -unique -integer $factors]
-    }
-    proc oddFactors {x} {
-        #*** !doctools
-        #[call [fun oddFactors] [arg x]]
-        #[para]Return a list of odd integer factors of x, sorted in ascending order
-        set j 2
-        set max [expr {sqrt($x)}]
-        set factors [list 1]
-        while {$j <= $max} {
-            if {$x % $j == 0} {
-                set other [expr {$x / $j}]
-                if {$other % 2} {
-                    if {$other ni $factors} {
-                        lappend factors $other
-                    }
-                }
-                if {$j % 2} {
-                    if {$j ni $factors} {
-                        lappend factors $j
-                    }
-                }
-            }
-            incr j
-        }
-        return [lsort -integer -increasing $factors]
-    }
-    proc greatestFactorBelow {x} {
-        #*** !doctools
-        #[call [fun greatestFactorBelow] [arg x]]
-        #[para]Return the largest factor of x excluding itself
-        #[para]factor functions can be useful for console layout calculations
-        #[para]See Tcllib math::numtheory for more extensive implementations
-        if {$x % 2 == 0 || $x == 0} {
-            return [expr {$x / 2}]
-        }
-        set j 3
-        set max [expr {sqrt($x)}]
-        while {$j <= $max} {
-            if {$x % $j == 0} {
-                return [expr {$x / $j}]
-            }
-            incr j 2
-        }
-        return 1
-    }
-    proc greatestOddFactorBelow {x} {
-        #*** !doctools
-        #[call [fun greatestOddFactorBelow] [arg x]]
-        #[para]Return the largest odd integer factor of x excluding x itself
-        if {$x %2 == 0} {
-            return [greatestOddFactor $x]
-        }
-        set j 3
-        #dumb brute force - time taken to compute is wildly variable on big numbers
-        #todo - use a (memoized?) generator of primes to reduce the search space
-        #tcllib math::numtheory has suitable functions - but do we want that dependency here? Testing shows brute-force often faster for small numbers.
-        set god 1
-        set max [expr {sqrt($x)}]
-        while { $j <= $max} {
-            if {$x % $j == 0} {
-                set other [expr {$x / $j}]
-                if {$other % 2 == 0} {
-                    set god $j
-                } else {
-                    set god [expr {$x / $j}]
-                    #lowest j - so other side must be highest
-                    break
-                }
-            }
-            incr j 2
-        }
-        return $god
-    }
-    proc greatestOddFactor {x} {
-        #*** !doctools
-        #[call [fun greatestOddFactor] [arg x]]
-        #[para]Return the largest odd integer factor of x
-        #[para]For an odd value of x - this will always return x
-        if {$x % 2 != 0 || $x == 0} {
-            return $x
-        }
-        set r [expr {$x / 2}]
-        while {$r % 2 == 0} {
-            set r [expr {$r / 2}]
-        }
-        return $r
-    }
-    proc gcd {n m} {
-        #*** !doctools
-        #[call [fun gcd] [arg n] [arg m]]
-        #[para]Return the greatest common divisor of m and n
-        #[para]Straight from Lars Hellström's math::numtheory library  in Tcllib
-        #[para]Graphical use:
-        #[para]An a by b rectangle can be covered with square tiles of side-length c,
-        #[para]only if c is a common divisor of a and b
-
-        #
-        # Apply Euclid's good old algorithm
-        #
-        if { $n > $m } {
-            set t $n
-            set n $m
-            set m $t
-        }
-
-        while { $n > 0 } {
-            set r [expr {$m % $n}]
-            set m $n
-            set n $r
-        }
-
-        return $m
-    }
-    proc lcm {n m} {
-        #*** !doctools
-        #[call [fun gcd] [arg n] [arg m]]
-        #[para]Return the lowest common multiple of m and n
-        #[para]Straight from Lars Hellström's math::numtheory library  in Tcllib
-        #[para]
-        set gcd [gcd $n $m]
-        return [expr {$n*$m/$gcd}]
-    }
-    proc commonDivisors {x y} {
-        #*** !doctools
-        #[call [fun commonDivisors] [arg x] [arg y]]
-        #[para]Return a list of all the common factors of x and y
-        #[para](equivalent to factors of their gcd)
-        return [factors [gcd $x $y]]
-    }
-
-    #experimental only - there are better/faster ways
-    proc sieve n {
-        set primes [list]
-        if {$n < 2} {return $primes}
-        set nums [tcl::dict::create]
-        for {set i 2} {$i <= $n} {incr i} {
-            tcl::dict::set nums $i ""
-        }
-        set next 2
-        set limit [expr {sqrt($n)}]
-        while {$next <= $limit} {
-            for {set i $next} {$i <= $n} {incr i $next} {tcl::dict::unset nums $i}
-            lappend primes $next
-            tcl::dict::for {next -} $nums break
-        }
-        return [concat $primes [tcl::dict::keys $nums]]
-    }
-    proc sieve2 n {
-        set primes [list]
-        if {$n < 2} {return $primes}
-        set nums [tcl::dict::create]
-        for {set i 2} {$i <= $n} {incr i} {
-            tcl::dict::set nums $i ""
-        }
-        set next 2
-        set limit [expr {sqrt($n)}]
-        while {$next <= $limit} {
-            for {set i $next} {$i <= $n} {incr i $next} {tcl::dict::unset nums $i}
-            lappend primes $next
-            #dict for {next -} $nums break
-            set next [lindex $nums 0]
-        }
-        return [concat $primes [tcl::dict::keys $nums]]
-    }
-
-    proc hasglobs {str} {
-        #*** !doctools
-        #[call [fun hasglobs] [arg str]]
-        #[para]Return a boolean indicating whether str contains any of the glob characters: * ? [lb] [rb]
-        #[para]hasglobs uses append to preserve Tcls internal representation for str - so it should help avoid shimmering in the few cases where this may matter.
-        regexp {[*?\[\]]} [append obj2 $str {}] ;# int-rep preserving
-    }
-
-    proc trimzero {number} {
-        #*** !doctools
-        #[call [fun trimzero] [arg number]]
-        #[para]Return number with left-hand-side zeros trimmed off - unless all zero
-        #[para]If number is all zero - a single 0 is returned
-        set trimmed [string trimleft $number 0]
-        if {[string length $trimmed] == 0} {
-            set trimmed 0
-        }
-        return $trimmed
-    }
-    proc substring_count {str substring} {
-        #*** !doctools
-        #[call [fun substring_count] [arg str] [arg substring]]
-        #[para]Search str and return number of occurrences of substring
-
-        #faster than lsearch on split for str of a few K
-        if {$substring eq ""} {return 0}
-        set occurrences [expr {[string length $str]-[string length [string map [list $substring {}] $str]]}]
-        return [expr {$occurrences / [string length $substring]}]
-    }
-
-    proc dict_merge_ordered {defaults main} {
-        #*** !doctools
-        #[call [fun dict_merge_ordered] [arg defaults] [arg main]]
-        #[para]The standard dict merge accepts multiple dicts with values from dicts to the right (2nd argument) taking precedence.
-        #[para]When merging with a dict of default values - this means that any default key/vals that weren't in the main dict appear in the output before the main data.
-        #[para]This function merges the two dicts whilst maintaining the key order of main followed by defaults.
-
-        #1st merge (inner merge) with wrong values taking precedence - but right key-order  - then (outer merge) restore values
-        return [tcl::dict::merge [tcl::dict::merge $main $defaults] $main]
-    }
-
-    proc askuser {question} {
-        #*** !doctools
-        #[call [fun askuser] [arg question]]
-        #[para]A basic utility to read an answer from stdin
-        #[para]The prompt is written to the terminal and then it waits for a user to type something
-        #[para]stdin is temporarily configured to blocking and then put back in its original state in case it wasn't already so.
-        #[para]If the terminal is using punk::console and is in raw mode - the terminal will temporarily be put in line mode.
-        #[para](Generic terminal raw vs linemode detection not yet present)
-        #[para]The user must hit enter to submit the response
-        #[para]The return value is the string if any that was typed prior to hitting enter.
-        #[para]The question argument can be manually colourised using the various punk::ansi funcitons
-        #[example_begin]
-        #   set answer [lb]punk::lib::askuser "[lb]a+ green bold[rb]Do you want to proceed? (Y|N)[lb]a[rb]"[rb]
-        #   if {[lb]string match y* [lb]string tolower $answer[rb][rb]} {
-        #       puts "Proceeding"
-        #   } else {
-        #       puts "Cancelled by user"
-        #   }
-        #[example_end]
-        puts stdout $question
-        flush stdout
-        set stdin_state [chan configure stdin]
-        if {[catch {
-            package require punk::console
-            set console_raw [tsv::get console is_raw]
-        } err_console]} {
-            #assume normal line mode
-            set console_raw 0
-        }
-        try {
-            chan configure stdin -blocking 1
-            if {$console_raw} {
-                punk::console::disableRaw
-                set answer [gets stdin]
-                punk::console::enableRaw
-            } else {
-                set answer [gets stdin]
-            }
-        } finally {
-            chan configure stdin -blocking [tcl::dict::get $stdin_state -blocking]
-        }
-        return $answer
-    }
-
-    #like textutil::adjust::indent - but doesn't strip trailing lines, and doesn't implement skip parameter.
-    proc indent {text {prefix "    "}} {
-        set result [list]
-        foreach line [split $text \n] {
-            if {[string trim $line] eq ""} {
-                lappend result ""
-            } else {
-                lappend result $prefix[string trimright $line]
-            }
-        }
-        return [join $result \n]
-    }
-    #dedent?
-    proc undent {text} {
-        if {$text eq ""} {
-            return ""
-        }
-        set lines [split $text \n]
-        set nonblank [list]
-        foreach ln $lines {
-            if {[string trim $ln] eq ""} {
-                continue
-            }
-            lappend nonblank $ln
-        }
-        set lcp [longestCommonPrefix $nonblank]
-        if {$lcp eq ""} {
-            return $text
-        }
-        regexp {^([\t ]*)} $lcp _m lcp
-        if {$lcp eq ""} {
-            return $text
-        }
-        set len [string length $lcp]
-        set result [list]
-        foreach ln $lines {
-            if {[string trim $ln] eq ""} {
-                lappend result ""
-            } else {
-                lappend result [string range $ln $len end]
-            }
-        }
-        return [join $result \n]
-    }
-    #A version of textutil::string::longestCommonPrefixList
-    proc longestCommonPrefix {items} {
-        if {[llength $items] <= 1} {
-            return [lindex $items 0]
-        }
-        set items [lsort $items[unset items]]
-        set min [lindex $items 0]
-        set max [lindex $items end]
-        #if first and last of sorted list share a prefix - then all do (first and last of sorted list are the most different in the list)
-        #(sort order nothing to do with length - e.g min may be longer than max)
-        if {[string length $min] > [string length $max]} {
-            set temp $min
-            set min $max
-            set max $temp
-        }
-        set n [string length $min]
-        set prefix ""
-        set i -1
-        while {[incr i] < $n && ([set c [string index $min $i]] eq [string index $max $i])} {
-            append prefix $c
-        }
-        return $prefix
-    }
-
-    #e.g linesort -decreasing $data
-    proc linesort {args} {
-        #*** !doctools
-        #[call [fun linesort] [opt {sortoption ?val?...}] [arg textblock]]
-        #[para]Sort lines in textblock
-        #[para]Returns another textblock with lines sorted
-        #[para]options are flags as accepted by lsort ie -ascii -command -decreasing -dictionary -index -indices -integer -nocase -real -stride -unique
-        if {[llength $args] < 1} {
-            error "linesort missing lines argument"
-        }
-        set lines [lindex $args end]
-        set opts [lrange $args 0 end-1]
-        #.= list $lines |@0,sortopts/1> linelist |> .=data>1,sortopts>1* lsort |> list_as_lines <| {*}$opts
-        list_as_lines [lsort {*}$opts [linelist $lines]]
-    }
-
-    proc list_as_lines {args} {
-        #*** !doctools
-        #[call [fun list_as_lines] [opt {-joinchar char}] [arg linelist]]
-        #[para]This simply joins the elements of the list with -joinchar
-        #[para]It is mainly intended for use in pipelines where the primary argument comes at the end - but it can also be used as a general replacement for join $lines <le>
-        #[para]The sister function lines_as_list takes a block of text and splits it into lines - but with more options related to trimming the block and/or each line.
-        if {[set eop [lsearch $args --]] == [llength $args]-2} {
-            #end-of-opts not really necessary - except for consistency with lines_as_list
-            set args [concat [lrange $args 0 $eop-1] [lrange $args $eop+1 end]]
-        }
-        if {[llength $args] == 3 && [lindex $args 0] eq "-joinchar"} {
-            set joinchar [lindex $args 1]
-            set lines [lindex $args 2]
-        } elseif {[llength $args] == 1} {
-            set joinchar "\n"
-            set lines [lindex $args 0]
-        } else {
-            error "list_as_lines usage: list_as_lines ?-joinchar <char>? <linelist>"
-        }
-        return [join $lines $joinchar]
-    }
-    proc list_as_lines2 {args} {
-        #eat or own dogfood version - shows the implementation is simpler - but  unfortunately not suitable for a simple function like this which should be as fast as possible?
-        lassign [tcl::dict::values [punk::args::parse $args withdef {
-            -joinchar -default \n
-            @values -min 1 -max 1
-        }]] leaders opts values
-
-        return [join [tcl::dict::get $values 0] [tcl::dict::get $opts -joinchar]]
-    }
-
-    proc lines_as_list {args} {
-        #*** !doctools
-        #[call [fun lines_as_list] [opt {option value ...}] [arg text]]
-        #[para]Returns a list of possibly trimmed lines depeding on options
-        #[para]The concept of lines is raw lines from splitting on newline after crlf is mapped to lf
-        #[para]- not console lines which may be entirely different due to control characters such as vertical tabs or ANSI movements
-
-        #The underlying function linelist has the validation code which gives nicer usage errors.
-        #we can't use a dict merge here without either duplicating the underlying validation somewhat, or risking a default message from dict merge error
-        #..because we don't know what to say if there are odd numbers of args
-        #we can guess that it's ok to insert our default if no -block found in $args - but as a general principle this mightn't always work
-        #e.g if -block is also a valid value for the textblock itself. Which in this case it is - although unlikely, and our -block {} default is irrelevant in that case anyway
-
-        if {[lsearch $args "--"] == [llength $args]-2} {
-            set opts [lrange $args 0 end-2]
-        } else {
-            set opts [lrange $args 0 end-1]
-        }
-        #set opts [tcl::dict::merge {-block {}}  $opts]
-        set bposn [lsearch $opts -block]
-        if {$bposn < 0} {
-            lappend opts -block {}
-        }
-        set text [lindex $args end]
-        #tailcall linelist {*}$opts $text
-        return [linelist {*}$opts $text]
-    }
-    #this demonstrates the ease of using an args processor - but as lines_as_list is heavily used in terminal output - we can't afford the extra microseconds
-    proc lines_as_list2 {args} {
-        #pass -anyopts 1 so we can let the next function decide what arguments are valid - but still pass our defaults
-        #-anyopts 1 avoids having to know what to say if odd numbers of options passed etc
-        #we don't have to decide what is an opt vs a value
-        #even if the caller provides the argument -block without a value the next function's validation will report a reasonable error because there is now nothing in $values (consumed by -block)
-        lassign [tcl::dict::values [punk::args::parse $args withdef {
-            @opts -any 1
-            -block -default {}
-        }]] leaderdict opts valuedict
-        tailcall linelist {*}$opts {*}[tcl::dict::values $valuedict]
-    }
-
-    # important for pipeline & match_assign
-    #  -line trimline|trimleft|trimright  -block trimhead|trimtail|triminner|trimall|trimhead1|trimtail1|collateempty -commandprefix {string length} ?
-    #  -block trimming only trims completely empty lines. use -line trimming to remove whitespace e.g -line trimright will clear empty lines without affecting leading whitespace on other lines that aren't pure whitespace
-    set linelist_body {
-        set usage "linelist ?-ansiresets auto|<bool>? ?-ansireplays 0|1? ?-line trimline|trimleft|trimright? ?-block trimhead|trimtail|triminner|trimall|trimhead1|trimtail1|collateempty? -commandprefix <cmdlist> text"
-        if {[llength $args] == 0} {
-            error "linelist missing textchunk argument usage:$usage"
-        }
-        set text [lindex $args end]
-        set text [string map {\r\n \n} $text] ;#review - option?
-
-        set arglist [lrange $args 0 end-1]
-        set opts [tcl::dict::create\
-            -block {trimhead1 trimtail1}\
-            -line  {}\
-            -commandprefix ""\
-            -ansiresets auto\
-            -ansireplays 0\
-        ]
-        foreach {o v} $arglist {
-            switch -- $o {
-                -block - -line - -commandprefix - -ansiresets - -ansireplays {
-                    tcl::dict::set opts $o $v
-                }
-                default {
-                    error "linelist: Unrecognized option '$o' usage:$usage"
-                }
-            }
-        }
-        # -- --- --- --- --- ---
-        set opt_block           [tcl::dict::get $opts -block]
-        if {[llength $opt_block]} {
-            foreach bo $opt_block {
-                switch -- $bo {
-                    trimhead - trimtail - triminner - trimall - trimhead1 - trimtail1 - collateempty {}
-                    default {
-                        set known_blockopts [list trimhead trimtail triminner trimall trimhead1 trimtail1 collateempty]
-                        error "linelist: unknown -block option value: $bo known values: $known_blockopts"
-                    }
-                }
-            }
-            #normalize certain combos
-            if {"trimhead" in $opt_block && [set posn [lsearch $opt_block trimhead1]] >=0} {
-                set opt_block [lreplace $opt_block $posn $posn]
-            }
-            if {"trimtail" in $opt_block && [set posn [lsearch $opt_block trimtail1]] >=0} {
-                set opt_block [lreplace $opt_block $posn $posn]
-            }
-            if {"trimall" in $opt_block} {
-                #no other block options make sense in  combination with this
-                set opt_block [list "trimall"]
-            }
-
-            #TODO
-            if  {"triminner" in $opt_block } {
-                error "linelist -block triminner not implemented - sorry"
-            }
-
-        }
-
-
-        # -- --- --- --- --- ---
-        set opt_line            [tcl::dict::get $opts -line]
-        set tl_left 0
-        set tl_right 0
-        set tl_both 0
-        foreach lo $opt_line {
-            switch -- $lo {
-                trimline {
-                    set tl_both 1
-                }
-                trimleft {
-                    set tl_left 1
-                }
-                trimright {
-                    set tl_right 1
-                }
-                default {
-                    set known_lineopts [list trimline trimleft trimright]
-                    error "linelist: unknown -line option value: $lo known values: $known_lineopts"
-                }
-            }
-        }
-        #normalize trimleft trimright combo
-        if {$tl_left && $tl_right} {
-            set opt_line [list "trimline"]
-            set tl_both 1
-        }
-        # -- --- --- --- --- ---
-        set opt_commandprefix   [tcl::dict::get $opts -commandprefix]
-        # -- --- --- --- --- ---
-        set opt_ansiresets      [tcl::dict::get $opts -ansiresets]
-        # -- --- --- --- --- ---
-        set opt_ansireplays     [tcl::dict::get $opts -ansireplays]
-        if {$opt_ansireplays} {
-            if {$opt_ansiresets eq "auto"} {
-                set opt_ansiresets 1
-            }
-        } else {
-            if {$opt_ansiresets eq "auto"} {
-                set opt_ansiresets 0
-            }
-        }
-        # -- --- --- --- --- ---
-        set linelist [list]
-        set nlsplit [split $text \n]
-        if {![llength $opt_line]} {
-            set linelist $nlsplit
-            #lappend linelist {*}$nlsplit
-        } else {
-            #already normalized trimleft+trimright to trimline
-            if {$tl_both} {
-                foreach ln $nlsplit {
-                    lappend linelist [string trim $ln]
-                }
-            } elseif {$tl_left} {
-                foreach ln $nlsplit {
-                    lappend linelist [string trimleft $ln]
-                }
-            } elseif {$tl_right} {
-                foreach ln $nlsplit {
-                    lappend linelist [string trimright $ln]
-                }
-            }
-        }
-
-        if {"collateempty" in $opt_block} {
-            set inputlist $linelist[set linelist [list]]
-            set last "-"
-            foreach input $inputlist {
-                if {$input ne ""} {
-                    lappend linelist $input
-                    set last "-"
-                } else {
-                    if {$last ne ""} {
-                        lappend linelist ""
-                    }
-                    set last ""
-                }
-            }
-        }
-
-        if {"trimall" in $opt_block} {
-            set linelist [lsearch -all -inline -not -exact $linelist[set linelist {}] ""]
-        } else {
-            set start 0
-            if {"trimhead" in $opt_block} {
-                set idx 0
-                set lastempty -1
-                foreach ln $linelist {
-                    if {[lindex $linelist $idx] ne ""} {
-                        break
-                    } else {
-                        set lastempty $idx
-                    }
-                    incr idx
-                }
-                if {$lastempty >=0} {
-                    set start [expr {$lastempty +1}]
-                }
-            }
-            set linelist [lrange $linelist $start end]
-
-            if {"trimtail" in $opt_block} {
-                set revlinelist [lreverse $linelist][set linelist {}]
-                set i 0
-                foreach ln $revlinelist {
-                    if {$ln ne ""} {
-                        set linelist [lreverse [lrange $revlinelist $i end]]
-                        break
-                    }
-                    incr i
-                }
-            }
-
-            # --- ---
-            set start 0
-            set end "end"
-            if {"trimhead1" in $opt_block} {
-                if {[lindex $linelist 0] eq ""} {
-                    set start 1
-                }
-            }
-            if {"trimtail1" in $opt_block} {
-                if {[lindex $linelist end] eq ""} {
-                    set end "end-1"
-                }
-            }
-            set linelist [lrange $linelist $start $end]
-        }
-
-        #review - we need to make sure ansiresets don't accumulate/grow on any line
-        #Each resulting line should have a reset of some type at start and a pure-reset at end to stop
-        #see if we can find an ST sequence that most terminals will not display for marking sections?
-        if {$opt_ansireplays} {
-            <require_punk_ansi> ;#package require punk::ansi
-            if {$opt_ansiresets} {
-                set RST "\x1b\[0m"
-            } else {
-                set RST ""
-            }
-            set replaycodes $RST ;#todo - default?
-            set transformed [list]
-            #shortcircuit common case of no ansi
-            #NOTE: running ta::detect on a list (or dict) as a whole can be problematic if items in the list have backslash escapes due to Tcl list quoting and escaping behaviour.
-            #This commonly happens if there is an unbalanced brace  (which is a normal occurrence and needs to be handled)
-            #ta::detect on a list of ansi-containing string may appear to work for some simple inputs but is not reliable
-            #detect_in_list/detectcode_in_list will check at first level. (not intended for detecting ansi in deeper structures)
-
-            #we use detectcode_in_list instead of detect_in_list
-            #detectcode_in_list will detect unclosed (or unopened) paired sequences such as PM (privacy message)
-            # - but the main reason is it is slightly faster.
-            if {![punk::ansi::ta::detectcode_in_list $linelist]} {
-                if {$opt_ansiresets} {
-                    foreach ln $linelist {
-                        lappend transformed $RST$ln$RST
-                    }
-                    set linelist $transformed
-                }
-            } else {
-
-                #INLINE punk::ansi::codetype::is_sgr_reset
-                #regexp {\x1b\[0*m$} $code
-                set re_is_sgr_reset {\x1b\[0*m$}
-                #INLINE punk::ansi::codetype::is_sgr
-                #regexp {\033\[[0-9;:]*m$} $code
-                set re_is_sgr {\x1b\[[0-9;:]*m$}
-
-                foreach ln $linelist {
-                    #set is_replay_pure_reset [regexp {\x1b\[0*m$} $replaycodes] ;#only looks at tail code - but if tail is pure reset - any prefix is ignorable
-
-                    #set ansisplits [punk::ansi::ta::split_codes_single $ln] ;#REVIEW - this split accounts for a large portion of the time taken to run this function.
-                    #get_codes_single lists only the codes. no plaintext or empty elements
-                    set ansisplits [punk::ansi::ta::get_codes_single $ln] ;#REVIEW - this split accounts for a large portion of the time taken to run this function.
-                    if {[llength $ansisplits] == 0} {
-                        #plaintext only - no ansi codes in line
-                        lappend transformed [string cat $replaycodes $ln $RST]
-                        #leave replaycodes as is for next line
-                        set nextreplay $replaycodes
-                    } else {
-                        set tail $RST
-                        set lastcode [lindex $ansisplits end] ;#may or may not be SGR
-                        set lastcodeoffset [expr {[string length $lastcode]-1}]
-                        if {[punk::ansi::codetype::is_sgr_reset $lastcode]} {
-                            if {[string range $ln end-$lastcodeoffset end] eq $lastcode} {
-                                #last plaintext is empty. So the line is already suffixed with a reset
-                                set tail ""
-                                set nextreplay $RST
-                            } else {
-                                #trailing text has been reset within line - but no tail reset present
-                                #we normalize by putting a tail reset on anyway
-                                set tail $RST
-                                set nextreplay $RST
-                            }
-                        } elseif {[string range $ln end-$lastcodeoffset end] eq $lastcode && [punk::ansi::codetype::has_sgr_leadingreset $lastcode]} {
-                            #code is at tail (no trailing plaintext)
-                            #No tail reset - and no need to examine whole line to determine stack that is in effect
-                            set tail $RST
-                            set nextreplay $lastcode
-                        } else {
-                            #last codeset doesn't reset from earlier codes or isn't SGR - so we have to look at whole line to determine codes in effect
-                            #last codeset doesn't end in a pure-reset
-                            #whether code was at very end or not - add a reset tail
-                            set tail $RST
-                            #determine effective replay for line
-                            set codestack [list start]
-                            foreach code $ansisplits {
-                                if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                    set codestack [list] ;#different from 'start' marked - this means we've had a reset
-                                } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                    set codestack [list $code]
-                                } else {
-                                    if {[punk::ansi::codetype::is_sgr $code]} {
-                                        #todo - proper test of each code - so we only take latest background/foreground etc.
-                                        #requires handling codes with varying numbers of parameters.
-                                        #basic simplification - remove straight dupes.
-                                        set dup_posns [lsearch -all -exact $codestack $code] ;#!must use -exact as codes have square brackets which are interpreted as glob chars.
-                                        set codestack [lremove $codestack {*}$dup_posns]
-                                        lappend codestack $code
-                                    } ;#else gx0 or other code - we don't want to stack it with SGR codes
-                                }
-                            }
-                            if {$codestack eq [list start]} {
-                                #No SGRs - may have been other codes
-                                set line_has_sgr 0
-                            } else {
-                                #list is either empty or begins with start - empty means it had SGR reset - so it still invalidates current state of replaycodes
-                                set line_has_sgr 1
-                                if {[lindex $codestack 0] eq "start"} {
-                                    set codestack [lrange $codestack 1 end]
-                                }
-                            }
-
-                            #set newreplay [join $codestack ""]
-                            set newreplay [punk::ansi::codetype::sgr_merge_list {*}$codestack]
-
-                            if {$line_has_sgr && $newreplay ne $replaycodes} {
-                                #adjust if it doesn't already does a reset at start
-                                if {[punk::ansi::codetype::has_sgr_leadingreset $newreplay]} {
-                                    set nextreplay $newreplay
-                                } else {
-                                    set nextreplay $RST$newreplay
-                                }
-                            } else {
-                                set nextreplay $replaycodes
-                            }
-                        }
-                        if {[punk::ansi::codetype::has_sgr_leadingreset $ln]} {
-                            #no point attaching any replay
-                            lappend transformed [string cat $ln $tail]
-                        } else {
-                            lappend transformed [string cat $replaycodes $ln $tail]
-                        }
-                    }
-                    set replaycodes $nextreplay
-                }
-                set linelist $transformed
-            }
-        }
-
-        if {[llength $opt_commandprefix]} {
-            set transformed [list]
-            foreach ln $linelist {
-                lappend transformed [{*}$opt_commandprefix $ln]
-            }
-            set linelist $transformed
-        }
-
-        return $linelist
-    }
-    if {$has_punk_ansi} {
-        #optimise linelist as much as possible
-        set linelist_body [string map {<require_punk_ansi> ""} $linelist_body]
-    } else {
-        #punk ansi not avail at time of package load.
-        #by putting in calls to punk::ansi the user will get appropriate error messages
-        set linelist_body [string map {<require_punk_ansi> "package require punk::ansi"} $linelist_body]
-    }
-
-    set linelist_body_original {
-        set usage "linelist ?-ansiresets auto|<bool>? ?-ansireplays 0|1? ?-line trimline|trimleft|trimright? ?-block trimhead|trimtail|triminner|trimall|trimhead1|trimtail1|collateempty? -commandprefix <cmdlist> text"
-        if {[llength $args] == 0} {
-            error "linelist missing textchunk argument usage:$usage"
-        }
-        set text [lindex $args end]
-        set text [string map {\r\n \n} $text] ;#review - option?
-
-        set arglist [lrange $args 0 end-1]
-        set opts [tcl::dict::create\
-            -block {trimhead1 trimtail1}\
-            -line  {}\
-            -commandprefix ""\
-            -ansiresets auto\
-            -ansireplays 0\
-        ]
-        foreach {o v} $arglist {
-            switch -- $o {
-                -block - -line - -commandprefix - -ansiresets - -ansireplays {
-                    tcl::dict::set opts $o $v
-                }
-                default {
-                    error "linelist: Unrecognized option '$o' usage:$usage"
-                }
-            }
-        }
-        # -- --- --- --- --- ---
-        set opt_block           [tcl::dict::get $opts -block]
-        if {[llength $opt_block]} {
-            foreach bo $opt_block {
-                switch -- $bo {
-                    trimhead - trimtail - triminner - trimall - trimhead1 - trimtail1 - collateempty {}
-                    default {
-                        set known_blockopts [list trimhead trimtail triminner trimall trimhead1 trimtail1 collateempty]
-                        error "linelist: unknown -block option value: $bo known values: $known_blockopts"
-                    }
-                }
-            }
-            #normalize certain combos
-            if {"trimhead" in $opt_block && [set posn [lsearch $opt_block trimhead1]] >=0} {
-                set opt_block [lreplace $opt_block $posn $posn]
-            }
-            if {"trimtail" in $opt_block && [set posn [lsearch $opt_block trimtail1]] >=0} {
-                set opt_block [lreplace $opt_block $posn $posn]
-            }
-            if {"trimall" in $opt_block} {
-                #no other block options make sense in  combination with this
-                set opt_block [list "trimall"]
-            }
-
-            #TODO
-            if  {"triminner" in $opt_block } {
-                error "linelist -block triminner not implemented - sorry"
-            }
-
-        }
-
-
-        # -- --- --- --- --- ---
-        set opt_line            [tcl::dict::get $opts -line]
-        set tl_left 0
-        set tl_right 0
-        set tl_both 0
-        foreach lo $opt_line {
-            switch -- $lo {
-                trimline {
-                    set tl_both 1
-                }
-                trimleft {
-                    set tl_left 1
-                }
-                trimright {
-                    set tl_right 1
-                }
-                default {
-                    set known_lineopts [list trimline trimleft trimright]
-                    error "linelist: unknown -line option value: $lo known values: $known_lineopts"
-                }
-            }
-        }
-        #normalize trimleft trimright combo
-        if {$tl_left && $tl_right} {
-            set opt_line [list "trimline"]
-            set tl_both 1
-        }
-        # -- --- --- --- --- ---
-        set opt_commandprefix   [tcl::dict::get $opts -commandprefix]
-        # -- --- --- --- --- ---
-        set opt_ansiresets      [tcl::dict::get $opts -ansiresets]
-        # -- --- --- --- --- ---
-        set opt_ansireplays     [tcl::dict::get $opts -ansireplays]
-        if {$opt_ansireplays} {
-            if {$opt_ansiresets eq "auto"} {
-                set opt_ansiresets 1
-            }
-        } else {
-            if {$opt_ansiresets eq "auto"} {
-                set opt_ansiresets 0
-            }
-        }
-        # -- --- --- --- --- ---
-        set linelist [list]
-        set nlsplit [split $text \n]
-        if {![llength $opt_line]} {
-            set linelist $nlsplit
-            #lappend linelist {*}$nlsplit
-        } else {
-            #already normalized trimleft+trimright to trimline
-            if {$tl_both} {
-                foreach ln $nlsplit {
-                    lappend linelist [string trim $ln]
-                }
-            } elseif {$tl_left} {
-                foreach ln $nlsplit {
-                    lappend linelist [string trimleft $ln]
-                }
-            } elseif {$tl_right} {
-                foreach ln $nlsplit {
-                    lappend linelist [string trimright $ln]
-                }
-            }
-        }
-
-        if {"collateempty" in $opt_block} {
-            set inputlist $linelist[set linelist [list]]
-            set last "-"
-            foreach input $inputlist {
-                if {$input ne ""} {
-                    lappend linelist $input
-                    set last "-"
-                } else {
-                    if {$last ne ""} {
-                        lappend linelist ""
-                    }
-                    set last ""
-                }
-            }
-        }
-
-        if {"trimall" in $opt_block} {
-            set linelist [lsearch -all -inline -not -exact $linelist[set linelist {}] ""]
-        } else {
-            set start 0
-            if {"trimhead" in $opt_block} {
-                set idx 0
-                set lastempty -1
-                foreach ln $linelist {
-                    if {[lindex $linelist $idx] ne ""} {
-                        break
-                    } else {
-                        set lastempty $idx
-                    }
-                    incr idx
-                }
-                if {$lastempty >=0} {
-                    set start [expr {$lastempty +1}]
-                }
-            }
-            set linelist [lrange $linelist $start end]
-
-            if {"trimtail" in $opt_block} {
-                set revlinelist [lreverse $linelist][set linelist {}]
-                set i 0
-                foreach ln $revlinelist {
-                    if {$ln ne ""} {
-                        set linelist [lreverse [lrange $revlinelist $i end]]
-                        break
-                    }
-                    incr i
-                }
-            }
-
-            # --- ---
-            set start 0
-            set end "end"
-            if {"trimhead1" in $opt_block} {
-                if {[lindex $linelist 0] eq ""} {
-                    set start 1
-                }
-            }
-            if {"trimtail1" in $opt_block} {
-                if {[lindex $linelist end] eq ""} {
-                    set end "end-1"
-                }
-            }
-            set linelist [lrange $linelist $start $end]
-        }
-
-        #review - we need to make sure ansiresets don't accumulate/grow on any line
-        #Each resulting line should have a reset of some type at start and a pure-reset at end to stop
-        #see if we can find an ST sequence that most terminals will not display for marking sections?
-        if {$opt_ansireplays} {
-            #package require punk::ansi
-            <require_punk_ansi>
-            if {$opt_ansiresets} {
-                set RST "\x1b\[0m"
-            } else {
-                set RST ""
-            }
-            set replaycodes $RST ;#todo - default?
-            set transformed [list]
-            #shortcircuit common case of no ansi
-            #NOTE: running ta::detect on a list (or dict) as a whole can be problematic if items in the list have backslash escapes due to Tcl list quoting and escaping behaviour.
-            #This commonly happens if there is an unbalanced brace  (which is a normal occurrence and needs to be handled)
-            #ta::detect on a list of ansi-containing string may appear to work for some simple inputs but is not reliable
-            #detect_in_list will check at first level. (not intended for detecting ansi in deeper structures)
-            if {![punk::ansi::ta::detect_in_list $linelist]} {
-                if {$opt_ansiresets} {
-                    foreach ln $linelist {
-                        lappend transformed $RST$ln$RST
-                    }
-                    set linelist $transformed
-                }
-            } else {
-
-                #INLINE punk::ansi::codetype::is_sgr_reset
-                #regexp {\x1b\[0*m$} $code
-                set re_is_sgr_reset {\x1b\[0*m$}
-                #INLINE punk::ansi::codetype::is_sgr
-                #regexp {\033\[[0-9;:]*m$} $code
-                set re_is_sgr {\x1b\[[0-9;:]*m$}
-
-                foreach ln $linelist {
-                    #set is_replay_pure_reset [regexp {\x1b\[0*m$} $replaycodes] ;#only looks at tail code - but if tail is pure reset - any prefix is ignorable
-
-                    set ansisplits [punk::ansi::ta::split_codes_single $ln] ;#REVIEW - this split accounts for a large portion of the time taken to run this function.
-                    if {[llength $ansisplits]<= 1} {
-                        #plaintext only - no ansi codes in line
-                        lappend transformed [string cat $replaycodes $ln $RST]
-                        #leave replaycodes as is for next line
-                        set nextreplay $replaycodes
-                    } else {
-                        set tail $RST
-                        set lastcode [lindex $ansisplits end-1] ;#may or may not be SGR
-                        if {[punk::ansi::codetype::is_sgr_reset $lastcode]} {
-                            if {[lindex $ansisplits end] eq ""} {
-                                #last plaintext is empty. So the line is already suffixed with a reset
-                                set tail ""
-                                set nextreplay $RST
-                            } else {
-                                #trailing text has been reset within line - but no tail reset present
-                                #we normalize by putting a tail reset on anyway
-                                set tail $RST
-                                set nextreplay $RST
-                            }
-                        } elseif {[lindex $ansisplits end] ne "" && [punk::ansi::codetype::has_sgr_leadingreset $lastcode]} {
-                            #No tail reset - and no need to examine whole line to determine stack that is in effect
-                            set tail $RST
-                            set nextreplay $lastcode
-                        } else {
-                            #last codeset doesn't reset from earlier codes or isn't SGR - so we have to look at whole line to determine codes in effect
-                            #last codeset doesn't end in a pure-reset
-                            #whether code was at very end or not - add a reset tail
-                            set tail $RST
-                            #determine effective replay for line
-                            set codestack [list start]
-                            foreach {pt code} $ansisplits {
-                                if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                    set codestack [list] ;#different from 'start' marked - this means we've had a reset
-                                } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                    set codestack [list $code]
-                                } else {
-                                    if {[punk::ansi::codetype::is_sgr $code]} {
-                                        #todo - proper test of each code - so we only take latest background/foreground etc.
-                                        #requires handling codes with varying numbers of parameters.
-                                        #basic simplification - remove straight dupes.
-                                        set dup_posns [lsearch -all -exact $codestack $code] ;#!must use -exact as codes have square brackets which are interpreted as glob chars.
-                                        set codestack [lremove $codestack {*}$dup_posns]
-                                        lappend codestack $code
-                                    } ;#else gx0 or other code - we don't want to stack it with SGR codes
-                                }
-                            }
-                            if {$codestack eq [list start]} {
-                                #No SGRs - may have been other codes
-                                set line_has_sgr 0
-                            } else {
-                                #list is either empty or begins with start - empty means it had SGR reset - so it still invalidates current state of replaycodes
-                                set line_has_sgr 1
-                                if {[lindex $codestack 0] eq "start"} {
-                                    set codestack [lrange $codestack 1 end]
-                                }
-                            }
-
-                            #set newreplay [join $codestack ""]
-                            set newreplay [punk::ansi::codetype::sgr_merge_list {*}$codestack]
-
-                            if {$line_has_sgr && $newreplay ne $replaycodes} {
-                                #adjust if it doesn't already does a reset at start
-                                if {[punk::ansi::codetype::has_sgr_leadingreset $newreplay]} {
-                                    set nextreplay $newreplay
-                                } else {
-                                    set nextreplay $RST$newreplay
-                                }
-                            } else {
-                                set nextreplay $replaycodes
-                            }
-                        }
-                        if {[punk::ansi::codetype::has_sgr_leadingreset $ln]} {
-                            #no point attaching any replay
-                            lappend transformed [string cat $ln $tail]
-                        } else {
-                            lappend transformed [string cat $replaycodes $ln $tail]
-                        }
-                    }
-                    set replaycodes $nextreplay
-                }
-                set linelist $transformed
-            }
-        }
-
-        if {[llength $opt_commandprefix]} {
-            set transformed [list]
-            foreach ln $linelist {
-                lappend transformed [{*}$opt_commandprefix $ln]
-            }
-            set linelist $transformed
-        }
-
-        return $linelist
-    }
-    if {$has_punk_ansi} {
-        #optimise linelist as much as possible
-        set linelist_body [string map {<require_punk_ansi> ""} $linelist_body]
-    } else {
-        #punk ansi not avail at time of package load.
-        #by putting in calls to punk::ansi the user will get appropriate error messages
-        set linelist_body [string map {<require_punk_ansi> "package require punk::ansi"} $linelist_body]
-    }
-    proc linelist {args} $linelist_body
-
-
-    interp alias {} errortime {} punk::lib::errortime
-    proc errortime {script groupsize {iters 2}} {
-        #by use MAK from https://wiki.tcl-lang.org/page/How+to+Measure+Performance
-        set i 0
-        set times {}
-        if {$iters < 2} {set iters 2}
-
-        for {set i 0} {$i < $iters} {incr i} {
-            set result [uplevel [list time $script $groupsize]]
-            lappend times [lindex $result 0]
-        }
-
-        set average 0.0
-        set s2 0.0
-
-        foreach time $times {
-            set average [expr {$average + double($time)/$iters}]
-        }
-
-        foreach time $times {
-            set s2 [expr {$s2 + (($time-$average)*($time-$average) / ($iters-1))}]
-        }
-
-        set sigma   [expr {int(sqrt($s2))}]
-        set average [expr {int($average)}]
-
-        return "$average +/- $sigma microseconds per iteration"
-    }
-
-    #test function to use with show_jump_tables
-    #todo - check if switch compilation to jump tables differs by Tcl version
-    proc switch_char_test {c} {
-        set dec [scan $c %c]
-        foreach t [list 1 2 3] {
-            switch -- $c {
-                x {
-                    return [list $dec x $t]
-                }
-                y {
-                    return [list $dec y $t]
-                }
-                z {
-                    return [list $dec z $t]
-                }
-            }
-        }
-
-        #tcl 8.6/8.7 (at least)
-        #curlies must be unescaped and unbraced to work as literals in switch and enable it to compile to jumpTable
-        switch -- $c {
-                a {
-                    return  [list $dec a]
-                }
-                {"} {
-                    return [list $dec dquote]
-                }
-                {[} {return [list $dec lb]}
-                {]} {return [list $dec rb]}
-                "{" {
-                    return [list $dec lbrace]
-                }
-                "}" {
-                    return [list $dec rbrace]
-                }
-                default {
-                    return [list $dec $c]
-                }
-       }
-
-
-
-    }
-
-    #we are interested in seeing jumpTable line and following lines up until next line starting with "Command" or bracketed number e.g (164)
-    proc show_jump_tables {args} {
-        #avoiding use of 'info cmdtype' as unavaliable in safe interps as at 2024-06.
-        if {[llength $args] == 1} {
-            set data [tcl::unsupported::disassemble proc [lindex $args 0]]
-        } elseif {[llength $args] == 2} {
-            #review - this looks for direct methods on the supplied object/class, and then tries to disassemble method on the supplied class or class of supplied object if it isn't a class itself.
-            #not sure if this handles more complex hierarchies or mixins etc.
-            lassign $args obj method
-            if {![info object isa object $obj]} {
-                error "show_jump_tables unable to examine '$args'. $obj is not an oo object"
-            }
-            #classes are objects too and can have direct methods
-            if {$method in [info object methods $obj]} {
-                set data [tcl::unsupported::disassemble objmethod $obj $method]
-            } else {
-                if {![info object isa class $obj]} {
-                    set obj [info object class $obj]
-                }
-                set data [tcl::unsupported::disassemble method $obj $method]
-            }
-        } else {
-            error "show_jump_tables expected a procname or a class/object and method"
-        }
-        set result ""
-        set in_jt 0
-        foreach ln [split $data \n] {
-            set tln [string trim $ln]
-            if {!$in_jt} {
-                if {[string match *jumpTable* $ln]} {
-                    append result $ln \n
-                    set in_jt 1
-                }
-            } else {
-                if {[string match Command* $tln] || [string match "(*) *" $tln]} {
-                    set in_jt 0
-                } else {
-                    append result $ln \n
-                }
-            }
-        }
-        return $result
-    }
-
-    proc temperature_f_to_c {deg_fahrenheit} {
-        return [expr {($deg_fahrenheit -32) * (5/9.0)}]
-    }
-    proc temperature_c_to_f {deg_celsius} {
-        return [expr {($deg_celsius * (9/5.0)) + 32}]
-    }
-
-    proc interp_sync_package_paths {interp} {
-        if {![interp exists $interp]} {
-            error "interp_sync_package_paths error. interp '$interp' not found. Create it first with \[interp create $interp\]"
-        }
-        interp eval $interp [list set ::auto_path $::auto_path]
-        interp eval $interp {tcl::tm::remove {*}[tcl::tm::list]}
-        interp eval $interp [list tcl::tm::add {*}[lreverse [tcl::tm::list]]]
-    }
-
-    proc objclone {obj} {
-        append obj2 $obj {}
-    }
-    proc set_clone {varname obj} {
-        #used by repl's codeinterp. Maintains internal rep, easier to call e.g interp eval code [list punk::set_clone varnmame $val]
-        append obj2 $obj {}
-        uplevel 1 [list set $varname $obj2]
-    }
-
-
-
-    proc format_number {numbers_or_commaformattednumbers {delim ""} {groupsize ""}} {
-        variable has_twapi
-        if {$has_twapi} {
-            if {$delim eq "" && $groupsize eq ""} {
-                set localeid [twapi::get_system_default_lcid]
-            }
-        }
-        #when using twapi we currently only get the localeid - not the specific defaults
-        #when not using twapi, or on non-windows platforms - we don't currently have a mechanism to look up user preferences for this
-        set default_delim ","
-        set default_groupsize 3
-
-        set results [list]
-        set nums [objclone $numbers_or_commaformattednumbers] ;#stops single num from getting internal rep of list
-        foreach inputnum $nums {
-            set number [objclone $inputnum]
-            #also handle tcl 8.7+ underscores in numbers
-            set number [string map [list _ "" , ""] $number]
-            #normalize e.g 2e4 -> 20000.0
-            set number [expr {$number}]
-
-            if {$has_twapi} {
-                if {$delim eq "" && $groupsize eq ""} {
-                    lappend results [twapi::format_number $number $localeid -idigits -1]
-                    continue
-                } else {
-                    #setting just one of delim or groupsize means we don't get the user's localeid based default for the non-set one
-                    #todo - document it? Find a way to lookup localeid based defaults whenever either is unspecified?
-                    if {$delim eq ""}       {set delim $default_delim}
-                    if {$groupsize eq ""}   {set groupsize $default_groupsize}
-                    lappend results [twapi::format_number $number 0 -idigits -1 -sthousand $delim -sgrouping $groupsize]
-                    continue
-                }
-            }
-            #todo - get configured user defaults
-            if {$delim eq ""} {
-                set delim $default_delim
-            }
-            if {$groupsize eq ""} {
-                set groupsize $default_groupsize
-            }
-
-            lappend results [delimit_number $number $delim $groupsize]
-        }
-
-        if {[llength $results] == 1} {
-            #keep intrep as string rather than list
-            return [lindex $results 0]
-        }
-        return $results
-    }
-
-
-    #from wiki https://wiki.tcl-lang.org/page/Delimiting+Numberse
-    # Given a number represented as a string, insert delimiters to break it up for
-    # readability. Normally, the delimiter will be a comma which will be inserted every
-    # three digits. However, the delimiter and groupsize are optional arguments,
-    # permitting use in other locales.
-    #
-    # The string is assumed to consist of digits, possibly preceded by spaces,
-    # and possibly containing a decimal point, i.e.: [:space:]*[:digit:]*\.[:digit:]*
-
-    proc delimit_number {unformattednumber {delim ","} {GroupSize 3}} {
-        set number [objclone $unformattednumber]
-        set number [string map {_ ""} $number]
-        #normalize using expr - e.g 2e4 -> 20000.0
-        set number [expr {$number}]
-        # First, extract right hand part of number, up to and including decimal point
-        set point [string last "." $number];
-        if {$point >= 0} {
-            set PostDecimal [string range $number $point+1 end];
-            set PostDecimalP 1;
-        } else {
-            set point [expr {[string length $number] + 1}]
-            set PostDecimal "";
-            set PostDecimalP 0;
-        }
-
-        # Now extract any leading spaces. review  - regex for whitespace instead of just ascii space?
-        set ind 0;
-        while {[string equal [string index $number $ind] \u0020]} {
-            incr ind;
-        }
-        set FirstNonSpace $ind;
-        set LastSpace [expr {$FirstNonSpace - 1}];
-        set LeadingSpaces [string range $number 0 $LastSpace];
-
-        # Now extract the non-fractional part of the number, omitting leading spaces.
-        set MainNumber [string range $number $FirstNonSpace $point-1];
-
-        # Insert commas into the non-fractional part.
-        set Length [string length $MainNumber];
-        set Phase  [expr {$Length % $GroupSize}]
-        set PhaseMinusOne  [expr {$Phase -1}];
-        set DelimitedMain "";
-
-        #First we deal with the extra stuff.
-        if {$Phase > 0} {
-            append DelimitedMain [string range $MainNumber 0 $PhaseMinusOne];
-        }
-        set FirstInGroup $Phase;
-        set LastInGroup [expr {$FirstInGroup + $GroupSize -1}];
-        while {$LastInGroup < $Length} {
-            if {$FirstInGroup > 0} {
-                append DelimitedMain $delim;
-            }
-            append DelimitedMain [string range $MainNumber $FirstInGroup $LastInGroup];
-            incr FirstInGroup $GroupSize
-            incr LastInGroup  $GroupSize
-        }
-
-        # Reassemble the number.
-        if {$PostDecimalP} {
-            return [format "%s%s.%s" $LeadingSpaces $DelimitedMain $PostDecimal];
-        } else {
-            return [format "%s%s" $LeadingSpaces $DelimitedMain];
-        }
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-tcl::namespace::eval punk::lib::flatgrid {
-    namespace export filler_count rows cols col row block
-
-    #WARNING - requires lseq and 'lsearch -stride'
-    #WARNING - lsearch -stride oddity with empty strings https://core.tcl-lang.org/tcl/tktview/edebb6a4
-    #todo - 8.6 fallback?
-
-    proc filler_count {listlen numcolumns} {
-        #if {$numcolumns <= 0} {error "filler_count requires 1 or more numcolumns"} ;#or allow divide by zero error
-        #if {$listlen == 0} {return $numcolumns} ;#an option - but returning zero might make more sense
-        expr {($numcolumns - ($listlen % $numcolumns)) % $numcolumns}
-    }
-    proc rows {list numcolumns {blank NULL}} {
-        set numblanks [filler_count [llength $list] $numcolumns]
-        set padded_list [list {*}$list {*}[lrepeat $numblanks $blank]]
-        set splits [lseq 0 to [llength $padded_list] by $numcolumns]
-        set rows [list]
-        set i 1
-        foreach s [lrange $splits 0 end-1] {
-            lappend rows [lrange $padded_list $s [lindex $splits $i]-1]
-            incr i
-        }
-        return $rows
-    }
-    proc cols {list numcolumns {blank NULL}} {
-        set cols [list]
-        foreach colindex [lseq 0 $numcolumns-1]  {
-            lappend cols [lsearch -stride $numcolumns -index [list $colindex 0] -subindices -all -inline [list {*}$list {*}[lrepeat [filler_count [llength $list] $numcolumns] $blank]] *]
-        }
-        return $cols
-    }
-    proc cols2 {list numcolumns {blank NULL}} {
-        set cols [list]
-        foreach colindex [lseq 0 $numcolumns-1]  {
-            lappend cols [col2 $list $numcolumns $colindex $blank]
-        }
-        return $cols
-    }
-    proc col {list numcolumns colindex {blank NULL}} {
-        lsearch -stride $numcolumns -index [list $colindex 0] -subindices -all -inline [list {*}$list {*}[lrepeat [filler_count [llength $list] $numcolumns] $blank]] *
-    }
-    proc col2 {list numcolumns colindex {blank NULL}} {
-        set numblanks [filler_count [llength $list] $numcolumns]
-        set padded_list [list {*}$list {*}[lrepeat $numblanks $blank]]
-        set splits [lseq 0 to [llength $padded_list] by $numcolumns]
-        set col [list]
-        foreach s [lrange $splits 0 end-1] {
-            lappend col [lindex $padded_list $s+$colindex]
-        }
-        return $col
-    }
-    proc col3 {list numcolumns colindex {blank NULL}} {
-        set padded_list [list {*}$list {*}[lrepeat [filler_count [llength $list] $numcolumns] $blank]]
-        lmap s [lrange [lseq 0 to [llength $padded_list] by $numcolumns] 0 end-1] {lindex $padded_list $s+$colindex}
-    }
-    proc col4 {list numcolumns colindex {blank NULL}} {
-        #slow
-        set vars [lrepeat $numcolumns _]
-        lset vars $colindex v
-        if {$blank eq ""} {
-            return [lmap $vars $list {set v}]
-        }
-        set padded_list [list {*}$list {*}[lrepeat [filler_count [llength $list] $numcolumns] $blank]]
-        lmap $vars [list {*}$list {*}[lrepeat [filler_count [llength $list] $numcolumns] $blank]] {set v}
-    }
-
-    proc block {list numcolumns {blank NULL}} {
-        set colblocks [list]
-        foreach c [cols $list $numcolumns $blank] {
-            lappend colblocks [join $c \n] " "
-        }
-        textblock::join -- {*}$colblocks
-    }
-    proc block2 {list numcolumns {blank NULL}} {
-        set colblocks [list]
-        foreach c [cols2 $list $numcolumns $blank] {
-            lappend colblocks [join $c \n] " "
-        }
-        textblock::join -- {*}$colblocks
-    }
-}
-
-tcl::namespace::eval punk::lib::test {
-
-
-
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#todo - way to generate 'internal' docs separately?
-#*** !doctools
-#[section Internal]
-tcl::namespace::eval punk::lib::system {
-    #*** !doctools
-    #[subsection {Namespace punk::lib::system}]
-    #[para] Internal functions that are not part of the API
-    #[list_begin definitions]
-
-
-    proc mostFactorsBelow {n} {
-        ##*** !doctools
-        #[call [fun mostFactorsBelow] [arg n]]
-        #[para]Find the number below $n which has the greatest number of factors
-        #[para]This will get slow quickly as n increases (100K = 1s+ 2024)
-        set most 0
-        set mostcount 0
-        for {set i 1} {$i < $n} {incr i} {
-            set fc [llength [punk::lib::factors $i]]
-            if {$fc > $mostcount} {
-                set most $i
-                set mostcount $fc
-            }
-        }
-        return [list number $most numfactors $mostcount]
-    }
-    proc factorCountBelow_punk {n} {
-        ##*** !doctools
-        #[call [fun factorCountBelow] [arg n]]
-        #[para]For numbers 1 to n - keep a tally of the total count of factors
-        #[para]This is not useful other than a quick and dirty check that different algorithms return *probably* the same result
-        #[para]and as a rudimentary performance comparison
-        #[para]gets slow quickly!
-        set tally 0
-        for {set i 1} {$i <= $n} {incr i} {
-            incr tally [llength [punk::lib::factors $i]]
-        }
-        return $tally
-    }
-    proc factorCountBelow_numtheory {n} {
-        ##*** !doctools
-        #[call [fun factorCountBelow] [arg n]]
-        #[para]For numbers 1 to n - keep a tally of the total count of factors
-        #[para]This is not useful other than a quick and dirty check that different algorithms return *probably* the same result
-        #[para]and as a rudimentary performance comparison
-        #[para]gets slow quickly! (significantly slower than factorCountBelow_punk)
-        package require math::numtheory
-        set tally 0
-        for {set i 1} {$i <= $n} {incr i} {
-            incr tally [llength [math::numtheory::factors $i]]
-        }
-        return $tally
-    }
-
-    proc factors2 {x} {
-        ##*** !doctools
-        #[call [fun factors2] [arg x]]
-        #[para]Return a sorted list of factors of x
-        #[para]A similar brute-force mechanism to factors - but keeps result ordering as we go.
-        set smallfactors [list 1]
-        set j 2
-        set max [expr {sqrt($x)}]
-        while {$j < $max} {
-            if {($x % $j) == 0} {
-                lappend smallfactors $j
-                lappend largefactors [expr {$x / $j}]
-            }
-            incr j
-        }
-        #handle sqrt outside loop so we don't have to sort/dedup or check list membership in main loop
-        if {($x % $j) == 0} {
-            if {$j == ($x / $j)} {
-                lappend smallfactors $j
-            }
-        }
-        return [concat $smallfactors [lreverse $largefactors] $x]
-    }
-
-
-
-    # incomplete - report which is the innermost bracket/quote etc awaiting completion for a Tcl command
-    #important - used by punk::repl
-    proc incomplete {partial} {
-        #we can apparently get away without concatenating current innerpartial to previous in list - REVIEW.
-        if {[info complete $partial]} {
-            return [list]
-        }
-        set clist [split $partial ""]
-        #puts stderr "-->$clist<--"
-        set waiting [list ""]
-        set innerpartials [list ""]
-        set escaped 0
-        set i 0
-        foreach c $clist {
-            if {$c eq "\\"} {
-                set escaped [expr {!$escaped}]
-                incr i
-                continue
-            } ;# set escaped 0 at end
-            set p [lindex $innerpartials end]
-            if {$escaped == 0} {
-                #NOTE - curly braces as switch arm keys must be unescaped and balanced. (escapes stop byte-compilation to jumpTable for switch statements for tcl8.6/8.7 at least)
-                switch -- $c {
-                    {"} {
-                        if {![info complete ${p}]} {
-                            lappend waiting {"}
-                            lappend innerpartials ""
-                        } else {
-                            if {[lindex $waiting end] eq {"}} {
-                                #this quote is endquote
-                                set waiting [lrange $waiting 0 end-1]
-                                set innerpartials [lrange $innerpartials 0 end-1]
-                            } else {
-                                if {![info complete ${p}$c]} {
-                                    lappend waiting {"}
-                                    lappend innerpartials ""
-                                } else {
-                                    set p ${p}${c}
-                                    lset innerpartials end $p
-                                }
-                            }
-                        }
-                    }
-                    {[} {
-                        if {![info complete ${p}$c]} {
-                            lappend waiting "\]"
-                            lappend innerpartials ""
-                        } else {
-                            set p ${p}${c}
-                            lset innerpartials end $p
-                        }
-                    }
-                    "{" {
-                        if {![info complete ${p}$c]} {
-                            lappend waiting "\}"
-                            lappend innerpartials ""
-                        } else {
-                            set p ${p}${c}
-                            lset innerpartials end $p
-                        }
-                    }
-                    "}" -
-                    default {
-                        set waitingfor [lindex $waiting end]
-                        if {$c eq "$waitingfor"} {
-                            set waiting [lrange $waiting 0 end-1]
-                            set innerpartials [lrange $innerpartials 0 end-1]
-                        } else {
-                            set p ${p}${c}
-                            lset innerpartials end $p
-                        }
-                    }
-                }
-            } else {
-                set p ${p}${c}
-                lset innerpartials end $p
-            }
-            set escaped 0
-            incr i
-        }
-        set incomplete [list]
-        foreach w $waiting {
-            #to be treated as literals - curly braces must be unescaped here - and balanced - hence the left-curly empty arm.
-            switch -- $w {
-                {"} {
-                    lappend incomplete $w
-                }
-                {]} {
-                    lappend incomplete "\["
-                }
-                "{" {}
-                "}" {
-                    lappend incomplete "\{"
-                }
-            }
-        }
-        set debug 0
-        if {$debug} {
-            foreach w $waiting p $innerpartials {
-                puts stderr "->awaiting:'$w'  partial: $p"
-            }
-        }
-        return $incomplete
-    }
-    #This only works for very simple cases will get confused with for example:
-    # {set x "a["""}
-    proc incomplete_naive {partial} {
-        if {[info complete $partial]} {
-            return [list]
-        }
-        set clist [split $partial ""]
-        set waiting [list]
-        set escaped 0
-        foreach c $clist {
-            if {$c eq "\\"} {
-                set escaped [expr {!$escaped}]
-                continue
-            }
-            if {!$escaped} {
-                if {$c eq {"}} {
-                    if {[lindex $waiting end] eq {"}} {
-                        set waiting [lrange $waiting 0 end-1]
-                    } else {
-                        lappend waiting {"}
-                    }
-                } elseif {$c eq "\["} {
-                    lappend waiting "\]"
-                } elseif {$c eq "\{"} {
-                    lappend waiting "\}"
-                } else {
-                    set waitingfor [lindex $waiting end]
-                    if {$c eq "$waitingfor"} {
-                        set waiting [lrange $waiting 0 end-1]
-                    }
-                }
-            }
-        }
-        set incomplete [list]
-        foreach w $waiting {
-            if {$w eq {"}} {
-                lappend incomplete $w
-            } elseif {$w eq "\]"} {
-                lappend incomplete "\["
-            } elseif {$w eq "\}"} {
-                lappend incomplete "\{"
-            }
-        }
-        return $incomplete
-    }
-
-    #get info about punk nestindex key ie type: list,dict,undetermined
-    # pdict devel
-    proc nestindex_info {args} {
-        set argd [punk::args::parse $args withdef {
-            -parent -default ""
-            nestindex
-        }]
-        set opt_parent      [dict get $argd opts -parent]
-        if {$opt_parent eq ""} {
-            set parent_type undetermined
-        } else {
-            set parent_type [nestindex_info -parent "" $opt_parent] ;#make sure we explicitly set parent of parent to empty so we don't just recurse forever doing nothing
-        }
-
-        #???
-
-    }
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::lib::system ---}]
-}
-
-tcl::namespace::eval punk::lib::debug {
-    proc showdict {args} {}
-}
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::lib
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::lib [tcl::namespace::eval punk::lib {
-    variable pkg punk::lib
-    variable version
-    set version 0.1.2
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm
deleted file mode 100644
index f9dfaf56..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm
+++ /dev/null
@@ -1,1800 +0,0 @@
-# -*- tcl -*-
-# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2025
-#
-# @@ Meta Begin
-# Application punk::libunknown 0.1
-# Meta platform     tcl
-# Meta license      MIT
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin shellspy_module_punk::libunknown 0 0.1]
-#[copyright "2025"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}]
-#[require punk::libunknown]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::libunknown
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::libunknown
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-
-tcl::namespace::eval punk::libunknown {
-    # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-    # Base namespace
-    # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-    #*** !doctools
-    #[subsection {Namespace punk::libunknown}]
-    #[para] Core API functions for punk::libunknown
-    #[list_begin definitions]
-
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    variable PUNKARGS
-    variable PUNKARGS_aliases
-    lappend PUNKARGS [list {
-            @id     -id "(package)punk::libunknown"
-            @package    -name "punk::libunknown" -help\
-            "Experimental set of replacements for default 'package unknown' entries."
-        }]
-
-    variable epoch ;#don't set - can be pre-set cooperatively
-
-    variable has_package_files
-    if {[catch {package files foobaz}]} {
-        set has_package_files 0
-    } else {
-        set has_package_files 1
-    }
-
-    if {[info commands ::tcl::Pkg::source] ne ""} {
-        interp alias "" ::punk::libunknown::tcl_Pkg_source "" ::tcl::Pkg::source
-    } else {
-        #early 8.6 - pre tip459?
-        #we don't have
-        #::source -nopkg <file>
-        proc tcl_Pkg_source {filename} {
-            uplevel 1 [list ::source $filename]
-        }
-    }
-
-    #will use standard mechanism for non zipfs paths in the tm list.
-    proc zipfs_tm_UnknownHandler {original name args} {
-        #------------------------------
-        #shortcircuit for builtin static libraries which have no 'package provide' info - review
-        #This occurs for example when running 'bin\runtime.cmd run src\make.tcl shell' with punk902z.exe
-        #
-        #------------------------------
-        set loaded [lsearch -inline -index 1 -nocase [info loaded] $name]
-        if {[llength $loaded] == 2 && [lindex $loaded 0] eq ""} {
-            lassign $loaded _ cased_name
-            interp create ptest
-            ptest eval [list load {} $cased_name]
-            set static_version [ptest eval [list package provide [string tolower $cased_name]]]
-            set pname [string tolower $cased_name]
-            if {$static_version eq ""} {
-                set static_version [ptest eval [list package provide $cased_name]]
-                set pname $cased_name
-            }
-            if {$static_version ne ""} {
-                if {[package vsatisfies $static_version {*}$args]} {
-                    package ifneeded $pname $static_version [list load {} $cased_name]
-                    interp delete ptest
-                    return
-                }
-            }
-            interp delete ptest
-        }
-        #------------------------------
-
-        # Import the list of paths to search for packages in module form.
-        # Import the pattern used to check package names in detail.
-        variable epoch
-        set pkg_epoch [dict get $epoch tm current]
-        set must_scan 0
-        if {[dict exists $epoch tm untracked $name]} {
-            set must_scan 1
-            #a package that was in the package database at the start - is now being searched for as unknown
-            #our epoch info is not reliable for pre-known packages - so increment the epoch and fully clear the 'added' paths even in zipfs to do proper scan
-
-            #review
-            #epoch_incr_pkg clearadded
-            #epoch_incr_tm clearadded
-            #puts ">>>> removing untracked tm: $name"
-            dict unset epoch tm untracked $name
-            #whie it is not the most common configuration - a package could be provided both as a .tm and by packageIndex.tcl files
-        }
-
-        #variable paths
-        upvar ::tcl::tm::paths paths
-        #variable pkgpattern
-        upvar ::tcl::tm::pkgpattern pkgpattern
-
-        # Without paths to search we can do nothing. (Except falling back to the
-        # regular search).
-        set tid [format %-19s -]
-        catch {set tid [thread::id]}
-
-        if {[llength $paths]} {
-            set pkgpath [string map {:: /} $name]
-            set pkgroot [file dirname $pkgpath]
-            if {$pkgroot eq "."} {
-                set pkgroot ""
-            }
-
-            # We don't remember a copy of the paths while looping. Tcl Modules are
-            # unable to change the list while we are searching for them. This also
-            # simplifies the loop, as we cannot get additional directories while
-            # iterating over the list. A simple foreach is sufficient.
-
-            if {[info commands ::tcl::zipfs::root] ne ""} {
-                set zipfsroot [tcl::zipfs::root]
-                set has_zipfs 1
-            } else {
-                set zipfsroot "//zipfs:/" ;#doesn't matter much what we use here - don't expect in tm list if no zipfs commands
-                set has_zipfs 0
-            }
-
-            set satisfied 0
-            foreach path $paths {
-                if {![interp issafe] && ![file exists $path]} {
-                    continue
-                }
-                set currentsearchpath $path
-                set specificsearchpath [file join $path $pkgroot]
-
-                # Get the module files out of the subdirectories.
-                # - Safe Base interpreters have a restricted "glob" command that
-                #   works in this case.
-                # - The "catch" was essential when there was no safe glob and every
-                #   call in a safe interp failed; it is retained only for corner
-                #   cases in which the eventual call to glob returns an error.
-
-                set use_epoch_for_all 1
-                if {$use_epoch_for_all || [string match $zipfsroot* $path]} {
-                    if {!$must_scan && [dict exists $epoch tm epochs $pkg_epoch indexes $specificsearchpath]} {
-                        #indexes are actual .tm files here
-                        set tmfiles [dict keys [dict get $epoch tm epochs $pkg_epoch indexes $specificsearchpath]]
-                        #puts "--->zipfs_tm_UnknownHandler $tid llength tmfiles ( cached ): [format %4d [llength $tmfiles]] name:$name  searchpath:$currentsearchpath"
-                    } else {
-
-                        if {![interp issafe] && ![file exists $specificsearchpath]} {
-                            dict set epoch tm epochs $pkg_epoch indexes $specificsearchpath [dict create]
-                            continue
-                        }
-
-
-                        dict set epoch tm epochs $pkg_epoch indexes $specificsearchpath [dict create]
-
-                        # #################################################################
-                        if {$has_zipfs && [string match $zipfsroot* $path]} {
-                            #The entire tm tre is available so quickly from the zipfs::list call - that we can gather all at once.
-                            set tmfiles [::tcl::zipfs::list $currentsearchpath/*.tm] ;#could theoretically be a dir - this is effectively a tree traversal
-                            foreach tm_path $tmfiles {
-                                dict set epoch tm epochs $pkg_epoch indexes [file dirname $tm_path] $tm_path $pkg_epoch
-                            }
-                            #retrieval using tcl::zipfs::list got (and cached) extras - limit to specificsearchpath
-                            set tmfiles [dict keys [dict get $epoch tm epochs $pkg_epoch indexes $specificsearchpath]]
-                        } else {
-                            #set tmfiles [glob -nocomplain -directory $currentsearchpath *.tm]
-                            set tmfiles [glob -nocomplain -directory $specificsearchpath *.tm]
-                            foreach tm_path $tmfiles {
-                                #dict set epoch tm epochs $pkg_epoch indexes $currentsearchpath $tm_path $pkg_epoch
-                                dict set epoch tm epochs $pkg_epoch indexes $specificsearchpath $tm_path $pkg_epoch
-                            }
-                        }
-                        #puts "--->zipfs_tm_UnknownHandler $tid llength tmfiles (UNcached): [format %4d [llength $tmfiles]] name:$name  searchpath:$currentsearchpath"
-
-                        # #################################################################
-                    }
-                    if {![llength $tmfiles]} {
-                        continue
-                    }
-
-                    # like normal processing - but track added (for static zipfs)
-
-                    set can_skip_update 0
-                    if {[string match $zipfsroot* $path]} {
-                        #static tm location
-                        if {[dict exists $epoch tm epochs $pkg_epoch added $specificsearchpath]} {
-                            if {![dict exists $epoch tm epochs $pkg_epoch added $specificsearchpath $name]} {
-                                #$name wasn't provided by this path before - in static zipfs it shouldn't be necessary to look here again.
-                                #puts stderr "zipfs_tm_UnknownHandler $tid CAN SKIP orig:$original name:$name args:$args searchpath:$currentsearchpath"
-                                set can_skip_update 1
-                            } else {
-                                #if this name is in 'added' then we must have done something like a package forget or it wouldn't come back to package unknown
-                                #dict unset epoch tm epochs $pkg_epoch added $currentsearchpath $name
-                            }
-                        }
-                    }
-
-
-                    if {!$can_skip_update} {
-                        set strip [llength [file split $path]]
-                        set found_name_in_currentsearchpath 0 ;#for negative cache by epoch
-                        if {[catch {
-                            foreach file $tmfiles {
-                                set pkgfilename [join [lrange [file split $file] $strip end] ::]
-
-                                if {![regexp -- $pkgpattern $pkgfilename --> pkgname pkgversion]} {
-                                    # Ignore everything not matching our pattern for
-                                    # package names.
-                                    continue
-                                }
-                                try {
-                                    package vcompare $pkgversion 0
-                                } on error {} {
-                                    # Ignore everything where the version part is not
-                                    # acceptable to "package vcompare".
-                                    continue
-                                }
-
-                                if {([package ifneeded $pkgname $pkgversion] ne {})
-                                    && (![interp issafe])
-                                } {
-                                    # There's already a provide script registered for
-                                    # this version of this package.  Since all units of
-                                    # code claiming to be the same version of the same
-                                    # package ought to be identical, just stick with
-                                    # the one we already have.
-                                    # This does not apply to Safe Base interpreters because
-                                    # the token-to-directory mapping may have changed.
-
-                                    #JMN - review.
-                                    #dict set epoch tm epochs $pkg_epoch added $currentsearchpath $pkgname [dict create e $pkg_epoch v $pkgversion]
-                                    dict set epoch tm epochs $pkg_epoch added $currentsearchpath $pkgname $pkgversion e$pkg_epoch
-                                    if {$must_scan} {
-                                        #however - if we know we're forced to scan all tm paths we can remove discovered sibling tms from tm untracked
-                                        dict unset epoch tm untracked $pkgname
-                                    }
-                                    if {$pkgname eq $name} {
-                                        #can occur multiple times, different versions
-                                        #record package name as found in this path whether version satisfies or not
-                                        set found_name_in_currentsearchpath 1
-                                    }
-                                    #don't override the ifneeded script - for tm files the first encountered 'wins'.
-                                    continue
-                                }
-
-                                # We have found a candidate, generate a "provide script"
-                                # for it, and remember it.  Note that we are using ::list
-                                # to do this; locally [list] means something else without
-                                # the namespace specifier.
-
-                                # NOTE. When making changes to the format of the provide
-                                # command generated below CHECK that the 'LOCATE'
-                                # procedure in core file 'platform/shell.tcl' still
-                                # understands it, or, if not, update its implementation
-                                # appropriately.
-                                #
-                                # Right now LOCATE's implementation assumes that the path
-                                # of the package file is the last element in the list.
-
-                                package ifneeded $pkgname $pkgversion \
-                                "[::list package provide $pkgname $pkgversion];[::list source $file]"
-
-                                #JMN
-                                #store only once for each name, although there may be multiple versions of same package within this searchpath
-                                #dict set epoch tm epochs $pkg_epoch added $currentsearchpath $pkgname [dict create e $pkg_epoch v $pkgversion]
-                                dict set epoch tm epochs $pkg_epoch added $currentsearchpath $pkgname $pkgversion e$pkg_epoch
-                                #pkgname here could be the 'name' passed at the beggning - or other .tms at the same location.
-                                #we can't always remove other .tms from 'tm untracked' because the search for name might skip some locations.
-                                if {$must_scan} {
-                                    #however - if we know we're forced to scan all tm paths we can remove discovered sibling tms from tm untracked
-                                    dict unset epoch tm untracked $pkgname
-                                }
-
-                                # We abort in this unknown handler only if we got a
-                                # satisfying candidate for the requested package.
-                                # Otherwise we still have to fallback to the regular
-                                # package search to complete the processing.
-
-                                if {($pkgname eq $name)
-                                    && [package vsatisfies $pkgversion {*}$args]} {
-                                    set satisfied 1
-
-                                    # We do not abort the loop, and keep adding provide
-                                    # scripts for every candidate in the directory, just
-                                    # remember to not fall back to the regular search
-                                    # anymore.
-                                    #(obsolete for libunknown - review)
-                                }
-
-                                if {$pkgname eq $name} {
-                                    #can occur multiple times, different versions
-                                    #record package name as found in this path whether version satisfies or not
-                                    set found_name_in_currentsearchpath 1
-                                }
-                            }
-                        } errMsg]} {
-                            puts stderr "zipfs_tm_Unknownhandler: error for tm file $file searchpath:$currentsearchpath"
-                        }
-                    }
-
-                } else {
-                    #non zipfs tm path - normal processing
-                    # We always look for _all_ possible modules in the current
-                    # path, to get the max result out of the glob.
-                    set tmfiles [glob -nocomplain -directory $currentsearchpath *.tm]
-                    set strip [llength [file split $path]]
-                    catch {
-                        foreach file $tmfiles {
-                            set pkgfilename [join [lrange [file split $file] $strip end] ::]
-
-                            if {![regexp -- $pkgpattern $pkgfilename --> pkgname pkgversion]} {
-                                # Ignore everything not matching our pattern for
-                                # package names.
-                                continue
-                            }
-                            try {
-                                package vcompare $pkgversion 0
-                            } on error {} {
-                                # Ignore everything where the version part is not
-                                # acceptable to "package vcompare".
-                                continue
-                            }
-
-                            if {([package ifneeded $pkgname $pkgversion] ne {})
-                                && (![interp issafe])
-                            } {
-                                # There's already a provide script registered for
-                                # this version of this package.  Since all units of
-                                # code claiming to be the same version of the same
-                                # package ought to be identical, just stick with
-                                # the one we already have.
-                                # This does not apply to Safe Base interpreters because
-                                # the token-to-directory mapping may have changed.
-                                continue
-                            }
-
-                            # We have found a candidate, generate a "provide script"
-                            # for it, and remember it.  Note that we are using ::list
-                            # to do this; locally [list] means something else without
-                            # the namespace specifier.
-
-                            # NOTE. When making changes to the format of the provide
-                            # command generated below CHECK that the 'LOCATE'
-                            # procedure in core file 'platform/shell.tcl' still
-                            # understands it, or, if not, update its implementation
-                            # appropriately.
-                            #
-                            # Right now LOCATE's implementation assumes that the path
-                            # of the package file is the last element in the list.
-
-                            package ifneeded $pkgname $pkgversion \
-                            "[::list package provide $pkgname $pkgversion];[::list source $file]"
-
-                            # We abort in this unknown handler only if we got a
-                            # satisfying candidate for the requested package.
-                            # Otherwise we still have to fallback to the regular
-                            # package search to complete the processing.
-
-                            if {($pkgname eq $name)
-                                && [package vsatisfies $pkgversion {*}$args]} {
-                            set satisfied 1
-
-                            # We do not abort the loop, and keep adding provide
-                            # scripts for every candidate in the directory, just
-                            # remember to not fall back to the regular search
-                            # anymore.
-                            }
-                        }
-                    }
-
-                }
-                    ##ZZZ
-
-            }
-
-            #if {$satisfied} {
-            #    return
-            #}
-        }
-
-        # Fallback to previous command, if existing.  See comment above about
-        # ::list...
-
-        if {[llength $original]} {
-            #puts "zipfs_tm_UnknownHandler passing on to: $original [::linsert $args 0 $name]"
-            uplevel 1 $original [::linsert $args 0 $name]
-        }
-    }
-    proc zipfs_tclPkgUnknown {name args} {
-        #puts "-> zipfs_tclPkgUnknown $name $args EXPERIMENTAL"
-
-        variable epoch
-        set pkg_epoch [dict get $epoch pkg current]
-
-        #review - the ifneeded script is not the only thing required in a new interp.. consider tclIndex files and auto_load mechanism.
-        #also the pkgIndex.tcl could possibly provide a different ifneeded script based on interp issafe (or other interp specific things?)
-        #if {[dict exists $epoch scripts $name]} {
-        #    set vscripts [dict get $epoch scripts $name]
-        #    dict for {v scr} $vscripts {
-        #        puts ">package ifneeded $name $v"
-        #        package ifneeded $name $v $scr
-        #    }
-        #    return
-        #}
-        set must_scan 0
-        if {[dict exists $epoch pkg untracked $name]} {
-            #a package that was in the package database at the start - is now being searched for as unknown
-            #(due to a package forget?)
-            #our epoch info is not valid for pre-known packages - so setting must_scan to true
-            set must_scan 1
-            #puts ">>>> removing pkg untracked: $name"
-            dict unset epoch pkg untracked $name
-        }
-
-        #global auto_path env
-        global auto_path
-
-        if {![info exists auto_path]} {
-            return
-        }
-
-        set tid [format %-19s -]
-        catch {set tid [thread::id]}
-
-        if {[info commands ::tcl::zipfs::root] ne ""} {
-            set zipfsroot [tcl::zipfs::root]
-            set has_zipfs 1
-        } else {
-            set zipfsroot "//zipfs:/" ;#doesn't matter too much what we use here - don't expect in tm list if no zipfs commands
-            set has_zipfs 0
-        }
-
-
-        #review - think about this
-        #typical dict size might be 800 packages - values are versions
-        #we probably don't need to create/destroy it for each iteration of the wile.
-        #question is whether some pkgIndex.tcl files may do a package forget? They probably don't/shouldn't(?) Does that matter here anyway?
-        set before_dict [dict create]
-
-        #J2
-        #siblings that have been affected by source scripts - need to retest ifneeded scripts at end for proper ordering.
-        set refresh_dict [dict create]
-
-        #Note that autopath is being processed from the end to the front
-        #ie last lappended first. This means if there are duplicate versions earlier in the list,
-        #they will be the last to call 'package provide' for that version and so their provide script will 'win'.
-        #This means we should have faster filesystems such as zipfs earlier in the list.
-
-        # Cache the auto_path, because it may change while we run through the
-        # first set of pkgIndex.tcl files
-        set old_path [set use_path $auto_path]
-        while {[llength $use_path]} {
-            set dir [lindex $use_path end]
-
-
-            # Make sure we only scan each directory one time.
-            if {[info exists tclSeenPath($dir)]} {
-                set use_path [lrange $use_path 0 end-1]
-                continue
-            }
-            set tclSeenPath($dir) 1
-
-            # Get the pkgIndex.tcl files in subdirectories of auto_path directories.
-            # - Safe Base interpreters have a restricted "glob" command that
-            #   works in this case.
-            # - The "catch" was essential when there was no safe glob and every
-            #   call in a safe interp failed; it is retained only for corner
-            #   cases in which the eventual call to glob returns an error.
-
-            set use_epoch_for_all 1
-            if {$use_epoch_for_all || [string match $zipfsroot* $dir]} {
-                set currentsearchpath $dir
-                if {!$must_scan && [dict exists $epoch pkg epochs $pkg_epoch indexes $currentsearchpath]} {
-                    set indexfiles [dict keys [dict get $epoch pkg epochs $pkg_epoch indexes $currentsearchpath]]
-                    #puts stderr "--->zipfs_tclPkgUnknown     $tid llength tmfiles ( cached ): [format %4d [llength $indexfiles]] name:$name  searchpath:$currentsearchpath"
-                } else {
-                    dict set epoch pkg epochs $pkg_epoch indexes $currentsearchpath [dict create]
-                    # #################################################################
-                    set indexpaths [glob -directory $currentsearchpath -join -nocomplain * pkgIndex.tcl]
-                    foreach idxpath $indexpaths {
-                        dict set epoch pkg epochs $pkg_epoch indexes $currentsearchpath $idxpath 1
-                    }
-                    set indexfiles [dict keys [dict get $epoch pkg epochs $pkg_epoch indexes $currentsearchpath]]
-                    #puts stderr "--->zipfs_tclPkgUnknown     $tid llength tmfiles (UNcached): [format %4d [llength $indexfiles]] name:$name  searchpath:$currentsearchpath"
-                    # #################################################################
-                }
-                if {![llength $indexfiles]} {
-                    continue
-                }
-
-                set can_skip_sourcing 0
-                #if {$has_zipfs && [string match $zipfsroot* $dir]} {
-                    #static auto_path dirs
-                    if {!$must_scan} {
-                        if {[dict exists $epoch pkg epochs $pkg_epoch added $currentsearchpath]} {
-                            if {![dict exists $epoch pkg epochs $pkg_epoch added $currentsearchpath $name]} {
-                                #$name wasn't provided by this path before - in static zipfs it shouldn't be necessary to look here again.
-                                #puts stderr "zipfs_tclPkgUnknown $tid CAN SKIP $name currentsearchpath:$currentsearchpath"
-                                set can_skip_sourcing 1
-                            } else {
-                                #if this name is in added then we must have done a package forget or it wouldn't come back to package unknown ?
-                                #remove it and let it be readded if it's still provided by this path?
-                                #probably doesn't make sense for static path?
-                                #dict unset epoch pkg epochs $pkg_epoch added $currentsearchpath $name
-                            }
-                        }
-                    }
-                #}
-
-
-
-                #An edge case exception is that after a package forget, a deliberate call to 'package require non-existant'
-                #will not trigger rescans for all versions of other packages.
-                #A rescan of a specific package for all versions can still be triggered with a package require for
-                #an exact non-existant version. e.g package require md5 0-0
-                #(or misordered min max e.g package require md5 1-0 i.e a deliberately unsatisfiable version range)
-
-                set sourced 0
-                set just_added      [dict create]
-                set just_changed    [dict create]
-                #set sourced_files [list]
-
-                #J2
-                #set can_skip_sourcing 0
-
-                if {!$can_skip_sourcing} {
-                    #Note - naive comparison of before_pkgs vs after_pkgs isn't quite enough to tell if something was added. It could have added a version.
-                    #this will stop us rescanning everything properly by doing a 'package require nonexistant'
-
-                    #use 'info exists' to only call package names once and then append?
-                    #This could be problematic? (re-entrant tclPkgUnknown in some pkgIndex scripts?) pkgIndex.tcl scripts "shouldn't" do this?
-                    if {![info exists before_pkgs]} {
-                        set before_pkgs [package names]
-                        #update the before_dict which persists across while loop
-                        #we need to track the actual 'ifneeded' script not just version numbers,
-                        #because the last ifneeded script processed for each version is the one that ultimately applies.
-                        foreach bp $before_pkgs {
-                            #dict set before_dict $bp [package versions $bp]
-                            foreach v [package versions $bp] {
-                                dict set before_dict $bp $v [package ifneeded $bp $v]
-                            }
-                        }
-                    }
-                    #set before_pkgs [package names]
-
-                    #catch {
-                        foreach file $indexfiles {
-                            set dir [file dirname $file]
-                            if {![info exists procdDirs($dir)]} {
-                                try {
-                                    #if {[string match //zipfs*registry* $file]} {
-                                    #    puts stderr "----->0 sourcing zipfs file $file"
-                                    #}
-                                    incr sourced ;#count as sourced even if source fails; keep before actual source action
-                                    #::tcl::Pkg::source $file
-                                    #lappend sourced_files $file
-                                    tcl_Pkg_source $file
-                                } trap {POSIX EACCES} {} {
-                                    # $file was not readable; silently ignore
-                                    puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (1)"
-                                    continue
-                                } on error msg {
-                                    if {[regexp {version conflict for package} $msg]} {
-                                        # In case of version conflict, silently ignore
-                                        puts stderr "zipfs_tclPkgUnknown version conflict sourcing '$file' while trying to load $name (1)\nmsg:$msg"
-                                        continue
-                                    }
-                                    tclLog "error reading package index file $file: $msg"
-                                } on ok {} {
-                                    set procdDirs($dir) 1
-                                }
-                            }
-                            #each source operation could affect auto_path - and thus increment the pkg epoch (via trace on ::auto_path)
-                            #e.g tcllib pkgIndex.tcl appends to auto_path
-                            set pkg_epoch [dict get $epoch pkg current]
-                        }
-                    #}
-                    set dir [lindex $use_path end]
-                    if {![info exists procdDirs($dir)]} {
-                        set file [file join $dir pkgIndex.tcl]
-                        # safe interps usually don't have "file exists",
-                        if {([interp issafe] || [file exists $file])} {
-                            try {
-                                #puts "----->2 sourcing $file"
-                                incr sourced
-                                #lappend sourced_files $file
-                                #::tcl::Pkg::source $file
-                                tcl_Pkg_source $file
-                            } trap {POSIX EACCES} {} {
-                                # $file was not readable; silently ignore
-                                puts stderr "zipfs_tclPkgUnknown file unreadable '$file' while trying to load $name (2)"
-                                continue
-                            } on error msg {
-                                if {[regexp {version conflict for package} $msg]} {
-                                    # In case of version conflict, silently ignore
-                                    puts stderr "zipfs_tclPkgUnknown version conflict sourcing '$file' while trying to load $name (2)\nmsg:$msg"
-                                    continue
-                                }
-                                tclLog "error reading package index file $file: $msg"
-                            } on ok {} {
-                                set procdDirs($dir) 1
-                            }
-                            set pkg_epoch [dict get $epoch pkg current]
-                        }
-                    }
-                    #dict set epoch pkg epochs $pkg_epoch added $currentsearchpath [dict create]
-
-                    #avoid calculating package and version diffs if nothing was actually sourced
-                    if {$sourced > 0} {
-                        if {![dict exists $epoch pkg epochs $pkg_epoch added $currentsearchpath]} {
-                            dict set epoch pkg epochs $pkg_epoch added $currentsearchpath [dict create]
-                            #ensure there is an empty entry for the path if no packages added or changed versions
-                        }
-
-                        set after_pkgs [package names]
-                        #puts "@@@@pkg epochs $pkg_epoch searchpath:$currentsearchpath name:$name before: [llength $before_pkgs] after: [llength $after_pkgs]"
-                        if {[llength $after_pkgs] > [llength $before_pkgs]} {
-                            foreach a $after_pkgs {
-                                foreach v [package versions $a] {
-                                    if {![dict exists $before_dict $a $v]} {
-                                        dict set just_added $a $v 1
-                                        set iscript [package ifneeded $a $v]
-                                        #J2
-                                        #dict set epoch pkg epochs $pkg_epoch added $currentsearchpath $a [dict create e $pkg_epoch v $v]
-                                        dict set epoch pkg epochs $pkg_epoch added $currentsearchpath $a $v [dict create e $pkg_epoch scr $iscript]
-                                        if {$must_scan} {
-                                            dict unset epoch pkg untracked $a
-                                        }
-                                    }
-                                }
-                            }
-                        }
-
-                        #-----------------
-                        #if {[dict size $just_added]} {
-                        #    puts stderr "\x1b\[31m>>>zipfs_tclPkgUnknown called on name:$name added [dict size $just_added] from searchpath:$currentsearchpath\x1b\[m"
-                        #    puts stderr ">>> [join [lrange [dict keys $just_added] 0 10] \n]..."
-                        #} else {
-                        #    tclLog ">>>zipfs_tclPkgUnknown called on name:$name Nothing added for searchpath:$currentsearchpath"
-                        #    if {[string match twapi* $name]} {
-                        #        tclLog ">>>zipfs_tclPkgUnknown: sourced_files:"
-                        #        foreach f $sourced_files {
-                        #            puts ">>> $f"
-                        #        }
-                        #    }
-                        #    if {$currentsearchpath in "//zipfs:/app //zipfs:/app/tcl_library"} {
-                        #        puts "  before_pkgs: [llength $before_pkgs]"
-                        #        puts "  lsearch msgcat: [lsearch $before_pkgs msgcat]"
-                        #        puts "  after_pkgs:  [llength $after_pkgs]"
-                        #        puts "  \x1b\31mlsearch msgcat: [lsearch $after_pkgs msgcat]\x1b\[m"
-                        #        if {[lsearch $after_pkgs msgcat] >=0} {
-                        #            set versions [package versions msgcat]
-                        #            puts "msgcat versions: $versions"
-                        #            foreach v $versions {
-                        #                puts "\x1b\[32m $v ifneeded: [package ifneeded msgcat $v] \x1b\[m"
-                        #            }
-                        #        }
-                        #    }
-                        #}
-                        #-----------------
-
-                        #review - just because this searchpath didn't add a package or add a version for the package
-                        #it doesn't mean there wasn't a version of this package supplied there
-                        #It may just be the same version as one we've already found.
-                        #The last one found (earlier in auto_path) for a version is the one that supplies the final 'package provide' statement (by overriding it)
-                        #
-                        dict for {bp bpversionscripts} $before_dict {
-                            #if {!$must_scan && ![dict exists $epoch pkg epochs $pkg_epoch added $currentsearchpath $bp]} {
-                            #    #puts -nonewline .
-                            #    continue
-                            #}
-                            dict for {bv bscript} $bpversionscripts {
-                                set nowscript [package ifneeded $bp $bv]
-                                if {$bscript ne $nowscript} {
-                                    #ifneeded script has changed. The same version of bp was supplied on this path.
-                                    #As it's processed later - it will be the one in effect.
-                                    #dict set epoch pkg epochs $pkg_epoch added $currentsearchpath $bp [dict create e $pkg_epoch v $bv]
-                                    dict set epoch pkg epochs $pkg_epoch added $currentsearchpath $bp $bv [dict create e $pkg_epoch scr $nowscript]
-                                    dict set before_dict $bp $bv $nowscript
-                                    dict set just_changed $bp $bv 1
-                                    #j2
-                                    if {$must_scan} {
-                                        dict unset epoch pkg untracked $bp
-                                    }
-                                }
-                            }
-                        }
-
-                        #update before_pkgs & before_dict for next path
-                        dict for {newp vdict} $just_added {
-                            if {$newp ni $before_pkgs} {
-                                lappend before_pkgs $newp
-                            }
-                            dict for {v _} $vdict {
-                                set nowscript [package ifneeded $newp $v]
-                                dict set before_dict $newp $v $nowscript
-                            }
-                        }
-                    }
-                }
-
-            } else {
-                #normal processing - not a static filesystem - we can't skip.
-                set indexfiles [glob -directory $dir -join -nocomplain * pkgIndex.tcl]
-                catch {
-                    foreach file $indexfiles {
-                        set dir [file dirname $file]
-                        if {![info exists procdDirs($dir)]} {
-                            try {
-                                #puts "----->1 sourcing $file"
-                                ::tcl::Pkg::source $file
-                            } trap {POSIX EACCES} {} {
-                                # $file was not readable; silently ignore
-                                continue
-                            } on error msg {
-                                if {[regexp {version conflict for package} $msg]} {
-                                    # In case of version conflict, silently ignore
-                                    continue
-                                }
-                                tclLog "error reading package index file $file: $msg"
-                            } on ok {} {
-                                set procdDirs($dir) 1
-                            }
-                        }
-                    }
-                }
-
-                set dir [lindex $use_path end]
-                if {![info exists procdDirs($dir)]} {
-                    set file [file join $dir pkgIndex.tcl]
-                    # safe interps usually don't have "file exists",
-                    if {([interp issafe] || [file exists $file])} {
-                        try {
-                            #puts "----->2 sourcing $file"
-                            ::tcl::Pkg::source $file
-                        } trap {POSIX EACCES} {} {
-                            # $file was not readable; silently ignore
-                            continue
-                        } on error msg {
-                            if {[regexp {version conflict for package} $msg]} {
-                                # In case of version conflict, silently ignore
-                                continue
-                            }
-                            tclLog "error reading package index file $file: $msg"
-                        } on ok {} {
-                            set procdDirs($dir) 1
-                        }
-                    }
-                }
-
-            }
-
-
-            set use_path [lrange $use_path 0 end-1]
-
-            # Check whether any of the index scripts we [source]d above set a new
-            # value for $::auto_path.  If so, then find any new directories on the
-            # $::auto_path, and lappend them to the $use_path we are working from.
-            # This gives index scripts the (arguably unwise) power to expand the
-            # index script search path while the search is in progress.
-            set index 0
-            if {[llength $old_path] == [llength $auto_path]} {
-                foreach dir $auto_path old $old_path {
-                    if {$dir ne $old} {
-                        # This entry in $::auto_path has changed.
-                        break
-                    }
-                    incr index
-                }
-            }
-
-            # $index now points to the first element of $auto_path that has
-            # changed, or the beginning if $auto_path has changed length Scan the
-            # new elements of $auto_path for directories to add to $use_path.
-            # Don't add directories we've already seen, or ones already on the
-            # $use_path.
-            foreach dir [lrange $auto_path $index end] {
-                if {![info exists tclSeenPath($dir)] && ($dir ni $use_path)} {
-                    lappend use_path $dir
-                }
-            }
-            set old_path $auto_path
-
-            dict for {pkg versions} $just_changed {
-                foreach v [dict keys $versions] {
-                    dict set refresh_dict $pkg $v 1
-                }
-            }
-            dict for {pkg versions} $just_added {
-                foreach v [dict keys $versions] {
-                    dict set refresh_dict $pkg $v 1
-                }
-            }
-        }
-
-        #refresh ifneeded scripts for just_added/just_changed
-        #review: searchpaths are in auto_path order - earliest has precedence for any particular pkg-version
-
-        #REVIEW: what is to stop an auto_path package e.g from os, overriding a .tm ifneeded script from an item earlier in the package_mode list configured in punk's main.tcl?
-        #e.g when package_mode is {dev-os} we don't want a pkgIndex package from ::env(TCLLIBPATH) overriding a .tm from the dev paths (even if version nums the same)
-        #conversely we do want a dev path pkIndex package overriding an existing ifneeded script from a .tm in os
-        #to accomodate this - we may need to maintain a subdict in epoch of paths/path-prefixes to package_mode members os, dev, internal
-
-        #this 'refresh' is really a 'reversion' to what was already stored in epoch pkg epochs <currente> added
-        #
-
-        set e [dict get $epoch pkg current]
-        set pkgvdone [dict create]
-        set dict_added [dict get $epoch pkg epochs $e added]
-        #keys are in reverse order due to tclPkgUnknown processing order
-        set ordered_searchpaths [lreverse [dict keys $dict_added]];# ordered as in auto_path
-
-        #JN todo - look at tm epochs
-        dict for {pkg versiond} $refresh_dict {
-            set versions [dict keys $versiond]
-            #puts stderr "---->pkg:$pkg versions: $versions"
-            foreach searchpath $ordered_searchpaths {
-                set addedinfo [dict get $dict_added $searchpath]
-                set vidx -1
-                foreach v $versions {
-                    incr vidx
-                    if {[dict exists $addedinfo $pkg $v]} {
-                        ledit versions $vidx $vidx ;incr vidx -1 ;#maintain vidx as index into current state of $versions - not original state the foreach operates across.
-                        set iscript [dict get $addedinfo $pkg $v scr]
-                        #todo - find the iscript in the '$epoch pkg epochs <e> added paths' lists and determine os vs dev vs internal
-                        #(scanning for path directly in the ifneeded script for pkgs is potentially error prone)
-                        #for .tm ifneeded scripts - the syntax is simple enough to determine directly (and ifneeded scr not stored for those anyway)
-                        set justaddedscript [package ifneeded $pkg $v]
-                        if {$justaddedscript ne $iscript} {
-                            #puts "---->refreshing $pkg $v  - reverting to already stored from path:$searchpath versions: $versions"
-                            package ifneeded $pkg $v $iscript
-                            #dict set pkgvdone $pkg $v 1
-                        }
-                    }
-                }
-                if {[llength $versions] == 0} {
-                    break
-                }
-            }
-        }
-
-
-        #puts "zipfs_tclPkgUnknown DONE"
-    }
-    variable last_auto_path
-    variable last_tm_paths
-    proc epoch_incr_pkg {args} {
-        if {[catch {
-            variable last_auto_path
-            global auto_path
-            upvar ::punk::libunknown::epoch epoch
-            dict set epoch scripts {}
-            set prev_e [dict get $epoch pkg current]
-            set current_e [expr {$prev_e + 1}]
-            # -------------
-            #puts stderr "--> pkg epoch $prev_e -> $current_e"
-            #puts stderr "args: $args"
-            #puts stderr "last_auto: $last_auto_path"
-            #puts stderr "auto_path: $auto_path"
-            # -------------
-            if {[llength $auto_path] > [llength $last_auto_path] && [punk::libunknown::lib::is_list_all_in_list $last_auto_path $auto_path]} {
-                #The auto_path changed, and is a pure addition of entry/entries
-                #commonly this is occurs where a single entry is added by a pkgIndex.Tcl
-                #e.g tcllib adds its base dir so that all pkgIndex.tcl files in subdirs are subsequently found
-                #consider autopath
-                #c:/libbase //zipfs:/app/libbase
-                #if both contain a tcllib folder with pkgIndex.tcl that extends auto_path, the auto_path extends as follows:
-                # -> c:/libbase //zipfs:/app/libbase //zipfs:/app/libbase/tcllib
-                # -> c:/libbase //zipfs:/app/libbase //zipfs:/app/libbase/tcllib c:/libbase/tcllib
-
-                #the tclPkgUnknown usedir loop (working from end of list towards beginning) will process these changes the first time dynamically
-                #as they occur:
-                #ie //zipfs:/app/libbase //zipfs:/app/libbase/tcllib c:/libbase c:/libbase/tcllib
-
-                #A subsequent scan by tclPkgUnknown on the extended auto_path would process in the order:
-                #c:/libbase/tcllib c:/libbase //zipfs:/app/libbase/tcllib //zipfs:/app/libbase
-
-                #re-order the new additions to come immediately following the longest common prefix entry
-
-                set newitems [punk::libunknown::lib::ldiff $auto_path $last_auto_path]
-
-                set update $last_auto_path
-                #no ledit or punk::lib::compat::ledit for 8.6 - so use linsert
-                foreach new $newitems {
-                    set offset 0
-                    set has_prefix 0
-                    foreach ap [lreverse $update] {
-                        if {[string match $ap* $new]} {
-                            set has_prefix 1
-                            break
-                        }
-                        incr offset
-                    }
-                    if {$has_prefix} {
-                        set update [linsert $update end-$offset $new]
-                    } else {
-                        lappend update $new
-                    }
-                }
-                set auto_path $update
-
-
-            }
-            #else - if auto_path change wasn't just extra entries - leave as user specified
-            #review.
-
-            set last_auto_path $auto_path
-            # -------------
-            dict set epoch pkg current $current_e
-            dict set epoch pkg epochs $current_e [dict create]
-            if {[info commands ::tcl::zipfs::root] ne ""} {
-                set has_zipfs 1
-            } else {
-                set has_zipfs 0
-            }
-
-            if {[dict exists $epoch pkg epochs $prev_e indexes]} {
-                #bring across each previous 'indexes' record *if* searchpath is within zipfs root static filesystem
-                # and searchpath is still a path below  an auto_path entry.
-                if {$has_zipfs} {
-                    set zroot [zipfs root]
-                    dict for {searchpath indexfiles} [dict get $epoch pkg epochs $prev_e indexes] {
-                        if {[string match $zroot* $searchpath]} {
-                            set stillvalid 0
-                            foreach a $auto_path {
-                                if {[string match $a* $searchpath]} {
-                                    set stillvalid 1
-                                    break
-                                }
-                            }
-                            if {$stillvalid} {
-                                dict set epoch pkg epochs $current_e indexes $searchpath $indexfiles
-                            }
-                        }
-                    }
-                }
-
-                #----------------------------------------
-                #store basic stats for previous epoch instead of all data.
-                set index_searchpath_count [dict size [dict get $epoch pkg epochs $prev_e indexes]]
-                set index_count 0
-                dict for {searchpath indexfiles} [dict get $epoch pkg epochs $prev_e indexes] {
-                    #update prev epoch to be basic statistical info only
-                    incr index_count [llength $indexfiles]
-                }
-                dict set epoch pkg epochs $prev_e indexes_history [dict create searchpath_count $index_searchpath_count index_count $index_count]
-                dict unset epoch pkg epochs $prev_e indexes
-                #----------------------------------------
-            } else {
-                dict set epoch pkg epochs $prev_e indexes_history [dict create searchpath_count 0 index_count 0]
-            }
-            if {[dict exists $epoch pkg epochs $prev_e added]} {
-                if {"clearadded" in $args} {
-                    dict set epoch pkg epochs $current_e added [dict create]
-                } else {
-                    if {$has_zipfs} {
-                        set zroot [zipfs root]
-                        set prev_added [dict get $epoch pkg epochs $prev_e added]
-                        set keep_added [dict filter $prev_added key $zroot*]
-                        #bring across - each lib will have previous epoch number as the value indicating epoch in which it was found
-                        #dict set epoch pkg epochs $current_e added [dict get $epoch pkg epochs $prev_e added]
-                        dict set epoch pkg epochs $current_e added $keep_added
-                    } else {
-                        dict set epoch pkg epochs $current_e added [dict create]
-                    }
-                }
-
-                #store basic stats for previous epoch
-                #------------------------------------
-                set index_searchpath_count [dict size [dict get $epoch pkg epochs $prev_e added]]
-                set lib_count 0
-                dict for {searchpath libinfo} [dict get $epoch pkg epochs $prev_e added] {
-                    dict for {lib e} $libinfo {
-                        if {$e == $prev_e} {
-                            incr lib_count
-                        }
-                    }
-                }
-                dict set epoch pkg epochs $prev_e added_history [dict create searchpath_count $index_searchpath_count lib_count $lib_count]
-                dict unset epoch pkg epochs $prev_e added
-                #------------------------------------
-            } else {
-                dict set epoch pkg epochs $prev_e added_history [dict create searchpath_count 0 lib_count 0]
-            }
-        } errM]} {
-            puts stderr "epoch_incr_pkg error\n $errM\n$::errorInfo"
-        }
-    }
-    proc epoch_incr_tm {args} {
-        if {[catch {
-            upvar ::punk::libunknown::epoch epoch
-            dict set epoch scripts {}
-            set prev_e [dict get $epoch tm current]
-            set current_e [expr {$prev_e + 1}]
-            dict set epoch tm current $current_e
-            dict set epoch tm epochs $current_e [dict create]
-            set tmlist [tcl::tm::list]
-            if {[info commands ::tcl::zipfs::root] ne ""} {
-                set has_zipfs 1
-            } else {
-                set has_zipfs 0
-            }
-            if {[dict exists $epoch tm epochs $prev_e indexes]} {
-                #bring across the previous indexes records if static filesystem (zipfs)
-                if {$has_zipfs} {
-                    set zroot [zipfs root]
-                    dict for {searchpath indexfiles} [dict get $epoch tm epochs $prev_e indexes] {
-                        if {[string match $zroot* $searchpath]} {
-                            #check all valid for current state of tcl::tm::list
-                            set stillvalid 0
-                            foreach tm_path $tmlist {
-                                if {[string match $tm_path* $searchpath]} {
-                                    set stillvalid 1
-                                    break
-                                }
-                            }
-                            if {$stillvalid} {
-                                dict set epoch tm epochs $current_e indexes $searchpath $indexfiles
-                            }
-                        }
-                    }
-                }
-                set index_searchpath_count [dict size [dict get $epoch tm epochs $prev_e indexes]]
-                set index_count 0
-                dict for {searchpath indexfiles} [dict get $epoch tm epochs $prev_e indexes] {
-                    #update prev epoch to be basic statistical info only
-                    incr index_count [llength $indexfiles]
-                }
-                dict set epoch tm epochs $prev_e indexes_history [dict create searchpath_count $index_searchpath_count index_count $index_count]
-                dict unset epoch tm epochs $prev_e indexes
-            } else {
-                dict set epoch tm epochs $prev_e indexes_history [dict create searchpath_count 0 index_count 0]
-            }
-            if {[dict exists $epoch tm epochs $prev_e added]} {
-                #todo? cycle through non-statics and add pkgs to pkg untracked if we are deleting 'added' records?
-                if {"clearadded" in $args} {
-                    dict set epoch tm epochs $current_e added [dict create]
-                } else {
-                    #bring across - each lib will have previous epoch number
-                    #dict set epoch tm epochs $current_e added [dict get $epoch tm epochs $prev_e added]
-                    if {$has_zipfs} {
-                        set zroot [zipfs root]
-                        dict set epoch tm epochs $current_e added [dict filter [dict get $epoch tm epochs $prev_e added] key $zroot*]
-                    } else {
-                        dict set epoch tm epochs $current_e added [dict create]
-                    }
-                }
-
-
-                set index_searchpath_count [dict size [dict get $epoch tm epochs $prev_e added]]
-                set lib_count 0
-                dict for {searchpath libinfo} [dict get $epoch tm epochs $prev_e added] {
-                    dict for {lib e} $libinfo {
-                        if {$e == $prev_e} {
-                            incr lib_count
-                        }
-                    }
-                }
-                dict set epoch tm epochs $prev_e added_history [dict create searchpath_count $index_searchpath_count lib_count $lib_count]
-                dict unset epoch tm epochs $prev_e added
-            } else {
-                dict set epoch tm epochs $prev_e added_history [dict create searchpath_count 0 lib_count 0]
-            }
-
-        } errM]} {
-            puts stderr "epoch_incr_tm error\n $errM"
-        }
-    }
-
-    #see what basic info we can gather *quickly* about the indexes for each version of a pkg that the package db knows about.
-    #we want no calls out to the actual filesystem - but we can use some 'file' calls such as 'file dirname', 'file split' (review -safe interp problem)
-    #in practice the info is only available for tm modules
-    proc packagedb_indexinfo {pkg} {
-        if {[string match ::* $pkg]} {
-            error "packagedb_indexinfo: package name required - not a fully qualified namespace beginning with :: Received:'$pkg'"
-        }
-        set versions [lsort -command {package vcompare} [package versions $pkg]]
-        if {[llength $versions] == 0} {
-            set v [package provide $pkg]
-        }
-        set versionlist [list]
-        foreach v $versions {
-            set ifneededscript [package ifneeded $pkg $v]
-            if {[string trim $ifneededscript] eq ""} {
-                lappend versionlist [list $v type unknown index "" indexbase ""]
-                continue
-            }
-            set scriptlines [split $ifneededscript \n]
-            if {[llength $scriptlines] > 1} {
-                lappend versionlist [list $v type unknown index "" indexbase ""]
-                continue
-            }
-            if {[catch {llength $ifneededscript}]} {
-                #scripts aren't necessarily 'list shaped' - we don't want to get into the weeds trying to make sense of arbitrary scripts.
-                lappend versionlist [list $v type unknown index "" indexbase ""]
-                continue
-            }
-            if {[lindex $ifneededscript 0] eq "package" && [lindex $ifneededscript 1] eq "provide" && [file extension [lindex $ifneededscript end]] eq ".tm"} {
-                set tmfile [lindex $ifneededscript end]
-                set nspath [namespace qualifiers $pkg]
-                if {$nspath eq ""} {
-                    set base [file dirname $tmfile]
-                } else {
-                    set nsparts     [string map {:: " "} $nspath] ;#*naive* split - we are assuming (fairly reasonably) there are no namespaces containing spaces for a .tm module
-                    set pathparts   [file split [file dirname $tmfile]]
-                    set baseparts   [lrange $pathparts 0 end-[llength $nsparts]]
-                    set base        [file join {*}$baseparts]
-                }
-                lappend versionlist [list $v type tm index $tmfile indexbase $base script $ifneededscript]
-            } else {
-                #we could guess at the pkgindex.tcl file used based on simple pkg ifneeded scripts .tcl path compared to ::auto_index
-                #but without hitting filesystem to verify - it's unsatisfactory
-                lappend versionlist [list $v type unknown index "" indexbase "" script $ifneededscript]
-            }
-        }
-        return $versionlist
-    }
-    proc init {args} {
-        variable last_auto_path
-        set last_auto_path [set ::auto_path]
-        variable last_tm_paths
-        set last_tm_paths [set ::tcl::tm::paths]
-
-        set callerposn [lsearch $args -caller]
-        if {$callerposn > -1} {
-            set caller [lindex $args $callerposn+1]
-            if {[package provide thread] ne ""} {
-                set tid [thread::id]
-            } else {
-                set tid "-"
-            }
-            #puts stderr "\x1b\[1\;33m punk::libunknown::init - caller:$caller tid:$tid\x1b\[m"
-            #puts stderr "punk::libunknown::init auto_path    : $::auto_path"
-            #puts stderr "punk::libunknown::init tcl::tm::list: [tcl::tm::list]"
-        }
-
-
-
-
-        if {[catch {tcl::tm::list} tmlist]} {
-            set tmlist [list]
-        }
-        set apath  [list]
-        if {[info commands tcl::tm::list] ne ""} {
-            set tmlist [tcl::tm::list]
-        }
-        if {[info exists ::auto_path]} {
-            set apath $::auto_path
-        }
-        if {![llength $tmlist] && ![llength $apath]} {
-            #shouldn't happen - be noisy about it for now
-            puts stderr "punk::libunknown::init - init while empty/unreadable tcl::tm::list and empty/unreadable ::auto_path"
-        }
-
-        if {[info commands ::punk::libunknown::package] ne ""} {
-            puts stderr "punk::libunknown::init already done - unnecessary call? info frame -1: [info frame -1]"
-            return
-        }
-        #if {[namespace origin ::package] eq "::punk::libunknown::package"} {
-        #    #This is far from conclusive - there may be other renamers (e.g commandstack)
-        #    return
-        #}
-
-
-
-        variable epoch
-        if {![info exists epoch]} {
-            set tmstate     [dict create 0 {added {}}]
-            set pkgstate    [dict create 0 {added {}}]
-            set tminfo  [dict create current 0 epochs $tmstate  untracked [dict create]]
-            set pkginfo [dict create current 0 epochs $pkgstate untracked [dict create]]
-
-            set epoch [dict create scripts {} tm $tminfo pkg $pkginfo]
-
-            #untracked: package names at time of punk::libunknown::init call - or passed with epoch when sharing epoch to another interp.
-            #The epoch state will need to be incremented and cleared of any 'added' records if any of these are requested during a package unknown call
-            #Because they were loaded prior to us tracking the epochs - and without trying to examine the ifneeded scripts we don't know the exact paths
-            #which were scanned to load them. Our 'added' key entries will not contain them because they weren't unknown
-        } else {
-            #we're accepting a pre-provided 'epoch' record (probably from another interp)
-            #the tm untracked and pkg untracked dicts indicate for which packages the pkg added, tm added etc data are not conclusive
-            #test
-            #todo?
-        }
-        #upon first libunknown::init in the interp, we need to add any of this interp's already known packages to the (possibly existing) tm untracked and pkg untracked dicts.
-        #(unless we can use packagedb_indexinfo to determine what was previously scanned?)
-        #   review - what if the auto_path or tcl::tm::list was changed between initial scan and call of libunknown::init???
-        #   This is likely a common scenario?!!!
-        #   For now this is a probable flaw in the logic - we need to ensure libunknown::init is done first thing
-        #   or suffer additional scans.. or document ??
-        #ideally init should be called in each interp before any scans for packages so that the list of untracked is minimized.
-        set pkgnames [package names]
-        #puts stderr "####### punk::libunknown init called with [llength $pkgnames] package names known"
-        foreach p $pkgnames {
-            if {[string tolower $p] in {punk::libunknown tcl::zlib tcloo tcl::oo tcl}} {
-                continue
-            }
-            set versions [package versions $p]
-            if {[llength $versions] == 0} {
-                continue
-            }
-            set versionlist [packagedb_indexinfo $p]
-            if {[llength $versionlist] == 0} {
-                continue
-            } else {
-                foreach vdata $versionlist {
-                    #dict set epoch scripts $p [lindex $vdata 0] [package ifneeded $p [lindex $vdata 0]]
-                    dict set epoch scripts $p [lindex $vdata 0] [lindex $vdata 8]]
-                }
-                if {[lsearch -index 6 $versionlist ""] > -1} {
-                    #There exists at least one empty indexbase for this package - we have to treat it as untracked
-                    dict set epoch tm untracked $p ""  ;#value unimportant
-                    dict set epoch pkg untracked $p ""  ;#value unimportant
-                } else {
-                    #update the epoch info with where the tm versions came from
-                    #(not tracking version numbers in epoch - just package to the indexbase)
-                    foreach vdata $versionlist {
-                        lassign $vdata v _t type _index index _indexbase indexbase _script iscript
-                        if {$type eq "tm"} {
-                            if {![dict exists $epoch tm epochs 0 added $indexbase]} {
-                                #dict set epoch tm epochs 0 added $indexbase [dict create $p [dict create e 0 v $v]]
-                                dict set epoch tm epochs 0 added $indexbase $p $v [dict create e 0 scr $iscript]
-                            } else {
-                                set idxadded [dict get $epoch tm epochs 0 added $indexbase]
-                                #dict set idxadded $p [dict create e 0 v $v]
-                                dict set idxadded $p $v [dict create e 0 scr $iscript]
-                                dict set epoch tm epochs 0 added $indexbase $idxadded
-                            }
-                            dict unset epoch tm untracked $p
-                        } elseif {$type eq "pkg"} {
-                            #todo? tcl doesn't give us good introspection on package indexes for packages
-                            #dict unset epoch pkg untracked $p
-                        }
-                    }
-                }
-            }
-        }
-
-
-
-
-        #-------------------------------------------------------------
-        #set all_untracked [dict keys [dict get $epoch untracked]]
-        #puts stderr "\x1b\[1\;33m punk::libunknown::init - pkg all_untracked:\x1b\[m [dict size [dict get $epoch pkg untracked]]"
-        #if {[dict exists $epoch pkg untracked msgcat]} {
-        #    puts stderr "\x1b\[1\;32m punk::libunknown::init msgcat found in pkg untracked \x1b\[m "
-        #    set versions [package versions msgcat]
-        #    puts stderr "versions: $versions"
-        #    foreach v $versions {
-        #        puts stdout "v $v ifneeded: [package ifneeded msgcat $v]"
-        #    }
-        #} else {
-        #    puts stderr "\x1b\[1\;31m punk::libunknown::init msgcat NOT found in pkg untracked \x1b\[m "
-        #}
-        #puts stderr "\x1b\[1\;33m punk::libunknown::init - tm all_untracked:\x1b\[m [dict size [dict get $epoch tm untracked]]"
-        #if {[dict exists $epoch tm untracked msgcat]} {
-        #    puts stderr "\x1b\[1\;32m punk::libunknown::init msgcat found in tm untracked \x1b\[m "
-        #    set versions [package versions msgcat]
-        #    puts stderr "versions: $versions"
-        #    foreach v $versions {
-        #        puts stdout "v $v ifneeded: [package ifneeded msgcat $v]"
-        #    }
-        #} else {
-        #    puts stderr "\x1b\[1\;31m punk::libunknown::init msgcat NOT found in tm untracked \x1b\[m "
-        #}
-        #-------------------------------------------------------------
-
-        trace add variable ::auto_path      write ::punk::libunknown::epoch_incr_pkg
-        trace add variable ::tcl::tm::paths write ::punk::libunknown::epoch_incr_tm
-        #set stackrecord [commandstack::rename_command -renamer punk::libunknown package {args} {
-        #    #::package override installed by punk::libunknown::init
-        #}
-        proc package args {
-            switch -- [lindex $args 0] {
-                fo - for - forge - forget {
-                    variable has_package_files
-                    #experimental - silently disallow forgetting things that didn't involve sourcing files
-                    #What about static libs that also sourced files?
-                    #packages loaded by c extensions?
-                    #forgetting Tcl or tcl seems to be a bad idea - package require doesn't work afterwards (independent of this pkg)
-                    set forgets_requested [lrange $args 1 end]
-                    set ok_forgets [list]
-                    upvar ::punk::libunknown::epoch epoch
-                    foreach p $forgets_requested {
-                        #'package files' not avail in early 8.6
-                        #There can be other custom 'package ifneeded' scripts that don't use source - but still need to be forgotten.
-                        #a basic/trivial case: 'package ifneeded aaa 0.1.1 {package provide aaa 0.1.1}'
-                        #it could also use 'eval' instead of sourcing.
-                        #For this reason - we shouldn't use 'package files' as any sort of indication of forgetability
-                        #if {$p ni {tcl Tcl} &&  (!$has_package_files || [package provide $p] eq "" || ($has_package_files && [package provide $p] ne "" && [llength [package files $p]] > 0))} {
-                        #    lappend ok_forgets $p
-                        #}
-                        #What then? Hardcoded only for now?
-                        if {$p ni {tcl Tcl tcl::oo tk}} {
-                            #tcl::oo returns a comment only for its package provide script "# Already present, OK?"
-                            # - so we can't use empty 'ifneeded' script as a determinant.
-                            set vpresent [package provide $p]
-                            if {$vpresent ne ""} {
-                                #There could theoretically be other ifneeded scripts registered - but if the one in use is empty
-                                #we'll use that as the criteria to disallow forget - REVIEW
-                                set ifneededscript [package ifneeded $p $vpresent]
-                                if {[string trim $ifneededscript] ne ""} {
-                                    lappend ok_forgets $p
-                                    dict unset epoch scripts $p
-                                }
-                            } else {
-                                #not loaded - but may have registered ifneeded script(s) in the package database
-                                #assume ok to forget
-                                lappend ok_forgets $p
-                                dict unset epoch scripts $p
-                            }
-                        }
-                    }
-                    if {[llength $ok_forgets]} {
-                        return [::package:: forget {*}$ok_forgets]
-                    } else {
-                        return
-                    }
-                }
-                ep - epo - epoc - epoch {
-                    upvar ::punk::libunknown::epoch epoch
-                    set epoch_args [lrange $args 1 end]
-                    switch -- [llength $epoch_args] {
-                        0 {
-                            set tm_epoch    [dict get $epoch tm current]
-                            set pkg_epoch   [dict get $epoch pkg current]
-                            return [dict create tm $tm_epoch pkg $pkg_epoch]
-                        }
-                        1 {
-                            switch -- [lindex $epoch_args 0] {
-                                tm {
-                                    set cur [dict get $epoch tm current]
-                                    return [dict create $cur [dict get $epoch tm epochs $cur]]
-                                }
-                                pkg {
-                                    set cur [dict get $epoch pkg current]
-                                    return [dict create $cur [dict get $epoch pkg epochs $cur]]
-                                }
-                                incr {
-                                    epoch_incr_pkg
-                                    epoch_incr_tm
-                                }
-                                default {
-                                    error "package epoch [lindex $epoch_args 0] unsupported - known options: tm pkg incr"
-                                }
-                            }
-                        }
-                        2 {
-                            set a2 [list [lindex $epoch_args 0] [lindex $epoch_args 1]]
-                            switch -- $a2 {
-                                {pkg incr} - {incr pkg} {
-                                    epoch_incr_pkg
-                                }
-                                {tm incr} - {incr tm} {
-                                    epoch_incr_tm
-                                }
-                                default {
-                                    set which [lindex $epoch_args 0]
-                                    set index [lindex $epoch_args 1]
-                                    if {$which in {pkg tm}} {
-                                        set epochs [dict keys [dict get $epoch $which epochs]]
-                                        if {[catch {
-                                            set epochinfo [dict get $epoch $which epochs $index]
-                                        } errM]} {
-                                            error "package epoch $which <idx> unable to use index $index"
-                                        }
-                                        return $epochinfo
-                                    } else {
-                                        error "package epoch {*}$a2 unsupported - expected 'pkg incr' or 'tm incr' or 'pkg <index>' or 'tm <index>'"
-                                    }
-                                }
-                            }
-                        }
-                        default {
-                            set which [lindex $epoch_args 0]
-                            set index [lindex $epoch_args 1]
-                            set keys  [lrange $epoch_args 2 end]
-                            if {$which in {pkg tm}} {
-                                set epochs [dict keys [dict get $epoch $which epochs]]
-                                if {[catch {
-                                    set epochinfo [dict get $epoch $which epochs $index]
-                                } errM]} {
-                                    error "package epoch $which <idx> unable to use index $index"
-                                }
-                                if {![dict exists $epochinfo {*}$keys]} {
-                                    set topkeys [dict keys $epochinfo]
-                                    error "package epoch $which $index $keys not found. Toplevel keys: $topkeys"
-                                }
-                                return [dict get $epochinfo {*}$keys]
-                            } else {
-                                error "package epoch <args> unimplemented"
-                            }
-                        }
-                    }
-                }
-                default {
-                    return [::package:: {*}$args]
-                }
-            }
-        }
-        rename ::package ::package::
-        #all lowercase procs already exported from ::punk::libunknown
-        namespace eval :: [list ::namespace import ::punk::libunknown::package]
-
-        #if {[info commands ::tcl::zipfs::root] ne ""} {
-        #    set has_zipfs_tm 0
-        #    foreach t $tmlist {
-        #        if {[string match [::tcl::zipfs::root]* $t]} {
-        #            set has_zipfs_tm 1
-        #            break ;#zipfs_tm_UnknownHandler can handle either - a single zipfs path is enough
-        #        }
-        #    }
-        #    set has_zipfs_auto 0
-        #    foreach a $apath {
-        #        if {[string match [::tcl::zipfs::root]* $a]} {
-        #            set has_zipfs_auto 1
-        #            break
-        #        }
-        #    }
-        #    if {$has_zipfs_tm || $has_zipfs_auto} {
-        #        if {$has_zipfs_tm && $has_zipfs_auto} {
-        #            package unknown {::punk::libunknown::zipfs_tm_UnknownHandler ::punk::libunknown::zipfs_tclPkgUnknown}
-        #        } elseif {$has_zipfs_tm} {
-        #            package unknown {::punk::libunknown::zipfs_tm_UnknownHandler ::tclPkgUnknown}
-        #        } else {
-        #            #must only have auto
-        #            #puts "tmlist  : $tmlist"
-        #            #puts "autopath: $apath"
-        #            package unknown {::tcl::tm::UnknownHandler ::punk::libunknown::zipfs_tclPkgUnknown}
-        #        }
-        #    }
-        #    #review - tm and auto_path entries for safebase interps are obscured. For now we will ignore and defaults will apply.
-        #    #to load in safebase anyway - module would probably have to be passed to interp as source to eval?
-        #}
-
-        if {![interp issafe]} {
-            #J2
-            package unknown {::punk::libunknown::zipfs_tm_UnknownHandler ::punk::libunknown::zipfs_tclPkgUnknown}
-            #package unknown {::punk::libunknown::zipfs_tm_UnknownHandler ::tclPkgUnknown}
-        }
-
-    }
-
-    proc default {} {
-        package unknown {::tcl::tm::UnknownHandler ::tclPkgUnknown}
-    }
-
-    proc package_query {pkgname} {
-        variable epoch
-
-        if {[dict exists $epoch tm untracked $pkgname]} {
-            set pkg_info "$pkgname tm UNTRACKED"
-        } else {
-            set pkg_info "$pkgname not in tm untracked"
-        }
-        if {[dict exists $epoch pkg untracked $pkgname]} {
-            append pkg_info \n "$pkgname pkg UNTRACKED"
-        } else {
-            append pkg_info \n "$pkgname not in pkg untracked"
-        }
-
-        set pkg_epoch [dict get $epoch pkg current]
-        #set epoch_info [dict get $epoch pkg epochs $pkg_epoch]
-        #pkg entries are processed by package unknown in reverse - so their order of creaation is opposite to ::auto_path
-        set r_added [dict create]
-        foreach path [lreverse [dict keys [dict get $epoch pkg epochs $pkg_epoch added]]] {
-            dict set r_added $path [dict get $epoch pkg epochs $pkg_epoch added $path]
-        }
-
-        #set pkg_added   [punk::lib::showdict $r_added      */$pkgname]
-        #set added           [textblock::frame -title $title $pkg_added]
-        set rows [list]
-        dict for {path pkgs} $r_added {
-            set c1 $path
-            set c2 [dict size $pkgs]
-            set c3 ""
-            if {[dict exists $pkgs $pkgname]} {
-                set vdict [dict get $pkgs $pkgname]
-                dict for {v data} $vdict {
-                    set scriptlen [string length [dict get $data scr]]
-                    append c3 "$v epoch[dict get $data e] ifneededchars:$scriptlen" \n
-                }
-            }
-            set r [list $path $c2 $c3]
-            lappend rows $r
-        }
-        set title           "[punk::ansi::a+ green] PKG epoch $pkg_epoch - added [punk::ansi::a]"
-        set added [textblock::table -title $title -headers [list Path Pkgcount $pkgname] -rows $rows]
-
-
-        set pkg_row $added
-
-        set tm_epoch  [dict get $epoch tm current]
-        #set tm_added    [punk::lib::showdict [dict get $epoch tm epochs $tm_epoch added]      */$pkgname]
-        set added [dict get $epoch tm epochs $tm_epoch added]
-        set rows [list]
-        dict for {path pkgs} $added {
-            set c1 $path
-            set c2 [dict size $pkgs]
-            set c3 ""
-            if {[dict exists $pkgs $pkgname]} {
-                set vdict [dict get $pkgs $pkgname]
-                dict for {v data} $vdict {
-                    append c3 "$v $data" \n
-                }
-            }
-            set r [list $c1 $c2 $c3]
-            lappend rows $r
-        }
-        set title           "TM epoch $tm_epoch - added"
-        #set added           [textblock::frame -title $title $tm_added]
-        set added [textblock::table -title $title -headers [list Path Tmcount $pkgname] -rows $rows]
-
-        set tm_row $added
-
-        return $pkg_info\n$pkg_row\n$tm_row
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::libunknown ---}]
-}
-# == === === === === === === === === === === === === === ===
-
-namespace eval punk::libunknown {
-    #for 8.6 compat
-    if {"::ledit" ni [info commands ::ledit]} {
-        #maint: taken from punk::lib
-        proc ledit {lvar first last args} {
-            upvar $lvar l
-            #use lindex_resolve to support for example: ledit lst end+1 end+1 h i
-            set fidx [lindex_resolve [llength $l] $first]
-            switch -exact -- $fidx {
-                -3 {
-                    #index below lower bound
-                    set pre [list]
-                    set fidx -1
-                }
-                -2 {
-                    #first index position is greater than index of last element in the list
-                    set pre [lrange $l 0 end]
-                    set fidx [llength $l]
-                }
-                default {
-                    set pre [lrange $l 0 $first-1]
-                }
-            }
-            set lidx [lindex_resolve [llength $l] $last]
-            switch -exact -- $lidx {
-                -3 {
-                    #index below lower bound
-                    set post [lrange $l 0 end]
-                }
-                -2 {
-                    #index above upper bound
-                    set post [list]
-                }
-                default {
-                    if {$lidx < $fidx} {
-                        #from ledit man page:
-                        #If last is less than first, then any specified elements will be inserted into the list before the element specified by first with no elements being deleted.
-                        set post [lrange $l $fidx end]
-                    } else {
-                        set post [lrange $l $last+1 end]
-                    }
-                }
-            }
-            set l [list {*}$pre {*}$args {*}$post]
-        }
-
-        #maint: taken from punk::lib
-        proc lindex_resolve {len index} {
-            if {![string is integer -strict $len]} {
-                #<0 ?
-                error "lindex_resolve len must be an integer"
-            }
-            set index [tcl::string::map {_ {}} $index] ;#forward compatibility with integers such as 1_000
-            if {[string is integer -strict $index]} {
-                #can match +i -i
-                if {$index < 0} {
-                    return -3
-                } elseif {$index >= $len} {
-                    return -2
-                } else {
-                    #integer may still have + sign - normalize with expr
-                    return [expr {$index}]
-                }
-            } else {
-                if {[string match end* $index]} {
-                    if {$index ne "end"} {
-                        set op [string index $index 3]
-                        set offset [string range $index 4 end]
-                        if {$op ni {+ -} || ![string is integer -strict $offset]} {error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"}
-                        if {$op eq "+" && $offset != 0} {
-                            return -2
-                        }
-                    } else {
-                        #index is 'end'
-                        set index [expr {$len-1}]
-                        if {$index < 0} {
-                            #special case - 'end' with empty list - treat end like a positive number out of bounds
-                            return -2
-                        } else {
-                            return $index
-                        }
-                    }
-                    if {$offset == 0} {
-                        set index [expr {$len-1}]
-                        if {$index < 0} {
-                            return -2 ;#special case as above
-                        } else {
-                            return $index
-                        }
-                    } else {
-                        #by now, if op = + then offset = 0  so we only need to handle the minus case
-                        set index [expr {($len-1) - $offset}]
-                    }
-                    if {$index < 0} {
-                        return -3
-                    } else {
-                        return $index
-                    }
-                } else {
-                    #plain +-<int> already handled above.
-                    #we are trying to avoid evaluating unbraced expr of potentially insecure origin
-                    if {[regexp {(.*)([+-])(.*)} $index _match a op b]} {
-                        if {[string is integer -strict $a] && [string is integer -strict $b]} {
-                            if {$op eq "-"} {
-                                set index [expr {$a - $b}]
-                            } else {
-                                set index [expr {$a + $b}]
-                            }
-                        } else {
-                            error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                        }
-                    } else {
-                        error "bad index '$index': must be integer?\[+-\]integer? or end?\[+-\]integer?"
-                    }
-                    if {$index < 0} {
-                        return -3
-                    } elseif {$index >= $len} {
-                        return -2
-                    }
-                    return $index
-                }
-            }
-        }
-    }
-}
-
-tcl::namespace::eval punk::libunknown::lib {
-
-    #A version of textutil::string::longestCommonPrefixList
-    #(also as ::punk::lib::longestCommonPrefixList)
-    proc longestCommonPrefix {items} {
-        if {[llength $items] <= 1} {
-            return [lindex $items 0]
-        }
-        set items [lsort $items[unset items]]
-        set min [lindex $items 0]
-        set max [lindex $items end]
-        #if first and last of sorted list share a prefix - then all do (first and last of sorted list are the most different in the list)
-        #(sort order nothing to do with length - e.g min may be longer than max)
-        if {[string length $min] > [string length $max]} {
-            set temp $min
-            set min $max
-            set max $temp
-        }
-        set n [string length $min]
-        set prefix ""
-        set i -1
-        while {[incr i] < $n && ([set c [string index $min $i]] eq [string index $max $i])} {
-            append prefix $c
-        }
-        return $prefix
-    }
-    #maint: from punk::lib::ldiff
-    proc ldiff {fromlist removeitems} {
-        if {[llength $removeitems] == 0} {return $fromlist}
-        set result [list]
-        foreach item $fromlist {
-            if {$item ni $removeitems} {
-                lappend result $item
-            }
-        }
-        return $result
-    }
-    proc intersect2 {A B} {
-        #taken from tcl version of struct::set::Intersect
-        if {[llength $A] == 0} {return {}}
-        if {[llength $B] == 0} {return {}}
-
-        # This is slower than local vars, but more robust
-        if {[llength $B] > [llength $A]} {
-            ::set res $A
-            ::set A $B
-            ::set B $res
-        }
-        ::set res {}
-        foreach x $A {
-            ::set ($x) {}
-        }
-        foreach x $B {
-            if {[info exists ($x)]} {
-                lappend res $x
-            }
-        }
-        return $res
-    }
-    proc is_list_all_in_list {A B} {
-        if {[llength $A] > [llength $B]} {return 0}
-        foreach x $B {
-            ::set ($x) {}
-        }
-        foreach x $A {
-            if {![info exists ($x)]} {
-                return 0
-            }
-        }
-        return 1
-    }
-}
-
-# -----------------------------------------------------------------------------
-#    register namespace(s) to have PUNKARGS,PUNKARGS_aliases variables checked
-# -----------------------------------------------------------------------------
-#    variable PUNKARGS
-#    variable PUNKARGS_aliases
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::libunknown
-}
-# -----------------------------------------------------------------------------
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::libunknown [tcl::namespace::eval punk::libunknown {
-    variable pkg punk::libunknown
-    variable version
-    set version 0.1
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.tm
deleted file mode 100644
index 1ac6a836..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix-0.2.tm
+++ /dev/null
@@ -1,32 +0,0 @@
-
-package require punk::cap
-
-
-tcl::namespace::eval punk::mix {
-    proc init {} {
-        package require punk::cap::handlers::templates ;#handler for templates cap
-        punk::cap::register_capabilityname punk.templates ::punk::cap::handlers::templates ;#time taken should generally be sub 200us
-
-        package require punk::mix::templates ;#registers as provider pkg for 'punk.templates' capability with punk::cap
-        set t [time {
-            if {[catch {punk::mix::templates::provider register *} errM]} {
-                puts stderr "punk::mix failure during punk::mix::templates::provider register *"
-                puts stderr $errM
-                puts stderr "-----"
-                puts stderr $::errorInfo
-            }
-        }]
-        puts stderr "->punk::mix::templates::provider register * t=$t"
-    }
-    init
-
-}
-
-package require punk::mix::base
-package require punk::mix::cli
-
-package provide punk::mix [tcl::namespace::eval punk::mix {
-    variable version
-    set version 0.2
-
-}]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/base-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/base-0.1.tm
deleted file mode 100644
index ea9fc85f..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/base-0.1.tm
+++ /dev/null
@@ -1,993 +0,0 @@
-package provide punk::mix::base [namespace eval punk::mix::base {
-	variable version
-	set version 0.1
-}]
-
-package require punk::path
-package require punk::lib ;#format_number etc
-
-#base internal plumbing functions
-namespace eval punk::mix::base {
-    proc set_alias {cmdname args} {
-        #---------
-        #extension@@opts/@?@-extension,args@@args= [_split_args $args] ;#dependency on punk pipeline/patternmatching system
-        lassign [_split_args $args] _opts opts _args args
-        if {[dict exists $opts -extension]} {
-            set extension [dict get $opts -extension]
-        } else {
-            set extension ""
-        }
-        #---------
-
-        uplevel #0 [list interp alias {} $cmdname {} punk::mix::base::_cli -extension $extension]
-    }
-    proc _cli {args} {
-        #---------
-        #extension@@opts/@?@-extension,args@@args= [_split_args $args] ;#dependency on punk pipeline/patternmatching system
-        lassign [_split_args $args] _opts opts _args args
-        if {[dict exists $opts -extension]} {
-            set extension [dict get $opts -extension]
-        } else {
-            set extension ""
-        }
-        #---------
-        if {![string length $extension]} {
-            set extension [namespace qualifiers [lindex [info level -1] 0]]
-        }
-        #puts stderr "punk::mix::base extension: [string trimleft $extension :]"
-        if {![string length $extension]} {
-            #if still no extension - must have been called directly as punk::mix::base::_cli
-            if {![llength $args]} {
-                set args "help"
-            }
-            set extension [namespace current]
-        }
-        #init usually used to load commandsets (and export their names) into the extension namespace/ensemble
-        ${extension}::_init
-        if {![llength $args]} {
-            if {[info exists ${extension}::default_command]} {
-                tailcall $extension [set ${extension}::default_command]
-            }
-            tailcall $extension
-        } else {
-            tailcall $extension {*}$args
-        }
-    }
-    proc _unknown {ns args} {
-        #---------
-        #extension@@opts/@?@-extension,args@@args= [_split_args $args] ;#dependency on punk pipeline/patternmatching system
-        lassign [_split_args $args] _opts opts _args args
-        if {[dict exists $opts -extension]} {
-            set extension [dict get $opts -extension]
-        } else {
-            set extension ""
-        }
-        #---------
-
-        if {![string length $extension]} {
-            set extension [namespace qualifiers [lindex [info level -1] 0]]
-        }
-        #puts stderr "arglen:[llength $args]"
-        #puts stdout "_unknown '$ns' '$args'"
-
-        set d_commands [get_commands -extension $extension]
-        set all_commands [list {*}[dict get $d_commands main] {*}[dict get $d_commands base]]
-
-
-        error "Unknown subcommand \"[lindex $args 0]\": must be one of: $all_commands" "punk::mix::base _unknown $ns $args" [list unknown_ensemble_subcommand ensemble punk::mix::base]
-    }
-    proc _redirected {from_ns subcommand args} {
-        #puts stderr "_redirected from_ns: $from_ns subcommand:$subcommand args:$args"
-        set pname [namespace current]::$subcommand
-        if {$pname in [info procs $pname]} {
-            set argnames [info args $pname]
-            #puts stderr "_redirected $subcommand argnames: $argnames"
-            if {[lindex $argnames end] eq "args"} {
-                set pos_argnames [lrange $argnames 0 end-1]
-            } else {
-                set pos_argnames $argnames
-            }
-            set argvals [list]
-            set numargs [llength $pos_argnames]
-            if {$numargs > 0} {
-                set argvals [lrange $args 0 $numargs-1]
-                set args [lrange $args $numargs end]
-            }
-            if {[llength $argvals] < $numargs} {
-                error "wrong # args: $from_ns $subcommand requires args: $pos_argnames"
-            }
-            tailcall [namespace current] $subcommand {*}$argvals {*}$args -extension $from_ns
-        } else {
-            if {[regexp {.*[*?].*} $subcommand]} {
-                set d_commands [get_commands -extension $from_ns]
-                set all_commands [list {*}[dict get $d_commands main] {*}[dict get $d_commands base]]
-                set matched_commands [lsearch -all -inline $all_commands $subcommand]
-                set commands ""
-                foreach m $matched_commands {
-                    append commands $m \n
-                }
-                return $commands
-            }
-            tailcall [namespace current] $subcommand {*}$args -extension $from_ns
-        }
-    }
-    proc _split_args {arglist} {
-        #don't assume arglist is fully paired.
-        set posn [lsearch $arglist -extension]
-        set opts [list]
-        if {$posn >= 0} {
-            if {$posn+2 <= [llength $arglist]} {
-                set opts [list -extension [lindex $arglist $posn+1]]
-                set argsremaining [lreplace $arglist $posn $posn+1]
-            } else {
-                #no value supplied to -extension
-                error "punk::mix::base::_split_args - no value found for option '-extension'. Supply a value or omit the option."
-            }
-        } else {
-            set argsremaining $arglist
-        }
-
-        return [list opts $opts args $argsremaining]
-    }
-}
-
-
-#base API (potentially overridden functions - may also be called from overriding namespace)
-#commands should either handle or silently ignore -extension <namespace/ensemble>
-namespace eval punk::mix::base {
-    namespace ensemble create
-    namespace export help dostuff get_commands set_alias
-    namespace ensemble configure [namespace current] -unknown punk::mix::base::_unknown
-    proc get_commands {args} {
-        #---------
-        #extension@@opts/@?@-extension,args@@args= [_split_args $args] ;#dependency on punk pipeline/patternmatching system
-        lassign [_split_args $args] _opts opts _args args
-        if {[dict exists $opts -extension]} {
-            set extension [dict get $opts -extension]
-        } else {
-            set extension ""
-        }
-        #---------
-        if {![string length $extension]} {
-            set extension [namespace qualifiers [lindex [info level -1] 0]]
-        }
-
-        set maincommands [list]
-        #extension may still be blank e.g if punk::mix::base::get_commands called directly
-        if {[string length $extension]} {
-            set nsmain $extension
-            #puts stdout "get_commands nsmain: $nsmain"
-            set parentpatterns [namespace eval $nsmain [list namespace export]]
-            set nscommands [list]
-            foreach p $parentpatterns {
-                lappend nscommands {*}[info commands ${nsmain}::$p]
-            }
-            foreach c $nscommands {
-                set cmd [namespace tail $c]
-                lappend maincommands $cmd
-            }
-            set maincommands [lsort $maincommands]
-        }
-
-
-
-
-        set nsbase [namespace current]
-        set basepatterns [namespace export]
-        #puts stdout "basepatterns:$basepatterns"
-        set nscommands [list]
-        foreach p $basepatterns {
-            lappend nscommands {*}[info commands ${nsbase}::$p]
-        }
-
-        set basecommands [list]
-        foreach c $nscommands {
-            set cmd [namespace tail $c]
-            if {$cmd ni $maincommands} {
-                lappend basecommands $cmd
-            }
-        }
-        set basecommands [lsort $basecommands]
-
-
-        return [list main $maincommands base $basecommands]
-    }
-    proc help {args} {
-        #' **%ensemblecommand% help** *args*
-        #'
-        #'   Help for ensemble commands in the command line interface
-        #'
-        #'
-        #'   Arguments:
-        #'
-        #'   * args  - first word of args is the helptopic requested - usually a command name
-        #'           - calling help with no arguments will list available commands
-        #'
-        #'   Returns: help text (text)
-        #'
-        #'   Examples:
-        #'
-        #'   ```
-        #'   %ensemblecommand% help <commandname>
-        #'   ```
-        #'
-        #'
-
-
-        #extension.= @@opts/@?@-extension,args@@args=>. [_split_args $args] {|
-        #    >}   inspect -label a              {|
-        #    >} .=e>end,data>end pipeswitch {
-        #        pipecase ,0/1/#= $switchargs {|
-        #            e/0
-        #            >} .=>. {set e}
-        #        pipecase /1,1/1/#= $switchargs
-        #} |@@ok/result> <e/0| [namespace qualifiers [lindex [info level -1] 0]]
-
-
-        #---------
-        #extension@@opts/@?@-extension,args@@args= [_split_args $args] ;#dependency on punk pipeline/patternmatching system
-        lassign [_split_args $args] _opts opts _args args
-        if {[dict exists $opts -extension]} {
-            set extension [dict get $opts -extension]
-        } else {
-            set extension ""
-        }
-        #---------
-
-
-
-        if {![string length $extension]} {
-            set extension [namespace qualifiers [lindex [info level -1] 0]]
-        }
-        #puts stderr "-1:[info level -1]"
-
-        set command_info [punk::mix::base::get_commands -extension $extension]
-        set subhelp1 [lindex $args 0]
-        if {[string length $subhelp1]} {
-            if {[regexp {[*?]} $subhelp1]} {
-                set helpstr ""
-                append helpstr "matched commands:\n"
-                dict for {source cmdlist} $command_info {
-                    set matches [lsearch -all -inline -glob $cmdlist $subhelp1]
-                    if {[llength $matches]} {
-                        append helpstr \n    "  $source"
-                        foreach cmd $matches {
-                            append helpstr \n "  - $cmd"
-                        }
-                    }
-                }
-                return $helpstr
-            } else {
-                dict for {source cmdlist} $command_info {
-                    if {$subhelp1 in $cmdlist} {
-                        if {$source eq "base"} {
-                            set ns [namespace current]
-                        } else {
-                            set ns $extension
-                        }
-                        set procname ${ns}::$subhelp1
-                        if {$procname in [info procs $procname]} {
-                            return "proc: $subhelp1 arguments: [info args $procname]"
-                        } else {
-                            set a [interp alias {} ${ns}::$subhelp1]
-                            if {[string length $a]} {
-                                return "alias: $subhelp1 target: $a"
-                            } else {
-                                return "command: $subhelp1 (No info available)"
-                            }
-                        }
-                    }
-                }
-
-                return "No info found"
-            }
-
-        }
-        #result for just 'pmix help'
-        puts stderr "-->$args"
-        set helpstr ""
-        append helpstr "limit commandlist with a glob search such as *word*"
-        append helpstr "commands:\n"
-
-        foreach {source cmdlist} $command_info {
-            append helpstr \n     "  $source"
-            foreach cmd $cmdlist {
-                append helpstr \n "  - $cmd"
-            }
-        }
-        return $helpstr
-    }
-    #proc dostuff {args} {
-    #    extension@@opts/@?@-extension,args@@args= [_split_args $args]
-    #    puts stdout "base doingstuff-with-args:'$args'-in-namespace:'[namespace current]'"
-    #}
-    namespace eval lib {
-        variable sha3_implementation "" ;#set by cksum_algorithms (which is called by cksum_path) It looks for fossil or sqlite3. Todo - add proper Tcl implementation.
-        namespace export *
-
-        #-----------------------------------------------------
-        #literate-programming style naming for some path tests
-        #Note the naming of the operator portion of a_op_b is consistent in that it is the higher side of the filesystem tree first.
-        #hence aboveorat vs atorbelow
-        #These names also sort in the logical order of higher to lower in the filesystem (when considering the root as 'higher' in the filesystem)
-        proc path_a_above_b {path_a path_b} {
-            #stripPath prefix path
-            return [expr {[fileutil::stripPath $path_a $path_b] ni [list . $path_b]}]
-        }
-        proc path_a_aboveorat_b {path_a path_b} {
-            return [expr {[fileutil::stripPath $path_a $path_b] ne $path_b}]
-        }
-        proc path_a_at_b {path_a path_b} {
-            return [expr {[fileutil::stripPath $path_a $path_b] eq "." }]
-        }
-        proc path_a_atorbelow_b {path_a path_b} {
-            return [expr {[fileutil::stripPath $path_b $path_a] ne $path_a}]
-        }
-        proc path_a_below_b {path_a path_b} {
-            return [expr {[fileutil::stripPath $path_b $path_a] ni [list . $path_a]}]
-        }
-        proc path_a_inlinewith_b {path_a path_b} {
-            return [expr {[path_a_aboveorat_b $path_a $path_b] || [path_a_below_b $path_a $path_b]}]
-        }
-        #-----------------------------------------------------
-
-
-
-        #find src/something folders which are not certain known folders with other purposes, (such as: bootsupport .vfs folders or vendor folders etc) and contain .tm file(s)
-        proc find_source_module_paths {{path {}}} {
-            if {![string length [set candidate [punk::repo::find_candidate $path]]]} {
-                error "find_source_module_paths cannot determine a suitable project root at or above path '$path' - path supplied should be within a project"
-            }
-            #we can return module paths even if the project isn't yet under revision control
-            set src_subs [glob -nocomplain -dir [file join $candidate src] -type d -tail *]
-            set antipatterns [list *.vfs vendor* lib _build doc embedded runtime bootsupport]
-            set tm_folders [list]
-            foreach sub $src_subs {
-                set is_ok 1
-                foreach anti $antipatterns {
-                    if {[string match $anti $sub]} {
-                        set is_ok 0
-                        break
-                    }
-                }
-                if {!$is_ok} {
-                    continue
-                }
-                set testfolder [file join $candidate src $sub]
-                #ensure that if src/modules exists - it is always included even if empty
-                if {[string tolower $sub] eq "modules"} {
-                    lappend tm_folders $testfolder
-                    continue
-                }
-                #set tmfiles [glob -nocomplain -dir $testfolder -type f -tail *.tm]
-                #set podfolders [glob -nocomplain -dir $testfolder -type d -tail #modpod-*]
-                if {[llength [glob -nocomplain -dir $testfolder -type f -tail *.tm]] || [llength [glob -nocomplain -dir $testfolder -type d -tail #modpod-*]]} {
-                    lappend tm_folders $testfolder
-                }
-            }
-            return $tm_folders
-        }
-
-        proc mix_templates_dir {} {
-            puts stderr "mix_templates_dir WARNING: deprecated - use get_template_basefolders instead"
-            set provide_statement [package ifneeded punk::mix [package require punk::mix]]
-            set tmdir [file dirname [lindex $provide_statement end]]
-            set tpldir $tmdir/mix/templates
-            if {![file exists $tpldir]} {
-                error "punk::mix::lib::mix_templates_dir unable to locate mix templates folder at '$tpldir'"
-            }
-            return $tpldir
-        }
-
-        #get_template_basefolders
-        #   startpath - file or folder
-        #   It represents the base point from which to search for templates folders either directly related to the scriptpath (../) or in the containing project if any
-        #   The cwd will also be searched for project root - but with lower precedence in the resultset (later in list)
-        proc get_template_basefolders {{startpath ""}} {
-            # templates from punk.templates provider packages (ordered by order in which packages registered with punk::cap)
-            if {[file isfile $startpath]} {
-                set startpath [file dirname $startpath]
-            }
-
-            package require punk::cap
-            if {[punk::cap::capability_has_handler punk.templates]} {
-                set template_folder_dict [punk::cap::call_handler punk.templates folders -startdir $startpath]
-            } else {
-                put stderr "get_template_basefolders WARNING - no handler available for the 'punk.templates' capability - template providers will be unable to provide template locations"
-            }
-
-            #don't sort - order in which encountered defines the precedence - with later overriding earlier
-            return $template_folder_dict
-        }
-
-        proc module_subpath {modulename} {
-            set modulename [string trim $modulename :]
-            set nsq [namespace qualifiers $modulename]
-            return [string map {:: /} $nsq]
-        }
-
-        proc get_build_workdir {path} {
-            set repo_info [punk::repo::find_repos $path]
-            set base [lindex [dict get $repo_info project] 0]
-            if {![string length $base]} {
-                error "get_build_workdir unable to determine project base for path '$path'"
-            }
-            if {![file exists $base/src] || ![file writable $base/src]} {
-                error "get_build_workdir unable to access $base/src"
-            }
-            file mkdir $base/src/_build
-            return $base/src/_build
-        }
-
-
-
-        #todo - move cksum stuff to punkcheck - more logical home
-        proc cksum_path_content {path args} {
-            dict set args -cksum_content 1
-            dict set args -cksum_meta 0
-            tailcall cksum_path $path {*}$args
-        }
-
-        #not just used by cksum_path. used by caller (e.g fill_relativecksums_from_base_and_relativepathdict via cksum_filter_opts) to determine what opt names passed through
-        variable cksum_default_opts
-        set default_hash sha1 ;#but fall back to md5 if either sha1 is unavailable or unaccelerated (pure tcl sha1 is way slower than pure tcl md5 - can take minutes on even moderate sized source files)
-        if {![catch {package require sha1}]} {
-            set impls [::sha1::Implementations]
-            if {[llength $impls] == 1 && [string tolower [lindex $impls 0]] eq "tcl"} {
-                set default_hash md5
-            }
-        } else {
-            set default_hash md5
-        }
-        set cksum_default_opts [dict create -cksum_content 1 -cksum_meta auto -cksum_acls 0 -cksum_usetar auto -cksum_algorithm $default_hash]
-        proc cksum_default_opts {} {
-            variable cksum_default_opts
-            return $cksum_default_opts
-        }
-
-        #crc::cksum is extremely slow in tcllib as at 2023 e.g 20x slower (no c implementation?)
-        # - try builtin zlib crc instead?
-        #sha1 is performant (when accelerator present) - and this is not being used in a cryptographic or adversarial context - so performance and practical unlikelihood of accidental collisions should be the main consideration.
-        #adler32 is fastest for some larger files of a few MB but slower on small files (possibly due to Tcl-based file load?)
-        #sha1 as at 2023 seems a reasonable default - (but only if accelerator present)
-        proc cksum_algorithms {} {
-            variable sha3_implementation
-            #sha2 is an alias for sha256
-            #2023 - no sha3 available in tcllib - we can exec fossil for now - which will be very slow
-            set algs [list md5 sha1 sha2 sha256 cksum adler32]
-            set sha3_algs [list sha3 sha3-224 sha3-256 sha3-384 sha3-512]
-            if {[auto_execok sqlite3] ne ""} {
-                lappend algs {*}$sha3_algs
-                set sha3_implementation sqlite3_sha3
-            } else {
-                if {[auto_execok fossil] ne ""} {
-                    lappend algs {*}$sha3_algs
-                    set sha3_implementation fossil_sha3
-                }
-            }
-            return $algs
-        }
-
-        proc sqlite3_sha3 {bits filename} {
-            return [exec sqlite3 :memory: "select lower(hex(sha3(readfile('$filename'),$bits)))"]
-        }
-        proc fossil_sha3 {bits filename} {
-            return [lindex [exec fossil sha3sum -$bits $filename] 0]
-        }
-
-        #adler32 via file-slurp
-        proc cksum_adler32_file {filename} {
-            #2024 - zlib should be builtin - otherwise fallback to trf + zlibtcl?
-            set data [punk::mix::util::fcat -translation binary -encoding iso8859-1 $filename]
-            #set data [fileutil::cat -translation binary $filename] ;#no significant performance diff on windows - and doesn't handle win-illegal names
-            zlib adler32 $data
-        }
-        #zlib crc via file-slurp
-        proc cksum_crc_file {filename} {
-            set data [punk::mix::util::fcat -translation binary -encoding iso8859-1 $filename]
-            zlib crc32 $data
-        }
-
-        proc cksum_md5_data {data} {
-            if {[package vsatisfies [package present md5] 2-]} {
-                return [md5::md5 -hex $data]
-            } else {
-                return [md5::md5 $data]
-            }
-        }
-        #fallback md5 via file-slurp - shouldn't be needed if have md5 2-
-        proc cksum_md5_file {filename} {
-            set data [punk::mix::util::fcat -translation binary -encoding iso8859-1 $filename]
-            cksum_md5_data $data
-        }
-
-
-        #required to be able to accept relative paths
-        #for full cksum - using tar could reduce number of hashes to be made..
-        #but as it stores metadata such as permission - we don't know if/how the archive will vary based on platform/filesystem
-        #-noperms only available on extraction - so that doesn't help
-        #Needs to operate on non-existant paths and return empty string in cksum field
-        proc cksum_path {path args} {
-            variable sha3_implementation
-            if {$path eq {}} { set path [pwd] }
-            if {[file pathtype $path] eq "relative"} {
-                set path [file normalize $path]
-            }
-            set base [file dirname $path]
-            set startdir [pwd]
-
-            set defaults [cksum_default_opts]
-            set known_opts [dict keys $defaults]
-            foreach {k v} $args {
-                if {$k ni $known_opts} {
-                    error "cksum_path unknown option '$k' known_options: $known_opts"
-                }
-            }
-
-            set opts [dict merge $defaults $args]
-            set opts_actual $opts ;#default  - auto updated to 0 or 1 later
-
-            #if {![file exists $path]} {
-            #    return [list cksum "" opts $opts]
-            #}
-
-            if {[catch {file type $path} ftype]} {
-                return [list  cksum "<PATHNOTFOUND>" opts $opts]
-            }
-
-            #review - links?
-            switch -- $ftype {
-                file - directory {}
-                default {
-                    error "cksum_path error file type '$ftype' not supported"
-                }
-            }
-
-
-            set opt_cksum_algorithm [dict get $opts -cksum_algorithm]
-            if {$opt_cksum_algorithm ni [cksum_algorithms]} {
-                return [list error unsupported_cksum_algorithm cksum "<ERR>" opts $opts known_algorithms [cksum_algorithms]]
-            }
-            set opt_cksum_acls [dict get $opts -cksum_acls]
-            if {$opt_cksum_acls} {
-                puts stderr "cksum_path is not yet able to cksum ACLs"
-                return
-            }
-
-            set opt_cksum_meta [dict get $opts -cksum_meta]
-            set opt_use_tar [dict get $opts -cksum_usetar]
-            switch -- $ftype {
-                file {
-                    switch -- $opt_use_tar {
-                        auto {
-                            if {$opt_cksum_meta eq "1"} {
-                                set opt_use_tar 1
-                            } else {
-                                #prefer no tar if meta not required - faster/simpler
-                                #meta == auto or 0
-                                set opt_cksum_meta 0
-                                set opt_use_tar 0
-                            }
-                        }
-                        0 {
-                            if {$opt_cksum_meta eq "1"} {
-                                puts stderr "cksum_path doesn't yet support a non-tar cksum with metadata for a file"
-                                return [list error unsupported_meta_without_tar cksum "<ERR>" opts $opts]
-                            } else {
-                                #meta == auto or 0
-                                set opt_cksum_meta 0
-                            }
-                        }
-                        default {
-                            #tar == 1
-                            if {$opt_cksum_meta eq "0"} {
-                                puts stderr "cksum_path doesn't yet support a tar cksum without metadata for a file"
-                                return [list error unsupported_tar_without_meta cksum "<ERR>" opts $opts]
-                            } else {
-                                #meta == auto or 1
-                                set opt_cksum_meta 1
-                            }
-                        }
-                    }
-                }
-                directory {
-                    switch -- $opt_use_tar {
-                        auto {
-                            if {$opt_cksum_meta in [list "auto" "1"]} {
-                                set opt_use_tar 1
-                                set opt_cksum_meta 1
-                            } else {
-                                puts stderr "cksum_path doesn't yet support a content-only cksum of a folder structure. Currently only files supported without metadata. For folders use cksum_path -cksum_meta 1 or auto"
-                                return [list error unsupported_directory_cksum_without_meta cksum "<ERR>" opts $opts]
-                            }
-                        }
-                        0 {
-                            puts stderr "cksum_path doesn't yet support a cksum of a folder structure without tar. Currently only files supported without metadata. For folders use cksum_path -cksum_meta 1 or auto with -cksum_usetar 1 or auto"
-                            return [list error unsupported_directory_cksum_without_tar cksum "<ERR>" opts $opts]
-                        }
-                        default {
-                            #tar 1
-                            if {$opt_cksum_meta eq "0"} {
-                                puts stderr "cksum_path doesn't yet support a tar checksum of a folder structure without metadat. Currently only files supported without metadata. For folders use cksum_path -cksum_meta 1 or auto with -cksum_usetar 1 or auto"
-                                return [list error unsupported_without_meta cksum "<ERR>" opts $opts]
-                            } else {
-                                #meta == auto or 1
-                                set opt_cksum_meta 1
-                            }
-                        }
-                    }
-                }
-            }
-
-            dict set opts_actual -cksum_meta $opt_cksum_meta
-            dict set opts_actual -cksum_usetar $opt_use_tar
-
-
-            if {$opt_use_tar} {
-                package require tar ;#from tcllib
-            }
-
-            if {$path eq $base} {
-                #attempting to cksum at root/volume level of a filesystem.. extra work
-                #This needs fixing for general use.. not necessarily just for project repos
-                puts stderr "cksum_path doesn't yet support cksum of entire volume. (todo)"
-                return [list error unsupported_path opts $opts]
-            }
-            switch -- $opt_cksum_algorithm {
-                sha1 {
-                    package require sha1
-                    #review - any utf8 issues in tcl9?
-                    set cksum_command [list sha1::sha1 -hex -file]
-                }
-                sha2 - sha256 {
-                    package require sha256
-                    set cksum_command [list sha2::sha256 -hex -file]
-                }
-                md5 {
-                    package require md5
-                    if {[package vsatisfies [package present md5] 2- ] } {
-                        set cksum_command [list md5::md5 -hex -file]
-                    } else {
-                        set cksum_comand  [list cksum_md5_file]
-                    }
-                }
-                cksum {
-                    package require cksum ;#tcllib
-                    set cksum_command [list crc::cksum -format 0x%X -file]
-                }
-                crc {
-                    set cksum_command [list cksum_crc_file]
-                }
-                adler32 {
-                    set cksum_command [list cksum_adler32_file]
-                }
-                sha3 - sha3-256 {
-                    #todo - replace with something that doesn't call another process - only if tcllibc not available!
-                    #set cksum_command [list apply {{file} {lindex [exec fossil sha3sum -256 $file] 0}}]
-                    set cksum_command [list $sha3_implementation 256]
-                }
-                sha3-224 - sha3-384 - sah3-512 {
-                    set bits [lindex [split $opt_cksum_algorithm -] 1]
-                    #set cksum_command [list apply {{bits file} {lindex [exec fossil sha3sum -$bits $file] 0}} $bits]
-                    set cksum_command [list $sha3_implementation $bits]
-                }
-            }
-
-            set cksum ""
-            if {$opt_use_tar != 0} {
-                set target [file tail $path]
-                set tmplocation [punk::mix::util::tmpdir]
-                set archivename $tmplocation/[punk::mix::util::tmpfile].tar
-
-                cd $base ;#cd is process-wide.. keep cd in effect for as small a scope as possible. (review for thread issues)
-
-                #temp emission to stdout.. todo - repl telemetry channel
-                puts stdout "cksum_path: creating temporary tar archive for $path"
-                puts -nonewline stdout "  at: $archivename ..."
-                set tsstart [clock millis]
-                if {[set tarpath [auto_execok tar]] ne ""} {
-                    #using an external binary is *significantly* faster than tar::create - but comes with some risks
-                    #review - need to check behaviour/flag variances across platforms
-                    #don't use -z flag. On at least some tar versions the zipped file will contain a timestamped subfolder of filename.tar - which ruins the checksum
-                    #also - tar is generally faster without the compression (although this may vary depending on file size and disk speed?)
-                    exec {*}$tarpath -cf $archivename $target ;#{*} needed in case spaces in tarpath
-                    set tsend [clock millis]
-                    set ms [expr {$tsend - $tsstart}]
-                    puts stdout " tar -cf done ($ms ms)"
-                } else {
-                    set tsstart [clock millis] ;#don't include auto_exec search time for tar::create
-                    tar::create $archivename $target
-                    set tsend [clock millis]
-                    set ms [expr {$tsend - $tsstart}]
-                    puts stdout " tar::create done ($ms ms)"
-                    puts stdout " NOTE: install tar executable for potentially *much* faster directory checksum processing"
-                }
-
-                if {$ftype eq "file"} {
-                    set sizeinfo "(size [punk::lib::format_number [file size $target]] bytes)"
-                } else {
-                    set sizeinfo "(file type $ftype - tarred size [punk::lib::format_number [file size $archivename]] bytes)"
-                }
-                set tsstart [clock millis]
-                puts -nonewline stdout "cksum_path: calculating cksum using $opt_cksum_algorithm for $target $sizeinfo ... "
-                set cksum [{*}$cksum_command $archivename]
-                set tsend [clock millis]
-                set ms [expr {$tsend - $tsstart}]
-                puts stdout " cksum done ($ms ms)"
-                puts stdout " cksum: $cksum"
-                file delete -force $archivename
-                cd $startdir
-
-            } else {
-                #todo
-                if {$ftype eq "file"} {
-                    if {$opt_cksum_meta} {
-                        return [list error unsupported_opts_combo cksum "<ERR>" opts $opts]
-                    } else {
-                        set cksum [{*}$cksum_command $path]
-                    }
-                } else {
-                    error "cksum_path unsupported $opts for path type [file type $path]"
-                }
-            }
-            set result [dict create]
-            dict set result cksum $cksum
-            dict set result opts $opts_actual
-            return $result
-        }
-
-        #dict_path_cksum keyed on path - with value as a dict that must contain cksum key - but can contain other keys
-        #e.g -cksum_usetar  which is one of the keys understood by the punk::mix::base::lib::cksum_path function - or unrelated keys which will also be passed through
-        #cksum only calculated for keys in dict where cksum is empty - ie return same dict but with empty cksums filled out.
-        #base can be empty string in which case paths must be absolute
-        #expect dict_path_cksum to be a dict keyed on relpath where each value is a dictionary with keys cksum and opts
-        # ie subdict for <path> can be created from output of cksum_path <path> (for already known values not requiring filling)
-        #  or cksum "" opts [cksum_default_opts]  or  cksum "" opts {} (for cksum to be filled using supplied cksum opts if any)
-        proc fill_relativecksums_from_base_and_relativepathdict {base {dict_path_cksum {}}} {
-            if {$base eq ""} {
-                set error_paths [list]
-                dict for {path pathinfo} $dict_path_cksum {
-                    if {[file pathtype $path] ne "absolute"} {
-                        lappend error_paths $path
-                    }
-                }
-                if {[llength $error_paths]} {
-                    puts stderr "get_relativecksums_from_base_and_relativepathdict has empty base - and non-absolute paths in the supplied checksum dict - aborting"
-                    puts stderr "error_paths: $error_paths"
-                    error "fill_relativecksums_from_base_and_relativepathdict error: non-absolute paths when base empty. $error_paths"
-                }
-            } else {
-                if {[file pathtype $base] ne "absolute"} {
-                    error "fill_relativecksums_from_base_and_relativepathdict error: base supplied but was not absolute path.  $base"
-                }
-                #conversely now we have a base - so we require all paths are relative.
-                #We will ignore/disallow volume-relative - as these shouldn't be used here either
-                set error_paths [list]
-                dict for {path pathinfo} $dict_path_cksum {
-                    if {[file pathtype $path] ne "relative"} {
-                        lappend error_paths $path
-                    }
-                }
-                if {[llength $error_paths]} {
-                    puts stderr "fill_relativecksums_from_base_and_relativepathdict has a supplied absolute base path, but some of the paths in the supplied dict are not relative - aborting"
-                    error "fill_relativecksums_from_base_and_relativepathdict error: non-relative paths when base supplied. $error_paths"
-                }
-            }
-
-
-            dict for {path pathinfo} $dict_path_cksum {
-                puts "fill_relativecksums_from_base_and_relativepathdict-->$path  REVIEW"
-                #review to see if we process same path repeatedly, so could avoid repeated 'file exists $fullpath' below by caching a glob
-                if {![dict exists $pathinfo cksum]} {
-                    dict set pathinfo cksum ""
-                } else {
-                    if {[dict get $pathinfo cksum] ne "" && ![cksum_is_tag [dict get $pathinfo cksum]]} {
-                        continue ;#already filled with non-tag value
-                    }
-                }
-                if {$base ne ""} {
-                   set fullpath [file join $base $path]
-                } else {
-                    set fullpath $path
-                }
-
-                if {[dict exists $pathinfo opts]} {
-                    set ckopts [cksum_filter_opts {*}[dict get $pathinfo opts]]
-                } else {
-                    set ckopts {}
-                }
-
-                if {![file exists $fullpath]} {
-                    dict set dict_path_cksum $path cksum "<PATHNOTFOUND>"
-                } else {
-                    set ckinfo [cksum_path $fullpath {*}$ckopts]
-                    dict set dict_path_cksum $path cksum [dict get $ckinfo cksum]
-                    dict set dict_path_cksum $path cksum_all_opts [dict get $ckinfo opts]
-                    if {[dict exists $ckinfo error]} {
-                        dict set dict_path_cksum $path cksum_error [dict get $ckinfo error]
-                    }
-                }
-            }
-
-            return $dict_path_cksum
-        }
-        #whether cksum is <XXX>  e.g <ERR> <PATHNOTFOUND>
-        proc cksum_is_tag {cksum} {
-            expr {[string index $cksum 0] eq "<" && [string index $cksum end] eq ">"}
-        }
-        proc cksum_filter_opts {args} {
-            set ck_opt_names [dict keys [cksum_default_opts]]
-            set ck_opts [dict create]
-            foreach {k v} $args {
-                if {$k in $ck_opt_names} {
-                    dict set ck_opts $k $v
-                }
-            }
-            return $ck_opts
-        }
-
-        #convenience so caller doesn't have to pre-calculate the relative path from the base
-        #Note semantic difference from fill_relativecksums_from_base_and_relativepathdict  (hence get_ vs fill_)
-        #Here we will raise an error if cksum exists and is not empty or a tag - whereas the multiple path version will honour valid-looking prefilled cksum values (ie will pass them through)
-        #base is the presumed location to store the checksum file. The caller should retain (normalize if relative)
-        proc get_relativecksum_from_base {base specifiedpath args} {
-            if {$base ne ""} {
-                #targetpath ideally should be within same project tree as base if base supplied - but not necessarily below it
-                #we don't necessarily want to restrict this to use in punk projects though - so we'll allow anything with a common prefix
-                if {[file pathtype $specifiedpath] eq "relative"} {
-                    if {[file pathtype $base] eq "relative"} {
-                        set normbase [file normalize $base]
-                        set normtarg [file normalize [file join $normbase $specifiedpath]]
-                        set targetpath $normtarg
-                        set storedpath [punk::path::relative $normbase $normtarg]
-                    } else {
-                        set targetpath [file join $base $specifiedpath]
-                        set storedpath $specifiedpath
-                    }
-                } else {
-                    #specifed absolute
-                    if {[file pathtype $base] eq "relative"} {
-                        #relative to cwd or to specifiedpath? For consistency it should arguably be cwd but a case could be made that when one path is relative it is in reference to the other
-                        #there is a strong possibility that allowing this combination will cause confusion - better to disallow
-                        error "get_relativecksum_from_base error: disallowed pathtype combination. Base must be empty or absolute when specified path is absolute"
-                    }
-                    #both absolute - compute relative path if they share a common prefix
-                    set commonprefix [punk::mix::util::path_common_prefix $base $specifiedpath]
-                    if {$commonprefix eq ""} {
-                        #absolute base with no shared prefix doesn't make sense - we could ignore it - but better to error-out and require the caller specify an empty base
-                        error "get_relativecksum_from_base error: base '$base' and specifiedpath '$specifiedpath' don't share a common root. Use empty-string for base if independent absolute path is required"
-                    }
-                    set targetpath $specifiedpath
-                    set storedpath [punk::path::relative $base $specifiedpath]
-
-                }
-            } else {
-                if {[file pathtype $specifiedpath] eq "relative"} {
-                    #if specifiedpath is relative - and we don't have a base, we now need to convert relative to cwd to an absolute path for storage
-                    set targetpath [file normalize $specifiedpath]
-                    set storedpath $targetpath
-                } else {
-                    set targetpath $specifiedpath
-                    set storedpath $targetpath
-                }
-            }
-
-            #
-            #NOTE: specifiedpath can be a relative path (to cwd) when base is empty
-            #OR - a relative path when base itself is relative  e.g base: somewhere  targetpath somewhere/etc
-            #possibly also:  base: somewhere targetpath: ../elsewhere/etc
-            #
-            #todo - write tests
-
-
-            if {[llength $args] % 2} {
-                error "get_relativecksum_from_base error. args supplied must be in the form of key-value pairs. received '$args' "
-            }
-            if {[dict exists $args cksum]} {
-                if {[dict get $args cksum] ne "" && ![cksum_is_tag [dict get $args cksum]]} {
-                    error "get_relativecksum_from_base called with existing cksum value (and is not a tag or empty-value to be replaced) cksum: [dict get $args cksum]  Set cksum to be empty, any tag such as <REPLACE> or remove the key and try again."
-                }
-            }
-
-
-            set ckopts [cksum_filter_opts {*}$args]
-            set ckinfo [cksum_path $targetpath {*}$ckopts]
-
-            set keyvals $args ;# REVIEW
-            dict set keyvals cksum [dict get $ckinfo cksum]
-            #dict set keyvals cksum_all_opts [dict get $ckinfo opts]
-            dict set keyvals opts [dict get $ckinfo opts]
-            if {[dict exists $ckinfo error]} {
-                dict set keyvals cksum_error [dict get $ckinfo error]
-            }
-
-            #set relpath [punk::repo::path_strip_alreadynormalized_prefixdepth $fullpath $base] ;#empty base ok noop
-            #storedpath is relative if possible
-            return [dict create $storedpath $keyvals]
-        }
-
-        #calculate the runtime checksum and vfs checksums
-        proc get_all_vfs_build_cksums {path {cksum_opts {}}} {
-            set buildfolder [get_build_workdir $path]
-            set cksum_base_folder [file dirname $buildfolder] ;#this is the <project>/src folder - a reasonable base for our vfs cksums
-            set dict_cksums [dict create]
-
-            set buildrelpath [punk::repo::path_strip_alreadynormalized_prefixdepth $buildfolder $cksum_base_folder]
-            set vfs_tail_list [glob -nocomplain -dir $cksum_base_folder -type d -tails *.vfs]
-
-            foreach vfstail $vfs_tail_list {
-                set vname [file rootname $vfstail]
-                dict set dict_cksums $vfstail [list cksum ""]
-                dict set dict_cksums [file join $buildrelpath $vname.exe] [list cksum ""]
-            }
-
-            #buildruntime.exe obsolete..
-            puts stderr "warning obsolete? get_all_vfs_build_cksums 'buildruntime.exe'???"
-            set fullpath_buildruntime $buildfolder/buildruntime.exe
-
-            set ckinfo_buildruntime [cksum_path $fullpath_buildruntime]
-            set ck [dict get $ckinfo_buildruntime cksum]
-
-
-            set relpath [file join $buildrelpath "buildruntime.exe"]
-            dict set dict_cksums $relpath [list cksum $ck opts $cksum_opts]
-
-            set dict_cksums [fill_relativecksums_from_base_and_relativepathdict $cksum_base_folder $dict_cksums]
-
-            return $dict_cksums
-        }
-
-        proc get_vfs_build_cksums_stored {vfsfolder} {
-            set vfscontainer [file dirname $vfsfolder]
-            set buildfolder $vfscontainer/_build
-            set vfs [file tail $vfsfolder]
-            set vname [file rootname $vfs]
-            set dict_vfs [list $vname.vfs "" $vname.exe "" buildruntime.exe ""]
-            set ckfile $buildfolder/$vname.cksums
-            if {[file exists $ckfile]} {
-                set data [punk::mix::util::fcat -translation binary $ckfile]
-                foreach ln [split $data \n] {
-                    if {[string trim $ln] eq ""} {continue}
-                    lassign $ln path cksum
-                    dict set dict_vfs $path $cksum
-                }
-            }
-            return $dict_vfs
-        }
-        proc get_all_build_cksums_stored {path} {
-            set buildfolder [get_build_workdir $path]
-
-            set vfscontainer [file dirname $buildfolder]
-            set vfslist [glob -nocomplain -dir $vfscontainer -type d -tail *.vfs]
-            set dict_cksums [dict create]
-            foreach vfs $vfslist {
-                set vname [file rootname $vfs]
-                set dict_vfs [get_vfs_build_cksums_stored $vfscontainer/$vfs]
-
-                dict set dict_cksums $vname $dict_vfs
-            }
-            return $dict_cksums
-        }
-
-        proc store_vfs_build_cksums {vfsfolder} {
-            if {![file isdirectory $vfsfolder]} {
-                error "Unable to find supplied vfsfolder: $vfsfolder"
-            }
-            set vfscontainer [file dirname $vfsfolder]
-            set buildfolder $vfscontainer/_build
-            set dict_vfs [get_vfs_build_cksums $vfsfolder]
-            set data ""
-            dict for {path cksum} $dict_vfs {
-                append data "$path $cksum" \n
-            }
-            set fd [open $buildfolder/$vname.cksums w]
-            chan configure $fd -translation binary
-            puts $fd $data
-            close $fd
-            return $dict_vfs
-        }
-
-
-
-    }
-}
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm
deleted file mode 100644
index 124c6cf2..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm
+++ /dev/null
@@ -1,1439 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'deck make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::cli 0.3.1
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::repo
-package require punk::ansi
-package require punkcheck ;#checksum and/or timestamp records
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#review
-#deck - rename to dev
-namespace eval punk::mix::cli {
-    namespace eval temp_import {
-    }
-    namespace ensemble create
-    variable initialised 0
-
-    #lazy _init - called by punk::mix::base::_cli when ensemble used
-    proc _init {args} {
-        variable initialised
-        if {$initialised} {
-            return
-        }
-        puts stderr "punk::mix::cli::init $args"
-        package require punk::overlay
-        namespace eval ::punk::mix::cli {
-            catch {
-                punk::overlay::import_commandset module . ::punk::mix::commandset::module
-            }
-            punk::overlay::import_commandset debug . ::punk::mix::commandset::debug
-            punk::overlay::import_commandset repo  . ::punk::mix::commandset::repo
-            punk::overlay::import_commandset lib   . ::punk::mix::commandset::loadedlib
-
-            catch {
-                package require punk::mix::commandset::project
-                punk::overlay::import_commandset project    .       ::punk::mix::commandset::project
-                punk::overlay::import_commandset projects   .       ::punk::mix::commandset::project::collection
-            }
-            if {[catch {
-                package require punk::mix::commandset::layout
-                punk::overlay::import_commandset project.layout       . ::punk::mix::commandset::layout
-                punk::overlay::import_commandset project.layouts      . ::punk::mix::commandset::layout::collection
-            } errM]} {
-                puts stderr "error loading punk::mix::commandset::layout"
-                puts stderr $errM
-            }
-            if {[catch {
-                package require punk::mix::commandset::buildsuite
-                punk::overlay::import_commandset buildsuite     .   ::punk::mix::commandset::buildsuite
-                punk::overlay::import_commandset buildsuites    .   ::punk::mix::commandset::buildsuite::collection
-            } errM]} {
-                puts stderr "error loading punk::mix::commandset::buildsuite"
-                puts stderr $errM
-            }
-            punk::overlay::import_commandset scriptwrap  . ::punk::mix::commandset::scriptwrap
-            if {[catch {
-                package require punk::mix::commandset::doc
-                punk::overlay::import_commandset doc . ::punk::mix::commandset::doc
-                punk::overlay::import_commandset ""  ""   ::punk::mix::commandset::doc::collection
-            } errM]} {
-                puts stderr "error loading punk::mix::commandset::doc"
-                puts stderr $errM
-            }
-        }
-        set initialised 1
-    }
-
-    proc help {args} {
-        #set basehelp [punk::mix::base::help -extension [namespace current] {*}$args]
-        set basehelp [punk::mix::base help {*}$args]
-        #puts stdout "punk::mix help"
-        return $basehelp
-    }
-
-    proc stat {{workingdir ""} args} {
-        dict set args -v 0
-        punk::mix::cli::lib::get_status $workingdir {*}$args
-    }
-    proc status {{workingdir ""} args} {
-        dict set args -v 1
-        punk::mix::cli::lib::get_status $workingdir {*}$args
-    }
-
-
-
-
-
-
-
-}
-
-
-namespace eval punk::mix::cli {
-
-
-    #interp alias {} ::punk::mix::cli::project.new {} ::punk::mix::cli::new
-
-
-    proc make {args} {
-        set startdir [pwd]
-        set project_base "" ;#empty for unknown
-        if {[punk::repo::is_git $startdir]} {
-            set project_base [punk::repo::find_git]
-            set sourcefolder $project_base/src
-        } elseif {[punk::repo::is_fossil $startdir]} {
-            set project_base [punk::repo::find_fossil]
-            set sourcefolder $project_base/src
-        } else {
-            if {[punk::repo::is_candidate $startdir]} {
-                set project_base [punk::repo::find_candidate]
-                set sourcefolder $project_base/src
-                puts stderr "WARNING - project not under git or fossil control"
-                puts stderr "Using base folder $project_base"
-            } else {
-                set sourcefolder $startdir
-            }
-        }
-
-        #for externally launched tclsh or punkshell running src/make.tcl the cwd
-        #needs to be such that make.tcl can find required bootsupport libraries without relying on auto_path or tcl::tm::list mechanisms.
-        #we can change directory during the run, and change back again afterwards.
-
-        #also - if no make.tcl - can we use the running shell's make.tcl ? (after prompting user?)
-
-        if {([file tail $sourcefolder] ne "src") || (![file exists $sourcefolder/make.tcl])} {
-            puts stderr "dev make must be run from src folder containing make.tcl or from within a project containing src/make.tcl - unable to proceed (cwd: [pwd])"
-            if {[string length $project_base]} {
-                if {[file exists $project_base/src] && [string tolower [pwd]] ne [string tolower $project_base/src]} {
-                    puts stderr "Try cd to $project_base/src"
-                }
-            } else {
-                #review - intended usecase?
-                if {[file exists $startdir/Makefile]} {
-                    puts stdout "A Makefile exists at $startdir/Makefile."
-                    if {"windows" eq $::tcl_platform(platform)} {
-                        puts stdout "Try running: msys2 -ucrt64 -here -c \"make build\" or bash -c \"make build\""
-                    } else {
-                        puts stdout "Try runing: make build"
-                    }
-                }
-            }
-            return false
-        }
-
-        if {![string length $project_base]} {
-            puts stderr "WARNING no git or fossil repository detected."
-            puts stderr "Using base folder $startdir"
-            set project_base $startdir
-        }
-
-        set lc_this_exe [string tolower [info nameofexecutable]]
-        set lc_proj_bin [string tolower $project_base/bin]
-        set lc_build_bin [string tolower $project_base/src/_build]
-
-        if {"project" in $args} {
-            set is_own_exe 0
-            if {[string match "${lc_proj_bin}*" $lc_this_exe] || [string match "${lc_build_bin}" $lc_this_exe]} {
-                set is_own_exe 1
-                puts stderr "WARNING - running make using executable that may be created by the project being built"
-                set answer [util::askuser "Do you want to proceed using this executable? (build will probably stop when it is unable to  update the executable) Y|N"]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompts."
-                    return
-                }
-            }
-        }
-
-        #if {![catch {run --timeout=150000 -debug [info nameofexecutable] $sourcefolder/make.tcl {*}$args} exitinfo]} {
-        #    #todo - notify if exit because of timeout!
-        #    puts stderr "exitinfo: $exitinfo"
-        #    set exitcode [dict get $exitinfo exitcode]
-        #} else {
-        #    puts stderr "Error unable to determine exitcode. err: $exitinfo"
-        #    #cd $startdir
-        #    return false
-        #}
-
-        #use run so that stdout visible as it goes
-        #review - is setting a timeout here useful? It will just be annoying if the project really does need the time.
-        #review - on timeout what happens? (implemented in shellfilter)
-        #  - if just stderr/stdout redirection channels closed - what happens with stdin?
-        #  e.g 'for dev make shell' - we just get no further responses but stdin still consuming keystrokes?
-        try {
-            #cd $sourcefolder ;#dev paths can overide bootsupport modules
-            cd $project_base ;#bootsupport modules only
-            set exitinfo [run --timeout=150000 -debug [info nameofexecutable] $sourcefolder/make.tcl {*}$args]
-        } trap {} {emsg eopts} {
-            puts stderr "Error, unable to determine exitcode. err: $emsg"
-            return false
-        } finally {
-            cd $startdir
-        }
-        puts stderr "exitinfo: $exitinfo"
-        set exitcode [dict get $exitinfo exitcode]
-
-        if {$exitcode != 0} {
-            puts stderr "FAILED with exitcode $exitcode"
-            return false
-        } else {
-            puts stdout "OK make finished "
-            return true
-        }
-    }
-
-    proc Kettle {args} {
-        tailcall lib::kettle_call lib {*}$args
-    }
-    proc KettleShell {args} {
-        tailcall lib::kettle_call shell {*}$args
-    }
-
-
-
-    namespace eval lib {
-        namespace path ::punk::mix::util
-
-
-        proc module_types {} {
-            #first in list is default for unspecified -type when creating new module
-            #return [list plain tarjar zipkit]
-            return [list plain tarjar zip]
-        }
-
-        proc validate_modulename {modulename args} {
-            set opts [list\
-                -errorprefix validate_modulename\
-                -strict 0\
-                ]
-            if {[llength $args] %2 != 0} {error "validate_modulename args must be name-value pairs: received '$args'"}
-            foreach {k v} $args {
-                switch -- $k {
-                    -errorprefix - -strict {
-                        dict set opts $k $v
-                    }
-                    default {
-                        error "validate_modulename error: unknown option '$k'. known options: [dict keys $opts]"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_errorprefix             [dict get $opts -errorprefix]
-            set opt_strict                  [dict get $opts -strict]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            if {$opt_strict} {
-                if {[regexp {[A-Z]} $modulename]} {
-                    error "$opt_errorprefix '$modulename' contains uppercase which is not recommended as per tip 590, and option -strict is set to 1"
-                }
-            }
-
-            validate_name_not_empty_or_spaced $modulename -errorprefix $opt_errorprefix
-            set testname [string map {:: {}} $modulename]
-            if {[string first : $testname] >=0} {
-                error "$opt_errorprefix '$modulename' can only contain paired colons"
-            }
-            set badchars [list - "$" "?" "*"]
-            foreach bc $badchars {
-                if {[string first $bc $modulename] >= 0} {
-                    error "$opt_errorprefix '$modulename' can not contain character '$bc'"
-                }
-            }
-            return $modulename
-        }
-        proc confirm_modulename {modulename} {
-            set finalised 0
-            set aborted 0
-            while {!$finalised && !$aborted} {
-                #first validate with -strict 0 to confirm acceptable while ignoring case issues.
-                #uppercase is generally valid but not recommended - so has separate prompting.
-                if {[catch {validate_modulename $modulename -strict 0} errM]} {
-                    set msg "Chosen name didn't pass validation\n"
-                    append msg "reason: $errM\n"
-                    append msg "Please retype the modulename. You will be given a further prompt to confirm or abort."
-                    set modulename [util::askuser $msg]
-                } elseif {[regexp {[A-Z]} $modulename]} {
-                    set msg     "module names containing uppercase are not recommended (see tip 590).\n"
-                    append msg  "Please retype the module name '$modulename' to proceed.\n"
-                    append msg  "If you type it exactly as it was you will be allowed to proceed with uppercase anyway\n"
-                    append msg  "Retype it all in lowercase to use recommended naming"
-                    set answer [util::askuser $msg]
-                    if {[regexp {[A-Z]} $answer]} {
-                        if {$answer eq $modulename} {
-                            #ok - user insists
-                            set finalised 1
-                        } else {
-                            #user supplied a different uppercase name - don't set finalised so we bug them again to type it two times the same way to proceed
-                            puts stdout "A different uppercase name was supplied - reconfirmation required."
-                        }
-                        set modulename $answer
-                    } else {
-                        #user has resupplied modulename all as lowercase
-                        if {$answer eq [string tolower $modulename]} {
-                            set finalised 1
-                        } else {
-                            #.. but it doesn't match original - require rerun
-                        }
-                        set modulename $answer
-                    }
-                } else {
-                    set answer [util::askuser "Proceed with the module name '$modulename'? Y to continue N to abort"]
-                    if {[string tolower $answer] eq "y"} {
-                        set finalised 1
-                    } else {
-                        set aborted 1
-                    }
-                }
-            }
-            if {$aborted} {
-                return [dict create status error reason errmsg]
-            } else {
-                return [dict create status ok modulename $modulename]
-            }
-        }
-
-        proc validate_projectname {projectname args} {
-            set defaults [list\
-                -errorprefix projectname\
-                ]
-            if {[llength $args] %2 != 0} {error "validate_modulename args must be name-value pairs: received '$args'"}
-            set known_opts [dict keys $defaults]
-            foreach k [dict keys $args] {
-                if {$k ni $known_opts} {
-                    error "validate_modulename error: unknown option $k. known options: $known_opts"
-                }
-            }
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_errorprefix            [dict get $opts -errorprefix]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            validate_name_not_empty_or_spaced $projectname -errorprefix $opt_errorprefix
-            set reserved_words [list etc lib bin modules src doc vendorlib vendormodules embedded runtime _aside _build]
-            if {$projectname in $reserved_words } {
-                error "$opt_errorprefix '$projectname' cannot be one of reserved_words: $reserved_words"
-            }
-            if {[string first "::" $projectname] >= 0} {
-                error "$opt_errorprefix '$projectname' cannot contain namespace separator '::'"
-            }
-            return $projectname
-        }
-        proc validate_name_not_empty_or_spaced {name args} {
-            set opts [list\
-                -errorprefix projectname\
-                ]
-            if {[llength $args] %2 != 0} {error "validate_name_not_empty_or_spaced args must be name-value pairs: received '$args'"}
-            foreach {k v} $args {
-                switch -- $k {
-                    -errorprefix {
-                        dict set opts $k $v
-                    }
-                    default {
-                        error "validate_name_not_empty_or_spaced error: unknown option $k. known options: [dict keys $opts]"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_errorprefix            [dict get $opts -errorprefix]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            if {![string length $name]} {
-                error "$opt_errorprefix cannot be empty"
-            }
-            if {[string length [string map [list " " "" \n "" \r "" \t ""] $name]] != [string length $name]} {
-                error "$opt_errorprefix cannot contain whitespace"
-            }
-            return $name
-        }
-
-        #split modulename (as present in a filename or namespaced name) into name/version ignoring leading namespace path
-        #ignore trailing .tm .TM if present
-        #if version doesn't pass validation - treat it as part of the modulename and return empty version string without error
-        #Up to caller to validate.
-        proc split_modulename_version {fullmodulename} {
-            set lastpart [namespace tail $fullmodulename]
-            set lastpart [file tail $lastpart] ;# should be ok to use file tail now that we've ensured no namespace components
-            if {[string equal -nocase [file extension $fullmodulename] ".tm"]} {
-                 set fileparts [split [file rootname $lastpart] -]
-            } else {
-                 set fileparts [split $lastpart -]
-            }
-            if {[punk::mix::util::is_valid_tm_version [lindex $fileparts end]]} {
-                set versionsegment [lindex $fileparts end]
-                set namesegment [join [lrange $fileparts 0 end-1] -];#re-stitch
-            } else {
-                #
-                set namesegment [join $fileparts -]
-                set versionsegment ""
-            }
-            set base [namespace qualifiers $fullmodulename]
-            if {$base ne ""} {
-                set modulename "${base}::$namesegment"
-            } else {
-                set modulename $namesegment
-            }
-            return [list $modulename $versionsegment]
-        }
-
-        proc get_status {{workingdir ""} args} {
-            set result ""
-            if {$workingdir ne ""} {
-                if {[file pathtype $workingdir] ne "absolute"} {
-                set workingdir [file normalize $workingdir]
-                }
-                set active_dir $workingdir
-            } else {
-                set active_dir [pwd]
-            }
-            set defaults [dict create\
-                -v 1\
-            ]
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- ---
-            set opt_v       [dict get $opts -v]
-            # -- --- --- --- --- --- --- --- ---
-
-
-            set repopaths [punk::repo::find_repos [pwd]]
-            set repos [dict get $repopaths repos]
-            if {![llength $repos]} {
-                append result [punk::ansi::a+ bold yellow][dict get $repopaths warnings][punk::ansi::a]
-            } else {
-                append result [punk::ansi::a+ bold yellow][dict get $repopaths warnings][punk::ansi::a]
-                lassign [lindex $repos 0] repopath repotypes
-                if {"fossil" in $repotypes} {
-                    #review - multiple process launches to fossil a bit slow on windows..
-                    #could we query global db in one go instead?
-                    #
-                    set fossil_prog [auto_execok fossil]
-                    append result "FOSSIL project based at $repopath with revision: [punk::repo::fossil_revision $repopath]" \n
-                    set fosinfo [exec {*}$fossil_prog info]
-                    append result [join [punk::repo::grep {repository:*}        $fosinfo] \n] \n
-
-                    set fosrem [exec {*}$fossil_prog remote ls]
-                    if {[string length $fosrem]} {
-                        append result "Remotes:\n"
-                        append result "    " $fosrem \n
-                    }
-
-
-                    append result [join [punk::repo::grep {tags:*}              $fosinfo] \n] \n
-
-                    set dbinfo [exec {*}$fossil_prog dbstat]
-                    append result [join [punk::repo::grep {project-name:*}      $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {tickets:*}           $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {project-age:*}       $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {latest-change:*}     $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {files:*}             $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {check-ins:*}         $dbinfo] \n] \n
-                    if {"project" in $repotypes} {
-                        #punk project
-                        if {![catch {package require textblock; package require patternpunk}]} {
-                           set result [textblock::join -- [>punk . logo] "  " $result]
-                           append result \n
-                        }
-                    }
-
-                    set timeline [exec fossil timeline -n 5 -t ci]
-                    set timeline [string map {\r\n \n} $timeline]
-                    append result $timeline
-                    if {$opt_v} {
-                        set repostate [punk::repo::workingdir_state $repopath -repopaths $repopaths -repotypes fossil]
-                        append result \n [punk::repo::workingdir_state_summary $repostate]
-                    }
-
-                }
-                #repotypes *could* be both git and fossil - so report both if so
-                if {"git" in $repotypes} {
-                    append result "GIT project based at $repopath with revision: [punk::repo::git_revision $repopath]" \n
-                    if {[string length [set git_prog [auto_execok git]]]} {
-                        set git_remotes [exec {*}$git_prog remote -v]
-                        append result $git_remotes
-                        if {$opt_v} {
-                            set repostate [punk::repo::workingdir_state $repopath -repopaths $repopaths -repotypes git]
-                            append result \n [punk::repo::workingdir_state_summary $repostate]
-                        }
-                    }
-                }
-
-            }
-
-            return $result
-        }
-
-
-        proc build_modules_from_source_to_base {srcdir basedir args} {
-            set antidir [list "#*" "_build" "_aside" ".git" ".fossil*"] ;#exact or glob patterns for folders (at any level) we don't want to search in or copy.
-            set defaults [list\
-                -installer punk::mix::cli::build_modules_from_source_to_base\
-                -call-depth-internal 0\
-                -max_depth 1000\
-                -subdirlist {}\
-                -punkcheck_eventobj "\uFFFF"\
-                -glob *.tm\
-                -podglob #modpod-*\
-                -tarjarglob #tarjar-*\
-                ]
-            set opts [dict merge $defaults $args]
-
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set installername                       [dict get $opts -installer]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set CALLDEPTH                               [dict get $opts -call-depth-internal]
-            set max_depth                               [dict get $opts -max_depth]
-            set subdirlist                              [dict get $opts -subdirlist]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set fileglob                                [dict get $opts -glob]
-            set podglob                                 [dict get $opts -podglob]
-            set tarjarglob                              [dict get $opts -tarjarglob]
-            if {![string match "*.tm" $fileglob]} {
-                error "build_modules_from_source_to_base -glob '$fileglob' doesn't seem to target tcl modules."
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_punkcheck_eventobj                   [dict get $opts -punkcheck_eventobj]
-
-            set magicversion [punk::mix::util::magic_tm_version] ;#deliberately large so given load-preference when testing
-            set module_list [list]
-
-            if {[file tail [file dirname $srcdir]] ne "src"} {
-                puts stderr "ERROR build_modules_from_source_to_base can only be called with a srcdir that is a subfolder of your 'src' directory"
-                puts stderr "The .tm modules are namespaced based on their directory depth - so we need to start at the root"
-                puts stderr "To build a subtree of your modules - use an appropriate src/modules folder and pass in the -subdirlist."
-                puts stderr "e.g if your modules are based at /x/src/modules2 and you wish to build only the .tm files at /x/src/modules2/skunkworks/lib"
-                puts stderr "Use: >build_modules_from_source_to_base /x/src/modules2 /x/modules2 -subdirlist {skunkworks lib}"
-                exit 2
-            }
-            set srcdirname [file tail $srcdir]
-
-            set build [file dirname $srcdir]/_build/$srcdirname ;#relative to *original* srcdir - not current_source_dir
-            if {[llength $subdirlist] == 0} {
-                set target_module_dir $basedir
-                set current_source_dir $srcdir
-            } else {
-                set target_module_dir $basedir/[file join {*}$subdirlist]
-                set current_source_dir $srcdir/[file join {*}$subdirlist]
-            }
-            if {![file exists $target_module_dir]} {
-                error "build_modules_from_source_to_base from current source dir: '$current_source_dir'.  Basedir:'$current_module_dir' doesn't exist or is empty"
-            }
-            if {![file exists $current_source_dir]} {
-                error "build_modules_from_source_to_base from current source dir:'$current_source_dir' doesn't exist or is empty"
-            }
-
-            #----------------------------------------
-            set punkcheck_file [file join $basedir/.punkcheck]
-            if {$CALLDEPTH == 0} {
-
-                set config [dict create\
-                    -glob $fileglob\
-                    -max_depth 0\
-                ]
-                #lassign [punkcheck::start_installer_event $punkcheck_file $installername $srcdir $basedir $config] _eventid punkcheck_eventid _recordset record_list
-                # -- ---
-                set installer [punkcheck::installtrack new $installername $punkcheck_file]
-                $installer set_source_target $srcdir $basedir
-                set event [$installer start_event $config]
-                # -- ---
-
-            } else {
-                set event $opt_punkcheck_eventobj
-            }
-            #----------------------------------------
-
-
-            set process_modules [dict create]
-            #put pods first in processing order
-            set src_pods    [glob -nocomplain -dir $current_source_dir -type d -tail $podglob]
-            foreach podpath $src_pods {
-                dict set process_modules $podpath [dict create -type pod]
-            }
-            set src_tarjars [glob -nocomplain -dir $current_source_dir -type d -tail $tarjarglob]
-            foreach tarjarpath $src_tarjars {
-                dict set process_modules $tarjarpath [dict create -type tarjar]
-            }
-            set src_modules [glob -nocomplain -dir $current_source_dir -type f -tail $fileglob]
-            foreach modulepath $src_modules {
-                dict set process_modules $modulepath [dict create -type file]
-            }
-
-            set did_skip 0 ;#flag for stdout/stderr formatting only
-            dict for {modpath modinfo} $process_modules {
-                set modtype [dict get $modinfo -type]
-
-                set is_interesting 0
-                if {[string match "foobar" $current_source_dir]} {
-                    set  is_interesting 1
-                }
-                if {$is_interesting} {
-                    puts "build_modules_from_source_to_base >>> module $current_source_dir/$modpath"
-                }
-                set fileparts [split [file rootname $modpath] -]
-                #set tmfile_versionsegment [lindex $fileparts end]
-                lassign [split_modulename_version $modpath] basename tmfile_versionsegment
-                if {$tmfile_versionsegment eq ""} {
-                    #split_modulename_version version part will be empty if not valid tcl version
-                    #last segment doesn't look even slightly versiony - fail.
-                    puts stderr "ERROR: Unable to confirm file $current_source_dir/$modpath is a reasonably versioned .tm module - ABORTING."
-                    exit 1
-                }
-                switch -- $modtype {
-                    pod {
-                        #basename still contains leading #modpod-
-                        if {[string match #modpod-* $basename]} {
-                            set basename [string range $basename 8 end]
-                        } else {
-                            error "build_modules_from_source_to_base, pod, unexpected basename $basename" ;#shouldn't be possible with default podglob - review - why is podglob configurable?
-                        }
-                        set versionfile $current_source_dir/$basename-buildversion.txt ;#needs to be added in targetset_addsource to trigger rebuild if changed (only when magicversion in use)
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            set versionfiledata ""
-                            if {![file exists $versionfile]} {
-                                puts stderr "\nWARNING: Missing buildversion text file: $versionfile"
-                                puts stderr "Using version 0.1 - create $versionfile containing the desired version number as the top line to avoid this warning\n"
-                                set module_build_version "0.1"
-                            } else {
-                                set fd [open $versionfile r]
-                                set versionfiledata [read $fd]; close $fd
-                                set ln0 [lindex [split $versionfiledata \n] 0]
-                                set ln0 [string trim $ln0]; set ln0 [string trim $ln0 \r]
-                                if {![util::is_valid_tm_version $ln0]} {
-                                    puts stderr "ERROR: build version '$ln0' specified in $versionfile is not suitable. Please ensure a proper version number is at first line of file"
-                                    exit 3
-                                }
-                                set module_build_version $ln0
-                            }
-                        } else {
-                            set module_build_version $tmfile_versionsegment
-                        }
-
-                        set buildfolder $current_source_dir/_build
-                        file mkdir $buildfolder
-                        # -- ---
-                        set config [dict create\
-                            -glob *\
-                            -max_depth 100\
-                        ]
-                        set had_error 0
-
-                        # -max_depth -1 for no limit
-                        set build_installername pods_in_$current_source_dir
-                        set build_installer [punkcheck::installtrack new $build_installername $buildfolder/.punkcheck]
-                        $build_installer set_source_target $current_source_dir/$modpath $buildfolder
-                        set build_event [$build_installer start_event $config]
-                        # -- ---
-                        set podtree_copy $buildfolder/#modpod-$basename-$module_build_version
-                        set modulefile $buildfolder/$basename-$module_build_version.tm
-
-
-                        $build_event targetset_init INSTALL $podtree_copy
-                        $build_event targetset_addsource $current_source_dir/$modpath
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            $build_event targetset_addsource $versionfile
-                        }
-                        if {\
-                                [llength [dict get [$build_event targetset_source_changes] changed]]\
-                            || [llength [$build_event get_targets_exist]] < [llength [$build_event get_targets]]\
-                            } {
-                            $build_event targetset_started
-                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-
-                            set delete_failed 0
-                            if {[file exists $buildfolder/]} {
-                                puts stderr "deleting existing _build copy at $podtree_copy"
-                                if {[catch {
-                                    file delete -force $podtree_copy
-                                    } errMsg]} {
-                                    puts stderr "[punk::ansi::a+ red]deletion of _build copy at $podtree_copy failed: $errMsg[punk::ansi::a]"
-                                    set delete_failed 1
-                                }
-                            }
-                            if {!$delete_failed} {
-                                puts stdout "copying.."
-                                puts stdout "$current_source_dir/$modpath"
-                                puts stdout "to:"
-                                puts stdout "$podtree_copy"
-                                file copy $current_source_dir/$modpath $podtree_copy
-                                if {$tmfile_versionsegment eq $magicversion} {
-                                    set tmfile $buildfolder/#modpod-$basename-$module_build_version/$basename-$magicversion.tm
-                                    if {[file exists $tmfile]} {
-                                        set newname $buildfolder/#modpod-$basename-$module_build_version/$basename-$module_build_version.tm
-                                        file rename $tmfile $newname
-                                        set tmfile $newname
-                                    }
-                                    set fd [open $tmfile r]; fconfigure $fd -translation binary; set data [read $fd]; close $fd
-                                    set data [string map [list $magicversion $module_build_version] $data]
-                                    set fdout [open $tmfile w]
-                                    fconfigure $fdout -translation binary
-                                    puts -nonewline $fdout $data
-                                    close $fdout
-                                }
-                                #delete and regenerate zip and modpod stubbed zip
-                                set notes [list]
-                                if {[catch {
-                                    file delete $buildfolder/$basename-$module_build_version.zip
-                                } err] } {
-                                    set had_error 1
-                                    lappend notes "zip_delete_failed"
-                                }
-                                if {[catch {
-                                    file delete $buildfolder/$basename-$module_build_version.tm
-                                } err]} {
-                                    set had_error 1
-                                    lappend notes "tm_delete_failed"
-                                }
-                                #create ordinary zip file without using external executable
-                                package require punk::zip
-                                set zipfile $buildfolder/$basename-$module_build_version.zip ;#ordinary zip file (deflate)
-
-                                #zipfs mkzip does exactly what we need anyway in this case
-                                #unfortunately it's not available in all Tclsh versions we might be running..
-                                if {[llength [info commands zipfs]]} {
-                                    #zipfs mkzip (2025) doesn't add entries for folders.
-                                    #(Therefore no timestamps)
-                                    #zip reading utils generally intuit their existence and display them - but often an editor can't add comments to them
-                                    set wd [pwd]
-                                    cd $buildfolder
-                                    puts "zipfs mkzip $zipfile #modpod-$basename-$module_build_version"
-                                    zipfs mkzip $zipfile #modpod-$basename-$module_build_version
-                                    cd $wd
-
-                                } else {
-                                    #use -base $buildfolder so that -directory is included in the archive - the modpod stub relies on this - and extraction would be potentially messy otherwise
-                                    #put in an archive-level comment to aid in debugging
-                                    #punk
-                                    punk::zip::mkzip -base $buildfolder -directory $buildfolder/#modpod-$basename-$module_build_version  -- $zipfile *
-                                    #punk::zip::mkzip stores permissions - (unix style) - which zipfs mkzip doesn't
-                                    #Directory ident in zipfs relies on folders ending with trailing slash - if missing, it misidentifies dirs as files.
-                                    #(ie it can't use permissions/attributes alone to determine directory vs file)
-                                    #TODO - review punk::zip::mkzip and/or external zip to provide a fallback?
-                                    #JMN25
-
-                                    #set had_error 1
-                                    #lappend notes "zipfs_unavailable"
-                                    #puts stderr "WARNING: zipfs unavailable can't build $modulefile"
-                                }
-                                if {!$had_error && [file exists $zipfile]} {
-                                    package require modpod
-                                    modpod::lib::make_zip_modpod $zipfile $modulefile
-                                }
-
-
-                                if {$had_error} {
-                                    $build_event targetset_end FAILED -note [join $notes ,]
-                                } else {
-                                    # -- ----------
-                                    $build_event targetset_end OK
-                                    # -- ----------
-                                }
-                            } else {
-                                $build_event targetset_end FAILED -note "could not delete $podtree_copy"
-                            }
-
-                        } else {
-                            puts -nonewline stderr "Z"
-                            set did_skip 1
-                            #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                            $build_event targetset_end SKIPPED
-                        }
-                        $build_event destroy
-                        $build_installer destroy
-
-                        #JMN - review
-                        if {!$had_error} {
-                            $event targetset_init INSTALL $target_module_dir/$basename-$module_build_version.tm
-                            $event targetset_addsource $modulefile
-                            if {\
-                                    [llength [dict get [$event targetset_source_changes] changed]]\
-                                || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                                } {
-
-                                $event targetset_started
-                                # -- --- --- --- --- ---
-                                if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                                lappend module_list $modulefile
-                                if {[catch {
-                                    file copy -force $modulefile $target_module_dir
-                                } errMsg]} {
-                                    puts stderr "FAILED to copy zip modpod module $modulefile to $target_module_dir"
-                                    $event targetset_end FAILED -note "could not copy $modulefile"
-                                } else {
-                                    puts stderr "Copied zip modpod module $modulefile to $target_module_dir"
-                                    # -- --- --- --- --- ---
-                                    $event targetset_end OK -note "zip modpod"
-                                }
-                            } else {
-                                puts -nonewline stderr "z"
-                                set did_skip 1
-                                if {$is_interesting} {
-                                    puts stderr "$modulefile [$event targetset_source_changes]"
-                                }
-                                $event targetset_end SKIPPED
-                            }
-                        }
-                    }
-                    tarjar {
-                        #maint - overall code structure same as pod - refactor?
-                        #basename may still contain  #tarjar-
-                        #to be obsoleted - update modpod to (optionally) use vfs::tar ?
-                        if {[string match #tarjar-* $basename]} {
-                            set basename [string range $basename 8 end]
-                        } else {
-                            error "build_modules_from_source_to_base, tarjar, unexpected basename $basename" ;#shouldn't be possible with default tarjarglob - review - why is tarjarglob configurable?
-                        }
-                        set versionfile $current_source_dir/$basename-buildversion.txt ;#needs to be added in targetset_addsource to trigger rebuild if changed (only when magicversion in use)
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            set versionfiledata ""
-                            if {![file exists $versionfile]} {
-                                puts stderr "\nWARNING: Missing buildversion text file: $versionfile"
-                                puts stderr "Using version 0.1 - create $versionfile containing the desired version number as the top line to avoid this warning\n"
-                                set module_build_version "0.1"
-                            } else {
-                                set fd [open $versionfile r]
-                                set versionfiledata [read $fd]; close $fd
-                                set ln0 [lindex [split $versionfiledata \n] 0]
-                                set ln0 [string trim $ln0]; set ln0 [string trim $ln0 \r]
-                                if {![util::is_valid_tm_version $ln0]} {
-                                    puts stderr "ERROR: build version '$ln0' specified in $versionfile is not suitable. Please ensure a proper version number is at first line of file"
-                                    exit 3
-                                }
-                                set module_build_version $ln0
-                            }
-                        } else {
-                            set module_build_version $tmfile_versionsegment
-                        }
-
-                        set buildfolder $current_source_dir/_build
-                        file mkdir $buildfolder
-                        # -- ---
-                        set config [dict create\
-                            -glob *\
-                            -max_depth 100\
-                        ]
-                        set had_error 0
-
-                        # -max_depth -1 for no limit
-                        set build_installername tarjars_in_$current_source_dir
-                        set build_installer [punkcheck::installtrack new $build_installername $buildfolder/.punkcheck]
-                        $build_installer set_source_target $current_source_dir/$modpath $buildfolder
-                        set build_event [$build_installer start_event $config]
-                        # -- ---
-                        set podtree_copy $buildfolder/#tarjar-$basename-$module_build_version
-                        set modulefile $buildfolder/$basename-$module_build_version.tm
-
-
-                        $build_event targetset_init INSTALL $podtree_copy
-                        $build_event targetset_addsource $current_source_dir/$modpath
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            $build_event targetset_addsource $versionfile
-                        }
-                        if {\
-                                [llength [dict get [$build_event targetset_source_changes] changed]]\
-                            || [llength [$build_event get_targets_exist]] < [llength [$build_event get_targets]]\
-                            } {
-                            $build_event targetset_started
-                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-
-                            set delete_failed 0
-                            if {[file exists $buildfolder/]} {
-                                puts stderr "deleting existing _build copy at $podtree_copy"
-                                if {[catch {
-                                    file delete -force $podtree_copy
-                                    } errMsg]} {
-                                    puts stderr "[punk::ansi::a+ red]deletion of _build copy at $podtree_copy failed: $errMsg[punk::ansi::a]"
-                                    set delete_failed 1
-                                }
-                            }
-                            if {!$delete_failed} {
-                                puts stdout "copying.."
-                                puts stdout "$current_source_dir/$modpath"
-                                puts stdout "to:"
-                                puts stdout "$podtree_copy"
-                                file copy $current_source_dir/$modpath $podtree_copy
-                                if {$tmfile_versionsegment eq $magicversion} {
-                                    set tmfile $buildfolder/#tarjar-$basename-$module_build_version/#tarjar-loadscript-$basename.tcl
-                                    #we don't need to modify version or name of the loadscript
-                                    if {![file exists $tmfile]} {
-                                        set had_error 1
-                                        lappend notes "tarjar_loadscript_missing"
-                                    } else {
-                                        #the loadscript must end in a line starting with # and ending with backslash - with no linefeed
-                                        set fd [open $tmfile r]
-                                        chan configure $fd -translation binary
-                                        #last line must be less than 1k long
-                                        chan seek $fd -1024 end
-                                        set script_tail [read $fd]
-                                        set lastlf [string last \n $script_tail]
-                                        set lastline [string range $script_tail $lastlf+1 end]
-                                        set lastline [string trimleft $lastline] ;#lhs whitespace is ok
-                                        if {[string index $lastline 0] ne "#" || [string index $lastline end] ne "\\" } {
-                                            set had_error 1
-                                            lappend notes "tarjar_loadscript_badtail"
-                                        }
-                                    }
-                                }
-                                #delete and regenerate .tm
-                                set notes [list]
-                                if {[catch {
-                                    file delete $buildfolder/$basename-$module_build_version.tm
-                                } err]} {
-                                    set had_error 1
-                                    lappend notes "tm_delete_failed"
-                                }
-                                #create ordinary tar file without using external executable
-                                package require tar ;#tcllib
-                                set tarfile $buildfolder/$basename-$module_build_version.tm ;#ordinary tar file (no compression - store)
-                                set wd [pwd]
-                                cd $buildfolder
-                                puts "tar::create $tarfile #tarjar-$basename-$module_build_version"
-                                if {[catch {
-                                    tar::create $tarfile #tarjar-$basename-$module_build_version
-                                } errMsg]} {
-                                    set had_error 1
-                                    puts stderr "tar::create $tarfile failed with msg\n $errMsg"
-                                    lappend notes "tar_create_failed"
-                                }
-                                cd $wd
-
-                                if {![file exists $tarfile]} {
-                                    set had_error 1
-                                    lappend notes "tar_result_missing"
-                                }
-
-
-                                if {$had_error} {
-                                    $build_event targetset_end FAILED -note [join $notes ,]
-                                } else {
-                                    # -- ----------
-                                    $build_event targetset_end OK
-                                    # -- ----------
-                                }
-                            } else {
-                                $build_event targetset_end FAILED -note "could not delete $podtree_copy"
-                            }
-
-                        } else {
-                            puts -nonewline stderr "T"
-                            set did_skip 1
-                            #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                            $build_event targetset_end SKIPPED
-                        }
-                        $build_event destroy
-                        $build_installer destroy
-
-                        #JMN - review
-                        if {!$had_error} {
-                            $event targetset_init INSTALL $target_module_dir/$basename-$module_build_version.tm
-                            $event targetset_addsource $modulefile
-                            if {\
-                                    [llength [dict get [$event targetset_source_changes] changed]]\
-                                || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                                } {
-
-                                $event targetset_started
-                                # -- --- --- --- --- ---
-                                if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                                lappend module_list $modulefile
-                                if {[catch {
-                                    file copy -force $modulefile $target_module_dir
-                                } errMsg]} {
-                                    puts stderr "FAILED to copy tarjar module $modulefile to $target_module_dir"
-                                    $event targetset_end FAILED -note "could not copy $modulefile"
-                                } else {
-                                    puts stderr "Copied tarjar module $modulefile to $target_module_dir"
-                                    # -- --- --- --- --- ---
-                                    $event targetset_end OK -note "tarjar"
-                                }
-                            } else {
-                                puts -nonewline stderr "t"
-                                set did_skip 1
-                                if {$is_interesting} {
-                                    puts stderr "$modulefile [$event targetset_source_changes]"
-                                }
-                                $event targetset_end SKIPPED
-                            }
-                        }
-
-                    }
-                    file {
-                        set m $modpath
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            #set basename [join [lrange $fileparts 0 end-1] -]
-                            set versionfile $current_source_dir/$basename-buildversion.txt
-                            set versionfiledata ""
-                            if {![file exists $versionfile]} {
-                                puts stderr "\nWARNING: Missing buildversion text file: $versionfile"
-                                puts stderr "Using version 0.1 - create $versionfile containing the desired version number as the top line to avoid this warning\n"
-                                set module_build_version "0.1"
-                            } else {
-                                set fd [open $versionfile r]
-                                set versionfiledata [read $fd]; close $fd
-                                set ln0 [lindex [split $versionfiledata \n] 0]
-                                set ln0 [string trim $ln0]; set ln0 [string trim $ln0 \r]
-                                if {![util::is_valid_tm_version $ln0]} {
-                                    puts stderr "ERROR: build version '$ln0' specified in $versionfile is not suitable. Please ensure a proper version number is at first line of file"
-                                    exit 3
-                                }
-                                set module_build_version $ln0
-                            }
-
-
-                            if {[file exists $current_source_dir/#tarjar-$basename-$magicversion]} {
-                                #rebuilding the .tm from the #tarjar already handled above
-                                puts -nonewline stderr "-"
-
-                                #if {[file exists $current_source_dir/#tarjar-$basename-$magicversion/DESCRIPTION.txt]} {
-
-                                #} else {
-
-                                #}
-                                ##REVIEW - should be in same structure/depth as $target_module_dir  in _build?
-
-                                ##TODO
-                                #set buildfolder $current_sourcedir/_build
-                                #file mkdir $buildfolder
-
-                                #set tmfile $buildfolder/$basename-$module_build_version.tm
-                                #file delete -force $buildfolder/#tarjar-$basename-$module_build_version
-                                #file delete -force $tmfile
-
-
-                                #file copy -force $current_source_dir/#tarjar-$basename-$magicversion $buildfolder/#tarjar-$basename-$module_build_version
-                                ##
-                                ##bsdtar doesn't seem to work.. or I haven't worked out the right options?
-                                ##exec tar -cvf $buildfolder/$basename-$module_build_version.tm $buildfolder/#tarjar-$basename-$module_build_version
-                                #package require tar
-                                #tar::create $tmfile $buildfolder/#tarjar-$basename-$module_build_version
-                                #if {![file exists $tmfile]} {
-                                #    puts stdout "ERROR: failed to build tarjar file $tmfile"
-                                #    exit 4
-                                #}
-                                ##copy the file?
-                                ##set target $target_module_dir/$basename-$module_build_version.tm
-                                ##file copy -force $tmfile $target
-
-                                #lappend module_list $tmfile
-                            } else {
-                                #assume that either the .tm is not a tarjar - or the tarjar dir is capped (trailing #) and the .tm has been manually tarred.
-                                if {[file exists $current_source_dir/#tarjar-$basename-${magicversion}#]} {
-                                    puts stderr "\nWarning: found 'capped' folder #tarjar-$basename-${magicversion}# - No attempt being made to update version in description.txt"
-                                }
-
-                                #------------------------------
-                                #
-                                #set target_relpath [punkcheck::lib::path_relative $basedir $target_module_dir/$basename-$module_build_version.tm]
-                                #set file_record [punkcheck::installfile_begin $basedir $target_relpath $installername -eventid $punkcheck_eventid]
-                                $event targetset_init INSTALL $target_module_dir/$basename-$module_build_version.tm
-                                $event targetset_addsource $versionfile
-                                $event targetset_addsource $current_source_dir/$m
-
-                                #set changed_list [list]
-                                ## -- --- --- --- --- ---
-                                #set source_relpath [punkcheck::lib::path_relative $basedir $versionfile]
-                                #set file_record [punkcheck::installfile_add_source_and_fetch_metadata $basedir $source_relpath $file_record]
-                                ## -- --- --- --- --- ---
-                                #set source_relpath [punkcheck::lib::path_relative $basedir $current_source_dir/$m]
-                                #set file_record [punkcheck::installfile_add_source_and_fetch_metadata $basedir $source_relpath $file_record]
-                                ## -- --- --- --- --- ---
-                                #set changed_unchanged [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $file_record body] end]]
-                                #set changed_list [dict get $changed_unchanged changed]
-
-
-                                if {\
-                                        [llength [dict get [$event targetset_source_changes] changed]]\
-                                    || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                                    } {
-
-                                    #set file_record [punkcheck::installfile_started_install $basedir $file_record]
-                                    $event targetset_started
-                                    # -- --- --- --- --- ---
-                                    set target $target_module_dir/$basename-$module_build_version.tm
-                                    if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                                    puts stdout "copying module $current_source_dir/$m to $target as version: $module_build_version ([file tail $target])"
-                                    set fd [open $current_source_dir/$m r]; fconfigure $fd -translation binary; set data [read $fd]; close $fd
-                                    set data [string map [list $magicversion $module_build_version] $data]
-                                    set fdout [open $target w]
-                                    fconfigure $fdout -translation binary
-                                    puts -nonewline $fdout $data
-                                    close $fdout
-                                    #file copy -force $srcdir/$m $target
-                                    lappend module_list $target
-                                    # -- --- --- --- --- ---
-                                    #set file_record [punkcheck::installfile_finished_install $basedir $file_record]
-                                    $event targetset_end OK
-                                } else {
-                                    if {$is_interesting} {
-                                        puts stdout "skipping module $current_source_dir/$m - no change in sources detected"
-                                    }
-                                    puts -nonewline stderr "m"
-                                    set did_skip 1
-                                    #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                                    $event targetset_end SKIPPED
-                                }
-
-                                #------------------------------
-
-                            }
-
-                            continue
-                        }
-                        ##------------------------------
-                        ##
-                        #set target_relpath [punkcheck::lib::path_relative $basedir $target_module_dir/$m]
-                        #set file_record [punkcheck::installfile_begin $basedir $target_relpath $installername -eventid $punkcheck_eventid]
-                        #set changed_list [list]
-                        ## -- --- --- --- --- ---
-                        #set source_relpath [punkcheck::lib::path_relative $basedir $current_source_dir/$m]
-                        #set file_record [punkcheck::installfile_add_source_and_fetch_metadata $basedir $source_relpath $file_record]
-                        ## -- --- --- --- --- ---
-                        #set changed_unchanged [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $file_record body] end]]
-                        #set changed_list [dict get $changed_unchanged changed]
-                        #----------
-                        $event targetset_init INSTALL $target_module_dir/$m
-                        $event targetset_addsource $current_source_dir/$m
-                        if {\
-                                [llength [dict get [$event targetset_source_changes] changed]]\
-                            || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                            } {
-
-                            #set file_record [punkcheck::installfile_started_install $basedir $file_record]
-                            $event targetset_started
-                            # -- --- --- --- --- ---
-                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                            lappend module_list $current_source_dir/$m
-                            file copy -force $current_source_dir/$m $target_module_dir
-                            puts stderr "Copied already versioned module $current_source_dir/$m to $target_module_dir"
-                            # -- --- --- --- --- ---
-                            #set file_record [punkcheck::installfile_finished_install $basedir $file_record]
-                            $event targetset_end OK -note "already versioned module"
-                        } else {
-                            puts -nonewline stderr "f"
-                            set did_skip 1
-                            if {$is_interesting} {
-                                puts stderr "$current_source_dir/$m [$event targetset_source_changes]"
-                            }
-                            #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                            $event targetset_end SKIPPED
-                        }
-                    }
-                }
-            } ;#end dict for {modpath modinfo} $process_modules
-
-
-            if {$CALLDEPTH >= $max_depth} {
-                set subdirs [list]
-            } else {
-                set subdirs             [glob -nocomplain -dir $current_source_dir -type d -tail *]
-                set targets_existing    [glob -nocomplain -dir $target_module_dir -type d -tail {*}$subdirs]
-            }
-            #puts stderr "subdirs: $subdirs"
-            foreach d $subdirs {
-                set skipdir 0
-                foreach dg $antidir {
-                    if {[string match $dg $d]} {
-                        set skipdir 1
-                        continue
-                    }
-                }
-                if {$skipdir} {
-                    continue
-                }
-                #if {![file exists $target_module_dir/$d]} {
-                #    file mkdir $target_module_dir/$d
-                #}
-                if {$d ni $targets_existing} {
-                    file mkdir $target_module_dir/$d
-                }
-                lappend module_list {*}[build_modules_from_source_to_base $srcdir $basedir\
-                    -call-depth-internal [expr {$CALLDEPTH +1}]\
-                    -subdirlist [list {*}$subdirlist $d]\
-                    -punkcheck_eventobj $event\
-                    -glob $fileglob\
-                    -podglob $podglob\
-                ]
-            }
-            if {$did_skip} {
-                puts -nonewline stdout \n
-            }
-            if {$CALLDEPTH == 0} {
-                $event destroy
-                $installer destroy
-            }
-            return $module_list
-        }
-
-        variable kettle_reset_bodies [dict create]
-        variable kettle_reset_args [dict create]
-        #We are abusing kettle to run in-process.
-        # when we change to another project we need recipes to be reloaded.
-        # Kettle rewrites some of it's own procs - stopping reloading of recipes when we change folders
-        #kettle_init stores the original proc bodies & args
-        proc kettle_init {} {
-            variable kettle_reset_bodies ;#dict
-            variable kettle_reset_args
-            set reset_procs [list\
-                ::kettle::benchmarks\
-                ::kettle::doc\
-                ::kettle::figures\
-                ::kettle::meta::scan\
-                ::kettle::testsuite\
-            ]
-            foreach p $reset_procs {
-                set b [info body $p]
-                if {[string match "*Overwrite self*" $b]} {
-                    dict set kettle_reset_bodies $p $b
-                    set argnames [info args $p]
-                    set arglist [list]
-                    foreach a $argnames {
-                        if {[info default $p $a dval]} {
-                            lappend arglist [list $a $dval]
-                        } else {
-                            lappend arglist $a
-                        }
-                    }
-                    dict set kettle_reset_args $p $arglist
-                }
-            }
-
-        }
-        #call kettle_reinit to ensure recipes point to current project
-        proc kettle_reinit {} {
-            variable kettle_reset_bodies
-            variable kettle_reset_args
-            dict for {p b} $kettle_reset_bodies {
-                #set b [dict get $kettle_reset_bodies $p]
-                set argl [dict get $kettle_reset_args $p]
-                uplevel 1 [list ::proc $p $argl $b]
-            }
-            #todo - determine standard recipes by examining standard.tcl instead of hard coding?
-            set standard_recipes [list\
-                null\
-                forever\
-                list-recipes\
-                help-recipes\
-                help-dump\
-                help-recipes\
-                help\
-                list\
-                list-options\
-                help-options\
-                show-configuration\
-                show-state\
-                show\
-                meta-status\
-                gui\
-            ]
-            #set ::kettle::recipe::recipe [dict create]
-            dict for {r -} $::kettle::recipe::recipe {
-                if {$r ni $standard_recipes} {
-                    dict unset ::kettle::recipe::recipe $r
-                }
-            }
-        }
-        proc kettle_call {calltype args} {
-            variable kettle_reset_bodies
-            switch -- $calltype {
-                lib {}
-                shell {
-                    #on windows - could be kettle.bat or kettle.cmd - use auto_execok to find, whatever the platform.
-                    #for now, restrict to version sitting next to exe - REVIEW
-                    set exedir [file dirname [info nameofexecutable]]
-                    set kettlescript [auto_execok $exedir/kettle]
-                    if {$kettlescript eq ""} {
-                        error "kettle_call unable to find installed kettle application file in '$exedir'"
-                    }
-
-                    #set kettleappfile [file dirname [info nameofexecutable]]/kettle
-                    #set kettlebatfile [file dirname [info nameofexecutable]]/kettle.bat
-
-                    #if {(![file exists $kettleappfile]) && (![file exists $kettlebatfile])} {
-                    #    error "deck kettle_call unable to find installed kettle application file '$kettleappfile' (or '$kettlebatfile' if on windows)"
-                    #}
-                    #if {[file exists $kettleappfile]} {
-                    #    set kettlescript $kettleappfile
-                    #}
-                    #if {$::tcl_platform(platform) eq "windows"} {
-                    #    if {[file exists $kettlebatfile]} {
-                    #        set kettlescript $kettlebatfile
-                    #    }
-                    #}
-                }
-                default {
-                    error "deck kettle_call 1st argument must be one of: 'lib' for direct use of kettle module or 'shell' to call as separate process"
-                }
-            }
-            set startdir [pwd]
-            if {![file exists $startdir/build.tcl]} {
-                error "deck kettle must be run from a folder containing build.tcl (cwd: [pwd])"
-            }
-            if {[package provide kettle] eq ""} {
-                puts stdout "Loading kettle package - may be delay on first load ..."
-                package require kettle
-                kettle_init ;#store original procs for those kettle procs that rewrite themselves
-            } else {
-                if {[dict size $kettle_reset_bodies] == 0} {
-                    #presumably package require kettle was called without calling our kettle_init hack.
-                    kettle_init
-                } else {
-                    #undo proc rewrites
-                    kettle_reinit
-                }
-            }
-            set first [lindex $args 0]
-            if {[string match @* $first]} {
-                error "deck kettle doesn't support special operations - try calling tclsh kettle directly"
-            }
-            if {$first eq "-f"} {
-                set args [lassign $args __ path]
-            } else {
-                set path $startdir/build.tcl
-            }
-            set opts [list]
-
-            if {[lindex $args 0] eq "-trace"} {
-                set args [lrange $args 1 end]
-                lappend opts --verbose on
-            }
-            set goals [list]
-
-            if {$calltype eq "lib"} {
-                file mkdir ~/.kettle
-                set dotfile ~/.kettle/config
-                if {[file exists $dotfile] &&
-                    [file isfile $dotfile] &&
-                    [file readable $dotfile]} {
-                    ::kettle io trace {Loading dotfile $dotfile ...}
-                    set args [list {*}[::kettle path cat $dotfile] {*}$args]
-                }
-            }
-
-            #hardcoded kettle option names (::kettle option names) - retrieved using kettle::option names
-            #This is done so we don't have to load kettle lib for shell call (both loading as module and running shell are annoyingly SLOW)
-            #REVIEW - needs to be updated to keep in sync with kettle.
-            set knownopts [list\
-                --exec-prefix --bin-dir --lib-dir --prefix --man-dir --html-dir --markdown-dir --include-dir \
-                --ignore-glob --dry --verbose --machine --color --state --config --with-shell --log \
-                --log-append --log-mode --with-dia --constraints --file --limitconstraints --tmatch --notfile --single --valgrind --tskip --repeats \
-                --iters --collate --match --rmatch --with-doc-destination --with-git --target --test-include \
-                ]
-
-            while {[llength $args]} {
-                set o [lindex $args 0]
-                switch -glob -- $o {
-                    --* {
-                        #instead of using: kettle option known
-                        if {$o ni $knownopts} {
-                            error "Unable to process unknown option $o." {} [list KETTLE (deck)]
-                        }
-                        lappend opts $o [lindex $args 1]
-                        #::kettle::option set $o [lindex $args 1]
-                        set args [lrange $args 2 end]
-                    }
-                    default {
-                        lappend goals $o
-                        set args [lrange $args 1 end]
-                    }
-                }
-            }
-
-            if {![llength $goals]} {
-                lappend goals help
-            }
-            if {"--prefix" ni [dict keys $opts]} {
-                dict set opts --prefix [file dirname $startdir]
-            }
-            if {$calltype eq "lib"} {
-                ::kettle status clear
-                ::kettle::option::set @kettle $startdir
-                foreach {o v} $opts {
-                    ::kettle option set $o $v
-                }
-                ::kettle option set @srcscript $path
-                ::kettle option set @srcdir [file dirname $path]
-                ::kettle option set @goals $goals
-                #load standard recipes as listed in build.tcl
-                ::source $path
-                puts stderr "recipes: [::kettle recipe names]"
-                ::kettle recipe run {*}[::kettle option get @goals]
-
-                set state [::kettle option get --state]
-                if {$state ne {}} {
-                    puts stderr "saving kettle state: $state"
-                    ::kettle status save $state
-                }
-
-            } else {
-                #shell
-                puts stdout "Running external kettle process with args: $opts $goals"
-                run -n tclsh $kettlescript -f $path {*}$opts {*}$goals
-            }
-
-        }
-        proc kettle_punk_recipes {} {
-            set txtdst ...
-        }
-
-    }
-}
-
-
-namespace eval punk::mix::cli {
-    proc _cli {args} {
-        #don't use tailcall - base uses info level to determine caller
-        ::punk::mix::base::_cli {*}$args
-    }
-    variable default_command help
-    package require punk::mix::base
-    package require punk::overlay
-    if {[catch {
-        punk::overlay::custom_from_base [namespace current] ::punk::mix::base
-    } errM]} {
-        puts stderr "punk::mix::cli load error: Failed to overlay punk::mix::base $errM"
-        error "punk::mix::cli  error: $errM"
-    }
-}
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::mix::cli [namespace eval punk::mix::cli {
-    variable version
-    set version 0.3.1
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.tm
deleted file mode 100644
index 263ccc96..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.tm
+++ /dev/null
@@ -1,1128 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'deck make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::cli 0.3
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::repo
-package require punk::ansi
-package require punkcheck ;#checksum and/or timestamp records 
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#review
-#deck - rename to dev
-namespace eval punk::mix::cli {
-    namespace eval temp_import {
-    }
-    namespace ensemble create
-
-    package require punk::overlay
-    catch {
-        punk::overlay::import_commandset module . ::punk::mix::commandset::module
-    }
-    punk::overlay::import_commandset debug . ::punk::mix::commandset::debug
-    punk::overlay::import_commandset repo  . ::punk::mix::commandset::repo
-    punk::overlay::import_commandset lib   . ::punk::mix::commandset::loadedlib
-
-    catch {
-        package require punk::mix::commandset::project
-        punk::overlay::import_commandset project    .       ::punk::mix::commandset::project
-        punk::overlay::import_commandset projects   .       ::punk::mix::commandset::project::collection 
-    }
-    if {[catch {
-        package require punk::mix::commandset::layout
-        punk::overlay::import_commandset project.layout       . ::punk::mix::commandset::layout
-        punk::overlay::import_commandset project.layouts      . ::punk::mix::commandset::layout::collection
-    } errM]} {
-        puts stderr "error loading punk::mix::commandset::layout"
-        puts stderr $errM
-    }
-    if {[catch {
-        package require punk::mix::commandset::buildsuite
-        punk::overlay::import_commandset buildsuite     .   ::punk::mix::commandset::buildsuite
-        punk::overlay::import_commandset buildsuites    .   ::punk::mix::commandset::buildsuite::collection
-    } errM]} {
-        puts stderr "error loading punk::mix::commandset::buildsuite"
-        puts stderr $errM
-    }
-    punk::overlay::import_commandset scriptwrap  . ::punk::mix::commandset::scriptwrap
-    if {[catch {
-        package require punk::mix::commandset::doc
-        punk::overlay::import_commandset doc . ::punk::mix::commandset::doc
-        punk::overlay::import_commandset ""  ""   ::punk::mix::commandset::doc::collection
-    } errM]} {
-        puts stderr "error loading punk::mix::commandset::doc"
-        puts stderr $errM
-    }
-
-
-    proc help {args} {
-        #set basehelp [punk::mix::base::help -extension [namespace current] {*}$args]
-        set basehelp [punk::mix::base help {*}$args]
-        #puts stdout "punk::mix help"
-        return $basehelp
-    }
-
-    proc stat {{workingdir ""} args} {
-        dict set args -v 0 
-        punk::mix::cli::lib::get_status $workingdir {*}$args 
-    }
-    proc status {{workingdir ""} args} {
-        dict set args -v 1 
-        punk::mix::cli::lib::get_status $workingdir {*}$args 
-    }
-
-
-
-
-
-
-
-}
-
-
-namespace eval punk::mix::cli {
-
-
-    #interp alias {} ::punk::mix::cli::project.new {} ::punk::mix::cli::new
-
-
-    proc make {args} {
-        set startdir [pwd]
-        set project_base "" ;#empty for unknown
-        if {[punk::repo::is_git $startdir]} {
-            set project_base [punk::repo::find_git]
-            set sourcefolder $project_base/src
-        } elseif {[punk::repo::is_fossil $startdir]} {
-            set project_base [punk::repo::find_fossil]
-            set sourcefolder $project_base/src
-        } else {
-            if {[punk::repo::is_candidate $startdir]} {
-                set project_base [punk::repo::find_candidate]
-                set sourcefolder $project_base/src
-                puts stderr "WARNING - project not under git or fossil control"
-                puts stderr "Using base folder $project_base" 
-            } else {
-                set sourcefolder $startdir
-            }
-        }
-
-        #review - why can't we be anywhere in the project? 
-        #also - if no make.tcl - can we use the running shell's make.tcl ? (after prompting user?)
-        if {([file tail $sourcefolder] ne "src") || (![file exists $sourcefolder/make.tcl])} {
-            puts stderr "dev make must be run from src folder containing make.tcl - unable to proceed (cwd: [pwd])"
-            if {[string length $project_base]} {
-                if {[file exists $project_base/src] && [string tolower [pwd]] ne [string tolower $project_base/src]} {
-                    puts stderr "Try cd to $project_base/src"
-                }
-            } else {
-                if {[file exists $startdir/Makefile]} {
-                    puts stdout "A Makefile exists at $startdir/Makefile."
-                    if {"windows" eq $::tcl_platform(platform)} {
-                        puts stdout "Try running: msys2 -ucrt64 -here -c \"make build\" or bash -c \"make build\""
-                    } else {
-                        puts stdout "Try runing: make build"
-                    }
-                }
-            }
-            return false
-        }
-
-        if {![string length $project_base]} {
-            puts stderr "WARNING no git or fossil repository detected."
-            puts stderr "Using base folder $startdir" 
-            set project_base $startdir
-        }
-
-        set lc_this_exe [string tolower [info nameofexecutable]]
-        set lc_proj_bin [string tolower $project_base/bin]
-        set lc_build_bin [string tolower $project_base/src/_build]
-
-        if {"project" in $args} {
-            set is_own_exe 0
-            if {[string match "${lc_proj_bin}*" $lc_this_exe] || [string match "${lc_build_bin}" $lc_this_exe]} {
-                set is_own_exe 1
-                puts stderr "WARNING - running make using executable that may be created by the project being built"
-                set answer [util::askuser "Do you want to proceed using this executable? (build will probably stop when it is unable to  update the executable) Y|N"]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompts."
-                    return
-                }
-            }
-        }
-        cd $sourcefolder
-        #use run so that stdout visible as it goes
-        if {![catch {run --timeout=55000 -debug [info nameofexecutable] $sourcefolder/make.tcl {*}$args} exitinfo]} {
-            #todo - notify if exit because of timeout!
-            puts stderr "exitinfo: $exitinfo"
-            set exitcode [dict get $exitinfo exitcode]
-        } else {
-            puts stderr "Error unable to determine exitcode. err: $exitinfo"
-            cd $startdir
-            return false
-        }
-
-        cd $startdir
-        if {$exitcode != 0} {
-            puts stderr "FAILED with exitcode $exitcode"
-            return false
-        } else {
-            puts stdout "OK make finished "
-            return true
-        }
-    } 
-
-    proc Kettle {args} {
-        tailcall lib::kettle_call lib {*}$args
-    }
-    proc KettleShell {args} {
-        tailcall lib::kettle_call shell {*}$args
-    }
-
-
-
-    namespace eval lib {
-        namespace path ::punk::mix::util
-
-
-        proc module_types {} {
-            #first in list is default for unspecified -type when creating new module
-            #return [list plain tarjar zipkit]
-            return [list plain tarjar zip]
-        }
-
-        proc validate_modulename {modulename args} {
-            set opts [list\
-                -errorprefix validate_modulename\
-                ]
-            if {[llength $args] %2 != 0} {error "validate_modulename args must be name-value pairs: received '$args'"}
-            foreach {k v} $args {
-                switch -- $k {
-                    -errorprefix {
-                        dict set opts $k $v
-                    }
-                    default {
-                        error "validate_modulename error: unknown option '$k'. known options: [dict keys $opts]"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_errorprefix            [dict get $opts -errorprefix]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-            validate_name_not_empty_or_spaced $modulename -errorprefix $opt_errorprefix
-            set testname [string map {:: {}} $modulename]
-            if {[string first : $testname] >=0} {
-                error "$opt_errorprefix '$modulename' can only contain paired colons"
-            }
-            set badchars [list - "$" "?" "*"]
-            foreach bc $badchars {
-                if {[string first $bc $modulename] >= 0} {
-                    error "$opt_errorprefix '$modulename' can not contain character '$bc'"
-                }
-            }
-            return $modulename
-        }
-
-        proc validate_projectname {projectname args} {
-            set defaults [list\
-                -errorprefix projectname\
-                ]
-            if {[llength $args] %2 != 0} {error "validate_modulename args must be name-value pairs: received '$args'"}
-            set known_opts [dict keys $defaults]
-            foreach k [dict keys $args] {
-                if {$k ni $known_opts} {
-                    error "validate_modulename error: unknown option $k. known options: $known_opts"
-                }
-            }
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_errorprefix            [dict get $opts -errorprefix]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            validate_name_not_empty_or_spaced $projectname -errorprefix $opt_errorprefix
-            set reserved_words [list etc lib bin modules src doc vendorlib vendormodules embedded runtime _aside _build]
-            if {$projectname in $reserved_words } {
-                error "$opt_errorprefix '$projectname' cannot be one of reserved_words: $reserved_words"
-            }
-            if {[string first "::" $projectname] >= 0} {
-                error "$opt_errorprefix '$projectname' cannot contain namespace separator '::'"
-            }
-            return $projectname 
-        }
-        proc validate_name_not_empty_or_spaced {name args} {
-            set opts [list\
-                -errorprefix projectname\
-                ]
-            if {[llength $args] %2 != 0} {error "validate_name_not_empty_or_spaced args must be name-value pairs: received '$args'"}
-            foreach {k v} $args {
-                switch -- $k {
-                    -errorprefix {
-                        dict set opts $k $v
-                    }
-                    default {
-                        error "validate_name_not_empty_or_spaced error: unknown option $k. known options: [dict keys $opts]"
-                    }
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_errorprefix            [dict get $opts -errorprefix]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            if {![string length $name]} {
-                error "$opt_errorprefix cannot be empty"
-            }
-            if {[string length [string map [list " " "" \n "" \r "" \t ""] $name]] != [string length $name]} {
-                error "$opt_errorprefix cannot contain whitespace"
-            }
-            return $name
-        }
-
-        #split modulename (as present in a filename or namespaced name) into name/version ignoring leading namespace path
-        #ignore trailing .tm .TM if present
-        #if version doesn't pass validation - treat it as part of the modulename and return empty version string without error
-        #Up to caller to validate.
-        proc split_modulename_version {modulename} {
-            set lastpart [namespace tail $modulename]
-            set lastpart [file tail $lastpart] ;# should be ok to use file tail now that we've ensured no namespace components
-            if {[string equal -nocase [file extension $modulename] ".tm"]} {
-                 set fileparts [split [file rootname $lastpart] -]
-            } else {
-                 set fileparts [split $lastpart -]
-            }
-            if {[punk::mix::util::is_valid_tm_version [lindex $fileparts end]]} {
-                set versionsegment [lindex $fileparts end]
-                set namesegment [join [lrange $fileparts 0 end-1] -];#re-stitch
-            } else {
-                #
-                set namesegment [join $fileparts -]
-                set versionsegment ""
-            }
-            return [list $namesegment $versionsegment]
-        }
-
-        proc get_status {{workingdir ""} args} {
-            set result ""
-            if {$workingdir ne ""} {
-                if {[file pathtype $workingdir] ne "absolute"} {
-                set workingdir [file normalize $workingdir] 
-                }
-                set active_dir $workingdir
-            } else {
-                set active_dir [pwd]
-            }
-            set defaults [dict create\
-                -v 1\
-            ]
-            set opts [dict merge $defaults $args] 
-            # -- --- --- --- --- --- --- --- --- 
-            set opt_v       [dict get $opts -v]
-            # -- --- --- --- --- --- --- --- --- 
-
-
-            set repopaths [punk::repo::find_repos [pwd]]
-            set repos [dict get $repopaths repos]
-            if {![llength $repos]} {
-                append result [dict get $repopaths warnings]
-            } else {
-                append result [dict get $repopaths warnings]
-                lassign [lindex $repos 0] repopath repotypes
-                if {"fossil" in $repotypes} {
-                    #review - multiple process launches to fossil a bit slow on windows.. 
-                    #could we query global db in one go instead?
-                    #
-                    set fossil_prog [auto_execok fossil]
-                    append result "FOSSIL project based at $repopath with revision: [punk::repo::fossil_revision $repopath]" \n
-                    set fosinfo [exec {*}$fossil_prog info]
-                    append result [join [punk::repo::grep {repository:*}        $fosinfo] \n] \n
-
-                    set fosrem [exec {*}$fossil_prog remote ls]
-                    if {[string length $fosrem]} {
-                        append result "Remotes:\n"
-                        append result "    " $fosrem \n
-                    }
-
-
-                    append result [join [punk::repo::grep {tags:*}              $fosinfo] \n] \n
-
-                    set dbinfo [exec {*}$fossil_prog dbstat]
-                    append result [join [punk::repo::grep {project-name:*}      $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {tickets:*}           $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {project-age:*}       $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {latest-change:*}     $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {files:*}             $dbinfo] \n] \n
-                    append result [join [punk::repo::grep {check-ins:*}         $dbinfo] \n] \n
-                    if {"project" in $repotypes} {
-                        #punk project
-                        if {![catch {package require textblock; package require patternpunk}]} {
-                           set result [textblock::join -- [>punk . logo] "  " $result] 
-                           append result \n
-                        } 
-                    }  
-
-                    set timeline [exec fossil timeline -n 5 -t ci]
-                    set timeline [string map {\r\n \n} $timeline]
-                    append result $timeline 
-                    if {$opt_v} {
-                        set repostate [punk::repo::workingdir_state $repopath -repopaths $repopaths -repotypes fossil]
-                        append result \n [punk::repo::workingdir_state_summary $repostate]
-                    }
-
-                }
-                #repotypes *could* be both git and fossil - so report both if so
-                if {"git" in $repotypes} {
-                    append result "GIT project based at $repopath with revision: [punk::repo::git_revision $repopath]" \n
-                    if {[string length [set git_prog [auto_execok git]]]} {
-                        set git_remotes [exec {*}$git_prog remote -v]
-                        append result $git_remotes
-                        if {$opt_v} {
-                            set repostate [punk::repo::workingdir_state $repopath -repopaths $repopaths -repotypes git]
-                            append result \n [punk::repo::workingdir_state_summary $repostate]
-                        }
-                    }
-                }
-
-            }
-
-            return $result
-        }
-
-
-        proc build_modules_from_source_to_base {srcdir basedir args} {
-            set antidir [list "#*" "_build" "_aside" ".git" ".fossil*"] ;#exact or glob patterns for folders (at any level) we don't want to search in or copy.
-            set defaults [list\
-                -installer punk::mix::cli::build_modules_from_source_to_base\
-                -call-depth-internal 0\
-                -max_depth 1000\
-                -subdirlist {}\
-                -punkcheck_eventobj "\uFFFF"\
-                -glob *.tm\
-                -podglob #modpod-*\
-                ]
-            set opts [dict merge $defaults $args]
-
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set installername                       [dict get $opts -installer]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set CALLDEPTH                               [dict get $opts -call-depth-internal]
-            set max_depth                               [dict get $opts -max_depth]
-            set subdirlist                              [dict get $opts -subdirlist]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set fileglob                                [dict get $opts -glob]
-            set podglob                                 [dict get $opts -podglob]
-            if {![string match "*.tm" $fileglob]} {
-                error "build_modules_from_source_to_base -glob '$fileglob' doesn't seem to target tcl modules."
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_punkcheck_eventobj                   [dict get $opts -punkcheck_eventobj]
-
-            set magicversion [punk::mix::util::magic_tm_version] ;#deliberately large so given load-preference when testing
-            set module_list [list]
-
-            if {[file tail [file dirname $srcdir]] ne "src"} {
-                puts stderr "ERROR build_modules_from_source_to_base can only be called with a srcdir that is a subfolder of your 'src' directory"
-                puts stderr "The .tm modules are namespaced based on their directory depth - so we need to start at the root"
-                puts stderr "To build a subtree of your modules - use an appropriate src/modules folder and pass in the -subdirlist."
-                puts stderr "e.g if your modules are based at /x/src/modules2 and you wish to build only the .tm files at /x/src/modules2/skunkworks/lib"
-                puts stderr "Use: >build_modules_from_source_to_base /x/src/modules2 /x/modules2 -subdirlist {skunkworks lib}"
-                exit 2
-            }
-            set srcdirname [file tail $srcdir] 
-
-            set build [file dirname $srcdir]/_build/$srcdirname ;#relative to *original* srcdir - not current_source_dir
-            if {[llength $subdirlist] == 0} {
-                set target_module_dir $basedir
-                set current_source_dir $srcdir
-            } else {
-                set target_module_dir $basedir/[file join {*}$subdirlist]
-                set current_source_dir $srcdir/[file join {*}$subdirlist]
-            }
-            if {![file exists $target_module_dir]} {
-                error "build_modules_from_source_to_base from current source dir: '$current_source_dir'.  Basedir:'$current_module_dir' doesn't exist or is empty"
-            }
-            if {![file exists $current_source_dir]} {
-                error "build_modules_from_source_to_base from current source dir:'$current_source_dir' doesn't exist or is empty"
-            }
-
-            #----------------------------------------
-            set punkcheck_file [file join $basedir/.punkcheck]
-            if {$CALLDEPTH == 0} {
-
-                set config [dict create\
-                    -glob $fileglob\
-                    -max_depth 0\
-                ]
-                #lassign [punkcheck::start_installer_event $punkcheck_file $installername $srcdir $basedir $config] _eventid punkcheck_eventid _recordset record_list
-                # -- ---
-                set installer [punkcheck::installtrack new $installername $punkcheck_file]
-                $installer set_source_target $srcdir $basedir
-                set event [$installer start_event $config]
-                # -- ---
-
-            } else {
-                set event $opt_punkcheck_eventobj
-            }
-            #----------------------------------------
-
-
-            set process_modules [dict create]
-            #put pods first in processing order
-            set src_pods    [glob -nocomplain -dir $current_source_dir -type d -tail $podglob]
-            foreach podpath $src_pods {
-                dict set process_modules $podpath [dict create -type pod]
-            }
-            set src_modules [glob -nocomplain -dir $current_source_dir -type f -tail $fileglob]
-            foreach modulepath $src_modules {
-                dict set process_modules $modulepath [dict create -type file]
-            }
-
-            set did_skip 0 ;#flag for stdout/stderr formatting only
-            dict for {modpath modinfo} $process_modules {
-                set modtype [dict get $modinfo -type]
-
-                set is_interesting 0
-                if {[string match "foobar" $current_source_dir]} {
-                    set  is_interesting 1
-                }
-                if {$is_interesting} {
-                    puts "build_modules_from_source_to_base >>> module $current_source_dir/$modpath"
-                }
-                set fileparts [split [file rootname $modpath] -]
-                #set tmfile_versionsegment [lindex $fileparts end]
-                lassign [split_modulename_version $modpath] basename tmfile_versionsegment 
-                if {$tmfile_versionsegment eq ""} {
-                    #split_modulename_version version part will be empty if not valid tcl version
-                    #last segment doesn't look even slightly versiony - fail.
-                    puts stderr "ERROR: Unable to confirm file $current_source_dir/$modpath is a reasonably versioned .tm module - ABORTING."
-                    exit 1
-                }
-                switch -- $modtype {
-                    pod {
-                        #basename still contains leading #modpod-
-                        if {[string match #modpod-* $basename]} {
-                            set basename [string range $basename 8 end]
-                        } else {
-                            error "build_modules_from_source_to_base, pod, unexpected basename $basename" ;#shouldn't be possible with default podglob - review - why is podglob configurable?
-                        }
-                        set versionfile $current_source_dir/$basename-buildversion.txt ;#needs to be added in targetset_addsource to trigger rebuild if changed (only when magicversion in use)
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            set versionfiledata ""
-                            if {![file exists $versionfile]} {
-                                puts stderr "\nWARNING: Missing buildversion text file: $versionfile"
-                                puts stderr "Using version 0.1 - create $versionfile containing the desired version number as the top line to avoid this warning\n"
-                                set module_build_version "0.1"
-                            } else {
-                                set fd [open $versionfile r]
-                                set versionfiledata [read $fd]; close $fd
-                                set ln0 [lindex [split $versionfiledata \n] 0]
-                                set ln0 [string trim $ln0]; set ln0 [string trim $ln0 \r]
-                                if {![util::is_valid_tm_version $ln0]} {
-                                    puts stderr "ERROR: build version '$ln0' specified in $versionfile is not suitable. Please ensure a proper version number is at first line of file"
-                                    exit 3
-                                }
-                                set module_build_version $ln0
-                            }
-                        } else {
-                            set module_build_version $tmfile_versionsegment
-                        }
-
-                        set buildfolder $current_source_dir/_build
-                        file mkdir $buildfolder
-                        # -- ---
-                        set config [dict create\
-                            -glob *\
-                            -max_depth 100\
-                        ]
-                        # -max_depth -1 for no limit
-                        set build_installername pods_in_$current_source_dir
-                        set build_installer [punkcheck::installtrack new $build_installername $buildfolder/.punkcheck]
-                        $build_installer set_source_target $current_source_dir/$modpath $buildfolder
-                        set build_event [$build_installer start_event $config]
-                        # -- ---
-                        set podtree_copy $buildfolder/#modpod-$basename-$module_build_version
-                        set modulefile $buildfolder/$basename-$module_build_version.tm
-
-
-                        $build_event targetset_init INSTALL $podtree_copy 
-                        $build_event targetset_addsource $current_source_dir/$modpath 
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            $build_event targetset_addsource $versionfile
-                        }
-                        if {\
-                                [llength [dict get [$build_event targetset_source_changes] changed]]\
-                            || [llength [$build_event get_targets_exist]] < [llength [$build_event get_targets]]\
-                            } {
-                            $build_event targetset_started
-                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-
-                            set delete_failed 0
-                            if {[file exists $buildfolder/]} {
-                                puts stderr "deleting existing _build copy at $podtree_copy"
-                                if {[catch {
-                                    file delete -force $podtree_copy
-                                    } errMsg]} {
-                                    puts stderr "[punk::ansi::a+ red]deletion of _build copy at $podtree_copy failed: $errMsg[punk::ansi::a]"
-                                    set delete_failed 1
-                                }
-                            }
-                            if {!$delete_failed} {
-                                puts stdout "copying.."
-                                puts stdout "$current_source_dir/$modpath"
-                                puts stdout "to:"
-                                puts stdout "$podtree_copy"
-                                file copy $current_source_dir/$modpath $podtree_copy
-                                if {$tmfile_versionsegment eq $magicversion} {
-                                    set tmfile $buildfolder/#modpod-$basename-$module_build_version/$basename-$magicversion.tm
-                                    if {[file exists $tmfile]} {
-                                        set newname $buildfolder/#modpod-$basename-$module_build_version/$basename-$module_build_version.tm
-                                        file rename $tmfile $newname
-                                        set tmfile $newname 
-                                    }
-                                    set fd [open $tmfile r]; fconfigure $fd -translation binary; set data [read $fd]; close $fd
-                                    set data [string map [list $magicversion $module_build_version] $data]
-                                    set fdout [open $tmfile w]
-                                    fconfigure $fdout -translation binary
-                                    puts -nonewline $fdout $data
-                                    close $fdout
-                                }
-                                #delete and regenerate zip and modpod stubbed zip
-                                set had_error 0
-                                set notes [list]
-                                if {[catch {
-                                    file delete $buildfolder/$basename-$module_build_version.zip
-                                } err] } {
-                                    set had_error 1
-                                    lappend notes "zip_delete_failed"
-                                }
-                                if {[catch {
-                                    file delete $buildfolder/$basename-$module_build_version.tm
-                                } err]} {
-                                    set had_error 1
-                                    lappend notes "tm_delete_failed"
-                                }
-                                #create ordinary zip file without using external executable
-                                package require punk::zip
-                                set zipfile $buildfolder/$basename-$module_build_version.zip ;#ordinary zip file (deflate)
-
-                                if 0 {
-                                    #use -base $buildfolder so that -directory is included in the archive - the modpod stub relies on this - and extraction would be potentially messy otherwise
-                                    punk::zip::mkzip -base $buildfolder -directory $buildfolder/#modpod-$basename-$module_build_version  -- $zipfile *
-                                    #punk::zip::mkzip stores permissions - (unix style) which confuses zipfs when reading - it misidentifies dirs as files
-                                }
-                                #zipfs mkzip does exactly what we need anyway in this case
-                                set wd [pwd]
-                                cd $buildfolder
-                                puts "zipfs mkzip $zipfile #modpod-$basename-$module_build_version"
-                                zipfs mkzip $zipfile #modpod-$basename-$module_build_version
-                                cd $wd
-
-                                package require modpod
-                                modpod::lib::make_zip_modpod $zipfile $modulefile
-
-
-                                if {$had_error} {
-                                    $build_event targetset_end FAILED -note [join $notes ,]
-                                } else {
-                                    # -- ----------
-                                    $build_event targetset_end OK
-                                    # -- ----------
-                                }
-                            } else {
-                                $build_event targetset_end FAILED -note "could not delete $podtree_copy"
-                            }
-
-                        } else {
-                            puts -nonewline stderr "."
-                            set did_skip 1
-                            #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                            $build_event targetset_end SKIPPED
-                        }
-                        $build_event destroy
-                        $build_installer destroy 
-
-                        $event targetset_init INSTALL $target_module_dir/$basename-$module_build_version.tm 
-                        $event targetset_addsource $modulefile 
-                        if {\
-                                [llength [dict get [$event targetset_source_changes] changed]]\
-                            || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                            } {
-
-                            $event targetset_started
-                            # -- --- --- --- --- ---
-                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                            lappend module_list $modulefile 
-                            file copy -force $modulefile $target_module_dir
-                            puts stderr "Copied zip modpod module $modulefile to $target_module_dir"
-                            # -- --- --- --- --- ---
-                            $event targetset_end OK -note "zip modpod"
-                        } else {
-                            puts -nonewline stderr "."
-                            set did_skip 1
-                            if {$is_interesting} {
-                                puts stderr "$modulefile [$event targetset_source_changes]"
-                            }
-                            $event targetset_end SKIPPED
-                        }
-                    }
-                    tarjar {
-                        #basename may still contain  #tarjar-
-                        #to be obsoleted - update modpod to (optionally) use vfs::tar 
-                    }
-                    file {
-                        set m $modpath
-                        if {$tmfile_versionsegment eq $magicversion} {
-                            #set basename [join [lrange $fileparts 0 end-1] -]
-                            set versionfile $current_source_dir/$basename-buildversion.txt
-                            set versionfiledata ""
-                            if {![file exists $versionfile]} {
-                                puts stderr "\nWARNING: Missing buildversion text file: $versionfile"
-                                puts stderr "Using version 0.1 - create $versionfile containing the desired version number as the top line to avoid this warning\n"
-                                set module_build_version "0.1"
-                            } else {
-                                set fd [open $versionfile r]
-                                set versionfiledata [read $fd]; close $fd
-                                set ln0 [lindex [split $versionfiledata \n] 0]
-                                set ln0 [string trim $ln0]; set ln0 [string trim $ln0 \r]
-                                if {![util::is_valid_tm_version $ln0]} {
-                                    puts stderr "ERROR: build version '$ln0' specified in $versionfile is not suitable. Please ensure a proper version number is at first line of file"
-                                    exit 3
-                                }
-                                set module_build_version $ln0
-                            }
-
-
-                            if {[file exists $current_source_dir/#tarjar-$basename-$magicversion]} {
-                                #rebuild the .tm from the #tarjar 
-
-                                if {[file exists $current_source_dir/#tarjar-$basename-$magicversion/DESCRIPTION.txt]} {
-                                
-                                } else {
-                                
-                                }
-                                #REVIEW - should be in same structure/depth as $target_module_dir  in _build?
-
-                                #TODO
-                                set buildfolder $current_sourcedir/_build
-                                file mkdir $buildfolder
-
-                                set tmfile $buildfolder/$basename-$module_build_version.tm
-                                file delete -force $buildfolder/#tarjar-$basename-$module_build_version
-                                file delete -force $tmfile
-                                
-                                
-                                file copy -force $current_source_dir/#tarjar-$basename-$magicversion $buildfolder/#tarjar-$basename-$module_build_version
-                                #
-                                #bsdtar doesn't seem to work.. or I haven't worked out the right options?
-                                #exec tar -cvf $buildfolder/$basename-$module_build_version.tm $buildfolder/#tarjar-$basename-$module_build_version
-                                package require tar
-                                tar::create $tmfile $buildfolder/#tarjar-$basename-$module_build_version  
-                                if {![file exists $tmfile]} {
-                                    puts stdout "ERROR: failed to build tarjar file $tmfile"
-                                    exit 4
-                                }
-                                #copy the file?
-                                #set target $target_module_dir/$basename-$module_build_version.tm                
-                                #file copy -force $tmfile $target
-                                
-                                lappend module_list $tmfile
-                            } else {
-                                #assume that either the .tm is not a tarjar - or the tarjar dir is capped (trailing #) and the .tm has been manually tarred.
-                                if {[file exists $current_source_dir/#tarjar-$basename-${magicversion}#]} {
-                                    puts stderr "\nWarning: found 'capped' folder #tarjar-$basename-${magicversion}# - No attempt being made to update version in description.txt"
-                                }
-
-                                #------------------------------
-                                #
-                                #set target_relpath [punkcheck::lib::path_relative $basedir $target_module_dir/$basename-$module_build_version.tm]
-                                #set file_record [punkcheck::installfile_begin $basedir $target_relpath $installername -eventid $punkcheck_eventid]
-                                $event targetset_init INSTALL $target_module_dir/$basename-$module_build_version.tm 
-                                $event targetset_addsource $versionfile
-                                $event targetset_addsource $current_source_dir/$m
-
-                                #set changed_list [list]
-                                ## -- --- --- --- --- ---
-                                #set source_relpath [punkcheck::lib::path_relative $basedir $versionfile]
-                                #set file_record [punkcheck::installfile_add_source_and_fetch_metadata $basedir $source_relpath $file_record]
-                                ## -- --- --- --- --- ---
-                                #set source_relpath [punkcheck::lib::path_relative $basedir $current_source_dir/$m]
-                                #set file_record [punkcheck::installfile_add_source_and_fetch_metadata $basedir $source_relpath $file_record]
-                                ## -- --- --- --- --- ---
-                                #set changed_unchanged [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $file_record body] end]]
-                                #set changed_list [dict get $changed_unchanged changed]
-
-
-                                if {\
-                                        [llength [dict get [$event targetset_source_changes] changed]]\
-                                    || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                                    } {
-
-                                    #set file_record [punkcheck::installfile_started_install $basedir $file_record]
-                                    $event targetset_started
-                                    # -- --- --- --- --- ---
-                                    set target $target_module_dir/$basename-$module_build_version.tm
-                                    if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                                    puts stdout "copying module $current_source_dir/$m to $target as version: $module_build_version ([file tail $target])"
-                                    set fd [open $current_source_dir/$m r]; fconfigure $fd -translation binary; set data [read $fd]; close $fd
-                                    set data [string map [list $magicversion $module_build_version] $data]
-                                    set fdout [open $target w]
-                                    fconfigure $fdout -translation binary
-                                    puts -nonewline $fdout $data
-                                    close $fdout
-                                    #file copy -force $srcdir/$m $target
-                                    lappend module_list $target
-                                    # -- --- --- --- --- ---
-                                    #set file_record [punkcheck::installfile_finished_install $basedir $file_record]
-                                    $event targetset_end OK
-                                } else {
-                                    if {$is_interesting} {
-                                        puts stdout "skipping module $current_source_dir/$m - no change in sources detected"
-                                    }
-                                    puts -nonewline stderr "."
-                                    set did_skip 1
-                                    #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                                    $event targetset_end SKIPPED
-                                }
-
-                                #------------------------------
-
-                            }
-                            
-                            continue
-                        }
-                        ##------------------------------
-                        ##
-                        #set target_relpath [punkcheck::lib::path_relative $basedir $target_module_dir/$m]
-                        #set file_record [punkcheck::installfile_begin $basedir $target_relpath $installername -eventid $punkcheck_eventid]
-                        #set changed_list [list]
-                        ## -- --- --- --- --- ---
-                        #set source_relpath [punkcheck::lib::path_relative $basedir $current_source_dir/$m]
-                        #set file_record [punkcheck::installfile_add_source_and_fetch_metadata $basedir $source_relpath $file_record]
-                        ## -- --- --- --- --- ---
-                        #set changed_unchanged [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $file_record body] end]]
-                        #set changed_list [dict get $changed_unchanged changed]
-                        #----------
-                        $event targetset_init INSTALL $target_module_dir/$m 
-                        $event targetset_addsource $current_source_dir/$m
-                        if {\
-                                [llength [dict get [$event targetset_source_changes] changed]]\
-                            || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-                            } {
-
-                            #set file_record [punkcheck::installfile_started_install $basedir $file_record]
-                            $event targetset_started
-                            # -- --- --- --- --- ---
-                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
-                            lappend module_list $current_source_dir/$m
-                            file copy -force $current_source_dir/$m $target_module_dir
-                            puts stderr "Copied already versioned module $current_source_dir/$m to $target_module_dir"
-                            # -- --- --- --- --- ---
-                            #set file_record [punkcheck::installfile_finished_install $basedir $file_record]
-                            $event targetset_end OK -note "already versioned module"
-                        } else {
-                            puts -nonewline stderr "."
-                            set did_skip 1
-                            if {$is_interesting} {
-                                puts stderr "$current_source_dir/$m [$event targetset_source_changes]"
-                            }
-                            #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
-                            $event targetset_end SKIPPED
-                        }
-                    }
-                }
-            } ;#end dict for {modpath modinfo} $process_modules
-
-
-            if {$CALLDEPTH >= $max_depth} {
-                set subdirs [list]
-            } else {
-                set subdirs [glob -nocomplain -dir $current_source_dir -type d -tail *]
-            }
-            #puts stderr "subdirs: $subdirs"
-            foreach d $subdirs {
-                set skipdir 0
-                foreach dg $antidir {
-                    if {[string match $dg $d]} {
-                        set skipdir 1
-                        continue
-                    }
-                }
-                if {$skipdir} {
-                    continue
-                }
-                if {![file exists $target_module_dir/$d]} {
-                    file mkdir $target_module_dir/$d
-                }
-                lappend module_list {*}[build_modules_from_source_to_base $srcdir $basedir\
-                    -call-depth-internal [expr {$CALLDEPTH +1}]\
-                    -subdirlist [list {*}$subdirlist $d]\
-                    -punkcheck_eventobj $event\
-                    -glob $fileglob\
-                    -podglob $podglob\
-                ]
-            }
-            if {$did_skip} {
-                puts -nonewline stdout \n
-            }
-            if {$CALLDEPTH == 0} {
-                $event destroy
-                $installer destroy 
-            }
-            return $module_list
-        }
-
-        variable kettle_reset_bodies [dict create]
-        variable kettle_reset_args [dict create]
-        #We are abusing kettle to run in-process.
-        # when we change to another project we need recipes to be reloaded.
-        # Kettle rewrites some of it's own procs - stopping reloading of recipes when we change folders
-        #kettle_init stores the original proc bodies & args
-        proc kettle_init {} {
-            variable kettle_reset_bodies ;#dict
-            variable kettle_reset_args
-            set reset_procs [list\
-                ::kettle::benchmarks\
-                ::kettle::doc\
-                ::kettle::figures\
-                ::kettle::meta::scan\
-                ::kettle::testsuite\
-            ]
-            foreach p $reset_procs {
-                set b [info body $p]
-                if {[string match "*Overwrite self*" $b]} {
-                    dict set kettle_reset_bodies $p $b
-                    set argnames [info args $p]
-                    set arglist [list]
-                    foreach a $argnames {
-                        if {[info default $p $a dval]} {
-                            lappend arglist [list $a $dval]
-                        } else {
-                            lappend arglist $a
-                        }
-                    }
-                    dict set kettle_reset_args $p $arglist
-                }
-            } 
-
-        }
-        #call kettle_reinit to ensure recipes point to current project
-        proc kettle_reinit {} {
-            variable kettle_reset_bodies
-            variable kettle_reset_args
-            dict for {p b} $kettle_reset_bodies {
-                #set b [dict get $kettle_reset_bodies $p]
-                set argl [dict get $kettle_reset_args $p]
-                uplevel 1 [list ::proc $p $argl $b]
-            }
-            #todo - determine standard recipes by examining standard.tcl instead of hard coding?
-            set standard_recipes [list\
-                null\
-                forever\
-                list-recipes\
-                help-recipes\
-                help-dump\
-                help-recipes\
-                help\
-                list\
-                list-options\
-                help-options\
-                show-configuration\
-                show-state\
-                show\
-                meta-status\
-                gui\
-            ]
-            #set ::kettle::recipe::recipe [dict create]
-            dict for {r -} $::kettle::recipe::recipe {
-                if {$r ni $standard_recipes} {
-                    dict unset ::kettle::recipe::recipe $r
-                }
-            }
-        }
-        proc kettle_call {calltype args} {
-            variable kettle_reset_bodies
-            switch -- $calltype {
-                lib {}
-                shell {
-                    set kettleappfile [file dirname [info nameofexecutable]]/kettle
-                    set kettlebatfile [file dirname [info nameofexecutable]]/kettle.bat
-
-                    if {(![file exists $kettleappfile]) && (![file exists $kettlebatfile])} {
-                        error "deck kettle_call unable to find installed kettle application file '$kettleappfile' (or '$kettlebatfile' if on windows)"
-                    }
-                    if {[file exists $kettleappfile]} {
-                        set kettlescript $kettleappfile
-                    }
-                    if {$::tcl_platform(platform) eq "windows"} {
-                        if {[file exists $kettlebatfile]} {
-                            set kettlescript $kettlebatfile
-                        }
-                    }
-                }
-                default {
-                    error "deck kettle_call 1st argument must be one of: 'lib' for direct use of kettle module or 'shell' to call as separate process"
-                }
-            }
-            set startdir [pwd]
-            if {![file exists $startdir/build.tcl]} {
-                error "deck kettle must be run from a folder containing build.tcl (cwd: [pwd])"
-            }
-            if {[package provide kettle] eq ""} {
-                puts stdout "Loading kettle package - may be delay on first load ..."
-                package require kettle
-                kettle_init ;#store original procs for those kettle procs that rewrite themselves
-            } else {
-                if {[dict size $kettle_reset_bodies] == 0} {
-                    #presumably package require kettle was called without calling our kettle_init hack.
-                    kettle_init
-                } else {
-                    #undo proc rewrites
-                    kettle_reinit
-                }
-            }
-            set first [lindex $args 0] 
-            if {[string match @* $first]} {
-                error "deck kettle doesn't support special operations - try calling tclsh kettle directly"
-            }
-            if {$first eq "-f"} {
-                set args [lassign $args __ path]
-            } else {
-                set path $startdir/build.tcl 
-            }
-            set opts [list]
-
-            if {[lindex $args 0] eq "-trace"} {
-                set args [lrange $args 1 end]
-                lappend opts --verbose on
-            }
-            set goals [list]
-
-            if {$calltype eq "lib"} {
-                file mkdir ~/.kettle
-                set dotfile ~/.kettle/config
-                if {[file exists $dotfile] &&
-                    [file isfile $dotfile] &&
-                    [file readable $dotfile]} {
-                    ::kettle io trace {Loading dotfile $dotfile ...}
-                    set args [list {*}[::kettle path cat $dotfile] {*}$args]
-                }
-            }
-
-            #hardcoded kettle option names (::kettle option names) - retrieved using kettle::option names 
-            #This is done so we don't have to load kettle lib for shell call (both loading as module and running shell are annoyingly SLOW)
-            #REVIEW - needs to be updated to keep in sync with kettle. 
-            set knownopts [list\
-                --exec-prefix --bin-dir --lib-dir --prefix --man-dir --html-dir --markdown-dir --include-dir \
-                --ignore-glob --dry --verbose --machine --color --state --config --with-shell --log \
-                --log-append --log-mode --with-dia --constraints --file --limitconstraints --tmatch --notfile --single --valgrind --tskip --repeats \
-                --iters --collate --match --rmatch --with-doc-destination --with-git --target --test-include \
-                ]
-
-            while {[llength $args]} {
-                set o [lindex $args 0]
-                switch -glob -- $o {
-                    --* {
-                        #instead of using: kettle option known
-                        if {$o ni $knownopts} {
-                            error "Unable to process unknown option $o." {} [list KETTLE (deck)]
-                        }
-                        lappend opts $o [lindex $args 1]
-                        #::kettle::option set $o [lindex $args 1]
-                        set args [lrange $args 2 end]
-                    }
-                    default {
-                        lappend goals $o
-                        set args [lrange $args 1 end]
-                    }
-                }
-            }
-
-            if {![llength $goals]} {
-                lappend goals help
-            }
-            if {"--prefix" ni [dict keys $opts]} {
-                dict set opts --prefix [file dirname $startdir]
-            }
-            if {$calltype eq "lib"} {
-                ::kettle status clear
-                ::kettle::option::set @kettle $startdir
-                foreach {o v} $opts {
-                    ::kettle option set $o $v
-                }
-                ::kettle option set @srcscript $path
-                ::kettle option set @srcdir [file dirname $path]
-                ::kettle option set @goals $goals
-                #load standard recipes as listed in build.tcl
-                ::source $path
-                puts stderr "recipes: [::kettle recipe names]"
-                ::kettle recipe run {*}[::kettle option get @goals]
-
-                set state [::kettle option get --state]
-                if {$state ne {}} {
-                    puts stderr "saving kettle state: $state"
-                    ::kettle status save $state
-                }
-
-            } else {
-                #shell
-                puts stdout "Running external kettle process with args: $opts $goals"
-                run -n tclsh $kettlescript -f $path {*}$opts {*}$goals
-            }
-
-        }
-        proc kettle_punk_recipes {} {
-            set txtdst ...
-        }
-
-    }
-}
-
-
-namespace eval punk::mix::cli {
-    proc _cli {args} {
-        #don't use tailcall - base uses info level to determine caller
-        ::punk::mix::base::_cli {*}$args
-    }
-    variable default_command help
-    package require punk::mix::base
-    package require punk::overlay
-    if {[catch {
-        punk::overlay::custom_from_base [namespace current] ::punk::mix::base 
-    } errM]} {
-        puts stderr "punk::mix::cli load error: Failed to overlay punk::mix::base $errM"
-        error "punk::mix::cli  error: $errM"
-    }
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::cli [namespace eval punk::mix::cli {
-    variable version
-    set version 0.3 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/buildsuite-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/buildsuite-0.1.0.tm
deleted file mode 100644
index 409796fc..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/buildsuite-0.1.0.tm
+++ /dev/null
@@ -1,152 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::buildsuite 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::buildsuite {
-    namespace export *
-    proc projects {suite} {
-        set pathinfo [punk::repo::find_repos [pwd]]
-        set projectdir [dict get $pathinfo closest]
-        set suites_dir [file join $projectdir src buildsuites]
-        if {![file isdirectory [file join $suites_dir $suite]]} {
-            puts stderr "suite: $suite not found in buildsuites folder: $suites_dir"
-            return
-        }
-        set suite_dir [file join $suites_dir $suite]
-        set projects [glob -dir $suite_dir -type d -tails *]
-
-        #use internal du which although breadth-first is generally faster
-        puts stdout "Examining source folders in $suite_dir." ;#A hint that something is happening in case sources are large
-        set du_info [punk::du::du -d 1 -b $suite_dir]
-        set du_sizes [dict create]
-        set suite_total_size "-" 
-        foreach du_record $du_info {
-            if {[llength $du_record] != 2} {
-                #sanity precaution - punk::du::du should always output list of 2 element lists - at least with flags we're using
-                continue
-            }
-            set sz [lindex $du_record 0]
-            set path_parts [file split [lindex $du_record 1]] ;#should handle spaced-paths ok.
-            set s [lindex $path_parts end-1]
-            set p [lindex $path_parts end]
-
-            #This handles case where a project folder is same name as suite  e.g src/buildsuites/tcl/tcl
-            #so we can't just use tail as dict key. We could assume last record is always total - but 
-            if {![string match -nocase $s $suite]} {
-                if {$s eq "buildsuites" && [string match -nocase $p $suite]} {
-                    set suite_total_size $sz ;#this includes config files in suite base - so we don't really want to use this to report the total source size
-                } else {
-                    #something else - shouldn't happen
-                    puts stderr "Unexpected output from du in suite_dir: $suite_dir"
-                    puts stderr "$du_record"
-                    #try to continue anyway
-                }
-            } else {
-                dict set du_sizes $p $sz
-            }
-        }
-
-        #build another dict for sizes where we ensure exactly one entry for each project exists and exclude total (don't blindly trust du output e.g in case weird filename/permission issue)
-        set psizes [list]
-        foreach p $projects {
-            if {[dict exists $du_sizes $p]} {
-                dict set psizes $p [dict get $du_sizes $p]
-            } else {
-                dict set psizes $p -
-            }
-        }
-        set total_source_size "-"
-        if {[catch {
-            set total_source_size [tcl::mathop::+ {*}[dict values $psizes]]
-        } errM]} {
-            puts stderr "Failed to calculate total source size. Errmsg: $errM"
-        }
-        package require overtype
-
-        set title1 "Projects"
-        set widest1 [tcl::mathfunc::max {*}[lmap v [concat [list $title1] $projects] {punk::strlen $v}]]
-        set col1 [string repeat " " $widest1] 
-
-        set size_values [dict values $psizes]
-        # Title is probably widest - but go through the process anyway!
-        set title2 "Source Bytes"
-        set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $size_values] {punk::strlen $v}]]
-        set col2 [string repeat " " $widest2]
-
-
-        set output ""
-        append output "[overtype::left $col1 $title1] [overtype::right $col2 $title2]" \n
-        foreach p [lsort $projects] {
-            #todo - provide some basic info for each - last build time? last time-to-build?
-            append output "[overtype::left $col1 $p] [overtype::right $col2 [dict get $psizes $p]]" \n
-        }
-        append output "Total Source size: $total_source_size bytes" \n
-        return $output
-    }
-
-
-    namespace eval collection {
-        namespace export *
-        proc _default {{glob {}}} {
-            if {![string length $glob]} {
-                set glob *
-            }
-            #todo - review - we want the furthest not the closest if we are potentially inside a buildsuite project
-            set pathinfo [punk::repo::find_repos [pwd]]
-            set projectdir [dict get $pathinfo closest]
-            set suites_dir [file join $projectdir src buildsuites]
-            if {![file exists $suites_dir]} {
-                puts stderr "No buildsuites folder found at $suites_dir"
-                return
-            }
-            set suites [lsort [glob -dir $suites_dir -type d -tails *]]
-            if {$glob ne "*"} {
-                set suites [lsearch -all -inline $suites $glob]
-            }
-            return $suites
-        }
-    }
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::commandset::buildsuite [namespace eval punk::mix::commandset::buildsuite {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/debug-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/debug-0.1.0.tm
deleted file mode 100644
index a3784c00..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/debug-0.1.0.tm
+++ /dev/null
@@ -1,92 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::debug 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::debug {
-    namespace export get paths
-    namespace path ::punk::mix::cli
-
-    #Except for 'get' - all debug commands should emit to stdout
-    proc paths {} {
-        set out ""
-        puts stdout "find_repos output:" 
-        set pathinfo [punk::repo::find_repos [pwd]]
-        pdict pathinfo
-
-        set projectdir [dict get $pathinfo closest]
-        set modulefolders [lib::find_source_module_paths $projectdir]
-        puts stdout "modulefolders: $modulefolders"
-
-        set template_base_dict [punk::mix::base::lib::get_template_basefolders]
-        puts stdout "get_template_basefolders output:"
-        pdict template_base_dict */*
-        return
-    }
-
-    #call other debug command - but capture stdout as return value
-    proc get {args} {
-        set nm [lindex $args 0]
-        if {$nm eq ""} {
-            set nscmds [info commands [namespace current]::*]
-            set cmds [lmap v $nscmds {namespace tail $v}]
-            error "debug.get missing debug command argument. Try one of: $cmds"
-            return
-        }
-        set nextargs [lrange $args 1 end]
-        set out ""
-        if {[info commands [namespace current]::$nm] ne ""} {
-            append out [runout -n -tcl  [namespace current]::$nm {*}$nextargs] \n
-        } else {
-            set nscmds [info commands [namespace current]::*]
-            set cmds [lmap v $nscmds {namespace tail $v}]
-            error "debug.get invalid debug command '$nm' Try one of: $cmds"
-        }
-        return $out
-    }
-    namespace eval lib {
-
-    }
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::mix::commandset::debug [namespace eval punk::mix::commandset::debug {
-    variable version
-    set version 0.1.0
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/doc-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/doc-0.1.0.tm
deleted file mode 100644
index 7377929a..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/doc-0.1.0.tm
+++ /dev/null
@@ -1,324 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::doc 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-package require punk::path ;# for treefilenames, relative
-package require punk::repo
-package require punk::docgen ;#inline doctools - generate doctools .man files at src/docgen prior to using kettle to producing .html .md etc
-package require punk::mix::cli  ;#punk::mix::cli::lib used for kettle_call
-#package require punkcheck ;#for path_relative
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::doc {
-    namespace export *
-
-    proc _default {} {
-        puts "documentation subsystem"
-        puts "commands: doc.build"
-        puts "        build documentation from src/doc to src/embedded using the kettle build tool"
-        puts "commands: doc.status"
-    }
-
-    proc build {} {
-        puts "build docs"
-        set projectdir [punk::repo::find_project]
-        if {$projectdir eq ""} {
-            puts stderr "No current project dir - unable to build docs"
-            return
-        }
-        #user may delete the comment containing "--- punk::docgen::overwrites" and then manually edit, and we won't overwrite
-        #we still generate output in src/docgen so user can diff and manually update if thats what they prefer
-        set oldfiles [punk::path::treefilenames -dir $projectdir/src/doc _module_*.man]
-        foreach maybedoomed $oldfiles {
-            set fd [open $maybedoomed r]
-            chan conf $fd -translation binary
-            set data [read $fd]
-            close $fd
-            if {[string match "*--- punk::docgen overwrites *" $data]} {
-                file delete -force $maybedoomed
-            }
-        }
-        set generated [lib::do_docgen modules]
-        if {[dict get $generated count] > 0} {
-            #review
-            set doclist [dict get $generated docs]
-            set source_base [dict get $generated base]
-            set target_base $projectdir/src/doc
-            foreach dinfo $doclist {
-                lassign $dinfo module fpath
-                set relpath [punk::path::relative $source_base $fpath]
-                set relfolder [file dirname $relpath]
-                if {$relfolder eq "."} {
-                    set relfolder ""
-                }
-                file mkdir [file join $target_base $relfolder]
-                set target [file join $target_base $relfolder _module_[file tail $fpath]]
-                puts stderr "target --> $target"
-                if {![file exists $target]} {
-                    file copy $fpath $target
-                }
-            }
-        }
-
-        if {[file exists $projectdir/src/doc]} {
-            set original_wd [pwd]
-            cd $projectdir/src
-            #----------
-            set installer [punkcheck::installtrack new project.new $projectdir/src/.punkcheck]
-            $installer set_source_target $projectdir/src/doc $projectdir/src/embedded
-            set event [$installer start_event {-install_step kettledoc}]
-            #use same virtual id "kettle_build_doc" as project.new - review best way to keep identifiers like this in sync. 
-            $event targetset_init VIRTUAL kettle_build_doc ;#VIRTUAL - since there is no specific target file - and we don't know all the files that will be generated
-            $event targetset_addsource $projectdir/src/doc  ;#whole doc tree is considered the source 
-            #----------
-            if {\
-                    [llength [dict get [$event targetset_source_changes] changed]]\
-                } {
-                $event targetset_started
-                # -- --- --- --- --- ---
-                puts stdout "BUILDING DOCS at $projectdir/src/embedded from src/doc"
-                if {[catch {
-                    if {"::meta" eq [info commands ::meta]} {
-                        puts stderr "There appears to be a leftover ::meta command which is presumed to be from doctools. Destroying object"
-                        ::meta destroy
-                    }
-                    punk::mix::cli::lib::kettle_call lib doc
-                    #Kettle doc
-
-                } errM]} {
-                    $event targetset_end FAILED -note "kettle_build_doc failed: $errM"
-                } else {
-                    $event targetset_end OK
-                }
-                # -- --- --- --- --- ---
-            } else {
-                puts stderr "No change detected in src/doc"
-                $event targetset_end SKIPPED
-            }
-            $event end
-            $event destroy
-            $installer destroy
-            cd $original_wd
-        } else {
-            puts stderr "No doc folder found at $projectdir/src/doc"
-        }
-    }
-    proc status {} {
-        set projectdir [punk::repo::find_project]
-        if {$projectdir eq ""} {
-            puts stderr "No current project dir - unable to check doc status"
-            return
-        }
-        if {![file exists $projectdir/src/doc]} {
-            set result "No documentation source found. Expected .man files in doctools format at $projectdir/src/doc"
-            return $result
-        }
-        set original_wd [pwd]
-        cd $projectdir/src
-        puts stdout "Testing status of doctools source location $projectdir/src/doc ..."
-        flush stdout
-        #----------
-        set installer [punkcheck::installtrack new project.new $projectdir/src/.punkcheck]
-        $installer set_source_target $projectdir/src/doc $projectdir/src/embedded
-        set event [$installer start_event {-install_step kettledoc}]
-        #use same virtual id "kettle_build_doc" as project.new - review best way to keep identifiers like this in sync. 
-        $event targetset_init QUERY kettle_build_doc ;#usually VIRTUAL - since there is no specific target file - and we don't know all the files that will be generated - but here we use QUERY to ensure no writes to .punkcheck
-        set last_completion [$event targetset_last_complete]
-
-        if {[llength $last_completion]} {
-            #adding a source causes it to be checksummed
-            $event targetset_addsource $projectdir/src/doc  ;#whole doc tree is considered the source 
-            #----------
-            set changeinfo [$event targetset_source_changes]
-            if {\
-                    [llength [dict get $changeinfo changed]]\
-                } {
-                    puts stdout "changed"
-                    puts stdout $changeinfo
-            } else {
-                puts stdout "No changes detected in $projectdir/src/doc tree"
-            }
-        } else {
-            #no previous completion-record for this target - must assume changed - no need to trigger checksumming
-            puts stdout "No existing record of doc build in .punkcheck. Assume it needs to be rebuilt."
-        }
-
-
-        $event destroy
-        $installer destroy
-
-        cd $original_wd
-    }
-    proc validate {args} {
-        set argd [punk::args::parse $args withdef {
-            @id         -id ::punk::mix::commandset::doc::validate
-            --          -type none -optional 1 -help "end of options marker --"
-            -individual -type boolean -default 1
-            @values -min 0 -max -1
-            patterns -default {*.man} -type any -multiple 1
-        }]
-        set opt_individual      [tcl::dict::get $argd opts -individual]
-        set patterns        [tcl::dict::get $argd values patterns]
-
-
-        #todo - run and validate punk::docgen output
-        set projectdir [punk::repo::find_project]
-        if {$projectdir eq ""} {
-            puts stderr "No current project dir - unable to check doc status"
-            return
-        }
-        if {![file exists $projectdir/src/doc]} {
-            set result "No documentation source found. Expected .man files in doctools format at $projectdir/src/doc"
-            return $result
-        }
-        set original_wd [pwd]
-        set docroot $projectdir/src/doc
-        cd $docroot
-
-        if {!$opt_individual && "*.man" in $patterns} {
-            if {[catch {
-                dtplite validate  $docroot
-            } errM]} {
-                puts stderr "commandset::doc::validate failed for projectdir '$projectdir'"
-                puts stderr "docroot '$docroot'"
-                puts stderr "dtplite error was: $errM"
-            }
-        } else {
-            foreach p $patterns {
-                set treefiles [punk::path::treefilenames $p]
-                foreach path $treefiles {
-                    puts stdout "dtplite validate $path"
-                    dtplite validate $path
-                }
-            }
-        }
-
-        #punk::mix::cli::lib::kettle_call lib validate-doc
-
-        cd $original_wd
-    }
-
-    namespace eval collection {
-        variable pkg
-        set pkg punk::mix::commandset::doc
-
-        namespace export *
-        namespace path [namespace parent]
-
-    }
-
-    namespace eval lib {
-        variable pkg
-        set pkg punk::mix::commandset::doc
-        proc  do_docgen {{project_subpath modules}} {
-            #Extract doctools comments from source code
-            set projectdir [punk::repo::find_project]
-            set output_base [file join $projectdir src docgen]
-            set codesource_path [file join $projectdir $project_subpath]
-            if {![file isdirectory $codesource_path]} {
-                puts stderr "WARNING punk::mix::commandset::doc unable to find codesource_path $codesource_path during do_docgen - skipping inline doctools generation"
-                return
-            }
-            if {[file isdirectory $output_base]} {
-                if {[catch {
-                    file delete -force $output_base
-                }]}  {
-                    error "do_docgen failed to delete existing output base folder: $output_base"
-                }
-            }
-            file mkdir $output_base
-
-            set matched_paths [punk::path::treefilenames -dir $codesource_path -antiglob_paths {**/mix/templates/** **/project_layouts/** **/decktemplates/** **/_aside **/_aside/**} *.tm]
-            set count 0
-            set newdocs [list] 
-            set docgen_header_comments ""
-            append docgen_header_comments {[comment {--- punk::docgen generated from inline doctools comments ---}]} \n
-            append docgen_header_comments {[comment {--- punk::docgen DO NOT EDIT DOCS HERE UNLESS YOU REMOVE THESE COMMENT LINES ---}]} \n
-            append docgen_header_comments {[comment {--- punk::docgen overwrites this file ---}]} \n
-            foreach fullpath $matched_paths {
-                puts stdout "do_docgen processing: $fullpath"
-                set doctools [punk::docgen::get_doctools_comments $fullpath] 
-                if {$doctools ne ""} {
-                    set fname [file tail $fullpath]
-                    set mod_tail [file rootname $fname] 
-                    set relpath [punk::path::relative $codesource_path [file dirname $fullpath]]
-                    if {$relpath eq "."} {
-                        set relpath ""
-                    }
-                    set tailsegs [file split $relpath]
-                    set module_fullname [join $tailsegs ::]::$mod_tail
-                    set target_docname $fname.man
-                    set this_outdir [file join $output_base $relpath]
-
-                    if {[string length $fname] > 99} {
-                        #output needs to be tarballed to do checksum change tests in a reasonably straightforward and not-too-terribly slow way.
-                        #hack - review. Determine exact limit - test if tcllib tar fixed or if it's a limit of the particular tar format
-                        #work around tcllib tar filename length limit ( somewhere around 100?) This seems to be a limit on the length of a particular segment in the path.. not whole path length?
-                        #this case only came up because docgen used to path munge to long filenames - but left because we know there is a limit and renaming fixes it - even if it's ugly - but still allows doc generation.
-                        #review - if we're checking fname - should also test length of whole path and determine limits for tar
-                        package require md5
-                        if {[package vsatisfies [package present md5] 2- ] } {
-                            set md5opt "-hex"
-                        } else {
-                            set md5opt ""
-                        }
-                        set target_docname [md5::md5 {*}$md5opt [encoding convertto utf-8 $fullpath]]_overlongfilename.man
-                        puts stderr "WARNING - overlong file name - renaming $fullpath"
-                        puts stderr "          to                            [file dirname $fullpath]/$target_docname"
-                    }
-
-                    file mkdir $this_outdir
-                    puts stdout "saving [string length $doctools] bytes of doctools output from file $relpath/$fname"
-                    set outfile [file join $this_outdir $target_docname]
-                    set fd [open $outfile w]
-                    fconfigure $fd -translation binary
-                    puts -nonewline $fd $docgen_header_comments$doctools
-                    close $fd
-                    incr count
-                    lappend newdocs [list $module_fullname $outfile]
-                }
-            }
-            return [list count $count docs $newdocs base $output_base]
-        }
-
-    }
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::commandset::doc [namespace eval punk::mix::commandset::doc {
-    variable pkg punk::mix::commandset::doc
-    variable version
-    set version 0.1.0 
-}]
-return
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/layout-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/layout-0.1.0.tm
deleted file mode 100644
index 47e37909..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/layout-0.1.0.tm
+++ /dev/null
@@ -1,302 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::layout 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-package require punk::args
-#sort of a circular dependency when commandset loaded by punk::mix::cli - that's ok, but this could theoretically be loaded by another cli and with another base
-package require punk::mix
-package require punk::mix::base
-package require punk::lib
-package require textblock
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::layout {
-    namespace export *
-
-
-    namespace eval argdoc {
-            proc layout_names {} {
-                if {[catch {punk::mix::commandset::layout::lib::layouts_dict *} ldict]} {
-                    #REVIEW
-                    return "punk.project"
-                } else {
-                    return [dict keys $ldict]
-                }
-            }
-    }
-    #per layout functions
-    punk::args::define  {
-        @dynamic
-        @id     -id ::punk::mix::commandset::layout::files
-        -datetime -default "%Y-%m-%dT%H:%M:%S" -help\
-            "Datetime format for mtime. Use empty string for no datetime output"
-        @values -min 1 -max 1
-        layout -type string -choices {${[punk::mix::commandset::layout::argdoc::layout_names]}} 
-    }
-    proc files {args} {
-        set argd [punk::args::get_by_id ::punk::mix::commandset::layout::files $args]
-        set layout      [dict get $argd values layout]
-        set dtformat    [dict get $argd opts -datetime]
-
-        set allfiles [lib::layout_all_files $layout]
-        if {$dtformat eq ""} {
-            return [join $allfiles \n]
-        } else {
-            set out ""
-            foreach f $allfiles {
-                set mtime [dict get [file stat $f] mtime]
-                append out "$f [clock format $mtime -format $dtformat]" \n
-            }
-            set out [string range $out 0 end-1]
-            return $out
-        }
-    }
-    proc templatefiles {layout} {
-        set templatefiles_and_tags [lib::layout_scan_for_template_files $layout]
-        set flatlist [punk::lib::lmapflat v $templatefiles_and_tags {lrange $v 0 end}]
-        #return [join $templatefiles \n]
-        textblock::list_as_table -header {"File with tags found" "Tags"} -columns 2 $flatlist
-    }
-    proc templatefiles.relative {layout} {
-
-        set layoutdict [lib::layouts_dict]
-        if {![dict exists $layoutdict $layout]} {
-            puts stderr "layout '$layout' not found."
-            return
-        }
-        set layoutinfo [dict get $layoutdict $layout]
-        set layoutfolder [dict get $layoutinfo path]
-
-
-        set stripprefix [file normalize $layoutfolder]
-        set templatefiles_and_tags [lib::layout_scan_for_template_files $layout]
-        set flatlist [list]
-        foreach entry $templatefiles_and_tags {
-            lassign $entry templatefullpath tags
-            lappend flatlist [punk::repo::path_strip_alreadynormalized_prefixdepth $templatefullpath $stripprefix] $tags
-        }
-        #return [join $tails \n]
-        textblock::list_as_table -header {"File with tags found" "Tags"} -columns 2 $flatlist
-    }
-
-    #layout collection functions - to be imported with punk::overlay::import_commandset separately
-    namespace eval collection {
-        namespace export *
-        proc _defaultx {{glob {}}} {
-            if {![string length $glob]} {
-                set glob *
-            }
-            set layouts [list]
-            set layoutdict [punk::cap::call_handler punk.templates get_itemdict_projectlayouts]
-            #set tplfolderdict [punk::mix::base::lib::get_template_basefolders]
-            dict for {layoutname layoutinfo} $layoutdict {
-                lappend layouts [list $layoutname $layoutinfo]
-            }
-            #return [join [lsort -index 0 $layouts] \n]
-            return [join $layouts \n]
-        }
-
-        punk::args::define {
-            @id     -id     ::punk::mix::commandset::layout::collection::_default
-            @cmd    -name   ::punk::mix::commandset::layout::collection::_default
-            -startdir   -type string
-            -not        -type string -multiple 1
-            globsearches -default * -multiple 1
-        }
-        proc _default {args} {
-            punk::args::parse $args withid ::punk::mix::commandset::layout::collection::_default
-
-
-            set tdict_low_to_high [as_dict {*}$args]
-            #convert to screen order - with higher priority at the top
-            set tdict [dict create]
-            foreach k [lreverse [dict keys $tdict_low_to_high]] {
-                dict set tdict $k [dict get $tdict_low_to_high $k]
-            }
-
-            package require overtype
-            package require textblock
-            #set pathinfolist [dict values $tdict]
-            #set paths [lsearch -all -inline -index 1 -subindices $pathinfolist *] ;#relies on first key of templates_dict being path
-
-            set names [dict keys $tdict]
-            set paths [list]
-            set pathtypes [list]
-            dict for {nm tinfo} $tdict {
-                lappend paths [dict get $tinfo path]
-                lappend pathtypes [dict get $tinfo sourceinfo pathtype]
-            }
-
-            set title(path) "Path"
-
-            set title(pathtype) "[a+ green]Path Type[a]"
-
-            set title(name) "Layout Name"
-
-            set data [list]
-            foreach n $names pt $pathtypes p $paths {
-                lappend data $n $pt $p
-            }
-            set table [textblock::list_as_table -columns 3 -header [list $title(name) $title(pathtype) $title(path)] $data]
-
-            return $table
-        }
-        proc references {args} {
-            set tdict_low_to_high [references_as_dict {*}$args]
-            #convert to screen order - with higher priority at the top
-            set tdict [dict create]
-            foreach k [lreverse [dict keys $tdict_low_to_high]] {
-                dict set tdict $k [dict get $tdict_low_to_high $k]
-            }
-
-            package require overtype
-            package require textblock
-            #set pathinfolist [dict values $tdict]
-            #set paths [lsearch -all -inline -index 1 -subindices $pathinfolist *] ;#relies on first key of templates_dict being path
-
-            set names [dict keys $tdict]
-            set paths [list]
-            set pathtypes [list]
-            dict for {nm tinfo} $tdict {
-                lappend paths [dict get $tinfo path]
-                lappend pathtypes [dict get $tinfo sourceinfo pathtype]
-            }
-
-            set title(name) "Layout Name"
-            set title(pathtype) "[a+ green]Path Type[a]"
-            set title(path) "Path"
-
-            set data [list]
-            foreach n $names pt $pathtypes p $paths {
-                #append table "[textblock::join -- [overtype::left $col(name) $n] $vsep [overtype::left $col(pathtype) $pt] $vsep [overtype::left $col(path) $p]]" \n 
-                lappend data $n $pt $p
-            }
-            set table [textblock::list_as_table -columns 3 -header [list $title(name) $title(pathtype) $title(path)] $data]
-
-            return $table
-        }
-
-        proc as_dict {args} {
-            punk::mix::commandset::layout::lib::layouts_dict {*}$args
-        }
-        proc references_as_dict {args} {
-            package require punk::cap
-            if {[punk::cap::capability_has_handler punk.templates]} {
-                set ref_dict [punk::cap::call_handler punk.templates get_itemdict_projectlayoutrefs {*}$args]
-            } else {
-                put stderr "commandset::layout::lib::layouts_dict WARNING - no handler available for the 'punk.templates' capability - template providers will be unable to provide template locations"
-            }
-            return $ref_dict
-        }        
-    }
-    namespace eval lib {
-        proc layouts_dict {args} {
-            package require punk::cap
-            if {[punk::cap::capability_has_handler punk.templates]} {
-                set layout_dict [punk::cap::call_handler punk.templates get_itemdict_projectlayouts {*}$args]
-            } else {
-                put stderr "commandset::layout::lib::layouts_dict WARNING - no handler available for the 'punk.templates' capability - template providers will be unable to provide template locations"
-            }
-            return $layout_dict
-        }        
-        
-        proc layout_all_files {layout} {
-            #todo - allow versionless layout name to pick highest version found
-            set layoutdict [layouts_dict]
-            if {![dict exists $layoutdict $layout]} {
-                puts stderr "layout '$layout' not found."
-                return
-            }
-            set layoutinfo [dict get $layoutdict $layout]
-            set layoutfolder [dict get $layoutinfo path]
-            if {![file isdirectory $layoutfolder]} {
-                puts stderr "layout '$layout' points to path $layoutfolder - but it doesn't seem to exist"
-            }
-            set file_list [list] 
-            util::foreach-file $layoutfolder path {
-                lappend file_list $path
-            }
-
-            return $file_list
-        }
-
-        # 
-        proc layout_scan_for_template_files {layout {tags {}}} {
-            #todo JMN
-            set layoutdict [layouts_dict]
-            if {![dict exists $layoutdict $layout]} {
-                puts stderr "layout '$layout' not found."
-                return
-            }
-            set layoutinfo [dict get $layoutdict $layout]
-            set layoutfolder [dict get $layoutinfo path]
-
-            #use last matching layout found.  review silent if multiple?
-            if {![llength $tags]} {
-                #todo - get standard tags from somewhere
-                set tagnames [list project]
-                foreach tn $tagnames {
-                    lappend tags [string cat % $tn %] ;#make sure actual tag literal doesn't appear in this source file
-                }
-            }
-            set file_list [list] 
-            util::foreach-file $layoutfolder path {
-                set fd [open $path r]
-                fconfigure $fd -translation binary
-                set data [read $fd]
-                close $fd
-                set found_tags [list]
-                foreach tag $tags tn $tagnames {
-                    if {[string match "*$tag*" $data]} {
-                        lappend found_tags $tn
-                    }
-                }
-                if {[llength $found_tags]} {
-                    lappend file_list [list $path $found_tags]
-                }
-            }
-
-            return $file_list
-        }
-    }
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::commandset::layout [namespace eval punk::mix::commandset::layout {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/loadedlib-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/loadedlib-0.1.0.tm
deleted file mode 100644
index dc105f2f..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/loadedlib-0.1.0.tm
+++ /dev/null
@@ -1,617 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'deck make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::loadedlib 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::ns
-package require punk::lib
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::loadedlib {
-    namespace export *
-    #search automatically wrapped in * * - can contain inner * ? globs
-    punk::args::define {
-        @id     -id ::punk::mix::commandset::loadedlib::search
-        @cmd    -name "punk::mix::commandset::loadedlib search" -help "search all Tcl libraries available to your local interpreter"
-        -return  -type string -default table -choices {table tableobject list lines}
-        -present -type integer -default 2 -choices {0 1 2} -choicelabels {absent present both} -help\
-            "(unimplemented) Display only those that are 0:absent 1:present 2:either"
-        -highlight -type boolean -default 1 -help\
-            "Highlight which version is present with ansi underline and colour"
-        -refresh -default 0 -type boolean -help "Re-scan the tm and library folders"
-        searchstring -default * -multiple 1 -help\
-            "Names to search for, may contain glob chars (* ?) e.g *lib*
-              If no glob chars are explicitly specified, the searchstring will be wrapped with star globs.
-              eg name -> *name*
-              To search for an exact name prefix it with =
-              e.g =name -> name
-              If search is not prefixed with '=' the search is case insensitive."
-    }
-    proc search {args} {
-        set argd [punk::args::get_by_id ::punk::mix::commandset::loadedlib::search $args]
-        set searchstrings [dict get $argd values searchstring]
-        set opts [dict get $argd opts]
-        set opt_return      [dict get $opts -return]
-        set opt_highlight   [dict get $opts -highlight]
-        set opt_refresh     [dict get $opts -refresh]
-
-        if {$opt_refresh} {
-            catch {package require frobznodule666} ;#ensure pkg system has loaded/searched for everything REVIEW - this doesn't result in full scans
-            foreach tm_path [tcl::tm::list] {
-                set paths_below [punk::path::subfolders -recursive $tm_path]
-                foreach folder $paths_below {
-                    set tail [file tail $folder]
-                    if {[string match #modpod-* $tail] || [string match #tarjar-* $tail]} {
-                        continue
-                    }
-                    if {[string match */_build/* $folder]} {continue}
-                    set relpath [string tolower [punk::path::relative $tm_path $folder]]
-                    set modpath [string map {/ ::} $relpath]
-                    catch {package require ${modpath}::flobrudder99}
-                }
-            }
-        }
-
-
-        set packages [package names]
-        set matches [list]
-        foreach search $searchstrings {
-            if {[regexp {[?*\[]} $search]} {
-                #caller has specified specific glob pattern - use it
-                #todo - respect supplied case only if uppers present? require another flag?
-                lappend matches {*}[lsearch -all -inline -nocase $packages $search]
-            } elseif {[string match =* $search]} {
-                lappend matches {*}[lsearch -all -inline -exact $packages [string range $search 1 end]]
-            } else {
-                #make it easy to search for anything
-                lappend matches {*}[lsearch -all -inline -nocase $packages "*$search*"]
-            }
-        }
-        set matches [lsort -unique $matches][unset matches]
-        set matchinfo [list]
-        set highlight_ansi [a+ web-limegreen underline]
-        set RST [a]
-        foreach m $matches {
-            set versions [package versions $m]
-            if {![llength $versions]} {
-                #e.g builtins such as zlib - shows no versions - but will show version when package present/provide used
-                set versions [package provide $m]
-                #if {![catch {package present $m} v]} {
-                #    set versions $v
-                #}
-            }
-            set versions [lsort -command {package vcompare} $versions]
-            if {$opt_highlight} {
-                set v [package provide $m]
-                if {$v ne ""} {
-                    set posn [lsearch $versions $v]
-                    if {$posn >= 0} {
-                        #FIXME! (probably in textblock::pad ?)
-                        #TODO - determine why underline is extended to padding even with double reset. (space or other char required to prevent)
-                        set highlighted "$highlight_ansi$v$RST $RST"
-                        set versions [lreplace $versions $posn $posn $highlighted]
-                    } else {
-                        #shouldn't be possible?
-                        puts stderr "failed to find version '$v' in versions:$versions for package $m"
-                    }
-                }
-            }
-            lappend matchinfo [list $m $versions]
-        }
-        switch -- $opt_return {
-            list {
-                return $matchinfo 
-            }
-            lines {
-                return [join $matchinfo \n]
-            }
-            table - tableobject {
-                set t [textblock::class::table new]
-                $t add_column -headers "Package"
-                $t add_column -headers "Version"
-                $t configure -show_hseps 0
-                foreach m $matchinfo {
-                    $t add_row [list [lindex $m 0] [join [lindex $m 1] " "]]
-                }
-                if {$opt_return eq "tableobject"} {
-                    return $t
-                }
-                set result [$t print]
-                $t destroy
-                return $result
-            }
-        }
-    }
-
-    punk::args::define {
-        @id     -id ::punk::mix::commandset::loadedlib::loaded.search
-        @cmd    -name "punk::mix::commandset::loadedlib loaded.search"\
-            -summary\
-            "Search loaded libraries."\
-            -help "search all Tcl libraries currently loaded in your local interpreter.
-            ie those that have been loaded directly or indirectly by 'package require'."
-    }\
-    @values\
-    [punk::args::resolved_def -types values ::punk::mix::commandset::loadedlib::search searchstring]
-
-    proc loaded.search {args} {
-        set argd [punk::args::parse $args withid ::punk::mix::commandset::loadedlib::loaded.search]
-        lassign [dict values $argd] leaders opts values
-        set searchstrings [dict get $values searchstring]
-
-        set all_libs [search -return list -highlight 0 {*}$searchstrings]
-
-        set col1items [list]
-        set col2items [list]
-        set col3items [list]
-        foreach libinfo $all_libs {
-            if {[string trim $libinfo] eq ""} {
-                continue
-            }
-            set versions [lassign $libinfo libname]
-            if {[set ver [package provide $libname]] ne ""} {
-                lappend col1items $libname
-                lappend col2items $versions
-                lappend col3items $ver
-            }
-        }
-
-        package require overtype
-        set title1 "Library"
-        set widest1 [tcl::mathfunc::max {*}[lmap v [concat [list $title1] $col1items] {string length $v}]]
-        set col1 [string repeat " " $widest1]
-        set title2 "Versions Avail."
-        set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $col2items] {string length $v}]]
-        set col2 [string repeat " " $widest2]
-        set title3 "Loaded Version"
-        set widest3 [tcl::mathfunc::max {*}[lmap v [concat [list $title3] $col3items] {string length $v}]]
-        set col3 [string repeat " " $widest3]
-
-
-        set tablewidth [expr {$widest1 + 1 + $widest2 + 1 + $widest3}]
-
-        set table ""
-        append table [string repeat - $tablewidth] \n
-        append table "[overtype::left $col1 $title1] [overtype::left $col2 $title2] [overtype::left $col3 $title3]" \n
-        append table [string repeat - $tablewidth] \n
-        foreach c1 $col1items c2 $col2items c3 $col3items {
-            append table "[overtype::left $col1 $c1] [overtype::left $col2 $c2] [overtype::left $col3 $c3]" \n
-        }
-
-        return $table
-
-
-        set loaded_libs [list]
-        foreach libinfo $all_libs {
-            if {[string trim $libinfo] eq ""} {
-                continue
-            }
-            set versions [lassign $libinfo libname]
-            if {[set ver [package provide $libname]] ne ""} {
-                lappend loaded_libs "$libname $versions (loaded $ver)"
-            }
-        }
-        return [join $loaded_libs \n]
-    }
-
-    proc info {libname} {
-        catch {package require $libname 1-0} ;#ensure pkg system has loaded/searched  - using unsatisfiable version range
-        set pkgsknown [package names]
-        if {[set posn [lsearch $pkgsknown $libname]] >= 0} {
-            puts stdout "Found package [lindex $pkgsknown $posn]"
-        } else {
-            puts stderr "Package not found as available library/module - check tcl::tm::list and \$auto_path"
-        }
-        set versions [package versions [lindex $libname 0]]
-        set versions [lsort -command {package vcompare} $versions]
-        if {![llength $versions]} {
-            puts stderr "No version numbers found for library/module $libname"
-            return false
-        }
-        puts stdout "Versions of $libname found: $versions"
-        set alphaposn [lsearch $versions "999999.*"]
-        if {$alphaposn >= 0} {
-            set alpha [lindex $versions $alphaposn]
-            #remove and tack onto beginning..
-            set versions [lreplace $versions $alphaposn $alphaposn] 
-            set versions [list $alpha {*}$versions]
-        }
-        foreach ver $versions {
-            set loadinfo [package ifneeded $libname $ver]
-            puts stdout "$libname $ver"
-            puts stdout "--- 'package ifneeded' script ---"
-            puts stdout $loadinfo
-            puts stdout "---"
-        }
-        return
-    }
-
-    proc copyasmodule {library modulefoldername args} {
-        set defaults [list -askme 1]
-        set opts [dict merge $defaults $args]
-        set opt_askme [dict get $opts -askme]
-
-        if {[catch {package require natsort}]} {
-            set has_natsort 0
-        } else {
-            set has_natsort 1
-        }
-
-        catch {package require $library 1-0} ;#ensure pkg system has loaded/searched for everything for the path of the specified library (using unsatisfiable version range)
-
-        if {[file pathtype $modulefoldername] eq "absolute"} {
-            if {![file exists $modulefoldername]} {
-                error "Path '$modulefoldername' not found. Enter a fully qualified path, or just the tail such as 'modules' if you are within the project to use <projectdir>/src/modules"
-            }
-            #use the target folder as the source of projectdir info
-            set pathinfo [punk::repo::find_repos $modulefoldername]
-            set projectdir [dict get $pathinfo closest]
-            set modulefolder_path $modulefoldername
-        } else {
-            #use the current working directory as the source of projectdir info
-            set pathinfo [punk::repo::find_repos [pwd]]
-            set projectdir [dict get $pathinfo closest]
-            if {$projectdir ne ""} {
-                set modulefolders [punk::mix::cli::lib::find_source_module_paths $projectdir]
-                set majorv [lindex [split [info tclversion] .] 0]
-                foreach k [list modules modules_tcl$majorv vendormodules vendormodules_tcl$majorv] {
-                    set knownfolder [file join $projectdir src $k]
-                    if {$knownfolder ni $modulefolders} {
-                        lappend modulefolders $knownfolder
-                    }
-                }
-                set mtails [list]
-                foreach path $modulefolders {
-                    lappend mtails [file tail $path]
-                }
-
-                #special case bootsupport/modules so it can be referred to as just bootsupport or bootsupport/modules
-                lappend modulefolders [file join $projectdir src bootsupport/modules]
-
-                if {$modulefoldername ni $mtails && $modulefoldername ni "bootsupport bootsupport/modules bootsupport/modules_tcl$majorv"} {
-                    set msg "Suplied modulefoldername '$modulefoldername' doesn't appear to be a known module folder within the project at $projectdir\n"
-                    append msg "Known module folders: [lsort $mtails]\n"
-                    append msg "Use a name from the above list, or a fully qualified path\n"
-                    error $msg
-                }
-
-                if {$modulefoldername eq "bootsupport"} {
-                    set modulefoldername "bootsupport/modules"
-                }
-                set modulefolder_path [file join $projectdir src $modulefoldername]
-            } else {
-                set msg     "No current project found at or above current directory\n"
-                append msg  "Supplied modulefoldername '$modulefoldername' is a name or relative path - cannot use when outside a project." \n
-                append msg  "Supply an absolute path for the target modulefolder, or try again from within a project directory" \n
-                error $msg
-            }
-        }
-        puts stdout "-----------------------------"
-        if {$projectdir ne ""} {
-            puts stdout "Using projectdir: $projectdir for lib.copyasmodule"
-        } else {
-            puts stdout "No current project."
-        }
-        puts stdout "-----------------------------"
-        if {![file exists $modulefolder_path]} {
-            error "Selected module folder path '$modulefolder_path' doesn't exist. Required subdirectories for namespaced modules will be created automatically - but base selected folder must exist first"
-        }
-
-       
-        set libfound [lsearch -all -inline [package names] $library]
-        if {[llength $libfound] != 1 || ![string length $libfound]} {
-            error "Library must match exactly one entry in the list of package names visible to the current interpretor: found '$libfound'"
-        }
-
-        set versions [package versions [lindex $libfound 0]]
-        set versions [lsort -command {package vcompare} $versions]
-        #if {$has_natsort} {
-        #    set versions [natsort::sort $versions]
-        #} else {
-        #    set versions [lsort $versions]
-        #}
-        if {![llength $versions]} {
-            error "No version numbers found for library/module $libfound - sorry, you will need to copy it across manually"
-        }
-        puts stdout "Versions of $libfound found: $versions"
-        set alphaposn [lsearch $versions "999999.*"]
-        if {$alphaposn >= 0} {
-            set alpha [lindex $versions $alphaposn]
-            #remove and tack onto beginning..
-            set versions [lreplace $versions $alphaposn $alphaposn] 
-            set versions [list $alpha {*}$versions]
-        }
-
-        set ver [lindex $versions end] ;# todo - make selectable! don't assume tail is latest?.. package vcompare?
-        if {[llength $versions] > 1} {
-            puts stdout  "Version selected: $ver"
-        }
-
-        set loadinfo [package ifneeded $libfound $ver]
-        set loadinfo [string map {\r\n \n} $loadinfo]
-        set loadinfo_lines [split $loadinfo \n]
-        if {[catch {llength $loadinfo}]} {
-            set loadinfo_is_listshaped 0
-        } else {
-            set loadinfo_is_listshaped 1
-        }
-        
-        #check for redirection to differently cased version of self - this is only detected if this is the only command in the package ifneeded result
-        #- must have matching version. REVIEW this requirement. Is there a legitimate reason to divert to a differently cased other-version?
-        set is_package_require_self_recased 0
-        set is_package_require_diversion 0
-        set lib_diversion_name ""
-        if {[llength $loadinfo_lines] == 1} {
-            #e.g Thread 3.0b1 diverts to thread 3.0b1
-            set line1 [lindex $loadinfo_lines 0]
-            #check if multiparted with semicolon
-            #We need to distinguish "package require <lib> <ver>; more stuff"  from "package require <lib> ver> ;"  possibly with trailing comment?
-            set parts [list]
-            if {[regexp {;} $line1]} {
-                foreach p [split $line1 {;}] {
-                    set p [string trim $p]
-                    if {[string length $p]} {
-                        #only append parts with some content that doesn't look like a comment
-                        if {![string match "#*" $p]} {
-                            lappend parts $p
-                        }
-                    }
-                }
-
-            }
-            if {[llength $parts] == 1} {
-                #seems like a lone package require statement.
-                #check if package require, package\trequire etc
-                if {[string match "package*require" [lrange $line1 0 1]]} {
-                    set is_package_require_diversion 1
-                    if {[lindex $line1 2] eq "-exact"} {
-                        #package require -exact <pkg> <ver>
-                        set lib_diversion_name [lindex $line1 3]
-                        #check not an exact match - but is a -nocase match - i.e differs in case only
-                        if {($lib_diversion_name ne $libfound) && [string match -nocase $lib_diversion_name $libfound]} {
-                            if {[lindex $line1 4] eq $ver} {
-                                set is_package_require_self_recased 1
-                            } 
-                        }
-                    } else {
-                        #may be package require <pkg> <ver>
-                        #or package require <pkg> <ver> ?<ver>?...
-                        set lib_diversion_name [lindex $line1 2]
-                        #check not an exact match - but is a -nocase match - i.e differs in case only
-                        if {($lib_diversion_name ne $libfound) && [string match -nocase $lib_diversion_name $libfound]} {
-                            set requiredversions [lrange $line1 3 end]
-                            if {$ver in $requiredversions} {
-                                set is_package_require_self_recased 1
-                            }
-                        }
-                    }
-                } 
-            }
-        }
-
-        if {$is_package_require_self_recased && [string length $lib_diversion_name]} {
-            #we only follow one level of package require redirection - seems unlikely/imprudent to follow arbitrarily in a while loop(?)    
-            set libfound $lib_diversion_name
-            set loadinfo [package ifneeded $libfound $ver]
-            set loadinfo [string map {\r\n \n} $loadinfo]
-            set loadinfo_lines [split $loadinfo \n]
-            if {[catch {llength $loadinfo}]} {
-                set loadinfo_is_listshaped 0
-            } else {
-                set loadinfo_is_listshaped 1
-            }
-
-
-        } else {
-            if {$is_package_require_diversion} {
-                #single 
-                #for now - we'll abort and tell the user to run again with specified pkg/version
-                #We could automate - but it seems likely to be surprising.
-                puts stderr "Loadinfo for $libfound seems to be diverting to another pkg/version: $loadinfo_lines"
-                puts stderr "Review and consider trying with the pkg/version described in the result above."
-                return
-            }
-        }
-
-
-        if {$loadinfo_is_listshaped && ([llength $loadinfo] == 2 && [lindex $loadinfo 0] eq "source")} {
-            set source_file [lindex $loadinfo 1]
-        } elseif {[string match "*source*" $loadinfo]} {
-            set parts [list]
-            foreach ln $loadinfo_lines {
-                if {![string length $ln]} {continue}
-                lappend parts {*}[split $ln ";"]
-            }
-            set sources_found [list]
-            set loads_found [list]
-            set dependencies [list]
-            set incomplete_lines [list]
-            foreach p $parts {
-                set p [string trim $p]
-                if {![string length $p]} {
-                    continue ;#empty line or trailing colon
-                }
-                if {[string match "*tclPkgSetup*" $p]} {
-                    puts stderr "Unable to process load script for library $libfound"
-                    puts stderr "The library appears to use the deprecated tcl library support utility 'tclPkgSetup'"
-                    return false
-                }
-                if {![::info complete $p]} {
-                    #
-                    #probably a perfectly valid script - but slightly more complicated than we can handle
-                    #better to defer to manual processing
-                    lappend incomplete_lines $p
-                    continue
-                }
-                if {[lindex $p 0] eq "source"} {
-                    #may have args.. e.g -encoding utf-8
-                    lappend sources_found [lindex $p end]
-                }
-                if {[lindex $p 0] eq "load"} {
-                    lappend loads_found [lrange $p 1 end]
-                }
-                if {[lrange $p 0 1] eq "package require"} {
-                    lappend dependencies [lrange $p 2 end]
-                }
-            }
-            if {[llength $incomplete_lines]} {
-                puts stderr "unable to interpret load script for library $libfound"
-                puts stderr "Load info: $loadinfo"
-                return false
-            }
-            if {[llength $loads_found]} {
-                puts stderr "package $libfound appears to have binary components"
-                foreach l $loads_found {
-                    puts stderr " binary - $l"
-                }
-                foreach s $sources_found {
-                    puts stderr " script - $s"
-                } 
-                puts stderr "Unable to automatically copy binary libraries to your module folder."
-                return false 
-            }
-
-            if {[llength $sources_found] != 1} {
-                puts stderr "sorry - unable to interpret source library location"
-                puts stderr "Only 1 source supported for now"
-                puts stderr "Load info: $loadinfo"
-                return false
-            }
-            if {[llength $dependencies]} {
-                #todo - check/ignore if dependency is Tcl ?
-                puts stderr "WARNING the package appears to depend on at least one other. Review and copy dependencies if required."
-                foreach d $dependencies {
-                    puts stderr " - $d"
-                }
-            } 
-
-            set source_file [lindex $sources_found 0]
-        } else {
-            puts stderr "sorry - unable to interpret source library location"
-            puts stderr "Load info: $loadinfo"
-            return false
-        }
-
-        # -- ---------------------------------------
-        #Analyse source file
-        if {![file exists $source_file]} {
-            error "Unable to verify source file existence at: $source_file"
-        }
-        set source_data [fcat -translation binary $source_file] 
-        if {![string match "*package provide*" $source_data]} {
-            puts stderr "Sorry - unable to verify source file contains 'package provide' statement of some sort  - copy manually"
-            return false
-        } else {
-            if {![string match "*$libfound*" $source_data]} {
-                # as an exception - look for the specific 'package provide $pkg $version' as occurs in the auto-name auto-version modules
-                #e.g anyname-0.1.tm example
-                if {![string match "*package provide \$pkg \$version*" $source_data]} {
-                    puts stderr "Sorry - unable to verify source file contains 'package provide' and '$libfound' - copy manually"
-                    return false
-                }
-            }
-        }
-
-
-        if {[string match "*lappend ::auto_path*" $source_data] || [string match "*lappend auto_path*" $source_data] || [string match "*set ::auto_path*" $source_data]} {
-            puts stderr "Sorry - '$libfound' source file '$source_file' appears to rely on ::auto_path and can't be automatically copied as a .tm module"
-            puts stderr "Copy the library across to a lib folder instead"
-            return false
-        }
-        # -- ---------------------------------------
-
-        set moduleprefix [punk::ns::nsprefix $libfound]
-        if {[string length $moduleprefix]} {
-            set moduleprefix_parts [punk::ns::nsparts $moduleprefix]
-            set relative_path [file join {*}$moduleprefix_parts]
-        } else {
-            set relative_path ""
-        }
-        set pkgtail [punk::ns::nstail $libfound] 
-        set target_path [file join $modulefolder_path $relative_path ${pkgtail}-${ver}.tm]
-
-        if {$opt_askme} {
-            puts stdout "WARNING - you should check that there aren't extra required files for the library/modules"
-            puts stdout ""
-            puts stdout "This is not intended for binary modules - use at own risk and check results"
-            puts stdout ""
-            puts stdout "Base module path: $modulefolder_path"
-            puts stdout "Target path     :  $target_path"
-            puts stdout "results of 'package ifneeded $libfound'"
-            puts stdout "---"
-            puts stdout "$loadinfo"
-            puts stdout "---"
-            set question "Proceed to create ${pkgtail}-${ver}.tm module? Y|N" 
-            set answer [punk::lib::askuser $question] ;#takes account of previous stdin state and terminal raw vs line state
-            if {[string tolower $answer] ne "y"} {
-                puts stderr "mix libcopy.asmodule aborting due to user response '$answer' (required Y|y to proceed)  use -askme 0 to avoid prompts."
-                return
-            }
-        }
-
-        if {![file exists $modulefolder_path]} {
-            puts stdout "Creating module base folder at $modulefolder_path"
-            file mkdir $modulefolder_path
-        }
-        if {![file exists [file dirname $target_path]]} {
-            puts stdout "Creating relative folder at [file dirname $target_path]"
-            file mkdir [file dirname $target_path]
-        }
-
-        if {[file exists $target_path]} {
-            puts stdout "WARNING - module already exists at $target_path"
-            if {$opt_askme} {
-                set question "Copy anyway? Y|N" 
-                set answer [punk::lib::askuser $question]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix libcopy.asmodule aborting due to user response '$answer' (required Y|y to proceed)  use -askme 0 to avoid prompts."
-                    return
-                }
-            }
-        }
-
-        file copy -force $source_file $target_path
-        
-        return $target_path
-    }
-
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::commandset::loadedlib [namespace eval punk::mix::commandset::loadedlib {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm
deleted file mode 100644
index 30120a7e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm
+++ /dev/null
@@ -1,554 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'deck make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::module 0.1.0
-# Meta platform     tcl
-# Meta license      BSD 
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::repo
-# depends on punk,punk::mix::base,punk::mix::cli
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::module {
-    namespace export *
-
-    proc paths {} {
-        #set roots [punk::repo::find_repos ""]
-        #set project [lindex [dict get $roots project] 0]
-        set project [punk::repo::find_project ""]
-
-        if {$project ne ""} {
-            set is_project 1
-            set searchbase $project
-        } else {
-            set is_project 0
-            set searchbase [pwd]
-        }
-
-        if {[catch {
-            set source_module_folderlist [punk::mix::cli::lib::find_source_module_paths $searchbase]
-        } errMsg]} {
-            set source_module_folderlist [list]
-        }
-
-        set tm_folders [tcl::tm::list]
-        package require overtype
-
-        set result ""
-        if {$is_project} {
-            append result "Project module source paths:" \n
-            foreach f $source_module_folderlist {
-                append result "$f" \n    
-            }
-        }
-        append result \n
-        append result "tcl::tm::list" \n
-        foreach f $tm_folders {
-            if {$is_project} {
-                if {[punk::mix::cli::lib::path_a_aboveorat_b $project $f]} {
-                    set pinfo "(within project)"
-                } else {
-                    set pinfo ""
-                }
-            } else {
-                set pinfo ""
-            }
-            set warning ""
-            if {![file isdirectory $f]} {
-                set warning "(PATH NOT FOUND)"
-            }
-            append result "$f $pinfo $warning" \n
-        }
-
-
-        return $result
-    }
-    #require current dir when calling to be the projectdir, or 
-    punk::args::define {
-        @dynamic
-        @id     -id "::punk::mix::commandset::module::templates"
-        @cmd    -name "punk::mix::commandset::module::templates"
-        ${[punk::args::resolved_def -antiglobs {@id @cmd} "::punk::mix::commandset::module::templates_dict"]}
-    }
-    proc templates {args} {
-        set tdict_low_to_high [templates_dict {*}$args]
-        #convert to screen order - with higher priority at the top
-        set tdict [dict create]
-        foreach k [lreverse [dict keys $tdict_low_to_high]] {
-            dict set tdict $k [dict get $tdict_low_to_high $k]
-        }
-
-        package require overtype
-        package require textblock
-        #set pathinfolist [dict values $tdict]
-        #set paths [lsearch -all -inline -index 1 -subindices $pathinfolist *] ;#relies on first key of templates_dict being path
-
-        set names [dict keys $tdict]
-        set paths [list]
-        set pathtypes [list]
-        set providers [list]
-        dict for {nm tinfo} $tdict {
-            lappend paths       [dict get $tinfo path]
-            lappend pathtypes   [dict get $tinfo sourceinfo pathtype]
-            lappend providers   [dict get $tinfo sourceinfo source] ;#name of provider module of punk.templates capability for this path
-        }
-
-        set title(name) "Template Name"
-        set title(pathtype) "[a+ italic]Provider[a]\n[a+ green]Path Type[a]"
-        set title(path) "Path"
-
-        set data [list]
-        foreach n $names pt $pathtypes pv $providers p $paths {
-            #append table "[textblock::join -- [overtype::left $col(name) $n] $vsep [overtype::left $col(pathtype) $pt] $vsep [overtype::left $col(path) $p]]" \n 
-            lappend data $n "[a+ italic]$pv[a]\n$pt" $p
-        }
-        set table [textblock::list_as_table -columns 3 -header [list $title(name) $title(pathtype) $title(path)] $data]
-
-        return $table
-    }
-
-    #return all module templates with repeated ones suffixed with #2 #3 etc
-    punk::args::define {
-        @id     -id ::punk::mix::commandset::module::templates_dict
-        @cmd   -name templates_dict -help\
-            "Templates from module and project paths"
-        -startdir -default "" -help\
-            "Project folder used in addition to module paths"
-        -not -default "" -multiple 1
-        @values
-        globsearches -default * -multiple 1
-    }
-    proc templates_dict {args} {
-        #set argd [punk::args::get_by_id ::punk::mix::commandset::module::templates_dict $args]
-        set argd [punk::args::parse $args withid ::punk::mix::commandset::module::templates_dict]
-        package require punk::cap
-        if {[punk::cap::capability_has_handler punk.templates]} {
-            set template_folder_dict [punk::cap::call_handler punk.templates get_itemdict_moduletemplates {*}$args]
-        } else {
-            put stderr "get_template_basefolders WARNING - no handler available for the 'punk.templates' capability - template providers will be unable to provide template locations"
-        }
-    }
-
-
-    set moduletypes [punk::mix::cli::lib::module_types]
-    punk::args::define [subst {
-        @id     -id ::punk::mix::commandset::module::new
-        @cmd    -name "punk::mix::commandset::module::new" -help\
-            "Create a new module file in the appropriate folder within src/modules.
-            If the name given in the module argument is namespaced,
-            the necessary subfolder(s) will be used or created."
-        -project   -optional 1 
-        -version    -default "0.1.0" -help\
-            "version to use if not specified as part of the module argument.
-            If a version is specified in the module argument as well as in -version
-            the higher version number will be used.
-            "
-        -license    -default <unspecified>
-        -author     -default <unspecified> -multiple 1
-        -template   -default punk.module
-        -type       -default "[lindex $moduletypes 0]" -choices {$moduletypes}
-        -force      -default 0      -type boolean -help\
-            "If set true, will OVERWRITE an existing .tm file if there is one.
-            If false (default) an error will be raised if there is a conflict."
-        -quiet      -default 0     -type boolean -help\
-            "Suppress information messages on stdout"
-        @values -min 1 -max 1
-        module      -type string -help\
-            "Name of module, possibly including a namespace and/or version number
-            e.g mynamespace::mymodule-1.0"
-    }]
-    proc new {args} {
-        set year [clock format [clock seconds] -format %Y]
-        # use \uFFFD because unicode replacement char should consistently render as 1 wide 
-        set argd [punk::args::get_by_id ::punk::mix::commandset::module::new $args]
-        lassign [dict values $argd] leaders opts values received
-        set module [dict get $values module]
-
-        #set opts [dict merge $defaults $args]
-
-        #todo - review compatibility between -template and -type
-        #-type is the wrapping technology e.g 'plain' for none or tarjar or zip (modpod) etc (consider also snappy/snappy-tcl)
-        #-template may be a folder - but only if the selected -type suports it
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        # option -version
-        # we need this value before looking at the named argument
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_version_supplied                    [dict get $opts -version]
-        set opt_version $opt_version_supplied
-        if {![util::is_valid_tm_version $opt_version]} {
-            error "deck module.new error - supplied -version $opt_version doesn't appear to be a valid Tcl module version"
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        #named argument
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set mversion_supplied "" ;#version supplied directly in module argument
-        if {[string first - $module]> 0} {
-            #if it has a dash then version is required to be valid
-            lassign [punk::mix::cli::lib::split_modulename_version $module] modulename mversion
-            if {![util::is_valid_tm_version $mversion]} {
-                error "deck module.new error - unable to determine modulename-version from supplied value '$module'"
-            }
-            set mversion_supplied $mversion ;#record as may need to compare to version from templatefile name
-            set vcompare_is_mversion_bigger [package vcompare $mversion $opt_version]
-            if {$vcompare_is_mversion_bigger > 0} {
-                set opt_version $mversion; #module parameter has higher value than -version
-                set vmsg "from module argument: $module"
-            } else {
-                set vmsg "from -version option: $opt_version_supplied"
-            }
-            if {"-version" in $received} {
-                if {$vcompare_is_mversion_bigger != 0} {
-                    #is bigger or smaller
-                    puts stderr "module.new WARNING: version supplied in module argument as well as -version option. Using the higher version number $vmsg"
-                }
-            }
-        } else {
-            set modulename $module
-        }
-        punk::mix::cli::lib::validate_modulename $modulename -errorprefix "punk::mix::commandset::module::new"
-
-        if {[regexp {[A-Z]} $module]} {
-            set msg     "module names containing uppercase are not recommended (see tip 590).\n"
-            append msg  "Please retype the module name '$module' to proceed.\n"
-            append msg  "If you type it exactly as it was you will be allowed to proceed with uppercase anyway\n" 
-            append msg  "Retype it all in lowercase to use recommended naming"
-            set answer [util::askuser $msg]
-            if {[regexp {[A-Z]} $answer]} {
-                if {$answer eq $module} {
-                    #ok - user insists
-                } else {
-
-                }
-            } else {
-                #user has resupplied modulename all as lowercase 
-                if {$answer eq [string tolower $module]} {
-                    set module $answer
-                } else {
-                    #.. but it doesn't match original - require rerun 
-                }
-            }
-        }
-
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        #options
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set testdir [pwd]
-        if {![string length [set projectdir [punk::repo::find_project $testdir]]]} {
-            if {![string length [set projectdir [punk::repo::find_candidate $testdir]]]} {
-                set msg [punk::repo::is_candidate_root_requirements_msg]
-                error "module.new unable to create module in projectdir:$projectdir - directory doesn't appear to meet basic standards $msg"
-            }
-        }
-        if {![dict exists $received -project]} {
-            set projectname [file tail $projectdir]
-        } else {
-            set opt_project                            [dict get $opts -project]
-            set projectname $opt_project 
-            if {$projectname ne [file tail $projectdir]} {
-                error "module.new -project '$opt_project' doesn't match detected projectname '$projectname' at path: $projectdir"
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_license                             [dict get $opts -license]
-        set opt_authors                             [dict get $opts -author] ;#-multiple true
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_template                            [dict get $opts -template]
-        if {[regexp {.*[?*].*} $opt_template]} {
-            error "module.new -template does not support glob chars. Use an exact full name including version (and optionally .tm) - or use just the name without version or .tm, and the latest version will be selected"
-        }
-
-        set templates_dict [templates_dict] ;#keys are possibly prefixed with <vendor>. and/or suffixed with #2 #3 etc if there are collisions - the remaining unsuffixed being the one with highest preference
-        #todo - allow versionless name - pick latest which isn't suffixed with #2 etc
-        #if the user wants to exactly match an unversioned template, in the presence of versioned ones - they may need to include the trailing .tm
-        if {[dict exists $templates_dict $opt_template]} {
-            #exact long name (possibly including version) 
-            #Note - an unversioned .tm template will be matched here - even though versioned templates of the same name may exist.
-            set templatefile        [dict get $templates_dict $opt_template path]
-            set templatefile_info   [dict get $templates_dict $opt_template sourceinfo]
-        } else {
-            #if it wasn't an exact match for opt_template - then opt_template now shouldn't contain a version  (we have also ruled out glob chars * & ? above)
-            #(if it does - then we just won't find anything - which is fine)
-            #module file name could contain dots - but only one dash - if it is versioned
-
-            set matches [lsearch -all -inline [dict keys $templates_dict] $opt_template-*]  ;#the key is of form vendor.modulename-version(#suffix)  (version optional, suffix if lower precedence with same name was found)
-            #only .tm (or .TM .Tm .tM) files make it into the templates_dict - they are allowed to be unversioned though.
-            set key_version_list [list]
-            foreach m $matches {
-                #vendorname could contain dashes or dots - so easiest way to split out is to examine the stored vendor value in sourceinfo
-                set vendor [dict get $templates_dict $m sourceinfo vendor] 
-                if {$vendor ne "_project"} {
-                    #_project special case - not included in module names
-                    set module $m
-                } else {
-                    set module [string range [string length $vendor.] end]
-                }
-                lassign [punk::mix::cli::lib::split_modulename_version $m] _tailmname mversion
-                lappend key_version_list [list $m $mversion]
-            } 
-            if {[llength $matches]} {
-                set highest_m ""
-                set highest_v ""
-                foreach kv $key_version_list {
-                    if {$highest_v eq ""} {
-                        set highest_m [lindex $kv 0]
-                        set highest_v [lindex $kv 1]
-                    } else {
-                        if {[package vcompare $highest_v [lindex $kv 1]] == -1} {
-                            set highest_m [lindex $kv 0]
-                            set highest_v [lindex $kv 1]
-                        }
-                    }
-                }
-                set templatefile       [dict get $templates_dict $highest_m path]
-                set templatefile_info   [dict get $templates_dict $highest_m sourceinfo]
-            } else {
-                error "module.new unable to find template '$opt_template'. [dict size $templates_dict] Known templates. Use deck module.templates to display"
-            }
-        }
-
-
-        set tpldir [file dirname $templatefile] ;#use same folder for modulename_buildversion.txt, modulename_description.txt if they exist
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_type                                [dict get $opts -type]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_quiet                               [dict get $opts -quiet]
-        set opt_force                               [dict get $opts -force]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-
-
-
-        set subpath [punk::mix::cli::lib::module_subpath $modulename] ;#commonly empty string for simple modulename e.g "mymodule"  but x::mymodule has subpath 'x' and x::y::mymodule has subpath 'x/y'
-        if {![string length $subpath]} {
-            set modulefolder $projectdir/src/modules
-        } else {
-            set modulefolder $projectdir/src/modules/$subpath
-        }
-        file mkdir $modulefolder
-
-        set moduletail [namespace tail $modulename]
-        set magicversion [punk::mix::util::magic_tm_version] ;#deliberately large so given load-preference when testing
-
-
-
-
-        set template_tail [file tail $templatefile] ;#convert template_xxx-version.tm.x  to {xxx version}
-        set template_tail [string range $template_tail [string length template_] end]
-        set ext [string tolower [file extension $template_tail]]
-        if {$ext eq ".tm"} {
-            set template_modulename_part [file rootname $template_tail]
-        } elseif {[string is integer -strict [string range $ext 1 end]]} {
-            #something like modulename-0.0.1.tm.2
-            #strip of last 2 dotted parts
-            set shortened [file rootname $template_tail]
-            if {![string equal -nocase [file extension $shortened] ".tm"]} {
-                error "module.new error: Unable to interpret filename components of template file '$templatefile' (expected .tm as second-last or last component)"
-            }
-            set template_modulename_part [file rootname $shortened]
-        } else {
-            error "module.new error: Unable to interpret filename components of template file '$templatefile'"
-        }
-        lassign [punk::mix::cli::lib::split_modulename_version $template_modulename_part] t_mname t_version
-        #t_version may be empty string if template is unversioned e.g template_whatever.tm
-
-        set fd [open $templatefile r]; set template_filedata [read $fd]; close $fd
-        if {[string match "*$magicversion*" $template_filedata]} {
-            set use_magic 1
-            set build_version $opt_version
-            set infile_version $magicversion
-        } else {
-            set use_magic 0
-            if {$opt_version_supplied ne "\uFFFF"} {
-                set build_version $opt_version
-            } else {
-                #
-
-                if {[util::is_valid_tm_version $t_version]} {
-                    if {$mversion_supplied eq ""} {
-                        set build_version $t_version
-                    } else {
-                        #we have a version from the named argument 'module'
-                        if {[package vcompare $mversion_supplied $t_version] > 0} {
-                            set build_version $mversion_supplied
-                        } else {
-                            set build_version $t_version
-                        }
-                    }
-                } else {
-                    #probably an unversioned module template
-                    #use opt_version default from above
-                    set build_version $opt_version
-                }
-            }
-            set infile_version $build_version
-        }
-
-        set moduletemplate [file join $projectname [punk::path::relative $projectdir $templatefile]] ;#if templatfile is on another volume - just $templatefile will be returned.
-        #moduletemplate should usually be a relative path - but could be absolute, or contain info about the relative locations of projectdir vs templatefile if template comes from another project or a module outside the project
-        #This path info may be undesired in the template output (%moduletemplate%)
-        #it is nevertheless useful information - and not the only way developer-machine/build-machine paths can leak
-        #for now the user has the option to override any templates and remove %moduletemplate% if it is a security/privacy concern
-        
-        #Don't put literal %x% in the code for the commandset::module itself - to stop them being seen by layout scanner as replacable tokens 
-        set tagnames [list moduletemplate $moduletemplate project $projectname pkg $modulename year $year license $opt_license authors $opt_authors version $infile_version]
-        set strmap [list]
-        foreach {tag val} $tagnames {
-            lappend strmap %$tag% $val
-        }
-        set template_filedata [string map $strmap $template_filedata]
-
-        set tmfile      $modulefolder/${moduletail}-$infile_version.tm
-        set podfile     $modulefolder/#modpod-$moduletail-$infile_version/$moduletail-$infile_version.tm
-        set has_tm [file exists $tmfile]
-        set has_pod [file exists $podfile]
-        if {$has_tm && $has_pod} {
-            #invalid configuration - bomb out
-            error "module.new error: Invalid target configuration found. module folder has both a .tm file $tmfile and a modpod file $podfile. Please delete one of them before trying again."
-        }
-        if {$opt_type eq "plain"} {
-            set modulefile $tmfile
-        } else {
-            set modulefile $podfile
-        }
-        if {$has_tm || $has_pod} {
-            if {!$opt_force} {
-                if {$has_tm} {
-                    set errmsg "module.new error: module file $tmfile already exists - aborting"
-                } else {
-                    set errmsg "module.new error: module file $podfile already exists - aborting"
-                }
-                if {[string match "*$magicversion*" $tmfile]} {
-                    append errmsg \n "If you are attempting to create a module file with a specific version in the source-file name - you will need to use a template that doesn't contain the string '$magicversion' e.g the provided template moduleexactversion-0.0.1.tm"
-                }
-                error $errmsg
-            } else {
-                #review - prompt here vs caller?
-                #we are committed to overwriting/replacing if there was a pre-existing module of same version
-                if {$has_pod} {
-                    file delete -force [file dirname $podfile]
-                } elseif {$has_tm} {
-                    file delete -force $tmfile
-                }
-            }
-        }
-
-
-        if {[file exists $tpldir/modulename_buildversion.txt]} {
-            set fd [open $tpldir/modulename_buildversion.txt r]; set buildversion_filedata [read $fd]; close $fd
-        } else {
-            #mix_templates_dir warns of deprecation - review
-            set lib_tpldir [file join [punk::mix::cli::lib::mix_templates_dir] modules];#fallback for modulename_buildversion.txt, modulename_description.txt
-            set fd [open $lib_tpldir/modulename_buildversion.txt r]; set buildversion_filedata [read $fd]; close $fd
-        }
-        set buildversionfile [file join $modulefolder ${moduletail}-buildversion.txt]
-        set existing_build_version ""
-        if {!$opt_force && [file exists $buildversionfile]} {
-            set buildversiondata [punk::mix::util::fcat $buildversionfile]
-            set lines [split $buildversiondata \n]
-            set existing_build_version [string trim [lindex $lines 0]]
-            if {[package vcompare $existing_build_version $build_version] >= 0} {
-                #existing version in -buildversion.txt file is lower than the module version we are creating
-                error "module.new error: there is an existing buildversion file $buildversionfile with version $existing_build_version equal to or higher than $build_version - unable to continue"
-            }
-        }
-
-        set existing_tm_versions [glob -nocomplain -dir $modulefolder -tails ${moduletail}-*.tm]
-        #it shouldn't be possible to overmatch with the glob - because '-' is not valid in a Tcl module name
-        set existing_pod_versions [glob -nocomplain -dir $modulefolder -tails #modpod-$moduletail-*]
-        set existing_versions [concat $existing_tm_versions $existing_pod_versions]
-
-        if {[llength $existing_versions]} {
-            set name_version_pairs [list]
-            lappend name_version_pairs [list $moduletail $infile_version]
-            foreach existing $existing_versions {
-                lassign [punk::mix::cli::lib::split_modulename_version $existing] namepart version  ;# .tm is stripped and ignored
-                if {[string match #modpod-* $namepart]} {
-                    set namepart [string range $namepart 8 end]
-                }
-                lappend name_version_pairs [list $namepart $version] 
-            }
-            set name_version_pairs [lsort -command {package vcompare} -index 1 $name_version_pairs] ;#while plain lsort will often work with versions - it can get order wrong with some - so use package vcompare
-            if {[lindex $name_version_pairs end] ne [list $moduletail $infile_version]} {
-                set thisposn [lsearch -index 1 $name_version_pairs $infile_version]
-                set name_version_pairs [lreplace $name_version_pairs $thisposn $thisposn]
-                set other_versions [lsearch -all -inline -index 1 -subindices $name_version_pairs *]
-                set errmsg      "module.new error: There are existing modules in the target folder with higher versions than $infile_version."
-                append errmsg  \n "Other versions found: $other_versions"
-                if {$magicversion in $other_versions} {
-                    append errmsg \n "Existing build version for special source file name: '$magicversion'  is: '$existing_build_version'"
-                    append errmsg \n "If '$magicversion' file doesn't represent the latest source it should be removed or the filename and contents adjusted to be a specific version"
-                }
-                error $errmsg
-            } else {
-                puts stderr "module.new WARNING: There are existing modules in the target folder with lower versions than $infile_version - manual review recommended"
-                puts stderr "Other versions found: [lsearch -all -inline -index 1 -subindices [lrange $name_version_pairs 0 end-1] *]"
-            }
-        }
-
-        if {!$opt_quiet} {
-            puts stdout "Creating $modulefile from template $moduletemplate"
-        }
-        file mkdir [file dirname $modulefile]
-
-        set fd [open $modulefile w]
-        fconfigure $fd -translation binary
-        puts -nonewline $fd $template_filedata
-        close $fd
-
-
-        set buildversion_filedata [string map [list %Major.Minor.Level% $build_version] $buildversion_filedata]
-        set fd [open $buildversionfile w]
-        fconfigure $fd -translation binary
-        puts -nonewline $fd $buildversion_filedata
-        close $fd
-
-        return [list file $modulefile version $build_version]
-    }
-
-    namespace eval lib {
-
-
-    }
-
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::commandset::module [namespace eval punk::mix::commandset::module {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm
deleted file mode 100644
index 8384197a..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm
+++ /dev/null
@@ -1,1177 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'deck make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::project 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::mix::commandset::project 0 0.1.0]
-#[copyright "2023"]
-#[titledesc {dec commandset - project}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {deck CLI commandset - project}]             [comment {-- Description at end of page heading --}]
-#[require punk::mix::commandset::project]
-#[description]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::mix::commandset::project
-#[para]Import into an ensemble namespace similarly to the way it is done with punk::mix::cli e.g
-#[example {
-#    namespace eval myproject::cli {
-#        namespace export *
-#        namespace ensemble create
-#        package require punk::overlay
-#
-#        package require punk::mix::commandset::project
-#        punk::overlay::import_commandset project    .       ::punk::mix::commandset::project
-#        punk::overlay::import_commandset projects   .       ::punk::mix::commandset::project::collection
-#    }
-#}]
-#[para] Where the . in the above example is the prefix/command separator
-#[para]The prefix ('project' in the above example) can be any string desired to disambiguate commands imported from other commandsets.
-#[para]The above results in the availability of the ensemble command: ::myproject::cli project.new, which is implemented in ::punk::mix::commandset::project::new
-#[para]Similarly, procs under ::punk::mix::commandset::project::collection will be available as subcommands of the ensemble as <ensemblecommand> projects.<procname>
-#[para]
-#[subsection Concepts]
-#[para] see punk::overlay
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::mix::commandset::project
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package punk::ns]
-#[item] [package sqlite3] (binary)
-#[item] [package overtype]
-#[item] [package textutil] (tcllib)
-
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::project {
-    namespace export *
-    #*** !doctools
-    #[subsection {Namespace punk::mix::commandset::project}]
-    #[para] core commandset functions for punk::mix::commandset::project
-    #[list_begin definitions]
-
-    proc _default {} {
-        package require punk::ns
-        set dispatched_to [lindex [info level 2] 0] ;#e.g ::punk::mix::cli::project
-        set dispatch_tail [punk::ns::nstail $dispatched_to]
-        set dispatch_ensemble [punk::ns::nsprefix $dispatched_to] ;#e.g ::punk::mix::cli
-        set sibling_commands [namespace eval $dispatch_ensemble {namespace export}]
-        #todo - get separator?
-        set sep "."
-        set result [list]
-        foreach sib $sibling_commands {
-            if {[string match ${dispatch_tail}${sep}* $sib]} {
-                lappend result $sib
-            }
-        }
-        return [lsort $result]
-    }
-
-
-    namespace eval argdoc {
-        set layout_dict [punk::cap::call_handler punk.templates get_itemdict_projectlayouts]
-        variable LAYOUTNAMES [dict keys $layout_dict]
-    }
-    punk::args::define {
-        @id     -id ::punk::mix::commandset::project::new
-        @cmd    -name "punk::mix::commandset::project::new" -help\
-            ""
-        @leaders -min 1 -max 1
-        project      -type string -help\
-            "Project name or path.
-             If just a name is given ... (todo)"
-        @opts
-        -type       -default plain
-        -empty      -default 0 -type boolean
-        -force      -default 0 -type boolean
-        -update     -default 0 -type boolean
-        -confirm    -default 1 -type boolean
-        -layout     -default "punk.project" -choices {${$::punk::mix::commandset::project::argdoc::LAYOUTNAMES}}
-    }
-
-    proc new {newprojectpath_or_name args} {
-        #*** !doctools
-        # [call [fun new] [arg newprojectpath_or_name] [opt args]]
-        #new project structure - may be dedicated to one module, or contain many.
-        #create minimal folder structure only by specifying in args:  -modules {}
-        if {[file pathtype $newprojectpath_or_name] eq "absolute"} {
-            set projectfullpath [file normalize $newprojectpath_or_name]
-            set projectname [file tail $projectfullpath]
-            set projectparentdir [file dirname $newprojectpath_or_name]
-        } else {
-            set projectfullpath [file join [pwd] $newprojectpath_or_name]
-            set projectname [file tail $projectfullpath]
-            set projectparentdir [file dirname $projectfullpath]
-        }
-        if {[file type $projectparentdir] ne "directory"} {
-            error "punk::mix::cli::new error: unable to determine containing folder for '$newprojectpath_or_name'"
-        }
-
-        punk::mix::cli::lib::validate_projectname $projectname -errorprefix "punk mix project.new"
-
-
-        set defaults [list\
-            -type plain\
-            -empty 0\
-            -force 0\
-            -update 0\
-            -confirm 1\
-            -modules \uFFFF\
-            -layout punk.project
-        ] ;#todo
-        set known_opts [dict keys $defaults]
-        foreach {k v} $args {
-            if {$k ni $known_opts} {
-                error "project.new error: option '$k' not known. Known options: $known_opts"
-            }
-        }
-        set opts [dict merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_type                                [dict get $opts -type]
-        if {$opt_type ni [punk::mix::cli::lib::module_types]} {
-            error "deck new error - unknown type '$opt_type' known types: [punk::mix::cli::lib::module_types]"
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_force                               [dict get $opts -force]
-        set opt_confirm                             [string tolower [dict get $opts -confirm]]
-        # -- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_layout                              [dict get $opts -layout]
-        set opt_update                              [dict get $opts -update]
-        # -- --- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_modules                             [dict get $opts -modules]
-        if {[llength $opt_modules] == 1 && [lindex $opt_modules 0] eq "\uFFFF"} {
-            #if not specified - add a single module matching project name
-            if {$opt_force || $opt_update} {
-                #generally undesirable to add default project module during an update.
-                #user can use dev module.new manually or supply module name in -modules
-                set opt_modules [list]
-            } else {
-                set opt_modules [list [string tolower $projectname]] ;#default modules to lowercase as is the modern (tip 590) recommendation for Tcl
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-        #todo - install support binaries on a per-project basis in a way that doesn't impact machine (e.g not added to path) - cache in user config dir if possible, supply mechanism to clear cache
-        #
-        set fossil_prog [auto_execok fossil]
-        if {![string length $fossil_prog]} {
-            puts stderr "The fossil program was not found. A fossil executable is required to use most deck features."
-            if {[string length [set scoop_prog [auto_execok scoop]]]} {
-                #restrict to windows?
-                set answer [util::askuser "scoop detected. Would you like deck to install fossil now using scoop? Y|N"]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompts."
-                    return
-                }
-                #we don't assume 'unknown' is configured to run shell commands
-                if {[string length [package provide shellrun]]} {
-                    set exitinfo [run {*}$scoop_prog install fossil]
-                    #scoop tends to return successful exitcode (0) even when packages not found etc. - so exitinfo not much use.
-                    puts stdout "scoop install fossil ran with result: $exitinfo"
-                } else {
-                    puts stdout "Please wait while scoop runs - there may be a slight delay and then scoop output will be shown. (use punk shellrun package for )"
-                    set result [exec {*}$scoop_prog install fossil]
-                    puts stdout $result
-                }
-                catch {::auto_reset}   ;#can be missing (unsure under what circumstances - but I've seen it raise error 'invalid command name "auto_reset"')
-                if {![string length [auto_execok fossil]]} {
-                    puts stderr "Fossil still not detected. If it was successfully installed, try restarting your punk/tcl shell."
-                    return
-                }
-                #todo - ask user if they want to configure fosssil first..
-                set answer [util::askuser "Fossil command now appears to be available. You may wish to answer N to exit and customize it - but default config may be ok. Type the word 'continue' to proceed with default configuration."]
-                if {[string tolower $answer] ne "continue"} {
-                    return
-                }
-
-            } else {
-                puts stdout "See: https://fossil-scm.org/home/uv/download.html"
-                if {"windows" eq $::tcl_platform(platform)} {
-                    puts stdout "Consider using a package manager such as scoop: https://scoop.sh"
-                    puts stdout "(Then: scoop install fossil)"
-                }
-                return
-            }
-        }
-        set startdir [pwd]
-        if {[set in_project [punk::repo::find_project $startdir]] ne ""} {
-            # use this project as source of templates
-            puts stdout "-------------------------------------------"
-            puts stdout "Currently in a project directory '$in_project'"
-            puts stdout "This project will be searched for templates"
-            puts stdout "-------------------------------------------"
-        }
-
-
-        package require punk::cap
-        if {[punk::cap::capability_has_handler punk.templates]} {
-            set layout_dict [punk::cap::call_handler punk.templates get_itemdict_projectlayouts]
-        } else {
-            put stderr "commandset::project::new WARNING - no handler available for the 'punk.templates' capability - template providers will be unable to provide layout locations"
-            return
-        }
-        if {[dict exists $layout_dict $opt_layout]} {
-            set layout_name $opt_layout
-            set layout_info [dict get $layout_dict $layout_name]
-            set layout_path [dict get $layout_info path]
-            set layout_sourceinfo [dict get $layout_info sourceinfo]
-        } else {
-            puts stderr "commandset::project::new - no exact match for specified layout-name $opt_layout found"
-            puts stderr "layout names found: [dict keys $layout_dict]"
-            return
-
-            #todo - pick highest version layout that matches opt_layout if version not specified but multiple exist
-
-            #set layout_name ...
-            #set layout_info ..
-            #set layout_path ...
-        }
-
-
-
-        #todo - detect whether inside cwd-project or inside a different project
-        set projectdir $projectparentdir/$projectname
-        if {[set target_in_project [punk::repo::find_project $projectparentdir]] ne ""} {
-            puts stderr "Target location for new project is already within a project: $target_in_project"
-            error "Nested projects not yet supported aborting"
-        }
-
-
-
-        if {[punk::repo::is_git $projectparentdir]} {
-            puts stderr "mix new WARNING: target project location is within a git repo based at [punk::repo::find_git $projectparentdir]"
-            puts stderr "The new project will create a fossil repository (which you are free to ignore - but but will be used to confirm project base)"
-            puts stderr "If you intend to use both git and fossil in the same project space - you should research and understand the details and any possible interactions/issues"
-            set answer [util::askuser "Do you want to proceed to create a project based at: $projectdir? Y|N"]
-            if {[string tolower $answer] ne "y"} {
-                puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompts."
-                return
-            }
-        }
-        set is_nested_fossil 0 ;#default assumption
-        if {[punk::repo::is_fossil $projectparentdir]} {
-            puts stderr "mix new WARNING: target project location is within an open fossil repo based at [punk::repo::find_fossil $projectparentdir] NESTED fossil repository"
-            if {$opt_confirm ni [list 0 no false]} {
-                puts stderr "If you proceed - the new project's fossil repo will be created using the --nested flag"
-                set answer [util::askuser "Do you want to proceed to create a NESTED project based at: $projectdir? Y|N"]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompts."
-                    return
-                }
-                set is_nested_fossil 1
-            }
-        }
-
-
-        set project_dir_exists [file exists $projectdir]
-        if {$project_dir_exists && !($opt_force || $opt_update)} {
-            puts stderr "Unable to create new project at $projectdir - file/folder already exists use -update 1 to fill in missing items from template use -force 1 to overwrite from template"
-            return
-        } elseif {$project_dir_exists && $opt_force} {
-            puts stderr "mix new WARNING: -force 1 was supplied. Will copy layout $layout_path using -force option to overwrite from template"
-            if {$opt_confirm ni [list 0 no false]} {
-                set answer [util::askuser "Do you want to proceed to possibly overwrite existing files in $projectdir? Y|N"]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompts."
-                    return
-                }
-            }
-        } elseif {$project_dir_exists && $opt_update} {
-            set warnmsg "mix new WARNING: -update 1 was supplied. Will copy layout $layout_path using -update option to add missing items"
-            if {$opt_confirm} {
-                puts stderr $warnmsg
-                set msg "Do you want to proceed to possibly overwrite some existing files in $projectdir? Y|N"
-                set answer [util::askuser $msg]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -confirm 0 to avoid prompt."
-                    return
-                }
-            }
-            puts stderr $warnmsg
-        }
-
-        set fossil_repo_file ""
-        set is_fossil_root 0
-        if {$project_dir_exists && [punk::repo::is_fossil_root $projectdir]} {
-            set is_fossil_root 1
-            set fossil_repo_file [punk::repo::fossil_get_repository_file $projectdir]
-            if {$fossil_repo_file ne ""} {
-                set repodb_folder [file dirname $fossil_repo_file]
-            }
-        }
-
-        if {$fossil_repo_file eq ""} {
-            set repodb_folder [punk::repo::fossil_get_repository_folder_for_project $projectname -parentfolder $startdir]
-            if {![string length $repodb_folder]} {
-                puts stderr "No usable repository database folder selected for $projectname.fossil file"
-                return
-            }
-        }
-        if {[file exists $repodb_folder/$projectname.fossil]} {
-            puts stdout "NOTICE: $repodb_folder/$projectname.fossil already exists"
-            if {!($opt_force || $opt_update)} {
-                puts stderr "-force 1 or -update 1 not specified - aborting"
-                return
-            }
-            #review
-            set fossil_repo_file $repodb_folder/$projectname.fossil
-        }
-
-        if {$fossil_repo_file eq ""} {
-            puts stdout "Initialising fossil repo: $repodb_folder/$projectname.fossil"
-            set fossilinit [runx -n {*}$fossil_prog init $repodb_folder/$projectname.fossil -project-name $projectname]
-            if {[dict get $fossilinit exitcode] != 0} {
-                puts stderr "fossil init failed:"
-                puts stderr [dict get $fossilinit stderr]
-                return
-            } else {
-                puts stdout "fossil init result:"
-                puts stdout [dict get $fossilinit stdout]
-            }
-        }
-
-        #
-
-
-
-        file mkdir $projectdir
-
-        puts stdout ">>> about to call punkcheck::install $layout_path $projectdir"
-        set resultdict [dict create]
-        set antipaths [list\
-            src/doc/*\
-            src/doc/include/*\
-            src/PROJECT_LAYOUTS_*\
-        ]
-
-        #set antiglob_dir [list\
-        #    _ignore_*\
-        #]
-        set antiglob_dir [list\
-        ]
-
-        #default antiglob_dir_core will stop .fossil* from being updated - which is generally desirable as these are likely to be customized
-        if {$opt_force} {
-            puts stdout "copying layout files - with force applied - overwrite all-targets"
-            set resultdict [punkcheck::install $layout_path $projectdir -installer project.new -createempty 1  -overwrite ALL-TARGETS -antiglob_paths $antipaths -antiglob_dir $antiglob_dir]
-        } else {
-            puts stdout "copying layout files - (if source file changed)"
-            set resultdict [punkcheck::install $layout_path $projectdir -installer project.new -createempty 1 -overwrite installedsourcechanged-targets -antiglob_paths $antipaths -antiglob_dir $antiglob_dir]
-        }
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-
-        if {[file exists $layout_path/src/doc]} {
-            puts stdout "copying layout src/doc files (if target missing)"
-            set resultdict [punkcheck::install $layout_path/src/doc $projectdir/src/doc -createdir 1 -punkcheck_folder $projectdir -installer project.new  -overwrite SYNCED-TARGETS]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "no src/doc in source template - update not required"
-        }
-
-        #target folders .fossil-custom and .fossil-settings may not exist. use -createdir 1 to ensure existence.
-        #In this case we need to override the default dir antiglob - as .fossil-xxx folders need to be installed from template if missing, or if target is uncustomized.
-        ## default_antiglob_dir_core  [list "#*" "_aside" ".git" ".fossil*"]
-        set override_antiglob_dir_core [list #* _aside .git]
-        if {[file exists $layout_path/.fossil-custom]} {
-            puts stdout "copying layout src/.fossil-custom files (if target missing or uncustomised)"
-            set resultdict [punkcheck::install $layout_path/.fossil-custom $projectdir/.fossil-custom -createdir 1 -createempty 1 -punkcheck_folder $projectdir -installer project.new -antiglob_dir_core $override_antiglob_dir_core -overwrite SYNCED-TARGETS]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "no .fossil-custom in source template - update not required"
-        }
-
-        if {[file exists $layout_path/.fossil-settings]} {
-            puts stdout "copying layout src/.fossil-settings files (if target missing or uncustomised)"
-            set resultdict [punkcheck::install $layout_path/.fossil-settings $projectdir/.fossil-settings -createdir 1 -createempty 1 -punkcheck_folder $projectdir -installer project.new -antiglob_dir_core $override_antiglob_dir_core -overwrite SYNCED-TARGETS]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "no .fossil-settings in source template - update not required"
-        }
-
-        #scan all files in template
-        #
-        #TODO - deck command to substitute templates?
-        set templateinfo_list [punk::mix::commandset::layout::lib::layout_scan_for_template_files $opt_layout]
-        set stripprefix [file normalize $layout_path]
-
-        set tagmap [list [lib::template_tag project] $projectname]
-        if {[llength $templateinfo_list]} {
-            puts stdout "Filling template file placeholders with the following tag map:"
-            foreach {placeholder value} $tagmap {
-                puts stdout "  $placeholder -> $value"
-            }
-        }
-        foreach templateinfo $templateinfo_list {
-            lassign $templateinfo templatefullpath template_tagnames_found 
-            set templatetail [punk::repo::path_strip_alreadynormalized_prefixdepth $templatefullpath $stripprefix]
-            set fpath [file join $projectdir $templatetail]
-            foreach t $template_tagnames_found {
-                if {"%$t%" ni [dict keys $tagmap]} {
-                    puts stderr "warning: No substitution available for tag: %$t% in $fpath"
-                }
-            }
-
-            if {[file exists $fpath]} {
-                set fd [open $fpath r]; fconfigure $fd -translation binary; set data [read $fd]; close $fd
-                set data2 [string map $tagmap $data]
-                if {$data2 ne $data} {
-                    puts stdout "updated template file: $fpath"
-                    set fdout [open $fpath w]; fconfigure $fdout -translation binary; puts -nonewline $fdout $data2; close $fdout
-                }
-            } else {
-                puts stderr "warning: Missing template file $fpath"
-            }
-        }
-
-        ::cd $projectdir
-
-        if {[file exists $projectdir/src/modules]} {
-            foreach m $opt_modules {
-                #check if mod-ver.tm file or #modpod-mod-ver folder exist
-                set tmfile $projectdir/src/modules/$m-[punk::mix::util::magic_tm_version].tm
-                set podfile $projectdir/src/modules/#modpod-$m-[punk::mix::util::magic_tm_version]/$m-[punk::mix::util::magic_tm_version].tm
-
-                set has_tm  [file exists $tmfile]
-                set has_pod [file exists $podfile]
-                #puts stderr "=====> has_tm: $has_tm  has_pod: $has_pod"
-                if {!$has_tm && !$has_pod} {
-                    #todo - option for -module_template - and check existence at top? or change opt_modules to be a list of dicts with configuration info -template -type etc
-                    punk::mix::commandset::module::new -project $projectname -type $opt_type $m
-                } else {
-                    #we should rarely if ever want to force any src/modules to be overwritten
-                    if {$opt_force} {
-                        if {$has_pod} {
-                            set answer [util::askuser "OVERWRITE the src/modules file $podfile ?? (generally not desirable) Y|N"]
-                            set overwrite_type zip
-                        } else {
-                            set answer [util::askuser "OVERWRITE the src/modules file $tmfile ?? (generally not desirable) Y|N"]
-                            set overwrite_type $opt_type
-                        }
-                        if {[string tolower $answer] eq "y"} {
-                            #REVIEW - all pods zip - for now
-                            punk::mix::commandset::module::new -project $projectname -type $overwrite_type -force 1 $m
-                        }
-                    }
-                }
-            }
-        } else {
-            puts stderr "project.new WARNING template hasn't created src/modules - skipping creation of new module(s) for project"
-        }
-
-        #generate www/man/md output in 'embedded' folder which should be checked into repo for online documentation
-        if {[file exists $projectdir/src]} {
-            ::cd $projectdir/src
-            #----------
-            set installer [punkcheck::installtrack new project.new $projectdir/src/.punkcheck]
-            $installer set_source_target $projectdir/src/doc $projectdir/src/embedded
-            set event [$installer start_event {-install_step kettledoc}]
-            $event targetset_init VIRTUAL kettle_build_doc ;#VIRTUAL - since there is no specific target file - and we don't know all the files that will be generated
-            $event targetset_addsource $projectdir/src/doc  ;#whole doc tree is considered the source
-            #----------
-            if {\
-                    [llength [dict get [$event targetset_source_changes] changed]]\
-                } {
-                $event targetset_started
-                # -- --- --- --- --- ---
-                puts stdout "BUILDING DOCS at src/embedded from src/doc"
-                if {[catch {
-
-                    punk::mix::cli::lib::kettle_call lib doc
-                    #Kettle doc
-
-                } errM]} {
-                    $event targetset_end FAILED -note "kettle_build_doc failed: $errM"
-                } else {
-                    $event targetset_end OK
-                }
-                # -- --- --- --- --- ---
-            } else {
-                puts stderr "No change detected in src/doc"
-                $event targetset_end SKIPPED
-            }
-            $event end
-            $event destroy
-            $installer destroy
-        }
-
-        ::cd $projectdir
-
-        if {![punk::repo::is_fossil_root $projectdir]} {
-            set first_fossil 1
-            #-k  = keep.  (only modify the manifest file(s))
-            if {$is_nested_fossil} {
-                set fossilopen [runx -n {*}$fossil_prog open --nested $repodb_folder/$projectname.fossil -k --workdir $projectdir]
-            } else {
-                set fossilopen [runx -n {*}$fossil_prog open $repodb_folder/$projectname.fossil -k --workdir $projectdir]
-            }
-            if {[file exists $projectdir/_FOSSIL_] && ![file exists $projectdir/.fslckout]} {
-                file rename $projectdir/_FOSSIL_ $projectdir/.fslckout
-            }
-            if {[dict get $fossilopen exitcode] != 0} {
-                puts stderr "fossil open in project workdir '$projectdir' FAILED:"
-                puts stderr [dict get $fossilopen stderr]
-                return
-            } else {
-                puts stdout "fossil open in project workdir '$projectdir' OK:"
-                puts stdout [dict get $fossilopen stdout]
-            }
-        } else {
-            set first_fossil 0
-        }
-        set fossiladd [runx -n {*}$fossil_prog add --dotfiles $projectdir]
-        if {[dict get $fossiladd exitcode] != 0} {
-            puts stderr "fossil add workfiles in workdir '$projectdir' FAILED:"
-            puts stderr [dict get $fossiladd stderr]
-            return
-        } else {
-            puts stdout "fossil add workfiles in workdir '$projectdir' OK:"
-            puts stdout [dict get $fossiladd stdout]
-        }
-        if {$first_fossil} {
-            #fossil commit may prompt user for input.. runx runout etc will pause with no prompts
-            util::do_in_path $projectdir {
-                set fossilcommit [run -n {*}$fossil_prog commit -m "initial project commit"]
-            }
-            if {[dict get $fossilcommit exitcode] != 0} {
-                puts stderr "fossil commit in workdir '$projectdir' FAILED"
-                return
-            } else {
-                puts stdout "fossil commit in workdir '$projectdir' OK"
-            }
-        }
-
-        puts stdout "-done- project:$projectname projectdir: $projectdir"
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::mix::commandset::project ---}]
-
-    namespace eval collection {
-        #*** !doctools
-        #[subsection {Namespace punk::mix::commandset::project::collection}]
-        #[para] commandset functions for operating with multiple projects.
-        #[para] It would usually be imported with the prefix "projects" and separator "." to result in commands such as: <ensemblecommand> projects.detail
-        #[list_begin definitions]
-        namespace export *
-        namespace path [namespace parent]
-
-        punk::args::define {
-            @id     -id ::punk::mix::commandset::project::collection::_default
-            @cmd    -name "punk::mix::commandset::project::collection::_default"\
-                -summary\
-                "List projects under fossil managment."\
-                -help\
-                "List projects under fossil management, showing fossil db location and number of checkouts"
-            @values -min 0 -max -1
-            glob -type string -multiple 1 -default *
-        }
-        #e.g imported as 'projects'
-        proc _default {args} {
-            set argd [punk::args::parse $args withid ::punk::mix::commandset::project::collection::_default]
-            set globlist [dict get $argd values glob]
-
-            #*** !doctools
-            #[call [fun _default] [arg glob...]]
-            #[para]List projects under fossil management, showing fossil db location and number of checkouts
-            #[para]The glob argument is optional unless option/value pairs are also supplied, in which case * should be explicitly supplied
-            #[para]glob restricts output based on the name of the fossil db file e.g s* for all projects beginning with s
-            #[para]The _default function is made available in the ensemble by the name of the prefix used when importing the commandset.
-            #[para]e.g
-            #[para]    punk::overlay::import_commandset projects   .       ::punk::mix::commandset::project::collection
-            #[para]Will result in the command being available as <ensemblecommand> projects
-            package require overtype
-            set db_projects [lib::get_projects {*}$globlist]
-            set col1items [lsearch -all -inline -index 0 -subindices $db_projects *]
-            set col2items [lsearch -all -inline -index 1 -subindices $db_projects *]
-            set checkouts [lsearch -all -inline -index 2 -subindices $db_projects *]
-            set col3items [lmap v $checkouts {llength $v}]
-
-            set title1 "Fossil Repo DB"
-            set widest1 [tcl::mathfunc::max {*}[lmap v [concat [list $title1] $col1items] {punk::strlen $v}]]
-            set col1 [string repeat " " $widest1]
-            set title2 "File Name"
-            set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $col2items] {punk::strlen $v}]]
-            set col2 [string repeat " " $widest2]
-            set title3 "Checkouts"
-            set widest3 [tcl::mathfunc::max {*}[lmap v [concat [list $title3] $col3items] {string length $v}]]
-            set col3 [string repeat " " $widest3]
-            set tablewidth [expr {$widest1 + 1 + $widest2 + 1 + $widest3}]
-
-
-            append msg "[overtype::left $col1 $title1] [overtype::left $col2 $title2] [overtype::left $col3 $title3]" \n
-            append msg [string repeat "=" $tablewidth] \n
-            foreach p $col1items n $col2items c $col3items {
-                append msg "[overtype::left $col1 $p] [overtype::left $col2 $n] [overtype::right $col3 $c]" \n
-            }
-            return $msg
-            #return [list_as_lines [lib::get_projects $glob]]
-        }
-        proc detail {{glob {}} args} {
-            package require overtype
-            package require textutil
-            set defaults [dict create\
-                -description 0\
-            ]
-            set opts [dict merge $defaults $args]
-            # -- --- --- --- --- --- ---
-            set opt_description     [dict get $opts -description]
-            # -- --- --- --- --- --- ---
-
-
-            set db_projects [lib::get_projects $glob]
-            set col1_dbfiles [lsearch -all -inline -index 0 -subindices $db_projects *]
-            set col2items [lsearch -all -inline -index 1 -subindices $db_projects *]
-            set checkouts [lsearch -all -inline -index 2 -subindices $db_projects *]
-            set col3items [lmap v $checkouts {llength $v}]
-
-            set col4_pnames [list]
-            set col5_pcodes [list]
-            set col6_dupids [list]
-            set col7_pdescs [list]
-            set codes [dict create]
-            set file_idx 0
-            foreach dbfile $col1_dbfiles {
-                set project_name ""
-                set project_code ""
-                set project_desc ""
-                set db_error ""
-                if {[file exists $dbfile]} {
-                    if {[catch {
-                        sqlite3 dbp $dbfile
-                        dbp eval {select name,value from config where name like 'project-%';}  r {
-                            if {$r(name) eq "project-name"} {
-                                set project_name $r(value)
-                            } elseif {$r(name) eq "project-code"} {
-                                set project_code $r(value)
-                            } elseif {$r(name) eq "project-description"} {
-                                set project_desc $r(value)
-                            }
-                        }
-                    } errM]} {
-                        set db_error $errM
-                    }
-                    catch {dbp close}
-                } else {
-                    set db_error "fossil file $dbfile missing"
-                }
-                lappend col4_pnames $project_name
-                lappend col5_pcodes $project_code
-                dict lappend codes $project_code $dbfile
-                lappend col7_pdescs $project_desc
-                if {$db_error ne ""} {
-                    lset col1_dbfiles $file_idx "[a+ web-red]$dbfile[a]"
-                }
-                incr file_idx
-            }
-
-            set setid 1
-            set codeset [dict create]
-            dict for {code dbs} $codes {
-                if {[llength $dbs]>1} {
-                    dict set codeset $code setid $setid
-                    dict set codeset $code count [llength $dbs]
-                    dict set codeset $code seen 0
-                    incr setid
-                }
-            }
-            set dupid 1
-            foreach pc $col5_pcodes {
-                if {[dict exists $codeset $pc]} {
-                   set seen [dict get $codeset $pc seen]
-                   set this_seen [expr {$seen + 1}]
-                   dict set codeset $pc seen $this_seen
-                   lappend col6_dupids "[dict get $codeset $pc setid].${this_seen}/[dict get $codeset $pc count]"
-                } else {
-                   lappend col6_dupids ""
-                }
-            }
-
-            set title1 "Fossil Repo DB"
-            set widest1 [tcl::mathfunc::max {*}[lmap v [concat [list $title1] $col1_dbfiles] {punk::strlen $v}]]
-            set col1 [string repeat " " $widest1]
-            set title2 "File Name"
-            set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $col2items] {punk::strlen $v}]]
-            set col2 [string repeat " " $widest2]
-            set title3 "Checkouts"
-            set widest3 [tcl::mathfunc::max {*}[lmap v [concat [list $title3] $col3items] {string length $v}]]
-            set col3 [string repeat " " $widest3]
-            set title4 "Project Name"
-            set widest4 [tcl::mathfunc::max {*}[lmap v [concat [list $title4] $col4_pnames] {string length $v}]]
-            set col4 [string repeat " " $widest4]
-            set title5 "Project Code"
-            set widest5 [tcl::mathfunc::max {*}[lmap v [concat [list $title5] $col5_pcodes] {string length $v}]]
-            set col5 [string repeat " " $widest5]
-            set title6 "Dup"
-            set widest6 [tcl::mathfunc::max {*}[lmap v [concat [list $title6] $col6_dupids] {string length $v}]]
-            set col6 [string repeat " " $widest6]
-            set title7 "Description"
-            #set widest7 [tcl::mathfunc::max {*}[lmap v [concat [list $title4] $col7_pdescs] {string length $v}]]
-            set widest7 35
-            set col7 [string repeat " " $widest7]
-
-
-            set tablewidth [expr {$widest1 + 1 + $widest2 + 1 + $widest3 +1 + $widest4 + 1 + $widest5 + 1 + $widest6}]
-
-            append msg "[overtype::left $col1 $title1] [overtype::left $col2 $title2] [overtype::left $col3 $title3]\
-                        [overtype::left $col4 $title4] [overtype::left $col5 $title5] [overtype::left $col6 $title6]"
-            if {!$opt_description} {
-                append msg \n
-            } else {
-                append msg            "[overtype::left $col7 $title7]" \n
-                set tablewidth [expr {$tablewidth + 1 + $widest7}]
-            }
-
-            append msg [string repeat "=" $tablewidth] \n
-            foreach p $col1_dbfiles n $col2items c $col3items pn $col4_pnames pc $col5_pcodes dup $col6_dupids desc $col7_pdescs {
-                set desclines [split [textutil::adjust $desc -length $widest7] \n]
-                set desc1 [lindex $desclines 0]
-                append msg "[overtype::left $col1 $p] [overtype::left $col2 $n] [overtype::right $col3 $c]\
-                [overtype::left $col4 $pn] [overtype::left $col5 $pc] [overtype::left $col6 $dup]"
-                if {!$opt_description} {
-                    append msg \n
-                } else {
-                    append msg  " [overtype::left $col7 $desc1]" \n
-                    foreach dline [lrange $desclines 1 end] {
-                    append msg "$col1 $col2 $col3 $col4 $col5 $col6 [overtype::left $col7 $dline]" \n
-                    }
-                }
-            }
-            return $msg
-            #return [list_as_lines [lib::get_projects $glob]]
-        }
-
-
-        punk::args::define {
-            @id         -id ::punk::mix::commandset::project::collection::work
-            @cmd        -name punk::mix::commandset::project::collection::work\
-                -summary\
-                "List projects with checkout directories."\
-                -help\
-                "Get project info by opening the central fossil config-db to determine
-                fossil database files for each project, and the known checkout folders.
-                If -detail is true, a second operation gathers file state information
-                for each checkout folder."
-            @leaders -min 0 -max 0
-            -cd -type none -help\
-                "If this flag is provided, after lsting, prompt the user to enter
-                  the row number of the checkout to 'cd' into, or an option to cancel.
-                  If there is only one project with only a single checkout, the
-                  cd operation will occur without prompting unless -prompt was
-                  also supplied."
-            -prompt -type none -help\
-                "If there is only one checkout in the result, cause a prompt to be
-                  raised instead of automatically peforming the cd operation.
-                  Has no effect if -cd was not supplied, or if -cd is supplied and
-                  there are multiple checkouts, in which case user is always prompted."
-            -detail -type boolean -default 0 -help\
-                "Include file state information for each checkout in the resulting
-                  table. This includes information such as which files are changed,
-                  unchanged,new,missing or extra and can take a little more time to
-                  gather as it must examine the filesystem for each checkout folder.
-
-                  Note that although the default is false - if only a single project
-                  matches the glob pattern(s) then file state will be gathered for
-                  each of its checkouts. Use an explicit -detail 0 if this is not
-                  desired."
-            @values -min 0 -max -1
-            glob -type string -multiple 1 -default * -optional 1 -help\
-                "glob patterns used to search for project. The glob is applied against
-                the names of the fossil repository database files - not the project-name,
-                which is not available in the central fossil config-db.
-                Case insensitive."
-        }
-        proc work {args} {
-            set argd [punk::args::parse $args withid ::punk::mix::commandset::project::collection::work]
-            lassign [dict values $argd] leaders opts values received
-            package require sqlite3
-            set globlist [dict get $values glob]
-
-            set db_projects [lib::get_projects {*}$globlist]
-            #list of lists of the form:
-            #{fosdb fname workdirlist}
-            if {[llength $db_projects] == 0} {
-                puts stderr "::punk::mix::commandset::project::work No Repo DB name matches found for '$globlist'"
-                return ""
-            }
-            # -- --- --- --- --- --- ---
-            set opt_cd [dict exists $received -cd]
-            # -- --- --- --- --- --- ---
-            set opt_detail  [dict get $opts -detail]
-            if {[dict exists $received -detail] && !$opt_detail} {
-                set opt_detail_explicit_zero 1
-            } else {
-                set opt_detail_explicit_zero 0
-            }
-            set opt_prompt [dict exists $received -prompt]
-            # -- --- --- --- --- --- ---
-            set workdir_dict [dict create]
-            set all_workdirs [list]
-            foreach pinfo $db_projects {
-                lassign $pinfo fosdb name workdirs
-                foreach wdir $workdirs {
-                    dict set workdir_dict $wdir $pinfo
-                    lappend all_workdirs $wdir
-                }
-            }
-            set col_rowids  [list]
-            set workdirs [lsort -index 0 $all_workdirs]
-            set col_dupids [list]
-            set col_fnames [list]
-            set col_pnames [list]
-            set col_pcodes [list]
-            set col_dupids [list]
-
-            set fosdb_count [dict create]
-            set fosdb_dupset [dict create]
-            set fosdb_cache [dict create]
-            set dupset 0
-            set rowid 1
-            foreach wd $workdirs {
-                set wdinfo [dict get $workdir_dict $wd]
-                lassign $wdinfo fosdb nm siblingworkdirs
-                dict incr fosdb_count $fosdb
-                set dbcount [dict get $fosdb_count $fosdb]
-                if {[llength $siblingworkdirs] > 1}  {
-                    if {![dict exists $fosdb_dupset $fosdb]} {
-                        #first time this multi-checkout fosdb seen
-                        dict set fosdb_dupset $fosdb [incr dupset]
-                    }
-                    set dupid "[dict get $fosdb_dupset $fosdb].$dbcount/[llength $siblingworkdirs]"
-                } else {
-                    set dupid ""
-                }
-                if {$dbcount == 1} {
-                    set pname ""
-                    set pcode ""
-                    if {[file exists $fosdb]} {
-                        if {[catch {
-                            sqlite3 fdb $fosdb
-                            set pname [lindex [fdb eval {select value from config where name = 'project-name'}] 0]
-                            set pcode [lindex [fdb eval {select value from config where name = 'project-code'}] 0]
-                            fdb close
-                            dict set fosdb_cache $fosdb [list name $pname code $pcode]
-                        }  errM]} {
-                            puts stderr "!!! problem with fossil db: $fosdb when examining workdir $wd"
-                            puts stderr "!!! error: $errM"
-                        }
-                    } else {
-                        puts stderr "!!! missing fossil db $fosdb"
-                    }
-                } else {
-                    set info [dict get $fosdb_cache $fosdb]
-                    lassign $info _name pname _code pcode
-                }
-                lappend col_rowids $rowid
-                lappend col_fnames $nm
-                lappend col_dupids $dupid
-                lappend col_pnames $pname
-                lappend col_pcodes [string range $pcode 0 9]
-                incr rowid
-            }
-
-            set col_states [list]
-            set state_title ""
-            #if only one set of fossil checkouts in the resultset and opt_detail is 0 and not explicit - retrieve workingdir state for each co
-            if {([llength [dict keys $fosdb_cache]] == 1)} {
-                if {!$opt_detail_explicit_zero} {
-                    set opt_detail 1
-                }
-                puts stderr "Result is from a single repo db [dict keys $fosdb_cache]"
-            }
-            if {$opt_detail} {
-                if {!$opt_detail_explicit_zero} {
-                    set detailmsg "Use -detail 0 to omit file state"
-                } else {
-                    set detailmsg ""
-                }
-                puts stderr "Gathering file state for [llength $workdirs] checkout folder(s). $detailmsg"
-                set c_rev [list]
-                set c_rev_iso [list]
-                set c_unchanged [list]
-                set c_changed [list]
-                set c_new [list]
-                set c_missing [list]
-                set c_extra [list]
-                foreach wd $workdirs {
-                    set wd_state [punk::repo::workingdir_state $wd]
-                    set state_dict [punk::repo::workingdir_state_summary_dict $wd_state]
-                    lappend c_rev       [string range [dict get $state_dict revision] 0 9]
-                    lappend c_rev_iso   [dict get $state_dict revision_iso8601]
-                    lappend c_unchanged [dict get $state_dict unchanged]
-                    lappend c_changed   [dict get $state_dict changed]
-                    lappend c_new       [dict get $state_dict new]
-                    lappend c_missing   [dict get $state_dict missing]
-                    lappend c_extra     [dict get $state_dict extra]
-                    puts -nonewline stderr "."
-                }
-                puts -nonewline stderr \n
-                set t0 "Revision"
-                set w0 [tcl::mathfunc::max {*}[lmap v [concat [list $t0] $c_rev] {string length $v}]]
-                set c0 [string repeat " " $w0]
-                set t0b "Revision iso8601"
-                set w0b [tcl::mathfunc::max {*}[lmap v [concat [list $t0] $c_rev_iso] {string length $v}]]
-                set c0b [string repeat " " $w0b]
-                set t1 "Unch"
-                set w1 [tcl::mathfunc::max {*}[lmap v [concat [list $t1] $c_unchanged] {string length $v}]]
-                set c1 [string repeat " " $w1]
-                set t2 "Chgd"
-                set w2 [tcl::mathfunc::max {*}[lmap v [concat [list $t2] $c_changed] {string length $v}]]
-                set c2 [string repeat " " $w2]
-                set t3 "New"
-                set w3 [tcl::mathfunc::max {*}[lmap v [concat [list $t3] $c_new] {string length $v}]]
-                set c3 [string repeat " " $w3]
-                set t4 "Miss"
-                set w4 [tcl::mathfunc::max {*}[lmap v [concat [list $t4] $c_missing] {string length $v}]]
-                set c4 [string repeat " " $w4]
-                set t5 "Extr"
-                set w5 [tcl::mathfunc::max {*}[lmap v [concat [list $t5] $c_extra] {string length $v}]]
-                set c5 [string repeat " " $w5]
-
-                set state_title "[overtype::left $c0 $t0] [overtype::left $c0b $t0b] [overtype::right $c1 $t1] [overtype::right $c2 $t2] [overtype::right $c3 $t3] [overtype::right $c4 $t4] [overtype::right $c5 $t5]"
-                foreach r $c_rev iso $c_rev_iso u $c_unchanged c $c_changed n $c_new m $c_missing e $c_extra {
-                    lappend col_states "[overtype::left $c0 $r] [overtype::left $c0b $iso] [overtype::right $c1 $u] [overtype::right $c2 $c] [overtype::right $c3 $n] [overtype::right $c4 $m] [overtype::right $c5 $e]"
-                }
-            }
-
-            set msg ""
-            if {$opt_cd} {
-                set title0 "CD"
-            } else {
-                set title0 ""
-            }
-            set widest0 [tcl::mathfunc::max {*}[lmap v [concat [list $title0] $col_rowids] {punk::strlen $v}]]
-            set col0 [string repeat " " $widest0]
-            set title1 "Checkout dir"
-            set widest1 [tcl::mathfunc::max {*}[lmap v [concat [list $title1] $workdirs] {punk::strlen $v}]]
-            set col1 [string repeat " " $widest1]
-            set title2 "Repo DB name"
-            set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $col_fnames] {string length $v}]]
-            set col2 [string repeat " " $widest2]
-            set title3 "CO dup"
-            set widest3 [tcl::mathfunc::max {*}[lmap v [concat [list $title3] $col_dupids] {string length $v}]]
-            set col3 [string repeat " " $widest3]
-            set title4 "Project Name"
-            set widest4 [tcl::mathfunc::max {*}[lmap v [concat [list $title4] $col_pnames] {string length $v}]]
-            set col4 [string repeat " " $widest4]
-            set title5 "Project Code"
-            set widest5 [tcl::mathfunc::max {*}[lmap v [concat [list $title5] $col_pcodes] {string length $v}]]
-            set col5 [string repeat " " $widest5]
-
-            set tablewidth [expr {$widest0 + 1 + $widest1 + 1 + $widest2 + 1 + $widest3 +1 + $widest4 + 1 + $widest5}]
-            append msg "[overtype::right $col0 $title0] [overtype::left $col1 $title1] [overtype::left $col2 $title2] [overtype::left $col3 $title3] [overtype::left $col4 $title4] [overtype::left $col5 $title5]"
-
-            if {[llength $col_states]} {
-                set title6 $state_title
-                set widest6 [tcl::mathfunc::max {*}[lmap v [concat [list $title6] $col_states] {string length $v}]]
-                set col6 [string repeat " " $widest6]
-                incr tablewidth [expr {$widest6 + 1}]
-                append msg " [overtype::left $col6 $title6]" \n
-            } else {
-                append msg \n
-            }
-            append msg [string repeat "=" $tablewidth] \n
-
-            if {[llength $col_states]} {
-                foreach row $col_rowids wd $workdirs db $col_fnames dup $col_dupids pname $col_pnames pcode $col_pcodes s $col_states {
-                    if {![file exists $wd]} {
-                        set row [punk::ansi::a+ strike red]$row[a]
-                        set wd [punk::ansi::a+ red]$wd[a]
-                    }
-                    append msg "[overtype::right $col0 $row] [overtype::left $col1 $wd] [overtype::left $col2 $db] [overtype::right $col3 $dup] [overtype::left $col4 $pname] [overtype::left $col5 $pcode] [overtype::left $col6 $s]" \n
-                }
-            } else {
-                foreach row $col_rowids wd $workdirs db $col_fnames dup $col_dupids pname $col_pnames pcode $col_pcodes {
-                    if {![file exists $wd]} {
-                        set row [punk::ansi::a+ strike red]$row[a]
-                        set wd [punk::ansi::a+ red]$wd[a]
-                    }
-                    append msg "[overtype::right $col0 $row] [overtype::left $col1 $wd] [overtype::left $col2 $db] [overtype::right $col3 $dup] [overtype::left $col4 $pname] [overtype::left $col5 $pcode]" \n
-                }
-            }
-            set numrows [llength $col_rowids]
-            if {$opt_cd && $numrows >= 1} {
-                puts stdout $msg
-                if {$numrows == 1 && !$opt_prompt} {
-                    set workingdir [lindex $workdirs 0]
-                    puts stdout "1 result. Changing dir to $workingdir"
-                    if {[file exists $workingdir]} {
-                        ::cd $workingdir
-                        return $workingdir
-                    } else {
-                        puts stderr "path $workingdir doesn't appear to exist"
-                        return [pwd]
-                    }
-                } else {
-                    set answer [util::askuser "Change directory to working folder - select a number from 1 to [llength $col_rowids] or any other key to cancel."]
-                    if {[string trim $answer] in $col_rowids} {
-                        set index [expr {$answer - 1}]
-                        set workingdir [lindex $workdirs $index]
-                        ::cd $workingdir
-                        puts stdout [deck stat]
-                        return $workingdir
-                    }
-                }
-            }
-            return $msg
-        }
-
-        punk::args::define {
-            @id         -id ::punk::mix::commandset::project::collection::cd
-            @cmd        -name punk::mix::commandset::project::collection::cd\
-                -summary\
-                "List projects with checkout directories and prompt for which checkout to cd to."\
-                -help\
-                "List projects with checkout directories and prompt for which checkout to cd to."
-            @leaders -min 0 -max 0
-        }\
-            [punk::args::resolved_def -types opts ::punk::mix::commandset::project::collection::work -detail]\
-        {
-            -prompt -type none -help\
-                "Prompt even when result contains only one checkout location as a possible cd target.
-                  User will always be prompted if result contains more than one checkout."
-            @values -min 0 -max -1
-        }\
-            [punk::args::resolved_def -types values ::punk::mix::commandset::project::collection::work glob]
-
-        proc cd {args} {
-            set argd [punk::args::parse $args withid ::punk::mix::commandset::project::collection::work]
-            work  -cd {*}$args
-        }
-
-        #*** !doctools
-        #[list_end] [comment {-- end collection namespace definitions --}]
-    }
-
-    namespace eval lib {
-        proc template_tag {tagname} {
-            #todo - support different tagwrappers - it shouldn't be so likely to collide with common code idioms etc.
-            #we need to detect presence of tags intended for punk::mix system
-            #consider using punk::cap to enable multiple template-substitution providers with their own set of tagnames and/or tag wrappers, where substitution providers are all run
-            return [string cat % $tagname %]
-        }
-        punk::args::define {
-            @id         -id ::punk::mix::commandset::project::lib::get_projects
-            @cmd        -name punk::mix::commandset::project::lib::get_projects\
-                -summary\
-                "Return a 3-element list of projects referred to by central fossil config-db."\
-                -help\
-                "Get project info only by opening the central fossil config-db.
-                Each member of the returned list is a 3-element list of:
-                <path_to_fossildb> <shortname> <list_of_checkout_paths>
-                The shortname is simply the name based on the root name of the fossil database,
-                it is not necessarily the project-name by which the project is referred to in the fossil
-                checkout databases."
-            @values -min 0 -max -1
-            glob -type string -multiple 1 -default * -optional 1 -help\
-                "case insensitive glob for the name of the fossil database."
-        }
-        proc get_projects {args} {
-            set argd [punk::args::parse $args withid ::punk::mix::commandset::project::lib::get_projects]
-            set globlist [dict get $argd values glob]
-
-            set fossil_prog [auto_execok fossil]
-
-            set configdb [punk::repo::fossil_get_configdb]
-
-            package require sqlite3
-            ::sqlite3 fosconf $configdb
-            #set testresult [fosconf eval {select name,value from global_config;}]
-            #puts stderr $testresult
-            #list of repositories of the form repo:<path>
-            #eg repo:C:/Users/someone/.fossils/tcl.fossil
-
-            #the command:
-            # fossil all ignore <path>/repo.fossil
-            #will remove the {repo:<path>/repo.fossil 1} record from global_config
-            #but it leaves {ckout:<checkoutpath> <path>/repo.fossil} records, even if such checkouts are closed
-            #when the folder itself at <checkoutpath> is removed - then commands such as 'fossil all ls -c' automatically remove the corresponding ckout: record. 
-
-            set project_repos [fosconf eval {select name from global_config where name like 'repo:%';}]
-            set paths_and_names [list]
-            foreach pr $project_repos {
-                set path [string trim [string range $pr 5 end]]
-                set nm [file rootname [file tail $path]]
-                set ckouts [fosconf eval {select name from global_config where value = $path;}]
-                #list of entries like "ckout:C:/buildtcl/2024zig/tcl90/"
-                set checkout_paths [list]
-                #strip "ckout:"
-                foreach ck $ckouts {
-                   lappend checkout_paths [string trim [string range $ck 6 end]]
-                }
-                lappend paths_and_names [list $path $nm $checkout_paths]
-            }
-            set filtered_list [list]
-            foreach glob $globlist {
-                set matches [lsearch -nocase -all -inline -index 1 $paths_and_names $glob]
-                foreach m $matches {
-                    if {$m ni $filtered_list} {
-                        lappend filtered_list $m
-                    }
-                }
-            }
-            set projects [lsort -index 1 $filtered_list]
-            return $projects
-        }
-
-    }
-
-
-
-}
-
-
-#*** !doctools
-#[manpage_end]
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::mix::commandset::project [namespace eval punk::mix::commandset::project {
-    variable version
-    set version 0.1.0
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/repo-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/repo-0.1.0.tm
deleted file mode 100644
index 15dc9187..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/repo-0.1.0.tm
+++ /dev/null
@@ -1,464 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::repo 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::commandset::repo {
-    namespace export *
-
-    variable PUNKARGS
-
-    proc tickets {{project ""}} {
-        #todo
-        set result ""
-        if {[string length $project]} {
-            puts stderr "project status unimplemented"
-            return
-        }
-        set active_dir [pwd]
-        append result "Retrieving top 10 tickets only (for more, use fossil timeline -n <int> -t t)" \n
-        append result [exec fossil timeline -n 10 -t t]
-
-        return $result
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::mix::commandset::repo::fossilize
-        @cmd    -name punk::mix::commandset::repo::fossilize
-            -summary\
-            "Initialise and check in a project to fossil (unimplemented)."\
-            -help\
-            "(unimplemented)"
-    }]
-    proc fossilize { args} {
-        #check if project already managed by fossil.. initialise and check in if not.
-        puts stderr "unimplemented"
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::punk::mix::commandset::repo::unfossilize
-        @cmd    -name punk::mix::commandset::repo::unfossilize
-            -summary\
-            "Remove/archive .fossil (unimplemented)."\
-            -help\
-            "(unimplemented)"
-    }]
-    proc unfossilize {projectname args} {
-        #remove/archive .fossil 
-        puts stderr "unimplemented"
-    }
-    proc state {} {
-        set result ""
-        set repopaths [punk::repo::find_repos [pwd]]
-        set repos [dict get $repopaths repos]
-        if {![llength $repos]} {
-            append result [a+ bold yellow][dict get $repopaths warnings][a]
-        } else {
-            append result [a+ bold yellow][dict get $repopaths warnings][a]
-            lassign [lindex $repos 0] repopath repotypes
-            if {"fossil" in $repotypes} {
-                append result \n "Fossil repo based at $repopath"
-                set repostate [punk::repo::workingdir_state $repopath -repopaths $repopaths -repotypes fossil]
-                append result \n [punk::repo::workingdir_state_summary $repostate]
-            }
-            if {"git" in $repotypes} {
-                append result \n "Git repo based at $repopath"
-                set repostate [punk::repo::workingdir_state $repopath -repopaths $repopaths -repotypes git]
-                append result \n [punk::repo::workingdir_state_summary $repostate]
-            }
-        }
-        return $result
-    }
-
-    #punk::args
-    lappend PUNKARGS [list {
-        @id     -id ::punk::mix::commandset::repo::fossil-move-repository
-        @cmd    -name punk::mix::commandset::repo::fossil-move-repository
-            -summary\
-            "Move a fossil repository database file."\
-            -help\
-            "Move the fossil repository file (usually named with .fossil extension).
-            This is an interactive function which will prompt for answers on stdin
-            before proceeding.
-            The move can be done even if there are open checkouts and will maintain
-            the link between checkout databases and the repository file.
-
-            The call can be made from within a folder containing fossil databases,
-            or from within one of the checkouts of the fossil database that is to
-            be moved.
-            "
-
-        #todo?
-        #@values -min 0 -max 1
-        #path
-    }]
-    proc fossil-move-repository {{path ""}} {
-        #path unused for now - todo - allow calling with a specific target rather than relying on cwd?
-        set searchbase [pwd]
-        set projectinfo    [punk::repo::find_repos $searchbase]
-        set projectbase [dict get $projectinfo closest]
-        set is_fossil [expr {"fossil" in [dict get $projectinfo closest_types]}]
-        if {[catch {
-            package require sqlite3
-        } errM]} {
-            puts stderr "sqlite3 package failed to load"
-            puts stderr "Try using 'fossil test-move-repository <targetpath>' from within an open checkout folder, or ensure that the Tcl sqlite3 package is available."
-            return
-        }
-        set ansiprompt [a+ green bold]
-        set ansiwarn   [a+ red bold]
-        set ansihighlight [a+ cyan bold]
-        set ansireset  [a]
-
-        set in_checkout 0
-        set is_checkout_relink 0; #whether we are attempting to link a checkout that has lost its repo
-        #we may also encounter a different kind of relink candidate - other checkouts of the same repo that we examine and find don't point back.
-        if {$projectbase eq "" || !$is_fossil} {
-            set repodbs [glob -dir $searchbase -type f -tail *.fossil]
-            if {![llength $repodbs]} {
-                puts stderr "Current directory does not seem to be directly below a fossil checkout, and no .fossil files found"
-                puts stderr "Please move to a folder containing the .fossil repository database to move, or to a folder directly within a fossil checkout (and with no intermediate git/fossil repos)"
-                return
-            }
-            set choice_files [list]
-            set i 1
-            set menu_message ""
-            append menu_message "${ansiprompt}Select the number of the fossil repo db to potentially move (confirmation will be requested before any action is taken)${ansireset}" \n
-            foreach db $repodbs {
-                sqlite3 dbinfo [file join $searchbase $db]
-                set ckouts [dbinfo eval {select name from config where name like 'ckout:%'}]
-                dbinfo close
-                lappend choice_files [list index $i repofile $db checkouts [llength $ckouts]]
-                append menu_message "$i  $db checkouts: [llength $ckouts]" \n
-                incr i
-            }
-            puts stdout $menu_message
-            set max [llength $choice_files] 
-            if {$max == 1} {
-                set rangemsg "the number 1"
-            } else {
-                set rangemsg "a number from 1 to $max" 
-            }
-            set answer [punk::repo::askuser "${ansiprompt}Enter $rangemsg to select a .fossil repository database to show details and potentially move. (or N to abort)${ansireset}"]
-            if {![string is integer -strict $answer]} {
-                puts stderr "Aborting"
-                return
-            }
-
-            set index [expr {int($answer) -1}]
-            if {$index >= 0 && $index <= $max-1} {
-                set repo_file_choice [lindex $choice_files $index]
-                set repo_file [dict get $repo_file_choice repofile]
-                set repo_file [file join $searchbase $repo_file]
-                puts stdout "Selected fossil repo database file: $repo_file" 
-            } else {
-                puts stderr " No menu number matched - aborting."
-                return
-            }
-        } else {
-            if {[file exists $projectbase/_FOSSIL_]} {
-                set cdbfile [file join $projectbase/_FOSSIL_]
-            } elseif {[file exists $projectbase/.fslckout]} {
-                set cdbfile [file join $projectbase/.fslckout]
-            } else {
-                puts stderr "No checkout database (_FOSSIL_ or .fslckout) found in nearest repository folder $projectbase (looked upwards from $searchbase)"
-                puts stderr "Unable to locate repository databases for potential move. Please move to a checkout folder or a folder containing .fossil repositories"
-                puts stderr "If run from a location where repositories are found, fossil-move-repository will give you the option to select a repository or cancel the operation"
-                return
-            }
-            set in_checkout 1
-            sqlite3 cdb $cdbfile
-            set repo_file [cdb eval {select value from vvar where name='repository'}]
-            cdb close
-            if {[string length [string trim $repo_file]] && [file pathtype $repo_file] eq "relative"} {
-                set  repo_file [file join $projectbase $repo_file]
-            }
-            if {![string length [string trim $repo_file]] || ![file exists $repo_file]} {
-                puts stderr "${ansiwarn}Checkout at $projectbase points to repository '$repo_file' - but it doesn't seem to exist${ansireset}"
-                set answer [punk::repo::askuser "${ansiprompt}Do you want to link this to an existing repository file? (Y|N)${ansireset}"]
-                if {[string match y* [string tolower $answer]]} {
-                    set is_checkout_relink 1
-                } else {
-                    puts stderr "Aborting - Unable to link this checkout dir to a repository database file"
-                    return
-                }
-            }
-        }
-
-        set pname [file rootname [file tail $repo_file]]
-        set full_path_repo_file [file join $searchbase $repo_file]
-        if {[file isfile $full_path_repo_file]} {
-            sqlite3 dbinfo [file join $searchbase $repo_file]
-            set ckouts [dbinfo eval {select name from config where name like 'ckout:%'}]
-            dbinfo close
-            if {![llength $ckouts]} {
-                puts stdout "Repository db at [file join $searchbase $repo_file] appears to have no open checkouts"
-            } else {
-                puts stdout "Repository db at [file join $searchbase $repo_file] appears to have [llength $ckouts] open checkouts:"
-                foreach ck $ckouts {
-                    puts stdout [string range $ck 6 end]
-                }
-            }
-        } else {
-            puts stderr "${ansiwarn}Missing repository db at $full_path_repo_file${ansireset}"
-        }
-        puts stdout "${ansihighlight}Report for all projects with repository file name $pname${ansireset}"
-        puts stdout [punk::mix::commandset::project::collection::detail $pname]
-        puts stdout [punk::mix::commandset::project::collection::work $pname -detail 1]
-
-        #todo
-        #ask user if they want to select a different pname
-        set wantrenameprompt "${ansiprompt}Would you like to rename the .fossil file? (Y|N)${ansireset}"
-        append wantrenameprompt \n "${ansiprompt}.eg change $pname.fossil to something else such as ${pname}_new.fossil${ansireset}"
-        set answer [punk::repo::askuser $wantrenameprompt]
-        set pname2 $pname
-        if {[string match y* [string tolower $answer]]} {
-            set dorenameprompt "${ansiprompt}Enter the new name and hit enter. (Just an alphanumeric name (possibly with dots/dashes/underscores) without .fossil and without any path)${ansireset}"
-            set namechoice [punk::repo::askuser $dorenameprompt]
-            if {[string length $namechoice]} {
-                set permittedmap [list . "" - "" _ ""]
-                if {[string is alnum -strict [string map $permittedmap $namechoice]]} {
-                    set pname2 $namechoice
-                } else {
-                    puts stderr "Entered name was invalid. Must be numbers,letters,underscore,dot,dash"
-                }
-            }
-            puts stdout "Continuing with name $pname2 - cancel at next prompt if this is incorrect"
-        }
-
-        set target_repodb_folder [punk::repo::fossil_get_repository_folder_for_project $pname2 -parentfolder $searchbase -askpath 1]
-        #target_repodb_folder might be same as source folder - check for same file if name wasn't changed?
-        if {![string length $target_repodb_folder]} {
-            puts stderr "No usable repository database folder selected for $pname2.fossil file"
-            return
-        }
-
-        set existing_target_repofile 0
-        if {[file exists $target_repodb_folder/$pname2.fossil]} {
-            set existing_target_repofile 1
-            puts stdout "${ansiwarn}NOTICE: $target_repodb_folder/$pname2.fossil already exists${ansireset}"
-            if {!$is_checkout_relink} {
-                set finalquestion "${ansiprompt}Are you sure you want to switch the repository $repo_file for the open checkout(s) to the existing file $target_repodb_folder/$pname2.fossil? (Y|N)${ansireset}"
-            } else {
-                set finalquestion "${ansiprompt}Are you sure you want to attempt to linke the repository (previously linked with '$repo_file') for the open checkout(s) to the existing file $target_repodb_folder/$pname2.fossil? (Y|N)${ansireset}"
-            }
-        } else {
-            if {!$is_checkout_relink} { 
-                set finalquestion "${ansiprompt}Proceed to move repository $repo_file to the new file $target_repodb_folder/$pname2.fossil? Y|N${ansireset}"
-            } else {
-                set finalquestion "${ansiprompt}Proceed to attempt link for missing repo db $repo_file to the new file $target_repodb_folder/$pname2.fossil? Y|N${ansireset}"
-            }
-        }
-        set line "${ansiwarn}[string repeat - [string length $finalquestion]]${ansireset}"
-        set finalprompt $line\n
-        append finalprompt $finalquestion \n
-        append finalprompt $line \n
-
-        set answer [punk::repo::askuser $finalprompt]
-        if {[string match y* [string tolower $answer]]} {
-            if {!$existing_target_repofile && !$is_checkout_relink} {
-                if {[catch {
-                    file copy $repo_file $target_repodb_folder/$pname2.fossil
-                } errM]} {
-                    puts stderr "${ansiwarn}FAILED to copy $repo_file to $target_repodb_folder/$pname2.fossil - aborting${ansireset}"
-                    puts stderr "Error message was:\n $errM"
-                    return
-                }
-                if {$in_checkout} {
-                    #in_checkout means we can assume projectbase var exists
-                    #there may be other checkouts on the old repo  
-                    #if so, we will remind the user of their existence
-                    if {[catch {exec fossil test-move-repository $target_repodb_folder/$pname2.fossil} errM]} {
-                        puts stderr "${ansiwarn}The fossil test-move-repository command appears to have failed${ansireset}"
-                        puts stderr "$errM"
-                    } else {
-
-                        sqlite3 oldrepo $repo_file 
-                        set ckouts [oldrepo eval {select name from config where name like 'ckout:%'}]
-                        set pcode [oldrepo eval {select value from config where name = 'project-code'}]
-                        oldrepo close
-                        if {[string length $pcode] < 20} {
-                            puts stderr "WARNING: Failed to get project-code from repo db $repo_file"
-                        }
-                        set other_checkouts [list]
-                        set norm_projectbase [file normalize $projectbase]
-                        foreach ck $ckouts {
-                            set ckfolder [string trim [string range $ck 6 end]]
-                            if {![file isdirectory $ckfolder]} {
-                                #as the process was launched within a checkout - we won't bother user with reports of non-existant other checkouts
-                                continue
-                            }
-                            if {[file normalize $ckfolder] ne $norm_projectbase} {
-                                lappend other_checkouts $ckfolder
-                            }
-                        }
-                        if {[llength $other_checkouts]} { 
-                            puts stderr "${ansiwarn}Other checkouts of $repo_file that may need consideration${ansireset}"
-                            foreach other $other_checkouts {
-                                puts stdout $other
-                            }
-                        }
-                    }
-                } else {
-                    #we aren't in a checkout - moving a repo to a new db location and/or name so there's no reason to prefer one checkout over another.. presumably the user either wants to move them all - or be asked..
-                    sqlite3 oldrepo $repo_file
-                    set ckouts [oldrepo eval {select name from config where name like 'ckout:%'}]
-                    oldrepo close
-                    if {[llength $ckouts] > 1} {
-                        puts stdout "There are [llength $ckouts] checkouts for the repository you are moving"
-                        puts stdout "You will be asked for each checkout if you want to adjust it to point to $target_repodb_folder/$pname2.folder"
-                    }
-                    set original_cwd [pwd]
-                    foreach ck $ckouts {
-                        set ckfolder [string trim [string range $ck 6 end]]
-                        if {![file isdirectory $ckfolder]} {
-                            puts stderr "old repo shows a checkout at $ckfolder - but it doesn't seem to exist. Ignoring"
-                            continue
-                        }
-                        cd $ckfolder
-                        puts stdout [exec fossil info]
-                        puts stdout [state]
-                        set answer  [punk::repo::askuser "${ansiprompt}Do you want to point this checkout to $target_repodb_folder/$pname2.folder? (Y|N) Q to stop processing checkouts${ansireset}"]
-                        if {[string match q* [string tolower $answer]]} {
-                            puts stderr "User aborting loop"
-                            break
-                        }
-                        if {[string match y* [string tolower $answer]]} {
-                            if {[catch {exec fossil test-move-repository $target_repodb_folder/$pname2.fossil} moveresult]} {
-                                puts stderr "${ansiwarn}The fossil test-move-repository command appears to have failed${ansireset}"
-                                puts stderr "$moveresult"
-                            } else {
-                                puts stdout "OK - move performed with result:"
-                                puts stdout $moveresult
-                            }
-                        }
-                    }
-                    cd $original_cwd
-
-                }
-            } else {
-                if {$is_checkout_relink} {
-                    #relinking a lost checkout to an existing repo.. we should probably check it's other checkouts and see if they point back
-                    if {[catch {exec fossil test-move-repository $target_repodb_folder/$pname2.fossil} errM]} {
-                        puts stderr "${ansiwarn}The fossil test-move-repository command appears to have failed${ansireset}"
-                        puts stderr "$errM"
-                    }
-                } else {
-                    if {$in_checkout} {
-                        if {[catch {exec fossil test-move-repository $target_repodb_folder/$pname2.fossil} errM]} {
-                            puts stderr "${ansiwarn}The fossil test-move-repository command appears to have failed${ansireset}"
-                            puts stderr "$errM"
-                        }
-                    } else {
-                        #not in checkout - we're wanting what pointed to one repo to point to a different existing one - presumably for all checkouts
-                        sqlite3 newrepo $target_repodb_folder/$pname2.fossil
-                        set newpname [newrepo eval {select value from config where name = 'project-name'}]
-                        set newpcode [newrepo eval {select value from config where name = 'project-code'}]
-                        set newckouts [newrepo eval {select name from config where name like 'ckout:%'}]
-                        newrepo close
-
-                        sqlite3 oldrepo $repo_file 
-                        set oldpname [oldrepo eval {select value from config where name = 'project-name'}]
-                        set oldpcode [oldrepo eval {select value from config where name = 'project-code'}]
-                        set oldckouts [oldrepo eval {select name from config where name like 'ckout:%'}]
-                        oldrepo close
-                        if {$newpname eq $oldpname} {
-                            set ansi_newpname [a+ green bold]$newpname[a]
-                            set ansi_oldpname [a+ green bold]$oldpname[a]
-                        } else {
-                            set ansi_newpname [a+ cyan bold]$newpname[a]
-                            set ansi_oldpname [a+ red bold]$oldpname[a]
-                        }
-                        if {$newpcode eq $oldpcode} {
-                            set ansi_newpcode [a+ green bold]$newpcode[a]
-                            set ansi_oldpcode [a+ green bold]$oldpcode[a]
-                        } else {
-                            set ansi_newpcode [a+ cyan bold]$newpcode[a]
-                            set ansi_oldpcode [a+ red bold]$oldpcode[a]
-                        }
-                        puts stdout "Target repository $target_repodb_folder/$pname2.fossil has project-name: $ansi_newpname and [llength $newckouts] existing checkouts"
-                        puts stdout "Target project code: $ansi_newpcode"
-                        puts stdout "Source repository $repo_file has project-name: $ansi_oldpname and [llength $oldckouts] existing checkouts"
-                        puts stdout "Source project code: $ansi_oldpcode"
-                        if {[llength $oldckouts] > 1} {
-                            puts stdout "You will be asked for each checkout if you want to adjust it to point to $target_repodb_folder/$pname2.folder"
-                        }
-                        set original_cwd [pwd]
-                        foreach ck $oldckouts {
-                            set ckfolder [string trim [string range $ck 6 end]]
-                            if {![file isdirectory $ckfolder]} {
-                                puts stderr "old repo shows a checkout at $ckfolder - but it doesn't seem to exist. Ignoring"
-                                continue
-                            }
-                            cd $ckfolder
-                            puts stdout [exec fossil info]
-                            puts stdout [state]
-                            set answer  [punk::repo::askuser "${ansiprompt}Do you want to point this checkout to $target_repodb_folder/$pname2.folder? (Y|N) Q to stop processing checkouts${ansireset}"]
-                            if {[string match q* [string tolower $answer]]} {
-                                puts stderr "User aborting loop"
-                                break
-                            }
-                            if {[string match y* [string tolower $answer]]} {
-                                if {[catch {exec fossil test-move-repository $target_repodb_folder/$pname2.fossil} moveresult]} {
-                                    puts stderr "${ansiwarn}The fossil test-move-repository command appears to have failed${ansireset}"
-                                    puts stderr "$moveresult"
-                                } else {
-                                    puts stdout "OK - move performed with result:"
-                                    puts stdout $moveresult
-                                }
-                            }
-                        } 
-                        cd $original_cwd
-
-                    }
-                }
-            }
-
-
-            puts stdout "-done-"
-        } else {
-            puts stdout "-cancelled by user-"
-        }
-
-    }
-}
-
-
-
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::mix::commandset::repo
-}
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::mix::commandset::repo [namespace eval punk::mix::commandset::repo {
-    variable version
-    set version 0.1.0
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm
deleted file mode 100644
index 84dca1df..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm
+++ /dev/null
@@ -1,2029 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'dev make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::commandset::scriptwrap 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_scriptwrap 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {scriptwrap polyglot tool}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {scriptwrap tool}]             [comment {-- Description at end of page heading --}]
-#[require punk::mix::commandset::scriptwrap]
-#[keywords module commandset launcher scriptwrap]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of scriptwrap
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by poshinfo
-#[list_begin itemized]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-package require punk::lib
-package require punk::args
-package require punk::mix
-package require punk::mix::base
-package require punk::fileline
-package require punk::ansi
-
-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package {punk::lib}]
-#[item] [package {punk::args}]
-#[item] [package {punk::mix}]
-#[item] [package {punk::base}]
-#[item] [package {punk::fileline}]
-
-#*** !doctools
-#[list_end]
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-namespace eval punk::mix::commandset::scriptwrap {
-    #*** !doctools
-    #[subsection {Namespace punk::mix::commandset::scriptwrap}]
-    #[para] Core API functions for punk::mix::commandset::scriptwrap
-    #[list_begin definitions]
-
-    namespace export {[a-z]*}
-    namespace import ::punk::ansi::a ::punk::ansi::a+
-
-    namespace eval fileline {
-        namespace import ::punk::fileline::lib::*
-        namespace import ::punk::fileline::class::*
-    }
-
-    proc templates {args} {
-        package require overtype
-        package require textblock
-        set tdict_low_to_high [templates_dict {*}$args]
-        #convert to screen order - with higher priority at the top
-        set tdict [dict create]
-        foreach k [lreverse [dict keys $tdict_low_to_high]] {
-            dict set tdict $k [dict get $tdict_low_to_high $k]
-        }
-
-        #set pathinfolist [dict values $tdict]
-        set names [dict keys $tdict]
-
-        #set paths [lsearch -all -inline -index 1 -subindices $pathinfolist *]; #first key of templates_dict is path
-        set paths [list]
-        set pathtypes [list]
-        dict for {nm tinfo} $tdict {
-            lappend paths [dict get $tinfo path]
-            lappend pathtypes [dict get $tinfo sourceinfo pathtype]
-        }
-
-        package require textblock
-        set title(name) "Template Name"
-        set widest(name) [tcl::mathfunc::max {*}[lmap v [concat [list $title(name)] $names] {string length $v}]]
-        set col(name) [string repeat " " $widest(name)]
-
-        set title(pathtype) "[a+ green]Path\nType[a]"
-        set widest(pathtype) [tcl::mathfunc::max {*}[lmap v [concat [list $title(pathtype)] $pathtypes] {textblock::width $v}]]
-        set col(pathtype) [string repeat " " $widest(pathtype)]
-
-        set title(path) "Path"
-        set widest(path) [tcl::mathfunc::max {*}[lmap v [concat [list $title(path)] $paths] {string length $v}]]
-        set col(path) [string repeat " " $widest(path)] 
-
-
-
-
-        set tablewidth [expr {$widest(name) + 1 + $widest(pathtype) + $widest(path)}]
-        set table ""
-        append table [string repeat - $tablewidth] \n
-        append table [textblock::join -- [overtype::left $col(name) $title(name)] " " [overtype::left $col(pathtype) $title(pathtype)] " " [overtype::left $col(path) $title(path)]] \n
-        append table [string repeat - $tablewidth] \n
-
-        foreach n $names pt $pathtypes p $paths {
-           append table "[overtype::left $col(name) $n] [overtype::left $col(pathtype) $pt] [overtype::left $col(path) $p]" \n 
-        }
-
-
-        return $table
-    }
-    proc templates_dict {args} {
-        package require punk::cap
-        if {[punk::cap::capability_has_handler punk.templates]} {
-            return [punk::cap::call_handler punk.templates get_itemdict_scriptappwrappers {*}$args]
-        } else {
-            put stderr "commandset::scriptwrap::templates_dict WARNING - no handler available for the 'punk.templates' capability - template providers will be unable to provide template locations"
-        }
-        return
-    }
-
-
-    #A batch file with unix line-endings is sensitive to label positioning. 
-    #batch file with windows crlf line endings can exhibit this problem - but probably only if specifically crafted with long lines deliberately designed to trigger it. 
-    #see: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888 (Call and goto may fail when the batch file has Unix line endings)
-    #The windows batch file scanner appears to parse in 512 Byte chunks.
-    #If a label following a call/goto is at a position spanning a 512 byte block as counted from the call/goto site (callsite assumed to be EOL - works for basic cases at least) then the label won't be found.
-    #A label preceding a call/goto site can't span a 512 byte boundary as counted from the beginning of the file
-    #checkfile produces warnings and errors in ansi-coloured form (both to stdout and a summary in the return value)
-    #The script should then be adjusted with comments and/or whitespace and checkfile should be re-run to confirm there are no new boundary-spanning labels.
-    #checkfile needs to be run even on previously tested scriptwrapper templates because the final :exit label is beyond the payloads and so could span a 512 Byte block
-    #It is more likely to catch issues if adjustments are made to the initial batch-script code in a template.
-    #
-    #cmd allows labels at call sites to span lines with line continuation character ^
-    #target labels can't span lines with ^ - cmd doesn't recognise them (They possibly do span in a way - but but the newlines may be included in the label - so they may be hard/impossible to call).
-    #Note that we can't filter obviously non-batch-script lines before processing - as the way batch label-scanning works it scans in chunks of 512 bytes so all lines are relevant.
-    #This means label-like things could be incorrectly found in other script data - that's partly the point of this check
-    #Note that we can't filter obviously non-batch-script lines before processing - as the way batch label-scanning works it scans in chunks of 512 bytes so all lines are relevant.
-    #This means label-like things could be incorrectly found in other script data - that's partly the point of this check.
-    proc checkfile {filepath args} {
-        if {![file exists $filepath]} {
-            error "punk::mix::commandset:scriptwrap error cannot find file '$filepath'"
-        }
-        set crlf_lf_replacements [list \uFFFF \uFFFE] ;#defaults - if already exist in file - error out with message
-        # -ignore_rems 1 allows testing of alignment state if rems were stripped - todo - lf/crlf-preserving rem strip function
-        set opts [dict create\
-            -ignore_rems 0\
-            -substitutionmap {}\
-            -crlf_lf_replacements $crlf_lf_replacements\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -ignore_rems - -substitutionmap - -crlf_lf_replacements {
-                    dict set opts $k $v
-                }
-                default {
-                    error "checkfile error - unknown option '$k'. Known options: [dict keys $opts]"
-                }
-            }
-        }
-        # -- --- --- --- --- --- --- 
-        set opt_ignore_rems     [dict get $opts -ignore_rems]
-        set opt_substitutionmap [dict get $opts -substitutionmap]
-        set opt_crlf_lf_replacements [dict get $opts -crlf_lf_replacements]
-        # -- --- --- --- --- --- --- 
-
-        # #### load file ####
-        ##set raw_filedata [fcat -translation binary $filepath]
-        # - as we may need to look at data beyond a ctrl-z (\x1A) section
-        set fd [open $filepath r]
-        fconfigure $fd -translation binary
-        set raw_filedata [read $fd]
-        close $fd
-        # ###################
-
-
-        set objFile [fileline::textinfo new $raw_filedata]
-
-        if {$opt_ignore_rems} {
-            #! todo
-            error "-ignore_rems unimplemented"
-            if 0 {
-                #todo - rebuild a raw_filedata value from the resultant lines
-                #review. @REM can appear after other commands and an ampersand for example.
-                # - we are interested in stripping lines with leading REMs
-                # - need to work out if a REM line with dos line-continuation should 
-
-                set data ""
-                set skipped_rems 0
-                foreach ln [split $filedata \n] {
-                    set ln [string trim $ln]
-                    if {[string match @REM* $ln] || [string match REM* $ln] || [string match @rem* $ln] || [string match rem* $ln]} {
-                        #ignore
-                        incr skipped_rems
-                    } else {
-                        append data $ln \n ;#!!
-                    }
-                }
-                puts stderr "Skipped $skipped_rems rem lines"
-                set dsize [string length $data]
-            }
-        } else {
-            set dsize [string length $raw_filedata]
-        }
-
-        puts stdout "Examining [$objFile chunklen] bytes of file $filepath for cmd script issues."
-        set le_info [$objFile chunk_le_counts 0 end]
-        set lf_count [dict get $le_info lf]
-        set crlf_count [dict get $le_info crlf]
-        set unterminated_count [dict get $le_info unterminated]
-        set total_count [expr {$lf_count + $crlf_count + $unterminated_count}]
-        puts stdout "lines ending in lf      : $lf_count"
-        puts stdout "lines ending in crlf    : $crlf_count"
-        puts stdout "unterminated lines      : $unterminated_count" ;#commonly 1 for trailing data at end of file. More than one is likely to be an error - or perhaps a policy plugin with different concept of lines?
-        puts stdout "crlf + lf + unterminated: $total_count"
-        puts stdout "line count              : [$objFile linecount]"
-        if {$total_count != [$objFile linecount]} {
-            puts stdout "[a+ yellow bold]WARNING: Linecount mismatch with line-endings - seems fishy[a]"
-        }
-        if {$unterminated_count > 1} {
-            puts stdout "[a+ yellow bold]WARNING: More than one unterminated line reported - seems fishy[a]"
-        }
-        puts "Checking line based labels and 512 byte boundaries from call sites for possible labels and code execution points."
-        set line_count [$objFile linecount]
-        set callid 0 ;#id for callsite and objects created
-        set file_offset 0 
-        set error_labels [list]
-        set warning_labels [list]
-        set call_labels_found [dict create]
-        set target_labels_found [dict create]
-        set possible_target_labels_found [dict create]
-        set warning_target_labels_found [dict create]
-
-        #todo - allow analysis of colon-less call. May need to check list of internal commands - but what about external ones?
-        #set searchregexex [list {(.*\s+|^)(@*call\s*:*)(\S.*)} {(.*\s+|^)(@*CALL\s*:*)(\S.*)} {(.*\s+|^)(@*goto\s*:*)(\S.*)} {(.*\s+|^)(@*GOTO\s*:*)(\S.*)}]
-
-        #order of regex testing is important - test more specific entries with colon/comment before we test whitespace only version of goto/call
-        set searchregexes [list {(.*\s+|^)(@*call\s*:)(\S.*)} {(.*\s+|^)(@*CALL\s*:)(\S.*)} {(.*\s+|^)(@*goto\s*:)(\S.*)} {(.*\s*|.*\s+|^)(@*GOTO\s*:)(\S.*)}]
-        lappend searchregexes {(.*\|\|.*)(@*GOTO\s*:)(\S.*)}           ;#review
-        lappend searchregexes {(.*\s+|^)(@*goto\s+%=.*=%\s*:)(\S.*)}
-        lappend searchregexes {(.*\s+|^)(@*goto\s+%=.*=%\s+)(\S.*)}
-        lappend searchregexes {(.*\s+|^)(@*goto\s+)(\S.*)}
-
-        lappend searchregexes {(.*\s+|^)(@*GOTO\s+%=.*=%\s*:)(\S.*)}
-        lappend searchregexes {(.*\s+|^)(@*GOTO\s+%=.*=%\s+)(\S.*)}
-        lappend searchregexes {(.*\s+|^)(@*GOTO\s+)(\S.*)}
-        #review
-        #todo - better callsite analysis. There can be data between @GOTO or @CALL and : other than just whitespace
-        #e.g for @goto %= possible comment=% :mylabe%%l etc
-
-        for {set callingline_index 0} {$callingline_index < $line_count} {incr callingline_index} {
-            set callingline_info [$objFile lineinfo $callingline_index]
-            set callingline_payload [dict get $callingline_info payload]
-            set callingline_len    [dict get $callingline_info linelen] 
-            set callingline_num [expr {$callingline_index + 1}]
-
-            set callposn -1 
-            set trimln [string trim $callingline_payload]
-
-            #if {[string match "rem *" $trimln] || [string match "@rem *" $trimln] || [string match "REM *" $trimln] || [string match "@REM *" $trimln]} {}
-            #ignore things that look like a call that are beind a REM
-            switch -glob -nocase -- $trimln {
-                "rem *" - "@rem *" {
-
-                }
-                default {
-
-                    foreach search_regex $searchregexes {
-                        if {[regexp $search_regex $callingline_payload _m precall call labelplus]} {
-                            #todo further checks to see if it's actually a batch script line
-                            # - - - - work out what cmd.exe considers start of 512B boundaries when scanning from a callsite
-                            #callposn affected by newlines?
-                            #set callposn [expr {$file_offset + [string length $callingline_payload]}] ;#take callposn as end of line .. review - multiline statements?
-                            set callposn [expr {$file_offset + $callingline_len -1}]
-
-                            #Note there are anomalies around target labels in bracketed sections such as IF blocks
-                            #this is bad practice - as it can lead to unbalanced braces - but batch files can still work under cmd.exe with them in some cases
-                            #e.g unbalanced trailing bracket may be ignored.
-                            #A working script with target-labels in braces can fail due to boundary issues we don't detect (callsite for boundary counting may need to be at end of entire multiline if block??)
-                            #For now - just make sure punk templates don't do this - but it would be nice to be able to detect.
-
-                            #set callposn $file_offset
-                            #set callposn [expr {$file_offset + [string length $precall]}]
-                            # - - - -
-                            break
-                        }
-                    }
-                    set callsite_labelfound 0 ;#until proven
-                    if {$callposn != -1} {
-                        set callposn_lineindex [lindex [$objFile chunkrange_to_linerange $callposn $callposn] 0]
-                        #the line represented by callposn may actually be beyond the calling_line_index 
-                        set labelinfo [batchlib::get_callsite_label $labelplus]
-                        if {[dict get $labelinfo labelfound]} {
-                            set callsite_labelfound 1
-                            set label [dict get $labelinfo label]
-                            set call_label_record [list label $label line $callingline_num]
-                            dict lappend call_labels_found $label $call_label_record
-                        } else {
-                            puts stderr "[a+ yellow bold]WARNING - apparent callsite $callposn but couldn't verify label[a]"
-                            puts stderr "Line:\n$trimln"
-                        }
-                    }
-
-                    #todo - multiple calls on one line. - also - determine what cmd considers the starting point for forward scanning when call is in a structure such as an if statement.
-                    if {$callsite_labelfound} {
-                        puts stdout "[a+ bold cyan]CALLSITE on line $callingline_num  ending at byte $callposn[a]"
-                        set callsummary [string range "${call}${labelplus}" 0 100]
-                        if {[string length $callsummary] < [string length ${call}${labelplus}]} {
-                            puts stdout "  CALLSITE: $callsummary (truncated to 100 bytes)"    
-                        } else {
-                            puts stdout "  CALLSITE: '${call}${labelplus}'"
-                        }
-                        puts stdout "  [a+ cyan]FULLINE: $callingline_payload[a]"
-
-
-
-                        ##################################
-                        #set labelpluswords [regexp -inline -all {\S+} $labelplus] ;#don't assume labelplus can be treated as Tcl list - use regexp to split
-                        #NOTE it is invalid to assume label always terminated by space - pair of % characters (variable substitution) can contain a space without terminating label
-                        #set word1 [lindex $labelpluswords 0]
-
-
-                        ##################################
-
-
-                        set labelsize [string length $label]
-                        #scan forward for labels at boundaries
-                        set forward_chunk [$objFile chunk $callposn end]
-                        set forward_chunk_base $callposn ;#name for clarity
-
-                        incr callid
-                        set callvar "call-${callid}_fromline-${callingline_num}"
-                        upvar 0 $callvar objForwardScan
-                        set objForwardScan [fileline::textinfo new $forward_chunk]
-
-
-
-                        ##################################################################################################################################
-                        #Forward scan 1 - check at normal line boundaries - and see if collides with a chunk boundary - and if the label is obscured or ok
-                        set dsize [$objForwardScan chunklen]
-                        set num_boundaries [expr {$dsize / 512} ]
-                        puts "scanning $dsize forward bytes in file starting at $forward_chunk_base for label '$label' - num_boundaries: $num_boundaries"
-                        set total_offset $file_offset
-                        set found_forward_label 0
-                        foreach scanlineinfo [$objForwardScan lineinfolist 0 end] {
-                            set scanline_start [dict get $scanlineinfo start]
-                            set scanline_bytes [dict get $scanlineinfo linelen]
-                            set scanline   [dict get $scanlineinfo payload]
-
-                            set line_start_global [expr {$forward_chunk_base + $scanline_start}] 
-                            set line_index_global [lindex [$objFile chunkrange_to_linerange $line_start_global $line_start_global] 0] 
-                            set line_num_global [expr {$line_index_global + 1}]
-
-                            set trimscanline [string trim $scanline]
-
-                            set found_targetlabel_at_line 0 ;# until disproven
-                            if {[string first : $scanline] >= 0} {
-                                set labelinfo [batchlib::get_target_label_from_line $scanline]
-                                if {[dict get $labelinfo labelfound] && [dict get $labelinfo label] eq $label} {
-                                    #add to target_labels_found record below
-                                    set scan_target_label_record [list label $label line $line_num_global]
-                                    set found_targetlabel_at_line 1
-                                }
-                            }   
-
-                            if {$found_targetlabel_at_line} {
-                                set scan_target_label_same_line_seen false
-                                if {[dict exists $target_labels_found $label]} {
-                                    set thislabel_records [dict get $target_labels_found $label]
-                                    foreach previous $thislabel_records {
-                                        if {[dict get $previous line] eq $line_num_global} {
-                                            set scan_target_label_same_line_seen true 
-                                        }
-                                    }
-                                }
-                                incr found_forward_label
-                                if {!$scan_target_label_same_line_seen} {
-                                    set label_posn_in_line [string first : $scanline]
-                                    set labelposn [expr {$scanline_start + $label_posn_in_line}]
-                                    #we only really care about exactly landing on a boundary or else the next 512 byte boundaries above the labelposn
-                                    if {($labelposn % 512) == 0} {
-                                        set ubound [expr {($labelposn / 512) * 512}]
-                                    } else {
-                                        set ubound [expr {(($labelposn / 512)+1) * 512}]
-                                    }
-                                    set lbound [expr {$ubound - $labelsize}]
-                                    if {($labelposn >= $lbound) && ($labelposn <= $ubound)} {
-                                        dict set scan_target_label_record error linestart_and_call_offset_bytes
-                                        lappend error_labels [list label $label linestart_and_call_offset_bytes $labelposn callsite [list call ${call}${labelplus} call_linenum $callingline_num] bad_target_line $line_num_global]
-                                        puts stdout "[a+ bold red]ERROR: file line: $line_num_global target-label $trimscanline at line-beginning and with byte offset from callsite: $labelposn offset in file: $line_start_global[a]"
-                                        puts stdout "[a+ bold red]  This target-label appears to span the 512byte boundary at byte $ubound[a] [a+ yellow bold]from callsite.[a]"
-                                        puts [$objForwardScan chunk_boundary_display [dict get $scanlineinfo start] [dict get $scanlineinfo end] 512 -linebase $callposn_lineindex+1 -limit 1] ;#+1 on callposn_linindex to do editor-style linenums
-                                    } else {
-                                        dict set scan_target_label_record ok 1
-                                        puts stdout "[a+ bold green]OK: file line: $line_num_global target-label $trimscanline at line-beginning and with byte offset from callsite: $labelposn offset in file: $line_start_global[a]"
-                                    }
-                                    dict lappend target_labels_found $label $scan_target_label_record
-                                } else {
-                                    puts stdout "OK - seen label $label on $line_num_global before"
-                                }
-                            }
-                            incr total_offset  $scanline_bytes
-                        }
-                        ##################################################################################################################################
-
-
-                        #todo
-                        #forward scan 2 - check any boundaries missed above because the label isn't at the begining of a line
-                        #these are potentially hidden labels that could activate without requiring the label be at the beginning of a line
-                        #check boundary spans relative to start of this objForwardScan chunk
-
-                        #adjust boundary-search by resetting counter each time crlf encountered 
-                        set forward_lines [$objForwardScan chunkrange_to_lineinfolist 0 end]
-                        set boundary_positions [list 0]
-                        set scanner_offset 0
-                        set scanner_position 0
-                        foreach forwardbline_info $forward_lines {
-                            #review - do we need to check the payload in case we have configured the textinfo object to split the file only on lf - (not true by default)
-                            set forwardbline_len    [dict get $forwardbline_info linelen]
-                            set forwardbline_spaninfo [fileline::range_spans_chunk_boundaries [expr {$scanner_position + $scanner_offset}] [expr {$scanner_position + $scanner_offset + $forwardbline_len}] 512]
-                            set forwardbline_boundaries [dict get $forwardbline_spaninfo boundaries]
-
-                            foreach b $forwardbline_boundaries {
-                                set relb [expr $b + $scanner_offset]
-                                if {$relb <= [dict get $forwardbline_info end]} {
-                                    lappend boundary_positions $relb 
-                                } else {
-                                    #leave it for the next line - as we may need to adjust offset anyway 
-                                    break
-                                }
-                            }
-                            if {[dict get $forwardbline_info le] eq "crlf"} {
-                                set scanner_offset [expr {[dict get $forwardbline_info end] - [lindex $boundary_positions end]}] ;#reset on crlf
-                                #puts "+++++ set scanner_offset $scanner_offset"
-                            }
-                            set scanner_position [dict get $forwardbline_info end]
-                        }
-                        set boundary_positions [lsearch -all -not -inline $boundary_positions 0]
-                        if {[llength $boundary_positions]} {
-                            puts stdout "[a+ blue bold]----> [llength $forward_lines] forward lines, boundaries (possibly with offsets) to check $boundary_positions[a]"
-                        } else {
-                            puts stdout "[a+ blue bold]----> [llength $forward_lines] forward lines, No boundaries to check (generally expected for files with crlf line endings and no extremely long lines)[a]"
-                        }
-
-
-                        if {[llength $boundary_positions]} {
-                            puts stdout "line $callingline_num scan from call label $label ending at position $callposn. Next Callsite-relative boundary [lindex $boundary_positions 0]"
-
-                            for {set i 0} {$i < [llength $boundary_positions]} {incr i} {
-                                set b [lindex $boundary_positions $i]
-                                if {$i < [llength $boundary_positions]-1} {
-                                    set nextb [lindex $boundary_positions $i+1]
-                                    set top  $nextb 
-                                } else {
-                                    set top end
-                                }
-
-                                set forwardbline_infolist [$objForwardScan chunkrange_to_lineinfolist $b $top -show_truncated 1]
-                                set forwardbline_info [lindex $forwardbline_infolist 0]
-                                if {[dict get $forwardbline_info is_truncated]} {
-                                    set payload_from_boundary [dict get $forwardbline_info truncated]
-                                } else {
-                                    set payload_from_boundary [dict get $forwardbline_info payload]
-                                }
-                                set forwardbline_len    [dict get $forwardbline_info linelen]
-                                set forwardbline_index [dict get $forwardbline_info lineindex]
-                                set forwardbline_start [dict get $forwardbline_info start]
-                                set forwardbline_start_global [expr {$forward_chunk_base + $forwardbline_start}] 
-                                set forwardbline_index_global [lindex [$objFile chunkrange_to_linerange $forwardbline_start_global $forwardbline_start_global] 0] 
-                                set forwardbline_num_global [expr {$forwardbline_index_global + 1}]
-
-                                set found_targetlabel_at_boundary 0
-                                if {[string first : $payload_from_boundary] >= 0} {
-                                    #puts stdout "Possible label at boundary $b - testing"
-                                    set labelinfo [batchlib::get_target_label_from_line $payload_from_boundary]
-                                    if {[dict get $labelinfo labelfound] && [dict get $labelinfo label] eq $label} {
-                                        incr found_forward_label
-                                        set found_targetlabel_at_boundary 1
-                                    } elseif {[dict get $labelinfo labelfound]} {
-                                        set unsearched_label [dict get $labelinfo label]
-                                        puts stderr "[a+ cyan]Line $forwardbline_num_global: Found an item that cmd may interpret as a target label because of its location at a boundary $b  - but it doesn't seem to be the one we are looking for. Looking for '$label' Found: '[dict get $labelinfo label]'[a]"
-                                        puts stderr "[a+ yellow]Warning - if the label '$unsearched_label' on line $forwardbline_num_global isn't meant to be a target - it may be safest to make sure batch script isn't using CALL or GOTO with target :$unsearched_label"
-                                        puts stdout "linedata:\n"
-                                        #puts stdout "'$payload_from_boundary'"
-                                        puts [$objForwardScan chunk_boundary_display [dict get $forwardbline_info start] [dict get $forwardbline_info end] 0 -boundaries $b -linebase $callposn_lineindex+1 -limit 1]
-
-                                        #dubious value to check call_labels_found - as we didn't run through and find all call labels first!
-                                        if {$unsearched_label in [dict keys $call_labels_found]} {
-                                            set boundary_target_label_record [list label $unsearched_label line $forwardbline_num_global error found_via_boundary_check_on_a_different_call_label]
-                                            dict lappend warning_target_labels_found $unsearched_label $boundary_target_label_record
-                                        } else {
-                                            set possible_target_label_record [list label $unsearched_label line $forwardbline_num_global]
-                                            dict lappend possible_target_labels_found $unsearched_label $possible_target_label_record
-                                        }
-                                    } else {
-                                        set note ""
-                                        if {[dict exists $labelinfo note]} {
-                                            set note [dict get $labelinfo note]
-                                        }
-                                        if {$note ne "prefix_fail"} {
-                                            puts stdout "no label detected at boundary $b - probably ok. Note from target-label scanner: $note"
-                                        }
-                                    }
-                                    if {$found_targetlabel_at_boundary} {
-                                        set target_label_record [list label $label line $forwardbline_num_global error call_offset_bytes]
-                                        dict lappend target_labels_found $label $target_label_record
-                                        set note "possibly unreliable or dangerous target-label at line $forwardbline_num_global may execute line [expr {$forwardbline_num_global +1}].\n"
-                                        append note "Target label not at line start but was found by scanning 512byte chunks from callsite with count resets at any crlf encountered\n"
-                                        append note "Adjust spacing between line $callingline_num and $forwardbline_num_global to avoid the 512 boundary - and re-test for other boundary problems"
-                                        lappend error_labels [list label $label call_offset_bytes $b callsite [list call ${call}${labelplus} call_linenum $callingline_num] note $note]
-                                        puts stdout "[a+ bold red]ERROR: line $forwardbline_num_global  target-label [dict get $labelinfo rawlabel] found at boundary and with byte offset from callsite: $b [a]"
-                                        puts stdout "[a+ bold red]  This target-label appears to fall at or just after the 512byte boundary at byte $b[a] [a+ yellow bold]from callsite.[a]"
-                                        puts stdout "[a+ bold yellow]Code may execute at line [expr {$forwardbline_num_global + 1}] (or at next 512Byte boundary in some circumstances)[a]"
-                                        puts stdout "[a+ bold yellow]Recommend adjusting spacing between line $callingline_num and $forwardbline_num_global[a]"
-                                        puts stdout [$objForwardScan chunk_boundary_display [dict get $forwardbline_info start] [dict get $forwardbline_info end] 0 -boundaries $b -linebase $callposn_lineindex+1 -limit 1]
-                                    }
-                                    #if found any label - peek at next boundary
-                                    if {[dict get $labelinfo labelfound] && $i+1 < [llength $boundary_positions]} {
-                                        set next_lineinfolist [$objForwardScan chunkrange_to_lineinfolist $nextb end -show_truncated 1]
-                                        set next_lineinfo [lindex $next_lineinfolist 0]
-                                        puts "peek next boundary data - line [expr {$forwardbline_num_global + 1}]:"
-                                        #if {[dict get $next_lineinfo is_truncated]} {
-                                        #    puts [dict get $next_lineinfo truncated]
-                                        #} else {
-                                        #    puts [dict get $next_lineinfo payload]
-                                        #}
-                                        puts [$objForwardScan chunk_boundary_display [dict get $next_lineinfo start] [dict get $next_lineinfo end] 0 -boundaries $nextb -linebase $callposn_lineindex+1 -limit 1]
-                                    }
-                                }
-                            }
-                        }
-                        $objForwardScan destroy
-
-                        #scan behind for labels at boundaries - using offset from start of file
-                        #we do a backward scan even if a forward label has been found, so that we can warn of duplicate labels.
-
-                        set prior_start 0
-                        set prior_end $callingline_index ;#only scan from file start to call-site
-
-                        set pline_begin 0
-                        set found_backward_label 0
-                        set p_linenum 0
-                        for {set pidx $prior_start} {$pidx <= $prior_end} {incr pidx} {
-                            set plineinfo [$objFile lineinfo $pidx]
-                            set pline [dict get $plineinfo payload]
-                            incr p_linenum
-                            set pline_bytes [dict get $plineinfo linelen] ;#includes lf or crlf ending bytes
-                            set pline_start $pline_begin
-                            if {$pline_start != [dict get $plineinfo start]} {
-                                error "checkfile error: line $p_linenum - calculated start $pline_start not equal to stored start [dict get $plineinfo start]"
-                            }
-                            set pline_end  [expr {$pline_begin + $pline_bytes -1}]
-                            if {$pline_end != [dict get $plineinfo end]} {
-                                error "checkfile error: line $p_linenum - calculated end $pline_end not equal to stored end [dict get $plineinfo end]"
-                            }
-
-
-                            set trimpline [string trim $pline]
-                            #todo - process leading part of line before :
-                            #e.g the following are valid  (leading # is not part of the examples)
-                            # ======  : label
-                            # also
-                            #%=== ==  : label
-                            # also
-                            #%= ,,,, ;;;  = : label
-                            
-                            #these token delimiters (; , = 0x0B ox0C 0xFF <space> <tab>)
-                            #can also occur after the colon e.g
-                            #:  ;label
-
-                            #the following is a valid target for @GOTO :#something
-                            #: ;#something
-
-                            #It is possible for  closing bracket ) to also be invisible if there is no open ( active 
-                            #This only seems to work for a single ) at beggining of the line  multiple ) even separated by spaces or ; etc seem to stop the target being found.
-                            #The lone unbalanced ) can act like a comment in other contexts  - and can appear multiple times, but only if first ) on the line is followed by a delimiter
-                            #Essentially all characters following the first ) are ignored - but if the first is something like ))  then cmd tries to interpret that as a command and fails
-                            # e.g  
-                            #) ignored
-                            #);))))  ignored
-                            #))    causes error as cmd tries to run "))" as a command.
-                            #This is a reason why *target* labels shouldn't appear in bracketed blocks - as code jumps to a point where ( ) will be unbalanced
-
-                            #target labels are literal with regards to % ie not subject to % expansion - but ^ must still be processed 
-                            if {[string first : $pline] >= 0} {
-                                #space (and some other chars) allowed between colon and label at target - (but not at callsite)
-                                set labelinfo [batchlib::get_target_label_from_line $pline]
-                                if {[dict get $labelinfo labelfound] && [dict get $labelinfo label] eq $label} {
-                                    set target_label_record [list label $label line $p_linenum]
-                                    puts stdout "$labelinfo"
-                                    incr found_backward_label
-                                    set prior_label_posn_in_line [string first : $pline]
-                                    set prior_label_posn [expr {$pline_begin + $prior_label_posn_in_line}]
-                                    if {($prior_label_posn % 512) == 0} {
-                                        set p_ubound [expr {($prior_label_posn / 512) * 512}]
-                                    } else {
-                                        set p_ubound [expr {(($prior_label_posn /512) +1) * 512}]
-                                    }
-                                    set p_lbound [expr {$p_ubound - $labelsize}]
-                                    if {($prior_label_posn >= $p_lbound) && ($prior_label_posn <= $p_ubound)} {
-                                        dict set target_label_record error linestart_and_overlap
-                                        lappend error_labels [list label $label linestart_and_overlap $prior_label_posn callsite [list call ${call}${labelplus} call_linenum $callingline_num]]
-                                        puts stdout "[a+ bold red]ERROR: target-label '$trimpline' at line $p_linenum and offset from file start: $prior_label_posn line start: $pline_begin[a]"
-                                        puts stdout "[a+ bold red]  This target-label appears to span the 512byte boundary at byte $p_ubound[a] [a+ yellow bold]from file start[a]"
-                                        puts [$objFile chunk_boundary_display [dict get $plineinfo start] [dict get $plineinfo end] 512 -linebase 1 -limit 1]
-                                    } else {
-                                        dict set target_label_record ok 1
-                                        puts stdout "[a+ bold green]OK: file line: $p_linenum  target-label '$trimpline' before call from line $callingline_num. Target is at offset from file start: $prior_label_posn line start: $pline_begin[a]"
-                                    }
-                                    dict lappend call_labels_found $label $target_label_record
-                                }
-                                #else - label we weren't searching for - even if at file boundary it should be picked up when actually searched?  review 
-                            }
-                            set spaninfo [fileline::range_spans_chunk_boundaries $pline_start $pline_end 512]
-                            if {[dict get $spaninfo is_span]} {
-                                #puts stdout "boundary spanning line $p_linenum byte range $pline_start -> $pline_end [a+ bold purple]$spaninfo[a]"
-                                #check boundaries within the line
-                                set boundaries [dict get $spaninfo boundaries]
-                                foreach b $boundaries {
-                                    if {$b == 0} {
-                                        #skip - beginning of line already handled (review?)
-                                        continue
-                                    }
-                                    #overlap test is just a warning - we have a label-like thing overlapping the boundary
-                                    #todo - take account of fact that target label can be ":  <whitespace or label-ignorable chars> labelname" - so using just labelsize won't detect all overlaps
-                                    #The label could even be at the end of a long line that appears at first to be a comment e.g something like
-                                    # :   whatever                                                                                                                                                    :                   sneakylabel
-                                    # or
-                                    #@REM  ============================================================================================================================================================                 : sneakylabel
-
-                                    #The fact that it overlaps - means it's probably not being found with lf line-endings - and only the label :whatever should be found with crlf endings 
-                                    #- but we won't always catch that something's fishy
-                                    #review
-                                    set overlaptail [string range $pline [expr {$b - $labelsize}] [expr {($b + $labelsize) -1}]] ;#subtracting  labelsize gives earliest possible overlap
-                                    if {[string match "*:$label *" $overlaptail] } {
-                                        lappend warning_labels [list label $label warning label_spanning callsite [list call ${call}${labelplus} call_linenum $callingline_num]]
-                                        puts stdout "[a+ bold yellow] WARNING: possible label $label spans boundary $b from start of file"
-                                    }
-
-                                    set pline_tail [string range $pline $b end]
-
-                                    if {[string first : $pline_tail] >= 0} {
-                                        set labelinfo [batchlib::get_target_label_from_line $pline_tail]
-                                        set labelfound 0
-                                        if {[dict get $labelinfo labelfound] && [dict get $labelinfo label] eq $label} {
-                                            set labelfound 1
-                                        } elseif {[dict get $labelinfo labelfound]} {
-                                            puts stdout "Note: detected target label [dict get $labelinfo label] at file offset $b at boundary with no preceeding newline - but it's not the one we're currently scanning for"
-                                        }
-                                        if {$labelfound} {
-                                            set label_found_name [dict get $labelinfo label]
-                                            incr found_backward_label
-
-                                            lappend error_labels [list label $label_found_name file_offset_bytes $b note "label at boundary but no preceeding newline - cmd may interpret as label and execute following line or code at next boundary" callsite [list call ${call}${labelplus} call_linenum $callingline_num]]
-
-                                            puts stdout "[a+ bold red]ERROR: *possible* label '$label_found_name' at line $p_linenum and offset from file start: $b line start: $pline_begin[a]"
-                                            puts stdout "[a+ bold red]  This label with no preceeding newline appears to span the 512byte boundary at byte $b[a] [a+ yellow bold]from file start[a]"
-                                            puts stdout "[a+ bold red]  cmd.exe may find this label - but it probably shouldn't be relied upon[a]"
-                                            puts stdout "[a+ bold yellow] label starting at $b : $pline_tail[a]"
-
-                                            set target_label_record [list label $label_found_name line $p_linenum]
-                                            if {$label_found_name in [dict keys $call_labels_found]} {
-                                                dict set target_label_record error "called_label_at_file_offset_boundary"
-                                                dict lappend target_labels_found $label_found_name $target_label_record
-                                            } else {
-                                                #review - we need to get better at finding all calls!
-                                                dict set target_label_record error "uncalled_label_at_file_offset_boundary"
-                                                dict lappend possible_target_labels_found $label_found_name $target_label_record
-                                            }
-
-
-                                            set tail_start $b
-                                            set tail_end [expr {$b + [string length $pline_tail]}]
-                                            set tail_spaninfo [fileline::range_spans_chunk_boundaries $tail_start $tail_end 512]
-                                            if {[dict get $tail_spaninfo is_span]} {
-                                                set tail_boundaries [dict get $tail_spaninfo boundaries]
-                                                set extra_tail_boundaries [lsearch -all -inline -not $tail_boundaries $b]
-                                                if {[llength $extra_tail_boundaries]} {
-                                                    puts "Line $p_linenum also spans additional boundaries: $extra_tail_boundaries"
-                                                    set next_boundary [lindex $extra_tail_boundaries 0]
-                                                    #boundary doesn't reset if no crlf -  we are still within the line - so can calc from line beginning 
-                                                    set next_boundary_data [string range $pline [expr {$pline_begin + $next_boundary}] end]
-                                                    puts "Line $p_linenum data at next boundary: [a+ yellow bold]$next_boundary_data[a]"
-                                                    puts [$objFile chunk_boundary_display [dict get $plineinfo start] [dict get $plineinfo end] 0 -boundaries $next_boundary -linebase 1 -limit 1]
-
-                                                    puts "[a+ yellow bold]NOTE: cmd may attempt to treat this data as code[a]"
-                                                }
-                                            } else {
-                                                if {$pidx+1 < [$objFile linecount]} {
-                                                    set nextlineinfo [$objFile lineinfo $pidx+1]
-                                                    set nextpayload [dict get $nextlineinfo payload]
-                                                    puts "Line $p_linenum + 1 has data: [a+ yellow bold]$nextpayload[a]"
-                                                    puts "[a+ yellow bold]NOTE: cmd may attempt to treat this data as code[a]"
-                                                } else {
-                                                    #EOF reached 
-                                                }
-                                            }
-                                        }
-                                    }
-
-                                }
-
-                            } 
-                            incr pline_begin $pline_bytes
-                        }
-
-                        if {$found_forward_label == 0} {
-                            if {[string toupper $label] eq "EOF"} {
-                                #EOF/eof label is special - it doesn't have to exist - but if it does - it probably shouldn't be spanning a boundary
-                                puts stdout "[a+ bold green]OK: label :$label doesn't exist - but it's usually not meant to.  callsite: [list call ${call}${labelplus} call_linenum $callingline_num] [a]"
-                            } else {
-                                if {$found_backward_label == 0} {
-                                    lappend warning_labels [list label $label warning label_not_found callsite [list call ${call}${labelplus} call_linenum $callingline_num]]
-                                    puts stdout "[a+ bold yellow]WARNING: label :$label not found (in forward or backward scan)[a]"
-                                }
-                            }
-                        }
-                        if {($found_forward_label + $found_backward_label) > 1} {
-                            #puts "target_labels_found: $target_labels_found"
-                            dict for {targetkey targethits} $target_labels_found {
-                                set targetlines [list]
-                                foreach record $targethits {
-                                    lappend targetlines [dict get $record line]
-                                } 
-                                set remaining [list]
-                                set previous "" ;
-                                foreach lnum [lsort -integer -increasing $targetlines] {
-                                    if {$previous eq ""} {
-                                        lappend remaining $lnum
-                                    } else {
-                                        if {$lnum-1 == $previous} {
-                                            puts stdout "[a+ green bold]OK[a] - target-label $targetkey appears on immediately adjacent lines $previous and $lnum - assuming it is a boundary-avoidance tactic rather than an inadvertent duplicate"
-                                            set remaining [lrange $remaining 0 end-1];#retain latest - we will allow a run of targets on subsequent lines
-                                        }
-                                        lappend remaining $lnum
-                                    }
-                                    set previous [lindex $remaining end]
-                                }
-                                if {[llength $remaining] > 1} {
-                                    lappend warning_labels [list label $label warning multiple_target_labels_found callsite [list call ${call}${labelplus} call_linenum $callingline_num]]
-                                    puts stdout "[a+ bold yellow]WARNING: label :$label seems to appear multiple times[a]"
-                                }
-                            }
-                        }
-                    }
-                }
-            } ;# end switch
-            incr file_offset $callingline_len ;#including per-line stored line-ending 
-        }
-        if {[dict size $possible_target_labels_found] > 0} {
-            #puts stdout "Possibly bogus target-labels: [dict keys $possible_target_labels_found]"
-            set bogus_summary [list] 
-            dict for {pb pbrecords} $possible_target_labels_found {
-                if {$pb in [dict keys $call_labels_found]} {
-                    puts stdout "[a+ yellow bold]Warning - target for label $pb was found with a record as being possibly bogus. record: $pbrecords [a]"
-                    puts stdout "[a+ yellow bold]Consider moving this target-label and re-checking[a]"
-                    puts stdout "[a+ yellow bold]It may be a call label line that was found by boundary scanning - which shouldn't really happen[a]"
-                    puts stdout "Call record [dict get $call_labels_found $pb]"
-                    lappend warning_labels [list label $pb warning possibly_bogus_target list_of_target_hits $pbrecords]
-                }
-                set blines [list] 
-                foreach rec $pbrecords {
-                    lappend blines [dict get $rec line]
-                }
-                lappend bogus_summary [list label $pb found_on_lines $blines]
-            }
-            puts stdout "[a+ cyan]Possibly bogus target-labels: $bogus_summary[a]"
-            puts stdout "These are usually nothing to be concerned about. Some will almost always turn up in a polyglot script that contains batch script."
-            puts stdout "If some of the label names appear to contain newlines, or are prefixes of or exact matches with legitimate labels - you might consider adjusting the boundary spacing with whitespace or comments to get a different result." 
-        }
-        set result ""
-        if {[llength $warning_labels]} {
-            append result "WARNING:" \n
-            append result "The following labels had warnings" \n
-            foreach w $warning_labels {
-                append result "    [a+ bold yellow]$w[a]" \n
-            }
-        }
-        if {[llength $error_labels]} {
-            append result "ERROR: label location errors found" \n
-            append result "The following labels appear to span 512 Byte boundaries or occur on boundaries without a preceding newline and are likely to cause batch script errors" \n
-            append result "For labels spanning boundaries the label is likely to be missed by the batch interpreter" \n
-            append result "For labels occuring at boundaries but not at the beginning of a line, the label may be interpreted as a label when not expected, and the interpreter may run code on next line or next boundary" \n
-            append result "Try adding comments and/or spacing between the call site at the call_lineum indicated and the label and then re-test in case there are further boundary collisions" \n
-            foreach err $error_labels {
-                append result "    [a+ bold red]$err[a]" \n
-            }
-        }
-        if {[dict size $warning_target_labels_found] > 0} {
-            puts stdout "target-labels with minor warnings: [dict keys $warning_target_labels_found]"
-        }
-        append result "call-labels-found:   [dict keys $call_labels_found]" \n
-        append result "target-labels-found: [dict keys $target_labels_found]" \n
-        if {![llength $warning_labels] && ![llength $error_labels]} {
-            puts stderr \n
-            puts stderr "[a+ green bold]OK No warnings or errors considered major enough to return in result.[a]"
-        }
-        return $result
-    }
-    #specific filepath to just wrap one script at the  xxx-payload site
-    #scriptset name to substitute multiple scriptset.xxx files at the default locations - or as specified in scriptset.wrapconf
-        #set usage ""
-        #append usage "Use directly with the script file to wrap, or supply the name of a scriptset" \n
-        #append usage "The scriptset name will be used to search for <scriptsetname>.sh|.tcl|.ps1 or names as you specify in  yourname.wrapconfig if it exists" \n
-        #append usage "If no template is specified in a .wrapconfig and no -template argument is supplied, it will default to punk-multishell.cmd" \n
-        #if {![string length $filepath_or_scriptset]} {
-        #    puts stderr "No filepath_or_scriptset specified"
-        #    puts stderr $usage
-        #    return false
-        #}
-    proc _read_scriptset_wrap_tomlfile {fname} {
-        set resultd [dict create]
-        package require tomlish
-        set tomldata [readFile $fname]
-        #todo - fix tomlish to provide line number in ERROR structure during from_toml call.
-        if {[catch {tomlish::to_dict [tomlish::from_toml $tomldata]} tomldict]} {
-            puts stderr "Failed to parse $fname"
-            puts stderr "error: $tomldict"
-        }
-        if {[tomlish::dict::path::exists $tomldict {.application.template}]} {
-            dict set resultd template [tomlish::dict::path::get $tomldict {.application.template.value}]
-        }
-
-        if {[tomlish::dict::path::exists $tomldict {.application.as_admin}]} {
-            set val [tomlish::dict::path::get $tomldict {.application.as_admin.value}]
-            if {$val && 1} {
-                dict set resultd as_admin 1
-            } else {
-                dict set resultd as_admin 0
-            }
-        } else {
-            dict set resultd as_admin 0
-        }
-        set scripts [list] 
-        if {[tomlish::dict::path::exists $tomldict {.application.scripts.value}]} {
-            set arrvalues [tomlish::dict::path::get $tomldict {.application.scripts.value}]
-            foreach tvdict $arrvalues {
-                lappend scripts [dict get $tvdict value]
-            }
-        }
-        dict set resultd scripts $scripts
-
-        set ftail [file rootname [file tail $fname]] ;#e.g example_wrap.toml
-        set scriptset [lindex [split $ftail _] 0]
-        set fallback_outputfile $scriptset.cmd
-        set fallback_nextshellpath "/usr/bin/env tclsh"
-        set fallback_nextshelltype "tcl"
-
-        if {[tomlish::dict::path::exists $tomldict {.application.default_outputfile.value}]} {
-            dict set resultd default_outputfile [tomlish::dict::path::get $tomldict {.application.default_outputfile.value}]
-        }
-        if {[tomlish::dict::path::exists $tomldict {.application.default_nextshellpath.value}]} {
-            dict set resultd default_nextshellpath [tomlish::dict::path::get $tomldict {.application.default_nextshellpath.value}]
-        }
-        if {[tomlish::dict::path::exists $tomldict {.application.default_nextshelltype.value}]} {
-            dict set resultd default_nextshelltype [tomlish::dict::path::get $tomldict {.application.default_nextshelltype.value}]
-        }
-        foreach platform {win32 dragonflybsd freebsd netbsd linux macosx other} {
-            set d [dict create]
-            foreach field {outputfile nextshellpath nextshelltype} {
-                if {[tomlish::dict::path::exists $tomldict ".application.$platform.$field.value"]} {
-                    dict set d $field [tomlish::dict::path::get $tomldict ".application.$platform.$field.value"]
-                } else {
-                    if {[dict exists $resultd default_$field]} {
-                        dict set d $field [dict get $resultd default_$field]
-                    } else {
-                        dict set d $field [set fallback_$field]
-                    }
-                }
-            }
-            dict set resultd $platform $d
-        }
-
-        return $resultd
-    }
-    proc _default_configd {} {
-        set configd [dict create]
-        dict set configd template ""
-        dict set configd as_admin 0
-        dict set configd scripts [list]
-        dict set configd default_outputfile ""
-        dict set configd default_nextshellpath ""
-        dict set configd default_nextshelltype "none"
-        foreach os {win32 dragonflybsd freebsd netbsd linux macosx other} {
-            dict set configd $os outputfile ""
-            dict set configd $os nextshellpath ""
-            dict set configd $os nextshelltype "none"
-        }
-        return $configd
-    }
-    proc _get_nextshell_script {configd} {
-        #@SET "nextshellpath[win32___________]=tclsh___________________________________________________________________________________________________________________________"
-        #@SET "nextshelltype[win32___________]=tcl_____________"
-        #@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
-        #@SET "nextshelltype[dragonflybsd____]=tcl_____________"
-        #@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
-        #@SET "nextshelltype[freebsd_________]=tcl_____________"
-        #@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
-        #@SET "nextshelltype[netbsd__________]=tcl_____________"
-        #@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
-        #@SET "nextshelltype[linux___________]=tcl_____________"
-        #@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
-        #@SET "nextshelltype[macosx__________]=tcl_____________"
-        #@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
-        #@SET "nextshelltype[other___________]=tcl_____________"
-
-        #delimeters
-        #: <<nextshell_start>>
-        #: <<nextshell_end>>
-        set script ""
-        dict for {k v} $configd {
-            if {[llength $v] % 2 == 0 && [dict exists $v nextshelltype]} {
-                set os $k
-                set n [expr {16 - [string length $os]}]
-                set _os [string repeat _ $n]
-                set path [dict get $v nextshellpath]
-                set n [expr {128 - [string length $path]}]
-                set _path [string repeat _ $n]
-                set type [dict get $v nextshelltype]
-                set n [expr {16 - [string length $type]}]
-                set _type [string repeat _ $n]
-                append script "@SET \"nextshellpath\[$os$_os\]=$path$_path\"" \n
-                append script "@SET \"nextshelltype\[$os$_os\]=$type$_type\"" \n
-            }
-        }
-        set script [string trimright $script \n]
-        return $script
-    }
-
-    punk::args::define {
-        @id     -id ::punk::mix::commandset::scriptwrap::multishell
-        @cmd    -name punk::mix::commandset::scriptwrap::multishell\
-            -summary\
-            "Wrap script(s) into a polyglot cross-platform executable script."\
-            -help\
-            "Create a polyglot executable script that wraps constituent scripts written in
-              various scripting languages such as perl, tcl, shell script, powershell.
-              The resulting polyglot file should run cross platform on windows and various
-              types of unix-like OS. For use on windows the output file should be named with
-              a .bat or .cmd extension - but the same file with extension removed should also
-              be capable of running on FreeBSD, Linux etc.
-              Note that a polyglot script such as this may be somewhat brittle over the long
-              term with regards to default shells and scripting languages across platforms."
-        @leaders -min 1 -max 1
-        filepath_or_scriptset -type string -minsize 1 -help\
-            "Supply the path to a single script file to wrap, or the name of a scriptset.
-              The scriptset name will be used to search for <scriptset>.sh|.bash|.tcl|.ps1|.pl
-              or alternatively, names as specified in a configuration file named <scriptset>_wrap.toml
-              if it exists in the current folder, or is specified with a full path name.
-              If no template name/path is specified in a <scriptset>_wrap.toml file and no
-              -template argument is supplied the default punk.multishell.cmd will be used.
-              If the template is specified explicitly in -template as well as in the .toml
-              file - the supplied -template argument will override that specified in the
-              .toml file."
-        @opts
-        -template -type string -default "punk.multishell.cmd" -help\
-            "Templates are provided from modules or paths in the current project,
-              so available templates will vary based on whether the multishell
-              command is being run from within a project directory or not.
-              To see available templates use punk::mix::commandset::scriptwrap::templates."
-        -outputfolder -type directory -default "" -help\
-            "Folder to which to write resulting polyglot script.
-              If empty, the output will go to the <projectroot>/bin folder or
-              to the current working directory if there is no projectroot."
-        -askme          -type boolean -default 1 -help\
-            "Prompt user at console (stdin) for confirmation of operations such as
-              overwrite."
-        -force          -type boolean -default 0
-        -returnextra    -type boolean -default 0
-        @values -minvalues 0 -maxvalues 0
-    }
-    #: <<nextshell_start>>
-    #@SET "nextshellpath[win32___________]=tclsh___________________________________________________________"
-    #@SET "nextshelltype[win32___________]=tcl_____________"
-    #@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________________________________________"
-    #@SET "nextshelltype[dragonflybsd____]=tcl_____________"
-    #@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________________________________________"
-    #@SET "nextshelltype[freebsd_________]=tcl_____________"
-    #@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________________________________________"
-    #@SET "nextshelltype[netbsd__________]=tcl_____________"
-    #@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________________________________________"
-    #@SET "nextshelltype[linux___________]=tcl_____________"
-    #@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________________________________________"
-    #@SET "nextshelltype[macosx__________]=tcl_____________"
-    #@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________________________________________"
-    #@SET "nextshelltype[other___________]=tcl_____________"
-    #: <<nextshell_end>>
-    proc multishell {args} {
-        set argd [punk::args::parse $args withid ::punk::mix::commandset::scriptwrap::multishell]
-        lassign [dict values $argd] leaders opts values received
-
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set filepath_or_scriptset [dict get $leaders filepath_or_scriptset]
-        set opt_askme           [dict get $opts -askme]
-        set opt_template        [dict get $opts -template] ;#use dict exists $received -template to see if overridable in .toml
-        set opt_outputfolder    [dict get $opts -outputfolder]
-        set opt_returnextra     [dict get $opts -returnextra]
-        set opt_force           [dict get $opts -force]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-
-        set ext [file extension $filepath_or_scriptset]
-        set startdir [pwd]
-        set allowed_extensions [list tcl ps1 sh bash pl]
-        #TODO - distinct sections for sh vs bash? needs experiments..
-        #for now we use shell-payload etc
-        #set extension_langs [list tcl tcl ps1 powershell sh sh bash bash pl perl]
-        set extension_langs [list tcl tcl ps1 powershell sh shell bash shell pl perl]
-
-        if {[file pathtype $filepath_or_scriptset] ni {absolute relative}} {
-            error "bad pathtype for '$filepath_or_scriptset' (expected absolute or relative path, or name of scriptset)"
-        }
-
-        #first check if absolute path matches a file or relative path from cwd matches a file
-        if {[file pathtype $filepath_or_scriptset] eq "absolute"} {
-            set specified_path $filepath_or_scriptset
-        } else {
-            set specified_path [file join $startdir $filepath_or_scriptset]
-        }
-        set scriptdir [file dirname $specified_path]
-
-        set ext [string trim [file extension $filepath_or_scriptset] .]
-        set scriptset ""
-        if {$ext eq ""} {
-            set scriptset [file rootname [file tail $specified_path]]
-        } elseif {$ext eq "toml"} {
-            set tomltail [file tail $specified_path]
-            if {[string match *_wrap.toml $tomltail]} {
-                set scriptset [lindex [split $tomltail _] 0]
-                #if .toml was specified - the config file must exist
-                if {![file exists $specified_path]} {
-                    if {[file pathtype $filepath_or_scriptset] eq "relative"} {
-                        puts stderr "unable to locate '$specified_path' - will continue search in src/scriptapps folder"
-                    } else {
-                        #caller was specific about path - no fallback to src/scriptapps
-                        error "unable to locate '$specified_path'"
-                    }
-                }
-            } else {
-                error "supplied toml file must be of form <scriptset>_wrap.toml"
-            }
-        } else {
-            if {$ext ni $allowed_extensions} {
-                error "supplied filepath_or_scriptset must be the name of a scriptset without extension, a file named <scriptset>_wrap.toml, or a script with one of the extensions: $allowed_extensions"
-            }
-        }
-
-        set list_input_files [list]
-        set has_config 0
-        set configd [dict create]
-        if {$scriptset ne ""} {
-            puts stdout "Attempting to process all scripts belonging to scriptset '$scriptset'"
-            #.toml file may or may not exist
-            if {[file exists ${scriptset}_wrap.toml]} {
-                puts stdout "[a bold green]Loading configuration from $scriptdir/${scriptset}_wrap.toml[a]"
-                set configd [_read_scriptset_wrap_tomlfile $scriptdir/${scriptset}_wrap.toml]
-                set has_config 1
-                if {[dict exists $configd scripts]} {
-                    set configured_scripts [dict get $configd scripts]
-                    foreach s $configured_scripts {
-                        lappend list_input_files [file join $scriptdir $s]
-                    }
-                }
-                if {![llength $list_input_files]} {
-                    puts stderr "No input script files defined in {$scriptset}_wrap.toml"
-                    return false
-                }
-            } else {
-                set configd [_default_configd]
-                puts stdout "No config file for scriptset (must be named ${scriptset}_wrap.toml"
-                puts stdout "Will look for the following scripts in $scriptdir"
-                foreach e $allowed_extensions {
-                    puts stderr "$scriptset.$e"
-                }
-                foreach e [concat $allowed_extensions [string toupper $allowed_extensions]] {
-                    if {[file exists $scriptdir/$scriptset.$e]} {
-                        lappend list_input_files $scriptdir/$scriptset.$e
-                    }
-                }
-                dict set configd scripts $list_input_files
-            }
-        } else {
-            set configd [_default_configd]
-            #expect a single script
-            if {[file exists $specified_path]} {
-                lappend list_input_files $specified_path
-            }
-            dict set configd scripts [lmap f $list_input_files {file tail $f}]
-            set ftail [file tail $specified_path]
-            dict set configd default_outputfile [file rootname $ftail]
-        }
-        set found_script [expr {[llength $list_input_files] > 0}]
-
-        #TODO! - use get_wrapper_folders - multishell should use same available templates as the 'templates' function
-        if {$found_script} {
-            #found scripts at absolute path - or path relative to cwd
-            set scriptroot $scriptdir
-            set pathinfo    [punk::repo::find_repos $scriptroot]
-            set projectroot [dict get $pathinfo closest]
-            if {[file exists $scriptroot/wrappers]} {
-                set customwrapper_folder $scriptroot/wrappers
-            } else {
-                #use the specified files folder - but use the main scriptapps/wrappers folder if specified one has no wrappers subfolder
-                if {[string length $projectroot]} {
-                    set customwrapper_folder $projectroot/src/scriptapps/wrappers
-                } else {
-                    #outside of any project
-                    set customwrapper_folder ""
-                }
-            }
-        } else {
-            if {[file pathtype $filepath_or_scriptset] eq "absolute"} {
-                return false
-            }
-            set pathinfo [punk::repo::find_repos $startdir]
-            set projectroot [dict get $pathinfo closest]
-            if {![string length $projectroot]} {
-                puts stderr "No matching scripts or config found for $filepath_or_scriptset, and you are not within a directory where projectroot and src/scriptapps can be determined"
-                return false
-            }
-
-            set scriptroot $projectroot/src/scriptapps
-            set customwrapper_folder $projectroot/src/scriptapps/wrappers
-            #check something matches the scriptset..
-            if {$scriptset ne ""} {
-                #.toml file may or may not exist
-                if {[file exists $scriptroot/${scriptset}_wrap.toml]} {
-                    puts stdout "[a green]Loading configuration from $scriptroot/${scriptset}_wrap.toml[a]"
-                    set configd [_read_scriptset_wrap_tomlfile $scriptroot/${scriptset}_wrap.toml]
-                    set has_config 1
-                    if {[dict exists $configd scripts]} {
-                        set configured_scripts [dict get $configd scripts]
-                        foreach s $configured_scripts {
-                            lappend list_input_files [file join $scriptroot $s]
-                        }
-                    }
-                    if {![llength $list_input_files]} {
-                        puts stderr "No input script files defined in {$scriptset}_wrap.toml"
-                        return false
-                    }
-                } else {
-                    puts stdout "No config file for scriptset (must be named ${scriptset}_wrap.toml"
-                    puts stdout "Will look for the following scripts in $scriptroot"
-                    foreach e $allowed_extensions {
-                        puts stderr "$scriptset.$e"
-                    }
-                    foreach e [concat $allowed_extensions [string toupper $allowed_extensions]] {
-                        if {[file exists $scriptroot/$scriptset.$e]} {
-                            lappend list_input_files $scriptroot/$scriptset.$e
-                        }
-                    }
-                    set configd [_default_configd]
-                    dict set configd scripts [lmap f $list_input_files {file tail $f}]
-                }
-            } else {
-                #expect a single script
-                if {[file exists $scriptroot/$filepath_or_scriptset]} {
-                    if {[file type $scriptroot/$filepath_or_scriptset] ne "file"} {
-                        puts stderr "wrap_in_multishell doesn't currently support a directory as the path. path: $scriptroot/$filepath_or_scriptset"
-                        return false
-                    }
-                    lappend list_input_files $scriptroot/$filepath_or_scriptset
-                }
-                set configd [_default_configd]
-                dict set configd scripts [lmap f $list_input_files {file tail $f}]
-            }
-            set found_script [expr {[llength $list_input_files] > 0}]
-
-            #----------------------
-            if {!$found_script} {
-                puts stderr "Searched within $scriptdir and $scriptroot"
-                if {$scriptset ne ""} {
-                    puts stderr "Unable to find a file matching $scriptset or one of the extensions: $allowed_extensions"
-                } else {
-                    puts stderr "Unable to find file $filepath_or_scriptset"
-                }
-                return false
-            }
-
-        }
-        #assertion - customwrapper_folder var exists - but might be empty
-
-        if {[dict get $configd template] ne ""} {
-            set templatename [dict get $configd template]
-        } else {
-            if {$opt_template eq "\uFFFF"} {
-                set templatename punk.multishell.cmd
-            } else {
-                set templatename $opt_template
-            }
-            dict set configd template $templatename
-        }
-        set templatename_root [file rootname [file tail $templatename]]
-
-        #determine name of file on disk based on whether templatename is prefixed with vendor.
-        set templatename_vendor ""
-        set templatename_fileroot $templatename_root
-        if {[llength [split $templatename_root .]] > 1} {
-            set tparts  [split $templatename_root .]
-            set templatename_vendor [lindex $tparts 0]
-            set templatename_fileroot [join [lrange $tparts 1 end] .]
-        }
-
-        #assertion: templatename_fileroot is the base of the filname without the vendor and first dot
-
-        set template_base_dict [punk::mix::base::lib::get_template_basefolders]
-        set tpldirs [list]
-        dict for {tdir tsourceinfo} $template_base_dict {
-            set vendor [dict get $tsourceinfo vendor]
-            if {[file exists $tdir/utility/scriptappwrappers/$templatename]} {
-                lappend tpldirs $tdir
-            } elseif {[file exists $tdir/utility/scriptappwrappers/${templatename_fileroot}[file extension $templatename]]} {
-                lappend tpldirs $tdir
-            }
-        }
-
-        if {[string length $customwrapper_folder] && [file exists [file join $customwrapper_folder $templatename] ]} {
-            set wrapper_template [file join $customwrapper_folder $templatename]
-        } else {
-            if {![llength $tpldirs]} {
-                set msg "No template named '$templatename' found in src/scriptapps/wrappers or in template dirs from packages"
-                append msg \n "Searched [dict size $template_base_dict] template dirs"
-                error $msg
-            }
-
-            #last pkg with templates cap which was loaded has highest precedence
-            set wrapper_template ""
-            foreach tdir [lreverse $tpldirs] {
-                set ftest1 [file join $tdir utility scriptappwrappers $templatename]
-                set ftest2 [file join $tdir utility scriptappwrappers $templatename_fileroot[file extension $templatename]]
-                if {[file exists $ftest1]} {
-                    set wrapper_template $ftest1
-                    break
-                } elseif {[file exists $ftest2]} {
-                    set wrapper_template $ftest2
-                    break
-                }
-            }
-        }
-
-        if {$wrapper_template eq "" || ![file exists $wrapper_template]} {
-            error "wrap_in_multishell: unable to find multishell template $templatename in template folders [concat $tpldirs $customwrapper_folder]"
-        }
-
-
-        if {$opt_outputfolder eq ""} {
-            #outputfolder not explicitly specified by caller
-            if {[string length $projectroot]} {
-                set output_folder [file join $projectroot/bin]
-            } else {
-                set output_folder $startdir
-            }
-        } else {
-            if {[file pathtype $opt_outputfolder] eq "relative"} {
-               if {[string length $projectroot]} {
-                    set output_folder [file join $projectroot $opt_outputfolder]
-               } else {
-                    set output_folder [file join $startdir $opt_outputfolder]
-               }
-            } else {
-                set output_folder $opt_outputfolder
-            }
-        }
-        if {![file isdirectory $output_folder]} {
-            error "wrap_in_multishell: output folder '$output_folder' not found. Please ensure target directory exists"
-        }
-
-
-        #todo
-        #output_file extension may also depend on the template being used.. and/or the <scriptset>_wrap.toml config
-
-        package require platform
-        set thisplatform  [string tolower [platform::identify]]
-        set ptype [lindex [split $thisplatform -] 0]
-        switch -- $ptype {
-            win32 - dragonflybsd - freebsd - netbsd - linux - macosx {}
-            default {
-                set ptype other
-            }
-        }
-        if {$has_config} {
-            set out [dict get $configd $ptype outputfile]
-            if {[string trim $out] ne ""} {
-                set output_file [file join $output_folder $out]
-            } else {
-                #can be empty for this os if configured that way in xxx_wrap.toml
-                set output_file ""
-            }
-        } else {
-            #no _wrap.toml file available
-            if {$ptype eq "win32"} {
-                set output_extension .cmd
-            } else {
-                set output_extension .sh
-            }
-            if {$scriptset ne ""} {
-                set output_file [file join $output_folder $scriptset$output_extension]
-            } else {
-                set infile [lindex $list_input_files 0]
-                set output_file [file join $output_folder [file rootname [file tail $infile]]$output_extension]
-            }
-            dict set configd $ptype outputfile [file tail $output_file]
-        }
-        if {$output_file eq ""} {
-            puts stderr "No output file configured for platform $ptype"
-            return
-        }
-
-
-        if {[file exists $output_file]} {
-            set fdexisting [open $output_file r]
-            fconfigure $fdexisting -translation binary
-            set existing_file_data [read $fdexisting]
-            close $fdexisting
-            set objFile_existing [fileline::textinfo new $existing_file_data]
-            puts stdout "wrap_in_multishell: target file $output_file already exists. File size: [$objFile_existing chunklen] Line count: [$objFile_existing linecount]"
-            if {!$opt_force} {
-                if {$opt_askme} {
-                    set answer [util::askuser "Do you want to [a bold white Red]overwrite[a] [a bold red]$output_file[a]? Y|N"]
-                    if {[string tolower $answer] ne "y"} {
-                        puts stderr "aborting due to user response '$answer' (required Y or y to proceed) use -force 1 or -askme 0 to avoid prompts."
-                        $objFile_existing destroy
-                        error "aborting.."
-                    }
-                } else {
-                    $objFile_existing destroy
-                    error "aborting.."
-                }
-            } else {
-                puts stdout "overwriting $output_file because -force = $opt_force"
-            }
-        }
-
-
-        set fdt [open $wrapper_template r]
-        fconfigure $fdt -translation binary
-        set template_data [read $fdt]
-        close $fdt
-        puts stdout "Read [string length $template_data] bytes of template data.."
-        set template_lines [split $template_data \n]
-        puts stdout "Displaying first 3 lines of template between dashed lines..."
-        puts stdout "-----------------------------------------------"
-        foreach ln [lrange $template_lines 0 3] {
-            puts stdout $ln
-        }
-        puts stdout "-----------------------------------------------\n"
-
-        #if {[llength $list_input_files] > 1} {
-        #    #todo
-        #    puts stderr "Sorry - only single input file supported. Supply a file extension or use a <scriptset>_wrap.toml config with a single input file for now - implementation incomplete"
-        #    return false
-        #}
-
-        set lang_data [dict create]
-        foreach filepath $list_input_files {
-            set script_ext [string trim [file extension $filepath] .]
-            set lang [dict get $extension_langs [string tolower $script_ext]]
-            set fdscript [open $filepath r]
-            fconfigure $fdscript -translation binary
-            set script_data [read $fdscript]
-            close $fdscript
-            puts stdout "Read [string length $script_data] bytes of template data for lang: $lang"
-            set script_lines [split $script_data \n]
-            dict set lang_data $lang $script_lines
-            puts stdout "Displaying first 3 lines of your script [file tail $filepath] between dashed lines..."
-            puts stdout "[a green]$filepath[a]"
-            puts stdout "-----------------------------------------------"
-            foreach ln [lrange $script_lines 0 3] {
-                puts stdout $ln
-            }
-            puts stdout "-----------------------------------------------\n"
-            puts stdout "Target for script data is '$output_file'"
-            puts stdout "Language of script being wrapped is [a bold yellow]$lang[a]"
-            if {$opt_askme} {
-                set answer [util::askuser "Does this look correct? Y|N"]
-                if {[string tolower $answer] ne "y"} {
-                    puts stderr "mix new aborting due to user response '$answer' (required Y or y to proceed)  use -askme 0 to avoid prompts."
-                    return
-                }
-            }
-        }
-
-        set template_ranges [list]
-        set data_items [list]
-        set trange [list 0]
-        set line_idx -1
-        set opentag ""
-        foreach ln $template_lines {
-            incr line_idx
-            if {$opentag eq ""} {
-                if {[string match ": <<asadmin_start>>*" $ln]} {
-                    set opentag asadmin
-                    lset trange 1 $line_idx ;#include tag in template
-                    lappend template_ranges $trange
-                    set trange [list $line_idx]
-                    set asadmin [dict get $configd as_admin]
-                    set scr "@SET \"asadmin=$asadmin\""
-                    lappend data_items $scr
-                } elseif {[string match ": <<nextshell_start>>*" $ln]} {
-                    set opentag nextshell
-                    lset trange 1 $line_idx
-                    lappend template_ranges $trange
-                    set trange [list $line_idx]
-                    set nextshell_script [_get_nextshell_script $configd]
-                    #puts stderr "-------------------"
-                    #puts stderr "$nextshell_script"
-                    lappend data_items $nextshell_script
-                } elseif {[string match  "#<*-payload>*" $ln]} {
-                    regexp {#<(.*)-payload>.*} $ln _ lang
-                    if {[dict exists $lang_data $lang]} {
-                        set script_lines [dict get $lang_data $lang]
-                        set opentag payload-$lang
-                        lset trange 1 $line_idx
-                        lappend template_ranges $trange
-                        lappend data_items [join $script_lines \n]
-                    }
-                }
-            } else {
-                switch -- [string range $opentag 0 6] {
-                    asadmin {
-                        if {[string match ": <<asadmin_end>>*" $ln]} {
-                            set trange [list $line_idx]
-                            set opentag ""
-                        }
-                    }
-                    nextshe {
-                        if {[string match ": <<nextshell_end>>*" $ln]} {
-                            set trange [list $line_idx]
-                            set opentag ""
-                        }
-                    }
-                    payload {
-                        set lang [string range $opentag 8 end] ;#payload-xxx
-                        if {[string match "#</$lang-payload>*" $ln]} {
-                            set trange [list $line_idx]
-                            set opentag ""
-                        }
-                    }
-                }
-            }
-        }
-        if {$opentag eq ""} {
-            lset trange 1 end
-            lappend template_ranges $trange
-        } else {
-            error "multishell - unable to find closing tag for '$opentag'"
-        }
-        set newscript ""
-        foreach trange $template_ranges item $data_items {
-            append newscript [join [lrange $template_lines {*}$trange] \n]
-            if {$item ne ""} {
-                append newscript \n $item \n
-            } else {
-                append newscript \n
-            }
-        }
-
-
-
-        puts stdout "New script is [string length $newscript] bytes"
-        puts stdout $newscript
-
-        set fdtarget [open $output_file w]
-        fconfigure $fdtarget -translation binary
-        puts -nonewline $fdtarget $newscript
-        close $fdtarget
-        puts stdout "Wrote script file at $output_file"
-        set check_result [checkfile $output_file]
-        set with_errors ""
-        set with_warnings ""
-        set call_labels [list]
-        set target_labels [list]
-        set errorlist [list]
-        set warninglist [list]
-        if {$check_result ne ""} {
-            puts stdout $check_result
-            set check_lines [split $check_result \n]
-            foreach cl $check_lines {
-                set trimcl [string trim $cl]
-                if {[string match "ERROR:*" $trimcl]} {
-                    set with_errors "[a+ bold red]with errors[a]" 
-                    lappend errorlist $trimcl
-                }
-                if {[string match "WARNING:*" $trimcl]} {
-                    set with_warnings "[a+ bold yellow] with warnings[a]"
-                    lappend errorlist $trimcl
-                }
-                if {[string match "call-labels-found:*" $trimcl]} {
-                    set call_labels [string trim [string range $trimcl [string length "call-labels-found:"] end]]
-                }
-                if {[string match "target-labels-found:*" $trimcl]} {
-                    set target_labels [string trim [string range $trimcl [string length "target-labels-found:"] end]]
-                }
-            }
-        } else {
-            puts stderr "Expected output from checkfile - but got none"
-        }
-        #even though chmod might exist on windows - we will leave permissions alone
-        if {$::tcl_platform(platform) ne "windows"} {
-            catch {exec chmod +x $output_file}
-        }
-        puts stdout "-done- $with_errors $with_warnings"
-        if {$opt_returnextra} {
-            set result [list filename $output_file batch_call_labels $call_labels batch_target_labels $target_labels]
-            if {[llength $warninglist]} {
-                dict set result warnings $warninglist
-            }
-            if {[llength $errorlist]} {
-                dict set result errors $errorlist
-            }
-        } else {
-            set result [list filename $output_file]
-        }
-
-        return $result
-    }
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::mix::commandset::scriptwrap ---}]
-
-    namespace eval lib {
-        #*** !doctools
-        #[subsection {Namespace punk::mix::commandset::scriptwrap::lib}]
-        #[para] Library API functions for punk::mix::commandset::scriptwrap
-        #[list_begin definitions]
-
-        punk::args::define {
-            @id     -id ::punk::mix::commandset::scriptwrap::lib::get_wrapper_folders
-            #*** !doctools
-            #[call [fun get_wrapper_folders] [arg args] ]
-            #[para]    Return list of dicts representing wrapper folders in the project. keys: basefolder sourceinfo
-            #[para] Arguments:
-            #   [list_begin arguments]
-            #       [arg_def string args] name-value pairs -scriptpath <path>
-            #   [list_end]
-            @cmd    -name punk::mix::commandset::scriptwrap::lib::get_wrapper_folders -help\
-                "Return list of dicts representing wrapper folders in the project. keys: basefolder sourceinfo"
-            @opts -anyopts 0
-            -scriptpath -default "" -type directory\
-                -help ""
-            #todo -help folder within a punk.templates provided area???
-            @values -minvalues 0 -maxvalues 0
-        }
-        proc get_wrapper_folders {args} {
-            set argd [punk::args::parse $args withid ::punk::mix::commandset::scriptwrap::lib::get_wrapper_folders]
-
-            # -- --- --- --- --- --- --- --- ---
-            set opt_scriptpath [dict get $argd opts -scriptpath]
-            # -- --- --- --- --- --- --- --- ---
-
-            set wrapper_template_bases [list]
-            set tbasedict [punk::mix::base::lib::get_template_basefolders $opt_scriptpath]
-            dict for {tbase folderinfo} $tbasedict {
-                set wrapf [file join $tbase utility/scriptappwrappers]
-                if {[file isdirectory $wrapf]} {
-                    lappend wrapper_template_bases [list basefolder $wrapf sourceinfo $folderinfo]
-                }
-            }
-            return $wrapper_template_bases
-        }
-
-
-        
-        proc _scriptapp_tag_from_line {line} {
-            set result [list istag 0 raw ""] ;#default assumption. All 
-            #----
-            set startc [string first "#" $line] ;#tags must be commented
-            #todo - review. next line is valid - note # doesn't have to be the only one before <tagname>  
-            # @REM # etc < blah # <tagname> etc 
-            #---
-            #fix - we should use a regexp on at least <tagname> </tagname> <tagname/> and only catch tagname without whitespace
-            regexp {(\s*).*} $line _ln indent  ;#will match on empty line, whitespace only line - or anything really.
-            set indent [string map [list \t "    "] $indent] ;#opinionated I guess - but need to normalize to something. The spec is that spaces should be used anyway.
-            dict set result indent [string length $indent]
-            set starttag [string first "<" $line]
-            set pretag [string range $line $startc $starttag-1] 
-            if {[string match "*>*" $pretag]} {
-                return [list istag 0 raw $line reason pretag_contents]
-            }
-            set closetag [string first ">" $line] 
-            set inelement [string range $line $starttag+1 $closetag-1]
-            if {[string match "*<*" $inelement]} {
-                return [list istag 0 raw $line reason tag_malformed_angles]
-            }
-            set elementchars [split $inelement ""]
-            set numslashes [llength [lsearch -all $elementchars "/"]]
-            if {$numslashes == 0} {
-                dict set result type "open"
-            } elseif {$numslashes == 1} {
-                if {[lindex $elementchars 0] eq "/"} {
-                    dict set result type "close"
-                } elseif {[lindex $elementchars end] eq "/"} {
-                    dict set result type "openclose"
-                } else {
-                    return [list istag 0 raw $line reason tag_malformed_slashes]
-                }
-            } else {
-               return [list istag 0 raw $line reason tag_malformed_extraslashes]
-            }
-            if {[dict get $result type] eq "open"} {
-                dict set result name $inelement
-            } elseif {[dict get $result type] eq "close"} {
-                dict set result name [string range $inelement 1 end]
-            } else {
-                dict set result name [string range $inelement 0 end-1]
-            }
-            dict set result istag 1
-            dict set result raw $line
-            return $result
-        }
-
-        #get all \n#<something>\n ...\n#</something>  data - where number of intervening newlines is at least one (and whitespace and/or other data can precede #)
-        #we don't verify 'something' against known tags - as custom templates can have own tags
-        #An openclose tag #<xxx/>  is used to substitute a specific line in its entirety - but the tag *must* remain in the line
-        #
-        #e.g for the line:
-        #   @set "nextshell=pwsh" & :: #<batch-nextshell-line/>
-        #The .wrapconfig might contain
-        #   tag <batch-nextshell-line> line {@set "nextshell=tclsh" & :: @<batch-nextshell-line/>}
-        #
-        proc scriptapp_wrapper_get_tags {wrapperdata} {
-            set wrapperdata [string map [list \r\n \n] $wrapperdata]
-            set lines [split $wrapperdata \n]
-            #set tags_in_data [dict create];#active tags - list of lines accumulating. supports nested tags
-            set status 0
-            set tags [dict create]
-            set errors [list]
-            set errortags [dict create] ;#mark names invalid on first error so that more than 2 tags can't obscure config problem
-            set linenum 1 ;#editors and other utils use 1-based indexing when referencing files - we should too to avoid confusion, despite it being less natural for lindex operations on the result.
-            foreach ln $lines {
-                set lntrim [string trim $ln]
-                if {![string length $lntrim]} {
-                    incr linenum
-                    continue
-                }
-                if {[string match "*#*<*>*" $lntrim] || [string match "*:*<*>*" $lntrim]} {
-                    set taginfo [_scriptapp_tag_from_line $ln] ;#use untrimmed line - to get indent
-                    if {[dict get $taginfo istag]} {
-                       set nm [dict get $taginfo name]
-                       if {[dict exists $errortags $nm]} {
-                           #tag is already in error condition - 
-                       } else {
-                            set tp [dict get $taginfo type] ;# type singular - related to just one line
-                            #set raw [dict get $taginfo raw] #equivalent to $ln
-                            if {[dict exists $tags $nm]} {
-                                #already seen tag name
-                                #tags dict has types key *plural* - need to track whether we have type open and type close (or openclose for self-closing tags)
-                                if {[dict get $tags $nm types] ne "open"} { 
-                                    lappend errors "line: $linenum tag $nm encountered type $tp after existing type [dict get $tags $nm types]"
-                                    dict incr errortags $nm
-                                } else {
-                                    #we already have open - expect only close
-                                    if {$tp ne "close"} {
-                                        lappend errors "line: $linenum tag $nm encountered type $tp after existing type [dict get $tags $nm types]"
-                                        dict incr errortags $nm 
-                                    } else {
-                                        #close after open
-                                        dict set tags $nm types [list open close]
-                                        dict set tags $nm end $linenum
-                                        set taglines [dict get $tags $nm taglines]
-                                        if {[llength $taglines] != 1} {
-                                            error "Unexpected result when closing tag $nm. Existing taglines length not 1."
-                                        }
-                                        dict set tags $nm taglines [concat $taglines $ln]
-                                    }
-                                }
-                            } else {
-                                #first seen of tag name
-                                switch -- $tp {
-                                    close {
-                                        lappend errors "line: $linenum tag $nm encountered type $p close first"
-                                        dict incr errortags $nm
-                                    }
-                                    open {
-                                        dict set tags $nm types open 
-                                        dict set tags $nm indent [dict get $taginfo indent]
-                                        dict set tags $nm start $linenum
-                                        dict set tags $nm taglines [list $ln] ;#first entry - another will be added on encountering matching closing tag
-                                    }
-                                    openclose {
-                                        dict set tags $nm types openclose 
-                                        dict set tags $nm indent [dict get $taginfo indent]
-                                        dict set tags $nm start $linenum
-                                        dict set tags $nm end $linenum
-                                        dict set tags $nm taglines [list $ln] ;#single entry is final result for self-closing tag
-                                    }
-                                }
-                            }
-                        }
-                    } else {
-                        #looks like it should be a tag.. but failed to even parse for some reason.. just add to errorlist
-                        lappend errors "line: $linenum tag parse failure reason: [dict get $taginfo reason] raw line: [dict get $taginfo raw]"
-                    }
-                }
-                #whether the line is tag or not append to any tags_in_data
-                #foreach t [dict keys $tags_in_data] {
-                #    dict lappend tags_in_data $t $ln ;#accumulate raw lines - written to the tag entry in tags only on encountering a closing tag, then removed from tags_in_data
-                #}
-                incr linenum
-            }
-            #assert [expr {$linenum -1 == [llength $lines]}]
-            if {[llength $errors]} {
-                set status 0
-            } else {
-                set status 1
-            }
-            if {$linenum == 0} {
-                
-            }
-            return [dict create ok $status linecount [llength $lines] data $tags errors $errors]
-        }
-
-        #*** !doctools
-        #[list_end] [comment {--- end definitions namespace punk::mix::commandset::scriptwrap::lib ---}]
-    }
-
-    namespace eval batchlib {
-        #*** !doctools
-        #[subsection {Namespace punk::mix::commandset::scriptwrap::batchlib}]
-        #[para] Utility funcions for processing windows .bat files
-        #[list_begin definitions]
-
-        #see also: https://www.dostips.com/forum/viewtopic.php?t=3803  'Rules for label names vs GOTO and CALL
-        # review - we may need different get_callsite_label functions?
-    
-        proc get_callsite_label {labelstart} {
-            #labelstart is the character immediately following the colon (which is optional at callsite) - a label such as ::label doesn't seem valid at call or target sites
-            #e.g for @goto %= possible comment=% :mylabe%%l etc
-            #we would expect to be passed only "mylabe%%1 etc"
-            #It is up to the caller to determine where a callsite label begins.
-            #note that:
-            #@REM -----
-            #@goto ^
-            #:label
-            #@REM-----
-            # is a valid callsite - but doesn't appear to be found by the label scanner as it's own target label even though :label is on it's own line from non-batch perspective
-            # so the caller will have to do some batch-style line processing to find all call sites
-            #Also, for the following 2 lines 
-            #@REM ^
-            #:label
-            # the label will be found - yet if the :label was a command such as @GOTO - it would not be run as a callsite 
-
-
-            #a quick'n'dirty fix for some ways various escapes are handled within labels at callsite.
-            #There seem to be very different rules for labels at target site - presumably because they are not part of a command
-            # Mostly it seems target labels are more literal with regards to % chars - but ^ are processed the same way at target label
-            #some rules..
-            #callsite labels can't have space between : and label - but target labels can
-            #label terminated by =,: even if prefixed by ^ and even if in squotes or dquotes
-            #squotes and dquotes otherwise pass through as part of label
-            #may resolve variables within the label - but characters from variable value can terminate.
-            #as we don't have access to the variable values - we should normalize %varname% to empty string at callsite - but perhaps emit warning somewhere 
-            # The target labels don't seem to 
-            #a single % resolves to empty - depending. (starts invar processing - and decides if it was a var depending on whether it was closed?)
-            #sequences of % don't begin a var - number of % in labelname = number of %s divided by 2 and rounded down. ie 1->0 2->1 3-> 1 4->2 5->2 6->3 etc
-            #spaces in % wrapped var names don't terminate label 
-            #spaces aren't escaped by ^ or quoting
-            #sequences of ^ seem to follow same counting rule as %
-            #e.g  @goto :la%path%bel  where path begins with C:\Program Files..   becomes label :laC
-
-            if {[string index $labelstart 0] in [list : " " \t = {;}]} {
-                #return everything as tail - nothing was consumed
-                return [list labelfound 0 note "invalid first character for callsite label" tail $labelstart]
-            }
-
-            #The due to whitespace and most chars except : and % being alowed inside vars - it seems the best first step
-            # -------------- start % handling %
-            set inputchars [split $labelstart ""]
-            set percentrun 0 ;#0|1 because we use invar-toggling rather than running total of number of percents in a sequence
-            set invar 0
-            set labelout ""
-            set varsfound [list]
-            set varterminals [list :]
-            set labelterminals [list + , {;} = " " \t]
-            set varname ""
-            set caretseq 0
-            set inputconsumed 0 
-            foreach c $inputchars {
-                if {!$invar} {
-                    switch -- $c {
-                        "%" {
-                            set caretseq 0
-                            set lookahead [lrange $inputchars $inputconsumed+1 end]
-                            if {"%" in $lookahead} {
-                                set invar 1
-                                incr percentrun
-                            } else {
-                                incr percentrun 
-                            }
-                        }
-                        "^" {
-                            if {$caretseq} {
-                                set caretseq 0
-                                append labelout "^" ;#for every pair encountered in direct sequence - second gets included in label
-                            } else {
-                                set caretseq 1
-                            }
-                        }
-                        default {
-                            set caretseq 0
-                            if {$percentrun && ($c in [list 0 1 2 3 4 5 6 7 8 9])} {
-                                #subst %i with value - here we have no way of getting that - so use blank - user will get warning that target not found
-                                set percentrun 0
-                            } else {
-                                append labelout [string repeat % [expr {$percentrun / 2}]] 
-                                set percentrun 0
-                                if {$c in $labelterminals} {
-                                    break
-                                }
-                                append labelout $c
-                            }
-                        }
-                    }
-                } else {
-                    #in var - don't do anything with carets(?)
-                    switch -- $c {
-                        % {
-                            if {$percentrun == 1} {
-                                #double percent - rather than just an empty var - emit one % 
-                                append labelout %
-                                set invar 0
-                                set percentrun 0
-                            } else {
-                                #presume percentrun is 0 
-                                set invar 0
-                                lappend varsfound $varname; set varname ""
-                            }
-                        }
-                        : {
-                            #$varterminals
-                            set invar 0
-                            lappend varsfound $varname; set varname ""
-                        }
-                        default {
-                            if {$percentrun && ($c in [list 0 1 2 3 4 5 6 7 8 9])} {
-                                #review - seems to terminate var - and substitute?
-                                #this branch untested  - case where we have %i  and further %  - what if it was %1var% ? does %1 get substituted ? or %1var% - test
-                                set invar 0
-                                append varname $c
-                            } else {
-                                append varname $c
-                            }
-                            set percentrun 0
-                        }
-                    }
-
-
-                    #if {$c eq "%" && $percentrun == 1} {
-                    #    #double percent - rather than just an empty var - emit one % 
-                    #    append labelout %
-                    #    set invar 0
-                    #    set percentrun 0
-                    #} elseif {$c eq "%"} {
-                    #    #presume percentrun is 0 
-                    #    set invar 0
-                    #    lappend varsfound $varname; set varname ""
-                    #} elseif {$c in $varterminals} { 
-                    #    set invar 0
-                    #    lappend varsfound $varname; set varname ""
-                    #} else {
-                    #    if {$percentrun && ($c in [list 0 1 2 3 4 5 6 7 8 9])} {
-                    #        #review - seems to terminate var - and substitute?
-                    #        #this branch untested  - case where we have %i  and further %  - what if it was %1var% ? does %1 get substituted ? or %1var% - test
-                    #        set invar 0
-                    #        append varname $c
-                    #    } else {
-                    #        append varname $c
-                    #    }
-                    #    set percentrun 0
-                    #}
-                }
-                incr inputconsumed
-            }
-            # -------------- end % handling %
-            set tail [string range $labelstart $inputconsumed end]
-            #caret -- etc
-            if {$labelout eq ""} {
-                set resultdict [dict create labelfound 0]
-                if {[llength $varsfound]} {
-                    dict set resultdict vars $varsfound
-                    dict set resultdict note "empty label but vars exist - may be legit"
-                } else {
-                    dict set resultdict note "empty label - no vars"
-                }
-                dict set resultdict tail $tail
-                return $resultdict
-            }
-
-            return [list labelfound 1 label $labelout tail $tail]
-        }
-        proc get_target_label_from_line {labelline} {
-            #scan a whole line - or a 'line' starting at some chunk boundary we found for a label
-            #caller should resolve any trailing caret and subsequent line and include them in the call
-            #note that we may be scanning all sorts of things in a polyglot file - but we're interested in seeing if cmd.exe might interpret it as a label
-            #target labels don't have %var% processing - they will be literal
-            set firstcolon [string first : $labelline]
-            if {$firstcolon == -1} {
-                return [list labelfound 0 note "no_colon"]
-            }
-            set prefixpart [string range $labelline 0 $firstcolon-1]
-            set targetpart [string range $labelline $firstcolon+1 end]
-
-            set prefixok 1;#default assumption
-            set invisible_prefix_chars [list {;} , = " " \t]
-            set prefixchars [split $prefixpart ""] 
-            # % and ^ in the prefix - whether doubled etc or not - will stop label being found
-            #ANY first char seems to be allowed in prefixpart (it won't be colon, because we already split on that)
-            #perhaps this is done by cmd.exe to reduce off-by-one errors??  weird...
-            # but it does allow labels to be found in certain # tcl/bashsh comment lines, which could be both dangerous and ...useful.
-            #start prefix check at char 1 instead of 0
-            foreach pchar [lrange $prefixchars 1 end] {
-                if {$pchar ni $invisible_prefix_chars} {
-                    set prefixok 0
-                    break
-                }
-            }
-            if {!$prefixok} {
-                return [list labelfound 0 note "prefix_fail"]
-            }
-
-            #no problems before colon - now see if targetpart can be interpreted as a label
-            #we again have some potential invisible chars before label begins.
-            set charindex [expr {$firstcolon +1}] ;#track position so we can return index of where we believe label begins
-            set targetchars [split $targetpart ""] 
-            set inlabel 0
-            set labelposn -1
-            # --- 
-            set inlabel_terminals [list : + " " \t \r \n] ;# , ; =  don't seem to terminate a target label, but do terminate a calling label 
-            # + and whitespace terminate caller and target
-            # --- 
-            # consider:
-            #@goto :14^
-            # :14^ 
-            #caller is searching for label "14" but won't match - presumably target scanner has escaped the trailing space
-            set label ""
-            set rawlabel ""
-            set caretseq 0 ;# 0|1
-            foreach tchar $targetchars {
-                if {$tchar in [list + :]} {
-                    break
-                }
-                if {!$inlabel} {
-                    if {$tchar ni $invisible_prefix_chars} {
-                        #beginning of target label
-                        set labelposn $charindex
-                        set inlabel 1 
-                        append rawlabel $tchar
-                        if {$tchar eq "^"} {
-                            set caretseq 1
-                        } else {
-                            append label $tchar
-                        }
-                    }
-                } else {
-                    if {$tchar in $inlabel_terminals} {
-                        #caret stops them from terminating
-                        if {$caretseq} {
-                            set caretseq 0
-                            append label $tchar
-                            append rawlabel $tchar
-                        } else {
-                            break
-                        }
-                    } else {
-                        append rawlabel $tchar
-                        if {$tchar eq "^"} {
-                            if {$caretseq} {
-                                set caretseq 0
-                                append label "^" ;#for every pair encountered in direct sequence - second gets included in label
-                            } else {
-                                set caretseq 1
-                            }
-                        } else {
-                            set caretseq 0
-                            append label $tchar ;#for target labels - all including %var% is directly part of the label target
-                        }
-                    }
-                }
-                incr charindex
-            }
-            if {$labelposn == -1} {
-                return [list labelfound 0 note "no_label_found_after_colon"]
-            }
-
-            #return rawlabel so we can see it as it appears in the data - as opposed to how it is interpreted as a label by cmd.exe
-            return [list labelfound 1 label $label rawlabel $rawlabel]
-        }
-        #*** !doctools
-        #[list_end] [comment {--- end definitions namespace punk::mix::commandset::scriptwrap::batchlib ---}]
-    }
-
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::mix::commandset::scriptwrap [namespace eval punk::mix::commandset::scriptwrap {
-    variable version
-    set version 0.1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates-0.1.0.tm
deleted file mode 100644
index 63b5335c..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates-0.1.0.tm
+++ /dev/null
@@ -1,94 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::templates 0.1.0
-# Meta platform     tcl
-# Meta license      BSD
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::cap
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::templates {
-    variable pkg punk::mix::templates
-    variable cap_provider
-
-    namespace eval capsystem {
-        if {[info commands capprovider.registration] eq ""} {
-            punk::cap::class::interface_capprovider.registration create capprovider.registration
-            oo::objdefine capprovider.registration {
-                method get_declarations {} {
-                    set decls [list]
-                    lappend decls [list punk.templates {path templates pathtype adhoc vendor _project}] ;#todo - split out to a different provider package?
-
-                    lappend decls [list punk.templates {path templates pathtype module vendor punk}]
-                    #only punk::templates is allowed to register a _multivendor path - review
-                    #other punk.template providers should use module, absolute, currentproject and shellproject pathtypes only
-                    lappend decls [list punk.templates {path src/decktemplates pathtype currentproject_multivendor vendor punk}]
-                    lappend decls [list punk.templates {path decktemplates pathtype shellproject_multivendor vendor punk}]
-
-
-                    #we need a way to ensure we don't pull updates from a remote repo into a local project that is actually the same project ? review!
-                    #need flags as to whether/how provider allows template updates that are out of sync with the provider pkg version
-                    #perhaps a separate .txt file (alongside buildversion and description txt files) that has some package require statements (we can't put them in the template itself as the filled template may have nothing to do with the punk.templates provider)
-                    lappend decls [list punk.templates {path src/decktemplates/vendor/punk pathtype currentproject vendor punk allowupdates 0 repo "https://www.gitea1.intx.com.au/jn/punkshell" reposubdir "src/decktemplates/vendor/punk"}]
-                    lappend decls [list punk.isbogus {provider punk::mix::templates something blah}] ;#some  capability for which there is no handler to validate - therefore no warning will result.
-                    #review - we should report unhandled caps somewhere, or provide a mechanism to detect/report.
-                    #we don't want to warn at the time this provider is loaded - as handler may legitimately be loaded later.
-                    return $decls
-                }
-            }
-        }
-    }
-
-    if {[info commands provider] eq ""} {
-        punk::cap::class::interface_capprovider.provider create provider punk::mix::templates
-        oo::objdefine provider {
-            method register {{capabilityname_glob *}} {
-                #puts  registering punk::mix::templates $capabilityname
-                next $capabilityname_glob
-            }
-            method capabilities {} {
-                next
-            }
-        }
-    }
-
-    # -- ---
-    #provider api
-    # -- ---
-    #none - declarations only
-    #todo - template folder install/update/status methods?
-}
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::mix::templates [namespace eval punk::mix::templates {
-    variable version
-    set version 0.1.0
-}]
-return
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd
deleted file mode 100644
index 1cb9e0ef..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd
+++ /dev/null
@@ -1,270 +0,0 @@
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide s {proc $s args {}}; Hide :;rename set s2;Hide set;s2 1 list]"; set -- : "$@"; $1 = @'
-: heredoc1 - hide from powershell (close sqote for unix shells) ' \
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo]#not necessary but can help avoid errs in testing"
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-@REM {
-@REM DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required and will reduce functionality.
-@REM Even comment lines can be part of the functionality of this script - modify with care.
-@REM Change the value of nextshell in the next line if desired, and code within payload sections as appropriate.
-@SET "nextshell=pwsh"
-@REM nextshell set to pwsh,sh,bash or tclsh
-@REM @ECHO nextshell is %nextshell%
-@SET "validshells=pwsh,sh,bash,tclsh"
-@CALL SET keyRemoved=%%validshells:%nextshell%=%%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix)
-@REM  -- This section intended only to launch the next shell
-@REM  -- Avoid customising this if possible. cmd/batch script is probably the least expressive language.
-@REM  -- custom windows payloads should be in powershell,tclsh or sh/bash code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@IF %nextshell%==pwsh (
-    CALL pwsh -nop -c set-executionpolicy -Scope CurrentUser RemoteSigned
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-    REM test availability of preferred option of powershell7+ pwsh
-    CALL pwsh -nop -nol -c write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    IF !pwshtest_exitcode!==0 CALL pwsh -nop -nol "%~dp0%~n0.ps1" %* & SET task_exitcode=!errorlevel!
-    REM fallback to powershell if pwsh failed 
-    IF NOT !pwshtest_exitcode!==0 (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        CALL powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF %nextshell%==bash (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        CALL %nextshell% "!wslpath!%fname%" %* & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            CALL %nextshell% "%~dp0%fname%" %* & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value %nextshell% valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit
-        )
-    )
-)
-@GOTO :endlib
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@GOTO :eof
-:endlib
-
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit
-@GOTO :exit
-# }
-# rem call %nextshell% "%~dp0%~n0.cmd" %* 
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s2 set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup
-Hide :exit;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    :
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# unbal }
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: cmd exit label - return exitcode 
-:exit
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat
deleted file mode 100644
index aa9039a9..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat
+++ /dev/null
@@ -1,112 +0,0 @@
-: "[proc : args {}]" ;# *tcl shellbat - call with sh,bash,tclsh on any platform, or with cmd on windows.
-: <<'HIDE_FROM_BASH_AND_SH'
-: ;# leading colon hides from .bat, trailing slash hides next line from tcl \
-@call tclsh "%~dp0%~n0.bat" %*
-: ;#\
-@set taskexitcode=%errorlevel% & goto :exit
-# -*- tcl -*-
-# #################################################################################################
-# This is a tcl shellbat file
-# It is tuned to run when called as a batch file, a tcl script, an sh script or a bash script,
-# so the specific layout and characters used are quite sensitive to change.
-# It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# e.g ./filename.sh.bat in sh or bash or powershell
-# e.g filename.sh or filename.sh.bat at windows command prompt
-# e.g tclsh filename.sh.bat |  sh filename.sh.bat  | bash filename.sh.bat
-# In all cases an arbitrary number of arguments are accepted
-# To avoid the initial commandline on stdout when calling as a batch file on windows, use:
-# cmd /Q /c filename.sh.bat
-# (because we cannot use @if to silence it, as this isn't understood by tcl,sh or bash)
-# #################################################################################################
-#fconfigure stdout -translation crlf
-# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-
-
-#<tcl-payload>
-#<tcl-payload/>
-
-# --- --- --- --- --- --- --- --- --- --- --- --- ---
-# only exit if needed. see exitcode notes at bottom of file and exit there for consistency across invocation methods
-# --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-#--
-#-- bash/sh code follows. 
-#-- protect from tcl using line continuation char on the previous comment for each line, like so: \
-printf "etc"
-#-- or alternatively place sh/bash script within the false==false block
-#-- whilst being careful to balance braces {}
-#-- For more complex needs you should call out to external scripts
-#--
-#-- END marker for hide_from_bash_and_sh\
-HIDE_FROM_BASH_AND_SH
-
-#---------------------------------------------------------
-#-- This if statement hides(mostly) a sh/bash code block from Tcl
-if false==false # else { 
-then
-:
-#---------------------------------------------------------
-    #-- leave as is if all that's required is launching the Tcl payload"
-    #--
-    #-- Note that sh/bash script isn't called when running a .bat from cmd.exe on windows by default
-    #-- adjust line 4:  @call tclsh ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-    #--   if sh/bash scripting needs to run on windows too.
-    #--
-    #printf "start of bash or sh code"
-    
-    #<shell-payload-pre-tcl>
-    #</shell-payload-pre-tcl>
-
-
-    #-- sh/bash launches Tcl here instead of shebang line at top
-    #<shell-launch-tcl>
-    #-- use exec to use exitcode (if any) directly from the tcl script
-    exec /usr/bin/env tclsh "$0" "$@"
-    #</shell-launch-tcl>
-    
-    #-- alternative - if sh/bash script required to run after the tcl call.
-    #/usr/bin/env tclsh "$0" "$@"
-    #tcl_exitcode=$?
-    #echo "tcl_exitcode: ${tcl_exitcode}"
-    
-    #<shell-payload-post-tcl>
-    #</shell-payload-post-tcl>
-    
-    #-- override exitcode example
-    #exit 66
-    
-    #printf "No need for trailing slashes for sh/bash code here\n"
-#---------------------------------------------------------
-fi
-# closing brace for Tcl }
-#---------------------------------------------------------
-
-#-- tcl and shell script now both active
-
-#-- comment for line sample 1 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 1 \n"
-
-#-- comment for line sample 2 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 2 \n"
-
-
-#-- Consistent exitcode from sh,bash,tclsh or cmd
-#-- Call exit in tcl (or sh/bash) code only if explicitly required, otherwise leave this commented out.
-#-- (script might be more widely useable without explicit exit. e.g in tcl: set ::argc 1; set ::argv "val"; source filename.sh.bat )
-#-- exit line unprotected by trailing slash will work for tcl and/or sh/bash
-#exit 0 
-#exit 42
-
-
-
-#-- make sure sh/bash/tcl all skip over .bat style exit \
-: <<'shell_end'
-#-- .bat exit with exitcode from tcl process \
-:exit
-: ;# \
-@exit /B %taskexitcode%
-# .bat has exited \
-shell_end
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd
index 9de4c125..3bf8e0b1 100644
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd
+++ b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd
@@ -1,5 +1,5 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
+: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh zsh/bash cmd pwsh powershell" + "[rename set S;proc Hide shell_not_supported {proc $shell_not_supported args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
+set -- "$@" "a=[Hide <#;Hide set;S 1 list]"; set -- : "$@";$1 = @'
 : heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
 : .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
 : "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
@@ -13,52 +13,113 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 : Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
 :  {
 @REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, (some sh) and/or powershelll (powershell.exe or pwsh.exe)
+@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, zsh, bash, (sh diversion) and/or powershelll (powershell.exe or pwsh.exe)
 @REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
 @REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: deck scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
+@rem -------------------------------------------------------------------------------------------------------------------------------
+@rem return from endlocal macro - courtesy of jeb
+@rem This allows return of values containing special characters from subroutines
+@rem https://stackoverflow.com/questions/3262287/make-an-environment-variable-survive-endlocal/8257951#8257951
+@rem -------------------------------------------------------------------------------------------------------------------------------
+@setlocal DisableDelayedExpansion
+@echo off
+%= 2 blank lines after next are required =%
+set LF=^
+
+
+set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"
+%=   I use EDE for EnableDelayeExpansion and DDE for DisableDelayedExpansion =%
+set ^"endlocal=for %%# in (1 2) do if %%#==2 (%\n%
+   setlocal EnableDelayedExpansion%\n%
+ %=       Take all variable names into the varName array       =%%\n%
+   set varName_count=0%\n%
+   for %%C in (!args!) do set "varName[!varName_count!]=%%~C" ^& set /a varName_count+=1%\n%
+ %= Build one variable with a list of set statements for each variable delimited by newlines =%%\n%
+ %= The lists looks like --> set result1=myContent\n"set result1=myContent1"\nset result2=content2\nset result2=content2\n     =%%\n%
+ %= Each result exists two times, the first for the case returning to DDE, the second for EDE =%%\n%
+ %= The correct line will be detected by the (missing) enclosing quotes  =%%\n%
+   set "retContent=1!LF!"%\n%
+   for /L %%n in (0 1 !varName_count!) do (%\n%
+      for /F "delims=" %%C in ("!varName[%%n]!") DO (%\n%
+         set "content=!%%C!"%\n%
+         set "retContent=!retContent!"set !varName[%%n]!=!content!"!LF!"%\n%
+         if defined content (%\n%
+ %=      This complex block is only for replacing '!' with '^!'      =%%\n%
+ %=    First replacing   '"'->'""q'   '^'->'^^' =%%\n%
+         set ^"content_EDE=!content:"=""q!"%\n%
+         set "content_EDE=!content_EDE:^=^^!"%\n%
+ %= Now it's poosible to use CALL SET and replace '!'->'""e!' =%%\n%
+         call set "content_EDE=%%content_EDE:^!=""e^!%%"%\n%
+         %= Now it's possible to replace '""e' to '^', this is effectivly '!' -> '^!'  =%%\n%
+         set "content_EDE=!content_EDE:""e=^!"%\n%
+         %= Now restore the quotes  =%%\n%
+         set ^"content_EDE=!content_EDE:""q="!"%\n%
+         ) ELSE set "content_EDE="%\n%
+         set "retContent=!retContent!set "!varName[%%n]!=!content_EDE!"!LF!"%\n%
+      )%\n%
+   )%\n%
+ %= Now return all variables from retContent over the barrier =%%\n%
+   for /F "delims=" %%V in ("!retContent!") DO (%\n%
+ %= Only the first line can contain a single 1 =%%\n%
+      if "%%V"=="1" (%\n%
+ %= We need to call endlocal twice, as there is one more setlocal in the macro itself =%%\n%
+         endlocal%\n%
+         endlocal%\n%
+      ) ELSE (%\n%
+ %= This is true in EDE             =%%\n%
+         if "!"=="" (%\n%
+            if %%V==%%~V (%\n%
+               %%V !%\n%
+            )%\n%
+         ) ELSE IF not %%V==%%~V (%\n%
+            %%~V%\n%
+         )%\n%
+      )%\n%
+   )%\n%
+ ) else set args="
+
+@rem -------------------------------------------------------------------------------------------------------------------------------
+@SETLOCAL EnableExtensions EnableDelayedExpansion
+@REM Change the value of nextshell to one of the supported types, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
+@REM This wrapper can be edited manually (carefully!) - or bash,tcl,perl,powershell scripts can be wrapped using the Tcl-based punkshell system
+@REM e.g from within a running punkshell: dev scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
+@REM Call with sh, bash, perl, or tclsh. (powershell untested on unix)
+@REM Due to lack of shebang (#! line) Unix-like systems will hopefully default to a flavour of sh that can divert to bash if the script is called without an interpreter - but it may depend on the shell in use when called.
 @REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
 @REM in batch scripts - array syntax with square brackets is a simulation of arrays or associative arrays.
 @REM note that many shells linked as sh do not support substition syntax and may fail - e.g dash etc - generally bash should be used in this context
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshelltypes= powershell______ sh______________ wslbash_________ bash____________ tcl_____________ perl____________"
+@SET "validshelltypes= pwsh____________ powershell______ sh______________ wslbash_________ bash____________ tcl_____________ perl____________ none____________"
 @REM for batch - only win32 is relevant - but other scripts on other platforms also parse the nextshell block to determine next shell to launch
 @REM nextshellpath and nextshelltype indices (underscore-padded to 16wide) are "other" plus those returned by Tcl platform pkg e.g win32,linux,freebsd,macosx
 @REM The horrible underscore-padded fixed-widths are to keep the batch labels aligned whilst allowing values to be set
-@REM If more than 32 chars needed for a target, it can still be done but overall script padding may need checking/adjusting
+@REM If more than 64 chars needed for a target, it can still be done but overall script padding may need checking/adjusting
 @REM Supporting more explicit oses than those listed may also require script padding adjustment
-: <nextshell>
-@SET "nextshellpath[win32___________]=tclsh___________________________"
+: <<nextshell_start>>
+@SET "nextshellpath[win32___________]=tclsh___________________________________________________________________________________________________________________________"
 @SET "nextshelltype[win32___________]=tcl_____________"
-@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[dragonflybsd____]=tcl_____________"
-@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[freebsd_________]=tcl_____________"
-@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[netbsd__________]=tcl_____________"
-@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[linux___________]=tcl_____________"
-@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[macosx__________]=tcl_____________"
-@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[other___________]=tcl_____________"
-: </nextshell>
+: <<nextshell_end>>
 @rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
+: <<asadmin_start>>
 @SET "asadmin=0"
-: </asadmin>
-@REM @ECHO nextshelltype is %nextshelltype[win32___________]%
-@REM @SET "selected_shelltype=%nextshelltype[win32___________]%"
+: <<asadmin_end>>
 @SET "selected_shelltype=%nextshelltype[win32___________]%"
 @REM @ECHO selected_shelltype %selected_shelltype%
 @CALL :stringTrimTrailingUnderscores %selected_shelltype% selected_shelltype_trimmed
 @REM @ECHO selected_shelltype_trimmed %selected_shelltype_trimmed%
 @SET "selected_shellpath=%nextshellpath[win32___________]%"
-@CALL :stringTrimTrailingUnderscores %selected_shellpath% selected_shellpath_trimmed
+@CALL :stringTrimTrailingUnderscores "%selected_shellpath%" selected_shellpath_trimmed
 @CALL SET "keyRemoved=%%validshelltypes:!selected_shelltype!=%%"
 @REM @ECHO keyremoved %keyRemoved%
 @REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
@@ -73,7 +134,7 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
 @REM  -- Even something as simple as adding or removing an @REM
 @REM  -- From within punkshell - use:
-@REM  --     deck scriptwrap.checkfile <filepath>
+@REM  --     deck scriptwrap.checkfile filepath
 @REM  -- to check your templates or final wrapped scripts for byte boundary issues
 @REM  -- It will report any labels that are on boundaries
 @REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
@@ -83,12 +144,14 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
 @REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
 @REM  -- It is unknown what versions of cmd interpreters behave this way - and deck scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
+@REM  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
 @REM ############################################################################################################################
 @REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
 @REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
+@SET "winpath=%~dp0"            %= e.g c:\punkshell\bin\ %=
 @SET "fname=%~nx0"
+@SET "scriptrootname=%~dp0%~n0" %= e.g c:\punkshell\bin\runtime (full path without extension) unavailable after shift, so store it =%
+@SET "fullscriptname=%~dp0%~n0%~x0" 
 @REM @ECHO fname %fname%
 @REM @ECHO winpath %winpath%
 @REM @ECHO commandlineascalled %0
@@ -100,6 +163,62 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @CALL :stringToUpper %~nx0 capscripttail
 @REM @ECHO capscriptname: %capscripttail%
 
+@goto skip_parameter_wrangling
+@set argCount=30
+@rem This is the max number of args we are willing to handle. also bounded by approx 8k char limit of cmd.exe
+@rem We do not loop over %* to count args as it is brittle for some inputs e.g will always skip cmd.exe separators e.g comma and semicolon
+@rem Set argCount higher if desired, but there is a small amount of additional looping overhead.
+@set tmpfile_base=%TEMP%\punkbatch_params
+@call :getUniqueFile %tmpfile_base% ".txt" paramfile
+@echo %paramfile%
+
+%= NOTE when we loop like this using the percent-n args and shift, we lose unquoted separators such as comma and semicolon %=
+@rem https://stackoverflow.com/questions/26551/how-can-i-pass-arguments-to-a-batch-file/5493124#5493124
+@rem outer loop  required to redirect all rem lines at once to file
+@for %%x in (1) do @(
+    @for /L %%f in (1,1,%argCount%) do @(
+        @set "argnum=%%~nf"
+        @set "a1=%%1"
+        @rem @set "argname=%%!argnum!"
+        @rem @echo argname: !argname!
+        @call :rem_output !argnum! !a1!
+        @shift
+    ) 
+) > %paramfile%
+@echo off
+
+@set "newcommandline= "
+
+@(set target=cmd_pwsh)
+@if "%target%"=="cmd_pwsh" (
+    @for /F "delims=" %%L in (%paramfile%) do @(
+        SETLOCAL DisableDelayedExpansion
+        set "param=%%L"
+        @REM @echo ######### %%L
+        @rem call :buildcmdline newcommandline param "{" "}"
+        @rem call :buildcmdline newcommandline param ' ' %= cmd.exe /c powershell ... -c %=
+        call :buildcmdline newcommandline param   %= cmd.exe /c powershell ... -f %=
+        @rem @echo .
+    )
+) ELSE  (
+    @for /F "delims=" %%L in (%paramfile%) do @(
+        SETLOCAL DisableDelayedExpansion
+        set "param=%%L"
+        call :buildcmdline newcommandline param 
+    )
+)
+@REM padding
+SETLOCAL EnableDelayedExpansion 
+@echo off
+@IF EXIST %paramfile% (
+    @DEL /F /Q %paramfile%
+)
+@IF EXIST %paramfile% (
+    echo failed to delete %paramfile%
+    cat %paramfile%
+)
+:skip_parameter_wrangling
+
 @IF "%nftail%"=="%capscripttail%" (
     @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
     @SET "asadmin=1"
@@ -123,46 +242,116 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
 )
 @REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
 @GOTO skip_privileges
 :getPrivileges
 @IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
 @ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
+@ECHO pre = "/c %fullscriptname% PUNK-ELEVATED " >> "%vbsGetPrivileges%"
+@REM @echo pre = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
+@echo args = pre                                 >> "%vbsGetPrivileges%"
 @ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
+@ECHO     args = args ^& Chr(34) ^& strArg ^& Chr(34) ^& " " >> "%vbsGetPrivileges%"
 @ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
+@GOTO skiptest
+
+%= Option Explicit =%
+%= We need a child process to locate the current script. =%
+@ECHO Const FLAG_PROCESS = "winver.exe" >> "%vbsGetPrivileges%"
+
+%= ' WMI constants %=
+@ECHO Const wbemFlagForwardOnly = 32 >> "%vbsGetPrivileges%"
+
+%=' Generate a unique value to be used as a flag =%
+@ECHO Dim guid >> "%vbsGetPrivileges%
+@ECHO    guid = Left(CreateObject("Scriptlet.TypeLib").GUID,38) >> "%vbsGetPrivileges%"
+
+%= ' Start a process using the indicated flag inside its command line =%
+@ECHO   WScript.CreateObject("WScript.Shell").Run """" ^& FLAG_PROCESS ^& """ " ^& guid, 0, False >> "%vbsGetPrivileges%"
+
+%= ' To retrieve process information a WMI reference is needed    =%
+@ECHO Dim wmi >> "%vbsGetPrivileges%"
+@ECHO    Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}^!\\.\root\cimv2") >> "%vbsGetPrivileges%"
+
+%= ' Query the list of processes with the flag in its command line, retrieve the =%
+%= ' process ID of its parent process ( our script! ) and terminate the process =%
+@ECHO Dim colProcess, process, myProcessID >> "%vbsGetPrivileges%"
+@ECHO    Set colProcess = wmi.ExecQuery( _>> "%vbsGetPrivileges%"
+@ECHO       "SELECT ParentProcessID From Win32_Process " ^& _>> "%vbsGetPrivileges%"
+@ECHO        "WHERE Name='" ^& FLAG_PROCESS ^& "' " ^& _>> "%vbsGetPrivileges%"
+@ECHO        "AND CommandLine LIKE '%%" ^& guid ^& "%%'" _>> "%vbsGetPrivileges%"
+@ECHO       ,"WQL" , wbemFlagForwardOnly _>> "%vbsGetPrivileges%"
+@ECHO    ) >> "%vbsGetPrivileges%"
+@ECHO    For Each process In colProcess >> "%vbsGetPrivileges%"
+@ECHO        myProcessID = process.ParentProcessID >> "%vbsGetPrivileges%"
+@ECHO        process.Terminate >> "%vbsGetPrivileges%"
+@ECHO    Next >> "%vbsGetPrivileges%"
+
+%= ' Knowing the process id of our script we can query the process list =%
+%= ' and retrieve its command line =%
+@ECHO Dim commandLine                                       >> "%vbsGetPrivileges%"
+@ECHO    set colProcess = wmi.ExecQuery( _>>                   "%vbsGetPrivileges%"
+@ECHO        "SELECT CommandLine From Win32_Process " ^& _>>   "%vbsGetPrivileges%"
+@ECHO        "WHERE ProcessID=" ^& myProcessID _>>             "%vbsGetPrivileges%"
+@ECHO        ,"WQL" , wbemFlagForwardOnly _>>                  "%vbsGetPrivileges%"
+@ECHO    )                                                  >> "%vbsGetPrivileges%"
+@ECHO    For Each process In colProcess                     >> "%vbsGetPrivileges%" 
+@ECHO        commandLine = process.CommandLine              >> "%vbsGetPrivileges%"
+@ECHO    Next                                               >> "%vbsGetPrivileges%"
+@ECHO WScript.Echo "raw commandline: " ^& commandLine                             >>"%vbsGetPrivileges%"
+
+%= ' Done =%
+@ECHO intpos = 0                                            >> "%vbsGetPrivileges%"
+@ECHO intCount = 0                                          >> "%vbsGetPrivileges%"
+@ECHO intstartsearch = 1                                    >> "%vbsGetPrivileges%"
+@ECHO intmax = 100                                          >> "%vbsGetPrivileges%"
+@ECHO do While intCount ^< 4 and intmax ^> 0                >> "%vbsGetPrivileges%"
+@ECHO   intpos = InStr(intstartsearch, commandline, """")   >> "%vbsGetPrivileges%"
+@ECHO   if intpos ^<^> 0 then                               >> "%vbsGetPrivileges%"
+@ECHO       intCount = intCount + 1                         >> "%vbsGetPrivileges%"
+@ECHO       if intcount = 4 then                            >> "%vbsGetPrivileges%"
+@ECHO           ' wscript.echo "position: " ^& intpos       >> "%vbsGetPrivileges%"
+@ECHO           commandline = Mid(commandline,intpos+1)     >> "%vbsGetPrivileges%"
+@ECHO           exit do                                     >> "%vbsGetPrivileges%"
+@ECHO       else                                            >> "%vbsGetPrivileges%"
+@ECHO           intstartsearch = intpos + 1                 >> "%vbsGetPrivileges%"
+@ECHO       end if                                          >> "%vbsGetPrivileges%"
+@ECHO   end if                                              >> "%vbsGetPrivileges%"
+@ECHO   intmax = intmax -1                                  >> "%vbsGetPrivileges%"
+@ECHO Loop                                                  >> "%vbsGetPrivileges%"
+@ECHO if intcount ^< 4 then                                 >> "%vbsGetPrivileges%"
+@ECHO     err.raise vbObjectError + 1001, "vbsGetPrivileges", "failed to parse commandline" >> "%vbsGetPrivileges%"
+@ECHO end if                                                >> "%vbsGetPrivileges%"
+@ECHO commandline = pre ^& commandline                     >> "%vbsGetPrivileges%"
+@ECHO WScript.Echo "commandline: " ^& commandLine                             >>"%vbsGetPrivileges%"
+@ECHO WScript.Echo "args: " ^& args                                    >>"%vbsGetPrivileges%"
+:skiptest
+
+@ECHO UAC.ShellExecute "cmd.exe", args, "", "runas", 1 >> "%vbsGetPrivileges%"
+@REM @ECHO UAC.ShellExecute "%fullscriptname%", commandline, "", "runas", 1 >> "%vbsGetPrivileges%"
+@ECHO Launching script "%fullscriptname%" in new window due to administrator elevation with args: "%*"
 @"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
+@REM @"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" !newcommandline!
 @EXIT /B
 
+@REM buffer
+@REM buffer
 :gotPrivileges
 @REM setlocal & pushd .
 @PUSHD .
-@cd /d %~dp0
+@cd /d %winpath%
 @IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
     @DEL "%vbsGetPrivileges%" 1>nul 2>nul
     @SET arglist=%arglist:~14%
+    @SHIFT
 )
 
 :skip_privileges
 @SET need_ps1=0
 @REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
+@if not exist "%scriptrootname%.ps1" (
     @SET need_ps1=1
 ) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
+    fc "%fullscriptname%" "%scriptrootname%.ps1" >nul || goto different
     @REM @ECHO "files same"
     @SET need_ps1=0
 )
@@ -172,58 +361,224 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @SET need_ps1=1
 :pscontinue
 @IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
+    COPY "%fullscriptname%" "%scriptrootname%.ps1" >NUL 
 )
 @REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "%selected_shelltype_trimmed%"=="powershell" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
+@IF "!selected_shelltype_trimmed!"=="none" (
+    SET selected_shelltype_trimmed=pwsh
+)
+
+@REM @SET "squoted_args="
+@REM @for %%a in (%*) do @(
+@REM     set "v=%%a"
+@REM     set "v=!v:'=''!"
+@REM     SET "squoted_args=!squoted_args!'!v!' "
+@REM )
+@REM @SET "squoted_args=%squoted_args:~0,-1%"
+@REM @ECHO %squoted_args%
+
+
+@IF "!selected_shelltype_trimmed!"=="pwsh" (
+    REM pwsh vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
     REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
+    REM when run without cmd.exe - pwsh will receive the semicolon (for cmd.exe unquoted semicolon and comma are separators that aren't seen in positional arguments)
+    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted 2>NUL; write-host "statusmessage: pwsh-found" >NUL
     SET pwshtest_exitcode=!errorlevel!
     REM ECHO pwshtest_exitcode !pwshtest_exitcode!
     REM fallback to powershell if pwsh failed 
     IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
+        @rem pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%scriptrootname%.ps1" %arglist%
+        @rem pwsh -nop -nologo -ExecutionPolicy bypass -f "%scriptrootname%.ps1" %arglist%  %= ok =%
+        @rem cmd /c pwsh -nop -nologo -ExecutionPolicy bypass -f "%scriptrootname%.ps1" !newcommandline! 
+        !selected_shellpath_trimmed! "%scriptrootname%.ps1" %arglist%
         SET task_exitcode=!errorlevel!
     ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
+        REM TODO prompt user with option to call script to install pwsh using winget
+        %= powershell with -file flag treats it's arguments differently to pwsh - we need cmd /c to preserve args with spaces =%
+        cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" %arglist%
+        @rem cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" !newcommandline! 
         SET task_exitcode=!errorlevel!
     )
 ) ELSE ( 
-    IF "%selected_shelltype_trimmed%"=="wslbash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        %selected_shellpath_trimmed% "!wslpath!%fname%" %arglist%
+    IF "!selected_shelltype_trimmed!"=="powershell" (
+        %= powershell with -file flag treats it's arguments differently to pwsh - we need cmd /c to preserve args with spaces =%
+        @rem @echo powershell - !selected_shellpath_trimmed! "%scriptrootname%.ps1" %arglist%
+        @rem cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" %arglist%  %= ok - this works =%
+        !selected_shellpath_trimmed! "%scriptrootname%.ps1" %arglist%
+        @rem cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" !newcommandline! 
         SET task_exitcode=!errorlevel!
     ) ELSE (
-        REM  perl or tcl or sh or bash
-        IF NOT "x%keyRemoved%"=="x%validshelltypes%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            REM The compound statement with trailing call is required to stop batch termination confirmation, whilst still capturing exitcode
-            %selected_shellpath_trimmed% "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel! & Call;
+        IF "!selected_shelltype_trimmed!"=="wslbash" (
+            CALL :getWslPath %winpath% wslpath
+            REM ECHO wslfullpath "!wslpath!%fname%"
+            %selected_shellpath_trimmed% "!wslpath!%fname%" %arglist%
+            SET task_exitcode=!errorlevel!
         ) ELSE (
-            ECHO %fname% has invalid nextshelltype value %selected_shelltype% valid options are %validshelltypes%
-            SET task_exitcode=66
-            @REM boundary padding
-            @REM boundary padding
-            GOTO :exit_multishell
+            REM  perl or tcl or sh or bash
+            IF NOT "x%keyRemoved%"=="x%validshelltypes%" (
+                REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
+                REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
+                REM The compound statement with trailing call is required to stop batch termination confirmation, whilst still capturing exitcode
+                @REM @ECHO HERE "!selected_shelltype_trimmed!" "!selected_shellpath_trimmed!"
+                !selected_shellpath_trimmed! "%winpath%%fname%" %arglist% & SET task_exitcode=!errorlevel! & Call;
+            ) ELSE (
+                ECHO %fname% has invalid nextshelltype value %selected_shelltype% valid options are %validshelltypes%
+                SET task_exitcode=66
+                @REM boundary padding
+            )
         )
     )
 )
 @REM batch file library functions
-@REM boundary padding
 @GOTO :endlib
 
+@REM padding
+@REM padding
+@REM padding
+@REM padding
+
+%= ---------------------------------------------------------------------- =%
+@rem courtesy of dbenham
+:: Example usage
+@rem call :getUniqueFile "d:\test\myFile" ".txt" myFile
+@rem echo myFile="%myFile%"
+
+:getUniqueFile  baseName  extension  rtnVar
+setlocal
+:getUniqueFileLoop
+for /f "skip=1" %%A in ('wmic os get localDateTime') do for %%B in (%%A) do set "rtn=%~1_%%B%~2"
+if exist "%rtn%" (
+  goto :getUniqueFileLoop
+) else (
+  2>nul >nul (9>"%rtn%" timeout /nobreak 1) || goto :getUniqueFileLoop
+)
+endlocal & set "%~3=%rtn%"
+exit /b
+%= ---------------------------------------------------------------------- =%
+
+@REM padding
+:buildcmdline cmdlinevar paramvar wrapA wrapB
+    %= quoting for cmd.exe /c pwsh -nop !args! =%
+    @SETLOCAL EnableDelayedExpansion
+
+    @REM @echo =====================
+    set "pval=!%~2:*#=!"
+    set "pval=!pval:~0,-2!"
+    @REM set "pval=!pval:~0,-1!"
+    set "wrapa=%~3"
+    set "wrapb=%~4"
+
+    @call :strlen pval slen
+    @rem @echo strlen: !slen!
+    if "!slen!"=="0" (
+        goto :eof
+    )
+    @set /A n = !slen! - 1
+    @(set str=)
+    @set "dq=""
+    @set "bang=^!"
+    @(set carat=^^)
+    @for /l %%i in (0,1,!n!) do @(
+        (set c=!pval:~%%i,1!)
+        if "!c!"=="|" (
+            set "ch=^^!pval:~%%i,1!"
+        ) ELSE IF "!c!"=="(" (
+            set "ch=^("
+        ) ELSE if "!c!"==")" (
+            set "ch=^)"
+        ) ELSE if "!c!"=="&" (
+            set "ch=^^&"
+        ) ELSE if "!c!"=="!dq!" (
+            set "ch=^""
+        ) ELSE if "!c!"=="!bang!" (
+            @rem - double caret - first for initial parsing, second to ensure remains escaped during delayed expansion phase 
+            @rem - REVIEW
+            set "ch=^^!bang!"
+        ) ELSE if "!c!"=="^carat" (
+            set "ch=^^^^"
+        ) ELSE if "!c!"=="'" (
+            set "ch=''"
+        ) ELSE (
+            set "ch=!c!"
+        )
+        @rem @echo - !ch!
+        set "str=!str!!ch!"
+    )
+    echo +++++ %~1 = !%1! !str!
+
+    set "%~1=!%1! !wrapa!!str!!wrapb!"
+
+    @rem old method of return - failes to preserve exclamation marks
+    @rem for /f "delims=" %%A in (""!str!"") do endlocal & set "%~1=!%1! '%%~A'"
+    @rem macro method of endlocal return - preserving !val!
+    @echo off
+    %endlocal% %~1
+
+    @exit /b
+
+:rem_output
+    @rem ---------------------------------------------
+    @rem rem_output is called for each n in the number of args we process - as we don't have a non-destructive way to count args whilst accepting special chars
+    @rem we therefore need a way to stop processing on the last received arg so we don't write argCount entries to param.txt if less are received
+    @rem see 'disappearing quotes' technique
+    @rem https://stackoverflow.com/questions/4643376/how-to-split-double-quoted-line-into-multiple-lines-in-windows-batch-file/4645113#4645113
+    @rem and
+    @rem https://groups.google.com/g/alt.msdos.batch.nt/c/J71F17Bve9Y  (sponge belly)
+    @echo off
+    setlocal enableextensions disabledelayedexpansion
+    set "param1=%~2"
+    rem do must not be indented
+    for %%^" in ("") ^
+do if not defined param1 set %%~"param1=%2%%~"
+    if not defined param1 goto :eof
+    endlocal
+    @rem ---------------------------------------------
+
+    @PROMPT @
+    @echo on
+    rem %1 #%2#
+@exit /b
+
+@rem padding
+@REM courtesy of: https://stackoverflow.com/users/463115/jeb
+:strlen  stringVar returnVar
+@(   
+    setlocal EnableDelayedExpansion
+    @SET "rtrn=%~2"
+    (set^ tmp=!%~1!)
+    @rem @echo jjjjj !tmp!
+    @if defined tmp (
+        set "len=1"
+        @for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do @(
+            @if "!tmp:~%%P,1!" NEQ "" ( 
+                set /a "len+=%%P"
+                set "tmp=!tmp:~%%P!"
+            )
+        )
+    ) ELSE (
+        set len=0
+    )
+)
+@( 
+    endlocal
+    @IF "%~2" neq "" (
+        @SET "%rtrn%=%len%"
+    ) ELSE (
+        @ECHO :strlen result: %len%
+    )
+    exit /b
+)
+
+
 :getWslPath
 @SETLOCAL
     @SET "_path=%~p1"
     @SET "name=%~nx1"
     @SET "drive=%~d1"
     @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
+    @REM Although drive letters on windows are normally upper case wslbash seems to expect lower case drive letters
+    @CALL :stringToLower %drive ldrive
+    @SET "result=/mnt/%ldrive:~0,1%%_path:\=/%%name%"
 @ENDLOCAL & (
     @if "%~2" neq "" (
         SET "%rtrn%=%result%"
@@ -233,6 +588,8 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 )
 @EXIT /B
 
+@REM padding
+@REM padding
 :getFileTail
 @REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
 @REM we can't use things such as %~nx1 as it can change capitalisation
@@ -270,7 +627,8 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     )
 )
 @EXIT /B
-@REM  boundary padding
+@REM boundary padding
+@REM boundary padding
 @REM boundary padding
 :getNormalizedScriptTail
 @SETLOCAL
@@ -285,13 +643,12 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 )
 @EXIT /B
 
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
 @REM boundary padding
 @REM boundary padding
 @REM boundary padding
+:getNormalizedFileTailFromPath
+@REM warn via echo, and do not set return variable if path not found
+@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
 @SETLOCAL
     @CALL :stringContains %~1 "\" hasBackSlash
     @CALL :stringContains %~1 "/" hasForwardSlash
@@ -317,6 +674,10 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 )
 @EXIT /B
 
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+
 :stringContains
 @REM usage: @CALL:stringContains string needle returnvarname
 @SETLOCAL
@@ -336,8 +697,9 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     )
 )
 @EXIT /B
-
-:stringToUpper
+@REM boundary padding
+@REM boundary padding
+:stringToUpper strvar returnvar
 @SETLOCAL
     @SET "rtrn=%~2"
     @SET "string=%~1"
@@ -354,19 +716,44 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     )
 )
 @EXIT /B
+:stringToLower
+@SETLOCAL
+    @SET "rtrn=%~2"
+    @SET "string=%~1"
+    @SET "retstring=%~1"
+    @FOR %%A in (a b c d e f g h i j k l m n o p q r s t u v w x y z) DO @(
+        @SET "retstring=!retstring:%%A=%%A!"
+    )
+    @SET "result=!retstring!"
+@ENDLOCAL & (
+    @IF "%~2" neq "" (
+        @SET "%rtrn%=%result%"
+    ) ELSE (
+        @ECHO stringToLower %string% result: %result%
+    )
+)
+@EXIT /B
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
 :stringTrimTrailingUnderscores
 @SETLOCAL
     @SET "rtrn=%~2"
     @SET "string=%~1"
     @SET "trimstring=%~1"
-    @REM trim up to 31 underscores from the end of a string using string substitution
-    @SET trimstring=%trimstring%###
-    @SET trimstring=%trimstring:________________###=###%
-    @SET trimstring=%trimstring:________###=###%
-    @SET trimstring=%trimstring:____###=###%
-    @SET trimstring=%trimstring:__###=###%
-    @SET trimstring=%trimstring:_###=###%
-    @SET trimstring=%trimstring:###=%
+    @REM trim up to 127 underscores from the end of a string using string substitution
+    @SET "trimstring=%trimstring%###"
+    @SET "trimstring=%trimstring:________________________________________________________________###=###%"
+    @SET "trimstring=%trimstring:________________________________###=###%"
+    @SET "trimstring=%trimstring:________________###=###%"
+    @SET "trimstring=%trimstring:________###=###%"
+    @SET "trimstring=%trimstring:____###=###%"
+    @SET "trimstring=%trimstring:__###=###%"
+    @SET "trimstring=%trimstring:_###=###%"
+    @SET "trimstring=%trimstring:###=%"
     @SET "result=!trimstring!"
 @ENDLOCAL & (
     @IF "%~2" neq "" (
@@ -397,6 +784,7 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 :endlib
 : \
 @REM padding
+@REM padding
 @REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
 @GOTO :exit_multishell
 # }
@@ -404,22 +792,214 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
 # -- tcl script section
 # -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
+# -- It is tuned to run (and possibly divert to different payload shell) when called from cmd.exe as a batch file, tclsh,sh,zsh,bash,perl or pwsh/powershell script
 # -- i.e it is a polyglot file.
+# -- The payload target (by os) is defined in the nextshell block at the top which is constructed when generating the polyglot
+# -- using the tcl 'dev scriptwrap.multishell' command in a tcl punk shell
+# -- The payload can be tcl,perl,powershell/pwsh or zsh/bash.
 # -- The specific layout including some lines that appear just as comments is quite sensitive to change.
 # -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
+# -- e.g ./scriptname.cmd in sh or zsh or bash
+# -- e.g tclsh scriptname.cmd
 # -- 
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
+rename set ""; rename S set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
 Hide :exit_multishell;Hide {<#};Hide '@
+#---------------------------------------------------------------------
+puts "info script   : [info script]"
+#puts "argcount : $::argc"
+#puts "argvalues: $::argv"
+#puts "argv0    : $::argv0"
+# -- --- --- --- --- --- --- --- --- --- --- ---
+#divert to configured nextshell
+set script_as_called [info script]
+package require platform
+set plat_full [platform::generic]
+set plat [lindex [split $plat_full -] 0]
+#may be old tcl - not assuming readFile available
+set fd [open [info script] r]
+set scriptdata [read $fd]
+close $fd
+set scriptdata [string map [list \r\n \n] $scriptdata]
+set in_data 0
+set nextshellpath ""
+set nextshelltype ""
+puts stderr "PLAT: $plat"
+switch -glob -- $plat {
+    "msys" - "mingw*" {
+        set os "win32"
+    }
+    default {
+        set os $plat
+    }
+}
+foreach ln [split $scriptdata \n] {
+    if {[string trim $ln] eq ""} {continue}
+    if {!$in_data} {
+        if {[string match ": <<nextshell_start>>*" $ln]} {
+            set in_data 1
+        }
+    } else {
+        if {[string match "*@SET*nextshellpath?${os}_*" $ln]} {
+            set lineparts [split $ln =]
+            set tail [lindex $lineparts 1]
+            set nextshellpath [string trimright $tail {_"}]
+            if {$nextshellpath ne "" && $nextshelltype ne ""} {
+                break
+            }
+        } elseif {[string match "*@SET*nextshelltype?${os}_*" $ln]} {
+            set lineparts [split $ln =]
+            set tail [lindex $lineparts 1]
+            set nextshelltype [string trimright $tail {_"}]
+            if {$nextshellpath ne "" && $nextshelltype ne ""} {
+                break
+            }
+        } elseif {[string match ": <<nextshell_end>>*" $ln]} {
+            break
+        }
+    }
+}
+if {$nextshelltype ne "tcl" && $nextshelltype ne "none"} {
+    set script_rootname [file rootname $script_as_called]
+    if {$nextshelltype in "pwsh powershell"} {
+        # experimental
+        set script_ps1 $script_rootname.ps1
+        set arglist $::argv
+
+        if {[file extension $script_as_called] ne ".ps1"} {
+            #we need to ensure .ps1 is up to date
+            set needs_updating 0
+            if {![file exists $script_ps1]} {
+                set needs_updating 1
+            } else {
+                #both exist 
+                if {[file size $script_as_called] != [file size $script_ps1]} {
+                    set needs_updating 1 
+                } else {
+                    #both exist with same size - do full check that they're identical
+                    catch {package require sha256}
+                    if {[package provide sha256] ne ""} {
+                        set h1 [sha2::sha256 -hex -file $script_as_called]
+                        set h2 [sha2::sha256 -hex -file $script_ps1]
+                        if {[string length $h1] != 64 || [string length $h2] != 64} {
+                            set needs_updating 1
+                        } elseif {$h1 ne $h2} {
+                            set needs_updating 1
+                        }
+                    } else {
+                        #manually compare - scripts aren't too big, so slurp and string compare is fine
+                        set fd [open $script_as_called]
+                        chan configure $fd -translation binary
+                        set data1 [read $fd]
+                        close $fd
+                        set fd [open $script_ps1]
+                        chan configure $fd -translation binary
+                        set data2 [read $fd]
+                        close $fd
+                        if {![string equal $data1 $data2]} {
+                            set needs_updating 1
+                        }
+                    }
+                }
+            }
+
+            if {$needs_updating} {
+                file copy -force $script_as_called $script_ps1
+            }
+        } else {
+            #when called on the .ps1 - we assume it's up to date - review
+        }
+        set scrname $script_ps1
+
+        #set arglist [list]
+        #foreach a $::argv {
+        #    set a "'$a'"
+        #    lappend arglist $a
+        #}
+    } else {
+        set scrname $script_as_called
+        set arglist $::argv
+    }
+    #todo - handle /usr/bin/env
+    #todo - exitcode
+    #review - test spaced quoted words in nextshellpath?
+    #
+    #if {[llength $nextshellpath] == 1 && [string index $nextshellpath 0] eq {"} && [string index $nextshellpath end] eq {"}} {
+    #    set nextshell_words [list $nextshellpath]
+    #} else {
+    #    set nextshell_words $nextshellpath
+    #}
+
+    #perform any msys argument munging on a cmd/cmd.exe based nextshellpath before we convert the first word to an auto_exec path
+    switch -glob -- $plat {
+        "msys" - "mingw*" {
+            set cmdword [lindex $nextshellpath 0]
+            #we only act on cmd or cmd.exe - not a full path such as c:/WINDOWS/system32/cmd.exe
+            #the nextshellpath should generally be configured as cmd /c ... or cmd.exe ... but specifying it as a path could allow bypassing this un-munging.
+            #The un-munging only applies to msys/mingw, so such bypassing should be unnecessary - review
+            #maint: keep this munging in sync with zsh/bash and perl blocks which must also do msys mangling
+            if {[regexp {^cmd$|^cmd[.]exe$} $cmdword]} {
+                #need to deal with msys argument munging 
+                puts stderr "cmd call via msys detected. performing translation of /c to //C" 
+                #for now we only deal with /C or /c - todo - other cmd.exe flags?
+                #In this context we would usually only be using cmd.exe /c to launch older 'desktop' powershell to avoid spaced-argument problems - so we aren't expecting other flags 
+                set new_nextshellpath [list $cmdword]
+                #for now - just do what zsh munging does - bash regex/string/array processing is tedious and footgunny for the unfamiliar (me),
+                #so determine the minimum viable case for code there, then port behaviour to perl/tcl msys munging sections. 
+                foreach w [lrange $nextshellpath 1 end] {
+                    if {[regexp {^/[Cc]$} $w]} {
+                        lappend new_nextshellpath {//C}
+                    } else {
+                        lappend new_nextshellpath $w
+                    }
+                }
+                set nextshellpath $new_nextshellpath
+            }
+        }
+    }
+
+    set ns_firstword [lindex $nextshellpath 0]
+    #review - is this test for extra layer of double quoting on first word really necessary?
+    #if we are treaing $nextshellpath as a tcl list - the first layer of double quotes will already have disappeared
+    ##if {[string index $ns_firstword 0] eq {"} && [string index $ns_firstword end] eq {"}} {
+    ##    set ns_firstword [string range $ns_firstword 1 end-1]
+    ##}
+
+    if {$::tcl_platform(platform) ne "windows" && [string match {/*/env} $ns_firstword]} {
+        set exec_part $nextshellpath
+    } else {
+        set epath [auto_execok $ns_firstword]
+        if {$epath eq ""} {
+            error "unable to find executable path for first word '$ns_firstword' of nextshellpath '$nextshellpath'"
+        } else {
+            set exec_part [list {*}$epath {*}[lrange $nextshellpath 1 end]]
+        }
+    }
+
+
+    puts stdout "tclsh launching subshell of type: $nextshelltype shellpath: $nextshellpath on script $scrname with args: $arglist"
+    puts stdout "exec: $exec_part $scrname $arglist"
+    catch {exec {*}$exec_part $scrname {*}$arglist <@stdin >@stdout 2>@stderr} emsg eopts
+
+    if {[dict exists $eopts -errorcode]} {
+        set ecode [dict get $eopts -errorcode]
+        if {[lindex $ecode 0] eq "CHILDSTATUS"} {
+            exit [lindex $ecode 2]
+        } else {
+            puts stderr "error  calling next shell $nextshelltype :"
+            puts stderr $emsg
+            exit 1
+        }
+    } else {
+        exit 0
+    }
+}
+#---------------------------------------------------------------------
+
 namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
+    set last_script_root    [file dirname [file normalize ${::argv0}/__]]
     set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
+    if {[info exists ::argv0] &&
         $last_script eq $last_script_root
         } {
         set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
@@ -434,7 +1014,7 @@ namespace eval ::punk::multishell {
             if {![info exists ::punk::multishell::is_main($script_name)]} {
                 #e.g a .dll or something else unanticipated
                 puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
+                puts stderr "Info: script_root: [file dirname [file normalize ${::argv0}/__]]"
                 return 0
             }
             return [set ::punk::multishell::is_main($script_name)]
@@ -442,22 +1022,10 @@ namespace eval ::punk::multishell {
     }
 }
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
 
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subprocess>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subprocess>
+#<tcl-payload>
+puts stderr "No tcl code for this script. Try another program such as zsh or bash or perl"
+#</tcl-payload>
 
 
 # -- --- --- --- --- --- --- --- --- --- --- ---
@@ -477,49 +1045,238 @@ if {[::punk::multishell::is_main]} {
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
 # end hide from unix shells \
 HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
+# Be wary of any non-trivial sed/awk etc - can be brittle to maintain across linux,freebsd,macosx due to differing implementations \
+echo "var0: $0  @: $@"
+#  use oldschool backticks and sed (posix - lowest common denominator) \
+# ps_shellname=`ps -p $$ | awk '$1 != "PID" {print $(NF)}' | tr -d '()' | sed -E 's/^.*\/|^-//'` \
+# some ps impls will return arguments - so last field not always appropriate \
+# some ps impls don't have -o (e.g cygwin) so ps_shellname may remain empty and emit an error \
+ps_shellname=`ps -o pid,comm -p $$ | awk '$1 != "PID" {print $2}'`
+# \
+echo "shell from ps: $ps_shellname"
+# \
+echo "args: $@"
+# ------------------------------------------------------------------------------
+# -- This if block wraps posix sh diversion section - only needed if Tcl didn't exit or return above.
+if false==false # else {
+    then
+    : #
+
+# https://gist.github.com/fcard/e26c5a1f7c8b0674c17c7554fb0cd35c0  (MIT lic)
+# https://stackoverflow.com/questions/63864755/remove-last-argument-in-shell-script-posix
+# posix compliant pop
+pop() {
+  __pop_n=$(($1 - ${2:-1}))
+  if [ -n "$ZSH_VERSION" -o -n "$BASH_VERSION" ]; then
+    POP_EXPR='set -- "${@:1:'$__pop_n'}"'
+  elif [ $__pop_n -ge 500 ]; then
+    POP_EXPR="set -- $(seq -s " " 1 $__pop_n | sed 's/[0-9]\+/"${\0}"/g')"
+  else
+    __pop_index=0
+    __pop_arguments=""
+    while [ $__pop_index -lt $__pop_n ]; do
+      __pop_index=$((__pop_index+1))
+      __pop_arguments="$__pop_arguments \"\${$__pop_index}\""
+    done
+    POP_EXPR="set -- $__pop_arguments"
+  fi
+}
+# ------------------------------------------------------------------------------
+
+# non-bash-like posix diversion 
+# we don't use $BASH_VERSION/$ZSH_VERSION as these can still be set when  for example
+# sh is a symlink to bash (posix-mode bash - reduced bashism capabilities?)
+# if our ps_shellname didn't contain a result, don't divert and risk looping 
+if [ -n "$ps_shellname" ] && [ "$ps_shellname" != "bash" ] && [ "$ps_shellname" != "zsh" ] ; then 
+    shift
+    pop $#
+    eval "$POP_EXPR"
+    echo "divert to bash $0 $@"
+
+    /usr/bin/env bash "$0" "$@"
+    exit $?
+fi
+# close false==false block
+fi
+# close tcl wrap  }
+# ------------------------------------------------------
+# -- This if block wraps whole zsh/bash and perl sections - only needed if Tcl didn't exit or return above.
 if false==false # else {
     then
     : #
+
+# zsh/bash \
+shift && set -- "${@:1:$((${#@}-1))}"
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
+# -- zsh/bash script section
 # --
+# -- review - for zsh do we want to use: setopt KSH_ARRAYS ?
+# -- arrays in bash 0-based vs 1-based in zsh
+# -- stick to the @:i:len syntax which is same for both
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
+
+plat=$(uname -s) #platform/system
+if [[ "$plat" == "Linux"* ]]; then
+    os="linux"
+elif [[ "$plat" == "Darwin"* ]]; then
+    os="macosx"
+elif [[ "$plat" == "FreeBSD"* ]]; then
+    os="freebsd"
+elif [[ "$plat" == "DragonFly"* ]]; then
+    os="dragonflybsd"
+elif [[ "$plat" == "NetBSD"* ]]; then
+    os="netbsd"
+elif [[ "$plat" == "OpenBSD"* ]]; then
+    os="openbsd"
+elif [[ "$plat" == "MINGW32"* ]]; then
+    os="win32"
+elif [[ "$plat" == "MINGW64"* ]]; then
+    os="win32"
+elif [[ "$plat" == "CYGWIN_NT"* ]]; then
+    os="win32"
+elif [[ "$plat" == "MSYS_NT"* ]]; then
+    #review..  
+    
+    #Need to consider the difference between when msys2 was launched (which strips some paths and sets up the environment)
+    # vs if the msys2 sh was called - (actually bash) in which case paths will be different
+
+    #wsl and cygwin or msys2 can commonly be problematic combinations - primarily due to path issues
+    #e.g "c:/windows/system32/" is quite likely in the path ahead of msys,git etc.
+    #e.g It means a /usr/bin/env bash call may launch the (linux elf) bash for wsl rather than the msys bash
+    #
+
+    #msys provides win32 binaries - but e.g tclsh installed in msys reports ::tcl_platform(platform) as 'unix'
+    #bash reports $OSTYPE msys
+
+    #there are statements around the web that cmd /c ..  will work under msys2
+    # - but from experience, it can be required to use cmd //c ...
+    # or MSYS2_ARG_CONV_ECL='*' cmd /c ..
+    # This seems to be because process arguments that look like unix paths are converted to windows paths :/
+    #review!
+
+    os="win32"
+    #review - need ps/sed/awk to determine shell?
+    interp=`ps -p $$ | awk '$1 != "PID" {print $(NF)}' | tr -d '()' | sed -E 's/^.*\/|^-//'`
+    #use 'command -v' (shell builtin preferred over external which)
+    shellpath=`command -v $interp`
+    shellfolder="${shellpath%/*}"    #avoid dependency on basename or dirname
+    export PATH="$shellfolder${PATH:+:${PATH}}"
+elif [[ "$OSTYPE" == "win32" ]]; then
+    os="win32"
+else
+    #os="$OSTYPE"
+    os="other"
+fi
+echo ostype: $OSTYPE
+## This is the sort of sed that will not work across implementations
+## shellconfiglines=$( sed -n "/: <<nextshell_start>>/{:a;n;/: <<nextshell_end>>/q;p;ba}" "$0" | grep $os)
+#awk tested on linux & freebsd
+shellconfiglines=$( awk '/^:.*<<nextshell_start>>.*$/,/^:.*<<nextshell_end>>.*$/' "$0" | grep $os)
+# echo $shellconfiglines;
+# readarray requires bash 4.0
+if [[ "$ps_shellname" == "bash" ]]; then 
+    readarray -t arr_oslines <<<"$shellconfiglines"
+elif [[ "$ps_shellname" == "zsh" ]]; then
+    arr_oslines=("${(f)shellconfiglines}")
+else
+    #fallback - doesn't seem to work in zsh - untested in early bash
+    IFS=$'\n' arr_oslines=($shellconfiglines)
+    IFS=$' \t\n' 
+    # review
+fi
+nextshellpath=""
+nextshelltype=""
+for ln in "${arr_oslines[@]}"; do
+    # echo "---- $ln"
+    if [[ "$ln" == *"nextshellpath"* ]]; then
+        splitln="${ln#*=}"  #remove everything through the first '='
+        pathraw="${splitln%%\"*}" #take everything before the quote - use %% to get longest match
+        #remove trailing underscores (% means must match at end)
+        nextshellpath="${pathraw/%_*/}"  
+        # echo "nextshellpath: $nextshellpath"
+    elif [[ "$ln" == *"nextshelltype"* ]]; then
+        splitln="${ln#*=}"
+        typeraw="${splitln%%\"*}"
+        nextshelltype="${typeraw/%_*/}"
+        # echo "nextshelltype: $nextshelltype"
+    fi
+done
+
 exitcode=0
-#printf "start of bash or sh code"
+#-- sh/bash launches nextscript here instead of shebang line at top
+if [[ "$nextshelltype" != "bash" && "$nextshelltype" != "none" ]]; then 
+    echo zsh/bash launching subshell of type: $nextshelltype shellpath: $nextshellpath on "$0" with args "$@"
 
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
+    script="$0"
+    if [[ "$nextshelltype" == "pwsh" || "$nextshelltype" == "powershell" ]]; then
+        #powershell requires the file extension to be .ps1 (always - on windows)
+        #on other platforms it's not required if a shebang line is used - but this script must be shebangless for portability and to maintain polyglot capabilities.
+        cmdpattern="[.]cmd$"
+        if [[ "$script" =~ $cmdpattern ]]; then
+            ps1script="${script%????}.ps1"
+            if ! cmp -s  "$script" "$ps1script" ; then
+                #ps1script either different or missing
+                #on windows - batch script copies .cmd -> .ps1 if not identical
+                cp -f "$script" "$ps1script" 
+            fi
+            script=$ps1script
+        fi
+    fi
+    if [[ "$plat" == "MSYS_NT"* ]]; then
 
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
+        #we need to deal with MSYS argument munging 
+        cmdpattern="^cmd.exe |^cmd "
+        #do not double quote cmdpattern - or it will be treated as literal string
+        if [[ "$nextshellpath" =~ $cmdpattern ]]; then
+            #for now - tell the user what's going on
+            echo "cmd call via msys detected. performing translation of /c to //c and escaping backslashes in script path" >&2
+            #flags to cmd.exe such as /c are interpreted by msys as looking like a unix path
+            #review - for nextshellpath targets specified in the block for win32 - we don't expect unix paths (?)
+            #what about other flags? - can we just double up all forward slashes?
+            #maint: keep this munging in sync with the tcl block and perl block which must also do msys munging
+            nextshellpath="${nextshellpath// \/[cC] / \/\/c }"
+            # echo "new nextshellpath: ${nextshellpath}"
+            #review - 
+            #don't double quote this
+            script=${script//\\/\\\\}
+        fi
+        echo "calling ${nextshellpath} $script $@"
+
+        #load into array
+        cmd_array=($nextshellpath) 
+        cmd_array+=("$script") #add script, which may contain spaces as a single entry ?
+        cmd_array+=( "$@" ) #add each element of args to array as a separate entry (equiv ? "${arr[@]}")
+        # printf "%s\n" "${cmd_array[@]}"
+        "${cmd_array[@]}"
+
+        # this works to make nextshellpath run - but joins $@ members incorrectly
+        #eval ${nextshellpath} "$script" "$@"
+    else
+        #e.g /usr/bin/env tclsh "$0" "$@"
+        ${nextshellpath} "$script" "$@"
+    fi
 
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subprocess>
+    
+    exitcode=$?
+    #echo "zsh/bash reporting exitcode: ${exitcode}"
+    exit $exitcode
+    #-- override exitcode example 
+    #exit 66
+else 
+    #already in bash - don't launch another process or we would loop
+    #echo "zsh/bash payload"
+    :
+fi
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin zsh Payload
+#printf "start of bash or zsh code"
+
+#<shell-payload>
+echo "No bash code for this script. Try another program such as perl or tcl" >&2
+#</shell-payload>
 
 
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
+#printf "zsh/bash done \n"
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end zsh Payload
 #------------------------------------------------------
 fi
 exit ${exitcode}
@@ -533,8 +1290,18 @@ exit ${exitcode}
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
 =cut
 #!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
 my $exit_code = 0;
+use Cwd qw(abs_path);
+my $scriptname = abs_path($0);
+#print "perl $scriptname\n";
+my $os = "$^O";
+if ($os eq "MSWin32") {
+    $os = "win32";
+} elsif ($os eq "darwin") {
+    $os = "macosx";
+}
+print "os $os\n";
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
 #use ExtUtils::Installed;
 #my $installed = ExtUtils::Installed->new();
 #my @modules = $installed->modules();
@@ -545,29 +1312,20 @@ my $exit_code = 0;
 # -- --- ---
 
 
-
-my $scriptname = $0;
-print "perl $scriptname\n";
 my $i =1;
 foreach my $a(@ARGV) {
     print "Arg # $i: $a\n";
 }
 
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
+#<perl-payload>
+print STDERR "No perl code for this script. Try another program such as tcl or bash";
+#</perl-payload>
 
 # -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
+#$exit_code=system("tclsh", $scriptname, @ARGV);
 #print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
 # -- --- --- --- --- --- --- ---
 
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
 
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
 exit $exit_code;
@@ -587,8 +1345,33 @@ if 0 {
 # -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
 # -- custom script should generally go below the begin_powershell_payload line
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
+#$MyInvocation.ScriptName should probably be considered deprecated
+# https://stackoverflow.com/questions/78511229/how-can-i-choose-between-myinvocation-scriptname-and-myinvocation-pscommandpat
+$runningscriptname = $PSCommandPath
+if (-not $MyInvocation.PSCommandPath) {
+    $callingscriptname = ''
+} else {
+    $callingscriptname = $MyInvocation.PSCommandPath
+}
+#The problem with psmodulepath
+#https://github.com/PowerShell/PowerShell/issues/18108
+# psmodulepath is shared by powershell and pwsh despite not all ps modules being compatible.
+# It is futzed with by powershell/pwsh based on detecting the child process type.
+# a psmodulepath that has been futzed with by pwsh will not work for a child powershell 5 process that isn't launched directly
+#This is inherently unfriendly to situations where an intervening process may be something else such as cmd.exe,tcl,perl etc
+# nevertheless, powershell/pwsh maintainers seem to have taken the MS-centric view of the world that such situations don't exist :/
+#
+#symptoms of these shenannigans not working include things like Get-FileHash failing in powershell desktop
+#
+#We don't know if the original console was pwsh/powershell or cmd.exe, and we need to potentially divert to powershell 5 (desktop) 
+#via tcl or perl etc - or cmd.exe
+if ($PSVersionTable.PSVersion.Major -le 5) {
+    # For Windows PowerShell, we want to remove any PowerShell 7 paths from PSModulePath
+    #snipped from https://github.com/PowerShell/DSC/pull/777/commits/af9b99a4d38e0cf1e54c4bbd89cbb6a8a8598c4e
+    #Presumably users are supposed to know not to have custom paths for powershell desktop containing a 'powershell' subfolder??
+    $env:PSModulePath = ($env:PSModulePath -split ';' | Where-Object { $_ -notlike '*\powershell\*' }) -join ';'
+}
+
 function GetDynamicParamDictionary {
     [CmdletBinding()]
     param(
@@ -623,12 +1406,14 @@ function GetDynamicParamDictionary {
         return $DynParamDictionary
     }
 }
+# Example usage:
 # GetDynamicParamDictionary 
 # - This can make it easier to share a single set of param definitions between functions
 # - sample usage
 #function ParameterDefinitions {
 #    param(
-#        [Parameter(Mandatory)][string] $myargument
+#        [Parameter(Mandatory)][string] $myargument,
+#        [Parameter(ValueFromRemainingArguments)] $opts
 #    )
 #}
 #function psmain {
@@ -639,10 +1424,15 @@ function GetDynamicParamDictionary {
 #       #called once with $PSBoundParameters dictionary
 #       #can be used to validate arguments, or set a simpler variable name for access
 #       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
+#           'myargument' { 
 #               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
 #           }
-#           #...
+#           'opts' {
+#               write-warning "Unused parameters: $($PSBoundParameters.$_)" 
+#           }
+#           Default {
+#               write-warning "Unhandled parameter -> [$($_)]"
+#           }
 #       }
 #       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
 #           #...
@@ -650,32 +1440,135 @@ function GetDynamicParamDictionary {
 #   }
 #   end {
 #       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
+#       Write-Host "myargument value is: $myargument"
 #       #myotherfunction @PSBoundParameters
 #   }
 #}
 #psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
 #"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
+#"Running Script Name       :    {0}"    -f $runningscriptname                          | write-host
+"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
 #"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
 # -- --- --- ---
+$thisfileContent = Get-Content $runningscriptname -Raw
+$startTag = ": <<asadmin_start>>"
+$endTag = ": <<asadmin_end>>"
+$pattern = "(?s)`n$startTag[^`n]*`n(.*?)`n$endTag"
+$match = [regex]::Match($thisfileContent,$pattern)
+$asadmin = 0
+if ($match.Success) {
+    $admininfo = $match.Groups[1].Value
+    $asadmin = $admininfo.Contains("asadmin=1")
+    if ($asadmin) {
+        if ($args[0] -eq "PUNK-ELEVATED") {
+            # May be present if launch and elevation was done via cmd.exe script
+            # shift away first arg
+            $newargs = $args | Select-Object -Skip 1
+        } else {
+            $newargs = $args
+        }
+        # -Wait e.g for starting a service or other operations which remainder of script may depend on
+        $arguments = @("-NoProfile","-NoLogo", "-NoExit", "-ExecutionPolicy", "Bypass")
+        $arguments += @("-File", $($MyInvocation.MyCommand.Path))
+        foreach ($a in $newargs) {
+            if ($a -match '\s') {
+                $arguments += "`"$a`""
+            } else {
+                $arguments += $a
+            }
+        }
+        if (-not ([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator)) {
+            # If not elevated, relaunch with elevated privileges
+            Write-Host "Powershell elevating using start-process with -Verb RunAs"
+            if ($PSVersionTable.PSEdition -eq 'Core') { 
+                Start-Process -FilePath "pwsh.exe" -ArgumentList $arguments -Wait -Verb RunAs
+            } else {
+                Start-Process -FilePath "powershell.exe" -ArgumentList $arguments -Wait -Verb RunAs
+            }
+            Exit # Exit the current non-elevated process
+        } else {
+            if ($args[0] -eq "PUNK-ELEVATED") {
+                #Already elevated (by cmd.exe)
+                #.. but it is impossible to modify or reassign the automatic $args variable
+                # so let's start yet another whole new process just to remove one leading argument so the custom  script can operate on parameters cleanly - thanks powershell :/
+                if ($PSVersionTable.PSEdition -eq 'Core') { 
+                    Start-Process -FilePath "pwsh.exe" -ArgumentList $arguments -NoNewWindow -Wait
+                } else {
+                    Start-Process -FilePath "powershell.exe" -ArgumentList $arguments -NoNewWindow -Wait
+                }
+                Exit
+            }
+        }
+    }
+}
+#
+$startTag = ": <<nextshell_start>>"
+$endTag =   ": <<nextshell_end>>"
+$pattern = "(?s)`n$startTag[^`n]*`n(.*?)`n$endTag"
+$match = [regex]::Match($thisfileContent,$pattern)
+if ($match.Success) {
+    $plat =  [System.Environment]::OSVersion.Platform
+    if ($plat -eq "Unix") {
+        $runtime_ident = [System.Runtime.InteropServices.RuntimeInformation]::RuntimeIdentifier
+        switch ($runtime_ident.split("-")[0]) {
+            "freebsd" {
+                # untested
+                $os = "freebsd"
+            }
+            "linux" {
+                $os = "linux"
+            }
+            "osx" {
+                # osx-x64 or osx-arm64 ?
+                $os = "macosx"
+            }
+            default {
+                #openbsd, netbsd ?
+                $os = "other"
+            }
+        }
+    } else {
+        $os = "win32"
+    }
 
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
+    $matchedlines = $match.Groups[1].Value
+    $nextshell_type = ""
+    $nextshell_path = ""
+    ForEach ($line in $($matchedlines -split "\r?\n")) {
+        $m = [regex]::Match($line,".*nextshelltype\[${os}[_]+\]=([^_]*)[_]*") 
+        if ($m.Success) {
+            $nextshell_type = $m.Groups[1].Value 
+        }
+        $m = [regex]::Match($line,".*nextshellpath\[${os}[_]+\]=([^_]*)[_]*") 
+        if ($m.Success) {
+            $nextshell_path = $m.Groups[1].Value
+        }
+        if ($nextshell_type -ne "" -and $nextshell_path -ne "") {
+            break
+        } 
+    }
+    if (-not (("pwsh", "powershell", "") -contains $nextshell_type)) {
+        #nextshell diversion exists for this platform
+        write-host "os: $os pwsh/powershell launching subshell of type: $nextshell_type shellpath: $nextshell_path on script $runningscriptname"
 
+        # $arguments = @($($MyInvocation.MyCommand.Path))
+        # $arguments += $args
+        # NOTE - this gives incorrect argument quoting e.g wrong number of arguments received by launched process for arguments: a "b c" 
+        # $process = (Start-Process -FilePath $nextshell_path -ArgumentList $arguments -NoNewWindow -Wait)
+        # Exit $process.ExitCode
 
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
+        & $nextshell_path $runningscriptname $args
+        exit $LASTEXITCODE
+    }
+}
+
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
 
+#<powershell-payload>
+Write-Error "No powershell code for this script. Try another program such as tcl or bash`n"
+"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
+#</powershell-payload>
 
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
 
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
 Exit $LASTEXITCODE
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell1.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell1.cmd
deleted file mode 100644
index 17fe4c15..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell1.cmd
+++ /dev/null
@@ -1,524 +0,0 @@
-: "[rename set s;proc Hide x {proc $x args {}};Hide :]" "\$(function : {<#pwsh#>})" ^
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide x {proc $x args {}}; Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. (close sqote for unix shells) ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo; Hide @REM]#not necessary but can help avoid errs in testing"
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0.cmd", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd
deleted file mode 100644
index a9688b6a..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd
+++ /dev/null
@@ -1,680 +0,0 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
-: "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT - except for first double quoted section.
-: shebang line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@GOTO :skip_perl_pod_start ^;
-=begin excludeperl 
-: skip_perl_pod_start
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: deck scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh' (^14^) 'perl'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-@SET "shells[14]=perl"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     deck scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using deck scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and deck scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@SET "qstrippedargs=args%arglist%"
-@SET "qstrippedargs=%qstrippedargs:"=%"
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@GOTO skip_privileges
-:getPrivileges
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist%
-            SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            @REM boundary padding
-            @REM boundary padding
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@REM boundary padding
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-@REM boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subproces>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subproces>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-exitcode=0
-#printf "start of bash or sh code"
-
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subproces>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- Perl script section
-# -- leave the script below as is, if all that is required is launching the Tcl payload"
-# --
-# -- Note that perl script isn't called by default when simply running this script by name
-# -- adjust  the nextshell value at the top of the script to point to perl
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-=cut
-#!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
-my $exit_code = 0;
-#use ExtUtils::Installed;
-#my $installed = ExtUtils::Installed->new();
-#my @modules = $installed->modules();
-#print "Modules:\n";
-#foreach my $m (@modules) {
-#    print "$m\n";
-#}
-# -- --- ---
-
-
-
-my $scriptname = $0;
-print "perl $scriptname\n";
-my $i =1;
-foreach my $a(@ARGV) {
-    print "Arg # $i: $a\n";
-}
-
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
-
-# -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
-#print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
-exit $exit_code;
-__END__
-
-# end hide sh/bash/perl block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# -- custom script should generally go below the begin_powershell_payload line
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
-function GetDynamicParamDictionary {
-    [CmdletBinding()]
-    param(
-        [Parameter(ValueFromPipeline=$true, Mandatory=$true)]
-        [string] $CommandName
-    )
-
-    begin {
-        # Get a list of params that should be ignored (they're common to all advanced functions)
-        $CommonParameterNames = [System.Runtime.Serialization.FormatterServices]::GetUninitializedObject([type] [System.Management.Automation.Internal.CommonParameters]) | 
-            Get-Member -MemberType Properties | 
-            Select-Object -ExpandProperty Name
-    }
-
-    process {
-        # Create the dictionary that this scriptblock will return:
-        $DynParamDictionary = New-Object System.Management.Automation.RuntimeDefinedParameterDictionary
-
-        # Convert to object array and get rid of Common params:
-        (Get-Command $CommandName | select -exp Parameters).GetEnumerator() | 
-            Where-Object { $CommonParameterNames -notcontains $_.Key } |
-            ForEach-Object {
-                $DynamicParameter = New-Object System.Management.Automation.RuntimeDefinedParameter (
-                    $_.Key,
-                    $_.Value.ParameterType,
-                    $_.Value.Attributes
-                )
-                $DynParamDictionary.Add($_.Key, $DynamicParameter)
-            }
-
-        # Return the dynamic parameters
-        return $DynParamDictionary
-    }
-}
-# GetDynamicParamDictionary 
-# - This can make it easier to share a single set of param definitions between functions
-# - sample usage
-#function ParameterDefinitions {
-#    param(
-#        [Parameter(Mandatory)][string] $myargument
-#    )
-#}
-#function psmain {
-#   [CmdletBinding()]
-#   param()
-#   dynamicparam { GetDynamicParamDictionary ParameterDefinitions }
-#   process {
-#       #called once with $PSBoundParameters dictionary
-#       #can be used to validate arguments, or set a simpler variable name for access
-#       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
-#               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
-#           }
-#           #...
-#       }
-#       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
-#           #...
-#       }
-#   }
-#   end {
-#       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
-#       #myotherfunction @PSBoundParameters
-#   }
-#}
-#psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-no script engine should try to run me
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell-old.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell-old.cmd
deleted file mode 100644
index 1cb9e0ef..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell-old.cmd
+++ /dev/null
@@ -1,270 +0,0 @@
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide s {proc $s args {}}; Hide :;rename set s2;Hide set;s2 1 list]"; set -- : "$@"; $1 = @'
-: heredoc1 - hide from powershell (close sqote for unix shells) ' \
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo]#not necessary but can help avoid errs in testing"
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-@REM {
-@REM DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required and will reduce functionality.
-@REM Even comment lines can be part of the functionality of this script - modify with care.
-@REM Change the value of nextshell in the next line if desired, and code within payload sections as appropriate.
-@SET "nextshell=pwsh"
-@REM nextshell set to pwsh,sh,bash or tclsh
-@REM @ECHO nextshell is %nextshell%
-@SET "validshells=pwsh,sh,bash,tclsh"
-@CALL SET keyRemoved=%%validshells:%nextshell%=%%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix)
-@REM  -- This section intended only to launch the next shell
-@REM  -- Avoid customising this if possible. cmd/batch script is probably the least expressive language.
-@REM  -- custom windows payloads should be in powershell,tclsh or sh/bash code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@IF %nextshell%==pwsh (
-    CALL pwsh -nop -c set-executionpolicy -Scope CurrentUser RemoteSigned
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-    REM test availability of preferred option of powershell7+ pwsh
-    CALL pwsh -nop -nol -c write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    IF !pwshtest_exitcode!==0 CALL pwsh -nop -nol "%~dp0%~n0.ps1" %* & SET task_exitcode=!errorlevel!
-    REM fallback to powershell if pwsh failed 
-    IF NOT !pwshtest_exitcode!==0 (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        CALL powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF %nextshell%==bash (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        CALL %nextshell% "!wslpath!%fname%" %* & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            CALL %nextshell% "%~dp0%fname%" %* & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value %nextshell% valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit
-        )
-    )
-)
-@GOTO :endlib
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@GOTO :eof
-:endlib
-
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit
-@GOTO :exit
-# }
-# rem call %nextshell% "%~dp0%~n0.cmd" %* 
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s2 set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup
-Hide :exit;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    :
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# unbal }
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: cmd exit label - return exitcode 
-:exit
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell.cmd
deleted file mode 100644
index 0e6b9ff9..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell.cmd
+++ /dev/null
@@ -1,661 +0,0 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
-: "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT - except for first double quoted section.
-: shebang line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@GOTO :skip_perl_pod_start ^;
-=begin excludeperl 
-: skip_perl_pod_start
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh' (^14^) 'perl'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-@SET "shells[14]=perl"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist%
-            SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            @REM boundary padding
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@REM boundary padding
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-@REM boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subproces>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subproces>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-exitcode=0
-#printf "start of bash or sh code"
-
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subproces>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- Perl script section
-# -- leave the script below as is, if all that is required is launching the Tcl payload"
-# --
-# -- Note that perl script isn't called by default when simply running this script by name
-# -- adjust  the nextshell value at the top of the script to point to perl
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-=cut
-#!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
-my $exit_code = 0;
-#use ExtUtils::Installed;
-#my $installed = ExtUtils::Installed->new();
-#my @modules = $installed->modules();
-#print "Modules:\n";
-#foreach my $m (@modules) {
-#    print "$m\n";
-#}
-# -- --- ---
-
-
-
-my $scriptname = $0;
-print "perl $scriptname\n";
-my $i =1;
-foreach my $a(@ARGV) {
-    print "Arg # $i: $a\n";
-}
-
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
-
-# -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
-#print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
-exit $exit_code;
-__END__
-
-# end hide sh/bash/perl block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# -- custom script should generally go below the begin_powershell_payload line
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
-function GetDynamicParamDictionary {
-    [CmdletBinding()]
-    param(
-        [Parameter(ValueFromPipeline=$true, Mandatory=$true)]
-        [string] $CommandName
-    )
-
-    begin {
-        # Get a list of params that should be ignored (they're common to all advanced functions)
-        $CommonParameterNames = [System.Runtime.Serialization.FormatterServices]::GetUninitializedObject([type] [System.Management.Automation.Internal.CommonParameters]) | 
-            Get-Member -MemberType Properties | 
-            Select-Object -ExpandProperty Name
-    }
-
-    process {
-        # Create the dictionary that this scriptblock will return:
-        $DynParamDictionary = New-Object System.Management.Automation.RuntimeDefinedParameterDictionary
-
-        # Convert to object array and get rid of Common params:
-        (Get-Command $CommandName | select -exp Parameters).GetEnumerator() | 
-            Where-Object { $CommonParameterNames -notcontains $_.Key } |
-            ForEach-Object {
-                $DynamicParameter = New-Object System.Management.Automation.RuntimeDefinedParameter (
-                    $_.Key,
-                    $_.Value.ParameterType,
-                    $_.Value.Attributes
-                )
-                $DynParamDictionary.Add($_.Key, $DynamicParameter)
-            }
-
-        # Return the dynamic parameters
-        return $DynParamDictionary
-    }
-}
-# GetDynamicParamDictionary 
-# - This can make it easier to share a single set of param definitions between functions
-# - sample usage
-#function ParameterDefinitions {
-#    param(
-#        [Parameter(Mandatory)][string] $myargument
-#    )
-#}
-#function psmain {
-#   [CmdletBinding()]
-#   param()
-#   dynamicparam { GetDynamicParamDictionary ParameterDefinitions }
-#   process {
-#       #called once with $PSBoundParameters dictionary
-#       #can be used to validate arguments, or set a simpler variable name for access
-#       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
-#               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
-#           }
-#           #...
-#       }
-#       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
-#           #...
-#       }
-#   }
-#   end {
-#       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
-#       #myotherfunction @PSBoundParameters
-#   }
-#}
-#psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-no script engine should try to run me
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell1.cmd b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell1.cmd
deleted file mode 100644
index 17fe4c15..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell1.cmd
+++ /dev/null
@@ -1,524 +0,0 @@
-: "[rename set s;proc Hide x {proc $x args {}};Hide :]" "\$(function : {<#pwsh#>})" ^
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide x {proc $x args {}}; Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. (close sqote for unix shells) ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo; Hide @REM]#not necessary but can help avoid errs in testing"
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0.cmd", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-shellbat.bat b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-shellbat.bat
deleted file mode 100644
index aa9039a9..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-shellbat.bat
+++ /dev/null
@@ -1,112 +0,0 @@
-: "[proc : args {}]" ;# *tcl shellbat - call with sh,bash,tclsh on any platform, or with cmd on windows.
-: <<'HIDE_FROM_BASH_AND_SH'
-: ;# leading colon hides from .bat, trailing slash hides next line from tcl \
-@call tclsh "%~dp0%~n0.bat" %*
-: ;#\
-@set taskexitcode=%errorlevel% & goto :exit
-# -*- tcl -*-
-# #################################################################################################
-# This is a tcl shellbat file
-# It is tuned to run when called as a batch file, a tcl script, an sh script or a bash script,
-# so the specific layout and characters used are quite sensitive to change.
-# It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# e.g ./filename.sh.bat in sh or bash or powershell
-# e.g filename.sh or filename.sh.bat at windows command prompt
-# e.g tclsh filename.sh.bat |  sh filename.sh.bat  | bash filename.sh.bat
-# In all cases an arbitrary number of arguments are accepted
-# To avoid the initial commandline on stdout when calling as a batch file on windows, use:
-# cmd /Q /c filename.sh.bat
-# (because we cannot use @if to silence it, as this isn't understood by tcl,sh or bash)
-# #################################################################################################
-#fconfigure stdout -translation crlf
-# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-
-
-#<tcl-payload>
-#<tcl-payload/>
-
-# --- --- --- --- --- --- --- --- --- --- --- --- ---
-# only exit if needed. see exitcode notes at bottom of file and exit there for consistency across invocation methods
-# --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-#--
-#-- bash/sh code follows. 
-#-- protect from tcl using line continuation char on the previous comment for each line, like so: \
-printf "etc"
-#-- or alternatively place sh/bash script within the false==false block
-#-- whilst being careful to balance braces {}
-#-- For more complex needs you should call out to external scripts
-#--
-#-- END marker for hide_from_bash_and_sh\
-HIDE_FROM_BASH_AND_SH
-
-#---------------------------------------------------------
-#-- This if statement hides(mostly) a sh/bash code block from Tcl
-if false==false # else { 
-then
-:
-#---------------------------------------------------------
-    #-- leave as is if all that's required is launching the Tcl payload"
-    #--
-    #-- Note that sh/bash script isn't called when running a .bat from cmd.exe on windows by default
-    #-- adjust line 4:  @call tclsh ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-    #--   if sh/bash scripting needs to run on windows too.
-    #--
-    #printf "start of bash or sh code"
-    
-    #<shell-payload-pre-tcl>
-    #</shell-payload-pre-tcl>
-
-
-    #-- sh/bash launches Tcl here instead of shebang line at top
-    #<shell-launch-tcl>
-    #-- use exec to use exitcode (if any) directly from the tcl script
-    exec /usr/bin/env tclsh "$0" "$@"
-    #</shell-launch-tcl>
-    
-    #-- alternative - if sh/bash script required to run after the tcl call.
-    #/usr/bin/env tclsh "$0" "$@"
-    #tcl_exitcode=$?
-    #echo "tcl_exitcode: ${tcl_exitcode}"
-    
-    #<shell-payload-post-tcl>
-    #</shell-payload-post-tcl>
-    
-    #-- override exitcode example
-    #exit 66
-    
-    #printf "No need for trailing slashes for sh/bash code here\n"
-#---------------------------------------------------------
-fi
-# closing brace for Tcl }
-#---------------------------------------------------------
-
-#-- tcl and shell script now both active
-
-#-- comment for line sample 1 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 1 \n"
-
-#-- comment for line sample 2 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 2 \n"
-
-
-#-- Consistent exitcode from sh,bash,tclsh or cmd
-#-- Call exit in tcl (or sh/bash) code only if explicitly required, otherwise leave this commented out.
-#-- (script might be more widely useable without explicit exit. e.g in tcl: set ::argc 1; set ::argv "val"; source filename.sh.bat )
-#-- exit line unprotected by trailing slash will work for tcl and/or sh/bash
-#exit 0 
-#exit 42
-
-
-
-#-- make sure sh/bash/tcl all skip over .bat style exit \
-: <<'shell_end'
-#-- .bat exit with exitcode from tcl process \
-:exit
-: ;# \
-@exit /B %taskexitcode%
-# .bat has exited \
-shell_end
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/util-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/util-0.1.0.tm
deleted file mode 100644
index 8e4699dc..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mix/util-0.1.0.tm
+++ /dev/null
@@ -1,367 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::mix::util 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-namespace eval punk::mix::util {
-    variable has_winpath 0
-}
-
-if {"windows" eq $::tcl_platform(platform)} {
-   if {![catch {package require punk::winpath}]} {
-       set punk::mix::util::has_winpath 1
-   }
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::mix::util {
-    variable tmpfile_counter 0 ;#additional tmpfile collision avoidance
-
-    namespace export *
-
-    #NOTE fileutil::cat seems to silently ignore options if passed at end instead of before file!
-    proc fcat {args} {
-        variable has_winpath
-
-
-        set knownopts [list -eofchar -translation -encoding --]
-        set last_opt 0
-        for {set i 0} {$i < [llength $args]} {incr i} {
-            set ival [lindex $args $i]
-            #puts stdout "i:$i a: $ival known: [expr {$ival in $knownopts}]"
-            if {$ival eq "--"} {
-                set last_opt $i
-                break
-            } else {
-                if {$ival in $knownopts} {
-                    #puts ">known at $i : [lindex $args $i]"
-                    if {$i % 2} {
-                        error "unexpected option at index $i. known options: $knownopts must come in -opt val pairs."
-                    }
-                    incr i
-                    set last_opt $i
-                } else {
-                set last_opt [expr {$i - 1}]
-                break
-                }
-            }
-        }
-        set first_non_opt [expr {$last_opt + 1}]
-
-        #puts stderr "first_non_opt: $first_non_opt"
-        set opts [lrange $args -1 $first_non_opt-1]
-        set paths [lrange $args $first_non_opt end]
-        if {![llength $paths]} {
-            error "Unable to find file in the supplied arguments: $args. Ensure options are all -opt val pairs and that file name(s) follow"
-        }
-
-        #puts stderr "opts: $opts  paths: $paths"
-
-        #let's proceed, but warn the user if an apparent option is in paths
-        foreach opt [list -encoding -eofchar -translation] {
-            if {$opt in $paths} {
-                puts stderr "fcat WARNING: apparent option $opt found after file argument(s) (expected them before filenames). Passing to fileutil::cat anyway - but for at least some versions, these options may be ignored. commandline 'fcat $args'"
-            }
-        }
-
-        if {$::tcl_platform(platform) ne "windows"} {
-            return [fileutil::cat {*}$args]
-        }
-
-
-        set finalpaths [list]
-        foreach p $paths {
-            if {$has_winpath && [punk::winpath::illegalname_test $p]} {
-                lappend finalpaths [punk::winpath::illegalname_fix $p]
-            } else {
-                lappend finalpaths $p
-            }
-        }
-        fileutil::cat {*}$opts {*}$finalpaths
-    }
-
-    #----------------------------------------
-    namespace eval internal {
-        proc path_common_prefix_pop {varname} {
-            upvar 1 $varname var
-            set var [lassign $var head]
-            return $head
-        }
-    }
-    proc path_common_prefix {args} {
-        set dirs $args
-        set parts [file split [internal::path_common_prefix_pop dirs]]
-        while {[llength $dirs]} {
-            set r {}
-            foreach cmp $parts elt [file split [internal::path_common_prefix_pop dirs]] {
-                if {$cmp ne $elt} break
-                lappend r $cmp
-            }
-            set parts $r
-        }
-        if {[llength $parts]} {
-            return [file join {*}$parts]
-        } else {
-            return ""
-        }
-    }
-
-    #retains case from first argument only - caseless comparison
-    proc path_common_prefix_nocase {args} {
-        set dirs $args
-        set parts [file split [internal::path_common_prefix_pop dirs]]
-        while {[llength $dirs]} {
-            set r {}
-            foreach cmp $parts elt [file split [internal::path_common_prefix_pop dirs]] {
-                if {![string equal -nocase $cmp $elt]} break
-                lappend r $cmp
-            }
-            set parts $r
-        }
-        if {[llength $parts]} {
-            return [file join {*}$parts]
-        } else {
-            return ""
-        }
-    }
-    #----------------------------------------
-
-    #namespace import ::punk::ns::nsimport_noclobber
-
-    proc namespace_import_pattern_to_namespace_noclobber {pattern ns} {
-        set source_ns [namespace qualifiers $pattern]
-        if {![namespace exists $source_ns]} {
-            error "namespace_import_pattern_to_namespace_noclobber error namespace $source_ns not found"
-        }
-        if {![string match ::* $ns]} {
-            set nscaller [uplevel 1 {namespace current}]
-            set ns [punk::nsjoin $nscaller $ns]
-        }
-        set a_export_patterns [namespace eval $source_ns {namespace export}]
-        set a_commands [info commands $pattern]
-        set a_tails [lmap v $a_commands {namespace tail $v}]
-        set a_exported_tails [list]
-        foreach pattern $a_export_patterns {
-            set matches [lsearch -all -inline $a_tails $pattern]
-            foreach m $matches {
-                if {$m ni $a_exported_tails} {
-                    lappend a_exported_tails $m
-                }
-            }
-        }
-        set imported_commands [list]
-        foreach e $a_exported_tails {
-            set imported [namespace eval $ns [string map [list <func> $e <a> $source_ns] {
-                set cmd ""
-                if {![catch {namespace import <a>::<func>}]} {
-                    set cmd <func>
-                }
-                set cmd
-            }]]
-            if {[string length $imported]} {
-                lappend imported_commands $imported
-            }
-        }
-        return $imported_commands
-    }
-
-    proc askuser {question} {
-        if {![catch {package require punk::lib}]} {
-            return [punk::lib::askuser $question] ;#takes account of terminal mode raw vs line (if punk::console used)
-        }
-        puts stdout $question
-        flush stdout
-        set stdin_state [fconfigure stdin]
-        fconfigure stdin -blocking 1
-        set answer [gets stdin]
-        fconfigure stdin -blocking [dict get $stdin_state -blocking]
-        return $answer
-    }
-
-    #review - can be surprising if caller unaware it uses try
-    proc do_in_path {path script} {
-        #from ::kettle::path::in
-        set here [pwd]
-        try {
-            cd $path
-            uplevel 1 $script
-        } finally {
-            cd $here
-        }
-    }
-
-    proc foreach-file {path script_pathvariable script} {
-        upvar 1 $script_pathvariable thepath
-
-        set known {}
-        lappend waiting $path
-        while {[llength $waiting]} {
-        set pending $waiting
-        set waiting {}
-        set at 0
-        while {$at < [llength $pending]} {
-            set current [lindex $pending $at]
-            incr at
-
-            # Do not follow into parent.
-            if {[string match *.. $current]} continue
-
-            # Ignore what we have visited already.
-            set c [file dirname [file normalize $current/___]]
-            if {[dict exists $known $c]} continue
-            dict set known $c .
-
-            if {[file tail $c] eq ".git"} {
-                continue
-            }
-
-            # Expand directories.
-            if {[file isdirectory $c]} {
-                lappend waiting {*}[lsort -unique [glob -directory $c * .*]]
-                continue
-            }
-
-            # Handle files as per the user's will.
-            set thepath $current
-            switch -exact -- [catch { uplevel 1 $script } result] {
-            0 - 4 {
-                # ok, continue - nothing
-            }
-            2 {
-                # return, abort, rethrow
-                return -code return
-            }
-            3 {
-                # break, abort
-                return
-            }
-            1 - default {
-                # error, any thing else - rethrow
-                return -code error $result
-            }
-            }
-        }
-        }
-        return
-    }
-
-    # review punk::lib::tm_version.. functions
-
-    proc is_valid_tm_version {versionpart} {
-        #Needs to be suitable for use with Tcl's 'package vcompare'
-        if {![catch [list package vcompare $versionpart $versionpart]]} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    #Note that semver only has a small overlap with tcl tm versions.
-    #todo - work out what overlap and whether it's even useful
-    #see also TIP #439: Semantic Versioning (tcl 9??)
-    proc semver {versionstring} {
-        set re {^(0|[1-9]\d*)\.(0|[1-9]\d*)\.(0|[1-9]\d*)(?:-((?:0|[1-9]\d*|\d*[a-zA-Z-][0-9a-zA-Z-]*)(?:\.(?:0|[1-9]\d*|\d*[a-zA-Z-][0-9a-zA-Z-]*))*))?(?:\+([0-9a-zA-Z-]+(?:\.[0-9a-zA-Z-]+)*))?$}
-    }
-    #todo - semver conversion/validation for other systems?
-    proc magic_tm_version {} {
-        set magicbase 999999  ;#deliberately large so given load-preference when testing!
-        #we split the literal to avoid the literal appearing here - reduce risk of accidentally converting to a release version
-        return ${magicbase}.0a1.0
-    }
-
-
-
-    proc tmpfile {{prefix tmp_}} {
-        #note risk of collision if pregenerating a list of tmpfile names
-        #we will maintain an icrementing id so the caller doesn't have to bear that in mind
-        variable tmpfile_counter
-        global tcl_platform
-        return .punkutil_$prefix[pid]_[clock microseconds]_[incr tmpfile_counter]_[info hostname]_$tcl_platform(user)
-    }
-
-    proc tmpdir {} {
-        # Taken from tcllib fileutil.
-        global tcl_platform env
-
-        set attempdirs [list]
-        set problems   {}
-
-        foreach tmp {TEMP TMP TMPDIR} {
-            if { [info exists env($tmp)] } {
-                lappend attempdirs $env($tmp)
-            } else {
-                lappend problems "No environment variable $tmp"
-            }
-        }
-
-        switch $tcl_platform(platform) {
-        windows {
-            lappend attempdirs "C:\\TEMP" "C:\\TMP" "\\TEMP" "\\TMP"
-        }
-        macintosh {
-            lappend attempdirs $env(TRASH_FOLDER)  ;# a better place?
-        }
-        default {
-            lappend attempdirs \
-            [file join / tmp] \
-            [file join / var tmp] \
-            [file join / usr tmp]
-        }
-        }
-
-        lappend attempdirs [pwd]
-
-        foreach tmp $attempdirs {
-            if { [file isdirectory $tmp] &&
-                [file writable $tmp] } {
-                return [file normalize $tmp]
-            } elseif { ![file isdirectory $tmp] } {
-                lappend problems "Not a directory: $tmp"
-            } else {
-                lappend problems "Not writable: $tmp"
-            }
-        }
-
-        # Fail if nothing worked.
-        return -code error "Unable to determine a proper directory for temporary files\n[join $problems \n]"
-    }
-
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::mix::util [namespace eval punk::mix::util {
-    variable version
-    set version 0.1.0
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mod-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mod-0.1.tm
deleted file mode 100644
index 8f1ba266..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/mod-0.1.tm
+++ /dev/null
@@ -1,161 +0,0 @@
-#punkapps app manager
-# deck cli
-
-namespace eval punk::mod::cli {
-    namespace export help list run
-    namespace ensemble create
-
-   # namespace ensemble configure [namespace current] -unknown punk::mod::cli::_unknown
-    if 0 {
-    proc _unknown {ns args} {
-        puts stderr "punk::mod::cli::_unknown '$ns' '$args'"
-        puts stderr "punk::mod::cli::help $args"
-        puts stderr "arglen:[llength $args]"
-        punk::mod::cli::help {*}$args
-    }
-    }
-
-    #cli must have _init method - usually used to load commandsets lazily
-    #
-    variable initialised 0
-    proc _init {args} {
-        variable initialised
-        if {$initialised} {
-            return
-        }
-        #...
-        set initialised 1
-    }
-
-    proc help {args} {
-        set basehelp [punk::mix::base help {*}$args]
-        #namespace export
-        return $basehelp
-    }
-    proc getraw {appname} {
-        set app_folders [punk::config::configure running apps]
-        #todo search each app folder
-        set bases [::list]
-        set versions [::list]
-        set mains [::list]
-        set appinfo [::list bases {} mains {} versions {}]
-
-        foreach containerfolder $app_folders {
-            lappend bases $containerfolder
-            if {[file exists $containerfolder]} {
-                if {[file exists $containerfolder/$appname/main.tcl]} {
-                    #exact match - only return info for the exact one specified
-                    set namematches $appname
-                    set parts [split $appname -]
-                } else {
-                    set namematches [glob -nocomplain -dir $containerfolder -type d -tail ${appname}-*]
-                    set namematches [lsort $namematches] ;#todo - -ascii? -dictionary? natsort?
-                }
-                foreach nm $namematches {
-                    set mainfile $containerfolder/$nm/main.tcl
-                    set parts [split $nm -]
-                    if {[llength $parts] == 1} {
-                        set ver ""
-                    } else {
-                        set ver [lindex $parts end]
-                    }
-                    if {$ver ni $versions} {
-                        lappend versions $ver
-                        lappend mains $ver $mainfile
-                    } else {
-                        puts stderr "punk::apps::app version '$ver' of app '$appname' already encountered at $mainfile. (will use earliest encountered in running-config apps and ignore others of same version)"
-                    }
-                }
-            } else {
-                puts stderr "punk::apps::app missing apps_folder:'$containerfolder' Ensure apps_folder is set in punk::config"
-            }
-        }
-        dict set appinfo versions $versions
-        #todo - natsort!
-        set sorted_versions [lsort $versions]
-        set latest [lindex $sorted_versions 0]
-        if {$latest eq "" && [llength $sorted_versions] > 1} {
-            set latest [lindex $sorted_versions 1]
-        }
-        dict set appinfo latest $latest
-
-        dict set appinfo bases $bases
-        dict set appinfo mains $mains
-        return $appinfo
-    }
-
-    proc list {{glob *}} {
-        set apps_folder [punk::config::configure running apps]
-        if {[file exists $apps_folder]} {
-            if {[file exists $apps_folder/$glob]} {
-                #tailcall source $apps_folder/$glob/main.tcl
-                return $glob
-            }
-            set apps [glob -nocomplain -dir $apps_folder -type d -tail $glob]
-            if {[llength $apps] == 0} {
-                if {[string first * $glob] <0 && [string first ? $glob] <0} {
-                    #no glob chars supplied - only launch if exact match for name part
-                    set namematches [glob -nocomplain -dir $apps_folder -type d -tail ${glob}-*]
-                    set namematches [lsort $namematches] ;#todo - -ascii? -dictionary? natsort?
-                    if {[llength $namematches] > 0} {
-                        set latest [lindex $namematches end]
-                        lassign $latest nm ver
-                        #tailcall source $apps_folder/$latest/main.tcl
-                    }
-                }
-            }
-
-            return $apps
-        }
-    }
-
-    #todo - way to launch as separate process
-    # solo-opts only before appname - args following appname are passed to the app
-    proc run {args} {
-        set nameposn [lsearch -not $args -*]
-        if {$nameposn < 0} {
-            error "punkapp::run unable to determine application name"
-        }
-        set appname [lindex $args $nameposn]
-        set controlargs [lrange $args 0 $nameposn-1]
-        set appargs [lrange $args $nameposn+1 end]
-
-        set appinfo [punk::mod::cli::getraw $appname]
-        if {[llength [dict get $appinfo versions]]} {
-            set ver [dict get $appinfo latest]
-            puts stdout "info: $appinfo"
-            set ::argc [llength $appargs]
-            set ::argv $appargs
-            source [dict get $appinfo mains $ver]
-            if {"-hideconsole" in $controlargs} {
-                puts stderr "attempting console hide"
-                #todo - something better - a callback when window mapped?
-                after 500 {::punkapp::hide_console}
-            }
-            return $appinfo
-        } else {
-            error "punk::mod::cli unable to run '$appname'. main.tcl not found in [dict get $appinfo bases]"
-        }
-    }
-
-
-}
-
-namespace eval punk::mod::cli {
-    proc _cli {args} {
-        #don't use tailcall - base uses info level to determine caller
-        ::punk::mix::base::_cli {*}$args
-    }
-    variable default_command help
-    package require punk::mix::base
-    package require punk::overlay
-    punk::overlay::custom_from_base [namespace current] ::punk::mix::base
-}
-
-package provide punk::mod [namespace eval punk::mod {
-    variable version
-    set version 0.1
-}]
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm
deleted file mode 100644
index 3de09e5e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm
+++ /dev/null
@@ -1,4458 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::ns 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-#BUGS
-# 2025-08
-# n// and n/// won't output info about 'namespace path' if there are no commands in the namespace
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-package require punk::lib
-package require punk::args
-
-tcl::namespace::eval ::punk::ns::evaluator {
-    #eval-_NS_xxx_NS_etc procs
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::ns {
-    variable ns_current
-    #allow presetting
-    if {![info exists ::punk::ns::ns_current]} {
-        set ns_current ::
-    }
-
-    variable ns_re_cache [dict create] ;#cache regular expressions used in globmatchns
-    namespace export nsjoin nsprefix nstail nsparts nseval nschildren nsimport_noclobber corp pkguse cmdtype resolve_command synopsis
-    namespace path {::punk::lib ::punk::ansi}  ;#list_as_lines etc
-
-    catch {
-        package require debug
-        debug define punk.ns.compile
-        #debug on punk.ns.compile
-        #debug level punk.ns.compile 3
-    }
-
-    #leading colon makes it hard (impossible?) to call directly if not within the namespace
-    proc ns/ {v {ns_or_glob ""} args}  {
-        variable ns_current ;#change active ns of repl by setting ns_current
-
-        set ns_caller [uplevel 1 {::namespace current}]
-        #puts stderr "ns_cur:$ns_current ns_call:$ns_caller"
-
-
-        set types [list all]
-        set nspathcommands 0
-        if {$v eq "/"} {
-            set types [list children]
-        }
-        if {$v eq "///"} {
-            set nspathcommands 1
-        }
-
-        set ns_or_glob [string map {:::: ::} $ns_or_glob]
-
-        #todo - cooperate with repl?
-        set out ""
-        if {$ns_or_glob eq ""} {
-            set is_absolute 1
-            set ns_queried  $ns_current
-            set out [nslist -types $types -nspathcommands $nspathcommands [nsjoin $ns_current *]]
-        } else {
-            set is_absolute [string match ::* $ns_or_glob]
-            set has_globchars [regexp {[*?]} $ns_or_glob] ;#basic globs only?
-            if {$is_absolute} {
-                if {!$has_globchars} {
-                    if {![nsexists $ns_or_glob]} {
-                        error "cannot change to namespace $ns_or_glob"
-                    }
-                    set ns_current $ns_or_glob
-                    set ns_queried $ns_current
-                    tailcall ns/ $v ""
-                } else {
-                    set ns_queried $ns_or_glob
-                    set out [nslist -types $types -nspathcommands $nspathcommands $ns_or_glob]
-                }
-            } else {
-                if {!$has_globchars} {
-                    set nsnext [nsjoin $ns_current $ns_or_glob]
-                    if {![nsexists $nsnext]} {
-                        error "cannot change to namespace $ns_or_glob"
-                    }
-                    set ns_current $nsnext
-                    set ns_queried $nsnext
-                    set out [nslist -types $types -nspathcommands $nspathcommands [nsjoin $nsnext *]]
-                } else {
-                    set ns_queried [nsjoin $ns_current $ns_or_glob]
-                    set out [nslist -types $types -nspathcommands $nspathcommands [nsjoin $ns_current $ns_or_glob]]
-                }
-            }
-        }
-        set ns_display "\n$ns_queried"
-        if {$ns_current eq $ns_queried} {
-            if {$ns_current in [info commands $ns_current] } {
-                if {![catch [list tcl::namespace::ensemble configure $ns_current] ensemble_info]} {
-                    if {[llength $ensemble_info] > 0} {
-                        #this namespace happens to match ensemble command.
-                        #todo - keep cache of encountered ensembles from commands.. and examine namespace in the configure info.
-                        set ns_display  "\n[a+ yellow bold]$ns_current  (ensemble)[a+]"
-                    }
-                }
-            }
-        }
-        append out $ns_display
-        return $out
-
-
-    }
-
-
-    #create possibly nested namespace structure - but only if not already existant
-    proc n/new {args} {
-        variable ns_current
-        if {![llength $args]} {
-            error "usage: :/new <ns> \[<ns> ...\]"
-        }
-        set a1 [lindex $args 0]
-        set is_absolute [string match ::* $a1]
-        if {$is_absolute} {
-            set nspath [nsjoinall {*}$args]
-        } else {
-            if {[string match :* $a1]} {
-                puts stderr "n/new WARNING namespace with leading colon '$a1' is likely to have unexpected results"
-            }
-            set nspath [nsjoinall $ns_current {*}$args]
-        }
-
-        set ns_exists [nseval [nsprefix $nspath] [list ::tcl::namespace::exists [nstail $nspath] ]]
-
-        if {$ns_exists} {
-            error "Namespace $nspath already exists"
-        }
-        #tcl::namespace::eval [nsprefix $nspath] [list tcl::namespace::eval [nstail $nspath] {}]
-        nseval [nsprefix $nspath] [list ::tcl::namespace::eval [nstail $nspath] {}]
-        n/ $nspath
-    }
-
-
-    #nn/ ::/ nsup/ - back up one namespace level
-    proc nsup/ {v args} {
-        variable ns_current
-        if {$ns_current eq "::"} {
-            puts stderr "Already at global namespace '::'"
-        } else {
-            set out ""
-            set nsq [nsprefix $ns_current]
-            if {$v eq "/"} {
-                set out [get_nslist -match [nsjoin $nsq *] -types [list children]]
-            } else {
-                set out [get_nslist -match [nsjoin $nsq *] -types [list all]]
-            }
-            #set out [nslist [nsjoin $nsq *]]
-            set ns_current $nsq
-            append out "\n$ns_current"
-            return $out
-        }
-    }
-
-    #todo - walk up each ns - testing for possibly weirdly named namespaces
-    #needed to use n/ to change to an oddly named namespace such as ":x"
-    proc nsexists {nspath} {
-        if {$nspath eq ""} {return 0}
-        set parts [nsparts $nspath]
-        if {[lindex $parts 0] ne ""} {
-            #relative
-            set ns_caller [uplevel 1 {::namespace current}]
-            set fq_nspath [nsjoin $ns_caller $nspath]
-        } else {
-            set fq_nspath $nspath
-        }
-        if {[nseval_ifexists $fq_nspath {::string cat ok}] eq "ok"} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    #recursive nseval - for introspection of weird namespace trees
-    #approx 10x slower than normal tcl::namespace::eval - but still only a few microseconds.. fine for repl introspection
-    #WARNING: creates namespaces if they don't exist
-    proc nseval_getscript {location} {
-        set parts [nsparts $location]
-        if {[lindex $parts 0] eq ""} {
-            lset parts 0 ::
-        }
-        if {[lindex $parts end] eq ""} {
-            set parts [lrange $parts 0 end-1]
-        }
-
-        set body ""
-        set i 0
-        set tails [lrepeat [llength $parts] ""]
-        foreach ns $parts {
-            set cmdlist [list ::tcl::namespace::eval $ns]
-            set t ""
-            if {$i > 0} {
-                append body " <lb>"
-            }
-            append body $cmdlist
-            if {$i == ([llength $parts] -1)} {
-                append body " <script>"
-            }
-            if {$i > 0} {
-                set t {<rb>}
-            }
-            lset tails $i $t
-            incr i
-        }
-        append body [join [lreverse $tails] " "]
-        #puts stdout "tails: $tails"
-        #puts stdout "i: $i"
-        set body [string map [list <lb> "\{" <rb> "\}"] $body]
-
-        set scr {[::list ::eval [::uplevel <i>  {::set script}]]}
-
-        set up [expr {$i - 1}]
-        set scr [string map "<i> $up" $scr]
-
-        set body [string map [list <script> $scr] $body]
-        return $body
-    }
-    proc nseval {fqns script} {
-        #create one proc for each fully qualified namespace to evaluate script
-        if {![string match ::* $fqns]} {
-            error "nseval only accepts a fully qualified namespace"
-        }
-        set loc [string map {:: _NS_} $fqns]
-        #set cmd ::punk::pipecmds::nseval_$loc
-        set cmd ::punk::ns::evaluator::eval-$loc
-        if {$cmd ni [info commands $cmd]} {
-            append body \n [nseval_getscript $fqns]
-            proc $cmd {script} $body
-            debug.punk.ns.compile {proc $cmd} 2
-        }
-        tailcall $cmd $script
-    }
-    proc nseval_ifexists {ns script} {
-        set parts [nsparts $ns]
-        if {[lindex $parts 0] ne ""} {
-            #relative
-            set nscaller [uplevel 1 {::tcl::namespace::current}]
-            set nsfq [nsjoin $nscaller $ns]
-        } else {
-            set nsfq $ns
-        }
-        if {[lsearch [nsparts $nsfq] :*] >=0} {
-            #weird_ns
-            set ns_script [nseval_ifexists_getscript $nsfq]
-            return [uplevel 1 [list {*}$ns_script $script]]
-        } else {
-            if {[namespace exists $nsfq]} {
-                return [namespace eval $nsfq $script]
-            }
-        }
-    }
-    proc nseval_ifexists_getscript {location} {
-        set parts [nsparts $location]
-        if {[lindex $parts 0] eq ""} {
-            lset parts 0 ::
-        }
-        if {[lindex $parts end] eq ""} {
-            set parts [lrange $parts 0 end-1]
-        }
-
-        set body "apply \{{script} \{eval \[string map \[list <s> \$script\] \{"
-        set i 0
-        set tails [lrepeat [llength $parts] ""]
-        foreach ns $parts {
-            set cmdlist [list ::punk::ns::eval_no_create $ns]
-            set t ""
-            if {$i > 0} {
-                append body " <lb>"
-            }
-            append body $cmdlist
-            if {$i == ([llength $parts] -1)} {
-                append body " {<s>}"
-            }
-            if {$i > 0} {
-                set t {<rb>}
-            }
-            lset tails $i $t
-            incr i
-        }
-        append body [join [lreverse $tails] " "]
-        #puts stdout "tails: $tails"
-        #puts stdout "i: $i"
-        set body [string map [list <lb> "\{" <rb> "\}"] $body]
-        append body " \}\]\}\}"
-        return $body
-    }
-    proc eval_no_create {ns script} {
-        uplevel 1 [string map [list <ns> $ns <scr> $script] {
-            if {[::tcl::namespace::exists <ns>]} {
-                ::tcl::namespace::eval <ns> {<scr>}
-            } else {
-                error "no such namespace <ns>"
-            }
-        }]
-    }
-
-
-    punk::args::define {
-        @id     -id     ::punk::ns::nschildren
-        @cmd    -name     punk::ns::nschildren
-        @opts
-        -sort -default "natural" -choices {none natural ascii dictionary}
-        ns
-    }
-    proc nschildren {args} {
-        set argd [punk::args::parse $args withid ::punk::ns::nschildren]
-        set opt_sort [dict get $argd opts -sort]
-        set ns       [dict get $argd values ns]
-        set parts [nsparts $ns]
-        if {[lindex $parts 0] ne ""} {
-            #relative
-            set nscaller [uplevel 1 {::tcl::namespace::current}]
-            set fqns [nsjoin $nscaller $ns]
-        } else {
-            set fqns $ns
-        }
-        #if {![string match ::* $fqns]} {
-        #    error "nschildren only accepts a fully qualified namespace"
-        #}
-        set parent [nsprefix $fqns]
-        set tail [nstail $fqns]
-        #puts ">>> parent $parent tail $tail"
-        #set nslist [nseval $parent [list ::namespace children $tail]]
-        #set nslist [tcl::namespace::eval $parent [list ::tcl::namespace::children $tail]]
-        set nslist [nseval_ifexists $parent [list ::tcl::namespace::children $tail]]
-        switch -- $opt_sort {
-            ascii {
-                return [lsort $nslist]
-            }
-            dictionary {
-                return [lsort -dictionary $nslist]
-            }
-            natural {
-                package require natsort
-                return [natsort::sort $nslist]
-            }
-            default {
-                return $nslist
-            }
-        }
-    }
-
-    #Note nsjoin,nsjoinall,nsprefix,nstail are string functions that don't care about namespaces in existence.
-    #Some functions in punk::ns are
-
-    proc nsjoin {prefix name} {
-        if {[string match ::* $name]} {
-            if {"$prefix" ne ""} {
-                error "nsjoin: won't join non-empty prefix to absolute namespace path '$name'"
-            }
-            return $name
-        }
-        if {"$prefix" eq "::"} {
-            return ::$name
-        }
-        #if {"$name" eq ""} {
-        #    return $prefix
-        #}
-        #nsjoin ::x::y ""  should return ::x::y::   - this is the correct fully qualified form used to call a command that is the empty string
-        return ${prefix}::$name
-    }
-    proc nsjoinall {prefix args} {
-        #if {![llength $args]} {
-        #    error "usage: nsjoinall prefix relativens \[relativens ...\]"
-        #}
-        set segments [list $prefix]
-        foreach sub $args {
-            if {[string match ::* $sub]} {
-                if {[string length [concat {*}$segments]]} {
-                    error "nsjoin: won't join non-empty namespace prefix to absolute namespace path '$sub'"
-                }
-            }
-            lappend segments $sub
-        }
-        set nonempty_segments [list]
-        foreach s $segments {
-            if {[string length $s]} {
-                lappend nonempty_segments $s
-            }
-        }
-        if {$prefix eq "::"} {
-            return ::[join [lrange $nonempty_segments 1 end] ::]
-        }
-        return [join $nonempty_segments ::]
-    }
-
-
-    #REVIEW - the combination of nsprefix & nstail are designed to *almost* always be able to reassemble the input, and to be independent of what namespaces actually exist
-    #The main difference being collapsing (or ignoring) repeated double-colons
-    #we need to distinguish unprefixed from prefixed ie ::x vs x
-    #There is an apparent inconsistency with nstail ::a:::x being able to return :x
-    #whereas nsprefix :::a  will return just a
-    #This is because :x (or even just : ) can in theory be the name of a command and we may need to see it (although it is not a good idea)
-    #and a namespace can exist with leading colon - but is even worse - as default Tcl commands will misreport e.g namespace current within namespace eval
-    #The view is taken that a namespace with leading/trailing colons is so error-prone that even introspection is unreliable so we will rule that out.
-    #
-    #nsprefix is *somewhat* like 'namespace parent' execept that it is string based - ie no requirement for the namespaces to actually exist
-    # - this is an important usecase even if the handling of 'unwise' command names isn't so critical.
-    proc nsprefix {{nspath ""}} {
-        #normalize the common case of ::::
-        set nspath [string map {:::: ::} $nspath]
-        set rawprefix [string range $nspath 0 end-[string length [nstail $nspath]]]
-        if {$rawprefix eq "::"} {
-            return $rawprefix
-        } else {
-            if {[string match *:: $rawprefix]} {
-                return  [string range $rawprefix 0 end-2]
-            } else {
-                return $rawprefix
-            }
-            #return [string trimright $rawprefix :]
-        }
-    }
-
-    #namespace tail which handles :::cmd  ::x:::y  ::x:::/y  etc in a specific manner for string processing
-    #review - consider making -strict raise an error for unexpected sequences such as ::::  or any situation with more than 2 colons together.
-    #This is only necessary in the context of requirement to browse namespaces with 'unwisely' named commands
-    #For most purposes 'namespace tail' is fine.
-    proc nstail {nspath args} {
-        #normalize the common case of ::::
-        set nspath [string map {:::: ::} $nspath]
-        #it's unusual - but namespaces *can* have spaced in them.
-        set mapped [string map {:: \u0FFF} $nspath]
-        set parts [split $mapped \u0FFF]
-
-        set defaults [list -strict 0]
-        set opts [dict merge $defaults $args]
-        set strict [dict get $opts -strict]
-
-        if {$strict} {
-            foreach p $parts {
-                if {[string match :* $p]} {
-                    error "nstail unpaired colon ':' in $nspath"
-                }
-            }
-        }
-
-        #e.g  ::x::y:::z  should return ":z" despite it being a bad idea for a command name.
-        return [lindex $parts end]
-    }
-
-    #return a list of namespace segments - always with leading empty string for fully qualified namespace (ie for ::x)
-    #'supports' to some extent unreasonable namespaces /commands such as x:  ::x:  ::x:::y
-    #Can be used to either support use of such namespaces/commands - or as part of validation to disallow them
-    #as opposed to silent behaviour of Tcl namespace commands which don't handle them consistently (for tcl 8.x anyway  Review tcl 9)
-    #Note that for  ::x::   the trailing :: cannot represent a trailing namespace part being an empty string
-    #This is because Tcl's 'tcl::namespace::eval "" ""' reports 'only global namespace can have empty name'
-    #NOTE tcl allows creating ambiguous namespaces.  e.g ::punk:::etc:::blah
-    # is this :: punk :etc :blah  or :: punk :etc: blah
-    #clearly leading/trailing colons in namespaces and commands are just a bad idea.
-    #nsparts will prefer leading colon (ie greedy on ::)
-    #This is important to support leading colon commands such as :/
-    # ie ::punk:::jjj:::etc -> :: punk :jjj :etc
-    proc nsparts {nspath} {
-        set nspath [string map {:::: ::} $nspath]
-        set mapped [string map {:: \u0FFF} $nspath]
-        set parts [split $mapped \u0FFF]
-        #if {[lindex $parts end] eq ""} {
-        #}
-        return $parts
-    }
-
-    #tcl 8.x has creative writing var weirdness.. tcl 9 is likely to differ
-    proc nsvars {{nsglob "*"}} {
-        set ns_absolute [uplevel 1 [list ::punk::ns::nspath_here_absolute $nsglob]]
-        #set commandns [uplevel 1 [list namespace current]]
-
-        set searchns [nsprefix $ns_absolute] ;#the ns within which we want to searchns
-        set searchall [nsjoin $searchns *] ;#will correctly form ::*  or ::childns::*
-
-        set nsparts [nsparts $searchns]
-        set weird_ns 0
-        if {[lsearch $nsparts :*] >=0} {
-            set weird_ns 1
-        }
-        if {$weird_ns} {
-            set rawresult [nseval_ifexists $searchns [list info vars]]
-        } else {
-            set rawresult [info vars $searchall] ;#will not find vars in ::x:::y   etc.  - seems to be impossible in tcl 8.x
-        }
-        set matched_fullpath [list]
-        foreach r $rawresult {
-            lappend matched_fullpath [nstail $r]
-        }
-
-        set location [nsprefix $ns_absolute]
-        set tailmatch [nstail $ns_absolute]
-        set raw_matched_in_ns [nseval $location [list ::info vars $tailmatch]]
-        #NOTE: tcl <9 will read vars from global namespace - so we are only checking the intersection here
-        #(this is due to info vars ::etc:::blah failing to handle additional colon)
-        set matched_in_ns [list]
-        set result [list]
-        foreach r $raw_matched_in_ns {
-            set m [nstail $r]
-            lappend matched_in_ns $m
-            if {$m in $matched_fullpath} {
-                lappend result $m
-            }
-        }
-
-
-        return [list_as_lines -- [lsort $result]]
-        #.= lsort $result |> list_as_lines --
-    }
-
-    proc nsglob_as_re {glob} {
-        #any segment that is not just * must match exactly one segment in the path
-        set pats [list]
-        foreach seg [nsparts $glob] {
-            if {$seg eq ""} {
-                set seg ""
-            }
-            if {$seg eq "*"} {
-                lappend pats {[^:]*}
-            } elseif {$seg eq "**"} {
-                lappend pats {.*}
-            } else {
-                #set seg [string map [list  . {[.]}] $seg]
-                set seg [string map {. [.]} $seg]
-                if {[regexp {[*?]} $seg]} {
-                    set pat [string map [list ** {.*} * {[^:]*} ? {[^:]}] $seg]
-                    lappend pats "$pat"
-                } else {
-                    lappend pats "$seg"
-                }
-            }
-        }
-        return  "^[join $pats ::]\$"
-    }
-    proc globmatchns {glob path} {
-        #the total set of namespaces is *generally* reasonably bounded so we could just cache all globs, perhaps with some pretty high limit for sanity.. (a few thousand?) review - memory cost?
-        # Tcl (reportedly https://wiki.tcl-lang.org/page/regexp) only caches 'up to 30'dynamically - but should cache more if more stored.
-        variable ns_re_cache
-        if {![dict exists $ns_re_cache $glob]} {
-            if {[dict size $ns_re_cache] > 4200} {
-                #shimmer dict to list and back doesn't seem to affect internal rep of regexp items therein.
-                set ns_re_cache [lrange $ns_re_cache 400 end] ;#chop 200 items off beginning of dict
-            }
-            dict set ns_re_cache $glob [nsglob_as_re $glob]
-        }
-        return [regexp [dict get $ns_re_cache $glob] $path]
-    }
-
-    #namespace tree without globbing or weird ns consideration
-    proc nstree_raw {{location ::}} {
-        if {![string match ::* $location]} {
-            error "nstree_raw requires a fully qualified namespace"
-        }
-        nstree_rawlist $location
-    }
-    proc nstree_rawlist {location} {
-        set nslist [list $location]
-        foreach ch [::namespace children $location] {
-            lappend nslist {*}[nstree_rawlist $ch]
-        }
-        return $nslist
-    }
-
-    proc nstree {{location ""}} {
-        if {![string match ::* $location]} {
-            set nscaller [uplevel 1 {::namespace current}]
-             set location [nsjoin $nscaller $location]
-        }
-        list_as_lines [nstree_list $location]
-    }
-
-
-    #important: add tests for tricky cases - e.g punk::m**::util  vs punk::m*::util vs punk::m*::**::util  - these should all be able to return different results depending on namespace structure.
-    #e.g punk::m**::util will return punk::mix::util  but punk::m*::**::util will not because punk::mix::util is too short to match. Both will return deeper matches such as: punk::mix::commandset::repo::util
-    proc nstree_list {location args} {
-        package require struct::list
-        #puts "> nstree_list $location $args"
-        set defaults [dict create\
-            -call-depth-internal 0\
-            -subnslist {}\
-            -allbelow 1\
-        ]
-        set opts [dict merge $defaults $args]
-        # -- ---- --- --- --- ---
-        set CALLDEPTH   [dict get $opts -call-depth-internal]
-        set subnslist   [dict get $opts -subnslist]
-        set allbelow    [dict get $opts -allbelow] ;#whether to return matches longer than the matched glob-path
-        # -- ---- --- --- --- ---
-
-        set ns_absolute [uplevel 1 [list ::punk::ns::nspath_here_absolute $location]]
-        set has_globchars [regexp {[*?]} $ns_absolute] ;#don't use regexes on plain namespaces with no glob chars
-        if {!$has_globchars && !$allbelow && ![llength $subnslist]} {
-            #short circuit trivial case
-            return [list $location]
-        }
-
-
-        set base ""
-        set tailparts [list]
-        if {$CALLDEPTH == 0} {
-            set parts [nsparts $ns_absolute]
-            lset parts 0 ::
-            set idx 0
-            if {$has_globchars} {
-                foreach seg $parts {
-                    if {![regexp {[*?]} $seg]} {
-                        set base [nsjoin $base $seg]
-                    } else {
-                        set tailparts [lrange $parts $idx end]
-                        break
-                    }
-                    incr idx
-                }
-            } else {
-                set base $ns_absolute
-            }
-        } else {
-           set base $location
-           set tailparts $subnslist
-        }
-        if {![tcl::namespace::exists $base]} {
-           return [list]
-        }
-        #set parent [nsprefix $ns_absolute]
-        #set tail [nstail $ns_absolute]
-
-        #set allchildren [lsort [nseval $base [list ::namespace children]]]
-        set allchildren [lsort [tcl::namespace::eval $base [list ::namespace children]]]
-
-        #puts "->base:$base tailparts:$tailparts allchildren: $allchildren"
-        #puts "->base:$base tailparts:$tailparts childcount: [llength $allchildren]"
-
-        #** only significant when it is the trailing part of a segment eg ::**::xxx  ::a**::xxx
-        if {[llength $tailparts]} {
-            set nextglob [lindex $tailparts 0]
-            if {$nextglob eq "**"} {
-                set nslist [nstree_list $base -subnslist {} -allbelow 1]
-            } elseif {[regexp {[*]{2}$} $nextglob]} {
-                set nslist [list]
-                lappend nsmatches {*}[lsearch -all -inline -glob $allchildren [nsjoin ${base} $nextglob]]
-                foreach ch $nsmatches {
-                    lappend nslist $ch
-                    #lappend nslist {*}[nstree_list $ch -subnslist [lrange $tailparts 1 end] -call-depth-internal [expr {$CALLDEPTH + 1}] -allbelow 1]
-                    lappend nslist {*}[nstree_list $ch -subnslist [list "**" {*}[lrange $tailparts 1 end]] -call-depth-internal [expr {$CALLDEPTH + 1}] -allbelow 0]
-                }
-            } else {
-                #lsearch with -glob ok even if nextglob has no globchars (no discernable speed diff, and earlier parts may have globchars anyway)
-                set nslist [list]
-                lappend nsmatches {*}[lsearch -all -inline -glob $allchildren [nsjoin ${base} $nextglob]]
-                if {[llength $tailparts] >1 || $allbelow} {
-                    foreach ch $nsmatches {
-                        lappend nslist $ch
-                        lappend nslist {*}[nstree_list $ch -subnslist [lrange $tailparts 1 end] -call-depth-internal [expr {$CALLDEPTH + 1}] -allbelow $allbelow]
-                    }
-                } else {
-                    #if only one tailpart remaining and not $allbelow - then we already have what we need
-                    set nslist $nsmatches
-                }
-            }
-        } else {
-            #puts "nstree_list: no tailparts base:$base"
-            if {$allbelow} {
-                set nsmatches $allchildren
-                set nslist [list]
-                foreach ch $nsmatches {
-                    lappend nslist $ch
-                    lappend nslist {*}[nstree_list $ch -subnslist {} -call-depth-internal 0 -allbelow 1]
-                }
-            } else {
-                set nslist $allchildren
-            }
-           #set nsmatches $allchildren
-           #set nslist [nstree_list $base -subnslist {} -allbelow 0]
-        }
-        set nslist [lsort -unique $nslist]
-
-
-        if 0 {
-            set nextglob [lindex $tailparts 0]
-            if {$nextglob ne "**"} {
-                set nslist [list]
-                if {[llength $tailparts]} {
-                    set nsmatches [list]
-                    #lappend nsmatches {*}[lsearch -all -inline -glob $allchildren [nsjoin ${base} $nextglob]::*]
-                    lappend nsmatches {*}[lsearch -all -inline -glob $allchildren [nsjoin ${base} $nextglob]]
-                } else {
-                    set nsmatches $allchildren
-                }
-                #return
-
-                foreach ch $nsmatches {
-                    lappend nslist $ch
-                    lappend nslist {*}[nstree_list $ch -subnslist [lrange $tailparts 1 end] -call-depth-internal [expr {$CALLDEPTH + 1}] -allbelow $allbelow]
-                }
-            } else {
-            set nslist [nstree_list $base -subnslist {} -allbelow 1]
-            }
-        }
-
-        #foreach ns $nslist {
-        #    puts "== $ns"
-        #}
-        set nslist_filtered [list]
-        if {$CALLDEPTH == 0} {
-            #puts "--base: $base"
-            #puts "-- globmatchns [nsjoin ${ns_absolute} **]"
-            #puts "-- globmatchns ${ns_absolute}"
-            if {$base ni $nslist} {
-                #puts stderr "> adding $base to $nslist"
-                set nslist [list $base {*}$nslist]
-            }
-            if {$has_globchars} {
-                if {$allbelow} {
-                    foreach ns $nslist {
-                        if {[globmatchns ${ns_absolute} $ns] || [globmatchns [nsjoin ${ns_absolute} **] $ns]} {
-                            lappend nslist_filtered $ns
-                        }
-                    }
-                } else {
-                    set nslist_filtered [struct::list::Lfilter $nslist [list globmatchns ${ns_absolute}]]
-                }
-            } else {
-                if {$allbelow} {
-                    foreach ns $nslist {
-                        if {[string equal ${ns_absolute} $ns] || [globmatchns [nsjoin ${ns_absolute} **] $ns]} {
-                            lappend nslist_filtered $ns
-                        }
-                    }
-                } else {
-                    #set nslist_filtered [struct::list::Lfilter $nslist [list string match ${ns_absolute}]]
-                    set nslist_filtered [list $ns_absolute]
-                }
-            }
-            return $nslist_filtered
-        }
-        return $nslist
-    }
-
-    #The information symbol - usually i in a circle
-    #punkargs    " symbol \U1f6c8" ;#problematic on terminals that lie about cursor position after emitting this character
-    #The older \u2139 could be used - but it is sometimes a boxed i, sometimes a bold stylized i, sometimes a pre-coloured boxed i
-    #\u24d8 (circled latein small letter i) seems more consistent and can have our own colour applied.
-    #variable usageinfo_char \U1f6c8
-    variable usageinfo_char \u24d8
-
-    # command has usageinfo e.g from punk::args. todo cmdline, argp, tepam etc?
-    proc Usageinfo_mark {{ansicodes \UFFEF}} {
-        variable usageinfo_char
-        if {$ansicodes eq ""} {
-            return $usageinfo_char
-        } elseif {$ansicodes eq "\UFFEF"} {
-            return "[a+ brightyellow]$usageinfo_char[a]"
-        } else {
-            return "[a+ {*}$ansicodes]$usageinfo_char[a]"
-        }
-    }
-
-
-    punk::args::define {
-        @id -id ::punk::ns::Cmark
-        @cmd -name punk::ns::Cmark
-        @leaders
-        type -choices {oo ooc ooo punkargs ensemble native} -choicelabels {
-            oo          " symbol \u25c6"
-            ooc         " symbol \u25c7"
-            ooo         " symbol \u25c8"
-            punkargs    " symbol \u24d8"
-            ensemble    " symbol \u24ba"
-            native      " symbol \u24c3"
-            unknown     " symbol \u2370"
-        }
-        @opts
-        @values -min 0 -max -1
-        ansiname -type string -optional 1 -multiple 1 -help\
-            "ansi names as accepted by punk::ansi::a+
-            e.g
-              red bold
-            (Not raw ansi codes)"
-    }
-    proc Cmark {args} {
-        if {[llength $args] == 0} {
-            punk::args::parse {} withid ::punk::ns::Cmark
-            return; #should be unreachable - parse should raise usage error
-        }
-        set type [lindex $args 0]
-        set type [tcl::prefix::match -error "" {oo ooc ooo punkargs ensemble native unknown} $type]
-        set ansinames [lrange $args 1 end]
-        switch -- $type {
-            oo - ooc - ooo - punkargs - ensemble - native - unknown {}
-            default {
-                #punk::args::usage ::punk::ns::Cmark
-                punk::args::parse $args withid ::punk::ns::Cmark
-                return; #should be unreachable - parse should raise usage error
-            }
-        }
-        set marks [dict create oo \u25c6 ooc \u25c7 ooo \u25c8 punkargs \u24d8 ensemble \u24ba native \u24c3 unknown \U2370]
-        if {[llength $ansinames]} {
-            return "[punk::ansi::a+ {*}$ansinames][dict get $marks $type]\x1b\[0m"
-        } else {
-            return [dict get $marks $type]
-        }
-    }
-
-    #REVIEW - ansi codes can be *very*  confusing to the user when trying to handle lists etc..
-    punk::args::define {
-        @id     -id     ::punk::ns::get_nslist
-        @cmd    -name     punk::ns::get_nslist
-        @opts
-        -match -default ""
-        -nsdict -type dict -default {}
-    }
-    proc get_nslist {args} {
-        set known_types [list children commands exported imported aliases procs ensembles ooclasses ooobjects ooprivateobjects ooprivateclasses native coroutines interps zlibstreams]
-        set defaults [dict create\
-            -match ""\
-            -types $known_types\
-            -nsdict ""\
-        ]
-        set opts [dict merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- ---
-        set fq_glob             [dict get $opts -match]
-        if {$fq_glob eq ""} {
-            set fq_glob [uplevel 1 nsthis]::*
-        }
-        set requested_types     [dict get $opts -types]
-        set opt_nsdict          [dict get $opts -nsdict]
-
-        set types $requested_types
-        if {"all" in $requested_types} {
-            foreach known $known_types {
-                if {$known ni $types} {
-                    lappend types $known
-                }
-            }
-        }
-        if {"oo" in $requested_types} {
-            if {"ooclasses" ni $types} {
-                lappend types "ooclasses"
-            }
-            if {"ooobjects" ni $types} {
-                lappend types "ooobjects"
-            }
-            if {"ooprivateobjects" ni $types} {
-                lappend types "ooprivateobjects"
-            }
-            if {"ooprivateclasses" ni $types} {
-                lappend types "ooprivateclasses"
-            }
-        }
-        foreach t $types {
-            switch -- $t {
-                oo - all -
-                children - commands - exported - imported - aliases - procs - ensembles - ooclasses - ooobjects - ooprivateobjects - ooprivateclasses - native - coroutines - interps - zlibstreams {}
-                default {
-                    error "Unrecognised namespace member type: $t known types: $known_types oo all"
-                }
-            }
-        }
-
-        set glob_is_absolute [expr {[string match ::* $fq_glob]}]
-        if {!$glob_is_absolute} {
-            error "get_nslist requires fully-qualified namespace glob e.g ::*"
-        }
-        #2 columns for namespaces 4 for commands/procs/aliases - todo make less duplicated - generalize to specified number of columns for each?
-        #NOTE aliases may not be commands in current namespace - but we want to show them (marked red and with R)
-        #
-
-        set children    [list]
-        set commands    [list]
-        set exported    [list]
-        set imported    [list]
-        set aliases     [list]
-        set procs       [list]
-        set ensembles   [list]
-        set ooclasses   [list]
-        set ooobjects   [list]
-        set ooprivateobjects   [list]
-        set ooprivateclasses   [list]
-        set native      [list]
-        set interps     [list]
-        set coroutines  [list]
-        set zlibstreams [list]
-        set usageinfo   [list]
-
-        if {![dict size $opt_nsdict]} {
-            set nsmatches [get_ns_dicts $fq_glob -allbelow 0]
-            set itemcount 0
-            set matches_with_results [list]
-            foreach nsinfo $nsmatches {
-                set itemcount [dict get $nsinfo itemcount]
-                if {$itemcount > 0} {
-                    lappend matches_with_results $nsinfo
-                }
-            }
-            if {[llength $matches_with_results] == 1} {
-               set contents [lindex $matches_with_results 0]
-            } elseif {[llength $matches_with_results] > 1} {
-               puts stderr "get_nslist WARNING: more than one ([llength $matches_with_results]) namespace had results for the pattern '$fq_glob'. Displaying only first. Consider calling get_ns_dicts and passing results to get_nslist one at a time using -nsdict option"
-               set contents [lindex $matches_with_results 0]
-            } else {
-                return "- no results -"
-            }
-        } else {
-            set contents $opt_nsdict
-            if {[dict get $opt_nsdict itemcount] == 0} {
-                return "- no results -"
-            }
-        }
-        set ns       [dict get $contents location]
-
-        package require overtype
-        if {"children" in $types} {
-            set children [dict get $contents children]
-        }
-        if {"commands" in $types} {
-            set commands [dict get $contents commands]
-        }
-        set usageinfo [dict get $contents usageinfo]
-            foreach t $types {
-                switch -- $t {
-                    exported {
-                        set exported [dict get $contents exported]
-                    }
-                    imported {
-                        set imported [dict get $contents imported]
-                    }
-                    aliases {
-                        set aliases  [dict get $contents aliases]
-                    }
-                    procs {
-                        set procs    [dict get $contents procs]
-                    }
-                    ensembles {
-                        set ensembles [dict get $contents ensembles]
-                    }
-                    ooclasses {
-                        set ooclasses [dict get $contents ooclasses]
-                    }
-                    ooobjects {
-                       set ooobjects [dict get $contents ooobjects]
-                    }
-                    ooprivateobjects {
-                       set ooprivateobjects [dict get $contents ooprivateobjects]
-                    }
-                    ooprivateclasses {
-                       set ooprivateclasses [dict get $contents ooprivateclasses]
-                    }
-                    native {
-                        set native [dict get $contents native]
-                    }
-                    interps {
-                        set interps [dict get $contents interps]
-                    }
-                    coroutines {
-                        set coroutines [dict get $contents coroutines]
-                    }
-                    zlibstreams {
-                        set zlibstreams [dict get $contents zlibstreams]
-                    }
-                }
-            }
-
-        set numchildren [llength $children]
-        if {$numchildren} {
-           set mid [expr {int(ceil($numchildren/2.0))}]
-           set children1 [lrange $children 0 $mid-1]
-           set children2 [lrange $children $mid end]
-        } else {
-            set children1 [list]
-            set children2 [list]
-        }
-
-        #elements are commands and possibly renamed aliases which may or may not have been renamed into the current namespace
-        #a command could be an empty string or something else weird.
-        #Primarily just to handle empty string command - we will wrap each command as a 2-part element here
-        #(our foreach loop needs to ignore missing commands - but not empty string)
-        set elements [lmap v $commands {list c $v}]
-
-        set seencmds [list]
-        set masked [list] ;#
-        #jmn
-        #set cmdsets [concat $procs $ensembles $ooclasses $ooobjects $ooprivateobjects $ooprivateclasses $native $interps $coroutines $zlibstreams]
-        set cmdsets [list {*}$procs {*}$ensembles {*}$ooclasses {*}$ooobjects {*}$ooprivateobjects {*}$ooprivateclasses {*}$native {*}$interps {*}$coroutines {*}$zlibstreams]
-        foreach a $aliases {
-            if {[list c $a] in $elements} {
-                #possibly an ordinary alias - or a renamed alias that is masked by a proc/ensemble/oo
-                #we can detect masking by proc/ensemble/oo - but not by a binary extension loaded after the rename:  REVIEW
-                if {$a in $cmdsets} {
-                    #we have an alias that is also a known other command-type
-                    lappend elements [list c $a] ;#add in twice so we can display both.
-                    lappend  masked $a
-                }
-            } else {
-                #a renamed-alias
-                lappend elements [list c $a]
-            }
-        }
-        set elements [lsort -index 1 $elements]
-
-
-        set numelements [llength $elements]
-        if {$numelements} {
-            set split1 [expr {int(ceil($numelements/4.0))}]
-            set elements1 [lrange $elements 0 $split1-1]
-            set remaining3 [lrange $elements $split1 end]
-
-            set numremaining3 [llength $remaining3]
-            set split2 [expr {int(ceil($numremaining3/3.0))}]
-            set elements2 [lrange $remaining3 0 $split2-1]
-            set remaining2 [lrange $remaining3 $split2 end]
-
-            set numremaining2 [llength $remaining2]
-            set mid [expr {int(ceil($numremaining2/2.0))}]
-            set elements3 [lrange $remaining2 0 $mid-1]
-            set elements4 [lrange $remaining2 $mid end]
-
-        } else {
-            set elements1 [list]
-            set elements2 [list]
-            set elements3 [list]
-            set elements4 [list]
-        }
-
-
-
-        #set chwidest1 [pipedata [list {*}$children1 ""] {lmap v $data {string length $v}}  {tcl::mathfunc::max {*}$data}]
-        set lenlist1 [lmap v [list {*}$children1 ""] {string length $v}]
-        set chwidest1 [tcl::mathfunc::max {*}$lenlist1]
-
-        #set chwidest2 [pipedata [list {*}$children2 ""] {lmap v $data {string length $v}}  {tcl::mathfunc::max {*}$data}]
-        set chwidest2 [tcl::mathfunc::max {*}[lmap v [list {*}$children2 ""] {string length $v}]]
-
-        #wrap the cmd in [list] (just for the width calc) to get a proper length for what will actually be displayed
-        #set cmdwidest1 [pipedata [list {*}$elements1 ""] {lmap v $data {string length [list [lindex $v 1]]}}  {tcl::mathfunc::max {*}$data}]
-        set cmdwidest1 [tcl::mathfunc::max {*}[lmap v [list {*}$elements1 ""] {string length [list [lindex $v 1]]}]]
-
-        #set cmdwidest2 [pipedata [list {*}$elements2 ""] {lmap v $data {string length [list [lindex $v 1]]}}  {tcl::mathfunc::max {*}$data}]
-        set cmdwidest2 [tcl::mathfunc::max {*}[lmap v [list {*}$elements2 ""] {string length [list [lindex $v 1]]}]]
-        #set cmdwidest3 [pipedata [list {*}$elements3 ""] {lmap v $data {string length [list [lindex $v 1]]}}  {tcl::mathfunc::max {*}$data}]
-        set cmdwidest3 [tcl::mathfunc::max {*}[lmap v [list {*}$elements3 ""] {string length [list [lindex $v 1]]}]]
-        #set cmdwidest4 [pipedata [list {*}$elements4 ""] {lmap v $data {string length [list [lindex $v 1]]}}  {tcl::mathfunc::max {*}$data}]
-        set cmdwidest4 [tcl::mathfunc::max {*}[lmap v [list {*}$elements4 ""] {string length [list [lindex $v 1]]}]]
-
-        set displaylist [list]
-        set col1 [string repeat " " [expr {$chwidest1 + 8}]]
-        set col2 [string repeat " " [expr {$chwidest2 + 8}]]
-        set col3 [string repeat " " [expr {$cmdwidest1 + 8}]]
-        set col4 [string repeat " " [expr {$cmdwidest2 + 8}]]
-        set col5 [string repeat " " [expr {$cmdwidest3 + 8}]]
-        set a       [a+ bold purple]
-        set e       [a+ bold yellow]
-        set p       [a+ bold white]
-        set c_nat   [a+ web-gray]  ;#native
-        set c_int   [a+ web-orange] ;#interps
-        set c_cor   [a+ web-hotpink] ;#coroutines
-        set c_ooo   [a+ bold cyan]          ;#object
-        set c_ooc   [a+ web-aquamarine]    ;#class
-        set c_ooO   [a+ web-dodgerblue]       ;#privateObject
-        set c_ooC   [a+ web-lightskyblue]       ;#privateClass
-        set c_zst   [a+ web-yellow]  ;#zlibstreams
-
-        set a1 [a][a+ cyan]
-        foreach ch1 $children1 ch2 $children2 cmd1 $elements1 cmd2 $elements2 cmd3 $elements3 cmd4 $elements4 {
-            set c1 [a+ white]
-            set c2 [a+ white]
-            set c3 [a+ white]
-            set c4 [a+ white]
-
-            for {set i 1} {$i <= 4} {incr i} {
-                if {[llength [set cmd$i]]} {
-                    set c [a+ white]
-                    set prefix "     "
-                    set element [set cmd$i]
-                    set cmd [lindex $element 1]
-                    set cmd_display [list $cmd] ;#wrap in list so empty command is visible (and distinguishable from for example a double-curly command)
-                    if {$cmd ni $commands && $cmd in $aliases } {
-                        #ordinary un-masked commandless-alias
-                        #(original alias name that has been renamed)
-                        set c [a+ red bold strike]
-                        set prefix "${a}als  "
-                        set prefix [overtype::right $prefix "-R"]
-                    } else {
-                        if {$cmd in $exported} {
-                            set c [a+ green bold]
-                        }
-                        #keep oooobjects below ooclasses, ooprivateclasses, ooprivateobjects
-                        if {$cmd in $aliases && $cmd in $seencmds} {
-                            #masked commandless-alias
-                            #assertion: member of masked - but we use seencmds instead to detect.
-                            set c [a+ yellow bold]
-                            set prefix "${a}als  "
-                            set prefix [overtype::right $prefix "-R"]
-                        } elseif {$cmd in $procs} {
-                            set prefix "${p}prc  "
-                        } elseif {$cmd in $native} {
-                            set prefix "${c_nat}nat  "
-                        } elseif {$cmd in $ensembles} {
-                            set prefix "${e}ens  "
-                        } elseif {$cmd in $ooclasses} {
-                            set prefix "${c_ooc}ooc  "
-                        } elseif {$cmd in $ooprivateobjects} {
-                            set prefix "${c_ooO}ooO  "
-                        } elseif {$cmd in $ooprivateclasses} {
-                            set prefix "${c_ooC}ooC  "
-                        } elseif {$cmd in $ooobjects} {
-                            set prefix "${c_ooo}ooo  "
-                        } elseif {$cmd in $aliases} {
-                            set prefix "${a}als  "
-                        } elseif {$cmd in $interps} {
-                            set prefix "${c_int}int  "
-                        } elseif {$cmd in $coroutines} {
-                            set prefix "${c_cor}cor  "
-                        } elseif {$cmd in $zlibstreams} {
-                            set prefix "${c_zst}zst  "
-                        } else {
-                        }
-                        if {$cmd in $imported} {
-                            set prefix [overtype::right $prefix "-[a+ yellow bold]I[a]"]
-                        }
-                    }
-                    if {$cmd in $usageinfo} {
-                        set u " [Cmark punkargs brightgreen]"
-                    } else {
-                        set u ""
-                    }
-                    #set cmd$i "${prefix} $c$cmd_display$u"
-                    set cmd$i "${prefix} [punk::ansi::ansiwrap -rawansi $c $cmd_display]$u"
-                    #set c$i $c
-                    set c$i ""
-                    lappend seencmds $cmd
-                }
-            }
-
-            #lappend displaylist $a1[overtype::left $col1 $ch1][a+]$a1[overtype::left $col2 $ch2][a+]$c1[overtype::left $col3 $cmd1][a+]$c2[overtype::left $col4 $cmd2][a+]$c3[overtype::left $col5 $cmd3][a+]$c4$cmd4[a+]
-            lappend displaylist $a1[overtype::left $col1 $ch1][a]$a1[overtype::left $col2 $ch2][a]$c1[overtype::left $col3 $cmd1][a]$c2[overtype::left $col4 $cmd2][a]$c3[overtype::left $col5 $cmd3][a]$c4$cmd4[a]
-        }
-
-        return [list_as_lines $displaylist]
-    }
-    proc nspath_here_absolute {{nspath "\uFFFF"}} {
-        set path_is_absolute [expr {[string match ::* $nspath]}]
-        if {$path_is_absolute} {
-            return $nspath
-        }
-        set ns_caller [uplevel 1 {::namespace current}] ;#must qualify 'namespace' command. Needs to be called from arbitrary namespaces where 'namespace' command may exist (e.g tdom::schema)
-        if {$nspath eq "\uFFFF"} {
-            return $ns_caller
-        }
-        #nsjoin will join nscaller with empty nspath to form nscaller::  - which is correct way to represent command named with empty string
-        return [nsjoin $ns_caller $nspath]
-    }
-
-    proc nspath_to_absolute {nspath base} {
-        set path_is_absolute [expr {[string match ::* $nspath]}]
-        if {$path_is_absolute} {
-            return $nspath
-        }
-        if {![string length $nspath]} {
-            return $base
-        }
-        return [nsjoin $base $nspath]
-    }
-
-    variable has_textblock
-    set has_textblock [expr {![catch {package require textblock}]}]
-
-    if {$has_textblock} {
-        interp alias "" ::punk::ns::Block_width "" textblock::width
-    } else {
-        #maint - equiv of textblock::width
-        proc Block_width {textblock} {
-            if {$textblock eq ""} { return 0 }
-            if {[tcl::string::last \t $textblock] >=0} {
-                if {[tcl::info::exists punk::console::tabwidth]} {
-                    set tw $::punk::console::tabwidth
-                } else {
-                    set tw 8
-                }
-                set textblock [textutil::tabify::untabify2 $textblock $tw]
-            }
-            if {[punk::ansi::ta::detect $textblock]} {
-                set textblock [punk::ansi::ansistripraw $textblock]
-            }
-            if {[tcl::string::last \n $textblock] >= 0} {
-                return [tcl::mathfunc::max {*}[lmap v [split $textblock \n] {::punk::char::ansifreestring_width $v}]]
-            }
-            return [punk::char::ansifreestring_width $textblock]
-        }
-    }
-
-    punk::args::define {
-        @id     -id ::punk::ns::nslist
-        @cmd    -name punk::ns::nslist -help\
-            "Return a textual representation of
-            the child namespaces and commands within
-            the namespace(s) matched by glob."
-        @opts
-        -nspathcommands -type boolean -default 0 -help\
-            "When a namespace has entries configured in 'namespace path', the default result for nslist
-              will display just a basic note: 'Also resolving cmds in namespace paths: <namespaces>'.
-              If -nspathcommands is true, it will also display subtables showing the commands resolvable
-              via any such listed namespaces."
-        -types
-        @values -min 0 -max -1
-        glob -multiple 1 -optional 1 -default "*"
-    }
-    proc nslist {args} {
-        set argd [punk::args::parse $args withid ::punk::ns::nslist]
-        lassign [dict values $argd] leaders opts values received solos multis
-
-        #if {[dict exists $args -match]} {
-        #   #review -  presumably this is due to get_nslist taking -match?
-        #   error "nslist requires positional argument 'glob' instead of -match option"
-        #}
-        #set defaults [dict create\
-        #    -match $ns_absolute\
-        #    -nspathcommands 0\
-        #]
-        #set opts [dict merge $defaults $args]
-        # -- --- ---
-        set opt_nspathcommands          [dict get $opts -nspathcommands]
-        # -- --- ---
-        set globlist [dict get $values glob]
-        set with_results [list]
-        foreach glob $globlist {
-            set ns_absolute [uplevel 1 [list ::punk::ns::nspath_here_absolute $glob]]
-            set ns_matches [get_ns_dicts $ns_absolute -nspathcommands $opt_nspathcommands]
-            foreach nsdict $ns_matches {
-                if {[dict get $nsdict itemcount]>0} {
-                    lappend with_results $nsdict
-                }
-            }
-        }
-
-        #special case when glob is for * - we should also consider existence of item(s) namespacepath as a 'result'
-
-        set count_with_results [llength $with_results]
-        set output ""
-        variable has_textblock
-        foreach nsdict $with_results {
-            set loc [dict get $nsdict location]
-            set block [get_nslist -nsdict $nsdict -match ${loc}::* {*}$opts]
-            #if {[string first \n $block] < 0} {
-            #    #single line
-            #    set width [Block_width [list $block]]
-            #} else {
-            #    set width [Block_width $block]
-            #}
-            set width [Block_width $block]
-
-            #if multiple results or if there is only 1 result - but we are path-globbing - then we need to show location
-            if {$count_with_results > 1 || [regexp {[*?]} [nsprefix $ns_absolute]]} {
-                append output \n [dict get $nsdict location]
-            }
-            if {[string length $block]} {
-                append output \n $block
-            }
-            if {[dict size [dict get $nsdict namespacepath]]} {
-                set path_text ""
-                if {!$opt_nspathcommands} {
-                    append path_text \n "  Also resolving cmds in namespace paths: [dict keys [dict get $nsdict namespacepath]] (use n/// to display)"
-                } else {
-                    append path_text \n "  Also resolving cmds in namespace paths:"
-                    set nspathdict [dict get $nsdict namespacepath]
-                    if {!$has_textblock} {
-                        dict for {k v} $nspathdict {
-                            set cmds [dict get $v commands]
-                            append path_text \n "    path: $k"
-                            append path_text \n "    cmds: $cmds"
-                        }
-                    } else {
-                        #todo - change to display in column order - so as to be same as main command listing
-                        set parentcommands [dict get $nsdict commands]
-                        dict for {k v} $nspathdict {
-                            set rawpathcommands [dict get $v commands]
-                            set pathcommands [list]
-                            foreach c $rawpathcommands {
-                                if {$c in $parentcommands} {
-                                    lappend pathcommands [punk::ansi::a strike]$c[a]
-                                } else {
-                                    lappend pathcommands $c
-                                }
-                            }
-                            set columns 6
-                            if {[llength $pathcommands] < 6} {
-                                set columns [llength $v]
-                            }
-                            set t [textblock::list_as_table -title $k -columns $columns [lsort $pathcommands]]
-                            append path_text \n $t
-                        }
-                    }
-                }
-                append output $path_text
-                set path_text_width [Block_width $path_text]
-                append output \n [string repeat - [expr {max($width,$path_text_width)}]]
-            } elseif {$count_with_results > 1 && $width > 0 } {
-                append output \n [string repeat - $width]
-            }
-        }
-        return $output
-    }
-    #cli command - impure - relies on caller/ns_current
-    proc nslist_dict {{glob "*"} args} {
-        set ns_absolute [uplevel 1 [list ::punk::ns::nspath_here_absolute $glob]]
-        return [get_ns_dicts $ns_absolute {*}$args]
-    }
-
-    #info cmdtype available in 8.7+
-    #safe interps also seem to have it disabled for some reason
-    #we need to return "na" if 'info cmdtype' not supported or not functioning due to safe interp etc
-    #IMPORTANT: don't detect easy types such as proc/import here - caller needs the 'na' to do the proper fallback
-    #it is not desirable to do a partial cmdtype support here
-    proc cmdtype {cmd} {
-        #set cmd [namespace which $cmd] ;#will return empty result for empty string command or command such as :x or any command that doesn't exist
-        set fqcmd [namespace which $cmd] ;#will resolve for example 'namespace path' reachable commands
-        if {$fqcmd eq ""} {
-            #e.g ::ns:::x will return empty result from namespace which even if :x is a command in ::ns
-            set where [nsprefix $cmd]
-            if {$where eq ""} {
-                #bare command that didn't resolve using namespace which
-                #command probably doesn't exist (may be auto_path cmd not yet loaded)
-                set where ::
-            }
-            set what [nstail $cmd]
-        } else {
-            set where [nsprefix $fqcmd]
-            set what [nstail $fqcmd]
-        }
-        #ensure we con't call 'namespace eval' on a nonexistent ns and create cruft namespaces
-        set parts [nsparts $where]
-        if {[lsearch $parts :*] > -1} {
-            set weird_ns 1
-            if {![nsexists $where]} {
-                #error "punk::ns::cmdtype could not locate command $cmd (namespace '$where' not found)."
-                return nsnotfound
-            }
-        } else {
-            set weird_ns 0
-            if {![namespace exists $where]} {
-                #error "punk::ns::cmdtype could not locate command $cmd (namespace '$where' not found)"
-                return nsnotfound
-            }
-        }
-
-        if {[interp issafe]} {
-            #todo - weird_ns
-            if {[catch {namespace eval $where [list ::tcl::info::cmdtype $what]} result]} {
-                if {[info commands ::cmdtype] ne ""} {
-                    #hack - look for an alias that may have been specifically enabled to bring this back
-                    tailcall ::cmdtype $cmd
-                }
-                return na
-            } else {
-                return $result
-            }
-        }
-        if {[info commands ::tcl::info::cmdtype] ne ""} {
-            if {$weird_ns} {
-                if {[nseval_ifexists $where [list ::info commands $what]] eq ""} {
-                    return notfound
-                } else {
-                    return [nseval_ifexists $where [list ::tcl::info::cmdtype $what]]
-                }
-            } else {
-                if {[namespace eval $where [list ::info commands $what]] eq ""} {
-                    #e.g parray if it hasn't yet been called (an auto_path loaded command)
-                    return notfound
-                } else {
-                    tailcall namespace eval $where [list ::tcl::info::cmdtype $what]
-                }
-            }
-        }
-        #we could examine namespaces to determine more - but would be duplicating work already done/available in get_ns_dicts which is usually the caller
-        #also - we're unlikely to be able to (easily) duplicate the full info cmdtype behaviour - so don't try here!
-        return na
-    }
-    #non-contextual - but impure due to state-retrieval from the passed-in namespace part of the fq_glob
-    #returns a list of dicts even if only one ns matched
-    #glob chars at last segment match contents/children of namespaces
-    #glob chars in the path will result in multiple namespaces being matched
-    #e.g  ::tcl::*::d* will match commands beginning with d and child namespaces beginning with d in any namespaces 1 below ::tcl
-    proc get_ns_dicts {fq_glob args} {
-        #JMN
-        #puts stderr "get_ns_dicts $fq_glob"
-        set glob_is_absolute [expr {[string match ::* $fq_glob]}]
-        if {!$glob_is_absolute} {
-            error "get_ns_dicts requires fully-qualified namespace glob e.g ::*"
-        }
-        set has_globchars [regexp {[*?]} $fq_glob]
-
-        set defaults [dict create\
-            -allbelow 0\
-            -nspathcommands 1\
-        ]
-        set opts [dict merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set allbelow            [dict get $opts -allbelow]
-        set nspathcommands      [dict get $opts -nspathcommands]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-
-        #set location [nsprefix $fq_glob]
-        set commands [list]
-
-        set nsglob [nsprefix $fq_glob]
-        set glob [nstail $fq_glob]
-        set matched_namespaces [nstree_list $nsglob -allbelow $allbelow]
-
-        set report_namespaces [list]
-        #special case trailing ** in last segment
-        if {[regexp {[*]{2}$} $glob]} {
-            lappend report_namespaces {*}$matched_namespaces
-            foreach ns $matched_namespaces {
-                lappend report_namespaces {*}[nstree_list [nsjoin $ns $glob]]
-            }
-        } else {
-           set report_namespaces $matched_namespaces
-        }
-        #puts stderr "---->get_ns_dicts '$fq_glob $args' update_definitions $report_namespaces"
-        punk::args::update_definitions $report_namespaces
-
-        set nsdict_list [list]
-        foreach ch $report_namespaces {
-            #puts "get_ns_dicts>>> $ch  glob:'$glob'"
-            if {$allbelow == 0 && !$has_globchars} {
-                set allchildren [list]
-            } else {
-                set allchildren [nschildren -sort none $ch] ; #only returns 1 level deeper. leave sorting til after filtering
-            }
-
-            #nscommands returns exactly one line per entry + a trailing newline. If there is an empty line other than at the end - that is because there is a command named as the empty string.
-            # By default 'linelist'  trims 1st and last empty line. Turn off all block trimming with -block {}
-            #set  commands [.= nscommands -raw [nsjoin $ch $glob] |> punk::lib::linelist -block {}]
-            set commands [punk::lib::linelist -block {} [nscommands -raw [nsjoin $ch $glob]]]
-
-            #by convention - returning just \n represents a single result of the empty string whereas no results
-            #after passing through linelist this becomes {} {} which appears as a list of two empty strings.
-            #this is because there isn't a way to represent unambiguously all 3 cases of: empty-list, list of single empty string, list of two empty strings just using \n separated lines
-            #unless we always return a newline at the tail if there is a result
-            #For this reason nscommands returns a trailing newline - so the last entry should always be empty string - and is a bogus entry
-            #We double-check it here to avoid regressions/mistakes - as nscommands is also a user-level command so there exists the temptation to make it not return the extra newline.
-            if {[lindex $commands end] eq ""} {
-                set commands [lrange $commands 0 end-1]
-            } else {
-                puts stderr "get_ns_dicts WARNING nscommands didn't return a trailing newline - unexpected"
-            }
-
-
-#JMN
-            set location $ch
-            set locationparts [nsparts $location]
-            set weird_ns 0
-            if {[lsearch $locationparts :*] >= 0} {
-                set weird_ns 1
-            }
-            if {$weird_ns} {
-                set exportpatterns [nseval_ifexists $location {::namespace export}]
-                set nspathlist     [nseval_ifexists  $location {::namespace path}]
-            } else {
-                set exportpatterns [tcl::namespace::eval $location {::namespace export}]
-                set nspathlist     [tcl::namespace::eval $location {::namespace path}]
-            }
-            set nspathdict [dict create]
-            if {$nspathcommands} {
-                foreach pathns $nspathlist {
-                    set pathcommands [lmap v [info commands ${pathns}::*] {namespace tail $v}]
-                    set matched [lsearch -all -inline $pathcommands $glob]
-                    dict set nspathdict $pathns [dict create commands $matched]
-                }
-            } else {
-                foreach pathns $nspathlist {
-                    dict set nspathdict $pathns [dict create] ;#use consistent structure when nspathcommands false
-                }
-            }
-            #set exportpatterns [nseval $location {::namespace export}]
-            set allexported [list]
-            set matched [list]
-            foreach p $exportpatterns {
-                if {[regexp {[*?]} $p]} {
-                    #lappend matched {*}[nseval $location [list ::info commands [nsjoin ${location} $p]]]
-                    if {$weird_ns} {
-                        #! info commands can't glob with a weird ns prefix
-                        #! info commands with no arguments returns all commands (from global and any other ns in namespace path)
-                        #lappend matched {*}[nseval_ifexists $location [list ::info commands [nsjoin ${location} $p]]]
-                        lappend matched {*}[nseval_ifexists $location [string map [list <loc> $location <pat> $p] {
-                            set allcommands [info commands]
-                            set matches [list]
-                            foreach c $allcommands {
-                                set fq [namespace which $c]
-                                if {[string match <loc>::<pat> $fq]} {
-                                    lappend matches $c
-                                }
-                            }
-                            return $matches
-                        }]]
-
-                    } else {
-                        lappend matched {*}[tcl::namespace::eval $location [list ::info commands [nsjoin ${location} $p]]]
-                    }
-                    foreach m $matched {
-                        lappend allexported [nstail $m]
-                    }
-                } else {
-                    lappend allexported $p
-                }
-            }
-            set allexported [lsort -unique $allexported]
-            #NOTE: info procs within tcl::namespace::eval is different to 'info commands' within tcl::namespace::eval (info procs doesn't look outside of namespace)
-            if {$weird_ns} {
-                set allprocs [nseval_ifexists $location {::info procs}]
-            } else {
-                set allprocs [tcl::namespace::eval $location {::info procs}]
-            }
-            #set allprocs    [nseval $location {::info procs}]
-            set childtails [lmap v $allchildren {nstail $v}]
-            set allaliases [list]
-            set allnative [list]
-            set allensembles [list]
-            set allinterps [list]
-            set allcoroutines [list]
-            set allzlibstreams [list]
-            set allooobjects [list]
-            set allooclasses [list]
-            set allooprivateobjects [list]
-            set allooprivateclasses [list]
-            set allimported [list]
-            set allundetermined [list]
-            set interp_aliases [interp aliases ""]
-            #use aliases glob - because aliases can be present with or without leading ::
-            #NOTE: alias may not have matching command in the relevant namespce (renamed alias) so we can't just start with commands and check if it's an alias if we want to show all aliases
-            if {$weird_ns} {
-                set raw_aliases [nseval_ifexists $location [list ::punk::lib::aliases $glob]] ;#'aliases $glob' must be passed as list, not separate args to namespace eval.
-            } else {
-                set raw_aliases [tcl::namespace::eval $location [list ::punk::lib::aliases $glob]] ;#'aliases $glob' must be passed as list, not separate args to namespace eval.
-            }
-            #set raw_aliases [nseval $location [list ::aliases $glob]] ;#'aliases $glob' must be passed as list, not separate args to namespace eval.
-            set aliases [list]
-            foreach a $raw_aliases {
-                if {[string match *:: $a]} {
-                    #exception for alias such as ::p::2::  so that it doesn't show up as empty string
-                    #lappend aliases ::
-                    #JMN - 2023 - better to display an empty string somehow
-                    lappend aliases ""
-                } else {
-                    lappend aliases [nstail $a]
-                }
-            }
-
-            #NOTE for 'info <subcommand>...'  'namespace origin|(etc)..'
-            # - use the pattern [namespace eval $location [list <cmd> $cmd]]
-            #This allows examination of cmds with "bad" names such as empty string or prefixed with single colon.
-            #while these should be rare - we want to handle such edge cases when browsing namespaces.
-            foreach cmd $commands {
-                #if {"${location}::$cmd" in $interp_aliases || [string trimleft "${location}::$cmd" ":"] in $interp_aliases} {
-                #    #NOTE: doesn't cater for renamed aliases - Tcl 8.x (and 9.01) doesn't seem to have any introspection capabilities to match command to a renamed alias
-                #    #which_alias hack from wiki relies on trace and executing the command - which we don't want to do.
-                #    lappend allaliases $cmd
-                #}
-                set ctype [cmdtype ${location}::$cmd]
-                switch -- $ctype {
-                    na {
-                        if {$weird_ns} {
-                            set cmdorigin [nseval_ifexists $location [list ::namespace origin $cmd]]
-                        } else {
-                            set cmdorigin [namespace eval $location [list ::namespace origin $cmd]]
-                        }
-                        if {[nsprefix $cmdorigin] ne $location} {
-                            #import
-                            lappend allimported $cmd
-                            set origin_location [nsprefix $cmdorigin]
-                        } else {
-                            set origin_location $location
-                        }
-                        #tcl 8.6 (info cmdtype unavailable)
-                        #todo - use catch tcl::unsupported::corotype to see if coroutine
-                        set originlocationparts [nsparts $origin_location]
-                        set weird_origin 0
-                        if {[lsearch $originlocationparts :*] >= 0} {
-                            set weird_origin 1
-                        }
-                        if {$weird_origin} {
-                            if {![catch {nseval_ifexists $origin_location [list ::namespace ensemble configure $cmd]} ensemble_info]} {
-                                lappend allensembles $cmd
-                            } elseif {[nseval_ifexists $origin_location [list ::info object isa object $cmd]]} {
-                                lappend allooobjects $cmd
-                                if {[nseval_ifexists $origin_location [list ::info object isa class $cmd]]} {
-                                    lappend allooclasses $cmd
-                                }
-                            } else {
-
-                            }
-                        } else {
-                            if {![catch {namespace eval $origin_location [list ::namespace ensemble configure $cmd]} ensemble_info]} {
-                                lappend allensembles $cmd
-                            } elseif {[namespace eval $origin_location [list ::info object isa object $cmd]]} {
-                                lappend allooobjects $cmd
-                                if {[namespace eval $origin_location [list ::info object isa class $cmd]]} {
-                                    lappend allooclasses $cmd
-                                }
-                            } else {
-
-                            }
-                        }
-                    }
-                    default {
-                        if {$ctype eq "import"} {
-                            if {$weird_ns} {
-                                set cmdorigin [nseval_ifexists $location [list ::namespace origin $cmd]]
-                            } else {
-                                set cmdorigin [namespace eval $location [list ::namespace origin $cmd]]
-                            }
-                            #even if cmd was already imported to another ns and then reimported from there, namespace origin will show the original source
-                            #ie we don't need to follow a chain of 'imported' results.
-                            set origin_location [nsprefix $cmdorigin]
-                            set origin_cmd      [nstail   $cmdorigin]
-
-                            set originlocationparts [nsparts $origin_location]
-                            set weird_origin 0
-                            if {[lsearch $originlocationparts :*] >= 0} {
-                                set weird_origin 1
-                            }
-                            if {$weird_origin} {
-                                set mixedtype i-[nseval_ifexists $origin_location [list ::tcl::info::cmdtype $origin_cmd]]
-                            } else {
-                                set mixedtype i-[namespace eval $origin_location [list ::tcl::info::cmdtype $origin_cmd]]
-                            }
-                            lappend allimported $cmd
-                        } else {
-                            set mixedtype $ctype
-                        }
-                        #assert mixedtype != import
-                        #review - we don't have a way to mark as both native and ensemble
-                        switch -- $mixedtype {
-                            i-native - native {
-                                lappend allnative $cmd
-                            }
-                            i-ensemble - ensemble {
-                                lappend allensembles $cmd
-                            }
-                            i-alias - alias {
-                                #review
-                                lappend allaliases $cmd
-                            }
-                            i-object - object {
-                                if {[info object isa object ${location}::$cmd]} {
-                                    lappend allooobjects $cmd
-                                    if {[info object isa class ${location}::$cmd]} {
-                                        lappend allooclasses $cmd
-                                    }
-                                }
-                            }
-                            i-privateObject - privateObject {
-                                lappend allooobjects $cmd
-                                lappend allooprivateobjects $cmd
-                            }
-                            i-privateClass - privateClass {
-                                lappend allooobjects $cmd
-                                lappend allooprivateclasses $cmd
-                            }
-                            i-interp - interp {
-                                lappend allinterps $cmd
-                            }
-                            i-coroutine - coroutine {
-                                lappend allcoroutines $cmd
-                            }
-                            i-zlibStream - zlibStream {
-                                lappend allzlibstreams $cmd
-                            }
-                            default {
-                                #there may be other registered types
-                                #(extensible with Tcl_RegisterCommandTypeName)
-                                lappend allothers $cmd
-                            }
-
-                        }
-
-                    }
-                }
-                #JMN TODO
-                        if {[catch {
-                            if {$cmd eq ""} {
-                                #empty command was previously marked as "::" - too confusing - nslist updated to properly display empty string.
-                                set nsorigin [namespace origin ${location}::]
-                            } elseif {[string match :* $cmd]} {
-                                set nsorigin [nseval $location "::namespace origin $cmd"]
-                            } else {
-                                set nsorigin [namespace origin [nsjoin $location $cmd]]
-                            }
-                        } errM]} {
-                            puts stderr "get_ns_dicts failed to determine origin of command '$cmd' adding to 'undetermined'"
-                            puts stderr "error message: $errM"
-                            lappend allundetermined $cmd
-                        } else {
-                            if {[nsprefix $nsorigin] ne $location} {
-                                lappend allimported $cmd
-                            }
-                        }
-            }
-            if {$glob ne "*"} {
-                set childtailmatches [lsearch -all -inline $childtails $glob]
-                #set fqchildren [lmap v $childtailmatches {lindex ${location}::$v}]  ;#lindex without indices is fast equivalent of 'val' or string cat
-
-                set exported [lsearch -all -inline $allexported $glob]
-                set procs [lsearch -all -inline $allprocs $glob]
-                #set aliases [lsearch -all -inline $allaliases $glob]
-                set ensembles [lsearch -all -inline $allensembles $glob]
-                set native    [lsearch -all -inline $allnative $glob]
-                set coroutines [lsearch -all -inline $allcoroutines $glob]
-                set interps [lsearch -all -inline $allinterps $glob]
-                set zlibstreams [lsearch -all -inline $allzlibstreams $glob]
-                set ooprivateobjects [lsearch -all -inline $allooprivateobjects $glob]
-                set ooprivateclasses [lsearch -all -inline $allooprivateclasses $glob]
-                set ooobjects [lsearch -all -inline $allooobjects $glob]
-                set ooclasses [lsearch -all -inline $allooclasses $glob]
-                set imported [lsearch -all -inline $allimported $glob]
-                set undetermined [lsearch -all -inline $allundetermined $glob]
-            } else {
-                set childtailmatches $childtails
-                #set fqchildren $allchildren
-                set exported $allexported
-                set procs $allprocs
-                #set aliases $allaliases
-                set ensembles $allensembles
-                set native    $allnative
-                set coroutines $allcoroutines
-                set interps $allinterps
-                set zlibstreams $allzlibstreams
-                set ooobjects $allooobjects
-                set ooclasses $allooclasses
-                set ooprivateobjects $allooprivateobjects
-                set ooprivateclasses $allooprivateclasses
-                set imported $allimported
-                set undetermined $allundetermined
-            }
-
-            #itemcount will overcount if we are including commands as well as procs/exported etc -
-            set itemcount 0
-            incr itemcount [llength $childtailmatches]
-            incr itemcount [llength $commands]
-
-
-            #incr itemcount [llength $procs]
-            #incr itemcount [llength $exported]
-            #incr itemcount [llength $imported]
-            #incr itemcount [llength $aliases]
-            #incr itemcount [llength $ensembles]
-            #incr itemcount [llength $ooobjects]
-            #incr itemcount [llength $ooclasses]
-            #definitely don't count exportpatterns
-            incr itemcount [llength $undetermined]
-
-            set usageinfo [list]
-            set has_punkargs [expr {[info commands ::punk::args::id_exists] ne ""}]
-            set has_tepam    [expr {[info exists ::tepam::ProcedureList]}]
-            if {$has_punkargs || $has_tepam} {
-                set ns_updated [dict create]
-                foreach c $commands {
-                    if {$c in $imported} {
-                        set fq [namespace origin [nsjoin $location $c]]
-                    } elseif {$c in $aliases} {
-                        #TODO - use which_alias ?
-                        set tgt [interp alias "" [nsjoin $location $c]]
-                        if {$tgt eq ""} {
-                            set tgt [interp alias "" [string trimleft [nsjoin $location $c] :]]
-                        }
-                        set word1 [lindex $tgt 0]
-                        if {$word1 eq "punk::mix::base::_cli"} {
-                            #special case for punk deck - REVIEW
-                            #e.g punk::mix::base::_cli -extension ::punk::mix::cli
-                            set fq [lindex $tgt end] ;#todo - explicitly get -extension  argval in case _cli extended with other options
-                        } else {
-                            #todo - alias may have prefilled some leading args - so usage report should reflect that???
-                            #(currying)
-                            if {[string match ::* $word1]} {
-                                set fq $word1
-                            } else {
-                                set fq ::$word1
-                            }
-                        }
-                    } else {
-                        set fq [nsjoin $location $c]
-                    }
-                    if {$has_punkargs} {
-                        #set id [string trimleft $fq :]
-                        set id $fq
-                        set id_ns [namespace qualifiers $id]
-                        if {![dict exists $ns_updated $id_ns]} {
-                            #puts "===>get_ns_dicts: '$fq_glob $args' punk::args::update_definitions [list $id_ns]"
-                            punk::args::update_definitions [list $id_ns]
-                            dict set ns_updated $id_ns 1
-                        }
-                        if {[::punk::args::id_exists $id]} {
-                            lappend usageinfo $c
-                        } else {
-                            if {$has_tepam} {
-                                if {$fq in $::tepam::ProcedureList} {
-                                    lappend usageinfo $c
-                                }
-                            }
-                        }
-                    } else {
-                        if {$fq in $::tepam::ProcedureList} {
-                            lappend usageinfo $c
-                        }
-                    }
-                }
-            }
-            #catch {package require natsort}
-            #if {[package provide natsort] ne ""} {
-            #    set childtailmatches [natsort::sort $childtailmatches]
-            #} else {
-            #    set childtailmatches [lsort $childtailmatches]
-            #}
-            set childtailmatches [lsort -dictionary $childtailmatches]
-
-            set nsdict [dict create\
-                location $location\
-                children $childtailmatches\
-                commands $commands\
-                procs $procs\
-                exported $exported\
-                imported $imported\
-                aliases $aliases\
-                ensembles $ensembles\
-                native $native\
-                coroutines $coroutines\
-                interps $interps\
-                zlibstreams $zlibstreams\
-                ooobjects $ooobjects\
-                ooclasses $ooclasses\
-                ooprivateobjects $ooprivateobjects\
-                ooprivateclasses $ooprivateclasses\
-                namespacexport $exportpatterns\
-                undetermined $undetermined\
-                usageinfo $usageinfo\
-                namespacepath $nspathdict\
-                glob $glob\
-                itemcount $itemcount\
-            ]
-            lappend nsdict_list $nsdict
-        }
-        return $nsdict_list
-    }
-    #Must be no ansi when only single arg used.
-    #review - ansi codes will be very confusing in some scenarios!
-    #todo - only output color when requested (how?) or via repltelemetry ?
-    interp alias {} nscommands2 {} .= ,'ok'@0.= {
-            #Note: namespace argument to apply doesn't accept namespace segments with leading colon - so pipelines won't work fully in dodgily-named namespaces such as :::x
-            #inspect -label namespace_current [namespace current]
-            #inspect -label info_procs [info procs]
-
-            ::set commandns [::namespace current]
-            ::set commandlist [::list]
-            #color code multiple args? - not very practical if many ns args supplied, but then... common case will only be 1 or 2 anyway
-            #colors can be stripped by caller with ansistrip - but we'll make the default case easier by using no ansi codes if a single arg is passed
-            ::set colors [::list none cyan yellow green]
-            ::set ci 0 ;#colourindex
-            ::set do_raw 0
-            ::if {[::set posn [::lsearch $searchlist -raw]] >= 0} {
-                ::set searchlist [::lreplace $searchlist $posn $posn]
-                ::set do_raw 1
-            }
-            ::if {![::llength $searchlist]} {
-                ::lappend searchlist *
-            }
-            ::foreach search $searchlist {
-                ::if {$ci > [::llength $colors]-1} {
-                    ::set ci 0
-                }
-                #by using pipeswitch instead of pipeswitchc - we give the ability* for the switch script block to affect vars in the calling scope
-                # (*not a desirable feature from a functional point of view - but useful for debugging, and also potentially faster )
-                ::if {$ci == 0 || $do_raw} {
-                    ::set col ""
-                    ::set rst ""
-                } else {
-                    ::set col [a+ [::lindex $colors $ci] bold]
-                    ::set rst [a+]
-                }
-                ::incr ci ;#colourindex
-                #inspect -label search $search
-
-                ::if {![::llength $search]} {
-                    ::set base $commandns
-                    ::set what "*"
-                } else {
-                    ::if {[::string match ::* $search]} {
-                        ::set base [::punk::ns::nsprefix $search]
-                        ::set what [::punk::ns::nstail $search]
-                    } else {
-                        ::set base $commandns
-                        ::set what $search
-                    }
-                }
-
-                ::set all_ns_commands [::info commands [::punk::ns::nsjoin $base $what]]
-                #important not to call tcl::namespace::eval (or punk::ns::nseval) on non-existant base - or it will be created
-                ::if {![::tcl::namespace::exists $base]} {
-                   ::continue
-                }
-
-                if 0 {
-                    #NOTE - matched commands will return commands from global ns due to 'namespace eval' - also any commands from namespaces in the 'namespace path' list
-                    #We don't simply do info commands ${base}::$what  because it misses some oddly named things (JMN 2023 - like what?)
-                    #this was to support weird namespaces with leading/trailing colons - not an important usecase for the cost
-                    ::set matchedcommands [::pipeswitch {
-                        ::pipecase \
-                            caseresult.= ::list $base $what |,basens/0,g/1>  {tcl::namespace::eval $basens [::list ::info commands $g]}
-                    }]
-                    #lappend commandlist {*}[@@ok/result= $matchedcommands]
-                    #need to pull result from matchedcommands dict
-                    #set cmd_tails [@@ok/result= $matchedcommands |> {::lmap v $data {punk::ns::nstail $v}}]
-                    ::set cmd_tails [::lmap v [::dict get $matchedcommands ok result] {::punk::ns::nstail $v}]
-                    ::set all_ns_tails [::lmap v $all_ns_commands {::punk::ns::nstail $v}]
-                    ::foreach c $cmd_tails {
-                        ::if {$c in $all_ns_tails} {
-                            ::if {$do_raw} {
-                                ::lappend commandlist [::list $c $c]
-                            } else {
-                                ::lappend commandlist [::list $c $col[::list $c]$rst]
-                            }
-                        }
-                    }
-                } else {
-
-                    ::set all_ns_tails [::lmap v $all_ns_commands {::punk::ns::nstail $v}]
-                    foreach c $all_ns_tails {
-                        ::if {$do_raw} {
-                            ::lappend commandlist [::list $c $c]
-                        } else {
-                            ::lappend commandlist [::list $c $col[::list $c]$rst]
-                        }
-                    }
-                }
-            }
-            ::list ok [::list result $commandlist]
-            #unless we always return trailing \n - it's impossible to represent a list containing only the empty string using \n (cannot disambiguate between empty list and/or list of 2 empty strings)
-            #we use the convention that a result of just \n represents a list of just the empty string - as we don't require duplicates anyway - so it shouldn't mean two empty strings.
-    }  |data@@ok/result> ::lsort -index 0  |> {::lmap v $data {::lindex $v 1}} |> {::if {![::llength $data]} {::return {}} else {::return [::join $data \n]\n}} <searchlist|
-
-    proc nscommands {args} {
-            set commandns [uplevel 1 [list ::namespace current]]
-            set commandlist [::list]
-            #color code multiple args? - not very practical if many ns args supplied, but then... common case will only be 1 or 2 anyway
-            #colors can be stripped by caller with ansistrip - but we'll make the default case easier by using no ansi codes if a single arg is passed
-            set colors [::list none cyan yellow green]
-            set ci 0 ;#colourindex
-            set do_raw 0
-            if {[::set posn [::lsearch $args -raw]] >= 0} {
-                ::set args [::lreplace $args $posn $posn]
-                ::set do_raw 1
-            }
-            if {![llength $args]} {
-                lappend args *
-            }
-            ::foreach search $args {
-                ::if {$ci > [::llength $colors]-1} {
-                    ::set ci 0
-                }
-                ::if {$ci == 0 || $do_raw} {
-                    ::set col ""
-                    ::set rst ""
-                } else {
-                    ::set col [a+ [::lindex $colors $ci] bold]
-                    ::set rst [a+]
-                }
-                ::incr ci ;#colourindex
-                #inspect -label search $search
-
-                ::if {![::llength $search]} {
-                    ::set base $commandns
-                    ::set what "*"
-                } else {
-                    ::if {[::string match ::* $search]} {
-                        ::set base [::punk::ns::nsprefix $search]
-                        ::set what [::punk::ns::nstail $search]
-                    } else {
-                        ::set base $commandns
-                        ::set what $search
-                    }
-                }
-                set weird_ns 0
-                if {[string match *:::* $base]} {
-                    set weird_ns 1
-                }
-                #important not to call tcl::namespace::eval (or punk::ns::nseval) on non-existant base - or it will be created
-                if {$weird_ns} {
-                    ::if {![nsexists $base]} {
-                        ::continue
-                    }
-                    #info commands can't glob with weird_ns prefix
-                    puts ">>> base: $base what: $what"
-                    ::set all_ns_commands [nseval_ifexists $base [list apply {{loc what} {
-                                    set _all [uplevel 1 [list ::info commands]]
-                                    set _matches [list]
-                                    foreach _a $_all {
-                                        set _c [uplevel 1 [list ::namespace which $_a]]
-                                        if {[::string match ${loc}::${what} $_c]} {
-                                            ::lappend _matches $_a
-                                        }
-                                    }
-                                    return $_matches
-                                }} $base $what ]]
-                } else {
-                    ::if {![::tcl::namespace::exists $base]} {
-                        ::continue
-                    }
-                    ::set all_ns_commands [::info commands [::punk::ns::nsjoin $base $what]]
-                }
-                ::set all_ns_tails [::lmap v $all_ns_commands {::punk::ns::nstail $v}]
-                foreach c $all_ns_tails {
-                    ::if {$do_raw} {
-                        ::lappend commandlist [::list $c $c]
-                    } else {
-                        ::lappend commandlist [::list $c $col[::list $c]$rst]
-                    }
-                }
-            }
-            set commandlist [lsort -index 0 $commandlist]
-            set results [list]
-            foreach pair $commandlist  {
-                lappend results [lindex $pair 1]
-            }
-            #unless we always return trailing \n - it's impossible to represent a list containing only the empty string using \n (cannot disambiguate between empty list and/or list of 2 empty strings)
-            #we use the convention that a result of just \n represents a list of just the empty string - as we don't require duplicates anyway - so it shouldn't mean two empty strings.
-            if {![llength $results]} {
-                return {}
-            } else {
-                return [join $results \n]\n
-            }
-    }
-    interp alias {} nscommands {} punk::ns::nscommands
-
-
-
-    interp alias {} nscommands1 {} .= ,'ok'@0.= {
-            set commandns [namespace current]
-            #upvar caseresult caseresult
-            inspect -label namespace_current [namespace current]
-            inspect -label nsthis [nsthis]
-            inspect -label nsthis2 [nsthis2]
-            inspect -label commandns $commandns
-            inspect -label info_procs [info procs]
-            #by using pipeswitch instead of pipeswitchc - we give the ability* for the switch script block to affect vars in the calling scope
-            # (*not a desirable feature from a functional point of view - but useful for debugging, and also potentially faster )
-            pipeswitch {
-                #no glob chars present
-                if {![llength $ns]} {
-                    set ns $commandns
-                } else {
-                    if {![string match ::* $ns]} {
-                        if {$commandns eq "::"} {set commandns ""}
-                        set ns ${commandns}::$ns
-                    }
-                }
-                inspect '$ns'
-                pipecase \
-                    caseresult= $ns |input> \
-                    1.= {expr {[string length [string map [list * "" ? ""] $data]] == [string length $data]}} |>  {
-                        #uplevel 1 [list info commands ${input}::*]
-                        info commands ${input}::*
-                    }
-
-                #pipecase1 ns has one or more of glob chars * or ?
-                pipecase \
-                    caseresult= $ns |input>  {
-                        #uplevel 1 [list info commands ${input}]
-                        info commands ${input}
-                    }
-            }
-    } |data@@ok/result>  {lmap v $data {punk::ns::nstail $v}} |> lsort |> {join $data \n} <ns/0|
-
-    punk::args::define {
-        @id     -id ::punk::ns::ensemble_subcommands
-        @cmd    -name punk::ns::ensemble_subcommands -help\
-            "Returns a dictionary keyed on subcommand with each value pointing
-            to the implementation command.
-
-            This is not guaranteed to be complete - e.g for ensembles which use
-            the namespace ensemble 'unknown' mechanism to implement subcommands.
-
-            The subcommand information is gathered from entries in the '-map' as
-            well as those exported from the namespace in '-namespace' if the
-            '-subcommands' list has been configured for the ensemble.
-            "
-        -return -default dict -choices {show dict} -choicelabels {
-                show "display the result in 'showdict' format"
-        }
-        @values -min 1 -max 1
-        origin -help\
-            "Name of ensemble command for which subcommand info is gathered."
-    }
-    proc ensemble_subcommands {args} {
-        set argd [punk::args::get_by_id ::punk::ns::ensemble_subcommands $args]
-        set opts    [dict get $argd opts]
-        set origin  [dict get $argd values origin]
-
-        set ensembleinfo [namespace ensemble configure $origin]
-        set prefixes [dict get $ensembleinfo -prefixes]
-        set map [dict get $ensembleinfo -map]
-        set ns  [dict get $ensembleinfo -namespace]
-
-        #review - we can have a combination of commands from -map as well as those exported from -namespace
-        # if and only if -subcommands is specified
-
-        set subcommand_dict [dict create]
-        set commands [list]
-        set nscommands [list]
-        if {[llength [dict get $ensembleinfo -subcommands]]} {
-            #set exportspecs [namespace eval $ns {namespace export}]
-            #foreach pat $exportspecs {
-            #    lappend nscommands {*}[info commands ${ns}::$pat]
-            #}
-            #when using -subcommands, even unexported commands are available
-            set nscommands [info commands ${ns}::*]
-            foreach sub [dict get $ensembleinfo -subcommands] {
-                if {[dict exists $map $sub]} {
-                    #-map takes precence over same name exported from -namespace
-                    dict set subcommand_dict $sub [dict get $map $sub]
-                } elseif {"${ns}::$sub" in $nscommands} {
-                    dict set subcommand_dict $sub ${ns}::$sub
-                } else {
-                    #subcommand probably supplied via -unknown handler?
-                    dict set subcommand_dict $sub ""
-                }
-            }
-        } else {
-            if {[dict size $map]} {
-                set subcommand_dict $map
-            } else {
-                set exportspecs [namespace eval $ns {namespace export}]
-                foreach pat $exportspecs {
-                    lappend nscommands {*}[info commands ${ns}::$pat]
-                }
-                foreach fqc $nscommands {
-                    dict set subcommand_dict [namespace tail $fqc] $fqc
-                }
-            }
-        }
-        if {[dict get $opts -return] eq "dict"} {
-            return $subcommand_dict
-        } else {
-            return [punk::lib::showdict $subcommand_dict]
-        }
-    }
-
-    punk::args::define {
-        @id     -id ::punk::ns::resolve_command
-        @cmd    -name punk::ns::resolve_command -help\
-            "Return a dict with command resolution info"
-        @values -min 1 -max -1
-        cmditem -multiple 1 -optional 0
-    }
-    proc resolve_command {args} {
-        if {[llength $args] == 0} {
-            return
-        }
-        set querycommand [lindex $args 0]
-        set queryargs [lrange $args 1 end]
-
-        set nscaller [uplevel 1 [list ::namespace current]]
-        #todo - similar to corp? review corp resolution process
-        #should handle lazy loaded commands (via ::auto_index) that are not yet present but may be documented
-        if {[string match ::* $querycommand]} {
-            set targetns [nsprefix $querycommand]
-            set name [nstail $querycommand]
-            #don't use 'info commands $querycommand' - or Tcl will use 'namespace path' resolution to find command in another ns or in global
-            #when arginfo given a fully qualified path - we only want an answer for that exact command
-            set nscommands [info commands ${targetns}::*]
-            if {[lsearch -exact $nscommands $querycommand] >= 0} {
-                #use nseval_ifexists to avoid creating intermediate namespaces for bogus paths
-                if {[catch {
-                    set origin      [nseval_ifexists $targetns [list ::namespace origin $name]]
-                    set resolved    [nseval_ifexists $targetns [list ::namespace which  $name]]
-                } errM]} {
-                    puts stderr "$errM"
-                    set origin      $querycommand
-                    set resolved    $querycommand
-                }
-            } else {
-                #fully qualified command specified but doesn't exist
-                set origin      $querycommand
-                set resolved    $querycommand
-            }
-        } else {
-            #relative comandpath
-            if {[string match (autodef)* $querycommand]} {
-                #pass through - should be found with id lookup
-                set origin      $querycommand
-                set resolved    $querycommand
-            } else {
-                #set thispath [uplevel 1 [list ::nsthis $querycommand]]
-                set thispath [uplevel 1 [list ::punk::ns::nspath_here_absolute $querycommand]]
-                set targetns [nsprefix $thispath]
-                set name [nstail $thispath]
-                set targetparts [nsparts $targetns]
-                if {[lsearch $targetparts :*] >=0} {
-                    #weird ns
-                    set valid_ns [nsexists $targetns]
-                } else {
-                    set valid_ns [namespace exists $targetns]
-                }
-                if {$valid_ns} {
-                    if {[catch {
-                        set origin      [nseval_ifexists $targetns [list ::namespace origin $name]]
-                        set resolved    [nseval_ifexists $targetns [list ::namespace which $name]]
-                    }]} {
-                        set thiscmd [nsjoin $targetns $name]
-                        #relative querycommand specified - but Tcl didn't find a match in namespace path
-                        #assume global (todo - look for namespace match in auto_index first ?)
-                        set origin ::$name
-                        set resolved ::$name
-                    }
-                } else {
-                    #namespace as relative to current doesn't seem to exist
-                    #Tcl would also attempt to resolve as global
-                    if {$nscaller ne "::"} {
-                        return [namespace eval ::           [list punk::ns::resolve_command $querycommand {*}$queryargs]]
-                    }
-
-                    set origin $querycommand
-                    set resolved $querycommand
-
-                }
-            }
-        }
-        #ns::cmdtype only detects alias type on 8.7+?
-        set initial_cmdtype [punk::ns::cmdtype $origin]
-        switch -- $initial_cmdtype {
-            na - alias {
-                #REVIEW - alias entry doesn't necessarily match command!
-                #consider using which_alias (wiki)
-                set tgt [interp alias "" $origin]
-                if {$tgt eq ""} {
-                    set tgt [interp alias "" [string trimleft $origin :]]
-                }
-                #first word of tgt may be namespace relative or absolute
-                if {$tgt ne ""} {
-                    set word1 [lindex $tgt 0]
-                    if {$word1 eq "punk::mix::base::_cli"} {
-                        #special case for punk deck - REVIEW
-                        #e.g punk::mix::base::_cli -extension ::punk::mix::cli
-                        set targetword [lindex $tgt end]
-                    } else {
-                        #todo - alias may have prefilled some leading args - so usage report should reflect that???
-                        #(possible curried arguments)
-                        #review - curried arguments could be for ensembles!
-                        set targetword $word1
-                        return [namespace eval ::                   [list punk::ns::resolve_command $targetword {*}[lrange $tgt 1 end] {*}$queryargs]]
-                    }
-
-
-                    set origin $targetword
-                    #retest cmdtype on modified origin
-                    set cmdtype [punk::ns::cmdtype $origin]
-                } else {
-                    set cmdtype $initial_cmdtype
-                }
-                if {$cmdtype eq "na"} {
-                    #tcl 8.6
-                    if {[info object isa object $origin]} {
-                        set cmdtype "object"
-                    }
-                }
-            }
-            default {
-                set cmdtype $initial_cmdtype
-            }
-        }
-
-        punk::args::update_definitions [list [namespace qualifiers $origin]]
-        set id $origin
-
-
-        #don't shortcircuit if no args id - need to allow (autodef) even for argumentless query e.g resolve_command dict
-        if {[punk::args::id_exists $id] && ![llength $queryargs]} {
-            return [dict create origin $origin args_remaining $queryargs resolved $resolved cmdtype $cmdtype args_full $args]
-        }
-
-        #puts "--->resolve_command '$args' update_definitions [list [namespace qualifiers $origin]]"
-        if {![punk::args::id_exists $origin]} {
-            if {[namespace ensemble exists $origin]} {
-                #review
-                #todo - check -unknown
-                #if there is a -unknown handler - we can't be sure the choices in -map or from -namespace are exhaustive.
-                #presumably -choiceprefix should be zero in that case??
-
-                set ensembleinfo [namespace ensemble configure $origin]
-                set parameters [dict get $ensembleinfo -parameters]
-                set prefixes [dict get $ensembleinfo -prefixes]
-                set map [dict get $ensembleinfo -map]
-                set ns  [dict get $ensembleinfo -namespace]
-
-                #review - we can have a combination of commands from -map as well as those exported from -namespace
-                # if and only if -subcommands is specified
-
-                set subcommand_dict [dict create]
-                set commands [list]
-                set nscommands [list]
-                if {[llength [dict get $ensembleinfo -subcommands]]} {
-                    #set exportspecs [namespace eval $ns {namespace export}]
-                    #foreach pat $exportspecs {
-                    #    lappend nscommands {*}[info commands ${ns}::$pat]
-                    #}
-                    #when using -subcommands, even unexported commands are available
-                    set nscommands [info commands ${ns}::*]
-                    foreach sub [dict get $ensembleinfo -subcommands] {
-                        if {[dict exists $map $sub]} {
-                            #-map takes precence over same name exported from -namespace
-                            dict set subcommand_dict $sub [dict get $map $sub]
-                        } elseif {"${ns}::$sub" in $nscommands} {
-                            dict set subcommand_dict $sub ${ns}::$sub
-                        } else {
-                            #subcommand probably supplied via -unknown handler?
-                            dict set subcommand_dict $sub ""
-                        }
-                    }
-                } else {
-                    if {[dict size $map]} {
-                        set subcommand_dict $map
-                    } else {
-                        set exportspecs [namespace eval $ns {namespace export}]
-                        foreach pat $exportspecs {
-                            lappend nscommands {*}[info commands ${ns}::$pat]
-                        }
-                        foreach fqc $nscommands {
-                            dict set subcommand_dict [namespace tail $fqc] $fqc
-                        }
-                    }
-                }
-
-
-                set subcommands [lsort [dict keys $subcommand_dict]]
-                set posn_subcommand [llength $parameters];#ensemble may have '-parameters' list specified - parameters that come before the subcommand
-                if {$posn_subcommand > 0} {
-                    set params [lrange $queryargs 0 $posn_subcommand-1]
-                    set remaining_queryargs [lrange $queryargs $posn_subcommand end]
-                } else {
-                    set params [list]
-                    set remaining_queryargs $queryargs
-                }
-                if {[llength $remaining_queryargs]} {
-                    if {$prefixes} {
-                        set match [tcl::prefix::match -error {} $subcommands [lindex $remaining_queryargs 0]]
-                    } else {
-                        #must be exact match - not a prefix
-                        set match [lindex $remaining_queryargs 0]
-                    }
-                    if {$match in $subcommands} {
-                        set subcmd [dict get $subcommand_dict $match]
-                        #return [arginfo {*}$subcmd {*}[lrange $queryargs 1 end]] ;#subcmd is sometimes multiple words (implemented as a further ensemble subcommand) (e.g huddle string -> "Type_string string")
-
-                        #return [arginfo {*}$opts {*}$subcmd {*}$params {*}[lrange $remaining_queryargs 1 end]] ;#subcmd is sometimes multiple words (implemented as a further ensemble subcommand) (e.g huddle string -> "Type_string string")
-                        set resolve_next [list {*}$subcmd {*}$params {*}[lrange $remaining_queryargs 1 end]]
-                        puts "+++> resolve_next: $resolve_next"
-
-                        set sub_resolution [resolve_command {*}$resolve_next]
-                        set sub_args_remaining [dict get $sub_resolution args_remaining]
-                        set sub_args_full [dict get $sub_resolution args_full]
-
-                        #set f [lreplace $sub_args_full 0 [llength $params] $querycommand {*}$params $match {*}$sub_args_remaining]
-                        set f [lreplace $sub_args_full 0 [llength $params] $querycommand {*}$params $match]
-
-                        puts stderr "+++> $sub_resolution"
-                        puts stderr "+++> $f"
-                        dict set sub_resolution args_full $f
-                        return $sub_resolution
-                    }
-                }
-
-                set choiceinfodict [dict create]
-                set choicelabeldict [dict create]
-
-                set namespaces [dict create] ;# usually only 1 or 2 namespaces - but could be any number.
-                dict for {sub subwhat} $subcommand_dict {
-                    set targetfirstword [lindex $subwhat 0]
-                    set ns [::namespace which $targetfirstword]
-                    set ns [nsprefix $ns]
-                    set targettail [namespace tail $targetfirstword]
-                    if {![dict exists $namespaces $ns]} {
-                        set nsinfo [lindex [punk::ns::nslist_dict [nsjoin $ns *]] 0]
-                        dict set namespaces $ns $nsinfo
-                    } else {
-                        set nsinfo [dict get $namespaces $ns]
-                    }
-                    dict set choiceinfodict $sub [list [list resolved $subwhat]]
-
-                    if {$targettail in [dict get $nsinfo usageinfo]} {
-                        dict lappend choiceinfodict $sub {doctype punkargs}
-                        #dict set choicelabeldict $sub [punk::ns::synopsis $subwhat]
-                    }
-                    if {$targettail in [dict get $nsinfo ensembles]} {
-                        dict lappend choiceinfodict $sub {doctype ensemble}
-                    }
-                    if {$targettail in [dict get $nsinfo ooobjects]} {
-                        if {$targettail in [dict get $nsinfo ooclasses]} {
-                            dict lappend choiceinfodict $sub {doctype ooc}
-                        } else {
-                            dict lappend choiceinfodict $sub {doctype ooo}
-                        }
-                    }
-
-                    if {$targettail in [dict get $nsinfo native]} {
-                        dict lappend choiceinfodict $sub {doctype native}
-                    }
-                }
-
-
-                set vline [list subcommand -choices $subcommands -choiceprefix $prefixes -choicelabels $choicelabeldict -choiceinfo $choiceinfodict]
-                set autoid "(autodef)$origin"
-                set argdef [punk::lib::tstr -return string {
-                    @id     -id ${$autoid}
-                    @cmd    -help\
-                        "(autogenerated)
-                        Ensemble: ${$origin}"
-                    @leaders -min 1
-                }]
-                if {[llength $parameters] == 0} {
-                    append argdef \n "@leaders -min 1"
-                } else {
-                    append argdef \n "@leaders -min [expr {[llength $parameters]+1}]"
-                    foreach p $parameters {
-                        append argdef \n "$p -type string -ensembleparameter 1 -help {leading ensemble parameter - passed to subcommand}"
-                    }
-                }
-                append argdef \n $vline
-                punk::args::define $argdef
-                set id $autoid
-            }
-        }
-        #testing where id = $origin or id = (autodef)::$origin
-        if {[punk::args::id_exists $id]} {
-            #cycle forward through leading values
-            set specid $id
-            set specargs $queryargs
-            if {[llength $queryargs]} {
-                #JJJ
-                set spec [punk::args::get_spec $id]
-                #TODO -form
-                set form_names [dict get $spec form_names]
-
-                #'subcommands' only allowed in single-form commands - review
-                set fid [lindex $form_names 0]
-
-                set leadernames [dict get $spec FORMS $fid LEADER_NAMES]
-                set optnames    [dict get $spec FORMS $fid OPT_NAMES]
-                set valnames    [dict get $spec FORMS $fid VAL_NAMES]
-                #'subcommands' are only present in forms that consist solely of leaders - REVIEW
-                #(does not have to dispatch on 1st leader - e.g consider ensemble -parameters)
-                if {[llength $form_names] == 1 && ![llength $optnames] && ![llength $valnames]} {
-                    set nextqueryargs [list] ;#build a list of prefix-resolved queryargs
-                    set queryargs_untested $queryargs
-
-                    set leadernames_matched [lrange $leadernames 0 [llength $queryargs]-1]
-                    foreach q $queryargs lname $leadernames_matched {
-                        if {$lname eq ""} {
-                            break
-                        }
-                        set arginfo [dict get $spec FORMS $fid ARG_INFO $lname]
-
-                        set allchoices [list]
-                        set choices             [punk::args::system::Dict_getdef $arginfo -choices {}]
-                        set choicegroups        [punk::args::system::Dict_getdef $arginfo -choicegroups {}]
-                        set choiceinfo          [punk::args::system::Dict_getdef $arginfo -choiceinfo {}]
-                        set is_ensembleparam    [punk::args::system::Dict_getdef $arginfo -ensembleparameter 0]
-                        if {[dict exists $choicegroups ""]} {
-                            dict lappend choicegroups "" {*}$choices
-                        } else {
-                            set choicegroups [dict merge [dict create "" $choices] $choicegroups]
-                        }
-                        dict for {groupname clist} $choicegroups {
-                            lappend allchoices {*}$clist
-                        }
-                        if {$is_ensembleparam} {
-                            #review
-                            lappend nextqueryargs $q
-                            #lpop queryargs_untested 0
-                            ledit queryargs_untested 0 0
-                            set specargs $queryargs_untested
-                            continue
-                        }
-                        if {![llength $allchoices]} {
-                            #review - only leaders with a defined set of choices are eligible for consideration as a subcommand
-                            lappend nextqueryargs $q
-                            #lpop queryargs_untested 0
-                            ledit queryargs_untested 0 0
-                            set specargs $queryargs_untested
-                            continue
-                        }
-
-
-                        set resolved_q [tcl::prefix::match -error "" $allchoices $q]
-                        if {$resolved_q eq ""} {
-                            break
-                        }
-                        if {![dict get $arginfo -choiceprefix] && $resolved_q ne $q} {
-                            #a unique prefix is not sufficient for this arg
-                            break
-                        }
-
-                        lappend nextqueryargs $resolved_q
-                        #lpop queryargs_untested 0
-                        ledit queryargs_untested 0 0
-                        if {$resolved_q ne $q} {
-                            #we have our first difference - recurse with new query args
-                            set resolvelist         [list {*}$specid {*}$nextqueryargs {*}$queryargs_untested]
-                            set sub_resolution      [punk::ns::resolve_command {*}$resolvelist]
-                            #return $sub_resolution
-
-                            set sub_origin          [dict get $sub_resolution origin]
-                            set sub_argsremaining   [dict get $sub_resolution args_remaining]
-                            set sub_resolved        [dict get $sub_resolution resolved]
-                            set sub_cmdtype         [dict get $sub_resolution cmdtype]
-                            set sub_args_full       [dict get $sub_resolution args_full]
-                            puts stderr "===> $sub_resolution"
-
-                            return [dict create origin $sub_origin args_remaining $sub_argsremaining resolved $sub_resolved cmdtype $sub_cmdtype args_full $resolvelist]
-
-                        }
-                        #check if subcommands so far have a custom args def
-                        #set currentid [list $querycommand {*}$nextqueryargs]
-                        set currentid [list {*}$specid {*}$nextqueryargs]
-                        if {[punk::args::id_exists $currentid]} {
-                            set spec [punk::args::get_spec $currentid]
-                            set form_names [dict get $spec form_names]
-                            set fid [lindex $form_names 0]
-
-                            set specid $currentid
-                            set specargs $queryargs_untested
-                            set nextqueryargs [list]
-
-                            if {[llength $form_names] != 1} {
-                                break
-                            }
-                            set optnames    [dict get $spec FORMS $fid OPT_NAMES]
-                            set valnames    [dict get $spec FORMS $fid VAL_NAMES]
-                            if {[llength $optnames] || [llength $valnames]} {
-                                break
-                            }
-                        } else {
-                            set is_subcommand_resolved 0
-                            set cinfo [punk::args::system::Dict_getdef $choiceinfo $resolved_q {}]
-                            set mapped_subcmd ""
-                            foreach inf $cinfo {
-                                if {[lindex $inf 0] eq "resolved"} {
-                                    set mapped_subcmd [lindex $inf 1]
-                                    set resolve_next [list {*}$mapped_subcmd {*}$queryargs_untested]
-                                    puts "---> resolve_next: $resolve_next"
-                                    set sub_resolution [punk::ns::resolve_command {*}$resolve_next]
-
-                                    set sub_args_remaining [dict get $sub_resolution args_remaining]
-                                    set sub_args_full [dict get $sub_resolution args_full]
-                                    #set f [lreplace $sub_args_full 0 0 {*}$specid {*}$nextqueryargs {*}$sub_args_remaining]
-                                    set f [lreplace $sub_args_full 0 0 {*}$specid {*}$nextqueryargs]
-
-                                    puts stderr "---> $sub_resolution"
-                                    puts stderr "---> $f"
-                                    dict set sub_resolution args_full $f
-                                    return $sub_resolution
-
-
-                                    #puts stderr "---> $sub_resolution"
-                                    #return $sub_resolution
-                                }
-                            }
-
-                            #We can get no further with custom defs
-                            #It is possible we have a documented lower level subcommand but missing the intermediate
-                            #e.g if ::trace remove command was specified and is documented - it will be found above
-                            #but if ::trace remove is not documented and the query is "::trace remove com"
-                            #There is no way to determine com is a prefix as we don't have the intermediate documented -choice info available.
-                            #that's probably ok.
-                            break
-                        }
-                    }
-                }
-                #puts "--->origin $specid queryargs: $specargs"
-                set origin $specid
-                set queryargs $specargs
-            }
-        }
-
-        if {[string match (autodef)* $origin]} {
-            set origin [string range $origin 9 end]
-        }
-
-
-        return [dict create origin $origin args_remaining $queryargs resolved $resolved cmdtype $cmdtype args_full $args]
-    }
-
-    punk::args::define {
-        @id     -id ::punk::ns::forms
-        @cmd    -name punk::ns::forms\
-            -summary\
-            "List command forms."\
-            -help\
-            "Return names for each form of a command.
-            Most commands are single-form and will only return the name '_default'."
-        @opts
-        @values -min 1 -max -1
-        cmditem -multiple 1 -optional 0
-    }
-    proc forms {args} {
-        set argd        [::punk::args::parse $args withid ::punk::ns::forms]
-        set cmdmembers  [dict get $argd values cmditem]
-        set cmdinfo [uplevel 1 [list ::punk::ns::resolve_command {*}$cmdmembers]] ;#resolve from calling context
-        set id [dict get $cmdinfo origin]
-        ::punk::args::forms $id
-    }
-
-
-    punk::args::define {
-        @id     -id ::punk::ns::eg
-        @cmd    -name punk::ns::eg\
-            -summary\
-            "Return command examples."\
-            -help\
-            "Return the -help info from the @examples directive
-            in a command definition."
-        @values -min 1 -max -1
-        cmditem -multiple 1 -optional 0
-    }
-    proc eg {args} {
-        set argd        [::punk::args::parse $args withid ::punk::ns::eg]
-        set cmdmembers  [dict get $argd values cmditem]
-        set cmdinfo [uplevel 1 [list ::punk::ns::resolve_command {*}$cmdmembers]] ;#resolve from calling context
-        set resolved_id         [dict get $cmdinfo origin]
-        set result [::punk::args::eg $resolved_id]
-    }
-
-
-    punk::args::define {
-        @id     -id ::punk::ns::synopsis
-        @cmd    -name punk::ns::synopsis\
-            -summary\
-            "Return command synopsis."\
-            -help\
-            "Return synopsis for each form of a command
-            on separate lines.
-            If -form formname|<int> is given, supply only
-            the synopsis for that form.
-            "
-        @opts
-        -form -type string -default *
-        -return -type string -default full -choices {full summary dict}
-        @values -min 1 -max -1
-        cmditem -multiple 1 -optional 0
-    }
-    proc synopsis {args} {
-        set argd        [::punk::args::parse $args withid ::punk::ns::synopsis]
-        set form        [dict get $argd opts -form]
-        set opt_return  [dict get $argd opts -return]
-        set cmdmembers  [dict get $argd values cmditem]
-
-
-        set cmdinfo [uplevel 1 [list ::punk::ns::resolve_command {*}$cmdmembers]] ;#resolve from calling context
-        set resolved_id         [dict get $cmdinfo origin]
-        set unresolved_args     [dict get $cmdinfo args_remaining]
-        set full_args           [dict get $cmdinfo args_full]
-
-        #puts "---punk::args::synopsis resolve_command result: $cmdinfo"
-        #REVIEW
-        set n [llength $unresolved_args]
-        set idparts [lrange $full_args 0 end-$n]
-
-        set syn [::punk::args::synopsis -return $opt_return -form $form $resolved_id]
-        if {$syn eq ""} {
-            return
-        }
-
-        #when we use list operations on $syn - it can get extra braces due to ANSI - use join to bring back to a string without extraneous bracing
-        switch -- $opt_return {
-            full - summary {
-                set resultstr ""
-                foreach synline [split $syn \n] {
-                    if {[string range $synline 0 1] eq "# "} {
-                        append resultstr $synline \n
-                    } else {
-                        #append resultstr [join [lreplace $synline 0 0 {*}$idparts] " "] \n
-                        append resultstr [join [lreplace $synline 0 [llength $resolved_id]-1 {*}$idparts] " "] \n
-                    }
-                }
-                set resultstr [string trimright $resultstr \n]
-                #set resultstr [join [lreplace $syn 0 0 {*}$idparts] " "]
-                return $resultstr
-            }
-            dict {
-                return $syn
-            }
-        }
-    }
-    proc synopsis_raw {args} {
-        set argd        [::punk::args::parse $args withid ::punk::ns::synopsis]
-        set form        [dict get $argd opts -form]
-        set cmdmembers  [dict get $argd values cmditem]
-        set cmdinfo [uplevel 1 [list ::punk::ns::resolve_command {*}$cmdmembers]] ;#resolve from calling context
-        set id [dict get $cmdinfo origin]
-        ::punk::args::synopsis -form $form $id
-    }
-
-    #todo - -cache or -refresh to configure whether we introspect ensembles/objects each time?
-    # - as this is interactive generally introspection should be ok at the top level
-    # but if we need to go down multiple levels of subcommands generating/testing prefixes - could be an issue ??
-    punk::args::define {
-        @dynamic
-        @id     -id ::punk::ns::arginfo
-        @cmd    -name punk::ns::arginfo\
-            -summary\
-            "Command usage/help."\
-            -help\
-            "Show usage info for a command.
-            It supports the following:
-            1)  Procedures or builtins for which a punk::args definition has
-                been loaded.
-            2)  tepam procedures (returns string form only)
-            3)  ensemble commands - auto-generated unless documented via punk::args
-                  (subcommands will show with an indicator if they are
-                  explicitly documented or are themselves ensembles)
-            4)  tcl::oo objects - auto-gnerated unless documented via punk::args
-            5)  dereferencing of aliases to find underlying command
-                (will not work with some renamed aliases)
-
-            Note that native commands commands not explicitly documented will
-            generally produce no useful info. For example sqlite3 dbcmd objects
-            could theoretically be documented - but as 'info cmdtype' just shows
-            'native' they can't (?) be identified as belonging to sqlite3 without
-            calling them. arginfo deliberately avoids calling commands to elicit
-            usage information as this is inherently risky. (could create a file,
-            exit the interp etc)
-            "
-        -return -type string -default table -choices {string table tableobject}
-
-
-        } {${[punk::args::resolved_def -types opts ::punk::args::arg_error -scheme]}} {
-        -form  -default 0 -help\
-            "Ordinal index or name of command form"
-        -grepstr -default "" -type list -typesynopsis regex -help\
-            "list consisting of regex, optionally followed by ANSI names for highlighting
-            (incomplete - todo)"
-        -- -type none -help\
-            "End of options marker
-              Use this if the command to view begins with a -"
-        @values -min 1
-        commandpath -help\
-            "command (may be alias, ensemble, tcl::oo object, tepam proc etc)"
-        subcommand -optional 1 -multiple 1 -default {} -help\
-            "subcommand if commandpath is an ensemble.
-              Multiple subcommands can be supplied if ensembles are further nested"
-    }
-    proc arginfo {args} {
-        lassign [dict values [punk::args::parse $args withid ::punk::ns::arginfo]] leaders opts values received
-        set nscaller [uplevel 1 [list ::namespace current]]
-        #review - setting this afterwards is an architecture smell - we should be able to override the default in the dynamic part
-        #todo - enable retrieving by id just the record_opts part - so we can treat as a dict directly, as well as easily apply it as a different flag name.
-        if {![dict exists $received -scheme]} {
-            #dict set opts -scheme info
-            set scheme_received 0
-        } else {
-            set scheme_received 1; #so we know not to override caller's explicit choice
-        }
-
-        set querycommand    [dict get $values commandpath]
-        set queryargs       [dict get $values subcommand]
-        set grepstr         [dict get $opts -grepstr]
-        set opts [dict remove $opts -grepstr]
-        #puts stdout "---------------------arginfo: '$args' querycommand:'$querycommand' queryargs:'$queryargs'"
-
-        #todo - similar to corp? review corp resolution process
-        #should handle lazy loaded commands (via ::auto_index) that are not yet present but may be documented
-        if {[string match ::* $querycommand]} {
-            set targetns [nsprefix $querycommand]
-            set name [nstail $querycommand]
-            #don't use 'info commands $querycommand' - or Tcl will use 'namespace path' resolution to find command in another ns or in global
-            #when arginfo given a fully qualified path - we only want an answer for that exact command
-            set nscommands [info commands ${targetns}::*]
-            if {[lsearch -exact $nscommands $querycommand] >= 0} {
-                #use nseval_ifexists to avoid creating intermediate namespaces for bogus paths
-                if {[catch {
-                    set origin      [nseval_ifexists $targetns [list ::namespace origin $name]]
-                    set resolved    [nseval_ifexists $targetns [list ::namespace which $name]]
-                }]} {
-                    set origin      $querycommand
-                    set resolved    $querycommand
-                }
-            } else {
-                #fully qualified command specified but doesn't exist
-                set origin      $querycommand
-                set resolved    $querycommand
-            }
-        } else {
-            #relative comandpath
-            if {[string match (autodef)* $querycommand]} {
-                #pass through - should be found with id lookup
-                set origin      $querycommand
-                set resolved    $querycommand
-            } else {
-                set thispath [uplevel 1 [list ::nsthis $querycommand]]
-                set targetns [nsprefix $thispath]
-                set name [nstail $thispath]
-                set targetparts [nsparts $targetns]
-                if {[lsearch $targetparts :*] >=0} {
-                    #weird ns
-                    set valid_ns [nsexists $targetns]
-                } else {
-                    set valid_ns [namespace exists $targetns]
-                }
-                if {$valid_ns} {
-                    if {[catch {
-                        set origin      [nseval_ifexists $targetns [list ::namespace origin $name]]
-                        set resolved    [nseval_ifexists $targetns [list ::namespace which $name]]
-                    }]} {
-                        set thiscmd [nsjoin $targetns $name]
-                        #relative querycommand specified - but Tcl didn't find a match in namespace path
-                        #assume global (todo - look for namespace match in auto_index first ?)
-                        set origin ::$name
-                        set resolved ::$name
-                    }
-                } else {
-                    #namespace as relative to current doesn't seem to exist
-                    #Tcl would also attempt to resolve as global
-
-                    #set numvals [expr {[llength $queryargs]+1}]
-                    ##puts "THROWBACK: namespace eval ::  [list punk::ns::arginfo {*}[lrange $args 0 end-$numvals] $querycommand {*}$queryargs]"
-                    #return [namespace eval ::           [list punk::ns::arginfo {*}[lrange $args 0 end-$numvals] $querycommand {*}$queryargs]]
-                    if {$nscaller ne "::"} {
-                        if {!$scheme_received} {
-                            dict unset opts -scheme
-                        }
-                        return [namespace eval ::           [list punk::ns::arginfo {*}$opts $querycommand {*}$queryargs]]
-                    }
-
-                    set origin $querycommand
-                    set resolved $querycommand
-
-                }
-            }
-        }
-
-        #check for a direct match first
-        if {[info commands ::punk::args::id_exists] ne ""} {
-            if {![llength $queryargs]} {
-                #puts stderr "---->arginfo '$args' update_definitions [list [namespace qualifiers $origin]]"
-                punk::args::update_definitions [list [namespace qualifiers $origin]]
-                if {[punk::args::id_exists $origin]} {
-                    switch -- [dict get $opts -return] {
-                        string {
-                            set estyle "basic"
-                        }
-                        tableobject {
-                            set estyle "minimal"
-                        }
-                        default {
-                            set estyle "standard"
-                        }
-                    }
-                    if {[catch {punk::args::parse {} -form [dict get $opts -form] -errorstyle $estyle withid $origin} parseresult]} {
-                        if {[dict get $opts -return] eq "tableobject"} {
-                            return [punk::args::arg_error "$parseresult" [punk::args::get_spec $origin] {*}$opts -aserror 0]
-                        } else {
-                            return $parseresult
-                        }
-                    } else {
-                        if {!$scheme_received} {
-                            dict set opts -scheme info
-                        }
-                        return [punk::args::arg_error "" [punk::args::get_spec $origin] {*}$opts -aserror 0 -parsedargs $parseresult]
-                    }
-                }
-            }
-        }
-
-        #ns::cmdtype only detects alias type on 8.7+?
-        set initial_cmdtype [punk::ns::cmdtype $origin]
-        switch -- $initial_cmdtype {
-            na - alias {
-                #REVIEW - alias entry doesn't necessarily match command!
-                #consider using which_alias (wiki)
-                set tgt [interp alias "" $origin]
-                if {$tgt eq ""} {
-                    set tgt [interp alias "" [string trimleft $origin :]]
-                }
-                #first word of tgt may be namespace relative or absolute
-                if {$tgt ne ""} {
-                    set word1 [lindex $tgt 0]
-                    if {$word1 eq "punk::mix::base::_cli"} {
-                        #special case for punk deck - REVIEW
-                        #e.g punk::mix::base::_cli -extension ::punk::mix::cli
-                        set targetword [lindex $tgt end]
-                    } else {
-                        #todo - alias may have prefilled some leading args - so usage report should reflect that???
-                        #(possible curried arguments)
-                        #review - curried arguments could be for ensembles!
-                        set targetword $word1
-                        #set numvals [expr {[llength $queryargs]+1}]
-                        #puts "ALIAS THROWBACK: namespace eval ::    [list punk::ns::arginfo {*}[lrange $args 0 end-$numvals] $targetword {*}[lrange $tgt 1 end] {*}$queryargs]"
-                        #return [namespace eval ::                   [list punk::ns::arginfo {*}[lrange $args 0 end-$numvals] $targetword {*}[lrange $tgt 1 end] {*}$queryargs]]
-                        if {!$scheme_received} {
-                            dict unset opts -scheme
-                        }
-                        return [namespace eval ::                   [list punk::ns::arginfo {*}$opts $targetword {*}[lrange $tgt 1 end] {*}$queryargs]]
-                    }
-
-
-                    set origin $targetword
-                    #retest cmdtype on modified origin
-                    set cmdtype [punk::ns::cmdtype $origin]
-                } else {
-                    set cmdtype $initial_cmdtype
-                }
-                if {$cmdtype eq "na"} {
-                    #tcl 8.6
-                    if {[info object isa object $origin]} {
-                        set cmdtype "object"
-                    }
-                }
-            }
-            default {
-                set cmdtype $initial_cmdtype
-            }
-        }
-
-
-        set id $origin
-        if {[info commands ::punk::args::id_exists] ne ""} {
-
-
-            #check longest first checking for id matching ::cmd ?subcmd..?
-            #REVIEW - this doesn't cater for prefix callable subcommands
-            set argcopy $queryargs
-            if {[llength $queryargs]} {
-                #puts stderr "====>arginfo '$args' update_definitions [list [namespace qualifiers $id]]"
-                punk::args::update_definitions [list [namespace qualifiers $id]]
-                if {[punk::args::id_exists [list $id {*}$queryargs]]} {
-                    switch -- [dict get $opts -return] {
-                        string {
-                            set estyle "basic"
-                        }
-                        tableobject {
-                            set estyle "minimal"
-                        }
-                        default {
-                            set estyle "standard"
-                        }
-                    }
-                    if {[catch {punk::args::parse {} -form [dict get $opts -form] -errorstyle $estyle withid [list $id {*}$queryargs]} parseresult]} {
-                        if {[dict get $opts -return] eq "tableobject"} {
-                            return [punk::args::arg_error "$parseresult" [punk::args::get_spec [list $id {*}$queryargs]] {*}$opts -aserror 0]
-                        } else {
-                            return $parseresult
-                        }
-                    } else {
-                        if {!$scheme_received} {
-                            dict set opts -scheme info
-                        }
-                        return [punk::args::arg_error "" [punk::args::get_spec [list $id {*}$queryargs]] {*}$opts -aserror 0 -parsedargs $parseresult]
-                        #return [uplevel 1 [list punk::args::usage {*}$opts [list $id {*}$queryargs]]]
-                    }
-                }
-            }
-            #while {[llength $argcopy]} {
-            #    if {[punk::args::id_exists [list $id {*}$argcopy]]} {
-            #        return [uplevel 1 [list punk::args::usage {*}$opts [list $id {*}$argcopy]]]
-            #    }
-            #    lpop argcopy
-            #}
-
-            #didn't find any exact matches
-            #traverse from other direction taking prefixes into account
-
-            #puts stderr "____>arginfo '$args' update_definitions [list [namespace qualifiers $id]]"
-            punk::args::update_definitions [list [namespace qualifiers $id]]
-            if {[punk::args::id_exists $id]} {
-                #cycle forward through leading values
-                set specid $id
-                set specargs $queryargs
-                if {[llength $queryargs]} {
-                    #jjj
-                    set spec [punk::args::get_spec $id]
-                    #---------------------------------------------------------------------------
-                    set form_names [dict get $spec form_names]
-                    if {[llength $form_names] == 1} {
-                        set fid [lindex $form_names 0]
-                    } else {
-                        #review - -form only applies to final command?
-                        # -form must be a list if we have multiple levels of multi-form commands?
-                        set opt_form [dict get $opts -form]
-                        if {[string is integer -strict $opt_form]} {
-                            if {$opt_form < 0 || $opt_form > [llength $form_names]-1} {
-                                error "punk::ns::arginfo invalid -form $opt_form expected int 0-[expr {[llength $form_names]-1}] or one of '$form_names'"
-                            }
-                            set fid [lindex $form_names $opt_form]
-                        } else {
-                            if {$opt_form ni $form_names} {
-                                error "punk::ns::arginfo invalid -form $opt_form expected int 0-[expr {[llength $form_names]-1}] or one of '$form_names'"
-                            }
-                            set fid $opt_form
-                        }
-                    }
-                    #---------------------------------------------------------------------------
-                    set nextqueryargs [list] ;#build a list of prefix-resolved queryargs
-                    set queryargs_untested $queryargs
-                    foreach q $queryargs {
-                        if {[llength     [dict get $spec FORMS $fid LEADER_NAMES]]} {
-                            #todo: fix
-                            set subitems [dict get $spec FORMS $fid LEADER_NAMES]
-                            if {[llength $subitems]} {
-                                set next [lindex $subitems 0]
-                                set arginfo [dict get $spec FORMS $fid ARG_INFO $next]
-
-                                set allchoices [list]
-                                set choices                 [punk::args::system::Dict_getdef $arginfo -choices {}]
-                                set choicegroups            [punk::args::system::Dict_getdef $arginfo -choicegroups {}]
-                                #maintenance smell - similar/dup of some punk::args logic - review
-                                #-choiceprefixdenylist ??
-                                set choiceprefixreservelist [punk::args::system::Dict_getdef $arginfo -choiceprefixreservelist {}]
-                                if {[dict exists $choicegroups ""]} {
-                                    dict lappend choicegroups "" {*}$choices
-                                } else {
-                                    set choicegroups [dict merge [dict create "" $choices] $choicegroups]
-                                }
-                                dict for {groupname clist} $choicegroups {
-                                    lappend allchoices {*}$clist
-                                }
-                                set resolved_q [tcl::prefix::match -error "" [list {*}$allchoices {*}$choiceprefixreservelist] $q]
-                                if {$resolved_q eq "" || $resolved_q in $choiceprefixreservelist} {
-                                    break
-                                }
-                                lappend nextqueryargs $resolved_q
-                                #lpop queryargs_untested 0
-                                ledit queryargs_untested 0 0
-                                if {$resolved_q ne $q} {
-                                    #we have our first difference - recurse with new query args
-                                    #set numvals [expr {[llength $queryargs]+1}]
-                                    #return [ punk::ns::arginfo {*}[lrange $args 0 end-$numvals] $querycommand {*}$nextqueryargs {*}$queryargs_untested]
-                                    #puts "===> testing arginfo {*}$opts $querycommand {*}$nextqueryargs {*}$queryargs_untested"
-                                    if {!$scheme_received} {
-                                        dict unset opts -scheme
-                                    }
-                                    return [ punk::ns::arginfo {*}$opts {*}$specid {*}$nextqueryargs {*}$queryargs_untested]
-
-                                }
-                                #check if subcommands so far have a custom args def
-                                #set currentid [list $querycommand {*}$nextqueryargs]
-                                set currentid [list {*}$specid {*}$nextqueryargs]
-                                if {[punk::args::id_exists $currentid]} {
-                                    set spec [punk::args::get_spec $currentid]
-                                    #---------------------------------------------------------------------------
-                                    set form_names [dict get $spec form_names]
-                                    if {[llength $form_names] == 1} {
-                                        set fid [lindex $form_names 0]
-                                    } else {
-                                        #review - -form only applies to final command?
-                                        # -form must be a list if we have multiple levels of multi-form commands?
-                                        set opt_form [dict get $opts -form]
-                                        if {[string is integer -strict $opt_form]} {
-                                            if {$opt_form < 0 || $opt_form > [llength $form_names]-1} {
-                                                error "punk::ns::arginfo invalid -form $opt_form expected int 0-[expr {[llength $form_names]-1}] or one of '$form_names'"
-                                            }
-                                            set fid [lindex $form_names $opt_form]
-                                        } else {
-                                            if {$opt_form ni $form_names} {
-                                                error "punk::ns::arginfo invalid -form $opt_form expected int 0-[expr {[llength $form_names]-1}] or one of '$form_names'"
-                                            }
-                                            set fid $opt_form
-                                        }
-                                    }
-                                    #---------------------------------------------------------------------------
-                                    set specid $currentid
-                                    set specargs $queryargs_untested
-                                    set nextqueryargs [list]
-                                } else {
-                                    #We can get no further with custom defs
-                                    #It is possible we have a documented lower level subcommand but missing the intermediate
-                                    #e.g if ::trace remove command was specified and is documented - it will be found above
-                                    #but if ::trace remove is not documented and the query is "::trace remove com"
-                                    #There is no way to determine com is a prefix as we don't have the intermediate documented -choice info available.
-                                    #that's probably ok.
-                                    break
-                                }
-                            }
-                        } else {
-                            #review
-                            break
-                        }
-                    }
-                } else {
-                    switch -- [dict get $opts -return] {
-                        string {
-                            set estyle "basic"
-                        }
-                        tableobject {
-                            set estyle "minimal"
-                        }
-                        default {
-                            set estyle "standard"
-                        }
-                    }
-                    if {[catch {punk::args::parse {} -form [dict get $opts -form] -errorstyle $estyle withid $id} parseresult]} {
-                        if {[dict get $opts -return] eq "tableobject"} {
-                            return [punk::args::arg_error "$parseresult" [punk::args::get_spec $id] {*}$opts -aserror 0]
-                        } else {
-                            return $parseresult
-                        }
-                    } else {
-                        if {!$scheme_received} {
-                            dict set opts -scheme info
-                        }
-                        return [punk::args::arg_error "" [punk::args::get_spec $id] {*}$opts -aserror 0 -parsedargs $parseresult]
-                        #return [uplevel 1 [list punk::args::usage {*}$opts $id]]
-                    }
-                }
-                #puts "--->origin $specid queryargs: $specargs"
-                set origin $specid
-                set queryargs $specargs
-            }
-        }
-
-        if {[string match "(autodef)*" $origin]} {
-            #wasn't resolved by id - so take this as a request to generate it (probably there is an existing custom def - and this has been manually requested to get the default)
-            set origin [string range $origin [string length (autodef)] end]
-            set resolved $origin
-        }
-
-        switch -- $cmdtype {
-            object {
-                #class is also an object
-                #todo -mixins etc etc
-                set class [info object class $origin]
-                #the call: info object methods <o> -all
-                # seems to do the right thing as far as hiding unexported methods, and showing things like destroy
-                # - which don't seem to be otherwise easily introspectable
-                set public_methods [info object methods $origin -all]
-                #set class_methods   [info class methods $class]
-                #set object_methods  [info object methods $origin]
-
-                if {[llength $queryargs]} {
-                    set c1 [lindex $queryargs 0]
-                    if {$c1 in $public_methods} {
-                        switch -- $c1 {
-                            new {
-                                set constructorinfo [info class constructor $origin]
-                                set arglist [lindex $constructorinfo 0]
-                                set argdef [punk::lib::tstr -return string {
-                                    @id     -id "(autodef)${$origin} new"
-                                    @cmd    -name "${$origin} new"\
-                                        -summary\
-                                        "Create new object instance."\
-                                        -help\
-                                        "create object with autogenerated command name.
-                                        Arguments are passed to the constructor."
-                                    @values
-                                }]
-                                set i 0
-                                foreach a $arglist {
-                                    if {[llength $a] == 1} {
-                                        if {$i == [llength $arglist]-1 && $a eq "args"} {
-                                            #'args' is only special if last
-                                            append argdef \n "args -optional 1 -multiple 1"
-                                        } else {
-                                            append argdef \n "$a"
-                                        }
-                                    } else {
-                                        append argdef \n  "[lindex $a 0] -default [lindex $a 1]"
-                                    }
-                                    incr i
-                                }
-                                punk::args::define $argdef
-                                set queryargs_remaining [lrange $queryargs 1 end]
-                                switch -- [dict get $opts -return] {
-                                    string {
-                                        set estyle "basic"
-                                    }
-                                    tableobject {
-                                        set estyle "minimal"
-                                    }
-                                    default {
-                                        set estyle "standard"
-                                    }
-                                }
-                                if {[catch {punk::args::parse $queryargs_remaining -form [dict get $opts -form] -errorstyle $estyle withid "(autodef)$origin new"} parseresult]} {
-                                    if {[dict get $opts -return] eq "tableobject"} {
-                                        return [punk::args::arg_error "$parseresult" [punk::args::get_spec "(autodef)$origin new"] {*}$opts -aserror 0]
-                                    } else {
-                                        return $parseresult
-                                    }
-                                } else {
-                                    if {!$scheme_received} {
-                                        dict set opts -scheme info
-                                    }
-                                    return [punk::args::arg_error "" [punk::args::get_spec "(autodef)$origin new"] {*}$opts -aserror 0 -parsedargs $parseresult]
-                                    #return [punk::args::usage {*}$opts "(autodef)$origin new"]
-                                }
-                            }
-                            create {
-                                set constructorinfo [info class constructor $origin]
-                                set arglist [lindex $constructorinfo 0]
-                                set argdef [punk::lib::tstr -return string {
-                                    @id     -id "(autodef)${$origin} create"
-                                    @cmd    -name "${$origin} create"\
-                                        -summary\
-                                        "Create new object instance with specified command name."\
-                                        -help\
-                                        "create object with specified command name.
-                                        Arguments following objectName are passed to the constructor."
-                                    @values -min 1
-                                    objectName -type string -help\
-                                        "possibly namespaced name for object instance command"
-                                }]
-                                set i 0
-                                foreach a $arglist {
-                                    if {[llength $a] == 1} {
-                                        if {$i == [llength $arglist]-1 && $a eq "args"} {
-                                            #'args' is only special if last
-                                            append argdef \n "args -optional 1 -multiple 1"
-                                        } else {
-                                            append argdef \n "$a"
-                                        }
-                                    } else {
-                                        append argdef \n  "[lindex $a 0] -default [lindex $a 1]"
-                                    }
-                                    incr i
-                                }
-                                punk::args::define $argdef
-                                set queryargs_remaining [lrange $queryargs 1 end]
-                                switch -- [dict get $opts -return] {
-                                    string {
-                                        set estyle "basic"
-                                    }
-                                    tableobject {
-                                        set estyle "minimal"
-                                    }
-                                    default {
-                                        set estyle "standard"
-                                    }
-                                }
-                                if {[catch {punk::args::parse $queryargs_remaining -form [dict get $opts -form] -errorstyle $estyle withid "(autodef)$origin create"} parseresult]} {
-                                    if {[dict get $opts -return] eq "tableobject"} {
-                                        return [punk::args::arg_error "$parseresult" [punk::args::get_spec "(autodef)$origin create"] {*}$opts -aserror 0]
-                                    } else {
-                                        return $parseresult
-                                    }
-                                } else {
-                                    if {!$scheme_received} {
-                                        dict set opts -scheme info
-                                    }
-                                    return [punk::args::arg_error "" [punk::args::get_spec "(autodef)$origin create"] {*}$opts -aserror 0 -parsedargs $parseresult]
-                                    #return [punk::args::usage {*}$opts "(autodef)$origin create"]
-                                }
-                            }
-                            destroy {
-                                #review - generally no doc
-                                # but we may want notes about a specific destructor
-                                set argdef [punk::lib::tstr -return string {
-                                    @id     -id "(autodef)${$origin} destroy"
-                                    @cmd    -name "destroy"\
-                                        -summary\
-                                        "delete object instance."\
-                                        -help\
-                                        "delete object, calling destructor if any.
-                                        destroy accepts no arguments."
-                                    @values -min 0 -max 0
-                                }]
-                                punk::args::define $argdef
-                                set queryargs_remaining [lrange $queryargs 1 end]
-                                switch -- [dict get $opts -return] {
-                                    string {
-                                        set estyle "basic"
-                                    }
-                                    tableobject {
-                                        set estyle "minimal"
-                                    }
-                                    default {
-                                        set estyle "standard"
-                                    }
-                                }
-                                if {[catch {punk::args::parse $queryargs_remaining -form [dict get $opts -form] -errorstyle $estyle withid "(autodef)$origin destroy"} parseresult]} {
-                                    if {[dict get $opts -return] eq "tableobject"} {
-                                        return [punk::args::arg_error "$parseresult" [punk::args::get_spec "(autodef)$origin destroy"] {*}$opts -aserror 0]
-                                    } else {
-                                        return $parseresult
-                                    }
-                                } else {
-                                    if {!$scheme_received} {
-                                        dict set opts -scheme info
-                                    }
-                                    return [punk::args::arg_error "" [punk::args::get_spec "(autodef)$origin destroy"] {*}$opts -aserror 0 -parsedargs $parseresult]
-                                    #return [punk::args::usage {*}$opts "(autodef)$origin destroy"]
-                                }
-                            }
-                            default {
-                                #use info object call <obj> <method> to resolve callchain
-                                #we assume the first impl is the topmost in the callchain
-                                # and its call signature is therefore the one we are interested in - REVIEW
-                                # we should probably ignore generaltypes filter|unknown and look for a subsequent method|private?
-                                set implementations [::info object call $origin $c1]
-                                #result documented as list of 4 element lists
-                                #set callinfo [lindex $implementations 0]
-                                set oodef ""
-                                foreach impl $implementations {
-                                    lassign $impl generaltype mname location methodtype
-                                    switch -- $generaltype {
-                                        method - private {
-                                            #objects being dynamic systems - we should always reinspect.
-                                            #Don't use the cached (autodef) def
-                                            #If there is a custom def override - use it (should really be -dynamic - but we don't check)
-                                            if {$location eq "object"} {
-                                                set idcustom    "$origin $c1"
-                                                #set id "[string trimleft $origin :] $c1" ;# "<object> <method>"
-                                                if {[info commands ::punk::args::id_exists] ne ""} {
-                                                    if {[punk::args::id_exists $idcustom]} {
-                                                        return [uplevel 1 [list punk::args::usage {*}$opts $idcustom]]
-                                                    }
-                                                }
-                                                set oodef [::info object definition $origin $c1]
-                                            } else {
-                                                #set id "[string trimleft $location :] $c1" ;# "<class> <method>"
-                                                set idcustom    "$location $c1"
-                                                if {[info commands ::punk::args::id_exists] ne ""} {
-                                                    if {[punk::args::id_exists $idcustom]} {
-                                                        return [uplevel 1 [list punk::args::usage {*}$opts $idcustom]]
-                                                    }
-                                                }
-                                                set oodef [::info class definition $location $c1]
-                                            }
-                                            break
-                                        }
-                                        filter {
-                                        }
-                                        unknown {
-                                        }
-                                    }
-                                }
-                                if {$oodef ne ""} {
-                                    set autoid "(autodef)$location $c1"
-                                    set arglist [lindex $oodef 0]
-                                    set argdef [punk::lib::tstr -return string {
-                                        @id     -id "${$autoid}"
-                                        @cmd    -name "${$location} ${$c1}" -help\
-                                            "(autogenerated)
-                                            arglist:${$arglist}"
-                                        @values
-                                    }]
-                                    set i 0
-                                    foreach a $arglist {
-                                        switch -- [llength $a] {
-                                            1 {
-                                                if {$i == [llength $arglist]-1 && $a eq "args"} {
-                                                    #'args' is only special if last
-                                                    append argdef \n "args -optional 1 -multiple 1"
-                                                } else {
-                                                    append argdef \n "$a"
-                                                }
-                                            }
-                                            2 {
-                                                append argdef \n "[lindex $a 0] -default {[lindex $a 1]} -optional 1"
-                                            }
-                                            default {
-                                                error "punk::ns::arginfo unexpected oo argument signature '$arglist'\noodef:$oodef\nimplementations:$implementations"
-                                            }
-                                        }
-                                        incr i
-                                    }
-                                    punk::args::define $argdef
-                                    return [punk::args::usage {*}$opts $autoid]
-                                } else {
-                                    return "unable to resolve $origin method $c1"
-                                }
-
-                            }
-                        }
-                    }
-                }
-                set choicelabeldict [dict create]
-                set choiceinfodict [dict create]
-                foreach cmd $public_methods {
-                    switch -- $cmd {
-                        new - create - destroy {
-                            #todo
-                        }
-                        default {
-                            set implementations [::info object call $origin $cmd]
-                            set def ""
-                            foreach impl $implementations {
-                                lassign $impl generaltype mname location methodtype
-                                switch -- $generaltype {
-                                    method - private {
-                                        if {$location eq "object"} {
-                                            #set id "[string trimleft $origin :] $cmd" ;# "<object> <method>"
-                                            set id "$origin $cmd"
-                                            dict set choiceinfodict $cmd {{doctype ooo}}
-                                        } else {
-                                            #set id "[string trimleft $location :] $cmd" ;# "<class> <method>"
-                                            set id "$location $cmd"
-                                            dict set choiceinfodict $cmd {{doctype ooc}}
-                                        }
-                                        if {[info commands ::punk::args::id_exists] ne ""} {
-                                            if {[punk::args::id_exists $id]} {
-                                                #dict set choicelabeldict $cmd " [Usageinfo_mark brightgreen]"
-                                                dict lappend choiceinfodict $cmd {doctype punkargs}
-                                            }
-                                        }
-                                        break
-                                    }
-                                    filter {
-                                    }
-                                    unknown {
-                                        dict set choiceinfodict $cmd {{doctype unknown}}
-                                    }
-                                }
-                            }
-                        }
-                    }
-                }
-
-                set vline [list method -choices $public_methods -choicelabels $choicelabeldict -choiceinfo $choiceinfodict -choiceprefix 0] ;#methods must be specified in full always? - review
-                #puts stderr "--->$vline"
-                set idauto "(autodef)$origin"
-                set argdef [punk::lib::tstr -return string {
-                    @id     -id ${$idauto}
-                    @cmd    -name "Object: ${$origin}" -help\
-                        "Instance of class: ${$class} (info autogenerated)"
-                    @leaders -min 1
-                }]
-                append argdef \n $vline
-                punk::args::define $argdef
-                return [punk::args::usage {*}$opts $idauto]
-            }
-            privateObject {
-                return "Command is a privateObject - no info currently available"
-            }
-            privateClass {
-                return "Command is a privateClass - no info currently available"
-            }
-            interp {
-                #todo
-            }
-        }
-
-        #check ensemble before testing punk::arg::id_exists
-        #we want to recalculate ensemble usage info in case ensemble has been modified
-
-        if {[namespace ensemble exists $origin]} {
-            #review
-            #todo - check -unknown
-            #if there is a -unknown handler - we can't be sure the choices in -map or from -namespace are exhaustive.
-            #presumably -choiceprefix should be zero in that case??
-
-            set ensembleinfo [namespace ensemble configure $origin]
-            set parameters [dict get $ensembleinfo -parameters]
-            set prefixes [dict get $ensembleinfo -prefixes]
-            set map [dict get $ensembleinfo -map]
-            set ns  [dict get $ensembleinfo -namespace]
-
-            #review - we can have a combination of commands from -map as well as those exported from -namespace
-            # if and only if -subcommands is specified
-
-            set subcommand_dict [dict create]
-            set commands [list]
-            set nscommands [list]
-            if {[llength [dict get $ensembleinfo -subcommands]]} {
-                #set exportspecs [namespace eval $ns {namespace export}]
-                #foreach pat $exportspecs {
-                #    lappend nscommands {*}[info commands ${ns}::$pat]
-                #}
-                #when using -subcommands, even unexported commands are available
-                set nscommands [info commands ${ns}::*]
-                foreach sub [dict get $ensembleinfo -subcommands] {
-                    if {[dict exists $map $sub]} {
-                        #-map takes precence over same name exported from -namespace
-                        dict set subcommand_dict $sub [dict get $map $sub]
-                    } elseif {"${ns}::$sub" in $nscommands} {
-                        dict set subcommand_dict $sub ${ns}::$sub
-                    } else {
-                        #subcommand probably supplied via -unknown handler?
-                        dict set subcommand_dict $sub ""
-                    }
-                }
-            } else {
-                if {[dict size $map]} {
-                    set subcommand_dict $map
-                } else {
-                    set exportspecs [namespace eval $ns {namespace export}]
-                    foreach pat $exportspecs {
-                        lappend nscommands {*}[info commands ${ns}::$pat]
-                    }
-                    foreach fqc $nscommands {
-                        dict set subcommand_dict [namespace tail $fqc] $fqc
-                    }
-                }
-            }
-
-
-            set subcommands [lsort [dict keys $subcommand_dict]]
-            if {[llength $queryargs]} {
-                set posn_subcommand [llength $parameters];#ensemble may have '-parameters' list specified - parameters that come before the subcommand
-                if {$posn_subcommand > 0} {
-                    set params [lrange $queryargs 0 $posn_subcommand-1]
-                    set remaining_queryargs [lrange $queryargs $posn_subcommand end]
-                } else {
-                    set params [list]
-                    set remaining_queryargs $queryargs
-                }
-                if {[llength $remaining_queryargs]} {
-                    if {$prefixes} {
-                        set match [tcl::prefix::match -error {} $subcommands [lindex $remaining_queryargs 0]]
-                    } else {
-                        set match [lindex $remaining_queryargs 0]
-                    }
-                    if {$match in $subcommands} {
-                        set subcmd [dict get $subcommand_dict $match]
-                        #return [arginfo {*}$subcmd {*}[lrange $queryargs 1 end]] ;#subcmd is sometimes multiple words (implemented as a further ensemble subcommand) (e.g huddle string -> "Type_string string")
-                        if {!$scheme_received} {
-                            dict unset opts -scheme
-                        }
-                        #return [arginfo {*}$opts {*}$subcmd {*}$params {*}[lrange $remaining_queryargs 1 end]]
-                        #use tailcall so %caller% is reported properly in error msg
-                        tailcall arginfo {*}$opts {*}$subcmd {*}$params {*}[lrange $remaining_queryargs 1 end] ;#subcmd is sometimes multiple words (implemented as a further ensemble subcommand) (e.g huddle string -> "Type_string string")
-                    }
-                }
-            }
-
-            set have_usageinfo [list]
-            set is_ensemble [list]
-            set is_object [list]
-            set is_class [list]
-            set is_native [list]
-            set namespaces [dict create] ;# usually only 1 or 2 namespaces - but could be any number.
-            dict for {sub subwhat} $subcommand_dict {
-                set targetfirstword [lindex $subwhat 0]
-                set ns [::namespace which $targetfirstword]
-                set ns [nsprefix $ns]
-                set targettail [namespace tail $targetfirstword]
-                if {![dict exists $namespaces $ns]} {
-                    set nsinfo [lindex [punk::ns::nslist_dict [nsjoin $ns *]] 0]
-                    dict set namespaces $ns $nsinfo
-                } else {
-                    set nsinfo [dict get $namespaces $ns]
-                }
-                if {$targettail in [dict get $nsinfo usageinfo]} {
-                    lappend have_usageinfo $sub
-                }
-                if {$targettail in [dict get $nsinfo ensembles]} {
-                    lappend is_ensemble $sub
-                }
-                if {$targettail in [dict get $nsinfo ooobjects]} {
-                    lappend is_object $sub
-                }
-                if {$targettail in [dict get $nsinfo ooclasses]} {
-                    lappend is_class $sub
-                }
-                if {$targettail in [dict get $nsinfo native]} {
-                    lappend is_native $sub
-                }
-            }
-
-            #todo - synopsis?
-            set choicelabeldict [dict create]
-
-            set choiceinfodict [dict create]
-            foreach sub $subcommands {
-
-                if {$sub in $is_ensemble} {
-                    dict lappend choiceinfodict $sub {doctype ensemble}
-                }
-
-                if {$sub in $is_object} {
-                    if {$sub in $is_class} {
-                        dict lappend choiceinfodict $sub {doctype ooc}
-                    } else {
-                        dict lappend choiceinfodict $sub {doctype ooo}
-                    }
-                }
-
-                if {$sub in $is_native} {
-                    dict lappend choiceinfodict $sub {doctype native}
-                }
-
-                if {$sub in $have_usageinfo} {
-                    #dict set choiceinfodict $sub [list {doctype punkargs}]
-                    dict lappend choiceinfodict $sub {doctype punkargs}
-                }
-            }
-
-            set vline [list subcommand -choices $subcommands -choiceprefix $prefixes -choicelabels $choicelabeldict -choiceinfo $choiceinfodict]
-            set autoid "(autodef)$origin"
-            set argdef [punk::lib::tstr -return string {
-                @id     -id ${$autoid}
-                @cmd    -help\
-                    "(autogenerated)
-                    ensemble: ${$origin}"
-                @leaders -min 1
-            }]
-            if {[llength $parameters] == 0} {
-                append argdef \n "@leaders -min 1"
-            } else {
-                append argdef \n "@leaders -min [expr {[llength $parameters]+1}]"
-                foreach p $parameters {
-                    append argdef \n "$p -type string -help {  (leading ensemble parameter)}"
-                }
-            }
-            append argdef \n $vline
-            punk::args::define $argdef
-            switch -- [dict get $opts -return] {
-                string {
-                    set estyle "basic"
-                }
-                tableobject {
-                    set estyle "minimal"
-                }
-                default {
-                    set estyle "standard"
-                }
-            }
-            if {[catch {punk::args::parse $queryargs -form [dict get $opts -form] -errorstyle $estyle withid $autoid} parseresult]} {
-                # parsing error e.g Bad number of leading values
-                #override -scheme in opts with -scheme error
-                if {[dict get $opts -return] eq "tableobject"} {
-                    return [punk::args::arg_error "$parseresult" [punk::args::get_spec $autoid] {*}$opts -aserror 0]
-                } else {
-                    return $parseresult
-                }
-            } else {
-                #show usage - with goodargs marked
-                #return [punk::args::arg_error "" [punk::args::get_spec $autoid] -scheme info -aserror 0 {*}$opts -parsedargs $parseresult]
-                if {!$scheme_received} {
-                    dict set opts -scheme info
-                }
-                return [punk::args::arg_error "" [punk::args::get_spec $autoid] {*}$opts -aserror 0 -parsedargs $parseresult]
-            }
-            #return [punk::args::usage {*}$opts $autoid]
-        }
-
-        #check for tepam help
-        if {[info exists ::tepam::ProcedureList]} {
-            if {$origin in $::tepam::ProcedureList} {
-                return [tepam::ProcedureHelp $origin 1] ;#use 1 to return rather than emit to stdout
-            } else {
-                #handle any tepam functions that don't eat their own dogfood but have help variables
-                #e.g tepam::procedure, tepam::argument_dialogbox
-                #Rather than hardcode these - we'll guess that any added will use the same scheme..
-                if {[namespace qualifiers $origin] eq "::tepam"} {
-                    set func [namespace tail $origin]
-                    #tepam XXXHelp vars don't exactly match procedure names :/
-                    if {[info exists ::tepam::${func}Help]} {
-                        return [set ::tepam::${func}Help]
-                    } else {
-                        set f2 [string totitle $func]
-                        if {[info exists ::tepam::${f2}Help]} {
-                            return [set ::tepam::${f2}Help]
-                        }
-                        #e.g argument_dialogbox -> ArgumentDialogboxHelp
-                        set parts [split $func _]
-                        set uparts [lmap p $parts {string totitle $p}]
-                        set f3 [join [list {*}$uparts Help] ""]
-                        if {[info exists ::tepam::${f3}]} {
-                            return [set ::tepam::${f3}]
-                        }
-                    }
-                }
-            }
-        }
-
-        set origin_ns [nsprefix $origin]
-        set parts [nsparts $origin_ns]
-        set weird_ns 0
-        if {[lsearch $parts :*] >=0} {
-            set weird_ns 1
-        }
-        if {$weird_ns} {
-            set argl {}
-            set tail [nstail $origin]
-            set cmdtype [nseval_ifexists $origin_ns [list punk::ns::cmdtype $tail]]
-            if {$cmdtype eq "proc"} {
-                foreach a [nseval_ifexists $origin_ns [list info args $tail]] {
-                    if {[nseval_ifexists $origin_ns [list info default $tail $a def]]} {
-                        lappend a $def
-                    }
-                    lappend argl $a
-                }
-            }
-        } else {
-            set cmdtype [punk::ns::cmdtype $origin]
-            if {$cmdtype eq "proc"} {
-                set argl {}
-                set infoargs [info args $origin]
-                foreach a $infoargs {
-                    if {[info default $origin $a def]} {
-                        lappend a $def
-                    }
-                    lappend argl $a
-                }
-            }
-        }
-
-        if {[llength $queryargs]} {
-            #todo - something better ?
-            switch -- [dict get $opts -return] {
-                string {
-                    set estyle "basic"
-                }
-                tableobject {
-                    set estyle "minimal"
-                }
-                default {
-                    set estyle "standard"
-                }
-            }
-
-            if {[punk::args::id_exists $origin]} {
-                if {[catch {punk::args::parse $queryargs -form [dict get $opts -form] -errorstyle $estyle withid $origin} parseresult]} {
-                    if {[dict get $opts -return] eq "tableobject"} {
-                        return [punk::args::arg_error "$parseresult" [punk::args::get_spec $origin] {*}$opts -aserror 0]
-                    } else {
-                        return $parseresult
-                    }
-                } else {
-                    #show usage - with goodargs marked
-                    if {!$scheme_received} {
-                        dict set opts -scheme info
-                    }
-                    return [punk::args::arg_error "" [punk::args::get_spec $origin] {*}$opts -aserror 0 -parsedargs $parseresult]
-                }
-            }
-            set msg             "Undocumented or nonexistant command $origin $queryargs"
-            append msg    \n    "$origin Type: $cmdtype"
-        } else {
-            if {$cmdtype eq "proc"} {
-                set    msg          "Undocumented proc $origin"
-                append msg \n       "No argument processor detected"
-                append msg \n       "function signature: $resolved $argl"
-            } else {
-                set msg             "Undocumented command $origin. Type: $cmdtype"
-            }
-        }
-        if {[llength $grepstr] != 0} {
-            if {[llength $grepstr] == 1} {
-                return [punk::grepstr -no-linenumbers -highlight red [lindex $grepstr 0] $msg]
-            } else {
-                return [punk::grepstr -no-linenumbers -highlight [lrange $grepstr 1 end] [lindex $grepstr 0] $msg]
-            }
-        }
-        return $msg
-    }
-
-    #todo - package up as navns
-    punk::args::define {
-        @id     -id ::punk::ns::corp
-        @cmd    -name punk::ns::corp -help\
-            "Show alias or proc information.
-            'corp' (being the reverse spelling of proc)
-            will display the Tcl 'proc name args body' statement
-            for the proc.
-            Essentially this is a convenient way to display the
-            proc body including argument info, instead of
-            separately calling 'info args <proc>' 'info body <proc>'
-            etc.
-            The body may display with an additional
-            comment inserted to display information such as the
-            namespace origin. Such a comment begins with #corp#."
-        @opts
-        -syntax -default basic -choices {none basic}\
-            -choicelabels {
-            none\
-            " Plain text output"
-            basic\
-            " Comment and bracket highlights.
-             This is a basic colourizer - not
-             a full Tcl syntax highlighter."
-            }\
-            -help\
-            "Type of syntax highlighting on result.
-              Note that -syntax none will always return a proper Tcl
-              List: proc <name> <arglist> <body>
-              - but a syntax highlighter may return a string that
-              is not a Tcl list."
-        @values -min 1 -max -1
-        commandname -help\
-            "May be either the fully qualified path for the command,
-              or a relative name that is resolvable from the current
-              namespace."
-    }
-    proc corp {args} {
-        set argd [punk::args::parse $args withid ::punk::ns::corp]
-        set path    [dict get $argd values commandname]
-        set syntax  [dict get $argd opts -syntax]
-        #thanks to Richard Suchenwirth for the original - wiki.tcl-lang.org/page/corp
-        #Note: modified here to support aliases and relative/absolute name (with respect to namespace .ie ::name vs name)
-        if {[info exists punk::console::tabwidth]} {
-            set tw $::punk::console::tabwidth
-        } else {
-            set tw 8
-        }
-        set indent [string repeat " " $tw] ;#match
-        #set indent [string repeat "    " $tw] ;#A more sensible default for code - review
-
-        if {[info exists ::auto_index($path)]} {
-            set body "\n${indent}#corp# auto_index $::auto_index($path)"
-        } else {
-            set body ""
-        }
-
-        #we want to handle edge cases of commands such as "" or :x
-        #various builtins such as 'namespace which' won't work
-        if {[string match ::* $path]} {
-            set targetns [nsprefix $path]
-            set name [nstail $path]
-        } else {
-            set thispath [uplevel 1 [list ::nsthis $path]]
-            set targetns [nsprefix $thispath]
-            set name [nstail $thispath]
-        }
-        #puts stderr "corp upns:$upns"
-
-        #set name [string trim $name :]
-        #set origin [namespace origin ${upns}::$name]
-        set origin      [nseval $targetns [list ::namespace origin $name]]
-        set resolved    [nseval $targetns [list ::namespace which $name]]
-
-        #An renamed alias may exist that is the same name as a proc that was created later.. so we must check for the proc before looking into aliases!
-        if {$origin ni [info procs $origin]} {
-
-            #It seems an interp alias of "::x""  behaves the same as "x"
-            #But we can't create both at the same time - and they have to be queried by the exact name.
-            #So we query for alias with and without leading ::
-            set alias_qualified [interp alias {} [string trim $origin :]]
-            set alias_unqualified [interp alias {} $origin]
-            if {[string length $alias_qualified] && [string length $alias_unqualified]} {
-                #our assumptions are wrong.. change in tcl version?
-                puts stderr "corp: Found alias for unqualified name:'[string trim $origin :]' and qualified name: '$origin' - unexpected (assumed impossible as at Tcl 8.6)"
-                if {$alias_qualified ne $alias_unqalified} {
-
-                } else {
-                    set alias $alias_unqualified
-                }
-            } else {
-                set alias ${alias_qualified}${alias_unqualified} ;#concatenate - as at least one should be empty
-            }
-
-            if {[string length $alias]} {
-                #todo - consider following alias-chain to ultimate proc?
-                #it can always be manually done with:
-                #.= corp $name |/1> corp |/1> corp ..
-                #depending on number of aliases in the chain
-                return [list alias {*}$alias]
-            }
-        }
-        if {[nsprefix $origin] ne [nsprefix [nsjoin ${targetns} $name]]} {
-            append body \n "${indent}#corp# namespace origin $origin"
-        }
-
-        if {$body ne "" && [string index $body end] ne "\n"} {
-            append body \n
-        }
-        if {![catch {package require textutil::tabify} errpkg]} {
-            set bodytext [info body $origin]
-            #punk::lib::indent preserves trailing empty lines - unlike textutil version
-            set bodytext [punk::lib::undent [textutil::untabify2 $bodytext $tw]]
-            append body [punk::lib::indent $bodytext $indent]
-        } else {
-            append body [info body $origin]
-        }
-        set argl {}
-        foreach a [info args $origin] {
-            if {[info default $origin $a def]} {
-                lappend a $def
-            }
-            lappend argl $a
-        }
-        #list proc [nsjoin ${targetns} $name] $argl $body
-        switch -- $syntax {
-            basic {
-                #rudimentary colourising only
-                set argl [punk::grepstr -return all -highlight tk-darkcyan  {\{|\}} $argl]
-                set body [punk::grepstr -return all -highlight green        {^\s*#.*} $body] ;#Note, will not highlight comments at end of line - like this one.
-                set body [punk::grepstr -return all -highlight tk-darkcyan  {\{|\}} $body]
-                set body [punk::grepstr -return all -highlight tk-orange    {\[|\]} $body]
-                #ansi colourised items in list format may not always have desired string representation (list escaping can occur)
-                #return as a string - which may not be a proper Tcl list!
-                return "proc $resolved {$argl} {\n$body\n}"
-            }
-        }
-        list proc $resolved $argl $body
-    }
-
-
-    #review ???
-    proc ns_relative_to_location {name} {
-        if {[string match ::* $name]} {
-            error "ns_relative_to_location accepts a relative namespace name only ie one without leading ::"
-        }
-
-    }
-    proc ns_absolute_to_location {name} {
-
-    }
-
-
-    tcl::namespace::eval internal {
-
-
-        #maintenance: similar in punk::winrun
-        proc get_run_opts {options alias_dict arglist} {
-            if {[catch {
-                set callerinfo [info level -1]
-            } errM]} {
-                set caller ""
-            } else {
-                set caller [lindex $callerinfo 0]
-            }
-
-            #update alias dict mapping shortnames to longnames - longnames to self
-            foreach o $options {
-                dict set alias_dict $o $o
-            }
-            set known_runopts [dict keys $alias_dict]
-            set runopts [list]
-            set cmdargs [list]
-
-            set first_eopt_posn [lsearch $arglist --]
-            if {$first_eopt_posn >=0} {
-                set pre_eopts [lrange $arglist 0 $first_eopt_posn-1]
-                set is_eopt_for_runopts 1 ;#default assumption that it is for this function rather than part of user's commandline - cycle through previous args to disprove.
-                foreach pre $pre_eopts {
-                    if {$pre ni $known_runopts} {
-                        set is_eopt_for_runopts 0; #the first -- isn't for us.
-                    }
-                }
-            } else {
-                set is_eopt_for_runopts 0
-            }
-            #split on first -- if only known opts preceding (or nothing preceeding) - otherwise split on first arg that doesn't look like an option and bomb if unrecognised flags before it.
-            if {$is_eopt_for_runopts} {
-                set idx_first_cmdarg [expr $first_eopt_posn + 1]
-                set runopts [lrange $arglist 0 $idx_first_cmdarg-2] ;#exclude -- from runopts - it's just a separator.
-            } else {
-                set idx_first_cmdarg [lsearch -not $arglist "-*"]
-                set runopts [lrange $arglist 0 $idx_first_cmdarg-1]
-            }
-            set cmdargs [lrange $arglist $idx_first_cmdarg end]
-            foreach o $runopts {
-                if {$o ni $known_runopts} {
-                    error "$caller: Unknown runoption $o - known options $known_runopts"
-                }
-            }
-            set runopts [lmap o $runopts {dict get $alias_dict $o}]
-            #todo - get these out of here. Should be supplied by caller.
-            if {"-allowvars" in $runopts && "-disallowvars" in $runopts} {
-                puts stderr "Warning - conflicting options -allowvars & -disallowvars specified: $arglist"
-            }
-
-            #maintain order: runopts $runopts cmdargs $cmdargs as first 4 args (don't break 'lassign [get_runopts $args] _ runopts _ cmdargs')
-            #todo - add new keys after these indicating type of commandline etc.
-            return [list runopts $runopts cmdargs $cmdargs]
-        }
-
-        proc _pkguse_vars {varnames} {
-            #review - obsolete?
-            while {"pkguse_vars_[incr n]" in $varnames} {}
-            #return [concat $varnames pkguse_vars_$n]
-            return [list {*}$varnames pkguse_vars_$n]
-        }
-        proc tracehandler_nowrite {args} {
-            error "readonly in use block"
-        }
-
-    }
-
-
-    punk::args::define {
-        @id     -id ::punk::ns::pkguse
-        @cmd    -name punk::ns::pkguse -help\
-            "Load package and move to namespace of the same name if run
-            interactively with only pkg/namespace argument.
-            if script and args are supplied, the
-            script runs in the namespace with the args passed to the script.
-
-            todo - further documentation"
-        @leaders -min 1 -max 1
-        pkg_or_existing_ns -type string
-        @opts
-        -vars -type none -help\
-            "whether to capture namespace vars for use in the supplied script"
-        -nowarnings -type none
-        @values -min 0 -max -1
-        script -type string -optional 1
-        arg -type any -optional 1 -multiple 1
-    }
-    #load package and move to namespace of same name if run interactively with only pkg/namespace argument.
-    #if args is supplied - first word is script to run in the namespace remaining args are args passed to scriptblock
-    #if no newline or $args in the script - treat as one-liner and supply {*}$args automatically
-    variable pkguse_package_to_namespace [dict create]
-    proc pkguse {args} {
-        variable pkguse_package_to_namespace
-        set argd [punk::args::parse $args withid ::punk::ns::pkguse]
-        lassign [dict values $argd] leaders opts values received
-        #puts stderr "leaders:$leaders opts:$opts values:$values received:$received"
-
-        set pkg_or_existing_ns  [dict get $leaders pkg_or_existing_ns]
-        if {[dict exists $received script]} {
-            set scriptblock [dict get $values script]
-        } else {
-            set scriptblock ""
-        }
-        if {[dict exists $received arg]} {
-            set arglist             [dict get $values arg]
-        } else {
-            set arglist [list]
-        }
-
-        set use_vars    [dict exists $received "-vars"]
-        set no_warnings [dict exists $received "-nowarnings"]
-
-        #lassign [internal::get_run_opts {-vars -nowarnings} {} $args] _r runopts _c cmdargs
-        #set use_vars    [expr {"-vars" in $runopts}]
-        #set no_warnings [expr {"-nowarnings" in $runopts}]
-
-
-        set ver ""
-
-
-        #todo support leading solo flags such as -capture to control whether we do a static capture of local vars in the ns
-        switch -- [string tolower $pkg_or_existing_ns] {
-            "::" - global {
-                set ns ::
-                set ver "";# tcl version?
-            }
-            default {
-                #- comparing namespaces_before vs namespaces_after only works if the package was not previously loaded
-                #we could either go to the somewhat expensive route of steaming up an interp with the same auto_path & tcl::tm::list each time..
-                #or cache the result of the namespace we picked for later pkguse calls (pkguse_package_to_namespace dict)
-                #we are using the cache method - but this also doesn't help for packages previously loaded by normal package require
-                #our aim is for pkguse <pkgname> to be deterministic in what namespace it finds - even if it doesn't always get the ideal one (e.g cookiejar, see below)
-                #To determine appropriate namespace for already loaded packages where we have no cache entry - we may still need the helper interp mechanism
-                #The helper interp could be persistent - but only so long as the auto_path/tcl::tm::list values are in sync
-                #review.
-
-                #also see img::png img::raw etc
-                #these don't directly load namespaces or direct commands.. just change behaviour of existing commands?
-                #but they can load things like tk (ttk namespace) first one creates ::tkimg?
-
-                if {[string match ::* $pkg_or_existing_ns] && [tcl::namespace::exists $pkg_or_existing_ns]} {
-                    #pkguse on an existing full qualified namespace does no package require
-                    set ns $pkg_or_existing_ns
-                    set ver ""
-                } else {
-                    if {[string match ::* $pkg_or_existing_ns]} {
-                        set pkg_unqualified [string range $pkg_or_existing_ns 2 end]
-                    } else {
-                        set pkg_unqualified $pkg_or_existing_ns
-                    }
-
-                    #foreach equiv of while 1 - just to allow early exit with break
-                    foreach code_block single {
-                        if {[dict exists $pkguse_package_to_namespace $pkg_unqualified]} {
-                            set ns [dict get $pkguse_package_to_namespace $pkg_unqualified]
-                            set ver [package provide $pkg_unqualified]
-                            break
-                        }
-                        if {[package provide $pkg_unqualified] ne ""} {
-                            #package has already been loaded
-                            if {[namespace exists ::$pkg_unqualified]} {
-                                set ns ::$pkg_unqualified
-                                set ver [package provide $pkg_unqualified]
-                                dict set pkguse_package_to_namespace $pkg_unqualified $ns
-                                break
-                            }
-                            #existing package but no matching namespace..
-                            #- load in throwaway interp and see what cmds/namespaces created
-                            interp create nstest
-                            try {
-                                nstest eval {tcl::tm::remove {*}[tcl::tm::list]}
-                                nstest eval [list tcl::tm::add {*}[lreverse [tcl::tm::list]]]
-                                nstest eval [list set ::auto_path $::auto_path]
-                                nstest eval {package require punk::ns}
-                                set ns ""
-                                if {![catch {nstest eval [list punk::ns::pkguse $pkg_unqualified]} errMsg]} {
-                                    set script [string map [list %p% $pkg_unqualified] {dict get $::punk::ns::pkguse_package_to_namespace %p%}]
-                                    set ns [nstest eval $script]
-                                } else {
-                                    puts "couldn't test pkg $pkg_unqualified\n$errMsg"
-                                }
-                            } finally {
-                                interp delete nstest
-                            }
-
-                            dict set pkguse_package_to_namespace $pkg_unqualified $ns
-                            set ver [package provide $pkg_unqualified]
-                            break
-                        }
-
-                        #pkg not loaded
-                        set namespaces_before [nstree_rawlist ::] ;#approx 1ms for 500 or so namespaces - not cheap but bearable
-                        #some packages don't create their namespace immediately and/or don't populate it with commands and instead put entries in ::auto_index
-                        #gathering prior cmdcount for every ns in system is also a somewhat expensive operation.. review
-                        #we don't know for sure that the namespace for the package require operation actually matches the package name
-                        #e.g tcllib inifile package uses namespace ::ini
-                        #e.g sqlite3 package adds commands to the global namespace
-                        set dict_ns_commandcounts [dict create]
-                        foreach nsb $namespaces_before {
-                            dict set dict_ns_commandcounts $nsb [llength [info commands ${nsb}::*]]
-                        }
-
-                        set ver [package require $pkg_unqualified]
-                        set ns ::$pkg_unqualified ;#fallback - tested for existence below
-                        set namespaces_after [nstree_rawlist ::]
-
-                        if {[llength $namespaces_after] > [llength $namespaces_before]} {
-                            set namespaces_new [struct::set difference $namespaces_after $namespaces_before]
-                            if {$ns ni $namespaces_new} {
-                                #todo - use shortest result? what if this is a namespace from a required sub package?
-                                #e.g cookiejar loads sqlite3,http,tcl::idna which creates ::sqlite3 etc - but cookiejar just creates an object at ::http::cookiejar
-                                #In this specific case we end up in oo::ObjXXX - but would be better placed in ::http, where the new cookiejar command resides
-                                #review - todo?
-                                set pkgs [package names]
-                                set ns ::$pkg_unqualified ;#fallback - tested for existence below
-                                #find something new - that doesn't match another package name
-                                foreach new $namespaces_new {
-                                    if {[lsearch $pkgs [string trimleft $new :]] == -1} {
-                                        set ns $new
-                                        break
-                                    }
-                                }
-                            }
-                        }
-                        if {[tcl::namespace::exists $ns]} {
-                            #review - only cache if exists?
-                            dict set pkguse_package_to_namespace $pkg_unqualified $ns;
-                        }
-                        set previous_command_count 0
-                        if {[dict exists $dict_ns_commandcounts $ns]} {
-                            set previous_command_count [dict get $dict_ns_commandcounts $ns]
-                        }
-
-                        #also if a sub package was loaded first - then the namespace for the base or lower package may exist but have no commands
-                        #for the purposes of pkguse - which most commonly interactive - we want the namespace populated
-                        #It may still not be *fully* populated because we stop at first source that adds commands - REVIEW
-                        set ns_populated [expr {[tcl::namespace::exists $ns] && [llength [info commands ${ns}::*]] > $previous_command_count}]
-
-                        if {!$ns_populated} {
-                            #we will catch-run an auto_index entry if any
-                            #auto_index entry may or may not be prefixed with ::
-                            set keys [list]
-                            #first look for exact pkg_unqualified and ::pkg_unqualified
-                            #leave these at beginning of keys list
-                            if {[array exists ::auto_index($pkg_unqualified)]} {
-                                lappend keys $pkg_unqualified
-                            }
-                            if {[array exists ::auto_index(::$pkg_unqualified)]} {
-                                lappend keys ::$pkg_unqualified
-                            }
-                            #as auto_index is an array - we could get keys in arbitrary order
-                            set matches [lsort [array names ::auto_index ${pkg_unqualified}::*]]
-                            lappend keys {*}$matches
-                            set matches [lsort [array names ::auto_index ::${pkg_unqualified}::*]]
-                            lappend keys {*}$matches
-                            set ns_populated 0
-                            set i 0
-                            set already_sourced [list] ;#often multiple triggers for the same source - don't waste time re-sourcing
-                            set ns_depth [llength [punk::ns::nsparts [string trimleft $ns :]]]
-                            while {!$ns_populated && $i < [llength $keys]} {
-                                #todo - skip sourcing deeper  entries from a subpkg which may have been loaded earlier than the base
-                                #e.g if we are loading ::x::y
-                                #only source for keys the same depth, or one deeper ie ::x::y, x::y, ::x::y::z  not  ::x or ::x::y::z::etc
-                                set k [lindex $keys $i]
-                                set k_depth [llength [punk::ns::nsparts [string trimleft $k :]]]
-                                if {$k_depth == $ns_depth || $k_depth == $ns_depth + 1} {
-                                    set auto_source [set ::auto_index($k)]
-                                    if {$auto_source ni $already_sourced} {
-                                        puts stderr "pkguse sourcing auto_index script $auto_source"
-                                        uplevel 1 $auto_source
-                                        lappend already_sourced $auto_source
-                                        set ns_populated [expr {[tcl::namespace::exists $ns] && [llength [info commands ${ns}::*]] > $previous_command_count}]
-                                    }
-                                }
-                                incr i
-                            }
-
-                        }
-
-                    }; # end foreach code_block single - scope for use of 'break'
-
-                }
-            }
-        }
-        if {[tcl::namespace::exists $ns]} {
-            if {[dict exists $received script]} {
-                set binding {}
-                #if {[info level] == 1} {
-                #    #up 1 is global
-                #    set get_vars [list info vars]
-                #} else {
-                #    set get_vars [list info locals]
-                #}
-                #set vars [uplevel 1 {*}$get_vars]
-
-                #set vars [tcl::namespace::eval $ns {info vars}]
-
-                #review - upvar in apply within ns eval vs direct access of ${ns}::varname
-                set capture [tcl::namespace::eval $ns {
-                    apply { varnames  {
-                        while {"prev_args[incr n]" in $varnames} {}
-                        set capturevars [dict create]
-                        set capturearrs [dict create]
-                        foreach fullv $varnames {
-                            set  v [namespace tail $fullv]
-                            upvar 1 $v var
-                            if {[info exists var]} {
-                                if {$v eq "args"} {
-                                    dict set capturevars "prev_args$n" [list var $var]
-                                } else {
-                                    if {(![array exists var])} {
-                                        dict set capturevars $v $var
-                                    } else {
-                                        dict set capturearrs $v [array get var]
-                                    }
-                                }
-                            } else {
-                                #A variable can show in the results for 'info vars' (or nsvars) but still not exist. e.g a 'variable x' declaration in the namespace where the variable has never been set
-                            }
-                        }
-                        return [dict create vars $capturevars arrs $capturearrs]
-                    } } [info vars [namespace current]::*]  ;#we are relying on info vars ::::* returning same as info vars ::*  - a bit hacky (don't want to set any extra vars in the ns)
-                } ]
-
-
-                #set arglist [lassign $cmdargs scriptblock]
-                if {[string first "\n" $scriptblock] <0 && [string first {$args} $scriptblock] <0} {
-                    #one liner without use of $args
-                    append scriptblock { {*}$args}
-                    #tailcall apply [list args [string cat $scriptblock { {*}$args}] $ns] {*}$arglist
-                }
-                if {!$no_warnings & $use_vars} {
-                    set script ""
-                    foreach v [dict keys [dict get $capture vars]] {
-                        append script [string map [list <v> $v] {
-                            trace add variable <v> write ::punk::ns::internal::tracehandler_nowrite
-                            #unset?
-                        }]
-                    }
-                    append script \n $scriptblock
-                } else {
-                    set script $scriptblock
-                }
-                if {$use_vars} {
-                    tailcall apply [list [concat [dict keys [dict get $capture vars]] args] $script $ns] {*}[concat [dict values [dict get $capture vars]] $arglist]
-                } else {
-                    tailcall apply [list args $scriptblock $ns] {*}$arglist
-                }
-            } else {
-                set out [punk::ns::ns/ / $ns]
-                append out \n  $ver
-                return $out
-            }
-        } else {
-            if {$ver eq ""} {
-                error "Namespace $ns not found. No package version found."
-            } else {
-                set out "(no package namespace found) remaining in [uplevel 1 {namespace current}]"
-                append out \n $ver
-                return $out
-            }
-        }
-        return $out
-    }
-    interp alias "" use "" punk::ns::pkguse
-
-    punk::args::define {
-        @id     -id ::punk::ns::nsimport_noclobber
-        @cmd    -name punk::ns::nsimport_noclobber -help\
-            "Import exported commands from a namespace into either the current namespace,
-            or that specified in -targetnamespace.
-            Return list of imported commands, ignores failures due to name conflicts"
-        -targetnamespace  -optional 1 -help\
-            "Namespace in which to import commands.
-            If namespace is relative (no leading ::),
-            the namespace is relative to the caller'd namespace.
-            If not supplied, caller's namespace is used."
-        -prefix  -optional 1 -help\
-            "string prefix for command names in target namespace"
-        @values -min 1 -max -1
-        sourcepattern -type string -optional 0 -multiple 1 -help\
-            "Glob pattern(s) for exported commands in source namespace(s).
-            Globbing only active in the tail segment.
-            e.g ::mynamespace::a* ::mynamespace::j*"
-    }
-    proc nsimport_noclobber {args} {
-        lassign [dict values [punk::args::get_by_id ::punk::ns::nsimport_noclobber $args]] leaders opts values received
-        set sourcepatterns [dict get $values sourcepattern]
-
-        set nscaller [uplevel 1 {namespace current}]
-        if {![dict exists $received -targetnamespace]} {
-            set target_ns $nscaller
-        } else {
-            set target_ns [dict get $opts -targetnamespace]
-            if {![string match ::* $target_ns]} {
-                set target_ns [punk::ns::nsjoin $nscaller $target_ns]
-            }
-        }
-        set all_imported [list]
-        set nstemp ::punk::ns::temp_import
-
-        foreach pat $sourcepatterns {
-            set source_ns [tcl::namespace::qualifiers $pat]
-            if {![tcl::namespace::exists $source_ns]} {
-                error "nsimport_noclobber error namespace $source_ns not found"
-            }
-
-            set a_export_patterns [tcl::namespace::eval $source_ns {namespace export}]
-            set a_commands [info commands $pat]
-            #puts "-->commands:'$a_commands'"
-            set a_tails [lmap v $a_commands {tcl::namespace::tail $v}]
-            set a_exported_tails [list]
-            foreach epattern $a_export_patterns {
-                set matches [lsearch -all -inline $a_tails $epattern]
-                foreach m $matches {
-                    #we will be using namespace import <pattern> one by one on commands.
-                    #we must protect glob chars that may exist in the actual command names.
-                    #e.g nsimport_noclobber ::punk::ansi::a?
-                    # will import a+ and a?
-                    #but nsimport_noclobber {::punk::ansi::a\?}
-                    # must import only a?
-                    set m [string map {\\ \\\\ ? \\? * \\* \[ \\[ \] \\]} $m]
-                    if {$m ni $a_exported_tails} {
-                        lappend a_exported_tails $m
-                    }
-                }
-            }
-
-
-            if {[tcl::dict:::exists $received -prefix]} {
-                #import via temporary/intermediate namespace
-                set pfx [dict get $opts -prefix]
-                set imported_commands [list]
-                if {[namespace exists $nstemp]} {
-                    namespace delete $nstemp
-                }
-                namespace eval $nstemp {}
-                foreach e $a_exported_tails {
-                    set imported [apply {{tgtns func srcns pfx tmpns} {
-                        set cmd ""
-                        if {![catch {::tcl::namespace::eval $tmpns [list ::namespace import ${srcns}::$func]}]} {
-                            #renaming will fail if target already exists
-                            #renaming a command into another namespace still results in a command with 'info cmdtype' = 'import'
-                            if {![catch {::tcl::namespace::eval $tmpns [list ::rename $func [::punk::ns::nsjoin $tgtns $pfx$func]]}]} {
-                                set cmd $pfx$func
-                            }
-                        }
-                        set cmd
-                    } } $target_ns $e $source_ns $pfx $nstemp]
-                    if {$imported ne ""} {
-                        lappend imported_commands $imported
-                    }
-                }
-                namespace delete $nstemp
-            } else {
-                #no prefix - direct import
-                set imported_commands [list]
-                foreach e $a_exported_tails {
-                    set imported [apply {{tgtns func srcns} {
-                        set cmd ""
-                        if {![catch {tcl::namespace::eval $tgtns [list namespace import ${srcns}::$func]}]} {
-                            set cmd $func
-                        }
-                        set cmd
-                    } } $target_ns $e $source_ns]
-                    if {$imported ne ""} {
-                        lappend imported_commands $imported
-                    }
-                }
-            }
-            lappend all_imported {*}$imported_commands
-        }
-        return $all_imported
-    }
-
-    #todo - use ns::nsimport_noclobber instead ?
-
-    interp alias {} nsthis    {} punk::ns::nspath_here_absolute
-    interp alias {} nsorigin {} apply {ns {namespace origin [uplevel 1 ::punk::ns::nspath_here_absolute $ns]} ::}
-    interp alias {} nsvars {} punk::ns::nsvars
-    interp alias {} nsjoin {} punk::ns::nsjoin
-    interp alias {} nsprefix {} punk::ns::nsprefix
-    interp alias {} nstail {} punk::ns::nstail
-    interp alias {} nsparts {} punk::ns::nsparts
-    interp alias {} nschildren {} punk::ns::nschildren
-    interp alias {} nstree  {} punk::ns::nstree
-    #namespace/command/proc query
-    interp alias {} nslist {} punk::ns::nslist
-    interp alias {} nslist_dict {} punk::ns::nslist_dict
-
-    #extra slash implies more verbosity (ie display commands instead of just nschildren)
-    interp alias {} n/ {} punk::ns::ns/ /
-    interp alias {} n// {} punk::ns::ns/ //
-    interp alias {} n/// {} punk::ns::ns/ ///
-    interp alias {} n/new {} punk::ns::n/new
-    interp alias {} nn/ {} punk::ns::nsup/ /
-    interp alias {} nn// {} punk::ns::nsup/ //
-    if 0 {
-    #we can't have ::/ without just plain / which is confusing.
-    interp alias {} :/ {} punk::ns::ns/ /
-    interp alias {} :// {} punk::ns::ns/ //
-    interp alias {} :/new {} punk::ns::n/new
-    interp alias {} ::/ {} punk::ns::nsup/ /
-    interp alias {} ::// {} punk::ns::nsup/ //
-    }
-
-
-    interp alias {} corp       {} punk::ns::corp
-    interp alias {} i          {} punk::ns::arginfo
-
-    #An example of using punk::args in a pipeline
-    punk::args::define {
-        @id -id ::i+
-        @cmd -name "i+" -help\
-            "Display command help side by side"
-        @values
-        cmd -multiple 1 -help\
-            "Command names for which to show help info"
-    }
-    interp alias {} i+         {}\
-        .=args>  punk::args::get_by_id ::i+                             |argd>\
-        .=>2     dict get values cmd                                    |cmds>\
-        .=cmds>2 lmap c {i -return tableobject {*}$c}                   |objs>\
-        .=objs>2 lmap t {$t configure -show_vseps 0 -show_edge 1}       |>\
-        .=objs>2 lmap t {$t print}                                      |tables>\
-        .=objs>2 lmap t {$t destroy}                                    |>\
-        .=tables>* textblock::join --                                   <args|
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::ns [tcl::namespace::eval punk::ns {
-    variable version
-    set version 0.1.0
-}]
-return
\ No newline at end of file
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/overlay-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/overlay-0.1.tm
deleted file mode 100644
index 283907fb..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/overlay-0.1.tm
+++ /dev/null
@@ -1,193 +0,0 @@
-
-
-package require punk::mix::util
-package require punk::args
-
-tcl::namespace::eval ::punk::overlay {
-    #based *loosely* on: wiki.tcl-lang.org/page/ensemble+extend
-    # extend an ensemble-like routine with the routines in some namespace
-    #
-    # e.g custom_from_base ::punk::mix::cli ::punk::mix::base
-    #
-    proc custom_from_base {routine base} {
-        if {![tcl::string::match ::* $routine]} {
-            set resolved [uplevel 1 [list ::tcl::namespace::which $routine]]
-            if {$resolved eq {}} {
-                error [list {no such routine} $routine]
-            }
-            set routine $resolved
-        }
-        set routinens [tcl::namespace::qualifiers $routine]
-        if {$routinens eq {::}} {
-            set routinens {}
-        }
-        set routinetail [tcl::namespace::tail $routine]
-
-        if {![tcl::string::match ::* $base]} {
-            set base [uplevel 1 [
-                list [tcl::namespace::which namespace] current]]::$base
-        }
-
-        if {![tcl::namespace::exists $base]} {
-            error [list {no such namespace} $base]
-        }
-
-        set base [tcl::namespace::eval $base [
-            list [tcl::namespace::which namespace] current]]
-
-
-        #while 1 {
-        #    set renamed ${routinens}::${routinetail}_[info cmdcount]
-        #    if {[namespace which $renamed] eq {}} break
-        #}
-
-        tcl::namespace::eval $routine [
-            ::list tcl::namespace::ensemble configure  $routine -unknown [
-                ::list ::apply {{base ensemble subcommand args} {
-                    ::list ${base}::_redirected $ensemble $subcommand 
-                }} $base
-            ]
-        ]
-
-        punk::mix::util::namespace_import_pattern_to_namespace_noclobber ::punk::mix::util::* ${routine}::util
-        #namespace eval ${routine}::util {
-            #::namespace import ::punk::mix::util::*
-        #}
-        punk::mix::util::namespace_import_pattern_to_namespace_noclobber ${base}::lib::* ${routine}::lib
-        #namespace eval ${routine}::lib [string map [list <base> $base] {
-        #    ::namespace import <base>::lib::*
-        #}]
-
-        tcl::namespace::eval ${routine}::lib [tcl::string::map [list <base> $base <routine> $routine] {
-            if {[tcl::namespace::exists <base>::lib]} {
-                ::set current_paths [tcl::namespace::path]
-                if {"<routine>" ni $current_paths} {
-                    ::lappend current_paths <routine>
-                }
-                tcl::namespace::path $current_paths
-            }
-        }]
-
-        tcl::namespace::eval $routine {
-            ::set exportlist [::list]
-            ::foreach cmd [tcl::info::commands [tcl::namespace::current]::*] {
-                ::set c [tcl::namespace::tail $cmd]
-                if {![tcl::string::match _* $c]} {
-                    ::lappend exportlist $c
-                }
-            }
-            tcl::namespace::export {*}$exportlist
-        }
-
-        return $routine
-    }
-    punk::args::define {
-        @id     -id     ::punk::overlay::import_commandset
-        @cmd    -name     punk::overlay::import_commandset\
-            -summary\
-            "Import commands into caller's namespace with optional prefix and separator."\
-            -help\
-            "Import commands that have been exported by another namespace into the caller's
-            namespace. Usually a prefix and optionally a separator should be used.
-            This is part of the punk::mix CLI commandset infrastructure - design in flux.
-            Todo - .toml configuration files for defining CLI configurations."
-        @values
-        prefix          -type string
-        separator       -type string -help\
-            "A string, usually punctuation, to separate the prefix and the command name
-              of the final imported command. The value \"::\" is disallowed in this context."
-        cmdnamespace    -type string -help\
-            "Namespace from which to import commands. Commands are those that have been exported."
-    }
-    #load *exported* commands from cmdnamespace into caller's namespace - prefixing each command with $prefix
-    #Note: commandset may be imported by different CLIs with different bases *at the same time*
-    #so we don't make commands from the cli or its base available automatically (will generally require fully-qualified commands to use code from cli/base) 
-    #we do load punk::mix::util::*  into the util subnamespace even though the commandset might not be loaded in a cli using punk::mix::base  i.e punk::mix::util is a common dependency for CLIs.
-    #commandsets designed to be used with a specific cli/base may choose to do their own import e.g with util::namespace_import_pattern_to_namespace_noclobber and/or set namespace path if they 
-    #want the convenience of using lib:xxx with commands coming from those packages.
-    #This won't stop the commandset being used with other cli/bases unless the import is done by looking up the callers namespace.
-    #The basic principle is that the commandset is loaded into the caller(s) with a prefix 
-    #- but commandsets should explicitly package require if they have any backwards dependencies on cli/base (which they may or may not be loaded into)
-    proc import_commandset {prefix separator cmdnamespace} {
-        set bad_seps [list "::"]
-        if {$separator in $bad_seps} {
-            error "import_commandset invalid separator '$separator'"
-        }
-        if {$prefix in $bad_seps} {
-            error "import_commandset invalid prefix '$prefix'"
-        }
-        if {"$prefix$separator" in $bad_seps} {
-            error "import_commandset invalid prefix/separator combination '$prefix$separator'"
-        }
-        if {"[string index $prefix end][string index $separator 0]" in $bad_seps} {
-            error "import_commandset invalid prefix/separator combination '$prefix$separator'"
-        }
-        #review - do we allow prefixes/separators such as a::b?
-
-        #namespace may or may not be a package
-        # allow with or without leading ::
-        if {[tcl::string::range $cmdnamespace 0 1] eq "::"} {
-            set cmdpackage [tcl::string::range $cmdnamespace 2 end]
-        } else {
-            set cmdpackage $cmdnamespace
-            set cmdnamespace ::$cmdnamespace
-        }
-
-        if {![tcl::namespace::exists $cmdnamespace]} {
-            #only do package require if the namespace not already present
-            catch {package require $cmdpackage} pkg_load_info 
-            #recheck
-            if {![tcl::namespace::exists $cmdnamespace]} {
-                set prov [package provide $cmdpackage]
-                if {[tcl::string::length $prov]} {
-                    set provinfo "(package $cmdpackage is present with version $prov)"
-                } else {
-                    set provinfo "(package $cmdpackage not present)"
-                }
-                error "punk::overlay::import_commandset supplied namespace '$cmdnamespace' doesn't exist. $provinfo  Pkg_load_result: $pkg_load_info  Usage: import_commandset prefix separator namespace"
-            }
-        }
-     
-        punk::mix::util::namespace_import_pattern_to_namespace_noclobber ::punk::mix::util::* ${cmdnamespace}::util
-
-        #let child namespace 'lib' resolve parent namespace and thus util::xxx
-        tcl::namespace::eval ${cmdnamespace}::lib [tcl::string::map [list <cmdns> $cmdnamespace] {
-            ::set nspaths [tcl::namespace::path]
-            if {"<cmdns>" ni $nspaths} {
-                ::lappend nspaths <cmdns>
-            }
-            tcl::namespace::path $nspaths
-        }]
-
-        set imported_commands [list]
-        set imported_tails [list]
-        set nscaller [uplevel 1 [list tcl::namespace::current]]
-        if {[catch {
-            #review - noclobber?
-            tcl::namespace::eval ${nscaller}::temp_import [list tcl::namespace::import ${cmdnamespace}::*]
-            foreach cmd [tcl::info::commands ${nscaller}::temp_import::*] {
-                set cmdtail [tcl::namespace::tail $cmd]
-                if {$cmdtail eq "_default"} {
-                    set import_as ${nscaller}::${prefix}
-                } else {
-                    set import_as ${nscaller}::${prefix}${separator}${cmdtail}
-                }
-                rename $cmd  $import_as
-                lappend imported_commands $import_as
-                lappend imported_tails [namespace tail $import_as]
-            }
-            #make imported commands exported so they are available to the ensemble
-            tcl::namespace::eval ${nscaller} [list namespace export {*}$imported_tails]
-        } errM]} {
-            puts stderr "Error loading commandset $prefix $separator $cmdnamespace"
-            puts stderr "err: $errM"
-        }
-        return $imported_commands
-    }
-}
-
-
-package provide punk::overlay [tcl::namespace::eval punk::overlay {
-    variable version
-    set version 0.1 
-}]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/packagepreference-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/packagepreference-0.1.0.tm
deleted file mode 100644
index dabf7f8e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/packagepreference-0.1.0.tm
+++ /dev/null
@@ -1,503 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::packagepreference 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::packagepreference 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {punkshell package/module loading}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {package/module load}]             [comment {-- Description at end of page heading --}]
-#[require punk::packagepreference]
-#[keywords module package]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::packagepreference
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::packagepreference
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require commandstack
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package {commandstack}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#tcl::namespace::eval punk::packagepreference::class {
-    #*** !doctools
-    #[subsection {Namespace punk::packagepreference::class}]
-    #[para] class definitions
-    #if {[tcl::info::commands [tcl::namespace::current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    #}
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::packagepreference {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-
-    variable PUNKARGS
-
-    #*** !doctools
-    #[subsection {Namespace punk::packagepreference}]
-    #[para] Core API functions for punk::packagepreference
-    #[list_begin definitions]
-
-    lappend PUNKARGS [list {
-        @id -id ::punk::packagepreference::uninstall
-        @cmd -name ::punk::packagepreference::uninstall -help\
-            "Uninstall override for ::package builtin - for 'require' subcommand only."
-        @values -min 0 -max 0
-    }]
-    proc uninstall {} {
-        #*** !doctools
-        #[call [fun uninstall]]
-        #[para]Return to the previous ::package implementation (This will be the builtin if no other override was present when install was called)
-
-        commandstack::remove_rename {::package punk::packagepreference}
-    }
-
-    lappend PUNKARGS [list {
-        @id -id ::punk::packagepreference::install
-        @cmd -name ::punk::packagepreference::install -help\
-            "Install override for ::package builtin - for 'require' subcommand only."
-        @values -min 0 -max 0
-    }]
-    proc install {} {
-        #*** !doctools
-        #[call [fun install]]
-        #[para]Override ::package builtin (or the current implementation if it has already been renamed/overridden) to check for and prefer lowercase packages/modules
-        #[para](todo - check info loaded and restrict to existing version as determined from dll/so?)
-        #[para]The overriding package command will call whatever implementation was in place before install to do the actual work - once it has modified 'package require' names to lowercase.
-        #[para]This is intended to be in alignment with tip 590 "Recommend lowercase Package Names"
-        #[para] https://core.tcl-lang.org/tips/doc/trunk/tip/590.md
-        #[para]It prevents some loading errors when multiple package versions are available to an interpreter and the latest version is only provided by a lowercased module (.tm file)
-        #[para]A package provided by the standard pkgIndex.tcl mechanism might override a later-versioned package because it may support both upper and lowercased names.
-        #[para]The overriding of ::package only looks at 'package require' calls and preferentially tries the lowercase version (if the package isn't already loaded with either upper or lowercase name)
-        #[para]This comes at some slight cost for packages that are only available with uppercase letters in the name - but at minimal cost for recommended lowercase package names
-        #[para]Return to the standard ::package builtin by calling punk::packagepreference::uninstall
-
-        #todo - review/update commandstack package
-        #modern module/lib names should preferably be lower case
-        #see tip 590 - "Recommend lowercase Package names".  Where non-lowercase are deprecated (but not removed even in Tcl9)
-        #Mixed case causes problems esp on windows where we can't have Package.tm and package.tm as they aren't distinguishable.
-        #We enforce package to try lowercase first - at some potentially significant speed penalty if the lib actually does use uppercase
-        #(also just overloading the package builtin comes at a cost!)
-        #Without the lowercase-first mechanism - a lower versioned package such as Tablelist provided by a pkgIndex.tcl may be loaded in precedence to a higher versioned tablelist provided by a .tm
-        #As punk kits launched with dev first arg may use tcl::tm::paths coming from both the system and zipkits for example - this is a problem.
-        #(or in any environment where multiple versions of Tcl libraries may be available)
-        #We can't provide a modernised .tm package for an old package that is commonly used with uppercase letters, in both the old form and lowercased form from a single .tm file.
-        #It could be done by providing a redirecting .tm in a separate module path, or by providing a packageIndex.tcl to redirect it but both these solutions are error prone from a sysops perspective.
-        set stackrecord [commandstack::rename_command -renamer punk::packagepreference package {args} {
-            #::package override installed by punk::packagepreference::install
-            #return to previous 'package' implementation with: punk::packagepreference::uninstall
-
-            #uglier but faster than tcl::prefix::match in this instance
-            #maintenance - check no prefixes of require are added to builtin package command
-            switch -exact -- [lindex $args 0] {
-                r - re - req - requi - requir - require {
-                    #puts "==>package $args"
-                    #puts "==>[info level 1]"
-                    #despite preference for lowercase - we need to handle packages that insist on providing as uppercase
-                    #(e.g we will still need to handle things like: package provide Tcl 8.6)
-                    #Where the package is already provided uppercase we shouldn't waste time deferring to lowercase
-                    set is_exact 0
-                    if {[lindex $args 1] eq "-exact"} {
-                        set pkg [lindex $args 2]
-                        set vwant [lindex $args 3]-[lindex $args 3]
-                        set is_exact 1
-                    } else {
-                        set pkg [lindex $args 1]
-                        set vwant [lrange $args 2 end] ;#rare - but version can be a list of requirements
-                        if {[llength $vwant] == 1 && [string first - [lindex $vwant 0]] > 0} {
-                            #only one version - and it has a dash
-                            lassign [split [lindex $vwant 0] -] a b
-                            if {$a eq $b} {
-                                #string compare version nums (can contain dots and a|b)
-                                set is_exact 1
-                            }
-                        }
-                    }
-                    if {[set ver [$COMMANDSTACKNEXT_ORIGINAL provide $pkg]] ne ""} {
-                        #although we could shortcircuit using vsatisfies to return the ver
-                        #we should instead pass through to COMMANDSTACKNEXT so as not to interfere with whatever it does.
-                        #e.g a package require logger further down the commandstack
-                        return [$COMMANDSTACKNEXT {*}$args]
-                    }
-
-                    if {!$is_exact && [llength $vwant] <= 1 } {
-                        #required version unspecified - or specified singularly
-                        set available_versions [$COMMANDSTACKNEXT_ORIGINAL versions $pkg]
-                        if {[llength $available_versions] >= 1} {
-                            # ---------------------------------------------------------------
-                            #An attempt to detect dll/so loaded and try to load same version
-                            #dll/so files are often named with version numbers that don't contain dots or a version number at all
-                            #e.g sqlite3400.dll Thread288.dll
-                            set pkgloadedinfo [lsearch -nocase -inline -index 1 [info loaded] $pkg]
-
-                            if {[llength $pkgloadedinfo]} {
-                                if {[llength $available_versions] > 1} {
-                                    puts stderr "--> pkg $pkg not already 'provided' but shared object seems to be loaded: $pkgloadedinfo - and [llength $available_versions] versions available"
-                                }
-                                lassign $pkgloadedinfo loaded_path name
-                                set lc_loadedpath [string tolower $loaded_path]
-                                #first attempt to find a match for our loaded sharedlib path in a *simple* package ifneeded statement.
-                                set lcpath_to_version [dict create]
-                                foreach av $available_versions {
-                                    set scr [package ifneeded $pkg $av]
-                                    #ifneeded script not always a valid tcl list
-                                    if {![catch {llength $scr} scrlen]} {
-                                        if {$scrlen == 3 && [lindex $scr 0] eq "load" && [string match -nocase [lindex $scr 2] $pkg]} {
-                                            #a basic 'load <path> <pkg>' statement
-                                            dict set lcpath_to_version [string tolower [lindex $scr 1]] $av
-                                        }
-                                    }
-                                }
-
-                                if {[dict exists $lcpath_to_version $lc_loadedpath]} {
-                                    set lversion [dict get $lcpath_to_version $lc_loadedpath]
-                                } else {
-                                    #fallback to a best effort guess based on the path
-                                    set lversion [::punk::packagepreference::system::slibpath_guess_pkgversion $loaded_path $pkg]
-                                }
-                                #puts "====lcpath_to_version: $lcpath_to_version"
-                                if {$lversion ne ""} {
-                                    #name matches pkg
-                                    #hack for known dll version mismatch
-                                    if {[string tolower $pkg] eq "thread" && $lversion eq "30b3"} {
-                                        set lversion 3.0b3
-                                    }
-                                    if {[llength $vwant] == 1} {
-                                        #todo - still check vsatisfies - report a conflict? review
-                                    }
-                                    #return [$COMMANDSTACKNEXT require $pkg $lversion-$lversion]
-                                    try {
-                                        set result [$COMMANDSTACKNEXT require $pkg $lversion-$lversion]
-                                    } trap {} {emsg eopts} {
-                                        #REVIEW - this occurred in punkmagic (rebuild of tclmagic) - probably due to multiple versions of registry
-                                        #under different auto_path folders - and mal-ordering in punk::libunknown's tclPkgUnknown
-                                        #May be obsolete.. issue still not clear
-
-                                        #A hack for 'couldn't open "<path.dll>": permission denied'
-                                        #This happens for example with the tcl9registry13.dll when loading from zipfs  - but not in all systems, and not for all dlls.
-                                        #exact cause unknown.
-                                        #e.g
-                                        #%package ifneeded registry 1.3.7
-                                        #- load //zipfs:/app/lib_tcl9/registry1.3/tcl9registry13.dll Registry
-                                        #%load //zipfs:/app/lib_tcl9/registry1.3/tcl9registry13.dll Registry
-                                        #couldn't open "C:/Users/sleek/AppData/Local/Temp/TCL00003cf8/tcl9registry13.dll": permission denied
-
-                                        #a subsequent load of the path used in the error message works.
-
-                                        #if {[string match "couldn't open \"*\": permission denied" $emsg]} {}
-                                        if {[regexp {couldn't open "(.*)":.*permission denied.*} $emsg _ newpath]} {
-                                            #Since this is a hack that shouldn't be required - be noisy about it.
-                                            puts stderr ">>> $emsg"
-                                            puts stderr "punk::packagepreference::require hack:  Re-trying load of $pkg with path: $newpath"
-                                            return [load $newpath $pkg]
-                                        } else {
-                                            #puts stderr "??? $emsg"
-                                            #dunno - re-raise
-                                            return -options $eopts $emsg
-                                        }
-                                    }
-                                    return $result
-                                }
-                                #else    puts stderr "> no version determined for pkg: $pkg loaded_path: $loaded_path"
-                            }
-                        }
-                    }
-                    # ---------------------------------------------------------------
-                    #??
-                    #set pkgloadedinfo [lsearch -inline -index 1 [info loaded] $pkg]
-
-
-
-                    if {[regexp {[A-Z]} $pkg]} {
-                        #legacy package names
-                        #only apply catch & retry if there was a cap - otherwise we'll double try for errors unrelated to capitalisation
-                        if {[catch {$COMMANDSTACKNEXT require [string tolower $pkg] {*}$vwant} v]} {
-                            try {
-                                set require_result [$COMMANDSTACKNEXT require $pkg {*}$vwant]
-                            } trap {} {emsg eopts} {
-                                return -options $eopts $emsg
-                            }
-                        } else {
-                            set require_result $v
-                        }
-                    } else {
-                        #return [$COMMANDSTACKNEXT require $pkg {*}$vwant]
-                        try {
-                            set require_result [$COMMANDSTACKNEXT require $pkg {*}$vwant]
-                        } trap {} {emsg eopts} {
-                            return -options $eopts $emsg
-                        }
-                    }
-                    #---------------------------------------------------------------
-                    #load relevant punk::args::<docname> package(s)
-                    #todo - review whether 'packagepreference' is the right place for this.
-                    #It is conceptually different from the main functions of packagepreference,
-                    #but we don't really want to have a chain of 'package' overrides slowing performance.
-                    #there may be a more generic way to add soft side-dependencies that the original package doesn't/can't specify.
-                    #---------------------------------------------------------------
-
-                    set lc_pkg [string tolower $pkg]
-                    #todo - lookup list of docpkgs for a package? from where?
-                    #we should have the option to not load punk::args::<docpkg> at all for many(most?) cases where they're unneeded.
-                    #e.g skip if not ::tcl_interactive?
-                    switch -exact -- $lc_pkg {
-                        tcl {
-                            set docpkgs [list tclcore]
-                        }
-                        tk {
-                            set docpkgs [list tkcore]
-                        }
-                        default {
-                            set docpkgs [list $lc_pkg]
-                        }
-                    }
-                    foreach dp $docpkgs {
-                        #review - versions?
-                        #we should be able to load more specific punk::args pkg based on result of [package present $pkg]
-                        catch {
-                            #$COMMANDSTACKNEXT require $pkg {*}$vwant
-                            #j2
-                            $COMMANDSTACKNEXT require punk::args::$dp
-                        }
-                    }
-                    #---------------------------------------------------------------
-                    return $require_result
-                }
-                default {
-                    return [$COMMANDSTACKNEXT {*}$args]
-                }
-            }
-
-        }]
-        if {[dict get $stackrecord implementation] ne ""} {
-            set impl [dict get $stackrecord implementation] ;#use hardcoded name rather than slower (but more flexible) commandstack::get_next_command
-            #puts stdout "punk::packagepreference renamed ::package to $impl"
-            return 1
-        } else {
-            puts stderr "punk::packagepreference failed to rename ::package"
-            return 0
-        }
-        #puts stdout [info body ::package]
-    }
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok"
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::packagepreference ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::packagepreference::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::packagepreference::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::packagepreference::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-tcl::namespace::eval punk::packagepreference::system {
-    #*** !doctools
-    #[subsection {Namespace punk::packagepreference::system}]
-    #[para] Internal functions that are not part of the API
-    variable PUNKARGS
-
-    lappend PUNKARGS [list {
-        @id  -id ::punk::packagepreference::system::slibpath_guess_pkgversion
-        @cmd -name punk::packagepreference::system::slibpath_guess_pkgversion -help\
-            "Assistance function to determine pkg version from the information
-            obtained from [info loaded]. This is used to try to avoid loading a different
-            version of a binary package in another thread/interp when the package isn't
-            present in the interp, but [info loaded] indicates the binary is already loaded.
-            The more general/robust way to avoid this is to ensure ::auto_path and
-            tcl::tm::list are the same in each interp/thread.
-
-            This call should only be used as a fallback in case a binary package has a more
-            complex ifneeded script. If the ifneeded script for a binary package is a
-            straightforward 'load <path_to_binary> <pkgname>' - then that information
-            should be used to determine the version by matching <path_to_binary>
-            rather than this one.
-
-            Takes a path to a shared lib (.so/.dll), and the name of its providing
-            package, and return the version of the package if possible to determine
-            from the path.
-            The filename portion of the lib is often missing a version number or has
-            a version number that has been shortened (e.g dots removed).
-            The filename itself is first checked for a version number - but the number
-            is ignored if it doesn't contain any dots.
-            (prefix is checked to match with $pkgname, with a possible additional prefix
-            of lib or tcl<int>)
-            Often (even usually) the parent or grandparent folder will be named as
-            per the package name with a proper version. If so we can return it,
-            otherwise return empty string.
-            The parent/grandparent matching will be done by looking for a case
-            insensitive match of the prefix to $pkgname.
-            "
-        @values -min 1
-        libpath -help "Full path to shared library (.so,.dll etc)"
-        pkgname -help ""
-    }]
-    proc slibpath_guess_pkgversion {libpath pkgname} {
-        set root [file rootname [file tail $libpath]]
-        set namelen [string length $pkgname]
-        regexp {^(tcl(?:[0-9])+){0,1}(.*)} $root _match tclxx root ;#regexp will match anything - but only truncate leading tclXX..
-        set testv ""
-        if {[string match -nocase $pkgname* $root]} {
-            set testv [string range $root $namelen end]
-        } elseif {[string match -nocase lib$pkgname* $root]} {
-            set testv [string range $root $namelen+3 end]
-        }
-        if {[string first . $testv] > 0} {
-            if {![catch [list package vcompare $testv $testv]]} {
-                #testv has an inner dot and is understood by tcl as a valid version number
-                return $testv
-            }
-        }
-        #no valid dotted version found directly on dll or so filename
-        set parent      [file dirname $libpath] ;#parent folder is often some differentiator for platform or featureset (e.g win-x64)
-        set grandparent [file dirname $parent]
-        foreach path [list $parent $grandparent] {
-            set segment [file tail $path]
-            if {$segment eq "bin"} {
-                continue
-            }
-            set testv ""
-            if {[string match -nocase $pkgname* $segment]} {
-                set testv [string range $segment $namelen end]
-            } elseif {[string match -nocase critcl_$pkgname* $segment]} {
-                set testv [string range $segment $namelen+7 end]
-            }
-            #we don't look for dot in parent/grandparent version - a bare integer here after the <pkgname> will be taken to be the version
-            if {![catch [list package vcompare $testv $testv]]} {
-                return $testv
-            }
-        }
-        #review - sometimes path and lib are named only for major.minor but package provides major.minor.subversion
-        #using returned val to attempt to package require -exact major.minor will fail to load major.minor.subversion
-        return ""
-    }
-
-}
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::packagepreference ::punk::packagepreference::system
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::packagepreference [tcl::namespace::eval punk::packagepreference {
-    variable pkg punk::packagepreference
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
deleted file mode 100644
index 7fc79bfe..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
+++ /dev/null
@@ -1,1154 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::path 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::path 0 0.1.0]
-#[copyright "2023"]
-#[titledesc {Filesystem path utilities}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk path filesystem utils}]             [comment {-- Description at end of page heading --}]
-#[require punk::path]
-#[description]
-#[keywords module path filesystem]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::path
-#[para] Filesystem path utility functions
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::path
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::args
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {punk::args}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#namespace eval punk::path::class {
-    #*** !doctools
-    #[subsection {Namespace punk::path::class}]
-    #[para] class definitions
-    #if {[info commands [namespace current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    #}
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::path {
-    namespace export {[a-z]*}
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::path}]
-    #[para] Core API functions for punk::path
-    #[list_begin definitions]
-
-    # -- ---
-    #punk::path::normjoin
-    # - simplify . and .. segments as far as possible whilst respecting specific types of root.
-    # -- ---
-    #a form of file normalize that supports //xxx to be treated as server path names
-    #(ie regardless of unices ignoring (generally) leading double slashes, and regardless of windows volumerelative path syntax)
-    #(sometimes //server.com used as a short form for urls - which doesn't seem too incompatible with this anyway)
-    # -- ---
-    #This is intended to be purely a string analysis - without reference to filesystem volumes or vfs or zipfs mountpoints etc
-    #
-    #TODO - option for caller to provide a -base below which we can't backtrack.
-    #This is preferable to setting policy here for example regarding forcing no trackback below //servername/share
-    #Our default is to allow trackback to:
-    #  <scheme>://<something>
-    #  <driveletter>:/
-    #  //./<volume>   (dos device volume)
-    # //server   (while normalizing //./UNC/server to same)
-    # /   (ordinary unix root)
-    # ./../<repeated>  - (track back indefinitely on relpath as we are not resolving to anything physical and can't fully simplify the leading backtracks)
-    #
-    #The caller should do the file/vfs operations to determine this - not us.
-    # -- ---
-    #simplify path with respect to /./ & /../ elements - independent of platform
-    #NOTE: "anomalies" in standard tcl processing on windows:
-    #e.g file normalize {//host} -> c:/host  (or e.g d:/host if we happen to be on another volume)
-    #file normalize {//host/share} -> //host/share
-    #This is because //host is treated as volume-relative in cmd/powershell and Tcl quite reasonably follows suit.
-    #This prevents cwd and windows commandlines from pointing to the server (above the share)
-    #Explorer however does allow pointing to the //server level and seeing shares as if they are directory entries.
-    #we are more interested in supporting the explorer-like behaviour - as while volumerelative paths are also useful on windows - they are lesser known.
-    #REVIEW.
-    #To get back to some consistent cross platform behaviour - we will treat //something as a root/volume i.e we can't backtrack above it with ".."
-    #note too that file split on UNC paths doesn't give a clear indication of the root
-    # file split //./UNC/server/share/subpath -> //./UNC server share subpath
-    # file split //server/share/subpath -> //server/share subpath
-    #TODO - disallow all change of root or change from relative path to absolute result.
-    #e.g normjoin relpath/../d:/secret should not return d:/secret - but ./d:/secret
-    # ================
-    #known issues:
-    #1)
-    # normjoin d://a//b//c -> d://a/b/c
-    # This is because we don't detect specific schemes. ie it's treated the same as https://a/b/c -> https://a/b/c
-    # Not considered a problem - just potentially surprising.
-    # To avoid it we would have to enumerate possible schemes.
-    # As it stands a unix system could define a 'scheme' that happens to match windows style driveletters. Consider a 'feature' ? review.
-    # won't fix?
-    #2)
-    # normjoin https:///real.com/../fake.com -> https:///fake.com
-    # The extra slash means effectively our servername is empty - this is potentially confusing but probably the right thing to do here.
-    # It's a concern only if upstream treats the tripple slash in this case as valid and maps it to https:// - which would probably be bad anyway.
-    # won't fix (review)
-    #3)
-    #similarly
-    # normjoin //./UNC//server/share/subpath -> ///server/share/subpath  (when 2 or more slashes directly after UNC)
-    # normjoin ///server/share  -> ///server/share
-    #This is effectively an empty servername in the input with 'server' being pushed one level down - and the output is consistent
-    # possibly won't fix - review
-    #4) inconsistency
-    # we return normalized //server/share for //./UNC/server share
-    # but other dos device paths are maintained
-    # e.g //./c:/etc
-    # This is because such paths could contain alternate segment names (windows shortnames) which we aren't in a position to resolve.
-    # caller should
-    # #as with 'case' below - caller will need to run a post 'file normalize'
-    #5) we don't normalize case like file normalize does on windows platform.
-    #   This is intentional. It could only be done with reference to underlying filesystem which we don't want here.
-    #
-    # ================
-    #
-    #relpaths all end up with leading . - while not always the simplest form, this is ok. (helps stop inadvertent conversions to absolutes)
-    # Tests - TODO
-    # normjoin /d:/..//vfs:/test -> /vfs:/test  (good - not converted to //vfs:/test)
-    proc normjoin {args} {
-        set args [lmap a $args {string map "\\\\ /" $a}]
-        set path [plainjoin {*}$args]
-        switch -exact $path {
-            "" {
-                return ""
-            }
-            / - // {
-                #treated in unixlike manner - (but leading doubleslashes with subsequent data are server indication)
-                #// not considered a servername indicator - but /// (for consistency) is. (empty servername?)
-                return /
-            }
-            /// {
-                #if this is effectively //$emptyservername/
-                #then for consistency we should trail //<servername with a slash too?
-                #we can't transform to //  or /
-                return ///
-                #assert - code below should return /// (empty server prefix) for any number of leading slashes >=3
-                #todo - shortcircuit that here?
-            }
-         }
-        # ///
-        set doubleslash1_posn [string first // $path]
-
-        # -- --- --- temp warning on windows only - no x-platform difference in result
-        #on windows //host is of type volumerelative
-        # whereas //host/share is of type absolute
-        if {"windows" eq $::tcl_platform(platform) && [file pathtype $path] eq "volumerelative"} {
-            #volumerelative probably only occurs on windows anyway
-            if {$doubleslash1_posn == 0} {
-                #e.g //something  where no further slashes
-                #review - eventually get rid of this warning and require upstream to know the appropriate usecase
-                puts stderr "Warning - ambiguous path $path - treating as server path - not 'volumerelative'"
-            } else {
-                # /something/etc
-                # /mnt/c/stuff
-                #output will retain leading / as if on unix.
-                #on windows - the result would still be interpreted as volumerelative if the caller normalizes it
-            }
-        }
-        # -- --- ---
-
-        set is_relpath 0
-
-        #set path [string map [list \\ /] $path]
-        set finalparts [list]
-        set is_nonunc_dosdevice 0
-        if {[punk::winpath::is_dos_device_path $path]} {
-            #review
-            if {[string range $path 4 6] eq "UNC"} {
-                #convert to 'standard' //server/... path for processing
-                set path "/[string range $path 7 end]"  ;# //server/...
-            } else {
-                #error "normjoin non-UNC dos device path '$path' not supported"
-                #first segment after //./ or //?/ represents the volume or drive.
-                #not applicable to unix - but unlikely to conflict with a genuine usecase there (review)
-                #we should pass through and stop navigation below //./vol
-                #!!!
-                #not anomaly in tcl (continues in tcl9)
-                #file exists //./c:/test  -> 0
-                #file exists //?/c:/test  -> 1
-                #file exists //./BootPartition/Windows -> 1
-                #file exists //?/BootPartition/Windows -> 0
-                set is_nonunc_dosdevice 1
-            }
-        }
-
-        if {$is_nonunc_dosdevice} {
-            #dosdevice prefix //./ or //?/  - preserve it (without trailing slash which will be put back in with join)
-            set prefix [string range $path 0 2]
-            set tail [string range $path 4 end]
-            set tailparts [split $tail /]
-            set parts [concat [list $prefix] $tailparts]
-            set rootindex 1 ;#disallow backtrack below //./<volume>
-        } else {
-            #note use of ordinary ::split vs file split is deliberate.
-            if {$doubleslash1_posn == 0} {
-                #this is handled differently on different platforms as far as 'file split' is concerned.
-                #e.g for file split //sharehost/share/path/etc
-                #e.g on windows:  -> //sharehost/share path
-                #e.g on freebsd:  ->  / sharehost share path etc
-                #however..also on windows: file split //sharehost  -> / sharehost
-                #normalize by dropping leading slash before split - and then treating first 2 segments as a root
-                #set parts [file split [string range $path 1 end]]
-                set parts [split $path /]
-                #assert parts here has {} {} as first 2 entries
-                set rootindex 2
-                #currently prefer can backtrack to the  //zipfs:/  scheme (below the mountpoint - to browse other mounts)
-                #alternative handling for //zipfs:/path - don't go below mountpoint
-                #but we can't determine just from string if mountpoint is direct subpath or a lower one e.g //zipfs:/arbitraryname/actualmountpoint
-                #review - more generally //<mountmechanism>:/path ?
-                #todo - make an option for zipfs and others to determine the 'base'
-                #if {"zipfs:" eq [lindex $parts 2]} {
-                #    set rootindex 3
-                #}
-            } else {
-                #path may or may not begin with a single slash here.
-                #treat same on unix and windows
-                set rootindex 0
-                #set parts [file split $path]
-                set parts [::split $path /]
-                #e.g /a/b/c -> {} a b c
-                #or relative path a/b/c ->  a b c
-                #or  c:/a/b/c -> c: a b c
-                if {[string match *: [lindex $parts 0]]} {
-                    if {[lindex $parts 1] eq ""} {
-                        #scheme://x splits to scheme: {} x
-                        set parts [concat [list [lindex $parts 0]/] [lrange $parts 2 end]]
-                        #e.g {scheme:/ x}
-                        set rootindex 1  ;#disallow below first element of scheme
-                    } else {
-                        set rootindex 0
-                    }
-                } elseif {[lindex $parts 0] ne ""} {
-                    #relpath a/b/c
-                    set parts [linsert $parts 0 .]
-                    set rootindex 0
-                    #allow backtracking arbitrarily for leading .. entries - simplify where possible
-                    #also need to stop possible conversion to absolute path
-                    set is_relpath 1
-                }
-            }
-        }
-        set baseparts [lrange $parts 0 $rootindex] ;#base below which we can't retreat via ".."
-        #puts stderr "-->baseparts:$baseparts"
-        #ensure that if our rootindex already spans a dotted segment (after the first one) we remove it
-        #must maintain initial . for relpaths to stop them converting to absolute via backtrack
-        #
-        set finalparts [list [lindex $baseparts 0]]
-        foreach b [lrange $baseparts 1 end] {
-            if {$b ni {. ..}} {
-                lappend finalparts $b
-            }
-        }
-        set baselen [expr {$rootindex + 1}]
-        if {$is_relpath} {
-            set i [expr {$rootindex+1}]
-            foreach p [lrange $parts $i end] {
-                switch -exact -- $p {
-                    . - "" {}
-                    .. {
-                        switch -exact -- [lindex $finalparts end] {
-                            . - .. {
-                                lappend finalparts ..
-                            }
-                            default {
-                                #lpop finalparts
-                                ledit finalparts end end
-                            }
-                        }
-                    }
-                    default {
-                        lappend finalparts $p
-                    }
-                }
-                incr i
-            }
-        } else {
-            foreach p [lrange $parts $rootindex+1 end] {
-                if {[llength $finalparts] <= $baselen} {
-                    if {$p ni {. .. ""}} {
-                        lappend finalparts $p
-                    }
-                } else  {
-                    switch -exact -- $p {
-                        . - "" {}
-                        .. {
-                            #lpop finalparts ;#uses punk::lib::compat::lpop if on < 8.7
-                            ledit finalparts end end ;#uses punk::lib::compat::ledit if on < 8.7
-                        }
-                        default {
-                            lappend finalparts $p
-                        }
-                    }
-                }
-            }
-        }
-        puts "==>finalparts: '$finalparts'"
-        # using join - {"" "" server share} -> //server/share  and {a b} -> a/b
-        if {[llength $finalparts] == 1 && [lindex $finalparts 0] eq ""} {
-            #backtracking on unix-style path can end up with empty string as only member of finalparts
-            #e.g /x/..
-            return /
-        }
-        set result [::join $finalparts /]
-        #normalize volumes and mountschemes to have trailing slash if no subpath
-        #e.g c: -> c:/
-        #//zipfs: -> //zipfs:/
-        if {[set lastchar [string index $result end]] eq ":"} {
-            if {$result eq "//zipfs:"} {
-                set result "//zipfs:/"
-            } else {
-                if {[string first / $result] < 0} {
-                    set result $result/
-                }
-            }
-        } elseif {[string match //* $result]} {
-            if {![punk::winpath::is_dos_device_path $result]} {
-                #server
-                set tail [string range $result 2 end]
-                set tailparts [split $tail /]
-                if {[llength $tailparts] <=1} {
-                    #empty //  or //servername
-                    append result /
-                }
-            }
-        } elseif {[llength $finalparts] == 2} {
-            if {[string range [lindex $finalparts 0] end-1 end] eq ":/"} {
-                #e.g https://server/  -> finalparts {https:/ server}
-                #e.g https:/// ->  finalparts {https:/ ""}
-                #scheme based path should always return trailing slash after server component - even if server component empty.
-                lappend finalparts "" ;#force trailing /
-                return [join $finalparts /]
-            }
-        }
-        return $result
-    }
-
-    proc trim_final_slash {str} {
-        if {[string index $str end] eq "/"} {
-            return [string range $str 0 end-1]
-        }
-        return $str
-    }
-
-
-    #x-platform - punk::path::pathtype - can be used in safe interps - different concept of pathtypes to 'file pathtype'
-    # - no volumerelative
-    # - no lookup of file volumes (volume is a windows concept - but with //zipfs:/ somewhat applicable to other platforms)
-    # - /* as absolute  (covers also //zipfs:/ (volume),  //server , //./etc , //./UNC)
-    # - xxx:// as absolute (scheme)
-    # - xxx:/ or x:/ as absolute
-    # - x: xxx: -> as absolute (volume-basic or volume-extended)
-
-    #note also on windows - legacy name for COM devices
-    # COM1 = COM1:
-    # //./COM1 ??  review
-
-    proc pathtype {str} {
-        set str [string map "\\\\ /" $str]
-        if {[string index $str 0] eq "/"} {
-            #todo - look for //xxx:/ prefix (generalisation of //zipfs:/)  as a 'volume' specifically {volume mount} ?? - review
-            # look for //server prefix as {absolute server}
-            # look for //./UNC/server or //?/UNC/server as  {absolute server UNC} ?
-            # look for //./<dosdevice>  as {absolute dosdevice}
-            return absolute
-        }
-
-        #only firstsegment with single colon at last position (after some non empty string) counts as volume or scheme - review
-        #e.g a:b:/..  or a::/..  or :/..  is not treated as volume/scheme whereas ab:/ is.
-        set firstslash [string first / $str]
-        if {$firstslash == -1} {
-            set firstsegment $str
-        } else {
-            set firstsegment [string range $str 0 $firstslash-1]
-        }
-        if {[set firstc [string first : $firstsegment]] > 0} {
-            set lhs_firstsegment [string range $firstsegment 0 $firstc-1]
-            set rhs_firstsegment [string range $firstsegment $firstc+1 end] ;#exclude a:b/ etc
-            if {$rhs_firstsegment eq ""} {
-                set rhs_entire_path [string range $str $firstc+1 end]
-                #assert lhs_firstsegment not empty since firstc > 0
-                #count following / sequence
-                set i 0
-                set slashes_after_firstsegment "" ;#run of slashes *directly* following first segment
-                while {$i < [string length $rhs_entire_path]} {
-                    if {[string index $rhs_entire_path $i] eq "/"} {
-                        append slashes_after_firstsegment /
-                    } else {
-                        break
-                    }
-                    incr i
-                }
-                switch -exact -- $slashes_after_firstsegment {
-                    "" - / {
-                        if {[string length $lhs_firstsegment] == 1} {
-                            return {absolute volume basic}
-                        } else {
-                            return {absolute volume extended}
-                        }
-                    }
-                    default {
-                        #2 or more /
-                        #this will return 'scheme' even for c://  - even though that may look like a windows volume - review
-                        return {absolute scheme}
-                    }
-                }
-            }
-        }
-        #assert first element of any return has been absolute or relative
-        return relative
-    }
-
-
-    proc plain {str} {
-        set str [string map "\\\\ /" $str]
-        set pathinfo [punk::path::pathtype $str]
-        if {[lindex $pathinfo 0] eq "relative" && ![string match ./* $str]} {
-            set str ./$str
-        }
-        if {[string index $str end] eq "/"} {
-            if {[string map {/ ""} $str] eq ""} {
-                #all slash segment
-                return $str
-            } else {
-                if {[lindex $pathinfo 1] ni {volume scheme}} {
-                    return [string range $str 0 end-1]
-                }
-            }
-        }
-        return $str
-    }
-    #purely string based - no reference to filesystem knowledge
-    #unix-style forward slash only
-    proc plainjoin {args} {
-        set args [lmap a $args {string map "\\\\ /" $a}]
-        #if {[llength $args] == 1} {
-        #    return [lindex $args 0]
-        #}
-        set out ""
-        foreach a $args {
-            if {![string length $out]} {
-                append out [plain $a]
-            } else {
-                set a [plain $a]
-                if {[string map {/ ""} $out] eq ""} {
-                    set out [string range $out 0 end-1]
-                }
-
-                if {[string map {/ ""} $a] eq ""} {
-                    #all / segment
-                    append out [string range $a 0 end-1]
-                } else {
-                    if {[string length $a] > 2 && [string match "./*" $a]} {
-                        set a [string range $a 2 end]
-                    }
-                    if {[string index $out end] eq "/"} {
-                        append out $a
-                    } else {
-                        append out / $a
-                    }
-                }
-            }
-        }
-        return $out
-    }
-    proc plainjoin1 {args} {
-        if {[llength $args] == 1} {
-            return [lindex $args 0]
-        }
-        set out [trim_final_slash [lindex $args 0]]
-        foreach a [lrange $args 1 end] {
-            set a [trim_final_slash $a]
-            append out / $a
-        }
-        return $out
-    }
-
-    #intention?
-    #proc filepath_dotted_dirname {path} {
-    #}
-
-    proc strip_prefixdepth {path prefix} {
-        if {$prefix eq ""} {
-            return [norm $path]
-        }
-        return [file join \
-            {*}[lrange \
-                [file split [norm $path]] \
-                [llength [file split [norm $prefix]]] \
-                end]]
-    }
-
-    proc pathglob_as_re {pathglob} {
-        #*** !doctools
-        #[call [fun pathglob_as_re] [arg pathglob]]
-        #[para] Returns a regular expression for matching a path to a glob pattern which can contain glob chars *|? in any segment of the path structure
-        #[para] ** matches any number of subdirectories.
-        #[para] e.g /etc/**/*.txt will match any .txt files at any depth below /etc  (except directly within /etc itself)
-        #[para] e.g /etc/**.txt will match any .txt files at any depth below /etc
-        #[para] any segment that does not contain ** must match exactly one segment in the path
-        #[para] e.g the glob /etc/*/*.doc  - will match any .doc files that are exactly one tree level below /etc
-        #[para] The pathglob doesn't have to contain glob characters, in which case the returned regex will match the pathglob exactly as specified.
-        #[para] Regular expression syntax is deliberateley not supported within the pathglob string so that supplied regex characters will be treated as literals
-
-
-        #todo - consider whether a way to escape the glob chars ? * is practical - to allow literals ? *
-        # - would require counting immediately-preceding backslashes
-        set pats [list]
-        foreach seg [file split $pathglob] {
-            if {[string range $seg end end] eq "/"} {
-                set seg [string range $seg 0 end-1] ;# e.g c:/ -> c:   / -> ""  so that join at end doesn't double up
-            }
-            switch -- $seg {
-                *   {lappend pats {[^/]*}}
-                **  {lappend pats {.*}}
-                default {
-                    set seg [string map [list {^ {\^} $ {\$} [} {\[} ( {\(} \{ \\\{ \\ {\\}] $seg] ;#treat regex characters in the input as literals
-                    #set seg [string map [list  . {[.]}] $seg]
-                    set seg [string map {. [.]} $seg]
-                    if {[regexp {[*?]} $seg]} {
-                        set pat [string map [list ** {.*} * {[^/]*} ? {[^/]}] $seg]
-                        lappend pats "$pat"
-                    } else {
-                        lappend pats "$seg"
-                    }
-                }
-            }
-        }
-        return  "^[join $pats /]\$"
-    }
-    proc globmatchpath {pathglob path args} {
-        #*** !doctools
-        #[call [fun globmatchpath] [arg pathglob] [arg path] [opt {option value...}]]
-        #[para] Return true if the pathglob matches the path
-        #[para] see [fun pathglob_as_re] for pathglob description
-        #[para] Caller must ensure that file separator is forward slash. (e.g use file normalize on windows)
-        #[para]
-        #[para] Known options:
-        #[para]     -nocase 0|1  (default 0 - case sensitive)
-        #[para] If -nocase is not supplied - default to case sensitive *except for driveletter*
-        #[para] ie - the driveletter alone in paths such as c:/etc will still be case insensitive. (ie c:/ETC/* will match C:/ETC/blah but not C:/etc/blah)
-        #[para] Explicitly specifying -nocase 0 will require the entire case to match including the driveletter.
-
-        set opts [dict create\
-            -nocase \uFFFF\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -nocase {
-                    dict set opts $k $v
-                }
-                default {
-                    error "Unrecognised option '$k'. Known-options: [dict keys $opts]"
-                }
-            }
-        }
-        # -- --- --- --- --- ---
-        set opt_nocase [dict get $opts -nocase]
-        set explicit_nocase 1 ;#default to disprove
-        if {$opt_nocase eq "\uFFFF"} {
-            set opt_nocase 0
-            set explicit_nocase 0
-        }
-        # -- --- --- --- --- ---
-        if {$opt_nocase} {
-            return [regexp -nocase [pathglob_as_re $pathglob] $path]
-        } else {
-            set re [pathglob_as_re $pathglob]
-            if {$explicit_nocase} {
-                set ismatch [regexp $re $path] ;#explicit -nocase 0  - require exact match of path literals including driveletter
-            } else {
-                #caller is using default for -nocase - which indicates case sensitivity - but we have an exception for the driveletter.
-                set re_segments [file split $re] ;#Note that file split c:/etc gives {c:/ etc}  but file split ^c:/etc gives {^c: etc}
-                set first_seg [lindex $re_segments 0]
-                if {[regexp {^\^(.{1}):$} $first_seg _match driveletter]} {
-                    #first part of re is like "^c:" i.e a drive letter
-                    set chars [string tolower $driveletter][string toupper $driveletter]
-                    set re [join [concat "^\[$chars\]:" [lrange $re_segments 1 end]] /] ;#rebuild re with case insensitive driveletter only - use join - not file join. file join will misinterpret leading re segment.
-                }
-                #puts stderr "-->re: $re"
-                set ismatch [regexp $re $path]
-            }
-        }
-        return $ismatch
-    }
-    punk::args::define {
-        @id     -id     ::punk::path::subfolders
-        @cmd    -name     punk::path::subfolders\
-            -summary\
-            "Listing of directories within supplied path."\
-            -help\
-            "List of folders below path.
-            The resulting list is unsorted."
-        @opts
-        -recursive -type none -help\
-            ""
-        #todo -depth
-        @values -min 0 -max 1
-        path -type directory -optional 1 -help\
-            "Path of folder. If not supplied current directory is used."
-    }
-    proc subfolders {args} {
-        set argd [punk::args::parse $args withid ::punk::path::subfolders]
-        lassign [dict values $argd] leaders opts values received
-        set do_recursion [dict exists $received -recursive]
-        if {[dict exists $received path]} {
-            set path [dict get $values path]
-        } else {
-            set path [pwd]
-        }
-        set folders [glob -nocomplain -directory $path -types d *]
-        if {$do_recursion} {
-            foreach subdir $folders {
-                lappend folders {*}[subfolders -recursive $subdir]
-            }
-        }
-        return $folders
-    }
-
-    #todo - treefolders with similar search caps as treefilenames
-
-    punk::args::define {
-        @id     -id ::punk::path::treefilenames
-        -directory       -type directory  -help\
-            "folder in which to begin recursive scan for files."
-        -call-depth-internal    -default 0 -type integer
-        -sort -type any -default natural -choices {none ascii dictionary natural}
-        -antiglob_paths         -default {} -help\
-            "list of path patterns to exclude
-              may include * and ** path segments e.g
-              /usr/**       (exlude subfolders based at /usr but not
-                             files within /usr itself)
-              **/_aside     (exlude  files where _aside is last segment)
-              **/_aside/*   (exclude folders one below an _aside folder)
-              **/_aside/**  (exclude all folders with _aside as a segment)"
-        -antiglob_files         -default {}
-        @values -min 0 -max -1 -optional 1 -type string
-        tailglobs -default * -multiple 1   -help\
-            "Patterns to match against filename portion (last segment) of each file path
-              within the directory tree being searched."
-    }
-
-    #todo - implement treefiles which acts like dirfiles but allows path globbing in the same way as punk::ns::ns/
-    #then review if treefiles can replace dirfiles or if both should exist (dirfiles can have literal glob chars in path segments - but that is a rare usecase)
-    proc treefilenames {args} {
-        #*** !doctools
-        #[call [fun treefilenames]  [opt {option value...}] [opt {globpattern...}]]
-        #[para]basic (glob based) list of filenames matching each pattern in tailglobs - recursive
-        #[para] options:
-        #[para] [opt -dir] <path>
-        #[para]     defaults to [lb]pwd[rb] - base path for tree to search
-        #[para] [opt -antiglob_paths] <list>
-        #[para]     list of path patterns to exclude - may include * and ** path segments e.g /usr/**
-        #[para]no natsorting - so order is dependent on filesystem
-
-        set argd [punk::args::parse $args withid ::punk::path::treefilenames]
-        lassign [dict values $argd] leaders opts values received
-        set tailglobs [dict get $values tailglobs]
-        # -- --- --- --- --- --- ---
-        set opt_sort           [dict get $opts -sort]
-        set opt_antiglob_paths [dict get $opts -antiglob_paths]
-        set opt_antiglob_files [dict get $opts -antiglob_files]
-        set CALLDEPTH [dict get $opts -call-depth-internal]
-        # -- --- --- --- --- --- ---
-        # -- --- --- --- --- --- ---
-
-        set files [list]
-        if {$CALLDEPTH == 0} {
-            if {$opt_sort eq "natural"} {
-                package require natsort
-            }
-            #set opts [dict merge $opts [list -directory $opt_dir]]
-            if {![dict exists $received -directory]} {
-                set opt_dir [pwd]
-            } else {
-                set opt_dir [dict get $opts -directory]
-            }
-            if {![file isdirectory $opt_dir]} {
-                return [list]
-            }
-        } else {
-            #assume/require to exist in any recursive call
-            set opt_dir [dict get $opts -directory]
-        }
-
-        #comment out to compare timings with treefilenames_zipfs
-        if {[string match //zipfs:/* $opt_dir]} {
-            return [treefilenames_zipfs {*}$args]
-        }
-
-        set skip 0
-        foreach anti $opt_antiglob_paths {
-            if {[globmatchpath $anti $opt_dir]} {
-                set skip 1
-                break
-            }
-        }
-        if {$skip} {
-            return [list]
-        }
-
-        #todo - account for vfs where matched path could appear to be a directory but is mounted so could be a desired match?
-        if {[catch {glob -nocomplain -dir $opt_dir -type f {*}$tailglobs} matches]} {
-            #we can get for example a permissions error
-            puts stderr "treefilenames error while listing files in dir $opt_dir\n $matches"
-            set dirfiles [list]
-        } else {
-            set retained [list]
-            if {[llength $opt_antiglob_files]} {
-                foreach m $matches {
-                    set skip 0
-                    set ftail [file tail $m]
-                    foreach anti $opt_antiglob_files {
-                        if {[string match $anti $ftail]} {
-                            set skip 1; break
-                        }
-                    }
-                    if {!$skip} {
-                        lappend retained $m
-                    }
-                }
-            } else {
-                set retained $matches
-            }
-            switch -- $opt_sort {
-                ascii {
-                    set dirfiles [lsort $retained]
-                }
-                dictionary {
-                    set dirfiles [lsort -dictionary $retained]
-                }
-                natural {
-                    set dirfiles [natsort::sort $retained]
-                }
-                default {
-                    set dirfiles $retained
-                }
-            }
-        }
-
-        lappend files  {*}$dirfiles
-        if {[catch {glob -nocomplain -dir $opt_dir -type d *} dirdirs]} {
-            puts stderr "treefilenames error while listing subdirs in dir $opt_dir\n $dirdirs"
-            set dirdirs [list]
-        }
-        set okdirs [list]
-        foreach dir $dirdirs {
-            set skip 0
-            foreach anti $opt_antiglob_paths {
-                if {[globmatchpath $anti $dir]} {
-                    set skip 1
-                    break
-                }
-            }
-            if {!$skip} {
-                lappend okdirs $dir
-            }
-        }
-        if {[llength $okdirs]} {
-            switch -- $opt_sort {
-                ascii {
-                    set finaldirs [lsort $okdirs]
-                }
-                dictionary {
-                    set finaldirs [lsort -dictionary $okdirs]
-                }
-                natural {
-                    set finaldirs [natsort::sort $okdirs]
-                }
-                default {
-                    set finaldirs $okdirs
-                }
-            }
-            foreach dir $finaldirs {
-                set nextopts [dict merge $opts [list -directory $dir -call-depth-internal [incr CALLDEPTH]]]
-                lappend files {*}[treefilenames {*}$nextopts {*}$tailglobs]
-            }
-        }
-        return $files
-    }
-    proc treefilenames_zipfs {args} {
-        #seems to be 2 or 3 times faster than treefilenames for //zipfs:/ paths  - REVIEW
-        # is sort order the same?
-        set argd [punk::args::parse $args withid ::punk::path::treefilenames]
-        lassign [dict values $argd] leaders opts values received
-        set tailglobs [dict get $values tailglobs]
-        # -- --- --- --- --- --- ---
-        set opt_antiglob_paths [dict get $opts -antiglob_paths]
-        set opt_antiglob_files [dict get $opts -antiglob_files]
-        set opt_sort           [dict get $opts -sort]
-        set CALLDEPTH [dict get $opts -call-depth-internal]
-        # -- --- --- --- --- --- ---
-        # -- --- --- --- --- --- ---
-
-        set files [list]
-        if {$CALLDEPTH == 0} {
-            if {$opt_sort eq "natural"} {
-                package require natsort
-            }
-            #set opts [dict merge $opts [list -directory $opt_dir]]
-            if {![dict exists $received -directory]} {
-                set opt_dir [pwd]
-            } else {
-                set opt_dir [dict get $opts -directory]
-            }
-            if {![file isdirectory $opt_dir]} {
-                return [list]
-            }
-        } else {
-            #assume/require to exist in any recursive call
-            set opt_dir [dict get $opts -directory]
-        }
-        if {![string match [zipfs root]* $opt_dir]} {
-            error "treefilenames_zipfs can only be used on paths beginning with [zipfs root] on this systems"
-        }
-        set dir [string trimright $opt_dir "/"] ;#e.g normalize //zipfs:/x/ to //zipfs:/x
-        set dirlen [string length $dir]
-
-        set skip 0
-        foreach anti $opt_antiglob_paths {
-            if {[globmatchpath $anti $dir]} {
-                set skip 1
-                break
-            }
-        }
-        if {$skip} {
-            return [list]
-        }
-        set subpaths [zipfs list $dir/*]
-        set dirlist [list]
-        set skipdirs [list]
-        set filelist [list]
-        #process in the order they came - sorting large list more expensive?? review
-        foreach sub $subpaths {
-            set tail [string range $sub $dirlen+1 end] ;#dirlen is without trailing slash
-            set tailparts [file split $tail]
-            set accum ""
-            set skipdir 0
-            foreach tp [lrange $tailparts 0 end-1] {
-                append accum "/$tp"
-                set superpath "${dir}${accum}"
-                if {$superpath in $skipdirs} {
-                    #subpart already in skipdirs
-                    set skipdir 1
-                    break
-                }
-                if {$superpath ni $dirlist} {
-                    set skip2 0
-                    foreach anti $opt_antiglob_paths {
-                        if {[globmatchpath $anti $superpath]} {
-                            set skip2 1
-                            lappend skipdirs $superpath
-                            break
-                        }
-                    }
-                    if {!$skip2} {
-                        lappend dirlist $superpath
-                    } else {
-                        set skipdir 1
-                        break
-                    }
-                }
-            }
-            if {!$skipdir} {
-                #process final part of path
-                append accum "/[lindex $tailparts end]"
-                set finalpart "${dir}${accum}"
-                if {$finalpart ni $dirlist} {
-                    if {[file type $finalpart] eq "file"} {
-                        set ftail [lindex $tailparts end]
-                        set match 0
-                        if {"*" ni $tailglobs} {
-                            foreach tg $tailglobs {
-                                if {[string match $tg $ftail]} {
-                                    set match 1
-                                    break
-                                }
-                            }
-                        } else {
-                            set match 1
-                        }
-                        if {$match} {
-                            if {[llength $opt_antiglob_files]} {
-                                set skipfile 0
-                                foreach anti $opt_antiglob_files {
-                                    if {[string match $anti $ftail]} {
-                                        set skipfile 1; break
-                                    }
-                                }
-                                if {!$skipfile} {
-                                    lappend filelist $finalpart
-                                }
-                            } else {
-                                lappend filelist $finalpart
-                            }
-                        }
-                    } else {
-                        if {$finalpart ni $dirlist} {
-                            set skip2 0
-                            foreach anti $opt_antiglob_paths {
-                                if {[globmatchpath $anti $finalpart]} {
-                                    set skip2 1
-                                    lappend skipdirs $finalpart
-                                    break
-                                }
-                            }
-                            if {!$skip2} {
-                                lappend dirlist $finalpart
-                            }
-                        }
-                    }
-                }
-            }
-        }
-        switch -- $opt_sort {
-            ascii {
-                set finalfilelist [lsort $filelist]
-            }
-            dictionary {
-                set finalfilelist [lsort -dictionary $filelist]
-            }
-            natural {
-                set finalfilelist [natsort::sort $filelist]
-            }
-            default {
-                set finalfilelist $filelist
-            }
-        }
-        return $finalfilelist
-    }
-
-    #maint warning - also in punkcheck
-    proc relative {reference location} {
-        #*** !doctools
-        #[call [fun relative] [arg reference] [arg location]]
-        #[para]    Taking two directory paths, a reference and a location, computes the path
-        #    of the location relative to the reference.
-        #[list_begin itemized]
-        #[item]
-        #[para] Arguments:
-        #       [list_begin arguments]
-        #       [arg_def string reference]       The path from which the relative path to location is determined.
-        #       [arg_def string location]        The location path which may be above or below the reference path
-        #       [list_end]
-        #[item]
-        #[para] Results:
-        #[para]    The relative path of the location to the reference path.
-        #[para]    Will return a single dot "." if the paths are the same
-        #[item]
-        #[para] Notes:
-        #[para]    Both paths must be the same type - ie both absolute or both relative
-        #[para]    Case sensitive.  ie  punk::path::relative /etc /etC
-        #      will return ../etC
-        #[para]    On windows, the drive-letter component (only) is not case sensitive
-        #[example_begin]
-        #    P% punk::path::relative c:/etc  C:/etc
-        #    -  .
-        #[example_end]
-        #[para] The part following the driveletter is case sensitive so in the following cases it recognises the driveletter matches but not the tail
-        #[example_begin]
-        #    P% punk::path::relative c:/etc C:/Etc
-        #    -  ../Etc
-        #[example_end]
-        #[para]    On windows, if the paths are absolute and specifiy different volumes, only the location will be returned.
-        #[example_begin]
-        #    P% punk::path::relative c:/etc d:/etc/blah
-        #    -  d:/etc/blah
-        #[example_end]
-        #[para] Unix-like examples:
-        #[example_begin]
-        #   P% punk::path::relative /usr/local/etc/ /usr/local/etc/somewhere/below
-        #   - somewhere/below
-        #   P% punk::path::relative /usr/local/etc/somewhere /usr/local/lib/here
-        #   - ../../lib/here
-        #[example_end]
-        #[list_end]
-
-        #see also kettle
-        # Modified copy of ::fileutil::relative (tcllib)
-        # Adapted to 8.5 ({*}).
-
-        #review - check volume info on windows.. UNC paths?
-        if {[file pathtype $reference] ne [file pathtype $location]} {
-            return -code error "Unable to compute relation for paths of different pathtypes: [file pathtype $reference] vs. [file pathtype $location], ($reference vs. $location)"
-        }
-
-        #avoid normalizing if possible (file normalize *very* expensive on windows)
-        set do_normalize 0
-        if {[file pathtype $reference] eq "relative"} {
-            #if reference is relative so is location
-            if {[regexp {[.]{2}} [list $reference $location]]} {
-                set do_normalize 1
-            }
-            if {[regexp {[.]/} [list $reference $location]]} {
-                set do_normalize 1
-            }
-        } else {
-            set do_normalize 1
-        }
-        if {$do_normalize} {
-            set reference [file normalize $reference]
-            set location  [file normalize $location]
-        }
-
-        set save $location
-        set reference [file split $reference]
-        set location  [file split $location]
-
-        while {[lindex $location 0] eq [lindex $reference 0]} {
-            set location  [lrange $location  1 end]
-            set reference [lrange $reference 1 end]
-            if {![llength $location]} {break}
-        }
-
-        set location_len  [llength $location]
-        set reference_len [llength $reference]
-
-        if {($location_len == 0) && ($reference_len == 0)} {
-            # Cases:
-            # (a) reference == location
-
-            set location .
-        } else {
-            # Cases:
-            # (b) ref is: ref/sub = sub
-            #     loc is: ref     = {}
-
-            # (c) ref is: ref     = {}
-            #     loc is: ref/sub = sub
-
-            while {$reference_len > 0} {
-                set location [linsert $location 0 ..]
-                incr reference_len -1
-            }
-            set location [file join {*}$location]
-        }
-        return $location
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::path ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::path::lib {
-        namespace export *
-        namespace path [namespace parent]
-        #*** !doctools
-        #[subsection {Namespace punk::path::lib}]
-        #[para] Secondary functions that are part of the API
-        #[list_begin definitions]
-
-
-
-
-
-        #*** !doctools
-        #[list_end] [comment {--- end definitions namespace punk::path::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-namespace eval punk::path::system {
-        #*** !doctools
-        #[subsection {Namespace punk::path::system}]
-        #[para] Internal functions that are not part of the API
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::path [namespace eval punk::path {
-    variable pkg punk::path
-    variable version
-    set version 0.1.0
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/pipe-1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/pipe-1.0.tm
deleted file mode 100644
index 2b0500b8..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/pipe-1.0.tm
+++ /dev/null
@@ -1,854 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2025
-#
-# @@ Meta Begin
-# Application punk::pipe 1.0
-# Meta platform     tcl
-# Meta license      MIT
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin shellspy_module_punk::pipe 0 1.0]
-#[copyright "2025"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}] 
-#[require punk::pipe]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::pipe
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::pipe
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#tcl::namespace::eval punk::pipe::class {
-    #*** !doctools
-    #[subsection {Namespace punk::pipe::class}]
-    #[para] class definitions
-    #if {[tcl::info::commands [tcl::namespace::current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    #}
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-tcl::namespace::eval punk::pipe {
-    # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-    # Base namespace
-    # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-    #*** !doctools
-    #[subsection {Namespace punk::pipe}]
-    #[para] Core API functions for punk::pipe 
-    #[list_begin definitions]
-
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1 
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok" 
-    #}
-
-    #https://randomascii.wordpress.com/2012/02/25/comparing-floating-point-numbers-2012-edition/
-    #
-    #we can't provide a float comparison suitable for every situation,
-    #but we should pick something reasonable, keep it stable, and document it.
-    proc float_almost_equal {a b} {
-        package require math::constants
-        set diff [expr {abs($a - $b)}]
-        if {$diff <= $::math::constants::eps} {
-            return 1
-        }
-        set A [expr {abs($a)}]
-        set B [expr {abs($b)}]
-        set largest [expr {($B > $A) ? $B : $A}]
-        return [expr {$diff <= $largest * $::math::constants::eps}]
-    }
-
-    #debatable whether boolean_almost_equal is more surprising than helpful.
-    #values from a calculation that are extremely close to zero but aren't false could also be surprising - especially if they compare equal numerically
-    #perhaps a fuzzy-boolean is a step too far for a default - but it's inline with float-comparison for pattern-matching.
-    #alternatively - use an even more complex classifier? (^&~) ?
-    proc boolean_almost_equal {a b} {
-        if {[string is double -strict $a]} {
-            if {[float_almost_equal $a 0]} {
-                set a 0
-            }
-        }
-        if {[string is double -strict $b]} {
-            if {[float_almost_equal $b 0]} {
-                set b 0
-            }
-        }
-        #must handle true,no etc.
-        expr {($a && 1) == ($b && 1)}
-    }
-
-    #boolean could be tr, true, y, ye, yes,Yes, 1 , 0  etc.
-    proc boolean_equal {a b} {
-        #equivalenttly xnor: expr {!(($a && 1) ^ ($b && 1))}  ;# less clear and no discernable timing benefit. 
-        expr {($a && 1) == ($b && 1)}
-    }
-
-
-    proc val [list [list v [lreplace x 0 0]]]  {return $v}
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::pipe ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::pipe::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::pipe::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-    #map rhs to names suitable to use in pipemcd proc name (whitespace mapping)
-    # (for .= and = pipecmds)
-    proc pipecmd_namemapping {rhs} {
-        #used to build a command from a pattern which could contain :: - we need to map it to keep it a single command in the desired namespace.
-        #glob chars will prevent us using simple test {[info commands $cmd] eq ""} to test existence
-        #we could use the test {$cmd in [info commands]} - but mapping away globchars is more robust, allowing the simpler test 
-        #set rhs [string trim $rhs];#ignore all leading & trailing whitespace
-        set rhs [string trimleft $rhs]
-        #---
-        #REVIEW!
-        #set rhs [regsub -all {\s{1,}} $rhs {<sp>}] ;#collapse all internal whitespace to a single <sp> token
-        #This stops us matching {/@**@x x}  vs {/@**@x  x}
-        #---
-
-        set rhs [tcl::string::map {: <c> ? <q> * <star> [ <lb> ] <rb> \\ <bsl> {"} <dq> " " <sp>} $rhs] 
-        #review - we don't expect other command-incompatible chars such as colon?
-        return $rhs
-    }
-
-    # relatively slow on even small sized scripts
-    #proc arg_is_script_shaped2 {arg} {
-    #    set re {^(\s|;|\n)$}
-    #    set chars [split $arg ""]
-    #    if {[lsearch -regex $chars $re] >=0} {
-    #        return 1
-    #    } else {
-    #        return 0
-    #    }
-    #}
-
-    #exclude quoted whitespace
-    proc arg_is_script_shaped {arg} {
-        if {[tcl::string::first \n $arg] >= 0} {
-            return 1
-        } elseif {[tcl::string::first ";" $arg] >= 0} {
-            return 1
-        } elseif {[tcl::string::first " " $arg] >= 0 || [tcl::string::first \t $arg] >= 0} {
-            lassign [_rhs_tail_split $arg] _  part2 ;#will have part2 if unquoted whitespace found
-            return [expr {$part2 ne ""}]
-        } else {
-            return 0
-        }
-    }
-
-    #split top level of patterns only.
-    proc _split_patterns_memoized {varspecs} {
-        set name_mapped [pipecmd_namemapping $varspecs] 
-        set cmdname ::punk::pipecmds::split_patterns::_$name_mapped
-        if {[info commands $cmdname] ne ""} {
-            return [$cmdname]
-        }
-        set result [_split_patterns $varspecs]
-        proc $cmdname {} [list return $result]
-        #debug.punk.pipe.compile {proc $cmdname} 4
-        return $result
-    }
-
-
-    #note - empty data after trailing , is ignored. (comma as very last character)
-    # - fix by documentation only. double up trailing comma e.g <pattern>,,  if desired to return pattern match plus all at end!
-    #todo - move to punk::pipe
-    proc _split_patterns {varspecs} {
-
-        set varlist [list]
-        # @ @@ - list and dict functions
-        # / level separator
-        # # list count,  ## dict size
-        # % string functions
-        # ! not
-        set var_terminals [list "@" "/" "#" "%" "!" ">" "<"] ;# (> required for insertionspecs at rhs of = & .= )
-        #right bracket ) also ends a var - but is different depending on whether var is array or basic. For array - it forms part of the varname
-
-        #except when prefixed directly by pin classifier ^
-        set protect_terminals [list "^"]   ;# e.g sequence ^# 
-        #also - an atom usually doesn't need the / as a terminal - because it can't match a missing element unless it's empty string
-        #ie the one usecase is '/n    to match either empty string or missing item at position n. For this one usecase - we miss the capability to atom match paths/urls .. '/usr/local/et'
-        set in_brackets 0 ;#count depth 
-        set in_atom 0
-        set token ""
-        set end_var_posn -1 ;#first var_terminal encountered within each comma delimited section
-        set token_index 0 ;#index of terminal char within each token
-        set indq 0
-        set inbraces 0
-        set inesc 0 ;#whether last char was backslash  (see also punk::escv)
-        set prevc ""
-        set char_index 0
-        #if {[string index $varspecs end] eq ","} {
-        #    set varspecs [string range $varspecs 0 end-1]
-        #}
-        set charcount 0
-        foreach c [split $varspecs ""] {
-            incr charcount
-            if {$indq} {
-                if {$inesc} {
-                    #puts stderr "inesc adding '$c'"
-                    append token \\$c
-                } else {
-                    if {$c eq {"}} {
-                        set indq 0
-                    } else {
-                        append token $c
-                    }
-                }
-            } elseif {$inbraces} {
-                if {$inesc} {
-                    append token \\$c
-                } else {
-                    if {$c eq "\}"} {
-                        incr inbraces -1 
-                        if {$inbraces} {
-                            append token $c
-                        }
-                    } elseif {$c eq "\{"} {
-                        incr inbraces
-                        if {$inbraces} {
-                            append token $c
-                        }
-                    } else {
-                        append token $c
-                    }
-                }
-            } elseif {$in_atom} {
-                #ignore dquotes/brackets in atoms - pass through
-                append token $c
-                #set nextc [lindex $chars $char_index+1]
-                if {$c eq "'"} {
-                    set in_atom 0
-                }
-            } elseif {$in_brackets > 0} {
-                append token $c
-                if {$c eq ")"} {
-                    incr in_brackets -1
-                }
-            } else {
-                if {$c eq {"}} {
-                    if {!$inesc} {
-                        set indq 1
-                    } else {
-                        append token $c
-                    }
-                } elseif {$c eq "\{"} {
-                    if {!$inesc} {
-                        set inbraces 1
-                    } else {
-                        append token $c
-                    }
-                } elseif {$c eq ","} {
-                    #set var $token
-                    #set spec  ""
-                    #if {$end_var_posn > 0} {
-                    #     #tcl scan with %s will not handle whitespace as desired. Be explicit using string range instead.
-                    #     #lassign [scan $token %${end_var_posn}s%s] var spec
-                    #     set var    [string range $token 0 $end_var_posn-1]
-                    #     set spec   [string range $token $end_var_posn end] ;#key section includes the terminal char which ended the var and starts the spec
-                    #} else {
-                    #    if {$end_var_posn == 0} {
-                    #        set var ""
-                    #        set spec $token
-                    #    }
-                    #}
-                    #lappend varlist [list [string trim $var] [string trim $spec]]
-                    #set token ""
-                    #set token_index -1 ;#reduce by 1 because , not included in next token
-                    #set end_var_posn -1
-                } else {
-                    append token $c
-                    switch -exact -- $c {
-                        ' {
-                            set in_atom 1
-                        }
-                        ( {
-                            incr in_brackets 
-                        }
-                        default {
-                            if {$end_var_posn == -1 && (($c in $var_terminals) && ($prevc ni $protect_terminals))} {
-                                set end_var_posn $token_index         
-                            } 
-                        }
-                    }
-                }
-                if {$c eq ","} {
-                    set var $token
-                    set spec  ""
-                    if {$end_var_posn > 0} {
-                         #tcl scan with %s will not handle whitespace as desired. Be explicit using string range instead.
-                         #lassign [scan $token %${end_var_posn}s%s] var spec
-                         #lassign [punk::lib::string_splitbefore $token $end_var_posn] var spec
-                         set var    [string range $token 0 $end_var_posn-1]
-                         set spec   [string range $token $end_var_posn end] ;#key section includes the terminal char which ended the var and starts the spec
-                    } else {
-                        if {$end_var_posn == 0} {
-                            set var ""
-                            set spec $token
-                        }
-                    }
-                    lappend varlist [list [string trim $var] $spec]
-                    set token ""
-                    set token_index -1
-                    set end_var_posn -1
-
-                }
-            }
-
-            if {$charcount == [string length $varspecs]} {
-                if {!($indq || $inbraces || $in_atom || $in_brackets)} {
-                    if {$c ne ","} {
-                        set var $token
-                        set spec  ""
-                        if {$end_var_posn > 0} {
-                                #tcl scan with %s will not handle whitespace as desired. Be explicit using string range instead.
-                                #lassign [scan $token %${end_var_posn}s%s] var spec
-                                set var    [string range $token 0 $end_var_posn-1]
-                                set spec   [string range $token $end_var_posn end] ;#key section includes the terminal char which ended the var and starts the spec
-                        } else {
-                            if {$end_var_posn == 0} {
-                                set var ""
-                                set spec $token
-                            }
-                        }
-                        lappend varlist [list [string trim $var] $spec]
-                        set token ""
-                        set token_index -1
-                        set end_var_posn -1
-                    }
-                }
-            }
-
-            set prevc $c
-            if {$c eq "\\"} {
-                #review
-                if {$inesc} {
-                    set inesc 0
-                } else {
-                    set token [string range $token 0 end-1]
-                    set inesc 1
-                }
-            } else {
-                set inesc 0
-            }
-            incr token_index
-            incr char_index
-        }
-
-        #if {[string length $token]} {
-        #    #lappend varlist [punk::lib::string_splitbefore $token $end_var_posn]
-        #    set var $token
-        #    set spec  ""
-        #    if {$end_var_posn > 0} {
-        #            #lassign [scan $token %${end_var_posn}s%s] var spec
-        #            set var [string range $token 0 $end_var_posn-1]
-        #            set spec [string range $token $end_var_posn end] ;#key section includes the terminal char which ended the var and starts the spec
-        #    } else {
-        #        if {$end_var_posn == 0} {
-        #            set var ""
-        #            set spec $token
-        #        }
-        #    }
-        #    #lappend varlist [list [string trim $var] [string trim $spec]]
-        #    #spec needs to be able to match whitespace too
-        #    lappend varlist [list [string trim $var] $spec]
-        #}
-
-        return $varlist
-    }
-
-    #todo - consider whether we can use <  for insertion/iteration combinations
-    #  =a<,b<    iterate once through
-    #  =a><,b><  cartesian product
-    #  =a<>,b<>  ??? zip ?
-    #  
-    #  ie  = {a b c} |> .=< inspect
-    #  would call inspect 3 times, once for each argument
-    #  .= list {a b c} {x y z} |a/0,b/1>  .=a><,b>< list 
-    #  would produce list of cartesian pairs?
-    #
-    proc _split_equalsrhs {insertionpattern} {
-        #map the insertionpattern so we can use faster globless info command search
-        set name_mapped [pipecmd_namemapping $insertionpattern] 
-        set cmdname ::punk::pipecmds::split_rhs::_$name_mapped
-        if {[info commands $cmdname] ne ""} {
-            return [$cmdname]
-        }
-
-        set lst_var_indexposition [_split_patterns_memoized $insertionpattern]
-        set i 0
-        set return_triples [list]
-        foreach v_pos $lst_var_indexposition {
-            lassign $v_pos v index_and_position
-            #e.g   varname@@data/ok>0   varname/1/0>end
-            #ensure only one ">" is detected
-            if {![string length $index_and_position]} {
-                set indexspec ""
-                set positionspec ""
-            } else {
-                set chars [split $index_and_position ""]
-                set posns [lsearch -all $chars ">"]
-                if {[llength $posns] > 1} {
-                    error "pipesyntax error in segment insertion pattern '$insertionpattern' -v '$v' multiple '>' characters. Pattern not understood." "_split_equalsrhs $insertionpattern" [list pipesyntax insertionpattern_invalid]
-                }
-                if {![llength $posns]} {
-                    set indexspec $index_and_position
-                    set positionspec ""
-                } else {
-                    set splitposn [lindex $posns 0]
-                    set indexspec [string range $index_and_position 0 $splitposn-1]
-                    set positionspec [string range $index_and_position $splitposn+1 end]
-                }
-            }
-
-            #review - 
-            if {($positionspec in [list "*" "/*" "@*" "/" "@"]) || ($v eq "*" && $positionspec eq "")} {
-                set star ""
-                if {$v eq "*"} {
-                    set v ""
-                    set star "*"
-                }
-                if {[string index $positionspec end] eq "*"} {
-                    set star "*"
-                }
-                #it is always possible to insert at end of list regardless of current length - so /end* and @end* are equivalent
-                #as are /end and @end
-                #lset lst_var_indexposition $i [list $v "/end$star"]
-                set triple [list $v $indexspec "/end$star"]
-            } else {
-                if {$positionspec eq ""} {
-                    #e.g just =varname  
-                    #lset lst_var_indexposition $i [list $v "/end"]
-                    set triple [list $v $indexspec "/end"]
-                    #error "pipesyntax error in segment insertionpattern '$insertionpattern' - v '$v' missing position spec e.g /0"
-                } else {
-                    if {[string index $indexspec 0] ni [list "" "/" "@"]} {
-                        error "pipesyntax error in segment insertionpattern '$insertionpattern' - v '$v' bad index spec '$indexspec'" "_split_equalsrhs $insertionpattern" [list pipesyntax insertionpattern_invalid]
-                    }
-                    set triple [list $v $indexspec $positionspec]
-                }
-            }
-            lappend return_triples $triple
-            incr i
-        }
-        proc $cmdname {} [list return $return_triples]
-        return $return_triples
-    }
-
-    proc _rhs_tail_split {fullrhs} {
-        set inq 0; set indq 0
-        set equalsrhs ""
-        set i 0
-        foreach ch [split $fullrhs ""] {
-            if {$inq} {
-                append equalsrhs $ch
-                if {$ch eq {'}} {
-                    set inq 0
-                }
-            } elseif {$indq} {
-                append equalsrhs $ch
-                if {$ch eq {"}} {
-                    set indq 0
-                }
-            } else {
-                switch -- $ch {
-                    {'} {
-                        set inq 1
-                    }
-                    {"} {
-                        set indq 1
-                    }
-                    " "  {
-                        #whitespace outside of quoting
-                        break
-                    }
-                    0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - z {}
-                    default {
-                        #\t not a literal for switch jumpTable bytecompile - review - can we do it without for example string mapping to <t> (and without a literal binary tab in source file)?
-                        #we can't (reliably?) put \t as one of our switch keys
-                        #
-                        if {$ch eq "\t"} {
-                            break
-                        }
-                    }
-                }
-                append equalsrhs $ch
-            }
-            incr i
-        }
-        set tail [tcl::string::range $fullrhs $i end]
-        return [list $equalsrhs $tail]
-    }
-
-    #todo - recurse into bracketed sub parts
-    #JMN3
-    #e.g @*/(x@0,y@2)  
-    proc _var_classify {multivar} {
-        set cmdname ::punk::pipecmds::var_classify::_[pipecmd_namemapping $multivar]
-        if {[info commands $cmdname] ne ""} {
-            return [$cmdname]
-        }
-
-
-        #comma seems a natural choice to split varspecs,
-        #but also for list and dict subelement access 
-        #/ normally indicates some sort of hierarchical separation - (e.g in filesytems)
-        #so / will indicate subelements e.g @0/1 for lindex $list 0 1
-        #set valsource_key_list [_split_var_key_at_unbracketed_comma $multivar]
-        set valsource_key_list [_split_patterns_memoized $multivar]
-
-
-
-        #mutually exclusive - atom/pin
-        #set map [list "" ' ^ &] ;#0 = default/var/not-yet-determined  1 = atom 2 = pin
-        #set var_class [lmap var $valsource_key_list {expr {([set m [lsearch $map [string index [lindex $var 0] 0]]] >= 0) ? [list $var $m] : [list $var 0]}}]
-        #0 - novar
-        #1 - atom '
-        #2 - pin  ^
-        #3 - boolean  &
-        #4 - integer
-        #5 - double
-        #6 - var
-        #7 - glob  (no classifier and contains * or ?)
-        #8 - numeric
-        #9 - > (+)
-        #10 - < (-)
-
-        set var_names [list]
-        set var_class [list]
-        set varspecs_trimmed [list] ;#raw varspecs without pin/atom modifiers - or empty string for glob
-      
-
-        set leading_classifiers [list "'" "&" "^" ]
-        set trailing_classifiers [list + -]
-        set possible_number_start [list - + . 0 1 2 3 4 5 6 7 8 9 > <]
-
-        foreach v_key $valsource_key_list {
-            lassign $v_key v key
-            set vname $v ;#default
-            set classes [list]
-            if {$v eq ""} {
-                lappend var_class [list $v_key 0]
-                lappend varspecs_trimmed $v_key
-            } else {
-                set lastchar [string index $v end]
-                switch -- $lastchar {
-                    + {
-                        lappend classes 9 
-                        set vname [string range $v 0 end-1]
-                    }
-                    - {
-                        lappend classes 10
-                        set vname [string range $v 0 end-1]
-                    }
-                }
-                set firstchar [string index $v 0]
-                switch -- $firstchar {
-                    ' {
-                        lappend var_class [list $v_key 1]
-                        #set vname [string range $v 1 end]
-                        lappend varspecs_trimmed [list $vname $key]
-                    }
-                    ^ {
-                        lappend classes [list 2]
-                        #use vname - may already have trailing +/- stripped
-                        set vname [string range $vname 1 end]
-                        set secondclassifier [string index $v 1]
-                        switch -- $secondclassifier {
-                            "&" {
-                                #pinned boolean
-                                lappend classes 3
-                                set vname [string range $v 2 end]
-                            }
-                            "#" {
-                                #pinned numeric comparison instead of string comparison
-                                #e.g set x 2
-                                # this should match:  ^#x.= list 2.0 
-                                lappend classes 8
-                                set vname [string range $vname 1 end]
-                            }
-                            "*" {
-                                #pinned glob
-                                lappend classes 7
-                                set vname [string range $v 2 end]
-                            }
-                        }
-                        #todo - check for second tag - & for pinned boolean?
-                        #consider requiring ^# for numeric comparisons. currently no way to do a strictly string comparison on pinned variables.... default ^var really shouldn't be doing any magic.
-                        #while we're at it.. pinned glob would be nice.  ^*   
-                        #maybe even pinned scan ^% ?    regex? ^/ or ^?  these would be hard to have corresponding literals in the pattern mini-lang.
-                        #These all limit the range of varnames permissible - which is no big deal.
-                        lappend var_class [list $v_key $classes]
-                        lappend varspecs_trimmed [list $vname $key]
-                    }
-                    & {
-                        #we require boolean literals to be single-quoted so we can use cross-binding on boolean vars.
-                        #ie &true is the variable true whereas &'true' or &'1' &'t' etc are literal booleans
-                        #allow exception of &1 &0  to be literal booleans - because we disallow 0 & 1 as varnames in other contexts anyway - so it would be more consistent not to treat as varnames here.
-                        lappend var_class [list $v_key 3]
-                        set vname [string range $v 1 end]
-                        lappend varspecs_trimmed [list $vname $key]
-                    }
-                    default {
-                        if {([string first ? $v]) >=0 || ([string first * $v] >=0)} {
-                            lappend var_class [list $v_key 7] ;#glob
-                            #leave vname as the full glob
-                            lappend varspecs_trimmed [list "" $key]
-                        } else {
-                            #scan vname not v - will either be same as v - or possibly stripped of trailing +/-
-                            set numtestv [join [scan $vname %lld%s] ""] ;# handles octals (leading zeros),  ok for use with bignums, decimal points and sci notation - fails to handle leading dot e.g .5  
-                            #leading . still need to test directly for double
-                            if {[string is double -strict $vname] || [string is double -strict $numtestv]} {
-                                if {[string is integer -strict $numtestv]} {
-                                    #this will pick up boolean 1 or 0 - but that's ok - they require "&" marker if boolean comparison desired
-                                    #integer test before double.. 
-                                    #note there is also string is wide (string is wideinteger) for larger ints.. 
-                                    lappend classes 4
-                                    lappend var_class [list $v_key $classes]
-                                    lappend varspecs_trimmed $v_key
-                                } else {
-                                    #double
-                                    #sci notation 1e123 etc
-                                    #also large numbers like 1000000000  - even without decimal point - (tcl bignum)
-                                    lappend classes 5
-                                    lappend var_class [list $v_key $classes]
-                                    lappend varspecs_trimmed $v_key
-                                }
-                            } else {
-                                lappend var_class [list $v_key 6] ;#var
-                                lappend varspecs_trimmed $v_key
-                            }
-                        }
-                    }
-                }
-            }
-            lappend var_names $vname
-        }
-
-        set result [list var_names $var_names var_class $var_class varspecs_trimmed $varspecs_trimmed]
-
-        proc $cmdname {} [list return $result]
-        #JMN
-        #debug.punk.pipe.compile {proc $cmdname}
-        return $result
-    }
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::pipe::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-#tcl::namespace::eval punk::pipe::system {
-    #*** !doctools
-    #[subsection {Namespace punk::pipe::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-#}
-
-
-# == === === === === === === === === === === === === === === 
-# Sample 'about' function with punk::args documentation
-# == === === === === === === === === === === === === === === 
-tcl::namespace::eval punk::pipe {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    variable PUNKARGS
-    variable PUNKARGS_aliases
-
-    lappend PUNKARGS [list {
-            @id     -id "(package)punk::pipe"
-            @package    -name "punk::pipe" -help\
-            "Package 
-            Description"
-        }]
-
-    namespace eval argdoc {
-        #namespace for custom argument documentation
-        proc package_name {} {
-            return punk::pipe
-        }
-        proc about_topics {} {
-            #info commands results are returned in an arbitrary order (like array keys)
-            set topic_funs [info commands [namespace current]::get_topic_*]
-            set about_topics [list]
-            foreach f $topic_funs {
-                set tail [namespace tail $f]
-                lappend about_topics [string range $tail [string length get_topic_] end] 
-            }
-            return $about_topics
-        }
-        proc default_topics {} {return [list Description outline *]}
-
-        # -------------------------------------------------------------
-        # get_topic_ functions add more to auto-include in about topics 
-        # -------------------------------------------------------------
-        proc get_topic_Description {} {
-             punk::args::lib::tstr [string trim { 
-                punk pipeline features
-            } \n]
-        }
-        proc get_topic_License {} {
-            return "MIT"
-        }
-        proc get_topic_Version {} {
-            return $::punk::pipe::version 
-        }
-        proc get_topic_Contributors {} {
-            set authors {{Julian Noble <julian@precisium.com.au>}}
-            set contributors ""
-            foreach a $authors {
-                append contributors $a \n
-            }
-            if {[string index $contributors end] eq "\n"} {
-                set contributors [string range $contributors 0 end-1]
-            }
-            return $contributors
-        }
-        proc get_topic_outline {} {
-            punk::args::lib::tstr -return string {
-                todo..
-            }
-        }
-        # -------------------------------------------------------------
-    }
-
-    # we re-use the argument definition from punk::args::standard_about and override some items
-    set overrides [dict create]
-    dict set overrides @id  -id   "::punk::pipe::about"
-    dict set overrides @cmd -name "punk::pipe::about" 
-    dict set overrides @cmd -help [string trim [punk::args::lib::tstr {
-                            About punk::pipe 
-                            }] \n]
-    dict set overrides topic -choices           [list {*}[punk::pipe::argdoc::about_topics] *]
-    dict set overrides topic -choicerestricted  1
-    dict set overrides topic -default [punk::pipe::argdoc::default_topics] ;#if -default is present 'topic' will always appear in parsed 'values' dict
-    set newdef [punk::args::resolved_def -antiglobs -package_about_namespace -override $overrides ::punk::args::package::standard_about *]
-    lappend PUNKARGS [list $newdef]
-    proc about {args} {
-        package require punk::args
-        #standard_about accepts additional choices for topic - but we need to normalize any abbreviations to full topic name before passing on
-        set argd [punk::args::parse $args withid ::punk::pipe::about]
-        lassign [dict values $argd] _leaders opts values _received
-        punk::args::package::standard_about -package_about_namespace ::punk::pipe::argdoc {*}$opts {*}[dict get $values topic]
-    }
-}
-# end of sample 'about' function
-# == === === === === === === === === === === === === === === 
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::pipe
-}
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::pipe [tcl::namespace::eval punk::pipe {
-    variable pkg punk::pipe
-    variable version
-    set version 1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm
deleted file mode 100644
index 7d93d529..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm
+++ /dev/null
@@ -1,3691 +0,0 @@
-
-#punk linerepl
-#todo - make repls configurable/pluggable packages
-
-
-#list/string-rep bug
-global run_commandstr ""
-
-set stdin_info [chan configure stdin]
-if {[dict exists $stdin_info -inputmode]} {
-    #this is the only way I currently know to detect console on windows.. doesn't work on Alma linux.
-    # tcl_interactive used by repl to determine if stderr output prompt to be printed.
-    # (that way, piping commands into stdin should not produce prompts for each command)
-    set tcl_interactive 1
-}
-#however, the -mode option only seems to appear on linux when a terminal exists..
-if {[dict exists $stdin_info -mode]} {
-    set tcl_interactive 1
-}
-#give up for now
-set tcl_interactive 1
-
-#-------------------------------------------------------------------------------------
-if {[package provide punk::libunknown] eq ""} {
-    #maintenance - also in src/vfs/_config/punk_main.tcl
-    set libunks [list]
-    foreach tm_path [tcl::tm::list] {
-        set punkdir [file join $tm_path punk]
-        if {![file exists $punkdir]} {continue}
-        lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm]
-    }
-    set libunknown ""
-    set libunknown_version_sofar ""
-    foreach lib $libunks {
-        #expecting to be of form libunknown-<tclversion>.tm
-        set vtail [lindex [split [file tail $lib] -] 1]
-        set thisver [file rootname $vtail] ;#file rootname x.y.z.tm
-        if {$libunknown_version_sofar eq ""} {
-            set libunknown_version_sofar $thisver
-            set libunknown $lib
-        } else {
-            if {[package vcompare $thisver $libunknown_version_sofar] == 1} {
-                set libunknown_version_sofar $thisver
-                set libunknown $lib
-            }
-        }
-    }
-    if {$libunknown ne ""} {
-        source $libunknown
-        if {[catch {punk::libunknown::init -caller triggered_by_repl_package_require} errM]} {
-            puts "error initialising punk::libunknown\n$errM"
-        }
-    }
-} else {
-    #This should be reasonably common - a punk shell will generally have libunknown loaded
-    # but to start a subshell we load punk::repl
-    #puts stderr "loading repl package - punk::libunknown [package provide punk::libunknown] already loaded"
-}
-#-------------------------------------------------------------------------------------
-
-
-
-
-package require Thread
-package require shellfilter
-#package require shellrun
-#package require punk
-package require punk::lib
-package require punk::args
-package require punk::aliascore
-if {[catch {punk::aliascore::init} errM]} {
-    puts stderr "punk::aliascore::init error: $errM"
-}
-package require punk::config
-package require punk::ns
-package require punk::ansi
-package require punk::console
-package require textblock
-
-
-
-
-
-if {![info exists ::env(SHELL)]} {
-    set ::env(SHELL) punk86
-}
-if {![info exists ::env(TERM)]} {
-    # tset -r seems to rely on env(TERM) - so this doesn't seem to work
-    #if {![catch {exec tset -r} result]} {
-    #    #e.g Terminal type is xterm-256color.
-    #    set t [string trimright [lindex $result end] .]
-    #    set ::env(TERM) $t
-    #} else {
-        #fake it ?
-        #set ::env(TERM) vt100
-        set ::env(TERM) xterm-256color
-    #}
-}
-
-#todo - move to less generic namespace ie punk::repl
-namespace eval repl {
-    variable  codethread
-    if {![info exists codethread]} {
-        set codethread ""
-    }
-    variable  codethread_cond
-
-    variable screen_last_chars "" ;#a small sliding append buffer for last char of any screen output to detect \n vs string
-    variable screen_last_char_list [list]
-
-    #variable last_unknown ""
-    tsv::set repl last_unknown ""
-    tsv::set console is_raw 0
-    variable output ""
-    #important not to initialize - as it can be preset by cooperating package before app-punk has been package required
-    #(this is an example of a deaddrop)
-    variable post_script
-}
-namespace eval punk::repl::class {
-    oo::class create con {
-        variable o_data ;#dict
-        constructor {} {
-            set o_data [dict create]
-        }
-        method info {} {
-            return [dict info $o_data]
-        }
-    }
-}
-namespace eval punk::repl {
-    tsv::set repl runid 0
-
-    #todo - key on shell/subshell
-    tsv::set repl runchunks-0 [list] ;#last_run_display
-
-
-    variable debug_repl 0
-    variable signal_control_c 0
-    variable signal_control_c_msg ""
-    variable prompt_reset_flag 0 ;#trigger repl to re-retrieve prompt settings
-
-    proc todo {} {
-        puts "tcl History"
-        puts "repltelemetry package"
-        puts "deaddrop package for a consistent way for modules to leave small notes to others that may come later."
-    }
-
-    #since we are targeting Tcl 8.6+ - we should be using 'interp bgerror .'
-    #todo - make optional/configurable?
-    proc bgerror2 {args} {
-        puts stderr "===================="
-        puts stderr "punk::repl::bgerror"
-        puts stderr "===================="
-        puts stderr "[lindex $args 0]"
-        puts stderr "-------------------"
-        puts stderr "[lrange $args 1 end]"
-        puts stderr "===================="
-        puts stderr "^^^^^^^^^^^^^^^^^^^"
-    }
-    proc bgerror {args} {
-        set message [lindex $args 0]
-        set errdict [lindex $args 1]
-        puts stderr "\n*> repl background error: '$message'"
-        #puts stderr "*> [set ::errorInfo]"
-        puts stderr "*> errorinfo: [dict get $errdict -errorinfo]"
-        set stdinreader [chan event stdin readable]
-        if {![string length $stdinreader]} {
-            puts stderr "*> stdin reader inactive"
-        } else {
-            puts stderr "*> stdin reader active"
-        }
-        flush stderr
-    }
-
-    if {![llength [info commands ::bgerror]]} {
-        #interp alias {} bgerror {} ::punk::repl::bgerror
-    }
-    interp bgerror "" ::punk::repl::bgerror
-
-}
-namespace eval repl {
-
-}
-
-proc ::punk::repl::init_signal_handlers {} {
-    if {$::tcl_platform(platform) eq "windows"} {
-            #puts stdout "===============repl loading twapi==========="
-        if {![catch {package require twapi}]} {
-
-            #If script launched with windows batch file - we have to be careful to stop a ctrl-c from eventually reaching the batch file when the program terminates, even if fully handled here.
-            #This is done from within the launching batch file
-            proc ::punk::repl::handler_console_control {args} {
-                variable signal_control_c
-                flush stderr
-                variable signal_control_c_msg
-                switch -- [lindex $args 0] {
-                    ctrl-c {
-                        #puts  stderr "->event $args"
-                        flush stderr
-                        incr signal_control_c
-                        #rputs stderr  "* console_control: $args"
-                        if {[tsv::get console is_raw]} {
-                            if {[lindex $::errorCode 0] eq "CHILDKILLED"} {
-                                #rputs stderr "\n|repl> ctrl-c  errorCode: $::errorCode"
-                                #avoid spurious triggers after interrupting a command..
-                                #review - dodgy.. we just want to interrupt child processes but then still be able to interrupt repl
-                                set ::punk::repl::signal_control_c 0
-                                set preverr [string map {"child killed" "child_killed"} $::errorInfo]
-                                catch {error $preverr}   ;#for errorInfo display
-                                return 42
-                            } else {
-                                #how to let rawmode loop handle it? It doesn't seem to get through if we return 0
-                                #puts stderr "signal ctrl-c  while in raw mode"
-                                #flush stderr
-                                set signal_control_c_msg "signal ctrl-c $signal_control_c rawmode"
-                                if {[catch {
-                                    lassign [punk::console::get_size] _w console_width _h console_height
-                                } errM]} {
-                                    puts stderr "signal ctrl-c error get_size error:$errM"
-                                }
-
-                                if {$signal_control_c < 3} {
-                                    set remaining [expr {3 - $signal_control_c}]
-                                    if {[catch {
-                                        punk::repl::console_controlnotification "[a+ web-orange]ctrl-c ($remaining more to quit, enter to continue)[a]" $console_width $console_height
-                                    } errM]} {
-                                        puts stderr "signal ctrl-c error console_controlnotification error:$errM"
-                                    }
-                                } elseif {$signal_control_c == 3} {
-                                    #puts stderr "signal ctrl-c x3 received - quitting."
-                                    if {[catch {
-                                        punk::repl::console_controlnotification "ctrl-c x3 received - quitting punk shell" $console_width $console_height
-                                    } errM]} {
-                                        puts stderr "signal ctrl-c error console_controlnotification error:$errM"
-                                    }
-                                    flush stderr
-                                    after 25
-                                    quit
-                                    return 1
-                                } elseif {$signal_control_c > 5} {
-                                    #fallback if quit didn't work
-                                    #puts stderr "signal ctrl-c $signal_control_c received - sending to default handler"
-                                    if {[catch {
-                                        punk::repl::console_controlnotification "ctrl-c $signal_control_c received - sending to default handler" $console_width $console_height
-                                    } errM]} {
-                                        puts stderr "signal ctrl-c error console_controlnotification error:$errM"
-                                    }
-                                    flush stderr
-                                    punk::console::mode line
-                                    return 0
-                                }
-
-                                return 1
-                                #after 200 {exit 42} ;#temp
-                                #return 42
-                            }
-                        }
-
-
-                        if {[lindex $::errorCode 0] eq "CHILDKILLED"} {
-                            set signal_control_c 0
-                            set preverr [string map {"child killed" "child_killed"} $::errorInfo]
-                            catch {error $preverr}   ;#for errorInfo display
-                            return 42
-                        }
-                        if {[catch {
-                            lassign [punk::console::get_size] _w console_width _h console_height
-                        } errM]} {
-                            puts stderr "signal ctrl-c error get_size error:$errM"
-                        }
-
-                        #note - returning 0 means pass event to other handlers including OS default handler
-                        if {$signal_control_c <= 2} {
-                            set remaining [expr {3 - $signal_control_c}]
-                            #puts stderr "signal ctrl-c (perform $remaining more to quit, enter to return to repl)"
-                            #flush stderr
-                            if {[catch {
-                                punk::repl::console_controlnotification "ctrl-c ($remaining more to quit, enter to continue)" $console_width $console_height
-                            } errM]} {
-                                puts stderr "signal ctrl-c error console_controlnotification error:$errM"
-                            }
-                            return 1
-                        } elseif {$signal_control_c == 3} {
-                            #puts stderr "signal ctrl-c x3 received - quitting."
-                            if {[catch {
-                                punk::repl::console_controlnotification "ctrl-c x3 received - quitting punk shell" $console_width $console_height
-                            } errM]} {
-                                puts stderr "signal ctrl-c error console_controlnotification error:$errM"
-                            }
-                            flush stderr
-                            after 25
-                            quit
-                            return 1
-                        } elseif {$signal_control_c == 4} {
-                            puts stderr "signal ctrl-c x4 received - one more to hard exit"
-                            flush stderr
-                            return 1
-                        } elseif {$signal_control_c >= 5} {
-                            #a script that allows events to be processed could still be running
-                            puts stderr "signal ctrl-c x5 received - hard exit"
-                            flush stderr
-                            after 25
-                            exit 499 ;# HTTP 'client closed request' - just for the hell of it.
-                        } else {
-                            puts stderr "signal ctrl-c $signal_control_c received"
-                            flush stderr
-                            #return 0 to fall through to default handler
-                            return 0
-                        }
-
-                        }
-                    default {
-                        puts stderr "unhandled console signal $args"
-                        return 1
-                    }
-                }
-            }
-            twapi::set_console_control_handler ::punk::repl::handler_console_control
-            #we can't yet emit from an event with proper prompt handling -
-            #repl::rputs stdout "twapi loaded"
-        } else {
-            #repl::rputs stderr " Failed to load twapi"
-        }
-    } else {
-        #TODO
-    }
-}
-
-#console handler may already be set, but in another thread/interp - so we can't use existence of proc to test
-#we're ok with an existing handler - just catch for now. REVIEW we should make sure it didn't fail the first time
-catch {punk::repl::init_signal_handlers}
-
-
-# moved to punk package..
-#set outdevice [shellfilter::stack::new punkout -settings [list -tag "punkout" -buffering none -raw 1 -syslog [dict get $::punk::config::running syslog_stdout] -file [dict get $::punk::config::running logfile_stdout]]]
-#set out [dict get $outdevice localchan]
-#set errdevice [shellfilter::stack::new punkerr -settings [list -tag "punkerr" -buffering none -raw 1 -syslog [dict get $::punk::config::running syslog_stderr] -file [dict get $::punk::config::running logfile_stderr]]]
-#set err [dict get $errdevice localchan]
-
-
-
-#
-#set indevice [shellfilter::stack::new commandin -settings {-tag "commandin" -readbuffering line -writebuffering none -raw 1 -direction in}]
-#set program_read_stdin_pipe   [dict get $indevice localchan]
-
-
-
-
-
-proc punk::repl::reset_prompt {} {
-    variable prompt_reset_flag
-    set prompt_reset_flag 1
-}
-
-#aliases  c and clear to this by ::punk
-proc punk::repl::reset_terminal {} {
-    set prompt_reset_flag 1
-    #clear   ;#call to external executable which may not be available
-    puts -nonewline stdout [::punk::ansi::reset]
-}
-
-proc punk::repl::get_prompt_config {} {
-    if {[catch {punk::console::vt52} is_vt52]} {
-        set is_vt52 0
-    }
-    if {$is_vt52} {
-        set resultprompt    "52-"
-        set nlprompt        "52."
-        set infoprompt      "52*"
-        set debugprompt     "52~"
-    } else {
-        if {$::tcl_interactive} {
-            set RST [a]
-            set resultprompt    "[a green bold]-$RST  "
-            set nlprompt        "[a green bold].$RST  "
-            set infoprompt      "[a green bold]*$RST  "
-            set debugprompt    "[a purple bold]~$RST  "
-        } else {
-            set resultprompt    ""
-            set nlprompt        ""
-            set infoprompt      ""
-            set debugprompt     ""
-        }
-    }
-    return [list resultprompt $resultprompt nlprompt $nlprompt infoprompt $infoprompt debugprompt $debugprompt]
-}
-
-proc repl::start {inchan args} {
-    puts stderr "-->repl::start $inchan $args"
-    upvar ::punk::console::input_chunks_waiting input_chunks_waiting
-    if {![info exists input_chunks_waiting($inchan)]} {
-        set input_chunks_waiting($inchan) [list]
-    }
-
-    variable codethread
-    #review
-    if {$codethread eq ""} {
-        error "start - no codethread. call init first. (options -safe 0|1)"
-    }
-    variable commandstr
-
-    # ---
-    variable editbuf
-    variable editbuf_list  ;#command history
-    variable editbuf_linenum_submitted
-    variable editbuf_active_index
-    # ---
-
-    variable reading
-    variable done
-    set done 0
-    variable startinstance
-    variable loopinstance
-    if {[namespace exists ::punkapp]} {
-        #review - document ?
-        if {[dict exists $args -defaultresult]} {
-            set ::punkapp::default_result [dict get $args -defaultresult]
-        }
-    }
-    incr startinstance
-    set loopinstance 0
-    if {[info exists ::punk::ns::ns_current]} {
-        set start_in_ns $::punk::ns::ns_current
-    } else {
-        set start_in_ns ::
-    }
-
-
-    set einf [thread::send $codethread {
-        set ::codethread_initstatus
-    }]
-    if {[lindex $einf 0] ne "ok"} {
-        set err [thread::send $codethread {
-            set ::errorInfo
-        }]
-        puts "--------------------> codethread initstatus: $einf"
-        puts "--------------------> codethread last err: $err"
-    }
-
-    thread::send $codethread [string map [list %ns1% $start_in_ns] {
-        #set ::punk::repl::codethread::running 1
-
-        #the interp in which commands such as d/ run
-        #we need to namespace eval for the -safe interp which may not have the packages loaded (or be able to) but still needs default values
-        #punk::repl::codethread::running is required whether safe or not.
-        interp eval code {
-            namespace eval ::punk::repl::codethread {}
-            set ::punk::repl::codethread::running 1
-            namespace eval ::punk::ns::ns_current {}
-            set ::punk::ns::ns_current %ns1%
-        }
-    }]
-    set commandstr ""
-
-    # ---
-    set editbuf [punk::repl::class::class_editbuf new {}]
-    lappend editbuf_list $editbuf ;#current editbuf is always in the history
-    set editbuf_linenum_submitted  0
-    set editbuf_active_index 0
-    # ---
-
-    if {$::punk::console::ansi_wanted == 2} {
-        if {[::punk::console::test_can_ansi]} {
-            set ::punk::console::ansi_wanted 1
-        } else {
-            set ::punk::console::ansi_wanted -1
-        }
-    }
-    puts stderr "-->repl::start active on $inchan $args replthread:[thread::id] codethread:$codethread"
-    set prompt_config [punk::repl::get_prompt_config]
-    doprompt "P% "
-    chan event $inchan readable [list [namespace current]::repl_handler $inchan $prompt_config]
-    set reading 1
-
-    #catch {
-    #    set punk::console::tabwidth [punk::console::get_tabstop_apparent_width]
-    #}
-    vwait [namespace current]::done
-    chan event $inchan readable {}
-
-
-    #puts stderr "-->start done = $::repl::done"
-    #todo - override exit?
-    #after 0 ::repl::post_operations
-    after idle ::repl::post_operations
-    vwait repl::post_operations_done
-    #puts stderr "-->start post_operations_done = $::repl::post_operations_done"
-    if {[namespace exists ::punkapp]} {
-        #todo check and get punkapp::result array - but what key?
-        if {[info exists ::punkapp::result(shell)]} {
-            set temp $::punkapp::result(shell)
-            unset ::punkapp::result(shell)
-            return $temp
-        } elseif {[info exists ::punkapp::default_result]} {
-            set temp $::punkapp::default_result
-            unset ::punkapp::default_result
-            return $temp
-        }
-    }
-
-
-    variable codethread_cond
-    if {[catch {
-        tsv::unset codethread_$codethread
-    } errM]} {
-        puts stderr " repl::start temp warning - $errM"
-    }
-    thread::cancel $codethread
-    thread::cond destroy $codethread_cond ;#race if we destroy cond before child thread has exited - as it can send a -async quit
-    set codethread ""
-    set codethread_cond ""
-    punk::console::mode line  ;#review - revert to line mode on final exit - but we may be exiting a nested repl
-    set donevalue [set [namespace current]::done]
-    if {[lindex $donevalue 0] eq "quit"} {
-        puts "-->repl::start end $inchan $args result:'$donevalue'"
-        #puts stderr "repl quit --> returning [lindex $donevalue 1]"
-        return [lindex $donevalue 1]
-    }
-    puts "-->repl::start end $inchan $args result:'$donevalue'"
-    #puts stderr "__> returning 0"
-    return 0
-}
-proc repl::post_operations {} {
-    if {[info exists ::repl::post_script] && [string length $::repl::post_script]} {
-       #put aside post_script so the script has the option to add another post_script and restart the repl
-       set ::repl::running_script $::repl::post_script
-       set ::repl::post_script ""
-       uplevel #0 {eval $::repl::running_script}
-    }
-    #todo - tidyup so repl could be restarted
-    set ::repl::post_operations_done 0
-}
-
-
-proc repl::reopen_stdin {} {
-    #variable  reopen_stdin_attempts
-    if {$::tcl_platform(platform) eq "windows"} {
-        puts stderr "|repl> Attempting reconnection of console to stdin by opening 'CON'"
-    } else {
-        puts stderr "|repl> Attempting reconnection of console to stdin by opening '/dev/tty'"
-    }
-    #puts stderr "channels:[chan names]"
-    #flush stderr
-    #catch {chan close stdin}
-    chan close stdin
-
-    if {$::tcl_platform(platform) eq "windows"} {
-        #set s [open "CON" r]
-        set s [open {CONIN$} r]
-        if {[package provide twapi] ne ""} {
-            set h [twapi::get_tcl_channel_handle $s in]
-            twapi::SetStdHandle -10 $h
-        }
-        puts stderr "restarting repl on inputchannel:$s"
-        return [repl::start $s -title "reopen_stdin a"]
-    } else {
-        #/dev/tty - reference to the controlling terminal for a process
-        #review/test
-        set s [open "/dev/tty" r]
-    }
-
-    repl::start stdin -title "reopen_stdin b"
-}
-
-#todo - avoid putting this in gobal namespace?
-#collisions with other libraries apps?
-proc punk::repl::quit {args} {
-    set ::repl::done [list quit {*}$args]
-    #puts stderr "quit called"
-    return "" ;#make sure to return nothing so "quit" doesn't land on stdout
-}
-
-#just a failed experiment.. tried various things
-proc repl::reopen_stdinX {} {
-    #windows  - todo unix
-    package require twapi
-
-    if 0 {
-    if {[catch {package require Memchan} errM]} {
-        #package require tcl::chan::fifo2
-        #lassign [tcl::chan::fifo2] a b
-        package require tcl::chan::fifo
-        set x [tcl::chan::fifo]
-    } else {
-        #lassign [fifo2] a b
-        set x [fifo]
-    }
-    #first channel opened after stdin closed becomes stdin
-    #use a fifo or fifo2 because [chan pipe] assigns the wrong end first!
-    #a will be stdin
-    }
-    #these can't replace proper stdin (filehandle 0) because they're not 'file backed' or 'os level'
-    #try opening a named pipe server to become stdin
-    set pipename {\\.\pipe\stdin_%id%}
-    set pipename [string map [list %id% [pid]] $pipename]
-
-
-
-    package require tcl::chan::fifo
-
-    chan close stdin
-    lassign [tcl::chan::fifo] a
-
-
-    puts stderr "newchan: $a"
-    puts stderr "|test> $a [chan conf $a]"
-
-    #set server [twapi::namedpipe_server $pipename]
-    #set client [twapi::namedpipe_client $pipename] ;#open a client and connect to the server we just made
-
-    puts stderr "chan names: [chan names]"
-
-    #by now $server not valid?
-    #set server stdin
-
-    #chan configure $server -buffering line -encoding unicode
-    #chan configure $client -buffering line -encoding unicode
-
-    #puts stderr "|test>ns-server $server [chan conf $server]"
-    #puts stderr "|test>ns-client $client [chan conf $client]"
-
-    set conin [twapi::get_console_handle stdin]
-    twapi::set_standard_handle stdin $conin
-
-    set h_in [twapi::get_standard_handle stdin]
-
-    puts stderr "|test> $a [chan conf $a]"
-
-    #chan configure $client -blocking 0
-    after 2 repl::start $a
-
-}
-
-#add to sliding buffer of last x chars emmitted to screen by repl
-#(we could maintain only one char - more kept merely for debug assistance)
-#will not detect emissions from exec with stdout redirected and presumably some extensions etc
-proc repl::screen_last_char_add {c what {why ""}} {
-    variable screen_last_chars
-    variable screen_last_char_list
-    if {![string length $c]} {
-        return [string index $screen_last_chars end]
-    }
-    if {[string length $screen_last_chars]  > 10} {
-        set screen_last_chars [string range $screen_last_chars 1 end] ;#evict first char
-        #set screen_last_char_list [lrange $screen_last_char_list 1 end]
-        #native lpop or punk::lib::compat::lpop
-        #lpop screen_last_char_list 0
-        #native ledit or punk::lib::compat::ledit
-        ledit screen_last_char_list 0 0
-    }
-    append screen_last_chars $c
-    lappend screen_last_char_list [list $c $what $why]
-    #return [string index $screen_last_chars end]
-    #return [lindex $screen_last_char_list 0 0]
-    return [lindex $screen_last_char_list end 0]
-}
-proc repl::screen_last_char_get {} {
-    variable screen_last_char_list
-    return [lindex $screen_last_char_list end 0]
-}
-proc repl::screen_last_char_getinfo {} {
-    variable screen_last_char_list
-    return [lindex $screen_last_char_list end]
-}
-
-#--------------------------------------
-#another experiment
-proc repl::newout {} {
-    namespace eval ::replout {
-        namespace ensemble create -map {
-            initialize init
-            finalize close
-            watch watch
-            write write
-        }
-    }
-    proc ::replout::init {id mode} {
-        return {initialize finalize watch write}
-    }
-    proc ::replout::close {id} {
-
-    }
-    proc ::replout::watch {id spec} {
-
-    }
-    proc ::replout::write {id data} {
-        puts -nonewline stderr $data
-        return [string length $data]
-    }
-
-    close stdout
-    set fd [chan create write ::replout]
-    chan configure $fd -buffering none
-    return $fd
-}
-interp alias {} newout {} repl::newout
-proc repl::newout2 {} {
-    close stdout
-    set s [open "CON" w]
-    chan configure $s -buffering none
-}
-#--------------------------------------
-
-proc repl::doprompt {prompt {col {green bold}}} {
-    #prompt to stderr.
-    #We can pipe commands into repl's stdin without the prompt interfering with the output.
-    #Although all command output for each line goes to stdout - not just what is emitted with puts
-
-    if {$::tcl_interactive} {
-        flush stdout; #we are writing this prompt on stderr, but stdout could still be writing to screen
-        #our first char on stderr is based on the 'lastchar' of stdout  which we have recorded but may not have arrived on screen.
-        #The issue we're trying to avoid is the (stderr)prompt arriving midway through a large stdout chunk
-        #REVIEW - this basic attempt to get stderr/stdout to cooperate is experimental and unlikely to achieve the desired effect in all situations
-        #It the above flush does seem to help though.
-        #note that our 'flush stdout' tcl call does not wait if stdout is non-blocking
-        #todo - investigate if the overhead is reasonable for a special channel that accepts stdout and stderr records with a reader to send to console in chunk-sizes we know will be emitted correctly
-        #  - reader of such channel could be ok to be blocking (on read? on write to real channels?)... except everything still needs to be interruptable by things like signals?
-        #? - we want ordinary puts to stderr to be prioritized? to arrive on-screen - just not at arbitrary locations within stdout, and still must be correctly ordered wrt all other stderr
-        #  - in our repl and code threads we don't want to put stderr/stdout writes in blocking mode and have code waiting on it
-
-        set last_char_info [screen_last_char_getinfo]
-        if {![llength $last_char_info]} {
-            set needs_clearance 1
-        } else {
-            lassign $last_char_info c what why
-            if {$why eq "prompt"} {
-                set needs_clearance 0
-            } else {
-                set needs_clearance [screen_needs_clearance]
-                #puts -nonewline "-->$needs_clearance $last_char_info"
-            }
-        }
-        if {$needs_clearance == 1} {
-            set c \n
-        } else {
-            set c ""
-        }
-        set pre ""
-        if {[string first \n $prompt] >=0} {
-            set plines [split $prompt \n]
-            set pre [join [lrange $plines 0 end-1] \n]\n
-            set prompt [lindex $plines end]
-        }
-
-        #this sort of works - but steals some of our stdin data ? review
-        #
-        #lassign [punk::console::get_cursor_pos_list] column row
-        #if {$row != 1} {
-        #    set c "\n"
-        #}
-
-        set o [a {*}$col]
-        set r [a]
-        puts -nonewline stderr $c$pre$o$prompt$r
-        screen_last_char_add " " "prompt-stderr" prompt
-        flush stderr
-    }
-}
-
-#use rputs in repl_handler instead of puts
-# -  to help ensure we don't emit extra blank lines in info or debug output
-#rputs expects the standard tcl 'puts' command to be in place.
-# all bets are off if this has been redefined with some other api
-# rputs deliberately doesn't check screen_last_chars before emitting data (unless reporting an error in rputs itself)
-proc repl::rputs {args} {
-    variable screen_last_chars
-    variable last_out_was_newline
-    variable last_repl_char
-
-    set pseudo_map [dict create\
-        debug stderr\
-        debugreport stderr\
-    ]
-
-    if {[::tcl::mathop::<= 1 [llength $args] 3]} {
-        set out [lindex $args end]
-        append out ""; #copy on write
-        if {([llength $args] > 1) && [lindex $args 0] ne "-nonewline"} {
-            set this_tail \n
-            set rputschan [lindex $args 0]
-            #map pseudo-channels to real
-            if {$rputschan in [dict keys $pseudo_map]} {
-                lset args 0 [dict get $pseudo_map $rputschan]
-            }
-        } elseif {[llength $args] == 1} {
-            set this_tail \n
-            set rputschan "stdout"
-        } else {
-            #>1 arg with  -nonewline
-            set this_tail [string index $out end]
-            set rputschan [lindex $args 1]
-            #map pseudo-channels to real
-            if {$rputschan in [dict keys $pseudo_map]} {
-                lset args 0 [dict get $pseudo_map $rputschan]
-            }
-        }
-        set last_char_info_width 60
-        #review - string shouldn't be truncated prior to ansistrip - could chop ansi codes!
-        set out_plain_text [punk::ansi::ansistrip $out]
-        set summary [string range $out_plain_text 0 $last_char_info_width]
-        if {[string length $summary] > $last_char_info_width} {
-            append summary " ..."
-        }
-
-        #make sure we use supplied rputschan in the screen_las_char_add 'what' - which may not be the underlying chan if it was a pseudo
-        screen_last_char_add $this_tail repl-$rputschan $summary
-
-        try {
-            puts {*}$args
-        } on error {repl_error erropts} {
-            #possible error depending on -encoding and -profile of the channel
-            #(e.g -profile strict)
-
-            #REVIEW
-            #TODO - something better
-            #failure case:
-            #set x \ud83c\udf1e
-            #(2 surrogate pairs - treated as single char in tcl8  - fixed in 9 but won't/can't be backported) -
-            #see also: https://core.tcl-lang.org/tips/doc/trunk/tip/619.md
-            puts  stderr "$repl_error"
-        }
-    } else {
-        #looks like an invalid puts call - use the normal error produced by the puts command
-        #This should only occur if the repl itself is being rewritten/debugged,
-        #so we will use red "!" and not worry about the extra newlines before and after
-        if {[catch { puts {*}$args } err]} {
-            set c [a yellow bold]
-            set n [a]
-            #possibly non punk-compliant output because we're assuming the repl was the most recent emitter
-            #could be wrong, in which case we may emit an extra newline
-            #- shouldn't matter in this case
-            #set last_char [string range $screen_last_chars end]
-            set last_char [screen_last_char_get]
-            if {$last_char eq "\n"} {
-                set clear ""
-            } else {
-                set clear "\n"
-            }
-            puts -nonewline stderr "$clear[a red bold]! REPL ERROR IN rputs $c$err$n\n"
-            screen_last_char_add "\n" replerror "rputs err: '$err'"
-            return
-        } else {
-            #?? shouldn't happen with standard puts command
-            #do our best and assume final arg is still the data being emitted
-            #worst that will happen is we won't detect a trailing newline and will later emit an extra blank line.
-            set out [lindex $args end]
-            set this_tail [string index $out end]
-            screen_last_char_add $this_tail replunknown "rputs $args"
-            return
-        }
-    }
-}
-#whether we need a newline as clearance from previous output
-#review - race with copy pasted data, hold-down of enter key
-# and data from external process or background script that doesn't go through our stdout filter
-#we probably can't use get_cursor_pos - as that needs to emit to stdout and read-loop on stdin which will possibly? make things worse
-proc repl::screen_needs_clearance {} {
-    variable screen_last_chars
-
-    #set last_char [string index $screen_last_chars end]
-    set last_char_info [screen_last_char_getinfo]
-    if {![llength $last_char_info]} {
-        #assumption
-        return 1
-    }
-    lassign $last_char_info c what why
-    switch -- $what {
-        stdout - stderr - stdout/stderr {
-            return 1
-        }
-    }
-    return [expr {$c ne "\n"}]
-}
-
-namespace eval repl {
-    variable  startinstance 0
-    variable  loopinstance 0
-    variable in_repl_handler [list]
-    variable last_controlc_count 0
-}
-
-namespace eval punk::repl::class {
-    oo::class create class_bufman {
-
-    }
-
-    #multiline editing buffer
-    oo::class create class_editbuf {
-        variable o_context
-        variable o_config
-
-        variable o_rendered_lines
-        variable o_remaining ;#?
-
-        #o_chunk_list & o_chunk_info should make timed viewing of replays possible
-        variable o_chunk_list
-        variable o_chunk_info  ;#arrival timing etc
-        variable o_cursor_row
-        variable o_cursor_col
-        variable o_insert_mode
-        constructor {configdict {contextdict {}}} {
-            my clear
-            set o_config $configdict
-            if {[dict exists $configdict rendered_initialchunk]} {
-                #pre-rendered initial chunk
-                #--
-                set o_chunk_list "" ;#replace empty chunk from 'clear' call
-                set o_chunk_info [dict create]
-                #--
-                set ch [dict get $configdict rendered_initialchunk]
-                my add_rendered_chunk $ch
-            }
-
-            set o_context $contextdict
-            #error "[self class].constructor Unable to interpret config '$o_config'"
-        }
-        method cursor_row {} {
-            return $o_cursor_row
-        }
-        method cursor_column {} {
-            return $o_cursor_col
-        }
-        method insert_mode {} {
-            return $o_insert_mode
-        }
-        method clear {} {
-            set o_rendered_lines [list ""]
-            set o_chunk_list [list]
-            set o_chunk_info [dict create]
-            set o_cursor_row 1
-            set o_cursor_col 1
-            set o_insert_mode 1 ;#default to insert mode
-            lappend o_chunk_list ""
-            dict set o_chunk_info 0 [dict create micros [clock microseconds] type rendered]
-        }
-        method add_chunk {chunk} {
-            #we still split on lf - but each physical line may contain horizontal or vertical movements so we need to feed each line in and possibly get an overflow_right and unapplied and cursor-movent return info
-            lappend o_chunk_list $chunk ;#may contain newlines,horizontal/vertical movements etc - all ok
-            dict set o_chunk_info [expr {[llength $o_chunk_list] -1}] [dict create micros [clock microseconds] type raw]
-            if {$chunk eq ""} {
-                return
-            }
-
-            set firstnl [string first \n $chunk]
-            set newparts [split $chunk \n]
-            #attempt to render new 'lines' into the editbuffer - taking account of active cursor row & col & insertmode
-
-            #merge based on current cursor row and col
-            #set lastrline [lindex $o_rendered_lines end]
-            #set n0 [lindex $newparts 0]
-            #set merged0 [string cat $lastrline $n0]
-
-            #we should merge first row of newparts differently in case our chunks split a grapheme-combination?
-            #
-            if {$o_cursor_row < 1} {
-                puts stderr "add_chunk warning cursor_row < 1 - changing to minimum value 1"
-                set o_cursor_row 1
-            }
-            set cursor_row_idx [expr {$o_cursor_row -1}]
-            set activeline [lindex $o_rendered_lines $cursor_row_idx]
-            set new0 [lindex $newparts 0]
-            #set combined [string cat $activeline $new0]
-            #use -cursor_row to tell renderline it's row context.
-            if {$firstnl >=0} {
-                #append combined \n
-                append new0 \n
-            }
-            set underlay [punk::ansi::ansistrip $activeline]
-            set line_nextchar_col [expr {[punk::char::string_width $underlay] + 1}]
-            if {$o_cursor_col > $line_nextchar_col} {
-                set o_cursor_col $line_nextchar_col
-            }
-
-            set mergedinfo [overtype::renderline -info 1 -expand_right 1 -insert_mode $o_insert_mode -cursor_column $o_cursor_col -cursor_row $o_cursor_row $underlay $new0]
-
-            set result          [dict get $mergedinfo result]
-            set o_insert_mode   [dict get $mergedinfo insert_mode]
-            set result_col      [dict get $mergedinfo cursor_column]
-            set result_row      [dict get $mergedinfo cursor_row]
-            set overflow_right  [dict get $mergedinfo overflow_right] ;#should be empty if no \v
-            set unapplied       [dict get $mergedinfo unapplied]
-            set instruction     [dict get $mergedinfo instruction]
-
-            set insert_lines_below [dict get $mergedinfo insert_lines_below]
-            set insert_lines_above [dict get $mergedinfo insert_lines_above]
-
-            # -- --- --- --- --- ---
-            set debug_first_row 2
-            #puts "merged: $mergedinfo"
-            set debug "add_chunk0"
-            append debug \n $mergedinfo
-            append debug \n "input:[ansistring VIEW -lf 1 -vt 1 $new0] before row:$o_cursor_row after row: $result_row before col:$o_cursor_col after col:$result_col"
-            package require textblock
-            set debug [textblock::frame -checkargs 0 -buildcache 0 $debug]
-            if {![punk::console::vt52]} {
-                catch {punk::console::move_emitblock_return $debug_first_row 1 $debug}
-            } else {
-                #??
-            }
-            # -- --- --- --- --- ---
-
-            set o_cursor_col $result_col
-            set cursor_row_idx [expr {$o_cursor_row-1}]
-            lset o_rendered_lines $cursor_row_idx $result
-
-            set nextrow $result_row
-            switch -- $instruction {
-                lf_start {
-                    #for normal commandline - we just add a line below
-                    lappend o_rendered_lines ""
-                    incr nextrow
-                    set o_cursor_col 1
-                }
-            }
-
-            if {$insert_lines_below == 1} {
-                if {[string length $overflow_right]} {
-                    lappend o_rendered_lines $overflow_right
-                    set o_cursor_col [expr {[punk::ansi::printing_length $overflow_right] +1}]
-                } else {
-                    lappend o_rendered_lines ""
-                    set o_cursor_col 1
-                }
-            } elseif {$insert_lines_above == 1} {
-                #for {set i 0} {$i < $insert_lines_above} {incr i} {
-                #    set o_rendered_lines [linsert $o_rendered_lines $cursor_row_idx ""]
-                #    incr nextrow -1
-                #}
-                set o_rendered_lines [linsert $o_rendered_lines $cursor_row_idx ""]
-                set o_cursor_col 1
-            }
-
-            set o_cursor_row $nextrow
-            set cursor_row_idx [expr {$o_cursor_row-1}]
-            if {$cursor_row_idx < [llength $o_rendered_lines]} {
-                set activeline [lindex $o_rendered_lines $cursor_row_idx]
-            } else {
-                lappend o_rendered_lines ""
-                set activeline ""
-            }
-
-
-            set i 1
-            foreach p [lrange $newparts 1 end] {
-                if {$i < [llength $newparts]-1} {
-                    append p \n
-                } else {
-                    if {$p eq ""} {
-                        break
-                    }
-                }
-                #puts stderr "overtype::renderline -info 1 -expand_right 1 -insert_mode $o_insert_mode -cursor_column $o_cursor_col -cursor_row $o_cursor_row $activeline '$p'"
-                set underlay $activeline
-                set line_nextchar_col [expr {[punk::char::string_width $underlay] + 1}]
-                if {$o_cursor_col > $line_nextchar_col} {
-                    set o_cursor_col $line_nextchar_col
-                }
-                set mergedinfo [overtype::renderline -info 1 -expand_right 1 -insert_mode $o_insert_mode -cursor_column $o_cursor_col -cursor_row $o_cursor_row $underlay $p]
-                set debug "add_chunk$i"
-                append debug \n $mergedinfo
-                append debug \n "input:[ansistring VIEW -lf 1 -vt 1 $p]"
-                set debug [textblock::frame -checkargs 0 -buildcache 0 $debug]
-                #catch {punk::console::move_emitblock_return [expr {$debug_first_row + ($i * 6)}] 1 $debug}
-
-                set result          [dict get $mergedinfo result]
-                set o_insert_mode   [dict get $mergedinfo insert_mode]
-                set o_cursor_col    [dict get $mergedinfo cursor_column]
-                set cmove           [dict get $mergedinfo cursor_row]
-                set overflow_right       [dict get $mergedinfo overflow_right] ;#should be empty if no \v
-                set unapplied       [dict get $mergedinfo unapplied]
-                set insert_lines_below [dict get $mergedinfo insert_lines_below]
-                if {[string is integer -strict $cmove]} {
-                    if {$cmove == 0} {
-                        set nextrow [expr {$o_cursor_row + 1}]
-                        set o_cursor_col 1
-                    } elseif {$cmove == 1} {
-                        #check for overflow_right and unapplied
-                        #leave cursor_column
-                    } elseif {$cmove >= 1} {
-
-                    }
-
-                } else {
-                    # =<int> - absolute
-                    set nextrow [string range $cmove 1 end]
-                }
-                if {$nextrow eq $o_cursor_row} {
-                    incr nextrow
-                }
-                set o_cursor_row $nextrow
-                if {$insert_lines_below} {
-
-                }
-
-                set cursor_row_idx [expr {$o_cursor_row-1}]
-                if {$cursor_row_idx < [llength $o_rendered_lines]} {
-                    set activeline [lindex $o_rendered_lines $cursor_row_idx]
-                } else {
-                    lappend o_rendered_lines ""
-                    set activeline ""
-                }
-                lset o_rendered_lines $cursor_row_idx $result
-
-                incr i
-            }
-        }
-        method add_rendered_chunk {rchunk} {
-            #split only on lf newlines - movement codes and \b \v \r not expected
-            #check only for \v \r as chars we don't expect/want in rendered lines
-            #chunk as been pre-rendered (or is known to be plain ascii without ANSI or \b \v \r)
-            #but we don't yet have grapheme split info for it
-
-            if {[regexp {[\v\b\r]} $rchunk]} {
-                error "[self class].add_rendered_chunk chunk contains \\v or \\b or \\r. Rendered chunk shouldn't contain these characters or ANSI movement codes"
-            }
-            lappend o_chunk_list $rchunk ;#rchunk may contain newlines - that's ok
-            dict set o_chunk_info [expr {[llength $o_chunk_list] -1}] [dict create micros [clock microseconds] type rendered]
-
-            set newparts [split $rchunk \n]
-            #lappend o_chunk_list $rchunk
-            set lastrline [lindex $o_rendered_lines end]
-
-            #in renderedlines list merge last line of old with first line of new
-            #we can't just cat the newpart on to existing rendered line - the chunk could have split a grapheme (e.g char+combiner(s))
-            #we
-            #todo - redo grapheme split on merged line
-            set merged [string cat $lastrline [lindex $newparts 0]]
-            lset o_rendered_lines end $merged
-
-            #todo
-            #each newpart needs its grapheme split info to be stored
-            #jmn
-            #set o_rendered_lines [concat $o_rendered_lines [lrange $newparts 1 end]]
-            lappend o_rendered_lines {*}[lrange $newparts 1 end]
-
-        }
-        method  linecount {} {
-            return [llength $o_rendered_lines]
-        }
-        method line {idx} {
-            if {[string is integer -strict $idx]} {
-                incr idx -1
-            }
-            return [lindex $o_rendered_lines $idx]
-        }
-        method lines {args} {
-            switch -- [llength $args] {
-                0 {return $o_rendered_lines}
-                1 {
-                    set idx [lindex $args 0]
-                    if {[string is integer -strict $idx]} {
-                        incr idx -1
-                    }
-                    return [list [lindex $o_rendered_lines $idx]]
-                }
-                2 {
-                    lassign $args idx1 idx2
-                    if {[string is integer -strict $idx1]} {
-                        incr idx1 -1
-                    }
-                    if {[string is integer -strict $idx2]} {
-                        incr idx2 -1
-                    }
-                    return [lrange $o_rendered_lines $idx1 $idx2]
-                }
-                default {error "lines expected 0,1 or 2 indices"}
-            }
-        }
-
-        #todo - index base???
-        method lines_numbered {args} {
-            #build a paired list so we don't have to do various calcs on end+ end- etc checking llength
-            #punk::lib::range will use lseq if available - else use it's own slower code
-            set max [llength $o_rendered_lines] ;#assume >=1
-            set nums [punk::lib::range 1 $max]
-            set numline_list [list]
-            foreach n $nums ln $o_rendered_lines {
-                lappend numline_list [list $n $ln]
-            }
-
-            switch -- [llength $args] {
-                0 {return $numline_list}
-                1 {return [lindex $numline_list [lindex $args 0]]}
-                2 {return [lrange $numline_list {*}$args]}
-                default {error "lines expected 0,1 or 2 indices"}
-            }
-        }
-
-        #1-based
-        method delete_line {linenum} {
-            error "unimplemented"
-            if {$linenum eq "end"} {
-                set  linenum [llength $o_rendered_lines]
-            }
-            if {![string is integer -strict $linenum]} {
-                error "delete_line accepts only end or an integer from 1 to linecount"
-            }
-            if {$linenum == 0} {
-                error "minimum line is 1"
-            }
-            set o_rendered_lines [lreplace $o_rendered_lines $index $index]
-        }
-        #clear data from last line only
-        method clear_tail {} {
-            set o_cursor_row [llength $o_rendered_lines]
-            set o_cursor_col 1
-            lset o_rendered_lines end ""
-        }
-        #1-based
-        method view_lines {args} {
-            set llist [my lines {*}$args]
-            return [join $llist \n]
-        }
-        method view_lines_numbered {args} {
-            set ANSI_linenum [a+ green]
-            set RST [a]
-            set llist [my lines_numbered {*}$args]
-            set nums [lsearch -all -inline -index 0 -subindices $llist *]
-            lset nums $o_cursor_row-1 "[a+ bold underline]$o_cursor_row${RST}$ANSI_linenum"
-            set lines [lsearch -all -inline -index 1 -subindices $llist *]
-
-            set cursorline [lindex $lines $o_cursor_row-1]
-            set charindex_at_cursor [ansistring COLUMNINDEX $cursorline $o_cursor_col]
-            if {$charindex_at_cursor ne ""} {
-                lassign [ansistring INDEXCOLUMNS $cursorline $charindex_at_cursor] col0 col1
-                #we now have the column extents of the possibly double-wide character at the cursor
-                #we can apply ansi just to those columns using a transparent overtype
-                set prefix [string repeat " " [expr {$col0 -1}]]
-                set linecols [punk::ansi::printing_length $cursorline]
-                set suffix [string repeat " " [expr {$linecols -$col1}]]
-                #capitalised INDEX - for grapheme/control-char index e.g a with diacritic a\u0300 has a single index
-                set char_at_cursor [ansistring INDEX $cursorline $charindex_at_cursor] ;#this is the char with appropriate ansireset codes
-                set rawchar [punk::ansi::ansistrip $char_at_cursor]
-                if {$rawchar eq " "} {
-                    set charhighlight "[punk::ansi::a+ White]_[a]"
-                } else {
-                    set charhighlight [punk::ansi::a+ reverse]$char_at_cursor[a]
-                }
-                set cursorline [overtype::renderline -transparent 1 -insert_mode 0 -expand_right 0 $cursorline $prefix$charhighlight$suffix]
-                lset lines $o_cursor_row-1 $cursorline
-            }
-
-            set numcol "$ANSI_linenum[join $nums \n][a]"
-            set linecol [join $lines \n]
-            return [textblock::join -- $numcol " " $linecol]
-        }
-        method debugview_lines {} {
-            set result ""
-            foreach ln $o_rendered_lines {
-                append result [ansistring VIEW -lf 1 -vt 1 $ln] \n ;#should be no lf or vt - but if there is.. we'd better show it
-            }
-            append result \n "cursor row: $o_cursor_row col: $o_cursor_col"
-            return $result
-        }
-        method last_char {} {
-            return [string index [lindex $o_chunk_list end] end]
-        }
-
-        #more strictly - last non-ansi?
-        method last_grapheme {} {
-            set lastchunk [lindex $o_chunk_list end]
-            set plaintext_parts [punk::ansi::ta::split_at_codes $lastchunk]
-            set pt [lindex $plaintext_parts end]
-            if {$pt eq ""} {
-                set pt [lindex $plaintext_parts end-1]
-            }
-            set graphemes [punk::char::grapheme_split $pt]
-            return [lindex $graphemes end]
-        }
-        method last_ansi {} {
-            set lastchunk [lindex $o_chunk_list end]
-            set parts [punk::ansi::ta::split_codes_single $lastchunk]
-            set lastcode [lindex $parts end-1]
-            return $lastcode
-            #return [ansistring VIEW -lf 1 $lastcode]
-        }
-        method chunks {args} {
-            switch -- [llength $args] {
-                0 {return $o_chunk_list}
-                1 {return [lindex $o_chunk_list [lindex $args 0]]}
-                2 {return [lrange $o_chunk_list {*}$args]}
-                default {error "chunks expected 0,1 or 2 arguments (index or range)"}
-            }
-        }
-        method view_chunks {} {
-            set result ""
-            set dashes [string repeat - 20]
-            foreach arrival_chunk $o_chunk_list chunk_id [dict keys $o_chunk_info] {
-                set chunk_info [dict get $o_chunk_info $chunk_id]
-                append result $dashes \n
-                set micros [dict get $chunk_info micros]
-                append result "$chunk_id arrival: [clock format [expr {$micros / 1000000}] -format "%Y-%m-%d %H:%M:%S"] ($micros)" \n
-                append result $dashes \n
-                append result $arrival_chunk \n
-            }
-            return $result
-        }
-
-        method debugview_chunks {} {
-            set result ""
-            foreach ln $o_chunk_list {
-                append result [ansistring VIEW -lf 1 -vt 1 $ln] \n
-            }
-            append result \n "cursor row: $o_cursor_row col: $o_cursor_col"
-            return $result
-        }
-        method view_raw {} {
-            return [join $o_chunk_list ""]
-        }
-        method debugview_raw {} {
-            set sublf [ansistring VIEW -lf 1 \n]
-            #set subvt [ansistring VIEW -lvt 1 \v] ;#vt replacement with $subvt\v will not align accurately.. todo ?
-            return [string map [list $sublf $sublf\n] [ansistring VIEW -lf 1 -vt 0 [join $o_chunk_list ""]]]
-        }
-    }
-
-}
-
-proc ::punk::repl::repl_handler_checkchannel {inputchan} {
-    if {[catch {chan eof $inputchan} is_eof]} {
-         ::repl::rputs stderr "\n|repl> repl_handler_checkchannel error on $inputchan. (closed?) msg:$is_eof"
-    } else {
-        if {$is_eof} {
-            if {$::tcl_interactive} {
-                ::repl::rputs stderr "\n|repl> repl_handler_checkchannel EOF on $inputchan."
-            }
-        }
-    }
-}
-proc ::punk::repl::repl_handler_checkcontrolsignal_linemode {inputchan} {
-    #todo - what?
-    return
-    variable signal_control_c
-    if {$signal_control_c > 0} {
-        if {$::tcl_interactive} {
-            ::repl::rputs stderr "\n|repl> repl_handler_checkcontrolsignal_linemode ctrl-c errorCode 0: [lindex $::errorCode 0]"
-        }
-    }
-}
-
-#This is not called from the signal handler - so we can't affect the signal handling with return
-#
-proc ::punk::repl::repl_handler_checkcontrolsignal_rawmode {inputchan} {
-    variable signal_control_c
-    variable signal_control_c_msg
-    if {$signal_control_c > 0 && $signal_control_c_msg ne "" } {
-        #if {$::tcl_interactive} {
-        #    ::repl::rputs stderr "\n|repl> repl_handler_checkcontrolsignal_rawmode ctrl-c errorCode 0: [lindex $::errorCode 0]"
-        #}
-        set msg $signal_control_c_msg
-        set signal_control_c_msg ""
-    } else {
-        set msg ""
-    }
-    return [list count $signal_control_c msg $msg]
-}
-
-
-proc punk::repl::repl_handler_restorechannel_if_not_eof {inputchan previous_input_state} {
-    if {$inputchan ni [chan names] || [eof $inputchan]} {
-        return
-    }
-    if {[chan conf $inputchan] ne $previous_input_state} {
-        set restore_input_conf [dict remove $previous_input_state -inputmode] ;#Attempting to set input mode often gives permission denied on windows - why?
-        if {[catch {
-            chan conf $inputchan {*}$restore_input_conf
-        } errM]} {
-            rputs stderr "|repl>original: [ansistring VIEW $previous_input_state]"
-            rputs stderr "|repl>current : [ansistring VIEW [chan conf $inputchan]]"
-            rputs stderr "\n|repl> Failed to return $inputchan to original state"
-            rputs stderr "|repl>ERR: $errM"
-        }
-    }
-    return [chan conf $inputchan]
-}
-proc repl::repl_handler {inputchan prompt_config} {
-    # -- review
-    variable in_repl_handler
-    set in_repl_handler [list $inputchan $prompt_config]
-    # --
-    variable last_controlc_count
-
-    upvar ::punk::repl::prompt_reset_flag prompt_reset_flag
-    if {$prompt_reset_flag == 1} {
-        set prompt_config [punk::repl::get_prompt_config]
-        set prompt_reset_flag 0
-    }
-
-    chan event $inputchan readable {}
-    upvar ::punk::console::input_chunks_waiting input_chunks_waiting
-    #note -inputmode not available in Tcl 8.6 for chan configure!
-    #According to DKF - -buffering option doesn't affect input channels
-    set rawmode 0
-    set original_input_conf [chan configure $inputchan] ;#whether repl is in line or raw mode - we restore the inputchan (stdin) state
-    if {[dict exists $original_input_conf -inputmode]} {
-        if {[dict get $original_input_conf -inputmode] eq "raw"} {
-            #user or script has apparently put stdin into raw mode - update punk::console::is_raw to match
-            set rawmode 1
-            tsv::set console is_raw 1
-        } else {
-            #set ::punk::console::is_raw 0
-            tsv::set console is_raw 0
-        }
-        #what about enable/disable virtualTerminal ?
-        #using stdin -inputmode to switch modes won't set virtualterminal input state appropriately
-        #we expect the state of -inputmode to be 'normal' even though we flip it during the read part of our repl loop
-        #if it's been set to raw - assume it is deliberately done this way as the user could have alternatively called punk::mode raw or punk::console::enableVirtualTerminal
-        #by not doing this automatically - we assume the caller has a reason.
-    } else {
-        set rawmode [tsv::get console is_raw]
-    }
-
-    if {!$rawmode} {
-        #linemode
-
-        #stdin with line-mode readable events (at least on windows for Tcl 8.7a6 to 9.0a) can get stuck with bytes pending when input longer than 100chars - even though there is a linefeed further on than that.
-        #This potentially affects a reasonable number of Tcl8.7 kit/tclsh binaries out in the wild.
-        #see bug https://core.tcl-lang.org/tcl/tktview/bda99f2393  (gets stdin problem when non-blocking - Windows)
-        #when in non-blocking mode we will have to read that in to get further - but we don't know if that was the end of line or if there is more - and we may not get a newline even though one was present originally on stdin.
-        #presence of 8.7 buffering bug will result in unrecoverable situation - even switching to raw and using read will not be able to retrieve tail data.
-        #the readable event only gives us 200 bytes (same problem may be at 4k/8k in other versions)
-        #This occurs whether we use gets or read -
-        set stdinlines [list]
-        if {[dict get $original_input_conf -blocking] ne "0"} {
-            chan configure $inputchan -blocking 0
-        }
-
-        set waitingchunk ""
-        #review - input_chunks_waiting in line mode -
-        if {[info exists input_chunks_waiting($inputchan)] && [llength $input_chunks_waiting($inputchan)]} {
-            #puts stderr "repl_handler input_chunks_waiting($inputchan) while in line mode. Had data:[ansistring VIEW -lf 1 $input_chunks_waiting($inputchan)]"
-            set allwaiting [join $input_chunks_waiting($inputchan) ""]
-            set input_chunks_waiting($inputchan) [list]
-            set yellow [punk::ansi::a+ yellow bold]
-            set waitinglines [split $allwaiting \n]
-            #foreach ln [lrange $waitinglines 0 end-1] {
-            #    lappend stdinlines $ln
-            #}
-            lappend stdinlines {*}[lrange $waitinglines 0 end-1]
-            set waitingchunk [lindex $waitinglines end]
-            # --
-            #set chunksize [gets $inputchan chunk]
-            set chunk [read $inputchan]
-            set chunksize [string length $chunk]
-            # --
-            if {$chunksize > 0} {
-                if {[string index $chunk end] eq "\n"} {
-                    lappend stdinlines $waitingchunk[string range $chunk 0 end-1]
-                    #punk::console::cursorsave_move_emitblock_return 30 30 "repl_handler num_stdinlines [llength $stdinlines] chunk:$yellow[ansistring VIEW -lf 1 $chunk][a] fblocked:[fblocked $inputchan] pending:[chan pending input stdin]"
-
-                    punk::repl::repl_handler_restorechannel_if_not_eof $inputchan $original_input_conf
-                    uplevel #0 [list repl::repl_process_data $inputchan line "" $stdinlines $prompt_config]
-                } else {
-                    set input_chunks_waiting($inputchan) [list $allwaiting]
-                    lappend input_chunks_waiting($inputchan) $chunk
-                }
-            } else {
-                #'chan blocked' docs state: 'Note that this only ever returns 1 when the channel has been configured to be non-blocking..'
-                if {[chan blocked $inputchan]} {
-                    #REVIEW -
-                    #todo - figure out why we're here.
-                    #can we even put a spinner so we don't keep emitting lines? We probably can't use any ansi functions that need to get a response on stdin..(like get_cursor_pos)
-                    #punk::console::get_size is problematic if -winsize not available on the stdout channel - which is the case for certain 8.6 versions at least.. platform variances?
-                    ## can't do this: set screeninfo [punk::console::get_size]; lassign $screeninfo _c cols _r rows
-                    set outconf [chan configure stdout]
-                    set RED [punk::ansi::a+ red bold]; set RST [punk::ansi::a]
-                    if {"windows" eq $::tcl_platform(platform)} {
-                        set msg "${RED}$inputchan chan blocked is true. (line-length Tcl windows channel bug?)$RST \{$allwaiting\}"
-                    } else {
-                        set msg "${RED}$inputchan chan blocked is true.$RST \{$allwaiting\}"
-                    }
-                    set cols ""
-                    set rows ""
-                    if {[dict exists $outconf -winsize]} {
-                        lassign [dict get $outconf -winsize] cols rows
-                    } else {
-                        #fallback - try external executable. Which is a bit ugly
-                        #tput can't seem to get dimensions (on FreeBSD at least) when not run interactively - ie via exec. (always returns 80x24 no matter if run with <@stdin)
-
-                        #bizarrely - tput can work with exec on windows if it's installed e.g from msys2
-                        #but can be *slow* compared to unix e.g 400ms+ vs <2ms on FreeBSD !
-                        #stty -a is 400ms+ vs 500us+ on FreeBSD
-
-                        if {"windows" eq $::tcl_platform(platform)} {
-                            set tputcmd [auto_execok tput]
-                            if {$tputcmd ne ""} {
-                                if {![catch {exec {*}$tputcmd cols lines} values]} {
-                                    lassign $values cols rows
-                                }
-                            }
-                        }
-
-                        if {![string is integer -strict $cols] || ![string is integer -strict $rows]} {
-                            #same for all platforms? tested on windows, wsl, FreeBSD
-                            #exec stty -a gives a result on the first line like:
-                            #speed xxxx baud; rows rr; columns cc;
-                            #review - more robust parsing - do we know it's first line?
-                            set sttycmd [auto_execok stty]
-                            if {$sttycmd ne ""} {
-                                #the more parseable: stty -g  doesn't give rows/columns
-                                if {![catch {exec {*}$sttycmd -a} result]} {
-                                    lassign [split $result \n] firstline
-                                    set lineparts [split $firstline {;}] ;#we seem to get segments that look well behaved enough to be treated as tcl lists - review - regex?
-                                    set rowinfo [lsearch -index end -inline $lineparts rows]
-                                    if {[llength $rowinfo] == 2} {
-                                        set rows [lindex $rowinfo 0]
-                                    }
-                                    set colinfo [lsearch -index end -inline $lineparts columns]
-                                    if {[llength $colinfo] == 2} {
-                                        set cols [lindex $colinfo 0]
-                                    }
-                                }
-                            }
-                        }
-                    }
-                    if {[string is integer -strict $cols] && [string is integer -strict $rows]} {
-                        #got_dimensions - todo - try spinner?
-                        #puts -nonewline stdout [punk::ansi::move $rows 4]$msg
-                        #use cursorsave_ version which avoids get_cursor_pos_list call
-                        set msglen [ansistring length $msg]
-                        punk::console::cursorsave_move_emitblock_return $rows [expr {$cols - $msglen -1}] $msg
-                    } else {
-                        #no mechanism to get console dimensions
-                        #we are reduced to continuously spewing lines.
-                        puts stderr $msg
-                    }
-
-                    after 100
-                }
-                set input_chunks_waiting($inputchan) [list $allwaiting]
-            }
-
-        } else {
-            punk::repl::repl_handler_checkchannel $inputchan
-            punk::repl::repl_handler_checkcontrolsignal_linemode $inputchan
-            # -- --- ---
-            #set chunksize [gets $inputchan chunk]
-            # -- --- ---
-            set chunk [read $inputchan]
-            set chunksize [string length $chunk]
-            # -- --- ---
-            if {$chunksize > 0} {
-                #punk::console::cursorsave_move_emitblock_return 35 120 "chunk: [ansistring VIEW -lf 1 "...[string range $chunk end-10 end]"]"
-                set ln $chunk ;#temp
-                #punk::console::cursorsave_move_emitblock_return 25 30 [textblock::frame -title line "[a+ green]$waitingchunk[a][a+ red][ansistring VIEW -lf 1 $ln][a+ green]pending:[chan pending input stdin][a]"]
-                if {[string index $ln end] eq "\n"} {
-                    lappend stdinlines [string range $ln 0 end-1]
-                    punk::repl::repl_handler_restorechannel_if_not_eof $inputchan $original_input_conf
-                    uplevel #0 [list repl::repl_process_data $inputchan line "" $stdinlines $prompt_config]
-                } else {
-                    lappend input_chunks_waiting($inputchan) $ln
-                }
-            }
-        }
-
-    } else {
-        #rawmode
-        if {[info exists input_chunks_waiting($inputchan)] && [llength $input_chunks_waiting($inputchan)]} {
-            #we could concat and process as if one chunk - but for now at least - we want to preserve the 'chunkiness'
-            set chunkwaiting_zero [lpop input_chunks_waiting($inputchan) 0] ;#pop off lhs of wait list (tcl 8.6 is tcl imp of lpop - a little slower)
-            uplevel #0 [list repl::repl_process_data $inputchan raw-waiting $chunkwaiting_zero [list] $prompt_config]
-        } else {
-
-            punk::repl::repl_handler_checkchannel $inputchan
-            set signalinfo [punk::repl::repl_handler_checkcontrolsignal_rawmode $inputchan]
-            if {[dict get $signalinfo count] > $last_controlc_count} {
-                set continue 0
-                set last_controlc_count [dict get $signalinfo count]
-            } else {
-                set continue 1
-            }
-
-            if {$continue} {
-                if {[dict get $original_input_conf -blocking] ne "0" || [dict get $original_input_conf -translation] ne "lf"} {
-                    chan configure $inputchan -blocking 0
-                    chan configure $inputchan -translation lf
-                }
-                set chunk [read $inputchan]
-                #we expect a chan configured with -blocking 0 to be blocked immediately after reads
-                #test - just bug console for now - try to understand when/how/if a non blocking read occurs.
-                if {![chan blocked $inputchan]} {
-                    puts stderr "repl_handler->$inputchan not blocked after read"
-                }
-
-                punk::repl::repl_handler_restorechannel_if_not_eof $inputchan $original_input_conf
-                uplevel #0 [list repl::repl_process_data $inputchan raw-read $chunk [list] $prompt_config]
-                while {[llength $input_chunks_waiting($inputchan)]} {
-                    set chunkzero [lpop input_chunks_waiting($inputchan) 0]
-                    if {$chunkzero eq ""} {continue}  ;#why empty waiting - and is there any point passing on?
-                    uplevel #0 [list repl::repl_process_data $inputchan raw-waiting $chunkzero [list] $prompt_config]
-                }
-            }
-        }
-    }
-
-    if {![chan eof $inputchan]} {
-        ##################################################################################
-        #Re-enable channel read handler only if no waiting chunks - must process in order
-        ##################################################################################
-        if {![llength $input_chunks_waiting($inputchan)]} {
-            chan event $inputchan readable [list ::repl::repl_handler $inputchan $prompt_config]
-        } else {
-            #review
-            #puts stderr "warning: after idle re-enable repl::repl_handler in thread: [thread::id]"
-            after idle [list ::repl::repl_handler $inputchan $prompt_config]
-        }
-        ####################################################
-    } else {
-        #repl_handler_checkchannel $inputchan
-        chan event $inputchan readable {}
-        set reading 0
-        thread::send -async $::repl::codethread {set ::punk::repl::codethread::running 0}
-        if {$::tcl_interactive} {
-            rputs stderr "\nrepl_handler EOF inputchannel:[chan conf $inputchan]"
-            #rputs stderr "\n|repl> ctrl-c EOF on $inputchan."
-        }
-        set [namespace current]::done 1
-        after 1 [list repl::reopen_stdin]
-    }
-    set in_repl_handler  [list]
-}
-
-proc punk::repl::editbuf {index args} {
-    set editbuf [lindex $::repl::editbuf_list $index]
-    if {$editbuf ne ""} {
-        $editbuf {*}$args
-    } else {
-        return "No such index in editbuf list"
-    }
-}
-interp alias {} editbuf {} ::punk::repl::editbuf
-
-
-proc punk::repl::console_debugview {editbuf consolewidth args} {
-    if {[punk::console::vt52]} {
-        #topleft?
-        return [dict create width 0 height 0 topleft 0]
-    }
-    package require textblock
-    variable debug_repl
-    if {$debug_repl <= 0} {
-        return [dict create width 0 height 0 topleft {}]
-    }
-    set defaults {-row 10 -rightmargin 2 -chunktype raw-read}
-    #dict for {k v} $args {
-    #    switch -- $k {
-    #        -row - -chunktype {}
-    #        default {
-    #            error "console_debugview unrecognised option '$k'. Known-options [dict keys $defaults]"
-    #        }
-    #    }
-    #}
-    set opts [dict merge $defaults $args]
-    set opt_row         [dict get $opts -row]
-    set opt_chunktype   [dict get $opts -chunktype]
-    set opt_rightmargin [dict get $opts -rightmargin]
-
-    #debugview_raw frame
-    set RST [a]
-    if {[catch {
-        set info [$editbuf debugview_raw]
-        if {$opt_chunktype eq "raw-waiting"} {
-            set info [a+ bold yellow]$info$RST
-        } else {
-            set info [a+ green]$info$RST
-        }
-        #set lines [lines_as_list -ansireplays 1 $info]
-        set lines [lines_as_list -ansireplays 0 $info]
-        if {[llength $lines] > 20} {
-            set lines [lrange $lines end-19 end]
-            set info [::join $lines \n]
-        }
-        set debug_height [expr {[llength $lines]+2}] ;#framed height
-    } errM]} {
-        set info [textblock::frame -checkargs 0 -buildcache 0 -title "[a red]error$RST" $errM]
-        set debug_height [textblock::height $info]
-    } else {
-        #treat as ephemeral (unreusable) frames due to varying width & height - therefore set -buildcache 0
-        set info [textblock::frame -checkargs 0 -buildcache 0 -ansiborder [a+ bold green] -title "[a cyan]debugview_raw$RST" $info]
-    }
-
-    set debug_width [textblock::widthtopline $info]
-    set patch_height [expr {2 + $debug_height + 2}]
-    set spacepatch [textblock::block $debug_width $patch_height " "]
-    #puts -nonewline [punk::ansi::cursor_off]
-    punk::console::cursor_off
-    #use non cursorsave versions - cursor save/restore will interfere with any concurrent ansi rendering that uses save/restore - because save/restore is a single item, not a stack.
-    set debug_offset [expr {$consolewidth - $debug_width - $opt_rightmargin}]
-    set row_clear [expr {$opt_row -2}]
-    punk::console::move_emitblock_return $row_clear $debug_offset $spacepatch
-    punk::console::move_emitblock_return $opt_row   $debug_offset $info
-    set topleft [list $debug_offset $opt_row] ;#col,row  REVIEW
-    #puts -nonewline [punk::ansi::cursor_on]
-    punk::console::cursor_on
-    flush stdout
-
-    return [dict create width $debug_width height $debug_height topleft $topleft]
-}
-proc punk::repl::console_editbufview {editbuf consolewidth args} {
-    if {[punk::console::vt52]} {
-        return [dict create width 0]
-    }
-    package require textblock
-    upvar ::repl::editbuf_list editbuf_list
-
-    set defaults {-row 10 -rightmargin 0}
-    set opts [dict merge $defaults $args]
-    set opt_row         [dict get $opts -row]
-    set opt_rightmargin [dict get $opts -rightmargin]
-
-    if {[catch {
-        set info [$editbuf view_lines_numbered]
-        set lines [lines_as_list -ansireplays 1 $info]
-        if {[llength $lines] > 20} {
-            set lines [lrange $lines end-19 end]
-            set info [punk::lib::list_as_lines $lines]
-        }
-    } editbuf_error]} {
-        set info [textblock::frame -checkargs 0 -buildcache 0 -title "[a red]error[a]" "$editbuf_error\n$::errorInfo"]
-    } else {
-        set title       "[a cyan]editbuf [expr {[llength $editbuf_list]-1}] lines [$editbuf linecount][a]"
-        append title    "[a+ yellow bold] col:[format %3s [$editbuf cursor_column]] row:[$editbuf cursor_row][a]"
-        set row1    " lastchar:[ansistring VIEW -lf 1 [$editbuf last_char]] lastgrapheme:[ansistring VIEW -lf 1 [$editbuf last_grapheme]]"
-        set row2    " lastansi:[ansistring VIEW -lf 1 [$editbuf last_ansi]]"
-        set info [a+ green bold]$row1\n$row2[a]\n$info
-        set info [textblock::frame -checkargs 0 -buildcache 0 -ansiborder [a+ green bold] -title $title $info]
-    }
-    set editbuf_width [textblock::widthtopline $info]
-    set spacepatch [textblock::block $editbuf_width 2 " "]
-
-    #set editbuf_offset [expr {$consolewidth - $editbuf_width - $debug_width - 2}]
-    set editbuf_offset [expr {$consolewidth - $editbuf_width - $opt_rightmargin}]
-
-    set row_clear [expr {$opt_row -2}]
-    punk::console::cursorsave_move_emitblock_return $row_clear $editbuf_offset $spacepatch
-    punk::console::cursorsave_move_emitblock_return $opt_row $editbuf_offset $info
-
-    return [dict create width $editbuf_width]
-}
-proc punk::repl::console_controlnotification {message consolewidth consoleheight args} {
-    package require textblock
-    set defaults {-bottommargin 0 -rightmargin 0}
-    set opts [dict merge $defaults $args]
-    set opt_bottommargin         [dict get $opts -bottommargin]
-    set opt_rightmargin [dict get $opts -rightmargin]
-    set messagelines [split $message \n]
-    set message [lindex $messagelines 0] ;#only allow single line
-    set info "[a+ bold red]$message[a]"
-    set hlt [dict get [textblock::framedef light] hlt]
-    set box [textblock::frame -checkargs 0 -boxmap [list tlc $hlt trc $hlt] -title $message -height 1]
-    set notification_width [textblock::widthtopline $info]
-    set box_offset [expr {$consolewidth - $notification_width - $opt_rightmargin}]
-    set row [expr {$consoleheight - $opt_bottommargin}]
-    punk::console::cursorsave_move_emitblock_return $row $box_offset $info
-    return [dict create width $notification_width]
-}
-
-proc repl::repl_process_data {inputchan chunktype chunk stdinlines prompt_config} {
-    if {[info exists ::punk::console::is_vt52]} {
-        set is_vt52 $::punk::console::is_vt52
-    } else {
-        set is_vt52 0
-    }
-
-    variable loopinstance
-    incr loopinstance
-    upvar ::punk::console::input_chunks_waiting input_chunks_waiting
-
-    upvar ::punk::repl::prompt_reset_flag prompt_reset_flag
-
-    variable last_repl_char "" ;#last char emitted by this handler to stdout/stderr
-    variable lastoutchar ""
-    variable lasterrchar ""
-    variable commandstr
-    # ---
-    variable editbuf
-    variable editbuf_list
-    variable editbuf_linenum_submitted
-
-    # ---
-    variable reading
-    variable id_outstack
-    #upvar ::punk::config::configdata configd
-    #set running_config [dict get $configd running]
-
-    try {
-        #catch {puts stderr "xx--->[rep $::arglej]"}
-        if {$prompt_reset_flag == 1} {
-            set prompt_config [punk::repl::get_prompt_config]
-            set prompt_reset_flag 0
-        }
-
-        set resultprompt    [dict get $prompt_config resultprompt]
-        set nlprompt        [dict get $prompt_config nlprompt]
-        set infoprompt      [dict get $prompt_config infoprompt]
-        set debugprompt     [dict get $prompt_config debugprompt]
-
-        set rawmode [tsv::get console is_raw]
-        if {!$rawmode} {
-            #puts stderr "-->got [ansistring VIEW -lf 1 $stdinlines]<--"
-
-        } else {
-            #raw
-            set chunklen [string length $chunk]
-            set onetime 1
-            #single loop while to allow break on escape
-            while {$onetime && [string length $chunk] >= 0 } {
-                set onetime 0
-                #punk::console::move_emitblock_return 20 120 $chunklen-->[chan conf stdin]<--
-
-                #if {$chunklen == 0} {
-                #    #document examples of when we expect zero-byte chunk
-                #    #1) ctrl-z
-                #    #review
-                #    rputs stderr "->0byte read stdin"
-                #    if {[chan eof $inputchan]} {
-                #        chan event $inputchan readable {}
-                #        set reading 0
-                #        #set running 0
-                #        if {$::tcl_interactive} {
-                #            rputs stderr "\n|repl> EOF on $inputchan."
-                #        }
-                #        set [namespace current]::done 1
-                #        #test
-                #        #JMN
-                #        #tailcall repl::reopen_stdin
-                #    }
-                #    break
-                #}
-
-                #set info1 "read $chunklen bytes->[ansistring VIEW -lf 1 -vt 1 $chunk]"
-                #consider also the terminal linefeed mode.
-                #https://vt100.net/docs/vt510-rm/LNM.html
-                # terminals (by default) generally use a lone cr to represent enter  (LNM reset ie CSI 20l)
-                #(as per above doc: "For compatibility with Digital's software you should keep LNM reset (line feed)")
-
-                #You can insert an lf using ctrl-j - and of course stdin could have crlf or lf
-                #pasting from notepad++ with mixed line endings seems to paste everything ok
-                #we don't really know the source of input keyboard vs paste vs pipe - and whether a read has potentially chopped a crl in half..
-                #possibly no real way to determine that. We could wait a small time to see if there's more data coming.. and potentially impact performance.
-                #Instead we'll try to make sense of it here.
-
-                if {$chunklen == 1} {
-                    #presume it's a keypress from terminal
-                    set chunk [string map {\r \n} $chunk]
-                } else {
-                    #maybe a paste? (or stdin to active shell loop - possibly with no terminal ? )
-                    #we'd better check for crlf and/or plain lf. If found - presume any lone CR is to be left as is.
-                    if {[string first \n $chunk] < 0} {
-                        set chunk [string map {\r \n} $chunk]
-                    }
-                    #else -
-                    #has lf - but what if last char is cr?
-                    #It may require user to hit enter - probably ok.
-                    #could be a sequence of cr's from holding enter key
-                }
-
-                #review - we can receive chars such as escapes or arrow inline with other data even from keyboard if keys are pushed quickly (or automated?)
-                # - so we probably shouldn't really rely on whether a char arrives alone in a chunk as a factor in its behaviour
-                #On the other hand - timing of keystrokes could be legitimate indications of intention in a cli ?
-
-                #esc or ctrl-lb
-                if {$chunk eq "\x1b"} {
-                    #return
-                    set stdinlines [list "\x1b"]
-                    set commandstr ""
-                    set chunk ""
-                    $editbuf clear_tail
-                    screen_last_char_add \x1b stdin  escape
-                    break
-                }
-
-                #if ProcessedInput is disabled - we can get ctrl-c, but then we wouldn't be in raw mode and wouldn't be here.
-                #e.g with punk::console::disableProcessedInput
-                #if we get just ctrl-c in one chunk
-                #ctrl-c
-                if {$chunk eq "\x03"} {
-                    #::punk::repl::handler_console_control "ctrl-c_via_rawloop"
-                    puts stderr "ctrl-c via rawloop - not signal"
-                    ::punk::repl::handler_console_control ctrl-c via_rawloop
-                    #error "character 03 -> ctrl-c"
-                }
-
-                if {$chunk eq "\x7f"} {
-                    #review - configurable?
-                    #translate raw del to backspace del for those terminals that send plain del
-                    set chunk "\b\x7f"
-                } elseif {$chunk eq "\x7f\x7f"} {
-                    #commonly if key held down we will get 2 dels in a row
-                    #review - could get more in a row depending on hardware/os
-                    set chunk "\b\x7f\b\x7f"
-                } elseif {$chunk eq "\x1c"} {
-                    #ctrl-bslash
-                    #try to brutally terminate process
-                    #attempt to leave terminal in a reasonable state
-                    mode line ;#may be aliased to ::repl::interphelpers::mode
-                    after 250 {exit 42}
-                    return
-                } elseif {$chunk eq "\x1a"} {
-                    #for now - exit with small delay for tidyup
-                    #ctrl-z
-                    #::punk::repl::handler_console_control "ctrl-z_via_rawloop"
-                    if {[catch {punk::console::mode line}]} {
-                        #REVIEW
-                        interp eval code {punk::console::mode line}
-                    }
-                    after 1000 {exit 43}
-                    return
-                }
-
-                #we *could* intercept arrow keys here before they are handled in the editbuf
-                #but there should only be the need to do so for situations where we aren't editing a commandline
-                #if {$chunk eq "\x1b\[D"} {
-                #    #rputs stderr "${debugprompt}arrow-left D"
-                #    #set commandstr ""
-                #    #punk::console::move_back 1 ;#terminal does it anyway?
-                #}
-                #if {$chunk eq "\x1b\[C"} {
-                #}
-
-                $editbuf add_chunk $chunk
-
-                #--------------------------
-                # editbuf and debugview rhs frames
-                #for now disable entirely on vt52 - we can only do cursor save restore - nothing that requires responses on stdin (?)
-                if {!$is_vt52 && [set ::punk::console::ansi_available]} {
-                    #experimental - use punk::console::get_size to determine current visible width.
-                    #This should ideally be using sigwinch or some equivalent to set a value somewhere.
-                    #testing each time is very inefficient (1+ms)
-                    #unfortunately there isn't an easy way to get such an event on windows console based systems - REVIEW.
-                    set do_checkwidth 1 ;#make configurable if performance hit is too severe? TODO
-                    set consolewidth 132
-                    if {$do_checkwidth} {
-                        if {[catch {set consolewidth [dict get [punk::console::get_size] columns]} errM]} {
-                            #review
-                            if {!$is_vt52} {
-                                puts stderr "repl_process_data failed on call to punk::console::get_size :$errM"
-                            }
-                        }
-                        #if chan conf stdout doesn't give dimensions and console doesn't respond to queries - we can get empty results in get_size dict
-                        if {$consolewidth eq ""} {
-                            set consolewidth 132
-                        }
-                    }
-                    set debug_width 0
-                    set rightmargin 0
-                    set space_occupied [punk::repl::console_debugview $editbuf $consolewidth -row 10 -chunktype $chunktype -rightmargin $rightmargin] ;#contains cursor movements
-                    set debug_width [dict get $space_occupied width]
-                    set clearance [expr {$debug_width + $rightmargin}]
-                    set space_occupied [punk::repl::console_editbufview $editbuf $consolewidth -row 10 -rightmargin $clearance]
-                }
-                #--------------------------
-
-
-                set lines_unsubmitted [expr {[$editbuf linecount] - $editbuf_linenum_submitted}]
-                #there is always one 'line' unsubmitted - although it may be the current one being built, which may be empty string
-                if {$lines_unsubmitted < 1} {
-                    puts stderr "repl editbuf_linenum_submitted out of sync with editbuf"
-                }
-
-                #set trailing_line_index [expr {[$editbuf linecount] -1}]
-                set last_line_num [$editbuf linecount]
-                #set nextsubmit_index [expr {$editbuf_lineindex_submitted + 1}]
-                set nextsubmit_line_num [expr {$editbuf_linenum_submitted + 1}]
-
-                set cursor_row [$editbuf cursor_row]
-                set cursor_index [expr {$cursor_row -1}]
-                set lastansi [$editbuf last_ansi]
-                if {$lastansi eq "\x1b\[A"} {
-                    if {$cursor_row > 1} {
-                        puts -nonewline stdout "\x1b\[A"
-                    }
-                } elseif {$lastansi eq "\x1b\[B"} {
-                    puts -nonewline stdout "\x1b\[B"
-                }
-                flush stdout
-
-
-
-                set leftmargin 3
-                if {!$is_vt52} {
-                    puts -nonewline stdout [a+ cyan][punk::ansi::move_column [expr {$leftmargin +1}]][punk::ansi::erase_eol][$editbuf line $cursor_row][a][punk::ansi::move_column [expr {$leftmargin + [$editbuf cursor_column]}]]
-                } else {
-                    puts -nonewline stdout [a+ cyan][punk::ansi::vt52move_column [expr {$leftmargin +1}]][punk::ansi::vt52erase_eol][$editbuf line $cursor_row][punk::ansi::vt52move_column [expr {$leftmargin + [$editbuf cursor_column]}]]
-                }
-                #puts -nonewline stdout $chunk
-                flush stdout
-                if {[$editbuf last_char] eq "\n"} {
-                    set linelen [punk::ansi::printing_length [$editbuf line $nextsubmit_line_num]]
-                    if {!$is_vt52} {
-                        puts -nonewline stdout [a+ cyan bold][punk::ansi::move_column [expr {$leftmargin +1}]][$editbuf line $nextsubmit_line_num][a][punk::ansi::move_column [expr {$leftmargin + $linelen +1}]]
-                        #screen_last_char_add "\n" input inputline
-                        puts -nonewline stdout [punk::ansi::erase_eol]\n
-                    } else {
-                        puts -nonewline stdout [a+ cyan bold][punk::ansi::vt52move_column [expr {$leftmargin +1}]][$editbuf line $nextsubmit_line_num][punk::ansi::vt52move_column [expr {$leftmargin + $linelen +1}]]
-                        puts -nonewline stdout [punk::ansi::vt52erase_eol]\n
-                    }
-
-
-                    #puts -nonewline stdout \n
-                    screen_last_char_add "\n" input inputline
-                    set waiting [$editbuf line end]
-                    if {[string length $waiting] > 0} {
-                        set waiting [a+ yellow bold]$waiting[a]
-                        #puts stderr "waiting $waiting"
-                        $editbuf clear_tail
-                        lappend input_chunks_waiting($inputchan) $waiting
-                    }
-                }
-                if {$editbuf_linenum_submitted == 0} {
-                    #(there is no line 0 - lines start at 1)
-                    if {[$editbuf last_char] eq "\n"} {
-                        lappend stdinlines [$editbuf line 1]
-                        set editbuf_linenum_submitted 1
-                    }
-                } else {
-                    if {$nextsubmit_line_num < $last_line_num} {
-                        #foreach ln [$editbuf lines $nextsubmit_line_num end-1] {
-                        #    lappend stdinlines $ln
-                        #    incr editbuf_linenum_submitted
-                        #}
-                        #xxx
-                        set slines [$editbuf lines $nextsubmit_line_num end-1]
-                        lappend stdinlines {*}$slines
-                        incr editbuf_linenum_submitted [llength $slines]
-                    }
-                }
-                set last_cursor_column [$editbuf cursor_column]
-            }
-        }
-
-    } trap {POSIX} {e eopts} {
-        rputs stderr "trap1 POSIX '$e' eopts:'$eopts"
-        flush stderr
-    } on error {repl_error erropts} {
-        rputs stderr "error1 in repl_handler: $repl_error"
-        rputs stderr "-------------"
-        rputs stderr "$::errorInfo"
-        rputs stderr "-------------"
-        set stdinreader [chan event $inputchan readable]
-        if {![string length $stdinreader]} {
-            rputs stderr "*> $inputchan reader inactive"
-        } else {
-            rputs stderr "*> $inputchan reader active"
-        }
-        if {[chan eof $inputchan]} {
-            rputs stderr "todo - attempt restart of repl on input channel: $inputchan in next loop"
-            catch {set ::punk::ns::ns_current "::"}
-            #todo set flag to restart repl ?
-        } else {
-            rputs stderr "continuing.."
-        }
-        flush stderr
-    }
-
-
-    try {
-        set maxlinenum [expr {[llength $stdinlines] -1}]
-        set linenum 0
-        foreach line $stdinlines {
-            #puts stderr "----->line: [ansistring VIEW -lf 1 $line] commandstr:[ansistring VIEW -lf 1 $commandstr]"
-            set last_repl_char "" ;#last char emitted by this handler to stdout/stderr
-            set lastoutchar ""
-            set lasterrchar ""
-
-
-            #consider \x1b as text on console vs \x1b the character
-            #review - if we're getting these actual escape characters in line mode.. something is off - let's emit something instead of trying to interpret as a command and failing.
-            #This tends to happen when some sort of readline not avaialbe ie on unix or mintty in windows
-            #this only captures leading escape.. as an aid to diagnosis e.g <sp><right-arrow> won't be caught and the user will need to close the right bracket to complete the bogus command
-            #we may need to think about legitimate raw escapes in commands e.g from pipes or script files, vs via console?
-
-            #esc key or ctrl-lb followed by enter
-            if {$line eq "\x1b"} {
-                #abort current command
-                if {$linenum == 0} {
-                    doprompt "E% " {yellow bold}
-                    set line ""
-                    #screen_last_char_add " " empty empty
-                } else {
-                    doprompt "\nE% " {yellow bold}
-                    #screen_last_char_add "\n" empty empty  ;#add \n to indicate noclearance required
-                }
-                incr linenum
-                continue
-            } else {
-                if {$line eq "\x1b\[C"} {
-                    rputs stderr "${debugprompt}arrow-right C"
-                    #set commandstr ""
-                }
-                if {$line eq "\x1b\[D"} {
-                    #rputs stderr "${debugprompt}arrow-left D"
-                    #set commandstr ""
-                    #punk::console::move_back 1
-                }
-                if {$line eq "\x1b\[A"} {
-                    rputs stderr "${debugprompt}arrow-up A"
-                }
-                if {$line eq "\x1b\[B"} {
-                    rputs stderr "arrow-down B"
-                }
-                if {[string match "\x1b*" $line]} {
-                    rputs stderr "${debugprompt}esc - '[punk::ansi::ansistring::VIEW $line]'"
-                    #set commandstr [punk::ansi::ansistrip $commandstr]
-                }
-            }
-
-            if {$commandstr ne ""} {
-                append commandstr \n
-            }
-
-            set stdinconf [fconfigure $inputchan]
-            if {$::tcl_platform(platform) eq "windows" && [dict get $stdinconf -encoding] ni [list unicode utf-16 utf-8]} {
-                #some long console inputs are split weirdly when -encoding and -translation are left at defaults - requiring extra enter-key to get repl to process.
-                #experiment to see if using iso8859-1 (raw bytes) and handling line endings manually gives insight.
-                # - do: chan conf stdin -encoding iso859-1 -translation lf
-
-                #first command after configuring stdin this way seems to be interpreted with wrong encoding - subsequent commands work - review
-
-                #this branch only works on tcl8.7+
-                #It seems to fix the issue with holding down enter-key and getting extra blank lines, but
-                # it breaks copy-paste (encoding issue?)
-
-
-                #puts "--inputchan:$inputchan> [fconfigure $inputchan]"
-
-                append commandstr  $line
-                puts "1=============>[string length $commandstr] bytes , [ansistring VIEW $commandstr] , info complete:[info complete $line] stdinconf:$stdinconf"
-                set commandstr [string range $commandstr 0 end-3]
-                set commandstr [encoding convertfrom utf-16be $commandstr] ;#This is weird - but it seems to be big endian?
-                set commandstr [string trimright $commandstr]
-                #puts "2=============>[string length $commandstr] bytes , [string map [list \r -r- \n -n-] $commandstr] , info complete:[info complete $line]"
-            } else {
-                #append commandstr $line
-                #puts "0=============>[string length $commandstr] bytes , [string map [list \r -r- \n -n-] $commandstr] , info complete:[info complete $line]"
-                append commandstr  $line
-            }
-
-            #puts "=============>[string length $commandstr] bytes , [string map [list \r -r- \n -n-] $commandstr] , info complete:[info complete $line]"
-            set last_repl_char "\n" ;#this is actually the eol from stdin
-            screen_last_char_add "\n" stdin $line
-
-
-
-            #append commandstr \n
-
-
-            if {[info complete $commandstr] && [string index $commandstr end] ne "\\"} {
-                #set commandstr [overtype::renderline -expand_right 1 "" $commandstr]
-
-
-                set ::repl::output_stdout ""
-                set ::repl::output_stderr ""
-                set outstack [list]
-                set errstack [list]
-
-
-                #oneshot repl debug
-                set wordparts [regexp -inline -all {\S+} $commandstr]
-                lassign $wordparts cmd_firstword cmd_secondword
-                if {$cmd_firstword eq "debugrepl"} {
-                    if {$cmd_secondword in [list 0 cancel]} {
-                        set ::punk::repl::debug_repl 0
-                    } else {
-                        if {[string is integer -strict $cmd_secondword]} {
-                            incr ::punk::repl::debug_repl $cmd_secondword
-                        } else {
-                            incr ::punk::repl::debug_repl
-                        }
-                    }
-                    #set commandstr "set ::punk::repl::debug_repl"
-                    set commandstr ""
-                }
-                if {$::punk::repl::debug_repl > 100} {
-                    proc debug_repl_emit {msg} [string map [list %p% [list $debugprompt]] {
-                        set p %p%
-                        #don't auto-append \n even if missing.
-                        #we may want to use debug_repl_emit with multiple calls for one output line
-                        #if {[string index $msg end] ne "\n"} {
-                        #    set msg "$msg\n"
-                        #}
-                        #set last_char [string index $::repl::screen_last_chars end]
-                        set last_char [screen_last_char_get]
-                        if {$last_char ne "\n"} {
-                            set clearance "\n"
-                        } else {
-                            set clearance ""
-                        }
-                        #use pseudo-channel debugreport
-                        rputs debugreport $clearance$p[string map [list \n \n$p] $msg]
-                    }]
-                    set info ""
-                    append info "repl loopinstance: $loopinstance debugrepl remaining: [expr {[set ::punk::repl::debug_repl]-1}]\n"
-                    append info "commandstr: [punk::ansi::ansistring::VIEW $commandstr]\n"
-                    set lastrunchunks [tsv::get repl runchunks-[tsv::get repl runid]]
-                    append info "lastrunchunks\n"
-                    append  info "chunks: [llength $lastrunchunks]\n"
-                    append info "namespace: $::punk::ns::ns_current"
-                    debug_repl_emit $info
-                } else {
-                    proc debug_repl_emit {msg} {return}
-                }
-
-                #-----------------------------------------
-                #review!
-                #work around weird behaviour in tcl 8.6 & 8.7a5 (at least) part1
-                #https://wiki.tcl-lang.org/page/representation
-                #/scriptlib/tests/listrep_bug.tcl
-                #after the uplevel #0 $commandstr  call
-                # vars within the script that were set to a list, and have no string-rep, will generate a string-rep once the script (commandstr) is unset, or set to another value
-                #review - although the rep change is weird - what actual problem was caused aside from an unexpected shimmer?
-                #probably just that the repl can't then be used to debug representation issues and possibly that the performance is not ideal for list pipeline commands(?)
-                #now that we eval in another thread and interp - we seem to lose the list rep anyway.
-                #(unless we also save the script in that interp too in a run_command_cache)
-                global run_command_string
-                set run_command_string "$commandstr\n"  ;#add anything that won't affect script.
-                global run_command_cache
-                #-----------------------------------------
-
-                set repl_runid [tsv::incr repl runid]
-                tsv::set repl runchunks-$repl_runid [list] ;#last_run_display
-                catch {
-                    #REVIEW - when we launch a subshell and run more than 10 commands,
-                    #we delete runchunks from the outer shell that we'll return to!
-                    #we should use a toplevel key pertaining to the shell/subshell instead of just 'repl'
-                    tsv::unset repl runchunks-[expr {$repl_runid - 10}]
-                }
-
-                #set ::repl::last_unknown ""
-                tsv::set repl last_unknown ""
-                #***********************************************************
-                #don't use puts,rputs or debug_repl_emit in this block
-                #***********************************************************
-
-                #if {[string length [dict get $running_config color_stdout]] && [punk::console::colour]} {
-                #    lappend outstack [shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $running_config color_stdout]]]
-                #}
-                #lappend outstack [shellfilter::stack::add stdout tee_to_var -settings {-varname ::repl::output_stdout}]
-                #if {[string length [dict get $running_config color_stderr]] && [punk::console::colour]} {
-                #    lappend errstack [shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $running_config color_stderr]]]
-                #}
-
-                variable codethread
-                variable codethread_cond
-                variable codethread_mutex
-
-                lappend errstack [shellfilter::stack::add stderr tee_to_var -settings {-varname ::repl::output_stderr}]
-                #thread::transfer $codethread stderr
-
-                #chan configure stdout -buffering none
-                #JMN
-                chan event $inputchan readable {}
-                set reading 0
-                #don't let unknown use 'args' to convert commandstr to list
-                #===============================================================================
-                #Actual command call
-                #puts "____>[rep $commandstr]"
-                #===============================================================================
-                if {[string equal -length [string length "repl_runraw "] "repl_runraw " $commandstr]} {
-                    #pass unevaluated command to runraw
-                    set status [catch {uplevel #0 [list runraw $commandstr]} raw_result]
-                } else {
-                    #puts stderr "repl uplevel 0 '$run_command_string'"
-                    #JMN
-                    #puts stderr "sending to codethread::runscript $run_command_string"
-                    tsv::set codethread_$codethread status -1
-                    thread::send -async $codethread [list punk::repl::codethread::runscript $run_command_string]
-                    thread::mutex lock $codethread_mutex
-                    while {[set status [tsv::get codethread_$codethread status]] == -1} {
-                        update ;#we need a full update here to allow interrupts to be processed
-                        #While update is often considered risky - here we know our input channel readable event has been disabled - so re-entrancy shouldn't be possible.
-                        #however - child thread can send quit - transferring processing from here back to repl::start - which then ends - making a mess (child not yet finished when trying to tidy up)
-                        #we should give the child a way to quit by setting a tsv we pick up here *after the while loop* - and then we can set done.
-
-                        #An example of a case where the update is required is when the script needs to do a thread::send back to this thread to calculate its result.
-                        #e.g repl::interphelpers::colour
-
-
-                        #thread::cond wait $codethread_cond $codethread_mutex 2 ;#2025-07-13 seems to work reasonably
-                        thread::cond wait $codethread_cond $codethread_mutex 1
-                    }
-                    thread::mutex unlock $codethread_mutex
-                    set raw_result  [tsv::get codethread_$codethread result]
-                    lassign [tsv::get codethread_$codethread info] _o lastoutchar_codethread _e lasterrchar_codethread
-
-                    #set status [catch {
-                    #    thread::send $
-                    #    uplevel 1 {namespace inscope $::punk::ns::ns_current $run_command_string}
-                    #} raw_result]
-
-                }
-                #puts stderr "repl raw_result: $raw_result"
-                #set result $raw_result
-                #append result ""; #copy on write
-                #copy on write
-
-                #append result $raw_result ""
-                set result [string cat $raw_result ""]
-                #puts stderr "-->>$result<--"
-                #===============================================================================
-
-                flush stdout
-                flush stderr
-                #foreach s [lreverse $outstack] {
-                #    shellfilter::stack::remove stdout $s
-                #}
-                #foreach s [lreverse $errstack] {
-                #    shellfilter::stack::remove stderr $s
-                #}
-
-                #-----------------------------------------
-                #list/string-rep bug workaround part 2
-                #todo - set flag based on punk::lib::check::has_tclbug_script_var
-                lappend run_command_cache $run_command_string
-                #puts stderr "run_command_string rep: [rep $run_command_string]"
-                if {[llength $run_command_cache] > 2000} {
-                    set run_command_cache [lrange $run_command_cache 1750 end]
-                }
-                #-----------------------------------------
-
-                #screen_last_char_add [string index $lastoutchar_codethread$lasterrchar_codethread end] "stdout/stderr"
-
-
-                #set lastoutchar [string index [punk::ansi::ansistrip $::repl::output_stdout] end]
-                #set lasterrchar [string index [punk::ansi::ansistrip $::repl::output_stderr] end]
-
-                #to determine whether cursor is back at col0 of newline
-                #screen_last_char_add [string index $lastoutchar$lasterrchar end] "stdout/stderr"
-
-
-                #???
-                #screen_last_char_add [string index $lastoutchar$lastoutchar_codethread$lasterrchar$lasterrchar_codethread end] "stdout/stderr"
-                screen_last_char_add [string index $lastoutchar_codethread$lasterrchar_codethread end] "stdout/stderr"
-
-
-                set result_is_chunk_list 0
-                #------
-                #todo - fix. It doesn't make much sense to only detect if the unknown command occurred in first word.
-                #e.g set x [something arg]  not detected vs something arg
-                #also - unknown commands aren't the only things that can write directly to the os handles stderr & stdout
-                set last_unknown [tsv::get repl last_unknown]
-                if  {
-                        [string length $last_unknown] && \
-                        [string equal -length [string length $last_unknown] $last_unknown $line]
-                    } {
-                    #can't currently detect stdout/stderr writes from unknown's call to exec
-                    #add a clearance newline for direct unknown calls for now
-                    #there is usually output anyway - but we will get an extra blank line now even for a call that only had an exit code
-                    #
-                    #
-                    set unknown_clearance "\n* repl newline"
-                    screen_last_char_add "\uFFFF" clearance "clearance after direct unknown call"
-                    if {[tsv::llength repl runchunks-$repl_runid]} {
-                        if {$status == 0} {
-                            set result [tsv::get repl runchunks-$repl_runid] ;#last_run_display
-                        } else {
-
-                        }
-                        set result_is_chunk_list 1
-                    }
-                }
-                #------
-                #ok to use repl::screen_needs_clearance from here down.. (code smell - proc only valid use in narrow context)
-                #***********************************************************
-                #rputs -nonewline stderr $unknown_clearance
-                if {$::punk::repl::debug_repl > 0} {
-                    set lastcharinfo "\n"
-                    set whatcol [string repeat " " 12]
-                    foreach cinfo $::repl::screen_last_char_list {
-                        lassign $cinfo c whatinfo whyinfo
-                        set cdisplay [punk::ansi::ansistring::VIEW -lf 1 -vt 1 $c]
-                        #assertion cdisplay has no raw newlines
-                        if {[punk::char::ansifreestring_width $cdisplay] == 1} {
-                            set cdisplay "$cdisplay " ;#make 2 wide
-                        }
-                        if {[string match repl-debugreport* $whatinfo]} {
-                            #exclude noise debug_repl_emit - but still show the last_char
-                            set whysummary ""
-                        } else {
-                            #set whysummary [string map [list \n "-n-"] $whyinfo]
-                            set whysummary [punk::ansi::ansistring::VIEW -lf 1 -vt 1 $whyinfo]
-                        }
-                        set whatinfo [string range $whatinfo$whatcol 0 [string length $whatcol]]
-                        append lastcharinfo "$cdisplay $whatinfo $whysummary\n"
-                    }
-                    debug_repl_emit "screen_last_chars: $lastcharinfo"
-                }
-
-                debug_repl_emit "lastoutchar:'$lastoutchar'  lasterrchar: '$lasterrchar'"
-                if {$status == 0} {
-                    debug_repl_emit "command call status: $status  OK"
-                } else {
-                    debug_repl_emit "command call status: $status  ERR"
-                }
-
-
-
-
-                #puts stderr "<output>'$::repl::output_stdout' lastoutchar:'$lastoutchar' result:'$result'"
-                #$command is an unevaluated script at this point
-                # so may not be a well formed list e.g 'set x [list a "b"]'
-                #- lindex $command would sometimes fail
-                #if {[lindex $command 0] eq "runx"} {}
-
-
-                #temporary hack.
-                #todo - use happy path return options for non-primary result (like www package) ?
-                if  {
-                        [string equal -length [string length "d/ "] "d/ " $commandstr] || \
-                        [string equal "d/\n" $commandstr] || \
-                        [string equal -length [string length "dd/ "] "dd/ " $commandstr] || \
-                        [string equal "dd/\n" $commandstr] || \
-                        [string equal -length [string length "./ "] "./ " $commandstr] || \
-                        [string equal "./\n" $commandstr] || \
-                        [string equal -length [string length "../ "] "../ " $commandstr] || \
-                        [string equal "../\n" $commandstr] || \
-                        [string equal -length [string length "runx "] "runx " $commandstr] || \
-                        [string equal -length [string length "sh_runx "] "sh_runx " $commandstr] || \
-                        [string equal -length [string length "runout "] "runout " $commandstr] || \
-                        [string equal -length [string length "sh_runout "] "sh_runout " $commandstr] || \
-                        [string equal -length [string length "runerr "] "runerr " $commandstr] || \
-                        [string equal -length [string length "sh_runerr "] "sh_runerr " $commandstr]
-
-                        } {
-                    if {[tsv::llength repl runchunks-$repl_runid]} {
-                        set result [tsv::get repl runchunks-$repl_runid] ;#last_run_display
-                        set result_is_chunk_list 1
-                    }
-                }
-
-                # -- --- --- --- --- --- --- --- --- ---
-                ##an attempt to preserve underlying rep
-                ##this is not for performance - just to be less disruptive to underlying rep to aid in learning/debugging
-                # -- --- --- --- --- --- --- --- --- ---
-                # JN 2023 - The lrange operation is destructive to path internal representation
-                # The lrange operation is destructive to strings with leading/trailing newlines
-                # -- --- --- --- --- --- --- --- --- ---
-                #set saved_errorCode $::errorCode
-                #set saved_errorInfo $::errorInfo
-                #if {[catch {lrange $result 0 end} result_as_list]} {
-                #    set is_result_empty [expr {$result eq ""}]
-                #    set ::errorCode $saved_errorCode
-                #    set ::errorInfo $saved_errorInfo
-                #} else {
-                #    set is_result_empty [expr {[llength $result_as_list] == 0}]
-                #}
-                # -- --- --- --- --- --- --- --- --- ---
-                #set resultrep [::tcl::unsupported::representation $result]
-
-                set is_result_empty [expr {$result eq ""}]
-
-                #catch {puts stderr "yy--->[rep $::arglej]"}
-
-                set reading 1
-                if {!$is_result_empty} {
-                    if {$status == 0} {
-                        if {[screen_needs_clearance]} {
-                            rputs -nonewline stderr \n
-                        }
-                        if {$result_is_chunk_list} {
-                            foreach c $result {
-                                lassign $c termchan text
-                                if {[string length $text]} {
-                                    switch -- $termchan {
-                                        result {
-                                            #rputs stdout $resultprompt[string map [list \n "\n$resultprompt"] $text]
-                                            set h [textblock::height $text]
-                                            set promptcol [string repeat $resultprompt\n $h]
-                                            set promptcol [string range $promptcol 0 end-1]
-                                            #rputs [textblock::join_basic -- $promptcol $text]
-                                            rputs [textblock::join_basic_raw $promptcol $text]
-
-                                            #puts -nonewline stdout $text
-                                        }
-                                        resulterr {
-                                            rputs stderr $resultprompt[string map [list \n "\n$resultprompt"] $text]
-                                        }
-                                        info {
-                                            rputs stderr $infoprompt[string map [list \n "\n$infoprompt"] $text]
-                                        }
-                                        default {
-                                            #rputs -nonewline $termchan $text
-                                            set chanprompt "_ "
-                                            rputs $termchan ${chanprompt}[string map [list \n "\n${chanprompt}"] $text]
-                                        }
-                                    }
-                                }
-                            }
-
-                        } else {
-                            #-----------------------------------------------------------
-                            # avoid repl forcing string rep of simple results. This is just to aid analysis using tcl::unsupported::representation
-                            #set rparts [split $result {}]
-                            #if {[lsearch $rparts \n] < 0} {
-                            #    #type of $result unaffected
-                            #    rputs "$resultprompt $result"
-                            #} else {
-                            #    #$result will be a string due to use of string map
-                            #   rputs $resultprompt[string map [list \n "\n$resultprompt"] $result]
-                            #}
-                            #-----------------------------------------------------------
-
-                            #we have copied rawresult using append with empty string - so our string interaction with result var here shouldn't affect the returned value
-                            #empty-string result handled in other branch
-                            if {![tsv::llength repl runchunks-$repl_runid]} {
-                                #write back to tsv var for use by punk::get_runchunks (underscore command)
-                                tsv::set repl runchunks-$repl_runid [list [list result $result]]
-                            }
-                            set flat [string map [list \r\n "" \n ""] $result]
-                            if {[string length $flat] == [string length $result]} {
-                                #no line-endings in data
-                                rputs "$resultprompt$result"
-                            } else {
-                                #if {[string index $result end] eq "\n"} {
-                                #    set result [string range $result 0 end-1]
-                                #}
-                                if {[string length $flat] == 0} {
-                                    if {[string range $result end-1 end] eq "\r\n"} {
-                                        set result [string range $result 0 end-2]
-                                    } else  {
-                                        set result [string range $result 0 end-1]
-                                    }
-                                }
-                                #NOTE - textblock::height is the line height - not reflective of height of data with ansi-moves or things like sixels
-                                set h [textblock::height $result]
-                                set promptcol [string repeat $resultprompt\n $h]
-                                set promptcol [string range $promptcol 0 end-1]
-                                #promptcol is uniform-width lines, result may not be. We are ok to join with ragged rhs col here, so use join_basic instead of join
-                                #rputs [textblock::join_basic -- $promptcol $result]
-                                rputs [textblock::join_basic_raw $promptcol $result]
-
-                                #orig
-                                #rputs $resultprompt[string map [list \r\n "\n$resultprompt" \n "\n$resultprompt"] $result]
-                            }
-                        }
-                        doprompt "P% "
-                    } else {
-                        #tcl err
-                        if {$result_is_chunk_list} {
-                            foreach c [tsv::get repl runchunks-$repl_runid] {
-                                #last_run_display
-                                lassign $c termchan text
-                                if {[string length $text]} {
-                                    switch -- $termchan {
-                                        result {
-                                            rputs stdout $resultprompt[string map [list \n "\n$resultprompt"] $text]
-                                            #puts -nonewline stdout $text
-                                        }
-                                        resulterr {
-                                            rputs stderr $resultprompt[string map [list \n "\n$resultprompt"] $text]
-                                        }
-                                        info {
-                                            rputs stderr $infoprompt[string map [list \n "\n$infoprompt"] $text]
-                                        }
-                                        default {
-                                            rputs -nonewline $termchan $text
-                                        }
-                                    }
-                                }
-                            }
-                        }
-
-                        set c [a yellow bold]
-                        set n [a]
-                        #rputs stderr $c$result$n
-                        rputs [punk::ansi::ansiwrap_raw $c "\x1b\[m" "" $result]
-                        #tcl err hint prompt - lowercase
-                        doprompt "p% "
-                    }
-                } else {
-                    #doprompt "P% " "green normal"
-                    if {$linenum == 0} {
-                        doprompt "P% " "green normal"
-                        screen_last_char_add " " empty empty
-                    } else {
-                        doprompt "\nP% " "green normal"
-                        screen_last_char_add "\n" empty empty  ;#add \n to indicate noclearance required
-                    }
-                }
-                #catch {puts stderr "zz1--->[rep $::arglej]"}
-                #puts stderr "??? $commandstr"
-                if {$::punk::repl::debug_repl > 0} {
-                    incr ::punk::repl::debug_repl -1
-                }
-                set commandstr ""
-                #catch {puts stderr "zz2---->[rep $::arglej]"}
-
-                set lines [$editbuf lines]
-                set buf_has_data 0
-                foreach ln $lines {
-                    if {[string trim $ln] ne ""} {
-                        set buf_has_data 1
-                    }
-                }
-                if {$buf_has_data} {
-                    set editbufnext [punk::repl::class::class_editbuf new {}]
-                    lappend editbuf_list $editbufnext
-                    set editbuf_linenum_submitted 0
-                    set editbuf $editbufnext
-                }
-                #editbuf
-
-
-                #after any external command - raw mode as the console sees it can be disabled
-                #set it to match current state of the tsv 
-                if {[tsv::get console is_raw]} {
-                    if {$::tcl_platform(platform) eq "windows"} {
-                        #review
-                        #we are in parent process - twapi might not be loaded here - even if it is in the code interp
-                        catch {package require twapi}
-                    }
-                    set sinfo [chan configure stdin]
-                    if {[dict exists $sinfo -inputmode]} {
-                        if {[dict get $sinfo -inputmode] ne "raw"} {
-                            set re_enable_required 1
-                        } else {
-                            set re_enable_required 0
-                        }
-                    } else {
-                        # -inputmode unavailable
-                        #tcl 8.6 doesn't have -inputmode - meaning it has to call punk:console::enableRaw each time
-                        #enableRaw on windows without twapi involves launching a pwsh process - which gives a noticeable lag in keyboard input.
-                        #enableRaw on Unix involves a call to stty - which is generally fast - but still to be avoided if not required.
-                        set re_enable_required 1
-                    }
-                    #puts stderr "-here- re-enabling raw"
-                    if {$re_enable_required} {
-                        punk::console::enableRaw
-                    }
-                }
-            } else {
-                #append commandstr \n
-                if {$::punk::repl::signal_control_c} {
-                    set ::punk::repl::signal_control_c 0
-                    chan event $inputchan readable {}
-                    rputs stderr  "* console_control: control-c"
-                    flush stderr
-                    set c [a yellow bold]
-                    set n [a]
-                    rputs stderr "${c}repl interrupted$n"
-                    #set commandstr [list error "repl interrupted"]
-                    set commandstr ""
-                    doprompt ">_ "
-                    flush stdout
-
-                } else {
-                    #Incomplete command
-                    # parse and determine outermost unclosed quote/bracket and include in prompt
-                    if {$linenum == $maxlinenum} {
-                        if {$rawmode} {
-                            #review
-                            #we haven't put the data following last le into commandstr - but we want to display proper completion status prior to enter being hit or more data coming in.
-                            #this could give spurious results for large pastes where buffering chunks it in odd places.?
-                            #it does however give sensible output for the common case of a small paste where the last line ending wasn't included
-                            set waiting [punk::lib::system::incomplete $commandstr[$editbuf line end]]
-                        } else {
-                            set waiting [punk::lib::system::incomplete $commandstr]
-                        }
-                        if {[llength $waiting]} {
-                            set c [lindex $waiting end]
-                        } else {
-                            #set c " "
-                            set c \u240a
-                        }
-                        doprompt ">$c "
-                    }
-                }
-            }
-
-            incr linenum
-        }
-
-
-        if {$maxlinenum == -1} {
-            #when in raw mode - no linefeed yet received
-            #rputs stderr "repl: no complete input line: $commandstr"
-            #screen_last_char_add "\n" empty empty
-
-            screen_last_char_add [string index [$editbuf line end] end] stdinchunk stdinchunk
-
-        }
-
-
-        #chan event $inputchan readable [list repl::repl_handler $inputchan $prompt_config]
-        #catch {puts stderr "zend--->[rep $::arglej]"}
-
-
-    } trap {POSIX} {e eopts} {
-        rputs stderr "trap POSIX '$e' eopts:'$eopts"
-        flush stderr
-    } on error {repl_error erropts} {
-        rputs stderr "error in repl_handler: $repl_error"
-        rputs stderr "-------------"
-        rputs stderr "$::errorInfo"
-        rputs stderr "-------------"
-        set stdinreader [chan event $inputchan readable]
-        if {![string length $stdinreader]} {
-            rputs stderr "*> $inputchan reader inactive"
-        } else {
-            rputs stderr "*> $inputchan reader active"
-        }
-        if {[chan eof $inputchan]} {
-            rputs stderr "todo - attempt restart of repl on input channel: $inputchan in next loop"
-            catch {set ::punk::ns::ns_current "::"}
-            #todo set flag to restart repl ?
-        } else {
-            rputs stderr "continuing.."
-        }
-        flush stderr
-    }
-}
-
-proc repl::completion {context ebuf} {
-
-}
-
-namespace eval repl {
-
-
-    proc init {args} {
-        puts stderr "-->repl::init $args"
-        if {![info exists ::argv0]} {
-            #error out before we create a thread - punk requires this - review
-            error "::argv0 not set"
-        }
-        #in case -callback_interp wasn't explicitly defined - we make a guess based on how init was called as to whether this is being launched from a 'code' or root ("") interp.
-        if {[catch {info level -1} caller]} {
-            #todo logger
-            #puts "repl::init from: global"
-            set default_callback_interp ""
-        } else {
-            #puts "repl::init from: $caller"
-            set default_callback_interp "code"
-        }
-        variable codethread
-        variable codethread_cond
-        variable codethread_mutex
-
-        set opts [list -force 0 -safe 0 -safelog 0 -paths {} -callback_interp $default_callback_interp]
-        foreach {k v} $args {
-            switch -- $k {
-                -force - -safe - -safelog - -paths - -callback_interp {
-                    dict set opts $k $v
-                }
-                default {
-                    error "repl::init unknown option '$k'. Known-options: [dict keys $opts]"
-                }
-            }
-        }
-        set opt_force [dict get $opts -force]
-        set opt_safe  [dict get $opts -safe]
-        set opt_safelog  [dict get $opts -safelog]
-        if {$opt_safelog eq "0"} {
-            set opt_safelog ""
-        }
-        if {[string is boolean -strict $opt_safelog]} {
-            if {$opt_safelog} {
-                set opt_safelog ::repl::interpextras::safe_msg
-            }
-        }
-        dict set opts -safelog $opt_safelog
-
-        #If we are launching a repl from within an interp - we need to tell the childthread how to call-back to the parent repl
-        set opt_callback_interp [dict get $opts -callback_interp]
-
-        if {$codethread ne "" && !$opt_force && [thread::exists $codethread] } {
-            error "repl:init codethread: $codethread already exists. use -force 1 to override"
-        }
-        set codethread [thread::create -preserved]
-        #review - naming of the possibly 2 cond variables parent and child thread
-        set codethread_cond     [thread::cond create] ;#repl::codethread_cond held by parent(repl) vs punk::repl::codethread::replthread_cond held by child(codethread)
-        set codethread_mutex    [thread::mutex create]
-
-
-        set scriptmap                        [list   %args%                 [list $opts]                  \
-                                                     %argv0%                [list $::argv0]               \
-                                                     %argv%                 [list $::argv]                \
-                                                     %argc%                 [list $::argc]                \
-                                                     %replthread%           [thread::id]                  \
-                                                     %replthread_cond%      $codethread_cond              \
-                                                     %replthread_interp%    [list $opt_callback_interp]   \
-                                                     %tmlist%               [list [tcl::tm::list]]        \
-                                                     %autopath%             [list $::auto_path]           \
-                                                     %lib_epoch%            [list $::punk::libunknown::epoch]\
-                                             ]
-        #scriptmap applied at end to satisfy silly editor highlighting.
-        set init_script {
-            set ::codethread_initstatus [list [list started [clock seconds]]]
-            set ::argv0 %argv0%
-            set ::argv %argv%
-            set ::argc %argc%
-            tcl::tm::remove {*}[tcl::tm::list]
-            tcl::tm::add {*}[lreverse %tmlist%] ;#Must be added in reverse order to get same order as original list!
-
-            #this sets the auto_path in the thread but outside of the code interp that will be created.
-            #It will also need to be added in that interp
-            set ::auto_path %autopath%
-            set tclmajorv [lindex [split [tcl::info::tclversion] .] 0]
-            #jmn2
-            #puts stdout "CODETHREAD tm list"
-            #puts stdout [join [tcl::tm::list] \n]
-            #puts stdout "===================="
-            #flush stdout
-            #puts stdout "CODETHREAD autopath"
-            #puts stdout [join $::auto_path \n]
-            #puts stdout "===================="
-            #flush stdout
-            #if {[llength [info commands tcl::zipfs::root]]} {
-            #    set zipbase [file join [tcl::zipfs::root] app] ;#zipfs root has trailing slash - but file join does the right thing
-            #    if {"$zipbase" in [tcl::zipfs::mount]} {
-            #        puts stdout "//zipfs:/app/modules_tcl$tclmajorv exists: [file exists //zipfs:/app/modules_tcl$tclmajorv]"
-            #    }
-            #}
-            #puts stdout "===================="
-            #-----------------------------------------------------------------------------
-
-            namespace eval ::punk::libunknown {}
-            set ::punk::libunknown::epoch %lib_epoch%
-
-            set libunks [list]
-            foreach tm_path [tcl::tm::list] {
-                set punkdir [file join $tm_path punk]
-                if {![file exists $punkdir]} {continue}
-                lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm]
-            }
-            set libunknown ""
-            set libunknown_version_sofar ""
-            foreach lib $libunks {
-                #expecting to be of form libunknown-<tclversion>.tm
-                set vtail [lindex [split [file tail $lib] -] 1]
-                set thisver [file rootname $vtail] ;#file rootname x.y.z.tm
-                if {$libunknown_version_sofar eq ""} {
-                    set libunknown_version_sofar $thisver
-                    set libunknown $lib
-                } else {
-                    if {[package vcompare $thisver $libunknown_version_sofar] == 1} {
-                        set libunknown_version_sofar $thisver
-                        set libunknown $lib
-                    }
-                }
-            }
-            if {$libunknown ne ""} {
-                source $libunknown
-                if {[catch {punk::libunknown::init -caller "repl::init init_script parent interp"} errM]} {
-                    puts "repl::init problem - error initialising punk::libunknown\n$errM"
-                }
-                #package require punk::lib
-                #puts [punk::libunknown::package_query snit]
-            } else {
-                puts "repl::init problem - can't load punk::libunknown"
-            }
-            #-----------------------------------------------------------------------------
-
-            package require punk::packagepreference
-            punk::packagepreference::install
-
-            #jjj
-            package require punk::ansi::colourmap
-            package require punk::args
-            #package require Thread
-
-            if {[catch {package require thread} errM]} {
-                puts stdout ">>repl::init initscript lib load fail on package require thread\n$errM"
-                puts stdout ">>repl::init auto_path    : $::auto_path"
-                puts stdout ">>repl::init tcl::tm::list: [tcl::tm::list]"
-            }
-
-            #-----
-            #review - icomm as a possible way to talk to thread outside of the code interp.
-            #thread::send msgs arrive at a specific interp based on initial setup - review for when/whether androwish thread enhancements are made to allow
-            #thread::send to caller defined interp targets (reference?)
-            #snit required for icomm
-            if {[catch {package require snit} errM]} {
-                #puts stdout "punk::repl::initscript: lib load fail ---snit $errM"
-            }
-            if {[catch {package require punk::icomm} errM]} {
-                #puts stdout "punk::repl::initscript: lib load fail ---icomm $errM"
-            }
-            #-----
-
-            namespace eval ::punk::repl::codethread {}
-            #todo - review. According to fifo2 docs Memchan involves one less thread (may offer better performance/resource use)
-            catch {package require tcl::chan::fifo2}
-            if {[catch {
-                    #first use can raise error being a version number e.g 0.1.0  - why?
-                    lassign [tcl::chan::fifo2] ::punk::repl::codethread::repltalk replside
-                    } errMsg]} {
-                puts stdout "punk::repl::initscript tcl::chan::fifo2 error: $errMsg"
-            } else {
-                #experimental?
-                #puts stdout "transferring chan $replside to thread %replthread%"
-                #flush stdout
-                #if {[catch {
-                #    #after 0 [list thread::transfer %replthread% $replside]
-                #} errMsg]} {
-                #    #puts stdout "---thread::transfer error: $errMsg"
-                #}
-            }
-
-            package require punk::console
-            package require punk::repl::codethread
-            package require shellfilter
-            #package require shellrun
-            package require textblock
-
-            #md5 uses open so can't be directly called in a safe interp
-            #it will need to delegate to a call here in the main interp of the codethread using an installed alias
-            set md5version [package require md5]
-            #we also need to 'package provide md5 $md5version' in the safe interp itself so that it won't override
-
-
-            #punk::configure_unknown ;#must be called because we hacked the tcl 'unknown' proc
-
-            #child codethread (outside of code interp) needs to know details of the calling repl
-            set ::punk::repl::codethread::replthread %replthread%  ;#point to thread id of parent thread (repl)
-            set ::punk::repl::codethread::replthread_cond %replthread_cond%
-            set ::punk::repl::codethread::replthread_interp %replthread_interp%
-
-            # -- --- --- ---
-            #procs to alias into the codethread interp
-            #as we are doing string substitution on the whole block anyway, and these values are contant for the life of the thread,  we may as well substitute hard values for things like replthread into these procs where possible
-            # -- --- --- ---
-            namespace eval ::repl::interphelpers {
-                proc quit {args} {
-                    #child codethreads run in a 'code' interp therefore if they started another repl - it is within the 'code' interp in that thread
-                    # whereas the first repl launched in the process runs in root interp ""
-                    thread::send -async %replthread% [list interp eval %replthread_interp%  [list ::punk::repl::quit {*}$args]]
-                }
-                proc editbuf args {
-                    thread::send %replthread% [list punk::repl::editbuf {*}$args]
-                }
-                proc escapeeval {script} {
-                    eval $script
-                }
-                proc do_after {args} {
-                    if {[llength $args] == 1} {
-                        return after {*}$args
-                    }
-                    set scr [lindex $args 1]
-                    after [lindex $args 0] [list punk::repl::codethread::runscript $scr]
-                }
-                proc repl_ensemble_unknown args {
-                    puts $args
-                    if {[llength $args] == 1} {
-                        return [namespace ensemble configure ::repl::interphelpers::repl_ensemble]
-                    }
-                }
-                proc colour args {
-                    set colour_state [thread::send %replthread% [list punk::console::colour]]
-                    if {[llength $args]} {
-                        #colour call was not a query
-                        set new_state [thread::send %replthread% [list punk::console::colour {*}$args]]
-                        if {[expr {$new_state}] ne [expr {$colour_state}]} {
-                            interp eval code [list punk::console::colour {*}$args] ;#align code interp's view of colour state with repl thread
-
-                            #we don't want to run a raw script directly in our code interp if we're using variables
-                            #because we will potentially collide with user vars in that context (or create vars there) - so use apply
-                            interp eval code [list apply {docolour {
-                                #adjust channel transform stack
-                                if {!$docolour} {
-                                    set stackinfo [dict get [shellfilter::stack item stdout] stack]
-                                    set topstack [lindex $stackinfo 0]
-                                    if {[string match *::ansiwrap [dict get $topstack -transform]]} {
-                                        set sid [dict get $topstack -id]
-                                        shellfilter::stack::remove stdout $sid
-                                    }
-                                    set stackinfo [dict get [shellfilter::stack item stderr] stack]
-                                    set topstack [lindex $stackinfo 0]
-                                    if {[string match *::ansiwrap [dict get $topstack -transform]]} {
-                                        set sid [dict get $topstack -id]
-                                        shellfilter::stack::remove stderr $sid
-                                    }
-
-                                } else {
-                                    set configd $::punk::config::configdata
-                                    if {[string length [dict get $configd running color_stdout]]} {
-                                        #lappend ::codeinterp::outstack [shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $running_config color_stdout]]]
-                                        shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $configd running color_stdout]]
-                                    }
-                                    if {[string length [dict get $configd running color_stderr]]} {
-                                        #lappend ::codeinterp::errstack [shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $running_config color_stderr]]]
-                                        shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $configd running color_stderr]]
-                                    }
-
-                                }
-                            }} $new_state]
-                        }
-                        return $new_state
-                    } else {
-                        return $colour_state
-                    }
-                    #todo - add/remove shellfilter stacked ansiwrap
-                }
-                proc vt52 {args} {
-                    return [thread::send %replthread% [list punk::console::vt52 {*}$args]]
-                }
-                proc mode args {
-                    #with tsv::set console is_raw we don't need to call mode in both the replthread and the codethread
-                    # REVIEW - call in local interp? how about if codethread is safe interp?
-                    #interp eval code [list ::punk::console::mode {*}$args]
-                    thread::send %replthread% [list punk::console::mode {*}$args]
-                }
-                proc cmdtype cmd {
-                    code invokehidden tcl:info:cmdtype $cmd
-                }
-
-                #punk repl tsv wrappers
-                proc set_repl_last_unknown args {
-                    tsv::set repl last_unknown {*}$args
-                }
-                proc get_repl_runid args {
-                    if {[tsv::exists repl runid]} {
-                        return [tsv::get repl runid]
-                    } else {
-                        return 0
-                    }
-                }
-                proc md5 args {
-                    ::md5::md5 {*}$args
-                }
-                proc fconfigure {args} {
-                    code invokehidden fconfigure {*}$args
-                }
-                proc fnormalize name {
-                    code invokehidden tcl:file:normalize $name
-                }
-                proc fdirname name {
-                    code invokehidden tcl:file:dirname $name
-                }
-            }
-            namespace eval ::repl::interpextras {
-                #install using safe::setLogCmd
-                proc safe_msg {msg} {
-                    puts stderr "safebase: $msg"
-                }
-            }
-
-            namespace eval ::repl::interphelpers::repl_ensemble {
-                namespace export {[a-z]*}
-                namespace ensemble create
-                namespace ensemble configure [namespace current] -unknown ::repl::interphelpers::repl_ensemble_unknown
-                variable replinfo
-                set replinfo [dict create thread %replthread% interp %replthread_interp%]
-                proc thread {} {
-                    return %replthread%
-                }
-                proc info {} {
-                    variable replinfo
-                    return $replinfo
-                }
-                proc eval {script} {
-                    thread::send %replthread% $script
-                }
-                proc stack {} {
-                    set iname %replthread_interp%
-                    set tid  %replthread%
-                    lappend stack [list thread $tid interp $iname]
-                    while {$iname eq "code"} {
-                        set iname [thread::send $tid {set ::punk::repl::codethread::replthread_interp}]
-                        set tid [thread::send $tid {set ::punk::repl::codethread::replthread}]
-                        lappend stack [list thread $tid interp $iname]
-                    }
-                    return $stack
-                }
-            }
-            namespace eval ::repl::interphelpers::subshell_ensemble {
-                namespace export {[a-z]*}
-                namespace ensemble create
-                proc punk {} {
-                    set ts_start [clock seconds]
-                    set replresult [interp eval code {
-                        package require punk::repl
-                        repl::init -safe punk
-                        repl::start stdin
-                    }]
-                    return [list replresult $replresult elapsed [expr {[clock seconds]-$ts_start}]]
-                }
-                proc safe {args} {
-                    set ts_start [clock seconds]
-                    interp eval code {
-                        package require punk::repl
-                    }
-                    interp eval code    [list repl::init -safe safe {*}$args]
-                    set replresult [interp eval code    [list repl::start stdin]]
-
-                    return [list replresult $replresult elapsed [expr {[clock seconds]-$ts_start}]]
-                }
-                proc safebase {args} {
-                    set ts_start [clock seconds]
-                    interp eval code {
-                        package require punk::repl
-                    }
-                    set codethread [interp eval code    [list repl::init -safe safebase {*}$args]]
-                    puts stdout "safebase codethread:$codethread"
-                    set replresult [interp eval code    [list repl::start stdin]]
-
-                    return [list replresult $replresult elapsed [expr {[clock seconds]-$ts_start}]]
-                }
-                proc punksafe {args} {
-                    set ts_start [clock seconds]
-                    interp eval code {
-                        package require punk::repl
-                    }
-                    interp eval code    [list repl::init -safe punksafe {*}$args]
-                    set replresult [interp eval code    [list repl::start stdin]]
-
-                    return [list replresult $replresult elapsed [expr {[clock seconds]-$ts_start}]]
-                }
-            }
-            # -- --- --- --- ---
-
-            #puts "codethread:[thread::id] parent replthread:%replthread%"
-            #flush stdout
-
-            set args %args%
-            set safe [dict get $args -safe]
-            set safelog  [dict get $args -safelog]
-            set paths [list]
-            if {[dict exists $args -paths]} {
-                set paths [dict get $args -paths]
-            }
-
-            switch -- $safe {
-                safe {
-                    interp create -safe -- code
-                    code eval       [list namespace eval ::punk::libunknown {}]
-                    catch {
-                        code eval   [list set ::punk::libunknown::epoch $::punk::libunknown::epoch]
-                    }
-                }
-                safebase {
-                    safe::interpCreate code -nested 1 -autoPath %autopath%
-                    code alias "file normalize"         "file normalize"
-                    code alias "file dirname"           "file dirname"
-                    code alias "file exists"           "file exists"
-                    code alias ::tcl::file::normalize   ::tcl::file::normalize
-                    code alias ::tcl::file::dirname     ::tcl::file::dirname
-                    code alias ::tcl::file::exists     ::tcl::file::exists
-                    #code alias ::punk::console::colour ::punk::console::colour
-                }
-                punksafe {
-                    #less safe than safebase - we need file normalize and info script to handle modpod?
-                    package require punk::safe
-                    punk::safe::interpCreate code -autoPath %autopath%
-                    code alias "file normalize"         "file normalize"
-                    code alias "file dirname"           "file dirname"
-                    code alias "file exists"           "file exists"
-                    code alias ::tcl::file::normalize   ::tcl::file::normalize
-                    code alias ::tcl::file::dirname     ::tcl::file::dirname
-                    code alias ::tcl::file::exists     ::tcl::file::exists
-                    code alias ::punk::console::colour ::punk::console::colour
-                }
-                punk - 0 {
-                    interp create code
-                    code eval       [list namespace eval ::punk::libunknown {}]
-                    catch {
-                        #JJJ REVIEW.
-                        #If libunknown was loaded when packages already in the package database
-                        #then the epoch info may be wrong.
-                        code eval   [list set ::punk::libunknown::epoch $::punk::libunknown::epoch]
-                    }
-                }
-                punkisland {
-                    interp create code
-                    #todo
-                    #when no island paths specified - should be like safebase, but without folder hiding and with expanded read to ::auto_path folders
-                }
-            }
-
-            interp eval code {
-                namespace eval codeinterp {
-                    variable errstack {}
-                    variable outstack {}
-                    variable run_command_cache
-                    proc set_clone {varname obj} {
-                        append obj2 $obj {}
-                        uplevel 1 [list set $varname $obj2]
-                    }
-                }
-            }
-
-            #todo a specific punk::libunknown 'package unknown' handler for safe interps
-            #pull in code via calls to source cached code?
-            switch -- $safe {
-                safe {
-                    if {[llength $paths]} {
-                        package require punk::island
-                        foreach p $paths {
-                            punk::island::add code $p
-                        }
-                    }
-                    #interp share "" stdout code
-                    #interp share "" stderr code
-                    #interp share "" stdin code  ;#needed for ANSI queries
-                    interp eval code [list set ::tcl_platform(os) $::tcl_platform(os)]
-                    interp eval code [list set ::tcl_platform(osVersion) $::tcl_platform(osVersion)]
-                    interp eval code [list set ::tcl_platform(machine) $::tcl_platform(machine)]
-                    if {"stdout" in [chan names]} {
-                        interp share {} stdout code
-                    } else {
-                        interp share {} [shellfilter::stack::item_tophandle stdout] code
-                    }
-                    if {"stderr" in [chan names]} {
-                        interp share {} stderr code
-                    } else {
-                        interp share {} [shellfilter::stack::item_tophandle stderr] code
-                    }
-
-                    set codehidden [code hidden]
-                    code alias file file
-                    if {"source" in $codehidden} {
-                        code expose source
-                    }
-                    if {"encoding" in $codehidden} {
-                        code expose encoding ;#leave enabled
-                    }
-                    if {"tcl:encoding:system" in $codehidden} {
-                        code expose tcl:encoding:system
-                        code eval {rename ::tcl::encoding::system ""}
-                        code eval {rename tcl:encoding:system ::tcl::encoding::system}
-                    }
-                    #interp alias is available in safe - so it seems unreasonable to disallow 'info cmdtype'
-                    if {"tcl:info:cmdtype" in $codehidden} {
-                        code eval {rename ::tcl::info::cmdtype ""}
-                        code expose tcl:info:cmdtype
-                        code eval {rename tcl:info:cmdtype ::tcl::info::cmdtype}
-                    }
-
-
-
-                    #package require punk::libunknown
-                    #package require punk::args
-                    #code eval {
-                    #    package require punk::libunknown
-                    #    punk::libunknown::init -caller safe
-                    #}
-                    set pkgs [list\
-                        punk::ansi::colourmap\
-                        punk::args\
-                        punk::pipe\
-                        cmdline\
-                        struct::list\
-                        struct::set\
-                        textutil::wcswidth\
-                        textutil::trim\
-                        textutil::repeat\
-                        textutil::tabify\
-                        textutil::split\
-                        textutil::string\
-                        textutil::adjust\
-                        textutil\
-                        punk::encmime\
-                        punk::char\
-                        punk::assertion\
-                        punk::ansi\
-                        punk::lib\
-                        overtype\
-                        dictutils\
-                        debug\
-                        punk::ns\
-                        textblock\
-                        punk::args::tclcore\
-                        punk::aliascore\
-                        ]
-
-                       #pattern looks up versions available of patternlib before loading (but we don't have an index for tm files) todo fix pattern.
-                       # patterncmd\
-                       # metaface\
-                       # patternpredator2\
-                       # patternlib\
-                       # pattern
-
-                       # - no longer required by textblock
-                       # term::ansi::code\
-                       # term::ansi::code::attr\
-                       # term::ansi::code::ctrl\
-                       # term::ansi::code::macros
-
-                    #----------
-                    #all this scanning and loading core packages - we should possibly cache the file data for other interps?
-                    #make sure codethread has scanned for packages - must do for each namespace level
-                    #catch {package require flubber_nonexistent}
-                    set ns_scanned [dict create]
-                    #----------
-                    set prior_infoscript [code eval {info script}] ;#probably empty that's ok
-                    foreach pkg $pkgs {
-                        #puts stderr "---> init_script safe pkg: $pkg"
-                        if {[catch {
-                            set nsquals [namespace qualifiers $pkg]
-                            if {$nsquals ne ""} {
-                                if {![dict exists $ns_scanned $nsquals]} {
-                                    catch {package require $pkg 1-0} ;#force scan with nonsatisfiable version
-                                    dict set ns_scanned $nsquals 1
-                                }
-                            }
-                            set versions [lsort -command {package vcompare} [package versions $pkg]]
-                            if {[llength $versions]} {
-                                set v [lindex $versions end]
-                                set path [lindex [package ifneeded $pkg $v] end]
-                                if {[file extension $path] in {.tcl .tm}} {
-                                    if {![catch {readFile $path} data]} {
-                                        code eval [list info script $path]
-                                        code eval $data
-                                        code eval [list info script $prior_infoscript]
-                                    } else {
-                                        error "safe - failed to read $path"
-                                    }
-                                } else {
-                                    error "safe - refusing to attempt load of $pkg from $path - (allowed extensions .tcl .tm)"
-                                }
-                            } else {
-                                error "safe - no versions of $pkg found"
-                            }
-                        } errMsg]} {
-                            puts stderr "safe - failed to load package $pkg\n$errMsg\n$::errorInfo"
-                        } else {
-                            #puts stdout "---> init_script safe - loaded $pkg from $path"
-                            #puts stdout "---> v [code eval [list package provide $pkg]]"
-                        }
-                    }
-
-                    #JJJJ
-                    #code alias file ""
-                    #code hide source
-
-
-                    #review argv0,argv,argc
-                    #interp eval code {
-                    #    set ::argv0 %argv0%
-                    #    set ::auto_path %autopath%
-                    #}
-
-                    #review
-                    code alias ::shellfilter::stack     ::shellfilter::stack
-                    #code alias ::punk::lib::set_clone   ::punk::lib::set_clone
-                    #code alias ::aliases                ::punk::lib::aliases
-                    code alias ::punk::lib::aliases     ::punk::lib::aliases
-                    namespace eval ::codeinterp {}
-
-                    code alias ::md5::md5                       ::repl::interphelpers::md5
-                    code alias exit         ::repl::interphelpers::quit
-                }
-                safebase {
-                    #safebase
-                    #safe::setLogCmd ::repl::interpextras::safe_msg ;#using setLogcmd early will show the auto_path notice - which is *verbose*
-                    #while it may conceivably be useful in debugging safe itself - auto_path and tcl::tm::list can be inspected to show these values in the safe interp itself anyway - so early logging is of limited utility here.
-                    if {[llength $paths]} {
-                        package require punk::island
-                        foreach p $paths {
-                            punk::island::add code $p
-                        }
-                    }
-                    interp eval code {
-                        set ::argv0 %argv0%
-                        set ::argc 0
-                        set ::argv {}
-                        #puts stdout "safebase interp"
-                        #flush stdout
-                    }
-                    interp eval code [list set ::tcl_platform(os) $::tcl_platform(os)]
-                    interp eval code [list set ::tcl_platform(osVersion) $::tcl_platform(osVersion)]
-                    interp eval code [list set ::tcl_platform(machine) $::tcl_platform(machine)]
-
-                    code alias ::fconfigure ::repl::interphelpers::fconfigure ;#needed for shellfilter
-
-                    #code invokehidden package require punk::lib
-                    if {"stdout" in [chan names]} {
-                        interp share {} stdout code
-                    } else {
-                        interp share {} [shellfilter::stack::item_tophandle stdout] code
-                    }
-                    if {"stderr" in [chan names]} {
-                        interp share {} stderr code
-                    } else {
-                        interp share {} [shellfilter::stack::item_tophandle stderr] code
-                    }
-                    interp eval code {
-                        package require punk::lib
-                        package require textblock
-                    }
-
-                    #JMN
-                    interp eval code {
-                        package require shellfilter
-                    }
-
-
-                    #work around bug in safe base which won't load Tcl libs that have deeper nesting
-                    #(also affects tcllib page/plugins folder)
-                    set termversions [lsort -command {package vcompare} [package versions term]]
-                    set termv [lindex $termversions end]
-                    if {$termv ne ""} {
-                        set path [lindex [package ifneeded term $termv] end] ;#assuming path at end of something like "source .../term.tcl"
-                        set termbase [file dirname $path]
-                        safe::interpAddToAccessPath code [file join $termbase ansi]
-                        safe::interpAddToAccessPath code [file join $termbase ansi code]
-                    }
-                    #safe::interpAddToAccessPath code NUL
-                    if {$safelog ne ""} {
-                        #setting setLogCmd here gives potentially interesting feedback regarding behaviour of things such as glob
-                        safe::setLogCmd $safelog
-                    }
-                    #code invokehidden source c:/repo/jn/shellspy/modules/punk/lib-0.1.1.tm
-
-                    code alias detok        ::safe::DetokPath code ;#temp - this violates the point of the {$p(:X:)} paths
-
-                    #review - exit should do something slightly different
-                    # see ::safe::interpDelete
-                    code alias exit         ::repl::interphelpers::quit
-
-                    code alias ::md5::md5                       ::repl::interphelpers::md5
-                    code alias ::file ::file
-                    interp eval code [list package provide md5 $md5version]
-
-                }
-                punksafe {
-                    interp eval code {
-                        set ::argv0 %argv0%
-                        set ::argc 0
-                        set ::argv {}
-                        #set ::auto_path %autopath% ;#jmn
-                        #tcl::tm::remove {*}[tcl::tm::list]
-                        #tcl::tm::add {*}[lreverse %tmlist%]
-                    }
-                    interp eval code [list set ::tcl_platform(os) $::tcl_platform(os)]
-                    interp eval code [list set ::tcl_platform(osVersion) $::tcl_platform(osVersion)]
-                    interp eval code [list set ::tcl_platform(machine) $::tcl_platform(machine)]
-
-
-                    code alias ::fconfigure ::repl::interphelpers::fconfigure ;#needed for shellfilter
-
-                    if {"stdout" in [chan names]} {
-                        interp share {} stdout code
-                    } else {
-                        interp share {} [shellfilter::stack::item_tophandle stdout] code
-                    }
-                    if {"stderr" in [chan names]} {
-                        interp share {} stderr code
-                    } else {
-                        interp share {} [shellfilter::stack::item_tophandle stderr] code
-                    }
-
-                    interp eval code {
-                        package require punk::lib
-                        package require punk::args
-                        catch {package require punk::args::tclcore} ;#while tclcore is highly desirable, and should be installed with punk::args - it's not critical
-                        package require textblock
-                    }
-
-                    interp eval code {
-                        if {[catch {
-                                #package require packagetrace
-                                #packagetrace::init
-                            } errM]} {
-                            puts stderr "========================"
-                            puts stderr "code interp error 1:"
-                            puts stderr $errM
-                            puts stderr $::errorInfo
-                            puts stderr "========================"
-                            #error "$errM"
-                        }
-                    }
-
-
-                    interp eval code {
-                        if {[catch {
-                            package require punk::config    ;#requires: none
-                            #package require punk::console   ;#requires: Thread,punk::ansi,punk::args
-                            #set running_config $::punk::config::running
-                            package require shellfilter  ;#requires: shellthread,Thread
-                            apply {running_config {
-                                if {[string length [dict get $running_config color_stderr]] && [punk::console::colour]} {
-                                    shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $running_config color_stderr]]
-                                }
-                                if {[string length [dict get $running_config color_stdout]] && [punk::console::colour]} {
-                                    shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $running_config color_stdout]]
-                                }
-                            }} [punk::config::configure running]
-
-                            } errM]} {
-                            puts stderr "========================"
-                            puts stderr "code interp error 2:"
-                            puts stderr $errM
-                            puts stderr $::errorInfo
-                            puts stderr "========================"
-                            error "$errM"
-                        }
-                    }
-
-                    interp eval code {
-                        if {[catch {
-
-                            #puts stderr "loading natsort"
-                            #natsort has 'application mode' which can exit.
-                            #Requiring it shouldn't trigger application - but zipfs/vfs interactions confused it in some early versions
-                            package require natsort
-
-                            #package require punk     ;# Thread
-                            #package require shellrun ;#subcommand exists of file
-
-
-                            #-----------------------------------------------------------------------------------------------------------------------------------------
-                            package require punk::ns ;#requires:punk::lib,punk::args,struct::list,cmdline+(tcllibc),struct::set,punk::ansi,punk::char,
-                            #textutil,textutil::string,textutil::adjust,textutil::repeat,textutil::string,textutil::split,textutil::tabify,textutil::wcswidth
-                            #punk::encmime,punk::assertion
-                            #twapi,platform,registry,debug,overtype,patternpunk,pattern,patterncmd,metaface,patternpredator2,patternlib,dictutils
-                            #-----------------------------------------------------------------------------------------------------------------------------------------
-
-                            #package require textblock
-                        } errM]} {
-                            puts stderr "========================"
-                            puts stderr "code interp error 3:"
-                            puts stderr $errM
-                            puts stderr $::errorInfo
-                            puts stderr "========================"
-                            error "$errM"
-                        }
-
-                    }
-
-                }
-                punk - 0 {
-                    interp eval code {
-                        #safe !=1 and safe !=2, tmlist: %tmlist%
-                        set ::argv0 %argv0%
-                        set ::argv %argv%
-                        set ::argc %argc%
-                        set ::auto_path %autopath%
-                        tcl::tm::remove {*}[tcl::tm::list]
-                        tcl::tm::add {*}[lreverse %tmlist%]
-                        #puts "code interp chan names-->[chan names]"
-
-                        #-----------------------------------------------------------------------------
-                        if {[package provide punk::libunknown] eq ""} {
-                            namespace eval ::punk::libunknown {}
-                            set ::punk::libunknown::epoch %lib_epoch%
-                            set libunks [list]
-                            foreach tm_path [tcl::tm::list] {
-                                set punkdir [file join $tm_path punk]
-                                if {![file exists $punkdir]} {continue}
-                                lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm]
-                            }
-                            set libunknown ""
-                            set libunknown_version_sofar ""
-                            foreach lib $libunks {
-                                #expecting to be of form libunknown-<tclversion>.tm
-                                set vtail [lindex [split [file tail $lib] -] 1]
-                                set thisver [file rootname $vtail] ;#file rootname x.y.z.tm
-                                if {$libunknown_version_sofar eq ""} {
-                                    set libunknown_version_sofar $thisver
-                                    set libunknown $lib
-                                } else {
-                                    if {[package vcompare $thisver $libunknown_version_sofar] == 1} {
-                                        set libunknown_version_sofar $thisver
-                                        set libunknown $lib
-                                    }
-                                }
-                            }
-                            if {$libunknown ne ""} {
-                                source $libunknown
-                                if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} {
-                                    puts "error initialising punk::libunknown\n$errM"
-                                }
-                            }
-                        } else {
-                            puts stderr "punk::libunknown [package provide punk::libunknown] already loaded"
-                        }
-                        #-----------------------------------------------------------------------------
-                        #package require punk::packagepreference
-                        #punk::packagepreference::install
-
-                        # -- ---
-                        #review
-                        #we have to blow some time on a rescan to provide more deterministic ordering (match behaviour of initial thread regarding pkg precedence)
-                        #review - can we speed that scan up?
-                        ##catch {package require flobrudder-nonexistant}
-                        # -- ---
-
-                        set tsstart [clock millis]
-                        if {[catch {
-                            package require vfs
-                            package require vfs::zip
-                        } errM]} {
-                            puts stderr "repl code interp FAILED to load vfs,vfs::zip lag:[expr {[clock millis] - $tsstart}]"
-                        } else {
-                            puts stderr "repl code interp loaded vfs,vfs::zip lag:[expr {[clock millis] - $tsstart}]"
-                        }
-                        #puts stderr "package unknown: [package unknown]"
-
-                        #puts stderr -----
-                        #puts stderr [join $::auto_path \n]
-                        #puts stderr -----
-
-                        if {[catch {
-                            package require punk::args
-                            package require punk::config
-                            package require punk::ns
-                            #puts stderr "loading natsort"
-                            #natsort has 'application mode' which can exit.
-                            #Requiring it shouldn't trigger application - but zipfs/vfs interactions confused it in some early versions
-                            package require natsort
-                            #catch {package require packageTrace}
-                            package require punk
-                            package require shellrun
-                            package require shellfilter
-                            #set running_config $::punk::config::running
-                            apply {running_config {
-                                if {[string length [dict get $running_config color_stderr]] && [punk::console::colour]} {
-                                    shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $running_config color_stderr]]
-                                }
-                                if {[string length [dict get $running_config color_stdout]] && [punk::console::colour]} {
-                                    shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $running_config color_stdout]]
-                                }
-                            }} [punk::config::configure running]
-
-                            package require textblock
-                            catch {package require punk::args::tclcore} ;#while tclcore is highly desirable, and should be installed with punk::args - it's not critical
-                        } errM]} {
-                            puts stderr "========================"
-                            puts stderr "code interp error:"
-                            puts stderr $errM
-                            puts stderr $::errorInfo
-                            puts stderr "========================"
-                            puts stderr "auto_path: $::auto_path"
-                            puts stderr "========================"
-                            lappend ::codethread_initstatus "error $errM"
-                            error "$errM"
-                        }
-                    }
-                }
-                default {
-                }
-            }
-            code alias repl         ::repl::interphelpers::repl_ensemble
-            code alias subshell     ::repl::interphelpers::subshell_ensemble
-            code alias quit         ::repl::interphelpers::quit
-            code alias editbuf      ::repl::interphelpers::editbuf
-            code alias colour       ::repl::interphelpers::colour
-            code alias color        ::repl::interphelpers::colour
-            code alias mode         ::repl::interphelpers::mode
-            code alias vt52         ::repl::interphelpers::vt52
-            #code alias after        ::repl::interphelpers::do_after
-
-            code alias ::punk::set_repl_last_unknown    ::repl::interphelpers::set_repl_last_unknown
-            code alias ::punk::get_repl_runid           ::repl::interphelpers::get_repl_runid
-
-            #JMN
-            #code alias cmdtype      ::repl::interphelpers::cmdtype
-            #temporary debug aliases - deliberate violation of safety provided by safe interp
-            code alias escapeeval   ::repl::interphelpers::escapeeval
-
-            code alias exit         ::repl::interphelpers::quit
-
-            #experiment
-            #code alias ::shellfilter::stack ::shellfilter::stack
-
-            #puts stderr "returning threadid"
-            #puts stderr [thread::id]
-
-            if {[llength $::codethread_initstatus] == 1} {
-                set ::codethread_initstatus [linsert $::codethread_initstatus 0 ok]
-            }
-            thread::id
-        }
-        set init_script [string map $scriptmap $init_script]
-
-
-        #thread::send $codethread $init_script
-        if {![catch {
-            thread::send $codethread $init_script result ;#use a result var when wrapping in a catch - without it we can get a return code of 2 (TCL_RETURN)
-        } errMsg]} {
-            #puts stderr "punk::repl sent init_script to codethread id $codethread"
-            return $result
-        } else {
-            puts stderr "repl::init Failed during thread::send"
-            puts stderr "$::errorInfo"
-            thread::release $codethread
-            error $errMsg
-        }
-    }
-    #init - don't auto init - require init with possible options e.g -safe
-}
-package provide punk::repl [namespace eval punk::repl {
-    variable version
-    set version 0.1.2
-}]
-
-#repl::start $program_read_stdin_pipe
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repl/codethread-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repl/codethread-0.1.0.tm
deleted file mode 100644
index bb769b48..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repl/codethread-0.1.0.tm
+++ /dev/null
@@ -1,276 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::repl::codethread 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin shellspy_module_punk::repl::codethread 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {Module repl codethread}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {codethread for repl - root interpreter}]             [comment {-- Description at end of page heading --}] 
-#[require punk::repl::codethread]
-#[keywords module repl]
-#[description]
-#[para] This is part of the infrastructure required for the punk::repl to operate 
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::repl::codethread
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::repl::codethread
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::config
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#tcl::namespace::eval punk::repl::codethread::class {
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread::class}]
-    #[para] class definitions
-    #if {[info commands [tcl::namespace::current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    #}
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::repl::codethread {
-    tcl::namespace::export *
-    variable replthread
-    variable replthread_cond
-    variable running 0
-
-    variable output_stdout  ""
-    variable output_stderr  ""
-
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread}]
-    #[para] Core API functions for punk::repl::codethread 
-    #[list_begin definitions]
-
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1 
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok" 
-    #}
-
-    variable run_command_cache
-
-    proc is_running {} {
-        variable running
-        return $running
-    }
-    proc runscript {script} {
-        
-        #puts stderr "->runscript"
-        variable replthread_cond 
-        #variable output_stdout 
-        #set output_stdout ""
-        #variable output_stderr 
-        #set output_stderr ""
-        #expecting to be called from a thread::send in parent repl - ie in the toplevel interp so that the sub-interp "code" is available
-        #if a thread::send is done from the commandline in a codethread - Tcl will 
-        if {"code" ni [interp children] || ![info exists replthread_cond]} {
-            #in case someone tries calling from codethread directly - don't do anything or change any state
-            #(direct caller could create an interp named code at the level "" -> "code" -"code" and add a replthread_cond value to avoid this check - but it probably won't do anything useful)
-            #if called directly - the context will be within the first 'code' interp.
-            #inappropriate caller could add superfluous entries to shellfilter stack if function errors out
-            #inappropriate caller could affect tsv vars (if their interp allows that anyway)
-            puts stderr "runscript is meant to be called from the parent repl thread via a thread::send to the codethread"
-            return
-        }
-        interp eval code [list set ::punk::repl::codethread::output_stdout ""]
-        interp eval code [list set ::punk::repl::codethread::output_stderr ""]
-
-        set outstack [list]
-        set errstack [list]
-        upvar ::punk::config::running running_config
-        if {[string length [dict get $running_config color_stdout_repl]] && [interp eval code punk::console::colour]} {
-            lappend outstack [interp eval code [list shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $running_config color_stdout_repl]]]]
-        }
-        lappend outstack [interp eval code [list shellfilter::stack::add stdout tee_to_var -settings {-varname ::punk::repl::codethread::output_stdout}]]
-
-        if {[string length [dict get $running_config color_stderr_repl]] && [interp eval code punk::console::colour]} {
-            lappend errstack [interp eval code [list shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $running_config color_stderr_repl]]]]
-        #    #lappend errstack [shellfilter::stack::add stderr ansiwrap -settings [list -colour cyan]]
-        }
-        lappend errstack [interp eval code [list shellfilter::stack::add stderr tee_to_var -settings {-varname ::punk::repl::codethread::output_stderr}]]
-
-        #an experiment
-        #set errhandle [shellfilter::stack::item_tophandle stderr]
-        #interp transfer "" $errhandle code
-
-        set status [catch {
-            #shennanigans to keep compiled script around after call.
-            #otherwise when $script goes out of scope - internal rep of vars set in script changes.
-            #The shimmering may be no big deal(?) - but debug/analysis using tcl::unsupported::representation becomes impossible.
-            interp eval code [list ::punk::lib::set_clone ::codeinterp::clonescript $script] ;#like objclone
-            interp eval code {
-                lappend ::codeinterp::run_command_cache $::codeinterp::clonescript
-                if {[llength $::codeinterp::run_command_cache] > 2000} {
-                    set ::codeinterp::run_command_cache [lrange $::codeinterp::run_command_cache 1750 end][unset ::codeinterp::run_command_cache]
-                }
-                tcl::namespace::inscope $::punk::ns::ns_current $::codeinterp::clonescript
-            }
-        } result]
-
-
-        flush stdout
-        flush stderr
-
-        #interp transfer code $errhandle ""
-        #flush $errhandle 
-        set lastoutchar [string index [punk::ansi::ansistrip [interp eval code set ::punk::repl::codethread::output_stdout]] end]
-        set lasterrchar [string index [punk::ansi::ansistrip [interp eval code set ::punk::repl::codethread::output_stderr]] end]
-        #puts stderr "-->[ansistring VIEW -lf 1 $lastoutchar$lasterrchar]"
-
-        set tid [thread::id]
-        tsv::set codethread_$tid info [list lastoutchar $lastoutchar lasterrchar $lasterrchar] 
-        tsv::set codethread_$tid status $status
-        tsv::set codethread_$tid result $result
-        tsv::set codethread_$tid errorcode $::errorCode
-
-
-        #only remove from shellfilter::stack the items we added to stack in this function
-        foreach s [lreverse $outstack] {
-            interp eval code [list shellfilter::stack::remove stdout $s]
-        }
-        foreach s [lreverse $errstack] {
-            interp eval code [list shellfilter::stack::remove stderr $s]
-        }
-        thread::cond notify $replthread_cond
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::repl::codethread ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::repl::codethread::lib {
-    tcl::namespace::export *
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::repl::codethread::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-tcl::namespace::eval punk::repl::codethread::system {
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::repl::codethread [tcl::namespace::eval punk::repl::codethread {
-    variable pkg punk::repl::codethread
-    variable version
-    set version 0.1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm
deleted file mode 100644
index 5d2a2725..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm
+++ /dev/null
@@ -1,1806 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#Copyright (c) 2023 Julian Noble
-#Copyright (c) 2012-2018 Andreas Kupries
-# - code from A.K's 'kettle' project used in this module
-#
-# @@ Meta Begin
-# Application punk::repo 0.1.1
-# Meta platform     tcl
-# Meta license      BSD
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#
-# path/repo functions
-#
-
-#REVIEW punk::repo required early by punk boot script to find projectdir
-#todo - split off basic find_project chain of functions to a smaller package and import as necessary here
-#Then we can reduce early dependencies in punk boot
-
-if {$::tcl_platform(platform) eq "windows"} {
-    package require punk::winpath
-} else {
-    catch {package require punk::winpath}
-}
-package require fileutil; #tcllib
-package require punk::path
-package require punk::mix::base ;#uses core functions from punk::mix::base::lib namespace e.g cksum_path
-package require punk::mix::util ;#do_in_path
-
-
-# -- --- --- --- --- --- --- --- --- --- ---
-# For performance/efficiency reasons - use file functions on paths in preference to string operations
-# e.g use file join
-# branch to avoid unnecessary calls to 'pwd' or 'file normalize' - which can be surprisingly expensive operations (as at tcl 8.7 2023)
-# pwd is only expensive if we treat it as a string instead of a list/path
-# e.g
-# > time {set x [pwd]}
-# 5 microsoeconds..  no problem
-# > time {set x [pwd]}
-# 4 microsoeconds..  still no problem
-# > string length $x
-# 45
-# > time {set x [pwd]}
-# 1372 microseconds per iteration   ;#!!   values above 0.5ms common.. and that's a potential problem in loops that trawl filesystem
-# The same sorts of timings occur with file normalize
-# also.. even if we build up a path with file join from a base value that has already been normalized - the subsequent normalize will be expensive
-# -- --- --- --- --- --- --- --- --- --- ---
-
-namespace eval punk::repo {
-    variable PUNKARGS
-    variable PUNKARGS_aliases
-
-    variable cached_command_paths
-    set cached_command_paths [dict create]
-    #anticipating possible removal of buggy caching from auto_execok
-    #mentioned in: https://core.tcl-lang.org/tcl/tktview/4dc35e0c0c
-    #this would leave the application to decide what it wants to cache in that regard.
-    proc Cached_auto_execok {name} {
-        return [auto_execok $name]
-        #variable cached_command_paths
-        #if {[dict exists $cached_command_paths $name]} {
-        #    return [dict get $cached_command_paths $name]
-        #}
-        #set resolved [auto_execok $name]
-        #dict set cached_command_paths $name $resolved
-        #return $resolved
-    }
-
-    proc get_fossil_usage {} {
-        set allcmds [runout -n fossil help -a]
-        set mainhelp [runout -n fossil help]
-        set maincommands [list]
-        foreach ln [split $mainhelp \n] {
-            set ln [string trim $ln]
-            if {$ln eq "" || [regexp {^[A-Z]+} $ln]} {
-                continue
-            }
-            lappend maincommands {*}$ln
-        }
-        #fossil output was ordered in columns, but we loaded list in row-wise, messing up the order
-        set maincommands [lsort $maincommands]
-        set allcmds [lsort $allcmds]
-        set othercmds [punk::lib::ldiff $allcmds $maincommands]
-
-        set result "@leaders -min 0\n"
-
-        append result [tstr -return string  {
-            subcommand -type string -choicecolumns 8 -choicegroups {
-                "frequently used commands" {${$maincommands}}
-                "" {${$othercmds}}
-            } -choiceinfo {add {{doctype punkargs}} diff {{doctype punkargs}}}
-        }]
-        #-choiceinfo {
-        #    add {{doctype punkargs}}
-        #    diff {{doctype punkargs}}
-        #}
-
-        return $result
-    }
-
-
-    #lappend PUNKARGS [list  {
-    #        @dynamic
-    #        @id     -id ::punk::repo::fossil_proxy
-    #        @cmd    -name fossil -help "fossil executable
-    #        "
-    #        @formdisplay -header "fossil help" -body {${[runout -n fossil help]}}
-    #    } ""]
-
-    lappend PUNKARGS [list  {
-            @dynamic
-            @id     -id ::punk::repo::fossil_proxy
-            @cmd    -name fossil -help "fossil executable"
-            ${[punk::repo::get_fossil_usage]}
-    } ]
-
-
-
-    #experiment
-    lappend PUNKARGS [list {
-            @dynamic
-            @id     -id "::punk::repo::fossil_proxy diff"
-            @cmd    -name "fossil diff" -help "fossil diff"
-            @formdisplay -header "fossil help diff" -body {${[runout -n fossil help diff]}}
-        } ""]
-    lappend PUNKARGS [list {
-            #todo - remove this comment - testing dynamic directive
-            @dynamic
-            @id     -id "::punk::repo::fossil_proxy add"
-            @cmd    -name "fossil add" -help "fossil add
-            "
-            @formdisplay -header "fossil help add" -body {${[runout -n fossil help add]}}
-        } ""]
-    #TODO
-    #lappend PUNKARGS [list  {
-    #        @dynamic
-    #        @id  -glob 1 -id  "::punk::repo::fossil_proxy *" -aliases {fs}
-    #        @cmd  -name "fossil add" -help "fossil add
-    #        "
-    #        @formdisplay -header "fossil help add" -body {${[runout -n fossil help add]}}
-    #    } ""]
-    lappend PUNKARGS_aliases {"::fossil" "::punk::repo::fossil_proxy"}
-    lappend PUNKARGS_aliases {"::fossil diff" "::punk::repo::fossil_proxy diff"}
-
-
-    #Todo - investigate proper way to install a client-side commit hook in the fossil project
-    #Then we may still use this proxy to check the hook - but the required checks will occur when another shell used
-    proc fossil_proxy {args} {
-        set start_dir [pwd]
-        set fosroot [find_fossil $start_dir]
-        set fossilcmd [lindex $args 0]
-
-        set no_warning_commands [list "help"  "dbstat" "grep" "diff" "xdiff" "cat" "version"]
-        if {$fossilcmd ni $no_warning_commands } {
-            set repostate [find_repos $start_dir]
-        }
-
-        set no_prompt_commands [list "status" "info" {*}$no_warning_commands]
-
-
-        if {$fossilcmd ni $no_prompt_commands} {
-            set fossilrepos [dict get $repostate fossil]
-            if {[llength $fossilrepos] > 1} {
-                puts stdout [punk::ansi::a+ bold yellow][dict get $repostate warnings][punk::ansi::a]
-                puts stdout "Operating on inner fossil repository: [lindex $fossilrepos 0]"
-                puts stdout "Use FOSSIL instead of fossil to avoid this prompt and warning"
-                set answer [askuser "Are you sure you want to perform the operation on this repo? Y/N"]
-                if {[string tolower $answer] ne "y"} {
-                    return
-                }
-            }
-        }
-        if {$fossilcmd eq "init"} {
-            #check if the path to .fossil is within an outer repo area.. offer to locate it somewhere else
-            set repos [dict get $repostate repos]
-            if {[llength $repos]} {
-                set chosenfossil [lindex $args end]
-                #if the user is naming it other than .fossil - assume they know what they're doing.
-                if {[string match *.fossil $chosenfossil]} {
-                    set norm_chosen [file normalize $chosenfossil]
-                    set fdir [file dirname $norm_chosen]
-                    set toprepo_info [lindex $repos end] ;#choose shortest path ie topmost
-                    set toprepo [lindex $toprepo_info 0]
-                    if {[punk::mix::base::lib::path_a_atorbelow_b $fdir $toprepo]} {
-                        set fproj [file rootname [file tail $norm_chosen]]
-                        puts stdout "Chosen .fossil location is within outer repository at $toprepo"
-                        set answer [askuser "Would you like the opportunity to choose a different location for the .fossil file from a menu? Y/N"]
-                        if {[string tolower $answer] eq "y"} {
-                            set repodir [fossil_get_repository_folder_for_project $fproj -extrachoice $fdir]
-                            if {[string length $repodir]} {
-                                puts stdout "LOCATION: $repodir/$fproj.fossil"
-                                set args [lrange $args 0 end-1]
-                                lappend args $repodir/$fproj.fossil
-                            } else {
-                                puts stderr "No directory found/selected - aborting"
-                                return
-                            }
-                        }
-                    }
-                }
-            }
-        }
-        if {$fossilcmd eq "commit"} {
-            if {[llength [file split $fosroot]]} {
-                if {[file exists [file join $fosroot src/buildsuites]]} {
-                    puts stderr "Todo - check buildsites/suite/projects for current branch/tag and update download_and_build_config"
-                }
-            }
-        } elseif {$fossilcmd in [list "info" "status"]} {
-            #emit warning whether or not multiple fossil repos
-            puts stdout [punk::ansi::a+ bold yellow][dict get $repostate warnings][punk::ansi::a]
-        }
-        set fossil_prog [Cached_auto_execok fossil]
-        if {$fossil_prog ne ""} {
-            {*}$fossil_prog {*}$args
-        } else {
-            puts stderr "fossil command not found. Please install fossil"
-        }
-    }
-
-
-    # ---
-    # Calling auto_execok on an external tool can be too slow to do during package load (e.g could be 150ms)
-
-    #safe interps can't call auto_execok
-    #At least let them load the package even though much of it may be unusable depending on the safe configuration
-    #catch {
-    #    if {[auto_execok fossil] ne ""} {
-    #        interp alias "" FOSSIL "" {*}[auto_execok fossil]
-    #    }
-    #}
-    # ---
-    # ----------
-    #
-
-
-    #uppercase FOSSIL to bypass fossil as alias to fossil_proxy
-    #only necessary on unix?
-    #Windows filesystem case insensitive so any non-lowercase fossil version goes out to get an ::auto_execs entry anyway
-    proc establish_FOSSIL {args} {
-        #review
-        if {![info exists ::auto_execs(FOSSIL)]} {
-            set ::auto_execs(FOSSIL) [auto_execok fossil] ;#may fail in safe interp
-        }
-        interp alias "" FOSSIL "" ;#delete establishment alias
-        FOSSIL {*}$args
-    }
-    # ----------
-
-    proc askuser {question} {
-        if {![catch {package require punk::lib}]} {
-            return [punk::lib::askuser $question] ;#takes account of punk::console raw vs line
-        }
-        puts stdout $question
-        flush stdout
-        set stdin_state [fconfigure stdin]
-        try {
-            fconfigure stdin -blocking 1
-            set answer [gets stdin]
-        } finally {
-            fconfigure stdin -blocking [dict get $stdin_state -blocking]
-        }
-        return $answer
-    }
-    proc is_fossil {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        return [expr {[find_fossil $path] ne {}}]
-    }
-    proc is_git {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        return [expr {[find_git $path] ne {}}]
-    }
-    #tracked repo - but may not be a project
-    proc is_repo {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        return [expr {[isfossil] || [is_git]}]
-    }
-    proc is_candidate {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        return [expr {[find_candidate $path] ne {}}]
-    }
-    proc is_project {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        return [expr {[find_project $path] ne {}}]
-    }
-
-
-    proc find_fossil {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        scanup $path is_fossil_root
-    }
-
-    proc find_git {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        scanup $path is_git_root
-    }
-    proc find_candidate {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        scanup $path is_candidate_root
-    }
-    proc find_repo {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        #find the closest (lowest in dirtree) repository
-        set f_root [find_fossil $path]
-        set g_root [find_git $path]
-        if {[string length $f_root]} {
-            if {[string length $g_root]} {
-                if {[punk::mix::base::lib::path_a_below_b $f_root $g_root]} {
-                    return $f_root
-                } else {
-                    return $g_root
-                }
-            } else {
-                return $f_root
-            }
-        } else {
-            if {[string length $g_root]} {
-                return $g_root
-            } else {
-                return ""
-            }
-        }
-    }
-    lappend PUNKARGS [list {
-        @id     -id "::punk::repo::find_project"
-        @cmd    -name "punk::repo::find_project" -help\
-            "Find and return the path for the root of
-            the project to which the supplied path belongs.
-            If the supplied path is empty, the current
-            working directory is used as the starting point
-            for the upwards search.
-            Returns nothing if there is no project at or
-            above the specified path."
-        @values -min 0 -max 1
-        path -optional 1 -default "" -help\
-            "May be an absolute or relative path.
-              The full specified path doesn't have
-              to exist. The code will walk upwards
-              along the segments of the supplied path
-              testing the result of 'is_project_root'."
-    }]
-    proc find_project {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        scanup $path is_project_root
-    }
-
-    #detect if path is a fossil root - without consulting fossil databases
-    proc is_fossil_root2 {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        #from kettle::path::is.fossil
-        foreach control {
-            _FOSSIL_
-            .fslckout
-            .fos
-        } {
-            set control $path/$control
-            if {[file exists $control] && [file isfile $control]} {return 1}
-        }
-        return 0
-    }
-    proc is_fossil_root {{path {}}} {
-        #much faster on windows than 'file exists' checks
-        if {$path eq {}} { set path [pwd] }
-        set control [list _FOSSIL_ .fslckout .fos]
-        #could be marked 'hidden' on windows
-        if {"windows" eq $::tcl_platform(platform)} {
-            set files [list {*}[glob -nocomplain -dir $path -types f -tail {*}$control] {*}[glob -nocomplain -dir $path -types {f hidden} -tail {*}$control]]
-        } else {
-            set files [glob -nocomplain -dir $path -types f -tail {*}$control]
-        }
-        expr {[llength $files] > 0}
-    }
-
-    #review - is a .git folder sufficient?
-    #consider git rev-parse --git-dir ?
-    proc is_git_root {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        #set control [file join $path .git]
-        #expr {[file exists $control] && [file isdirectory $control]}
-        if {"windows" eq $::tcl_platform(platform)} {
-            #:/
-            #globbing for dotfiles in tcl is problematic across platforms - windows 'hidden' concept is independent
-            #we need to find .git whether hidden or not - so need 2 glob operations
-            #.git may or may not be set with windows 'hidden' attribute
-            set hiddengitdir    [glob -nocomplain -dir $path -types {d hidden} -tail .git]
-            set nonhiddengitdir [glob -nocomplain -dir $path -types {d} -tail .git] ;#won't return hidden :/
-            return [expr {[llength [list {*}$hiddengitdir {*}$nonhiddengitdir]] > 0}]
-        } else {
-            #:/
-            #unix returns 'hidden' files even without the hidden type being specified - but only if the pattern explicitly matches
-            return [expr {[llength [glob -nocomplain -dir $path -types d -tail .git]] > 0}] ;#will return .git even though it is conventionally 'hidden' on unix :/
-        }
-    }
-    proc is_repo_root {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        #expr {[is_fossil_root $path] || [is_git_root $path]}
-        expr {[is_git_root $path] || [is_fossil_root $path]} ;#is_git_root has less to check
-    }
-
-    #after excluding undesirables;
-    #require a minimum of
-    # - (src and src/modules|src/scriptapps|src/vfs)
-    # - OR (src and punkproject.toml)
-    # - and that it's otherwise sensible
-    #we still run a chance of picking up unintended candidates - but hopefully it's a reasonable balance.
-    proc is_candidate_root {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        if {[file pathtype $path] eq "relative"} {
-            set normpath [punk::repo::norm $path]
-        } else {
-            set normpath $path
-        }
-        #we're not pickup all possible unwise paths - mainly ones that are likely to be above us, or some that are probably just really bad ideas. 
-        set unwise_paths [list "/" "/dev" "/bin" "/root" "/etc" "/opt" "/usr" "/usr/local" "/usr/local/bin" "/usr/local/lib" "c:/windows"]
-        if {[string tolower $normpath] in $unwise_paths} {
-            return 0
-        }
-        if {[file pathtype [string trimright $normpath /]] eq "volumerelative"} {
-            #tcl 8.6/8.7 cd command doesn't preserve the windows "ProviderPath"  (per drive current working directory)
-            return 0
-        }
-
-        #review - adjust to allow symlinks to folders?
-        #foreach required {
-        #    src
-        #} {
-        #    set req $path/$required
-        #    if {(![file exists $req]) || ([file type $req] ne "directory") } {return 0}
-        #}
-        set required [list src]
-        set found_required [glob -nocomplain -dir $path -types d -tails {*}$required]
-        if {[llength $found_required] < [llength $required]} {
-            return 0
-        }
-
-        set src_subs [glob -nocomplain -dir $path/src -types d -tail *]
-        #test for $path/src/lib is too common to be a useful indicator
-        if {"modules" in $src_subs || "vfs" in $src_subs || "scriptapps" in $src_subs} {
-            #bare minimum 1
-            return 1
-        }
-
-        #bare minimum2
-        # - has src folder and (possibly empty?) punkproject.toml
-        if {[file exists $path/punkproject.toml]} {
-            return 1
-        }
-
-        #review - do we need to check if path is already within a project?
-        #can we have a nested project? Seems like asking for complexity and problems when considering possible effects for git/fossil
-
-        #todo - breadth first search with depth limit (say depth 3?) for *.tm or *.tcl as another positive qualifier for this dir to be a project-root
-        #we probably don't want to deep search a src folder in case the user is accidentally in some other type of project's tree
-        #such a src tree could be very large, so if we don't find tcl indicators near the root it's a good bet this isn't a candidate
-
-        return 0
-    }
-    #keep this message in sync with the programmed requirements of is_candidate_root
-    #message is not titled - it is intended to be output along with more contextual information from the calling site.
-    proc is_candidate_root_requirements_msg {} {
-        set msg ""
-        append msg "./src directory must exist." \n
-        append msg "At least one of ./src/lib ./src/modules ./src/scriptapps or a ./src/<something>.vfs folder should exist." \n
-        #append msg "Alternatively - the presence of any .tm or .tcl files within the top few levels of ./src will suffice." \n
-        return $msg
-    }
-
-    proc is_project_root {path} {
-        #review - find a reliable simple mechanism. Noting we have projects based on different templates.
-        #Should there be a specific required 'project' file of some sort?
-        #(punkproject.toml is a candidate)
-        #we don't want to solely rely on such a file being present
-        # - we may also have punkproject.toml in project_layout template folders for example
-
-        #test for file/folder items indicating fossil or git workdir base
-        #the 'dev' mechanism for creating projects automatically creates a fossil project
-        #(which can be ignored if the user wants to manage it with git - but should probably remain in place? review)
-        #however - we currently require that for it to be a 'project' there must be some version control.
-        #REVIEW.
-        #
-        if {![punk::repo::is_repo_root $path]} {
-            return 0
-        }
-        #exclude some known places we wouldn't want to put a project
-        if {![is_candidate_root $path]} {
-            return 0
-        }
-        return 1
-    }
-
-    #review/tests
-    #todo - deleted items (e.g for git 1 .D ... )
-    #punkcheck uses this to check when copying a source-file to a repo-external location that the file can be tied to a revision.
-    #we are primarily concerned with the status of existent files (caller should check existence) and whether they belong to the revision that currently applies to the folder being examined.
-    #we are not concerned with git's staging facility - other than that it needs to be looked at to work out whether the file on disk is currently in a state matching the revision.
-    #
-    # -repotypes is an ordered list - if the closest repo is multi-typed the order will determine which is used.
-    # This deliberately doesn't allow bypassing a sub-repo to look for a higher-level repo in a repo-nest.
-    # The theory is that sub-repos shouldn't have their contents directly tracked directly by higher-level repos anyway
-    #REVIEW - if closest repo is both fossil and git - we only return info for one, with fossil being preferenced
-    #This may not make sense if we want to allow fossil tracking of projects where git is the primary repotype and fossil is just used to enable us to enumerate projects?
-    #does a dual git/fossil repo make sense if both are committing??
-    # see: https://fossil-scm.org/home/doc/trunk/www/inout.wiki for bidirectional sync info
-    proc workingdir_state {{abspath {}} args} {
-
-        #we should try to minimize executable calls
-        #an extra git/fossil executable call required for tags
-        #git seems to require more executable calls 
-
-        set defaults [list\
-            -repotypes [list fossil git]\
-            -repopaths ""\
-        ]
-        #prefer fossil if first repo is dual git/fossil
-        if {$abspath in [dict keys $defaults]} {
-           set args [list $abspath {*}$args] 
-           set abspath ""
-        }
-        set opts [dict merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-        set opt_repotypes [dict get $opts -repotypes]
-        set opt_repopaths [dict get $opts -repopaths]
-        if {"$opt_repopaths" ne ""} {
-            if {([llength $opt_repopaths] % 2) || ![dict exists $opt_repopaths closest]} {
-                error "workingdir_state error: -repopaths argument invalid. Expected a dict as retrieved using punk::repo::find_repos"
-            }
-            set repopaths $opt_repopaths
-        } else {
-            set repopaths [find_repos $abspath]
-        }
-        # -- --- --- --- --- --- --- --- --- --- --- ---
-
-        if {$abspath eq ""} {set abspath [pwd]}
-        if {[file pathtype $abspath] ne "absolute"} {
-            error "workingdir_state error: absolute path required. Got '$abspath'"
-        }
-        if {![file isdirectory $abspath]} {
-            #shouldn't be passed a file.. but just use containing folder if we were
-            set abspath [file dirname $abspath]
-        }
-        set repodir [dict get $repopaths closest]
-        set ondisk_repotypes [dict get $repopaths closest_types]
-        set repotypes_to_query [list]
-        foreach r $opt_repotypes {
-            if {$r in $ondisk_repotypes} {
-                lappend repotypes_to_query $r              
-            }
-        }
-
-        if {$repodir eq ""} {
-            puts stderr "workingdir_state error: No repository found at or above path '$abspath'" 
-            puts stderr "args: $args"
-            dict set resultdict revision {} 
-            dict set resultdict revision_iso8601 {} 
-            dict set resultdict paths {} 
-            dict set resultdict ahead ""
-            dict set resultdict behind ""
-            dict set resultdict error {reason "no_repo_found"}
-            dict set resultdict repotype none
-            return $resultdict
-        }
-        set subpath [punk::path::relative $repodir $abspath]
-        if {$subpath eq "."} {
-            set subpath ""
-        }
-
-        set resultdict [dict create repodir $repodir subpath $subpath]
-        #set defaults in case no supported repotype found
-        set revision ""
-        set revision_iso8601 ""
-        set pathdict [dict create]
-        set branch ""
-        set tags ""
-
-        if {![llength $repotypes_to_query]} {
-            error "No tracking information available for project at $repodir with the chosen repotypes '$opt_repotypes'. Ensure project workingdir is a fossil (or git) checkout"
-        }
-        foreach rt $repotypes_to_query {
-            #We need entire list of files in the revision because there is no easy way to get the list of files configured to be ignored 
-            #(aside from attempting to calculate from .fossil-settings ignore-glob or .gitignore)
-            #This means we can't just use fossil extras or the list of git untracked files 
-            #i.e a file not showing as EDITED/MISSING/EXTRA can't be assumed to be in the revision as it may match an ignore-glob or .gitignore entry
-            #For this reason we will store 'unchanged' records for both git and fossil so that the combined dict should represent all files in the revision
-            if {$rt eq "fossil"} {
-                dict set resultdict repotype fossil
-                set fossil_cmd [Cached_auto_execok fossil]
-                if {$fossil_cmd eq ""} {
-                    error "workingdir_state error: fossil executable doesn't seem to be available"
-                }
-                if {[catch {punk::mix::util::do_in_path $repodir [list exec {*}$fossil_cmd status --all --differ --merge $abspath]} fossilstate]} {
-                    error "workingdir_state error: Unable to retrieve workingdir state using fossil. Errormsg: $fossilstate"
-                }
-                # line: checkout: fb971... Y-m-d H:M:S TZ
-                set checkout_info [lindex [grep {checkout:*} $fossilstate] 0] ;#grep returns a list - but it should always be a single match in this case
-                set revision [lindex $checkout_info 0 1]
-                #set checkrevision [fossil_revision $abspath]
-                lassign $checkout_info _key revision revision_ymd revision_hms revision_tz
-                if {$revision_tz eq "UTC"} {
-                    set revision_tz "+0000" ;#normalize UTC for consistency with git tz output - review - should do date-math if necessary on git and fossil to bring all to +0000 (is fossil always UTC? git )
-                }
-                set revision_iso8601 "${revision_ymd}T${revision_hms}${revision_tz}"
-
-                #REVIEW! what are the semantic difference between tags in fossil v git?
-                #fossil has tagtypes such as propagated and singleton(onetime)
-                #if we get all tag info for the revision - we can get the current branch (branch=somename tag) at the same time
-                #by retrieving with --raw - we have to process some prefixes such as sym- but probably best not done here
-                #we will return all tags that apply to the current revision and let the caller decide the meanings
-                if {![catch {punk::mix::util::do_in_path $repodir [list exec {*}$fossil_cmd tag ls --raw $revision]} cmdresult]} {
-                    set branchinfo [lindex [grep {branch=*} $cmdresult] 0] ;#first line match - should only be one
-                    set branch [lindex [split $branchinfo =] 1] 
-                    set tags [list]
-                    foreach ln [split $cmdresult \n] {
-                        if {[string trim $ln] eq ""} {
-                            continue
-                        }
-                        lappend tags [string trim $ln]
-                    }
-                }
-
-                #set tags_info [lindex [grep {tags:*} $fossilstate 0] ;#first line match - should only be one
-                #we get lines like:
-                #tags:      trunk, main
-                #tags:      trunk
-                #set rawtags [lrange $tags_info 1 end] ;#REVIEW
-                #set tags [list]
-                #foreach t $rawtags {
-                #    lappend tags [string trimright $t ,]
-                #}
-
-
-                #if {![catch {punk::mix::util::do_in_path $repodir [list exec {*}$fossil_cmd branch current]} cmdresult]} {
-                #    set branch $cmdresult ;#command result doesn't include newline etc
-                #}
-
-
-                dict set resultdict ahead ""
-                dict set resultdict behind ""
-
-                foreach ln [split $fossilstate \n] {
-                    if {[string trim $ln] eq ""} {continue}
-                    set space1 [string first " " $ln]
-                    if {$space1 > 1} {
-                       set word1 [string range $ln 0 $space1-1] 
-                       if {[string index $word1 end] eq ":"} {
-                           #we've already examined any xxx: header lines we're interested in.
-                           continue
-                       }
-                    }
-                    switch -glob -- $ln {
-                        "EDITED *" {
-                            set path [string trim [string range $ln [string length "EDITED "] end]] ;#should handle spaced paths
-                            dict set pathdict $path "changed"
-                        }
-                        "ADDED *" {
-                            set path [string trim [string range $ln [string length "ADDED "] end]]
-                            dict set pathdict $path "new"
-                        }
-                        "DELETED *" {
-                            set path [string trim [string range $ln [string length "DELETED "] end]]
-                            dict set pathdict $path "missing"
-                        }
-                        "MISSING *" {
-                            set path [string trim [string range $ln [string length "MISSING "] end]]
-                            dict set pathdict $path "missing"
-                        }
-                        "EXTRA *" {
-                            #fossil will explicitly list files in a new folder - as opposed to git which shows just the folder
-                            set path [string trim [string range $ln [string length "EXTRA "] end]]
-                            dict set pathdict $path "extra"
-                        }
-                        "UNCHANGED *" {
-                            set path [string trim [string range $ln [string length "UNCHANGED "] end]]
-                            dict set pathdict $path "unchanged"
-                        }
-                        default {
-                            #emit for now 
-                            puts stderr "unprocessed fossilstate line: $ln" 
-                        }
-                    }
-                    #other entries??
-                }
-                break
-            } elseif {$rt eq "git"} {
-                dict set resultdict repotype git 
-                set git_cmd [Cached_auto_execok git]
-                # -uno =  suppress ? lines.
-                # -b = show ranch and tracking info
-                #our basic parsing/grepping assumes --porcelain=2
-                if {[catch {punk::mix::util::do_in_path $repodir [list exec {*}$git_cmd status --porcelain=2 -b -- $abspath]} gitstate]} {
-                    error "workingdir_state error: Unable to retrieve workingdir state using git. Errormsg: $gitstate"
-                }
-                # line: # branch.oid f2d2a...
-                set revision [lindex [grep {# branch.oid *} $gitstate] 0 2]
-                if {$revision eq "(initial)"} {
-                    puts stderr "workingdir_state: git revision is (initial) - no file state to gather"
-                    break
-                }
-                # line: # branch.head somebranchname
-                set branch [lindex [grep {# branch.head *} $gitstate] 0 2]
-
-                if {![catch {punk::mix::util::do_in_path $repodir [list exec {*}$git_cmd describe --exact-match --tags]} cmdresult]} {
-                    set tags $cmdresult ;#review - we have short tags vs longer.. e.g v0.1a vs v0.1a-184-g856fab4 - which is returned?  Also how are multiple separated?
-                }
-                #often there will be no tag - so the common case is actually an error "fatal: not ag exactly matchs 'xxxx...'"
-
-                # -- --- --- --- --- 
-                #could use %ci for ISO8601 data - see git-show manpage, but this will be in timezone of developer's machine - we need it in UTC for comparison to fossil outputs and other devs
-                set had_TZ 0
-                if {[info exists ::env(TZ)]} {
-                    set TZ_prev $::env(TZ)
-                    set had_TZ 1
-                }
-                set ::env(TZ) "UTC0"
-                if {[catch {punk::mix::util::do_in_path $repodir [list exec {*}$git_cmd show -s --date=format-local:%Y:%m:%dT%H:%M:%S+0000 --format=format:%cd -- $abspath]} revision_iso8601]} {
-                    puts stderr "workingdir_state warning: Unable to retrieve workingdir state using git. Errormsg: $gitstate"
-                }
-                if {$had_TZ} {
-                    set ::env(TZ) $TZ_prev
-                } else {
-                    unset ::env(TZ)
-                }
-                # -- --- --- --- --- 
-
-                dict set resultdict ahead ""
-                dict set resultdict behind ""
-                set aheadbehind [lindex [grep {# branch.ab *} $gitstate] 0]
-                if {[llength $aheadbehind] > 0} {
-                    lassign [lrange $aheadbehind 2 3] a b
-                    if {$a > 0} {
-                        dict set resultdict ahead [expr {abs($a)}]
-                    }
-                    if {$b < 0} {
-                        dict set resultdict behind [expr {abs($b)}]
-                    }
-                }
-                #set checkrevision [git_revision $abspath]
-                if {[catch {punk::mix::util::do_in_path $repodir [list exec {*}$git_cmd ls-tree -r $revision $abspath]} gitfiles]} {
-                    error "workingdir_state error: Unable to retrieve files for revision '$revision' using git. Errormsg: $gitfiles"
-                }
-
-                #paths will be relative to $repodir/$subpath
-                foreach ln [split $gitfiles \n] {
-                    if {[string trim $ln] eq ""} {continue}
-                    #review - spaced paths?
-                    set path [lindex $ln end] 
-                    dict set pathdict $path "unchanged" ;#default only - to be overridden with info from gitstate
-                }
-
-                foreach ln [split $gitstate \n] {
-                    if {[string trim $ln] eq ""} {continue}
-                    if {[string match "#*" $ln]} {continue}
-                    if {[string match "1 *" $ln]} {
-                        # ordinary changed entries
-                        # format:  1 <XY> <sub> <mH> <mI> <mW> <hH> <hI> <path>
-                        #review - what does git do for spaced paths? 
-                        #for now we will risk treating as a list
-                        set path [lindex $ln end]
-                        set xy [lindex $ln 1]
-                        lassign [split $xy ""] staged unstaged
-                        if {[string match "*M*" $xy]} { 
-                            #e.g .M when unstaged M. when staged
-                            dict set pathdict $path "changed"
-                        } elseif {[string match "*D*" $xy]} {
-                            dict set pathdict $path "missing"
-                        } elseif {[string match "*A*" $xy]} {
-                            #e.g A. for new file that has been staged
-                            dict set pathdict $path "new"
-                        } else {
-                            dict set pathdict $path "UNKNOWN" ;#review - fix
-                        }
-                    } elseif {[string match "? *" $ln]} {
-                        #note that git will list a folder entry without going deeper to list contents
-                        set path [string trim [string range $ln [string length "? "] end]] ;#should handle spaced paths
-                        dict set pathdict $path "extra"
-                    } elseif {[string match "2 *" $ln]} {
-                        # renamed or copied entries
-                        # as we don't supply -z option - <sep> is tab char.
-                        # format: 2 <XY> <sub> <mH> <mI> <mW> <hH> <hI> <X><score> <path><sep><origPath>
-                        #we should mark target of rename as 'new' - consistent with fossil - and stops caller from seeing no entry for an existent file and assuming it already belongs to the revision checkout
-                        lassign [split $ln \t] pretab posttab
-                        set path [lindex $pretab end]
-                        dict set pathdict $path "new" ;#review - if file was first deleted then renamed - is it more appropriately flagged as 'changed' - possibly doesn't matter for revision-membership detection new or changed should be ok
-
-                        set pathorig [string trim $posttab]
-                        dict set pathdict $pathorig "missing"
-                    } elseif {[string match "u *" $ln]} {
-                        #Unmerged entries
-                        # format: u <XY> <sub> <m1> <m2> <m3> <mW> <h1> <h2> <h3> <path>
-                        #
-                        #presume file on disk not as per revision - treat as changed (?review)
-                        set path [lindex $ln end]
-                        dict set pathdict $path "changed"
-                    } elseif {[string match "! *" $ln]} {
-                        #ignored files - not part of revision
-
-                    } else {
-                        #emit for now
-                        puts stderr "unprocessed gitstat line $ln"
-                    }
-                }
-                break
-            } else {
-                puts stderr "workingdir_state - repotype $rt not supported"
-            }
-        }
-        dict set resultdict branch              $branch
-        dict set resultdict tags                $tags
-        dict set resultdict revision            $revision
-        dict set resultdict revision_iso8601    $revision_iso8601
-        dict set resultdict paths               $pathdict
-        return $resultdict
-    }
-    proc workingdir_state_summary {repostate args} {
-        if {![dict exists $repostate repotype] || ![dict exists $repostate paths]} {
-            error "workingdir_state_summary error repostate doesn't appear to be a repostate dict. (use workingdir_state <path> to create)"
-        }
-        package require overtype
-
-        #the revision branch and tags are highly relevant to the file state - and workingdir_state currently retrieves them anyway
-        # - so we'll include them in the defaults
-        # - when we are including working dir state as part of other output - we could be duplicating branch/tag retrievals
-        # - todo - flags to stop duplicating effort ??
-        set defaults [dict create\
-            -fields {revision branch tags ahead behind unchanged changed new missing extra}\
-        ]
-        set opts [dict merge $defaults $args]
-        # -- --- --- --- --- --- --- --- --- ---
-        set opt_fields [dict get $opts -fields]
-        # -- --- --- --- --- --- --- --- --- ---
-
-        set summary_dict [workingdir_state_summary_dict $repostate]
-        set repotype [dict get $summary_dict repotype]
-        set fieldnames [dict create\
-            repodir     repodir\
-            subpath     subpath\
-            revision    revision\
-            revision_iso8601    revision_iso8601\
-            branch      branch\
-            tags        tags\
-            ahead       ahead\
-            behind      behind\
-            repotype    repotype\
-            unchanged   unchanged\
-            changed     changed\
-            new         new\
-            missing     missing\
-            extra       extra\ 
-        ]
-        foreach f $opt_fields {
-            if {$f ni [dict keys $fieldnames]} {
-                error "workingdir_state_summary error: unknown field $f. known-values: [dict keys $fieldnames]"
-            }
-        }
-        if {$repotype eq "git"} {
-           dict set fieldnames extra "extra (files/folders)"
-        }
-        set col1_fields [list]
-        set col2_values [list]
-        foreach f $opt_fields {
-            lappend col1_fields [dict get $fieldnames $f]
-            lappend col2_values [dict get $summary_dict $f]
-        }
-        set title1 ""
-        set widest1 [tcl::mathfunc::max {*}[lmap v [list $title1 {*}$col1_fields] {string length $v}]]
-        set col1 [string repeat " " $widest1]
-        set title2 ""
-        set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $col2_values] {string length $v}]]
-        set col2 [string repeat " " $widest2]
-
-        set result ""
-        foreach f $col1_fields v $col2_values {
-            append result "[overtype::left $col1 $f]: [overtype::right $col2 $v]" \n
-        }
-        set result [string trimright $result \n]
-        return $result
-    }
-
-    #todo - describe purpose and possibly rename
-    proc workingdir_state_summary_dict {repostate} {
-        if {![dict exists $repostate repotype] || ![dict exists $repostate paths]} {
-            error "workingdir_state_summary_dict error repostate doesn't appear to be a repostate dict. (use workingdir_state <path> to create)"
-        }
-        set filestates [dict values [dict get $repostate paths]]
-        set path_count_fields [list unchanged changed new missing extra]
-        set state_fields [list ahead behind repodir subpath repotype revision revision_iso8601 branch tags]
-        set dresult [dict create]
-        if {[dict exists $repostate error]} {
-            foreach f $state_fields {
-                dict set dresult $f ""
-            }
-            foreach f $path_count_fields {
-                dict set dresult $f ""
-            }
-            #todo?
-            return $dresult
-        }
-        foreach f $state_fields {
-           dict set dresult $f [dict get $repostate $f]
-        }
-        foreach f $path_count_fields {
-            dict set dresult $f [llength [lsearch -all $filestates $f]]
-        }
-        return $dresult
-    }
-    #determine nature of possibly-nested repositories (of various types) at and above this path
-    #Treat an untracked 'candidate' folder as a sort of repository
-    proc find_repos {path} {
-        puts "find_repos '$path'"
-        set start_dir $path
-
-        #root is a 'project' if it it meets the candidate requrements and is under repo control
-        #therefore if project is in the closest_types list - candidate will always be there too - and at least one of git or fossil
-        #ie 'project' is a derived repo-type
-        set root_dict [list closest {} closest_types {} fossil {} git {} candidate {} project {} warnings {}]
-        set msg ""
-
-        #we're only searching in a straight path up the tree looking for a few specific marker files/folder
-        set fos_search_from $start_dir
-        set fossils_bottom_to_top [list]
-        while {[string length [set fosroot                  [punk::repo::find_fossil $fos_search_from]]]} {
-            lappend fossils_bottom_to_top $fosroot
-            set fos_search_from [file dirname $fosroot]
-            if {$fos_search_from eq $fosroot} {
-                #root of filesystem is repo - unusual case - but without this we would never escape the while loop
-                break
-            }
-        }
-        dict set root_dict fossil    $fossils_bottom_to_top
-
-        set git_search_from $start_dir
-        set gits_bottom_to_top [list]
-        while {[string length [set gitroot                  [punk::repo::find_git $git_search_from]]]} {
-            lappend gits_bottom_to_top $gitroot
-            set git_search_from [file dirname $gitroot]
-            if {$git_search_from eq $gitroot} {
-                break
-            }
-        }
-        dict set root_dict git       $gits_bottom_to_top
-
-        set cand_search_from $start_dir
-        set candidates_bottom_to_top [list]
-        while {[string length [set candroot                 [punk::repo::find_candidate $cand_search_from]]]} {
-            lappend candidates_bottom_to_top $candroot
-            set cand_search_from [file dirname $candroot]
-            if {$cand_search_from eq $candroot} {
-                break
-            }
-        }
-        dict set root_dict candidate $candidates_bottom_to_top
-
-
-        set projects_bottom_to_top [list]
-        set pathinfo [list] ;#list of {path plen} elements - for sorting on plen
-        set path_dict [dict create] ;#key on path - store repo-types as list
-        foreach repotype [list fossil git candidate] {
-            set repos [dict get $root_dict $repotype]
-            if {[llength $repos]} {
-                foreach p $repos {
-                    if {![dict exists $path_dict $p]} {
-                        dict set path_dict $p $repotype
-                    } else {
-                        if {$repotype eq "candidate"} {
-                            #path exists so this path is tracked and a candidate - therefore a punk 'project'
-                            dict lappend path_dict $p "candidate" "project"
-                            lappend projects_bottom_to_top $p
-                        } else {
-                            dict lappend path_dict $p $repotype
-                        }
-                    }
-                    set plen [llength [file split $p]]
-                }
-            }
-        }
-        dict set root_dict project $projects_bottom_to_top
-
-        dict for {path repotypes} $path_dict {
-            lappend pathinfo [list $repotypes $path [llength [file split $path]]]
-        }
-        #these root are all inline towards root of drive - so anything of same length should be same path - shorter path must be above another
-        #we will check equal depth paths are equal strings and raise an error just in case there are problems with the coding for the various path functions used here
-        #longest path is 'closest' to start_dir
-        set longest_first [lsort -decreasing -index 2 $pathinfo]
-        set repos [list]
-        foreach pinfo $longest_first {
-            lassign $pinfo types p len
-            lappend repos [list $p $types]
-        }
-        dict set root_dict repos $repos
-
-        set is_fossil_and_project 0; #fossil repo *and* candidate
-        foreach fos [dict get $root_dict fossil] {
-            if {$fos in [dict get $root_dict candidate]} {
-                set is_fossil_and_project 1
-                break
-            }
-        }
-        if {(!$is_fossil_and_project)} {
-            append msg "Not a punk fossil project" \n
-        }
-
-        if {![llength $longest_first]} {
-            #no repos or candidate
-            append msg "No fossil or git tracking found - No candidate project root found" \n
-        } else {
-            dict set root_dict closest [lindex $longest_first 0 1] ;#the *path* of the closest to start_dir
-            dict set root_dict closest_types [lindex $longest_first 0 0]
-        }
-
-
-        set closest_fossil          [lindex     [dict get $root_dict fossil] 0]
-        set closest_fossil_len      [llength    [file split $closest_fossil]]
-        set closest_git             [lindex     [dict get $root_dict git] 0]
-        set closest_git_len         [llength    [file split $closest_git]]
-        set closest_candidate       [lindex     [dict get $root_dict candidate] 0]
-        set closest_candidate_len   [llength    [file split $closest_candidate]]
-
-        if {$closest_candidate_len > $closest_fossil_len && $closest_candidate_len > $closest_git_len} {
-                #only warn if this candidate is *within* a found repo root
-                append msg "**" \n
-                append msg "** found folder with /src at or above starting folder - that is below a fossil and/or git repo" \n
-                append msg "** starting folder : $start_dir" \n
-                append msg "** untracked       : $candroot" \n
-                if {$closest_fossil_len} {
-                    append msg "** fossil root     : $closest_fossil    ([punk::path::relative $start_dir $closest_fossil])" \n
-                }
-                if {$closest_git_len} {
-                    append msg "** git root        : $closest_git    ([punk::path::relative $start_dir $closest_git])" \n
-                }
-                append msg "**" \n
-        }
-
-
-        #don't warn if not git - unless also not fossil
-        if {(![llength [dict get $root_dict fossil]]) && (![llength [dict get $root_dict git]])} {
-            append msg "No repository located at or above starting folder $start_dir" \n
-            if {![llength [dict get $root_dict candidate]]} {
-                append msg "No candidate project root found. " \n
-                append msg "Searched upwards from '$start_dir' expecting a folder with the following requirements: " \n
-                append msg [punk::repo::is_candidate_root_requirements_msg] \n
-            } else {
-                append msg "Candidate project root found at : $closest_candidate" \n
-                append msg " - consider putting this folder under fossil control (and/or git)" \n
-            }
-        }
-
-        set nestinfo [list]
-        if {[llength $longest_first] > 1} {
-            foreach pinfo $longest_first {
-                lassign $pinfo types p len
-                lappend nestinfo [list $p [join $types -]]
-            }
-        }
-        if {[string length $nestinfo]} {
-            set rnestinfo [lreverse $nestinfo]
-            set col1items [lsearch -all -inline -index 0 -subindices $rnestinfo *]
-            set col2items [lsearch -all -inline -index 1 -subindices $rnestinfo *]
-
-            package require overtype
-            set title1 "Path"
-            set widest1 [tcl::mathfunc::max {*}[lmap v [concat [list $title1] $col1items] {lib::strlen $v}]]
-            set col1 [string repeat " " $widest1]
-            set title2 "Repo-type(s)"
-            set widest2 [tcl::mathfunc::max {*}[lmap v [concat [list $title2] $col2items] {string length $v}]]
-            set col2 [string repeat " " $widest2]
-            set tablewidth [expr {$widest1 + 1 + $widest2}]
-
-            append msg [string repeat "=" $tablewidth] \n
-            append msg "Found nested repository structure" \n
-            append msg "[overtype::left $col1 $title1] [overtype::left $col2 $title2]" \n
-
-            append msg "[string repeat - $widest1] [string repeat - $widest2]" \n
-
-            foreach p $col1items tp $col2items {
-                append msg "[overtype::left $col1 $p] [overtype::left $col2 $tp]" \n
-            }
-            append msg [string repeat "=" $tablewidth] \n
-        }
-
-        dict set root_dict warnings $msg
-
-        return $root_dict
-    }
-    proc fossil_get_repository_file {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        set fossilcmd [Cached_auto_execok fossil]
-        if {[llength $fossilcmd]} {
-            do_in_path $path {
-                set fossilinfo [::exec {*}$fossilcmd info]
-            }
-            set matching_lines [punk::repo::grep {repository:*} $fossilinfo]
-            if {![llength $matching_lines]} {
-                return ""
-            }
-            set trimmedline [string trim [lindex $matching_lines 0]]
-            set firstcolon [string first : $trimmedline]
-            set repofile_path [string trim [string range $trimmedline $firstcolon+1 end]]
-            if {![file exists $repofile_path]} {
-                puts stderr "Repository file pointed to by fossil configdb doesn't exist: $repofile_path"
-                return ""
-            }
-            return $repofile_path
-        } else {
-            puts stderr "fossil_get_repository_file: fossil command unavailable"
-            return "" 
-        }
-    }
-    proc fossil_get_repository_folder_for_project {projectname args} {
-        set opts [list\
-            -parentfolder \uFFFF\
-            -extrachoices \uFFFF\
-            -askpath   0\
-            -ansi \uFFFF\
-            -ansi_prompt \uFFFF\
-            -ansi_warning  \uFFFF\
-        ] 
-        if {[llength $args] % 2 != 0} {
-            error "fossil_get_repository_folder requires args to be option-value pairs. Received '$args'"
-        }
-        foreach {k v} $args {
-            switch -- $k {
-                -parentfolder - -extrachoices - -askpath - -ansi - -ansi_prompt - -ansi_warning {
-                    dict set opts $k $v
-                }
-                default {
-                    error "fossil_get_repository_folder unrecognised option $k. Known options: [dict keys $opts]"
-                }
-            }
-        }
-        # -- --- --- --- --- ---
-        set opt_parentfolder [dict get $opts -parentfolder]
-        if {$opt_parentfolder eq "\uFFFF"} {
-            set opt_parentfolder [pwd]
-        }
-        # -- --- --- --- --- ---
-        set opt_extrachoices [dict get $opts -extrachoices]
-        set extrachoices [list]
-        if {$opt_extrachoices ne "\uFFFF"} {
-            set extrachoices $opt_extrachoices
-        }
-        # -- --- --- --- --- ---
-        set opt_askpath [dict get $opts -askpath]
-        # -- --- --- --- --- ---
-        set opt_ansi [dict get $opts -ansi]
-        set opt_ansi_prompt [dict get $opts -ansi_prompt]
-        set opt_ansi_warning [dict get $opts -ansi_warning]
-        if {$opt_ansi eq "\uFFFF"} {
-            set opt_ansi 1
-        }
-        if {$opt_ansi} {
-            if {$opt_ansi_prompt eq "\uFFFF"} {
-                set ansiprompt [a+ green bold]
-            } else {
-                set ansiprompt [$opt_ansi_prompt]
-            }
-            if {$opt_ansi_warning eq "\uFFFF"} {
-                set ansiwarn [a+ red bold]
-            } else {
-                set ansiwarn [$opt_ansi_warning]
-            }
-            set ansireset [a]
-        } else {
-            set ansiprompt ""
-            set ansiwarn ""
-            set ansireset ""
-        }
-        # -- --- --- --- --- ---
-
-        set startdir $opt_parentfolder
-
-        set fossil_prog [Cached_auto_execok fossil]
-        if {$fossil_prog eq ""} {
-            puts stderr "Fossil not found. Please install fossil"
-            return
-        }
-
-        set config_db_path [fossil_get_configdb]
-
-        set config_db_folder [file dirname $config_db_path]
-
-        #NOTE: we could use fossil all info to detect all locations of .fossil files - but there may be many that are specific to projects if the user wasn't in the habit of using a default location
-        #Whilst it might detect a central repo folder in a non-standard location - it might also be annoying.
-        #Todo - a separate environment variable for users to declare one or more locations where they would like to store project .fossil repositories?
-
-        set candidate_repo_folder_locations [list]
-        #- choose a sensible default based on where fossil put the global config dir - or on the existence of a .fossils folder in a 'standard' location
-        #verify with user before creating a .fossils folder
-        #always check env(FOSSIL_HOME) first - but this is designed to locate the global .fossil (or _fossil) file - .fossils repository folder doesn't have to be at the same location
-        set usable_repo_folder_locations [list]
-        #If we find one, but it's not writable - add it to another list
-        set readonly_repo_folder_locations [list]
-
-        #Examine a few possible locations for .fossils folder set
-        #if containing folder is writable add to candidate list
-        set testpaths [list]
-
-        if {[info exists ::env(FOSSIL_HOME)]} {
-            set fossilhome_raw [string trim $::env(FOSSIL_HOME)]
-            if {![catch {package require Tcl 8.7-}]} {
-                set fossilhome [file normalize [file tildeexpand $fossilhome_raw]]
-            } else {
-                #8.6
-                set fossilhome [file normalize $fossilhome_raw]
-            }
-
-            lappend testpaths [file join $fossilhome .fossils]
-        }
-
-        if {[info exists ::env(HOME)]} {
-            set homedir $::env(HOME) ;#use capital for cross-platform
-            set tp [file join $homedir .fossils]
-            if {$tp ni $testpaths} {
-                lappend testpaths $tp
-            }
-        }
-        set tp  [file join $config_db_folder .fossils]
-        if {$tp ni $testpaths} {
-            lappend testpaths $tp
-        }
-        #test our current startdir too in case the user likes to keep their fossils closer to the projects
-        set tp [file join $startdir .fossils]
-        if {$tp ni $testpaths} {
-            lappend testpaths $tp
-        }
-        if {[llength $extrachoices]} {
-            foreach tp $extrachoices {
-                if {$tp ni $testpaths} {
-                    lappend testpaths $tp
-                }
-            }
-        }
-
-
-        foreach testrepodir $testpaths {
-            if {[file isdirectory $testrepodir]} {
-                if {[file writable $testrepodir]} {
-                    lappend usable_repo_folder_locations $testrepodir
-                } else {
-                    lappend readonly_repo_folder_locations $testrepodir
-                }
-            } else {
-                set repo_parent [file dirname $testrepodir]
-                if {[file writable $repo_parent]} {
-                    lappend candidate_repo_folder_locations $testrepodir
-                }
-            }
-        }
-
-        set startdir_fossils [glob -nocomplain -dir $startdir -type f *.fossil]
-        if {[llength $startdir_fossils]} {
-            #user is already keeping .fossil files directly in curent dir - give them the option to easily keep doing this
-            #(we don't add it if no .fossil files there already - as it is probably a niche requirement - or a sign the user hasn't thought about a better/central location)
-            if {$startdir ni $usable_repo_folder_locations} {
-                lappend usable_repo_folder_locations $startdir
-            }
-        }
-        set choice_folders [list]
-        set i 1
-        foreach fld $usable_repo_folder_locations {
-            set existing_fossils [glob -nocomplain -dir $fld -type f -tails *.fossil]
-            if {[set ecount [llength $existing_fossils]]} {
-                if {$ecount ==1} {set s ""} else {set s "s"}
-                set existingfossils "( $ecount existing .fossil$s )"
-            } else {
-                set existingfossils "( no existing .fossil files found )"
-            }
-            if {"$projectname.fossil" in $existing_fossils} {
-                set conflict "${ansiwarn}CONFLICT - $projectname.fossil already exists in this folder${ansireset}"
-            } else {
-                set conflict ""
-            }
-            lappend choice_folders [list index $i folder $fld folderexists 1 existingfossils $existingfossils conflict $conflict]
-            incr i
-        }
-
-        if {![llength $choice_folders]} {
-            #no existing writable .fossil folders (and no existing .fossil files in startdir)
-            #offer the (writable) candidate_repo_folder_locations
-            foreach fld $candidate_repo_folder_locations {
-                lappend choice_folders [list index $i folder $fld folderexists 0 existingfossils "" conflict ""]
-                incr i
-            }
-        }
-
-        set menu_message ""
-        if {[llength $choice_folders]} {
-            append menu_message "${ansiprompt}Select the number of the folder to use to store the .fossil repository file${ansireset}" \n
-        } else {
-            append menu_message "${ansiwarn}--- NO suitable writable folders or locations found for .fossil file. Consider setting FOSSIL_HOME environment variable and check that folders are writable.--${ansireset}" \n
-        }
-
-        set conflicted_options [list]
-        foreach option $choice_folders {
-            set i [dict get $option index] ;# 1-based
-            set fld [dict get $option folder]
-            set existingfossils [dict get $option existingfossils]
-            set conflict [dict get $option conflict]
-            if {[string length $conflict]} {
-                lappend conflicted_options $i ;#1+
-            }
-            set folderexists [dict get $option folderexists]
-            if {$folderexists} {
-                set folderstatus "(existing folder)"
-            } else {
-                set folderstatus "(CREATE folder for .fossil repository files)"
-            }
-            append menu_message "$i  $folderstatus $fld $existingfossils $conflict" \n
-        }
-
-
-        #append the readonly_repo_folder_locations so that user is aware of them as it may affect their choice
-        if {[llength $readonly_repo_folder_locations]} {
-            append menu_message "--------------------------------------------------" \n
-            foreach readonly $readonly_repo_folder_locations {
-                append menu_message "${ansiwarn}<unavailable not writable> $readonly${ansireset}" \n
-            }
-            append menu_message "--------------------------------------------------" \n
-        }
-
-        #see if we can reasonably use the only available option and not bug the user
-        #Todo - option to always prompt?
-        #we will not auto-select if there is even one conflicted_option - as that seems like something you should know about
-        if {![llength $conflicted_options] && ([llength $choice_folders] == 1) && !$opt_askpath} {
-            set repo_folder_choice [lindex $choice_folders 0]
-            set repository_folder [dict get $repo_folder_choice folder]
-        } else {
-            if {[llength $choice_folders] || $opt_askpath} {
-                puts stdout $menu_message
-                set max [llength $choice_folders]
-                if {$max == 1} {
-                    set rangemsg "the number 1"
-                } else {
-                    set rangemsg "a number from 1 to $max"
-                }
-                set menuprompt "${ansiprompt}Enter $rangemsg to select location. (or N to abort)${ansireset}"
-                if {$opt_askpath} {
-                    set askpathprompt "${ansiprompt}Enter the word: path followed by an absolute path to a folder if you would like to manually enter a folder${ansireset}"
-                    append menuprompt \n $askpathprompt
-                }
-                set answer [askuser $menuprompt]
-                if {$opt_askpath && [string match "path*" [string tolower $answer]]} {
-                    set is_done 0
-                    set repository_folder [string trim [string range $answer 4 end]]
-                    while {!$is_done} {
-
-                        if {![file isdirectory $repository_folder]} {
-                            puts stderr "${ansiwarn}Sorry - unable to find entered location '$repository_folder'${ansireset}"
-                            if {[file isdirectory [file dirname $repository_folder]]} {
-                                set answer [askuser "${ansiprompt}Do you want to create this folder? Type just the word mkdir to create it, or N for no${ansireset}"]
-                                if {[string equal mkdir [string tolower $answer]]} {
-                                    if {[catch {file mkdir $repository_folder} errM]} {
-                                        puts stderr "Failed to create folder $repository_folder. Error $errM"
-                                    }
-                                }
-                            } else {
-                                puts stderr "${ansiwarn}Not offering to create directory because parent folder not found${ansireset}"
-                            }
-                        }
-
-                        if {![file isdirectory $repository_folder]} {
-                            set answer [askuser "${ansiprompt}Try again? (Y|N)${ansireset}"]
-                            if {[string match y* [string tolower $answer]]} {
-                                set answer [askuser $askpathprompt]
-                                if {[string match "path*" [string tolower $answer]]} {
-                                    set repository_folder [string trim [string range $answer 4 end]]
-                                } else {
-                                    puts stderr "Answer didn't begin with the word path"
-                                    set is_done 1
-                                }
-                            } else {
-                                set is_done 1
-                            }
-                        } else {
-                            set is_done 1
-                        }
-                    }
-                    if {$is_done && ![file isdirectory $repository_folder]} {
-                        puts stderr "Aborting"
-                        return
-                    }
-                } else {
-                    if {![string is integer -strict $answer]} {
-                        puts stderr "Aborting"
-                        return
-                    }
-                    set index [expr {int($answer) -1}]
-                    if {$index >= 0 && $index <= $max-1} {
-                        set repo_folder_choice [lindex $choice_folders $index]
-                        set repository_folder [dict get $repo_folder_choice folder]
-                        puts stdout "Selected fossil location $repository_folder"
-                    } else {
-                        puts stderr " No menu number matched - aborting."
-                        return
-                    }
-                }
-
-
-
-            } else {
-                puts stdout $menu_message
-                set answer [askuser "${ansiprompt}Hit enter to exit${ansireset}"]
-                return
-            }
-        }
-        return $repository_folder
-    }
-
-    #------------------------------------
-    #limit to exec so full punk shell not required in scripts
-    proc git_revision {{path ""}} {
-        if {$path eq {}} { set path [pwd] }
-        # ::kettle::path::revision.git
-        do_in_path $path {
-            try {
-                #git describe will error with 'No names found' if repo has no tags
-                #set v [::exec {*}[auto_execok git] describe]
-                set v [::exec {*}[Cached_auto_execok git] rev-parse HEAD] ;# consider 'git rev-parse --short HEAD'
-            } on error {e o} {
-                set v [lindex [split [dict get $o -errorinfo] \n] 0]
-            }
-        }
-        return [string trim $v]
-    }
-    proc git_remote {{path ""}} {
-        if {$path eq {}} { set path [pwd] }
-        do_in_path $path {
-            try {
-                #git describe will error with 'No names found' if repo has no tags
-                #set v [::exec {*}[auto_execok git] describe]
-                set v [::exec {*}[Cached_auto_execok git] remote -v] ;# consider 'git rev-parse --short HEAD'
-            } on error {e o} {
-                set v [lindex [split [dict get $o -errorinfo] \n] 0]
-            }
-        }
-        return [string trim $v]
-    }
-
-    proc fossil_revision {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        # ::kettle::path::revision.fossil
-        set fossilcmd [Cached_auto_execok fossil]
-        if {[llength $fossilcmd]} {
-            do_in_path $path {
-                set info [::exec {*}$fossilcmd info]
-            }
-            return [lindex [grep {checkout:*} $info] 0 1]
-        } else {
-            return Unknown
-        }
-    }
-
-    proc fossil_remote {{path {}}} {
-        if {$path eq {}} { set path [pwd] }
-        # ::kettle::path::revision.fossil
-        set fossilcmd [Cached_auto_execok fossil]
-        if {[llength $fossilcmd]} {
-            do_in_path $path {
-                set info [::exec {*}$fossilcmd remote ls]
-            }
-            return [string trim $info]
-        } else {
-            return Unknown
-        }
-    }
-    proc fossil_get_configdb {{path {}}} {
-        #fossil info will *usually* give us the necessary config-db info whether in a project folder or not but..
-        #a) It's expensive to shell-out and call it
-        #b) it won't give us a result if we are in a checkout folder which has had its repository moved
-        #this fairly extensive mechanism is designed to find it even if the environment has some weird goings-on regarding the filesystem/environment variables
-        #This is unlikely to be necessary in most scenarios, where the location is related to the user's home directory
-
-        #attempt 1 - environment vars  and well-known locations
-        #This is first because it's faster - but hopefully it's aligned with how fossil does it
-
-        if {"windows" eq $::tcl_platform(platform)} {
-            foreach varname [list FOSSIL_HOME LOCALAPPDATA APPDATA USERPROFILES] {
-                if {[info exists ::env($varname)]} {
-                    set testfile [file join $::env($varname) _fossil]
-                    if {[file exists $testfile]} {
-                        return $testfile
-                    }
-                }
-            }
-            if {[info exists ::env(HOMEDRIVE)] && [info exists ::env(HOMEPATH)]} {
-                set testfile $::env(HOMEDRIVE)$::env(HOMEPATH)\\_fossil"
-                if {[file exists $testfile]} {
-                    return $testfile
-                }
-            }
-        } else {
-            foreach varname [list FOSSIL_HOME HOME ] {
-                if {[info exists ::env($varname)]} {
-                    set testfile [file join $::env($varname) .fossil]
-                    if {[file exists $testfile]} {
-                        return $testfile
-                    }
-                }
-            }
-            if {[info exists ::env(XDG_CONFIG_HOME)]} {
-                set testfile [file join $::env(XDG_CONFIG_HOME) fossil.db]
-                if {[file exists $testfile]} {
-                    return $testfile
-                }
-                set testfile [file join $::env(XDG_CONFIG_HOME) .config fossil.db]
-                if {[file exists $testfile]} {
-                    return $testfile
-                }
-            }
-            if {[info exists ::env(HOME)]} {
-                set testfile [file join $::env(HOME) .config fossil.db]
-                if {[file exists $testfile]} {
-                    return $testfile
-                }
-            }
-        }
-
-
-        set original_cwd [pwd]
-        #attempt2 - let fossil do it for us - hopefully based on current folder
-        if {$path eq {}} {set path [pwd]}
-        set fossilcmd [Cached_auto_execok fossil]
-        if {![llength $fossilcmd]} {
-            set fossil_ok 0
-        } else {
-            set fossil_ok 1
-        }
-        try {
-            while {$fossil_ok} {
-                cd $path
-                if {[catch {exec {*}$fossilcmd info} fossilinfo]} {
-                    #a detached repo above us can result in an error from fossil info
-                    set next [file dirname $path]
-                } else {
-                    set matching_lines [punk::repo::grep {config-db:*} $fossilinfo]
-                    if {[llength $matching_lines] == 1} {
-                        set trimmedline [string trim [lindex $matching_lines 0]]
-                        set firstcolon [string first : $trimmedline]
-                        set config_db_path [string trim [string range $trimmedline $firstcolon+1 end]]
-                        if {[file exists $config_db_path]} {
-                            return $config_db_path
-                        }
-                    }
-                    set next [file dirname $path]
-                }
-
-                if {$next eq $path || $next eq ""} {
-                    break
-                }
-                set path $next
-            }
-        } on error {errmsg options} {
-            #puts "errmsg:$errmgs options:$options"
-        } finally {
-            cd $original_cwd
-        }
-
-        #attempt 3 - getting desperate.. find other repos, determine their checkouts and run fossil in them to get a result
-        if {$fossil_ok} {
-            #It should be extremely rare to need to resort to sqlite on the databases to find other potential repo paths
-            #Conceivably only on some weird VFS or where some other filesystem strangeness is going on with our original path - or if the root volume itself is a broken fossil checkout
-            #Examining the other repos gives us a chance at discovering some other filesystem/paths where things may not be broken
-            if {![catch {package require sqlite3} errPackage]} {
-                #use fossil all ls and sqlite
-                if {[catch {exec {*}$fossilcmd all ls} repolines]} {
-                    error "fossil_get_configdb cannot find repositories"
-                } else {
-                    set repolines [string map {\r\n \n} $repolines]
-                    set repolist [split $repolines \n]
-                    set dbcmd "fossil_get_configdb_tempdb"
-                    foreach repodb $repolist {
-                        catch {rename $dbcmd ""}
-                        if {[file exists $repodb]} {
-                            if {![catch {sqlite3 $dbcmd $repodb}]} {
-                                set ckoutrecords [$dbcmd eval {select name from config where name like 'ckout:%'}]
-                                catch {$dbcmd close}
-                                foreach ck $ckoutrecords {
-                                    set ckfolder [string range $ck 6 end]
-                                    #puts stdout "ckfolder $ckfolder"
-                                    if {[file isdirectory $ckfolder]} {
-                                        set result ""
-                                        do_in_path $ckfolder {
-                                            if {![catch {exec {*}$fossilcmd info} fossilinfo]} {
-                                                set matching_lines [punk::repo::grep {config-db:*} $fossilinfo]
-                                                if {[llength $matching_lines] == 1} {
-                                                    set trimmedline [string trim [lindex $matching_lines 0]]
-                                                    set firstcolon [string first : $trimmedline]
-                                                    set config_db_path [string trim [string range $trimmedline $firstcolon+1 end]]
-                                                    if {[file exists $config_db_path]} {
-                                                        set result $config_db_path
-                                                    }
-                                                }
-                                            }
-                                        }
-                                        if {$result ne ""} {
-                                            return $result
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                    }
-                }
-            }
-        }
-        error "fossil_get_configdb exhausted search options"
-    }
-    #------------------------------------
-
-    #temporarily cd to workpath to run script - return to correct path even on failure
-    proc do_in_path {path script} {
-        #from ::kettle::path::in
-        set here [pwd]
-        try {
-            cd $path
-            uplevel 1 $script
-        } finally {
-            cd $here
-        }
-    }
-    proc scanup {path cmd} {
-        if {$path eq {}} { set path [pwd] }
-        #based on kettle::path::scanup
-        if {[file pathtype $path] eq "relative"} {
-            set path [file normalize $path]
-        }
-        while {1} {
-            # Found the proper directory, per the predicate.
-            if {[{*}$cmd $path]} { return $path }
-
-            # Not found, walk to parent
-            set new [file dirname $path]
-
-            # Stop when reaching the root.
-            if {$new eq $path} { return {} }
-            if {$new eq {}} { return {} }
-
-            # Ok, truly walk up.
-            set path $new
-        }
-        return {}
-    }
-    #get content part of content/zip delimited by special \x1a (ctrl-z) char as used in tarjr and kettle::path::c/z
-    proc c/z {content} {
-        return [lindex [split $content \x1A] 0]
-    }
-    proc grep {pattern data} {
-        set data [string map {\r\n \n} $data]
-        return [lsearch -all -inline -glob [split $data \n] $pattern]
-    }
-
-    proc rgrep {pattern data} {
-        set data [string map {\r\n \n} $data]
-        return [lsearch -all -inline -regexp [split $data \n] $pattern]
-    }
-
-
-    #todo - review
-    proc ensure-cleanup {path} {
-        #::atexit [lambda {path} {
-        #file delete -force $path
-        #} [norm $path]]
-
-        file delete -force $path
-    }
-
-
-    #whether path is at and/or below one of the vfs mount points
-    #The design should facilitate nested vfs mountpoints
-    proc path_vfs_info {filepath} {
-        error "unimplmented"
-    }
-
-    #file normalize is expensive so this is too
-    proc norm {path {platform env}} {
-        #kettle::path::norm
-        #see also wiki
-        #full path normalization
-
-        set platform [string tolower $platform]
-        if {$platform eq "env"} {
-            set platform $::tcl_platform(platform)
-        }
-
-        #No - don't do this sort of path translation here - leave as option for specific utils only such as ./
-        #Windows volume-relative syntax with specific volume specified is somewhat broken in Tcl - but leading slash volume-relative does work
-        #We shouldn't break it totally just because accessing WSL/mingw paths is slightly more useful
-        #if {$platform eq "windows"} {
-            #return [file dirname [file normalize [punk::unixywindows::towinpath $path]/__]]
-        #}
-
-        return [file dirname [file normalize $path/__]]
-    }
-
-    #This taken from kettle::path::strip
-    #It doesn't compare the prefix contents presumably for speed when used in kettle::path::scan
-    #renamed to better indicate its behaviour
-
-    proc path_strip_prefixdepth {path prefix} {
-        if {$prefix eq ""} {
-            return [norm $path]
-        }
-        return [file join \
-            {*}[lrange \
-                [file split [norm $path]] \
-                [llength [file split [norm $prefix]]] \
-                end]]
-    }
-
-    #Must accept empty prefix - which is effectively noop.
-    #MUCH faster version for absolute path prefix (pre-normalized)
-    #review - will error on file join if lrange returns empty list ie if prefix longer than path
-    proc path_strip_alreadynormalized_prefixdepth {path prefix} {
-        if {$prefix eq ""} {
-            return $path
-        }
-        return [file join \
-            {*}[lrange \
-                [file split $path] \
-                [llength [file split $prefix]] \
-                end]]
-    }
-    #fs agnostic - so file normalize must be done by caller
-    proc strip_if_prefix {prefix path args} {
-        set known_opts [list -nocase]
-        set opts [list]
-        foreach a $args {
-            lappend opts [tcl::prefix match -message "option" $known_opts $a]
-        }
-        if {"-nocase" in $opts} {
-            set lp [tcl::prefix longest [string tolower $path] [string tolower $prefix]]
-        } else {
-            set lp [tcl::prefix longest $path $prefix]
-        }
-        #return in original casing whether or not -nocase specified. -nocase only applies to the comparison
-        if {![llength $lp]} {
-            return $path
-        } else {
-            return  [string range $path [string length $prefix] end]
-        }
-    }
-
-    interp alias "" fossil "" punk::repo::fossil_proxy
-    interp alias "" FOSSIL "" punk::repo::establish_FOSSIL
-
-    interp alias {} is_fossil   {} ::punk::repo::is_fossil
-    interp alias {} is_fossil_root   {} ::punk::repo::is_fossil_root
-    interp alias {} find_fossil   {} ::punk::repo::find_fossil
-    interp alias {} fossil_revision   {} ::punk::repo::fossil_revision
-    interp alias {} is_git      {} ::punk::repo::is_git
-    interp alias {} is_git_root      {} ::punk::repo::is_git_root
-    interp alias {} find_git   {} ::punk::repo::find_git
-    interp alias {} git_revision   {} ::punk::repo::git_revision
-
-
-    interp alias {} gs {}       shellrun::runconsole git status -sb
-    interp alias {} gr {}       ::punk::repo::git_revision
-    interp alias {} gl {}       shellrun::runconsole git log --oneline --decorate ;#decorate so stdout consistent with what we see on console
-    interp alias {} glast {}    shellrun::runconsole git log -1 HEAD --stat
-    interp alias {} gconf {}    shellrun::runconsole git config --global -l
-
-}
-namespace eval punk::repo::lib {
-    #-----------------------------------------------------------------------------------
-    #strlen is important for testing issues with string representationa and shimmering.
-    #This specific implementation with append (as at 2023-09) is designed to ensure the original str representation isn't changed
-    #It may need to be reviewed with different Tcl versions in case the append empty string is 'optimised/tuned' in some way that affects the behaviour
-    #The use of this function instead of string length can make a difference in certain circumstances with 'path' object representations
-    proc strlen {str} {
-        append str2 $str {}
-        string length $str2
-    }
-    #-----------------------------------------------------------------------------------
-
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punk::repo
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punk::repo [namespace eval punk::repo {
-    variable version
-    set version 0.1.1
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/tdl-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/tdl-0.1.0.tm
deleted file mode 100644
index 6b1480be..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/tdl-0.1.0.tm
+++ /dev/null
@@ -1,109 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::tdl 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::tdl {
-    # https://wiki.tcl-lang.org/page/Config+file+using+slave+interp
-
-    variable sample_script {
-        server -name bsd1 -os FreeBSD
-        server -name p1 -os linux
-        server -name trillion -os windows
-
-        server -name vmhost1 -os FreeBSD {
-            guest -name bsd1 -vmmanager bastille 
-            guest -name p1 -vmmanager bhyve
-        }
-
-    }
-
-
-    proc prettyparse {script {safe 1}} {
-        if {$safe} {
-            set i [interp create -safe]
-        } else {
-            set i [interp create]
-        }
-        try {
-    #       $i eval {unset {*}[info vars]}
-    #       foreach command [$i eval {info commands}] {$i hide $command}
-    #       $i invokehidden namespace delete {*}[$i invokehidden namespace children]
-            $i alias unknown apply {{i tag args} {
-                upvar 1 result result
-                set e [concat [list tag $tag]\
-                            [lrange $args 0 [expr {([llength $args] & ~1) - 1}]]]
-                if {[llength $args] % 2} {
-                    set saved $result
-                    set result {}
-                    $i eval [lindex $args end]
-                    lappend e body $result
-                    set result $saved
-                }
-                lappend result $e
-                list
-            }} $i
-            set result {}
-            $i eval $script
-            return $result
-        } finally {
-            interp delete $i
-        }
-    }
-
-    proc prettyprint {data {level 0}} {
-        set ind [string repeat "    " $level]
-        incr level
-        set result {}
-        foreach e $data {
-            set line $ind[concat [list [dict get $e tag]] [dict remove $e tag body]]
-            if {[dict exists $e body] && [llength [dict get $e body]]} {
-                append line " {\n[prettyprint [dict get $e body] $level]\n$ind}"
-            }
-            lappend result $line
-        }
-        join $result \n
-    }
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::tdl [namespace eval punk::tdl {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/trie-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/trie-0.1.0.tm
deleted file mode 100644
index 0b5bd298..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/trie-0.1.0.tm
+++ /dev/null
@@ -1,605 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) CMcC 2010
-#
-# @@ Meta Begin
-# Application punk::trie 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::trie 0 0.1.0]
-#[copyright "2010"]
-#[titledesc {punk::trie API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk::trie}]             [comment {-- Description at end of page heading --}] 
-#[require punk::trie]
-#[keywords module datastructure trie]
-#[description] tcl trie implementation courtesy of CmcC (tcl wiki)
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::trie
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::trie
-#[list_begin itemized]
-
-package require Tcl 8.6-
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# #tcl::namespace::eval punk::trie::class {
-#     #*** !doctools
-#     #[subsection {Namespace punk::trie::class}]
-#     #[para] class definitions
-#     #if {[tcl::info::commands [tcl::namespace::current]::interface_sample1] eq ""} {
-#         #*** !doctools
-#         #[list_begin enumerated]
-# 
-#         # oo::class create interface_sample1 {
-#         #     #*** !doctools
-#         #     #[enum] CLASS [class interface_sample1]
-#         #     #[list_begin definitions]
-# 
-#         #     method test {arg1} {
-#         #         #*** !doctools
-#         #         #[call class::interface_sample1    [method test] [arg arg1]]
-#         #         #[para] test method
-#         #         puts "test: $arg1"
-#         #     }
-# 
-#         #     #*** !doctools
-#         #     #[list_end] [comment {-- end definitions interface_sample1}]
-#         # }
-# 
-#         #*** !doctools
-#         #[list_end] [comment {--- end class enumeration ---}]
-#     #}
-# #}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::trie {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    #variable xyz
-    proc Dolog {lvl txt} {
-        #return "$lvl -- $txt"
-        #logger calls this in such a way that a straight uplevel can get us the vars/commands in messages substituted
-        set msg "[clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] punk::trie '[uplevel [list subst $txt]]'"
-        puts stderr $msg
-    }
-    package require logger
-    logger::initNamespace ::punk::trie
-    foreach lvl [logger::levels] {
-        interp alias {}     ::punk::trie::Log_$lvl {} ::punk::trie::Dolog $lvl
-        log::logproc $lvl   ::punk::trie::Log_$lvl 
-    }
-    #namespace path ::punk::trie::log
-
-    #*** !doctools
-    #[subsection {Namespace punk::trie}]
-    #[para] Core API functions for punk::trie 
-    if {[tcl::info::commands [tcl::namespace::current]::trieclass] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        oo::class create [tcl::namespace::current]::trieclass {
-            #*** !doctools
-            #[enum] CLASS [class trieclass]
-            #[list_begin definitions]
-
-            variable trie id
-
-            method matches {t what} {
-                #*** !doctools
-                #[call class::trieclass    [method matches] [arg t] [arg what]]
-                #[para] search for longest prefix, return matching prefix, element and suffix 
-
-                set matches {}
-                set wlen [string length $what]
-                foreach k [lsort -decreasing -dictionary [dict keys $t]] {
-                    set klen [string length $k]
-                    set match ""
-                    for {set i 0} {$i < $klen
-                                && $i < $wlen
-                                && [string index $k $i] eq [string index $what $i]
-                            } {incr i} {
-                        append match [string index $k $i]
-                    }
-                    if {$match ne ""} {
-                        lappend matches $match $k
-                    }
-                }
-                #Debug.trie {matches: $what -> $matches}
-                ::punk::trie::log::debug {matches: $what -> $matches}
-
-                if {[dict size $matches]} {
-                    # find the longest matching prefix
-                    set match [lindex [lsort -dictionary [dict keys $matches]] end]
-                    set mel [dict get $matches $match]
-                    set suffix [string range $what [string length $match] end]
-                    
-                    return [list $match $mel $suffix]
-                } else {
-                    return {}        ;# no matches
-                }
-            }
-
-            # return next unique id if there's no proffered value
-            method id {value} {
-                if {$value} {
-                    return $value
-                } else {
-                    return [incr id]
-                }
-            }
-
-            # insert an element with a given optional value into trie
-            # along path given by $args (no need to specify)
-            method insert {what {value 0} args} {
-                if {[llength $args]} {
-                    set t [dict get $trie {*}$args]
-                } else {
-                    set t $trie
-                }
-
-                if {[dict exists $t $what]} {
-                    #Debug.trie {$what is an exact match on path ($args $what)}
-                    ::punk::trie::log::debug {$what is an exact match on path ($args $what)}
-                    if {[catch {dict size [dict get $trie {*}$args $what]} size]} {
-                        # the match is a leaf - we're done
-                    } else {
-                        # the match is a dict - we have to add a null
-                        dict set trie {*}$args $what "" [my id $value]
-                    }
-
-                    return        ;# exact match - no change
-                }
-
-                # search for longest prefix
-                set match [my matches $t $what]
-
-                if {![llength $match]} {
-                    ;# no matching prefix - new element
-                    #Debug.trie {no matching prefix of '$what' in $t - add it on path ($args $what)}
-                    ::punk::trie::log::debug {no matching prefix of '$what' in $t add it on path ($args $what)}
-                    dict set trie {*}$args $what [my id $value]
-                    return
-                }
-
-                lassign $match match mel suffix        ;# prefix, element of match, suffix
-
-                if {$match ne $mel} {
-                    # the matching element shares a prefix, but has a variant suffix
-                    # it must be split
-                    #Debug.trie {splitting '$mel' along '$match'}
-                    ::punk::trie::log::debug {splitting '$mel' along '$match'}
-
-                    set melC [dict get $t $mel]
-                    dict unset trie {*}$args $mel
-                    dict set trie {*}$args $match [string range $mel [string length $match] end] $melC
-                }
-
-                if {[catch {dict size [dict get $trie {*}$args $match]} size]} {
-                    # the match is a leaf - must be split
-                    if {$match eq $mel} {
-                        # the matching element shares a prefix, but has a variant suffix
-                        # it must be split
-                        #Debug.trie {splitting '$mel' along '$match'}
-                        ::punk::trie::log::debug {splitting '$mel' along '$match'}
-                        set melC [dict get $t $mel]
-                        dict unset trie {*}$args $mel
-                        dict set trie {*}$args $match "" $melC
-                    }
-                    #Debug.trie {'$mel' is the longest prefix '$match' but was a leaf - insert '$suffix'}
-                    ::punk::trie::log::debug {'$mel' is the longest prefix '$match' but was a leaf - insert '$suffix'}
-                    set melid [dict get $t $mel]
-                    dict set trie {*}$args $match $suffix [my id $value]
-                } else {
-                    # it's a dict - keep searching
-                    #Debug.trie {'$mel' is the longest prefix '$match' and is a dict - search for '$suffix' on path ($args $match)}
-                    ::punk::trie::log::debug {'$mel' is the longest prefix '$match' and is a dict - search for '$suffix' on path ($args $match)}
-                    my insert $suffix $value {*}$args $match
-                }
-                return
-            }
-
-            # find a path matching an element $what
-            # if the element's not found, return the nearest path
-            method find_path {what args} {
-                if {[llength $args]} {
-                    set t [dict get $trie {*}$args]
-                } else {
-                    set t $trie
-                }
-                
-                if {[dict exists $t $what]} {
-                    #Debug.trie {$what is an exact match on path ($args $what)}
-                    return [list {*}$args $what]        ;# exact match - no change
-                }
-
-                # search for longest prefix
-                set match [my matches $t $what]
-
-                if {![llength $match]} {
-                    return $args
-                }
-
-                lassign $match match mel suffix        ;# prefix, element of match, suffix
-
-                if {$match ne $mel} {
-                    # the matching element shares a prefix, but has a variant suffix
-                    # no match
-                    return $args
-                }
-
-                if {[catch {dict size [dict get $trie {*}$args $match]} size] || $size == 0} {
-                    # got to a non-matching leaf - no match
-                    return $args
-                } else {
-                    # it's a dict - keep searching
-                    #Debug.trie {'$mel' is the longest prefix '$match' and is a dict - search for '$suffix' on path ($args $match)}
-                    return [my find_path $suffix {*}$args $match]
-                }
-            }
-
-            # given a trie, which may have been modified by deletion,
-            # optimize it by removing empty nodes and coalescing singleton nodes
-            method optimize {args} {
-                if {[llength $args]} {
-                    set t [dict get $trie {*}$args]
-                } else {
-                    set t $trie
-                }
-
-                if {[catch {dict size $t} size]} {
-                    #Debug.trie {optimize leaf '$t' along '$args'}
-                    ::punk::trie::log::debug {optimize leaf '$t' along '$args'}
-                    # leaf - leave it
-                } else {
-                    switch -- $size {
-                        0 {
-                            #Debug.trie {optimize empty dict ($t) along '$args'}
-                            ::punk::trie::log::debug {optimize empty dict ($t) along '$args'}
-                            if {[llength $args]} {
-                                dict unset trie {*}$args
-                            }
-                        }
-                        1 {
-                            #Debug.trie {optimize singleton dict ($t) along '$args'}
-                            ::punk::trie::log::debug {optimize singleton dict ($t) along '$args'}
-                            lassign $t k v
-                            if {[llength $args]} {
-                                dict unset trie {*}$args
-                            }
-                            append args $k
-                            if {[llength $v]} {
-                                dict set trie {*}$args $v
-                            }
-                            my optimize {*}$args
-                        }
-                        default {
-                            #Debug.trie {optimize dict ($t) along '$args'}
-                            ::punk::trie::log::debug {optimize dict ($t) along '$args'}
-                            dict for {k v} $t {
-                                my optimize {*}$args $k
-                            }
-                        }
-                    }
-                }
-            }
-
-            # delete element $what from trie
-            method delete {what} {
-                set path [my find_path $what]
-                if {[join $path ""] eq $what} {
-                    #Debug.trie {del '$what' along ($path) was [dict get $trie {*}$path]}
-                    if {[catch {dict size [dict get $trie {*}$path]} size]} {
-                        # got to a matching leaf - delete it
-                        dict unset trie {*}$path
-                        set path [lrange $path 0 end-1]
-                    } else {
-                        dict unset trie {*}$path ""
-                    }
-
-                    my optimize        ;# remove empty and singleton elements
-                } else {
-                    # nothing to delete, guess we're done
-                }
-            }
-
-            # find the value of element $what in trie,
-            # error if not found
-            method find_or_error {what} {
-                set path [my find_path $what]
-                if {[join $path ""] eq $what} {
-                    if {[catch {dict size [dict get $trie {*}$path]} size]} {
-                        # got to a matching leaf - done
-                        return [dict get $trie {*}$path]
-                    } else {
-                        #JMN - what could be an exact match for a path, but not be in the trie itself
-                        if {[dict exists $trie {*}$path ""]} {
-                            return [dict get $trie {*}$path ""]
-                        } else {
-                            ::punk::trie::log::debug {'$what' matches a path but is not a leaf}
-                            error "'$what' not found"
-                        }
-                    }
-                } else {
-                    error "'$what' not found"
-                }
-            }
-            #JMN - renamed original find to find_or_error
-            #prefer not to catch on result - but test for -1
-            method find {what} {
-                set path [my find_path $what]
-                if {[join $path ""] eq $what} {
-                    #presumably we use catch and dict size to avoid llength shimmering large inner dicts to list rep
-                    if {[catch {dict size [dict get $trie {*}$path]} size]} { 
-                        # got to a matching leaf - done
-                        return [dict get $trie {*}$path]
-                    } else {
-                        #JMN - what could be an exact match for a path, but not be in the trie itself
-                        if {[dict exists $trie {*}$path ""]} {
-                            return [dict get $trie {*}$path ""]
-                        } else {
-                            ::punk::trie::log::debug {'$what' matches a path but is not a leaf}
-                            return -1
-                        }
-                    }
-                } else {
-                    return -1
-                }
-            }
-
-            # dump the trie as a string
-            method dump {} {
-                return $trie
-            }
-
-            # return a string rep of the trie sorted in dict order
-            method order {{t {}}} {
-                if {![llength $t]} {
-                    set t $trie
-                } elseif {[llength $t] == 1} {
-                    return $t
-                }
-                set acc {}
-
-                foreach key [lsort -dictionary [dict keys $t]] {
-                    lappend acc $key [my order [dict get $t $key]]
-                }
-                return $acc
-            }
-
-            # return the trie as a dict of names with values
-            method flatten {{t {}} {prefix ""}} {
-                if {![llength $t]} {
-                    set t $trie
-                } elseif {[llength $t] == 1} {
-                    return [list $prefix $t]
-                }
-
-                set acc {}
-                dict for {key val} $t {
-                    lappend acc {*}[my flatten $val $prefix$key]
-                }
-                return $acc
-            }
-            
-            #shortest possible string to identify an element in the trie using the same principle as tcl::prefix::match
-            #ie if a stored word is a prefix of any other words - it must be fully specified to identify itself.
-            #JMN - REVIEW - better algorithms? 
-            #caller having retained all members can avoid flatten call
-            #by selecting a single 'which' known not to be in the trie (or empty string) - all idents can be returned.
-            #when all 'which' members are in the tree - scanning stops when they're all found
-            # - and a dict containing result and scanned keys is returned  
-            # - result contains a dict with keys for each which member
-            # - scanned contains a dict of all words longer than our shortest which - (and a subset of words the same length)
-            method shortest_idents {which {allmembers {}}} {
-                set t $trie
-                if {![llength $allmembers]} {
-                    set members [dict keys [my flatten]]
-                } else {
-                    set members $allmembers
-                }
-                set len_members [lmap m $members {list [string length $m] $m}]
-                set longestfirst [lsort -index 0 -integer -decreasing $len_members]
-                set longestfirst [lmap v $longestfirst {lindex $v 1}]
-                set taken       [dict create]
-                set scanned     [dict create]
-                set result      [dict create] ;#words in our which list - if found
-                foreach w $longestfirst {
-                    set path [my find_path $w]
-                    if {[dict exists $taken $w]} {
-                        #whole word - no unique prefix
-                        dict set scanned $w $w
-                        if {$w in $which} {
-                            #puts stderr "$w -> $w"
-                            dict set result $w $w 
-                            if {[dict size $result] == [llength $which]} {
-                                return [dict create result $result scanned $scanned]
-                            }
-                        }
-                        continue
-                    }
-                    set acc ""
-                    foreach p [lrange $path 0 end-1] {
-                        dict set taken [append acc $p] 1 ;#no need to test first - just set even though may already be present
-                    }
-                    append acc [string index [lindex $path end] 0]
-                    dict set scanned $w $acc ;#sorted by length - so no other can have this prefix - and no longer necessary
-                    if {$w in $which} {
-                        #puts stderr "$w -> $acc"
-                        dict set result $w $acc
-                        if {[dict size $result] == [llength $which]} {
-                            return [dict create result $result scanned $scanned]
-                        }
-                    }
-                }
-                return [dict create result $result scanned $scanned]
-            }
-
-            # overwrite the trie
-            method set {t} {
-                set trie $t
-            }
-
-            constructor {args} {
-                set trie {}
-                set id 0
-                foreach a $args {
-                    my insert $a
-                }
-            }
-
-            #*** !doctools
-            #[list_end] [comment {--- end definitions ---}]
-        }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-
-        set testlist [list blah x black blacken]
-        proc test1 {} {
-            #JMN
-            #test that find_or_error of a path that isn't stored as a value returns an appropriate error
-            #(used to report couldn't find dict key "")
-            set t [punk::trie::trieclass new blah x black blacken]
-            if {[catch {$t find_or_error bla} errM]} {
-                puts stderr "should be error indicating 'bla' not found"
-                puts stderr "err during $t find bla\n$errM"
-            }
-            return $t
-        }
-
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-    }
-
-
-
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1 
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok" 
-    #}
-
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::trie::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::trie::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::trie::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-#tcl::namespace::eval punk::trie::system {
-    #*** !doctools
-    #[subsection {Namespace punk::trie::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::trie [tcl::namespace::eval punk::trie {
-    variable pkg punk::trie
-    variable version
-    set version 0.1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/unixywindows-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/unixywindows-0.1.0.tm
deleted file mode 100644
index 1d0a3957..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/unixywindows-0.1.0.tm
+++ /dev/null
@@ -1,237 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::unixywindows 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-#for illegalname_test 
-package require punk::winpath  
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::unixywindows {
-    #'cached' name to make obvious it could be out of date - and to distinguish from unixyroot arg
-    variable cachedunixyroot ""
-
-
-    #-----------------
-    #e.g  something like c:/Users/geek/scoop/apps/msys2/current    c:/msys2
-    proc get_unixyroot {} {
-        variable cachedunixyroot
-        if {![string length $cachedunixyroot]} {
-            if {![catch  {
-                set result [exec cygpath -m /] ;# -m gives result with forward-slashes - which is ok for windows paths in a Tcl context.
-                set cachedunixyroot [punk::objclone $result] 
-                file pathtype $cachedunixyroot; #this call causes the int-rep to be path
-                #set ::punk::last_run_display [list]   ;#hack - review shouldn't really be necessary.. but because we call winpath from ./  - the repl looks for last_run_display
-            } errM]} {
-
-            } else {
-                puts stderr "Warning: Failed to determine base for unix-like paths - using default of c:/msys2"
-                file pathtype [set cachedunixyroot [punk::objclone "c:/msys2"]]
-            }
-        }
-        #will have been shimmered from string to 'path' internal rep by 'file pathtype' call
-
-        #let's return a different copy as it's so easy to lose path-rep
-        set copy [punk::objclone $cachedunixyroot]
-        return $copy
-    }
-    proc refresh_unixyroot {} {
-        variable cachedunixyroot
-        set result [exec cygpath -m /] ;# -m gives result with forward-slashes - which is ok for windows paths in a Tcl context.
-        set cachedunixyroot [punk::objclone $result] 
-        file pathtype $cachedunixyroot; #this call causes the int-rep to be path
-
-        set copy [punk::objclone $cachedunixyroot]
-        return $copy
-    }
-    proc set_unixyroot {windows_path} {
-        variable cachedunixyroot
-        file pathtype $windows_path
-        set cachedunixyroot [punk::objclone $windows_path]
-        #return the original  - but probably int-rep will have shimmered to path even if started out as string
-        #- that's probably what we want. Caller can use as string or path without affecting cachedunixyroot
-        return $windows_path
-    }
-
-
-    proc windir {path} {
-        if {$path eq "~"} {
-            #as the tilde hasn't been normalized.. we can't assume we're running on the actual platform 
-            return ~/..
-        }
-        return [file dirname [towinpath $path]]
-    }
-
-    #REVIEW high-coupling
-    proc cdwin {path} {
-        set path [towinpath $path]
-        if {[package provide punk::repl::codethread] ne "" && [punk::repl::codethread::is_running]} {
-            if {[llength [info commands ::punk::console::titleset]]} {
-                ::punk::console::titleset $path
-            }
-        }
-        cd $path
-    }
-    proc cdwindir {path} {
-        set path [towinpath $path]
-        if {[package provide punk::repl::codethread] ne "" && [punk::repl::codethread::is_running]} {
-            if {[llength [info commands ::punk::console::titleset]]} {
-                ::punk::console::titleset $path
-            }
-        }
-        cd [file dirname $path]
-    }
-
-    #NOTE - this is an expensive operation - avoid where possible.
-    #review - is this intended to be useful/callable on non-windows platforms?
-    #it should in theory be useable from another platform that wants to create a path for use on windows.
-    #In this case - we shouldn't examine what volumes exist (assume A: .. Z: are valid)
-    #review zipfs://  other uri schemes?
-    proc towinpath {unixypath {unixyroot ""}} {
-        #NOTE: tcl file exists gives different answers on windows for paths like  /c depending on cwd (presumably based on file pathtype of volumerelative)
-        #(Tcl is also somewhat broken as at 2023 as far as volume relative paths - process can get out of sync with tcl if cd to a vol relative path is used)
-        #This is add odds with attempting to navigate on a windows system which has cygwin, wsl etc... It also makes it difficult for functions intended to operate independent of CWD.
-        #e.g there is potential confusion when there is a c folder on c: drive  (c:/c)
-        #I will attempt to provide a coherent operation for winpath ./ ../ etc  , but it may disallow for example; change to /something  or /x  where these don't match a driveletter or /mnt
-        #whereas tcl may allow cd to /something  if a something folder happens to exist on the current volume based on cwd.
-        #I think it's preferable to require an explicit driveletter /x or /mnt  when using unix-like paths on windows - but practical considerations may prove me wrong.. 
-        #It's possible that this function should also ignore the current set of driveletters - and operate completely independent of whether a path actually exists
-        #This makes it hard to use things like 'file normalize' - which also looks at things like current volume.
-        #
-        #Note for example the results of 'which' grep on windows can produce a path like /c/Users/somewhere/bin/grep 
-        #which tcl's file normalize may change to C:/c/Users or X:/c/Users  - based on current volumen.  Given that C:/c might exist - this can be problematic in a couple of ways.
-        #The mixing of unix-like and windows commands on the same machine is a large part of the problem.. but this mix is now common
-        #
-        #convert /c/etc to C:/etc 
-        set re_slash_x_slash {^/([[:alpha:]]){1}/.*}
-        set re_slash_else {^/([[:alpha:]]*)(.*)}
-        set volumes [file volumes]
-        #exclude things like //zipfs:/  ??
-        set driveletters [list]
-        foreach v $volumes {
-            if {[regexp {^([[:alpha:]]){1}:/$} $v _ letter]} {
-                lappend driveletters $letter
-            }
-        }
-        #puts stderr "->$driveletters"
-
-        set path [punk::objclone $unixypath] ;#take another copy that we can deliberatley shimmer to path and know is separate to the supplied argument 
-        set supplied_pathtype [file pathtype $path] ;#we don't care about the pathtype so much as the act of making this call shimmers to a path internal-rep
-
-        #copy of var that we can treat as a string without affecting path rep
-        #Note that some but not all read operations will lose path rep  e.g 'string length $x' will lose any path-rep $x had, (but 'string equal $x something' won't)
-        #Todo - make int-rep tests to check stability of these behaviours across Tcl versions!
-        set strcopy_path [punk::objclone $path]
-
-        set str_newpath ""
-
-        set have_pathobj 0
-
-        if {[regexp $re_slash_x_slash $strcopy_path _ letter]} {
-            #upper case appears to be windows canonical form
-            set str_newpath [string toupper $letter]:/[string range $strcopy_path 3 end] 
-        } elseif {[regexp {^/mnt/([[:alpha:]]){1}/.*} [string tolower $strcopy_path] _ letter]} {
-            set str_newpath [string toupper $letter]:/[string range $strcopy_path 7 end] 
-        } elseif {[regexp {^/mnt/([[:alpha:]]){1}$} [string tolower $strcopy_path] _ letter]} {
-            set str_newpath [string toupper $letter]:/
-        } elseif {[regexp $re_slash_else $strcopy_path _ firstpart remainder]} {
-            #could be for example /c   or /something/users
-            if {[string length $firstpart] == 1} {
-                set letter $firstpart
-                set str_newpath [string toupper $letter]:/
-            } else {
-                #according to regex we have a single leading slash
-                set str_tail [string range $strcopy_path 1 end]
-                if {$unixyroot eq ""} {
-                    set unixyroot [get_unixyroot]
-                } else {
-                    file pathtype $unixyroot; #side-effect generates int-rep of type path )
-                }
-                set pathobj [file join $unixyroot $str_tail]
-                file pathtype $pathobj
-                set have_pathobj 1
-            }
-        }
-
-        if {!$have_pathobj} {
-            if {$str_newpath eq ""} {
-                #dunno - pass through
-                set pathobj $path
-            } else {
-                set pathobj [punk::objclone $str_newpath]
-                file pathtype $pathobj
-            }
-        }
-
-
-
-        #puts stderr "=> $path"
-        #things like 'which' seem to return a path minus the .exe - so we'll just test the containing folder
-        #
-        #By now file normalize shouldn't do too many shannanigans related to cwd..
-        #We want it to look at cwd for relative paths..
-        #but we don't consider things like /c/Users to be relative even on windows where it would normally mean a volume-relative path e.g c:/c/Users if cwd happens to be somewhere on C: at the time.
-        #if {![file exists [file dirname $path]]} {
-        #    set path [file normalize $path]
-        #    #may still not exist.. that's ok.
-        #}
-
-
-
-        #file normalize may change backslashes to forward slashes.. including things like the special \\?\ prefix which is intended to stop windows api from parsing a name
-        #2023 - this is ok as //?/ also seems to work.. but it is unclear if that is because Tcl is re-converting to backslashes 
-        if {[punk::winpath::illegalname_test $pathobj]} {
-            set pathobj [punk::winpath::illegalname_fix $pathobj]
-        }
-
-        return $pathobj
-    }
-
-    #----------------------------------------------
-    #leave the unixywindows related aliases available on all platforms
-    #interp alias {} cdwin {} punk::unixywindows::cdwin
-    #interp alias {} cdwindir {} punk::unixywindoes::cdwindir
-    #interp alias {} towinpath {} punk::unixywindows::towinpath
-    #interp alias {} windir {} punk::unixywindows::windir
-    #----------------------------------------------
-
-
-
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::unixywindows [namespace eval punk::unixywindows {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winpath-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winpath-0.1.0.tm
deleted file mode 100644
index 6de745a8..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winpath-0.1.0.tm
+++ /dev/null
@@ -1,363 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punk::winpath 0.1.0
-# Meta platform     tcl
-# Meta license      BSD 
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval punk::winpath {
-    namespace export winpath windir cdwin cdwindir illegalname_fix illegalname_test
-
-
-
-
-    #\\servername\share etc  or \\?\UNC\servername\share  etc.
-    proc is_unc_path {path} {
-        set strcopy_path [punk::winpath::system::objclone $path]
-        set strcopy_path [string map {\\ /} $strcopy_path] ;#normalize to forward slashes for testing purposes (and forward slashes seem to be auto-translated by windows anyway)
-        if {[string first "//" $strcopy_path] == 0} {
-            #check for "Dos device path" syntax
-            if {[string range $strcopy_path 0 3] in {//?/ //./}} {
-                #Note that //./ doesn't appear to be supported in Tcl as at 2023-08 - but //?/ works  (except for //?/UNC/Server/share)
-                if {[string range $strcopy_path 4 6] eq "UNC"} {
-                    return 1
-                } else {
-                    #some other Dos device path. Could be a drive which is mapped to a UNC path - but the path itself isn't a unc path
-                    return 0
-                }
-            } else {
-                #leading double slash and not dos device path syntax
-                return 1
-            }
-        }
-        return 0
-    }
-
-    #ordinary \\Servername   or \\servername\share or \\servername\share\path  (or forward-slash equivalent) with no dos device syntax //?/ //./ etc.
-    proc is_unc_path_plain {path} {
-        if {[is_unc_path $path]} {
-            if {![is_dos_device_path $path]} {
-                return 1
-            } else {
-                return 0
-            }
-        } else {
-            return 0
-        }
-    }
-
-    #int-rep path preserved - but 'file attributes', and therefor this operation, is expensive (on windows at least)
-    proc pwdshortname {{path {}}} {
-        if {$path eq ""} {
-           set path [pwd]
-        } else {
-            if {[file pathtype $path] eq "relative"} {
-                set path [file normalize $path]
-            }
-        }
-        return [dict get [file attributes $path] -shortname]
-    }
-    #dos device path syntax allows windows api to acces extended-length paths and filenames with illegal path characters such as trailing dots or whitespace
-    #(can exist on server shares and on NTFS - but standard apps can't access without dos device syntax)
-    proc is_dos_device_path {path} {
-        set strcopy_path [punk::winpath::system::objclone $path]
-        set strcopy_path [string map {\\ /} $strcopy_path] ;#normalize to forward slashes for testing purposes (and forward slashes seem to be auto-translated by windows anyway)
-        if {[string range $strcopy_path 0 3] in {//?/ //./}} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    proc strip_dos_device_prefix {path} {
-        #it's unlikely to be valid to strip only //?/ from a //?/UNC  path so check for it here and diver to strip that.
-        #(review.. or raise error because a //?/UNC path isn't an ordinary dos device path? )
-        if {[is_unc_path $path]} {
-            return [strip_unc_path_prefix $path]
-        }
-        if {[is_dos_device_path $path]} {
-            return [string range $path 4 end]
-        } else {
-            return $path
-        }
-    }
-    proc strip_unc_path_prefix {path} {
-        if {[is_unc_path_plain $path]} {
-            #plain unc //server
-            set strcopy_path [punk::winpath::system::objclone $path]
-            set trimmedpath [string range $strcopy_path 2 end]
-            file pathtype $trimmedpath
-            return $trimmedpath
-        } elseif {is_unc_path $path} {
-            #//?/UNC/server/subpath  or  //./UNC/server/subpath
-            set strcopy_path [punk::winpath::system::objclone $path]
-            set trimmedpath [string range $strcopy_path 7 end]
-            file pathtype $trimmedpath ;#shimmer it to path rep
-            return $trimmedpath
-        } else {
-            return $path
-        }
-    }
-    #we don't validate that path is actually illegal because we don't know the full range of such names.
-    #The caller can apply this to any path.
-    #don't test for platform here - needs to be callable from any platform for potential passing to windows (what usecase? 8.3 name is not always calculable independently)
-    #The utility of this is questionable. prepending a dos-device path won't make a filename with illegal characters readable by windows.
-    #It will need the 'shortname' at least for the illegal segment - if not the whole path
-    #Whilst the 8.3 name algorithm - including undocumented hash function has been reverse engineered 
-    #- it depends on the content of the directory - as collisions cause a different name (e.g incremented number) 
-    #- it also depends on the history of the folder
-    #- you can't take the current dir contents and a particular *existing* longname and determine the shortname algorithmically...
-    #- the shortname may have been generated during a different directory state.
-    #- It is then stored on disk (where?) - so access to reading the existing shortname is required.
-    #- An implementation of the 8.3 algorithm would only be potentially useful in determining the name that will result from adding a new file 
-    #  and would be subject to potential collisions if there are race-conditions in file creation
-    #- Using an 8.3 algorithm externally would be dangerous in that it could appear to work a lot of the time - but return a different file entirely sometimes.
-    #- Conclusion is that the 8.3 name must be retrieved rathern than calclated
-    proc illegalname_fix {path} {
-        #don't add extra dos device path syntax protection-prefix if already done
-        if {[is_unc_path $path]} {
-            error "illegalname_fix called on UNC path $path - unable to process"
-        }
-        if {[is_dos_device_path $path]} {
-            #we may have appended 
-            return $path
-        }
-
-
-
-        #\\servername\share theoretically maps to: \\?\UNC\servername\share  in protected form. https://learn.microsoft.com/en-us/dotnet/standard/io/file-path-formats
-        #NOTE: 2023-08 on windows 10 at least  \\?\UNC\Server\share  doesn't work - ie we can't use illegalname_fix on UNC paths such as \\Server\share 
-        #(but mapped drive to same path will work)
-        #Note that test-path cmdlet in powershell is also flaky with regards to \\?\UNC\Server paths.
-        #It seems prudent for now to disallow \\?\ protection for UNC paths such as \\server\etc
-        if {[is_unc_path $path]} {
-            set err ""
-            append err      "illegalname_fix doesn't currently support UNC paths (non dos device leading double slash or //?/UNC/...)"
-            append err \n   " - because //?/UNC/Servername/share is not supported in Tcl (and only minimally even in powershell) as at 2023. (on windows use mapped drive instead)"
-            error $err
-        }
-
-        set strcopy_path [punk::winpath::system::objclone $path]
-
-
-        #Note: path could still have leading double slash if it is a Dos device path: e.g. //?/c:/etc
-        if {[file pathtype $path] eq "absolute"} {
-            if {$path eq "~"} {
-                # non-normalized ~ is classified as absolute
-                # tilde special meaning is a bit of a nuisance..  but as it's the entire path in this case.. presumably it should be kept that way
-                # leave for caller to interpret it - but it's not an illegal name whether it's interpreted with special meaning or not
-                # unlikely this fix will be called on a plain tilde anyway
-                return $path
-            } else {
-                set fullpath $path
-            }
-        } else {
-            #set fullpath [file normalize $path] ;#very slow on windows
-            #set fullpath [pwd]/$path ;#will keep ./ in middle of path - not valid for dos-device paths
-            if {[string range $strcopy_path 0 1] eq "./"} {
-                set strcopy_path [string range $strcopy_path 2 end]
-            }
-            set fullpath [file join [pwd] $strcopy_path]
-        }
-        #For file I/O, the "\\?\" prefix to a path string tells the Windows APIs to disable all string parsing
-        # and to send the string that follows it straight to the file system.
-        set protect "\\\\?\\"  ;# value is: \\?\ prefix   
-        set protect2 "//?/" ;#file normalize may do this - it still works 
-        #don't use "//./" - not currently supported in Tcl - seems to work in powershell though.
-
-
-        #choose //?/  as normalized version - since likely 'file normalize' will do it anyway, and experimentall, the windows API accepts both  REVIEW
-        set result ${protect2}$fullpath
-        file pathtype $result ;#make it return a path rep
-        return $result
-    }
-
-    #don't test for platform here - needs to be callable from any platform for potential passing to windows
-    #we can create files with windows illegal names by using //?/ dos device path syntax - but we need to detect when that is required.
-    #
-    # path int-rep preserving
-    proc illegalname_test {path} {
-        #https://learn.microsoft.com/en-us/windows/win32/fileio/naming-a-file
-        #according to the above: Use any character in the current code page for a name, including Unicode characters and characters in the extended character set (128–255), except for the following:
-        set reserved [list  < > : \" / \\ | ? *]
-
-
-        #we need to exclude things like path/..   path/.
-        foreach seg [file split $path] {
-            if {$seg in [list . ..]} {
-                #review - what if there is a folder or file that actually has a name such as . or .. ? 
-                #unlikely in normal use - but could done deliberately for bad reasons?
-                #We are unable to check for it here anyway - as this command is intended for checking the path string - not the actual path on a filesystem.
-                #
-                #/./  /../  segments don't require protection - keep checking.
-                continue
-            }
-
-            #only check for actual space as other whitespace seems to work without being stripped
-            #trailing tab and trailing \n or \r seem to be creatable in windows with Tcl - map to some glyph
-            if {[string index $seg end] in [list " " "."]} {
-                #windows API doesn't handle trailing dots or spaces (silently strips) - even though such files can be created on NTFS systems (or seen via samba etc)
-                return 1
-            }
-        }
-        #glob chars '* ?' are probably illegal.. but although x*y.txt and x?y.txt don't display properly (* ? replaced with some other glyph)
-        #- they seem to be readable from cmd and tclsh as is.
-        # pipe symbol also has glyph substitution and behaves the same  e.g a|b.txt
-        #(at least with encoding system utf-8)
-
-        #todo - determine what else constitutes an illegal name according to windows APIs and requires protection with dos device syntax
-        return 0
-    }
-
-    proc shortname {path} {
-        set shortname "NA"
-        if {[catch {
-            set shortname [dict get [file attributes $path] -shortname]
-        } errM]} {
-            puts stderr "Failed to get shortname for '$path'"
-        }
-        return $shortname
-    }
-    proc test_ntfs_tunneling {prefix args} {
-        puts stderr "We are looking for whether any of the final $prefix files or dirs took over the ctime attribute of the original $prefix files or dirs"
-        puts stderr "We expect the ino values to get potentially reassigned depending on order of deletion/creation so matches are coincidental and not material"
-        puts stderr "The shortnames are similarly allocated as they come - so presumably match by coincidence"
-        puts stderr "However - if we record a file's shortname, then delete it. Recreating it by shortname within the tunneling timeframe will magically reassociate the longname"
-        puts stderr "use test_ntfs_tunneling2 to test shortname tunneling"
-        file mkdir $prefix-dir-rename
-        file mkdir $prefix-dir-recreate
-        set fd [open $prefix-file-recreate.txt w]
-        puts $fd "original for recreate"
-        close $fd
-        set fd [open $prefix-file-rename.txt w]
-        puts $fd "original for rename"
-        close $fd
-        puts stdout "ORIGINAL files/dirs"
-        puts stdout "$prefix-dir-rename           [file stat $prefix-dir-rename] "
-        puts stdout "$prefix-dir-recreate         [file stat $prefix-dir-recreate]"
-        puts stdout "$prefix-file-recreate.txt    [file stat $prefix-file-recreate.txt] short:[shortname $prefix-file-recreate.txt]"
-        puts stdout "$prefix-file-rename.txt      [file stat $prefix-file-rename.txt] short:[shortname $prefix-file-rename.txt]"
-        puts stderr  "waiting 10secs (to have discernable ctime differences)"
-        after 5000 
-        puts -nonewline stderr .
-        after 5000 
-        puts -nonewline stderr .
-        after 500 
-
-        #--
-        #seems to make no diff whether created or copied - no tunneling seen with dirs
-        #file mkdir $prefix-dir-rename-temp
-        file copy $prefix-dir-rename $prefix-dir-rename-temp
-        #-- 
-        puts stderr \n
-        puts stdout "$prefix-dir-rename-temp       [file stat $prefix-dir-rename-temp] (temp to rename into place)"
-        puts stderr "deleting $prefix-dir-rename"
-        file delete $prefix-dir-rename
-        puts stdout "renaming $prefix-dir-rename-temp to $prefix-dir-rename"
-        file rename $prefix-dir-rename-temp $prefix-dir-rename
-
-        puts stderr "deleting $prefix-dir-recreate"
-        file delete $prefix-dir-recreate
-        puts stdout "re-creating $prefix-dir-recreate"
-        file mkdir $prefix-dir-recreate
-
-        puts stderr "deleting $prefix-file-recreate.txt"
-        file delete $prefix-file-recreate.txt
-        puts stderr "Recreating $prefix-file-recreate.txt"
-        set fd [open $prefix-file-recreate.txt w]
-        puts $fd "replacement"
-        close $fd
-        
-        puts stderr "copying $prefix-file-rename.txt to $prefix-file-rename-temp.txt"
-        file copy $prefix-file-rename.txt $prefix-file-rename-temp.txt
-        puts stdout "$prefix-file-rename-temp.txt [file stat $prefix-file-rename-temp.txt] short:[shortname $prefix-file-rename-temp.txt] (status of initial temp copy)"
-        puts stderr "modifying temp copy before deletion of original.. (append)"
-        set fd [open $prefix-file-rename-temp.txt a] 
-        puts $fd "added to file"
-        close $fd
-        puts stdout "$prefix-file-rename-temp.txt [file stat $prefix-file-rename-temp.txt] short:[shortname $prefix-file-rename-temp.txt] (status of appended temp copy)"
-        puts stderr "deleting $prefix-file-rename.txt"
-        file delete  $prefix-file-rename.txt
-        puts stderr "renaming temp file $prefix-file-rename-temp.txt to original $prefix-file-rename.txt"
-        file rename $prefix-file-rename-temp.txt $prefix-file-rename.txt
-
-        puts stdout "Final files/dirs"
-        puts stdout "$prefix-dir-rename           [file stat $prefix-dir-rename]"
-        puts stdout "$prefix-dir-recreate         [file stat $prefix-dir-recreate]"
-        puts stdout "$prefix-file-recreate.txt    [file stat $prefix-file-recreate.txt] short:[shortname $prefix-file-recreate.txt]"
-        puts stdout "$prefix-file-rename.txt      [file stat $prefix-file-rename.txt] short:[shortname $prefix-file-rename.txt]"
-    }
-    proc test_ntfs_tunneling2 {prefix {waitms 15000}} {
-        #shortname -> longname tunneling
-        puts stderr "Tunneling only happens if we delete via shortname? review"
-        set f1 $prefix-longname-file1.txt
-        set f2 $prefix-longname-file2.txt
-
-        set fd [open $f1 w];close $fd
-        set shortname1 [shortname $f1] 
-        puts stderr "longname:$f1 has shortname:$shortname1"
-        set fd [open $f2 w];close $fd
-        set shortname2 [shortname $f2] 
-        puts stderr "longname:$f2 has shortname:$shortname2"
-
-        puts stderr "deleting $f1 via name $shortname1"
-        file delete $shortname1
-        puts stdout "immediately recreating $shortname1 - should retain longname $f1 via tunneling"
-        set fd [open $shortname1 w];close $fd
-        set f1_exists [file exists $f1]
-        puts stdout "file exists $f1 = $f1_exists"
-
-        puts stderr "deleting $f2 via name $shortname2"
-        file delete $shortname2
-        puts stderr "Waiting [expr {$waitms / 1000}] seconds.. (standard tunneling timeframe is 15 seconds if registry hasn't been tweaked)"
-        after $waitms
-        puts stdout "recreating $shortname2 after wait of $waitms ms - longname lost?" 
-        set fd [open $shortname2 w];close $fd
-        set f2_exists [file exists $f2]
-        puts stdout "file exists $f2 = $f2_exists"
-
-        puts stdout -done-
-    }
-}
-
-
-namespace eval punk::winpath::system {
-    #get a copy of the item without affecting internal rep
-    proc objclone {obj} {
-        append obj2 $obj {}
-    }
-}
-
-
-
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::winpath [namespace eval punk::winpath {
-    variable version
-    set version 0.1.0 
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.0.tm
deleted file mode 100644
index 44af7472..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.0.tm
+++ /dev/null
@@ -1,761 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024 JMN
-# (C) 2009 Path Thoyts <patthyts@users.sourceforge.net>
-#
-# @@ Meta Begin
-# Application punk::zip 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin shellspy_module_punk::zip 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}] 
-#[require punk::zip]
-#[keywords module]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::zip
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::zip
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::args
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package {punk::args}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#tcl::namespace::eval punk::zip::class {
-    #*** !doctools
-    #[subsection {Namespace punk::zip::class}]
-    #[para] class definitions
-    #if {[tcl::info::commands [tcl::namespace::current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    #}
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::zip {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::zip}]
-    #[para] Core API functions for punk::zip 
-    #[list_begin definitions]
-
-    proc Path_a_atorbelow_b {path_a path_b} {
-        return [expr {[StripPath $path_b $path_a] ne $path_a}]
-    }
-    proc Path_a_at_b {path_a path_b} {
-        return [expr {[StripPath $path_a $path_b] eq "." }]
-    }
-
-    proc Path_strip_alreadynormalized_prefixdepth {path prefix} {
-        if {$prefix eq ""} {
-            return $path
-        }
-        set pathparts   [file split $path]
-        set prefixparts [file split $prefix]
-        if {[llength $prefixparts] >= [llength $pathparts]} {
-            return ""
-        }
-        return [file join \
-            {*}[lrange \
-                $pathparts \
-                [llength $prefixparts] \
-                end]]
-    }
-
-    #StripPath - borrowed from tcllib fileutil
-    # ::fileutil::stripPath --
-    #
-    #	If the specified path references/is a path in prefix (or prefix itself) it
-    #	is made relative to prefix. Otherwise it is left unchanged.
-    #	In the case of it being prefix itself the result is the string '.'.
-    #
-    # Arguments:
-    #	prefix		prefix to strip from the path.
-    #	path		path to modify
-    #
-    # Results:
-    #	path		The (possibly) modified path.
-
-    if {[string equal $::tcl_platform(platform) windows]} {
-        # Windows. While paths are stored with letter-case preserved al
-        # comparisons have to be done case-insensitive. For reference see
-        # SF Tcllib Bug 2499641.
-
-        proc StripPath {prefix path} {
-            # [file split] is used to generate a canonical form for both
-            # paths, for easy comparison, and also one which is easy to modify
-            # using list commands.
-
-            set prefix [file split $prefix]
-            set npath  [file split $path]
-
-            if {[string equal -nocase $prefix $npath]} {
-                return "."
-            }
-
-            if {[string match -nocase "${prefix} *" $npath]} {
-                set path [eval [linsert [lrange $npath [llength $prefix] end] 0 file join ]]
-            }
-            return $path
-        }
-    } else {
-        proc StripPath {prefix path} {
-            # [file split] is used to generate a canonical form for both
-            # paths, for easy comparison, and also one which is easy to modify
-            # using list commands.
-
-            set prefix [file split $prefix]
-            set npath  [file split $path]
-
-            if {[string equal $prefix $npath]} {
-                return "."
-            }
-
-            if {[string match "${prefix} *" $npath]} {
-                set path [eval [linsert [lrange $npath [llength $prefix] end] 0 file join ]]
-            }
-            return $path
-        }
-    }
-
-    proc Timet_to_dos {time_t} {
-        #*** !doctools
-        #[call [fun Timet_to_dos] [arg time_t]]
-        #[para] convert a unix timestamp into a DOS timestamp for ZIP times.
-        #[example {
-        #   DOS timestamps are 32 bits split into bit regions as follows:
-        #                  24                16                 8                 0
-        #   +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
-        #   |Y|Y|Y|Y|Y|Y|Y|m| |m|m|m|d|d|d|d|d| |h|h|h|h|h|m|m|m| |m|m|m|s|s|s|s|s|
-        #   +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
-        #}]
-        set s [clock format $time_t -format {%Y %m %e %k %M %S}]
-        scan $s {%d %d %d %d %d %d} year month day hour min sec
-        expr {(($year-1980) << 25) | ($month << 21) | ($day << 16) 
-            | ($hour << 11) | ($min << 5) | ($sec >> 1)}
-    }
-
-    proc walk {args} {
-        #*** !doctools
-        #[call [fun walk] [arg ?options?] [arg base]]
-        #[para] Walk a directory tree rooted at base
-        #[para] the -excludes list can be a set of glob expressions to match against files and avoid
-        #[para] e.g 
-        #[example {
-        #  punk::zip::walk -exclude {CVS/* *~.#*} library
-        #}]
-
-        set argd [punk::args::get_dict {
-            *proc -name punk::zip::walk
-            -excludes   -default "" -help "list of glob expressions to match against files and exclude"
-            -subpath    -default  ""
-            *values -min 1 -max -1
-            base
-            fileglobs -default {*} -multiple 1
-        } $args]
-        set base        [dict get $argd values base]
-        set fileglobs       [dict get $argd values fileglobs]
-        set subpath     [dict get $argd opts -subpath]
-        set excludes    [dict get $argd opts -excludes]
-
-
-        set imatch [list]
-        foreach fg $fileglobs {
-            lappend imatch [file join $subpath $fg]
-        }
-
-        set result {}
-        #set imatch [file join $subpath $match]
-        set files [glob -nocomplain -tails -types f -directory $base -- {*}$imatch]
-        foreach file $files {
-            set excluded 0
-            foreach glob $excludes {
-                if {[string match $glob $file]} {
-                    set excluded 1
-                    break
-                }
-            }
-            if {!$excluded} {lappend result $file}
-        }
-        foreach dir [glob -nocomplain -tails -types d -directory $base -- [file join $subpath *]] {
-            set subdir_entries [walk -subpath $dir -excludes $excludes $base {*}$fileglobs]
-            if {[llength $subdir_entries]>0} {
-                #NOTE: trailing slash required for entries to be recognised as 'file type' = "directory"
-                #This is true for 2024 Tcl9 mounted zipfs at least. zip utilities such as 7zip seem(icon correct) to recognize dirs with or without trailing slash
-                #Although there are attributes on some systems to specify if entry is a directory - it appears trailing slash should always be used for folder names.
-                set result [list {*}$result "$dir/" {*}$subdir_entries]
-            }
-        }
-        return $result
-    }
-
-
-    proc extract_zip_prefix {infile outfile} {
-        set inzip [open $infile r]
-        fconfigure $inzip -encoding iso8859-1 -translation binary
-        if {[file exists $outfile]} {
-            error "outfile $outfile already exists - please remove first"
-        }
-        chan seek $inzip 0 end
-        set insize [tell $inzip] ;#faster (including seeks) than calling out to filesystem using file size - but should be equivalent
-        chan seek $inzip 0 start
-        #only scan last 64k - cover max signature size?? review
-        if {$insize < 65559} {
-            set tailsearch_start 0
-        } else {
-            set tailsearch_start [expr {$insize - 65559}]
-        }
-        chan seek $inzip $tailsearch_start start
-        set scan [read $inzip]
-        #EOCD - End Of Central Directory record
-        set start_of_end [string last "\x50\x4b\x05\x06" $scan]
-        puts stdout "==>start_of_end: $start_of_end"
-
-        if {$start_of_end == -1} {
-            #no zip cdr - consider entire file to be the zip prefix
-            set baseoffset $insize
-        } else {
-            set filerelative_eocd_posn [expr {$start_of_end + $tailsearch_start}]
-            chan seek $inzip $filerelative_eocd_posn
-            set cdir_record_plus [read $inzip] ;#can have trailing data
-            binary scan $cdir_record_plus issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \
-                    eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len) 
-            #rule out a false positive from within a nonzip (e.g plain exe)
-            #There exists for example a PK\5\6 in a plain tclsh, but it doesn't appear to be zip related.
-            #It doesn't seem to occur near the end - so perhaps not an issue - but we'll do some basic checks anyway
-            #we only support single disk - so we'll validate a bit more by requiring disknbr and ctrldirdisk to be zeros
-            #todo - just search for Pk\5\6\0\0\0\0 in the first place? //review
-            if {$eocd(disknbr) + $eocd(ctrldirdisk) != 0} {
-                #review - should keep searching?
-                #for now we assume not a zip
-                set baseoffset $insize 
-            } else {
-                #use the central dir size to jump back tko start of central dir
-                #determine if diroffset is file or archive relative 
-
-                set filerelative_cdir_start [expr {$filerelative_eocd_posn - $eocd(dirsize)}]
-                puts stdout "---> [read $inzip 4]"
-                if {$filerelative_cdir_start > $eocd(diroffset)} {
-                    #easy case - 'archive' offset - (and one of the reasons I prefer archive-offset - it makes finding the 'prefix' easier
-                    #though we are assuming zip offsets are not corrupted
-                    set baseoffset [expr {$filerelative_cdir_start - $eocd(diroffset)}]
-                } else {
-                    #hard case - either no prefix - or offsets have been adjusted to be file relative.
-                    #we could scan from top (ugly) - and with binary prefixes we could get false positives in the data that look like PK\3\4 headers
-                    #we could either work out the format for all possible executables that could be appended (across all platforms) and understand where they end?
-                    #or we just look for the topmost PK\3\4 header pointed to by a CDR record - and assume the CDR is complete 
-                    
-                    #step one - read all the CD records and find the highest pointed to local file record (which isn't necessarily the first - but should get us above most if not all of the zip data)
-                    #we can't assume they're ordered in any particular way - so we in theory have to look at them all.
-                    set baseoffset "unknown"
-                    chan seek $inzip $filerelative_cdir_start start
-                    #binary scan $cdir_record_plus issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \
-                    #    eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len) 
-                    #load the whole central dir into cdir
-
-                    #todo! loop through all cdr file headers - find highest offset?
-                    #tclZipfs.c just looks at first file header in Central Directory
-                    #looking at all entries would be more robust - but we won't work harder than tclZipfs.c for now //REVIEW
-
-                    set cdirdata [read $inzip $eocd(dirsize)]
-                    binary scan $cdirdata issssssiiisssssii cdir(signature) cdir(_vermadeby) cdir(_verneeded) cdir(gpbitflag) cdir(compmethod) cdir(lastmodifiedtime) cdir(lastmodifieddate)\
-                        cdir(uncompressedcrc32) cdir(compressedsize) cdir(uncompressedsize) cdir(filenamelength) cdir(extrafieldlength) cdir(filecommentlength) cdir(disknbr)\
-                        cdir(internalfileattributes) cdir(externalfileatributes) cdir(relativeoffset) 
-                    
-                    #since we're in this branch - we assume cdir(relativeoffset) is from the start of the file
-                    chan seek $inzip $cdir(relativeoffset)
-                    #let's at least check that we landed on a local file header..
-                    set local_file_header_beginning [read $inzip 28]; #local_file_header without the file name and extra field
-                    binary scan $local_file_header_beginning isssssiiiss lfh(signature) lfh(_verneeded) lfh(gpbitflag) lfh(compmethod) lfh(lastmodifiedtime) lfh(lastmodifieddate)\
-                        lfh(uncompressedcrc32) lfh(compressedsize) lfh(uncompressedsize) lfh(filenamelength) lfh(extrafieldlength)
-                    #dec2hex 67324752 = 4034B50 = PK\3\4
-                    puts stdout "1st local file header sig: $lfh(signature)"
-                    if {$lfh(signature) == 67324752} {
-                        #looks like a local file header
-                        #use our cdir(relativeoffset) as the start of the zip-data (//review - possible embedded password + end marker preceeding this)
-                        set baseoffset $cdir(relativeoffset) 
-                    }
-                }
-                puts stdout "filerel_cdirstart: $filerelative_cdir_start recorded_offset: $eocd(diroffset)" 
-            }
-        }
-        puts stdout "baseoffset: $baseoffset"
-        #expect CDFH PK\1\2
-        #above the CDFH - we expect a bunch of PK\3\4 records - (possibly not all of them pointed to by the CDR) 
-        #above that we expect: *possibly* a stored password with trailing marker - then the prefixed exe/script 
-
-        if {![string is integer -strict $baseoffset]} {
-            error "unable to determine zip baseoffset of file $infile"
-        }
-
-        if {$baseoffset < $insize} {
-            set out   [open $outfile w] 
-            fconfigure $out -encoding iso8859-1 -translation binary
-            chan seek $inzip 0 start
-            chan copy $inzip $out -size $baseoffset
-            close $out
-            close $inzip
-        } else {
-            close $inzip
-            file copy $infile $outfile
-        }
-    }
-
-
-
-    # Mkzipfile --
-    #
-    # FIX ME: should  handle the current offset for non-seekable channels
-    #
-    proc Mkzipfile {zipchan base path {comment ""}} {
-        #*** !doctools
-        #[call [fun Mkzipfile] [arg zipchan] [arg base] [arg path] [arg ?comment?]]
-        #[para] Add a single file to a zip archive 
-        #[para] The zipchan channel should already be open and binary.
-        #[para] You can provide a -comment for the file.
-        #[para] The return value is the central directory record that will need to be used when finalizing the zip archive.
-
-        set fullpath [file join $base $path]
-        set mtime [Timet_to_dos [file mtime $fullpath]]
-        set utfpath [encoding convertto utf-8 $path]
-        set utfcomment [encoding convertto utf-8 $comment]
-        set flags [expr {(1<<11)}] ;# utf-8 comment and path
-        set method 0               ;# store 0, deflate 8
-        set attr 0                 ;# text or binary (default binary)
-        set version 20             ;# minumum version req'd to extract
-        set extra ""
-        set crc 0
-        set size 0
-        set csize 0
-        set data ""
-        set seekable [expr {[tell $zipchan] != -1}]
-        if {[file isdirectory $fullpath]} {
-            set attrex 0x41ff0010  ;# 0o040777 (drwxrwxrwx)
-            #set attrex 0x40000010
-        } elseif {[file executable $fullpath]} {
-            set attrex 0x81ff0080  ;# 0o100777 (-rwxrwxrwx)
-        } else {
-            set attrex 0x81b60020  ;# 0o100666 (-rw-rw-rw-)
-            if {[file extension $fullpath] in {".tcl" ".txt" ".c"}} {
-                set attr 1         ;# text
-            }
-        }
-    
-        if {[file isfile $fullpath]} {
-            set size [file size $fullpath]
-            if {!$seekable} {set flags [expr {$flags | (1 << 3)}]}
-        }
-
-
-        set offset [tell $zipchan]
-        set local [binary format a4sssiiiiss PK\03\04 \
-                        $version $flags $method $mtime $crc $csize $size \
-                        [string length $utfpath] [string length $extra]]
-        append local $utfpath $extra
-        puts -nonewline $zipchan $local
-    
-        if {[file isfile $fullpath]} {
-            # If the file is under 2MB then zip in one chunk, otherwize we use
-            # streaming to avoid requiring excess memory. This helps to prevent
-            # storing re-compressed data that may be larger than the source when
-            # handling PNG or JPEG or nested ZIP files.
-            if {$size < 0x00200000} {
-                set fin [open $fullpath rb]
-                set data [read $fin]
-                set crc [zlib crc32 $data]
-                set cdata [zlib deflate $data]
-                if {[string length $cdata] < $size} {
-                    set method 8
-                    set data $cdata
-                }
-                close $fin
-                set csize [string length $data]
-                puts -nonewline $zipchan $data
-            } else {
-                set method 8
-                set fin [open $fullpath rb]
-                set zlib [zlib stream deflate]
-                while {![eof $fin]} {
-                    set data [read $fin 4096]
-                    set crc [zlib crc32 $data $crc]
-                    $zlib put $data
-                    if {[string length [set zdata [$zlib get]]]} {
-                        incr csize [string length $zdata]
-                        puts -nonewline $zipchan $zdata
-                    }
-                }
-                close $fin
-                $zlib finalize
-                set zdata [$zlib get]
-                incr csize [string length $zdata]
-                puts -nonewline $zipchan $zdata
-                $zlib close
-            }
-        
-            if {$seekable} {
-                # update the header if the output is seekable
-                set local [binary format a4sssiiii PK\03\04 \
-                                $version $flags $method $mtime $crc $csize $size]
-                set current [tell $zipchan]
-                seek $zipchan $offset
-                puts -nonewline $zipchan $local
-                seek $zipchan $current
-            } else {
-                # Write a data descriptor record
-                set ddesc [binary format a4iii PK\7\8 $crc $csize $size]
-                puts -nonewline $zipchan $ddesc
-            }
-        }
-    
-        #PK\x01\x02 Cdentral directory file header
-        #set v1 0x0317 ;#upper byte 03 -> UNIX lower byte 23 -> 2.3
-        set v1 0x0017 ;#upper byte 00 -> MS_DOS and OS/2 (FAT/VFAT/FAT32 file systems)
-
-        set hdr [binary format a4ssssiiiisssssii PK\01\02 $v1 \
-                    $version $flags $method $mtime $crc $csize $size \
-                    [string length $utfpath] [string length $extra]\
-                    [string length $utfcomment] 0 $attr $attrex $offset]
-        append hdr $utfpath $extra $utfcomment
-        return $hdr
-    }
-
-    #### REVIEW!!!
-    #JMN - review - this looks to be offset relative to start of file - (same as 2024 Tcl 'mkzip mkimg') 
-    # we probably want offsets to start of archive for exe/script-prefixed zips.on windows (editability with 7z,peazip)
-    ####
-
-    # zip::mkzip --
-    #
-    #        eg: zip my.zip -directory Subdir -runtime unzipsfx.exe *.txt
-    # 
-    proc mkzip {args} {
-        #*** !doctools
-        #[call [fun mkzip] [arg ?options?] [arg filename]]
-        #[para] Create a zip archive in 'filename'
-        #[para] If a file already exists, an error will be raised. 
-        set argd [punk::args::get_dict {
-            *proc -name punk::zip::mkzip -help "Create a zip archive in 'filename'"
-            *opts
-            -return     -default "pretty" -choices {pretty list none} -help "mkzip can return a list of the files and folders added to the archive
-            the option -return pretty is the default and uses the punk::lib pdict/plist system
-            to return a formatted list for the terminal
-            "
-            -zipkit     -default 0 -type none -help ""
-            -runtime    -default "" -help "specify a prefix file
-            e.g punk::zip::mkzip -runtime unzipsfx.exe -directory subdir output.zip
-            will create a self-extracting zip archive from the subdir/ folder.
-            "
-            -comment    -default "" -help "An optional comment for the archive"
-            -directory  -default "" -help "The new zip archive will scan for contents within this folder or current directory if not provided"
-            -base       -default "" -help "The new zip archive will be rooted in this directory if provided
-            it must be a parent of -directory"
-            -exclude    -default {CVS/* */CVS/* *~ ".#*" "*/.#*"}
-            *values -min 1 -max -1 
-            filename -default "" -help "name of zipfile to create"
-            globs -default {*} -multiple 1  -help "list of glob patterns to match.
-            Only directories with matching files will be included in the archive"
-        } $args]
-
-        set filename [dict get $argd values filename]
-        if {$filename eq ""} {
-            error "mkzip filename cannot be empty string"
-        }
-        if {[regexp {[?*]} $filename]} {
-            #catch a likely error where filename is omitted and first glob pattern is misinterpreted as zipfile name
-            error "mkzip filename should not contain glob characters ? *"
-        }
-        if {[file exists $filename]} {
-            error "mkzip filename:$filename already exists"
-        }
-        dict for {k v} [dict get $argd opts] {
-            switch -- $k {
-                -comment {
-                    dict set argd opts $k [encoding convertto utf-8 $v]
-                }
-                -directory - -base {
-                    dict set argd opts $k [file normalize $v]
-                }
-            }
-        }
-
-        array set opts [dict get $argd opts] 
-    
-
-        if {$opts(-directory) ne ""} {
-            if {$opts(-base) ne ""} {
-                #-base and -directory have been normalized already
-                if {![Path_a_atorbelow_b $opts(-directory) $opts(-base)]} {
-                    error "punk::zip::mkzip -base $opts(-base) must be above -directory $opts(-directory)"
-                }
-                set base $opts(-base)
-                set relpath [Path_strip_alreadynormalized_prefixdepth $opts(-directory) $opts(-base)]
-            } else {
-                set base $opts(-directory)
-                set relpath ""
-            }
-            set paths [walk -exclude $opts(-exclude) -subpath $relpath -- $base {*}[dict get $argd values globs]]
-
-            set norm_filename [file normalize $filename]
-            set norm_dir [file normalize $opts(-directory)] ;#we only care if filename below -directory (which is where we start scanning)
-            if {[Path_a_atorbelow_b $norm_filename $norm_dir]} {
-                #check that we aren't adding the zipfile to itself
-                #REVIEW - now that we open zipfile after scanning - this isn't really a concern!
-                #keep for now in case we can add an -update or a -force facility (or in case we modify to add to zip as we scan for members?) 
-                #In the case of -force - we may want to delay replacement of original until scan is done?
-                
-                #try to avoid looping on all paths and performing (somewhat) expensive file normalizations on each 
-                #1st step is to check the patterns and see if our zipfile is already excluded - in which case we need not check the paths
-                set self_globs_match 0
-                foreach g [dict get $argd values globs] {
-                    if {[string match $g [file tail $filename]]} {
-                        set self_globs_match 1
-                        break
-                    }
-                }
-                if {$self_globs_match} {
-                    #still dangerous
-                    set self_excluded 0
-                    foreach e $opts(-exclude) {
-                        if {[string match $e [file tail $filename]]} {
-                            set self_excluded 1
-                            break
-                        }
-                    }
-                    if {!$self_excluded} {
-                        #still dangerous - likely to be in resultset - check each path
-                        #puts stderr "zip file $filename is below directory $opts(-directory)"
-                        set self_is_matched 0
-                        set i 0
-                        foreach p $paths {
-                            set norm_p [file normalize [file join $opts(-directory) $p]]
-                            if {[Path_a_at_b $norm_filename $norm_p]} {
-                                set self_is_matched 1
-                                break
-                            }
-                            incr i
-                        }
-                        if {$self_is_matched} {
-                            puts stderr "WARNING - zipfile being created '$filename' was matched.  Excluding this file. Relocate the zip, or use -exclude patterns to avoid this message"
-                            set paths [lremove $paths $i]
-                        }
-                    }
-                }
-            }
-        } else {
-            set paths [list]
-            set dir [pwd]
-            if {$opts(-base) ne ""} {
-                if {![Path_a_atorbelow_b $dir $opts(-base)]} {
-                    error "punk::zip::mkzip -base $opts(-base) must be above current directory"
-                }
-                set relpath [Path_strip_alreadynormalized_prefixdepth [file normalize $dir] [file normalize $opts(-base)]]
-            } else {
-                set relpath "" 
-            }
-            set base $opts(-base)
-
-            set matches [glob -nocomplain -type f -- {*}[dict get $argd values globs]]
-            foreach m $matches {
-                if {$m eq $filename} {
-                    #puts stderr "--> excluding $filename"
-                    continue
-                }
-                set isok 1
-                foreach e [concat $opts(-exclude) $filename] {
-                    if {[string match $e $m]} {
-                        set isok 0 
-                        break 
-                    }
-                }
-                if {$isok} {
-                    lappend paths [file join $relpath $m]
-                }
-            }
-        }
-
-        if {![llength $paths]} {
-            return ""
-        }
-
-        set zf [open $filename wb]
-        if {$opts(-runtime) ne ""} {
-            set rt [open $opts(-runtime) rb]
-            fcopy $rt $zf
-            close $rt
-        } elseif {$opts(-zipkit)} {
-            #TODO - update to zipfs ?
-            #see modpod
-            set zkd "#!/usr/bin/env tclkit\n\# This is a zip-based Tcl Module\n"
-            append zkd "package require vfs::zip\n"
-            append zkd "vfs::zip::Mount \[info script\] \[info script\]\n"
-            append zkd "if {\[file exists \[file join \[info script\] main.tcl\]\]} {\n"
-            append zkd "    source \[file join \[info script\] main.tcl\]\n"
-            append zkd "}\n"
-            append zkd \x1A
-            puts -nonewline $zf $zkd
-        }
-
-        #todo - subtract this from the endrec offset.. and any ... ?
-        set dataStartOffset [tell $zf] ;#the overall file offset of the start of data section  //JMN 2024
-
-        set count 0
-        set cd ""
-
-        set members [list]
-        foreach path $paths {
-            #puts $path
-            lappend members $path
-            append cd [Mkzipfile $zf $base $path] ;#path already includes relpath 
-            incr count
-        }
-        set cdoffset [tell $zf]
-        set endrec [binary format a4ssssiis PK\05\06 0 0 \
-                        $count $count [string length $cd] $cdoffset\
-                        [string length $opts(-comment)]]
-        append endrec $opts(-comment)
-        puts -nonewline $zf $cd
-        puts -nonewline $zf $endrec
-        close $zf
-
-        set result ""
-        switch -exact -- $opts(-return) {
-            list {
-                set result $members
-            }
-            pretty {
-                if {[info commands showlist] ne ""} {
-                    set result [plist -channel none members]
-                } else {
-                    set result $members
-                }
-            }
-            none {
-                set result ""
-            }
-        }
-        return  $result
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::zip ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::zip::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::zip::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::zip::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-#tcl::namespace::eval punk::zip::system {
-    #*** !doctools
-    #[subsection {Namespace punk::zip::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::zip [tcl::namespace::eval punk::zip {
-    variable pkg punk::zip
-    variable version
-    set version 0.1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
deleted file mode 100644
index 02415ccd..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
+++ /dev/null
@@ -1,914 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'dev make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: punkshell/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024 JMN
-# (C) 2009 Path Thoyts <patthyts@users.sourceforge.net>
-#
-# @@ Meta Begin
-# Application punk::zip 0.1.1
-# Meta platform     tcl
-# Meta license      MIT 
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_punk::zip 0 0.1.1]
-#[copyright "2024"]
-#[titledesc {Module API}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {-}]             [comment {-- Description at end of page heading --}] 
-#[require punk::zip]
-#[keywords module zip fileformat]
-#[description]
-#[para] -
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::zip
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::zip
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::args
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-#[item] [package {punk::args}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::zip {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::zip}]
-    #[para] Core API functions for punk::zip 
-    #[list_begin definitions]
-
-    proc Path_a_atorbelow_b {path_a path_b} {
-        return [expr {[StripPath $path_b $path_a] ne $path_a}]
-    }
-    proc Path_a_at_b {path_a path_b} {
-        return [expr {[StripPath $path_a $path_b] eq "." }]
-    }
-
-    proc Path_strip_alreadynormalized_prefixdepth {path prefix} {
-        if {$prefix eq ""} {
-            return $path
-        }
-        set pathparts   [file split $path]
-        set prefixparts [file split $prefix]
-        if {[llength $prefixparts] >= [llength $pathparts]} {
-            return ""
-        }
-        return [file join \
-            {*}[lrange \
-                $pathparts \
-                [llength $prefixparts] \
-                end]]
-    }
-
-    #StripPath - borrowed from tcllib fileutil
-    # ::fileutil::stripPath --
-    #
-    #	If the specified path references/is a path in prefix (or prefix itself) it
-    #	is made relative to prefix. Otherwise it is left unchanged.
-    #	In the case of it being prefix itself the result is the string '.'.
-    #
-    # Arguments:
-    #	prefix		prefix to strip from the path.
-    #	path		path to modify
-    #
-    # Results:
-    #	path		The (possibly) modified path.
-
-    if {[string equal $::tcl_platform(platform) windows]} {
-        # Windows. While paths are stored with letter-case preserved al
-        # comparisons have to be done case-insensitive. For reference see
-        # SF Tcllib Bug 2499641.
-
-        proc StripPath {prefix path} {
-            # [file split] is used to generate a canonical form for both
-            # paths, for easy comparison, and also one which is easy to modify
-            # using list commands.
-
-            set prefix [file split $prefix]
-            set npath  [file split $path]
-
-            if {[string equal -nocase $prefix $npath]} {
-                return "."
-            }
-
-            if {[string match -nocase "${prefix} *" $npath]} {
-                set path [eval [linsert [lrange $npath [llength $prefix] end] 0 file join ]]
-            }
-            return $path
-        }
-    } else {
-        proc StripPath {prefix path} {
-            # [file split] is used to generate a canonical form for both
-            # paths, for easy comparison, and also one which is easy to modify
-            # using list commands.
-
-            set prefix [file split $prefix]
-            set npath  [file split $path]
-
-            if {[string equal $prefix $npath]} {
-                return "."
-            }
-
-            if {[string match "${prefix} *" $npath]} {
-                set path [eval [linsert [lrange $npath [llength $prefix] end] 0 file join ]]
-            }
-            return $path
-        }
-    }
-
-    proc Timet_to_dos {time_t} {
-        #*** !doctools
-        #[call [fun Timet_to_dos] [arg time_t]]
-        #[para] convert a unix timestamp into a DOS timestamp for ZIP times.
-        #[example {
-        #   DOS timestamps are 32 bits split into bit regions as follows:
-        #                  24                16                 8                 0
-        #   +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
-        #   |Y|Y|Y|Y|Y|Y|Y|m| |m|m|m|d|d|d|d|d| |h|h|h|h|h|m|m|m| |m|m|m|s|s|s|s|s|
-        #   +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
-        #}]
-        set s [clock format $time_t -format {%Y %m %e %k %M %S}]
-        scan $s {%d %d %d %d %d %d} year month day hour min sec
-        expr {(($year-1980) << 25) | ($month << 21) | ($day << 16) 
-            | ($hour << 11) | ($min << 5) | ($sec >> 1)}
-    }
-    punk::args::define {
-        @id     -id ::punk::zip::walk
-        @cmd    -name punk::zip::walk -help\
-            "Walk the directory structure starting at base/<-subpath>
-            and return a list of the files and folders encountered.
-            Resulting paths are relative to base unless -resultrelative
-            is supplied.
-            Folder names will end with a trailing slash.
-            "
-        -resultrelative -optional 1 -help\
-            "Resulting paths are relative to this value.
-            Defaults to the value of base. If empty string
-            is given to -resultrelative the paths returned
-            are effectively absolute paths."
-        -emptydirs -default 0 -type boolean -help\
-            "Whether to include directory trees in the result which had no
-            matches for the given fileglobs.
-            Intermediate dirs are always returned if there is a match with
-            fileglobs further down even if -emptdirs is 0.
-            "
-        -excludes   -default "" -help "list of glob expressions to match against files and exclude"
-        -subpath    -default  "" -help\
-            "May contain glob chars for folder elements"
-        #If we don't include --, the call walk <options> -- <base> <globs>.. will return nothing as 'base' will receive the --
-        -- -type none -optional 1
-        @values -min 1 -max -1
-        base
-        fileglobs -default {*} -multiple 1
-    }
-    proc walk {args} {
-        #*** !doctools
-        #[call [fun walk] [arg ?options?] [arg base]]
-        #[para] Walk a directory tree rooted at base
-        #[para] the -excludes list can be a set of glob expressions to match against files and avoid
-        #[para] e.g
-        #[example {
-        #  punk::zip::walk -exclude {CVS/* *~.#*} library
-        #}]
-
-        #todo:  -relative 0|1 flag?
-        set argd [punk::args::parse $args withid ::punk::zip::walk]
-        set base        [dict get $argd values base]
-        set fileglobs   [dict get $argd values fileglobs]
-        set subpath     [dict get $argd opts -subpath]
-        set excludes    [dict get $argd opts -excludes]
-        set emptydirs   [dict get $argd opts -emptydirs]
-
-        set received    [dict get $argd received]
-
-        set imatch [list]
-        foreach fg $fileglobs {
-            lappend imatch [file join $subpath $fg]
-        }
-
-        if {![dict exists $received -resultrelative]} {
-            set relto $base
-            set prefix ""
-        } else {
-            set relto [file normalize [dict get $argd opts -resultrelative]]
-            if {$relto ne ""} {
-                if {![Path_a_atorbelow_b $base $relto]} {
-                    error "punk::zip::walk base must be at or below -resultrelative value (backtracking not currently supported)"
-                } 
-                set prefix [Path_strip_alreadynormalized_prefixdepth $base $relto]
-            } else {
-                set prefix $base
-            }
-        }
-
-        set result {}
-        #set imatch [file join $subpath $match]
-        set files [glob -nocomplain -tails -types f -directory $base -- {*}$imatch]
-        foreach file $files {
-            set excluded 0
-            foreach glob $excludes {
-                if {[string match $glob $file]} {
-                    set excluded 1
-                    break
-                }
-            }
-            if {!$excluded} {lappend result [file join $prefix $file]}
-        }
-        foreach dir [glob -nocomplain -tails -types d -directory $base -- [file join $subpath *]] {
-            set submatches [walk -subpath $dir -emptydirs $emptydirs -excludes $excludes $base {*}$fileglobs]
-            set subdir_entries [list]
-            set thisdir_match [list] 
-            set has_file 0
-            foreach sd $submatches {
-                set fullpath [file join $prefix $sd] ;#file join destroys trailing slash
-                if {[string index $sd end] eq "/"} {
-                    lappend subdir_entries $fullpath/
-                } else {
-                    set has_file 1
-                    lappend subdir_entries $fullpath
-                }
-            }
-            if {$emptydirs} {
-                set thisdir_match [list "[file join $prefix $dir]/"]
-            } else {
-                if {$has_file} {
-                    set thisdir_match [list "[file join $prefix $dir]/"]
-                } else {
-                    set subdir_entries [list]
-                }
-            }
-            #NOTE: trailing slash required for entries to be recognised as 'file type' = "directory"
-            #This is true for 2024 Tcl9 mounted zipfs at least. zip utilities such as 7zip seem(icon correct) to recognize dirs with or without trailing slash
-            #Although there are attributes on some systems to specify if entry is a directory - it appears trailing slash should always be used for folder names.
-            set result [list {*}$result {*}$thisdir_match {*}$subdir_entries]
-        }
-        return $result
-    }
-
-    #if there is an external preamble - extract that. (if there is also an internal preamble - ignore and consider part of the archive-data)
-    #Otherwise extract an internal preamble.
-    #if neither -?
-    #review - reconsider auto-determination of internal vs external preamble
-    punk::args::define {
-        @id     -id ::punk::zip::extract_preamble
-        @cmd    -name punk::zip::extract_preamble -help\
-            "Split a zipfs based executable or library into its constituent
-            binary and zip parts.
-
-            Note that the binary preamble might be either 'within' the zip offsets,
-            or simply catenated prior to an unadjusted zip.
-            Some build processes may have 'adjusted' the zip offsets to make the zip cover the entire file
-            ('file based' offset) whilst the more modern approach is to simply concatenate the binary and the zip
-            ('archive based' offset). An archive-based offset is simpler and more reliably points to the proper
-            split location. It also allows 'zipfs info //zipfs:/app' to return the correct offset information.
-
-            Either way, extract_preamble can usually separate them, but in the unusual case that there is both an
-            external preamble and a preamble within the zip, only the external preamble will be split, with the
-            internal one remaining in the zip.
-
-            The inverse of this process would be to extract the .zip file created by this split to a folder,
-            e.g extracted_zip_folder (adjusting contents as required) and then to run:
-             zipfs mkimg newbinaryname.exe extracted_zip_folder <prefix> \"\" <extracted_preamble_or_alternative exe>
-             "
-        @values -min 2 -max 3
-        infile -type file -optional 0 -help\
-            "Name of existing tcl executable or shared lib with attached zipfs filesystem"
-        outfile_preamble  -optional 0 -type file -help\
-            "Name of output file for binary preamble to be extracted to.
-              If this file already exists, an error will be raised"
-        outfile_zip -default "" -type file -help\
-            "Name of output file for zip data to be extracted to.
-              If this file already exists, an error will be raised"
-    }
-    proc extract_preamble {args} {
-        set argd [punk::args::parse $args withid ::punk::zip::extract_preamble]
-        lassign [dict values $argd] leaders opts values received
-
-        set infile              [dict get $values infile]
-        set outfile_preamble    [dict get $values outfile_preamble]
-        set outfile_zip         [dict get $values outfile_zip]
-
-        set inzip [open $infile r]
-        fconfigure $inzip -encoding iso8859-1 -translation binary
-        if {[file exists $outfile_preamble]} {
-            error "outfile_preamble $outfile_preamble already exists - please remove first"
-        }
-        if {$outfile_zip ne ""} {
-            if {[file exists $outfile_zip] && [file size $outfile_zip]} {
-                error "outfile_zip $outfile_zip already exists - please remove first"
-            }
-        }
-        chan seek $inzip 0 end
-        set insize [tell $inzip] ;#faster (including seeks) than calling out to filesystem using file size - but should be equivalent
-        chan seek $inzip 0 start
-        #only scan last 64k - cover max signature size?? review
-        if {$insize < 65559} {
-            set tailsearch_start 0
-        } else {
-            set tailsearch_start [expr {$insize - 65559}]
-        }
-        chan seek $inzip $tailsearch_start start
-        set scan [read $inzip]
-        #EOCD - End Of Central Directory record
-        set start_of_end [string last "\x50\x4b\x05\x06" $scan]
-        puts stdout "==>start_of_end: $start_of_end"
-
-        if {$start_of_end == -1} {
-            #no zip eocdr - consider entire file to be the zip preamble 
-            set baseoffset $insize
-        } else {
-            set filerelative_eocd_posn [expr {$start_of_end + $tailsearch_start}]
-            chan seek $inzip $filerelative_eocd_posn
-            set cdir_record_plus [read $inzip] ;#can have trailing data
-            binary scan $cdir_record_plus issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \
-                    eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len) 
-            #rule out a false positive from within a nonzip (e.g plain exe)
-            #There exists for example a PK\5\6 in a plain tclsh, but it doesn't appear to be zip related.
-            #It doesn't seem to occur near the end - so perhaps not an issue - but we'll do some basic checks anyway
-            #we only support single disk - so we'll validate a bit more by requiring disknbr and ctrldirdisk to be zeros
-            #todo - just search for Pk\5\6\0\0\0\0 in the first place? //review
-            if {$eocd(disknbr) + $eocd(ctrldirdisk) != 0} {
-                #review - should keep searching?
-                #for now we assume not a zip
-                set baseoffset $insize 
-            } else {
-                #use the central dir size to jump back tko start of central dir
-                #determine if diroffset is file or archive relative 
-
-                set filerelative_cdir_start [expr {$filerelative_eocd_posn - $eocd(dirsize)}]
-                puts stdout "---> [read $inzip 4]"
-                if {$filerelative_cdir_start > $eocd(diroffset)} {
-                    #'external preamble' easy case
-                    # - ie 'archive' offset - (and one of the reasons I prefer archive-offset - it makes finding the 'prefix' easier
-                    #though we are assuming zip offsets are not corrupted
-                    set baseoffset [expr {$filerelative_cdir_start - $eocd(diroffset)}]
-                } else {
-                    #'internal preamble' hard case
-                    # - either no preamble - or offsets have been adjusted to be file relative.
-                    #we could scan from top (ugly) - and with binary prefixes we could get false positives in the data that look like PK\3\4 headers
-                    #we could either work out the format for all possible executables that could be appended (across all platforms) and understand where they end?
-                    #or we just look for the topmost PK\3\4 header pointed to by a CDR record - and assume the CDR is complete 
-
-                    #step one - read all the CD records and find the highest pointed to local file record (which isn't necessarily the first - but should get us above most if not all of the zip data)
-                    #we can't assume they're ordered in any particular way - so we in theory have to look at them all.
-                    set baseoffset "unknown"
-                    chan seek $inzip $filerelative_cdir_start start
-                    #binary scan $cdir_record_plus issssiis eocd(signature) eocd(disknbr) eocd(ctrldirdisk) \
-                    #    eocd(numondisk) eocd(totalnum) eocd(dirsize) eocd(diroffset) eocd(comment_len) 
-                    #load the whole central dir into cdir
-
-                    #todo! loop through all cdr file headers - find highest offset?
-                    #tclZipfs.c just looks at first file header in Central Directory
-                    #looking at all entries would be more robust - but we won't work harder than tclZipfs.c for now //REVIEW
-
-                    set cdirdata [read $inzip $eocd(dirsize)]
-                    binary scan $cdirdata issssssiiisssssii cdir(signature) cdir(_vermadeby) cdir(_verneeded) cdir(gpbitflag) cdir(compmethod) cdir(lastmodifiedtime) cdir(lastmodifieddate)\
-                        cdir(uncompressedcrc32) cdir(compressedsize) cdir(uncompressedsize) cdir(filenamelength) cdir(extrafieldlength) cdir(filecommentlength) cdir(disknbr)\
-                        cdir(internalfileattributes) cdir(externalfileatributes) cdir(relativeoffset) 
-                    
-                    #since we're in this branch - we assume cdir(relativeoffset) is from the start of the file
-                    chan seek $inzip $cdir(relativeoffset)
-                    #let's at least check that we landed on a local file header..
-                    set local_file_header_beginning [read $inzip 28]; #local_file_header without the file name and extra field
-                    binary scan $local_file_header_beginning isssssiiiss lfh(signature) lfh(_verneeded) lfh(gpbitflag) lfh(compmethod) lfh(lastmodifiedtime) lfh(lastmodifieddate)\
-                        lfh(uncompressedcrc32) lfh(compressedsize) lfh(uncompressedsize) lfh(filenamelength) lfh(extrafieldlength)
-                    #dec2hex 67324752 = 4034B50 = PK\3\4
-                    puts stdout "1st local file header sig: $lfh(signature)"
-                    if {$lfh(signature) == 67324752} {
-                        #looks like a local file header
-                        #use our cdir(relativeoffset) as the start of the zip-data (//review - possible embedded password + end marker preceeding this)
-                        set baseoffset $cdir(relativeoffset) 
-                    }
-                }
-                puts stdout "filerel_cdirstart: $filerelative_cdir_start recorded_offset: $eocd(diroffset)" 
-            }
-        }
-        puts stdout "baseoffset: $baseoffset"
-        #expect CDFH PK\1\2
-        #above the CD - we expect a bunch of PK\3\4 records - (possibly not all of them pointed to by the CDR) 
-        #above that we expect: *possibly* a stored password with trailing marker - then the prefixed exe/script 
-
-        if {![string is integer -strict $baseoffset]} {
-            error "unable to determine zip baseoffset of file $infile"
-        }
-
-        if {$baseoffset < $insize} {
-            set pout   [open $outfile_preamble w] 
-            fconfigure $pout -encoding iso8859-1 -translation binary
-            chan seek $inzip 0 start
-            chan copy $inzip $pout -size $baseoffset
-            close $pout
-            if {$outfile_zip ne ""} {
-                #todo - if it was internal preamble - need to adjust offsets to fix the split off zipfile
-                set zout [open $outfile_zip w]
-                fconfigure $zout -encoding iso8859-1 -translation binary
-                chan copy $inzip $zout
-                close $zout
-            }
-            close $inzip
-        } else {
-            #no valid (from our perspective) eocdr found - baseoffset has been set to insize
-            close $inzip
-            file copy $infile $outfile_preamble
-            if {$outfile_zip ne ""} {
-                #touch equiv?
-                set fd [open $outfile_zip w]
-                close $fd
-            }
-        }
-    }
-
-
-
-    punk::args::define {
-        @id     -id ::punk::zip::Addentry
-        @cmd   -name punk::zip::Addentry\
-            -summary\
-            "Add zip-entry for file at 'path'"\
-            -help\
-            "Add a single file at 'path' to open channel 'zipchan'
-            return a central directory file record"
-        @opts
-        -comment    -default "" -help "An optional comment specific to the added file"
-        @values -min 3 -max 4
-        zipchan  -help "open file descriptor with cursor at position appropriate for writing a local file header"
-        base     -help "base path for entries"
-        path     -type file -help "path of file to add"
-        zipdataoffset  -default 0 -type integer -range {0 ""} -help "offset of start of zip-data - ie length of prefixing script/exe
-        Can be specified as zero even if a prefix exists - which would make offsets 'file relative' as opposed to 'archive relative'"
-    }
-
-    # Addentry - was Mkzipfile --
-    #
-    # FIX ME: should  handle the current offset for non-seekable channels
-    #
-    proc Addentry {args} {
-        #*** !doctools
-        #[call [fun Addentry] [arg zipchan] [arg base] [arg path] [arg ?comment?]]
-        #[para] Add a single file to a zip archive 
-        #[para] The zipchan channel should already be open and binary.
-        #[para] You can provide a -comment for the file.
-        #[para] The return value is the central directory record that will need to be used when finalizing the zip archive.
-
-        set argd [punk::args::parse $args withid ::punk::zip::Addentry]
-        set zipchan [dict get $argd values zipchan]
-        set base    [dict get $argd values base]
-        set path    [dict get $argd values path]
-        set zipdataoffset [dict get $argd values zipdataoffset]
-
-        set comment [dict get $argd opts -comment]
-
-        set fullpath [file join $base $path]
-        set mtime [Timet_to_dos [file mtime $fullpath]]
-        set utfpath [encoding convertto utf-8 $path]
-        set utfcomment [encoding convertto utf-8 $comment]
-        set flags [expr {(1<<11)}] ;# utf-8 comment and path
-        set method 0               ;# store 0, deflate 8
-        set attr 0                 ;# text or binary (default binary)
-        set version 20             ;# minumum version req'd to extract
-        set extra ""
-        set crc 0
-        set size 0
-        set csize 0
-        set data ""
-        set seekable [expr {[tell $zipchan] != -1}]
-        if {[file isdirectory $fullpath]} {
-            set attrex 0x41ff0010  ;# 0o040777 (drwxrwxrwx)
-            #set attrex 0x40000010
-        } elseif {[file executable $fullpath]} {
-            set attrex 0x81ff0080  ;# 0o100777 (-rwxrwxrwx)
-        } else {
-            set attrex 0x81b60020  ;# 0o100666 (-rw-rw-rw-)
-            if {[file extension $fullpath] in {".tcl" ".txt" ".c"}} {
-                set attr 1         ;# text
-            }
-        }
-    
-        if {[file isfile $fullpath]} {
-            set size [file size $fullpath]
-            if {!$seekable} {set flags [expr {$flags | (1 << 3)}]}
-        }
-
-
-        set channeloffset [tell $zipchan] ;#position in the channel - this may include prefixing exe/zip
-        set local [binary format a4sssiiiiss PK\03\04 \
-                        $version $flags $method $mtime $crc $csize $size \
-                        [string length $utfpath] [string length $extra]]
-        append local $utfpath $extra
-        puts -nonewline $zipchan $local
-    
-        if {[file isfile $fullpath]} {
-            # If the file is under 2MB then zip in one chunk, otherwize we use
-            # streaming to avoid requiring excess memory. This helps to prevent
-            # storing re-compressed data that may be larger than the source when
-            # handling PNG or JPEG or nested ZIP files.
-            if {$size < 0x00200000} {
-                set fin [open $fullpath rb]
-                set data [read $fin]
-                set crc [zlib crc32 $data]
-                set cdata [zlib deflate $data]
-                if {[string length $cdata] < $size} {
-                    set method 8
-                    set data $cdata
-                }
-                close $fin
-                set csize [string length $data]
-                puts -nonewline $zipchan $data
-            } else {
-                set method 8
-                set fin [open $fullpath rb]
-                set zlib [zlib stream deflate]
-                while {![eof $fin]} {
-                    set data [read $fin 4096]
-                    set crc [zlib crc32 $data $crc]
-                    $zlib put $data
-                    if {[string length [set zdata [$zlib get]]]} {
-                        incr csize [string length $zdata]
-                        puts -nonewline $zipchan $zdata
-                    }
-                }
-                close $fin
-                $zlib finalize
-                set zdata [$zlib get]
-                incr csize [string length $zdata]
-                puts -nonewline $zipchan $zdata
-                $zlib close
-            }
-        
-            if {$seekable} {
-                # update the header if the output is seekable
-                set local [binary format a4sssiiii PK\03\04 \
-                                $version $flags $method $mtime $crc $csize $size]
-                set current [tell $zipchan]
-                seek $zipchan $channeloffset
-                puts -nonewline $zipchan $local
-                seek $zipchan $current
-            } else {
-                # Write a data descriptor record
-                set ddesc [binary format a4iii PK\7\8 $crc $csize $size]
-                puts -nonewline $zipchan $ddesc
-            }
-        }
-
-        #PK\x01\x02 Cdentral directory file header
-        #set v1 0x0317 ;#upper byte 03 -> UNIX lower byte 23 -> 2.3
-        set v1 0x0017 ;#upper byte 00 -> MS_DOS and OS/2 (FAT/VFAT/FAT32 file systems)
-
-        set hdr [binary format a4ssssiiiisssssii PK\01\02 $v1 \
-                    $version $flags $method $mtime $crc $csize $size \
-                    [string length $utfpath] [string length $extra]\
-                    [string length $utfcomment] 0 $attr $attrex [expr {$channeloffset - $zipdataoffset}]] ;#zipdataoffset may be zero - either because it's a pure zip, or file-based offsets desired.
-        append hdr $utfpath $extra $utfcomment
-        return $hdr
-    }
-
-    #### REVIEW!!!
-    #JMN - review - this looks to be offset relative to start of file - (same as 2024 Tcl 'mkzip mkimg') 
-    # we want to enable (optionally) offsets relative to start of archive for exe/script-prefixed zips.on windows (editability with 7z,peazip)
-    ####
-
-
-    punk::args::define {
-        @id     -id ::punk::zip::mkzip
-        @cmd   -name punk::zip::mkzip\
-            -summary\
-            "Create a zip archive in 'filename'."\
-            -help\
-            "Create a zip archive in 'filename'"
-        @opts
-        -offsettype -default "archive" -choices {archive file}\
-            -help\
-            "zip offsets stored relative to start of entire file or relative to start of zip-archive
-              Only relevant if the created file has a script/runtime prefix."
-        -return     -default "pretty" -choices {pretty list none}\
-            -help\
-            "mkzip can return a list of the files and folders added to the archive
-              the option -return pretty is the default and uses the punk::lib pdict/plist system
-              to return a formatted list for the terminal
-        "
-        -zipkit     -default 0 -type none\
-            -help\
-            "whether to add mounting script
-              mutually exclusive with -runtime option
-              currently vfs::zip based - todo - autodetect zipfs/vfs with pref for zipfs"
-        -runtime    -default ""\
-            -help\
-            "specify a prefix file
-              e.g punk::zip::mkzip -runtime unzipsfx.exe -directory subdir -base subdir output.zip
-              will create a self-extracting zip archive from the subdir/ folder.
-              Expects runtime with no existing vfs attached (review)"
-        -comment    -default ""\
-            -help "An optional comment for the archive"
-        -directory  -default ""\
-            -help "Scan for  contents within this folder or current directory if not provided."
-        -base       -default ""\
-            -help\
-            "The new zip archive will be rooted in this directory if provided
-              it must be a parent of -directory or the same path as -directory"
-        -exclude    -default {CVS/* */CVS/* *~ ".#*" "*/.#*"}
-        -- -type none -help\
-            "End of options marker"
-
-        @values -min 1 -max -1 
-        filename -type file -default ""\
-            -help "name of zipfile to create"
-        globs -default {*} -multiple 1\
-            -help\
-            "list of glob patterns to match.
-                Only directories with matching files will be included in the archive."
-    }
-
-    # zip::mkzip --
-    #
-    #        eg: zip my.zip -directory Subdir -runtime unzipsfx.exe *.txt
-    #
-    proc mkzip {args} {
-        #todo - doctools - [arg ?globs...?]  syntax?
-
-        #*** !doctools
-        #[call [fun mkzip]\
-        #   [opt "[option -offsettype] [arg offsettype]"]\
-        #   [opt "[option -return] [arg returntype]"]\
-        #   [opt "[option -zipkit] [arg 0|1]"]\
-        #   [opt "[option -runtime] [arg preamble_filename]"]\
-        #   [opt "[option -comment] [arg zipfilecomment]"]\
-        #   [opt "[option -directory] [arg dir_to_zip]"]\
-        #   [opt "[option -base] [arg archive_root]"]\
-        #   [opt "[option -exclude] [arg globlist]"]\
-        #   [arg zipfilename]\
-        #   [arg ?glob...?]]
-        #[para] Create a zip archive in 'zipfilename'
-        #[para] If a file already exists, an error will be raised. 
-        #[para] Call 'punk::zip::mkzip' with no arguments for usage display.
-
-        set argd [punk::args::parse $args withid ::punk::zip::mkzip]
-        set filename [dict get $argd values filename]
-        if {$filename eq ""} {
-            error "mkzip filename cannot be empty string"
-        }
-        if {[regexp {[?*]} $filename]} {
-            #catch a likely error where filename is omitted and first glob pattern is misinterpreted as zipfile name
-            error "mkzip filename should not contain glob characters ? *"
-        }
-        if {[file exists $filename]} {
-            error "mkzip filename:$filename already exists"
-        }
-        dict for {k v} [dict get $argd opts] {
-            switch -- $k {
-                -comment {
-                    dict set argd opts $k [encoding convertto utf-8 $v]
-                }
-                -directory - -base {
-                    dict set argd opts $k [file normalize $v]
-                }
-            }
-        }
-
-        array set opts [dict get $argd opts] 
-
-
-        if {$opts(-directory) ne ""} {
-            if {$opts(-base) ne ""} {
-                #-base and -directory have been normalized already
-                if {![Path_a_atorbelow_b $opts(-directory) $opts(-base)]} {
-                    error "punk::zip::mkzip -base $opts(-base) must be above or the same as -directory $opts(-directory)"
-                }
-                set base $opts(-base)
-                set relpath [Path_strip_alreadynormalized_prefixdepth $opts(-directory) $opts(-base)]
-            } else {
-                set base $opts(-directory)
-                set relpath ""
-            }
-            #will pick up intermediary folders as paths (ending with trailing slash)
-            set paths [walk -exclude $opts(-exclude) -subpath $relpath -- $base {*}[dict get $argd values globs]]
-
-            set norm_filename [file normalize $filename]
-            set norm_dir [file normalize $opts(-directory)] ;#we only care if filename below -directory (which is where we start scanning)
-            if {[Path_a_atorbelow_b $norm_filename $norm_dir]} {
-                #check that we aren't adding the zipfile to itself
-                #REVIEW - now that we open zipfile after scanning - this isn't really a concern!
-                #keep for now in case we can add an -update or a -force facility (or in case we modify to add to zip as we scan for members?) 
-                #In the case of -force - we may want to delay replacement of original until scan is done?
-                
-                #try to avoid looping on all paths and performing (somewhat) expensive file normalizations on each 
-                #1st step is to check the patterns and see if our zipfile is already excluded - in which case we need not check the paths
-                set self_globs_match 0
-                foreach g [dict get $argd values globs] {
-                    if {[string match $g [file tail $filename]]} {
-                        set self_globs_match 1
-                        break
-                    }
-                }
-                if {$self_globs_match} {
-                    #still dangerous
-                    set self_excluded 0
-                    foreach e $opts(-exclude) {
-                        if {[string match $e [file tail $filename]]} {
-                            set self_excluded 1
-                            break
-                        }
-                    }
-                    if {!$self_excluded} {
-                        #still dangerous - likely to be in resultset - check each path
-                        #puts stderr "zip file $filename is below directory $opts(-directory)"
-                        set self_is_matched 0
-                        set i 0
-                        foreach p $paths {
-                            set norm_p [file normalize [file join $opts(-directory) $p]]
-                            if {[Path_a_at_b $norm_filename $norm_p]} {
-                                set self_is_matched 1
-                                break
-                            }
-                            incr i
-                        }
-                        if {$self_is_matched} {
-                            puts stderr "WARNING - zipfile being created '$filename' was matched.  Excluding this file. Relocate the zip, or use -exclude patterns to avoid this message"
-                            set paths [lremove $paths $i]
-                        }
-                    }
-                }
-            }
-        } else {
-            #NOTE that we don't add intermediate folders when creating an archive without using the -directory flag!
-            #ie - only the exact *files* matching the glob are stored.
-            set paths [list]
-            set dir [pwd]
-            if {$opts(-base) ne ""} {
-                if {![Path_a_atorbelow_b $dir $opts(-base)]} {
-                    error "punk::zip::mkzip -base $opts(-base) must be above current directory"
-                }
-                set relpath [Path_strip_alreadynormalized_prefixdepth [file normalize $dir] [file normalize $opts(-base)]]
-            } else {
-                set relpath "" 
-            }
-            set base $opts(-base)
-
-            set matches [glob -nocomplain -type f -- {*}[dict get $argd values globs]]
-            foreach m $matches {
-                if {$m eq $filename} {
-                    #puts stderr "--> excluding $filename"
-                    continue
-                }
-                set isok 1
-                foreach e [concat $opts(-exclude) $filename] {
-                    if {[string match $e $m]} {
-                        set isok 0 
-                        break 
-                    }
-                }
-                if {$isok} {
-                    lappend paths [file join $relpath $m]
-                }
-            }
-        }
-
-        if {![llength $paths]} {
-            return ""
-        }
-
-        set zf [open $filename wb]
-        if {$opts(-runtime) ne ""} {
-            #todo - strip any existing vfs - option to merge contents.. only if zip attached?
-            set rt [open $opts(-runtime) rb]
-            fcopy $rt $zf
-            close $rt
-        } elseif {$opts(-zipkit)} {
-            #TODO - update to zipfs ?
-            #see modpod
-            set zkd "#!/usr/bin/env tclkit\n\# This is a zip-based Tcl Module\n"
-            append zkd "package require vfs::zip\n"
-            append zkd "vfs::zip::Mount \[info script\] \[info script\]\n"
-            append zkd "if {\[file exists \[file join \[info script\] main.tcl\]\]} {\n"
-            append zkd "    source \[file join \[info script\] main.tcl\]\n"
-            append zkd "}\n"
-            append zkd \x1A
-            puts -nonewline $zf $zkd
-        }
-
-        #todo - subtract this from the endrec offset 
-        if {$opts(-offsettype) eq "archive"} {
-            set dataStartOffset [tell $zf] ;#the overall file offset of the start of archive-data  //JMN 2024
-        } else {
-            set dataStartOffset 0  ;#offsets relative to file - the (old) zipfs mkzip way :/
-        }
-
-        set count 0
-        set cd ""
-
-        set members [list]
-        foreach path $paths {
-            #puts $path
-            lappend members $path
-            append cd [Addentry $zf $base $path $dataStartOffset] ;#path already includes relpath 
-            incr count
-        }
-        set cdoffset [tell $zf]
-        set endrec [binary format a4ssssiis PK\05\06 0 0 \
-                        $count $count [string length $cd] [expr {$cdoffset - $dataStartOffset}]\
-                        [string length $opts(-comment)]]
-        append endrec $opts(-comment)
-        puts -nonewline $zf $cd
-        puts -nonewline $zf $endrec
-        close $zf
-
-        set result ""
-        switch -exact -- $opts(-return) {
-            list {
-                set result $members
-            }
-            pretty {
-                if {[info commands showlist] ne ""} {
-                    set result [plist -channel none members]
-                } else {
-                    set result $members
-                }
-            }
-            none {
-                set result ""
-            }
-        }
-        return  $result
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::zip ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::zip::lib {
-    tcl::namespace::export {[a-z]*}  ;# Convention: export all lowercase
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::zip::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::zip::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::zip [tcl::namespace::eval punk::zip {
-    variable pkg punk::zip
-    variable version
-    set version 0.1.1 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punkapp-0.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punkapp-0.1.tm
deleted file mode 100644
index 70fa90fc..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punkapp-0.1.tm
+++ /dev/null
@@ -1,239 +0,0 @@
-#utilities for punk apps to call
-
-package provide punkapp [namespace eval punkapp {
-    variable version
-    set version 0.1
-}]
-
-namespace eval punkapp {
-    variable result
-    variable waiting "no"
-    proc hide_dot_window {} {
-        #alternative to wm withdraw .
-        #see https://wiki.tcl-lang.org/page/wm+withdraw
-        wm geometry . 1x1+0+0
-        wm overrideredirect . 1
-        wm transient .
-    }
-    proc is_toplevel {w} {
-        if {![llength [info commands winfo]]} {
-            return 0
-        }
-        expr {[winfo toplevel $w] eq $w && ![catch {$w cget -menu}]}
-    }
-    proc get_toplevels {{w .}} {
-        if {![llength [info commands winfo]]} {
-            return [list]
-        }
-        set list {}
-        if {[is_toplevel $w]} {
-            lappend list $w
-        }
-        foreach w [winfo children $w] {
-            lappend list {*}[get_toplevels $w]
-        }
-        return $list
-    }
-
-    proc make_toplevel_next {prefix} {
-        set top [get_toplevel_next $prefix]
-        return [toplevel $top]
-    }
-    #possible race condition if multiple calls made without actually creating the toplevel, or gap if highest existing closed in the meantime
-    #todo - reserve_toplevel_next ? keep list of toplevels considered 'allocated' even if never created or already destroyed? what usecase?
-    #can call wm withdraw to to reserve newly created toplevel. To stop re-use of existing names after destruction would require a list or at least a record of highest created for each prefix
-    proc get_toplevel_next {prefix} {
-        set base [string trim $prefix .] ;# .myapp -> myapp  .myapp.somewindow  -> myapp.somewindow   . -> ""
-
-
-
-    }
-    proc exit {{toplevel ""}} {
-        variable waiting
-        variable result
-        variable default_result
-        set toplevels [get_toplevels]
-        if {[string length $toplevel]} {
-            set wposn [lsearch $toplevels $toplevel]
-            if {$wposn > 0} {
-                destroy $toplevel
-            }
-        } else {
-            #review
-            if {[package provide punk::repl::codethread] ne "" &&  [punk::repl::codethread::is_running]} {
-                puts stderr "punkapp::exit called without toplevel - showing console"
-                show_console
-                return 0
-            } else {
-                puts stderr "punkapp::exit called without toplevel - exiting"
-                if {$waiting ne "no"} {
-                    if {[info exists result(shell)]} {
-                        set temp [set result(shell)]
-                        unset result(shell)
-                        set waiting $temp
-                    } else {
-                        set waiting ""
-                    }
-                } else {
-                    ::exit
-                }
-            }
-        }
-
-        set controllable [get_user_controllable_toplevels]
-        if {![llength $controllable]} {
-            if {[package provide punk::repl::codethread] ne "" &&  [punk::repl::codethread::is_running]} {
-                show_console
-            } else {
-                if {$waiting ne "no"} {
-                    if {[info exists result(shell)]} {
-                        set temp [set result(shell)]
-                        unset result(shell)
-                        set waiting $temp
-                    } elseif {[info exists result($toplevel)]} {
-                        set temp [set result($toplevel)]
-                        unset result($toplevel)
-                        set waiting $temp
-                    } elseif {[info exists default_result]} {
-                        set temp $default_result
-                        unset default_result
-                        set waiting $temp
-                    } else {
-                        set waiting ""
-                    }
-                } else {
-                    ::exit
-                }
-            }
-        }
-    }
-    proc close_window {toplevel} {
-        wm withdraw $toplevel
-        if {![llength [get_user_controllable_toplevels]]} {
-            punkapp::exit $toplevel
-        }
-        destroy $toplevel
-    }
-    proc wait {args} {
-        variable waiting
-        variable default_result
-        if {[dict exists $args -defaultresult]} {
-            set default_result [dict get $args -defaultresult]
-        }
-        foreach t [punkapp::get_toplevels] {
-            if {[wm protocol $t WM_DELETE_WINDOW] eq ""} {
-                wm protocol $t WM_DELETE_WINDOW [list punkapp::close_window $t]
-            }
-        }
-        if {[package provide punk::repl::codethread] ne "" &&  [punk::repl::codethread::is_running]} {
-            puts stderr "repl eventloop seems to be running - punkapp::wait not required"
-        } else {
-            if {$waiting eq "no"} {
-                set waiting "waiting"
-                vwait ::punkapp::waiting
-                return $::punkapp::waiting
-            }
-        }
-    }
-
-    #A window can be 'visible' according to this - but underneath other windows etc
-    #REVIEW - change name?
-    proc get_visible_toplevels {{w .}} {
-        if {![llength [info commands winfo]]} {
-            return [list]
-        }
-        set list [get_toplevels $w]
-        set mapped [lmap v $list {expr {[winfo ismapped $v] ? $v : {}}}]
-        set mapped [concat {*}$mapped] ;#ignore {}
-        set visible [list]
-        foreach m $mapped {
-            if {[wm overrideredirect $m] == 0 } {
-                lappend visible $m
-            } else {
-                if {[winfo height $m] >1 && [winfo width $m] > 1} {
-                    #technically even a 1x1 is visible.. but in practice even a 10x10 is hardly likely to be noticeable when overrideredirect == 1
-                    #as a convention - 1x1 with no controls is used to make a window invisible so we'll treat anything larger as visible
-                    lappend visible $m
-                }
-            }
-        }
-        return $visible
-    }
-    proc get_user_controllable_toplevels {{w .}} {
-        set visible [get_visible_toplevels $w]
-        set controllable [list]
-        foreach v $visible {
-            if {[wm overrideredirect $v] == 0} {
-                lappend controllable $v
-            }
-        }
-        #only return visible windows with overrideredirect == 0 because there exists some user control.
-        #todo - review.. consider checking if position is outside screen areas? Technically controllable.. but not easily
-        return $controllable
-    }
-    proc hide_console {args} {
-        set opts [dict create -force 0]
-        if {([llength $args] % 2) != 0} {
-            error "hide_console expects pairs of arguments. e.g -force 1"
-        }
-        #set known_opts [dict keys $defaults]
-        foreach {k v} $args {
-            switch -- $k {
-                -force {
-                    dict set opts $k $v
-                }
-                default {
-                    error "Unrecognised options '$k'  known options: [dict keys $opts]"
-                }
-            }
-        }
-        set force [dict get $opts -force]
-
-        if {!$force} {
-            if {![llength [get_user_controllable_toplevels]]} {
-                puts stderr "Cannot hide console while no user-controllable windows available"
-                return 0
-            }
-        }
-        if {$::tcl_platform(platform) eq "windows"} {
-            #hide won't work for certain consoles cush as conemu,wezterm - and doesn't really make sense for tabbed windows anyway.
-            #It would be nice if we could tell the console window to hide just the relevant tab - or the whole window if only one tab present - but this is unlikely to be possible in any standard way.
-            #an ordinary cmd.exe or pwsh.exe or powershell.exe window can be hidden ok though.
-            #(but with wezterm - process is cmd.exe - but it has style popup and can't be hidden with a twapi::hide_window call)
-            package require twapi
-            set h [twapi::get_console_window]
-            set pid [twapi::get_window_process $h]
-            set pinfo [twapi::get_process_info $pid -name]
-            set pname [dict get $pinfo -name]
-            set wstyle [twapi::get_window_style $h]
-            #tclkitsh/tclsh?
-            if {($pname in [list cmd.exe pwsh.exe powershell.exe] || [string match punk*.exe $pname]) && "popup" ni $wstyle} {
-                twapi::hide_window $h
-                return 1
-            } else {
-                puts stderr "punkapp::hide_console unable to hide this type of console window"
-                return 0
-            }
-        } else {
-            #todo
-            puts stderr "punkapp::hide_console unimplemented on this platform (todo)"
-            return 0
-        }
-    }
-
-    proc show_console {} {
-        if {$::tcl_platform(platform) eq "windows"} {
-            package require twapi
-            if {![catch {set h [twapi::get_console_window]} errM]} {
-                twapi::show_window $h -activate -normal
-            } else {
-                #no console - assume launched from something like wish?
-                catch {console show}
-            }
-        } else {
-            #todo
-            puts stderr "punkapp::show_console unimplemented on this platform"
-        }
-    }
-
-}
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punkcheck-0.1.0.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punkcheck-0.1.0.tm
deleted file mode 100644
index 451ad7a5..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punkcheck-0.1.0.tm
+++ /dev/null
@@ -1,2382 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'dev make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application punkcheck 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-##e.g package require frobz
-
-package require punk::tdl
-package require punk::path
-package require punk::repo
-package require punk::mix::util
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Punkcheck uses the TDL format which is a list of lists in Tcl format
-# It is intended primarily for source build/distribution tracking within a punk project or single filesystem - with relative paths.
-#
-#see following article regarding the many problems with using mtime for build-decisions:  https://apenwarr.ca/log/20181113
-#
-namespace eval punkcheck {
-        #namespace export\
-        #    uuid\
-        #    start_installer_event  installfile_*
-        namespace export\
-            uuid\
-            installtrack\
-            install\
-            install_tm_files\
-            install_non_tm_files\
-            summarize_install_resultdict\
-
-        #antiglob_dir & antiglob_file entries match the pattern at any level - should not contain path separators
-        variable default_antiglob_dir_core  [list "#*" "_aside" "_build" ".git" ".fossil*"]
-        variable default_antiglob_file_core ""
-        proc uuid {} {
-            set has_twapi 0
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {![catch {package require twapi}]} {
-                    set has_twapi 1
-                }
-            }
-            if {!$has_twapi} {
-                if {[catch {package require uuid} errM]} {
-                    error "punkcheck: Unable to load a package for uuid on this platform. Try tcllib's uuid (any platform) - twapi for windows"
-                }
-                return [uuid::uuid generate]
-            } else {
-                return [twapi::new_uuid]
-            }
-        }
-
-        proc default_antiglob_dir_core {} {
-            variable default_antiglob_dir_core
-            return $default_antiglob_dir_core
-        }
-        proc default_antiglob_file_core {} {
-            variable default_antiglob_file_core
-            if {$default_antiglob_file_core eq ""} {
-                set default_antiglob_file_core [list "*.swp" "*[punk::mix::util::magic_tm_version]*" "*-buildversion.txt" ".punkcheck"]
-            }
-            return $default_antiglob_file_core
-        }
-
-
-        proc load_records_from_file {punkcheck_file} {
-            set record_list [list]
-            if {[file exists $punkcheck_file]} {
-                set tdlscript [punk::mix::util::fcat $punkcheck_file]
-                if {[catch {
-                    set record_list [punk::tdl::prettyparse $tdlscript]
-                } errparse]} {
-                    error "punkcheck::load_records_from_file failed to parse '$punkcheck_file'\n error:$errparse"
-                }
-            }
-            return $record_list
-        }
-        proc save_records_to_file {recordlist punkcheck_file} {
-            set newtdl [punk::tdl::prettyprint $recordlist]
-            set linecount [llength [split $newtdl \n]]
-            #puts stdout $newtdl
-            set fd [open $punkcheck_file w]
-            chan configure $fd -translation binary
-            puts -nonewline $fd $newtdl
-            close $fd
-            return [list recordcount [llength $recordlist] linecount $linecount]
-        }
-
-
-        #todo - work out way to use same punkcheck file for multiple installers running concurrently. Thread?
-        #an installtrack objects represents an installation path from sourceroot to targetroot
-        #The source and target folders should be as specific as possible but it is valid to specify for example c:/ -> c:/  (or / -> /)  if source and targets within the installation operation are spread around.
-        #
-        set objname [namespace current]::installtrack
-        if {$objname ni [info commands $objname]} {
-            package require oolib
-
-            #FILEINFO record - target fileset with body records: INSTALL-RECORD,INSTALL-INPROGRESS,INSTALL-SKIPPED,DELETE-RECORD,DELETE-INPROGRESS,MODIFY-INPROGRESS,MODIFY-RECORD
-            #each FILEINFO body being a list of SOURCE records
-            oo::class create targetset {
-                variable o_targets
-                variable o_keep_installrecords
-                variable o_keep_skipped
-                variable o_keep_inprogress
-                variable o_records
-                constructor {args} {
-                    #set o_records [oolib::collection create [namespace current]::recordcollection]
-                    set o_records [list]
-
-                }
-
-                method as_record {} {
-                    #set fields [list\
-                    #    -targets $o_targets\
-                    #    -keep_installrecords $o_keep_installrecords\
-                    #    -keep_skipped $o_keep_skipped\
-                    #    -keep_inprogress $o_keep_inprogress\
-                    #    body $o_records\
-                    #]
-
-                    dict create \
-                        tag FILEINFO\
-                        -targets $o_targets\
-                        -keep_installrecords $o_keep_installrecords\
-                        -keep_skipped $o_keep_skipped\
-                        -keep_inprogress $o_keep_inprogress\
-                        body $o_records
-                }
-
-                #retrieve last completed record for the fileset ie exclude SKIPPED,INSTALL-INPROGRESS,DELETE-INPROGRESS,MODIFY-INPROGRESS
-                method get_last_record {fileset_record} {
-                    set body [dict_getwithdefault $fileset_record body [list]]
-                    set previous_records [lrange $body 0 end-1]
-                    #get last previous that is tagged INSTALL-RECORD,MODIFY-RECORD,DELETE-RECORD
-                    set revlist [lreverse $previous_records]
-                    foreach rec $revlist {
-                        switch -- [dict get $rec tag] {
-                            INSTALL-RECORD - MODIFY-RECORD - DELETE-RECORD - VIRTUAL-RECORD {
-                                return $rec
-                            }
-                        }
-                    }
-                    return [list]
-                }
-            }
-
-            #instances created by an installtrack object in method start_event
-            #also in installtrack constructor - to represent existing events from the .punkcheck data
-            oo::class create installevent {
-                variable o_id
-                variable o_rel_sourceroot
-                variable o_rel_targetroot
-                variable o_ts_begin
-                variable o_ts_end
-                variable o_types
-                variable o_configdict
-                variable o_targets
-                variable o_operation
-                variable o_operation_start_ts
-                variable o_path_cksum_cache
-                variable o_fileset_record
-                variable o_installer ;#parent object
-                constructor {installer rel_sourceroot rel_targetroot args} {
-                    set o_installer $installer
-                    set o_operation_start_ts ""
-                    set o_path_cksum_cache [dict create]
-                    set o_operation ""
-                    set defaults [dict create\
-                        -id ""\
-                        -tsbegin ""\
-                        -config [list]\
-                        -tsend ""\
-                        -types [list]\
-                    ]
-                    set opts [dict merge $defaults $args]
-                    if {[dict get $opts -id] eq ""} {
-                        set o_id [punkcheck::uuid]
-                    } else {
-                        set o_id [dict get $opts -id]
-                    }
-                    if {[dict get $opts -tsbegin] eq ""} {
-                        set o_ts_begin [clock microseconds]
-                    } else {
-                        set o_ts_begin [dict get $opts -tsbegin]
-                    }
-                    set o_ts_end    [dict get $opts -tsend]
-                    set o_types     [dict get $opts -types]
-                    set o_configdict [dict get $opts -config]
-
-                    set o_rel_sourceroot $rel_sourceroot
-                    set o_rel_targetroot $rel_targetroot
-                }
-                destructor {
-                    #puts "[self] destructor called"
-                }
-                method as_record {} {
-                    set begin_seconds [expr {$o_ts_begin / 1000000}]
-                    set tsiso_begin [clock format $begin_seconds -format "%Y-%m-%dT%H:%M:%S"]
-                    if {$o_ts_end ne ""} {
-                        set end_seconds [expr {$o_ts_end / 1000000}]
-                        set tsiso_end [clock format $end_seconds -format "%Y-%m-%dT%H:%M:%S"]
-                    } else {
-                        set tsiso_end ""
-                    }
-                    #set fields [list\
-                    #    -tsiso_begin $tsiso_begin\
-                    #    -ts_begin    $o_ts_begin\
-                    #    -tsiso_end   $tsiso_end\
-                    #    -ts_end      $o_ts_end\
-                    #    -id          $o_id\
-                    #    -source      $o_rel_sourceroot\
-                    #    -targets     $o_rel_targetroot\
-                    #    -types       $o_types\
-                    #    -config      $o_configdict\
-                    #]
-                    #set record [dict create tag EVENT {*}$fields]
-
-                    dict create \
-                        tag EVENT\
-                        -tsiso_begin $tsiso_begin\
-                        -ts_begin    $o_ts_begin\
-                        -tsiso_end   $tsiso_end\
-                        -ts_end      $o_ts_end\
-                        -id          $o_id\
-                        -source      $o_rel_sourceroot\
-                        -targets     $o_rel_targetroot\
-                        -types       $o_types\
-                        -config      $o_configdict
-
-                }
-                method get_id {} {
-                    return $o_id
-                }
-                method get_operation {} {
-                    return $o_operation
-                }
-                method get_targets {} {
-                    return $o_targets
-                }
-                method get_targets_exist {} {
-                    set punkcheck_folder [file dirname [$o_installer get_checkfile]]
-                    #puts stdout "### punkcheck glob -dir $punkcheck_folder -tails {*}$o_targets"
-                    #targets can be paths such as punk/mix/commandset/module-0.1.0.tm - glob can search levels below supplied -dir
-                    set existing [glob -nocomplain -dir $punkcheck_folder -tails {*}$o_targets]
-
-                    return $existing
-                }
-                method end {} {
-                    set o_ts_end [clock microseconds]
-                }
-                method targetset_dict {} {
-                    punk::records_as_target_dict [$o_installer get_recordlist]
-                }
-
-                #related - installfile_begin
-                #call init before we know if we are going to run the operation vs skip
-                method targetset_init {operation targetset} {
-                    set known_ops [list QUERY INSTALL MODIFY DELETE VIRTUAL]
-                    if {[string toupper $operation] ni $known_ops} {
-                        error "[self] add_target unknown operation '$operation'. Known operations $known_ops"
-                    }
-                    set o_operation [string toupper $operation]
-
-                    if {$o_operation_start_ts ne ""} {
-                        error "[self] targetset_init $o_operation operation already in progress. Use targetset_finished or targetset_complete to finish."
-                    }
-                    set o_operation_start_ts [clock microseconds]
-                    set seconds [expr {$o_operation_start_ts / 1000000}]
-                    set tsiso [clock format $seconds -format "%Y-%m-%dT%H:%M:%S"]
-                    set punkcheck_file [$o_installer get_checkfile]
-                    set punkcheck_folder [file dirname $punkcheck_file]
-
-                    set relativepath_targetset [list]
-                    if {$o_operation eq "VIRTUAL"} {
-                        foreach p $targetset {
-                            lappend relativepath_targetset $p
-                        }
-                    } else {
-                        foreach p $targetset {
-                            if {[file pathtype $p] eq "absolute"} {
-                                lappend relativepath_targetset [punkcheck::lib::path_relative $punkcheck_folder $p]
-                            } else {
-                                lappend relativepath_targetset $p
-                            }
-                        }
-                    }
-
-
-                    set fields [list\
-                        -tsiso $tsiso\
-                        -ts $o_operation_start_ts\
-                        -installer [$o_installer get_name]\
-                        -eventid $o_id\
-                        ]
-
-                    set o_targets [lsort -dictionary -increasing $relativepath_targetset] ;#exact sort order not critical - but must be consistent
-
-                    #set targetdict [my targetset_dict]
-
-                    set record_list [punkcheck::load_records_from_file $punkcheck_file]
-                    set extractioninfo [punkcheck::recordlist::extract_or_create_fileset_record $o_targets $record_list]
-                    set o_fileset_record [dict get $extractioninfo record]
-                    set record_list [dict get $extractioninfo recordset]
-                    set isnew       [dict get $extractioninfo isnew]
-                    set oldposition [dict get $extractioninfo oldposition]
-                    unset extractioninfo
-
-                    #INSTALL-INPROGRESS will become INSTALL-RECORD or INSTALL-FAILED or INSTALL-SKIPPED upon finalisation
-                    #-installer and -eventid keys are added here
-                    set new_inprogress_record [dict create tag [string toupper $operation]-INPROGRESS {*}$fields -tempcontext [my as_record] body {}]
-                    #set existing_body [dict_getwithdefault $o_fileset_record body [list]]
-                    #todo - look for existing "-INPROGRESS" records - mark as failed or incomplete?
-                    dict lappend o_fileset_record body $new_inprogress_record
-
-                    if {$isnew} {
-                        lappend record_list $o_fileset_record
-                    } else {
-                        set record_list [linsert $record_list[unset record_list] $oldposition $o_fileset_record]
-                    }
-                    if {$o_operation ne "QUERY"} {
-                        punkcheck::save_records_to_file $record_list $punkcheck_file
-                    }
-                    return $o_fileset_record
-
-                }
-                #operation has been started
-                #todo - upgrade .punkcheck format to hold more than just list of SOURCE entries in each record.
-                # - allow arbitrary targetset_startphase <name> targetset_endphase <name> calls to store timestamps and calculate elapsed time
-                method targetset_started {} {
-                    set punkcheck_folder [file dirname [$o_installer get_checkfile]]
-                    if {$o_operation eq "QUERY"} {
-                        set fileinfo_body [dict get $o_fileset_record body] ;#body of FILEINFO record
-                        set installing_record [lindex $fileinfo_body end]
-
-                        set ts_start [dict get $installing_record -ts]
-                        set ts_now [clock microseconds]
-                        set metadata_us [expr {$ts_now - $ts_start}]
-
-                        #??
-                        #JJJ
-                        #dict set installing_record -metadata_us $metadata_us
-                        dict set installing_record -ts_start_transfer $ts_now
-
-                        lset fileinfo_body end $installing_record
-
-                        return [dict set o_fileset_record body $fileinfo_body]
-                    } else {
-                        #legacy call
-                        #saves to .punkcheck file
-                        return [set o_fileset_record [punkcheck::installfile_started_install $punkcheck_folder $o_fileset_record]]
-                    }
-                }
-                method targetset_end {status args} {
-                    set defaults [dict create\
-                        -note \uFFFF\
-                    ]
-                    set known_opts [dict keys $defaults]
-                    if {[llength $args] % 2} {
-                        error "targetset_end arguments after status must be in the form of -flag value pairs. known flags: $known_opts"
-                    }
-                    set opts [dict merge $defaults $args]
-                    if {[dict get $opts -note] eq "\uFFFF"} {
-                        dict unset opts -note
-                    }
-
-                    set status [string toupper $status]
-                    set statusdict [dict create OK RECORD SKIPPED SKIPPED FAILED FAILED]
-                    if {$o_operation_start_ts eq ""} {
-                        error "[self] targetset_end $status - no current operation - call targetset_started first"
-                    }
-                    if {$status ni [dict keys $statusdict]} {
-                        error "[self] targetset_end unrecognized status:$status known values: [dict keys $statusdict]"
-                    }
-                    if {![punkcheck::lib::is_file_record_inprogress $o_fileset_record]} {
-                        error "targetset_end $status error: bad fileset_record - expected FILEINFO with last body element *-INPROGRESS"
-                    }
-                    set targetlist [dict get $o_fileset_record -targets]
-                    if {$targetlist ne $o_targets} {
-                        error "targetset_end $status error. targetlist mismatch between file : $targetlist vs $o_targets"
-                    }
-                    set operation_end_ts [clock microseconds]
-                    set elapsed_us [expr {$operation_end_ts - $o_operation_start_ts}]
-                    set file_record_body [dict get $o_fileset_record body]
-                    set installing_record [lindex $file_record_body end]
-                    set punkcheck_file [$o_installer get_checkfile]
-                    set punkcheck_folder [file dirname $punkcheck_file]
-                    set record_list [punkcheck::load_records_from_file $punkcheck_file]
-                    if {[dict exists $installing_record -ts_start_transfer]} {
-                        set ts_start_transfer [dict get $installing_record -ts_start_transfer]
-                        set transfer_us [expr {$operation_end_ts - $ts_start_transfer}]
-                        dict set installing_record  -transfer_us $transfer_us
-                    }
-                    if {[dict exists $opts -note]} {
-                        dict set installing_record -note [dict get $opts -note]
-                    }
-
-                    dict set installing_record -elapsed_us $elapsed_us
-                    dict unset installing_record -tempcontext
-                    dict set installing_record tag "${o_operation}-[dict get $statusdict $status]" ;# e.g INSTALL-RECORD, INSTALL-SKIPPED
-                    if {$o_operation in [list INSTALL MODIFY] && [dict get $statusdict $status] eq "RECORD"} {
-                        #only calculate and store post operation target cksums on successful INSTALL or MODIFY, doesn't make sense for DELETE or VIRTUAL operations
-                        set new_targets_cksums [list] ;#ordered list of cksums matching targetset order
-                        set cksum_all_opts "" ;#same cksum opts for each target so we store it once
-                        set ts_begin_cksum [clock microseconds]
-                        foreach p $o_targets {
-                            set tgt_cksum_info [punk::mix::base::lib::cksum_path [file join $punkcheck_folder $p]]
-                            lappend new_targets_cksums [dict get $tgt_cksum_info cksum]
-                            if {$cksum_all_opts eq ""} {
-                                set cksum_all_opts [dict get $tgt_cksum_info opts]
-                            }
-                        }
-                        set cksum_us [expr {[clock microseconds] - $ts_begin_cksum}]
-                        dict set installing_record -targets_cksums $new_targets_cksums
-                        dict set installing_record -cksum_all_opts $cksum_all_opts
-                        dict set installing_record -cksum_us $cksum_us
-                    }
-                    lset file_record_body end $installing_record
-                    dict set o_fileset_record body $file_record_body
-                    set o_fileset_record [punkcheck::recordlist::file_record_prune $o_fileset_record]
-
-                    set oldrecordinfo [punkcheck::recordlist::get_file_record $targetlist $record_list]
-                    set old_posn [dict get $oldrecordinfo position]
-                    if {$old_posn == -1} {
-                        lappend record_list $o_fileset_record
-                    } else {
-                        lset record_list $old_posn $o_fileset_record
-                    }
-                    if {$o_operation ne "QUERY"} {
-                        punkcheck::save_records_to_file $record_list $punkcheck_file
-                    }
-                    set o_operation_start_ts ""
-                    set o_operation ""
-                    return $o_fileset_record
-                }
-                #can supply empty cksum value
-                # - that will influence the opts used if there is no existing install record
-                method targetset_cksumcache_set {path_cksum_dict} {
-                    set o_path_cksum_cache $path_cksum_dict
-                }
-                method targetset_cksumcache_configure {path {cksuminfodict {}}} {
-                    if {$cksuminfodict eq {}} {
-                        if {[dict exists $o_path_cksum_cache $path]} {
-                            return [dict get $o_path_cksum_cache $path]
-                        } else {
-                            return
-                        }
-                    }
-                    dict for {k v} $cksuminfodict {
-                        switch -- $k {
-                            cksum - opts {}
-                            default {
-                                error "targetset_cksumcache_configure error. Unknown dict value $k. Allowed values {cksum opts}"
-                            }
-                        }
-                    }
-                    dict set o_path_cksum_cache $path $cksuminfodict
-                }
-                method targetset_addsource {source_path} {
-                    set punkcheck_file [$o_installer get_checkfile]
-                    set punkcheck_folder [file dirname $punkcheck_file]
-                    if {[file pathtype $source_path] eq "absolute"} {
-                        set rel_source_path [punkcheck::lib::path_relative $punkcheck_folder $source_path]
-                    } else {
-                        set rel_source_path $source_path
-                    }
-
-                    #installfile_add_source_and_fetch_metadata accepts list of {cksum <val> opt <cksum opts>} dictionaries - although we only have one per path from our configured cksumcache
-                    if {[dict exists $o_path_cksum_cache $rel_source_path]} {
-                        set path_cksum_caches [list [dict get $o_path_cksum_cache $rel_source_path]]
-                    } else {
-                        set path_cksum_caches [list]
-                    }
-                    set o_fileset_record [punkcheck::installfile_add_source_and_fetch_metadata $punkcheck_folder $rel_source_path $o_fileset_record $path_cksum_caches]
-                    #JJJ - update -metadata_us here?
-
-                }
-                method targetset_last_complete {} {
-                    #retrieve last completed record for the fileset ie exclude SKIPPED,INSTALL-INPROGRESS,DELETE-INPROGRESS,MODIFY-INPROGRESS
-                    set body [punkcheck::dict_getwithdefault $o_fileset_record body [list]]
-                    set previous_records [lrange $body 0 end]
-                    #get last that is tagged INSTALL-RECORD,MODIFY-RECORD,DELETE-RECORD
-                    set revlist [lreverse $previous_records]
-                    foreach rec $revlist {
-                        if {[dict get $rec tag] in [list "INSTALL-RECORD" "MODIFY-RECORD" "DELETE-RECORD" "VIRTUAL-RECORD"]} {
-                            return $rec
-                        }
-                    }
-                    return [list]
-
-                }
-                method targetset_source_changes {} {
-                    punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $o_fileset_record body] end]
-                }
-
-            }
-
-
-            oo::class create installtrack {
-                variable o_name
-                variable o_tsiso
-                variable o_ts
-                variable o_keep_events
-                variable o_checkfile
-                variable o_sourceroot
-                variable o_rel_sourceroot
-                variable o_targetroot
-                variable o_rel_targetroot
-                variable o_record_list
-                variable o_active_event
-                variable o_events
-                constructor {installername punkcheck_file} {
-                    set o_active_event ""
-                    set o_name $installername
-
-                    set o_checkfile [file normalize $punkcheck_file]
-                    set o_sourceroot ""
-                    set o_targetroot ""
-                    set o_rel_sourceroot ""
-                    set o_rel_targetroot ""
-                    #todo - validate punkcheck file location further??
-                    set punkcheck_folder [file dirname $o_checkfile]
-                    if {![file isdirectory $punkcheck_folder]} {
-                        error "[self] constructor error. Folder for punkcheck_file not found - $o_checkfile"
-                    }
-
-                    my load_all_records
-                    set resultinfo [punkcheck::recordlist::get_installer_record $o_name $o_record_list]
-                    set existing_header_posn [dict get $resultinfo position]
-                    if {$existing_header_posn == -1} {
-                        set this_installer_record [punkcheck::recordlist::new_installer_record $o_name]
-                        set o_record_list [linsert $o_record_list 0 $this_installer_record]
-                    } else {
-                        set this_installer_record [dict get $resultinfo record]
-                    }
-                    set o_tsiso [dict get $this_installer_record -tsiso]
-                    set o_ts [dict get $this_installer_record -ts]
-                    set o_keep_events [dict get $this_installer_record -keep_events]
-
-                    set o_events [oolib::collection create [namespace current]::eventcollection]
-                    set eventlist [punkcheck::dict_getwithdefault $this_installer_record body [list]]
-                    foreach e $eventlist {
-                        set eobj [punkcheck::installevent create [namespace current]::event_[my events count] [self] [dict get $e -source] [dict get $e -targets] {*}$e]
-                        #$o_events add $e [dict get $e -id]
-                        $o_events add $eobj [dict get $e -id]
-                    }
-
-                }
-                destructor {
-                    #puts "[self] destructor called"
-                }
-                method test {} {
-                    return [self]
-                }
-                method get_name {} {
-                    return $o_name
-                }
-                method get_checkfile {} {
-                    return $o_checkfile
-                }
-
-                #call set_source_target before calling start_event/end_event
-                #each event can have different source->target pairs - but may often have same, so set on installtrack as defaults. Only persisted in event records.
-                method set_source_target {sourceroot targetroot} {
-                    if {[file pathtype $sourceroot] ne "absolute"} {
-                        error "[self] set_source_target error: sourceroot must be absolute path. Received '$sourceroot'"
-                    }
-                    if {[file pathtype $targetroot] ne "absolute"} {
-                        error "[self] set_source_target error: targetroot must be absolute path. Received '$targetroot'"
-                    }
-                    set punkcheck_folder [file dirname $o_checkfile]
-                    set o_sourceroot $sourceroot
-                    set o_targetroot $targetroot
-                    set o_rel_sourceroot [punkcheck::lib::path_relative $punkcheck_folder $sourceroot]
-                    set o_rel_targetroot [punkcheck::lib::path_relative $punkcheck_folder $targetroot]
-                    return [list $o_rel_sourceroot $o_rel_targetroot]
-                }
-                #review/fix to allow multiple installtrack objects on same punkcheck file.
-                method load_all_records {} {
-                    set o_record_list [punkcheck::load_records_from_file $o_checkfile]
-                }
-
-                #does not include associated FILEINFO records - as a targetset (FILEINFO record) can be associated with events from multiple installers over time.
-                #e.g a logfile common to installers, or a separate installer that updates a previous output.
-                method as_record {} {
-                    set eventrecords [list]
-                    foreach eobj [my events items] {
-                        lappend eventrecords [$eobj as_record]
-                    }
-                    set fields [list\
-                        -tsiso       $o_tsiso\
-                        -ts          $o_ts\
-                        -name        $o_name\
-                        -keep_events $o_keep_events\
-                        body $eventrecords\
-                    ]
-                    set record [dict create tag INSTALLER {*}$fields]
-                }
-                #open file and save only own records
-                method save_all_records {} {
-                    my save_installer_record
-                    #todo - save FILEINFO targetset records
-                }
-                method save_installer_record {} {
-                    set file_records [punkcheck::load_records_from_file $o_checkfile]
-
-                    set this_installer_record [my as_record]
-
-                    set persistedinfo [punkcheck::recordlist::get_installer_record $o_name $file_records]
-                    set existing_header_posn [dict get $persistedinfo position]
-                    if {$existing_header_posn == -1} {
-                        set file_records [linsert $file_records 0 $this_installer_record]
-                    } else {
-                        lset file_records $existing_header_posn $this_installer_record
-                    }
-                    punkcheck::save_records_to_file $file_records $o_checkfile
-                }
-                method events {args} {
-                    tailcall $o_events {*}$args
-                }
-                method start_event {configdict} {
-                    if {$o_active_event ne ""} {
-                        error "[self] start_event error - event already started:   $o_active_event"
-                    }
-                    if {$o_rel_sourceroot eq "" || $o_rel_targetroot eq ""} {
-                        error "[self] No configured sourceroot or targetroot. Call [self] set_source_target <abspath_sourceroot> <abspath_targetroot> first"
-                    }
-
-                    if {[llength $configdict] %2 != 0} {
-                        error "[self] new_event configdict must have an even number of elements"
-                    }
-                    set resultinfo [punkcheck::recordlist::get_installer_record $o_name $o_record_list]
-                    set existing_header_posn [dict get $resultinfo position]
-                    if {$existing_header_posn == -1} {
-                        error "[self] start_event - installer record missing. installer: $o_name"
-                    } else {
-                        set this_installer_record [dict get $resultinfo record]
-                    }
-
-                    set eventobj [punkcheck::installevent create [namespace current]::event_[my events count] [self] $o_rel_sourceroot $o_rel_targetroot -config $configdict]
-                    set eventid [$eventobj get_id]
-                    set event_record [$eventobj as_record]
-
-                    set this_installer_record [punkcheck::recordlist::installer_record_add_event $this_installer_record $event_record]
-                    set this_installer_record [punkcheck::recordlist::installer_record_pruneevents $this_installer_record $o_record_list]
-
-                    #replace
-                    lset o_record_list $existing_header_posn $this_installer_record
-
-                    punkcheck::save_records_to_file $o_record_list $o_checkfile
-                    set o_active_event $eventobj
-                    my events add $eventobj $eventid
-                    return $eventobj
-                }
-                method installer_record_from_file {} {
-                    set resultinfo [punkcheck::recordlist::get_installer_record $o_name $o_record_list]
-                }
-                method get_recordlist {} {
-                    return $o_recordlist
-                }
-                method end_event {} {
-                    if {$o_active_event eq ""} {
-                        error "[self] end_event error - no active event"
-                    }
-                    $o_active_event end
-                }
-                method get_event {} {
-                    return $o_active_event
-                }
-            }
-        }
-        proc start_installer_event {punkcheck_file installername from_fullpath to_fullpath config} {
-            set eventid [punkcheck::uuid]
-            if {[file pathtype $from_fullpath] ne "absolute"} {
-                error "start_installer_event error: from_fullpath must be absolute path. Received '$from_fullpath'"
-            }
-            if {[file pathtype $to_fullpath] ne "absolute"} {
-                error "start_installer_event error: to_fullpath must be absolute path. Received '$to_fullpath'"
-            }
-            set punkcheck_folder [file dirname $punkcheck_file]
-            set rel_source [punkcheck::lib::path_relative $punkcheck_folder $from_fullpath]
-            set rel_target [punkcheck::lib::path_relative $punkcheck_folder $to_fullpath]
-
-
-            set record_list [punkcheck::load_records_from_file $punkcheck_file]
-            set resultinfo [punkcheck::recordlist::get_installer_record $installername $record_list]
-            set existing_header_posn [dict get $resultinfo position]
-            if {$existing_header_posn == -1} {
-                set this_installer_record [punkcheck::recordlist::new_installer_record $installername]
-            } else {
-                set this_installer_record [dict get $resultinfo record]
-            }
-
-            set event_record [punkcheck::recordlist::new_installer_event_record install\
-                -id $eventid\
-                -source $rel_source\
-                -targets $rel_target\
-                -config $config\
-            ]
-
-            set this_installer_record [punkcheck::recordlist::installer_record_add_event $this_installer_record $event_record]
-            set this_installer_record [punkcheck::recordlist::installer_record_pruneevents $this_installer_record $record_list]
-
-            if {$existing_header_posn == -1} {
-                #not found - prepend
-                set record_list [linsert $record_list 0 $this_installer_record]
-            } else {
-                #replace
-                lset record_list $existing_header_posn $this_installer_record
-            }
-
-            punkcheck::save_records_to_file $record_list $punkcheck_file
-            return [list eventid $eventid recordset $record_list]
-        }
-        #-----------------------------------------------
-        proc installfile_help {} {
-            set msg ""
-            append msg  "Call in order:" \n
-            append msg  "  start_installer_event (get dict with eventid and recordset keys)"
-            append msg  "  installfile_begin  (to return a new INSTALLING record) - must pass in a valid eventid"  \n
-            append msg  "  installfile_add_source_and_fetch_metadata (1+ times to update SOURCE record with checksum/timestamp info from source)" \n
-            append msg  "     ( - possibly with same algorithm as previous installrecord)" \n
-            append msg  "     ( - todo - search/load metadata for this source from other FILEINFO records for same installer)" \n
-            append msg  "Finalize by calling:" \n
-            append msg  "  installfile_started_install" \n
-            append msg  "  (install the file e.g file copy)" \n
-            append msg  "  installfile_finished_install" \n
-            append msg  "  OR" \n
-            append msg  "  installfile_skipped_install" \n
-        }
-        proc installfile_begin {punkcheck_folder target_relpath installername args} {
-            if {[llength $args] %2 !=0} {
-                error "punkcheck installfile_begin args must be name-value pairs"
-            }
-            set target_relpath [lsort -dictionary -increasing $target_relpath] ;#exact sort order not critical - but must be consistent
-            set ts [clock microseconds]
-            set seconds [expr {$ts / 1000000}]
-            set tsiso [clock format $seconds -format "%Y-%m-%dT%H:%M:%S"]
-            set defaults [list\
-                -tsiso $tsiso\
-                -ts $ts\
-                -installer $installername\
-                -eventid unspecified\
-                ]
-            set opts [dict merge $defaults $args]
-            set opt_eventid [dict get $opts -eventid]
-
-            set punkcheck_file [file join $punkcheck_folder/.punkcheck]
-            set record_list [load_records_from_file $punkcheck_file]
-
-            set resultinfo [punkcheck::recordlist::get_installer_record $installername $record_list]
-            set installer_record_position [dict get $resultinfo position]
-            if {$installer_record_position == -1} {
-                error "installfile_begin error: Failed to retrieve installer record for installer name:'$installername' - ensure start_installer_event has been called with same installer, and -eventid is passed to installfile_begin"
-            }
-            set this_installer_record [dict get $resultinfo record]
-            set events [dict get $this_installer_record body]
-            set active_event [list]
-            foreach evt [lreverse $events] {
-                if {[dict get $evt -id] eq $opt_eventid} {
-                    set active_event $evt
-                    break
-                }
-            }
-            if {![llength $active_event]} {
-                error "installfile_begin error: eventid $opt_eventid not found for installer '$installername' - aborting"
-            }
-
-
-            set extractioninfo [punkcheck::recordlist::extract_or_create_fileset_record $target_relpath $record_list]
-            set file_record [dict get $extractioninfo record]
-            set record_list [dict get $extractioninfo recordset]
-            set isnew       [dict get $extractioninfo isnew]
-            set oldposition [dict get $extractioninfo oldposition]
-            unset extractioninfo
-
-            #INSTALL-INPROGRESS will become INSTALL-RECORD or INSTALL-FAILED or INSTALL-SKIPPED upon finalisation
-            #-installer and -eventid keys are added here
-            set new_installing_record [dict create tag INSTALL-INPROGRESS {*}$opts -tempcontext $active_event body {}]
-            #set existing_body [dict_getwithdefault $file_record body [list]]
-            #todo - look for existing "INSTALL-INPROGRESS" records - mark as failed?
-            dict lappend file_record body $new_installing_record
-
-            if {$isnew} {
-                lappend record_list $file_record
-            } else {
-                set record_list [linsert $record_list[unset record_list] $oldposition $file_record]
-            }
-
-            save_records_to_file $record_list $punkcheck_file
-            return $file_record
-        }
-
-        #todo - ensure that removing a dependency is noticed as a change
-        #e.g previous installrecord had 2 source records - but we now only depend on one.
-        #The files we depended on for the previous record haven't changed themselves - but the list of files has (reduced by one)
-        #cached_cksums is list of dicts with keys cksum & opts
-        #Will only be used if any  opts values present match  those from file_record's -cksum_all_opts (in last install record) or first cached_cksum will be used if no last install record values
-        proc installfile_add_source_and_fetch_metadata {punkcheck_folder source_relpath file_record {cached_cksums {}}} {
-            if {![lib::is_file_record_inprogress $file_record]} {
-                error "installfile_add_source_and_fetch_metadata error: bad file_record - expected FILEINFO with last body element *-INPROGRESS ($file_record)"
-            }
-            #validate any passed cached_cksums
-            foreach cacheinfo $cached_cksums {
-                if {[llength $cacheinfo] % 2 != 0} {
-                    error "installfile_add_source_and_fetch_metadata error.If cached_cksums is supplied, it must be a list of dicts containing keys cksum & opts"
-                }
-                dict for {k v} $cacheinfo {
-                    switch -- $k {
-                        cksum {}
-                        opts {
-                            #todo - validate $v keys
-                        }
-                        default {
-                            error "installfile_add_source_and_fetch_metadata error. Unrecognised key $k. Known keys {cksum opts}"
-                        }
-                    }
-
-                }
-            }
-            set ts_start [clock microseconds]
-            set last_installrecord [lib::file_record_get_last_installrecord $file_record]
-            set prev_ftype ""
-            set prev_fsize ""
-            set prev_cksum ""
-            set prev_cksum_opts ""
-            if {[llength $last_installrecord]} {
-                set src [lib::install_record_get_matching_source_record $last_installrecord $source_relpath]
-                if {[llength $src]} {
-                    if {[dict_getwithdefault $src -path ""] eq $source_relpath} {
-                        set prev_ftype [dict_getwithdefault $src -type ""]
-                        set prev_fsize [dict_getwithdefault $src -size ""]
-                        set prev_cksum [dict_getwithdefault $src -cksum ""]
-                        set prev_cksum_opts [dict_getwithdefault $src -cksum_all_opts ""]
-                    }
-                }
-            }
-            #check that this relpath not already added as child of *-INPROGRESS
-            set file_record_body [dict_getwithdefault $file_record body [list]] ;#new file_record may have no body
-            set installing_record [lindex $file_record_body end]
-            set already_present_record [lib::install_record_get_matching_source_record $installing_record $source_relpath]
-            if {[llength $already_present_record]} {
-                error "installfile_add_source_and_fetch_metadata error: source path $source_relpath already exists in the file_record - cannot add again"
-            }
-
-            set use_cache 0
-            if {$prev_cksum_opts ne ""} {
-                set cksum_opts $prev_cksum_opts
-                #find first cached_cksum that is compatible with cksum opts used in latest install record
-                foreach cacheinfo $cached_cksums {
-                    set cachedopts [dict get $cacheinfo opts]
-                    set cache_is_match 1
-                    dict for {k v} $cachedopts {
-                        if {[dict exists $prev_cksum_opts $k] && $v ne [dict get $prev_cksum_opts $k]} {
-                            set cache_is_match 0
-                            break
-                        }
-                    }
-                    if {$cache_is_match} {
-                        set use_cache_record $cacheinfo
-                        set use_cache 1
-                        break
-                    }
-                }
-
-            } else {
-                #no cksum opts available from an install record
-                set cksum_opts ""
-                #use first entry in cached_cksums if we can
-                if {[llength $cached_cksums]} {
-                    set use_cache 1
-                    set use_cache_record [lindex $cached_cksums 0]
-                }
-            }
-
-            #todo - accept argument of cached source cksum info (for client calling multiple targets with same source in quick succession e.g when building .vfs kits with multiple runtimes)
-            #if same cksum_opts - then use cached data instead of checksumming here.
-
-            #allow nonexistant as a source
-            set fpath [file join $punkcheck_folder $source_relpath]
-            #windows: file exist + file type = 2ms vs 500ms for 2x glob
-            set floc   [file dirname $fpath]
-            set fname  [file tail $fpath]
-            set file_set  [glob -nocomplain -dir $floc -type f -tails $fname]
-            set dir_set   [glob -nocomplain -dir $floc -type d -tails $fname]
-            set link_set  [glob -nocomplain -dir $floc -type l -tails $fname]
-            if {[llength $file_set] == 0 && [llength $dir_set] == 0 && [llength $link_set] == 0} {
-                #could also theoretically exist as less common types, b,c,p,s (block,char,pipe,socket)
-                #- we don't expect them here - REVIEW - ever possible?
-                #- installing/examining such things an unlikely usecase and would require special handling anyway.
-                set ftype "missing"
-                set fsize ""
-            } else {
-                if {[llength $dir_set]} {
-                    set ftype "directory"
-                    set fsize "NA"
-                } elseif {[llength $link_set]} {
-                    set ftype "link"
-                    set fsize 0
-                } else {
-                    set ftype "file"
-                    #todo - optionally use mtime instead of cksum (for files only)?
-                    #mtime is not reliable across platforms and filesystems though.. see article linked at top.
-                    set fsize [file size $fpath]
-                }
-            }
-
-            #if {![file exists $fpath]} {
-            #    set ftype "missing"
-            #    set fsize ""
-            #} else {
-            #    set ftype [file type $fpath]
-            #    if {$ftype eq "directory"} {
-            #        set fsize "NA"
-            #    } else {
-            #        #todo - optionally use mtime instead of cksum (for files only)?
-            #        #mtime is not reliable across platforms and filesystems though.. see article linked at top.
-            #        set fsize [file size $fpath]
-            #    }
-            #}
-            #get_relativecksum_from_base and fill_relativecksums_from_base_and_relativepathdict will set cksum to <PATHNOTFOUND> if fpath doesn't exist
-            if {$use_cache} {
-                set source_cksum_info [punk::mix::base::lib::fill_relativecksums_from_base_and_relativepathdict $punkcheck_folder [dict create $source_relpath $use_cache_record]]
-            } else {
-                set source_cksum_info [punk::mix::base::lib::get_relativecksum_from_base $punkcheck_folder $source_relpath {*}$cksum_opts]
-            }
-
-
-            lassign $source_cksum_info pathkey ckinfo
-            if {$pathkey ne $source_relpath} {
-                error "installfile_add_source_and_fetch_metadata error: cksum returned wrong path info '$pathkey' expected '$source_relpath'"
-            }
-            set cksum [dict get $ckinfo cksum]
-            #set cksum_all_opts [dict get $ckinfo cksum_all_opts]
-            set cksum_all_opts [dict get $ckinfo opts]
-            if {$cksum ne $prev_cksum || $ftype ne $prev_ftype || $fsize ne $prev_fsize} {
-                set changed 1
-            } else {
-                set changed 0
-            }
-            set installing_record_sources [dict_getwithdefault $installing_record body [list]]
-            set ts_now [clock microseconds] ;#gathering metadata - especially checksums on folder can take some time - calc and store elapsed us for time taken to gather metadata
-            set metadata_us [expr {$ts_now - $ts_start}]
-            set this_source_record [dict create tag SOURCE -type $ftype -size $fsize -path $source_relpath -cksum $cksum -cksum_all_opts $cksum_all_opts -changed $changed -metadata_us $metadata_us]
-            lappend installing_record_sources $this_source_record
-            dict set installing_record body $installing_record_sources
-
-            lset file_record_body end $installing_record
-
-            dict set file_record body $file_record_body
-            return $file_record
-        }
-
-        #write back to punkcheck - don't accept recordset - invalid to update anything other than the installing_record at this time
-        proc installfile_started_install {punkcheck_folder file_record} {
-            if {![lib::is_file_record_inprogress $file_record]} {
-                error "installfile_started_install error: bad file_record - expected FILEINFO with last body element *-INPROGRESS"
-            }
-            set punkcheck_file [file join $punkcheck_folder/.punkcheck]
-            set record_list [load_records_from_file $punkcheck_file]
-
-            set file_record_body [dict get $file_record body]
-            set targetlist [dict get $file_record -targets]
-            set installing_record [lindex $file_record_body end]
-
-            set ts_start [dict get $installing_record -ts]
-            set ts_now [clock microseconds]
-            set metadata_us [expr {$ts_now - $ts_start}]
-
-            dict set installing_record -metadata_us $metadata_us
-            dict set installing_record -ts_start_transfer $ts_now
-
-            lset file_record_body end $installing_record
-
-            dict set file_record body $file_record_body
-
-
-            set getresult [punkcheck::recordlist::get_file_record $targetlist $record_list]
-            set old_posn [dict get $getresult position]
-            if {$old_posn == -1} {
-                lappend record_list $file_record
-            } else {
-                lset record_list $old_posn $file_record
-            }
-
-            save_records_to_file $record_list $punkcheck_file
-            return $file_record
-        }
-        proc installfile_finished_install {punkcheck_folder file_record} {
-            if {![lib::is_file_record_inprogress $file_record]} {
-                error "installfile_finished_install error: bad file_record - expected FILEINFO with last body element *-INPROGRESS"
-            }
-            set punkcheck_file [file join $punkcheck_folder/.punkcheck]
-            set record_list [load_records_from_file $punkcheck_file]
-
-            set file_record_body [dict get $file_record body]
-            set targetlist [dict get $file_record -targets]
-            set installing_record [lindex $file_record_body end]
-
-            set ts_start [dict get $installing_record -ts]
-            set ts_start_transfer [dict get $installing_record -ts_start_transfer]
-            set ts_now [clock microseconds]
-            set elapsed_us [expr {$ts_now - $ts_start}]
-            set transfer_us [expr {$ts_now - $ts_start_transfer}]
-            dict set installing_record  -transfer_us $transfer_us
-            dict set installing_record -elapsed_us $elapsed_us
-            dict unset installing_record -tempcontext
-            dict set installing_record tag "INSTALL-RECORD"
-
-            lset file_record_body end $installing_record
-            dict set file_record body $file_record_body
-
-            set file_record [punkcheck::recordlist::file_record_prune $file_record]
-
-            set oldrecordinfo [punkcheck::recordlist::get_file_record $targetlist $record_list]
-            set old_posn [dict get $oldrecordinfo position]
-            if {$old_posn == -1} {
-                lappend record_list $file_record
-            } else {
-                lset record_list $old_posn $file_record
-            }
-
-            save_records_to_file $record_list $punkcheck_file
-            return $file_record
-        }
-        proc installfile_skipped_install {punkcheck_folder file_record} {
-            if {![lib::is_file_record_inprogress $file_record]} {
-                set msg "installfile_skipped_install error: bad file_record - expected FILEINFO with last body element *-INPROGRESS"
-                append msg \n "received:"
-                append msg \n $file_record
-                error $msg
-            }
-            set punkcheck_file [file join $punkcheck_folder/.punkcheck]
-            set record_list [load_records_from_file $punkcheck_file]
-
-            set file_record_body [dict get $file_record body]
-            set targetlist [dict get $file_record -targets]
-            set installing_record [lindex $file_record_body end]
-
-            set ts_start [dict get $installing_record -ts]
-            set tsnow [clock microseconds]
-            set elapsed_us [expr {$tsnow - $ts_start}]
-            dict set installing_record -elapsed_us $elapsed_us
-            dict set installing_record tag "INSTALL-SKIPPED"
-
-            lset file_record_body end $installing_record
-            dict set file_record body $file_record_body
-
-            set file_record [punkcheck::recordlist::file_record_prune $file_record]
-
-            set getresult [punkcheck::recordlist::get_file_record $targetlist $record_list]
-            set old_posn [dict get $getresult position]
-            if {$old_posn == -1} {
-                lappend record_list $file_record
-            } else {
-                lset record_list $old_posn $file_record
-            }
-
-            save_records_to_file $record_list $punkcheck_file
-            return $file_record
-        }
-        #-----------------------------------------------
-        #then: file_record_add_installrecord
-
-        namespace eval lib {
-            set pkg punkcheck
-            namespace path ::punkcheck
-            proc is_file_record_inprogress {file_record} {
-                if {[dict get $file_record tag] ne "FILEINFO"} {
-                    return 0
-                }
-                set installing_record [lindex [dict_getwithdefault $file_record body [list]] end]
-                if {[dict_getwithdefault $installing_record tag [list]] ni [list QUERY-INPROGRESS INSTALL-INPROGRESS MODIFY-INPROGRESS DELETE-INPROGRESS VIRTUAL-INPROGRESS]} {
-                    return 0
-                }
-                return 1
-            }
-            proc is_file_record_installing {file_record} {
-                if {[dict get $file_record tag] ne "FILEINFO"} {
-                    return 0
-                }
-                set installing_record [lindex [dict_getwithdefault $file_record body [list]] end]
-                if {[dict_getwithdefault $installing_record tag [list]] ne "INSTALL-INPROGRESS"} {
-                    return 0
-                }
-                return 1
-            }
-            proc file_record_get_last_installrecord {file_record} {
-                set body [dict_getwithdefault $file_record body [list]]
-                set previous_install_records [lrange $body 0 end-1]
-                #get last previous that is tagged INSTALL-RECORD,MODIFY-RECORD,VIRTUAL-RECORD
-                #REVIEW DELETERECORD ???
-                set revlist [lreverse $previous_install_records]
-                foreach rec $revlist {
-                    if {[dict get $rec tag] in [list "INSTALL-RECORD" "MODIFY-RECORD" "VIRTUAL-RECORD"]} {
-                        return $rec
-                    }
-                }
-                return [list]
-            }
-
-            #should work on *-INPROGRESS or INSTALL(etc) record - don't restrict tag to INSTALL
-            proc install_record_get_matching_source_record {install_record source_relpath} {
-                set body [dict_getwithdefault $install_record body [list]]
-                foreach src $body {
-                    if {[dict get $src tag] eq "SOURCE"} {
-                        if {[dict_getwithdefault $src -path ""] eq $source_relpath} {
-                            return $src
-                        }
-                    }
-                }
-                return [list]
-            }
-
-
-
-            #maint warning - also in punk::mix::util
-            proc path_relative {base dst} {
-                #see also kettle
-                # Modified copy of ::fileutil::relative (tcllib)
-                # Adapted to 8.5 ({*}).
-                #
-                #    Taking two _directory_ paths, a base and a destination, computes the path
-                #    of the destination relative to the base.
-                #
-                # Arguments:
-                #    base    The path to make the destination relative to.
-                #    dst     The destination path
-                #
-                # Results:
-                #    The path of the destination, relative to the base.
-
-                # Ensure that the link to directory 'dst' is properly done relative to
-                # the directory 'base'.
-
-                #review - check volume info on windows.. UNC paths?
-                if {[file pathtype $base] ne [file pathtype $dst]} {
-                    return -code error "Unable to compute relation for paths of different pathtypes: [file pathtype $base] vs. [file pathtype $dst], ($base vs. $dst)"
-                }
-
-                #avoid normalizing if possible - at least for relative paths which we are likely to loop on (file normalize *very* expensive on windows)
-                set do_normalize 0
-                if {[file pathtype $base] eq "relative"} {
-                    #if base is relative so is dst
-                    if {[regexp {[.]{2}} [list $base $dst]]} {
-                        set do_normalize 1
-                    }
-                    if {[regexp {[.]/} [list $base $dst]]} {
-                        set do_normalize 1
-                    }
-                } else {
-                    #case differences in volumes is common on windows
-                    set do_normalize 1
-                }
-                if {$do_normalize} {
-                    set base [file normalize $base]
-                    set dst  [file normalize $dst]
-                }
-
-                set save $dst
-                set base [file split $base]
-                set dst  [file split $dst]
-
-                while {[lindex $dst 0] eq [lindex $base 0]} {
-                    set dst  [lrange $dst  1 end]
-                    set base [lrange $base 1 end]
-                    if {![llength $dst]} {break}
-                }
-
-                set dstlen  [llength $dst]
-                set baselen [llength $base]
-
-                if {($dstlen == 0) && ($baselen == 0)} {
-                    # Cases:
-                    # (a) base == dst
-
-                    set dst .
-                    } else {
-                    # Cases:
-                    # (b) base is: base/sub = sub
-                    #     dst  is: base     = {}
-
-                    # (c) base is: base     = {}
-                    #     dst  is: base/sub = sub
-
-                    while {$baselen > 0} {
-                        set dst [linsert $dst 0 ..]
-                        incr baselen -1
-                    }
-                    set dst [file join {*}$dst]
-                }
-
-                return $dst
-            }
-        }
-        #skip writing punkcheck during checksum/timestamp checks
-
-        #todo - punk::args - fetch from punkcheck::install (with overrides)
-        proc install_tm_files {srcdir basedir args} {
-            set defaults [list\
-                -glob *.tm\
-                -antiglob_file [list "*[punk::mix::util::magic_tm_version]*"]\
-                -installer punkcheck::install_tm_files\
-                ]
-            set opts [dict merge $defaults $args]
-            punkcheck::install $srcdir $basedir {*}$opts
-        }
-        proc install_non_tm_files {srcdir basedir args} {
-            #set keys [dict keys $args]
-            #adjust the default antiglob_dir_core entries so that .fossil-custom, .fossil-settings are copied
-            set antiglob_dir_core [punkcheck::default_antiglob_dir_core]
-            set posn [lsearch $antiglob_dir_core ".fossil*"]
-            if {$posn >=0} {
-                set antiglob_dir_core [lreplace $antiglob_dir_core $posn $posn]
-            }
-            set defaults [list\
-                -glob *\
-                -antiglob_file [list "*.tm" "*-buildversion.txt" "*.exe"]\
-                -antiglob_dir_core $antiglob_dir_core\
-                -installer punkcheck::install_non_tm_files\
-                ]
-            set opts [dict merge $defaults $args]
-            punkcheck::install $srcdir $basedir {*}$opts
-        }
-
-        #for tcl8.6 - tcl8.7+ has dict getwithdefault (dict getdef)
-        proc dict_getwithdefault {dictValue args} {
-            if {[llength $args] < 2} {
-                error {wrong # args: should be "dict_getdef dictionary ?key ...? key default"}
-            }
-            set keys [lrange $args 0 end-1]
-            if {[dict exists $dictValue {*}$keys]} {
-                return [dict get $dictValue {*}$keys]
-            } else {
-                return [lindex $args end]
-            }
-        }
-        lappend PUNKARGS [list {
-            @id -id ::punkcheck::install
-            @cmd -name ::punkcheck::install -help\
-                "Unidirectional file transfer to possibly non-empty target folder.
-                This is the simpler form of the API, performing a transfer from one
-                directory tree to another, copying each file when changes in the source
-                file are detected.
-                Changes are detected by content checksum. The first install will record
-                source checksums in a .punkcheck file (ideally located at the root of the
-                target folder). Subsequent installs will compare stored checksums with
-                the current checksums of the source files.
-                For more advanced install operations, the object command installtrack
-                can be used to define install operations. e.g when the transfer is not
-                one-to-one and a target file depends on multiple source files."
-            @leaders -min 2 -max 2
-            srcdir -type directory
-            tgtdir -type directory
-            -call-depth-internal -type integer -default 0 -help "(internal recursion tracker)"
-            -subdirlist -type list -default "" -help "(primarily internal - length generally matching -call-depth-internal)"
-            -max_depth -type integer -default 1000 -help\
-                "Deepest subdirectory - use -1 for no limit."
-            -createdir -type boolean -default 0 -help\
-                "Whether to create the folder at tgtdir.
-                  Any required subdirectories are created regardless of this setting."
-            -createempty -type boolean -default 0 -help\
-                "Whether to create folders at target that had no matches for our glob"
-            -glob -type string -default "*" -help\
-                "Pattern matching for source file(s) to copy. Can be glob based or exact match."
-            -antiglob_file_core -default {${[::punkcheck::default_antiglob_file_core]}}
-            -antiglob_file -default ""
-            -antiglob_dir_core -default  {${[::punkcheck::default_antiglob_dir_core]}}
-            -antiglob_dir -default ""
-            -antiglob_paths -default {}
-            -overwrite      -default no-targets\
-                -choices {no-targets newer-targets older-targets all-targets installedsourcechanged-targets synced-targets}\
-                -choicecolumns 1\
-                -choicelabels {
-                    no-targets      "only copy files that are missing at the target"
-                    newer-targets   "copy files with older source timestamp over newer
-                target timestamp and those missing at the target
-                (a form of 'restore' operation)"
-                    older-targets   "copy files with newer source timestamp over older
-                target timestamp and those missing at the target"
-                    all-targets     "copy regardless of timestamp at target"
-                    installedsourcechanged-targets "copy if the target doesn't exist or the source changed"
-                    synced-targets  "copy if the target doesn't exist or the source changed
-                and the target cksum is the same as the last INSTALL-RECORD -targets_cksums entry"
-                }
-            -source_checksum  -default comparestore -choicecolumns 3 -choices {compare store comparestore false true}\
-                                -choicelabels {
-                                    true "same as comparestore"
-                                }
-            -punkcheck_folder -default target -choices {target source project} -choicerestricted 0 -help\
-                "The location of the .punkcheck file to track installations and checksums.
-                  The default value 'target' is generally recommended.
-                  Can also be an absolute path to a folder."
-            -punkcheck_records -default "" -help\
-                "Empty string or a parsed TDL records structure.
-                e.g
-                {tag FILEINFO -<opt> <val>... body {
-                        {tag INSTALL-RECORD -<opt> <val>... body {<sublist>}}
-                        ...
-                    }...
-                }"
-            -installer -default "punkcheck::install" -help\
-                "A user nominated string that is stored in the .punkcheck file
-                  This might be the name of a script or installation process."
-            -progresschannel -default none -type string -help\
-                "Name of channel e.g stderr, stdout to which progress messages are written.
-                  This includes the tree-like output consisting of dots (or green U) for each
-                  file processed. As the number of files in a tree is not known beforehand,
-                  it isn't useful for a percentage-based progress meter, but it could potentially
-                  be used to drive a spinner if the textual data is not desired.
-                  Setting to none or an invalid channel will deactivate the output."
-        }]
-        ## unidirectional file transfer to possibly non empty folder
-        #default of -overwrite no-targets will only copy files that are missing at the target
-        #           -overwrite newer-targets will copy files with older source timestamp over newer target timestamp and those missing at the target (a form of 'restore' operation)
-        #           -overwrite older-targets will copy files with newer source timestamp over older target timestamp and those missing at the target
-        #           -overwrite all-targets will copy regardless of timestamp at target
-        #           -overwrite installedsourcechanged-targets will copy if the target doesn't exist or the source changed
-        #           -overwrite synced-targets will copy if the target doesn't exist or the source changed and the target cksum is the same as the last INSTALL-RECORD -targets_cksums entry
-        #           review - timestamps unreliable
-        #            - what about slightly mismatched system clocks and mounted filesystems? caller responsibility to verify first?
-        #           if timestamp exactly equal -  should we check content-hash? This is presumably only likely to occur deliberately(maliciously?)
-        #           e.g some process that digitally signs or otherwise modifies a file and preserves update timestmp?
-        #           if such a content-mismatch - what default behaviour and what options would make sense?
-        #           probably it's reasonable that only all-targets would overwrite such files.
-        #           consider -source_fudge_seconds  +-X  ?,  -source_override_timestamp ts  ???  etc which only adjust timestamp for calculation purposes? Define a specific need/usecase when reviewing.
-        #
-        # valid filetypes for src tgt
-        #  src dir      tgt dir
-        #  todo - review and consider enabling symlink src and dst
-        #  no need for src file  - as we use -glob with no glob characters to match one  source file file
-        #  no ability to target file with different name - keep it simpler and caller will have to use an intermediate folder/file if they need to rename something?
-        #
-        #  todo - determine what happens if mismatch between file type of a src vs target e.g target has dir matching filename at source
-        #  A pre-scan to determine no such conflict - before attempting to copy anything might provide the most integrity at slight cost in speed.
-        #  REVIEW  we should only expect dirs to be created as necessary to hold files? i.e target folder won't be created if no source file matches for that folder
-        #  -source_checksum  compare|store|comparestore|false|true  where true == comparestore
-        #  -punkcheck_folder target|source|project|<absolutepath>  target is default and is generally recommended
-        #  -punkcheck_records empty string | parsed TDL records ie {tag xxx k v}  structure
-        # install creates FILEINFO records with a single entry in the -targets field (it is legitimate to have a list of targets for an installation operation - the oo interface supports this)
-        proc install {srcdir tgtdir args} {
-            set defaults [list\
-                -call-depth-internal 0\
-                -max_depth 1000\
-                -subdirlist {}\
-                -createdir 0\
-                -createempty 0\
-                -glob *\
-                -antiglob_file_core "\uFFFF"\
-                -antiglob_file "" \
-                -antiglob_dir_core "\uFFFF"\
-                -antiglob_dir {}\
-                -antiglob_paths {}\
-                -overwrite no-targets\
-                -source_checksum comparestore\
-                -punkcheck_folder target\
-                -punkcheck_eventid "\uFFFF"\
-                -punkcheck_records ""\
-                -installer punkcheck::install\
-                -progresschannel none\
-                ]
-
-            if {([llength $args] %2) != 0} {
-                error "punkcheck::install requires option-style arguments to be in pairs. Received args: $args"
-            }
-            foreach {k -} $args {
-                if {$k ni [dict keys $defaults]} {
-                    error "punkcheck::install  unrecognised option '$k' known options: '[dict keys $defaults]'"
-                }
-            }
-            set opts [dict merge $defaults $args]
-
-            #The choice to recurse using the original values of srcdir & tgtdir, and passing the subpath down as a list in -subdirlist seems an odd one.
-            #(as opposed to a more 'standard' mechanism of adjusting srcdir & tgtdir as we move down the tree)
-            #It comes from build_modules_from_source_to_base where we need to keep track of position relative to our targetdir starting point to handle submodules e.g pkg::something::mypkg-0.1.tm
-            #It could have been handled with some other parameter such as -depth, but this -subdirlist mechanism, whilst perhaps not beautiful, is straightforward enough
-            #and may be less error prone than doing slightly more opaque path manipulations at each recursion level to determine where we started
-            #For consistency - we'll use the same mechanism in various recursive directory walking procedures such as this one.
-            set CALLDEPTH                               [dict get $opts -call-depth-internal] ;#added for extra debug/sanity checking - clearer test for initial function call ie CALLDEPTH = 0
-            set max_depth                               [dict get $opts -max_depth] ;# -1 for no limit
-            set subdirlist                              [dict get $opts -subdirlist] ;# generally should be same length as CALLDEPTH - but user could prefill
-            set fileglob                                [dict get $opts -glob]
-            set createdir                               [dict get $opts -createdir] ;#defaults to zero to help avoid mistakes with initial target dir - required target subdirs are created regardless of this setting
-            set opt_createempty                         [dict get $opts -createempty]
-            set opt_progresschannel                     [dict get $opts -progresschannel]
-            if {$opt_progresschannel in {"" none} || [catch {chan configure $opt_progresschannel}]} {
-                set opt_progresschannel ""
-            }
-
-            if {$CALLDEPTH == 0} {
-                #expensive to normalize  but we need to do it at least once
-                set srcdir [file normalize $srcdir]
-                set tgtdir [file normalize $tgtdir]
-                if {$createdir} {
-                    file mkdir $tgtdir
-                } else {
-                    if {![file exists $tgtdir]} {
-                        error "punkcheck::install base target dir:'$tgtdir' doesn't exist (srcdir:$srcdir tgtdir:$tgtdir args:'$args')"
-                    }
-                }
-                if {([file type $srcdir] ni [list directory]) || ([file type $tgtdir] ni [list directory])} {
-                    error "punkcheck::install requires source and target dirs to be of type 'directory' type current source: [file type $srcdir] type current target: [file type $tgtdir]"
-                }
-                #now the values we build from these will be properly cased
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_antiglob_file_core                  [dict get $opts -antiglob_file_core]
-            if {$opt_antiglob_file_core eq "\uFFFF"} {
-                set opt_antiglob_file_core [default_antiglob_file_core]
-                dict set opts -antiglob_file_core $opt_antiglob_file_core
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_antiglob_file                       [dict get $opts -antiglob_file]
-            #validate no path seps
-            foreach af $opt_antiglob_file {
-                if {[llength [file split $af]] > 1} {
-                    error "punkcheck::install received invalid -antiglob_file entry '$af'. -antiglob_file entries are meant to match to a file name at any level so cannot contain path separators"
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_antiglob_dir_core                   [dict get $opts -antiglob_dir_core]
-            if {$opt_antiglob_dir_core eq "\uFFFF"} {
-                set opt_antiglob_dir_core [default_antiglob_dir_core]
-                dict set opts -antiglob_dir_core $opt_antiglob_dir_core
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_antiglob_dir                        [dict get $opts -antiglob_dir]
-            #validate no path seps
-            foreach ad $opt_antiglob_dir {
-                if {[llength [file split $ad]] > 1} {
-                    error "punkcheck::install received invalid -antiglob_dir entry '$ad'. -antiglob_dir entries are meant to match to a directory name at any level so cannot contain path separators"
-                }
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_antiglob_paths                     [dict get $opts -antiglob_paths] ;#todo - combine with config file in source tree .punkcheckpublish (?)
-            #antiglob_paths will usually contain file separators - and may contain glob patterns within each segment
-            set antiglob_paths_matched [list]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set known_whats [list no-targets newer-targets older-targets all-targets installedsourcechanged-targets synced-targets]
-            set overwrite_what                          [string tolower [dict get $opts -overwrite]]; #accept any case for value to allow emphasis by caller e.g -overwrite NEWER-TARGETS
-            if {$overwrite_what ni $known_whats} {
-                error "punkcheck::install received unrecognised value for -overwrite. Received value '$overwrite_what' vs known values '$known_whats'"
-            }
-            if {$overwrite_what in [list newer-targets older-targets]} {
-                error "punkcheck::install newer-target, older-targets not implemented - sorry"
-                #TODO - check crossplatform availability of ctime  (on windows it still seems to be creation time, but on bsd/linux it's last attribute mod time)
-                # external pkg?  use twapi and ctime only on other platforms?
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_source_checksum                     [dict get $opts -source_checksum]
-            if {[string is boolean $opt_source_checksum]} {
-                if {$opt_source_checksum} {
-                    set opt_source_checksum "comparestore"
-                } else {
-                    set opt_source_checksum 0
-                }
-                dict set opts -source_checksum $opt_source_checksum
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_punkcheck_folder                    [dict get $opts -punkcheck_folder]
-            if {$opt_punkcheck_folder eq "target"} {
-                set punkcheck_folder $tgtdir
-            } elseif {$opt_punkcheck_folder eq "source"} {
-                set punkcheck_folder $srcdir
-            } elseif {$opt_punkcheck_folder eq "project"} {
-                set sourceprojectinfo [punk::repo::find_repos $srcdir]
-                set targetprojectinfo [punk::repo::find_repos $tgtdir]
-                set srcproj [lindex [dict get $sourceprojectinfo project] 0]
-                set tgtproj [lindex [dict get $targetprojectinfo project] 0]
-                if {$srcproj eq $tgtproj} {
-                    set punkcheck_folder $tgtproj
-                } else {
-                    error "copy_files_from_source_to_target error: Unable to find common project dir for source and target folder - use absolutepath for -punkcheck_folder if source and target are not within same project"
-                }
-            } else {
-                set punkcheck_folder $opt_punkcheck_folder
-            }
-            if {$punkcheck_folder ne ""} {
-                if {[file pathtype $punkcheck_folder] ne "absolute"} {
-                    error "copy_files_from_source_to_target error: -punkcheck_folder '$punkcheck_folder' must be an absolute path, or one of: target|source|project"
-                }
-                if {![file isdirectory $punkcheck_folder]} {
-                    error "copy_files_from_source_to_target error: -punkcheck_folder '$punkcheck_folder' not found"
-                }
-            } else {
-                #review - leave empty? use pwd?
-            }
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set punkcheck_records                       [dict get $opts -punkcheck_records]
-            set punkcheck_records_init $punkcheck_records ;#change-detection
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_installer                           [dict get $opts -installer]
-            # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-            set opt_punkcheck_eventid                             [dict get $opts -punkcheck_eventid]
-
-
-
-            set punkcheck_file [file join $punkcheck_folder/.punkcheck]
-
-            if {$CALLDEPTH == 0} {
-                set punkcheck_eventid "<invalid>"
-                if {$punkcheck_folder ne ""} {
-                    set config $opts
-                    dict unset config -call-depth-internal
-                    dict unset config -max_depth
-                    dict unset config -subdirlist
-                    dict unset config -progresschannel
-                    tcl::dict::for {k v} $config {
-                        if {$v eq "\uFFFF"} {
-                            dict unset config $k
-                        }
-                    }
-                    lassign [punkcheck::start_installer_event $punkcheck_file $opt_installer $srcdir $tgtdir $config] _eventid punkcheck_eventid _recordset punkcheck_records
-                }
-            } else {
-                set punkcheck_eventid $opt_punkcheck_eventid
-            }
-
-
-
-            if {$opt_source_checksum != 0} {
-                #we need to read the file even if only set to store (or we would overwrite entries)
-                set compare_cksums 1
-            } else {
-                set compare_cksums 0
-            }
-
-            if {[string match *store* $opt_source_checksum]} {
-                set store_source_cksums 1
-            } else {
-                set store_source_cksums 0
-            }
-
-
-
-
-
-            if {[llength $subdirlist] == 0} {
-                set current_source_dir $srcdir
-                set current_target_dir $tgtdir
-            } else {
-                set current_source_dir $srcdir/[file join {*}$subdirlist]
-                set current_target_dir $tgtdir/[file join {*}$subdirlist]
-            }
-
-
-            set relative_target_dir [lib::path_relative $tgtdir $current_target_dir]
-            if {$relative_target_dir eq "."} {
-                set relative_target_dir ""
-            }
-            set relative_source_dir [lib::path_relative $srcdir $current_source_dir]
-            if {$relative_source_dir eq "."} {
-                set relative_source_dir ""
-            }
-            set target_relative_to_punkcheck_dir [lib::path_relative $punkcheck_folder $current_target_dir]
-            if {$target_relative_to_punkcheck_dir eq "."} {
-                set target_relative_to_punkcheck_dir ""
-            }
-            foreach unpub $opt_antiglob_paths {
-                #puts "testing folder - globmatchpath $unpub $relative_source_dir"
-                if {[punk::path::globmatchpath $unpub $relative_source_dir]} {
-                    lappend antiglob_paths_matched $current_source_dir
-                    return [list files_copied {} files_skipped {} sources_unchanged {} punkcheck_records $punkcheck_records antiglob_paths_matched $antiglob_paths_matched srcdir $srcdir tgtdir $tgtdir punkcheck_folder $punkcheck_folder]
-                }
-            }
-
-
-            if {![file exists $current_source_dir]} {
-                error "punkcheck::install current source dir:'$current_source_dir' doesn't exist (srcdir:$srcdir tgtdir:$tgtdir args:'$args')"
-            }
-
-            set files_copied [list]
-            set files_skipped [list]
-            set sources_unchanged [list]
-
-
-            set candidate_list [glob -nocomplain -dir $current_source_dir -type f -tail $fileglob]
-            set hidden_candidate_list [glob -nocomplain -dir $current_source_dir -types {hidden f} -tail $fileglob]
-            foreach h $hidden_candidate_list {
-                if {$h ni $candidate_list} {
-                    lappend candidate_list $h
-                }
-            }
-            set match_list [list]
-            foreach m $candidate_list {
-                set suppress 0
-                foreach anti [concat $opt_antiglob_file_core $opt_antiglob_file] {
-                    if {[string match $anti $m]} {
-                        #puts stderr "anti: $anti  vs m:$m"
-                        set suppress 1
-                        break
-                    }
-                }
-                if {$suppress == 0} {
-                    lappend match_list $m
-                }
-            }
-
-            #sample .punkcheck file record (raw form) to make the code clearer
-            #punk::tdl converts to dict form e.g: tag FILEINFO -targets filename body sublist
-            #Valid installrecord types are INSTALL-RECORD SKIPPED INSTALL-INPROGRESS, MODIFY-RECORD MODIFY-INPROGRESS DELETE-RECORD DELETE-INPROGRESS
-            #
-            #FILEINFO -targets jjjetc-0.1.0.tm -keep_installrecords 2 -keep_skipped 1 -keep_inprogress 2 {
-            #    INSTALL-RECORD -tsiso 2023-09-20T07:30:30 -ts 1695159030266610 -installer punk::mix::cli::build_modules_from_source_to_base -metadata_us 18426 -ts_start_transfer 1695159030285036 -transfer_us 10194 -elapsed_us 28620 {
-            #        SOURCE -type file -path ../src/modules/jjjetc-buildversion.txt -cksum c7c71839c36b3d21c8370fed106192fcd659eca9 -cksum_all_opts {-cksum_content 1 -cksum_meta 0 -cksum_acls 0 -cksum_usetar 0 -cksum_algorithm sha1} -changed 1 -metadata_us 3423
-            #        SOURCE -type file -path ../src/modules/jjjetc-999999.0a1.0.tm -cksum b646fc2ee88cbd068d2e946fe929b7aea96bd39d -cksum_all_opts {-cksum_content 1 -cksum_meta 0 -cksum_acls 0 -cksum_usetar 0 -cksum_algorithm sha1} -changed 1 -metadata_us 3413
-            #    }
-            #    INSTALL-SKIPPED -tsiso 2023-09-20T08:14:26 -ts 1695161666087880 -installer punk::mix::cli::build_modules_from_source_to_base -elapsed_us 18914 {
-            #        SOURCE -type file -path ../src/modules/jjjetc-buildversion.txt -cksum c7c71839c36b3d21c8370fed106192fcd659eca9 -cksum_all_opts {-cksum_content 1 -cksum_meta 0 -cksum_acls 0 -cksum_usetar 0 -cksum_algorithm sha1} -changed 0 -metadata_us 3435
-            #        SOURCE -type file -path ../src/modules/jjjetc-999999.0a1.0.tm -cksum b646fc2ee88cbd068d2e946fe929b7aea96bd39d -cksum_all_opts {-cksum_content 1 -cksum_meta 0 -cksum_acls 0 -cksum_usetar 0 -cksum_algorithm sha1} -changed 0 -metadata_us 3338
-            #    }
-            #}
-
-            if {[llength $match_list]} {
-                #example - target dir has a file where there is a directory at the source
-                if {[file exists $current_target_dir] && ([file type $current_target_dir] ni [list directory])} {
-                    error "punkcheck::install target subfolder $current_target_dir exists but is not of type 'directory'. Type current target folder: [file type $current_target_dir]"
-                }
-            }
-
-            #proc get_relativecksum_from_base_and_fullpath {base fullpath args}
-
-
-            #puts stdout     "Current target dir: $current_target_dir"
-            set last_depth ""
-            foreach m $match_list {
-                set new_tgt_cksum_info [list]
-                set relative_target_path [file join $relative_target_dir $m]
-                set relative_source_path [file join $relative_source_dir $m]
-                set punkcheck_target_relpath [file join $target_relative_to_punkcheck_dir $m]
-                set is_antipath 0
-                foreach antipath $opt_antiglob_paths {
-                    #puts "testing file - globmatchpath $antipath  vs $relative_source_path"
-                    if {[punk::path::globmatchpath $antipath $relative_source_path]} {
-                        lappend antiglob_paths_matched $current_source_dir
-                        set is_antipath 1
-                        break
-                    }
-                }
-                if {$is_antipath} {
-                    continue
-                }
-
-                set ts_start [clock microseconds]
-                set seconds [expr {$ts_start / 1000000}]
-                set ts_start_iso [clock format $seconds -format "%Y-%m-%dT%H:%M:%S"]
-
-
-                #puts stdout "  rel_target: $punkcheck_target_relpath"
-
-                set fetch_filerec_result [punkcheck::recordlist::get_file_record $punkcheck_target_relpath $punkcheck_records]
-                #change to use extract_or_create_fileset_record ?
-                set existing_filerec_posn [dict get $fetch_filerec_result position]
-                if {$existing_filerec_posn == -1} {
-                    if {$opt_progresschannel ne ""} {
-                        puts stdout "\nNO existing record for $punkcheck_target_relpath"
-                    }
-                    set has_filerec 0
-                    set new_filerec [dict create tag FILEINFO -targets $punkcheck_target_relpath]
-                    set filerec $new_filerec
-                } else {
-                    set has_filerec 1
-                    #puts stdout "  TDL existing FILEINFO record for $punkcheck_target_relpath"
-                    #puts stdout "  $existing_install_record"
-                    set filerec [dict get $fetch_filerec_result record]
-                }
-                set filerec [punkcheck::recordlist::file_record_set_defaults $filerec]
-
-                #new INSTALLREC must be tagged as INSTALL-INPROGRESS to use recordlist::installfile_ method
-                set new_install_record   [dict create tag INSTALL-INPROGRESS -tsiso $ts_start_iso -ts $ts_start -installer $opt_installer -eventid $punkcheck_eventid]
-                dict lappend filerec body $new_install_record ;#can't use recordlist::file_record_add_installrecord as '*-INPROGRESS' isn't a final tag - so pruning would be mucked up. No need to prune now anyway.
-                unset new_install_record
-
-
-                if {$opt_progresschannel ne ""} {
-                    if {$last_depth ne $CALLDEPTH} {
-                        if {$CALLDEPTH <=1} {
-                            puts -nonewline $opt_progresschannel \n[string repeat " " $CALLDEPTH][file tail $relative_source_dir]
-                        }
-                        flush $opt_progresschannel
-                        ##set last_depth $CALLDEPTH ;# done down below
-                    }
-                }
-
-
-
-                set relative_source_path [lib::path_relative $punkcheck_folder $current_source_dir/$m]
-                #puts stdout "  rel_source: $relative_source_path"
-                #if {[file pathtype $relative_source_path] ne "relative"} {
-                    #REVIEW
-                    #different volume or root
-                #}
-                #Note this isn't a recordlist function - so it doesn't purely operate on the records
-                #this hits the filesystem for the sourcepath - gets checksums/timestamps depending on config.
-                #It doesn't save to .punkcheck (the only punkcheck::installfile_ method which doesn't)
-                set ts1 [clock milliseconds]
-                set filerec [punkcheck::installfile_add_source_and_fetch_metadata $punkcheck_folder $relative_source_path $filerec]
-                set ts2 [clock milliseconds]
-                set diff [expr {$ts2 - $ts1}]
-                if {$diff > 100} {
-                    #todo -errorchannel
-                    set errprefix ">>> punkcheck:"
-                    puts stderr "\n$errprefix performance warning: fetch_metadata for $m took $diff ms."
-                    set lb [lindex [dict get $filerec body] end]
-                    #puts stderr "$errprefix filerec last body record:$lb"
-                    set records [dict get $lb body]
-                    set lr [lindex $records end]
-                    set alg [dict get $lr -cksum_all_opts -cksum_algorithm]
-                    if {$alg eq "sha1"} {
-                        puts stderr "$errprefix cksum_algorithm: sha1 (accelerators: [::sha1::Implementations])"
-                        puts stderr "$errprefix sha1 from: [package ifneeded sha1 [package present sha1]]"
-                    } else {
-                        puts stderr "$errprefix cksum_algorithm: $alg"
-                    }
-                }
-
-
-
-                #changeinfo comes from last record in body - which is the record we are working on and so will always exist
-                set changeinfo [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $filerec body] end]]
-                set changed [dict get $changeinfo changed]
-                set unchanged [dict get $changeinfo unchanged]
-
-                if {[llength $unchanged]} {
-                    lappend sources_unchanged $current_source_dir/$m
-                }
-
-                set is_skip 0
-                set is_new 0
-                if {$overwrite_what eq "all-targets"} {
-                    file mkdir $current_target_dir
-                    #--------------------------------------------
-                    #sometimes we get the error: 'error copying "file1" to "file2": invalid argument'
-                    #--------------------------------------------
-                    puts stderr "punkcheck: about to: file copy -force $current_source_dir/$m $current_target_dir"
-                    file copy -force $current_source_dir/$m $current_target_dir
-                    lappend files_copied $current_source_dir/$m
-                } else {
-                    if {![file exists $current_target_dir/$m]} {
-                        #puts stderr "punkcheck: first copy to $current_target_dir/$m "
-                        file mkdir $current_target_dir
-                        file copy $current_source_dir/$m $current_target_dir
-                        set new_tgt_cksum_info [punk::mix::base::lib::cksum_path $current_target_dir/$m]
-                        lappend files_copied $current_source_dir/$m
-                        incr filecount_new
-                        set is_new 1
-                    } else {
-                        switch -- $overwrite_what {
-                            installedsourcechanged-targets {
-                                if {[llength $changed]} {
-                                    #An unrecorded installation is considered a source change (from unknown/unrecorded source to recorded)
-                                    puts -nonewline stderr "punkcheck: about to: file copy -force $current_source_dir/$m $current_target_dir"
-                                    set ts1 [clock milliseconds]
-                                    file mkdir $current_target_dir
-                                    file copy -force $current_source_dir/$m $current_target_dir
-                                    set ts2 [clock milliseconds]
-                                    puts -nonewline stderr " (copy time [expr {$ts2 - $ts1}] ms)"
-                                    set new_tgt_cksum_info [punk::mix::base::lib::cksum_path $current_target_dir/$m]
-                                    set ts3 [clock milliseconds]
-                                    puts stderr " (cksum time [expr {$ts2 - $ts1}] ms)"
-                                    lappend files_copied $current_source_dir/$m
-                                } else {
-                                    set is_skip 1
-                                    lappend files_skipped $current_source_dir/$m
-                                }
-                            }
-                            synced-targets {
-                                #disallow overwriting of target that has been modified by some other mechanism
-                                #review
-                                if {[llength $changed]} {
-                                    #only overwrite if the target file checksum equals the last installed checksum (ie target is in sync with previous source-set and so hasn't been customized)
-                                    set existing_tgt_cksum_info [punk::mix::base::lib::cksum_path $current_target_dir/$m]
-                                    set is_target_unmodified_since_install 0
-                                    set target_cksum_compare "unknown"
-                                    set latest_install_record [punkcheck::recordlist::file_record_latest_installrecord $filerec] ;#may be no such record - in which case we get an empty list
-                                    if {[dict exists $latest_install_record -targets_cksums]} {
-                                        set last_install_cksum [dict get $latest_install_record -targets_cksums] ;#in this case we know there is only one as 'install' always uses targetset size of 1. (FILEINFO record per file in source folder)
-                                        if {[dict get $existing_tgt_cksum_info cksum] eq $last_install_cksum} {
-                                            set is_target_unmodified_since_install 1
-                                            set target_cksum_compare "match"
-                                        } else {
-                                            set target_cksum_compare "nomatch"
-                                        }
-                                    } else {
-                                        set target_cksum_compare "norecord"
-                                    }
-                                    if {$is_target_unmodified_since_install} {
-                                        file mkdir $current_target_dir
-                                        file copy -force $current_source_dir/$m $current_target_dir
-                                        set new_tgt_cksum_info [punk::mix::base::lib::cksum_path $current_target_dir/$m]
-                                        lappend files_copied $current_source_dir/$m
-                                    } else {
-                                        #either cksum is different or we were unable to verify the record. Either way we can't know if the target is in sync so we must skip it
-                                        set is_skip 1
-                                        puts stderr "Skipping file copy $m target $current_target_dir/$m - require synced_target to overwrite - current target cksum compared to previous install: $target_cksum_compare"
-                                        lappend files_skipped $current_source_dir/$m
-                                    }
-                                } else {
-                                    set is_skip 1
-                                    lappend files_skipped $current_source_dir/$m
-                                }
-                            }
-                            default {
-                                set is_skip 1
-                                puts stderr "Skipping file copy $m target $current_target_dir/$m already exists (use -overwrite all-targets  to overwrite)"
-                                #TODO! implement newer-targets older-targets? (note ctimes/mtimes are unreliable - may not be worth implementing)
-                                lappend files_skipped $current_source_dir/$m
-                            }
-                        }
-                    }
-                }
-                #target dir was created as necessary if files matched above
-                #now ensure target dir exists if -createempty true
-                if {$opt_createempty && ![file exists $current_target_dir]} {
-                    file mkdir $current_target_dir
-                }
-
-
-
-
-                set ts_now    [clock microseconds]
-                set elapsed_us [expr {$ts_now - $ts_start}]
-
-                #if {$store_source_cksums} {
-                #}
-
-                set install_records [dict get $filerec body]
-                set current_install_record [lindex $install_records end]
-                #change the tag from *-INPROGRESS to INSTALL-RECORD/SKIPPED
-                if {$is_skip} {
-                    set tag INSTALL-SKIPPED
-                } else {
-                    set tag INSTALL-RECORD
-                }
-                dict set current_install_record tag $tag
-                dict set current_install_record -elapsed_us $elapsed_us
-                if {[llength $new_tgt_cksum_info]} {
-                    dict set current_install_record -targets_cksums [list [dict get $new_tgt_cksum_info cksum]]
-                    dict set current_install_record -cksum_all_opts [dict get $new_tgt_cksum_info opts]
-                }
-                lset install_records end $current_install_record
-                dict set filerec body $install_records
-                set filerec [punkcheck::recordlist::file_record_prune $filerec] ;#prune now that tag is finalized
-                if {!$has_filerec} {
-                    #not found in original recordlist - append
-                    lappend punkcheck_records $filerec
-                } else {
-                    lset punkcheck_records $existing_filerec_posn $filerec
-                }
-
-
-                #------------------------------------------------------------
-                if {$is_skip} {
-                    set mark .
-                } else {
-                    if {$is_new} {
-                        set mark \x1b\[32\;1mN\x1b\[m
-                    } else {
-                        #updated
-                        set mark \x1b\[32\;1mU\x1b\[m
-                    }
-                }
-                if {$opt_progresschannel ne ""} {
-                    if {$last_depth ne $CALLDEPTH} {
-                        puts -nonewline $opt_progresschannel \n[string repeat " " $CALLDEPTH]$mark
-                        flush $opt_progresschannel
-                        set last_depth $CALLDEPTH
-                    } else {
-                        puts -nonewline $opt_progresschannel $mark
-                    }
-                }
-                #------------------------------------------------------------
-
-            }
-
-            if {$max_depth != -1 && $CALLDEPTH >= $max_depth} {
-                #don't process any more subdirs
-                #sometimes deliberately called with max_depth 1 - so don't warn here. review
-                #puts stderr "punkcheck::install warning - reached max_depth $max_depth"
-                set subdirs [list]
-            } else {
-                set subdirs [glob -nocomplain -dir $current_source_dir -type d -tail *]
-                set hiddensubdirs [glob -nocomplain -dir $current_source_dir -type {hidden d} -tail *]
-                foreach h $hiddensubdirs {
-                    switch -- $h {
-                        "." - ".." {
-                            continue
-                        }
-                        default {
-                            if {$h ni $subdirs} {
-                                lappend subdirs $h
-                            }
-                        }
-                    }
-                }
-            }
-            #puts stderr "subdirs: $subdirs"
-            foreach d $subdirs {
-                set skipd 0
-                foreach dg [concat $opt_antiglob_dir_core $opt_antiglob_dir] {
-                    if {[string match $dg $d]} {
-                        #puts stdout "SKIPPING FOLDER $d due to antiglob_dir-match: $dg "
-                        set skipd 1
-                        break
-                    }
-                }
-                if {$skipd} {
-                    continue
-                }
-
-                set relative_source_path [file join $relative_source_dir $d]
-                set is_antipath 0
-                foreach antipath $opt_antiglob_paths {
-                    #puts "testing folder - globmatchpath $antipath  vs $relative_source_path"
-                    if {[punk::path::globmatchpath $antipath $relative_source_path]} {
-                        lappend antiglob_paths_matched [file join $current_source_dir $d]
-                        #puts stdout "SKIPPING FOLDER $relative_source_path due to antiglob_path-match: $antipath "
-                        set is_antipath 1
-                        break
-                    }
-                }
-                if {$is_antipath} {
-                    continue
-                }
-
-                #if {![file exists $current_target_dir/$d]} {
-                #    file mkdir $current_target_dir/$d
-                #}
-
-
-                set sub_opts_1 [list\
-                    -call-depth-internal [expr {$CALLDEPTH + 1}]\
-                    -subdirlist [list {*}$subdirlist $d]\
-                    -glob $fileglob\
-                    -antiglob_file_core $opt_antiglob_file_core\
-                    -antiglob_file $opt_antiglob_file\
-                    -antiglob_dir_core  $opt_antiglob_dir_core\
-                    -antiglob_dir $opt_antiglob_dir\
-                    -overwrite $overwrite_what\
-                    -source_checksum $opt_source_checksum\
-                    -punkcheck_folder $punkcheck_folder\
-                    -punkcheck_eventid $punkcheck_eventid\
-                    -punkcheck_records $punkcheck_records\
-                    -installer $opt_installer\
-                    ]
-                set sub_opts [list\
-                    -call-depth-internal [expr {$CALLDEPTH + 1}]\
-                    -subdirlist [list {*}$subdirlist $d]\
-                    -punkcheck_folder $punkcheck_folder\
-                    -punkcheck_eventid $punkcheck_eventid\
-                    -punkcheck_records $punkcheck_records\
-                    -progresschannel $opt_progresschannel\
-                ]
-                set sub_opts [dict merge $opts $sub_opts]
-                set sub_result [punkcheck::install $srcdir $tgtdir {*}$sub_opts]
-
-                lappend files_copied {*}[dict get $sub_result files_copied]
-                lappend files_skipped {*}[dict get $sub_result files_skipped]
-                lappend sources_unchanged {*}[dict get $sub_result sources_unchanged]
-                lappend antiglob_paths_matched {*}[dict get $sub_result antiglob_paths_matched]
-                set punkcheck_records [dict get $sub_result punkcheck_records]
-            }
-
-            if {[string match *store* $opt_source_checksum]} {
-                #puts "subdirlist: $subdirlist"
-                if {$CALLDEPTH == 0} {
-                    if {[llength $files_copied] || [llength $files_skipped]} {
-                        #puts stdout ">>>>>>>>>>>>>>>>>>>"
-                        set saveresult [punkcheck::save_records_to_file $punkcheck_records $punkcheck_file]
-                        puts stdout "\npunkcheck::install [dict get $saveresult recordcount] records saved as [dict get $saveresult linecount] lines to $punkcheck_file copied: [llength $files_copied] skipped: [llength $files_skipped]"
-                        #puts stdout ">>>>>>>>>>>>>>>>>>>"
-                    } else {
-                        #todo - write db INSTALLER record if -debug true
-
-                    }
-                    #puts stdout "sources_unchanged"
-                    #puts stdout "$sources_unchanged"
-                    #puts stdout "- -- --- --- --- ---"
-                }
-            }
-
-            return [list files_copied $files_copied files_skipped $files_skipped sources_unchanged $sources_unchanged antiglob_paths_matched $antiglob_paths_matched punkcheck_records $punkcheck_records punkcheck_folder $punkcheck_folder srcdir $srcdir tgtdir $tgtdir]
-        }
-
-
-        lappend PUNKARGS [list {
-            @id         -id ::punkcheck::summarize_install_resultdict
-            @cmd        -name punkcheck::summarize_install_resultdict -help\
-                "Emits a string summarizing a punkcheck resultdict, showing
-                how many items were copied, and the source, target locations"
-            @opts
-            -title -type string -default ""
-            -forcecolour -type boolean -default 0 -help\
-                "When true, passes the forcecolour tag to punk::ansi functions.
-                  This enables ANSI sgr colours even when colour
-                  is off. (ignoring env(NO_COLOR))
-                  To disable colour - ensure the NO_COLOR env var is set,
-                  or use:
-                  namespace eval ::punk::console {variable colour_disabled 1}"
-            @values -min 1 -max 1
-            resultdict -type dict
-        }]
-        proc summarize_install_resultdict {args} {
-            set argd [punk::args::parse $args withid ::punkcheck::summarize_install_resultdict]
-            lassign [dict values $argd] leaders opts values received
-            set title           [dict get $opts -title]
-            set forcecolour     [dict get $opts -forcecolour]
-            set resultdict      [dict get $values resultdict]
-
-            set has_ansi [expr {![catch {package require punk::ansi}]}]
-            if {$has_ansi} {
-                if {$forcecolour} {
-                    set fc "forcecolour"
-                } else {
-                    set fc ""
-                }
-                set R [punk::ansi::a] ;#reset
-                set LINE_COLOUR [punk::ansi::a+ {*}$forcecolour bold cyan]
-                set LOW_COLOUR  [punk::ansi::a+ {*}$forcecolour bold green]
-                set HIGH_COLOUR [punk::ansi::a+ {*}$forcecolour bold yellow]
-            } else {
-                set R ""
-                set LINE_COLOUR ""
-                set LOW_COLOUR ""
-                set HIGH_COLOUR ""
-            }
-
-            set msg ""
-            if {[dict size $resultdict]} {
-                set copied [dict get $resultdict files_copied]
-                if {[llength $copied] == 0} {
-                    set HIGHLIGHT $LOW_COLOUR
-                } else {
-                    set HIGHLIGHT $HIGH_COLOUR
-                }
-                set ruler $LINE_COLOUR[string repeat - 78]$R
-                if {$title ne ""} {
-                    append msg $ruler \n
-                    append msg $title \n
-                }
-                append msg $ruler \n
-                #append msg  "[dict keys $resultdict]" \n
-                set tgtdir [dict get $resultdict tgtdir]
-                set checkfolder [dict get $resultdict punkcheck_folder]
-                append msg "${HIGHLIGHT}Copied [llength $copied] files from [dict get $resultdict srcdir] to [dict get $resultdict tgtdir]$R" \n
-                foreach f $copied {
-                    append msg "COPIED [punkcheck::lib::path_relative $checkfolder $f]" \n
-                    append msg "    TO $tgtdir" \n
-                }
-                append msg "[llength [dict get $resultdict sources_unchanged]] unchanged source files" \n
-                append msg "[llength [dict get $resultdict files_skipped]] skipped files" \n
-                append msg $ruler \n
-            }
-            return $msg
-        }
-
-        namespace eval recordlist {
-            set pkg punkcheck
-            namespace path ::punkcheck
-
-            proc records_as_target_dict {record_list} {
-                set result [dict create]
-                foreach rec $record_list {
-                    if {[dict get $rec tag] eq "FILEINFO"} {
-                        set tgtlist [dict get $rec -targets]
-                        dict set result $tgtlist $rec
-                    }
-                }
-                return $result
-            }
-
-
-
-
-            #will only match if same base was used.. and same targetlist
-            proc get_file_record {targetlist record_list} {
-                set posn 0
-                set found_posn -1
-                set record ""
-                foreach rec $record_list {
-                    if {[dict get $rec tag] eq "FILEINFO"} {
-                        if {[dict get $rec -targets] eq $targetlist} {
-                            set found_posn $posn
-                            set record $rec
-                            break
-                        }
-                    }
-                    incr posn
-                }
-                return [list position $found_posn record $record]
-            }
-            proc file_install_record_source_changes {install_record} {
-                #reject INSTALLFAILED items ?
-                switch -- [dict get $install_record tag] {
-                    "QUERY-INPROGRESS" -
-                    "INSTALL-RECORD" -
-                    "INSTALL-SKIPPED" -
-                    "INSTALL-INPROGRESS" -
-                    "MODIFY-INPROGRESS" -
-                    "MODIFY-RECORD" -
-                    "MODIFY-SKIPPED" -
-                    "VIRTUAL-INPROGRESS" -
-                    "VIRTUAL-RECORD" -
-                    "VIRTUAL-SKIPPED" -
-                    "DELETE-RECORD" -
-                    "DELETE-INPROGRESS" -
-                    "DELETE-SKIPPED" {
-                    }
-                    default {
-                        error "file_install_record_source_changes bad install record: tag '[dict get $install_record tag]' not INSTALL-RECORD|SKIPPED|INSTALL-INPROGRESS|MODIFY-RECORD|MODIFY-INPROGRESS|VIRTUAL-RECORD|VIRTUAL-INPROGRESS|DELETE-RECORD|DELETE-INPROGRESS"
-                    }
-                }
-                set source_list [dict_getwithdefault $install_record body [list]]
-                set changed [list]
-                set unchanged [list]
-                foreach src $source_list {
-                    if {[dict exists $src -changed]} {
-                        if {[dict get $src -changed] !=0} {
-                            lappend changed [dict get $src -path]
-                        } else {
-                            lappend unchanged [dict get $src -path]
-                        }
-                    } else {
-                        lappend changed [dict get $src -path]
-                    }
-                }
-                return [dict create changed $changed unchanged $unchanged]
-            }
-
-            #assume only one for name - use first encountered
-            proc get_installer_record {name record_list} {
-                set posn 0
-                set found_posn -1
-                set record ""
-                #puts ">>>> checking [llength $record_list] punkcheck records"
-                foreach rec $record_list {
-                    if {[dict get $rec tag] eq "INSTALLER"} {
-                        if {[dict get $rec -name] eq $name} {
-                            set found_posn $posn
-                            set record $rec
-                            break
-                        }
-                    }
-                    incr posn
-                }
-                return [list position $found_posn record $record]
-            }
-
-            proc new_installer_record {name args} {
-                if {[llength $args] %2 !=0} {
-                    error "punkcheck new_installer_record args must be name-value pairs"
-                }
-                set ts [clock microseconds]
-                set seconds [expr {$ts / 1000000}]
-                set tsiso [clock format $seconds -format "%Y-%m-%dT%H:%M:%S"]
-
-                #put -tsiso first so it lines up with -tsiso in event records
-                set defaults [list\
-                    -tsiso $tsiso\
-                    -ts $ts\
-                    -name $name\
-                    -keep_events 5\
-                    ]
-                set opts [dict merge $defaults $args]
-
-                #set this_installer_record_list [punk::tdl::prettyparse [list INSTALLER name $opt_installer ts $ts tsiso $tsiso keep_events 5 {}]]
-                #set this_installer_record [lindex $this_installer_record_list 0]
-
-                set record [dict create tag INSTALLER {*}$opts body {}]
-
-
-                return $record
-            }
-            proc new_installer_event_record {type args} {
-                if {[llength $args] %2 !=0} {
-                    error "punkcheck new_installer_event_record args must be name-value pairs"
-                }
-                set ts [clock microseconds]
-                set seconds [expr {$ts / 1000000}]
-                set tsiso [clock format $seconds -format "%Y-%m-%dT%H:%M:%S"]
-                set defaults [list\
-                    -tsiso $tsiso\
-                    -ts $ts\
-                    -type $type\
-                    ]
-                set opts [dict merge $defaults $args]
-
-                set record [dict create tag EVENT {*}$opts]
-            }
-            #need to scan entire set if filerecords to check if event is still referenced
-            proc installer_record_pruneevents {installer_record record_list} {
-                set keep 5
-                if {[dict exists $installer_record -keep_events]} {
-                    set keep [dict get $installer_record -keep_events]
-                }
-
-                if {[dict exists $installer_record body]} {
-                    set body_items [dict get $installer_record body]
-                } else {
-                    set body_items [list]
-                }
-                set kept_body_items [list]
-                set kcount 0
-                foreach item [lreverse $body_items] {
-                    if {[dict get $item tag] eq "EVENT"} {
-                        incr kcount
-                        if {$keep < 0 || $kcount <= $keep} {
-                            lappend kept_body_items $item
-                        } else {
-                            set eventid ""
-                            if {[dict exists $item -id]} {
-                                set eventid [dict get $item -id]
-                            }
-                            if {$eventid ne "" && $eventid ne "unspecified"} {
-                                #keep if referenced, discard if not, or if eventid empty/unspecified
-                                set is_referenced 0
-                                foreach rec $record_list {
-                                    if {[dict get $rec tag] eq "FILEINFO"} {
-                                        if {[dict exists $rec body]} {
-                                            foreach install [dict get $rec body] {
-                                                if {[dict exists $install -eventid] && [dict get $install -eventid] eq $eventid} {
-                                                    set is_referenced 1
-                                                    break
-                                                }
-                                            }
-                                        }
-                                    }
-                                    if {$is_referenced} {
-                                        break
-                                    }
-                                }
-                                if {$is_referenced} {
-                                    lappend kept_body_items $item
-                                }
-                            }
-                        }
-                    } else {
-                        lappend kept_body_items $item
-                    }
-                }
-                set kept_body_items [lreverse $kept_body_items]
-                dict set installer_record body $kept_body_items
-                return $installer_record
-            }
-            proc installer_record_add_event {installer_record event} {
-                if {[dict get $installer_record tag] ne "INSTALLER"} {
-                    error "installer_record_add_event bad installer record: tag not INSTALLER"
-                }
-                if {[dict get $event tag] ne "EVENT"} {
-                    error "installer_record_add_event bad event record: tag not EVENT"
-                }
-                if {[dict exists $installer_record body]} {
-                    set body_items [dict get $installer_record body]
-                } else {
-                    set body_items [list]
-                }
-                lappend body_items $event
-                dict set installer_record body $body_items
-                return $installer_record
-            }
-            proc file_record_latest_installrecord {file_record} {
-                tailcall file_record_latest_operationrecord INSTALL $file_record
-            }
-            proc file_record_latest_operationrecord {operation file_record} {
-                set operation [string toupper $operation]
-                if {[dict get $file_record tag] ne "FILEINFO"} {
-                    error "file_record_latest_operationrecord bad file_record: tag not FILEINFO"
-                }
-                if {![dict exists $file_record body]} {
-                    return [list]
-                }
-                set body_items [dict get $file_record body]
-                foreach item [lreverse $body_items] {
-                    if {[dict get $item tag] eq "$operation-RECORD"} {
-                        return $item
-                    }
-                }
-                return [list]
-            }
-
-
-            proc file_record_set_defaults {file_record} {
-                if {[dict get $file_record tag] ne "FILEINFO"} {
-                    error "file_record_set_defaults bad file_record: tag not FILEINFO"
-                }
-                set defaults [list -keep_installrecords 3 -keep_skipped 1 -keep_inprogress 2]
-                foreach {k v} $defaults {
-                    if {![dict exists $file_record $k]} {
-                        dict set file_record $k $v
-                    }
-                }
-                return $file_record
-            }
-
-            #negative keep_ value will keep all
-            proc file_record_prune {file_record} {
-                if {[dict get $file_record tag] ne "FILEINFO"} {
-                    error "file_record_prune bad file_record: tag not FILEINFO"
-                }
-                set file_record [file_record_set_defaults $file_record]
-                set kmap [list -keep_installrecords *-RECORD -keep_skipped *-SKIPPED -keep_inprogress *-INPROGRESS]
-                foreach {key rtype} $kmap {
-                    set keep [dict get $file_record $key]
-                    if {[dict exists $file_record body]} {
-                        set body_items [dict get $file_record body]
-                    } else {
-                        set body_items [list]
-                    }
-                    set kept_body_items [list]
-                    set kcount 0
-                    foreach item [lreverse $body_items] {
-                        if {[string match $rtype [dict get $item tag]]} {
-                            incr kcount
-                            if {$keep < 0 || $kcount <= $keep} {
-                                lappend kept_body_items $item
-                            }
-                        } else {
-                            lappend kept_body_items $item
-                        }
-                    }
-                    set kept_body_items [lreverse $kept_body_items]
-                    dict set file_record body $kept_body_items
-                }
-                return $file_record
-            }
-
-            #extract new or existing filerecord for path given
-            #review - locking/concurrency
-            proc extract_or_create_fileset_record {relative_target_paths recordset} {
-                set fetch_record_result [punkcheck::recordlist::get_file_record $relative_target_paths $recordset]
-                set existing_posn [dict get $fetch_record_result position]
-                if {$existing_posn == -1} {
-                    #puts stdout "NO existing record for $relative_target_paths"
-                    set isnew 1
-                    set fileset_record [dict create tag FILEINFO -targets $relative_target_paths body {}]
-                } else {
-                    set recordset [lreplace $recordset[unset recordset] $existing_posn $existing_posn]
-                    set isnew 0
-                    set fileset_record [dict get $fetch_record_result record]
-                }
-                return [list record $fileset_record recordset $recordset isnew $isnew oldposition $existing_posn]
-            }
-
-        }
-
-}
-
-
-
-
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::punkcheck
-}
-
-
-
-
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide punkcheck [namespace eval punkcheck {
-    set pkg punkcheck
-    variable version
-    set version 0.1.0
-}]
-return
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/sha1-2.0.4.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/sha1-2.0.4.tm
deleted file mode 100644
index f05163bf..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/sha1-2.0.4.tm
+++ /dev/null
@@ -1,814 +0,0 @@
-# sha1.tcl - 
-#
-# Copyright (C) 2001 Don Libes <libes@nist.gov>
-# Copyright (C) 2003 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# SHA1 defined by FIPS 180-1, "The SHA1 Message-Digest Algorithm"
-# HMAC defined by RFC 2104, "Keyed-Hashing for Message Authentication"
-#
-# This is an implementation of SHA1 based upon the example code given in
-# FIPS 180-1 and upon the tcllib MD4 implementation and taking some ideas
-# and methods from the earlier tcllib sha1 version by Don Libes.
-#
-# This implementation permits incremental updating of the hash and 
-# provides support for external compiled implementations either using
-# critcl (sha1c) or Trf.
-#
-# ref: http://www.itl.nist.gov/fipspubs/fip180-1.htm
-#
-# -------------------------------------------------------------------------
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-# -------------------------------------------------------------------------
-# @mdgen EXCLUDE: sha1c.tcl
-
-package require Tcl 8.2-;                # tcl minimum version
-
-namespace eval ::sha1 {
-    variable  accel
-    array set accel {tcl 0 critcl 0 cryptkit 0 trf 0}
-
-    variable  loaded {}
-    variable  active
-    array set active {tcl 0 critcl 0 cryptkit 0 trf 0}
-
-    namespace export sha1 hmac SHA1Init SHA1Update SHA1Final
-
-    variable uid
-    if {![info exists uid]} {
-        set uid 0
-    }
-}
-
-# -------------------------------------------------------------------------
-# Management of sha1 implementations.
-
-# LoadAccelerator --
-#
-#	This package can make use of a number of compiled extensions to
-#	accelerate the digest computation. This procedure manages the
-#	use of these extensions within the package. During normal usage
-#	this should not be called, but the test package manipulates the
-#	list of enabled accelerators.
-#
-proc ::sha1::LoadAccelerator {name} {
-    variable accel
-    set r 0
-    switch -exact -- $name {
-        tcl {
-            # Already present (this file)
-            set r 1
-        }
-        critcl {
-            if {![catch {package require tcllibc}]
-                || ![catch {package require sha1c}]} {
-                set r [expr {[info commands ::sha1::sha1c] != {}}]
-            }
-        }
-        cryptkit {
-            if {![catch {package require cryptkit}]} {
-                set r [expr {![catch {cryptkit::cryptInit}]}]
-            }
-        }
-        trf {
-            if {![catch {package require Trf}]} {
-                set r [expr {![catch {::sha1 aa} msg]}]
-            }
-        }
-        default {
-            return -code error "invalid accelerator $key:\
-                must be one of [join [KnownImplementations] {, }]"
-        }
-    }
-    set accel($name) $r
-    return $r
-}
-
-# ::sha1::Implementations --
-#
-#	Determines which implementations are
-#	present, i.e. loaded.
-#
-# Arguments:
-#	None.
-#
-# Results:
-#	A list of implementation keys.
-
-proc ::sha1::Implementations {} {
-    variable accel
-    set res {}
-    foreach n [array names accel] {
-	if {!$accel($n)} continue
-	lappend res $n
-    }
-    return $res
-}
-
-# ::sha1::KnownImplementations --
-#
-#	Determines which implementations are known
-#	as possible implementations.
-#
-# Arguments:
-#	None.
-#
-# Results:
-#	A list of implementation keys. In the order
-#	of preference, most prefered first.
-
-proc ::sha1::KnownImplementations {} {
-    return {critcl cryptkit trf tcl}
-}
-
-proc ::sha1::Names {} {
-    return {
-	critcl   {tcllibc based}
-        cryptkit {cryptkit based}
-        trf      {Trf based}
-	tcl      {pure Tcl}
-    }
-}
-
-# ::sha1::SwitchTo --
-#
-#	Activates a loaded named implementation.
-#
-# Arguments:
-#	key	Name of the implementation to activate.
-#
-# Results:
-#	None.
-
-proc ::sha1::SwitchTo {key} {
-    variable accel
-    variable active
-    variable loaded
-
-    if {[string equal $key $loaded]} {
-	# No change, nothing to do.
-	return
-    } elseif {![string equal $key ""]} {
-	# Validate the target implementation of the switch.
-
-	if {![info exists accel($key)]} {
-	    return -code error "Unable to activate unknown implementation \"$key\""
-	} elseif {![info exists accel($key)] || !$accel($key)} {
-	    return -code error "Unable to activate missing implementation \"$key\""
-	}
-    }
-
-    if {![string equal $loaded ""]} {
-        set active($loaded) 0
-    }
-    if {![string equal $key ""]} {
-        set active($key) 1
-    }
-
-    # Remember the active implementation, for deactivation by future
-    # switches.
-
-    set loaded $key
-    return
-}
-
-# -------------------------------------------------------------------------
-
-# SHA1Init --
-#
-#   Create and initialize an SHA1 state variable. This will be
-#   cleaned up when we call SHA1Final
-#
-
-proc ::sha1::SHA1Init {} {
-    variable active
-    variable uid
-    set token [namespace current]::[incr uid]
-    upvar #0 $token state
-
-    # FIPS 180-1: 7 - Initialize the hash state
-    array set state \
-        [list \
-             A [expr {int(0x67452301)}] \
-             B [expr {int(0xEFCDAB89)}] \
-             C [expr {int(0x98BADCFE)}] \
-             D [expr {int(0x10325476)}] \
-             E [expr {int(0xC3D2E1F0)}] \
-             n 0 i "" ]
-    if {$active(cryptkit)} {
-        cryptkit::cryptCreateContext state(ckctx) CRYPT_UNUSED CRYPT_ALGO_SHA
-    } elseif {$active(trf)} {
-        set s {}
-        switch -exact -- $::tcl_platform(platform) {
-            windows { set s [open NUL w] }
-            unix    { set s [open /dev/null w] }
-        }
-        if {$s != {}} {
-            fconfigure $s -translation binary -buffering none
-            ::sha1 -attach $s -mode write \
-                -read-type variable \
-                -read-destination [subst $token](trfread) \
-                -write-type variable \
-                -write-destination [subst $token](trfwrite)
-            array set state [list trfread 0 trfwrite 0 trf $s]
-        }
-    }
-    return $token
-}
-
-# SHA1Update --
-#
-#   This is called to add more data into the hash. You may call this
-#   as many times as you require. Note that passing in "ABC" is equivalent
-#   to passing these letters in as separate calls -- hence this proc 
-#   permits hashing of chunked data
-#
-#   If we have a C-based implementation available, then we will use
-#   it here in preference to the pure-Tcl implementation.
-#
-proc ::sha1::SHA1Update {token data} {
-    variable active
-    upvar #0 $token state
-
-    if {$active(critcl)} {
-        if {[info exists state(sha1c)]} {
-            set state(sha1c) [sha1c $data $state(sha1c)]
-        } else {
-            set state(sha1c) [sha1c $data]
-        }
-        return
-    } elseif {[info exists state(ckctx)]} {
-        if {[string length $data] > 0} {
-            cryptkit::cryptEncrypt $state(ckctx) $data
-        }
-        return
-    } elseif {[info exists state(trf)]} {
-        puts -nonewline $state(trf) $data
-        return
-    }
-
-    # Update the state values
-    incr state(n) [string length $data]
-    append state(i) $data
-
-    # Calculate the hash for any complete blocks
-    set len [string length $state(i)]
-    for {set n 0} {($n + 64) <= $len} {} {
-        SHA1Transform $token [string range $state(i) $n [incr n 64]]
-    }
-
-    # Adjust the state for the blocks completed.
-    set state(i) [string range $state(i) $n end]
-    return
-}
-
-# SHA1Final --
-#
-#    This procedure is used to close the current hash and returns the
-#    hash data. Once this procedure has been called the hash context
-#    is freed and cannot be used again.
-#
-#    Note that the output is 160 bits represented as binary data.
-#
-proc ::sha1::SHA1Final {token} {
-    upvar #0 $token state
-
-    # Check for either of the C-compiled versions.
-    if {[info exists state(sha1c)]} {
-        set r $state(sha1c)
-        unset state
-        return $r
-    } elseif {[info exists state(ckctx)]} {
-        cryptkit::cryptEncrypt $state(ckctx) ""
-        cryptkit::cryptGetAttributeString $state(ckctx) \
-            CRYPT_CTXINFO_HASHVALUE r 20
-        cryptkit::cryptDestroyContext $state(ckctx)
-        # If nothing was hashed, we get no r variable set!
-        if {[info exists r]} {
-            unset state
-            return $r
-        }
-    } elseif {[info exists state(trf)]} {
-        close $state(trf)
-        set r $state(trfwrite)
-        unset state
-        return $r
-    }
-
-    # Padding
-    #
-    set len [string length $state(i)]
-    set pad [expr {56 - ($len % 64)}]
-    if {$len % 64 > 56} {
-        incr pad 64
-    }
-    if {$pad == 0} {
-        incr pad 64
-    }
-    append state(i) [binary format a$pad \x80]
-
-    # Append length in bits as big-endian wide int.
-    set dlen [expr {8 * $state(n)}]
-    append state(i) [binary format II 0 $dlen]
-
-    # Calculate the hash for the remaining block.
-    set len [string length $state(i)]
-    for {set n 0} {($n + 64) <= $len} {} {
-        SHA1Transform $token [string range $state(i) $n [incr n 64]]
-    }
-
-    # Output
-    set r [bytes $state(A)][bytes $state(B)][bytes $state(C)][bytes $state(D)][bytes $state(E)]
-    unset state
-    return $r
-}
-
-# -------------------------------------------------------------------------
-# HMAC Hashed Message Authentication (RFC 2104)
-#
-# hmac = H(K xor opad, H(K xor ipad, text))
-#
-
-# HMACInit --
-#
-#    This is equivalent to the SHA1Init procedure except that a key is
-#    added into the algorithm
-#
-proc ::sha1::HMACInit {K} {
-
-    # Key K is adjusted to be 64 bytes long. If K is larger, then use
-    # the SHA1 digest of K and pad this instead.
-    set len [string length $K]
-    if {$len > 64} {
-        set tok [SHA1Init]
-        SHA1Update $tok $K
-        set K [SHA1Final $tok]
-        set len [string length $K]
-    }
-    set pad [expr {64 - $len}]
-    append K [string repeat \0 $pad]
-
-    # Cacluate the padding buffers.
-    set Ki {}
-    set Ko {}
-    binary scan $K i16 Ks
-    foreach k $Ks {
-        append Ki [binary format i [expr {$k ^ 0x36363636}]]
-        append Ko [binary format i [expr {$k ^ 0x5c5c5c5c}]]
-    }
-
-    set tok [SHA1Init]
-    SHA1Update $tok $Ki;                 # initialize with the inner pad
-    
-    # preserve the Ko value for the final stage.
-    # FRINK: nocheck
-    set [subst $tok](Ko) $Ko
-
-    return $tok
-}
-
-# HMACUpdate --
-#
-#    Identical to calling SHA1Update
-#
-proc ::sha1::HMACUpdate {token data} {
-    SHA1Update $token $data
-    return
-}
-
-# HMACFinal --
-#
-#    This is equivalent to the SHA1Final procedure. The hash context is
-#    closed and the binary representation of the hash result is returned.
-#
-proc ::sha1::HMACFinal {token} {
-    upvar #0 $token state
-
-    set tok [SHA1Init];                 # init the outer hashing function
-    SHA1Update $tok $state(Ko);         # prepare with the outer pad.
-    SHA1Update $tok [SHA1Final $token]; # hash the inner result
-    return [SHA1Final $tok]
-}
-
-# -------------------------------------------------------------------------
-# Description:
-#  This is the core SHA1 algorithm. It is a lot like the MD4 algorithm but
-#  includes an extra round and a set of constant modifiers throughout.
-#
-set ::sha1::SHA1Transform_body {
-    upvar #0 $token state
-
-    # FIPS 180-1: 7a: Process Message in 16-Word Blocks
-    binary scan $msg I* blocks
-    set blockLen [llength $blocks]
-    for {set i 0} {$i < $blockLen} {incr i 16} {
-        set W [lrange $blocks $i [expr {$i+15}]]
-        
-        # FIPS 180-1: 7b: Expand the input into 80 words
-        # For t = 16 to 79 
-        #   let Wt = (Wt-3 ^ Wt-8 ^ Wt-14 ^ Wt-16) <<< 1
-        set t3  12
-        set t8   7
-        set t14  1
-        set t16 -1
-        for {set t 16} {$t < 80} {incr t} {
-            set x [expr {[lindex $W [incr t3]] ^ [lindex $W [incr t8]] ^ \
-                             [lindex $W [incr t14]] ^ [lindex $W [incr t16]]}]
-            lappend W [expr {int(($x << 1) | (($x >> 31) & 1))}]
-        }
-        
-        # FIPS 180-1: 7c: Copy hash state.
-        set A $state(A)
-        set B $state(B)
-        set C $state(C)
-        set D $state(D)
-        set E $state(E)
-
-        # FIPS 180-1: 7d: Do permutation rounds
-        # For t = 0 to 79 do
-        #   TEMP = (A<<<5) + ft(B,C,D) + E + Wt + Kt;
-        #   E = D; D = C; C = S30(B); B = A; A = TEMP;
-
-        # Round 1: ft(B,C,D) = (B & C) | (~B & D) ( 0 <= t <= 19)
-        for {set t 0} {$t < 20} {incr t} {
-            set TEMP [F1 $A $B $C $D $E [lindex $W $t]]
-            set E $D
-            set D $C
-            set C [rotl32 $B 30]
-            set B $A
-            set A $TEMP
-        }
-
-        # Round 2: ft(B,C,D) = (B ^ C ^ D) ( 20 <= t <= 39)
-        for {} {$t < 40} {incr t} {
-            set TEMP [F2 $A $B $C $D $E [lindex $W $t]]
-            set E $D
-            set D $C
-            set C [rotl32 $B 30]
-            set B $A
-            set A $TEMP
-        }
-
-        # Round 3: ft(B,C,D) = ((B & C) | (B & D) | (C & D)) ( 40 <= t <= 59)
-        for {} {$t < 60} {incr t} {
-            set TEMP [F3 $A $B $C $D $E [lindex $W $t]]
-            set E $D
-            set D $C
-            set C [rotl32 $B 30]
-            set B $A
-            set A $TEMP
-         }
-
-        # Round 4: ft(B,C,D) = (B ^ C ^ D) ( 60 <= t <= 79)
-        for {} {$t < 80} {incr t} {
-            set TEMP [F4 $A $B $C $D $E [lindex $W $t]]
-            set E $D
-            set D $C
-            set C [rotl32 $B 30]
-            set B $A
-            set A $TEMP
-        }
-
-        # Then perform the following additions. (That is, increment each
-        # of the four registers by the value it had before this block
-        # was started.)
-        incr state(A) $A
-        incr state(B) $B
-        incr state(C) $C
-        incr state(D) $D
-        incr state(E) $E
-    }
-
-    return
-}
-
-proc ::sha1::F1 {A B C D E W} {
-    expr {(((($A << 5) & 0xffffffff) | (($A >> 27) & 0x1f)) \
-               + ($D ^ ($B & ($C ^ $D))) + $E + $W + 0x5a827999) & 0xffffffff}
-}
-
-proc ::sha1::F2 {A B C D E W} {
-    expr {(((($A << 5) & 0xffffffff) | (($A >> 27) & 0x1f)) \
-               + ($B ^ $C ^ $D) + $E + $W + 0x6ed9eba1) & 0xffffffff}
-}
-
-proc ::sha1::F3 {A B C D E W} {
-    expr {(((($A << 5) & 0xffffffff)| (($A >> 27) & 0x1f)) \
-               + (($B & $C) | ($D & ($B | $C))) + $E + $W + 0x8f1bbcdc) & 0xffffffff}
-}
-
-proc ::sha1::F4 {A B C D E W} {
-    expr {(((($A << 5) & 0xffffffff)| (($A >> 27) & 0x1f)) \
-               + ($B ^ $C ^ $D) + $E + $W + 0xca62c1d6) & 0xffffffff}
-}
-
-proc ::sha1::rotl32 {v n} {
-    return [expr {((($v << $n) \
-                        | (($v >> (32 - $n)) \
-                               & (0x7FFFFFFF >> (31 - $n))))) \
-                      & 0xFFFFFFFF}]
-}
-
-
-# -------------------------------------------------------------------------
-# 
-# In order to get this code to go as fast as possible while leaving
-# the main code readable we can substitute the above function bodies
-# into the transform procedure. This inlines the code for us an avoids
-# a procedure call overhead within the loops.
-#
-# We can do some minor tweaking to improve speed on Tcl < 8.5 where we
-# know our arithmetic is limited to 64 bits. On > 8.5 we may have 
-# unconstrained integer arithmetic and must avoid letting it run away.
-#
-
-regsub -all -line \
-    {\[F1 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body \
-    {[expr {(rotl32($A,5) + ($D ^ ($B \& ($C ^ $D))) + $E + \1 + 0x5a827999) \& 0xffffffff}]} \
-    ::sha1::SHA1Transform_body_tmp
-
-regsub -all -line \
-    {\[F2 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body_tmp \
-    {[expr {(rotl32($A,5) + ($B ^ $C ^ $D) + $E + \1 + 0x6ed9eba1) \& 0xffffffff}]} \
-    ::sha1::SHA1Transform_body_tmp
-
-regsub -all -line \
-    {\[F3 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body_tmp \
-    {[expr {(rotl32($A,5) + (($B \& $C) | ($D \& ($B | $C))) + $E + \1 + 0x8f1bbcdc) \& 0xffffffff}]} \
-    ::sha1::SHA1Transform_body_tmp
-
-regsub -all -line \
-    {\[F4 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body_tmp \
-    {[expr {(rotl32($A,5) + ($B ^ $C ^ $D) + $E + \1 + 0xca62c1d6) \& 0xffffffff}]} \
-    ::sha1::SHA1Transform_body_tmp
-
-regsub -all -line \
-    {rotl32\(\$A,5\)} \
-    $::sha1::SHA1Transform_body_tmp \
-    {((($A << 5) \& 0xffffffff) | (($A >> 27) \& 0x1f))} \
-    ::sha1::SHA1Transform_body_tmp
-
-regsub -all -line \
-    {\[rotl32 \$B 30\]} \
-    $::sha1::SHA1Transform_body_tmp \
-    {[expr {int(($B << 30) | (($B >> 2) \& 0x3fffffff))}]} \
-    ::sha1::SHA1Transform_body_tmp
-#
-# Version 2 avoids a few truncations to 32 bits in non-essential places.
-#
-regsub -all -line \
-    {\[F1 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body \
-    {[expr {rotl32($A,5) + ($D ^ ($B \& ($C ^ $D))) + $E + \1 + 0x5a827999}]} \
-    ::sha1::SHA1Transform_body_tmp2
-
-regsub -all -line \
-    {\[F2 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body_tmp2 \
-    {[expr {rotl32($A,5) + ($B ^ $C ^ $D) + $E + \1 + 0x6ed9eba1}]} \
-    ::sha1::SHA1Transform_body_tmp2
-
-regsub -all -line \
-    {\[F3 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body_tmp2 \
-    {[expr {rotl32($A,5) + (($B \& $C) | ($D \& ($B | $C))) + $E + \1 + 0x8f1bbcdc}]} \
-    ::sha1::SHA1Transform_body_tmp2
-
-regsub -all -line \
-    {\[F4 \$A \$B \$C \$D \$E (\[.*?\])\]} \
-    $::sha1::SHA1Transform_body_tmp2 \
-    {[expr {rotl32($A,5) + ($B ^ $C ^ $D) + $E + \1 + 0xca62c1d6}]} \
-    ::sha1::SHA1Transform_body_tmp2
-
-regsub -all -line \
-    {rotl32\(\$A,5\)} \
-    $::sha1::SHA1Transform_body_tmp2 \
-    {(($A << 5) | (($A >> 27) \& 0x1f))} \
-    ::sha1::SHA1Transform_body_tmp2
-
-regsub -all -line \
-    {\[rotl32 \$B 30\]} \
-    $::sha1::SHA1Transform_body_tmp2 \
-    {[expr {($B << 30) | (($B >> 2) \& 0x3fffffff)}]} \
-    ::sha1::SHA1Transform_body_tmp2
-
-if {[package vsatisfies [package provide Tcl] 8.5]} {
-    proc ::sha1::SHA1Transform {token msg} $::sha1::SHA1Transform_body_tmp
-} else {
-    proc ::sha1::SHA1Transform {token msg} $::sha1::SHA1Transform_body_tmp2
-}
-
-unset ::sha1::SHA1Transform_body
-unset ::sha1::SHA1Transform_body_tmp
-unset ::sha1::SHA1Transform_body_tmp2
-
-# -------------------------------------------------------------------------
-
-proc ::sha1::byte {n v} {expr {((0xFF << (8 * $n)) & $v) >> (8 * $n)}}
-proc ::sha1::bytes {v} { 
-    #format %c%c%c%c [byte 0 $v] [byte 1 $v] [byte 2 $v] [byte 3 $v]
-    format %c%c%c%c \
-        [expr {((0xFF000000 & $v) >> 24) & 0xFF}] \
-        [expr {(0xFF0000 & $v) >> 16}] \
-        [expr {(0xFF00 & $v) >> 8}] \
-        [expr {0xFF & $v}]
-}
-
-# -------------------------------------------------------------------------
-
-proc ::sha1::Hex {data} {
-    binary scan $data H* result
-    return $result
-}
-
-# -------------------------------------------------------------------------
-
-# Description:
-#  Pop the nth element off a list. Used in options processing.
-#
-proc ::sha1::Pop {varname {nth 0}} {
-    upvar $varname args
-    set r [lindex $args $nth]
-    set args [lreplace $args $nth $nth]
-    return $r
-}
-
-# -------------------------------------------------------------------------
-
-# fileevent handler for chunked file hashing.
-#
-proc ::sha1::Chunk {token channel {chunksize 4096}} {
-    upvar #0 $token state
-    
-    SHA1Update $token [read $channel $chunksize]
-
-    if {[eof $channel]} {
-        fileevent $channel readable {}
-        set state(reading) 0
-    }
-    return
-}
-
-# -------------------------------------------------------------------------
-
-proc ::sha1::sha1 {args} {
-    array set opts {-hex 0 -filename {} -channel {} -chunksize 4096}
-    if {[llength $args] == 1} {
-        set opts(-hex) 1
-    } else {
-        while {[string match -* [set option [lindex $args 0]]]} {
-            switch -glob -- $option {
-                -hex       { set opts(-hex) 1 }
-                -bin       { set opts(-hex) 0 }
-                -file*     { set opts(-filename) [Pop args 1] }
-                -channel   { set opts(-channel) [Pop args 1] }
-                -chunksize { set opts(-chunksize) [Pop args 1] }
-                default {
-                    if {[llength $args] == 1} { break }
-                    if {[string compare $option "--"] == 0} { Pop args; break }
-                    set err [join [lsort [concat -bin [array names opts]]] ", "]
-                    return -code error "bad option $option:\
-                    must be one of $err"
-                }
-            }
-            Pop args
-        }
-    }
-
-    if {$opts(-filename) != {}} {
-        set opts(-channel) [open $opts(-filename) r]
-        fconfigure $opts(-channel) -translation binary
-    }
-
-    if {$opts(-channel) == {}} {
-
-        if {[llength $args] != 1} {
-            return -code error "wrong # args:\
-                should be \"sha1 ?-hex? -filename file | string\""
-        }
-        set tok [SHA1Init]
-        SHA1Update $tok [lindex $args 0]
-        set r [SHA1Final $tok]
-
-    } else {
-
-        set tok [SHA1Init]
-        # FRINK: nocheck
-        set [subst $tok](reading) 1
-        fileevent $opts(-channel) readable \
-            [list [namespace origin Chunk] \
-                 $tok $opts(-channel) $opts(-chunksize)]
-        # FRINK: nocheck
-        vwait [subst $tok](reading)
-        set r [SHA1Final $tok]
-
-        # If we opened the channel - we should close it too.
-        if {$opts(-filename) != {}} {
-            close $opts(-channel)
-        }
-    }
-    
-    if {$opts(-hex)} {
-        set r [Hex $r]
-    }
-    return $r
-}
-
-# -------------------------------------------------------------------------
-
-proc ::sha1::hmac {args} {
-    array set opts {-hex 1 -filename {} -channel {} -chunksize 4096}
-    if {[llength $args] != 2} {
-        while {[string match -* [set option [lindex $args 0]]]} {
-            switch -glob -- $option {
-                -key       { set opts(-key) [Pop args 1] }
-                -hex       { set opts(-hex) 1 }
-                -bin       { set opts(-hex) 0 }
-                -file*     { set opts(-filename) [Pop args 1] }
-                -channel   { set opts(-channel) [Pop args 1] }
-                -chunksize { set opts(-chunksize) [Pop args 1] }
-                default {
-                    if {[llength $args] == 1} { break }
-                    if {[string compare $option "--"] == 0} { Pop args; break }
-                    set err [join [lsort [array names opts]] ", "]
-                    return -code error "bad option $option:\
-                    must be one of $err"
-                }
-            }
-            Pop args
-        }
-    }
-
-    if {[llength $args] == 2} {
-        set opts(-key) [Pop args]
-    }
-
-    if {![info exists opts(-key)]} {
-        return -code error "wrong # args:\
-            should be \"hmac ?-hex? -key key -filename file | string\""
-    }
-
-    if {$opts(-filename) != {}} {
-        set opts(-channel) [open $opts(-filename) r]
-        fconfigure $opts(-channel) -translation binary
-    }
-
-    if {$opts(-channel) == {}} {
-
-        if {[llength $args] != 1} {
-            return -code error "wrong # args:\
-                should be \"hmac ?-hex? -key key -filename file | string\""
-        }
-        set tok [HMACInit $opts(-key)]
-        HMACUpdate $tok [lindex $args 0]
-        set r [HMACFinal $tok]
-
-    } else {
-
-        set tok [HMACInit $opts(-key)]
-        # FRINK: nocheck
-        set [subst $tok](reading) 1
-        fileevent $opts(-channel) readable \
-            [list [namespace origin Chunk] \
-                 $tok $opts(-channel) $opts(-chunksize)]
-        # FRINK: nocheck
-        vwait [subst $tok](reading)
-        set r [HMACFinal $tok]
-
-        # If we opened the channel - we should close it too.
-        if {$opts(-filename) != {}} {
-            close $opts(-channel)
-        }
-    }
-    
-    if {$opts(-hex)} {
-        set r [Hex $r]
-    }
-    return $r
-}
-
-# -------------------------------------------------------------------------
-
-# Try and load a compiled extension to help.
-namespace eval ::sha1 {
-    variable e {}
-    foreach e [KnownImplementations] {
-	if {[LoadAccelerator $e]} {
-	    SwitchTo $e
-	    break
-	}
-    }
-    unset e
-}
-
-package provide sha1 2.0.4
-
-# -------------------------------------------------------------------------
-# Local Variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellfilter-0.1.9.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellfilter-0.1.9.tm
deleted file mode 100644
index 73ea752c..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellfilter-0.1.9.tm
+++ /dev/null
@@ -1,3209 +0,0 @@
-#copyright 2023 Julian Marcel Noble
-#license: BSD (revised 3-clause)
-#
-#Note shellfilter is currently only directly useful for unidirectional channels e.g stdin,stderr,stdout, or for example fifo2 where only one direction is being used.
-#To generalize this to bidrectional channels would require shifting around read & write methods on transform objects in a very complicated manner.
-#e.g each transform would probably be a generic transform container which holds sub-objects to which read & write are indirected.
-#This is left as a future exercise...possibly it's best left as a concept for uni-directional channels anyway 
-# - as presumably the reads/writes from a bidirectional channel could be diverted off to unidirectional pipelines for processing with less work
-# (and maybe even better speed/efficiency if the data volume is asymmetrical and there is significant processing on one direction)
-#
-
-
-tcl::namespace::eval shellfilter::log {
-    variable allow_adhoc_tags 1
-    variable open_logs [tcl::dict::create]
-    variable is_enabled 0
-
-    proc disable {} {
-        variable is_enabled
-        set is_enabled 0
-        proc ::shellfilter::log::open     {tag settingsdict} {}
-        proc ::shellfilter::log::write    {tag msg} {}
-        proc ::shellfilter::log::write_sync    {tag msg} {}
-        proc ::shellfilter::log::close    {tag} {}
-    }
-
-    proc enable {} {
-        variable is_enabled
-        set is_enabled 1
-        #'tag' is an identifier for the log source. 
-        # each tag will use it's own thread to write to the configured log target
-        proc ::shellfilter::log::open {tag {settingsdict {}}} {
-            upvar ::shellfilter::sources sourcelist
-            if {![dict exists $settingsdict -tag]} {
-                tcl::dict::set settingsdict -tag $tag
-            } else {
-                #review
-                if {$tag ne [tcl::dict::get $settingsdict -tag]} {
-                    error "shellfilter::log::open first argument tag: '$tag' does not match -tag '[tcl::dict::get $settingsdict -tag]' omit -tag, or supply same value"
-                }
-            }
-            if {$tag ni $sourcelist} {
-                lappend sourcelist $tag
-            }
-
-            #note new_worker 
-            set worker_tid [shellthread::manager::new_worker $tag $settingsdict]
-            #puts stderr "shellfilter::log::open this_threadid: [thread::id] tag: $tag worker_tid: $worker_tid"
-            return $worker_tid
-        }
-        proc ::shellfilter::log::write {tag msg} {
-            upvar ::shellfilter::sources sourcelist
-            variable allow_adhoc_tags
-            if {!$allow_adhoc_tags} {
-                if {$tag ni $sourcelist} {
-                    error "shellfilter::log::write tag '$tag' hasn't been initialised with a call to shellfilter::log::open $tag <settings>, and allow_adhoc_tags has been set false. use shellfilter::log::require_open false to allow adhoc tags"
-                }
-            }
-            shellthread::manager::write_log $tag $msg
-        }
-        #write_sync - synchronous processing with logging thread, slower but potentially useful for debugging/testing or forcing delay til log written
-        proc ::shellfilter::log::write_sync {tag msg} {
-            shellthread::manager::write_log $tag $msg -async 0
-        }
-        proc ::shellfilter::log::close {tag} {
-            #shellthread::manager::close_worker $tag
-            shellthread::manager::unsubscribe [list $tag]; #workertid will be added back to free list if no tags remain subscribed
-        }
-
-    }
-
-    #review
-    #configure whether we can call shellfilter::log::write without having called open first
-    proc require_open {{is_open_required {}}} {
-        variable allow_adhoc_tags
-        if {![string length $is_open_required]} {
-            return $allow_adhoc_tags
-        } else {
-            set truevalues [list y yes true 1]
-            set falsevalues [list n no false 0]
-            if {[string tolower $is_open_required] in $truevalues} {
-                set allow_adhoc_tags 1
-            } elseif {[string tolower $is_open_required] in $falsevalues} {
-                set allow_adhoc_tags 0
-            } else {
-                error "shellfilter::log::require_open unrecognised value '$is_open_required' try one of $truevalues or $falsevalues"
-            }
-        }
-    }
-    if {[catch {package require shellthread}]} {
-        shellfilter::log::disable
-    } else {
-        shellfilter::log::enable
-    }
-
-}
-namespace eval shellfilter::pipe {
-    #write channel for program. workerthread reads other end of fifo2 and writes data somewhere
-    proc open_out {tag_pipename {pipesettingsdict {}}} {
-        set defaultsettings {-buffering full}
-        set settingsdict [dict merge $defaultsettings $pipesettingsdict]
-        package require shellthread
-        #we are only using the fifo in a single direction to pipe to another thread
-        # - so whilst wchan and rchan could theoretically each be both read & write we're only using them for one operation each
-        if {![catch {package require Memchan}]} {
-            lassign [fifo2] wchan rchan
-        } else {
-            package require tcl::chan::fifo2
-            lassign [tcl::chan::fifo2] wchan rchan
-        }
-        #default -translation for both types of fifo on windows is {auto crlf}
-        # -encoding is as per '[encoding system]' on the platform - e.g utf-8 (e.g windows when beta-utf8 enabled)
-        chan configure $wchan -buffering [dict get $settingsdict -buffering] ;#
-        #application end must not be binary for our filters to operate on it
-
-
-        #chan configure $rchan -buffering [dict get $settingsdict -buffering] -translation binary ;#works reasonably..
-        chan configure $rchan -buffering [dict get $settingsdict -buffering] -translation lf 
-
-        set worker_tid [shellthread::manager::new_pipe_worker $tag_pipename $settingsdict]
-        #puts stderr "worker_tid: $worker_tid"
-
-        #set_read_pipe does the thread::transfer of the rchan end. -buffering setting is maintained during thread transfer
-        shellthread::manager::set_pipe_read_from_client $tag_pipename $worker_tid $rchan
-
-        set pipeinfo [list localchan $wchan remotechan $rchan workertid $worker_tid direction out]
-        return $pipeinfo
-    }
-
-    #read channel for program.  workerthread writes to other end of fifo2 from whereever it's reading (stdin, file?)
-    proc open_in {tag_pipename {settingsdict {} }} {
-        package require shellthread
-        package require tcl::chan::fifo2
-        lassign [tcl::chan::fifo2] wchan rchan
-        set program_chan $rchan
-        set worker_chan $wchan
-        chan configure $worker_chan     -buffering [dict get $settingsdict -buffering]
-        chan configure $program_chan    -buffering [dict get $settingsdict -buffering]
-
-        chan configure $program_chan -blocking 0
-        chan configure $worker_chan -blocking 0
-        set worker_tid [shellthread::manager::new_worker $tag_pipename $settingsdict]
-
-        shellthread::manager::set_pipe_write_to_client $tag_pipename $worker_tid $worker_chan
-
-        set pipeinfo [list localchan $program_chan remotechan $worker_chan workertid $worker_tid direction in]
-        puts stderr "|jn>pipe::open_in returning $pipeinfo"
-        puts stderr "program_chan: [chan conf $program_chan]"
-        return $pipeinfo
-    }
-
-}
-
-
-
-namespace eval shellfilter::ansi {
-    #maint warning - 
-    #ansistrip from punk::ansi is better/more comprehensive
-    proc stripcodes {text} {
-        #obsolete?
-        #single "final byte" in the range 0x40–0x7E (ASCII @A–Z[\]^_`a–z{|}~).
-        dict set escape_terminals CSI [list @ \\ ^ _ ` | ~ a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z "\{" "\}"]
-        #dict set escape_terminals CSI [list J K m n A B C D E F G s u] ;#basic 
-        dict set escape_terminals OSC [list \007 \033\\] ;#note mix of 1 and 2-byte terminals 
-        #we process char by char - line-endings whether \r\n or \n should be processed as per any other character.
-        #line endings can theoretically occur within an ansi escape sequence (review e.g title?)
-        set inputlist [split $text ""]
-        set outputlist [list] 
-
-        #self-contained 2 byte ansi escape sequences - review more?
-        set  2bytecodes_dict [dict create\
-            "reset_terminal" "\033c"\
-            "save_cursor_posn" "\u001b7"\
-            "restore_cursor_posn" "\u001b8"\
-            "cursor_up_one" "\u001bM"\
-            ]
-        set 2bytecodes [dict values $2bytecodes_dict]
-
-        set in_escapesequence 0
-        #assumption - undertext already 'rendered' - ie no backspaces or carriagereturns or other cursor movement controls
-        set i 0
-        foreach u $inputlist {
-            set v [lindex $inputlist $i+1]
-            set uv ${u}${v}
-            if {$in_escapesequence eq "2b"} {
-                #2nd byte - done.
-                set in_escapesequence 0
-            } elseif {$in_escapesequence != 0} {
-                set escseq [dict get $escape_terminals $in_escapesequence]
-                if {$u in $escseq} {
-                    set in_escapesequence 0
-                } elseif {$uv in $escseq} {
-                    set in_escapseequence 2b ;#flag next byte as last in sequence
-                }
-            } else {
-                #handle both 7-bit and 8-bit CSI and OSC
-                if {[regexp {^(?:\033\[|\u009b)} $uv]} {
-                    set in_escapesequence CSI
-                } elseif {[regexp {^(?:\033\]|\u009c)} $uv]} {
-                    set in_escapesequence OSC
-                } elseif {$uv in $2bytecodes} {
-                    #self-contained e.g terminal reset - don't pass through.
-                    set in_escapesequence 2b
-                } else {
-                    lappend outputlist $u
-                }
-            }
-            incr i
-        }
-        return [join $outputlist ""]
-    }
-
-}
-namespace eval shellfilter::chan {
-    set testobj ::shellfilter::chan::var
-    if {$testobj ni [info commands $testobj]} {
-
-    oo::class create var {
-        variable o_datavar
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            set varname [dict get $settingsdict -varname] 
-            set o_datavar $varname
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 1  ;# as a var is diversionary - default it to be a jucntion
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {ch} {
-            my destroy
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {ch count} {
-        #  return ?
-        #}
-        method write {ch bytes} {
-            set stringdata [encoding convertfrom $o_enc $bytes]
-            append $o_datavar $stringdata
-            return ""
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction 
-        }
-        method meta_buffering_supported {} {
-            return [list line full none]
-        }
-    }
-
-    #todo - something similar for multiple grep specs each with own -pre & -post .. store to dict?
-    oo::class create tee_grep_to_var {
-        variable o_datavar
-        variable o_lastxlines 
-        variable o_trecord 
-        variable o_grepfor
-        variable o_prelines
-        variable o_postlines
-        variable o_postcountdown 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set o_lastxlines [list]
-            set o_postcountdown 0
-            set defaults [tcl::dict::create -pre 1 -post 1]
-            set settingsdict [tcl::dict::get $tf -settings]
-            set settings [tcl::dict::merge $defaults $settingsdict]
-            set o_datavar [tcl::dict::get $settings -varname]
-            set o_grepfor [tcl::dict::get $settings -grep]
-            set o_prelines [tcl::dict::get $settings -pre]
-            set o_postlines [tcl::dict::get $settings -post]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #method read {transform_handle count} {
-        #  return ?
-        #}
-        method write {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            set lastx $o_lastxlines 
-            lappend o_lastxlines $logdata
-
-            if {$o_postcountdown > 0} {
-                append $o_datavar $logdata
-                if {[regexp $o_grepfor $logdata]} {
-                    #another match in postlines
-                    set o_postcountdown $o_postlines
-                } else {
-                    incr o_postcountdown -1
-                }
-            } else {
-                if {[regexp $o_grepfor $logdata]} {
-                    append $o_datavar [join $lastx]
-                    append $o_datavar $logdata
-                    set o_postcountdown $o_postlines
-                }
-            }
-
-            if {[llength $o_lastxlines] > $o_prelines} {
-                set o_lastxlines [lrange $o_lastxlines 1 end]
-            }
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-        method meta_buffering_supported {} {
-            return [list line]
-        }
-    }
-
-    oo::class create tee_to_var {
-        variable o_datavars
-        variable o_trecord
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            set varname [tcl::dict::get $settingsdict -varname]
-            set o_datavars $varname
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize finalize write flush clear]
-        }
-        method finalize {ch} {
-            my destroy
-        }
-        method clear {ch} {
-            return
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {ch count} {
-        #  return ?
-        #}
-        method flush {ch} {
-            return ""
-        }
-        method write {ch bytes} {
-            set stringdata [tcl::encoding::convertfrom $o_enc $bytes]
-            foreach v $o_datavars {
-                append $v $stringdata
-            }
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    oo::class create tee_to_pipe {
-        variable o_logsource
-        variable o_localchan
-        variable o_enc
-        variable o_trecord
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {![dict exists $settingsdict -tag]} {
-                error "tee_to_pipe constructor settingsdict missing -tag"
-            }
-            set o_localchan [tcl::dict::get $settingsdict -pipechan]
-            set o_logsource [tcl::dict::get $settingsdict -tag]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read drain write flush clear finalize]
-        }
-        method finalize {transform_handle} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {transform_handle events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        method clear {transform_handle} {
-            return
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            #::shellfilter::log::write $o_logsource $logdata
-            puts -nonewline $o_localchan $logdata
-            return  $bytes
-        }
-        method flush {transform_handle} {
-            return ""
-        }
-        method write {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            #::shellfilter::log::write $o_logsource $logdata
-            puts -nonewline $o_localchan $logdata
-            return $bytes
-        }
-        #a tee is not a redirection - because data still flows along the main path
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-
-    }
-    oo::class create tee_to_log  {
-        variable o_tid 
-        variable o_logsource
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {![tcl::dict::exists $settingsdict -tag]} {
-                error "tee_to_log constructor settingsdict missing -tag"
-            }
-            set o_logsource [tcl::dict::get $settingsdict -tag]
-            set o_tid [::shellfilter::log::open $o_logsource $settingsdict]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {ch} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        method read {ch bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            ::shellfilter::log::write $o_logsource $logdata
-            return  $bytes
-        }
-        method write {ch bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            ::shellfilter::log::write $o_logsource $logdata
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-
-
-    oo::class create logonly  {
-        variable o_tid
-        variable o_logsource
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {![dict exists $settingsdict -tag]} {
-                error "logonly constructor settingsdict missing -tag"
-            }
-            set o_logsource [dict get $settingsdict -tag]
-            set o_tid [::shellfilter::log::open $o_logsource $settingsdict]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {transform_handle} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {transform_handle events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {transform_handle count} {
-        #  return ?
-        #}
-        method write {transform_handle bytes} {
-            set logdata [encoding convertfrom $o_enc $bytes] 
-            if 0 {
-                if {"utf-16le" in [encoding names]} {
-                    set logdata [encoding convertfrom utf-16le $bytes]
-                } else {
-                    set logdata [encoding convertto utf-8 $bytes]
-                    #set logdata [encoding convertfrom unicode $bytes]
-                    #set logdata $bytes
-                }
-            }
-            #set logdata $bytes
-            #set logdata [string map [list \r -r- \n -n-] $logdata]
-            #if {[string equal [string range $logdata end-1 end] "\r\n"]} {
-            #  set logdata [string range $logdata 0 end-2]
-            #}
-            #::shellfilter::log::write_sync $o_logsource $logdata
-            ::shellfilter::log::write $o_logsource $logdata
-            #return $bytes
-            return 
-        }
-        method meta_is_redirection {} {
-            return 1
-        }
-    }
-
-    #review - we should probably provide a more narrow filter than only strips color - and one that strips most(?) 
-    # - but does it ever really make sense to strip things like "esc(0" and "esc(B" which flip to the G0 G1 characters? (once stripped - things like box-lines become ordinary letters - unlikely to be desired?)
-    #punk::ansi::ansistrip converts at least some of the box drawing G0 chars to unicode - todo - more complete conversion
-    #assumes line-buffering. a more advanced filter required if ansicodes can arrive split across separate read or write operations!
-    oo::class create ansistrip {
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            package require punk::ansi
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write clear flush drain finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method clear {transform_handle} {
-            return
-        }
-        method watch {transform_handle events} {
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            set outstring [punk::ansi::ansistrip $instring]
-            return [encoding convertto $o_enc $outstring]
-        }
-        method flush {transform_handle} {
-            return ""
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            set outstring [punk::ansi::ansistrip $instring]
-            return [encoding convertto $o_enc $outstring]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-
-    #a test
-    oo::class create reconvert {
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-    }
-    oo::define reconvert {
-        method meta_is_redirection {} {
-            return 0
-        }
-    }
-
-    
-    #this isn't a particularly nice thing to do to a stream - especially if someone isn't expecting ansi codes sprinkled through it.
-    #It can be useful for test/debugging
-    #Due to chunking at random breaks - we have to check if an ansi code in the underlying stream has been split - otherwise our wrapping will break the existing ansi
-    #
-    set sixelstart_re {\x1bP([;0-9]*)q} ;#7-bit  - todo 8bit
-    #todo kitty graphics  \x1b_G...
-    #todo iterm graphics
-
-    oo::class create ansiwrap {
-        variable o_trecord
-        variable o_enc
-        variable o_colour
-        variable o_do_colour
-        variable o_do_normal
-        variable o_is_junction
-        variable o_codestack
-        variable o_gx_state  ;#on/off alt graphics
-        variable o_buffered
-        constructor {tf} {
-            package require punk::ansi
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {[tcl::dict::exists $settingsdict -colour]} {
-                set o_colour [tcl::dict::get $settingsdict -colour]
-                set o_do_colour [punk::ansi::a+ {*}$o_colour]
-                set o_do_normal [punk::ansi::a]
-            } else {
-                set o_colour {}
-                set o_do_colour ""
-                set o_do_normal ""
-            }
-            set o_codestack [list]
-            set o_gx_state [expr {off}]
-            set o_buffered "" ;#hold back data that potentially contains partial ansi codes
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-
-
-        #todo - track when in sixel,iterm,kitty graphics data - can be very large
-        method Trackcodes {chunk} {
-            #note - caller can use 2 resets in a single unit to temporarily reset to no sgr (override ansiwrap filter)
-            #e.g [a+ reset reset] (<esc><lb>0;0m   vs <esc><lb>0;m)
-
-            #puts stdout "===[ansistring VIEW -lf 1 $o_buffered]"
-            set buf $o_buffered$chunk
-            set emit ""
-            if {[string last \x1b $buf] >= 0} {
-                #detect will detect ansi SGR and gron groff and other codes
-                if {[punk::ansi::ta::detect $buf]} {
-                    #split_codes_single regex faster than split_codes - but more resulting parts
-                    #'single' refers to number of escapes - but can still contain e.g multiple SGR codes (or mode set operations etc)
-                    set parts [punk::ansi::ta::split_codes_single $buf]
-                    #process all pt/code pairs except for trailing pt
-                    foreach {pt code} [lrange $parts 0 end-1] {
-                        #puts "<==[ansistring VIEW -lf 1 $pt]==>"
-                        switch -- [llength $o_codestack] {
-                            0 {
-                                append emit $o_do_colour$pt$o_do_normal
-                            }
-                            1 {
-                                if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                    append emit $o_do_colour$pt$o_do_normal
-                                    set o_codestack [list]
-                                } else {
-                                    #append emit [lindex $o_codestack 0]$pt
-                                    append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$pt
-                                }
-                            }
-                            default {
-                                append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$pt
-                            }
-                        }
-                        #if {( ![llength $o_codestack] || ([llength $o_codestack] == 1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]))} {
-                        #    append emit $o_do_colour$pt$o_do_normal
-                        #    #append emit $pt
-                        #} else {
-                        #    append emit $pt
-                        #}
-
-                        set c1c2 [tcl::string::range $code 0 1]
-                        set leadernorm [tcl::string::range [tcl::string::map [list\
-                            \x1b\[      7CSI\
-                            \x9b        8CSI\
-                            \x1b\(      7GFX\
-                        ] $c1c2] 0 3]
-                        switch -- $leadernorm {
-                            7CSI - 8CSI {
-                                if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                    set o_codestack [list "\x1b\[m"]
-                                } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                    set o_codestack [list $code]
-                                } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                                    #todo - make caching is_sgr method
-                                    set dup_posns [lsearch -all -exact $o_codestack $code]
-                                    set o_codestack [lremove $o_codestack {*}$dup_posns]
-                                    lappend o_codestack $code
-                                } else {
-
-                                }
-                            }
-                            7GFX {
-                                switch -- [tcl::string::index $code 2] {
-                                    "0" {
-                                        set o_gx_state on 
-                                    }
-                                    "B" {
-                                        set o_gx_state off 
-                                    }
-                                }
-                            }
-                            default {
-                                #other ansi codes
-                            }
-                        }
-                        append emit $code
-                    }
-
-
-                    set trailing_pt [lindex $parts end]
-                    if {[string first \x1b $trailing_pt] >= 0} {
-                        #puts  stdout "...[ansistring VIEW -lf 1 $trailing_pt]...buffered:<[ansistring VIEW $o_buffered]> '[ansistring VIEW -lf 1 $emit]'"
-                        #may not be plaintext after all
-                        set o_buffered $trailing_pt
-                        #puts stdout "=-=[ansistring VIEWCODES $o_buffered]"
-                    } else {
-                        #puts [a+ yellow]???[ansistring VIEW "'$o_buffered'<+>'$trailing_pt'"]???[a]
-                        switch -- [llength $o_codestack] {
-                            0 {
-                                append emit $o_do_colour$trailing_pt$o_do_normal
-                            }
-                            1 {
-                                if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                    append emit $o_do_colour$trailing_pt$o_do_normal
-                                    set o_codestack [list]
-                                } else {
-                                    #append emit [lindex $o_codestack 0]$trailing_pt
-                                    append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$trailing_pt
-                                }
-                            }
-                            default {
-                                append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$trailing_pt
-                            }
-                        }
-                        #if {![llength $o_codestack] || ([llength $o_codestack] ==1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]])} {
-                        #    append emit $o_do_colour$trailing_pt$o_do_normal
-                        #} else {
-                        #    append emit $trailing_pt
-                        #}
-                        #the previous o_buffered formed the data we emitted - nothing new to buffer because we emitted all parts including the trailing plaintext
-                        set o_buffered ""
-                    }
-
-
-                } else {
-                    #REVIEW - this holding a buffer without emitting as we go is ugly.
-                    # - we may do better to detect and retain the opener, then use that opener to avoid false splits within the sequence.
-                    # - we'd then need to detect the appropriate close to restart splitting and codestacking 
-                    # - we may still need to retain and append the data to the opener (in some cases?) - which is a slight memory issue - but at least we would emit everything immediately.
-
-
-                    #puts "-->esc but no detect"
-                    #no complete ansi codes - but at least one esc is present
-                    if {[string index $buf end] eq "\x1b" && [string first \x1b $buf] == [string length $buf]-1} {
-                        #string index in first part of && clause to avoid some unneeded scans of whole string for this test
-                        #we can't use 'string last' - as we need to know only esc is last char in buf
-                        #puts ">>trailing-esc<<"
-                        set o_buffered \x1b
-                        set emit $o_do_colour[string range $buf 0 end-1]$o_do_normal
-                        #set emit [string range $buf 0 end-1]
-                        set buf ""
-                    } else {
-                        set emit_anyway 0
-                        #todo - ensure non-ansi escapes in middle of chunks don't lead to ever growing buffer
-                        if {[punk::ansi::ta::detect_st_open $buf]} {
-                            #no detect - but we have an ST open (privacy msg etc) - allow a larger chunk before we give up - could include newlines (and even nested codes - although not widely interpreted that way in terms)
-                            set st_partial_len [expr {[string length $buf] - [string last \x1b $buf]}] ;#length of unclosed ST code
-                            #todo - configurable ST max - use 1k for now
-                            if {$st_partial_len < 1001} {
-                                append o_buffered $chunk
-                                set emit ""
-                                set buf ""
-                            } else {
-                                set emit_anyway 1
-                                set o_buffered ""
-                            }
-                        } else {
-                            set possible_code_len [expr {[string length $buf] - [string last \x1b $buf]}] ;#length of possible code 
-                            #most opening sequences are 1,2 or 3 chars - review?
-                            set open_sequence_detected [punk::ansi::ta::detect_open $buf]
-                            if {$possible_code_len > 10 && !$open_sequence_detected} {
-                                set emit_anyway 1
-                                set o_buffered ""
-                            } else {
-                                #could be composite sequence with params - allow some reasonable max sequence length
-                                #todo - configurable max sequence length
-                                #len 40-50 quite possible for SGR sequence using coloured underlines etc, even without redundancies
-                                # - allow some headroom for redundant codes when the caller didn't merge.
-                                if {$possible_code_len < 101} {
-                                    append o_buffered $chunk
-                                    set buf ""
-                                    set emit ""
-                                } else {
-                                    #allow a little more grace if we at least have an opening ansi sequence of any type..
-                                    if {$open_sequence_detected && $possible_code_len < 151} {
-                                        append o_buffered $chunk
-                                        set buf ""
-                                        set emit ""
-                                    } else {
-                                        set emit_anyway 1
-                                        set o_buffered ""
-                                    }
-                                }
-                            }
-                        }
-                        if {$emit_anyway} {
-                            #assert: any time emit_anyway == 1 buf already contains all of previous o_buffered and o_buffered has been cleared.
-
-                            #looked ansi-like - but we've given enough length without detecting close..
-                            #treat as possible plain text with some esc or unrecognised ansi sequence
-                            switch -- [llength $o_codestack] {
-                                0 {
-                                    set emit $o_do_colour$buf$o_do_normal
-                                }
-                                1 {
-                                    if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                        set emit $o_do_colour$buf$o_do_normal
-                                        set o_codestack [list]
-                                    } else {
-                                        #set emit [lindex $o_codestack 0]$buf
-                                        set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                                    }
-                                }
-                                default {
-                                    #set emit [punk::ansi::codetype::sgr_merge_singles $o_codestack]$buf
-                                    set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                                }
-                            }
-                            #if {( ![llength $o_codestack] || ([llength $o_codestack] == 1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]))} {
-                            #    set emit $o_do_colour$buf$o_do_normal
-                            #} else {
-                            #    set emit $buf
-                            #}
-                        }
-                    }
-                }
-            } else {
-                #no esc
-                #puts stdout [a+ yellow]...[a]
-                #test!
-                switch -- [llength $o_codestack] {
-                    0 {
-                        set emit $o_do_colour$buf$o_do_normal
-                    }
-                    1 {
-                        if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                            set emit $o_do_colour$buf$o_do_normal
-                            set o_codestack [list]
-                        } else {
-                            #set emit [lindex $o_codestack 0]$buf
-                            set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                        }
-                    }
-                    default {
-                        #set emit [punk::ansi::codetype::sgr_merge_singles $o_codestack]$buf
-                        set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                    }
-                }
-                set o_buffered ""
-            }
-            return [dict create emit $emit stacksize [llength $o_codestack]]
-        }
-        method initialize {transform_handle mode} {
-            #clear undesirable in terminal output channels (review)
-            return [list initialize write flush read drain finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method clear {transform_handle} {
-            #In the context of stderr/stdout - we probably don't want clear to run.
-            #Terminals might call it in the middle of a split ansi code - resulting in broken output.
-            #Leave clear of it the init call
-            puts stdout "<clear>"
-            set emit [tcl::encoding::convertto $o_enc $o_buffered]
-            set o_buffered ""
-            return $emit 
-        }
-        method flush {transform_handle} {
-            #puts stdout "<flush>"
-            set emit [tcl::encoding::convertto $o_enc $o_buffered]
-            set o_buffered ""
-            return $emit
-            return
-        }
-        method write {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set streaminfo [my Trackcodes $instring]
-            set emit        [dict get $streaminfo emit]
-
-            #review - wrapping already done in Trackcodes
-            #if {[dict get $streaminfo stacksize] == 0} {
-            #    #no ansi on the stack - we can wrap
-            #    #review
-            #    set outstring "$o_do_colour$emit$o_do_normal"
-            #} else {
-            #}
-            #if {[llength $o_codestack]} {
-            #    set outstring [punk::ansi::codetype::sgr_merge_singles $o_codestack]$emit
-            #} else {
-            #    set outstring $emit
-            #}
-
-            set outstring $emit
-
-            #puts stdout "decoded   >>>[ansistring VIEWCODES $outstring]<<<"
-            #puts stdout "re-encoded>>>[ansistring VIEW [tcl::encoding::convertto $o_enc $outstring]]<<<"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method Write_naive {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set outstring "$o_do_colour$instring$o_do_normal"
-            #set outstring ">>>$instring"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set outstring "$o_do_colour$instring$o_do_normal"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    #todo - something 
-    oo::class create rebuffer {
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            #set outstring [string map [list \n <N>] $instring]
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define rebuffer {
-        method meta_is_redirection {} {
-            return 0
-        }
-    }
-
-    #has slight buffering/withholding of lone training cr - we can't be sure that a cr at end of chunk is part of \r\n sequence 
-    oo::class create tounix {
-        variable o_trecord 
-        variable o_enc
-        variable o_last_char_was_cr
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-            set o_last_char_was_cr 0
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #don't use read
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            #set outstring [string map [list \n <N>] $instring]
-
-            if {$o_last_char_was_cr} {
-                set instring "\r$instring"
-            }
-
-            set outstring [string map {\r\n \n} $instring]
-            set lastchar [string range $outstring end end] 
-            if {$lastchar eq "\r"} {
-                set o_last_char_was_cr 1
-                set outstring [string range $outstring 0 end-1]
-            } else {
-                set o_last_char_was_cr 0
-            }
-            #review! can we detect eof here on the transform_handle?
-            #if eof, we don't want to strip a trailing \r
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define tounix {
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    #write to handle case where line-endings already \r\n too
-    oo::class create towindows  {
-        variable o_trecord 
-        variable o_enc
-        variable o_last_char_was_cr
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-            set o_last_char_was_cr 0
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #don't use read
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            #set outstring [string map [list \n <N>] $instring]
-
-            if {$o_last_char_was_cr} {
-                set instring "\r$instring"
-            }
-
-            set outstring [string map {\r\n \uFFFF} $instring]
-            set outstring [string map {\n \r\n} $outstring]
-            set outstring [string map {\uFFFF \r\n} $outstring]
-
-            set lastchar [string range $outstring end end] 
-            if {$lastchar eq "\r"} {
-                set o_last_char_was_cr 1
-                set outstring [string range $outstring 0 end-1]
-            } else {
-                set o_last_char_was_cr 0
-            }
-            #review! can we detect eof here on the transform_handle?
-            #if eof, we don't want to strip a trailing \r
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define towindows {
-        method meta_is_redirection {} {
-            return $o_is_junction 
-        }
-    }
-
-    }
-}
-
-# ----------------------------------------------------------------------------
-#review float/sink metaphor.
-#perhaps something with the concept of upstream and downstream?
-#need concepts for push towards data, sit in middle where placed, and lag at tail of data stream. 
-## upstream for stdin is at the bottom of the stack and for stdout is the top of the stack.
-#upstream,neutral-upstream,downstream,downstream-aside,downstream-replace  (default neutral-upstream - require action 'stack' to use standard channel stacking concept and ignore other actions)
-#This is is a bit different from the float/sink metaphor which refers to the channel stacking order as opposed to the data-flow direction.
-#The idea would be that whether input or output 
-# upstream additions go to the side closest to the datasource
-# downstream additions go furthest from the datasource 
-# - all new additions go ahead of any diversions as the most upstream diversion is the current end of the stream in a way.
-# - this needs review regarding subsequent removal of the diversion and whether filters re-order in response.. 
-#    or if downstream & neutral additions are reclassified upon insertion if they land among existing upstreams(?) 
-# neutral-upstream goes to the datasource side of the neutral-upstream list. 
-#   No 'neutral' option provided so that we avoid the need to think forwards or backwards when adding stdin vs stdout shellfilter does the necessary pop/push reordering.
-#   No 'neutral-downstream' to reduce complexity.
-# downstream-replace & downstream-aside head downstream to the first diversion they encounter. ie these actions are no longer referring to the stack direction but only the dataflow direction.
-#
-# ----------------------------------------------------------------------------
-#
-# 'filters' are transforms that don't redirect
-# - limited range of actions to reduce complexity.
-# - any requirement not fulfilled by float,sink,sink-replace,sink-sideline should be done by multiple pops and pushes
-#
-#actions can float to top of filters or sink to bottom of filters
-#when action is of type sink, it can optionally replace or sideline the first non-filter it encounters (highest redirection on the stack.. any lower are starved of the stream anyway)
-# - sideline means to temporarily replace the item and keep a record, restoring if/when we are removed from the transform stack
-#
-##when action is of type float it can't replace or sideline anything. A float is added above any existing floats and they stay in the same order relative to each other,
-#but non-floats added later will sit below all floats.
-#(review - float/sink initially designed around output channels. For stdin the dataflow is reversed. implement float-aside etc?)
-#
-#
-#action: float sink sink-replace,sink-sideline
-#
-#
-## note - whether stack is for input or output we maintain it in the same direction - which is in sync with the tcl chan pop chan push concept.
-## 
-namespace eval shellfilter::stack {
-    namespace export {[a-z]*}
-    namespace ensemble create
-    #todo - implement as oo ?
-    variable pipelines [list]
-
-    proc items {} {
-        #review - stdin,stdout,stderr act as pre-existing pipelines, and we can't create a new one with these names - so they should probably be autoconfigured and listed..
-        # - but in what contexts? only when we find them in [chan names]?
-        variable pipelines
-        return [dict keys $pipelines]
-    }
-    proc item {pipename} {
-        variable pipelines
-        return [dict get $pipelines $pipename]
-    }
-    proc item_tophandle {pipename} {
-        variable pipelines
-        set handle "" 
-        if {[dict exists $pipelines $pipename stack]} {
-            set stack [dict get $pipelines $pipename stack]
-            set topstack [lindex $stack end] ;#last item in stack is top (for output channels anyway) review comment. input chans?
-            if {$topstack ne ""} {
-                if {[dict exists $topstack -handle]} {
-                    set handle [dict get $topstack -handle]
-                }
-            }
-        }
-        return $handle
-    }
-    proc status {{pipename *} args} {
-        variable pipelines
-        set pipecount [dict size $pipelines]
-        set tabletitle "$pipecount pipelines active"
-        set t [textblock::class::table new $tabletitle]
-        $t add_column -headers [list channel-ident]
-        $t add_column -headers [list device-info localchan]
-        $t configure_column 1 -header_colspans {3}
-        $t add_column -headers [list "" remotechan]
-        $t add_column -headers [list "" tid]
-        $t add_column -headers [list stack-info]
-        foreach k [dict keys $pipelines $pipename] {
-            set lc [dict get $pipelines $k device localchan]
-            set rc [dict get $pipelines $k device remotechan]
-            if {[dict exists $k device workertid]} {
-                set tid [dict get $pipelines $k device workertid]
-            } else {
-                set tid "-"
-            }
-            set stack [dict get $pipelines $k stack]
-            if {![llength $stack]} {
-                    set  stackinfo "" 
-            } else {
-                set tbl_inner [textblock::class::table new]
-                $tbl_inner configure -show_edge 0
-                foreach rec $stack {
-                    set handle      [punk::lib::dict_getdef $rec -handle ""]
-                    set id          [punk::lib::dict_getdef $rec -id ""]
-                    set transform   [namespace tail [punk::lib::dict_getdef $rec -transform ""]]
-                    set settings    [punk::lib::dict_getdef $rec -settings ""]
-                    $tbl_inner add_row [list $id $transform $handle $settings]
-                }
-                set stackinfo [$tbl_inner print]
-                $tbl_inner destroy
-            }
-            $t add_row [list $k $lc $rc $tid $stackinfo]
-        }
-        set result [$t print]
-        $t destroy
-        return $result
-    }
-    proc status1 {{pipename *} args} {
-        variable pipelines
-
-        set pipecount [dict size $pipelines]
-        set tableprefix "$pipecount pipelines active\n"
-        foreach p [dict keys $pipelines] {
-            append tableprefix "    " $p \n
-        }
-        package require overtype
-        #todo -verbose
-        set table ""
-        set ac1 [string repeat " " 15]
-        set ac2 [string repeat " " 42]
-        set ac3 [string repeat " " 70]
-        append table "[overtype::left $ac1 channel-ident] "
-        append table "[overtype::left $ac2 device-info] "
-        append table "[overtype::left $ac3 stack-info]"
-        append table \n
-
-
-        set bc1 [string repeat " " 5]  ;#stack id
-        set bc2 [string repeat " " 25] ;#transform
-        set bc3 [string repeat " " 50] ;#settings
-
-        foreach k [dict keys $pipelines $pipename] {
-            set lc [dict get $pipelines $k device localchan]
-            if {[dict exists $k device workertid]} {
-                set tid [dict get $pipelines $k device workertid]
-            } else {
-                set tid ""
-            }
-
-
-            set col1 [overtype::left $ac1 $k]
-            set col2 [overtype::left $ac2 "localchan: $lc tid:$tid"]
-
-            set stack [dict get $pipelines $k stack]
-            if {![llength $stack]} {
-                    set col3 $ac3
-            } else {
-                set rec [lindex $stack 0]
-                set bcol1 [overtype::left $bc1 [dict get $rec -id]]
-                set bcol2 [overtype::left $bc2 [namespace tail [dict get $rec -transform]]]
-                set bcol3 [overtype::left $bc3 [dict get $rec -settings]]
-                set stackrow "$bcol1 $bcol2 $bcol3"
-                set col3 [overtype::left $ac3 $stackrow]
-            }
-
-            append table  "$col1 $col2 $col3\n"
-
-
-            foreach rec [lrange $stack 1 end] {
-                set col1 $ac1
-                set col2 $ac2
-                if {[llength $rec]} {
-                    set bc1 [overtype::left $bc1 [dict get $rec -id]]
-                    set bc2 [overtype::left $bc2 [namespace tail [dict get $rec -transform]]]
-                    set bc3 [overtype::left $bc3 [dict get $rec -settings]]
-                    set stackrow "$bc1 $bc2 $bc3"
-                    set col3 [overtype::left $ac3 $stackrow]
-                } else {
-                    set col3 $ac3
-                }
-                append table  "$col1 $col2 $col3\n"
-            }
-
-        }
-        return $tableprefix$table
-    }
-    #used for output channels - we usually want to sink redirections below the floaters and down to topmost existing redir 
-    proc _get_stack_floaters {stack} {
-        set floaters [list]
-        foreach t [lreverse $stack] {
-            switch -- [dict get $t -action] {
-                float {
-                    lappend floaters $t
-                }
-                default {
-                    break
-                }
-            }
-        }
-        return [lreverse $floaters]
-    }
-
-
-
-    #for output-channel sinking
-    proc _get_stack_top_redirection {stack} {
-        set r 0 ;#reverse index
-        foreach t [lreverse $stack] {
-            set obj [dict get $t -obj]
-            if {[$obj meta_is_redirection]} {
-                set idx [expr {[llength $stack] - ($r + 1) }] ;#forward index
-                return [list index $idx record $t]
-            }
-            incr r
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-    #exclude float-locked, locked, sink-locked
-    proc _get_stack_top_redirection_replaceable {stack} {
-        set r 0 ;#reverse index
-        foreach t [lreverse $stack] {
-            set action [dict get $t -action]
-            if {![string match "*locked*" $action]} {
-                set obj [dict get $t -obj]
-                if {[$obj meta_is_redirection]} {
-                    set idx [expr {[llength $stack] - ($r + 1) }] ;#forward index
-                    return [list index $idx record $t]
-                }
-            }
-            incr r
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-
-
-    #for input-channels ? 
-    proc _get_stack_bottom_redirection {stack} {
-        set i 0 
-        foreach t $stack {
-            set obj [dict get $t -obj]
-            if {[$obj meta_is_redirection]} {
-                return [linst index $i record $t]
-            }
-            incr i
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-
-
-    proc get_next_counter {pipename} {
-        variable pipelines
-        #use dictn incr ?
-        set counter [dict get $pipelines $pipename counter]
-        incr counter
-        dict set pipelines $pipename counter $counter
-        return $counter
-    }
-
-    proc unwind {pipename} {
-        variable pipelines
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $pipelines $pipename device localchan]
-        foreach tf [lreverse $stack] {
-            chan pop $localchan
-        }
-        dict set pipelines $pipename [list]
-    }
-    #todo
-    proc delete {pipename {wait 0}} {
-        variable pipelines
-        set pipeinfo [dict get $pipelines $pipename]
-        set deviceinfo [dict get $pipeinfo device] 
-        set localchan [dict get $deviceinfo localchan]
-        unwind $pipename
-
-        #release associated thread
-        set tid       [dict get $deviceinfo workertid]
-        if {$wait} {
-            thread::release -wait $tid
-        } else {
-            thread::release $tid
-        }
-
-        #Memchan closes without error - tcl::chan::fifo2 raises something like 'can not find channel named "rc977"' - REVIEW. why?
-        catch {chan close $localchan}
-    }
-    #review - proc name clarity is questionable. remove_stackitem? 
-    proc remove {pipename remove_id} {
-        variable pipelines
-        if {![dict exists $pipelines $pipename]} {
-            puts stderr "WARNING: shellfilter::stack::remove pipename '$pipename' not found in pipelines dict: '$pipelines' [info level -1]"
-            return
-        }
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $pipelines $pipename device localchan]
-        set posn 0
-        set idposn -1
-        set asideposn -1
-        foreach  t $stack {
-            set id [dict get $t -id]
-            if {$id eq $remove_id} {
-                set idposn $posn
-                break
-            }
-            #look into asides (only can be one for now)
-            if {[llength [dict get $t -aside]]} {
-                set a [dict get $t -aside]
-                if {[dict get $a -id] eq $remove_id} {
-                    set asideposn $posn 
-                    break
-                }
-            }
-            incr posn
-        }
-
-        if {$asideposn > 0} {
-            #id wasn't found directly in stack, but in an -aside. we don't need to pop anything - just clear this aside record
-            set container [lindex $stack $asideposn]
-            dict set container -aside {}
-            lset stack $asideposn $container 
-            dict set pipelines $pipename stack $stack
-        } else {
-            if {$idposn < 0} {
-                ::shellfilter::log::write shellfilter "ERROR shellfilter::stack::remove $pipename id '$remove_id' not found"
-                puts stderr "|WARNING>shellfilter::stack::remove $pipename id '$remove_id' not found"
-                return 0
-            }
-            set removed_item [lindex $stack $idposn] 
-
-            #include idposn in poplist
-            set poplist [lrange $stack $idposn end]
-            set stack [lreplace $stack $idposn end]
-            #pop all chans before adding anything back in!
-            foreach p $poplist {
-                chan pop $localchan
-            }
-
-            if {[llength [dict get $removed_item -aside]]} {
-                set restore [dict get $removed_item -aside]
-                set t [dict get $restore -transform]
-                set tsettings [dict get $restore -settings]
-                set obj [$t new $restore]
-                set h [chan push $localchan $obj]
-                dict set restore -handle $h
-                dict set restore -obj $obj
-                lappend stack $restore
-            }
-
-            #put popped back except for the first one, which we want to remove
-            foreach p [lrange $poplist 1 end] {
-                set t [dict get $p -transform]
-                set tsettings [dict get $p -settings]
-                set obj [$t new $p]
-                set h [chan push $localchan $obj]
-                dict set p -handle $h
-                dict set p -obj $obj
-                lappend stack $p
-            }
-            dict set pipelines $pipename stack $stack
-        }
-        #JMNJMN 2025 review!
-        #show_pipeline $pipename -note "after_remove $remove_id"
-        return 1
-    }
-
-    #pop a number of items of the top of the stack, add our transform record, and add back all (or the tail of poplist if pushstartindex > 0)
-    proc insert_transform {pipename stack transformrecord poplist {pushstartindex 0}} {
-        variable pipelines
-        set bottom_pop_posn [expr {[llength $stack] - [llength $poplist]}]
-        set poplist [lrange $stack $bottom_pop_posn end]
-        set stack [lreplace $stack $bottom_pop_posn end]
-
-        set localchan [dict get $pipelines $pipename device localchan]
-        foreach p [lreverse $poplist] {
-            chan pop $localchan
-        }
-        set transformname [dict get $transformrecord -transform]
-        set transformsettings [dict get $transformrecord -settings]
-        set obj [$transformname new $transformrecord]
-        set h [chan push $localchan $obj] 
-        dict set transformrecord -handle $h
-        dict set transformrecord -obj $obj
-        dict set transformrecord -note "insert_transform"
-        lappend stack $transformrecord
-        foreach p [lrange $poplist $pushstartindex end] {
-            set t [dict get $p -transform]
-            set tsettings [dict get $p -settings]
-            set obj [$t new $p]
-            set h [chan push $localchan $obj]
-            #retain previous -id  - code that added it may have kept reference and not expecting it to change
-            dict set p -handle $h
-            dict set p -obj $obj
-            dict set p -note "re-added"
-
-            lappend stack $p
-        }
-        return $stack
-    }
-
-    #fifo2 
-    proc new {pipename args} {
-        variable pipelines
-        if {($pipename in [dict keys $pipelines]) || ($pipename in [chan names])} {
-            error "shellfilter::stack::new error: pipename '$pipename' already exists"
-        }
-
-        set opts [dict merge {-settings {}} $args] 
-        set defaultsettings [dict create -raw 1 -buffering line -direction out]
-        set targetsettings [dict merge $defaultsettings [dict get $opts -settings]]
-
-        set direction [dict get $targetsettings -direction]
-
-        #pipename is the source/facility-name ?
-        if {$direction eq "out"} {
-            set pipeinfo [shellfilter::pipe::open_out $pipename $targetsettings]
-        } else {
-            puts stderr "|jn> pipe::open_in $pipename $targetsettings"
-            set pipeinfo [shellfilter::pipe::open_in $pipename $targetsettings]
-        }
-        #open_out/open_in will configure buffering based on targetsettings
-
-        set program_chan [dict get $pipeinfo localchan]
-        set worker_chan [dict get $pipeinfo remotechan]
-        set workertid [dict get $pipeinfo workertid]
-
-
-        set deviceinfo [dict create pipename $pipename localchan $program_chan remotechan $worker_chan workertid $workertid direction $direction]
-        dict set pipelines $pipename [list counter 0 device $deviceinfo stack [list]]
-
-        return $deviceinfo
-    }
-    #we 'add' rather than 'push' because transforms can float,sink and replace/sideline so they don't necessarily go to the top of the transform stack
-    proc add {pipename transformname args} {
-        variable pipelines
-        #chan names doesn't reflect available channels when transforms are in place
-        #e.g stdout may exist but show as something like file191f5b0dd80
-        if {($pipename ni [dict keys $pipelines])} {
-            if {[catch {eof $pipename} is_eof]} {
-                error "shellfilter::stack::add no existing chan or pipename matching '$pipename' in channels:[chan names] or pipelines:$pipelines use stdin/stderr/stdout or shellfilter::stack::new <pipename>"
-            }
-        }
-        set args [dict merge {-action "" -settings {}} $args]
-        set action [dict get $args -action]
-        set transformsettings [dict get $args -settings]
-        if {[string first "::" $transformname] < 0} {
-            set transformname ::shellfilter::chan::$transformname
-        }
-        if {![llength [info commands $transformname]]} {
-            error "shellfilter::stack::push unknown transform '$transformname'"
-        }
-
-
-        if {![dict exists $pipelines $pipename]} {
-            #pipename must be in chan names - existing device/chan
-            #record a -read and -write end even if the device is only being used as one or the other
-            set deviceinfo [dict create pipename $pipename localchan $pipename remotechan {}]
-            dict set pipelines $pipename [list counter 0 device $deviceinfo stack [list]]
-        } else {
-            set deviceinfo [dict get $pipelines $pipename device]
-        }
-
-        set id [get_next_counter $pipename] 
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $deviceinfo localchan]
-
-        #we redundantly store chan in each transform -  makes debugging clearer
-        # -encoding similarly could be stored only at the pipeline level (or even queried directly each filter-read/write),
-        # but here it may help detect unexpected changes during lifetime of the stack and avoids the chance of callers incorrectly using the transform handle?)
-        # jn
-        set transform_record [list -id $id -chan $pipename -encoding [chan configure $localchan -encoding] -transform $transformname -aside {} {*}$args]
-        switch -glob -- $action {
-            float - float-locked {
-                set obj [$transformname new $transform_record]
-                set h [chan push $localchan $obj]
-                dict set transform_record -handle $h
-                dict set transform_record -obj $obj
-                lappend stack $transform_record
-            }
-            "" - locked {
-                set floaters [_get_stack_floaters $stack]
-                if {![llength $floaters]} {
-                    set obj [$transformname new $transform_record]
-                    set h [chan push $localchan $obj]
-                    dict set transform_record -handle $h
-                    dict set transform_record -obj $obj
-                    lappend stack $transform_record
-                } else {
-                    set poplist $floaters
-                    set stack [insert_transform $pipename $stack $transform_record $poplist]
-                }
-            }
-            "sink*" {
-                set redirinfo [_get_stack_top_redirection $stack]
-                set idx_existing_redir [dict get $redirinfo index]
-                if {$idx_existing_redir == -1} {
-                    #no existing redirection transform on the stack
-                    #pop everything.. add this record as the first redirection on the stack
-                    set poplist $stack
-                    set stack [insert_transform $pipename $stack $transform_record $poplist]
-                } else {
-                    switch -glob -- $action {
-                        "sink-replace" {
-                            #include that index in the poplist
-                            set poplist [lrange $stack $idx_existing_redir end]
-                            #pop all from idx_existing_redir  to end, but put back 'lrange $poplist 1 end'
-                            set stack [insert_transform $pipename $stack $transform_record $poplist 1]
-                        }
-                        "sink-aside*" {
-                            set existing_redir_record [lindex $stack $idx_existing_redir]
-                            if {[string match "*locked*" [dict get $existing_redir_record -action]]} {
-                                set put_aside 0
-                                #we can't aside this one - sit above it instead.
-                                set poplist [lrange $stack $idx_existing_redir+1 end]
-                                set stack [lrange $stack 0 $idx_existing_redir]
-                            } else {
-                                set put_aside 1
-                                dict set transform_record -aside [lindex $stack $idx_existing_redir]
-                                set poplist [lrange $stack $idx_existing_redir end]
-                                set stack [lrange $stack 0 $idx_existing_redir-1]
-                            }
-                            foreach p $poplist {
-                                chan pop $localchan
-                            }
-                            set transformname [dict get $transform_record -transform]
-                            set transform_settings [dict get $transform_record -settings]
-                            set obj [$transformname new $transform_record]
-                            set h [chan push $localchan $obj] 
-                            dict set transform_record -handle $h
-                            dict set transform_record -obj $obj
-                            dict set transform_record -note "insert_transform-with-aside"
-                            lappend stack $transform_record
-                            #add back poplist *except* the one we transferred into -aside (if we were able)
-                            foreach p [lrange $poplist $put_aside end] {
-                                set t [dict get $p -transform]
-                                set tsettings [dict get $p -settings]
-                                set obj [$t new $p]
-                                set h [chan push $localchan $obj]
-                                #retain previous -id  - code that added it may have kept reference and not expecting it to change
-                                dict set p -handle $h
-                                dict set p -obj $obj
-                                dict set p -note "re-added-after-sink-aside"
-                                lappend stack $p
-                            }
-                        }
-                        default {
-                            #plain "sink"
-                            #we only sink to the topmost redirecting filter - which makes sense for an output channel
-                            #For stdin.. this is more problematic as we're more likely to want to intercept the bottom most redirection.
-                            #todo - review. Consider making default insert position for input channels to be at the source... and float/sink from there.
-                            # - we don't currently know from the stack api if adding input vs output channel - so this needs work to make intuitive.
-                            # consider splitting stack::add to stack::addinput stack::addoutput to split the different behaviour
-                            set poplist [lrange $stack $idx_existing_redir+1 end]
-                            set stack [insert_transform $pipename $stack $transform_record $poplist]
-                        }
-                    }
-                }
-            }
-            default {
-                error "shellfilter::stack::add unimplemented action '$action'"
-            }
-        }
-
-        dict set pipelines $pipename stack $stack
-        #puts stdout "=="
-        #puts stdout "==>stack: $stack"
-        #puts stdout "=="
-
-        #JMNJMN
-        #show_pipeline $pipename -note "after_add $transformname $args"
-        return $id
-    }
-    proc show_pipeline {pipename args} {
-        variable pipelines
-        set stack [dict get $pipelines $pipename stack]
-        set tag "SHELLFILTER::STACK"
-        #JMN - load from config
-        #::shellfilter::log::open $tag {-syslog 127.0.0.1:514}
-        if {[catch {
-            ::shellfilter::log::open $tag {-syslog ""}
-        } err]} {
-            #e.g safebase interp can't load required modules such as shellthread (or Thread)
-            puts stderr "shellfilter::show_pipeline cannot open log"
-            return
-        }
-        ::shellfilter::log::write $tag "transform stack for $pipename $args"
-        foreach tf $stack {
-            ::shellfilter::log::write $tag " $tf"
-        }
-
-    }
-}
-
-
-namespace eval shellfilter {
-    variable sources [list]
-    variable stacks [dict create]
-
-    proc ::shellfilter::redir_channel_to_log {chan args} {
-        variable sources
-        set default_logsettings [dict create \
-            -tag redirected_$chan -syslog "" -file ""\
-            ]
-        if {[dict exists $args -action]} {
-            set action [dict get $args -action]
-        } else {
-            # action "sink" is a somewhat reasonable default for an output redirection transform
-            # but it can make it harder to configure a plain ordered stack if the user is not expecting it, so we'll default to stack 
-            # also.. for stdin transform sink makes less sense.. 
-            #todo - default "stack" instead of empty string
-            set action ""
-        }
-        if {[dict exists $args -settings]} {
-            set logsettings [dict get $args -settings]
-        } else {
-            set logsettings {}
-        }
-
-        set logsettings [dict merge $default_logsettings $logsettings]
-        set tag [dict get $logsettings -tag]
-        if {$tag ni $sources} {
-            lappend sources $tag
-        }
-
-        set id [shellfilter::stack::add $chan logonly -action $action -settings $logsettings]
-        return $id
-    }
-
-    proc ::shellfilter::redir_output_to_log {tagprefix args} {
-        variable sources
-
-        set default_settings [list -tag ${tagprefix} -syslog "" -file ""]
-
-        set opts [dict create -action "" -settings {}]
-        set opts [dict merge $opts $args]
-        set optsettings [dict get $opts -settings]
-        set settings [dict merge $default_settings $optsettings]
-
-        set tag [dict get $settings -tag]
-        if {$tag ne $tagprefix} {
-            error "shellfilter::redir_output_to_log -tag value must match supplied tagprefix:'$tagprefix'. Omit -tag, or make it the same. It will automatically be suffixed with stderr and stdout. Use redir_channel_to_log if you want to separately configure each channel" 
-        }
-        lappend sources ${tagprefix}stdout ${tagprefix}stderr 
-
-        set stdoutsettings $settings
-        dict set stdoutsettings -tag ${tagprefix}stdout
-        set stderrsettings $settings
-        dict set stderrsettings -tag ${tagprefix}stderr
-
-        set idout [redir_channel_to_log stdout -action [dict get $opts -action] -settings $stdoutsettings]
-        set iderr [redir_channel_to_log stderr -action [dict get $opts -action] -settings $stderrsettings]
-
-        return [list $idout $iderr]
-    } 
-
-    #eg try: set v [list #a b c]
-    #vs set v {#a b c}
-    proc list_is_canonical l {
-        #courtesy DKF via wiki https://wiki.tcl-lang.org/page/BNF+for+Tcl
-        if {[catch {llength $l}]} {return 0}
-        string equal $l [list {*}$l]
-    }
-
-    #return a dict keyed on numerical list index showing info about each element 
-    # - particularly 
-    #  'wouldbrace' to indicate that the item would get braced by Tcl when added to another list
-    #  'head_tail_chars' to show current first and last character  (in case it's wrapped e.g in double or single quotes or an existing set of braces)
-    proc list_element_info {inputlist} {
-        set i 0
-        set info [dict create]
-        set testlist [list]
-        foreach original_item $inputlist {
-            #---
-            # avoid sharing internal rep with original items in the list (avoids shimmering of rep in original list for certain items such as paths)
-            unset -nocomplain item
-            append item $original_item {}
-            #---
-
-            set iteminfo [dict create]
-            set itemlen [string length $item]
-            lappend testlist $item
-            set tcl_len [string length $testlist]
-            set diff [expr {$tcl_len - $itemlen}]
-            if {$diff == 0} {
-                dict set iteminfo wouldbrace 0
-                dict set iteminfo wouldescape 0
-            } else {
-                #test for escaping vs bracing!
-                set testlistchars [split $testlist ""]
-                if {([lindex $testlistchars 0] eq "\{") && ([lindex $testlistchars end] eq "\}")} {
-                    dict set iteminfo wouldbrace 1
-                    dict set iteminfo wouldescape 0
-                } else {
-                    dict set iteminfo wouldbrace 0
-                    dict set iteminfo wouldescape 1
-                }
-            }
-            set testlist [list]
-            set charlist [split $item ""]
-            set char_a [lindex $charlist 0]
-            set char_b [lindex $charlist 1]
-            set char_ab ${char_a}${char_b}
-            set char_y [lindex $charlist end-1]
-            set char_z [lindex $charlist end]
-            set char_yz ${char_y}${char_z}
-
-            if { ("{" in $charlist) || ("}" in $charlist) } {
-                dict set iteminfo has_braces 1
-                set innerchars [lrange $charlist 1 end-1]
-                if {("{" in $innerchars) || ("}" in $innerchars)} {
-                    dict set iteminfo has_inner_braces 1
-                } else {
-                    dict set iteminfo has_inner_braces 0
-                }
-            } else {
-                dict set iteminfo has_braces 0
-                dict set iteminfo has_inner_braces 0
-            }
-
-            #todo - brace/char counting to determine if actually 'wrapped'
-            #e.g we could have list element {((abc)} - which appears wrapped if only looking at first and last chars.
-            #also {(x) (y)} as a list member.. how to treat?
-            if {$itemlen <= 1} {
-                dict set iteminfo apparentwrap "not"
-            } else {
-                #todo - switch on $char_a$char_z
-                if {($char_a eq {"}) && ($char_z eq {"})} {
-                    dict set iteminfo apparentwrap "doublequotes"
-                } elseif {($char_a eq "'") && ($char_z eq "'")} {
-                    dict set iteminfo apparentwrap "singlequotes"
-                } elseif {($char_a eq "(") && ($char_z eq ")")} {
-                    dict set iteminfo apparentwrap "brackets"
-                } elseif {($char_a eq "\{") && ($char_z eq "\}")} {
-                    dict set iteminfo apparentwrap "braces"
-                } elseif {($char_a eq "^") && ($char_z eq "^")} {
-                    dict set iteminfo apparentwrap "carets"
-                } elseif {($char_a eq "\[") && ($char_z eq "\]")} {
-                    dict set iteminfo apparentwrap "squarebrackets"
-                } elseif {($char_a eq "`") && ($char_z eq "`")} {
-                    dict set iteminfo apparentwrap "backquotes"
-                } elseif {($char_a eq "\n") && ($char_z eq "\n")} {
-                    dict set iteminfo apparentwrap "lf-newline"
-                } elseif {($char_ab eq "\r\n") && ($char_yz eq "\r\n")} {
-                    dict set iteminfo apparentwrap "crlf-newline"
-                } else {
-                    dict set iteminfo apparentwrap "not-determined"
-                }
-
-            }
-            dict set iteminfo wrapbalance "unknown"  ;#a hint to caller that apparentwrap is only a guide. todo - possibly make wrapbalance indicate 0 for unbalanced.. and positive numbers for outer-count of wrappings.
-            #e.g {((x)} == 0  {((x))} == 1 {(x) (y (z))} == 2
-            dict set iteminfo head_tail_chars [list $char_a $char_z]
-            set namemap [list \
-                 \r cr\
-                 \n lf\
-                 {"} doublequote\
-                 {'} singlequote\
-                 "`" backquote\
-                 "^" caret\
-                 \t tab\
-                 " " sp\
-                 "\[" lsquare\
-                 "\]" rsquare\
-                 "(" lbracket\
-                 ")" rbracket\
-                 "\{" lbrace\
-                 "\}" rbrace\
-                 \\ backslash\
-                 / forwardslash\
-                 ]
-            if {[string length $char_a]} {
-                set char_a_name [string map $namemap $char_a]
-            } else {
-                set char_a_name "emptystring"
-            }
-            if {[string length $char_z]} {
-                set char_z_name [string map $namemap $char_z]
-            } else {
-                set char_z_name "emptystring"
-            }
-
-            dict set iteminfo head_tail_names [list $char_a_name $char_z_name]
-            dict set iteminfo len $itemlen
-            dict set iteminfo difflen $diff ;#2 for braces, 1 for quoting?, or 0.
-            dict set info $i $iteminfo
-            incr i
-        }
-        return $info
-    }
-
-
-    #parse bracketed expression (e.g produced by vim "shellxquote=(" ) into a tcl (nested) list
-    #e.g {(^c:/my spacey/path^ >^somewhere^)} 
-    #e.g {(blah (etc))}"  
-    #Result is always a list - even if only one toplevel set of brackets - so it may need [lindex $result 0] if input is the usual case of {( ...)}  
-    # - because it also supports the perhaps less likely case of: {( ...) unbraced (...)} etc
-    # Note that 
-    #maintenance warning - duplication in branches for bracketed vs unbracketed!
-    proc parse_cmd_brackets {str} {
-        #wordwrappers currently best suited to non-bracket entities - no bracket matching within - anything goes until end-token reached.
-        # - but.. they only take effect where a word can begin. so a[x y]  may be split at the space unless it's within some other wraper e.g " a[x y]" will not break at the space
-        # todo - consider extending the in-word handling of word_bdepth which is currently only applied to ()  i.e aaa(x y) is supported but aaa[x y] is not as the space breaks the word up.
-        set wordwrappers [list \
-            "\"" [list "\"" "\"" "\""]\
-            {^} [list "\"" "\"" "^"]\
-            "'" [list "'" "'" "'"]\
-            "\{" [list "\{" "\}" "\}"]\
-            {[} [list {[} {]} {]}]\
-            ] ;#dict mapping start_character to {replacehead replacetail expectedtail}
-        set shell_specials [list "|" "|&" "<" "<@" "<<" ">" "2>" ">&" ">>" "2>>" ">>&" ">@" "2>@" "2>@1" ">&@" "&" "&&" ] ;#words/chars that may precede an opening bracket but don't merge with the bracket to form a word.    
-        #puts "pb:$str"
-        set in_bracket 0
-        set in_word 0
-        set word ""
-        set result {}
-        set word_bdepth 0 
-        set word_bstack [list]
-        set wordwrap "" ;#only one active at a time
-        set bracketed_elements [dict create]
-        foreach char [split $str ""] {
-            #puts "c:$char bracketed:$bracketed_elements"
-            if {$in_bracket > 0} {
-                if {$in_word} {
-                    if {[string length $wordwrap]} {
-                        #anything goes until end-char
-                        #todo - lookahead and only treat as closing if before a space or ")" ?
-                        lassign [dict get $wordwrappers $wordwrap] _open closing endmark
-                        if {$char eq $endmark} {
-                            set wordwrap ""
-                            append word $closing
-                            dict lappend bracketed_elements $in_bracket $word
-                            set word ""
-                            set in_word 0
-                        } else {
-                            append word $char
-                        }
-                    } else {
-                        if {$word_bdepth == 0} {
-                            #can potentially close off a word - or start a new one if word-so-far is a shell-special
-                            if {$word in $shell_specials} {
-                                if {$char eq ")"} {
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set  subresult [dict get $bracketed_elements $in_bracket]
-                                    dict set bracketed_elements $in_bracket [list]
-                                    incr in_bracket -1
-                                    if {$in_bracket == 0} {
-                                        lappend result $subresult
-                                    } else {
-                                        dict lappend bracketed_elements $in_bracket $subresult
-                                    }
-                                    set word ""
-                                    set in_word 0
-                                } elseif {[regexp {[\s]} $char]} {
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {    
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set word ""
-                                    set in_word 0
-                                    incr in_bracket
-                                } else {
-                                    #at end of shell-specials is another point to look for word started by a wordwrapper char
-                                    #- expect common case of things like >^/my/path^
-                                    if {$char in [dict keys $wordwrappers]} {
-                                        dict lappend bracketed_elements $in_bracket $word 
-                                        set word ""
-                                        set in_word 1 ;#just for explicitness.. we're straight into the next word.
-                                        set wordwrap $char
-                                        set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                                    } else {
-                                        #something unusual.. keep going with word!
-                                        append word $char
-                                    }
-                                }
-                            } else {
-                            
-                                if {$char eq ")"} {
-                                    dict lappend bracketed_elements $in_bracket $word
-                                    set  subresult [dict get $bracketed_elements $in_bracket]
-                                    dict set bracketed_elements $in_bracket [list]
-                                    incr in_bracket -1
-                                    if {$in_bracket == 0} {
-                                        lappend result $subresult
-                                    } else {
-                                        dict lappend bracketed_elements $in_bracket $subresult
-                                    }
-                                    set word ""
-                                    set in_word 0
-                                } elseif {[regexp {[\s]} $char]} {
-                                    dict lappend bracketed_elements $in_bracket $word
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {
-                                    #ordinary word up-against and opening bracket - brackets are part of word.
-                                    incr word_bdepth 
-                                    append word "("
-                                } else {
-                                    append word $char
-                                }
-                            }
-                        } else {
-                            #currently only () are used for word_bdepth - todo  add all or some wordwrappers chars so that the word_bstack can have multiple active.
-                            switch -- $char {
-                                "(" {
-                                    incr word_bdepth
-                                    lappend word_bstack $char
-                                    append word $char 
-                                }
-                                ")" {
-                                    incr word_bdepth -1
-                                    set word_bstack [lrange $word_bstack 0 end-1]
-                                    append word $char 
-                                }
-                                default {
-                                    #spaces and chars added to word as it's still in a bracketed section
-                                    append word $char
-                                }
-                            }
-                        }
-                    }
-                } else {
-                    
-                    if {$char eq "("} {
-                        incr in_bracket
-                        
-                    } elseif {$char eq ")"} {
-                        set subresult [dict get $bracketed_elements $in_bracket]
-                        dict set bracketed_elements $in_bracket [list]
-                        incr in_bracket -1
-                        if {$in_bracket == 0} {
-                            lappend result $subresult
-                        } else {
-                            dict lappend bracketed_elements $in_bracket $subresult
-                        }
-                    } elseif {[regexp {[\s]} $char]} {
-                        #
-                    } else {
-                        #first char of word - look for word-wrappers
-                        if {$char in [dict keys $wordwrappers]} {
-                            set wordwrap $char
-                            set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                        } else {
-                            set word $char
-                        }
-                        set in_word 1
-                    }
-                }
-            } else {
-                if {$in_word} {
-                    if {[string length $wordwrap]} {
-                        lassign [dict get $wordwrappers $wordwrap] _open closing endmark
-                        if {$char eq $endmark} {
-                            set wordwrap ""
-                            append word $closing
-                            lappend result $word
-                            set word ""
-                            set in_word 0
-                        } else {
-                            append word $char
-                        }
-                    } else {
-                        
-                        if {$word_bdepth == 0} {
-                            if {$word in $shell_specials} {
-                                if {[regexp {[\s]} $char]} {
-                                    lappend result $word 
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {    
-                                    lappend result $word 
-                                    set word ""
-                                    set in_word 0
-                                    incr in_bracket
-                                } else {
-                                    #at end of shell-specials is another point to look for word started by a wordwrapper char
-                                    #- expect common case of things like >^/my/path^
-                                    if {$char in [dict keys $wordwrappers]} {
-                                        lappend result $word 
-                                        set word ""
-                                        set in_word 1 ;#just for explicitness.. we're straight into the next word.
-                                        set wordwrap $char
-                                        set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                                    } else {
-                                        #something unusual.. keep going with word!
-                                        append word $char
-                                    }
-                                }
-                        
-                            } else {
-                                if {[regexp {[\s)]} $char]} {
-                                    lappend result $word
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {
-                                    incr word_bdepth
-                                    append word $char
-                                } else {
-                                append word $char
-                                }
-                            }
-                        } else {
-                            switch -- $char {
-                                "(" {
-                                    incr word_bdepth
-                                    append word $char
-                                }
-                                ")" {
-                                    incr word_bdepth -1
-                                    append word $char
-                                }
-                                default {
-                                    append word $char
-                                }
-                            }
-                        }
-                    }
-                } else {
-                    if {[regexp {[\s]} $char]} {
-                        #insig whitespace(?)
-                    } elseif {$char eq "("} {
-                        incr in_bracket
-                        dict set bracketed_elements $in_bracket [list]
-                    } elseif {$char eq ")"} {
-                        error "unbalanced bracket - unable to proceed result so far: $result bracketed_elements:$bracketed_elements"
-                    } else {
-                        #first char of word - look for word-wrappers
-                        if {$char in [dict keys $wordwrappers]} {
-                            set wordwrap $char
-                            set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                        } else {
-                            set word $char
-                        }
-                        set in_word 1
-                    }
-                }
-            }
-            #puts "----$bracketed_elements"
-        }
-        if {$in_bracket > 0} {
-            error "shellfilter::parse_cmd_brackets missing close bracket. input was '$str'"
-        }
-        if {[dict exists $bracketed_elements 0]} {
-            #lappend result [lindex [dict get $bracketed_elements 0] 0]
-            lappend result [dict get $bracketed_elements 0]
-        }
-        if {$in_word} {
-            lappend result $word
-        }
-        return $result
-    }
-
-    #only double quote if argument not quoted with single or double quotes
-    proc dquote_if_not_quoted {a} {
-        set wrapchars [string cat [string range $a 0 0] [string range $a end end]]
-        switch -- $wrapchars {
-            {""} - {''} {
-                return $a
-            }
-            default {
-                set newinner [string map [list {"} "\\\""] $a]
-                return "\"$newinner\""
-            }
-        }
-    }
-
-    #proc dquote_if_not_bracketed/braced? 
-
-    #wrap in double quotes if not double-quoted
-    proc dquote_if_not_dquoted {a} {
-        set wrapchars [string cat [string range $a 0 0] [string range $a end end]]
-        switch -- $wrapchars {
-            {""} {
-                return $a
-            }
-            default {
-                #escape any inner quotes..
-                set newinner [string map [list {"} "\\\""] $a]
-                return "\"$newinner\""
-            }
-        }
-    }
-    proc dquote {a} {
-        #escape any inner quotes..
-        set newinner [string map [list {"} "\\\""] $a]
-        return "\"$newinner\""
-    }
-    proc get_scriptrun_from_cmdlist_dquote_if_not {cmdlist {shellcmdflag ""}} {
-        set scr [auto_execok "script"]
-        if {[string length $scr]} {
-            #set scriptrun "( $c1 [lrange $cmdlist 1 end] )"
-            set arg1 [lindex $cmdlist 0]
-            if {[string first " " $arg1]>0} {
-                set c1 [dquote_if_not_quoted $arg1]
-                #set c1 "\"$arg1\""
-            } else {
-                set c1 $arg1
-            }
-
-            if {[string length $shellcmdflag]} {
-                set scriptrun "$shellcmdflag \$($c1 "
-            } else {
-                set scriptrun "\$($c1 "
-            }
-            #set scriptrun "$c1 "
-            foreach a [lrange $cmdlist 1 end] {
-                #set a [string map [list "/" "//"] $a]
-                #set a [string map [list "\"" "\\\""] $a]
-                if {[string first " " $a] > 0} {
-                    append scriptrun [dquote_if_not_quoted $a]
-                } else {
-                    append scriptrun $a
-                }
-                append scriptrun " "
-            }
-            set scriptrun [string trim $scriptrun]
-            append scriptrun ")"
-            #return [list $scr -q -e -c $scriptrun /dev/null]
-            return [list $scr -e -c $scriptrun /dev/null]
-        } else {
-            return $cmdlist
-        }
-    }
-
-    proc ::shellfilter::trun {commandlist args} {
-        #jmn
-    }
-
-
-    # run a command (or tcl script) with tees applied to stdout/stderr/stdin (or whatever channels are being used) 
-    # By the point run is called - any transforms should already be in place on the channels if they're needed.
-    # The tees will be inline with none,some or all of those transforms depending on how the stack was configured
-    #  (upstream,downstream configured via -float,-sink etc)
-    proc ::shellfilter::run {commandlist args} {
-        #must be a list. If it was a shell commandline string. convert it elsewhere first.
-
-        variable sources
-        set runtag "shellfilter-run"
-        #set tid [::shellfilter::log::open $runtag [list -syslog 127.0.0.1:514]]
-        set tid [::shellfilter::log::open $runtag [list -syslog ""]]
-        if {[catch {llength $commandlist} listlen]} {
-            set listlen "<not-a-tcl-list>"
-        }
-        ::shellfilter::log::write $runtag " commandlist:'$commandlist' listlen:$listlen strlen:[string length $commandlist]"
-
-        #flush stdout
-        #flush stderr 
-
-        #adding filters with sink-aside will temporarily disable the existing redirection
-        #All stderr/stdout from the shellcommand will now tee to the underlying stderr/stdout as well as the configured syslog
-
-        set defaults [dict create \
-            -teehandle command \
-            -outchan stdout \
-            -errchan stderr \
-            -inchan stdin \
-            -tclscript 0 \
-            ]
-        set opts                    [dict merge $defaults $args]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set outchan                 [dict get $opts -outchan]
-        set errchan                 [dict get $opts -errchan]
-        set inchan                  [dict get $opts -inchan]
-        set teehandle               [dict get $opts -teehandle]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set is_script               [dict get $opts -tclscript]
-        dict unset opts -tclscript ;#don't pass it any further
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set teehandle_out ${teehandle}out   ;#default commandout
-        set teehandle_err ${teehandle}err
-        set teehandle_in ${teehandle}in
-
-
-        #puts stdout "shellfilter initialising tee_to_pipe transforms for in/out/err"
-
-        # sources should be added when stack::new called instead(?)
-        foreach source [list $teehandle_out $teehandle_err] {
-            if {$source ni $sources} {
-                lappend sources $source
-            }
-        }
-        set outdeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_out device]
-        set outpipechan [dict get $outdeviceinfo localchan]
-        set errdeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_err device]
-        set errpipechan [dict get $errdeviceinfo localchan]
-
-        #set indeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_in device]
-        #set inpipechan [dict get $indeviceinfo localchan]
-
-        #NOTE:These transforms are not necessarily at the top of each stack! 
-        #The float/sink mechanism, along with whether existing transforms are diversionary decides where they sit.
-        set id_out [shellfilter::stack::add $outchan tee_to_pipe -action sink-aside -settings [list -tag $teehandle_out -pipechan $outpipechan]]
-        set id_err [shellfilter::stack::add $errchan tee_to_pipe -action sink-aside -settings [list -tag $teehandle_err -pipechan $errpipechan]]
-
-        # need to use os level channel handle for stdin - try named pipes (or even sockets) instead of fifo2 for this
-        # If non os-level channel - the command can't be run with the redirection
-        # stderr/stdout can be run with non-os handles in the call - 
-        # but then it does introduce issues with terminal-detection and behaviour for stdout at least
-        #
-        # input is also a tee - we never want to change the source at this point - just log/process a side-channel of it.
-        #
-        #set id_in  [shellfilter::stack::add $inchan  tee_to_pipe -action sink-aside -settings [list -tag commandin -pipechan $inpipechan]]
-
-
-        #set id_out [shellfilter::stack::add stdout tee_to_log -action sink-aside -settings [list -tag shellstdout -syslog 127.0.0.1:514 -file ""]]
-        #set id_err [shellfilter::stack::add stderr tee_to_log -action sink-aside -settings [list -tag shellstderr -syslog 127.0.0.1:514 -file "stderr.txt"]]
-
-        #we need to catch errors - and ensure stack::remove calls occur.
-        #An error can be raised if the command couldn't even launch, as opposed to a non-zero exitcode and stderr output from the command itself.
-        #
-        if {!$is_script} { 
-            set experiment 0
-            if {$experiment} {
-                try {
-                    set results [exec {*}$commandlist]
-                    set exitinfo [list exitcode 0]
-                } trap CHILDSTATUS {results options} {
-                    set exitcode [lindex [dict get $options -errorcode] 2]
-                    set exitinfo [list exitcode $exitcode]
-                }
-            } else {
-                if {[catch { 
-                    #run process with stdout/stderr/stdin or with configured channels
-                    #set exitinfo [shellcommand_stdout_stderr $commandlist $outchan $errchan $inpipechan {*}$opts]
-                    set exitinfo [shellcommand_stdout_stderr $commandlist $outchan $errchan stdin {*}$opts]
-                    #puts stderr "---->exitinfo $exitinfo"
-
-                    #subprocess result should usually have an "exitcode" key
-                    #but for background execution we will get a "pids" key of process ids.
-                } errMsg]} {
-                    set exitinfo [list error "$errMsg" source shellcommand_stdout_stderr]
-                }
-            }
-        } else {
-            if {[catch {
-                #script result
-                set exitinfo [list result [uplevel #0 [list eval $commandlist]]]
-            } errMsg]} {
-                set exitinfo [list error "$errMsg" errorCode $::errorCode errorInfo "$::errorInfo"]
-            }
-        }
-
-
-        #the previous redirections on the underlying inchan/outchan/errchan items will be restored from the -aside setting during removal
-        #Remove execution-time Tees from stack
-        shellfilter::stack::remove stdout $id_out
-        shellfilter::stack::remove stderr $id_err
-        #shellfilter::stack::remove stderr $id_in
-
-
-        #chan configure stderr -buffering line
-        #flush stdout
-
-
-        ::shellfilter::log::write $runtag " return '$exitinfo'"
-        ::shellfilter::log::close $runtag
-        return $exitinfo
-    }
-    proc ::shellfilter::logtidyup { {tags {}} } {
-        variable sources
-        set worker_errorlist [list]
-        set tidied_sources [list]
-        set tidytag "logtidy"
-
-
-        # opening a thread or writing to a log/syslog close to possible process exit is probably not a great idea.
-        # we should ensure the thread already exists early on if we really need logging here.
-        # 
-        #set tid [::shellfilter::log::open $tidytag {-syslog 127.0.0.1:514}]
-        #::shellfilter::log::write $tidytag " logtidyuptags '$tags'"
-
-        foreach s $sources {
-            if {$s eq $tidytag} {
-                continue
-            }
-            #puts "logtidyup source $s"
-            set close 1
-            if {[llength $tags]} {
-                if {$s ni $tags} {
-                    set close 0
-                }
-            }
-            if {$close} {
-                lappend tidied_sources $s
-                shellfilter::log::close $s
-                lappend worker_errorlist {*}[shellthread::manager::get_and_clear_errors $s]
-            }
-        }
-        set remaining_sources [list]
-        foreach s $sources {
-            if {$s ni $tidied_sources} {
-                lappend remaining_sources $s
-            }
-        } 
-
-        #set sources [concat $remaining_sources $tidytag]
-        set sources $remaining_sources
-
-        #shellfilter::stack::unwind stdout
-        #shellfilter::stack::unwind stderr
-        return [list tidied $tidied_sources errors $worker_errorlist]
-    }
-
-    #package require tcl::chan::null
-    # e.g set errchan [tcl::chan::null]
-    # e.g chan push stdout [shellfilter::chan::var new ::some_var]
-    proc  ::shellfilter::shellcommand_stdout_stderr {commandlist outchan errchan inchan args} {
-        set valid_flags [list \
-            -timeout \
-            -outprefix \
-            -errprefix \
-            -debug \
-            -copytempfile \
-            -outbuffering \
-            -errbuffering \
-            -inbuffering \
-            -readprocesstranslation \
-            -outtranslation \
-            -stdinhandler \
-            -outchan \
-            -errchan \
-            -inchan \
-            -teehandle\
-            ]
-
-        set runtag shellfilter-run2
-        #JMN - load from config
-        #set tid [::shellfilter::log::open $runtag [list -syslog "127.0.0.1:514"]]
-        set tid [::shellfilter::log::open $runtag [list -syslog ""]]
-
-        if {[llength $args] % 2} {
-            error "Trailing arguments after any positional arguments must be in pairs of the form -argname argvalue. Valid flags are:'$valid_flags'"
-        }
-        set invalid_flags [list]
-        foreach {k -} $args {
-            switch -- $k {
-                -timeout -
-                -outprefix -
-                -errprefix -
-                -debug -
-                -copytempfile -
-                -outbuffering -
-                -errbuffering -
-                -inbuffering -
-                -readprocesstranslation -
-                -outtranslation -
-                -stdinhandler -
-                -outchan -
-                -errchan -
-                -inchan -
-                -teehandle {
-                }
-                default {
-                    lappend invalid_flags $k
-                }
-            }
-        }
-        if {[llength $invalid_flags]} {
-            error "Unknown option(s)'$invalid_flags': must be one of '$valid_flags'"
-        }
-        #line buffering generally best for output channels.. keeps relative output order of stdout/stdin closer to source order
-        #there may be data where line buffering is inappropriate, so it's configurable per std channel 
-        #reading inputs with line buffering can result in extraneous newlines as we can't detect trailing data with no newline before eof.
-        set defaults [dict create \
-            -outchan stdout \
-            -errchan stderr \
-            -inchan stdin \
-            -outbuffering none \
-            -errbuffering none \
-            -readprocesstranslation auto \
-            -outtranslation lf \
-            -inbuffering none \
-            -timeout 900000\
-            -outprefix ""\
-            -errprefix ""\
-            -debug 0\
-            -copytempfile 0\
-            -stdinhandler ""\
-            ]
-
-
-
-        set args [dict merge $defaults $args]
-        set outbuffering   [dict get $args -outbuffering]
-        set errbuffering   [dict get $args -errbuffering]
-        set inbuffering               [dict get $args -inbuffering]
-        set readprocesstranslation    [dict get $args -readprocesstranslation]
-        set outtranslation            [dict get $args -outtranslation]
-        set timeout                   [dict get $args -timeout]
-        set outprefix   [dict get $args -outprefix]
-        set errprefix   [dict get $args -errprefix]
-        set debug       [dict get $args -debug]
-        set copytempfile [dict get $args -copytempfile]
-        set stdinhandler [dict get $args -stdinhandler]
-
-        set debugname "shellfilter-debug"
-
-        if {$debug} {
-            set tid [::shellfilter::log::open $debugname [list -syslog "127.0.0.1:514"]]
-            ::shellfilter::log::write $debugname " commandlist '$commandlist'"
-        }
-        #'clock micros' good enough id for shellcommand calls unless one day they can somehow be called concurrently or sequentially within a microsecond and within the same interp.
-        # a simple counter would probably work too
-        #consider other options if an alternative to the single vwait in this function is used.
-        set call_id [tcl::clock::microseconds] ;
-        set ::shellfilter::shellcommandvars($call_id,exitcode) ""
-        set waitvar ::shellfilter::shellcommandvars($call_id,waitvar)
-        if {$debug} {
-            ::shellfilter::log::write $debugname " waitvar '$waitvar'"
-        }
-        lassign [chan pipe] rderr wrerr
-        chan configure $wrerr -blocking 0
-
-        set custom_stderr ""
-        set lastitem [lindex $commandlist end]
-        #todo - ensure we can handle 2> file  (space after >)
-
-        #review - reconsider the handling of redirections such that tcl-style are handled totally separately to other shell syntaxes!
-        #
-        #note 2>@1 must ocur as last word for tcl - but 2@stdout can occur elsewhere
-        #(2>@stdout echoes to main stdout - not into pipeline)
-        #To properly do pipelines it looks like we will have to split on | and call this proc multiple times and wire it up accordingly (presumably in separate threads)
-
-        switch -- [string trim $lastitem] {
-            {&} {
-                set name [lindex $commandlist 0]
-                #background execution - stdout and stderr from child still comes here - but process is backgrounded 
-                #FIX! - this is broken for paths with backslashes for example
-                #set pidlist [exec {*}[concat $name [lrange $commandlist 1 end]]]
-                set pidlist [exec {*}$commandlist]
-                return [list pids $pidlist]
-            }
-            {2>&1} - {2>@1} {
-                set custom_stderr {2>@1}  ;#use the tcl style
-                set commandlist [lrange $commandlist 0 end-1]
-            }
-            default {
-                # 2> filename 
-                # 2>> filename
-                # 2>@ openfileid
-                set redir2test [string range $lastitem 0 1]
-                if {$redir2test eq "2>"} {
-                    set custom_stderr $lastitem
-                    set commandlist [lrange $commandlist 0 end-1]
-                }
-            }
-        }
-        set lastitem [lindex $commandlist end]
-
-        set teefile "" ;#empty string, write, append
-        #an ugly hack.. because redirections seem to arrive wrapped  - review!
-        #There be dragons here..
-        #Be very careful with list manipulation of the commandlist string.. backslashes cause havoc. commandlist must always be a well-formed list. generally avoid string manipulations on entire list or accidentally breaking a list element into parts if it shouldn't be..
-        #The problem here - is that we can't always know what was intended on the commandline regarding quoting
-
-        ::shellfilter::log::write $runtag "checking for redirections in $commandlist"
-        #sometimes we see a redirection without a following space  e.g >C:/somewhere 
-        #normalize
-        switch -regexp -- $lastitem\
-            {^>[/[:alpha:]]+} {
-                set lastitem "> [string range $lastitem 1 end]"
-            }\
-            {^>>[/[:alpha:]]+} {
-                set lastitem ">> [string range $lastitem 2 end]"
-            }
-        
-
-        #for a redirection, we assume either a 2-element list at tail of form {> {some path maybe with spaces}}
-        #or that the tail redirection is not wrapped..  x y z > {some path maybe with spaces}
-        #we can't use list methods such as llenth on a member of commandlist
-        set wordlike_parts [regexp -inline -all {\S+} $lastitem]
-
-        if {([llength $wordlike_parts] >= 2) && ([lindex $wordlike_parts 0] in [list ">>" ">"])} {
-            #wrapped redirection - but maybe not 'well' wrapped (unquoted filename)
-            set lastitem [string trim $lastitem]  ;#we often see { > something}
-
-            #don't use lassign or lrange on the element itself without checking first
-            #we can treat the commandlist as a whole as a well formed list but not neccessarily each element within.
-            #lassign $lastitem redir redirtarget 
-            #set commandlist [lrange $commandlist 0 end-1]
-            #
-            set itemchars [split $lastitem ""]
-            set firstchar [lindex $itemchars 0]
-            set lastchar [lindex $itemchars end]
-
-            #NAIVE test for double quoted only!
-            #consider for example {"a" x="b"} 
-            #testing first and last is not decisive
-            #We need to decide what level of drilling down is even appropriate here.. 
-            #if something was double wrapped - it was perhaps deliberate so we don't interpret it as something(?)
-            set head_tail_chars [list $firstchar $lastchar]
-            set doublequoted [expr {[llength [lsearch -all $head_tail_chars "\""]] == 2}]
-            if {[string equal "\{" $firstchar] && [string equal "\}" $lastchar]} {
-                set curlyquoted 1
-            } else {
-                set curlyquoted 0
-            }
-
-            if {$curlyquoted} {
-                #these are not the tcl protection brackets but ones supplied in the argument
-                #it's still not valid to use list operations on a member of the commandlist
-                set inner [string range $lastitem 1 end-1]
-                #todo - fix! we still must assume there could be list-breaking data!
-                set innerwords [regexp -inline -all {\S+} $inner] ;#better than [split $inner] because we don't get extra empty elements for each whitespace char
-                set redir [lindex $innerwords 0] ;#a *potential* redir - to be tested below
-                set redirtarget [lrange $innerwords 1 end] ;#all the rest
-            } elseif {$doublequoted} {
-                ::shellfilter::log::write $debugname "doublequoting at tail of command '$commandlist'" 
-                set inner [string range $lastitem 1 end-1]
-                set innerwords [regexp -inline -all {\S+} $inner]
-                set redir [lindex $innerwords 0]
-                set redirtarget [lrange $innerwords 1 end] 
-            } else {
-                set itemwords [regexp -inline -all {\S+} $lastitem]
-                # e.g > c:\test   becomes > {c:\test}
-                # but > c/mnt/c/test/temp.txt stays as > /mnt/c/test/temp.txt
-                set redir [lindex $itemwords 0]
-                set redirtarget [lrange $itemwords 1 end]
-            }
-            set commandlist [lrange $commandlist 0 end-1]
-        
-        } elseif {[lindex $commandlist end-1] in [list ">>" ">"]} {
-            #unwrapped redirection
-            #we should be able to use list operations like lindex and lrange here as the command itself is hopefully still a well formed list
-            set redir [lindex $commandlist end-1]
-            set redirtarget [lindex $commandlist end]
-            set commandlist [lrange $commandlist 0 end-2]
-        } else {
-            #no redirection 
-            set redir ""
-            set redirtarget ""
-            #no change to command list
-        }
-
-
-        switch -- $redir {
-            ">>" - ">" {
-                set redirtarget [string trim $redirtarget "\""]
-                ::shellfilter::log::write $runtag " have redirection '$redir' to '$redirtarget'"
-
-                set winfile $redirtarget ;#default assumption
-                switch -glob -- $redirtarget {
-                    "/c/*" {
-                        set winfile "c:/[string range $redirtarget 3 end]"
-                    }
-                    "/mnt/c/*" {
-                        set winfile "c:/[string range $redirtarget 7 end]"
-                    }
-                }
-
-                if {[file exists [file dirname $winfile]]} {
-                    #containing folder for target exists
-                    if {$redir eq ">"} {
-                    set teefile "write"
-                    } else {
-                    set teefile "append"
-                    }
-                    ::shellfilter::log::write $runtag "Directory exists '[file dirname $winfile]' operation:$teefile"
-                } else {
-                    #we should be writing to a file.. but can't
-                    ::shellfilter::log::write $runtag "cannot verify directory exists '[file dirname $winfile]'"
-                }
-            }
-            default {
-                ::shellfilter::log::write $runtag "No redir found!!" 
-            }
-        }
-
-      #often first element of command list is wrapped and cannot be run directly
-      #e.g {{ls -l} {> {temp.tmp}}}
-      #we will assume that if there is a single element which is a pathname containing a space - it is doubly wrapped.
-      # this may not be true - and the command may fail if it's just {c:\program files\etc}  but it is the less common case and we currently have no way to detect.
-      #unwrap first element.. will not affect if not wrapped anyway (subject to comment above re spaces)
-      set commandlist [concat [lindex $commandlist 0] [lrange $commandlist 1 end]]
-
-      #todo?
-      #child process environment.
-      # - to pass a different environment to the child - we would need to save the env array, modify as required, and then restore the env array.
-
-      #to restore buffering states after run
-      set remember_in_out_err_buffering [list \
-         [chan configure $inchan -buffering] \
-         [chan configure $outchan -buffering] \
-         [chan configure $errchan -buffering] \
-         ]
-
-      set remember_in_out_err_translation [list \
-          [chan configure $inchan -translation] \
-          [chan configure $outchan -translation] \
-          [chan configure $errchan -translation] \
-          ]
-          
-      
-      
-
-
-      chan configure $inchan -buffering  $inbuffering -blocking 0  ;#we are setting up a readable handler for this - so non-blocking ok
-      chan configure $errchan -buffering $errbuffering
-      #chan configure $outchan -blocking 0
-      chan configure $outchan -buffering $outbuffering ;#don't configure non-blocking. weird duplicate of *second* line occurs if you do.
-      #
-
-      #--------------------------------------------
-      #Tested on windows. Works to stop <cr><cr><lf> in output when buffering is none, reading from channel with -translation auto
-      #cmd, pwsh, tcl 
-      #chan configure $outchan -translation lf
-      #chan configure $errchan -translation lf
-      #--------------------------------------------
-      chan configure $outchan -translation $outtranslation
-      chan configure $errchan -translation $outtranslation
-
-      #puts stderr "chan configure $wrerr [chan configure $wrerr]"
-      if {$debug} {
-        ::shellfilter::log::write $debugname "COMMAND  [list $commandlist] strlen:[string length $commandlist] llen:[llength $commandlist]"
-      }
-      #todo - handle custom redirection of stderr to a file?
-      if {[string length $custom_stderr]} {
-        #::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist $custom_stderr] a+"
-        #set rdout [open |[concat $commandlist $custom_stderr] a+] 
-        ::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist [list $custom_stderr <@$inchan]] [list RDONLY]"
-        set rdout [open |[concat $commandlist [list <@$inchan $custom_stderr]] [list RDONLY]] 
-        set rderr "bogus" ;#so we don't wait for it
-      } else {
-        ::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist [list 2>@$wrerr <@$inchan]] [list RDONLY]"
-        #set rdout [open |[concat $commandlist [list 2>@$wrerr]] a+]
-        #set rdout [open |[concat $commandlist [list 2>@$wrerr]] [list RDWR]]
-
-        # If we don't redirect stderr to our own tcl-based channel - then the transforms don't get applied. 
-        # This is the whole reason we need these file-event loops.
-        # Ideally we need something like exec,open in tcl that interacts with transformed channels directly and emits as it runs, not only at termination
-        #  - and that at least appears like a terminal to the called command.
-        #set rdout [open |[concat $commandlist [list 2>@stderr <@$inchan]] [list RDONLY]]
-        
-
-        set rdout [open |[concat $commandlist [list 2>@$wrerr <@$inchan]] [list RDONLY]]
-
-        chan configure $rderr -buffering $errbuffering -blocking 0
-        chan configure $rderr -translation $readprocesstranslation
-      }
-
-
-
-      set command_pids [pid $rdout]
-        #puts stderr "command_pids: $command_pids"
-        #tcl::process ensemble only available in 8.7+ - and it didn't prove useful here anyway
-        # the child process generally won't shut down until channels are closed.
-        # premature EOF on grandchild process launch seems to be due to lack of terminal emulation when redirecting stdin/stdout.
-        # worked around in punk/repl using 'script' command as a fake tty.
-        #set subprocesses [tcl::process::list]
-        #puts stderr "subprocesses: $subprocesses"
-        #if {[lindex $command_pids 0] ni $subprocesses} {
-        #    puts stderr "pid [lindex $command_pids 0] not running $errMsg"
-        #} else {
-        #    puts stderr "pid [lindex $command_pids 0] is running"
-        #}
-
-      
-      if {$debug} {
-          ::shellfilter::log::write $debugname "pipeline pids: $command_pids"
-      }
-
-      #jjj
-
-
-      chan configure $rdout -buffering $outbuffering -blocking 0
-      chan configure $rdout -translation $readprocesstranslation 
-
-      if {![string length $custom_stderr]} { 
-        chan event $rderr readable [list apply {{chan other wrerr outchan errchan waitfor errprefix errbuffering debug debugname pids} {
-            if {$errbuffering eq "line"} {
-                set countchunk [chan gets $chan chunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                #errprefix only applicable to line buffered output
-                if {$countchunk >= 0} {
-                    if {[chan eof $chan]} {
-                        puts -nonewline $errchan ${errprefix}$chunk
-                    } else {
-                        puts $errchan "${errprefix}$chunk"
-                    }
-                }
-            } else {
-                set chunk [chan read $chan]
-                if  {[string length $chunk]} {
-                    puts -nonewline $errchan $chunk
-                }
-            } 
-            if {[chan eof $chan]} {
-                flush $errchan ;#jmn
-                #set subprocesses [tcl::process::list]
-                #puts stderr "subprocesses: $subprocesses"
-                #if {[lindex $pids 0] ni $subprocesses} {
-                #    puts stderr "stderr reader: pid [lindex $pids 0] no longer running"
-                #} else {
-                #    puts stderr "stderr reader: pid [lindex $pids 0] still running"
-                #}
-                chan close $chan
-                #catch {chan close $wrerr}
-                if {$other ni [chan names]} {
-                    set $waitfor stderr
-                }
-            }
-        }} $rderr $rdout $wrerr $outchan $errchan $waitvar $errprefix $errbuffering $debug $debugname $command_pids]
-      }
-
-        #todo - handle case where large amount of stdin coming in faster than rdout can handle
-        #as is - arbitrary amount of memory could be used because we aren't using a filevent for rdout being writable
-        # - we're just pumping it in to the non-blocking rdout buffers 
-        # ie there is no backpressure and stdin will suck in as fast as possible.
-        # for most commandlines this probably isn't too big a deal.. but it could be a problem for multi-GB disk images etc
-        #
-        #
-        
-        ## Note - detecting trailing missing nl before eof is basically the same  here as when reading rdout from executable
-        # - but there is a slight difference in that with rdout we get an extra blocked state just prior to the final read.
-        # Not known if that is significant
-        ## with inchan configured -buffering line 
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl -r cat
-        #warning reading input with -buffering line. Cannot detect missing trailing-newline at eof
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl -r cat
-        #warning reading input with -buffering line. Cannot detect missing trailing-newline at eof
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:1 pend:-1 count:3
-        #etc
-
-        if 0 {
-            chan event $inchan readable [list apply {{chan wrchan inbuffering waitfor} {
-                #chan copy stdin $chan ;#doesn't work in a chan event
-                if {$inbuffering eq "line"} {
-                    set countchunk [chan gets $chan chunk]
-                    #puts $wrchan "stdinstate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                    if {$countchunk >= 0} {
-                        if {[chan eof $chan]} {
-                            puts -nonewline $wrchan $chunk
-                        } else {
-                            puts $wrchan $chunk
-                        }
-                    }
-                } else {
-                    set chunk [chan read $chan]
-                    if {[string length $chunk]} {
-                        puts -nonewline $wrchan $chunk
-                    } 
-                }
-                if {[chan eof $chan]} {
-                    puts stderr "|stdin_reader>eof [chan configure stdin]"
-                    chan event $chan readable {}
-                    #chan close $chan 
-                    chan close $wrchan write ;#half close
-                    #set $waitfor "stdin"
-                }
-            }} $inchan $rdout $inbuffering $waitvar]
-       
-            if {[string length $stdinhandler]} {
-                chan configure stdin -buffering line -blocking 0
-                chan event stdin readable $stdinhandler
-            }
-       } 
-
-        set actual_proc_out_buffering [chan configure $rdout -buffering]
-        set actual_outchan_buffering [chan configure $outchan -buffering]
-        #despite whatever is configured - we match our reading to how we need to output
-        set read_proc_out_buffering $actual_outchan_buffering
-      
-
-
-      if {[string length $teefile]} {
-        set logname "redir_[string map {: _} $winfile]_[tcl::clock::microseconds]"
-        set tid [::shellfilter::log::open $logname {-syslog 127.0.0.1:514}]
-        if {$teefile eq "write"} {
-          ::shellfilter::log::write $logname "opening '$winfile' for write" 
-          set fd [open $winfile w]
-        } else {
-          ::shellfilter::log::write $logname "opening '$winfile' for appending" 
-          set fd [open $winfile a]
-        }
-        #chan configure $fd -translation lf 
-        chan configure $fd -translation $outtranslation
-        chan configure $fd -encoding utf-8 
-
-        set tempvar_bytetotal [namespace current]::totalbytes[tcl::clock::microseconds] 
-        set $tempvar_bytetotal 0
-        chan event $rdout readable [list apply {{chan other wrerr outchan errchan read_proc_out_buffering waitfor outprefix call_id debug debugname writefile writefilefd copytempfile bytevar logtag} {
-            #review - if we write outprefix to normal stdout.. why not to redirected file?  
-            #usefulness of outprefix is dubious
-            upvar $bytevar totalbytes
-            if {$read_proc_out_buffering eq "line"} {
-                #set outchunk [chan read $chan]
-                set countchunk [chan gets $chan outchunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                if  {$countchunk >= 0} {
-                    if {![chan eof $chan]} {
-                        set numbytes [expr {[string length $outchunk] + 1}]  ;#we are assuming \n not \r\n - but count won't/can't be completely accurate(?) - review
-                        puts $writefilefd $outchunk
-                    } else {
-                        set numbytes [string length $outchunk]
-                        puts -nonewline $writefilefd $outchunk
-                    }
-                    incr totalbytes $numbytes
-                    ::shellfilter::log::write $logtag "${outprefix} wrote $numbytes  bytes to $writefile"
-                    #puts $outchan "${outprefix} wrote $numbytes  bytes to $writefile"
-                }
-            } else {
-                set outchunk [chan read $chan]
-                if {[string length $outchunk]} {
-                    puts -nonewline $writefilefd $outchunk
-                    set numbytes [string length $outchunk]
-                    incr totalbytes $numbytes
-                    ::shellfilter::log::write $logtag "${outprefix} wrote $numbytes  bytes to $writefile"
-                }
-            }
-            if {[chan eof $chan]} {
-                flush $writefilefd ;#jmn
-                #set blocking so we can get exit code
-                chan configure $chan -blocking 1 
-                catch {::shellfilter::log::write $logtag "${outprefix} total bytes $totalbytes written to $writefile"}
-                #puts $outchan "${outprefix} total bytes $totalbytes written to $writefile"
-                catch {close $writefilefd}
-                if {$copytempfile} {
-                  catch {file copy $writefile "[file rootname $writefile]_copy[file extension $writefile]"}
-                }
-                try {
-                    chan close $chan
-                    set ::shellfilter::shellcommandvars($call_id,exitcode) 0
-                    if {$debug} {
-                        ::shellfilter::log::write $debugname "(teefile) -- child process returned no error. (exit code 0) --"
-                    }
-                } trap CHILDSTATUS {result options} {
-                    set code [lindex [dict get $options -errorcode] 2]
-                    if {$debug} {
-                        ::shellfilter::log::write $debugname "(teefile) CHILD PROCESS EXITED with code: $code"
-                    }
-                    set ::shellfilter::shellcommandvars($call_id,exitcode) $code
-                }
-                catch {chan close $wrerr}
-                if {$other ni [chan names]} {
-                    set $waitfor stdout
-                }
-            }
-        }} $rdout $rderr $wrerr $outchan $errchan $read_proc_out_buffering $waitvar $outprefix $call_id $debug $debugname $winfile $fd $copytempfile $tempvar_bytetotal $logname]
-        
-      } else {
-
-        # This occurs when we have outbuffering set to 'line' - as the 'input' from rdout which comes from the executable is also configured to 'line'
-        # where b:0|1 is whether chan blocked $chan returns 0 or 1
-        # pend is the result of chan pending $chan
-        # eof is the resot of chan eof $chan
-
-
-        ##-------------------------
-        ##If we still read with gets,to retrieve line by line for output to line-buffered output - but the input channel is configured with -buffering none
-        ## then we can detect the difference
-        # there is an extra blocking read - but we can stil use eof with data to detect the absent newline and avoid passing an extra one on.
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl /u/c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:1 eof:0 pend:-1 count:-1
-        #instate  b:0 eof:1 pend:-1 count:3
-        #etc
-        ##------------------------
-
-
-        #this should only occur if upstream is coming from stdin reader that has  line buffering and hasn't handled the difference properly..
-        ###reading with gets from line buffered input with trailing newline
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        ###reading with gets from line buffered input with trailing newline
-        ##No detectable difference!
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-        ##-------------------------
-
-        #Note that reading from -buffering none and writing straight out gives no problem because we pass the newlines through as is
-
-        
-        #set ::shellfilter::chan::lastreadblocked_nodata_noeof($rdout) 0 ;#a very specific case of readblocked prior to eof.. possibly not important
-        #this detection is disabled for now - but left for debugging in case it means something.. or changes 
-        chan event $rdout readable [list apply {{chan other wrerr outchan errchan read_proc_out_buffering waitfor outprefix call_id debug debugname pids} {
-            #set outchunk [chan read $chan]
-            
-            if {$read_proc_out_buffering eq "line"} {
-                set countchunk [chan gets $chan outchunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                #countchunk can be -1 before eof e.g when blocked
-                #debugging output inline with data - don't leave enabled
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                if {$countchunk >= 0} {
-                    if {![chan eof $chan]} { 
-                        puts $outchan ${outprefix}$outchunk
-                    } else {
-                        puts -nonewline $outchan ${outprefix}$outchunk
-                        #if {$::shellfilter::chan::lastreadblocked_nodata_noeof($chan)} {
-                        #   seems to be the usual case
-                        #} else {
-                        #    #false alarm, or ? we've reached eof with data but didn't get an empty blocking read just prior
-                        #    #Not known if this occurs
-                        #    #debugging output inline with data - don't leave enabled
-                        #    puts $outchan "!!!prev read didn't block: instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                        #}
-                    }
-                    #set ::shellfilter::chan::lastreadblocked_nodata_noeof($chan) 0
-                } else {
-                    #set ::shellfilter::chan::lastreadblocked_nodata_noeof($chan) [expr {[chan blocked $chan] && ![chan eof $chan]}]
-                }
-            } else {
-                #puts $outchan "read  CHANNEL $chan  [chan configure $chan]"
-                #puts $outchan "write CHANNEL $outchan b:[chan configure $outchan -buffering] t:[chan configure $outchan -translation] e:[chan configure $outchan -encoding]"
-                set outchunk [chan read $chan]
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:[string length $outchunk]"
-                if  {[string length $outchunk]} {
-                    #set stringrep [encoding convertfrom utf-8 $outchunk] 
-                    #set newbytes [encoding convertto utf-16 $stringrep]
-                    #puts -nonewline $outchan $newbytes
-                    puts -nonewline $outchan $outchunk
-                }
-            }
-
-            if {[chan eof $chan]} {
-                flush $outchan ;#jmn
-                #for now just look for first element in the pid list..
-                #set subprocesses [tcl::process::list]
-                #puts stderr "subprocesses: $subprocesses"
-                #if {[lindex $pids 0] ni $subprocesses} {
-                #    puts stderr "stdout reader pid: [lindex $pids 0] no longer running"
-                #} else {
-                #    puts stderr "stdout reader pid: [lindex $pids 0] still  running"
-                #}
-
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan]"
-                    chan configure $chan -blocking 1 ;#so we can get exit code
-                    try {
-                        chan close $chan
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) 0
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " -- child process returned no error. (exit code 0) --"
-                        }
-                    } trap CHILDSTATUS {result options} {
-                        set code [lindex [dict get $options -errorcode] 2]
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) $code
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " CHILD PROCESS EXITED with code: $code"
-                        }
-                    } trap CHILDKILLED {result options} {
-                        #set code [lindex [dict get $options -errorcode] 2]
-                        #set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) "childkilled"
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " CHILD PROCESS EXITED with result:'$result' options:'$options'"
-                        }
-
-                    } finally {
-                        #puts stdout "HERE"
-                        #flush stdout
-
-                    }
-                    catch {chan close $wrerr}
-                    if {$other ni [chan names]} {
-                        set $waitfor stdout
-                    } 
-
-            }
-        }} $rdout $rderr $wrerr $outchan $errchan $read_proc_out_buffering $waitvar $outprefix $call_id $debug $debugname $command_pids]
-      }
-
-      #todo - add ability to detect activity/data-flow and change timeout to only apply for period with zero data
-      #e.g x hrs with no data(?)
-      #reset timeout when data detected. 
-      after $timeout [string map [list %w% $waitvar %id% $call_id %wrerr% $wrerr %rdout% $rdout %rderr% $rderr %debug% $debug %debugname% $debugname] {
-          if {[info exists ::shellfilter::shellcommandvars(%id%,exitcode)]} {
-              if {[set  ::shellfilter::shellcommandvars(%id%,exitcode)] ne ""} {
-                  catch { chan close %wrerr% }
-                  catch { chan close %rdout%}
-                  catch { chan close %rderr%}
-              } else {
-                  chan configure %rdout% -blocking 1
-                  try {
-                      chan close %rdout%
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) 0
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) -- child process returned no error. (exit code 0) --"
-                      }
-                  } trap CHILDSTATUS {result options} {
-                      set code [lindex [dict get $options -errorcode] 2]
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) CHILD PROCESS EXITED with code: $code"
-                      }
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                  } trap CHILDKILLED {result options} {
-                      set code [lindex [dict get $options -errorcode] 2]
-                      #set code [dict get $options -code]
-                      #set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                      #set ::shellfilter::shellcommandvars($call_id,exitcode) "childkilled-timeout"
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) "childkilled-timeout"
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) CHILDKILLED with code: $code"
-                          ::shellfilter::log::write %debugname% "(timeout) result:$result options:$options"
-                      }
-
-                  }
-                  catch { chan close %wrerr% }
-                  catch { chan close %rderr%}
-              }
-              set %w% "timeout"
-          }
-      }]
-     
-
-      vwait $waitvar
-
-      set exitcode [set ::shellfilter::shellcommandvars($call_id,exitcode)]
-      if {![string is digit -strict $exitcode]} {
-          puts stderr "Process exited with non-numeric code: $exitcode"
-          flush stderr
-      }
-      if {[string length $teefile]} {
-          #cannot be called from within an event handler above.. vwait reentrancy etc
-          catch {::shellfilter::log::close $logname}
-      }
-
-      if {$debug} {
-          ::shellfilter::log::write $debugname " closed by: [set $waitvar] with exitcode: $exitcode"
-          catch {::shellfilter::log::close $debugname}
-      }
-      array unset ::shellfilter::shellcommandvars $call_id,*
-
-
-      #restore buffering to pre shellfilter::run state
-      lassign $remember_in_out_err_buffering bin bout berr
-      chan configure $inchan  -buffering $bin
-      chan configure $outchan -buffering $bout
-      chan configure $errchan -buffering $berr
-
-      lassign $remember_in_out_err_translation tin tout terr
-      chan configure $inchan  -translation $tin
-      chan configure $outchan -translation $tout
-      chan configure $errchan -translation $terr
-
-
-      #in channel probably closed..(? review - should it be?)
-      catch {
-        chan configure $inchan  -buffering $bin
-      }
-
-
-      return [list exitcode $exitcode]
-  }
-
-}
-
-package provide shellfilter [namespace eval shellfilter {
-    variable version
-    set version 0.1.9
-}]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellfilter-0.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellfilter-0.2.tm
deleted file mode 100644
index 8017d3f5..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellfilter-0.2.tm
+++ /dev/null
@@ -1,3347 +0,0 @@
-#copyright 2023 Julian Marcel Noble
-#license: BSD (revised 3-clause)
-#
-#Note shellfilter is currently only directly useful for unidirectional channels e.g stdin,stderr,stdout, or for example fifo2 where only one direction is being used.
-#To generalize this to bidrectional channels would require shifting around read & write methods on transform objects in a very complicated manner.
-#e.g each transform would probably be a generic transform container which holds sub-objects to which read & write are indirected.
-#This is left as a future exercise...possibly it's best left as a concept for uni-directional channels anyway 
-# - as presumably the reads/writes from a bidirectional channel could be diverted off to unidirectional pipelines for processing with less work
-# (and maybe even better speed/efficiency if the data volume is asymmetrical and there is significant processing on one direction)
-#
-
-
-tcl::namespace::eval shellfilter::log {
-    variable allow_adhoc_tags 1
-    variable open_logs [tcl::dict::create]
-    variable is_enabled 0
-
-    proc disable {} {
-        variable is_enabled
-        set is_enabled 0
-        proc ::shellfilter::log::open     {tag settingsdict} {}
-        proc ::shellfilter::log::write    {tag msg} {}
-        proc ::shellfilter::log::write_sync    {tag msg} {}
-        proc ::shellfilter::log::close    {tag} {}
-    }
-
-    proc enable {} {
-        variable is_enabled
-        set is_enabled 1
-        #'tag' is an identifier for the log source. 
-        # each tag will use it's own thread to write to the configured log target
-        proc ::shellfilter::log::open {tag {settingsdict {}}} {
-            upvar ::shellfilter::sources sourcelist
-            if {![dict exists $settingsdict -tag]} {
-                tcl::dict::set settingsdict -tag $tag
-            } else {
-                #review
-                if {$tag ne [tcl::dict::get $settingsdict -tag]} {
-                    error "shellfilter::log::open first argument tag: '$tag' does not match -tag '[tcl::dict::get $settingsdict -tag]' omit -tag, or supply same value"
-                }
-            }
-            if {$tag ni $sourcelist} {
-                lappend sourcelist $tag
-            }
-
-            #note new_worker 
-            set worker_tid [shellthread::manager::new_worker $tag $settingsdict]
-            #puts stderr "shellfilter::log::open this_threadid: [thread::id] tag: $tag worker_tid: $worker_tid"
-            return $worker_tid
-        }
-        proc ::shellfilter::log::write {tag msg} {
-            upvar ::shellfilter::sources sourcelist
-            variable allow_adhoc_tags
-            if {!$allow_adhoc_tags} {
-                if {$tag ni $sourcelist} {
-                    error "shellfilter::log::write tag '$tag' hasn't been initialised with a call to shellfilter::log::open $tag <settings>, and allow_adhoc_tags has been set false. use shellfilter::log::require_open false to allow adhoc tags"
-                }
-            }
-            shellthread::manager::write_log $tag $msg
-        }
-        #write_sync - synchronous processing with logging thread, slower but potentially useful for debugging/testing or forcing delay til log written
-        proc ::shellfilter::log::write_sync {tag msg} {
-            shellthread::manager::write_log $tag $msg -async 0
-        }
-        proc ::shellfilter::log::close {tag} {
-            #shellthread::manager::close_worker $tag
-            shellthread::manager::unsubscribe [list $tag]; #workertid will be added back to free list if no tags remain subscribed
-        }
-
-    }
-
-    #review
-    #configure whether we can call shellfilter::log::write without having called open first
-    proc require_open {{is_open_required {}}} {
-        variable allow_adhoc_tags
-        if {![string length $is_open_required]} {
-            return $allow_adhoc_tags
-        } else {
-            set truevalues [list y yes true 1]
-            set falsevalues [list n no false 0]
-            if {[string tolower $is_open_required] in $truevalues} {
-                set allow_adhoc_tags 1
-            } elseif {[string tolower $is_open_required] in $falsevalues} {
-                set allow_adhoc_tags 0
-            } else {
-                error "shellfilter::log::require_open unrecognised value '$is_open_required' try one of $truevalues or $falsevalues"
-            }
-        }
-    }
-    if {[catch {package require shellthread}]} {
-        shellfilter::log::disable
-    } else {
-        shellfilter::log::enable
-    }
-
-}
-namespace eval shellfilter::pipe {
-    #write channel for program. workerthread reads other end of fifo2 and writes data somewhere
-    proc open_out {tag_pipename {pipesettingsdict {}}} {
-        set defaultsettings {-buffering full}
-        set settingsdict [dict merge $defaultsettings $pipesettingsdict]
-        package require shellthread
-        #we are only using the fifo in a single direction to pipe to another thread
-        # - so whilst wchan and rchan could theoretically each be both read & write we're only using them for one operation each
-        if {![catch {package require Memchan}]} {
-            lassign [fifo2] wchan rchan
-        } else {
-            package require tcl::chan::fifo2
-            lassign [tcl::chan::fifo2] wchan rchan
-        }
-        #default -translation for both types of fifo on windows is {auto crlf}
-        # -encoding is as per '[encoding system]' on the platform - e.g utf-8 (e.g windows when beta-utf8 enabled)
-        chan configure $wchan -buffering [dict get $settingsdict -buffering] ;#
-        #application end must not be binary for our filters to operate on it
-
-
-        #chan configure $rchan -buffering [dict get $settingsdict -buffering] -translation binary ;#works reasonably..
-        chan configure $rchan -buffering [dict get $settingsdict -buffering] -translation lf 
-
-        set worker_tid [shellthread::manager::new_pipe_worker $tag_pipename $settingsdict]
-        #puts stderr "worker_tid: $worker_tid"
-
-        #set_read_pipe does the thread::transfer of the rchan end. -buffering setting is maintained during thread transfer
-        shellthread::manager::set_pipe_read_from_client $tag_pipename $worker_tid $rchan
-
-        set pipeinfo [list localchan $wchan remotechan $rchan workertid $worker_tid direction out]
-        return $pipeinfo
-    }
-
-    #read channel for program.  workerthread writes to other end of fifo2 from whereever it's reading (stdin, file?)
-    proc open_in {tag_pipename {settingsdict {} }} {
-        package require shellthread
-        package require tcl::chan::fifo2
-        lassign [tcl::chan::fifo2] wchan rchan
-        set program_chan $rchan
-        set worker_chan $wchan
-        chan configure $worker_chan     -buffering [dict get $settingsdict -buffering]
-        chan configure $program_chan    -buffering [dict get $settingsdict -buffering]
-
-        chan configure $program_chan -blocking 0
-        chan configure $worker_chan -blocking 0
-        set worker_tid [shellthread::manager::new_worker $tag_pipename $settingsdict]
-
-        shellthread::manager::set_pipe_write_to_client $tag_pipename $worker_tid $worker_chan
-
-        set pipeinfo [list localchan $program_chan remotechan $worker_chan workertid $worker_tid direction in]
-        puts stderr "|jn>pipe::open_in returning $pipeinfo"
-        puts stderr "program_chan: [chan conf $program_chan]"
-        return $pipeinfo
-    }
-
-}
-
-
-namespace eval shellfilter::chan {
-    set testobj ::shellfilter::chan::var
-    if {$testobj ni [info commands $testobj]} {
-
-    oo::class create var {
-        variable o_datavar
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            set varname [dict get $settingsdict -varname] 
-            set o_datavar $varname
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 1  ;# as a var is diversionary - default it to be a jucntion
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {ch} {
-            my destroy
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {ch count} {
-        #  return ?
-        #}
-        method write {ch bytes} {
-            set stringdata [encoding convertfrom $o_enc $bytes]
-            append $o_datavar $stringdata
-            return ""
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction 
-        }
-        method meta_buffering_supported {} {
-            return [list line full none]
-        }
-    }
-
-    #todo - something similar for multiple grep specs each with own -pre & -post .. store to dict?
-    oo::class create tee_grep_to_var {
-        variable o_datavar
-        variable o_lastxlines 
-        variable o_trecord 
-        variable o_grepfor
-        variable o_prelines
-        variable o_postlines
-        variable o_postcountdown 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set o_lastxlines [list]
-            set o_postcountdown 0
-            set defaults [tcl::dict::create -pre 1 -post 1]
-            set settingsdict [tcl::dict::get $tf -settings]
-            set settings [tcl::dict::merge $defaults $settingsdict]
-            set o_datavar [tcl::dict::get $settings -varname]
-            set o_grepfor [tcl::dict::get $settings -grep]
-            set o_prelines [tcl::dict::get $settings -pre]
-            set o_postlines [tcl::dict::get $settings -post]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #method read {transform_handle count} {
-        #  return ?
-        #}
-        method write {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            set lastx $o_lastxlines 
-            lappend o_lastxlines $logdata
-
-            if {$o_postcountdown > 0} {
-                append $o_datavar $logdata
-                if {[regexp $o_grepfor $logdata]} {
-                    #another match in postlines
-                    set o_postcountdown $o_postlines
-                } else {
-                    incr o_postcountdown -1
-                }
-            } else {
-                if {[regexp $o_grepfor $logdata]} {
-                    append $o_datavar [join $lastx]
-                    append $o_datavar $logdata
-                    set o_postcountdown $o_postlines
-                }
-            }
-
-            if {[llength $o_lastxlines] > $o_prelines} {
-                set o_lastxlines [lrange $o_lastxlines 1 end]
-            }
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-        method meta_buffering_supported {} {
-            return [list line]
-        }
-    }
-
-    oo::class create tee_to_var {
-        variable o_datavars
-        variable o_trecord
-        variable o_enc
-        variable o_encbuf
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set o_encbuf ""
-            set settingsdict [tcl::dict::get $tf -settings]
-            set varname [tcl::dict::get $settingsdict -varname]
-            set o_datavars $varname
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize finalize write flush clear]
-        }
-        method finalize {ch} {
-            my destroy
-        }
-        method clear {ch} {
-            return
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {ch count} {
-        #  return ?
-        #}
-        #method flush {ch} {
-        #    return ""
-        #}
-        method flush {transform_handle} {
-            #puts stdout "<flush>"
-            #review - just clear o_encbuf and emit nothing?
-            #we wouldn't have a value there if it was convertable from the channel encoding?
-            set clear $o_encbuf
-            set o_encbuf ""
-            return $o_encbuf
-        }
-        method write {ch bytes} {
-            #test with set x [string repeat " \U1f6c8" 2043]
-            #or
-            #test with set x [string repeat " \U1f6c8" 683]
-            #most windows terminals (at least) may emit two unrecognised chars "??" at the end
-
-            #Our goal with the while loop here is to avoid encoding conversion errors
-            #the source of the bogus chars in terminals is unclear.
-            #Alacritty on windows doesn't seem to have the problem, but wezterm,cmd,windows terminal do.
-
-            #set stringdata [tcl::encoding::convertfrom $o_enc $bytes]
-            set inputbytes $o_encbuf$bytes
-            set o_encbuf ""
-            set tail_offset 0
-            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
-                incr tail_offset
-            }
-            if {$tail_offset > 0} {
-                if {$tail_offset < [string length $inputbytes]} {
-                    #stringdata from catch statement must be a valid result
-                    set t [expr {$tail_offset - 1}]
-                    set o_encbuf [string range $inputbytes end-$t end]
-                } else {
-                    set stringdata ""
-                    set o_encbuf $inputbytes
-                    return ""
-                }
-            }
-
-            foreach v $o_datavars {
-                append $v $stringdata
-            }
-            #return $bytes
-            return [string range $inputbytes 0 end-$tail_offset]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    oo::class create tee_to_pipe {
-        variable o_logsource
-        variable o_localchan
-        variable o_enc
-        variable o_encbuf
-        variable o_trecord
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set o_encbuf ""
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {![dict exists $settingsdict -tag]} {
-                error "tee_to_pipe constructor settingsdict missing -tag"
-            }
-            set o_localchan [tcl::dict::get $settingsdict -pipechan]
-            set o_logsource [tcl::dict::get $settingsdict -tag]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read drain write flush clear finalize]
-        }
-        method finalize {transform_handle} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {transform_handle events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        method clear {transform_handle} {
-            return
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            #::shellfilter::log::write $o_logsource $logdata
-            puts -nonewline $o_localchan $logdata
-            return  $bytes
-        }
-        method flush {transform_handle} {
-            #return ""
-            set clear $o_encbuf
-            set o_encbuf ""
-            return $o_encbuf
-        }
-        method write {transform_handle bytes} {
-            #set logdata [tcl::encoding::convertfrom $o_enc $bytes]
-            set inputbytes $o_encbuf$bytes
-            set o_encbuf ""
-            set tail_offset 0
-            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
-                incr tail_offset
-            }
-            if {$tail_offset > 0} {
-                if {$tail_offset < [string length $inputbytes]} {
-                    #stringdata from catch statement must be a valid result
-                    set t [expr {$tail_offset - 1}]
-                    set o_encbuf [string range $inputbytes end-$t end]
-                } else {
-                    set stringdata ""
-                    set o_encbuf $inputbytes
-                    return ""
-                }
-            }
-            #::shellfilter::log::write $o_logsource $logdata
-            puts -nonewline $o_localchan $stringdata
-            #return $bytes
-            return [string range $inputbytes 0 end-$tail_offset]
-        }
-        #a tee is not a redirection - because data still flows along the main path
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-
-    }
-    oo::class create tee_to_log  {
-        variable o_tid 
-        variable o_logsource
-        variable o_trecord 
-        variable o_enc
-        variable o_encbuf
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set o_encbuf ""
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {![tcl::dict::exists $settingsdict -tag]} {
-                error "tee_to_log constructor settingsdict missing -tag"
-            }
-            set o_logsource [tcl::dict::get $settingsdict -tag]
-            set o_tid [::shellfilter::log::open $o_logsource $settingsdict]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize read write flush finalize]
-        }
-        method finalize {ch} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        method read {ch bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            ::shellfilter::log::write $o_logsource $logdata
-            return  $bytes
-        }
-        method flush {transform_handle} {
-            #return ""
-            set clear $o_encbuf
-            set o_encbuf ""
-            return $o_encbuf
-        }
-        method write {ch bytes} {
-            #set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            set inputbytes $o_encbuf$bytes
-            set o_encbuf ""
-            set tail_offset 0
-            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
-                incr tail_offset
-            }
-            if {$tail_offset > 0} {
-                if {$tail_offset < [string length $inputbytes]} {
-                    #stringdata from catch statement must be a valid result
-                    set t [expr {$tail_offset - 1}]
-                    set o_encbuf [string range $inputbytes end-$t end]
-                } else {
-                    set stringdata ""
-                    set o_encbuf $inputbytes
-                    return ""
-                }
-            }
-            ::shellfilter::log::write $o_logsource $logdata
-            #return $bytes
-            return [string range $inputbytes 0 end-$tail_offset]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-
-
-    oo::class create logonly  {
-        variable o_tid
-        variable o_logsource
-        variable o_trecord
-        variable o_enc
-        variable o_encbuf
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set o_encbuf ""
-            set settingsdict [dict get $tf -settings]
-            if {![dict exists $settingsdict -tag]} {
-                error "logonly constructor settingsdict missing -tag"
-            }
-            set o_logsource [dict get $settingsdict -tag]
-            set o_tid [::shellfilter::log::open $o_logsource $settingsdict]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {transform_handle} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {transform_handle events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {transform_handle count} {
-        #  return ?
-        #}
-        method write {transform_handle bytes} {
-            #set logdata [encoding convertfrom $o_enc $bytes] 
-            set inputbytes $o_encbuf$bytes
-            set o_encbuf ""
-            set tail_offset 0
-            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
-                incr tail_offset
-            }
-            if {$tail_offset > 0} {
-                if {$tail_offset < [string length $inputbytes]} {
-                    #stringdata from catch statement must be a valid result
-                    set t [expr {$tail_offset - 1}]
-                    set o_encbuf [string range $inputbytes end-$t end]
-                } else {
-                    set stringdata ""
-                    set o_encbuf $inputbytes
-                    return
-                }
-            }
-
-            #::shellfilter::log::write_sync $o_logsource $logdata
-            ::shellfilter::log::write $o_logsource $stringdata
-            return
-        }
-        method meta_is_redirection {} {
-            return 1
-        }
-    }
-
-    #review - we should probably provide a more narrow filter than only strips color - and one that strips most(?) 
-    # - but does it ever really make sense to strip things like "esc(0" and "esc(B" which flip to the G0 G1 characters? (once stripped - things like box-lines become ordinary letters - unlikely to be desired?)
-    #punk::ansi::ansistrip converts at least some of the box drawing G0 chars to unicode - todo - more complete conversion
-    #assumes line-buffering. a more advanced filter required if ansicodes can arrive split across separate read or write operations!
-    oo::class create ansistrip {
-        variable o_trecord
-        variable o_enc
-        variable o_encbuf
-        variable o_is_junction
-        constructor {tf} {
-            package require punk::ansi
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set o_encbuf ""
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write clear flush drain finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method clear {transform_handle} {
-            return
-        }
-        method watch {transform_handle events} {
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            set outstring [punk::ansi::ansistrip $instring]
-            return [encoding convertto $o_enc $outstring]
-        }
-        method flush {transform_handle} {
-            return ""
-        }
-        #method write {transform_handle bytes} {
-        #    #broken due to occasional unexpected byte sequence
-        #    set instring [encoding convertfrom $o_enc $bytes] 
-        #    set outstring [punk::ansi::ansistrip $instring]
-        #    return [encoding convertto $o_enc $outstring]
-        #}
-        method write {transform_handle bytes} {
-            #set instring [tcl::encoding::convertfrom $o_enc $bytes] ;naive approach will break due to unexpected byte sequence - occasionally
-            #bytes can break at arbitrary points making encoding conversions invalid.
-
-            set inputbytes $o_encbuf$bytes
-            set o_encbuf ""
-            set tail_offset 0
-            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
-                incr tail_offset
-            }
-            if {$tail_offset > 0} {
-                if {$tail_offset < [string length $inputbytes]} {
-                    #stringdata from catch statement must be a valid result
-                    set t [expr {$tail_offset - 1}]
-                    set o_encbuf [string range $inputbytes end-$t end]
-                } else {
-                    set stringdata ""
-                    set o_encbuf $inputbytes
-                    return ""
-                }
-            }
-
-            set outstring [punk::ansi::ansistrip $stringdata]
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-
-    #a test
-    oo::class create reconvert {
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-    }
-    oo::define reconvert {
-        method meta_is_redirection {} {
-            return 0
-        }
-    }
-
-    
-    #this isn't a particularly nice thing to do to a stream - especially if someone isn't expecting ansi codes sprinkled through it.
-    #It can be useful for test/debugging
-    #Due to chunking at random breaks - we have to check if an ansi code in the underlying stream has been split - otherwise our wrapping will break the existing ansi
-    #
-    set sixelstart_re {\x1bP([;0-9]*)q} ;#7-bit  - todo 8bit
-    #todo kitty graphics  \x1b_G...
-    #todo iterm graphics
-
-    oo::class create ansiwrap {
-        variable o_trecord
-        variable o_enc
-        variable o_encbuf ;#buffering for partial encoding bytes
-        variable o_colour
-        variable o_do_colour
-        variable o_do_colourlist
-        variable o_do_normal
-        variable o_is_junction
-        variable o_codestack
-        variable o_gx_state  ;#on/off alt graphics
-        variable o_buffered ;#buffering for partial ansi codes
-        constructor {tf} {
-            package require punk::ansi
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {[tcl::dict::exists $settingsdict -colour]} {
-                set o_colour [tcl::dict::get $settingsdict -colour]
-                #warning - we can't merge certain extended attributes such as undercurly into single SGR escape sequence
-                #while some terminals may handle these extended attributes even when merged - we need to cater for those that
-                #don't. Keeping them as a separate escape allows terminals that don't handle them to ignore just that code without
-                #affecting the interpretation of the other codes.
-                set o_do_colour     [punk::ansi::a+ {*}$o_colour]
-                set o_do_colourlist [punk::ansi::ta::get_codes_single $o_do_colour]
-                set o_do_normal [punk::ansi::a]
-            } else {
-                set o_colour {}
-                set o_do_colour ""
-                set o_do_colourlist {}
-                set o_do_normal ""
-            }
-            set o_codestack [list]
-            set o_gx_state [expr {off}]
-            set o_encbuf  ""
-            set o_buffered "" ;#hold back data that potentially contains partial ansi codes
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-
-
-        #todo - track when in sixel,iterm,kitty graphics data - can be very large
-        method Trackcodes {chunk} {
-            #note - caller can use 2 resets in a single unit to temporarily reset to no sgr (override ansiwrap filter)
-            #e.g [a+ reset reset] (<esc><lb>0;0m   vs <esc><lb>0;m)
-
-            #puts stdout "===[ansistring VIEW -lf 1 $o_buffered]"
-            set buf $o_buffered$chunk
-            set emit ""
-            if {[string last \x1b $buf] >= 0} {
-                #detect will detect ansi SGR and gron groff and other codes
-                #REVIEW - ta::detect won't detect SOS without paired ST for things like PM
-                # ta::detectcode will - but then split_codes_single will treat unpaired SOS as text?
-                if {[punk::ansi::ta::detect $buf]} {
-                    #split_codes_single regex faster than split_codes - but more resulting parts
-                    #'single' refers to number of escapes - but can still contain e.g multiple SGR codes (or mode set operations etc)
-                    set parts [punk::ansi::ta::split_codes_single $buf]
-                    #process all pt/code pairs except for trailing pt
-                    foreach {pt code} [lrange $parts 0 end-1] {
-                        #puts "<==[ansistring VIEW -lf 1 $pt]==>"
-                        switch -- [llength $o_codestack] {
-                            0 {
-                                append emit $o_do_colour$pt$o_do_normal
-                            }
-                            1 {
-                                if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                    append emit $o_do_colour$pt$o_do_normal
-                                    set o_codestack [list]
-                                } else {
-                                    #append emit [lindex $o_codestack 0]$pt
-                                    append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$pt
-                                }
-                            }
-                            default {
-                                append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$pt
-                            }
-                        }
-                        #if {( ![llength $o_codestack] || ([llength $o_codestack] == 1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]))} {
-                        #    append emit $o_do_colour$pt$o_do_normal
-                        #    #append emit $pt
-                        #} else {
-                        #    append emit $pt
-                        #}
-
-                        set c1c2 [tcl::string::range $code 0 1]
-                        set leadernorm [tcl::string::range [tcl::string::map [list\
-                            \x1b\[      7CSI\
-                            \x9b        8CSI\
-                            \x1b\(      7GFX\
-                        ] $c1c2] 0 3]
-                        switch -- $leadernorm {
-                            7CSI - 8CSI {
-                                if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                    set o_codestack [list "\x1b\[m"]
-                                } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                    set o_codestack [list $code]
-                                } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                                    #todo - make caching is_sgr method
-                                    set dup_posns [lsearch -all -exact $o_codestack $code]
-                                    set o_codestack [lremove $o_codestack {*}$dup_posns]
-                                    lappend o_codestack $code
-                                } else {
-
-                                }
-                            }
-                            7GFX {
-                                switch -- [tcl::string::index $code 2] {
-                                    "0" {
-                                        set o_gx_state on 
-                                    }
-                                    "B" {
-                                        set o_gx_state off 
-                                    }
-                                }
-                            }
-                            default {
-                                #other ansi codes
-                            }
-                        }
-                        append emit $code
-                    }
-
-
-                    set trailing_pt [lindex $parts end]
-                    if {[string first \x1b $trailing_pt] >= 0} {
-                        #puts  stdout "...[ansistring VIEW -lf 1 $trailing_pt]...buffered:<[ansistring VIEW $o_buffered]> '[ansistring VIEW -lf 1 $emit]'"
-                        #may not be plaintext after all
-                        set o_buffered $trailing_pt
-                        #puts stdout "=-=[ansistring VIEWCODES $o_buffered]"
-                    } else {
-                        #puts [a+ yellow]???[ansistring VIEW "'$o_buffered'<+>'$trailing_pt'"]???[a]
-                        switch -- [llength $o_codestack] {
-                            0 {
-                                append emit $o_do_colour$trailing_pt$o_do_normal
-                            }
-                            1 {
-                                if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                    append emit $o_do_colour$trailing_pt$o_do_normal
-                                    set o_codestack [list]
-                                } else {
-                                    #append emit [lindex $o_codestack 0]$trailing_pt
-                                    append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$trailing_pt
-                                }
-                            }
-                            default {
-                                append emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$trailing_pt
-                            }
-                        }
-                        #if {![llength $o_codestack] || ([llength $o_codestack] ==1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]])} {
-                        #    append emit $o_do_colour$trailing_pt$o_do_normal
-                        #} else {
-                        #    append emit $trailing_pt
-                        #}
-                        #the previous o_buffered formed the data we emitted - nothing new to buffer because we emitted all parts including the trailing plaintext
-                        set o_buffered ""
-                    }
-
-
-                } else {
-                    #REVIEW - this holding a buffer without emitting as we go is ugly.
-                    # - we may do better to detect and retain the opener, then use that opener to avoid false splits within the sequence.
-                    # - we'd then need to detect the appropriate close to restart splitting and codestacking 
-                    # - we may still need to retain and append the data to the opener (in some cases?) - which is a slight memory issue - but at least we would emit everything immediately.
-
-
-                    #puts "-->esc but no detect"
-                    #no complete ansi codes - but at least one esc is present
-                    if {[string index $buf end] eq "\x1b" && [string first \x1b $buf] == [string length $buf]-1} {
-                        #string index in first part of && clause to avoid some unneeded scans of whole string for this test
-                        #we can't use 'string last' - as we need to know only esc is last char in buf
-                        #puts ">>trailing-esc<<"
-                        set o_buffered \x1b
-                        set emit $o_do_colour[string range $buf 0 end-1]$o_do_normal
-                        #set emit [string range $buf 0 end-1]
-                        set buf ""
-                    } else {
-                        set emit_anyway 0
-                        #todo - ensure non-ansi escapes in middle of chunks don't lead to ever growing buffer
-                        if {[punk::ansi::ta::detect_st_open $buf]} {
-                            #no detect - but we have an ST open (privacy msg etc) - allow a larger chunk before we give up - could include newlines (and even nested codes - although not widely interpreted that way in terms)
-                            set st_partial_len [expr {[string length $buf] - [string last \x1b $buf]}] ;#length of unclosed ST code
-                            #todo - configurable ST max - use 1k for now
-                            if {$st_partial_len < 1001} {
-                                append o_buffered $chunk
-                                set emit ""
-                                set buf ""
-                            } else {
-                                set emit_anyway 1
-                                set o_buffered ""
-                            }
-                        } else {
-                            set possible_code_len [expr {[string length $buf] - [string last \x1b $buf]}] ;#length of possible code 
-                            #most opening sequences are 1,2 or 3 chars - review?
-                            set open_sequence_detected [punk::ansi::ta::detect_open $buf]
-                            if {$possible_code_len > 10 && !$open_sequence_detected} {
-                                set emit_anyway 1
-                                set o_buffered ""
-                            } else {
-                                #could be composite sequence with params - allow some reasonable max sequence length
-                                #todo - configurable max sequence length
-                                #len 40-50 quite possible for SGR sequence using coloured underlines etc, even without redundancies
-                                # - allow some headroom for redundant codes when the caller didn't merge.
-                                if {$possible_code_len < 101} {
-                                    append o_buffered $chunk
-                                    set buf ""
-                                    set emit ""
-                                } else {
-                                    #allow a little more grace if we at least have an opening ansi sequence of any type..
-                                    if {$open_sequence_detected && $possible_code_len < 151} {
-                                        append o_buffered $chunk
-                                        set buf ""
-                                        set emit ""
-                                    } else {
-                                        set emit_anyway 1
-                                        set o_buffered ""
-                                    }
-                                }
-                            }
-                        }
-                        if {$emit_anyway} {
-                            #assert: any time emit_anyway == 1 buf already contains all of previous o_buffered and o_buffered has been cleared.
-
-                            #looked ansi-like - but we've given enough length without detecting close..
-                            #treat as possible plain text with some esc or unrecognised ansi sequence
-                            switch -- [llength $o_codestack] {
-                                0 {
-                                    set emit $o_do_colour$buf$o_do_normal
-                                }
-                                1 {
-                                    if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                        set emit $o_do_colour$buf$o_do_normal
-                                        set o_codestack [list]
-                                    } else {
-                                        #set emit [lindex $o_codestack 0]$buf
-                                        set emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$buf
-                                    }
-                                }
-                                default {
-                                    #set emit [punk::ansi::codetype::sgr_merge_singles $o_codestack]$buf
-                                    set emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$buf
-                                }
-                            }
-                            #if {( ![llength $o_codestack] || ([llength $o_codestack] == 1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]))} {
-                            #    set emit $o_do_colour$buf$o_do_normal
-                            #} else {
-                            #    set emit $buf
-                            #}
-                        }
-                    }
-                }
-            } else {
-                #no esc
-                #puts stdout [a+ yellow]...[a]
-                #test!
-                switch -- [llength $o_codestack] {
-                    0 {
-                        set emit $o_do_colour$buf$o_do_normal
-                    }
-                    1 {
-                        if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                            set emit $o_do_colour$buf$o_do_normal
-                            set o_codestack [list]
-                        } else {
-                            #set emit [lindex $o_codestack 0]$buf
-                            set emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$buf
-                        }
-                    }
-                    default {
-                        #set emit [punk::ansi::codetype::sgr_merge_singles $o_codestack]$buf
-                        set emit [punk::ansi::codetype::sgr_merge_singles [list {*}$o_do_colourlist {*}$o_codestack]]$buf
-                    }
-                }
-                set o_buffered ""
-            }
-            return [dict create emit $emit stacksize [llength $o_codestack]]
-        }
-        method initialize {transform_handle mode} {
-            #clear undesirable in terminal output channels (review)
-            return [list initialize write flush read drain finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method clear {transform_handle} {
-            #In the context of stderr/stdout - we probably don't want clear to run.
-            #Terminals might call it in the middle of a split ansi code - resulting in broken output.
-            #Leave clear of it the init call
-            puts stdout "<clear>"
-            set emit [tcl::encoding::convertto $o_enc $o_buffered]
-            set o_buffered ""
-            return $emit 
-        }
-        method flush {transform_handle} {
-            #puts stdout "<flush>"
-            set inputbytes $o_buffered$o_encbuf
-            set emit [tcl::encoding::convertto $o_enc $inputbytes]
-            set o_buffered ""
-            set o_encbuf ""
-            return $emit
-        }
-        method write {transform_handle bytes} {
-            #set instring [tcl::encoding::convertfrom $o_enc $bytes] ;naive approach will break due to unexpected byte sequence - occasionally
-            #bytes can break at arbitrary points making encoding conversions invalid.
-
-            set inputbytes $o_encbuf$bytes
-            set o_encbuf ""
-            set tail_offset 0
-            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
-                incr tail_offset
-            }
-            if {$tail_offset > 0} {
-                if {$tail_offset < [string length $inputbytes]} {
-                    #stringdata from catch statement must be a valid result
-                    set t [expr {$tail_offset - 1}]
-                    set o_encbuf [string range $inputbytes end-$t end]
-                } else {
-                    set stringdata ""
-                    set o_encbuf $inputbytes
-                    return ""
-                }
-            }
-            set streaminfo [my Trackcodes $stringdata]
-            set emit        [dict get $streaminfo emit]
-
-            #review - wrapping already done in Trackcodes
-            #if {[dict get $streaminfo stacksize] == 0} {
-            #    #no ansi on the stack - we can wrap
-            #    #review
-            #    set outstring "$o_do_colour$emit$o_do_normal"
-            #} else {
-            #}
-            #if {[llength $o_codestack]} {
-            #    set outstring [punk::ansi::codetype::sgr_merge_singles $o_codestack]$emit
-            #} else {
-            #    set outstring $emit
-            #}
-            #set outstring $emit
-
-            #puts stdout "decoded   >>>[ansistring VIEWCODES $outstring]<<<"
-            #puts stdout "re-encoded>>>[ansistring VIEW [tcl::encoding::convertto $o_enc $outstring]]<<<"
-            return [tcl::encoding::convertto $o_enc $emit]
-        }
-        method Write_naive {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set outstring "$o_do_colour$instring$o_do_normal"
-            #set outstring ">>>$instring"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set outstring "$o_do_colour$instring$o_do_normal"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    #todo - something 
-    oo::class create rebuffer {
-        variable o_trecord
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            #set outstring [string map [list \n <N>] $instring]
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define rebuffer {
-        method meta_is_redirection {} {
-            return 0
-        }
-    }
-
-    #has slight buffering/withholding of lone training cr - we can't be sure that a cr at end of chunk is part of \r\n sequence 
-    oo::class create tounix {
-        variable o_trecord 
-        variable o_enc
-        variable o_last_char_was_cr
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-            set o_last_char_was_cr 0
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #don't use read
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            #set outstring [string map [list \n <N>] $instring]
-
-            if {$o_last_char_was_cr} {
-                set instring "\r$instring"
-            }
-
-            set outstring [string map {\r\n \n} $instring]
-            set lastchar [string range $outstring end end] 
-            if {$lastchar eq "\r"} {
-                set o_last_char_was_cr 1
-                set outstring [string range $outstring 0 end-1]
-            } else {
-                set o_last_char_was_cr 0
-            }
-            #review! can we detect eof here on the transform_handle?
-            #if eof, we don't want to strip a trailing \r
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define tounix {
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    #write to handle case where line-endings already \r\n too
-    oo::class create towindows  {
-        variable o_trecord 
-        variable o_enc
-        variable o_last_char_was_cr
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-            set o_last_char_was_cr 0
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #don't use read
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            #set outstring [string map [list \n <N>] $instring]
-
-            if {$o_last_char_was_cr} {
-                set instring "\r$instring"
-            }
-
-            set outstring [string map {\r\n \uFFFF} $instring]
-            set outstring [string map {\n \r\n} $outstring]
-            set outstring [string map {\uFFFF \r\n} $outstring]
-
-            set lastchar [string range $outstring end end] 
-            if {$lastchar eq "\r"} {
-                set o_last_char_was_cr 1
-                set outstring [string range $outstring 0 end-1]
-            } else {
-                set o_last_char_was_cr 0
-            }
-            #review! can we detect eof here on the transform_handle?
-            #if eof, we don't want to strip a trailing \r
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define towindows {
-        method meta_is_redirection {} {
-            return $o_is_junction 
-        }
-    }
-
-    }
-}
-
-# ----------------------------------------------------------------------------
-#review float/sink metaphor.
-#perhaps something with the concept of upstream and downstream?
-#need concepts for push towards data, sit in middle where placed, and lag at tail of data stream. 
-## upstream for stdin is at the bottom of the stack and for stdout is the top of the stack.
-#upstream,neutral-upstream,downstream,downstream-aside,downstream-replace  (default neutral-upstream - require action 'stack' to use standard channel stacking concept and ignore other actions)
-#This is is a bit different from the float/sink metaphor which refers to the channel stacking order as opposed to the data-flow direction.
-#The idea would be that whether input or output 
-# upstream additions go to the side closest to the datasource
-# downstream additions go furthest from the datasource 
-# - all new additions go ahead of any diversions as the most upstream diversion is the current end of the stream in a way.
-# - this needs review regarding subsequent removal of the diversion and whether filters re-order in response.. 
-#    or if downstream & neutral additions are reclassified upon insertion if they land among existing upstreams(?) 
-# neutral-upstream goes to the datasource side of the neutral-upstream list. 
-#   No 'neutral' option provided so that we avoid the need to think forwards or backwards when adding stdin vs stdout shellfilter does the necessary pop/push reordering.
-#   No 'neutral-downstream' to reduce complexity.
-# downstream-replace & downstream-aside head downstream to the first diversion they encounter. ie these actions are no longer referring to the stack direction but only the dataflow direction.
-#
-# ----------------------------------------------------------------------------
-#
-# 'filters' are transforms that don't redirect
-# - limited range of actions to reduce complexity.
-# - any requirement not fulfilled by float,sink,sink-replace,sink-sideline should be done by multiple pops and pushes
-#
-#actions can float to top of filters or sink to bottom of filters
-#when action is of type sink, it can optionally replace or sideline the first non-filter it encounters (highest redirection on the stack.. any lower are starved of the stream anyway)
-# - sideline means to temporarily replace the item and keep a record, restoring if/when we are removed from the transform stack
-#
-##when action is of type float it can't replace or sideline anything. A float is added above any existing floats and they stay in the same order relative to each other,
-#but non-floats added later will sit below all floats.
-#(review - float/sink initially designed around output channels. For stdin the dataflow is reversed. implement float-aside etc?)
-#
-#
-#action: float sink sink-replace,sink-sideline
-#
-#
-## note - whether stack is for input or output we maintain it in the same direction - which is in sync with the tcl chan pop chan push concept.
-## 
-namespace eval shellfilter::stack {
-    namespace export {[a-z]*}
-    namespace ensemble create
-    #todo - implement as oo ?
-    variable pipelines [list]
-
-    proc items {} {
-        #review - stdin,stdout,stderr act as pre-existing pipelines, and we can't create a new one with these names - so they should probably be autoconfigured and listed..
-        # - but in what contexts? only when we find them in [chan names]?
-        variable pipelines
-        return [dict keys $pipelines]
-    }
-    proc item {pipename} {
-        variable pipelines
-        return [dict get $pipelines $pipename]
-    }
-    proc item_tophandle {pipename} {
-        variable pipelines
-        set handle "" 
-        if {[dict exists $pipelines $pipename stack]} {
-            set stack [dict get $pipelines $pipename stack]
-            set topstack [lindex $stack end] ;#last item in stack is top (for output channels anyway) review comment. input chans?
-            if {$topstack ne ""} {
-                if {[dict exists $topstack -handle]} {
-                    set handle [dict get $topstack -handle]
-                }
-            }
-        }
-        return $handle
-    }
-    proc status {{pipename *} args} {
-        variable pipelines
-        set pipecount [dict size $pipelines]
-        set tabletitle "$pipecount pipelines active"
-        set t [textblock::class::table new $tabletitle]
-        $t add_column -headers [list channel-ident]
-        $t add_column -headers [list device-info localchan]
-        $t configure_column 1 -header_colspans {3}
-        $t add_column -headers [list "" remotechan]
-        $t add_column -headers [list "" tid]
-        $t add_column -headers [list stack-info]
-        foreach k [dict keys $pipelines $pipename] {
-            set lc [dict get $pipelines $k device localchan]
-            set rc [dict get $pipelines $k device remotechan]
-            if {[dict exists $k device workertid]} {
-                set tid [dict get $pipelines $k device workertid]
-            } else {
-                set tid "-"
-            }
-            set stack [dict get $pipelines $k stack]
-            if {![llength $stack]} {
-                    set  stackinfo "" 
-            } else {
-                set tbl_inner [textblock::class::table new]
-                $tbl_inner configure -show_edge 0
-                foreach rec $stack {
-                    set handle      [punk::lib::dict_getdef $rec -handle ""]
-                    set id          [punk::lib::dict_getdef $rec -id ""]
-                    set transform   [namespace tail [punk::lib::dict_getdef $rec -transform ""]]
-                    set settings    [punk::lib::dict_getdef $rec -settings ""]
-                    $tbl_inner add_row [list $id $transform $handle $settings]
-                }
-                set stackinfo [$tbl_inner print]
-                $tbl_inner destroy
-            }
-            $t add_row [list $k $lc $rc $tid $stackinfo]
-        }
-        set result [$t print]
-        $t destroy
-        return $result
-    }
-    proc status1 {{pipename *} args} {
-        variable pipelines
-
-        set pipecount [dict size $pipelines]
-        set tableprefix "$pipecount pipelines active\n"
-        foreach p [dict keys $pipelines] {
-            append tableprefix "    " $p \n
-        }
-        package require overtype
-        #todo -verbose
-        set table ""
-        set ac1 [string repeat " " 15]
-        set ac2 [string repeat " " 42]
-        set ac3 [string repeat " " 70]
-        append table "[overtype::left $ac1 channel-ident] "
-        append table "[overtype::left $ac2 device-info] "
-        append table "[overtype::left $ac3 stack-info]"
-        append table \n
-
-
-        set bc1 [string repeat " " 5]  ;#stack id
-        set bc2 [string repeat " " 25] ;#transform
-        set bc3 [string repeat " " 50] ;#settings
-
-        foreach k [dict keys $pipelines $pipename] {
-            set lc [dict get $pipelines $k device localchan]
-            if {[dict exists $k device workertid]} {
-                set tid [dict get $pipelines $k device workertid]
-            } else {
-                set tid ""
-            }
-
-
-            set col1 [overtype::left $ac1 $k]
-            set col2 [overtype::left $ac2 "localchan: $lc tid:$tid"]
-
-            set stack [dict get $pipelines $k stack]
-            if {![llength $stack]} {
-                    set col3 $ac3
-            } else {
-                set rec [lindex $stack 0]
-                set bcol1 [overtype::left $bc1 [dict get $rec -id]]
-                set bcol2 [overtype::left $bc2 [namespace tail [dict get $rec -transform]]]
-                set bcol3 [overtype::left $bc3 [dict get $rec -settings]]
-                set stackrow "$bcol1 $bcol2 $bcol3"
-                set col3 [overtype::left $ac3 $stackrow]
-            }
-
-            append table  "$col1 $col2 $col3\n"
-
-
-            foreach rec [lrange $stack 1 end] {
-                set col1 $ac1
-                set col2 $ac2
-                if {[llength $rec]} {
-                    set bc1 [overtype::left $bc1 [dict get $rec -id]]
-                    set bc2 [overtype::left $bc2 [namespace tail [dict get $rec -transform]]]
-                    set bc3 [overtype::left $bc3 [dict get $rec -settings]]
-                    set stackrow "$bc1 $bc2 $bc3"
-                    set col3 [overtype::left $ac3 $stackrow]
-                } else {
-                    set col3 $ac3
-                }
-                append table  "$col1 $col2 $col3\n"
-            }
-
-        }
-        return $tableprefix$table
-    }
-    #used for output channels - we usually want to sink redirections below the floaters and down to topmost existing redir 
-    proc _get_stack_floaters {stack} {
-        set floaters [list]
-        foreach t [lreverse $stack] {
-            switch -- [dict get $t -action] {
-                float {
-                    lappend floaters $t
-                }
-                default {
-                    break
-                }
-            }
-        }
-        return [lreverse $floaters]
-    }
-
-
-
-    #for output-channel sinking
-    proc _get_stack_top_redirection {stack} {
-        set r 0 ;#reverse index
-        foreach t [lreverse $stack] {
-            set obj [dict get $t -obj]
-            if {[$obj meta_is_redirection]} {
-                set idx [expr {[llength $stack] - ($r + 1) }] ;#forward index
-                return [list index $idx record $t]
-            }
-            incr r
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-    #exclude float-locked, locked, sink-locked
-    proc _get_stack_top_redirection_replaceable {stack} {
-        set r 0 ;#reverse index
-        foreach t [lreverse $stack] {
-            set action [dict get $t -action]
-            if {![string match "*locked*" $action]} {
-                set obj [dict get $t -obj]
-                if {[$obj meta_is_redirection]} {
-                    set idx [expr {[llength $stack] - ($r + 1) }] ;#forward index
-                    return [list index $idx record $t]
-                }
-            }
-            incr r
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-
-
-    #for input-channels ? 
-    proc _get_stack_bottom_redirection {stack} {
-        set i 0 
-        foreach t $stack {
-            set obj [dict get $t -obj]
-            if {[$obj meta_is_redirection]} {
-                return [linst index $i record $t]
-            }
-            incr i
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-
-
-    proc get_next_counter {pipename} {
-        variable pipelines
-        #use dictn incr ?
-        set counter [dict get $pipelines $pipename counter]
-        incr counter
-        dict set pipelines $pipename counter $counter
-        return $counter
-    }
-
-    proc unwind {pipename} {
-        variable pipelines
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $pipelines $pipename device localchan]
-        foreach tf [lreverse $stack] {
-            chan pop $localchan
-        }
-        dict set pipelines $pipename [list]
-    }
-    #todo
-    proc delete {pipename {wait 0}} {
-        variable pipelines
-        set pipeinfo [dict get $pipelines $pipename]
-        set deviceinfo [dict get $pipeinfo device] 
-        set localchan [dict get $deviceinfo localchan]
-        unwind $pipename
-
-        #release associated thread
-        set tid       [dict get $deviceinfo workertid]
-        if {$wait} {
-            thread::release -wait $tid
-        } else {
-            thread::release $tid
-        }
-
-        #Memchan closes without error - tcl::chan::fifo2 raises something like 'can not find channel named "rc977"' - REVIEW. why?
-        catch {chan close $localchan}
-    }
-    #review - proc name clarity is questionable. remove_stackitem? 
-    proc remove {pipename remove_id} {
-        variable pipelines
-        if {![dict exists $pipelines $pipename]} {
-            puts stderr "WARNING: shellfilter::stack::remove pipename '$pipename' not found in pipelines dict: '$pipelines' [info level -1]"
-            return
-        }
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $pipelines $pipename device localchan]
-        set posn 0
-        set idposn -1
-        set asideposn -1
-        foreach  t $stack {
-            set id [dict get $t -id]
-            if {$id eq $remove_id} {
-                set idposn $posn
-                break
-            }
-            #look into asides (only can be one for now)
-            if {[llength [dict get $t -aside]]} {
-                set a [dict get $t -aside]
-                if {[dict get $a -id] eq $remove_id} {
-                    set asideposn $posn 
-                    break
-                }
-            }
-            incr posn
-        }
-
-        if {$asideposn > 0} {
-            #id wasn't found directly in stack, but in an -aside. we don't need to pop anything - just clear this aside record
-            set container [lindex $stack $asideposn]
-            dict set container -aside {}
-            lset stack $asideposn $container 
-            dict set pipelines $pipename stack $stack
-        } else {
-            if {$idposn < 0} {
-                ::shellfilter::log::write shellfilter "ERROR shellfilter::stack::remove $pipename id '$remove_id' not found"
-                puts stderr "|WARNING>shellfilter::stack::remove $pipename id '$remove_id' not found"
-                return 0
-            }
-            set removed_item [lindex $stack $idposn] 
-
-            #include idposn in poplist
-            set poplist [lrange $stack $idposn end]
-            set stack [lreplace $stack $idposn end]
-            #pop all chans before adding anything back in!
-            foreach p $poplist {
-                chan pop $localchan
-            }
-
-            if {[llength [dict get $removed_item -aside]]} {
-                set restore [dict get $removed_item -aside]
-                set t [dict get $restore -transform]
-                set tsettings [dict get $restore -settings]
-                set obj [$t new $restore]
-                set h [chan push $localchan $obj]
-                dict set restore -handle $h
-                dict set restore -obj $obj
-                lappend stack $restore
-            }
-
-            #put popped back except for the first one, which we want to remove
-            foreach p [lrange $poplist 1 end] {
-                set t [dict get $p -transform]
-                set tsettings [dict get $p -settings]
-                set obj [$t new $p]
-                set h [chan push $localchan $obj]
-                dict set p -handle $h
-                dict set p -obj $obj
-                lappend stack $p
-            }
-            dict set pipelines $pipename stack $stack
-        }
-        #JMNJMN 2025 review!
-        #show_pipeline $pipename -note "after_remove $remove_id"
-        return 1
-    }
-
-    #pop a number of items of the top of the stack, add our transform record, and add back all (or the tail of poplist if pushstartindex > 0)
-    proc insert_transform {pipename stack transformrecord poplist {pushstartindex 0}} {
-        variable pipelines
-        set bottom_pop_posn [expr {[llength $stack] - [llength $poplist]}]
-        set poplist [lrange $stack $bottom_pop_posn end]
-        set stack [lreplace $stack $bottom_pop_posn end]
-
-        set localchan [dict get $pipelines $pipename device localchan]
-        foreach p [lreverse $poplist] {
-            chan pop $localchan
-        }
-        set transformname [dict get $transformrecord -transform]
-        set transformsettings [dict get $transformrecord -settings]
-        set obj [$transformname new $transformrecord]
-        set h [chan push $localchan $obj] 
-        dict set transformrecord -handle $h
-        dict set transformrecord -obj $obj
-        dict set transformrecord -note "insert_transform"
-        lappend stack $transformrecord
-        foreach p [lrange $poplist $pushstartindex end] {
-            set t [dict get $p -transform]
-            set tsettings [dict get $p -settings]
-            set obj [$t new $p]
-            set h [chan push $localchan $obj]
-            #retain previous -id  - code that added it may have kept reference and not expecting it to change
-            dict set p -handle $h
-            dict set p -obj $obj
-            dict set p -note "re-added"
-
-            lappend stack $p
-        }
-        return $stack
-    }
-
-    #fifo2 
-    proc new {pipename args} {
-        variable pipelines
-        if {($pipename in [dict keys $pipelines]) || ($pipename in [chan names])} {
-            error "shellfilter::stack::new error: pipename '$pipename' already exists"
-        }
-
-        set opts [dict merge {-settings {}} $args] 
-        set defaultsettings [dict create -raw 1 -buffering line -direction out]
-        set targetsettings [dict merge $defaultsettings [dict get $opts -settings]]
-
-        set direction [dict get $targetsettings -direction]
-
-        #pipename is the source/facility-name ?
-        if {$direction eq "out"} {
-            set pipeinfo [shellfilter::pipe::open_out $pipename $targetsettings]
-        } else {
-            puts stderr "|jn> pipe::open_in $pipename $targetsettings"
-            set pipeinfo [shellfilter::pipe::open_in $pipename $targetsettings]
-        }
-        #open_out/open_in will configure buffering based on targetsettings
-
-        set program_chan [dict get $pipeinfo localchan]
-        set worker_chan [dict get $pipeinfo remotechan]
-        set workertid [dict get $pipeinfo workertid]
-
-
-        set deviceinfo [dict create pipename $pipename localchan $program_chan remotechan $worker_chan workertid $workertid direction $direction]
-        dict set pipelines $pipename [list counter 0 device $deviceinfo stack [list]]
-
-        return $deviceinfo
-    }
-    #we 'add' rather than 'push' because transforms can float,sink and replace/sideline so they don't necessarily go to the top of the transform stack
-    proc add {pipename transformname args} {
-        variable pipelines
-        #chan names doesn't reflect available channels when transforms are in place
-        #e.g stdout may exist but show as something like file191f5b0dd80
-        if {($pipename ni [dict keys $pipelines])} {
-            if {[catch {eof $pipename} is_eof]} {
-                error "shellfilter::stack::add no existing chan or pipename matching '$pipename' in channels:[chan names] or pipelines:$pipelines use stdin/stderr/stdout or shellfilter::stack::new <pipename>"
-            }
-        }
-        set args [dict merge {-action "" -settings {}} $args]
-        set action [dict get $args -action]
-        set transformsettings [dict get $args -settings]
-        if {[string first "::" $transformname] < 0} {
-            set transformname ::shellfilter::chan::$transformname
-        }
-        if {![llength [info commands $transformname]]} {
-            error "shellfilter::stack::push unknown transform '$transformname'"
-        }
-
-
-        if {![dict exists $pipelines $pipename]} {
-            #pipename must be in chan names - existing device/chan
-            #record a -read and -write end even if the device is only being used as one or the other
-            set deviceinfo [dict create pipename $pipename localchan $pipename remotechan {}]
-            dict set pipelines $pipename [list counter 0 device $deviceinfo stack [list]]
-        } else {
-            set deviceinfo [dict get $pipelines $pipename device]
-        }
-
-        set id [get_next_counter $pipename] 
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $deviceinfo localchan]
-
-        #we redundantly store chan in each transform -  makes debugging clearer
-        # -encoding similarly could be stored only at the pipeline level (or even queried directly each filter-read/write),
-        # but here it may help detect unexpected changes during lifetime of the stack and avoids the chance of callers incorrectly using the transform handle?)
-        # jn
-        set transform_record [list -id $id -chan $pipename -encoding [chan configure $localchan -encoding] -transform $transformname -aside {} {*}$args]
-        switch -glob -- $action {
-            float - float-locked {
-                set obj [$transformname new $transform_record]
-                set h [chan push $localchan $obj]
-                dict set transform_record -handle $h
-                dict set transform_record -obj $obj
-                lappend stack $transform_record
-            }
-            "" - locked {
-                set floaters [_get_stack_floaters $stack]
-                if {![llength $floaters]} {
-                    set obj [$transformname new $transform_record]
-                    set h [chan push $localchan $obj]
-                    dict set transform_record -handle $h
-                    dict set transform_record -obj $obj
-                    lappend stack $transform_record
-                } else {
-                    set poplist $floaters
-                    set stack [insert_transform $pipename $stack $transform_record $poplist]
-                }
-            }
-            "sink*" {
-                set redirinfo [_get_stack_top_redirection $stack]
-                set idx_existing_redir [dict get $redirinfo index]
-                if {$idx_existing_redir == -1} {
-                    #no existing redirection transform on the stack
-                    #pop everything.. add this record as the first redirection on the stack
-                    set poplist $stack
-                    set stack [insert_transform $pipename $stack $transform_record $poplist]
-                } else {
-                    switch -glob -- $action {
-                        "sink-replace" {
-                            #include that index in the poplist
-                            set poplist [lrange $stack $idx_existing_redir end]
-                            #pop all from idx_existing_redir  to end, but put back 'lrange $poplist 1 end'
-                            set stack [insert_transform $pipename $stack $transform_record $poplist 1]
-                        }
-                        "sink-aside*" {
-                            set existing_redir_record [lindex $stack $idx_existing_redir]
-                            if {[string match "*locked*" [dict get $existing_redir_record -action]]} {
-                                set put_aside 0
-                                #we can't aside this one - sit above it instead.
-                                set poplist [lrange $stack $idx_existing_redir+1 end]
-                                set stack [lrange $stack 0 $idx_existing_redir]
-                            } else {
-                                set put_aside 1
-                                dict set transform_record -aside [lindex $stack $idx_existing_redir]
-                                set poplist [lrange $stack $idx_existing_redir end]
-                                set stack [lrange $stack 0 $idx_existing_redir-1]
-                            }
-                            foreach p $poplist {
-                                chan pop $localchan
-                            }
-                            set transformname [dict get $transform_record -transform]
-                            set transform_settings [dict get $transform_record -settings]
-                            set obj [$transformname new $transform_record]
-                            set h [chan push $localchan $obj] 
-                            dict set transform_record -handle $h
-                            dict set transform_record -obj $obj
-                            dict set transform_record -note "insert_transform-with-aside"
-                            lappend stack $transform_record
-                            #add back poplist *except* the one we transferred into -aside (if we were able)
-                            foreach p [lrange $poplist $put_aside end] {
-                                set t [dict get $p -transform]
-                                set tsettings [dict get $p -settings]
-                                set obj [$t new $p]
-                                set h [chan push $localchan $obj]
-                                #retain previous -id  - code that added it may have kept reference and not expecting it to change
-                                dict set p -handle $h
-                                dict set p -obj $obj
-                                dict set p -note "re-added-after-sink-aside"
-                                lappend stack $p
-                            }
-                        }
-                        default {
-                            #plain "sink"
-                            #we only sink to the topmost redirecting filter - which makes sense for an output channel
-                            #For stdin.. this is more problematic as we're more likely to want to intercept the bottom most redirection.
-                            #todo - review. Consider making default insert position for input channels to be at the source... and float/sink from there.
-                            # - we don't currently know from the stack api if adding input vs output channel - so this needs work to make intuitive.
-                            # consider splitting stack::add to stack::addinput stack::addoutput to split the different behaviour
-                            set poplist [lrange $stack $idx_existing_redir+1 end]
-                            set stack [insert_transform $pipename $stack $transform_record $poplist]
-                        }
-                    }
-                }
-            }
-            default {
-                error "shellfilter::stack::add unimplemented action '$action'"
-            }
-        }
-
-        dict set pipelines $pipename stack $stack
-        #puts stdout "=="
-        #puts stdout "==>stack: $stack"
-        #puts stdout "=="
-
-        #JMNJMN
-        #show_pipeline $pipename -note "after_add $transformname $args"
-        return $id
-    }
-    proc show_pipeline {pipename args} {
-        variable pipelines
-        set stack [dict get $pipelines $pipename stack]
-        set tag "SHELLFILTER::STACK"
-        #JMN - load from config
-        #::shellfilter::log::open $tag {-syslog 127.0.0.1:514}
-        if {[catch {
-            ::shellfilter::log::open $tag {-syslog ""}
-        } err]} {
-            #e.g safebase interp can't load required modules such as shellthread (or Thread)
-            puts stderr "shellfilter::show_pipeline cannot open log"
-            return
-        }
-        ::shellfilter::log::write $tag "transform stack for $pipename $args"
-        foreach tf $stack {
-            ::shellfilter::log::write $tag " $tf"
-        }
-
-    }
-}
-
-
-namespace eval shellfilter {
-    variable sources [list]
-    variable stacks [dict create]
-
-    proc ::shellfilter::redir_channel_to_log {chan args} {
-        variable sources
-        set default_logsettings [dict create \
-            -tag redirected_$chan -syslog "" -file ""\
-            ]
-        if {[dict exists $args -action]} {
-            set action [dict get $args -action]
-        } else {
-            # action "sink" is a somewhat reasonable default for an output redirection transform
-            # but it can make it harder to configure a plain ordered stack if the user is not expecting it, so we'll default to stack 
-            # also.. for stdin transform sink makes less sense.. 
-            #todo - default "stack" instead of empty string
-            set action ""
-        }
-        if {[dict exists $args -settings]} {
-            set logsettings [dict get $args -settings]
-        } else {
-            set logsettings {}
-        }
-
-        set logsettings [dict merge $default_logsettings $logsettings]
-        set tag [dict get $logsettings -tag]
-        if {$tag ni $sources} {
-            lappend sources $tag
-        }
-
-        set id [shellfilter::stack::add $chan logonly -action $action -settings $logsettings]
-        return $id
-    }
-
-    proc ::shellfilter::redir_output_to_log {tagprefix args} {
-        variable sources
-
-        set default_settings [list -tag ${tagprefix} -syslog "" -file ""]
-
-        set opts [dict create -action "" -settings {}]
-        set opts [dict merge $opts $args]
-        set optsettings [dict get $opts -settings]
-        set settings [dict merge $default_settings $optsettings]
-
-        set tag [dict get $settings -tag]
-        if {$tag ne $tagprefix} {
-            error "shellfilter::redir_output_to_log -tag value must match supplied tagprefix:'$tagprefix'. Omit -tag, or make it the same. It will automatically be suffixed with stderr and stdout. Use redir_channel_to_log if you want to separately configure each channel" 
-        }
-        lappend sources ${tagprefix}stdout ${tagprefix}stderr 
-
-        set stdoutsettings $settings
-        dict set stdoutsettings -tag ${tagprefix}stdout
-        set stderrsettings $settings
-        dict set stderrsettings -tag ${tagprefix}stderr
-
-        set idout [redir_channel_to_log stdout -action [dict get $opts -action] -settings $stdoutsettings]
-        set iderr [redir_channel_to_log stderr -action [dict get $opts -action] -settings $stderrsettings]
-
-        return [list $idout $iderr]
-    } 
-
-    #eg try: set v [list #a b c]
-    #vs set v {#a b c}
-    proc list_is_canonical l {
-        #courtesy DKF via wiki https://wiki.tcl-lang.org/page/BNF+for+Tcl
-        if {[catch {llength $l}]} {return 0}
-        string equal $l [list {*}$l]
-    }
-
-    #return a dict keyed on numerical list index showing info about each element 
-    # - particularly 
-    #  'wouldbrace' to indicate that the item would get braced by Tcl when added to another list
-    #  'head_tail_chars' to show current first and last character  (in case it's wrapped e.g in double or single quotes or an existing set of braces)
-    proc list_element_info {inputlist} {
-        set i 0
-        set info [dict create]
-        set testlist [list]
-        foreach original_item $inputlist {
-            #---
-            # avoid sharing internal rep with original items in the list (avoids shimmering of rep in original list for certain items such as paths)
-            unset -nocomplain item
-            append item $original_item {}
-            #---
-
-            set iteminfo [dict create]
-            set itemlen [string length $item]
-            lappend testlist $item
-            set tcl_len [string length $testlist]
-            set diff [expr {$tcl_len - $itemlen}]
-            if {$diff == 0} {
-                dict set iteminfo wouldbrace 0
-                dict set iteminfo wouldescape 0
-            } else {
-                #test for escaping vs bracing!
-                set testlistchars [split $testlist ""]
-                if {([lindex $testlistchars 0] eq "\{") && ([lindex $testlistchars end] eq "\}")} {
-                    dict set iteminfo wouldbrace 1
-                    dict set iteminfo wouldescape 0
-                } else {
-                    dict set iteminfo wouldbrace 0
-                    dict set iteminfo wouldescape 1
-                }
-            }
-            set testlist [list]
-            set charlist [split $item ""]
-            set char_a [lindex $charlist 0]
-            set char_b [lindex $charlist 1]
-            set char_ab ${char_a}${char_b}
-            set char_y [lindex $charlist end-1]
-            set char_z [lindex $charlist end]
-            set char_yz ${char_y}${char_z}
-
-            if { ("{" in $charlist) || ("}" in $charlist) } {
-                dict set iteminfo has_braces 1
-                set innerchars [lrange $charlist 1 end-1]
-                if {("{" in $innerchars) || ("}" in $innerchars)} {
-                    dict set iteminfo has_inner_braces 1
-                } else {
-                    dict set iteminfo has_inner_braces 0
-                }
-            } else {
-                dict set iteminfo has_braces 0
-                dict set iteminfo has_inner_braces 0
-            }
-
-            #todo - brace/char counting to determine if actually 'wrapped'
-            #e.g we could have list element {((abc)} - which appears wrapped if only looking at first and last chars.
-            #also {(x) (y)} as a list member.. how to treat?
-            if {$itemlen <= 1} {
-                dict set iteminfo apparentwrap "not"
-            } else {
-                #todo - switch on $char_a$char_z
-                if {($char_a eq {"}) && ($char_z eq {"})} {
-                    dict set iteminfo apparentwrap "doublequotes"
-                } elseif {($char_a eq "'") && ($char_z eq "'")} {
-                    dict set iteminfo apparentwrap "singlequotes"
-                } elseif {($char_a eq "(") && ($char_z eq ")")} {
-                    dict set iteminfo apparentwrap "brackets"
-                } elseif {($char_a eq "\{") && ($char_z eq "\}")} {
-                    dict set iteminfo apparentwrap "braces"
-                } elseif {($char_a eq "^") && ($char_z eq "^")} {
-                    dict set iteminfo apparentwrap "carets"
-                } elseif {($char_a eq "\[") && ($char_z eq "\]")} {
-                    dict set iteminfo apparentwrap "squarebrackets"
-                } elseif {($char_a eq "`") && ($char_z eq "`")} {
-                    dict set iteminfo apparentwrap "backquotes"
-                } elseif {($char_a eq "\n") && ($char_z eq "\n")} {
-                    dict set iteminfo apparentwrap "lf-newline"
-                } elseif {($char_ab eq "\r\n") && ($char_yz eq "\r\n")} {
-                    dict set iteminfo apparentwrap "crlf-newline"
-                } else {
-                    dict set iteminfo apparentwrap "not-determined"
-                }
-
-            }
-            dict set iteminfo wrapbalance "unknown"  ;#a hint to caller that apparentwrap is only a guide. todo - possibly make wrapbalance indicate 0 for unbalanced.. and positive numbers for outer-count of wrappings.
-            #e.g {((x)} == 0  {((x))} == 1 {(x) (y (z))} == 2
-            dict set iteminfo head_tail_chars [list $char_a $char_z]
-            set namemap [list \
-                 \r cr\
-                 \n lf\
-                 {"} doublequote\
-                 {'} singlequote\
-                 "`" backquote\
-                 "^" caret\
-                 \t tab\
-                 " " sp\
-                 "\[" lsquare\
-                 "\]" rsquare\
-                 "(" lbracket\
-                 ")" rbracket\
-                 "\{" lbrace\
-                 "\}" rbrace\
-                 \\ backslash\
-                 / forwardslash\
-                 ]
-            if {[string length $char_a]} {
-                set char_a_name [string map $namemap $char_a]
-            } else {
-                set char_a_name "emptystring"
-            }
-            if {[string length $char_z]} {
-                set char_z_name [string map $namemap $char_z]
-            } else {
-                set char_z_name "emptystring"
-            }
-
-            dict set iteminfo head_tail_names [list $char_a_name $char_z_name]
-            dict set iteminfo len $itemlen
-            dict set iteminfo difflen $diff ;#2 for braces, 1 for quoting?, or 0.
-            dict set info $i $iteminfo
-            incr i
-        }
-        return $info
-    }
-
-
-    #parse bracketed expression (e.g produced by vim "shellxquote=(" ) into a tcl (nested) list
-    #e.g {(^c:/my spacey/path^ >^somewhere^)} 
-    #e.g {(blah (etc))}"  
-    #Result is always a list - even if only one toplevel set of brackets - so it may need [lindex $result 0] if input is the usual case of {( ...)}  
-    # - because it also supports the perhaps less likely case of: {( ...) unbraced (...)} etc
-    # Note that 
-    #maintenance warning - duplication in branches for bracketed vs unbracketed!
-    proc parse_cmd_brackets {str} {
-        #wordwrappers currently best suited to non-bracket entities - no bracket matching within - anything goes until end-token reached.
-        # - but.. they only take effect where a word can begin. so a[x y]  may be split at the space unless it's within some other wraper e.g " a[x y]" will not break at the space
-        # todo - consider extending the in-word handling of word_bdepth which is currently only applied to ()  i.e aaa(x y) is supported but aaa[x y] is not as the space breaks the word up.
-        set wordwrappers [list \
-            "\"" [list "\"" "\"" "\""]\
-            {^} [list "\"" "\"" "^"]\
-            "'" [list "'" "'" "'"]\
-            "\{" [list "\{" "\}" "\}"]\
-            {[} [list {[} {]} {]}]\
-            ] ;#dict mapping start_character to {replacehead replacetail expectedtail}
-        set shell_specials [list "|" "|&" "<" "<@" "<<" ">" "2>" ">&" ">>" "2>>" ">>&" ">@" "2>@" "2>@1" ">&@" "&" "&&" ] ;#words/chars that may precede an opening bracket but don't merge with the bracket to form a word.    
-        #puts "pb:$str"
-        set in_bracket 0
-        set in_word 0
-        set word ""
-        set result {}
-        set word_bdepth 0 
-        set word_bstack [list]
-        set wordwrap "" ;#only one active at a time
-        set bracketed_elements [dict create]
-        foreach char [split $str ""] {
-            #puts "c:$char bracketed:$bracketed_elements"
-            if {$in_bracket > 0} {
-                if {$in_word} {
-                    if {[string length $wordwrap]} {
-                        #anything goes until end-char
-                        #todo - lookahead and only treat as closing if before a space or ")" ?
-                        lassign [dict get $wordwrappers $wordwrap] _open closing endmark
-                        if {$char eq $endmark} {
-                            set wordwrap ""
-                            append word $closing
-                            dict lappend bracketed_elements $in_bracket $word
-                            set word ""
-                            set in_word 0
-                        } else {
-                            append word $char
-                        }
-                    } else {
-                        if {$word_bdepth == 0} {
-                            #can potentially close off a word - or start a new one if word-so-far is a shell-special
-                            if {$word in $shell_specials} {
-                                if {$char eq ")"} {
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set  subresult [dict get $bracketed_elements $in_bracket]
-                                    dict set bracketed_elements $in_bracket [list]
-                                    incr in_bracket -1
-                                    if {$in_bracket == 0} {
-                                        lappend result $subresult
-                                    } else {
-                                        dict lappend bracketed_elements $in_bracket $subresult
-                                    }
-                                    set word ""
-                                    set in_word 0
-                                } elseif {[regexp {[\s]} $char]} {
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {    
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set word ""
-                                    set in_word 0
-                                    incr in_bracket
-                                } else {
-                                    #at end of shell-specials is another point to look for word started by a wordwrapper char
-                                    #- expect common case of things like >^/my/path^
-                                    if {$char in [dict keys $wordwrappers]} {
-                                        dict lappend bracketed_elements $in_bracket $word 
-                                        set word ""
-                                        set in_word 1 ;#just for explicitness.. we're straight into the next word.
-                                        set wordwrap $char
-                                        set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                                    } else {
-                                        #something unusual.. keep going with word!
-                                        append word $char
-                                    }
-                                }
-                            } else {
-                            
-                                if {$char eq ")"} {
-                                    dict lappend bracketed_elements $in_bracket $word
-                                    set  subresult [dict get $bracketed_elements $in_bracket]
-                                    dict set bracketed_elements $in_bracket [list]
-                                    incr in_bracket -1
-                                    if {$in_bracket == 0} {
-                                        lappend result $subresult
-                                    } else {
-                                        dict lappend bracketed_elements $in_bracket $subresult
-                                    }
-                                    set word ""
-                                    set in_word 0
-                                } elseif {[regexp {[\s]} $char]} {
-                                    dict lappend bracketed_elements $in_bracket $word
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {
-                                    #ordinary word up-against and opening bracket - brackets are part of word.
-                                    incr word_bdepth 
-                                    append word "("
-                                } else {
-                                    append word $char
-                                }
-                            }
-                        } else {
-                            #currently only () are used for word_bdepth - todo  add all or some wordwrappers chars so that the word_bstack can have multiple active.
-                            switch -- $char {
-                                "(" {
-                                    incr word_bdepth
-                                    lappend word_bstack $char
-                                    append word $char 
-                                }
-                                ")" {
-                                    incr word_bdepth -1
-                                    set word_bstack [lrange $word_bstack 0 end-1]
-                                    append word $char 
-                                }
-                                default {
-                                    #spaces and chars added to word as it's still in a bracketed section
-                                    append word $char
-                                }
-                            }
-                        }
-                    }
-                } else {
-                    
-                    if {$char eq "("} {
-                        incr in_bracket
-                        
-                    } elseif {$char eq ")"} {
-                        set subresult [dict get $bracketed_elements $in_bracket]
-                        dict set bracketed_elements $in_bracket [list]
-                        incr in_bracket -1
-                        if {$in_bracket == 0} {
-                            lappend result $subresult
-                        } else {
-                            dict lappend bracketed_elements $in_bracket $subresult
-                        }
-                    } elseif {[regexp {[\s]} $char]} {
-                        #
-                    } else {
-                        #first char of word - look for word-wrappers
-                        if {$char in [dict keys $wordwrappers]} {
-                            set wordwrap $char
-                            set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                        } else {
-                            set word $char
-                        }
-                        set in_word 1
-                    }
-                }
-            } else {
-                if {$in_word} {
-                    if {[string length $wordwrap]} {
-                        lassign [dict get $wordwrappers $wordwrap] _open closing endmark
-                        if {$char eq $endmark} {
-                            set wordwrap ""
-                            append word $closing
-                            lappend result $word
-                            set word ""
-                            set in_word 0
-                        } else {
-                            append word $char
-                        }
-                    } else {
-                        
-                        if {$word_bdepth == 0} {
-                            if {$word in $shell_specials} {
-                                if {[regexp {[\s]} $char]} {
-                                    lappend result $word 
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {    
-                                    lappend result $word 
-                                    set word ""
-                                    set in_word 0
-                                    incr in_bracket
-                                } else {
-                                    #at end of shell-specials is another point to look for word started by a wordwrapper char
-                                    #- expect common case of things like >^/my/path^
-                                    if {$char in [dict keys $wordwrappers]} {
-                                        lappend result $word 
-                                        set word ""
-                                        set in_word 1 ;#just for explicitness.. we're straight into the next word.
-                                        set wordwrap $char
-                                        set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                                    } else {
-                                        #something unusual.. keep going with word!
-                                        append word $char
-                                    }
-                                }
-                        
-                            } else {
-                                if {[regexp {[\s)]} $char]} {
-                                    lappend result $word
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {
-                                    incr word_bdepth
-                                    append word $char
-                                } else {
-                                append word $char
-                                }
-                            }
-                        } else {
-                            switch -- $char {
-                                "(" {
-                                    incr word_bdepth
-                                    append word $char
-                                }
-                                ")" {
-                                    incr word_bdepth -1
-                                    append word $char
-                                }
-                                default {
-                                    append word $char
-                                }
-                            }
-                        }
-                    }
-                } else {
-                    if {[regexp {[\s]} $char]} {
-                        #insig whitespace(?)
-                    } elseif {$char eq "("} {
-                        incr in_bracket
-                        dict set bracketed_elements $in_bracket [list]
-                    } elseif {$char eq ")"} {
-                        error "unbalanced bracket - unable to proceed result so far: $result bracketed_elements:$bracketed_elements"
-                    } else {
-                        #first char of word - look for word-wrappers
-                        if {$char in [dict keys $wordwrappers]} {
-                            set wordwrap $char
-                            set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                        } else {
-                            set word $char
-                        }
-                        set in_word 1
-                    }
-                }
-            }
-            #puts "----$bracketed_elements"
-        }
-        if {$in_bracket > 0} {
-            error "shellfilter::parse_cmd_brackets missing close bracket. input was '$str'"
-        }
-        if {[dict exists $bracketed_elements 0]} {
-            #lappend result [lindex [dict get $bracketed_elements 0] 0]
-            lappend result [dict get $bracketed_elements 0]
-        }
-        if {$in_word} {
-            lappend result $word
-        }
-        return $result
-    }
-
-    #only double quote if argument not quoted with single or double quotes
-    proc dquote_if_not_quoted {a} {
-        set wrapchars [string cat [string range $a 0 0] [string range $a end end]]
-        switch -- $wrapchars {
-            {""} - {''} {
-                return $a
-            }
-            default {
-                set newinner [string map [list {"} "\\\""] $a]
-                return "\"$newinner\""
-            }
-        }
-    }
-
-    #proc dquote_if_not_bracketed/braced? 
-
-    #wrap in double quotes if not double-quoted
-    proc dquote_if_not_dquoted {a} {
-        set wrapchars [string cat [string range $a 0 0] [string range $a end end]]
-        switch -- $wrapchars {
-            {""} {
-                return $a
-            }
-            default {
-                #escape any inner quotes..
-                set newinner [string map [list {"} "\\\""] $a]
-                return "\"$newinner\""
-            }
-        }
-    }
-    proc dquote {a} {
-        #escape any inner quotes..
-        set newinner [string map [list {"} "\\\""] $a]
-        return "\"$newinner\""
-    }
-    proc get_scriptrun_from_cmdlist_dquote_if_not {cmdlist {shellcmdflag ""}} {
-        set scr [auto_execok "script"]
-        if {[string length $scr]} {
-            #set scriptrun "( $c1 [lrange $cmdlist 1 end] )"
-            set arg1 [lindex $cmdlist 0]
-            if {[string first " " $arg1]>0} {
-                set c1 [dquote_if_not_quoted $arg1]
-                #set c1 "\"$arg1\""
-            } else {
-                set c1 $arg1
-            }
-
-            if {[string length $shellcmdflag]} {
-                set scriptrun "$shellcmdflag \$($c1 "
-            } else {
-                set scriptrun "\$($c1 "
-            }
-            #set scriptrun "$c1 "
-            foreach a [lrange $cmdlist 1 end] {
-                #set a [string map [list "/" "//"] $a]
-                #set a [string map [list "\"" "\\\""] $a]
-                if {[string first " " $a] > 0} {
-                    append scriptrun [dquote_if_not_quoted $a]
-                } else {
-                    append scriptrun $a
-                }
-                append scriptrun " "
-            }
-            set scriptrun [string trim $scriptrun]
-            append scriptrun ")"
-            #return [list $scr -q -e -c $scriptrun /dev/null]
-            return [list $scr -e -c $scriptrun /dev/null]
-        } else {
-            return $cmdlist
-        }
-    }
-
-    proc ::shellfilter::trun {commandlist args} {
-        #jmn
-    }
-
-
-    # run a command (or tcl script) with tees applied to stdout/stderr/stdin (or whatever channels are being used) 
-    # By the point run is called - any transforms should already be in place on the channels if they're needed.
-    # The tees will be inline with none,some or all of those transforms depending on how the stack was configured
-    #  (upstream,downstream configured via -float,-sink etc)
-    proc ::shellfilter::run {commandlist args} {
-        #must be a list. If it was a shell commandline string. convert it elsewhere first.
-
-        variable sources
-        set runtag "shellfilter-run"
-        #set tid [::shellfilter::log::open $runtag [list -syslog 127.0.0.1:514]]
-        set tid [::shellfilter::log::open $runtag [list -syslog ""]]
-        if {[catch {llength $commandlist} listlen]} {
-            set listlen "<not-a-tcl-list>"
-        }
-        ::shellfilter::log::write $runtag " commandlist:'$commandlist' listlen:$listlen strlen:[string length $commandlist]"
-
-        #flush stdout
-        #flush stderr 
-
-        #adding filters with sink-aside will temporarily disable the existing redirection
-        #All stderr/stdout from the shellcommand will now tee to the underlying stderr/stdout as well as the configured syslog
-
-        set defaults [dict create \
-            -teehandle command \
-            -outchan stdout \
-            -errchan stderr \
-            -inchan stdin \
-            -tclscript 0 \
-            ]
-        set opts                    [dict merge $defaults $args]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set outchan                 [dict get $opts -outchan]
-        set errchan                 [dict get $opts -errchan]
-        set inchan                  [dict get $opts -inchan]
-        set teehandle               [dict get $opts -teehandle]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set is_script               [dict get $opts -tclscript]
-        dict unset opts -tclscript ;#don't pass it any further
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set teehandle_out ${teehandle}out   ;#default commandout
-        set teehandle_err ${teehandle}err
-        set teehandle_in ${teehandle}in
-
-
-        #puts stdout "shellfilter initialising tee_to_pipe transforms for in/out/err"
-
-        # sources should be added when stack::new called instead(?)
-        foreach source [list $teehandle_out $teehandle_err] {
-            if {$source ni $sources} {
-                lappend sources $source
-            }
-        }
-        set outdeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_out device]
-        set outpipechan [dict get $outdeviceinfo localchan]
-        set errdeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_err device]
-        set errpipechan [dict get $errdeviceinfo localchan]
-
-        #set indeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_in device]
-        #set inpipechan [dict get $indeviceinfo localchan]
-
-        #NOTE:These transforms are not necessarily at the top of each stack! 
-        #The float/sink mechanism, along with whether existing transforms are diversionary decides where they sit.
-        set id_out [shellfilter::stack::add $outchan tee_to_pipe -action sink-aside -settings [list -tag $teehandle_out -pipechan $outpipechan]]
-        set id_err [shellfilter::stack::add $errchan tee_to_pipe -action sink-aside -settings [list -tag $teehandle_err -pipechan $errpipechan]]
-
-        # need to use os level channel handle for stdin - try named pipes (or even sockets) instead of fifo2 for this
-        # If non os-level channel - the command can't be run with the redirection
-        # stderr/stdout can be run with non-os handles in the call - 
-        # but then it does introduce issues with terminal-detection and behaviour for stdout at least
-        #
-        # input is also a tee - we never want to change the source at this point - just log/process a side-channel of it.
-        #
-        #set id_in  [shellfilter::stack::add $inchan  tee_to_pipe -action sink-aside -settings [list -tag commandin -pipechan $inpipechan]]
-
-
-        #set id_out [shellfilter::stack::add stdout tee_to_log -action sink-aside -settings [list -tag shellstdout -syslog 127.0.0.1:514 -file ""]]
-        #set id_err [shellfilter::stack::add stderr tee_to_log -action sink-aside -settings [list -tag shellstderr -syslog 127.0.0.1:514 -file "stderr.txt"]]
-
-        #we need to catch errors - and ensure stack::remove calls occur.
-        #An error can be raised if the command couldn't even launch, as opposed to a non-zero exitcode and stderr output from the command itself.
-        #
-        if {!$is_script} { 
-            set experiment 0
-            if {$experiment} {
-                try {
-                    set results [exec {*}$commandlist]
-                    set exitinfo [list exitcode 0]
-                } trap CHILDSTATUS {results options} {
-                    set exitcode [lindex [dict get $options -errorcode] 2]
-                    set exitinfo [list exitcode $exitcode]
-                }
-            } else {
-                if {[catch { 
-                    #run process with stdout/stderr/stdin or with configured channels
-                    #set exitinfo [shellcommand_stdout_stderr $commandlist $outchan $errchan $inpipechan {*}$opts]
-                    set exitinfo [shellcommand_stdout_stderr $commandlist $outchan $errchan stdin {*}$opts]
-                    #puts stderr "---->exitinfo $exitinfo"
-
-                    #subprocess result should usually have an "exitcode" key
-                    #but for background execution we will get a "pids" key of process ids.
-                } errMsg]} {
-                    set exitinfo [list error "$errMsg" source shellcommand_stdout_stderr]
-                }
-            }
-        } else {
-            if {[catch {
-                #script result
-                set exitinfo [list result [uplevel #0 [list eval $commandlist]]]
-            } errMsg]} {
-                set exitinfo [list error "$errMsg" errorCode $::errorCode errorInfo "$::errorInfo"]
-            }
-        }
-
-
-        #the previous redirections on the underlying inchan/outchan/errchan items will be restored from the -aside setting during removal
-        #Remove execution-time Tees from stack
-        shellfilter::stack::remove stdout $id_out
-        shellfilter::stack::remove stderr $id_err
-        #shellfilter::stack::remove stderr $id_in
-
-
-        #chan configure stderr -buffering line
-        #flush stdout
-
-
-        ::shellfilter::log::write $runtag " return '$exitinfo'"
-        ::shellfilter::log::close $runtag
-        return $exitinfo
-    }
-    proc ::shellfilter::logtidyup { {tags {}} } {
-        variable sources
-        set worker_errorlist [list]
-        set tidied_sources [list]
-        set tidytag "logtidy"
-
-
-        # opening a thread or writing to a log/syslog close to possible process exit is probably not a great idea.
-        # we should ensure the thread already exists early on if we really need logging here.
-        # 
-        #set tid [::shellfilter::log::open $tidytag {-syslog 127.0.0.1:514}]
-        #::shellfilter::log::write $tidytag " logtidyuptags '$tags'"
-
-        foreach s $sources {
-            if {$s eq $tidytag} {
-                continue
-            }
-            #puts "logtidyup source $s"
-            set close 1
-            if {[llength $tags]} {
-                if {$s ni $tags} {
-                    set close 0
-                }
-            }
-            if {$close} {
-                lappend tidied_sources $s
-                shellfilter::log::close $s
-                lappend worker_errorlist {*}[shellthread::manager::get_and_clear_errors $s]
-            }
-        }
-        set remaining_sources [list]
-        foreach s $sources {
-            if {$s ni $tidied_sources} {
-                lappend remaining_sources $s
-            }
-        } 
-
-        #set sources [concat $remaining_sources $tidytag]
-        set sources $remaining_sources
-
-        #shellfilter::stack::unwind stdout
-        #shellfilter::stack::unwind stderr
-        return [list tidied $tidied_sources errors $worker_errorlist]
-    }
-
-    #package require tcl::chan::null
-    # e.g set errchan [tcl::chan::null]
-    # e.g chan push stdout [shellfilter::chan::var new ::some_var]
-    proc  ::shellfilter::shellcommand_stdout_stderr {commandlist outchan errchan inchan args} {
-        set valid_flags [list \
-            -timeout \
-            -outprefix \
-            -errprefix \
-            -debug \
-            -copytempfile \
-            -outbuffering \
-            -errbuffering \
-            -inbuffering \
-            -readprocesstranslation \
-            -outtranslation \
-            -stdinhandler \
-            -outchan \
-            -errchan \
-            -inchan \
-            -teehandle\
-            ]
-
-        set runtag shellfilter-run2
-        #JMN - load from config
-        #set tid [::shellfilter::log::open $runtag [list -syslog "127.0.0.1:514"]]
-        set tid [::shellfilter::log::open $runtag [list -syslog ""]]
-
-        if {[llength $args] % 2} {
-            error "Trailing arguments after any positional arguments must be in pairs of the form -argname argvalue. Valid flags are:'$valid_flags'"
-        }
-        set invalid_flags [list]
-        foreach {k -} $args {
-            switch -- $k {
-                -timeout -
-                -outprefix -
-                -errprefix -
-                -debug -
-                -copytempfile -
-                -outbuffering -
-                -errbuffering -
-                -inbuffering -
-                -readprocesstranslation -
-                -outtranslation -
-                -stdinhandler -
-                -outchan -
-                -errchan -
-                -inchan -
-                -teehandle {
-                }
-                default {
-                    lappend invalid_flags $k
-                }
-            }
-        }
-        if {[llength $invalid_flags]} {
-            error "Unknown option(s)'$invalid_flags': must be one of '$valid_flags'"
-        }
-        #line buffering generally best for output channels.. keeps relative output order of stdout/stdin closer to source order
-        #there may be data where line buffering is inappropriate, so it's configurable per std channel 
-        #reading inputs with line buffering can result in extraneous newlines as we can't detect trailing data with no newline before eof.
-        set defaults [dict create \
-            -outchan stdout \
-            -errchan stderr \
-            -inchan stdin \
-            -outbuffering none \
-            -errbuffering none \
-            -readprocesstranslation auto \
-            -outtranslation lf \
-            -inbuffering none \
-            -timeout 900000\
-            -outprefix ""\
-            -errprefix ""\
-            -debug 0\
-            -copytempfile 0\
-            -stdinhandler ""\
-            ]
-
-
-
-        set args [dict merge $defaults $args]
-        set outbuffering   [dict get $args -outbuffering]
-        set errbuffering   [dict get $args -errbuffering]
-        set inbuffering               [dict get $args -inbuffering]
-        set readprocesstranslation    [dict get $args -readprocesstranslation]
-        set outtranslation            [dict get $args -outtranslation]
-        set timeout                   [dict get $args -timeout]
-        set outprefix   [dict get $args -outprefix]
-        set errprefix   [dict get $args -errprefix]
-        set debug       [dict get $args -debug]
-        set copytempfile [dict get $args -copytempfile]
-        set stdinhandler [dict get $args -stdinhandler]
-
-        set debugname "shellfilter-debug"
-
-        if {$debug} {
-            set tid [::shellfilter::log::open $debugname [list -syslog "127.0.0.1:514"]]
-            ::shellfilter::log::write $debugname " commandlist '$commandlist'"
-        }
-        #'clock micros' good enough id for shellcommand calls unless one day they can somehow be called concurrently or sequentially within a microsecond and within the same interp.
-        # a simple counter would probably work too
-        #consider other options if an alternative to the single vwait in this function is used.
-        set call_id [tcl::clock::microseconds] ;
-        set ::shellfilter::shellcommandvars($call_id,exitcode) ""
-        set ::shellfilter::shellcommandvars($call_id,timeoutid) ""
-        set waitvar ::shellfilter::shellcommandvars($call_id,waitvar)
-        if {$debug} {
-            ::shellfilter::log::write $debugname " waitvar '$waitvar'"
-        }
-        lassign [chan pipe] rderr wrerr
-        chan configure $wrerr -blocking 0
-
-        set custom_stderr ""
-        set lastitem [lindex $commandlist end]
-        #todo - ensure we can handle 2> file  (space after >)
-
-        #review - reconsider the handling of redirections such that tcl-style are handled totally separately to other shell syntaxes!
-        #
-        #note 2>@1 must ocur as last word for tcl - but 2@stdout can occur elsewhere
-        #(2>@stdout echoes to main stdout - not into pipeline)
-        #To properly do pipelines it looks like we will have to split on | and call this proc multiple times and wire it up accordingly (presumably in separate threads)
-
-        switch -- [string trim $lastitem] {
-            {&} {
-                set name [lindex $commandlist 0]
-                #background execution - stdout and stderr from child still comes here - but process is backgrounded 
-                #FIX! - this is broken for paths with backslashes for example
-                #set pidlist [exec {*}[concat $name [lrange $commandlist 1 end]]]
-                set pidlist [exec {*}$commandlist]
-                return [list pids $pidlist]
-            }
-            {2>&1} - {2>@1} {
-                set custom_stderr {2>@1}  ;#use the tcl style
-                set commandlist [lrange $commandlist 0 end-1]
-            }
-            default {
-                # 2> filename 
-                # 2>> filename
-                # 2>@ openfileid
-                set redir2test [string range $lastitem 0 1]
-                if {$redir2test eq "2>"} {
-                    set custom_stderr $lastitem
-                    set commandlist [lrange $commandlist 0 end-1]
-                }
-            }
-        }
-        set lastitem [lindex $commandlist end]
-
-        set teefile "" ;#empty string, write, append
-        #an ugly hack.. because redirections seem to arrive wrapped  - review!
-        #There be dragons here..
-        #Be very careful with list manipulation of the commandlist string.. backslashes cause havoc. commandlist must always be a well-formed list. generally avoid string manipulations on entire list or accidentally breaking a list element into parts if it shouldn't be..
-        #The problem here - is that we can't always know what was intended on the commandline regarding quoting
-
-        ::shellfilter::log::write $runtag "checking for redirections in $commandlist"
-        #sometimes we see a redirection without a following space  e.g >C:/somewhere 
-        #normalize
-        switch -regexp -- $lastitem\
-            {^>[/[:alpha:]]+} {
-                set lastitem "> [string range $lastitem 1 end]"
-            }\
-            {^>>[/[:alpha:]]+} {
-                set lastitem ">> [string range $lastitem 2 end]"
-            }
-        
-
-        #for a redirection, we assume either a 2-element list at tail of form {> {some path maybe with spaces}}
-        #or that the tail redirection is not wrapped..  x y z > {some path maybe with spaces}
-        #we can't use list methods such as llenth on a member of commandlist
-        set wordlike_parts [regexp -inline -all {\S+} $lastitem]
-
-        if {([llength $wordlike_parts] >= 2) && ([lindex $wordlike_parts 0] in [list ">>" ">"])} {
-            #wrapped redirection - but maybe not 'well' wrapped (unquoted filename)
-            set lastitem [string trim $lastitem]  ;#we often see { > something}
-
-            #don't use lassign or lrange on the element itself without checking first
-            #we can treat the commandlist as a whole as a well formed list but not neccessarily each element within.
-            #lassign $lastitem redir redirtarget 
-            #set commandlist [lrange $commandlist 0 end-1]
-            #
-            set itemchars [split $lastitem ""]
-            set firstchar [lindex $itemchars 0]
-            set lastchar [lindex $itemchars end]
-
-            #NAIVE test for double quoted only!
-            #consider for example {"a" x="b"} 
-            #testing first and last is not decisive
-            #We need to decide what level of drilling down is even appropriate here.. 
-            #if something was double wrapped - it was perhaps deliberate so we don't interpret it as something(?)
-            set head_tail_chars [list $firstchar $lastchar]
-            set doublequoted [expr {[llength [lsearch -all $head_tail_chars "\""]] == 2}]
-            if {[string equal "\{" $firstchar] && [string equal "\}" $lastchar]} {
-                set curlyquoted 1
-            } else {
-                set curlyquoted 0
-            }
-
-            if {$curlyquoted} {
-                #these are not the tcl protection brackets but ones supplied in the argument
-                #it's still not valid to use list operations on a member of the commandlist
-                set inner [string range $lastitem 1 end-1]
-                #todo - fix! we still must assume there could be list-breaking data!
-                set innerwords [regexp -inline -all {\S+} $inner] ;#better than [split $inner] because we don't get extra empty elements for each whitespace char
-                set redir [lindex $innerwords 0] ;#a *potential* redir - to be tested below
-                set redirtarget [lrange $innerwords 1 end] ;#all the rest
-            } elseif {$doublequoted} {
-                ::shellfilter::log::write $debugname "doublequoting at tail of command '$commandlist'" 
-                set inner [string range $lastitem 1 end-1]
-                set innerwords [regexp -inline -all {\S+} $inner]
-                set redir [lindex $innerwords 0]
-                set redirtarget [lrange $innerwords 1 end] 
-            } else {
-                set itemwords [regexp -inline -all {\S+} $lastitem]
-                # e.g > c:\test   becomes > {c:\test}
-                # but > c/mnt/c/test/temp.txt stays as > /mnt/c/test/temp.txt
-                set redir [lindex $itemwords 0]
-                set redirtarget [lrange $itemwords 1 end]
-            }
-            set commandlist [lrange $commandlist 0 end-1]
-        
-        } elseif {[lindex $commandlist end-1] in [list ">>" ">"]} {
-            #unwrapped redirection
-            #we should be able to use list operations like lindex and lrange here as the command itself is hopefully still a well formed list
-            set redir [lindex $commandlist end-1]
-            set redirtarget [lindex $commandlist end]
-            set commandlist [lrange $commandlist 0 end-2]
-        } else {
-            #no redirection 
-            set redir ""
-            set redirtarget ""
-            #no change to command list
-        }
-
-
-        switch -- $redir {
-            ">>" - ">" {
-                set redirtarget [string trim $redirtarget "\""]
-                ::shellfilter::log::write $runtag " have redirection '$redir' to '$redirtarget'"
-
-                set winfile $redirtarget ;#default assumption
-                switch -glob -- $redirtarget {
-                    "/c/*" {
-                        set winfile "c:/[string range $redirtarget 3 end]"
-                    }
-                    "/mnt/c/*" {
-                        set winfile "c:/[string range $redirtarget 7 end]"
-                    }
-                }
-
-                if {[file exists [file dirname $winfile]]} {
-                    #containing folder for target exists
-                    if {$redir eq ">"} {
-                    set teefile "write"
-                    } else {
-                    set teefile "append"
-                    }
-                    ::shellfilter::log::write $runtag "Directory exists '[file dirname $winfile]' operation:$teefile"
-                } else {
-                    #we should be writing to a file.. but can't
-                    ::shellfilter::log::write $runtag "cannot verify directory exists '[file dirname $winfile]'"
-                }
-            }
-            default {
-                ::shellfilter::log::write $runtag "No redir found!!" 
-            }
-        }
-
-      #often first element of command list is wrapped and cannot be run directly
-      #e.g {{ls -l} {> {temp.tmp}}}
-      #we will assume that if there is a single element which is a pathname containing a space - it is doubly wrapped.
-      # this may not be true - and the command may fail if it's just {c:\program files\etc}  but it is the less common case and we currently have no way to detect.
-      #unwrap first element.. will not affect if not wrapped anyway (subject to comment above re spaces)
-      set commandlist [concat [lindex $commandlist 0] [lrange $commandlist 1 end]]
-
-      #todo?
-      #child process environment.
-      # - to pass a different environment to the child - we would need to save the env array, modify as required, and then restore the env array.
-
-      #to restore buffering states after run
-      set remember_in_out_err_buffering [list \
-         [chan configure $inchan -buffering] \
-         [chan configure $outchan -buffering] \
-         [chan configure $errchan -buffering] \
-         ]
-
-      set remember_in_out_err_translation [list \
-          [chan configure $inchan -translation] \
-          [chan configure $outchan -translation] \
-          [chan configure $errchan -translation] \
-          ]
-
-
-
-
-      #chan configure $inchan -buffering none -blocking 1 ;#test
-      chan configure $inchan -buffering  $inbuffering -blocking 0  ;#we are setting up a readable handler for this - so non-blocking ok
-
-
-      chan configure $errchan -buffering $errbuffering
-      #chan configure $outchan -blocking 0
-      chan configure $outchan -buffering $outbuffering ;#don't configure non-blocking. weird duplicate of *second* line occurs if you do.
-      #
-
-      #--------------------------------------------
-      #Tested on windows. Works to stop <cr><cr><lf> in output when buffering is none, reading from channel with -translation auto
-      #cmd, pwsh, tcl 
-      #chan configure $outchan -translation lf
-      #chan configure $errchan -translation lf
-      #--------------------------------------------
-      chan configure $outchan -translation $outtranslation
-      chan configure $errchan -translation $outtranslation
-
-      #puts stderr "chan configure $wrerr [chan configure $wrerr]"
-      if {$debug} {
-        ::shellfilter::log::write $debugname "COMMAND  [list $commandlist] strlen:[string length $commandlist] llen:[llength $commandlist]"
-      }
-      #todo - handle custom redirection of stderr to a file?
-      if {[string length $custom_stderr]} {
-        #::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist $custom_stderr] a+"
-        #set rdout [open |[concat $commandlist $custom_stderr] a+] 
-        ::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist [list $custom_stderr <@$inchan]] [list RDONLY]"
-        set rdout [open |[concat $commandlist [list <@$inchan $custom_stderr]] [list RDONLY]] 
-        set rderr "bogus" ;#so we don't wait for it
-      } else {
-        ::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist [list 2>@$wrerr <@$inchan]] [list RDONLY]"
-        #set rdout [open |[concat $commandlist [list 2>@$wrerr]] a+]
-        #set rdout [open |[concat $commandlist [list 2>@$wrerr]] [list RDWR]]
-
-        # If we don't redirect stderr to our own tcl-based channel - then the transforms don't get applied. 
-        # This is the whole reason we need these file-event loops.
-        # Ideally we need something like exec,open in tcl that interacts with transformed channels directly and emits as it runs, not only at termination
-        #  - and that at least appears like a terminal to the called command.
-        #set rdout [open |[concat $commandlist [list 2>@stderr <@$inchan]] [list RDONLY]]
-
-        #REVIEW!
-        #if the child process takes a while to begin reading stdin - the data on stdin between when we stopped the parent chan event handler and when the child gets data,
-        #seems to stay buffered somewhere. It is then read by the parent, after the child returns. (ie not lost, but out-of-order)
-        #This can be apparent sometimes even with fast typing upon calling an executable. (e.g occasionally even vim - but seems to be timing based so might only happen first time if at all)
-        # see scriptlib/stdin_race.tcl etc test files.
-        #similar problem with python & perl - issue seems to be in libc or OS buffering behaviour for standard channels.
-        #note that zig (repo/jn/zig/stdin_race) seems to avoid this issue - todo - make zig based binary extension for open/exec?
-
-        set rdout [open |[concat $commandlist [list 2>@$wrerr <@$inchan]] [list RDONLY]]
-
-        chan configure $rderr -buffering $errbuffering -blocking 0
-        chan configure $rderr -translation $readprocesstranslation
-      }
-
-
-
-      set command_pids [pid $rdout]
-        #puts stderr "command_pids: $command_pids"
-        #tcl::process ensemble only available in 8.7+ - and it didn't prove useful here anyway
-        # the child process generally won't shut down until channels are closed.
-        # premature EOF on grandchild process launch seems to be due to lack of terminal emulation when redirecting stdin/stdout.
-        # worked around in punk/repl using 'script' command as a fake tty.
-        #set subprocesses [tcl::process::list]
-        #puts stderr "subprocesses: $subprocesses"
-        #if {[lindex $command_pids 0] ni $subprocesses} {
-        #    puts stderr "pid [lindex $command_pids 0] not running $errMsg"
-        #} else {
-        #    puts stderr "pid [lindex $command_pids 0] is running"
-        #}
-
-      
-      if {$debug} {
-          ::shellfilter::log::write $debugname "pipeline pids: $command_pids"
-      }
-
-      #jjj
-
-
-      chan configure $rdout -buffering $outbuffering -blocking 0
-      chan configure $rdout -translation $readprocesstranslation 
-
-      if {![string length $custom_stderr]} { 
-        chan event $rderr readable [list apply {{chan other wrerr outchan errchan waitfor errprefix errbuffering debug debugname pids} {
-            if {$errbuffering eq "line"} {
-                set countchunk [chan gets $chan chunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                #errprefix only applicable to line buffered output
-                if {$countchunk >= 0} {
-                    if {[chan eof $chan]} {
-                        puts -nonewline $errchan ${errprefix}$chunk
-                    } else {
-                        puts $errchan "${errprefix}$chunk"
-                    }
-                }
-            } else {
-                set chunk [chan read $chan]
-                if  {[string length $chunk]} {
-                    puts -nonewline $errchan $chunk
-                }
-            } 
-            if {[chan eof $chan]} {
-                flush $errchan ;#jmn
-                #set subprocesses [tcl::process::list]
-                #puts stderr "subprocesses: $subprocesses"
-                #if {[lindex $pids 0] ni $subprocesses} {
-                #    puts stderr "stderr reader: pid [lindex $pids 0] no longer running"
-                #} else {
-                #    puts stderr "stderr reader: pid [lindex $pids 0] still running"
-                #}
-                chan close $chan
-                #catch {chan close $wrerr}
-                #if {$other ni [chan names]} {
-                #    set $waitfor stderr
-                #}
-                if {[catch {chan configure $other}]} {
-                    set $waitfor stderr
-                }
-            }
-        }} $rderr $rdout $wrerr $outchan $errchan $waitvar $errprefix $errbuffering $debug $debugname $command_pids]
-      }
-
-        #todo - handle case where large amount of stdin coming in faster than rdout can handle
-        #as is - arbitrary amount of memory could be used because we aren't using a filevent for rdout being writable
-        # - we're just pumping it in to the non-blocking rdout buffers 
-        # ie there is no backpressure and stdin will suck in as fast as possible.
-        # for most commandlines this probably isn't too big a deal.. but it could be a problem for multi-GB disk images etc
-        #
-        #
-        
-        ## Note - detecting trailing missing nl before eof is basically the same  here as when reading rdout from executable
-        # - but there is a slight difference in that with rdout we get an extra blocked state just prior to the final read.
-        # Not known if that is significant
-        ## with inchan configured -buffering line 
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl -r cat
-        #warning reading input with -buffering line. Cannot detect missing trailing-newline at eof
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl -r cat
-        #warning reading input with -buffering line. Cannot detect missing trailing-newline at eof
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:1 pend:-1 count:3
-        #etc
-
-        if 0 {
-            chan event $inchan readable [list apply {{chan wrchan inbuffering waitfor} {
-                #chan copy stdin $chan ;#doesn't work in a chan event
-                if {$inbuffering eq "line"} {
-                    set countchunk [chan gets $chan chunk]
-                    #puts $wrchan "stdinstate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                    if {$countchunk >= 0} {
-                        if {[chan eof $chan]} {
-                            puts -nonewline $wrchan $chunk
-                        } else {
-                            puts $wrchan $chunk
-                        }
-                    }
-                } else {
-                    set chunk [chan read $chan]
-                    if {[string length $chunk]} {
-                        puts -nonewline $wrchan $chunk
-                    } 
-                }
-                if {[chan eof $chan]} {
-                    puts stderr "|stdin_reader>eof [chan configure stdin]"
-                    chan event $chan readable {}
-                    #chan close $chan 
-                    chan close $wrchan write ;#half close
-                    #set $waitfor "stdin"
-                }
-            }} $inchan $rdout $inbuffering $waitvar]
-       
-            if {[string length $stdinhandler]} {
-                chan configure stdin -buffering line -blocking 0
-                chan event stdin readable $stdinhandler
-            }
-       } 
-
-        set actual_proc_out_buffering [chan configure $rdout -buffering]
-        set actual_outchan_buffering [chan configure $outchan -buffering]
-        #despite whatever is configured - we match our reading to how we need to output
-        set read_proc_out_buffering $actual_outchan_buffering
-      
-
-
-      if {[string length $teefile]} {
-        set logname "redir_[string map {: _} $winfile]_[tcl::clock::microseconds]"
-        set tid [::shellfilter::log::open $logname {-syslog 127.0.0.1:514}]
-        if {$teefile eq "write"} {
-          ::shellfilter::log::write $logname "opening '$winfile' for write" 
-          set fd [open $winfile w]
-        } else {
-          ::shellfilter::log::write $logname "opening '$winfile' for appending" 
-          set fd [open $winfile a]
-        }
-        #chan configure $fd -translation lf 
-        chan configure $fd -translation $outtranslation
-        chan configure $fd -encoding utf-8 
-
-        set tempvar_bytetotal [namespace current]::totalbytes[tcl::clock::microseconds] 
-        set $tempvar_bytetotal 0
-        chan event $rdout readable [list apply {{chan other wrerr outchan errchan read_proc_out_buffering waitfor outprefix call_id debug debugname writefile writefilefd copytempfile bytevar logtag} {
-            #review - if we write outprefix to normal stdout.. why not to redirected file?  
-            #usefulness of outprefix is dubious
-            upvar $bytevar totalbytes
-            if {$read_proc_out_buffering eq "line"} {
-                #set outchunk [chan read $chan]
-                set countchunk [chan gets $chan outchunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                if  {$countchunk >= 0} {
-                    if {![chan eof $chan]} {
-                        set numbytes [expr {[string length $outchunk] + 1}]  ;#we are assuming \n not \r\n - but count won't/can't be completely accurate(?) - review
-                        puts $writefilefd $outchunk
-                    } else {
-                        set numbytes [string length $outchunk]
-                        puts -nonewline $writefilefd $outchunk
-                    }
-                    incr totalbytes $numbytes
-                    ::shellfilter::log::write $logtag "${outprefix} wrote $numbytes  bytes to $writefile"
-                    #puts $outchan "${outprefix} wrote $numbytes  bytes to $writefile"
-                }
-            } else {
-                set outchunk [chan read $chan]
-                if {[string length $outchunk]} {
-                    puts -nonewline $writefilefd $outchunk
-                    set numbytes [string length $outchunk]
-                    incr totalbytes $numbytes
-                    ::shellfilter::log::write $logtag "${outprefix} wrote $numbytes  bytes to $writefile"
-                }
-            }
-            if {[chan eof $chan]} {
-                flush $writefilefd ;#jmn
-                #set blocking so we can get exit code
-                chan configure $chan -blocking 1 
-                catch {::shellfilter::log::write $logtag "${outprefix} total bytes $totalbytes written to $writefile"}
-                #puts $outchan "${outprefix} total bytes $totalbytes written to $writefile"
-                catch {close $writefilefd}
-                if {$copytempfile} {
-                  catch {file copy $writefile "[file rootname $writefile]_copy[file extension $writefile]"}
-                }
-                try {
-                    chan close $chan
-                    set ::shellfilter::shellcommandvars($call_id,exitcode) 0
-                    if {$debug} {
-                        ::shellfilter::log::write $debugname "(teefile) -- child process returned no error. (exit code 0) --"
-                    }
-                } trap CHILDSTATUS {result options} {
-                    set code [lindex [dict get $options -errorcode] 2]
-                    if {$debug} {
-                        ::shellfilter::log::write $debugname "(teefile) CHILD PROCESS EXITED with code: $code"
-                    }
-                    set ::shellfilter::shellcommandvars($call_id,exitcode) $code
-                }
-                catch {chan close $wrerr}
-                #if {$other ni [chan names]} {
-                #    set $waitfor stdout
-                #}
-                if {[catch {chan configure $other}]} {
-                    set $waitfor stdout
-                }
-            }
-        }} $rdout $rderr $wrerr $outchan $errchan $read_proc_out_buffering $waitvar $outprefix $call_id $debug $debugname $winfile $fd $copytempfile $tempvar_bytetotal $logname]
-        
-      } else {
-
-        # This occurs when we have outbuffering set to 'line' - as the 'input' from rdout which comes from the executable is also configured to 'line'
-        # where b:0|1 is whether chan blocked $chan returns 0 or 1
-        # pend is the result of chan pending $chan
-        # eof is the resot of chan eof $chan
-
-
-        ##-------------------------
-        ##If we still read with gets,to retrieve line by line for output to line-buffered output - but the input channel is configured with -buffering none
-        ## then we can detect the difference
-        # there is an extra blocking read - but we can stil use eof with data to detect the absent newline and avoid passing an extra one on.
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl /u/c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:1 eof:0 pend:-1 count:-1
-        #instate  b:0 eof:1 pend:-1 count:3
-        #etc
-        ##------------------------
-
-
-        #this should only occur if upstream is coming from stdin reader that has  line buffering and hasn't handled the difference properly..
-        ###reading with gets from line buffered input with trailing newline
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        ###reading with gets from line buffered input with trailing newline
-        ##No detectable difference!
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-        ##-------------------------
-
-        #Note that reading from -buffering none and writing straight out gives no problem because we pass the newlines through as is
-
-        
-        #set ::shellfilter::chan::lastreadblocked_nodata_noeof($rdout) 0 ;#a very specific case of readblocked prior to eof.. possibly not important
-        #this detection is disabled for now - but left for debugging in case it means something.. or changes 
-        chan event $rdout readable [list apply {{chan other wrerr outchan errchan read_proc_out_buffering waitfor outprefix call_id debug debugname pids} {
-            #set outchunk [chan read $chan]
-            
-            if {$read_proc_out_buffering eq "line"} {
-                set countchunk [chan gets $chan outchunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                #countchunk can be -1 before eof e.g when blocked
-                #debugging output inline with data - don't leave enabled
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                if {$countchunk >= 0} {
-                    if {![chan eof $chan]} { 
-                        puts $outchan ${outprefix}$outchunk
-                    } else {
-                        puts -nonewline $outchan ${outprefix}$outchunk
-                        #if {$::shellfilter::chan::lastreadblocked_nodata_noeof($chan)} {
-                        #   seems to be the usual case
-                        #} else {
-                        #    #false alarm, or ? we've reached eof with data but didn't get an empty blocking read just prior
-                        #    #Not known if this occurs
-                        #    #debugging output inline with data - don't leave enabled
-                        #    puts $outchan "!!!prev read didn't block: instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                        #}
-                    }
-                    #set ::shellfilter::chan::lastreadblocked_nodata_noeof($chan) 0
-                } else {
-                    #set ::shellfilter::chan::lastreadblocked_nodata_noeof($chan) [expr {[chan blocked $chan] && ![chan eof $chan]}]
-                }
-            } else {
-                #puts $outchan "read  CHANNEL $chan  [chan configure $chan]"
-                #puts $outchan "write CHANNEL $outchan b:[chan configure $outchan -buffering] t:[chan configure $outchan -translation] e:[chan configure $outchan -encoding]"
-                set outchunk [chan read $chan]
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:[string length $outchunk]"
-                if  {[string length $outchunk]} {
-                    #set stringrep [encoding convertfrom utf-8 $outchunk] 
-                    #set newbytes [encoding convertto utf-16 $stringrep]
-                    #puts -nonewline $outchan $newbytes
-                    puts -nonewline $outchan $outchunk
-                }
-            }
-
-            if {[chan eof $chan]} {
-                flush $outchan ;#jmn
-                #for now just look for first element in the pid list..
-                #set subprocesses [tcl::process::list]
-                #puts stderr "subprocesses: $subprocesses"
-                #if {[lindex $pids 0] ni $subprocesses} {
-                #    puts stderr "stdout reader pid: [lindex $pids 0] no longer running"
-                #} else {
-                #    puts stderr "stdout reader pid: [lindex $pids 0] still  running"
-                #}
-
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan]"
-                    chan configure $chan -blocking 1 ;#so we can get exit code
-                    try {
-                        chan close $chan
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) 0
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " -- child process returned no error. (exit code 0) --"
-                        }
-                    } trap CHILDSTATUS {result options} {
-                        set code [lindex [dict get $options -errorcode] 2]
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) $code
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " CHILD PROCESS EXITED with code: $code"
-                        }
-                    } trap CHILDKILLED {result options} {
-                        #set code [lindex [dict get $options -errorcode] 2]
-                        #set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) "childkilled"
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " CHILD PROCESS EXITED with result:'$result' options:'$options'"
-                        }
-
-                    } finally {
-                        #puts stdout "HERE"
-                        #flush stdout
-
-                    }
-                    catch {chan close $wrerr}
-                    #if {$other ni [chan names]} {
-                    #    set $waitfor stdout
-                    #} 
-                    if {[catch {chan configure $other}]} {
-                        set $waitfor stdout
-                    }
-
-            }
-        }} $rdout $rderr $wrerr $outchan $errchan $read_proc_out_buffering $waitvar $outprefix $call_id $debug $debugname $command_pids]
-      }
-
-      #todo - add ability to detect activity/data-flow and change timeout to only apply for period with zero data
-      #e.g x hrs with no data(?)
-      #reset timeout when data detected.
-      #review - stdin???
-      set ::shellfilter::shellcommandvars($call_id,timeoutid) [after $timeout [string map [list %cpids% $command_pids %w% $waitvar %id% $call_id %wrerr% $wrerr %rdout% $rdout %rderr% $rderr %debug% $debug %debugname% $debugname] {
-          if {[info exists ::shellfilter::shellcommandvars(%id%,exitcode)]} {
-              #killing the task (on windows) doesn't seem to work if done after we close the output channels
-              catch {puts stderr "timeout - closing.";flush stderr}
-              set command_pids "{%cpids%}"
-              if {[llength $command_pids]} {
-                  set pid [lindex $command_pids 0]
-                  if {$::tcl_platform(platform) eq "windows"} {
-                      set killcmd [list [auto_execok taskkill] /F /PID $pid]
-                  } else {
-                      #set killcmd [list kill -9 $pid]
-                      set killcmd [list kill -TERM $pid]
-                  }
-                  if {[catch {
-                      exec {*}$killcmd
-                  } errM]} {
-                      puts stderr "Failed to kill '$pid': errMsg $errM"
-                      flush stderr
-                  }
-              }
-              if {[set  ::shellfilter::shellcommandvars(%id%,exitcode)] ne ""} {
-                  catch { chan close %wrerr% }
-                  catch { chan close %rdout%}
-                  catch { chan close %rderr%}
-              } else {
-                  chan configure %rdout% -blocking 1
-                  try {
-                      chan close %rdout%
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) 0
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) -- child process returned no error. (exit code 0) --"
-                      }
-                  } trap CHILDSTATUS {result options} {
-                      set code [lindex [dict get $options -errorcode] 2]
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) CHILD PROCESS EXITED with code: $code"
-                      }
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                  } trap CHILDKILLED {result options} {
-                      set code [lindex [dict get $options -errorcode] 2]
-                      #set code [dict get $options -code]
-                      #set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                      #set ::shellfilter::shellcommandvars($call_id,exitcode) "childkilled-timeout"
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) "childkilled-timeout"
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) CHILDKILLED with code: $code"
-                          ::shellfilter::log::write %debugname% "(timeout) result:$result options:$options"
-                      }
-
-                  }
-                  catch { chan close %wrerr% }
-                  catch { chan close %rderr%}
-              }
-              set %w% "timeout"
-          }
-      }]]
-
-
-      vwait $waitvar
-      after cancel $::shellfilter::shellcommandvars($call_id,timeoutid)
-
-      #puts stderr "waitvar:[set $waitvar]"
-      #flush stderr
-      #if {[set $waitvar] eq "timeout"} {
-      #  #note: attempting to kill a process here (after channels closed) doesn't work (on windows at least)
-      #  puts stderr "command_pids: $command_pids"
-      #  flush stderr
-      #}
-
-      set exitcode [set ::shellfilter::shellcommandvars($call_id,exitcode)]
-      if {![string is digit -strict $exitcode]} {
-          puts stderr "Process exited with non-numeric code: $exitcode closed_by:[set $waitvar]"
-          flush stderr
-      }
-      if {[string length $teefile]} {
-          #cannot be called from within an event handler above.. vwait reentrancy etc
-          catch {::shellfilter::log::close $logname}
-      }
-
-      if {$debug} {
-          ::shellfilter::log::write $debugname " closed by: [set $waitvar] with exitcode: $exitcode"
-          catch {::shellfilter::log::close $debugname}
-      }
-      array unset ::shellfilter::shellcommandvars $call_id,*
-
-
-      #restore buffering to pre shellfilter::run state
-      lassign $remember_in_out_err_buffering bin bout berr
-      chan configure $inchan  -buffering $bin
-      chan configure $outchan -buffering $bout
-      chan configure $errchan -buffering $berr
-
-      lassign $remember_in_out_err_translation tin tout terr
-      chan configure $inchan  -translation $tin
-      chan configure $outchan -translation $tout
-      chan configure $errchan -translation $terr
-
-
-      #in channel probably closed..(? review - should it be?)
-      catch {
-        chan configure $inchan  -buffering $bin
-      }
-
-
-      return [list exitcode $exitcode]
-  }
-
-}
-
-package provide shellfilter [namespace eval shellfilter {
-    variable version
-    set version 0.2
-}]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm
deleted file mode 100644
index 478c70fa..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm
+++ /dev/null
@@ -1,893 +0,0 @@
-# vim: set ft=tcl
-#
-#purpose: handle the run commands that call shellfilter::run
-#e.g run,runout,runerr,runx
-
-package require shellfilter
-package require punk::ansi
-
-#NOTE: the run,runout,runerr,runx commands only produce an error if the command didn't run.
-# - If it did run, but there was a non-zero exitcode it is up to the application to check that.
-#This is deliberate, but means 'catch' doesn't catch errors within the command itself -  the exitcode has to be checked.
-#The user can always use exec for different process error semantics (they don't get exitcode with exec)
-
-namespace eval shellrun {
-    variable PUNKARGS
-    variable runout
-    variable runerr
-
-    #do we need these?
-    #variable punkout
-    #variable punkerr
-
-    #some ugly coupling with punk/punk::config for now
-    #todo - something better
-    if {[info exists ::punk::config::configdata]} {
-        set conf_running    [punk::config::configure running]
-        set syslog_stdout   [dict get $conf_running syslog_stdout]
-        set syslog_stderr   [dict get $conf_running syslog_stderr]
-        set logfile_stdout  [dict get $conf_running logfile_stdout]
-        set logfile_stderr  [dict get $conf_running logfile_stderr]
-    } else {
-        lassign [list "" "" "" ""] syslog_stdout syslog_stderr logfile_stdout logfile_stderr
-    }
-    if {"punkshout" ni [shellfilter::stack::items]} {
-        set outdevice [shellfilter::stack::new punkshout -settings [list -tag "punkshout" -buffering none -raw 1 -syslog $syslog_stdout -file $logfile_stdout]]
-        set out [dict get $outdevice localchan]
-    } else {
-        set out [dict get [shellfilter::stack::item punkshout] device localchan]
-    }
-    if {"punksherr" ni [shellfilter::stack::items]} {
-        set errdevice [shellfilter::stack::new punksherr -settings [list -tag "punksherr" -buffering none -raw 1 -syslog $syslog_stderr -file $logfile_stderr]]
-        set err [dict get $errdevice localchan]
-    } else {
-        set err  [dict get [shellfilter::stack::item punksherr] device localchan]
-    }
-
-    namespace import ::punk::ansi::a+
-    namespace import ::punk::ansi::a
-
-
-
-
-    #repltelemetry - additional/alternative display info used in a repl context i.e info directed towards the screen
-    #todo - package up in repltelemetry module and rewrite proc based on whether the module was found/loaded.
-    #somewhat strong coupling to punk - but let's try to behave decently if it's not loaded
-    #The last_run_display is actually intended for the repl - but is resident in the punk namespace with a view to the possibility of a different repl being in use.
-    proc set_last_run_display {chunklist} {
-        #chunklist as understood by the
-        if {![info exists ::punk::repltelemetry_emmitters]} {
-            namespace eval ::punk {
-                variable repltelemetry_emmitters
-                set repltelemetry_emmitters "shellrun"
-            }
-        } else {
-            if {"shellrun" ni $::punk::repltelemetry_emmitters} {
-                lappend punk::repltelemetry_emmitters "shellrun"
-            }
-        }
-
-        #most basic of validity tests here.. just that it is a list (can be empty). We don't want to duplicate or over-constrain the way repls/shells/terminals interpet the info
-        if {[catch {llength $chunklist} errMsg]} {
-            error  "set_last_run_display expects a list. Value supplied doesn't appear to be a well formed tcl list. '$errMsg'"
-        }
-        #todo -
-        tsv::lappend repl runchunks-[tsv::get repl runid] {*}$chunklist
-    }
-
-
-
-    #maintenance: similar used in punk::ns & punk::winrun
-    #todo - take runopts + aliases as args
-    #longopts must be passed as a single item ie  --timeout=100  not --timeout 100
-    proc get_run_opts {arglist} {
-        if {[catch {
-            set callerinfo [info level -1]
-        } errM]} {
-            set caller ""
-        } else {
-            set caller [lindex $callerinfo 0]
-        }
-
-        #we provide -nonewline even for 'run' even though run doesn't deliver stderr or stdout to the tcl return value
-        #This is for compatibility with other runX commands, and the difference is also visible when calling from repl.
-        set known_runopts [list "-echo" "-e" "-nonewline" "-n" "-tcl" "-debug"]
-        set known_longopts [list "--timeout"]
-        set known_longopts_msg ""
-        foreach lng $known_longopts {
-            append known_longopts_msg "${lng}=val "
-        }
-        set aliases [list "-e" "-echo" "-echo" "-echo" "-n" "-nonewline" "-nonewline" "-nonewline" "-tcl" "-tcl" "-debug" "-debug"] ;#include map to self
-        set runopts [list]
-        set runoptslong [list]
-        set cmdargs [list]
-
-        set idx_first_cmdarg [lsearch -not $arglist "-*"]
-
-        set allopts [lrange $arglist 0 $idx_first_cmdarg-1]
-        set cmdargs [lrange $arglist $idx_first_cmdarg end]
-        foreach o $allopts {
-            if {[string match --* $o]} {
-                lassign [split $o =] flagpart valpart
-                if {$valpart eq ""} {
-                    error "$caller: longopt $o seems to be missing a value - must be of form --option=value"
-                }
-                if {$flagpart ni $known_longopts} {
-                    error "$caller: Unknown runoption $o - known options $known_runopts $known_longopts_msg"
-                }
-                lappend runoptslong $flagpart $valpart
-            } else {
-                if {$o ni $known_runopts} {
-                    error "$caller: Unknown runoption $o - known options $known_runopts $known_longopts_msg"
-                }
-                lappend runopts [dict get $aliases $o]
-            }
-        }
-        return [list runopts $runopts runoptslong $runoptslong cmdargs $cmdargs]
-    }
-
-
-    #todo - investigate cause of punk86 run hanging sometimes. An 'after 500' before exit in the called script fixes the issue. punk87 doesn't seem to be affected.
-    lappend PUNKARGS [list {
-        @id     -id ::shellrun::run
-        @leaders -min 0 -max 0
-        @opts
-        -nonewline  -type none
-        -tcl        -type none -default 0
-        -debug      -type none -default 0
-        --timeout=  -type integer
-        @values -min 1 -max -1
-        cmdname -type string
-        cmdarg -type any -multiple 1 -optional 1
-    }]
-    proc run {args} {
-        #set_last_run_display [list]
-
-        #set splitargs [get_run_opts $args]
-        #set runopts [dict get $splitargs runopts]
-        #set runoptslong [dict get $splitargs runoptslong]
-        #set cmdargs [dict get $splitargs cmdargs]
-        set argd [punk::args::parse $args withid ::shellrun::run]
-        lassign [dict values $argd] leaders opts values received
-
-        if {[dict exists $received "-nonewline"]} {
-            set nonewline 1
-        } else {
-            set nonewline 0
-        }
-        #review nonewline does nothing here..
-
-        set idlist_stderr [list]
-        #we leave stdout without imposed ansi colouring - because the source may be colourised and because ansi-wrapping a stream at whatever boundaries it comes in at isn't a really nice thing to do.
-        #stderr might have source colouring - but it usually doesn't seem to, and the visual distiction of red stderr can be very handy for the run command.
-        #A further enhancement could be to detect well-known options such as --color and/or use a configuration for specific commands that have useful colourised stderr,
-        #but having an option to configure stderr to red is a compromise.
-        #Note that the other run commands, runout,runerr, runx don't emit in real-time - so for those commands there may be options to detect and/or post-process stdout and stderr.
-        #TODO - fix. This has no effect if/when the repl adds an ansiwrap transform
-        # what we probably want to do is 'aside' that transform for runxxx commands only.
-        #lappend idlist_stderr [shellfilter::stack::add stderr ansiwrap -settings {-colour {red bold}}]
-
-        set callopts [dict create]
-        if {[dict exists $received "-tcl"]} {
-            dict set callopts -tclscript 1 
-        }
-        if {[dict exists $received "-debug"]} {
-            dict set callopts -debug 1
-        }
-        if {[dict exists $received --timeout]} {
-            dict set callopts -timeout [dict get $opts --timeout] ;#convert to single dash
-        }
-        set cmdname     [dict get $values cmdname]
-        if {[dict exists $received cmdarg]} {
-            set cmdarglist  [dict get $values cmdarg]
-        } else {
-            set cmdarglist {}
-        }
-        set cmdargs [concat $cmdname $cmdarglist]
-        #---------------------------------------------------------------------------------------------
-        set exitinfo [shellfilter::run $cmdargs {*}$callopts -teehandle punksh -inbuffering none -outbuffering none ]
-        #---------------------------------------------------------------------------------------------
-
-        foreach id $idlist_stderr {
-            shellfilter::stack::remove stderr $id
-        }
-
-        flush stderr
-        flush stdout
-
-        if {[dict exists $exitinfo error]} {
-            error "[dict get $exitinfo error]\n$exitinfo"
-        }
-
-        return $exitinfo
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::shellrun::runconsole
-        @leaders -min 0 -max 0
-        @opts
-        @values -min 1 -max -1
-        cmdname -type string
-        cmdarg -type any -multiple 1 -optional 1
-    }]
-    #run in the way tcl unknown does - but without regard to auto_noexec
-    proc runconsole {args} {
-        set argd [punk::args::parse $args withid ::shellrun::runconsole]
-        lassign [dict values $argd] leaders opts values received
-        set cmdname     [dict get $values cmdname]
-        if {[dict exists $received cmdarg]} {
-            set arglist     [dict get $values cmdarg]
-        } else {
-            set arglist {}
-        }
-
-        set resolved_cmdname [auto_execok $cmdname]
-        if {$resolved_cmdname eq ""} {
-            error "Cannot find path for executable '$cmdname'"
-        }
-        set repl_runid [punk::get_repl_runid]
-        #set ::punk::last_run_display [list]
-
-        set redir ">&@stdout <@stdin"
-        uplevel 1 [list ::catch [concat exec $redir $resolved_cmdname $arglist] ::tcl::UnknownResult ::tcl::UnknownOptions]
-        #we can't detect stdout/stderr output from the exec
-        #for now emit an extra \n on stderr
-        #todo - there is probably no way around this but to somehow exec in the context of a completely separate console
-        #This is probably a tricky problem - especially to do cross-platform
-        #
-        # - use [dict get $::tcl::UnknownOptions -code]  (0|1)  exit
-        if {[dict get $::tcl::UnknownOptions -code] == 0} {
-            set c green
-            set m "ok"
-        } else {
-            set c yellow
-            set m "errorCode $::errorCode"
-        }
-        set chunklist [list]
-        lappend chunklist [list "info" "[a $c]$m[a] " ]
-        if {$repl_runid != 0} {
-            tsv::lappend repl runchunks-$repl_runid {*}$chunklist
-        }
-
-        dict incr ::tcl::UnknownOptions -level
-        return -options $::tcl::UnknownOptions $::tcl::UnknownResult
-    }
-    lappend PUNKARGS [list {
-        @id     -id ::shellrun::runout
-        @leaders -min 0 -max 0
-        @opts
-        -echo       -type none
-        -nonewline  -type none
-        -tcl        -type none -default 0
-        -debug      -type none -default 0
-        --timeout=  -type integer
-        @values -min 1 -max -1
-        cmdname -type string
-        cmdarg -type any -multiple 1 -optional 1
-    }]
-    proc runout {args} {
-        set argd [punk::args::parse $args withid ::shellrun::runout]
-        lassign [dict values $argd] leaders opts values received
-
-        if {[dict exists $received "-nonewline"]} {
-            set nonewline 1
-        } else {
-            set nonewline 0
-        }
-
-        #set_last_run_display [list]
-        variable runout
-        variable runerr
-        set runout ""
-        set runerr ""
-        set RST [a]
-
-        #set splitargs [get_run_opts $args]
-        #set runopts [dict get $splitargs runopts]
-        #set cmdargs [dict get $splitargs cmdargs]
-
-
-        #puts stdout "RUNOUT cmdargs: $cmdargs"
-
-        #todo   add -data boolean and -data lastwrite to -settings with default being -data all
-        # because sometimes we're only interested in last char (e.g to detect something was output)
-
-        #set outvar_stackid [shellfilter::stack::add commandout tee_to_var  -action float -settings {-varname ::runout}]
-        #
-        #when not echoing - use float-locked so that the repl's stack is bypassed
-        if {[dict exists $received "-echo"]} {
-            set stdout_stackid [shellfilter::stack::add stdout tee_to_var -action float-locked -settings {-varname ::shellrun::runout}]
-            set stderr_stackid [shellfilter::stack::add stderr tee_to_var -action float-locked -settings {-varname ::shellrun::runerr}]
-            #set stderr_stackid [shellfilter::stack::add stderr tee_to_var -action sink-locked -settings {-varname ::shellrun::runerr}]
-        } else {
-            set stdout_stackid [shellfilter::stack::add stdout var -action float-locked -settings {-varname ::shellrun::runout}]
-            set stderr_stackid [shellfilter::stack::add stderr var -action float-locked -settings {-varname ::shellrun::runerr}]
-        }
-
-        set callopts [dict create]
-        if {[dict exists $received "-tcl"]} {
-            dict set callopts -tclscript 1 
-        }
-        if {[dict exists $received "-debug"]} {
-            dict set callopts -debug 1
-        }
-        if {[dict exists $received --timeout]} {
-            dict set callopts -timeout [dict get $opts --timeout] ;#convert to single dash
-        }
-        set cmdname     [dict get $values cmdname]
-        if {[dict exists $received cmdarg]} {
-            set cmdarglist  [dict get $values cmdarg]
-        } else {
-            set cmdarglist {}
-        }
-        set cmdargs [concat $cmdname $cmdarglist]
-
-        #shellfilter::run [lrange $args 1 end] -teehandle punksh -outchan stdout -inbuffering none -outbuffering none -stdinhandler ::repl::repl_handler
-        set exitinfo [shellfilter::run $cmdargs {*}$callopts -teehandle punksh -inbuffering none -outbuffering none ]
-
-        flush stderr
-        flush stdout
-
-        shellfilter::stack::remove stdout $stdout_stackid
-        shellfilter::stack::remove stderr $stderr_stackid
-
-        #shellfilter::stack::remove commandout $outvar_stackid
-
-        if {[dict exists $exitinfo error]} {
-            if {[dict exists $received "-tcl"]} {
-
-            } else {
-                #we must raise an error.
-                #todo - check errorInfo makes sense.. return -code? tailcall?
-                #
-                set msg ""
-                append msg [dict get $exitinfo error]
-                append msg "\n(add -tcl option to run as a tcl command/script instead of an external command)"
-                error $msg
-            }
-        }
-
-        set chunklist [list]
-
-        #exitcode not part of return value for runout - colourcode appropriately
-        set n $RST
-        set c ""
-
-        if {[dict exists $exitinfo exitcode]} {
-            set code [dict get $exitinfo exitcode]
-            if {$code == 0} {
-                set c [a+ green]
-            } else {
-                set c [a+ white bold]
-            }
-            lappend chunklist [list "info" "$c$exitinfo$n"]
-        } elseif {[dict exists $exitinfo error]} {
-            set c [a+ yellow bold]
-            lappend chunklist [list "info" "${c}error [dict get $exitinfo error]$n"]
-            lappend chunklist [list "info" "errorCode [dict get $exitinfo errorCode]"]
-            #lappend chunklist [list "info" "errorInfo [list [dict get $exitinfo errorInfo]]"]
-            lappend chunklist [list "info" errorInfo]
-            lappend chunklist [list "stderr" [dict get $exitinfo errorInfo]]
-        } else {
-            set c [a+ Yellow red bold]
-            #lappend chunklist [list "info" "$c$exitinfo$n"]
-            lappend chunklist [list "info" [punk::ansi::ansiwrap_raw $c \x1b\[m "" $exitinfo]]
-        }
-
-
-        set chunk "[a+ red bold]stderr$RST"
-        lappend chunklist [list "info" $chunk]
-
-        set chunk ""
-        if {[string length $::shellrun::runerr]} {
-            if {$nonewline} {
-                set e [string trimright $::shellrun::runerr \r\n]
-            } else {
-                set e $::shellrun::runerr
-            }
-            #append chunk "[a+ red normal]$e$RST\n"
-            append chunk "[a+ red normal]$e$RST"
-        }
-        lappend chunklist [list stderr $chunk]
-
-
-
-
-        lappend chunklist [list "info" "[a+ white bold]stdout$RST"]
-        set chunk ""
-        if {[string length $::shellrun::runout]} {
-            if {$nonewline} {
-                set o [string trimright $::shellrun::runout \r\n]
-            } else {
-                set o $::shellrun::runout
-            }
-            append chunk "$o"
-        }
-        lappend chunklist [list result $chunk]
-
-
-        #set_last_run_display $chunklist
-        tsv::lappend repl runchunks-[tsv::get repl runid] {*}$chunklist
-
-        if {$nonewline} {
-            return [string trimright $::shellrun::runout \r\n]
-        } else {
-            return $::shellrun::runout
-        }
-    }
-
-    lappend PUNKARGS [list {
-        @id     -id ::shellrun::runerr
-        @leaders -min 0 -max 0
-        @opts
-        -echo       -type none
-        -nonewline  -type none
-        -tcl        -type none -default 0
-        -debug      -type none -default 0
-        --timeout=  -type integer
-        @values -min 1 -max -1
-        cmdname -type string
-        cmdarg -type any -multiple 1 -optional 1
-    }]
-    proc runerr {args} {
-        set argd [punk::args::parse $args withid ::shellrun::runerr]
-        lassign [dict values $argd] leaders opts values received
-
-        if {[dict exists $received "-nonewline"]} {
-            set nonewline 1
-        } else {
-            set nonewline 0
-        }
-
-        #set_last_run_display [list]
-        variable runout
-        variable runerr
-        set runout ""
-        set runerr ""
-
-        #set splitargs [get_run_opts $args]
-        #set runopts [dict get $splitargs runopts]
-        #set cmdargs [dict get $splitargs cmdargs]
-
-        set callopts [dict create]
-        if {[dict exists $received "-tcl"]} {
-            dict set callopts -tclscript 1 
-        }
-        if {[dict exists $received "-debug"]} {
-            dict set callopts -debug 1
-        }
-        if {[dict exists $received --timeout]} {
-            dict set callopts -timeout [dict get $opts --timeout] ;#convert to single dash
-        }
-        set cmdname     [dict get $values cmdname]
-        if {[dict exists $received cmdarg]} {
-            set cmdarglist  [dict get $values cmdarg]
-        } else {
-            set cmdarglist {}
-        }
-        set cmdargs [concat $cmdname $cmdarglist]
-
-        if {[dict exists $received "-tcl"]} {
-            append callopts " -tclscript 1"
-        }
-        if {[dict exists $received "-echo"]} {
-            set stderr_stackid [shellfilter::stack::add stderr tee_to_var -action float-locked -settings {-varname ::shellrun::runerr}]
-            set stdout_stackid [shellfilter::stack::add stdout tee_to_var -action float-locked -settings {-varname ::shellrun::runout}]
-        } else {
-            set stderr_stackid [shellfilter::stack::add stderr var -action float-locked -settings {-varname ::shellrun::runerr}]
-            set stdout_stackid [shellfilter::stack::add stdout var -action float-locked -settings {-varname ::shellrun::runout}]
-        }
-
-
-        set exitinfo [shellfilter::run $cmdargs {*}$callopts -teehandle punksh -inbuffering none -outbuffering none -stdinhandler ::repl::repl_handler]
-        shellfilter::stack::remove stderr $stderr_stackid
-        shellfilter::stack::remove stdout $stdout_stackid
-
-
-        flush stderr
-        flush stdout
-
-        #we raise an error because an error during calling is different to collecting stderr from a command, and the caller should be able to wrap in a catch
-        # to determine something other than just a nonzero exit code or output  on stderr.
-        if {[dict exists $exitinfo error]} {
-            if {[dict exists $received "-tcl"]} {
-
-            } else {
-                #todo - check errorInfo makes sense.. return -code? tailcall?
-                error [dict get $exitinfo error]
-            }
-        }
-
-        set chunklist [list]
-
-        set n [a]
-        set c ""
-        if {[dict exists $exitinfo exitcode]} {
-            set code [dict get $exitinfo exitcode]
-            if {$code == 0} {
-                set c [a+ green]
-            } else {
-                set c [a+ white bold]
-            }
-            lappend chunklist [list "info" "$c$exitinfo$n"]
-        } elseif {[dict exists $exitinfo error]} {
-            set c [a+ yellow bold]
-            lappend chunklist [list "info" "error [dict get $exitinfo error]"]
-            lappend chunklist [list "info" "errorCode [dict get $exitinfo errorCode]"]
-            lappend chunklist [list "info" "errorInfo [list [dict get $exitinfo errorInfo]]"]
-        } else {
-            set c [a+ Yellow red bold]
-            #lappend chunklist [list "info" "$c$exitinfo$n"]
-            lappend chunklist [list "info" [punk::ansi::ansiwrap_raw $c "\x1b\[m" "" $exitinfo]]
-        }
-
-
-        lappend chunklist [list "info" "[a+ white bold]stdout[a]"]
-        set chunk ""
-        if {[string length $::shellrun::runout]} {
-            if {$nonewline} {
-                set o [string trimright $::shellrun::runout \r\n]
-            } else {
-                set o $::shellrun::runout
-            }
-            append chunk "[a+ white normal]$o[a]\n"  ;#this newline is the display output separator - always there whether data has trailing newline or not.
-        }
-        lappend chunklist [list stdout $chunk]
-
-
-        #set c_stderr [punk::config]
-        set chunk "[a+ red bold]stderr[a]"
-        lappend chunklist [list "info" $chunk]
-
-        set chunk ""
-        if {[string length $::shellrun::runerr]} {
-            if {$nonewline} {
-                set e [string trimright $::shellrun::runerr \r\n]
-            } else {
-                set e $::shellrun::runerr
-            }
-            append chunk "$e"
-        }
-        lappend chunklist [list resulterr $chunk]
-
-
-        #set_last_run_display $chunklist
-        tsv::lappend repl runchunks-[tsv::get repl runid] {*}$chunklist
-
-        if {$nonewline} {
-            return [string trimright $::shellrun::runerr \r\n]
-        }
-        return $::shellrun::runerr
-    }
-
-
-    proc runx {args} {
-        #set_last_run_display [list]
-        variable runout
-        variable runerr
-        set runout ""
-        set runerr ""
-
-        set splitargs [get_run_opts $args]
-        set runopts [dict get $splitargs runopts]
-        set cmdargs [dict get $splitargs cmdargs]
-
-        if {"-nonewline" in $runopts} {
-            set nonewline 1
-        } else {
-            set nonewline 0
-        }
-
-        #shellfilter::stack::remove stdout $::repl::id_outstack
-
-        if {"-echo" in $runopts} {
-            #float to ensure repl transform doesn't interfere with the output data
-            set stderr_stackid [shellfilter::stack::add stderr tee_to_var -action float -settings {-varname ::shellrun::runerr}]
-            set stdout_stackid [shellfilter::stack::add stdout tee_to_var -action float -settings {-varname ::shellrun::runout}]
-        } else {
-            #set stderr_stackid [shellfilter::stack::add stderr var -action sink-locked -settings {-varname ::shellrun::runerr}]
-            #set stdout_stackid [shellfilter::stack::add stdout var -action sink-locked -settings {-varname ::shellrun::runout}]
-
-            #float above the repl's tee_to_var to deliberately block it.
-            #a var transform is naturally a junction point because there is no flow-through..
-            # - but mark it with -junction 1 just to be explicit
-            set stderr_stackid [shellfilter::stack::add stderr var -action float-locked -junction 1 -settings {-varname ::shellrun::runerr}]
-            set stdout_stackid [shellfilter::stack::add stdout var -action float-locked -junction 1 -settings {-varname ::shellrun::runout}]
-        }
-
-        set callopts ""
-        if {"-tcl" in $runopts} {
-            append callopts " -tclscript 1"
-        }
-        #set exitinfo [shellfilter::run $cmdargs -teehandle punksh -inbuffering none -outbuffering none -stdinhandler ::repl::repl_handler]
-        set exitinfo [shellfilter::run $cmdargs {*}$callopts -teehandle punksh -inbuffering none -outbuffering none]
-
-        shellfilter::stack::remove stdout $stdout_stackid
-        shellfilter::stack::remove stderr $stderr_stackid
-
-
-        flush stderr
-        flush stdout
-
-        if {[dict exists $exitinfo error]} {
-            if {"-tcl" in $runopts} {
-
-            } else {
-                #todo - check errorInfo makes sense.. return -code? tailcall?
-                error [dict get $exitinfo error]
-            }
-        }
-
-        #set x [shellfilter::stack::add stdout var -action sink-locked -settings {-varname ::repl::runxoutput}]
-
-        set chunk ""
-        if {[string length $::shellrun::runout]} {
-            if {$nonewline} {
-                set o [string trimright $::shellrun::runout \r\n]
-            } else {
-                set o $::shellrun::runout
-            }
-            set chunk $o
-        }
-        set chunklist [list]
-        lappend chunklist [list "info" " "]
-        lappend chunklist [list "result" stdout] ;#key 'stdout' forms part of the resulting dictionary output
-        lappend chunklist [list "info" "[a+ white bold]stdout[a]"]
-        lappend chunklist [list result $chunk]   ;#value corresponding to 'stdout' key in resulting dict
-
-
-        lappend chunklist [list "info" " "]
-        set chunk "[a+ red bold]stderr[a]"
-        lappend chunklist [list "result" $chunk]
-        lappend chunklist [list "info" stderr]
-
-        set chunk ""
-        if {[string length $::shellrun::runerr]} {
-            if {$nonewline} {
-                set e [string trimright $::shellrun::runerr \r\n]
-            } else {
-                set e $::shellrun::runerr
-            }
-            set chunk $e
-        }
-        #stderr is part of the result
-        lappend chunklist [list "resulterr" $chunk]
-
-
-
-        set n [a]
-        set c ""
-        if {[dict exists $exitinfo exitcode]} {
-            set code [dict get $exitinfo exitcode]
-            if {$code == 0} {
-                set c [a+ green]
-            } else {
-                set c [a+ yellow bold]
-            }
-            lappend chunklist [list "info" " "]
-            lappend chunklist [list "result" exitcode]
-            lappend chunklist [list "info" "exitcode $code"]
-            lappend chunklist [list "result" "$c$code$n"]
-            set exitdict [list exitcode $code]
-        } elseif {[dict exists $exitinfo result]} {
-            # presumably from a -tcl call
-            set val [dict get $exitinfo result]
-            lappend chunklist [list "info" " "]
-            lappend chunklist [list "result" result]
-            lappend chunklist [list "info"   result]
-            lappend chunklist [list "result" $val]
-            set exitdict [list result $val]
-        } elseif {[dict exists $exitinfo error]} {
-            # -tcl call with error
-            #set exitdict [dict create]
-            lappend chunklist [list "info" " "]
-            lappend chunklist [list "result" error]
-            lappend chunklist [list "info"   error]
-            lappend chunklist [list "result" [dict get $exitinfo error]]
-
-            lappend chunklist [list "info" " "]
-            lappend chunklist [list "result" errorCode]
-            lappend chunklist [list "info"   errorCode]
-            lappend chunklist [list "result" [dict get $exitinfo errorCode]]
-
-            lappend chunklist [list "info" " "]
-            lappend chunklist [list "result" errorInfo]
-            lappend chunklist [list "info"   errorInfo]
-            lappend chunklist [list "result" [dict get $exitinfo errorInfo]]
-
-            set exitdict $exitinfo
-        } else {
-            #review - if no exitcode or result. then what is it?
-            lappend chunklist [list "info" exitinfo]
-            set c [a+ yellow bold]
-            lappend chunklist [list result "$c$exitinfo$n"]
-            set exitdict [list exitinfo $exitinfo]
-        }
-
-        #set_last_run_display $chunklist
-        tsv::lappend repl runchunks-[tsv::get repl runid] {*}$chunklist
-
-        #set ::repl::result_print 0
-        #return [lindex [list [list stdout $::runout stderr $::runerr {*}$exitinfo] [shellfilter::stack::remove stdout $x][puts -nonewline stdout $pretty][set ::repl::output ""]] 0]
-
-
-        if {$nonewline} {
-            return [list {*}$exitdict stdout [string trimright $::shellrun::runout \r\n] stderr [string trimright $::shellrun::runerr \r\n]]
-        }
-        #always return exitinfo $code at beginning of dict (so that punk unknown can interpret the exit code as a unix-style bool if double evaluated)
-        return [list {*}$exitdict stdout $::shellrun::runout stderr $::shellrun::runerr]
-    }
-
-    #an experiment
-    #
-    #run as raw string instead of tcl-list - no variable subst  etc
-    #
-    #dummy repl_runraw that repl will intercept
-    proc repl_runraw {args} {
-        error "runraw: only available in repl as direct call - not from script"
-    }
-    #we can only call runraw with a single (presumably braced) string if we want to use it from both repl and tcl scripts  (why? todo with unbalanced quotes/braces?)
-    proc runraw {commandline} {
-        #runraw fails as intended - because we can't bypass exec/open interference quoting :/
-        #set_last_run_display [list]
-        variable runout
-        variable runerr
-        set runout ""
-        set runerr ""
-
-        #return [shellfilter::run [lrange $args 1 end] -teehandle punksh -inbuffering none -outbuffering none -stdinhandler ::repl::repl_handler]
-        puts stdout ">>runraw got: $commandline"
-
-        #run always echoes anyway.. as we aren't diverting stdout/stderr off for capturing
-        #for consistency with other runxxx commands - we'll just consume it. (review)
-
-        set reallyraw 1
-        if {$reallyraw} {
-            set wordparts [regexp -inline -all {\S+} $commandline]
-            set runwords $wordparts
-        } else {
-            #shell style args parsing not suitable for windows where we can't assume matched quotes etc.
-            package require string::token::shell
-            set parts [string token shell -indices -- $commandline]
-            puts stdout ">>shellparts: $parts"
-            set runwords [list]
-            foreach p $parts {
-                set ptype [lindex $p 0]
-                set pval [lindex $p 3]
-                if {$ptype eq "PLAIN"} {
-                    lappend runwords [lindex $p 3]
-                } elseif {$ptype eq "D:QUOTED"} {
-                    set v {"}
-                    append v $pval
-                    append v {"}
-                    lappend runwords $v
-                } elseif {$ptype eq "S:QUOTED"} {
-                    set v {'}
-                    append v $pval
-                    append v {'}
-                    lappend runwords $v
-                }
-            }
-        }
-
-        puts stdout ">>runraw runwords: $runwords"
-        set runwords [lrange $runwords 1 end]
-
-        puts stdout ">>runraw runwords: $runwords"
-        #set args [lrange $args 1 end]
-        #set runwords [lrange $wordparts 1 end]
-
-        set known_runopts [list "-echo" "-e" "-terminal" "-t"]
-        set aliases [list "-e" "-echo" "-echo" "-echo" "-t" "-terminal" "-terminal" "-terminal"] ;#include map to self
-        set runopts [list]
-        set cmdwords [list]
-        set idx_first_cmdarg [lsearch -not $runwords "-*"]
-        set runopts [lrange $runwords 0 $idx_first_cmdarg-1]
-        set cmdwords [lrange $runwords $idx_first_cmdarg end]
-
-        foreach o $runopts {
-            if {$o ni $known_runopts} {
-                error "runraw: Unknown runoption $o"
-            }
-        }
-        set runopts [lmap o $runopts {dict get $aliases $o}]
-
-        set cmd_as_string [join $cmdwords " "]
-        puts stdout ">>cmd_as_string: $cmd_as_string"
-
-        if {"-terminal" in $runopts} {
-            #fake terminal using 'script' command.
-            #not ideal: smushes stdout & stderr together amongst other problems
-            set tcmd [shellfilter::get_scriptrun_from_cmdlist_dquote_if_not $cmdwords]
-            puts stdout ">>tcmd: $tcmd"
-            set exitinfo [shellfilter::run $tcmd -teehandle punksh -inbuffering line -outbuffering none ]
-            set exitinfo "exitcode not-implemented"
-        } else {
-            set exitinfo [shellfilter::run $cmdwords -teehandle punksh -inbuffering line -outbuffering none ]
-        }
-
-        if {[dict exists $exitinfo error]} {
-            #todo - check errorInfo makes sense.. return -code? tailcall?
-            error [dict get $exitinfo error]
-        }
-        set code [dict get $exitinfo exitcode]
-        if {$code == 0} {
-            set c [a+ green]
-        } else {
-            set c [a+ white bold]
-        }
-        puts stderr $c
-        return $exitinfo
-    }
-
-    proc sh_run {args} {
-        set splitargs [get_run_opts $args]
-        set runopts [dict get $splitargs runopts]
-        set cmdargs [dict get $splitargs cmdargs]
-        #e.g sh -c "ls -l *"
-        #we pass cmdargs to sh -c as a list, not individually
-        tailcall shellrun::run {*}$runopts sh -c $cmdargs
-    }
-    proc sh_runout {args} {
-        set splitargs [get_run_opts $args]
-        set runopts [dict get $splitargs runopts]
-        set cmdargs [dict get $splitargs cmdargs]
-        tailcall shellrun::runout {*}$runopts sh -c $cmdargs
-    }
-    proc sh_runerr {args} {
-        set splitargs [get_run_opts $args]
-        set runopts [dict get $splitargs runopts]
-        set cmdargs [dict get $splitargs cmdargs]
-        tailcall shellrun::runerr {*}$runopts sh -c $cmdargs
-    }
-    proc sh_runx {args} {
-        set splitargs [get_run_opts $args]
-        set runopts [dict get $splitargs runopts]
-        set cmdargs [dict get $splitargs cmdargs]
-        tailcall shellrun::runx {*}$runopts sh -c $cmdargs
-    }
-}
-
-namespace eval shellrun {
-    interp alias {} run     {} shellrun::run
-    interp alias {} sh_run  {} shellrun::sh_run
-    interp alias {} runout  {} shellrun::runout
-    interp alias {} sh_runout  {} shellrun::sh_runout
-    interp alias {} runerr  {} shellrun::runerr
-    interp alias {} sh_runerr  {} shellrun::sh_runerr
-    interp alias {} runx    {} shellrun::runx
-    interp alias {} sh_runx  {} shellrun::sh_runx
-
-    interp alias {} runc    {} shellrun::runconsole
-    interp alias {} runraw {} shellrun::runraw
-
-
-    #the shortened versions deliberately don't get pretty output from the repl
-    interp alias {} r       {} shellrun::run
-    interp alias {} ro      {} shellrun::runout
-    interp alias {} re      {} shellrun::runerr
-    interp alias {} rx      {} shellrun::runx
-
-
-}
-
-namespace eval shellrun {
-    proc test_cffi {} {
-        package require test_cffi
-        cffi::Wrapper create ::shellrun::kernel32 [file join $env(windir) system32 Kernel32.dll]
-        ::shellrun::kernel32 stdcall CreateProcessA
-        #todo - stuff.
-        return ::shellrun::kernel32
-    }
-
-}
-namespace eval ::punk::args::register {
-    #use fully qualified so 8.6 doesn't find existing var in global namespace
-    lappend ::punk::args::register::NAMESPACES ::shellrun
-}
-
-
-package provide shellrun [namespace eval shellrun {
-    variable version
-    set version 0.1.1
-}]
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellthread-1.6.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellthread-1.6.1.tm
deleted file mode 100644
index 94f70842..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/shellthread-1.6.1.tm
+++ /dev/null
@@ -1,829 +0,0 @@
-#package require logger
-
-
-package require Thread
-
-namespace eval shellthread {
-
-  proc iso8601 {{tsmicros ""}} {
-    if {$tsmicros eq ""} {
-        set tsmicros [tcl::clock::microseconds]
-    } else {
-        set microsnow [tcl::clock::microseconds]
-        if {[tcl::string::length $tsmicros] != [tcl::string::length $microsnow]} {
-            error "iso8601 requires 'clock micros' or empty string to create timestamp"
-        }
-    }
-    set seconds [expr {$tsmicros / 1000000}]
-    return [tcl::clock::format $seconds  -format "%Y-%m-%d_%H-%M-%S"]
-  }
-}
-
-namespace eval shellthread::worker {
-    variable settings
-    variable sysloghost_port
-    variable sock
-    variable logfile ""
-    variable fd
-    variable client_ids [list]
-    variable ts_start_micros
-    variable errorlist [list]
-    variable inpipe ""
-
-    proc bgerror {args} {
-       variable errorlist
-       lappend errorlist $args
-    }
-    proc send_errors_now {tidcli} {
-      variable errorlist
-      thread::send -async $tidcli [list shellthread::manager::report_worker_errors [list worker_tid [thread::id] errors $errorlist]]
-    }
-    proc add_client_tid {tidcli} {
-      variable client_ids
-      if {$tidcli ni $client_ids} {
-        lappend client_ids $tidcli
-      }
-    }
-    proc init {tidclient start_m settingsdict} {
-        variable sysloghost_port
-        variable logfile
-        variable settings
-        interp bgerror {} shellthread::worker::bgerror
-        #package require overtype ;#overtype uses tcllib textutil, punk::char etc - currently too heavyweight in terms of loading time for use in threads.
-        variable client_ids
-        variable ts_start_micros
-        lappend client_ids $tidclient
-        set ts_start_micros $start_m
-
-        set defaults [list -raw 0 -file "" -syslog "" -direction out]
-        set settings [dict merge $defaults $settingsdict]
-
-        set syslog [dict get $settings -syslog]
-        if {[string length $syslog]} {
-            lassign [split $syslog :] s_host s_port
-            set sysloghost_port [list $s_host $s_port]
-            if {[catch {package require udp} errm]} {
-                #disable rather than bomb and interfere with any -file being written
-                #review - log/notify?
-                set sysloghost_port ""
-            }
-        } else {
-            set sysloghost_port ""
-        }
-
-        set logfile [dict get $settings -file]
-    }
-
-    proc start_pipe_read {source readchan args} {
-        #assume 1 inpipe for now
-        variable inpipe
-        variable sysloghost_port
-        variable logfile
-
-        set defaults [dict create -buffering \uFFFF ]
-        set opts [dict merge $defaults $args]
-        if {[dict exists $opts -readbuffering]} {
-            set readbuffering [dict get $opts -readbuffering]
-        } else {
-            if {[dict get $opts -buffering] eq "\uFFFF"} {
-                #get buffering setting from the channel as it was set prior to thread::transfer
-                set readbuffering [chan configure $readchan -buffering]
-            } else {
-                set readbuffering [dict get $opts -buffering]
-                chan configure $readchan -buffering $readbuffering
-            }
-        }
-        if {[dict exists $opts -writebuffering]} {
-            set writebuffering [dict get $opts -writebuffering]
-        } else {
-            if {[dict get $opts -buffering] eq "\uFFFF"} {
-                set writebuffering line
-                #set writebuffering [chan configure $writechan -buffering]
-            } else {
-                set writebuffering [dict get $opts -buffering]
-                #can configure $writechan -buffering $writebuffering
-            }
-        }
-
-        chan configure $readchan -translation lf
-
-        if {$readchan ni [chan names]} {
-            error "shellthread::worker::start_pipe_read - inpipe not configured. Use shellthread::manager::set_pipe_read_from_client to thread::transfer the pipe end"
-        }
-        set inpipe $readchan
-        chan configure $readchan -blocking 0
-        set waitvar ::shellthread::worker::wait($inpipe,[clock micros])
-
-        #tcl::chan::fifo2 based pipe seems slower to establish events upon than Memchan
-        chan event $readchan readable [list ::shellthread::worker::pipe_read $readchan $source $waitvar $readbuffering $writebuffering]
-        vwait $waitvar
-    }
-    proc pipe_read {chan source waitfor readbuffering writebuffering} {
-        if {$readbuffering eq "line"} {
-            set chunksize [chan gets $chan chunk]
-            if {$chunksize >= 0} {
-                if {![chan eof $chan]} {
-                    ::shellthread::worker::log pipe 0 - $source - info $chunk\n $writebuffering
-                } else {
-                    ::shellthread::worker::log pipe 0 - $source - info $chunk $writebuffering
-                }
-            }
-        } else {
-            set chunk [chan read $chan]
-            ::shellthread::worker::log pipe 0 - $source - info $chunk $writebuffering
-        }
-        if {[chan eof $chan]} {
-            chan event $chan readable {}
-            set $waitfor "pipe"
-            chan close $chan
-        }
-    }
-
-    proc start_pipe_write {source writechan args} {
-        variable outpipe
-        set defaults [dict create -buffering \uFFFF ]
-        set opts [dict merge $defaults $args]
-
-        #todo!
-        set readchan stdin
-
-        if {[dict exists $opts -readbuffering]} {
-            set readbuffering [dict get $opts -readbuffering]
-        } else {
-            if {[dict get $opts -buffering] eq "\uFFFF"} {
-                set readbuffering [chan configure $readchan -buffering]
-            } else {
-                set readbuffering [dict get $opts -buffering]
-                chan configure $readchan -buffering $readbuffering
-            }
-        }
-        if {[dict exists $opts -writebuffering]} {
-            set writebuffering [dict get $opts -writebuffering]
-        } else {
-            if {[dict get $opts -buffering] eq "\uFFFF"} {
-                #nothing explicitly set - take from transferred channel
-                set writebuffering [chan configure $writechan -buffering]
-            } else {
-                set writebuffering [dict get $opts -buffering]
-                can configure $writechan -buffering $writebuffering
-            }
-        }
-
-        if {$writechan ni [chan names]} {
-            error "shellthread::worker::start_pipe_write - outpipe not configured. Use shellthread::manager::set_pipe_write_to_client to thread::transfer the pipe end"
-        }
-        set outpipe $writechan
-        chan configure $readchan -blocking 0
-        chan configure $writechan -blocking 0
-        set waitvar ::shellthread::worker::wait($outpipe,[clock micros])
-
-        chan event $readchan readable [list apply {{chan writechan source waitfor readbuffering} {
-            if {$readbuffering eq "line"} {
-                set chunksize [chan gets $chan chunk]
-                if {$chunksize >= 0} {
-                    if {![chan eof $chan]} {
-                        puts $writechan $chunk
-                    } else {
-                        puts -nonewline $writechan $chunk
-                    }
-                }
-            } else {
-                set chunk [chan read $chan]
-                puts -nonewline $writechan $chunk
-            }
-            if {[chan eof $chan]} {
-                chan event $chan readable {}
-                set $waitfor "pipe"
-                chan close $writechan
-                if {$chan ne "stdin"} {
-                    chan close $chan
-                }
-            }
-        }} $readchan $writechan $source $waitvar $readbuffering]
-
-        vwait $waitvar
-    }
-
-
-    proc _initsock {} {
-      variable sysloghost_port
-      variable sock
-      if {[string length $sysloghost_port]} {
-        if {[catch {chan configure $sock} state]} {
-          set sock [udp_open]
-          chan configure $sock -buffering none -translation binary
-          chan configure $sock -remote $sysloghost_port
-        }
-      }
-    }
-    proc _reconnect {} {
-        variable sock
-        catch {close $sock}
-        _initsock
-        return [chan configure $sock]
-    }
-
-    proc send_info {client_tid ts_sent source msg} {
-        set ts_received [clock micros]
-        set lag_micros [expr {$ts_received - $ts_sent}]
-        set lag [expr {$lag_micros / 1000000.0}] ;#lag as x.xxxxxx seconds
-        log $client_tid $ts_sent $lag $source - info $msg line 1
-    }
-    proc log {client_tid ts_sent lag source service level msg writebuffering {islog 0}} {
-        variable sock
-        variable fd
-        variable sysloghost_port
-        variable logfile
-        variable settings
-
-        set logchunk $msg
-
-        if {![dict get $settings -raw]} {
-            set tail_crlf 0
-            set tail_lf 0
-            set tail_cr 0
-            #for cooked  - always remove the trailing newline  before splitting..
-            #
-            #note that if we got our data from reading a non-line-buffered binary channel - then this naive line splitting will not split neatly for mixed line-endings.
-            #
-            #Possibly not critical as cooked is for logging and we are still preserving all \r and \n chars - but review and consider implementing a better split
-            #but add it back exactly as it was afterwards
-            #we can always split on \n - and any adjacent \r will be preserved in the rejoin
-            set lastchar [string range $logchunk end end]
-            if {[string range $logchunk end-1 end] eq "\r\n"} {
-                set tail_crlf 1
-                set logchunk [string range $logchunk 0 end-2]
-            } else {
-                if {$lastchar eq "\n"} {
-                    set tail_lf 1
-                    set logchunk [string range $logchunk 0 end-1]
-                } elseif {$lastchar eq "\r"} {
-                    #\r line-endings are obsolete..and unlikely... and ugly as they can hide characters on the console. but we'll pass through anyway.
-                    set tail_cr 1
-                    set logchunk [string range $logchunk 0 end-1]
-                } else {
-                    #possibly a single line with no linefeed.. or has linefeeds only in the middle
-                }
-            }
-
-            if {$ts_sent != 0} {
-                set micros [lindex [split [expr {$ts_sent / 1000000.0}] .] end]
-                set time_info [::shellthread::iso8601 $ts_sent].$micros
-                #set time_info "${time_info}+$lag"
-                set lagfp "+[format %f $lag]"
-            } else {
-                #from pipe - no ts_sent/lag info available
-                set time_info ""
-                set lagfp ""
-            }
-
-            set idtail [string range $client_tid end-8 end] ;#enough for display purposes id - mostly zeros anyway
-
-
-            #set col0 [string repeat " " 9]
-            #set col1 [string repeat " " 27]
-            #set col2 [string repeat " " 11]
-            #set col3 [string repeat " " 22]
-            ##do not columnize the final data column or append to tail - or we could muck up the crlf integrity
-            #lassign [list [overtype::left $col0 $idtail] [overtype::left $col1 $time_info] [overtype::left $col2 $lagfp] [overtype::left $col3 $source]] c0 c1 c2 c3
-
-            set w0 9
-            set w1 27
-            set w2 11
-            set w3 22   ;#review - this can truncate source name without indication tail is missing
-            #do not columnize the final data column or append to tail - or we could muck up the crlf integrity
-            lassign [list \
-                [format %-${w0}s    $idtail]\
-                [format %-${w1}s    $time_info]\
-                [format %-${w2}s    $lagfp]\
-                [format %-${w3}s    $source]\
-            ] c0 c1 c2 c3
-            set c2_blank [string repeat " " $w2]
-
-
-            #split on \n no matter the actual line-ending in use
-            #shouldn't matter as long as we don't add anything at the end of the line other than the raw data
-            #ie - don't quote or add spaces
-            set lines [split $logchunk \n]
-
-            set i 1
-            set outlines [list]
-            foreach ln $lines {
-                if {$i == 1} {
-                    lappend outlines "$c0 $c1 $c2 $c3 $ln"
-                } else {
-                    lappend outlines "$c0 $c1 $c2_blank $c3 $ln"
-                }
-                incr i
-            }
-            if {$tail_lf} {
-                set logchunk "[join $outlines \n]\n"
-            } elseif {$tail_crlf} {
-                set logchunk "[join $outlines \r\n]\r\n"
-            } elseif {$tail_cr} {
-                set logchunk "[join $outlines \r]\r"
-            } else {
-                #no trailing linefeed
-                set logchunk [join $outlines \n]
-
-            }
-
-            #set logchunk "[overtype::left $col0 $idtail] [overtype::left $col1 $time_info] [overtype::left $col2 "+$lagfp"] [overtype::left $col3 $source] $msg"
-        }
-
-        if {[string length $sysloghost_port]} {
-            _initsock
-            catch {puts -nonewline $sock $logchunk}
-        }
-        #todo - sockets etc?
-        if {[string length $logfile]} {
-            #todo - setting to maintain open filehandle and reduce io.
-            # possible settings for buffersize - and maybe logrotation, although this could be left to client
-            #for now - default to safe option of open/close each write despite the overhead.
-            set fd [open $logfile a]
-            chan configure $fd -translation auto -buffering $writebuffering
-            #whether line buffered or not - by now our logchunk includes newlines
-            puts -nonewline $fd $logchunk
-            close $fd
-        }
-    }
-
-    # - withdraw just this client
-    proc finish {tidclient} {
-      variable client_ids
-      if {($tidclient in $clientids) && ([llength $clientids] == 1)} {
-          terminate $tidclient
-      } else {
-         set posn [lsearch $client_ids $tidclient]
-         set client_ids [lreplace $clientids $posn $posn]
-      }
-    }
-
-    #allow any client to terminate
-    proc terminate {tidclient} {
-        variable sock
-        variable fd
-        variable client_ids
-        if {$tidclient in $client_ids} {
-            catch {close $sock}
-            catch {close $fd}
-            set client_ids [list]
-            #review use of thread::release -wait
-            #docs indicate deprecated for regular use, and that we should use thread::join
-            #however.. how can we set a timeout on a thread::join ?
-            #by telling the thread to release itself - we can wait on the thread::send  variable
-            # This needs review - because it's unclear that -wait even works on self
-            # (what does it mean to wait for the target thread to exit if the target is self??)
-            thread::release -wait
-            return [thread::id]
-        } else {
-            return ""
-        }
-    }
-
-
-}
-
-
-namespace eval shellthread::manager {
-    variable workers [dict create]
-    variable worker_errors [list]
-    variable timeouts
-
-    variable free_threads [list]
-    #variable log_threads
-
-    proc dict_getdef {dictValue args} {
-        if {[llength $args] < 2} {
-            error {wrong # args: should be "dict_getdef dictValue ?key ...? key default"}
-        }
-        set keys [lrange $args 0 end-1]
-        if {[tcl::dict::exists $dictValue {*}$keys]} {
-            return [tcl::dict::get $dictValue {*}$keys]
-        } else {
-            return [lindex $args end]
-        }
-    }
-    #new datastructure regarding workers and sourcetags required.
-    #one worker can service multiple sourcetags - but each sourcetag may be used by multiple threads too.
-    #generally each thread will use a specific sourcetag - but we may have pools doing similar things which log to same destination.
-    #
-    #As a convention we may use a sourcetag for the thread which started the worker that isn't actually used for logging - but as a common target for joins
-    #If the thread which started the thread calls leave_worker with that 'primary' sourcetag it means others won't be able to use that target - which seems reasonable.
-    #If another thread want's to maintain joinability beyond the span provided by the starting client,
-    #it can join with both the primary tag and a tag it will actually use for logging.
-    #A thread can join the logger with any existingtag - not just the 'primary'
-    #(which is arbitrary anyway. It will usually be the first in the list - but may be unsubscribed by clients and disappear)
-    proc join_worker {existingtag sourcetaglist} {
-        set client_tid [thread::id]
-        #todo - allow a source to piggyback on existing worker by referencing one of the sourcetags already using the worker
-    }
-
-    proc new_pipe_worker {sourcetaglist {settingsdict {}}} {
-        if {[dict exists $settingsdict -workertype]} {
-            if {[string tolower [dict get $settingsdict -workertype]] ne "pipe"} {
-                error "new_pipe_worker error: -workertype ne 'pipe'. Set to 'pipe' or leave empty"
-            }
-        }
-        dict set settingsdict -workertype pipe
-        new_worker $sourcetaglist $settingsdict
-    }
-
-    #it is up to caller to use a unique sourcetag (e.g by prefixing with own thread::id etc)
-    # This allows multiple threads to more easily write to the same named sourcetag if necessary
-    # todo - change sourcetag for a list of tags which will be handled by the same thread. e.g for multiple threads logging to same file
-    #
-    # todo - some protection mechanism for case where target is a file to stop creation of multiple worker threads writing to same file.
-    # Even if we use open fd,close fd wrapped around writes.. it is probably undesirable to have multiple threads with same target
-    # On the other hand socket targets such as UDP can happily be written to by multiple threads.
-    # For now the mechanism is that a call to new_worker (rename to open_worker?) will join the same thread if a sourcetag matches.
-    # but, as sourcetags can get removed(unsubbed via leave_worker) this doesn't guarantee two threads with same -file settings won't fight.
-    # Also.. the settingsdict is ignored when joining with a tag that exists.. this is problematic.. e.g logrotation where previous file still being written by existing worker
-    # todo - rename 'sourcetag' concept to 'targettag' ?? the concept is a mixture of both.. it is somewhat analagous to a syslog 'facility'
-    # probably new_worker should disallow auto-joining and we allow different workers to handle same tags simultaneously to support overlap during logrotation etc.
-    proc new_worker {sourcetaglist {settingsdict {}}} {
-        variable workers
-        set ts_start [clock micros]
-        set tidclient [thread::id]
-        set sourcetag [lindex $sourcetaglist 0] ;#todo - use all
-
-        set defaults [dict create\
-            -workertype message\
-        ]
-        set settingsdict [dict merge $defaults $settingsdict]
-
-        set workertype [string tolower [dict get $settingsdict -workertype]]
-        set known_workertypes [list pipe message]
-        if {$workertype ni $known_workertypes} {
-            error "new_worker - unknown -workertype $workertype. Expected one of '$known_workertypes'"
-        }
-
-        if {[dict exists $workers $sourcetag]} {
-           set winfo [dict get $workers $sourcetag]
-           if {[dict get $winfo tid] ne "noop" && [thread::exists [dict get $winfo tid]]} {
-              #add our client-info to existing worker thread
-              dict lappend winfo list_client_tids $tidclient
-              dict set workers $sourcetag $winfo  ;#writeback
-              return [dict get $winfo tid]
-           }
-        }
-
-        #noop fake worker for empty syslog and empty file
-        if {$workertype eq "message"} {
-            if {[dict_getdef $settingsdict -syslog ""] eq "" && [dict_getdef $settingsdict -file ""] eq ""} {
-                set winfo [dict create tid noop list_client_tids [list $tidclient] ts_start $ts_start ts_end_list [list] workertype "message"]
-                dict set workers $sourcetag $winfo
-                return noop
-            }
-        }
-
-        #check if there is an existing unsubscribed thread first
-        #don't use free_threads for pipe workertype for now..
-        variable free_threads
-        if {$workertype ne "pipe"} {
-            if {[llength $free_threads]} {
-                #todo - re-use from tail - as most likely to have been doing similar work?? review
-
-                set free_threads [lassign $free_threads tidworker]
-                #todo - keep track of real ts_start of free threads... kill when too old
-                set winfo [dict create tid $tidworker list_client_tids [list $tidclient] ts_start $ts_start ts_end_list [list] workertype [dict get $settingsdict -workertype]]
-                #puts stderr "shellfilter::new_worker Re-using free worker thread: $tidworker with tag $sourcetag"
-                dict set workers $sourcetag $winfo
-                return $tidworker
-            }
-        }
-
-
-        #set ts_start [::shellthread::iso8601]
-        set tidworker [thread::create -preserved]
-        set init_script [string map [list %ts_start% $ts_start %mp% [tcl::tm::list] %ap% $::auto_path %tidcli% $tidclient %sd% $settingsdict] {
-            #set tclbase [file dirname [file dirname [info nameofexecutable]]]
-            #set tcllib $tclbase/lib
-            #if {$tcllib ni $::auto_path} {
-            #    lappend ::auto_path $tcllib
-            #}
-
-            set ::settingsinfo [dict create %sd%]
-            #if the executable running things is something like a tclkit,
-            # then it's likely we will need to use the caller's auto_path and tcl::tm::list to find things
-            #The caller can tune the thread's package search by providing a settingsdict
-            #tcl::tm::add * must add in reverse order to get reulting list in same order as original
-            if {![dict exists $::settingsinfo tcl_tm_list]} {
-                #JMN2
-                ::tcl::tm::add {*}[lreverse [list %mp%]]
-            } else {
-                tcl::tm::remove {*}[tcl::tm::list]
-                ::tcl::tm::add {*}[lreverse [dict get $::settingsinfo tcl_tm_list]]
-            }
-            if {![dict exists $::settingsinfo auto_path]} {
-                set ::auto_path [list %ap%]
-            } else {
-                set ::auto_path [dict get $::settingsinfo auto_path]
-            }
-
-            package require punk::packagepreference
-            punk::packagepreference::install
-
-            package require Thread
-            package require shellthread
-            if {![catch {::shellthread::worker::init %tidcli% %ts_start% $::settingsinfo} errmsg]} {
-              unset ::settingsinfo
-              set ::shellthread_init "ok"
-            } else {
-              unset ::settingsinfo
-              set ::shellthread_init "err $errmsg"
-            }
-        }]
-
-        thread::send -async $tidworker $init_script
-        #thread::send $tidworker $init_script
-        set winfo [dict create tid $tidworker list_client_tids [list $tidclient] ts_start $ts_start ts_end_list [list]]
-        dict set workers $sourcetag $winfo
-        return $tidworker
-    }
-
-    proc set_pipe_read_from_client {tag_pipename worker_tid rchan args} {
-        variable workers
-        if {![dict exists $workers $tag_pipename]} {
-            error "workerthread::manager::set_pipe_read_from_client source/pipename $tag_pipename not found"
-        }
-        set match_worker_tid [dict get $workers $tag_pipename tid]
-        if {$worker_tid ne $match_worker_tid} {
-            error "workerthread::manager::set_pipe_read_from_client source/pipename $tag_pipename workert_tid mismatch '$worker_tid' vs existing:'$match_worker_tid'"
-        }
-        #buffering set during channel creation will be preserved on thread::transfer
-        thread::transfer $worker_tid $rchan
-        #start_pipe_read will vwait - so we have to send async
-        thread::send -async $worker_tid [list ::shellthread::worker::start_pipe_read $tag_pipename $rchan]
-        #client may start writing immediately - but presumably it will buffer in fifo2
-    }
-
-    proc set_pipe_write_to_client {tag_pipename worker_tid wchan args} {
-        variable workers
-        if {![dict exists $workers $tag_pipename]} {
-            error "workerthread::manager::set_pipe_write_to_client pipename $tag_pipename not found"
-        }
-        set match_worker_tid [dict get $workers $tag_pipename tid]
-        if {$worker_tid ne $match_worker_tid} {
-            error "workerthread::manager::set_pipe_write_to_client pipename $tag_pipename workert_tid mismatch '$worker_tid' vs existing:'$match_worker_tid'"
-        }
-        #buffering set during channel creation will be preserved on thread::transfer
-        thread::transfer $worker_tid $wchan
-        thread::send -async $worker_tid [list ::shellthread::worker::start_pipe_write $tag_pipename $wchan]
-    }
-
-    proc write_log {source msg args} {
-        variable workers
-        set ts_micros_sent [clock micros]
-        set defaults [list -async 1 -level info]
-        set opts [dict merge $defaults $args]
-
-        if {[dict exists $workers $source]} {
-            set tidworker [dict get $workers $source tid]
-            if {$tidworker eq "noop"} {
-                return
-            }
-            if {![thread::exists $tidworker]} {
-                # -syslog -file ?
-                set tidworker [new_worker $source]
-            }
-        } else {
-            #auto create with no requirement to call new_worker.. warn?
-            # -syslog -file ?
-            error "write_log no log opened for source: $source"
-            set tidworker [new_worker $source]
-        }
-        set client_tid [thread::id]
-        if {[dict get $opts -async]} {
-            thread::send -async $tidworker [list ::shellthread::worker::send_info $client_tid $ts_micros_sent $source $msg]
-        } else {
-            thread::send $tidworker [list ::shellthread::worker::send_info $client_tid $ts_micros_sent $source $msg]
-        }
-    }
-    proc report_worker_errors {errdict} {
-       variable workers
-       set reporting_tid [dict get $errdict worker_tid]
-       dict for {src srcinfo} $workers {
-          if {[dict get $srcinfo tid] eq $reporting_tid} {
-            dict set srcinfo errors [dict get $errdict errors]
-            dict set workers $src $srcinfo ;#writeback updated
-            break
-          }
-       }
-    }
-
-    #aka leave_worker
-    #Note that the tags may be on separate workertids, or some tags may share workertids
-    proc unsubscribe {sourcetaglist} {
-        variable workers
-        #workers structure example:
-        #[list sourcetag1 [list tid <tidworker> list_client_tids <clients>] ts_start <ts_start> ts_end_list {}]
-        variable free_threads
-        set mytid [thread::id] ;#caller of shellthread::manager::xxx is the client thread
-
-        set subscriberless_tags [list]
-        foreach source $sourcetaglist {
-            if {[dict exists $workers $source]} {
-                set list_client_tids [dict get $workers $source list_client_tids]
-                if {[set posn [lsearch $list_client_tids $mytid]] >= 0} {
-                    set list_client_tids [lreplace $list_client_tids $posn $posn]
-                    dict set workers $source list_client_tids $list_client_tids
-                }
-                if {![llength $list_client_tids]} {
-                    lappend subscriberless_tags $source
-                }
-            }
-        }
-
-        #we've removed our own tid from all the tags - possibly across multiplew workertids, and possibly leaving some workertids with no subscribers for a particular tag - or no subscribers at all.
-
-        set subscriberless_workers [list]
-        set shuttingdown_workers [list]
-        foreach deadtag $subscriberless_tags {
-            set workertid [dict get $workers $deadtag tid]
-            set worker_tags [get_worker_tagstate $workertid]
-            set subscriber_count 0
-            set kill_count 0 ;#number of ts_end_list entries - even one indicates thread is doomed
-            foreach taginfo $worker_tags {
-                incr subscriber_count [llength [dict get $taginfo list_client_tids]]
-                incr kill_count [llength [dict get $taginfo ts_end_list]]
-            }
-            if {$subscriber_count == 0} {
-                lappend subscriberless_workers $workertid
-            }
-            if {$kill_count > 0} {
-                lappend shuttingdown_workers $workertid
-            }
-        }
-
-        #if worker isn't shutting down - add it to free_threads list
-        foreach workertid $subscriberless_workers {
-            if {$workertid ni $shuttingdown_workers} {
-                if {$workertid ni $free_threads && $workertid ne "noop"} {
-                    lappend free_threads $workertid
-                }
-            }
-        }
-
-        #todo
-        #unsub this client_tid from the sourcetags in the sourcetaglist. if no more client_tids exist for sourcetag, remove sourcetag,
-        #if no more sourcetags - add worker to free_threads
-    }
-    proc get_worker_tagstate {workertid} {
-        variable workers
-        set taginfo_list [list]
-        dict for {source sourceinfo} $workers {
-            if {[dict get $sourceinfo tid] eq $workertid} {
-                lappend taginfo_list $sourceinfo
-            }
-        }
-        return $taginfo_list
-    }
-
-    #finalisation
-    proc shutdown_free_threads {{timeout 2500}} {
-        variable free_threads
-        if {![llength $free_threads]} {
-            return
-        }
-        upvar ::shellthread::manager::timeouts timeoutarr
-        if {[info exists timeoutarr(shutdown_free_threads)]} {
-            #already called
-            return false
-        }
-        #set timeoutarr(shutdown_free_threads) waiting
-        #after $timeout  [list set timeoutarr(shutdown_free_threads) timed-out]
-        set ::shellthread::waitfor waiting
-        #after $timeout [list set ::shellthread::waitfor]
-        #2025-07 timed-out untested review
-        set cancelid [after $timeout [list set ::shellthread::waitfor timed-out]]
-
-        set waiting_for [list]
-        set ended [list]
-        set timedout 0
-        foreach tid $free_threads {
-            if {[thread::exists $tid]} {
-                lappend waiting_for $tid
-                #thread::send -async $tid [list shellthread::worker::terminate [thread::id]] timeoutarr(shutdown_free_threads)
-                thread::send -async $tid [list shellthread::worker::terminate [thread::id]] ::shellthread::waitfor
-            }
-        }
-        if {[llength $waiting_for]} {
-            for {set i 0} {$i < [llength $waiting_for]} {incr i} {
-                vwait ::shellthread::waitfor
-                if {$::shellthread::waitfor eq "timed-out"} {
-                    set timedout 1
-                    break
-                } else {
-                    after cancel $cancelid
-                    lappend ended $::shellthread::waitfor
-                }
-            }
-        }
-        set free_threads [list]
-        return [dict create existed $waiting_for ended $ended timedout $timedout]
-    }
-
-    #TODO - important.
-    #REVIEW!
-    #since moving to the unsubscribe mechansm -  close_worker $source isn't being called
-    # - we need to set a limit to the number of free threads and shut down excess when detected during unsubscription
-    #instruction to shut-down the thread that has this source.
-    #instruction to shut-down the thread that has this source.
-    proc close_worker {source {timeout 2500}} {
-        variable workers
-        variable worker_errors
-        variable free_threads
-        upvar ::shellthread::manager::timeouts timeoutarr
-        set ts_now [clock micros]
-        #puts stderr "close_worker $source"
-        if {[dict exists $workers $source]} {
-            set tidworker [dict get $workers $source tid]
-            if {$tidworker in $freethreads} {
-                #make sure a thread that is being closed is removed from the free_threads list
-                set posn [lsearch $freethreads $tidworker]
-                set freethreads [lreplace $freethreads $posn $posn]
-            }
-            set mytid [thread::id]
-            set client_tids [dict get $workers $source list_client_tids]
-            if {[set posn [lsearch $client_tids $mytid]] >= 0} {
-                set client_tids [lreplace $client_tids $posn $posn]
-                #remove self from list of clients
-                dict set workers $source list_client_tids $client_tids
-            }
-            set ts_end_list [dict get $workers $source ts_end_list] ;#ts_end_list is just  a list of timestamps of closing calls for this source - only one is needed to close, but they may all come in a flurry.
-            if {[llength $ts_end_list]} {
-              set last_end_ts [lindex $ts_end_list end]
-              if {(($tsnow - $last_end_ts) / 1000) >= $timeout} {
-                lappend ts_end_list $ts_now
-                dict set workers $source ts_end_list $ts_end_list
-              } else {
-                #existing close in progress.. assume it will work
-                return
-              }
-            }
-
-            if {[thread::exists $tidworker]} {
-                #puts stderr "shellthread::manager::close_worker: thread $tidworker for source $source still running.. terminating"
-
-                #review - timeoutarr is local var  (?)
-                set timeoutarr($source) 0
-                after $timeout  [list set timeoutarr($source) 2]
-
-                thread::send -async $tidworker [list shellthread::worker::send_errors_now [thread::id]]
-                thread::send -async $tidworker [list shellthread::worker::terminate [thread::id]] timeoutarr($source)
-
-                #thread::send -async $tidworker [string map [list %tidclient% [thread::id]] {
-                #    shellthread::worker::terminate %tidclient%
-                #}] timeoutarr($source)
-
-                vwait timeoutarr($source)
-                #puts stderr "shellthread::manager::close_worker: thread $tidworker for source $source DONE1"
-
-                thread::release $tidworker
-                #puts stderr "shellthread::manager::close_worker: thread $tidworker for source $source DONE2"
-                if {[dict exists $workers $source errors]} {
-                    set errlist [dict get $workers $source errors]
-                    if {[llength $errlist]} {
-                        lappend worker_errors [list $source [dict get $workers $source]]
-                    }
-                }
-                dict unset workers $source
-            } else {
-                #thread may have been closed by call to close_worker with another source with same worker
-                #clear workers record for this source
-                #REVIEW - race condition for re-creation of source with new workerid?
-                #check that record is subscriberless to avoid this
-                if {[llength [dict get $workers $source list_client_tids]] == 0} {
-                    dict unset workers $source
-                }
-            }
-        }
-        #puts stdout "close_worker $source - end"
-    }
-
-    #worker errors only available for a source after close_worker called on that source
-    #It is possible for there to be multiple entries for a source because new_worker can be called multiple times with same sourcetag,
-    proc get_and_clear_errors {source} {
-      variable worker_errors
-      set source_errors [lsearch -all -inline -index 0        $worker_errors $source]
-      set worker_errors [lsearch -all -inline -index 0 -not   $worker_errors $source]
-      return $source_errors
-    }
-
-
-}
-
-package provide shellthread [namespace eval shellthread {
-  variable version
-  set version 1.6.1
-}]
-
-
-
-
-
-
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/smtp-1.5.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/smtp-1.5.1.tm
deleted file mode 100644
index f0d93f7b..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/smtp-1.5.1.tm
+++ /dev/null
@@ -1,1508 +0,0 @@
-# smtp.tcl - SMTP client
-#
-# Copyright (c) 1999-2000 Marshall T. Rose
-# Copyright (c) 2003-2006 Pat Thoyts
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-
-package require Tcl 8.3
-package require mime 1.4.1
-
-catch {
-    package require SASL 1.0;           # tcllib 1.8
-    package require SASL::NTLM 1.0;     # tcllib 1.8
-}
-
-#
-# state variables:
-#
-#    sd: socket to server
-#    afterID: afterID associated with ::smtp::timer
-#    options: array of user-supplied options
-#    readable: semaphore for vwait
-#    addrs: number of recipients negotiated
-#    error: error during read
-#    line: response read from server
-#    crP: just put a \r in the data
-#    nlP: just put a \n in the data
-#    size: number of octets sent in DATA
-#
-
-namespace eval ::smtp {
-    variable  trf 1
-    variable  smtp
-    array set smtp { uid 0 }
-
-    namespace export sendmessage
-}
-
-if {[catch {package require Trf  2.0}]} {
-    # Trf is not available, but we can live without it as long as the
-    # transform and unstack procs are defined.
-
-    # Warning!
-    # This is a fragile emulation of the more general calling sequence
-    # that appears to work with this code here.
-
-    proc transform {args} {
-	upvar state mystate
-	set mystate(size) 1
-    }
-    proc unstack {channel} {
-        # do nothing
-        return
-    }
-    set ::smtp::trf 0
-}
-
-
-# ::smtp::sendmessage --
-#
-#	Sends a mime object (containing a message) to some recipients
-#
-# Arguments:
-#	part  The MIME object containing the message to send
-#       args  A list of arguments specifying various options for sending the
-#             message:
-#             -atleastone  A boolean specifying whether or not to send the
-#                          message at all if any of the recipients are
-#                          invalid.  A value of false (as defined by
-#                          ::smtp::boolean) means that ALL recipients must be
-#                          valid in order to send the message.  A value of
-#                          true means that as long as at least one recipient
-#                          is valid, the message will be sent.
-#             -debug       A boolean specifying whether or not debugging is
-#                          on.  If debugging is enabled, status messages are
-#                          printed to stderr while trying to send mail.
-#             -queue       A boolean specifying whether or not the message
-#                          being sent should be queued for later delivery.
-#             -header      A single RFC 822 header key and value (as a list),
-#                          used to specify to whom to send the message
-#                          (To, Cc, Bcc), the "From", etc.
-#             -originator  The originator of the message (equivalent to
-#                          specifying a From header).
-#             -recipients  A string containing recipient e-mail addresses.
-#                          NOTE: This option overrides any recipient addresses
-#                          specified with -header.
-#             -servers     A list of mail servers that could process the
-#                          request.
-#             -ports       A list of SMTP ports to use for each SMTP server
-#                          specified
-#             -client      The string to use as our host name for EHLO or HELO
-#                          This defaults to 'localhost' or [info hostname]
-#             -maxsecs     Maximum number of seconds to allow the SMTP server
-#                          to accept the message. If not specified, the default
-#                          is 120 seconds.
-#             -usetls      A boolean flag. If the server supports it and we
-#                          have the package, use TLS to secure the connection.
-#             -tlspolicy   A command to call if the TLS negotiation fails for
-#                          some reason. Return 'insecure' to continue with
-#                          normal SMTP or 'secure' to close the connection and
-#                          try another server.
-#             -tlsimport   after a succesfull socket command, import tls on
-#                          channel - used for native smtps negotiation
-#             -username    These are needed if your SMTP server requires
-#             -password    authentication.
-#
-# Results:
-#	Message is sent.  On success, return "".  On failure, throw an
-#       exception with an error code and error message.
-
-proc ::smtp::sendmessage {part args} {
-    global errorCode errorInfo
-
-    # Here are the meanings of the following boolean variables:
-    # aloP -- value of -atleastone option above.
-    # debugP -- value of -debug option above.
-    # origP -- 1 if -originator option was specified, 0 otherwise.
-    # queueP -- value of -queue option above.
-
-    set aloP 0
-    set debugP 0
-    set origP 0
-    set queueP 0
-    set maxsecs 120
-    set originator ""
-    set recipients ""
-    set servers [list localhost]
-    set client "" ;# default is set after options processing
-    set ports [list 25]
-    set tlsP 1
-    set tlspolicy {}
-    set tlsimport 0
-    set username {}
-    set password {}
-
-    array set header ""
-
-    # lowerL will contain the list of header keys (converted to lower case)
-    # specified with various -header options.  mixedL is the mixed-case version
-    # of the list.
-    set lowerL ""
-    set mixedL ""
-
-    # Parse options (args).
-
-    if {[expr {[llength $args]%2}]} {
-        # Some option didn't get a value.
-        error "Each option must have a value!  Invalid option list: $args"
-    }
-
-    foreach {option value} $args {
-        switch -- $option {
-            -atleastone {set aloP   [boolean $value]}
-            -debug      {set debugP [boolean $value]}
-            -queue      {set queueP [boolean $value]}
-            -usetls     {set tlsP   [boolean $value]}
-            -tlspolicy  {set tlspolicy $value}
-            -tlsimport  {set tlsimport [boolean $value]}
-	    -maxsecs    {set maxsecs [expr {$value < 0 ? 0 : $value}]}
-            -header {
-                if {[llength $value] != 2} {
-                    error "-header expects a key and a value, not $value"
-                }
-                set mixed [lindex $value 0]
-                set lower [string tolower $mixed]
-                set disallowedHdrList \
-                    [list content-type \
-                          content-transfer-encoding \
-                          content-md5 \
-                          mime-version]
-                if {[lsearch -exact $disallowedHdrList $lower] > -1} {
-                    error "Content-Type, Content-Transfer-Encoding,\
-                        Content-MD5, and MIME-Version cannot be user-specified."
-                }
-                if {[lsearch -exact $lowerL $lower] < 0} {
-                    lappend lowerL $lower
-                    lappend mixedL $mixed
-                }
-
-                lappend header($lower) [lindex $value 1]
-            }
-
-            -originator {
-                set originator $value
-                if {$originator == ""} {
-                    set origP 1
-                }
-            }
-
-            -recipients {
-                set recipients $value
-            }
-
-            -servers {
-                set servers $value
-            }
-
-            -client {
-                set client $value
-            }
-
-            -ports {
-                set ports $value
-            }
-
-            -username { set username $value }
-            -password { set password $value }
-
-            default {
-                error "unknown option $option"
-            }
-        }
-    }
-
-    if {[lsearch -glob $lowerL resent-*] >= 0} {
-        set prefixL resent-
-        set prefixM Resent-
-    } else {
-        set prefixL ""
-        set prefixM ""
-    }
-
-    # Set a bunch of variables whose value will be the real header to be used
-    # in the outbound message (with proper case and prefix).
-
-    foreach mixed {From Sender To cc Dcc Bcc Date Message-ID} {
-        set lower [string tolower $mixed]
-	# FRINK: nocheck
-        set ${lower}L $prefixL$lower
-	# FRINK: nocheck
-        set ${lower}M $prefixM$mixed
-    }
-
-    if {$origP} {
-        # -originator was specified with "", so SMTP sender should be marked "".
-        set sender ""
-    } else {
-        # -originator was specified with a value, OR -originator wasn't
-        # specified at all.
-
-        # If no -originator was provided, get the originator from the "From"
-        # header.  If there was no "From" header get it from the username
-        # executing the script.
-
-        set who "-originator"
-        if {$originator == ""} {
-            if {![info exists header($fromL)]} {
-                set originator $::tcl_platform(user)
-            } else {
-                set originator [join $header($fromL) ,]
-
-                # Indicate that we're using the From header for the originator.
-
-                set who $fromM
-            }
-        }
-
-	# If there's no "From" header, create a From header with the value
-	# of -originator as the value.
-
-        if {[lsearch -exact $lowerL $fromL] < 0} {
-            lappend lowerL $fromL
-            lappend mixedL $fromM
-            lappend header($fromL) $originator
-        }
-
-	# ::mime::parseaddress returns a list whose elements are huge key-value
-	# lists with info about the addresses.  In this case, we only want one
-	# originator, so we want the length of the main list to be 1.
-
-        set addrs [::mime::parseaddress $originator]
-        if {[llength $addrs] > 1} {
-            error "too many mailboxes in $who: $originator"
-        }
-        array set aprops {error "invalid address \"$from\""}
-        array set aprops [lindex $addrs 0]
-        if {$aprops(error) != ""} {
-            error "error in $who: $aprops(error)"
-        }
-
-	# sender = validated originator or the value of the From header.
-
-        set sender $aprops(address)
-
-	# If no Sender header has been specified and From is different from
-	# originator, then set the sender header to the From.  Otherwise, don't
-	# specify a Sender header.
-        set from [join $header($fromL) ,]
-        if {[lsearch -exact $lowerL $senderL] < 0 && \
-                [string compare $originator $from]} {
-            if {[info exists aprops]} {
-                unset aprops
-            }
-            array set aprops {error "invalid address \"$from\""}
-            array set aprops [lindex [::mime::parseaddress $from] 0]
-            if {$aprops(error) != ""} {
-                error "error in $fromM: $aprops(error)"
-            }
-            if {[string compare $aprops(address) $sender]} {
-                lappend lowerL $senderL
-                lappend mixedL $senderM
-                lappend header($senderL) $aprops(address)
-            }
-        }
-    }
-
-    # We're done parsing the arguments.
-
-    if {$recipients != ""} {
-        set who -recipients
-    } elseif {![info exists header($toL)]} {
-        error "need -header \"$toM ...\""
-    } else {
-        set recipients [join $header($toL) ,]
-	# Add Cc values to recipients list
-	set who $toM
-        if {[info exists header($ccL)]} {
-            append recipients ,[join $header($ccL) ,]
-            append who /$ccM
-        }
-
-        set dccInd [lsearch -exact $lowerL $dccL]
-        if {$dccInd >= 0} {
-	    # Add Dcc values to recipients list, and get rid of Dcc header
-	    # since we don't want to output that.
-            append recipients ,[join $header($dccL) ,]
-            append who /$dccM
-
-            unset header($dccL)
-            set lowerL [lreplace $lowerL $dccInd $dccInd]
-            set mixedL [lreplace $mixedL $dccInd $dccInd]
-        }
-    }
-
-    set brecipients ""
-    set bccInd [lsearch -exact $lowerL $bccL]
-    if {$bccInd >= 0} {
-        set bccP 1
-
-	# Build valid bcc list and remove bcc element of header array (so that
-	# bcc info won't be sent with mail).
-        foreach addr [::mime::parseaddress [join $header($bccL) ,]] {
-            if {[info exists aprops]} {
-                unset aprops
-            }
-            array set aprops {error "invalid address \"$from\""}
-            array set aprops $addr
-            if {$aprops(error) != ""} {
-                error "error in $bccM: $aprops(error)"
-            }
-            lappend brecipients $aprops(address)
-        }
-
-        unset header($bccL)
-        set lowerL [lreplace $lowerL $bccInd $bccInd]
-        set mixedL [lreplace $mixedL $bccInd $bccInd]
-    } else {
-        set bccP 0
-    }
-
-    # If there are no To headers, add "" to bcc list.  WHY??
-    if {[lsearch -exact $lowerL $toL] < 0} {
-        lappend lowerL $bccL
-        lappend mixedL $bccM
-        lappend header($bccL) ""
-    }
-
-    # Construct valid recipients list from recipients list.
-
-    set vrecipients ""
-    foreach addr [::mime::parseaddress $recipients] {
-        if {[info exists aprops]} {
-            unset aprops
-        }
-        array set aprops {error "invalid address \"$from\""}
-        array set aprops $addr
-        if {$aprops(error) != ""} {
-            error "error in $who: $aprops(error)"
-        }
-        lappend vrecipients $aprops(address)
-    }
-
-    # If there's no date header, get the date from the mime message.  Same for
-    # the message-id.
-
-    if {([lsearch -exact $lowerL $dateL] < 0) \
-            && ([catch {::mime::getheader $part $dateL}])} {
-        lappend lowerL $dateL
-        lappend mixedL $dateM
-        lappend header($dateL) [::mime::parsedatetime -now proper]
-    }
-
-    if {([lsearch -exact $lowerL ${message-idL}] < 0) \
-            && ([catch {::mime::getheader $part ${message-idL}}])} {
-        lappend lowerL ${message-idL}
-        lappend mixedL ${message-idM}
-        lappend header(${message-idL}) [::mime::uniqueID]
-
-    }
-
-	set origheaders {}
-	set orignames [join [lmap name [::mime::getheader $part -names] {
-		list [string tolower $name] $name
-	}]]
-
-    # Take all the headers defined earlier and add them to the MIME message.
-    foreach lower $lowerL mixed $mixedL {
-        foreach value $header($lower) {
-			if {![dict exists $origheaders $lower]} {
-				if {![catch {::mime::getheader $part $lower} cres]} {
-					dict set origheaderx $lower $cres
-				}
-			}
-            ::mime::setheader $part $mixed $value -mode append
-        }
-    }
-
-    if {[string length $client] < 1} {
-        if {![string compare $servers localhost]} {
-            set client localhost
-        } else {
-            set client [info hostname]
-        }
-    }
-
-    # Create smtp token, which essentially means begin talking to the SMTP
-    # server.
-    set token [initialize -debug $debugP -client $client \
-		                -maxsecs $maxsecs -usetls $tlsP \
-                                -multiple $bccP -queue $queueP \
-                                -servers $servers -ports $ports \
-                                -tlspolicy $tlspolicy -tlsimport $tlsimport \
-                                -username $username -password $password]
-
-    if {![string match "::smtp::*" $token]} {
-	# An error occurred and $token contains the error info
-	array set respArr $token
-	return -code error $respArr(diagnostic)
-    }
-
-    set code [catch { sendmessageaux $token $part \
-                                           $sender $vrecipients $aloP } \
-                    cres copts]
-
-    # Send the message to bcc recipients as a MIME attachment.
-
-    if {($code == 0) && ($bccP)} {
-        set inner [::mime::initialize -canonical message/rfc822 \
-                                    -header [list Content-Description \
-                                                  "Original Message"] \
-                                    -parts [list $part]]
-
-        set subject "\[$bccM\]"
-        if {[info exists header(subject)]} {
-            append subject " " [lindex $header(subject) 0]
-        }
-
-        set outer [::mime::initialize \
-                         -canonical multipart/digest \
-                         -header [list From $originator] \
-                         -header [list Bcc ""] \
-                         -header [list Date \
-                                       [::mime::parsedatetime -now proper]] \
-                         -header [list Subject $subject] \
-                         -header [list Message-ID [::mime::uniqueID]] \
-                         -header [list Content-Description \
-                                       "Blind Carbon Copy"] \
-                         -parts [list $inner]]
-
-
-        set code [catch { sendmessageaux $token $outer \
-                                               $sender $brecipients \
-                                               $aloP } cres2 copts2]
-        if {$code == 0} {
-            append cres $cres2
-        } 
-
-        catch { ::mime::finalize $inner -subordinates none }
-        catch { ::mime::finalize $outer -subordinates none }
-    }
-
-    # Determine if there was any error in prior operations and set errorcodes
-    # and error messages appropriately.
-
-    switch -- $code {
-        0 {
-            set status orderly
-        }
-        default {
-            set status abort
-        }
-    }
-
-    # Destroy SMTP token 'cause we're done with it.
-    catch { finalize $token -close $status }
-
-	# Restore provided MIME object to original state (without the SMTP
-	# headers).  To avoid an incorect attempt to set a read-only header like
-	# "Content-Type', the only original headers that were saved were those that
-	# were later modified.
-	foreach {key value} $origheaders {
-		mime::setheader $part $key {} -mode delete
-		::mime::setheader $part [dict get orignames $key] $value -mode append
-	}
-
-    return -options $copts $cres
-}
-
-# ::smtp::sendmessageaux --
-#
-#	Sends a mime object (containing a message) to some recipients using an
-#       existing SMTP token.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#	part        The MIME object containing the message to send.
-#       originator  The e-mail address of the entity sending the message,
-#                   usually the From clause.
-#       recipients  List of e-mail addresses to whom message will be sent.
-#       aloP        Boolean "atleastone" setting; see the -atleastone option
-#                   in ::smtp::sendmessage for details.
-#
-# Results:
-#	Message is sent.  On success, return "".  On failure, throw an
-#       exception with an error code and error message.
-
-proc ::smtp::sendmessageaux {token part originator recipients aloP} {
-    global errorCode errorInfo
-
-    winit $token $part $originator
-
-    set goodP 0
-    set badP 0
-    set oops ""
-    foreach recipient $recipients {
-        set code [catch { waddr $token $recipient } result]
-        set ecode $errorCode
-        set einfo $errorInfo
-
-        switch -- $code {
-            0 {
-                incr goodP
-            }
-
-            7 {
-                incr badP
-
-                array set response $result
-                lappend oops [list $recipient $response(code) \
-                                   $response(diagnostic)]
-            }
-
-            default {
-                return -code $code -errorinfo $einfo -errorcode $ecode $result
-            }
-        }
-    }
-
-    if {($goodP) && ((!$badP) || ($aloP))} {
-        wtext $token $part
-    } else {
-        catch { talk $token 300 RSET }
-    }
-
-    return $oops
-}
-
-# ::smtp::initialize --
-#
-#	Create an SMTP token and open a connection to the SMTP server.
-#
-# Arguments:
-#       args  A list of arguments specifying various options for sending the
-#             message:
-#             -debug       A boolean specifying whether or not debugging is
-#                          on.  If debugging is enabled, status messages are
-#                          printed to stderr while trying to send mail.
-#             -client      Either localhost or the name of the local host.
-#             -multiple    Multiple messages will be sent using this token.
-#             -queue       A boolean specifying whether or not the message
-#                          being sent should be queued for later delivery.
-#             -servers     A list of mail servers that could process the
-#                          request.
-#             -ports       A list of ports on mail servers that could process
-#                          the request (one port per server-- defaults to 25).
-#             -usetls      A boolean to indicate we will use TLS if possible.
-#             -tlspolicy   Command called if TLS setup fails.
-#             -tlsimport   after a succesfull socket command, import tls on
-#                          channel - used for native smtps negotiation
-#             -username    These provide the authentication information
-#             -password    to be used if needed by the SMTP server.
-#
-# Results:
-#	On success, return an smtp token.  On failure, throw
-#       an exception with an error code and error message.
-
-proc ::smtp::initialize {args} {
-    global errorCode errorInfo
-
-    variable smtp
-
-    set token [namespace current]::[incr smtp(uid)]
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set state [list afterID "" options "" readable 0]
-    array set options [list -debug 0 -client localhost -multiple 1 \
-                            -maxsecs 120 -queue 0 -servers localhost \
-                            -ports 25 -usetls 1 -tlspolicy {} \
-                            -tlsimport 0 \
-                            -username {} -password {}]
-    array set options $args
-    set state(options) [array get options]
-
-    # Iterate through servers until one accepts a connection (and responds
-    # nicely).
-
-    foreach server $options(-servers) port $options(-ports) {
-        if {$server == ""} continue
-
-	set state(readable) 0
-        if {$port == ""} { set port 25 }
-
-        if {$options(-debug)} {
-            puts stderr "Trying $server..."
-            flush stderr
-        }
-
-        if {[info exists state(sd)]} {
-            unset state(sd)
-        }
-
-        if {[set code [catch {
-            set state(sd) [socket -async $server $port]
-            if { $options(-tlsimport) } {
-                package require tls
-                tls::import $state(sd)
-            }
-            fconfigure $state(sd) -blocking off -translation binary
-            fileevent $state(sd) readable [list ::smtp::readable $token]
-        } result]]} {
-            set ecode $errorCode
-            set einfo $errorInfo
-
-            catch { close $state(sd) }
-            continue
-        }
-
-        if {[set code [catch { hear $token 600 } result]]} {
-            array set response [list code 400 diagnostic $result]
-        } else {
-            array set response $result
-        }
-        set ecode $errorCode
-        set einfo $errorInfo
-        switch -- $response(code) {
-            220 {
-            }
-
-            421 - default {
-                # 421 - Temporary problem on server
-                catch {close $state(sd)}
-                continue
-            }
-        }
-
-        set r [initialize_ehlo $token]
-        if {$r != {}} {
-            return $r
-        }
-    }
-
-    # None of the servers accepted our connection, so close everything up and
-    # return an error.
-    finalize $token -close drop
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# If we cannot load the tls package, ignore the error
-# Result value is a Tcl return code, not a bool.
-# 0 == OK
-proc ::smtp::load_tls {} {
-    set r [catch {package require tls}]
-    if {$r} {set ::errorInfo ""}
-    return $r
-}
-
-proc ::smtp::initialize_ehlo {token} {
-    global errorCode errorInfo
-    upvar einfo einfo
-    upvar ecode ecode
-    upvar code  code
-
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-    array set options $state(options)
-
-    # Try enhanced SMTP first.
-
-    if {[set code [catch {smtp::talk $token 300 "EHLO $options(-client)"} \
-                       result]]} {
-        array set response [list code 400 diagnostic $result args ""]
-    } else {
-        array set response $result
-    }
-    set ecode $errorCode
-    set einfo $errorInfo
-    if {(500 <= $response(code)) && ($response(code) <= 599)} {
-        if {[set code [catch { talk $token 300 \
-                                   "HELO $options(-client)" } \
-                           result]]} {
-            array set response [list code 400 diagnostic $result args ""]
-        } else {
-            array set response $result
-        }
-        set ecode $errorCode
-        set einfo $errorInfo
-    }
-
-    if {$response(code) == 250} {
-        # Successful response to HELO or EHLO command, so set up queuing
-        # and whatnot and return the token.
-
-        set state(esmtp) $response(args)
-
-        if {(!$options(-multiple)) \
-                && ([lsearch $response(args) ONEX] >= 0)} {
-            catch {smtp::talk $token 300 ONEX}
-        }
-        if {($options(-queue)) \
-                && ([lsearch $response(args) XQUE] >= 0)} {
-            catch {smtp::talk $token 300 QUED}
-        }
-
-        # Support STARTTLS extension.
-        # The state(tls) item is used to see if we have already tried this.
-        if {($options(-usetls)) && ![info exists state(tls)] \
-                && (([lsearch $response(args) STARTTLS] >= 0)
-                    || ([lsearch $response(args) TLS] >= 0))} {
-            if {[load_tls] == 0} {
-                set state(tls) 0
-                if {![catch {smtp::talk $token 300 STARTTLS} resp]} {
-                    array set starttls $resp
-                    if {$starttls(code) == 220} {
-                        fileevent $state(sd) readable {}
-                        catch {
-                            ::tls::import $state(sd)
-                            catch {::tls::handshake $state(sd)} msg
-                            set state(tls) 1
-                        }
-                        fileevent $state(sd) readable \
-                            [list ::smtp::readable $token]
-                        return [initialize_ehlo $token]
-                    } else {
-                        # Call a TLS client policy proc here
-                        #  returns secure   - close and try another server.
-                        #  returns insecure - continue on current socket
-                        set policy insecure
-                        if {$options(-tlspolicy) != {}} {
-                            catch {
-                                eval $options(-tlspolicy) \
-                                    [list $starttls(code)] \
-                                    [list $starttls(diagnostic)]
-                            } policy
-                        }
-                        if {$policy != "insecure"} {
-                            set code error
-                            set ecode $starttls(code)
-                            set einfo $starttls(diagnostic)
-                            catch {close $state(sd)}
-                            return {}
-                        }
-                    }
-                }
-            }
-        }
-
-        # If we have not already tried and the server supports it and we
-        # have a username -- lets try to authenticate.
-        #
-        if {![info exists state(auth)]
-            && [llength [package provide SASL]] != 0
-            && [set andx [lsearch -glob $response(args) "AUTH*"]] >= 0
-            && [string length $options(-username)] > 0 } {
-
-            # May be AUTH mech or AUTH=mech
-            # We want to use the strongest mechanism that has been offered
-            # and that we support. If we cannot find a mechanism that
-            # succeeds, we will go ahead and try to carry on unauthenticated.
-            # This may still work else we'll get an unauthorised error later.
-
-            set mechs [string range [lindex $response(args) $andx] 5 end]
-            foreach mech [SASL::mechanisms] {
-                if {[lsearch -exact $mechs $mech] == -1} { continue }
-                if {[catch {
-                    Authenticate $token $mech
-                } msg]} {
-                    if {$options(-debug)} {
-                        puts stderr "AUTH $mech failed: $msg "
-                        flush stderr
-                    }
-                }
-                if {[info exists state(auth)] && $state(auth)} {
-                    if {$state(auth) == 1} {
-                        break
-                    } else {
-                        # After successful AUTH we are supposed to redo
-                        # our connection for mechanisms that setup a new
-                        # security layer -- these should set state(auth)
-                        # greater than 1
-                        fileevent $state(sd) readable \
-                            [list ::smtp::readable $token]
-                        return [initialize_ehlo $token]
-                    }
-                }
-            }
-        }
-
-        return $token
-    } else {
-        # Bad response; close the connection and hope the next server
-        # is happier.
-        catch {close $state(sd)}
-    }
-    return {}
-}
-
-proc ::smtp::SASLCallback {token context command args} {
-    upvar #0 $token state
-    upvar #0 $context ctx
-    array set options $state(options)
-    switch -exact -- $command {
-        login    { return "" }
-        username { return $options(-username) }
-        password { return $options(-password) }
-        hostname { return [info host] }
-        realm    {
-            if {[string equal $ctx(mech) "NTLM"] \
-                    && [info exists ::env(USERDOMAIN)]} {
-                return $::env(USERDOMAIN)
-            } else {
-                return ""
-            }
-        }
-        default  {
-            return -code error "error: unsupported SASL information requested"
-        }
-    }
-}
-
-proc ::smtp::Authenticate {token mechanism} {
-    upvar 0 $token state
-    package require base64
-    set ctx [SASL::new -mechanism $mechanism \
-                 -callback [list [namespace origin SASLCallback] $token]]
-
-    set state(auth) 0
-    set result [smtp::talk $token 300 "AUTH $mechanism"]
-    array set response $result
-
-    while {$response(code) == 334} {
-        # The NTLM initial response is not base64 encoded so handle it.
-        if {[catch {base64::decode $response(diagnostic)} challenge]} {
-            set challenge $response(diagnostic)
-        }
-        SASL::step $ctx $challenge
-        set result [smtp::talk $token 300 \
-                        [base64::encode -maxlen 0 [SASL::response $ctx]]]
-        array set response $result
-    }
-
-    if {$response(code) == 235} {
-        set state(auth) 1
-        return $result
-    } else {
-        return -code 7 $result
-    }
-}
-
-# ::smtp::finalize --
-#
-#	Deletes an SMTP token by closing the connection to the SMTP server,
-#       cleanup up various state.
-#
-# Arguments:
-#       token   SMTP token that has an open connection to the SMTP server.
-#       args    Optional arguments, where the only useful option is -close,
-#               whose valid values are the following:
-#               orderly     Normal successful completion.  Close connection and
-#                           clear state variables.
-#               abort       A connection exists to the SMTP server, but it's in
-#                           a weird state and needs to be reset before being
-#                           closed.  Then clear state variables.
-#               drop        No connection exists, so we just need to clean up
-#                           state variables.
-#
-# Results:
-#	SMTP connection is closed and state variables are cleared.  If there's
-#       an error while attempting to close the connection to the SMTP server,
-#       throw an exception with the error code and error message.
-
-proc ::smtp::finalize {token args} {
-    global errorCode errorInfo
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set options [list -close orderly]
-    array set options $args
-
-    switch -- $options(-close) {
-        orderly {
-            set code [catch { talk $token 120 QUIT } result]
-        }
-
-        abort {
-            set code [catch {
-                talk $token 0 RSET
-                talk $token 0 QUIT
-            } result]
-        }
-
-        drop {
-            set code 0
-            set result ""
-        }
-
-        default {
-            error "unknown value for -close $options(-close)"
-        }
-    }
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    catch { close $state(sd) }
-
-    if {$state(afterID) != ""} {
-        catch { after cancel $state(afterID) }
-    }
-
-    foreach name [array names state] {
-        unset state($name)
-    }
-    # FRINK: nocheck
-    unset $token
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# ::smtp::winit --
-#
-#	Send originator info to SMTP server.  This occurs after HELO/EHLO
-#       command has completed successfully (in ::smtp::initialize).  This function
-#       is called by ::smtp::sendmessageaux.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#       part        MIME token for the message to be sent. May be used for
-#                   handling some SMTP extensions.
-#       originator  The e-mail address of the entity sending the message,
-#                   usually the From clause.
-#       mode        SMTP command specifying the mode of communication.  Default
-#                   value is MAIL.
-#
-# Results:
-#	Originator info is sent and SMTP server's response is returned.  If an
-#       error occurs, throw an exception.
-
-proc ::smtp::winit {token part originator {mode MAIL}} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {[lsearch -exact [list MAIL SEND SOML SAML] $mode] < 0} {
-        error "unknown origination mode $mode"
-    }
-
-    set from "$mode FROM:<$originator>"
-
-    # RFC 1870 -  SMTP Service Extension for Message Size Declaration
-    if {[info exists state(esmtp)]
-        && [lsearch -glob $state(esmtp) "SIZE*"] != -1} {
-        catch {
-            set size [string length [mime::buildmessage $part]]
-            append from " SIZE=$size"
-        }
-    }
-
-    array set response [set result [talk $token 600 $from]]
-
-    if {$response(code) == 250} {
-        set state(addrs) 0
-        return $result
-    } else {
-        return -code 7 $result
-    }
-}
-
-# ::smtp::waddr --
-#
-#	Send recipient info to SMTP server.  This occurs after originator info
-#       is sent (in ::smtp::winit).  This function is called by
-#       ::smtp::sendmessageaux.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#       recipient   One of the recipients to whom the message should be
-#                   delivered.
-#
-# Results:
-#	Recipient info is sent and SMTP server's response is returned.  If an
-#       error occurs, throw an exception.
-
-proc ::smtp::waddr {token recipient} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    set result [talk $token 3600 "RCPT TO:<$recipient>"]
-    array set response $result
-
-    switch -- $response(code) {
-        250 - 251 {
-            incr state(addrs)
-            return $result
-        }
-
-        default {
-            return -code 7 $result
-        }
-    }
-}
-
-# ::smtp::wtext --
-#
-#	Send message to SMTP server.  This occurs after recipient info
-#       is sent (in ::smtp::winit).  This function is called by
-#       ::smtp::sendmessageaux.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#	part        The MIME object containing the message to send.
-#
-# Results:
-#	MIME message is sent and SMTP server's response is returned.  If an
-#       error occurs, throw an exception.
-
-proc ::smtp::wtext {token part} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-    array set options $state(options)
-
-    set result [talk $token 300 DATA]
-    array set response $result
-    if {$response(code) != 354} {
-        return -code 7 $result
-    }
-
-    if {[catch { wtextaux $token $part } result]} {
-        catch { puts -nonewline $state(sd) "\r\n.\r\n" ; flush $state(sd) }
-        return -code 7 [list code 400 diagnostic $result]
-    }
-
-    set secs $options(-maxsecs)
-
-    set result [talk $token $secs .]
-    array set response $result
-    switch -- $response(code) {
-        250 - 251 {
-            return $result
-        }
-
-        default {
-            return -code 7 $result
-        }
-    }
-}
-
-# ::smtp::wtextaux --
-#
-#	Helper function that coordinates writing the MIME message to the socket.
-#       In particular, it stacks the channel leading to the SMTP server, sets up
-#       some file events, sends the message, unstacks the channel, resets the
-#       file events to their original state, and returns.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#	part        The MIME object containing the message to send.
-#
-# Results:
-#	Message is sent.  If anything goes wrong, throw an exception.
-
-proc ::smtp::wtextaux {token part} {
-    global errorCode errorInfo
-
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    # Workaround a bug with stacking channels on top of TLS.
-    # FRINK: nocheck
-    set trf [set [namespace current]::trf]
-    if {[info exists state(tls)] && $state(tls)} {
-        set trf 0
-    }
-
-    flush $state(sd)
-    fileevent $state(sd) readable ""
-    if {$trf} {
-        transform -attach $state(sd) -command [list ::smtp::wdata $token]
-        fconfigure $state(sd) -blocking on
-    } else {
-        set state(size) 1
-    }
-    fileevent $state(sd) readable [list ::smtp::readable $token]
-
-    # If trf is not available, get the contents of the message,
-    # replace all '.'s that start their own line with '..'s, and
-    # then write the mime body out to the filehandle. Do not forget to
-    # deal with bare LF's here too (SF bug #499242).
-
-    if {$trf} {
-        set code [catch { ::mime::copymessage $part $state(sd) } result]
-    } else {
-        set code [catch { ::mime::buildmessage $part } result]
-        if {$code == 0} {
-	    # Detect and transform bare LF's into proper CR/LF
-	    # sequences.
-
-	    while {[regsub -all -- {([^\r])\n} $result "\\1\r\n" result]} {}
-            regsub -all -- {\n\.}      $result "\n.."   result
-
-            # Fix for bug #827436 - mail data must end with CRLF.CRLF
-            if {[string compare [string index $result end] "\n"] != 0} {
-                append result "\r\n"
-            }
-            set state(size) [string length $result]
-            puts -nonewline $state(sd) $result
-            set result ""
-	}
-    }
-    set ecode $errorCode
-    set einfo $errorInfo
-
-    flush $state(sd)
-    fileevent $state(sd) readable ""
-    if {$trf} {
-        unstack $state(sd)
-        fconfigure $state(sd) -blocking off
-    }
-    fileevent $state(sd) readable [list ::smtp::readable $token]
-
-    return -code $code -errorinfo $einfo -errorcode $ecode $result
-}
-
-# ::smtp::wdata --
-#
-#	This is the custom transform using Trf to do CR/LF translation.  If Trf
-#       is not installed on the system, then this function never gets called and
-#       no translation occurs.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#       command     Trf provided command for manipulating socket data.
-#	buffer      Data to be converted.
-#
-# Results:
-#	buffer is translated, and state(size) is set.  If Trf is not installed
-#       on the system, the transform proc defined at the top of this file sets
-#       state(size) to 1.  state(size) is used later to determine a timeout
-#       value.
-
-proc ::smtp::wdata {token command buffer} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    switch -- $command {
-        create/write -
-        clear/write  -
-        delete/write {
-            set state(crP) 0
-            set state(nlP) 1
-            set state(size) 0
-        }
-
-        write {
-            set result ""
-
-            foreach c [split $buffer ""] {
-                switch -- $c {
-                    "." {
-                        if {$state(nlP)} {
-                            append result .
-                        }
-                        set state(crP) 0
-                        set state(nlP) 0
-                    }
-
-                    "\r" {
-                        set state(crP) 1
-                        set state(nlP) 0
-                    }
-
-                    "\n" {
-                        if {!$state(crP)} {
-                            append result "\r"
-                        }
-                        set state(crP) 0
-                        set state(nlP) 1
-                    }
-
-                    default {
-                        set state(crP) 0
-                        set state(nlP) 0
-                    }
-                }
-
-                append result $c
-            }
-
-            incr state(size) [string length $result]
-            return $result
-        }
-
-        flush/write {
-            set result ""
-
-            if {!$state(nlP)} {
-                if {!$state(crP)} {
-                    append result "\r"
-                }
-                append result "\n"
-            }
-
-            incr state(size) [string length $result]
-            return $result
-        }
-
-	create/read -
-        delete/read {
-	    # Bugfix for [#539952]
-        }
-
-	query/ratio {
-	    # Indicator for unseekable channel,
-	    # for versions of Trf which ask for
-	    # this.
-	    return {0 0}
-	}
-	query/maxRead {
-	    # No limits on reading bytes from the channel below, for
-	    # versions of Trf which ask for this information
-	    return -1
-	}
-
-	default {
-	    # Silently pass all unknown commands.
-	    #error "Unknown command \"$command\""
-	}
-    }
-
-    return ""
-}
-
-# ::smtp::talk --
-#
-#	Sends an SMTP command to a server
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#	secs        Timeout after which command should be aborted.
-#       command     Command to send to SMTP server.
-#
-# Results:
-#	command is sent and response is returned.  If anything goes wrong, throw
-#       an exception.
-
-proc ::smtp::talk {token secs command} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set options $state(options)
-
-    if {$options(-debug)} {
-        puts stderr "--> $command (wait upto $secs seconds)"
-        flush stderr
-    }
-
-    if {[catch { puts -nonewline $state(sd) "$command\r\n"
-                 flush $state(sd) } result]} {
-        return [list code 400 diagnostic $result]
-    }
-
-    if {$secs == 0} {
-        return ""
-    }
-
-    return [hear $token $secs]
-}
-
-# ::smtp::hear --
-#
-#	Listens for SMTP server's response to some prior command.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#	secs        Timeout after which we should stop waiting for a response.
-#
-# Results:
-#	Response is returned.
-
-proc ::smtp::hear {token secs} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set options $state(options)
-
-    array set response [list args ""]
-
-    set firstP 1
-    while {1} {
-        if {$secs >= 0} {
-	    ## SF [ 836442 ] timeout with large data
-	    ## correction, aotto 031105 -
-	    if {$secs > 600} {set secs 600}
-            set state(afterID) [after [expr {$secs*1000}] \
-                                      [list ::smtp::timer $token]]
-        }
-
-        if {!$state(readable)} {
-            vwait ${token}(readable)
-        }
-
-        # Wait until socket is readable.
-        if {$state(readable) !=  -1} {
-            catch { after cancel $state(afterID) }
-            set state(afterID) ""
-        }
-
-        if {$state(readable) < 0} {
-            array set response [list code 400 diagnostic $state(error)]
-            break
-        }
-        set state(readable) 0
-
-        if {$options(-debug)} {
-            puts stderr "<-- $state(line)"
-            flush stderr
-        }
-
-        if {[string length $state(line)] < 3} {
-            array set response \
-                  [list code 500 \
-                        diagnostic "response too short: $state(line)"]
-            break
-        }
-
-        if {$firstP} {
-            set firstP 0
-
-            if {[scan [string range $state(line) 0 2] %d response(code)] \
-                    != 1} {
-                array set response \
-                      [list code 500 \
-                            diagnostic "unrecognizable code: $state(line)"]
-                break
-            }
-
-            set response(diagnostic) \
-                [string trim [string range $state(line) 4 end]]
-        } else {
-            lappend response(args) \
-                    [string trim [string range $state(line) 4 end]]
-        }
-
-        # When status message line ends in -, it means the message is complete.
-
-        if {[string compare [string index $state(line) 3] -]} {
-            break
-        }
-    }
-
-    return [array get response]
-}
-
-# ::smtp::readable --
-#
-#	Reads a line of data from SMTP server when the socket is readable.  This
-#       is the callback of "fileevent readable".
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#
-# Results:
-#	state(line) contains the line of data and state(readable) is reset.
-#       state(readable) gets the following values:
-#       -3  if there's a premature eof,
-#       -2  if reading from socket fails.
-#       1   if reading from socket was successful
-
-proc ::smtp::readable {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    if {[catch { array set options $state(options) }]} {
-        return
-    }
-
-    set state(line) ""
-    if {[catch { gets $state(sd) state(line) } result]} {
-        set state(readable) -2
-        set state(error) $result
-    } elseif {$result == -1} {
-        if {[eof $state(sd)]} {
-            set state(readable) -3
-            set state(error) "premature end-of-file from server"
-        }
-    } else {
-        # If the line ends in \r, remove the \r.
-        if {![string compare [string index $state(line) end] "\r"]} {
-            set state(line) [string range $state(line) 0 end-1]
-        }
-        set state(readable) 1
-    }
-
-    if {$state(readable) < 0} {
-        if {$options(-debug)} {
-            puts stderr "    ... $state(error) ..."
-            flush stderr
-        }
-
-        catch { fileevent $state(sd) readable "" }
-    }
-}
-
-# ::smtp::timer --
-#
-#	Handles timeout condition on any communication with the SMTP server.
-#
-# Arguments:
-#       token       SMTP token that has an open connection to the SMTP server.
-#
-# Results:
-#	Sets state(readable) to -1 and state(error) to an error message.
-
-proc ::smtp::timer {token} {
-    # FRINK: nocheck
-    variable $token
-    upvar 0 $token state
-
-    array set options $state(options)
-
-    set state(afterID) ""
-    set state(readable) -1
-    set state(error) "read from server timed out"
-
-    if {$options(-debug)} {
-        puts stderr "    ... $state(error) ..."
-        flush stderr
-    }
-}
-
-# ::smtp::boolean --
-#
-#	Helper function for unifying boolean values to 1 and 0.
-#
-# Arguments:
-#       value   Some kind of value that represents true or false (i.e. 0, 1,
-#               false, true, no, yes, off, on).
-#
-# Results:
-#	Return 1 if the value is true, 0 if false.  If the input value is not
-#       one of the above, throw an exception.
-
-proc ::smtp::boolean {value} {
-    switch -- [string tolower $value] {
-        0 - false - no - off {
-            return 0
-        }
-
-        1 - true - yes - on {
-            return 1
-        }
-
-        default {
-            error "unknown boolean value: $value"
-        }
-    }
-}
-
-# -------------------------------------------------------------------------
-
-package provide smtp 1.5.1
-
-# -------------------------------------------------------------------------
-# Local variables:
-# indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/textblock-0.1.3.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/textblock-0.1.3.tm
deleted file mode 100644
index 43311b9e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/textblock-0.1.3.tm
+++ /dev/null
@@ -1,9045 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2023
-#
-# @@ Meta Begin
-# Application textblock 0.1.3
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin punkshell_module_textblock 0 0.1.3]
-#[copyright "2024"]
-#[titledesc {punk textblock functions}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {punk textblock}]             [comment {-- Description at end of page heading --}]
-#[require textblock]
-#[keywords module ansi text layout colour table frame console terminal]
-#[description]
-#[para] Ansi-aware terminal textblock manipulation
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of textblock
-#[subsection Concepts]
-#[para]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by textblock
-#[list_begin itemized]
-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {punk::args}]
-#[item] [package {punk::char}]
-#[item] [package {punk::ansi}]
-#[item] [package {punk::lib}]
-#[item] [package {overtype}]
-#[item] [package {term::ansi::code::macros}]
-#[item] [package {textutil}]
-
-##  Requirements
-package require Tcl 8.6-
-package require punk::args
-package require punk::char
-package require punk::ansi
-package require punk::lib
-catch {package require patternpunk}
-package require overtype
-package require struct::set
-
-#safebase interps as at 2024-08 can't access deeper paths - even though they are below the supposed safe list.
-#2025 - required term::ansi features for altg now built in to textblock
-#the deeper paths issue is still a potential issue for some packages - review
-#if {[catch {
-#    package require term::ansi::code::macros ;#required for frame if old ansi g0 used - review - make package optional?
-#} errM]} {
-#    #catch this too in case stderr not available
-#    catch {
-#        puts stderr "textblock package failed to load term::ansi::code::macros with error: $errM"
-#    }
-#}
-package require textutil
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-tcl::namespace::eval textblock {
-    #review - what about ansi off in punk::console?
-    tcl::namespace::import ::punk::ansi::a ::punk::ansi::a+
-    tcl::namespace::export block frame frame_cache framedef frametypes gcross height width widthtopline join join_basic list_as_table pad testblock
-
-    #NOTE sha1, although computationally more intensive, tends to be faster than md5 on modern cpus
-    #(more likely to be optimised for modern cpu features?)
-    #(This speed improvement may not apply for short strings)
-    #This is probably only true if tcllibc is available - pure-tcl sha1 is excruciatingly slow... 
-
-    variable use_hash ;#framecache
-    set use_hash none ;#slightly faster but uglier layout for viewing frame_cache display
-
-    namespace eval argdoc {
-        proc hash_algorithm_choices_and_help {} {
-            set choices [list none]
-            set unavailable [list]
-            set unloaded [dict create]
-            set algorithm_packages {md5 sha1 sha256}
-            foreach p $algorithm_packages {
-                if {[package provide $p] eq ""} {
-                    dict set unloaded $p ""
-                }
-            }
-            if {[dict size $unloaded]} {
-                set allpkgs [package names] ;#only retrieve once
-                foreach p $algorithm_packages {
-                    if {[dict exists $unloaded $p]} {
-                        #not loaded - but check if available
-                        if {$p in $allpkgs} {
-                            lappend choices $p
-                        } else {
-                            lappend unavailable $p
-                        }
-                    } else {
-                        lappend choices $p
-                    }
-                }
-            } else {
-                lappend choices {*}$algorithm_packages
-                set unavailable ""
-            }
-
-            set choicemsg ""
-            if {[llength $unavailable]} {
-                set choicemsg " (unavailable packages: $unavailable)"
-            }
-            #return $choices
-            return " -choices \{$choices\} -help {algorithm choice $choicemsg} "
-        }
-    }
-    namespace eval argdoc {
-        tcl::namespace::import ::punk::ansi::a+
-        # -- --- --- --- ---
-        #non colour SGR codes
-        # we can use these directly via ${$I} etc without marking a definition with @dynamic
-        #This is because they don't need to change when colour switched on and off.
-        set I   [a+ italic]
-        set NI  [a+ noitalic]
-        set B   [a+ bold]
-        set N   [a+ normal]
-        # -- --- --- --- ---
-        proc example {str} {
-            set str [string trimleft $str \n]
-            set block [punk::ansi::ansiwrap Web-gray [textblock::frame -ansibase [a+ Web-gray bold white] -ansiborder [a+ black White] -boxlimits {hl} -type block $str]]
-            set result [textblock::bookend_lines $block [a] "[a defaultbg] [a]"]
-            #puts $result
-            return $result
-        }
-    }
-
-
-       # hash_algorithm -optional 1 -choices {${[::textblock::argdoc::hash_algorithm_choices]}}  -help\
-       #     "algorithm choice"
-    namespace eval argdoc {
-        set DYN_HASH_ALGORITHM_CHOICES_AND_HELP {${[::textblock::argdoc::hash_algorithm_choices_and_help]}}
-        punk::args::define {
-            @dynamic
-            @id     -id     ::textblock::use_hash
-            @cmd    -name   "textblock::use_hash" -help\
-                "Hashing algorithm to use for framecache lookup.
-                'none' may be slightly faster but less compact
-                when viewing textblock::framecache"
-            @values -min 0 -max 1
-            hash_algorithm -optional 1 ${$DYN_HASH_ALGORITHM_CHOICES_AND_HELP}
-        }
-    }
-    proc use_hash {args} {
-        set argd  [punk::args::parse $args withid ::textblock::use_hash]
-        variable use_hash
-        if {![dict exists $argd received hash_algorithm]} {
-            return $use_hash
-        }
-        set use_hash [dict get $argd values hash_algorithm]
-    }
-    tcl::namespace::eval class {
-        variable opts_table_defaults
-        set opts_table_defaults [tcl::dict::create\
-            -title ""\
-            -titlealign "left"\
-            -titletransparent 0\
-            -frametype "light"\
-            -frametype_header ""\
-            -ansibase_header ""\
-            -ansibase_body ""\
-            -ansibase_footer ""\
-            -ansiborder_header ""\
-            -ansiborder_body ""\
-            -ansiborder_footer ""\
-            -ansireset "\uFFeF"\
-            -framelimits_header "vll vlr hlb hlt tlc trc blc brc"\
-            -frametype_body ""\
-            -framelimits_body "vll vlr hlb hlt tlc trc blc brc"\
-            -framemap_body [list\
-                 topleft {} topinner {} topright {} topsolo {}\
-                 middleleft {} middleinner {} middleright {} middlesolo {}\
-                 bottomleft {} bottominner {} bottomright {} bottomsolo {}\
-                 onlyleft {} onlyinner {} onlyright {} onlysolo {}\
-                ]\
-            -framemap_header [list\
-                 topleft {} topinner {} topright {} topsolo {}\
-                 middleleft {} middleinner {} middleright {} middlesolo {}\
-                 bottomleft {} bottominner {} bottomright {} bottomsolo {}\
-                 onlyleft {} onlyinner {} onlyright {} onlysolo {}\
-                ]\
-            -show_edge 1\
-            -show_seps 1\
-            -show_hseps ""\
-            -show_vseps ""\
-            -show_header ""\
-            -show_footer ""\
-            -minwidth ""\
-            -maxwidth ""\
-        ]
-        variable opts_column_defaults
-        set opts_column_defaults [tcl::dict::create\
-            -headers [list]\
-            -header_colspans [list]\
-            -footers [list]\
-            -defaultvalue ""\
-            -ansibase ""\
-            -ansireset "\uFFEF"\
-            -minwidth ""\
-            -maxwidth ""\
-            -blockalign centre\
-            -textalign  left\
-        ]
-        #initialise -ansireset with replacement char so we can keep in appropriate dict position for initial configure and then treat as read-only
-
-
-
-        #for 'L' shaped table building pattern (tables bigger than 4x4 will be mostly 'L' patterns)
-        #ie only vll,blc,hlb used for cells except top row and right column
-        #top right cell uses all 'O' shape, other top cells use 'C' shape (hlt,tlc,vll,blc,hlb)
-        #right cells use 'U' shape (vll,blc,hlb,brc,vlr)
-        #e.g for 4x4
-        # C C C O
-        # L L L U
-        # L L L U
-        #anti-clockwise elements
-        set C [list hlt tlc vll blc hlb]
-        set O [list trc hlt tlc vll blc hlb brc vlr]
-        set L [list vll blc hlb]
-        set U [list vll blc hlb brc vlr]
-        set tops    [list trc hlt tlc]
-        set lefts   [list tlc vll blc]
-        set bottoms [list blc hlb brc]
-        set rights  [list trc brc vlr]
-
-        variable table_edge_parts
-        set table_edge_parts [tcl::dict::create\
-            topleft     [struct::set intersect $C [concat $tops $lefts]]\
-            topinner    [struct::set intersect $C $tops]\
-            topright    [struct::set intersect $O [concat $tops $rights]]\
-            topsolo     [struct::set intersect $O [concat $tops $lefts $rights]]\
-            middleleft  [struct::set intersect $L $lefts]\
-            middleinner [list]\
-            middleright [struct::set intersect $U $rights]\
-            middlesolo  [struct::set intersect $U [concat $lefts $rights]]\
-            bottomleft  [struct::set intersect $L [concat $lefts $bottoms]]\
-            bottominner [struct::set intersect $L $bottoms]\
-            bottomright [struct::set intersect $U [concat $bottoms $rights]]\
-            bottomsolo  [struct::set intersect $U [concat $lefts $bottoms $rights]]\
-            onlyleft    [struct::set intersect $C [concat $tops $lefts $bottoms]]\
-            onlyinner   [struct::set intersect $C [concat $tops $bottoms]]\
-            onlyright   [struct::set intersect $O [concat $tops $bottoms $rights]]\
-            onlysolo    [struct::set intersect $O [concat $tops $lefts $bottoms $rights]]\
-        ]
-
-        #for header rows - we don't consider the bottom border as part of the edge - even if table body has no rows
-        #The usual-case of a single header line is the 'onlyleft,onlyinner,onlyright,onlysolo' set.
-        variable header_edge_parts
-        set header_edge_parts [tcl::dict::create\
-            topleft     [struct::set intersect $C [list {*}$tops {*}$lefts]]\
-            topinner    [struct::set intersect $C $tops]\
-            topright    [struct::set intersect $O [list {*}$tops {*}$rights]]\
-            topsolo     [struct::set intersect $O [list {*}$tops {*}$lefts {*}$rights]]\
-            middleleft  [struct::set intersect $L $lefts]\
-            middleinner [list]\
-            middleright [struct::set intersect $U $rights]\
-            middlesolo  [struct::set intersect $U [list {*}$lefts {*}$rights]]\
-            bottomleft  [struct::set intersect $L $lefts]\
-            bottominner [list]\
-            bottomright [struct::set intersect $U $rights]\
-            bottomsolo  [struct::set intersect $U [list {*}$lefts {*}$rights]]\
-            onlyleft    [struct::set intersect $C [list {*}$tops {*}$lefts]]\
-            onlyinner   [struct::set intersect $C $tops]\
-            onlyright   [struct::set intersect $O [list {*}$tops {*}$rights]]\
-            onlysolo    [struct::set intersect $O [list {*}$tops {*}$lefts {*}$rights]]\
-        ]
-        variable table_hseps
-        set table_hseps [tcl::dict::create\
-            topleft     [list blc hlb]\
-            topinner    [list blc hlb]\
-            topright    [list blc hlb brc]\
-            topsolo     [list blc hlb brc]\
-            middleleft  [list blc hlb]\
-            middleinner [list blc hlb]\
-            middleright [list blc hlb brc]\
-            middlesolo  [list blc hlb brc]\
-            bottomleft  [list]\
-            bottominner [list]\
-            bottomright [list]\
-            bottomsolo  [list]\
-            onlyleft    [list]\
-            onlyinner   [list]\
-            onlyright   [list]\
-            onlysolo    [list]\
-        ]
-        variable table_vseps
-        set table_vseps [tcl::dict::create\
-            topleft     [list]\
-            topinner    [list vll tlc blc]\
-            topright    [list vll tlc blc]\
-            topsolo     [list]\
-            middleleft  [list]\
-            middleinner [list vll tlc blc]\
-            middleright [list vll tlc blc]\
-            middlesolo  [list]\
-            bottomleft  [list]\
-            bottominner [list vll tlc blc]\
-            bottomright  [list vll tlc blc]\
-            bottomsolo  [list]\
-            onlyleft    [list]\
-            onlyinner   [list vll tlc blc]\
-            onlyright   [list vll tlc blc]\
-            onlysolo    [list]\
-        ]
-
-        #ensembles seem to be not compiled in safe interp
-        #https://core.tcl-lang.org/tcl/tktview/1095bf7f75
-        #as we want textblock to be usable in safe interps - use tcl::dict::for as a partial workaround
-        #This at least means the script argument, especially switch statements can get compiled.
-        #It does however affect all ensemble commands - so even 'dict get/set' etc won't be as efficient in a safe interp.
-
-        #e.g $t configure -framemap_body [table_edge_map " "]
-
-        # -- --- --- --- ---
-        #unused?
-        proc table_edge_map {char} {
-            variable table_edge_parts
-            set map [list]
-            tcl::dict::for {celltype parts} $table_edge_parts {
-                set tmap [list]
-                foreach p $parts {
-                    tcl::dict::set tmap $p $char
-                }
-                tcl::dict::set map $celltype $tmap
-            }
-            return $map
-        }
-        proc table_sep_map {char} {
-            variable table_hseps
-            set map [list]
-            tcl::dict::for {celltype parts} $table_hseps {
-                set tmap [list]
-                foreach p $parts {
-                    tcl::dict::set tmap $p $char
-                }
-                tcl::dict::set map $celltype $tmap
-            }
-            return $map
-        }
-        proc header_edge_map {char} {
-            variable header_edge_parts
-            set map [list]
-            tcl::dict::for {celltype parts} $header_edge_parts {
-                set tmap [list]
-                foreach p $parts {
-                    tcl::dict::set tmap $p $char
-                }
-                tcl::dict::set map $celltype $tmap
-            }
-            return $map
-        }
-        # -- --- --- --- ---
-
-        if {[tcl::info::commands [tcl::namespace::current]::table] eq ""} {
-            #*** !doctools
-            #[subsection {Namespace textblock::class}]
-            #[para] class definitions
-            #[list_begin itemized] [comment {- textblock::class groupings -}]
-            #  [item]
-            #  [para] [emph {handler_classes}]
-            #  [list_begin enumerated]
-
-            #this makes new table objects a little faster when multiple opts specified as well as to configure
-            #as tables are a heavyweight thing, but handy to nest sometimes - we'll take what we can get
-            set topt_keys [tcl::dict::keys $::textblock::class::opts_table_defaults]
-            set switch_keys_valid_topts [punk::lib::lmapflat v $topt_keys {list $v -}]
-            set switch_keys_valid_topts [lrange $switch_keys_valid_topts 0 end-1] ;#remove last dash
-
-            set copt_keys [tcl::dict::keys $::textblock::class::opts_column_defaults]
-            set switch_keys_valid_copts [punk::lib::lmapflat v $copt_keys {list $v -}]
-            set switch_keys_valid_copts [lrange $switch_keys_valid_copts 0 end-1]
-
-            oo::class create [tcl::namespace::current]::table [tcl::string::map [list %topt_keys% $topt_keys %topt_switchkeys% $switch_keys_valid_topts %copt_keys% $copt_keys %copt_switchkeys% $switch_keys_valid_copts] {
-
-                #*** !doctools
-                #[enum] CLASS [class textblock::class::table]
-                #[list_begin definitions]
-                #[para] Create a table suitable for terminal output with various border styles.
-                #[para] The table can contain multiline cells and ANSI colour and text style attributes.
-                #[para] Multiple header rows can be configured.
-                #[para] Header rows can span columns - data rows cannot.
-                #[para] The restriction on data rows is to maintain compatibility of the data with a Tcl matrix command
-                #[para] (see get_matrix command)
-                #[para] Both header and data cells can have various text and blockalignments configured.
-                #    [para] [emph METHODS]
-                variable o_opts_table ;#options as configured by user (with exception of -ansireset)
-                variable o_opts_table_effective; #options in effect - e.g with defaults merged in.
-
-                variable o_columndefs
-                variable o_columndata
-                variable o_columnstates
-                variable o_headerdefs
-                variable o_headerstates
-
-                variable o_rowdefs
-                variable o_rowstates
-
-                variable o_opts_table_defaults
-                variable o_opts_header_defaults  ;# header data mostly stored in o_columndefs
-                variable o_opts_column_defaults
-                variable o_opts_row_defaults
-                variable TSUB ;#make configurable so user isn't stopped from using our default PUA-unicode char in content (nerdfonts overlap)
-                variable o_calculated_column_widths
-                variable o_column_width_algorithm
-
-
-                constructor {args} {
-                    #*** !doctools
-                    #[call class::table [method constructor] [arg args]]
-                    #[para] TODO - document the many options
-
-                    set o_opts_table_defaults   $::textblock::class::opts_table_defaults
-                    set o_opts_column_defaults  $::textblock::class::opts_column_defaults
-
-
-                    if {[llength $args] == 1} {
-                        set args [list -title [lindex $args 0]]
-                    }
-                    if {[llength $args] %2 !=0} {
-                        error "[tcl::namespace::current]::table constructor - unexpected argument count. Require single value being title, or name value pairs"
-                    }
-
-                    set o_opts_table            $o_opts_table_defaults
-                    set o_opts_table_effective  $o_opts_table_defaults
-
-                       ##todo -  test with punk::lib::show_jump_tables - how?
-                    foreach {k v} $args {
-                        switch -- $k {
-                            %topt_switchkeys% {
-                                tcl::dict::set o_opts_table $k $v
-                            }
-                            default {
-                                error "[tcl::namespace::current]::table unrecognised option '$k'. Known values [tcl::dict::keys $o_opts_table_defaults]"
-                            }
-                        }
-                    }
-
-                    #foreach {k v} $args {
-                    #    #todo - convert to literal switch using tcl::string::map so we don't have to define o_opts_table_defaults here.
-                    #    if {$k ni [tcl::dict::keys $o_opts_table_defaults]} {
-                    #        error "[tcl::namespace::current]::table unrecognised option '$k'. Known values [tcl::dict::keys $o_opts_table_defaults]"
-                    #    }
-                    #}
-                    #set o_opts_table [tcl::dict::merge $o_opts_table_defaults $args]
-                    #my configure {*}[tcl::dict::merge $o_opts_table_defaults $args]
-
-                    set o_columndefs    [tcl::dict::create]
-                    set o_columndata    [tcl::dict::create] ;#we store data by column even though it is often added row by row
-                    set o_columnstates  [tcl::dict::create] ;#store the maxwidthbodyseen etc as we add rows and maxwidthheaderseen etc as we add headers - it is needed often and expensive to calculate repeatedly
-                    set o_headerdefs    [tcl::dict::create] ;#by header-row
-                    set o_headerstates  [tcl::dict::create]
-                    set o_rowdefs       [tcl::dict::create] ;#user requested row data e.g -minheight -maxheight
-                    set o_rowstates     [tcl::dict::create] ;#actual row data such as -minheight and -maxheight detected from supplied row data
-
-                    set TSUB \uF111 ;#should be BMP PUA code to show as either replacement char or nerdfont glyph. See FSUB for comments regarding choices.
-                    set o_calculated_column_widths [list]
-                    set o_column_width_algorithm "span"
-                    set o_opts_header_defaults [tcl::dict::create\
-                        -colspans {}\
-                        -values {}\
-                        -ansibase {}\
-                        -ansireset "\x1b\[m"\
-                        -minheight 1\
-                        -maxheight ""\
-                    ]
-                    my configure {*}$o_opts_table
-                }
-
-                method width_algorithm {{alg ""}} {
-                    if {$alg eq ""} {
-                        return $o_column_width_algorithm
-                    }
-                    if {$alg ne $o_column_width_algorithm} {
-                        #invalidate cached widths
-                        set o_calculated_column_widths [list]
-                    }
-                    set o_column_width_algorithm $alg
-                }
-                method Get_seps {} {
-                    set requested_seps      [tcl::dict::get $o_opts_table -show_seps]
-                    set requested_seps_h    [tcl::dict::get $o_opts_table -show_hseps]
-                    set requested_seps_v   [tcl::dict::get $o_opts_table -show_vseps]
-                    set seps    $requested_seps
-                    set seps_h  $requested_seps_h
-                    set seps_v  $requested_seps_v
-                    if {$requested_seps eq ""} {
-                        if {$requested_seps_h eq ""} {
-                            set seps_h 1
-                        }
-                        if {$requested_seps_v eq ""} {
-                            set seps_v 1
-                        }
-                    } else {
-                        if {$requested_seps_h eq ""} {
-                            set seps_h $seps
-                        }
-                        if {$requested_seps_v eq ""} {
-                            set seps_v $seps
-                        }
-                    }
-                    return [tcl::dict::create horizontal $seps_h vertical $seps_v]
-                }
-                method Get_frametypes {} {
-                    set requested_ft        [tcl::dict::get $o_opts_table -frametype]
-                    set requested_ft_header [tcl::dict::get $o_opts_table -frametype_header]
-                    set requested_ft_body   [tcl::dict::get $o_opts_table -frametype_body]
-                    set ft $requested_ft
-                    set ft_header $requested_ft_header
-                    set ft_body $requested_ft_body
-                    switch -- $requested_ft {
-                        light {
-                            if {$requested_ft_header eq ""} {
-                                set ft_header heavy
-                            }
-                            if {$requested_ft_body eq ""} {
-                                set ft_body light
-                            }
-                        }
-                        light_b {
-                            if {$requested_ft_header eq ""} {
-                                set ft_header heavy_b
-                            }
-                            if {$requested_ft_body eq ""} {
-                                set ft_body light_b
-                            }
-                        }
-                        light_c {
-                            if {$requested_ft_header eq ""} {
-                                set ft_header heavy_c
-                            }
-                            if {$requested_ft_body eq ""} {
-                                set ft_body light_c
-                            }
-                        }
-                        default {
-                            if {$requested_ft_header eq ""} {
-                                set ft_header $requested_ft
-                            }
-                            if {$requested_ft_body eq ""} {
-                                set ft_body $requested_ft
-                            }
-                        }
-                    }
-                    return [tcl::dict::create header $ft_header body $ft_body]
-                }
-                method Set_effective_framelimits {} {
-                    upvar ::textblock::class::opts_table_defaults tdefaults
-                    set default_blims [tcl::dict::get $tdefaults -framelimits_body]
-                    set default_hlims [tcl::dict::get $tdefaults -framelimits_header]
-                    set eff_blims [tcl::dict::get $o_opts_table_effective -framelimits_body]
-                    set eff_hlims [tcl::dict::get $o_opts_table_effective -framelimits_header]
-
-                    set requested_blims [tcl::dict::get $o_opts_table -framelimits_body]
-                    set requested_hlims [tcl::dict::get $o_opts_table -framelimits_header]
-                    set blims $eff_blims
-                    set hlims $eff_hlims
-                    switch -- $requested_blims {
-                        "default" {
-                            set blims $default_blims
-                        }
-                        default {
-                            #set blims $requested_blims
-                            set blims [list]
-                            foreach lim $requested_blims {
-                                switch -- $lim {
-                                    hl {
-                                        lappend blims hlt hlb
-                                    }
-                                    vl {
-                                        lappend blims vll vlr
-                                    }
-                                    default {
-                                        lappend blims $lim
-                                    }
-                                }
-                            }
-                            set blims [lsort -unique $blims]
-                        }
-                    }
-                    tcl::dict::set o_opts_table_effective -framelimits_body $blims
-                    switch -- $requested_hlims {
-                        "default" {
-                            set hlims $default_hlims
-                        }
-                        default {
-                            #set hlims $requested_hlims
-                            set hlims [list]
-                            foreach lim $requested_hlims {
-                                switch -- $lim {
-                                    hl {
-                                        lappend hlims hlt hlb
-                                    }
-                                    vl {
-                                        lappend hlims vll vlr
-                                    }
-                                    default {
-                                        lappend hlims $lim
-                                    }
-                                }
-                            }
-                            set hlims [lsort -unique $hlims]
-                        }
-                    }
-                    tcl::dict::set o_opts_table_effective -framelimits_header $hlims
-                    return [tcl::dict::create body $blims header $hlims]
-                }
-                method configure {args} {
-                    #*** !doctools
-                    #[call class::table [method configure] [arg args]]
-                    #[para] get or set various table-level properties
-
-                    if {![llength $args]} {
-                        return $o_opts_table
-                    }
-                    if {[llength $args] == 1} {
-                        if {[lindex $args 0] in [list %topt_keys%]} {
-                            #query single option
-                            set k [lindex $args 0]
-                            set val [tcl::dict::get $o_opts_table $k]
-                            set returndict [tcl::dict::create option $k value $val ansireset "\x1b\[m"]
-                            set infodict [tcl::dict::create]
-                            switch -- $k {
-                                -ansibase_header - -ansibase_body - -ansiborder_header - -ansiborder_body - -ansiborder_footer  {
-                                    tcl::dict::set infodict debug [ansistring VIEW $val]
-                                }
-                                -framemap_body - -framemap_header - -framelimits_body - -framelimits_header {
-                                    tcl::dict::set returndict effective [tcl::dict::get $o_opts_table_effective $k]
-                                }
-                            }
-                            tcl::dict::set returndict info $infodict
-                            return $returndict
-                            #return [tcl::dict::create option $k value $val ansireset "\x1b\[m" info $infodict]
-                        } else {
-                            error "textblock::table configure - unrecognised option '[lindex $args 0]'. Known values [tcl::dict::keys $o_opts_table_defaults]"
-                        }
-                    }
-                    if {[llength $args] %2 != 0} {
-                        error "[tcl::namespace::current]::table configure - unexpected argument count. Require name value pairs"
-                    }
-                    foreach {k v} $args {
-                        switch -- $k {
-                            %topt_switchkeys% {}
-                            default {
-                                error "[tcl::namespace::current]::table configure - unrecognised option '$k'. Known values [tcl::dict::keys $o_opts_table_defaults]"
-                            }
-                        }
-                        #if {$k ni [tcl::dict::keys $o_opts_table_defaults]} {
-                        #    error "[tcl::namespace::current]::table configure - unrecognised option '$k'. Known values [tcl::dict::keys $o_opts_table_defaults]"
-                        #}
-                    }
-                    set checked_opts [list]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -ansibase_header - -ansibase_body - -ansiborder_header - -ansiborder-body - -ansiborder_footer {
-                                set parts [punk::ansi::ta::split_codes_single $v] ;#caller may have supplied separated codes eg "[a+ Yellow][a+ red]"
-                                set ansi_codes [list]
-                                foreach {pt code} $parts {
-                                    if {$pt ne ""} {
-                                        #we don't expect plaintext in an ansibase
-                                        error "Unable to interpret $k value as ansi SGR codes. Plaintext detected. Consider using for example: '\[punk::ansi::a+ green]' (or alias '\[a+ green]') to build ansi. debug view: [punk::ansi::ansistring VIEW $v]"
-                                    }
-                                    if {$code ne ""} {
-                                        lappend ansi_codes $code
-                                    }
-                                }
-                                set ansival [punk::ansi::codetype::sgr_merge_singles $ansi_codes]
-                                lappend checked_opts $k $ansival
-                            }
-                            -frametype - -frametype_header - -frametype_body {
-                                #frametype will raise an error if v is not a valid custom dict or one of the known predefined types such as light,heavy,double etc
-                                lassign [textblock::frametype $v] _cat category _type ftype
-                                lappend checked_opts $k $v
-                            }
-                            -framemap_body - -framemap_header {
-                                #upvar ::textblock::class::opts_table_defaults tdefaults
-                                #set default_bmap [tcl::dict::get $tdefaults -framemap_body]
-                                #todo - check keys and map
-                                if {[llength $v] == 1} {
-                                    if {$v eq "default"} {
-                                        upvar ::textblock::class::opts_table_defaults tdefaults
-                                        set default_map [tcl::dict::get $tdefaults $k]
-                                        lappend checked_opts $k $default_map
-                                    } else {
-                                        error "textblock::table::configure invalid $k value $v. Expected the value 'default' or a dict e.g topleft {hl *}"
-                                    }
-                                } else {
-                                    #safe jumptable test
-                                    #dict for {subk subv} $v {}
-                                    foreach {subk subv} $v {
-                                        switch -- $subk {
-                                            topleft - topinner - topright - topsolo - middleleft - middleinner - middleright - middlesolo - bottomleft - bottominner - bottomright - bottomsolo - onlyleft - onlyinner - onlyright - onlysolo {}
-                                            default {
-                                                error "textblock::table::configure invalid $subk. Known values {topleft topinner topright topsolo middleleft middleinner middleright middlesolo bottomleft bottominner bottomright bottomsolo onlyleft onlyinner onlyright onlysolo}"
-                                            }
-                                        }
-                                        #safe jumptable test
-                                        #dict for {seg subst} $subv {}
-                                        foreach {seg subst} $subv {
-                                            switch -- $seg {
-                                                hl - hlt - hlb - vl - vll - vlr - trc - tlc - blc - brc {}
-                                                default {
-                                                    error "textblock::table::configure invalid $subk value $seg. Known values {hl hlt hlb vl vll vlr trc tlc blc brc}"
-                                                }
-                                            }
-                                        }
-
-                                    }
-                                    lappend checked_opts $k $v
-                                }
-
-                            }
-                            -framelimits_body - -framelimits_header {
-                                set specific_framelimits [list]
-                                foreach fl $v {
-                                    switch -- $fl {
-                                        "default" {
-                                            lappend specific_framelimits trc hlt tlc vll blc hlb brc vlr
-                                        }
-                                        hl {
-                                            lappend specific_framelimits hlt hlb
-                                        }
-                                        vl {
-                                            lappend specific_framelimits vll vlr
-                                        }
-                                        hlt - hlb - vll - vlr - trc - tlc - blc - brc {
-                                            lappend specific_framelimits $fl
-                                        }
-                                        default {
-                                            error "textblock::table::configure invalid $k '$fl'. Known values {hl hlb hlt vl vll vlr trc tlc blc brc} (or default for all)"
-                                        }
-                                    }
-                                }
-                                lappend checked_opts $k $specific_framelimits
-                            }
-                            -ansireset {
-                                if {$v eq "\uFFEF"} {
-                                    set RST "\x1b\[m" ;#[a]
-                                    lappend checked_opts $k $RST
-                                } else {
-                                    error "textblock::table::configure -ansireset is read-only. It is present only to prevent unwanted colourised output in configure commands"
-                                }
-                            }
-                            -show_hseps {
-                                if {![tcl::string::is boolean $v]} {
-                                    error "textblock::table::configure invalid $k '$v'. Must be a boolean or empty string"
-                                }
-                                lappend checked_opts $k $v
-                                #these don't affect column width calculations
-                            }
-                            -show_edge {
-                                if {![tcl::string::is boolean $v]} {
-                                    error "textblock::table::configure invalid $k '$v'. Must be a boolean or empty string"
-                                }
-                                lappend checked_opts $k $v
-                                #these don't affect column width calculations - except if table -minwidth/-maxwidth come into play
-                                set o_calculated_column_widths [list] ;#invalidate cached column widths - a recalc will be forced when needed
-                            }
-                            -show_vseps {
-                                #we allow empty string - so don't use -strict boolean check
-                                if {![tcl::string::is boolean $v]} {
-                                    error "textblock::table::configure invalid $k '$v'. Must be a boolean or empty string"
-                                }
-                                #affects width calculations
-                                set o_calculated_column_widths [list]
-                                lappend checked_opts $k $v
-                            }
-                            -minwidth - -maxwidth {
-                                set o_calculated_column_widths [list]
-                                lappend checked_opts $k $v
-                            }
-                            default {
-                                lappend checked_opts $k $v
-                            }
-                        }
-                    }
-                    #all options checked - ok to update o_opts_table and o_opts_table_effective
-
-                    #set o_opts_table [tcl::dict::merge $o_opts_table $checked_opts]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -framemap_header - -framemap_body {
-                                #framemaps don't require setting every key to update.
-                                #e.g configure -framemaps {topleft <map>}
-                                #needs to merge with existing unspecified keys such as topright middleleft etc.
-                                if {$v eq "default"} {
-                                    tcl::dict::set o_opts_table $k default
-                                } else {
-                                    if {[tcl::dict::get $o_opts_table $k] eq "default"} {
-                                        tcl::dict::set o_opts_table $k $v
-                                    } else {
-                                        tcl::dict::set o_opts_table $k [tcl::dict::merge [tcl::dict::get $o_opts_table $k] $v]
-                                    }
-                                }
-                            }
-                            -title {
-                                set twidth [punk::ansi::printing_length $v]
-                                if {[my width] < [expr {$twidth+2}]} {
-                                    set o_calculated_column_widths [list]
-                                    tcl::dict::set o_opts_table -minwidth [expr {$twidth+2}]
-                                }
-                                tcl::dict::set o_opts_table -title $v
-                            }
-                            default {
-                                tcl::dict::set o_opts_table $k $v
-                            }
-                        }
-                    }
-                    #use values from checked_opts for the effective opts
-                    #safe jumptable test
-                    #dict for {k v} $checked_opts {}
-                    #foreach {k v} $checked_opts {}
-                    tcl::dict::for {k v} $checked_opts {
-                        switch -- $k {
-                            -framemap_body - -framemap_header {
-                                set existing [tcl::dict::get $o_opts_table_effective $k]
-                                #set updated $existing
-                                #dict for {subk subv} $v {
-                                #    tcl::dict::set updated $subk $subv
-                                #}
-                                #tcl::dict::set o_opts_table_effective $k $updated
-                                tcl::dict::set o_opts_table_effective $k [tcl::dict::merge $existing $v]
-                            }
-                            -framelimits_body - -framelimits_header {
-                                #my Set_effective_framelimits
-                                tcl::dict::set o_opts_table_effective $k $v
-                            }
-                            default {
-                                tcl::dict::set o_opts_table_effective $k $v
-                            }
-                        }
-                    }
-                    #ansireset exception
-                    tcl::dict::set o_opts_table -ansireset [tcl::dict::get $o_opts_table_effective -ansireset]
-                    return $o_opts_table
-                }
-
-                #integrate with struct::matrix - allows ::m format 2string $table
-                method printmatrix {matrix} {
-                    #*** !doctools
-                    #[call class::table [method printmatrix] [arg matrix]]
-                    #[para] clear all table rows and print a matrix into the table
-                    #[para] The rowxcolumn structure must match
-
-                    set matrix_rowcount [$matrix rows]
-                    set matrix_colcount [$matrix columns]
-                    set table_colcount [my column_count]
-                    if {$table_colcount == 0} {
-                        for {set c 0} {$c < $matrix_colcount} {incr c} {
-                            my add_column -headers ""
-                        }
-                    }
-                    set table_colcount [my column_count]
-                    if {$table_colcount != $matrix_colcount} {
-                        error "textblock::table::printmatrix column count of table doesn't match column count of matrix"
-                    }
-                    if {[my row_count] > 0} {
-                        my row_clear
-                    }
-                    for {set r 0} {$r < $matrix_rowcount} {incr r} {
-                        my add_row [$matrix get row $r]
-                    }
-                    my print
-                }
-                method as_matrix {{cmd ""}} {
-                    #*** !doctools
-                    #[call class::table [method as_matrix] [arg ?cmd?]]
-                    #[para] return a struct::matrix command representing the data portion of the table.
-
-                    if {$cmd eq ""} {
-                        set m [struct::matrix]
-                    }  else {
-                        set m [struct::matrix $cmd]
-                    }
-                    $m add columns [tcl::dict::size $o_columndata]
-                    $m add rows [tcl::dict::size $o_rowdefs]
-                    tcl::dict::for {k v} $o_columndata {
-                        $m set column $k $v
-                    }
-                    return $m
-                }
-                method add_column {args} {
-                    #*** !doctools
-                    #[call class::table [method add_column] [arg args]]
-
-
-                    if {[llength $args] %2 != 0} {
-                        error "[tcl::namespace::current]::table::add_column unexpected argument count. Require name value pairs. Known options: %copt_keys%"
-                    }
-                    set opts $o_opts_column_defaults
-                    foreach {k v} $args {
-                        switch -- $k {
-                            %copt_switchkeys% {
-                                tcl::dict::set opts $k $v
-                            }
-                            default {
-                                error "[tcl::namespace::current]::table::add_column unknown option '$k'. Known options: %copt_keys%"
-                            }
-                        }
-                    }
-                    set colcount [tcl::dict::size $o_columndefs]
-
-
-                    tcl::dict::set o_columndata $colcount [list]
-                    #tcl::dict::set o_columndefs $colcount $defaults ;#ensure record exists
-                    tcl::dict::set o_columndefs $colcount $o_opts_column_defaults ;#ensure record exists
-
-
-                    tcl::dict::set o_columnstates $colcount [tcl::dict::create minwidthbodyseen 0 maxwidthbodyseen 0 maxwidthheaderseen 0]
-                    set prev_calculated_column_widths $o_calculated_column_widths
-                    if {[catch {
-                        my configure_column $colcount {*}$opts
-                    } errMsg]} {
-                        #configure failed - ensure o_columndata and o_columndefs entries are removed
-                        tcl::dict::unset o_columndata $colcount
-                        tcl::dict::unset o_columndefs $colcount
-                        tcl::dict::unset o_columnstates $colcount
-                        #undo cache invalidation
-                        set o_calculated_column_widths $prev_calculated_column_widths
-                        error "add_column failed to configure with supplied options $opts. Err:\n$errMsg"
-                    }
-                    #any add_column that succeeds should invalidate the calculated column widths
-                    set o_calculated_column_widths [list]
-                    set numrows [my row_count]
-                    if {$numrows > 0} {
-                        #fill column with default values
-                        #puts ">>> adding default values for column $colcount"
-                        set dval [tcl::dict::get $opts -defaultvalue]
-                        set width [textblock::width $dval]
-                        tcl::dict::set o_columndata $colcount [lrepeat $numrows $dval]
-                        tcl::dict::set o_columnstates $colcount maxwidthbodyseen $width
-                        tcl::dict::set o_columnstates $colcount minwidthbodyseen $width
-                    }
-                    return $colcount
-                }
-                method column_count {} {
-                    #*** !doctools
-                    #[call class::table [method column_count]]
-                    #[para] return the number of columns
-                    return [tcl::dict::size $o_columndefs]
-                }
-                method configure_column {index_expression args} {
-                    #*** !doctools
-                    #[call class::table [method configure_column] [arg index_expression] [arg args]]
-                    #[para] - undocumented
-
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-                    if {$cidx eq ""} {
-                        error "textblock::table::configure_column - no column defined at index '$cidx'.Use add_column to define columns"
-                    }
-                    if {![llength $args]} {
-                        return [tcl::dict::get $o_columndefs $cidx]
-                    } else {
-                        if {[llength $args] == 1} {
-                            if {[lindex $args 0] in [list %copt_keys%]} {
-                                #query single option
-                                set k [lindex $args 0]
-                                set val [tcl::dict::get $o_columndefs $cidx $k]
-                                set returndict [tcl::dict::create option $k value $val ansireset "\x1b\[m"]
-                                set infodict [tcl::dict::create]
-                                switch -- $k {
-                                    -ansibase {
-                                        tcl::dict::set infodict debug [ansistring VIEW $val]
-                                    }
-                                }
-                                tcl::dict::set returndict info $infodict
-                                return $returndict
-                            } else {
-                                error "textblock::table configure_column - unrecognised option '[lindex $args 0]'. Known values %copt_keys%"
-                            }
-                        }
-                        if {[llength $args] %2 != 0} {
-                            error "textblock::table configure_column unexpected argument count. Require name value pairs. Known options: %copt_keys%"
-                        }
-                        foreach {k v} $args {
-                            switch -- $k {
-                                %copt_switchkeys% {}
-                                default {
-                                    error "[tcl::namespace::current]::table configure_column unknown option '$k'. Known options: %copt_keys%"
-                                }
-                            }
-                        }
-                        set checked_opts [tcl::dict::get $o_columndefs $cidx] ;#copy of current state
-
-                        set hstates $o_headerstates ;#operate on a copy
-                        set colstate [tcl::dict::get $o_columnstates $cidx]
-                        set args_got_headers 0
-                        set args_got_header_colspans 0
-                        foreach {k v} $args {
-                            switch -- $k {
-                                -headers {
-                                    set args_got_headers 1
-                                    set i 0
-                                    set maxseen 0 ;#don't compare with cached colstate maxwidthheaderseen - we have all the headers for the column right here and need to refresh the colstate maxwidthheaderseen values completely.
-                                    foreach hdr $v {
-                                        set currentmax [my header_height_calc $i $cidx] ;#exclude current column - ie look at heights for this header in all other columns
-                                        #set this_header_height [textblock::height $hdr]
-                                        lassign [textblock::size $hdr] _w this_header_width _h this_header_height
-
-                                        if {$this_header_height >= $currentmax} {
-                                            tcl::dict::set hstates $i maxheightseen $this_header_height
-                                        } else {
-                                            tcl::dict::set hstates $i maxheightseen $currentmax
-                                        }
-                                        if {$this_header_width >= $maxseen} {
-                                            set maxseen $this_header_width
-                                        }
-                                        #if {$this_header_width > [tcl::dict::get $colstate maxwidthheaderseen]} {
-                                        #    tcl::dict::set colstate maxwidthheaderseen $this_header_width
-                                        #}
-                                        incr i
-                                    }
-                                    tcl::dict::set colstate maxwidthheaderseen $maxseen
-                                    #review - we could avoid some recalcs if we check current width range compared to previous
-                                    set o_calculated_column_widths [list] ;#invalidate cached column widths - a recalc will be forced when needed
-                                    tcl::dict::set checked_opts $k $v
-                                }
-                                -header_colspans {
-                                    set args_got_header_colspans 1
-                                    #check columns to left to make sure each new colspan for this column makes sense in the overall context
-                                    #user may have to adjust colspans in order left to right to avoid these check errors
-                                    #note that 'any' represents span all up to the next non-zero defined colspan.
-                                    set cspans [my header_colspans]
-                                    set h 0
-                                    if {[llength $v] > [tcl::dict::size $cspans]} {
-                                        error "configure_column $cidx -header_colspans. Only [tcl::dict::size $cspans] headers exist. Too many values supplied"
-                                    }
-                                    foreach s $v {
-                                        if {$cidx == 0} {
-                                            if {[tcl::string::is integer -strict $s]} {
-                                                if {$s < 1} {
-                                                    error "configure_column $cidx -header_colspans bad first value '$s' for header '$h' . First column cannot have span less than 1. use 'any' or a positive integer"
-                                                }
-                                            } else {
-                                                if {$s ne "any" && $s ne ""} {
-                                                    error "configure_column $cidx -header_colspans unrecognised value '$s' for header '$h' - must be a positive integer or the keyword 'any'"
-                                                }
-                                            }
-                                        } else {
-                                            #if {![tcl::string::is integer -strict $s]} {
-                                            #    if {$s ne "any" && $s ne ""} {
-                                            #        error "configure_column $cidx -header_colspans unrecognised value '$s' for header '$h' - must be a positive integer or the keyword 'any'"
-                                            #    }
-                                            #} else {
-                                                set header_spans [tcl::dict::get $cspans $h]
-                                                set remaining [lindex $header_spans 0]
-                                                if {$remaining ne "any"} {
-                                                    incr remaining -1
-                                                }
-                                                #look at spans defined for previous cols
-                                                #we are presuming previous column entries are valid - and only validating if our new entry is ok under that assumption
-                                                for {set c 0} {$c < $cidx} {incr c} {
-                                                    set span [lindex $header_spans $c]
-                                                    if {$span eq "any"} {
-                                                        set remaining "any"
-                                                    } else {
-                                                        if {$remaining eq "any"} {
-                                                            if {$span ne "0"} {
-                                                                #a previous column has ended the 'any' span
-                                                                set remaining [expr {$span -1}]
-                                                            }
-                                                        } else {
-                                                            if {$span eq "0"} {
-                                                                incr remaining -1
-                                                            } else {
-                                                                set remaining [expr {$span -1}]
-                                                            }
-                                                            #allow to go negative
-                                                        }
-                                                    }
-                                                }
-                                                if {$remaining eq "any"} {
-                                                    #any int >0 ok  - what about 'any' immediately following any?
-                                                } else {
-                                                    if {$remaining > 0} {
-                                                        if {$s ne "0" && $s ne ""} {
-                                                            error "configure_column $cidx -header_colspans bad span $s for header '$h'. Remaining span is '$remaining' - so a zero colspan is required"
-                                                        }
-                                                    } else {
-                                                        if {$s == 0} {
-                                                            error "configure_column $cidx -header_colspans bad span $s for header '$h'. No span in place - need >=1 or 'any'"
-                                                        }
-                                                    }
-                                                }
-                                            #}
-                                        }
-                                        incr h
-                                    }
-                                    #todo - avoid recalc if no change
-                                    set o_calculated_column_widths [list] ;#invalidate cached column widths - a recalc will be forced when needed
-                                    tcl::dict::set checked_opts $k $v
-                                }
-                                -minwidth {
-                                    set o_calculated_column_widths [list] ;#invalidate cached column widths - a recalc will be forced when needed
-                                    tcl::dict::set checked_opts $k $v
-                                }
-                                -maxwidth {
-                                    set o_calculated_column_widths [list] ;#invalidate cached column widths - a recalc will be forced when needed
-                                    tcl::dict::set checked_opts $k $v
-                                }
-                                -ansibase {
-                                    set parts [punk::ansi::ta::split_codes_single $v] ;#caller may have supplied separated codes eg "[a+ Yellow][a+ red]"
-                                    set col_ansibase_items [list]
-                                    foreach {pt code} $parts {
-                                        if {$pt ne ""} {
-                                            #we don't expect plaintext in an ansibase
-                                            error "Unable to interpret -ansibase value as ansi SGR codes. Plaintext detected. Consider using for example: '\[punk::ansi::a+ green]' (or alias '\[a+ green]') to build ansi. debug view: [punk::ansi::ansistring VIEW $v]"
-                                        }
-                                        if {$code ne ""} {
-                                            lappend col_ansibase_items $code
-                                        }
-                                    }
-                                    set col_ansibase [punk::ansi::codetype::sgr_merge_singles $col_ansibase_items]
-                                    tcl::dict::set checked_opts $k $col_ansibase
-                                }
-                                -ansireset {
-                                    if {$v eq "\uFFEF"} {
-                                        tcl::dict::set checked_opts $k "\x1b\[m" ;# [a]
-                                    } else {
-                                        error "textblock::table::configure_column -ansireset is read-only. It is present only to prevent unwanted colourised output in configure commands"
-                                    }
-                                }
-                                -blockalign - -textalign {
-                                    switch -- $v {
-                                        left - right {
-                                            tcl::dict::set checked_opts $k $v
-                                        }
-                                        centre - centre {
-                                            tcl::dict::set checked_opts $k centre
-                                        }
-                                    }
-                                }
-                                default {
-                                    tcl::dict::set checked_opts $k $v
-                                }
-                            }
-                        }
-                        #args checked - ok to update headerstates, headerdefs  and columndefs and columnstates
-                        tcl::dict::set o_columndefs $cidx $checked_opts
-                        set o_headerstates $hstates
-                        dict for {hidx hstate} $hstates {
-                            #configure_header
-                            if {![dict exists $o_headerdefs $hidx]} {
-                                #remove calculated members  -values -colspans
-                                set hdefaults [dict remove $o_opts_header_defaults -values -colspans]
-                                dict set o_headerdefs $hidx $hdefaults
-                            }
-                        }
-
-                        tcl::dict::set o_columnstates $cidx $colstate
-
-                        if {$args_got_headers} {
-                            #if the headerlist length for this column has shrunk,and it was the longest - we may now have excess entries in o_headerstates
-                            set zero_heights [list]
-                            tcl::dict::for {hidx _v} $o_headerstates {
-                                #pass empty string for exclude_column so we don't exclude our own column
-                                if {[my header_height_calc $hidx ""] == 0} {
-                                    lappend zero_heights $hidx
-                                }
-                            }
-                            foreach zidx $zero_heights {
-                                tcl::dict::unset o_headerstates $zidx
-                            }
-                        }
-                        if {$args_got_headers || $args_got_header_colspans} {
-                            #check and adjust header_colspans for all columns
-
-                        }
-
-                        return [tcl::dict::get $o_columndefs $cidx]
-                    }
-                }
-
-                method header_count {} {
-                    #*** !doctools
-                    #[call class::table [method header_count]]
-                    #[para] return the number of header rows
-                    return [tcl::dict::size $o_headerstates]
-                }
-                method header_count_calc {} {
-                    set max_headers 0
-                    tcl::dict::for {k cdef} $o_columndefs {
-                        set num_headers [llength [tcl::dict::get $cdef -headers]]
-                        set max_headers [expr {max($max_headers,$num_headers)}]
-                    }
-                    return $max_headers
-                }
-                method header_height {header_index} {
-                    #*** !doctools
-                    #[call class::table [method header_height] [arg header_index]]
-                    #[para] return the height of a header as the number of content-lines
-
-                    set idx [lindex [tcl::dict::keys $o_headerstates $header_index]]
-                    return [tcl::dict::get $o_headerstates $idx maxheightseen]
-                }
-
-                #review - use maxwidth (considering colspans) of each column to determine height after wrapping
-                # -need to consider whether vertical expansion allowed / maxheight?
-                method header_height_calc {header_index {exclude_column ""}} {
-                    set dataheight 0
-                    if {$exclude_column eq ""} {
-                        set exclude_colidx ""
-                    } else {
-                        set exclude_colidx [lindex [tcl::dict::keys $o_columndefs] $exclude_column]
-                    }
-                    tcl::dict::for {cidx cdef} $o_columndefs {
-                        if {$exclude_colidx == $cidx} {
-                            continue
-                        }
-                        set headerlist [tcl::dict::get $cdef -headers]
-                        if {$header_index < [llength $headerlist]} {
-                            set this_height [textblock::height [lindex $headerlist $header_index]]
-                            set dataheight [expr {max($dataheight,$this_height)}]
-                        }
-                    }
-                    return $dataheight
-                }
-
-                #return a dict keyed on header index with values representing colspans
-                #e.g
-                # 0 {any 0 0 0} 1 {1 1 1 1} 2 {2 0 1 1} 3 {3 0 0 1}
-                #
-                method header_colspans {} {
-                    #*** !doctools
-                    #[call class::table [method header_colspans]]
-                    #[para] Show the colspans configured for all headers
-
-                    #set num_headers [my header_count_calc]
-                    set num_headers [my header_count]
-                    set colspans_by_header [tcl::dict::create]
-                    tcl::dict::for {cidx cdef} $o_columndefs {
-                        set headerlist [tcl::dict::get $cdef -headers]
-                        set colspans_for_column   [tcl::dict::get $cdef -header_colspans]
-                        for {set h 0} {$h < $num_headers} {incr h} {
-                            set headerspans [punk::lib::dict_getdef $colspans_by_header $h [list]]
-                            set defined_span [lindex $colspans_for_column $h]
-                            set i 0
-                            set spanremaining [lindex $headerspans 0]
-                            if {$spanremaining ne "any"} {
-                                if {$spanremaining eq ""} {
-                                    set spanremaining 1
-                                }
-                                incr spanremaining -1
-                            }
-                            foreach s $headerspans {
-                                if {$s eq "any"} {
-                                    set spanremaining "any"
-                                } elseif {$s == 0} {
-                                    if {$spanremaining ne "any"} {
-                                        incr spanremaining -1
-                                    }
-                                } else {
-                                    set spanremaining [expr {$s - 1}]
-                                }
-                                incr i
-                            }
-                            if {$defined_span eq ""} {
-                                if {$spanremaining eq "0"} {
-                                    lappend headerspans 1
-                                } else {
-                                    #"any" or an integer
-                                    lappend headerspans 0
-                                }
-                            } else {
-                                lappend headerspans $defined_span
-                            }
-                            tcl::dict::set colspans_by_header $h $headerspans
-                        }
-                    }
-                    return $colspans_by_header
-                }
-
-                #e.g
-                # 0 {any 0 0 0} 1 {1 1 1 1} 2 {2 0 any 1} 3 {any 0 0 1}
-                #convert to
-                # 0 {4 0 0 0} 1 {1 1 1 1} 2 {2 0 1 1} 3 {3 0 0 1}
-                method header_colspans_numeric {} {
-                    set hcolspans [my header_colspans]
-                    if {![tcl::dict::size $hcolspans]} {
-                        return
-                    }
-                    set numcols [llength [tcl::dict::get $hcolspans 0]] ;#assert: all are the same
-                    tcl::dict::for {h spans} $hcolspans {
-                        set c 0 ;#column index
-                        foreach s $spans {
-                            if {$s eq "any"} {
-                                set spanlen 1
-                                for {set i [expr {$c+1}]} {$i < $numcols} {incr i} {
-                                    #next 'any' or non-zero ends an 'any' span
-                                    if {[lindex $spans $i] ne "0"} {
-                                        break
-                                    }
-                                    incr spanlen
-                                }
-                                #overwrite the 'any' with it's actual span
-                                set modified_spans [dict get $hcolspans $h]
-                                lset modified_spans $c $spanlen
-                                dict set hcolspans $h $modified_spans
-                            }
-                            incr  c
-                        }
-                    }
-                    return $hcolspans
-                }
-
-                method configure_header {index_expression args} {
-                    #*** !doctools
-                    #[call class::table [method configure_header]]
-                    #[para] - configure header row-wise
-
-                    #the header data being configured or returned here is mostly derived from the column defs and if necessary written to the column defs.
-                    #It can also be set column by column - but it is much easier (especially for colspans) to configure them on a header-row basis
-                    #e.g o_headerstates: 0 {maxheightseen 1} 1 {maxheightseen 2}
-                    set num_headers [my header_count_calc]
-                    set hidx [lindex [tcl::dict::keys $o_headerstates] $index_expression]
-                    if {$hidx eq ""} {
-                        error "textblock::table::configure_header - no header row defined at index '$index_expression'."
-                    }
-                    if {$hidx > $num_headers -1} {
-                        #assert - shouldn't happen
-                        error "textblock::table::configure_header  error headerstates data is out of sync"
-                    }
-
-                    if {![llength $args]} {
-                        set colspans_by_header [my header_colspans]
-                        set result [tcl::dict::create]
-                        tcl::dict::set result -colspans [tcl::dict::get $colspans_by_header $hidx]
-                        set header_row_items [list]
-                        tcl::dict::for {cidx cdef} $o_columndefs {
-                            set colheaders [tcl::dict::get $cdef -headers]
-                            set relevant_header [lindex $colheaders $hidx]
-                            #The -headers element of the column def is allowed to have less elements than the total, even be empty. Number of headers is defined by the longest -header list in the set of columns
-                            lappend header_row_items $relevant_header ;#may be empty string because column had nothing at that index, or may be empty string stored in that column. We don't differentiate.
-                        }
-                        tcl::dict::set result -values $header_row_items
-
-                        #review - ensure always a headerdef record for each header?
-                        if {[tcl::dict::exists $o_headerdefs $hidx]} {
-                            set result [tcl::dict::merge $result [tcl::dict::get $o_headerdefs $hidx]]
-                        } else {
-                            #warn for now
-                            puts stderr "no headerdef record for header $hidx"
-                        }
-                        return $result
-                    }
-                    if {[llength $args] == 1} {
-                        if {[lindex $args 0] in [tcl::dict::keys $o_opts_header_defaults]} {
-                            #query single option
-                            set k [lindex $args 0]
-                            #set val [tcl::dict::get $o_rowdefs $ridx $k]
-
-                            set infodict [tcl::dict::create]
-                            #todo
-                            # -blockalignments and -textalignments lists
-                            # must match number of values if not empty? - e.g -blockalignments {left right "" centre left ""}
-                            #if there is a value it overrides alignments specified on the column
-                            switch -- $k {
-                                -values {
-                                    set header_row_items [list]
-                                    tcl::dict::for {cidx cdef} $o_columndefs {
-                                        set colheaders [tcl::dict::get $cdef -headers]
-                                        set relevant_header [lindex $colheaders $hidx]
-                                        #The -headers element of the column def is allowed to have less elements than the total, even be empty. Number of headers is defined by the longest -header list in the set of columns
-                                        lappend header_row_items $relevant_header ;#may be empty string because column had nothing at that index, or may be empty string stored in that column. We don't differentiate.
-
-                                    }
-                                    set val $header_row_items
-                                    set returndict [tcl::dict::create option $k value $val ansireset "\x1b\[m"]
-                                }
-                                -colspans {
-                                    set colspans_by_header [my header_colspans]
-                                    set result [tcl::dict::create]
-                                    set val [tcl::dict::get $colspans_by_header $hidx]
-                                    #ansireset not required
-                                    set returndict [tcl::dict::create option $k value $val]
-                                }
-                                -ansibase {
-                                    set val ???
-                                    set returndict [tcl::dict::create option $k value $val ansireset "\x1b\[m"]
-                                    tcl::dict::set infodict debug [ansistring VIEW $val]
-                                }
-                            }
-                            tcl::dict::set returndict info $infodict
-                            return $returndict
-                            #return [tcl::dict::create option $k value $val ansireset "\x1b\[m" info $infodict]
-                        } else {
-                            error "textblock::table configure_header - unrecognised option '[lindex $args 0]'. Known values [tcl::dict::keys $o_opts_header_defaults]"
-                        }
-                    }
-                    if {[llength $args] %2 != 0} {
-                        error "textblock::table configure_header incorrect number of options following index_expression. Require name value pairs. Known options: [tcl::dict::keys $o_opts_header_defaults]"
-                    }
-                    foreach {k v} $args {
-                        if {$k ni [tcl::dict::keys $o_opts_header_defaults]} {
-                            error "[tcl::namespace::current]::table configure_row unknown option '$k'. Known options: [tcl::dict::keys $o_opts_header_defaults]"
-                        }
-                    }
-
-                    set checked_opts [list]
-                    #safe jumptable test
-                    #dict for {k v} $args {}
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -ansibase {
-                                set parts [punk::ansi::ta::split_codes_single $v] ;#caller may have supplied separated codes eg "[a+ Yellow][a+ red]"
-                                set header_ansibase_items [list] ;
-                                foreach {pt code} $parts {
-                                    if {$pt ne ""} {
-                                        #we don't expect plaintext in an ansibase
-                                        error "Unable to interpret -ansibase value as ansi SGR codes. Plaintext detected. Consider using for example: '\[punk::ansi::a+ green]' (or alias '\[a+ green]') to build ansi. debug view: [punk::ansi::ansistring VIEW $v]"
-                                    }
-                                    if {$code ne ""} {
-                                        lappend header_ansibase_items $code
-                                    }
-                                }
-                                set header_ansibase [punk::ansi::codetype::sgr_merge_singles $header_ansibase_items]
-                                lappend checked_opts $k $header_ansibase
-                            }
-                            -ansireset {
-                                if {$v eq "\uFFEF"} {
-                                    lappend checked_opts $k "\x1b\[m" ;# [a]
-                                } else {
-                                    error "textblock::table::configure_header -ansireset is read-only. It is present only to prevent unwanted colourised output in configure commands"
-                                }
-                            }
-                            -values {
-                                if {[llength $v] > [tcl::dict::size $o_columndefs]} {
-                                    error "textblock::table::configure_header -values length ([llength $v]) is longer than number of columns ([tcl::dict::size $o_columndefs])"
-                                }
-                                lappend checked_opts $k $v
-                            }
-                            -colspans {
-                                set numcols [tcl::dict::size $o_columndefs]
-                                if {[llength $v] > $numcols} {
-                                    error "textblock::table::configure_header -colspans length ([llength $v]) is longer than number of columns ([tcl::dict::size $o_columndefs])"
-                                }
-                                if {[llength $v] < $numcols} {
-                                    puts stderr "textblock::table::configure_header warning - only [llength $v] spans specified for [tcl::dict::size $o_columndefs] columns."
-                                    puts stderr "It is recommended to set all spans explicitly. (auto-calc not implemented)"
-                                }
-                                if {[llength $v]} {
-                                    set firstspan [lindex $v 0]
-                                    set first_is_ok 0
-                                    if {$firstspan eq "any"} {
-                                        set first_is_ok 1
-                                    } elseif {[tcl::string::is integer -strict $firstspan] && $firstspan > 0 && $firstspan <= $numcols} {
-                                        set first_is_ok 1
-                                    }
-                                    if {!$first_is_ok} {
-                                        error "textblock::table::configure_header -colspans first value '$firstspan' must be integer > 0 & <= $numcols or the string \"any\""
-                                    }
-                                    #we don't mind if there are less colspans specified than columns.. the tail can be deduced from the leading ones specified (review)
-                                    set remaining $firstspan
-                                    if {$remaining ne "any"} {
-                                        incr remaining -1
-                                    }
-                                    set spanview $v
-                                    set sidx 1
-                                    #because we allow 'any' - be careful when doing < or > comparisons - as we are mixing integer and string comparisons if we don't test for 'any' first
-                                    foreach span [lrange $v 1 end] {
-                                        if {$remaining eq "any"} {
-                                            if {$span eq "any"} {
-                                                set remaining "any"
-                                            } elseif {$span > 0} {
-                                                #ok to reset to higher val immediately or after an any and any number of following zeros
-                                                if {$span > ($numcols - $sidx)} {
-                                                    lset spanview $sidx [a+ web-red]$span[a]
-                                                    error "textblock::table::configure_header -colspans sequence incorrect at span '$span'. Require span <= [expr {$numcols-$sidx}] or \"any\".[a] $spanview"
-                                                }
-                                                set remaining $span
-                                                incr remaining -1
-                                            } else {
-                                                #zero following an any - leave remaining as any
-                                            }
-                                        } else {
-                                            if {$span eq "0"} {
-                                                if {$remaining eq "0"} {
-                                                    lset spanview $sidx [a+ web-red]$span[a]
-                                                    error "textblock::table::configure_header -colspans sequence incorrect at span '$span' remaining is $remaining. Require positive or \"any\" value.[a] $spanview"
-                                                } else {
-                                                    incr remaining -1
-                                                }
-                                            } else {
-                                                if {$remaining eq "0"} {
-                                                    #ok for new span value of any or > 0
-                                                    if {$span ne "any" && $span > ($numcols - $sidx)} {
-                                                        lset spanview $sidx [a+ web-red]$span[a]
-                                                        error "textblock::table::configure_header -colspans sequence incorrect at span '$span'. Require span <= [expr {$numcols-$sidx}] or \"any\".[a] $spanview"
-                                                    }
-                                                    set remaining $span
-                                                    if {$remaining ne "any"} {
-                                                        incr remaining -1
-                                                    }
-                                                } else {
-                                                    lset spanview $sidx [a+ web-red]$span[a]
-                                                    error "textblock::table::configure_header -colspans sequence incorrect at span '$span' remaining is $remaining. Require zero value span.[a] $spanview"
-                                                }
-                                            }
-                                        }
-                                        incr sidx
-                                    }
-                                }
-                                #empty -colspans list should be ok
-
-                                #error "sorry - -colspans not yet implemented for header rows - set manually in vertical order via configure_column for now"
-                                lappend checked_opts $k $v
-                            }
-                            default {
-                                lappend checked_opts $k $v
-                            }
-                        }
-                    }
-
-                    #configured opts all good
-                    #safe jumptable test
-                    #dict for {k v} $checked_opts {}
-                    #foreach {k v} $checked_opts {}
-
-                    # headerdefs excludes -values and -colspans
-                    set update_hdefs [tcl::dict::get $o_headerdefs $hidx]
-
-                    tcl::dict::for {k v} $checked_opts {
-                        switch -- $k {
-                            -values {
-                                set c 0
-                                foreach hval $v {
-                                    #retrieve -headers from relevant col, insert at header index, and write back.
-                                    set thiscol_headers_vertical [tcl::dict::get $o_columndefs $c -headers]
-                                    set missing [expr {($hidx +1) - [llength $thiscol_headers_vertical]}]
-                                    if {$missing > 0} {
-                                        lappend thiscol_headers_vertical {*}[lrepeat $missing ""]
-                                    }
-                                    lset thiscol_headers_vertical $hidx $hval
-                                    tcl::dict::set o_columndefs $c -headers $thiscol_headers_vertical
-                                    #invalidate column width cache
-                                    set o_calculated_column_widths [list]
-                                    # -- -- -- -- -- --
-                                    #also update maxwidthseen & maxheightseen
-                                    set i 0
-                                    set maxwidthseen 0
-                                    #set maxheightseen 0
-                                    foreach hdr $thiscol_headers_vertical {
-                                        lassign [textblock::size $hdr] _w this_header_width _h this_header_height
-                                        set maxheightseen [punk::lib::dict_getdef $o_headerstates $i maxheightseen 0]
-                                        if {$this_header_height >= $maxheightseen} {
-                                            tcl::dict::set o_headerstates $i maxheightseen $this_header_height
-                                        } else {
-                                            tcl::dict::set o_headerstates $i maxheightseen $maxheightseen
-                                        }
-                                        if {$this_header_width >= $maxwidthseen} {
-                                            set maxwidthseen $this_header_width
-                                        }
-                                        incr i
-                                    }
-                                    tcl::dict::set o_columnstates $c maxwidthheaderseen $maxwidthseen
-                                    # -- -- -- -- -- --
-                                    incr c
-                                }
-                            }
-                            -colspans {
-                                #sequence has been verified above - we need to split it and store across columns
-                                set c 0 ;#column index
-                                foreach span $v {
-                                    set colspans [tcl::dict::get $o_columndefs $c -header_colspans]
-                                    if {$hidx > [llength $colspans]-1} {
-                                        set colspans_by_header [my header_colspans]
-                                        #puts ">>>>>?$colspans_by_header"
-                                        #we are allowed to lset only one beyond the current length to append
-                                        #but there may be even less or no entries present in a column
-                                        # - the ability to underspecify and calculate the missing values makes setting the values complicated.
-                                        #use the header_colspans calculation to update only those entries necessary
-                                        set spanlist [list]
-                                        for {set h 0} {$h < $hidx} {incr h} {
-                                            set cspans [tcl::dict::get $colspans_by_header $h]
-                                            set requiredval [lindex $cspans $c]
-                                            lappend spanlist $requiredval
-                                        }
-                                        tcl::dict::set o_columndefs $c -header_colspans $spanlist
-
-                                        set colspans [tcl::dict::get $o_columndefs $c -header_colspans]
-                                    }
-
-                                    lset colspans $hidx $span
-                                    tcl::dict::set o_columndefs $c -header_colspans $colspans
-                                    incr c
-                                }
-                            }
-                            default {
-                                dict set update_hdefs $k $v
-                            }
-                        }
-                    }
-                    set opt_minh [tcl::dict::get $update_hdefs -minheight]
-                    set opt_maxh [tcl::dict::get $update_hdefs -maxheight]
-
-                    #todo - allow zero values to hide/collapse
-                    # - see also configure_row
-                    if {![tcl::string::is integer $opt_minh] || ($opt_maxh ne "" && ![tcl::string::is integer -strict $opt_maxh])} {
-                        error "[tcl::namespace::current]::table::configure_header error -minheight '$opt_minh' and -maxheight '$opt_maxh' must be integers greater than or equal to 1 (for now)"
-                    }
-                    if {$opt_minh < 1 || ($opt_maxh ne "" && $opt_maxh < 1)} {
-                        error "[tcl::namespace::current]::table::configure_header error -minheight '$opt_minh' and -maxheight '$opt_maxh' must both be 1 or greater (for now)"
-                    }
-                    if {$opt_maxh ne "" && $opt_maxh < $opt_minh} {
-                        error "[tcl::namespace::current]::table::configure_header error -maxheight '$opt_maxh' must greater than -minheight '$opt_minh'"
-                    }
-
-                    #set o_headerstate $hidx -minheight? -maxheight? ???
-                    tcl::dict::set o_headerdefs $hidx $update_hdefs
-                }
-
-                method add_row {valuelist args} {
-                    #*** !doctools
-                    #[call class::table [method add_row]\
-                    #  [arg valuelist]\
-                    #  [opt "[option -minheight] [arg int_minheight]"]\
-                    #  [opt "[option -maxheight] [arg int_maxheight]"]\
-                    #  [opt "[option -ansibase] [arg ansicode]"]\
-                    #]
-                    if {[tcl::dict::size $o_columndefs] > 0 && ([llength $valuelist] && [llength $valuelist] != [tcl::dict::size $o_columndefs])} {
-                        set msg ""
-                        append msg "add_row - invalid number ([llength $valuelist]) of values in row - Must match existing column count: [tcl::dict::size $o_columndefs]" \n
-                        append msg "rowdata: $valuelist"
-                        error $msg
-                    }
-                    if {[tcl::dict::size $o_columndefs] == 0 && ![llength $valuelist]} {
-                        error "add_row - no values supplied, and no columns defined, so cannot use default column values"
-                    }
-
-                    set defaults [tcl::dict::create\
-                        -minheight 1\
-                        -maxheight ""\
-                        -ansibase ""\
-                        -ansireset "\uFFEF"\
-                    ]
-                    set o_opts_row_defaults $defaults
-
-                    if {[llength $args] %2 !=0} {
-                        error "[tcl::namespace::current]::table::add_row unexpected argument count. Require name value pairs. Known options: [tcl::dict::keys $defaults]"
-                    }
-                    #safe jumptable test
-                    #dict for {k v} $args {}
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -minheight - -maxheight - -ansibase - -ansireset {}
-                            default {
-                                error "Invalid option '$k' Known options: [tcl::dict::keys $defaults] (-ansireset is read-only)"
-                            }
-                        }
-                    }
-                    set opts [tcl::dict::merge $defaults $args]
-
-                    set auto_columns 0
-                    if {[tcl::dict::size $o_columndefs] == 0} {
-                        set auto_columns 1
-                        #no columns defined - auto define with defaults for each column in first supplied row
-                        #auto define columns only valid if no existing columns
-                        #the autocolumns must be added before configure_row - but if configure_row fails - we need to remove them!
-                        foreach el $valuelist {
-                            my add_column
-                        }
-                    } else {
-                        if {![llength $valuelist]} {
-                            tcl::dict::for {k coldef} $o_columndefs {
-                                lappend valuelist [tcl::dict::get $coldef -defaultvalue]
-                            }
-                        }
-                    }
-                    set rowcount [tcl::dict::size $o_rowdefs]
-                    tcl::dict::set o_rowdefs $rowcount $defaults ;# ensure record exists before configure
-
-                    if {[catch {
-                        my configure_row $rowcount {*}$opts
-                    } errMsg]} {
-                        #undo anything we saved before configure_row
-                        tcl::dict::unset o_rowdefs $rowcount
-                        #remove auto_columns
-                        if {$auto_columns} {
-                            set o_columndata    [tcl::dict::create]
-                            set o_columndefs    [tcl::dict::create]
-                            set o_columnstate   [tcl::dict::create]
-                        }
-                        error "add_row failed to configure with supplied options $opts. Err:\n$errMsg"
-                    }
-
-
-                    set c 0
-                    set max_height_seen 1
-                    foreach v $valuelist {
-                        set prev_maxwidth [tcl::dict::get $o_columnstates $c maxwidthbodyseen]
-                        set prev_minwidth [tcl::dict::get $o_columnstates $c minwidthbodyseen]
-
-                        tcl::dict::lappend o_columndata $c $v
-                        lassign [textblock::size_as_list $v] valwidth valheight
-                        if {$valheight > $max_height_seen} {
-                            set max_height_seen $valheight
-                        }
-                        if {$valwidth > [tcl::dict::get $o_columnstates $c maxwidthbodyseen]} {
-                            tcl::dict::set o_columnstates $c maxwidthbodyseen $valwidth
-                        }
-                        if {$valwidth < [tcl::dict::get $o_columnstates $c minwidthbodyseen]} {
-                            tcl::dict::set o_columnstates $c minwidthbodyseen $valwidth
-                        }
-
-                        if {[tcl::dict::get $o_columnstates $c maxwidthbodyseen] > $prev_maxwidth || [tcl::dict::get $o_columnstates $c minwidthbodyseen] < $prev_minwidth} {
-                            #invalidate calculated column width cache if any new value was outside the previous range of widths
-                            set o_calculated_column_widths [list]
-                        }
-                        incr c
-                    }
-
-                    set opt_maxh [tcl::dict::get $o_rowdefs $rowcount -maxheight]
-                    if {$opt_maxh ne ""} {
-                        tcl::dict::set o_rowstates $rowcount -maxheight [expr {min($opt_maxh,$max_height_seen)}]
-                    } else {
-                        tcl::dict::set o_rowstates $rowcount -maxheight $max_height_seen
-                    }
-
-                    return $rowcount
-                }
-                method configure_row {index_expression args} {
-                    #*** !doctools
-                    #[call class::table [method configure_row]\
-                    #  [arg index_expression]\
-                    #  [opt "[option -minheight] [arg int_minheight]"]\
-                    #  [opt "[option -maxheight] [arg int_maxheight]"]\
-                    #  [opt "[option -ansibase] [arg ansicode]"]\
-                    #]
-                    set ridx [lindex [tcl::dict::keys $o_rowdefs] $index_expression]
-                    if {$ridx eq ""} {
-                        error "textblock::table::configure_row - no row defined at index '$ridx'.Use add_row to define rows"
-                    }
-                    if {![llength $args]} {
-                        return [tcl::dict::get $o_rowdefs $ridx]
-                    }
-                    if {[llength $args] == 1} {
-                        if {[lindex $args 0] in [tcl::dict::keys $o_opts_row_defaults]} {
-                            #query single option
-                            set k [lindex $args 0]
-                            set val [tcl::dict::get $o_rowdefs $ridx $k]
-                            set returndict [tcl::dict::create option $k value $val ansireset "\x1b\[m"]
-                            set infodict [tcl::dict::create]
-                            switch -- $k {
-                                -ansibase {
-                                    tcl::dict::set infodict debug [ansistring VIEW $val]
-                                }
-                            }
-                            tcl::dict::set returndict info $infodict
-                            return $returndict
-                            #return [tcl::dict::create option $k value $val ansireset "\x1b\[m" info $infodict]
-                        } else {
-                            error "textblock::table configure_row - unrecognised option '[lindex $args 0]'. Known values [tcl::dict::keys $o_opts_row_defaults]"
-                        }
-                    }
-                    if {[llength $args] %2 != 0} {
-                        error "textblock::table configure_row incorrect number of options following index_expression. Require name value pairs. Known options: [tcl::dict::keys $o_opts_row_defaults]"
-                    }
-                    foreach {k v} $args {
-                        if {$k ni [tcl::dict::keys $o_opts_row_defaults]} {
-                            error "[tcl::namespace::current]::table configure_row unknown option '$k'. Known options: [tcl::dict::keys $o_opts_row_defaults]"
-                        }
-                    }
-                    set checked_opts [list]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -ansibase {
-                                set parts [punk::ansi::ta::split_codes_single $v] ;#caller may have supplied separated codes eg "[a+ Yellow][a+ red]"
-                                set row_ansibase_items [list] ;
-                                foreach {pt code} $parts {
-                                    if {$pt ne ""} {
-                                        #we don't expect plaintext in an ansibase
-                                        error "Unable to interpret -ansibase value as ansi SGR codes. Plaintext detected. Consider using for example: '\[punk::ansi::a+ green]' (or alias '\[a+ green]') to build ansi. debug view: [punk::ansi::ansistring VIEW $v]"
-                                    }
-                                    if {$code ne ""} {
-                                        lappend row_ansibase_items $code
-                                    }
-                                }
-                                set row_ansibase [punk::ansi::codetype::sgr_merge_singles $row_ansibase_items]
-                                lappend checked_opts $k $row_ansibase
-                            }
-                            -ansireset {
-                                if {$v eq "\uFFEF"} {
-                                    lappend checked_opts $k "\x1b\[m" ;# [a]
-                                } else {
-                                    error "textblock::table::configure_row -ansireset is read-only. It is present only to prevent unwanted colourised output in configure commands"
-                                }
-                            }
-                            default {
-                                lappend checked_opts $k $v
-                            }
-                        }
-                    }
-
-                    set current_opts [tcl::dict::get $o_rowdefs $ridx]
-                    set opts [tcl::dict::merge $current_opts $checked_opts]
-
-                    #check minheight and maxheight together
-                    set opt_minh [tcl::dict::get $opts -minheight]
-                    set opt_maxh [tcl::dict::get $opts -maxheight]
-
-                    #todo - allow zero values to hide/collapse rows as is possible with columns
-                    if {![tcl::string::is integer $opt_minh] || ($opt_maxh ne "" && ![tcl::string::is integer -strict $opt_maxh])} {
-                        error "[tcl::namespace::current]::table::configure_row error -minheight '$opt_minh' and -maxheight '$opt_maxh' must be integers greater than or equal to 1 (for now)"
-                    }
-                    if {$opt_minh < 1 || ($opt_maxh ne "" && $opt_maxh < 1)} {
-                        error "[tcl::namespace::current]::table::configure_row error -minheight '$opt_minh' and -maxheight '$opt_maxh' must both be 1 or greater (for now)"
-                    }
-                    if {$opt_maxh ne "" && $opt_maxh < $opt_minh} {
-                        error "[tcl::namespace::current]::table::configure_row error -maxheight '$opt_maxh' must greater than -minheight '$opt_minh'"
-                    }
-                    tcl::dict::set o_rowstates $ridx -minheight $opt_minh
-
-
-                    tcl::dict::set o_rowdefs $ridx $opts
-                }
-                method row_count {} {
-                    #*** !doctools
-                    #[call class::table [method row_count]]
-                    #[para] return the number of data rows in the table.
-                    return [tcl::dict::size $o_rowdefs]
-                }
-                method row_clear {} {
-                    #*** !doctools
-                    #[call class::table [method row_clear]]
-                    #[para] Remove all rows without resetting column data.
-                    #[para] When adding new rows the number of entries will need to match the existing column count.
-                    set o_rowdefs   [tcl::dict::create]
-                    set o_rowstates [tcl::dict::create]
-                    #The data values are stored by column regardless of whether added row by row
-                    tcl::dict::for {cidx records} $o_columndata {
-                        tcl::dict::set o_columndata $cidx [list]
-                        #reset only the body fields in o_columnstates
-                        tcl::dict::set o_columnstates $cidx minwidthbodyseen 0
-                        tcl::dict::set o_columnstates $cidx maxwidthbodyseen 0
-                    }
-                    set o_calculated_column_widths [list]
-                }
-                method clear {} {
-                    #*** !doctools
-                    #[call class::table [method clear]]
-                    #[para] Remove all row and column data.
-                    #[para] If a subsequent call to add_row is made it can contain any number of values.
-                    #[para] Further calls to add_row will need to contain the same number of values
-                    #[para] as the first call unless default values have been set for the missing columns (review - in flux).
-                    my row_clear
-                    set o_columndefs    [tcl::dict::create]
-                    set o_columndata    [tcl::dict::create]
-                    set o_columnstates  [tcl::dict::create]
-                }
-
-
-
-                #method Get_columns_by_name {namematch_list} {
-                #}
-
-                #specify range with x..y
-                method Get_columns_by_indices {index_list} {
-                    foreach spec $index_list {
-                        if {[tcl::string::is integer -strict $c]} {
-                            set colidx $c
-                        } else {
-                            tcl::dict::for {colidx coldef} $o_columndefs {
-                                #if {[tcl::string::match x x]} {}
-                            }
-                        }
-                    }
-                }
-                method Get_boxlimits_and_joins {position fname_body} {
-                    #fname_body will be "custom" or one of the predefined types  light,heavy etc
-                    switch -- $position {
-                        left {
-                            return [tcl::dict::create \
-                                boxlimits       [list hlb blc vll]\
-                                boxlimits_top   [list hlb blc vll hlt tlc]\
-                                joins           [list down]\
-                                bodyjoins       [list down-$fname_body]\
-                            ]
-                        }
-                        inner {
-                            return [tcl::dict::create \
-                                boxlimits           [list hlb blc vll]\
-                                boxlimits_top       [list hlb blc vll hlt tlc]\
-                                joins               [list down left]\
-                                bodyjoins           [list left down-$fname_body]
-                            ]
-                        }
-                        right {
-                            return [tcl::dict::create \
-                                boxlimits           [list hlb blc vll vlr brc]\
-                                boxlimits_top       [list hlb blc vll vlr brc hlt tlc trc]\
-                                joins               [list down left]\
-                                bodyjoins           [list left down-$fname_body]\
-                            ]
-                        }
-                        solo {
-                            return [tcl::dict::create \
-                                boxlimits           [list hlb blc vll vlr brc]\
-                                boxlimits_top       [list hlb blc vll vlr brc hlt tlc trc]\
-                                joins               [list down]\
-                                bodyjoins           [list down-$fname_body]\
-                            ]
-                        }
-                        default {
-                            error "Get_boxlimits_and_joins unrecognised position '$position' expected: left inner right solo"
-                        }
-                    }
-                }
-                method Get_boxlimits_and_joins1 {position fname_body} {
-                    #fname_body will be "custom" or one of the predefined types  light,heavy etc
-                    switch -- $position {
-                        left {
-                            #set header_boxlimits {hlb hlt tlc blc vll}
-                            set header_body_joins   [list down-$fname_body]
-                            set boxlimits_position  [list hlb blc vll]
-                            #set boxlimits_toprow [concat $boxlimits_position {hlt tlc}]
-                            set boxlimits_toprow    [list hlb blc vll hlt tlc]
-                            set joins               [list down]
-                        }
-                        inner {
-                            #set header_boxlimits {hlb hlt tlc blc vll}
-                            set header_body_joins   [list left down-$fname_body]
-                            set boxlimits_position  [list hlb blc vll]
-                            #set boxlimits_toprow [concat $boxlimits_position {hlt tlc}]
-                            set boxlimits_toprow    [list hlb blc vll hlt tlc]
-                            set joins               [list down left]
-                        }
-                        right {
-                            #set header_boxlimits {hlb hlt tlc blc vll vlr trc brc}
-                            set header_body_joins   [list left down-$fname_body]
-                            set boxlimits_position  [list hlb blc vll vlr brc]
-                            #set boxlimits_toprow [concat $boxlimits_position {hlt tlc trc}]
-                            set boxlimits_toprow    [list hlb blc vll vlr brc hlt tlc trc]
-                            set joins               [list down left]
-                        }
-                        solo {
-                            #set header_boxlimits {hlb hlt tlc blc vll vlr trc brc}
-                            set header_body_joins   [list down-$fname_body]
-                            set boxlimits_position  [list hlb blc vll vlr brc]
-                            #set boxlimits_toprow    [concat $boxlimits_position {hlt tlc trc}]
-                            set boxlimits_toprow    [list hlb blc vll vlr brc hlt tlc trc]
-                            set joins               [list down]
-                        }
-                    }
-                    return [tcl::dict::create boxlimits $boxlimits_position boxlimits_top $boxlimits_toprow joins $joins bodyjoins $header_body_joins ]
-                }
-                method get_column_by_index {index_expression args} {
-                    #puts "+++> get_column_by_index $index_expression $args [tcl::namespace::current]"
-                    #index_expression may be something like end-1 or 2+2  - we can't directly use it as a lookup for dicts.
-                    set opts [tcl::dict::create\
-                        -position "inner"\
-                        -return   "string"\
-                    ]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -position - -return {
-                                tcl::dict::set opts $k $v
-                            }
-                            default {
-                                error "[tcl::namespace::current]::table::get_column_by_index error invalid option '$k'. Known options [tcl::dict::keys $opts]"
-                            }
-                        }
-                    }
-                    set opt_posn    [tcl::dict::get $opts -position]
-                    set opt_return  [tcl::dict::get $opts -return]
-
-                    switch -- $opt_posn {
-                        left - inner - right - solo {}
-                        default {
-                            error "[tcl::namespace::current]::table::get_column_by_index error invalid value '$opt_posn' for -position. Valid values: [list left inner right solo]"
-                        }
-                    }
-                    switch -- $opt_return {
-                        string - dict {}
-                        default {
-                            error "[tcl::namespace::current]::table::get_column_by_index error invalid value '$opt_return' for -return. Valid values: string dict"
-                        }
-                    }
-
-                    set columninfo [my get_column_cells_by_index $index_expression]
-                    set header_list [tcl::dict::get $columninfo headers]
-                    #puts "===== header_list: $header_list"
-                    set cells [tcl::dict::get $columninfo cells]
-
-                    set topt_show_header [tcl::dict::get $o_opts_table -show_header]
-                    if {$topt_show_header eq ""} {
-                        set allheaders 0
-                        set all_cols [tcl::dict::keys $o_columndefs]
-                        foreach c $all_cols {
-                            incr allheaders [llength [tcl::dict::get $o_columndefs $c -headers]]
-                        }
-                        if {$allheaders == 0} {
-                            set do_show_header 0
-                        } else {
-                            set do_show_header 1
-                        }
-                    } else {
-                        set do_show_header $topt_show_header
-                    }
-                    set topt_show_footer [tcl::dict::get $o_opts_table -show_footer]
-
-
-                    set output ""
-                    set part_header ""
-                    set part_body ""
-                    set part_footer ""
-
-                    set boxlimits ""
-                    set joins ""
-                    set header_boxlimits [list]
-                    set header_body_joins [list]
-
-
-                    set ftypes [my Get_frametypes]
-                    set ftype_body [tcl::dict::get $ftypes body]
-                    if {[llength $ftype_body] >= 2} {
-                        set fname_body "custom"
-                    } else {
-                        set fname_body $ftype_body
-                    }
-                    set ftype_header [tcl::dict::get $ftypes header]
-                    if {[llength $ftype_header] >= 2} {
-                        set fname_header "custom"
-                    } else {
-                        set fname_header $ftype_header
-                    }
-
-                    set limj [my Get_boxlimits_and_joins $opt_posn $fname_body]
-                    set header_body_joins   [tcl::dict::get $limj bodyjoins]
-                    set joins               [tcl::dict::get $limj joins]
-                    set boxlimits_position  [tcl::dict::get $limj boxlimits]
-                    set boxlimits_toprow    [tcl::dict::get $limj boxlimits_top]
-                    #use struct::set instead of simple for loop - will be faster at least when critcl available
-                    set boxlimits               [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_body] $boxlimits_position]
-                    set boxlimits_headerless    [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_body] $boxlimits_toprow]
-                    set header_boxlimits        [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_header] $boxlimits_position]
-                    set header_boxlimits_toprow [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_header] $boxlimits_toprow]
-
-                    set fmap [tcl::dict::get $o_opts_table_effective -framemap_body]
-                    set hmap [tcl::dict::get $o_opts_table_effective -framemap_header]
-
-                    #if {![tcl::dict::get $o_opts_table -show_edge]} {
-                    #    set body_edgemap [textblock::class::table_edge_map ""]
-                    #    dict for {k v} $fmap {
-                    #        #tcl::dict::set fmap $k [tcl::dict::merge $v [tcl::dict::get $body_edgemap $k]]
-                    #    }
-                    #    set header_edgemap [textblock::class::header_edge_map ""]
-                    #    dict for {k v} $hmap {
-                    #        #tcl::dict::set hmap $k [tcl::dict::merge $v [tcl::dict::get $header_edgemap $k]]
-                    #    }
-                    #}
-                    set sep_elements_horizontal $::textblock::class::table_hseps
-                    set sep_elements_vertical   $::textblock::class::table_vseps
-
-                    set topmap      [tcl::dict::get $fmap top$opt_posn]
-                    set botmap      [tcl::dict::get $fmap bottom$opt_posn]
-                    set midmap      [tcl::dict::get $fmap middle$opt_posn]
-                    set onlymap     [tcl::dict::get $fmap only$opt_posn]
-
-                    set hdrmap      [tcl::dict::get $hmap only${opt_posn}]
-
-                    set topseps_h   [tcl::dict::get $sep_elements_horizontal top$opt_posn]
-                    set midseps_h   [tcl::dict::get $sep_elements_horizontal middle$opt_posn]
-                    set topseps_v   [tcl::dict::get $sep_elements_vertical top$opt_posn]
-                    set midseps_v   [tcl::dict::get $sep_elements_vertical middle$opt_posn]
-                    set botseps_v   [tcl::dict::get $sep_elements_vertical bottom$opt_posn]
-                    set onlyseps_v  [tcl::dict::get $sep_elements_vertical only$opt_posn]
-
-                    #top should work for all header rows regarding vseps - as we only use it to reduce the box elements, and lower headers have same except for tlc which isn't present anyway
-                    set headerseps_v     [tcl::dict::get $sep_elements_vertical top$opt_posn]
-
-                    lassign [my Get_seps] _h show_seps_h _v show_seps_v
-                    set return_headerheight 0
-                    set return_headerwidth 0
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-
-                    set colwidth [my column_width $cidx]
-
-                    set col_blockalign [tcl::dict::get $o_columndefs $cidx -blockalign]
-
-                    if {$do_show_header} {
-                        #puts "boxlimitsinfo header $opt_posn: -- boxlimits $header_boxlimits -- boxmap $hdrmap"
-                        set ansibase_header [tcl::dict::get $o_opts_table -ansibase_header] ;#merged to single during configure
-                        set ansiborder_header [tcl::dict::get $o_opts_table -ansiborder_header]
-                        if {[tcl::dict::get $o_opts_table -frametype_header] eq "block"} {
-                            set extrabg  [punk::ansi::codetype::sgr_merge_singles [list $ansibase_header] -filter_fg 1]
-                            set ansiborder_final $ansibase_header$ansiborder_header$extrabg
-                        } else {
-                            set ansiborder_final $ansibase_header$ansiborder_header
-                        }
-                        set RST [punk::ansi::a]
-
-
-                        set hcolwidth $colwidth
-                        #set hcolwidth [my column_width_configured $cidx]
-                        set hcell_line_blank [tcl::string::repeat " " $hcolwidth]
-
-                        set all_colspans [my header_colspans_numeric]
-
-                        #put our framedef calls together
-                        set fdef_header                 [textblock::framedef $ftype_header]
-                        set framedef_leftbox            [textblock::framedef -joins left $ftype_header]
-                        set framedef_headerdown_same    [textblock::framedef -joins {down} $ftype_header]
-                        set framedef_headerdown_body    [textblock::framedef -joins [list down-$fname_body] $ftype_header]
-                        #default span_extend_map - used as base to customise with specific joins
-                        set span_extend_map [tcl::dict::create \
-                                vll " "\
-                                tlc [tcl::dict::get $fdef_header hlt]\
-                                blc [tcl::dict::get $fdef_header hlb]\
-                            ]
-
-
-                        #used for colspan-zero header frames
-                        set framesub_map [list hl $TSUB vll $TSUB vlr $TSUB tlc $TSUB blc $TSUB trc $TSUB brc $TSUB] ;# a debug test
-
-                        set hrow 0
-                        set hmax [expr {[llength $header_list] -1}]
-                        foreach header $header_list {
-                            set headerspans [tcl::dict::get $all_colspans $hrow]
-                            set this_span [lindex $headerspans $cidx]
-                            #set hval $ansibase_header$header ;#no reset
-                            set hval $header
-                            set rowh [my header_height $hrow]
-
-                            if {$hrow == 0} {
-                                set hlims $header_boxlimits_toprow
-                                set rowpos "top"
-                                if {$hrow == $hmax} {
-                                    set rowpos "only"
-                                }
-                            } else {
-                                set hlims $header_boxlimits
-                                set rowpos "middle"
-                                if {$hrow == $hmax} {
-                                    set rowpos "bottom"
-                                }
-                            }
-                            if {!$show_seps_v} {
-                                set hlims [struct::set difference $hlims $headerseps_v]
-                            }
-                            if {$hrow == $hmax} {
-                                set header_joins $header_body_joins
-                            } else {
-                                set header_joins $joins
-                            }
-                            if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                set hlims [struct::set difference $hlims [tcl::dict::get $::textblock::class::header_edge_parts $rowpos$opt_posn] ]
-                            }
-                            #puts ">>> headerspans: $headerspans cidx: $cidx"
-
-                            #if {$this_span eq "any" || $this_span > 0} {}
-                            #changed to processing only numeric colspans
-
-                            if {$this_span > 0} {
-                                set startmap      [tcl::dict::get $hmap $rowpos${opt_posn}]
-                                #look at spans in header below to determine joins required at blc
-                                if {$show_seps_v} {
-                                    if {[tcl::dict::exists $all_colspans [expr {$hrow+1}]]} {
-                                        set next_spanlist [tcl::dict::get $all_colspans [expr {$hrow+1}]]
-                                        set spanbelow [lindex $next_spanlist $cidx]
-                                        if {$spanbelow == 0} {
-                                            #we don't want a down-join for blc - use a framedef with only left joins
-                                            tcl::dict::set startmap blc [tcl::dict::get $framedef_leftbox blc]
-                                        }
-                                    } else {
-                                        set next_spanlist [list]
-                                    }
-                                }
-
-                                #supporting wrapping in headers might be a step too difficult for little payoff.
-                                #we would need a flag to enable/disable - plus language-based wrapping alg (see tcllib)
-                                #The interaction with colspans and width calculations makes it likely to have a heavy performance impact and make the code even more complex.
-                                #May be better to require user to pre-wrap as needed
-                                ##set hval [textblock::renderspace -width $colwidth -wrap 1 "" $hval]
-
-                                #review - contentwidth of hval can be greater than $colwidth+2 - if so frame function will detect and frame_cache will not be used
-                                #This ellipsis 0 makes a difference (unwanted ellipsis at rhs of header column that starts span)
-
-                                # -width is always +2 - as the boxlimits take into account show_vseps and show_edge
-                                #set header_cell_startspan [textblock::frame -ellipsis 0 -usecache 1 -width [expr {$hcolwidth+2}] -type [tcl::dict::get $ftypes header]\
-                                #    -ansibase $ansibase_header -ansiborder $ansiborder_final\
-                                #    -boxlimits $hlims -boxmap $startmap -joins $header_joins $hval\
-                                #    ]
-
-                                if {$this_span == 1} {
-                                    #write the actual value now
-                                    set cellcontents $hval
-                                } else {
-                                    #just write an empty vertical placeholder. The spanned value will be overtyped below
-                                    set cellcontents [::join [lrepeat [llength [split $hval \n]] ""] \n]
-                                }
-                                set header_cell_startspan [textblock::frame -checkargs 0 -blockalign $col_blockalign -ellipsis 0 -usecache 1 -width [expr {$hcolwidth+2}] -type [tcl::dict::get $ftypes header]\
-                                    -ansibase $ansibase_header -ansiborder $ansiborder_final\
-                                    -boxlimits $hlims -boxmap $startmap -joins $header_joins $cellcontents\
-                                    ]
-
-                                if {$this_span != 1} {
-                                    #puts "===>\n$header_cell_startspan\n<==="
-                                    set spanned_parts [list $header_cell_startspan]
-                                    #assert this_span == "any" or >1 ie a header that spans other columns
-                                    #therefore more parts to append
-                                    #set remaining_cols [lrange [tcl::dict::keys $o_columndefs] $cidx end]
-                                    set remaining_spans [lrange $headerspans $cidx+1 end]
-                                    set spanval [join $remaining_spans ""] ;#so we can test for all zeros
-                                    set spans_to_rhs 0
-                                    if {[expr {$spanval}] == 0} {
-                                        #puts stderr "SPANS TO RHS"
-                                        set spans_to_rhs 1
-                                    }
-
-                                    #puts ">> remaining_spans: $remaining_spans"
-                                    set spancol [expr {$cidx + 1}]
-                                    set h_lines [lrepeat $rowh ""]
-                                    set hcell_blank [::join $h_lines \n] ;#todo - just use -height option of frame? review - currently doesn't cache with -height and no contents - slow
-
-
-
-                                    set last [expr {[llength $remaining_spans] -1}]
-                                    set i 0
-                                    foreach s $remaining_spans {
-                                        if {$s == 0} {
-                                            if {$i == $last} {
-                                                set next_posn right
-                                                #set next_posn inner
-                                            } else {
-                                                set next_posn inner
-                                            }
-
-                                            set next_headerseps_v   [tcl::dict::get $sep_elements_vertical top$next_posn] ;#static top ok
-
-                                            set limj [my Get_boxlimits_and_joins $next_posn $fname_body]
-                                            set span_joins_body     [tcl::dict::get $limj bodyjoins]
-                                            set span_joins          [tcl::dict::get $limj joins]
-                                            set span_boxlimits      [tcl::dict::get $limj boxlimits]
-                                            set span_boxlimits_top  [tcl::dict::get $limj boxlimits_top]
-                                            #use struct::set instead of simple for loop - will be faster at least when critcl available
-                                            #set span_boxlimits               [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_body] $span_boxlimits]
-                                            #set span_boxlimits_top    [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_body] $span_boxlimits_top]
-                                            set header_span_boxlimits       [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_header] $span_boxlimits]
-                                            set header_span_boxlimits_top   [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_header] $span_boxlimits_top]
-                                            if {$hrow == 0} {
-                                                set hlims $header_span_boxlimits_top
-                                            } else {
-                                                set hlims $header_span_boxlimits
-                                            }
-
-                                            set this_span_map $span_extend_map
-                                            if {!$show_seps_v} {
-                                                set hlims [struct::set difference $hlims $next_headerseps_v]
-                                            } else {
-                                                if {[llength $next_spanlist]} {
-                                                    set spanbelow [lindex $next_spanlist $spancol]
-                                                    if {$spanbelow != 0} {
-                                                        tcl::dict::set this_span_map blc [tcl::dict::get $framedef_headerdown_same hlbj] ;#horizontal line bottom with down join - to same frametype
-                                                    }
-                                                } else {
-                                                    #join to body
-                                                    tcl::dict::set this_span_map blc [tcl::dict::get $framedef_headerdown_body hlbj] ;#horizontal line bottom with down join - from header frametype to body frametype
-                                                }
-                                            }
-
-                                            if {$hrow == $hmax} {
-                                                set header_joins $span_joins_body
-                                            } else {
-                                                set header_joins $span_joins
-                                            }
-                                            if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                                set hlims [struct::set difference $hlims [tcl::dict::get $::textblock::class::header_edge_parts $rowpos$next_posn] ]
-                                            }
-
-                                            set contentwidth [my column_width $spancol]
-                                            set header_cell [textblock::frame -ellipsis 0 -width [expr {$contentwidth + 2}] -type [tcl::dict::get $ftypes header]\
-                                                -ansibase $ansibase_header -ansiborder $ansiborder_final\
-                                                -boxlimits $hlims -boxmap $this_span_map -joins $header_joins $hcell_blank\
-                                                ]
-                                            lappend spanned_parts $header_cell
-                                        } else {
-                                            break
-                                        }
-                                        incr spancol
-                                        incr i
-                                    }
-
-                                    #JMN
-                                    #spanned_parts are all built with textblock::frame - therefore uniform-width lines - can use join_basic
-                                    #set spanned_frame [textblock::join_basic -- {*}$spanned_parts]
-                                    set spanned_frame [textblock::join_basic_raw {*}$spanned_parts]
-
-                                    if {$spans_to_rhs} {
-                                        if {$cidx == 0} {
-                                            set fake_posn solo
-                                        } else {
-                                            set fake_posn right
-                                        }
-                                        set x_limj [my Get_boxlimits_and_joins $fake_posn $fname_body]
-                                        if {$hrow == 0} {
-                                            set x_boxlimits_toprow      [tcl::dict::get $x_limj boxlimits_top]
-                                            set hlims [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_header] $x_boxlimits_toprow]
-                                        } else {
-                                            set x_boxlimits_position    [tcl::dict::get $x_limj boxlimits]
-                                            set hlims [struct::set intersect [tcl::dict::get $o_opts_table_effective -framelimits_header] $x_boxlimits_position]
-                                        }
-                                    } else {
-                                        if {$hrow == 0} {
-                                            set hlims $header_boxlimits_toprow
-                                        } else {
-                                            set hlims $header_boxlimits
-                                        }
-                                    }
-                                    if {!$show_seps_v} {
-                                        set hlims [struct::set difference $hlims $headerseps_v]
-                                    }
-                                    if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                        if {$spans_to_rhs} {
-                                            #assert fake_posn has been set above based on cidx and spans_to_rhs
-                                            set hlims [struct::set difference $hlims [tcl::dict::get $::textblock::class::header_edge_parts ${rowpos}$fake_posn] ]
-                                        } else {
-                                            #use the edge_parts corresponding to the column being written to ie use opt_posn
-                                            set hlims [struct::set difference $hlims [tcl::dict::get $::textblock::class::header_edge_parts $rowpos$opt_posn] ]
-                                        }
-                                    }
-
-                                    #set spacemap [list hl " " vl " " tlc " " blc " " trc " " brc " "] ;#transparent overlay elements
-                                    set spacemap [list hl "\UFFFE" vl "\UFFFE" tlc "\UFFFE" blc "\UFFFE" trc "\UFFFE" brc "\UFFFE"] ;#transparent overlay elements
-                                    #set spacemap [list hl * vl * tlc * blc * trc * brc *]
-                                    #-usecache 1 ok
-                                    #hval is not raw headerval - it has been padded to required width and has ansi applied
-                                    set hblock [textblock::frame -checkargs 0 -ellipsis 0 -type $spacemap -boxlimits $hlims -ansibase $ansibase_header $hval] ;#review -ansibase
-                                    #puts "==>boxlimits:'$hlims' hval_width:[tcl::string::length $hval] blockwidth:[textblock::width $hblock]"
-                                    #puts $hblock
-                                    #puts "==>hval:'$hval'[a]"
-                                    #puts "==>hval:'[ansistring VIEW $hval]'"
-                                    #set spanned_frame [overtype::renderspace -transparent 1 $spanned_frame $hblock]
-
-                                    #spanned values default left - todo make configurable
-
-                                    #TODO
-                                    #consider that currently blockaligning for spanned columns must always use the blockalign value from the starting column of the span
-                                    #we could conceivably have an override that could be set somehow with configure_header for customization of alignments of individual spans or span sizes?
-                                    #this seems like a likely requirement. The first spanned column may well have different alignment requirements than the span.
-                                    #(e.g if first spanned col happens to be numeric it probably warrants right textalign (if not blockalign) but we don't necessarily want the spanning header or even a non-spanning header to be right aligned)
-
-                                    #header transparent space bug #JJJJ
-                                    #set spanned_frame [overtype::block -blockalign $col_blockalign -overflow 1 -transparent 1 $spanned_frame $hblock]
-                                    set spanned_frame [overtype::block -blockalign $col_blockalign -overflow 1 -transparent \UFFFE $spanned_frame $hblock]
-                                    #POTENTIAL BUG (fixed with spans_to_rhs above)
-                                    #when -blockalign right and colspan extends to rhs  - last char of longest of that spanlength will overlap right edge (if show_edge 1)
-                                    #we need to shift 1 to the left when doing our overtype with blockalign right
-                                    #we normally do this by using the hlims based on position - effectively we need a rhs position set of hlims for anything that colspans to the right edge
-                                    #(even though the column position may be left or inner)
-
-
-
-                                } else {
-                                    #this_span == 1
-                                    #set spanned_frame [textblock::join_basic -- $header_cell_startspan]
-                                    set spanned_frame [textblock::join_basic_raw $header_cell_startspan]
-                                }
-
-
-                                append part_header $spanned_frame
-                                append part_header \n
-                            } else {
-                                #zero span header directly in this column ie one that is being colspanned by some column to our left
-                                #previous col will already have built lines for this in it's own header rhs overhang
-                                #we need a block of TSUB chars of the right height and width in this column so that we can join this column to the left ones with the TSUBs being transparent.
-
-                                #set padwidth [my column_datawidth $cidx -headers 0 -data 1 -cached 1]
-
-                                #if there are no header elements above then we will need a minimum of the column width
-                                #may be extended to the widest portion of the header in the loop below
-                                set padwidth [my column_width $cidx]
-
-
-                                #under assumption we are building table using L frame method and that horizontal borders are only ever 1 high
-                                # - we can avoid using a frame - but we potentially need to manually adjust for show_hpos show_edge etc
-                                #avoiding frame here is faster.. but not by much (<10%? on textblock::spantest2 )
-                                if 0 {
-                                    #breaks -show_edge 0
-                                    if {$rowpos eq "top" && [tcl::dict::get $o_opts_table -show_edge]} {
-                                        set padheight [expr {$rowh + 2}]
-                                    } else {
-                                        set padheight [expr {$rowh + 1}]
-                                    }
-                                    set bline [tcl::string::repeat $TSUB [expr {$padwidth +1}]]
-                                    set h_lines [lrepeat $padheight $bline]
-                                    set hcell_blank [::join $h_lines \n]
-                                    set header_frame $hcell_blank
-                                } else {
-                                    set bline [tcl::string::repeat $TSUB $padwidth]
-                                    set h_lines [lrepeat $rowh $bline]
-                                    set hcell_blank [::join $h_lines \n]
-                                    # -usecache 1 ok
-                                    #frame borders will never display - so use the simplest frametype and don't apply any ansi
-                                    #puts "===>zerospan hlims: $hlims"
-                                    set header_frame [textblock::frame -checkargs 0 -ellipsis 0 -width [expr {$padwidth+2}] -type ascii\
-                                        -boxlimits $hlims -boxmap $framesub_map  $hcell_blank\
-                                        ]
-                                }
-
-                                append part_header $header_frame\n
-
-                            }
-                            incr hrow
-                        }
-                        if {![llength $header_list]} {
-                            #no headers - but we've been asked to show_header
-                            #display a zero content-height header (ie outline if edge is being shown - or bottom bar)
-                            set hlims $header_boxlimits_toprow
-                            if {!$show_seps_v} {
-                                set hlims [struct::set difference $hlims $headerseps_v]
-                            }
-                            if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                set hlims [struct::set difference $hlims [tcl::dict::get $::textblock::class::header_edge_parts only$opt_posn] ]
-                            }
-                            set header_joins $header_body_joins
-                            set header_frame [textblock::frame -checkargs 0 -width [expr {$hcolwidth+2}] -type [tcl::dict::get $ftypes header]\
-                                -ansibase $ansibase_header -ansiborder $ansiborder_final\
-                                -boxlimits $hlims -boxmap $hdrmap -joins $header_joins\
-                                ]
-                            append part_header $header_frame\n
-                        }
-                        set part_header [tcl::string::trimright $part_header \n]
-                        lassign [textblock::size $part_header] _w return_headerwidth _h return_headerheight
-
-                        set padline [tcl::string::repeat $TSUB $return_headerwidth]
-                        set adjusted_lines [list]
-                        foreach ln [split $part_header \n] {
-                            if {[tcl::string::first $TSUB $ln] >=0} {
-                                lappend adjusted_lines $padline
-                            } else {
-                                lappend adjusted_lines $ln
-                            }
-                        }
-                        set part_header [::join $adjusted_lines \n]
-                        #append output $part_header \n
-                    }
-
-                    set r 0
-                    set rmax [expr {[llength $cells]-1}]
-
-
-                    set blims_mid $boxlimits
-                    set blims_top $boxlimits
-                    set blims_bot $boxlimits
-                    set blims_top_headerless $boxlimits_headerless
-                    set blims_only $boxlimits
-                    set blims_only_headerless $boxlimits_headerless
-                    if {!$show_seps_h} {
-                        set blims_mid [struct::set difference $blims_mid $midseps_h]
-                        set blims_top [struct::set difference $blims_top $topseps_h]
-                        set blims_top_headerless [struct::set difference $blims_top_headerless $topseps_h]
-                    }
-                    if {!$show_seps_v} {
-                        set blims_mid [struct::set difference $blims_mid $midseps_v]
-                        set blims_top [struct::set difference $blims_top $topseps_v]
-                        set blims_top_headerless [struct::set difference $blims_top_headerless $topseps_v]
-                        set blims_bot [struct::set difference $blims_bot $botseps_v]
-                        set blims_only [struct::set difference $blims_only $onlyseps_v]
-                        set blims_only_headerless [struct::set difference $blims_only_headerless $onlyseps_v]
-                    }
-
-                    set colidx [lindex [tcl::dict::keys $o_columndefs] $index_expression] ;#convert possible end-1,2+2 etc expression to >= 0 integer in dict range
-
-                    set opt_col_ansibase [tcl::dict::get $o_columndefs $colidx -ansibase] ;#ordinary merge of codes already done in configure_column
-                    #set colwidth [my column_width $colidx]
-
-                    set body_ansibase [tcl::dict::get $o_opts_table -ansibase_body]
-                    #set ansibase [punk::ansi::codetype::sgr_merge_singles [list $body_ansibase $opt_col_ansibase]] ;#allow col to override body
-                    set body_ansiborder [tcl::dict::get $o_opts_table -ansiborder_body]
-                    if {[tcl::dict::get $o_opts_table -frametype] eq "block"} {
-                        #block is the only style where bg colour can fill the frame content area exactly if the L-shaped border elements are styled
-                        #we need to only accept background ansi codes from the columndef  ansibase for this
-                        set col_bg [punk::ansi::codetype::sgr_merge_singles [list $opt_col_ansibase] -filter_fg 1]  ;#special merge for block borders - don't override fg colours
-                        set border_ansi $body_ansibase$body_ansiborder$col_bg
-                    } else {
-                        set border_ansi $body_ansibase$body_ansiborder
-                    }
-
-
-                    set r 0
-                    set ftblock [expr {[tcl::dict::get $o_opts_table -frametype] eq "block"}]
-                    foreach c $cells {
-                        #cells in column - each new c is in a different row
-                        set row_ansibase [tcl::dict::get $o_rowdefs $r -ansibase]
-                        set row_bg ""
-                        if {$row_ansibase ne ""} {
-                            set row_bg [punk::ansi::codetype::sgr_merge_singles [list $row_ansibase] -filter_fg 1]
-                        }
-
-                        set ansibase $body_ansibase$opt_col_ansibase
-                        #todo - joinleft,joinright,joindown based on opts in args
-                        set cell_ansibase ""
-
-                        set ansiborder_body_col_row $border_ansi$row_bg
-                        set ansiborder_final $ansiborder_body_col_row
-                        #$c will always have ansi resets due to overtype behaviour ?
-                        #todo - review overtype
-                        if {[punk::ansi::ta::detectcode $c]} {
-                            #use only the last ansi sequence in the cell value
-                            #Filter out foreground and use background for ansiborder override
-                            set parts [punk::ansi::ta::split_codes_single $c]
-                            #we have detected ansi - so there will always be at least 3 parts beginning and ending with pt pt,ansi,pt,ansi...,pt
-                            set codes [list]
-                            set ptlens [list]
-                            foreach {pt cd} $parts {
-                                lappend codes $cd
-                                lappend ptlens [string length $pt]
-                            }
-                            #set takebg [lindex $parts end-1]
-                            #set cell_bg [punk::ansi::codetype::sgr_merge_singles [list $takebg] -filter_fg 1]
-                            set cell_bg [punk::ansi::codetype::sgr_merge_singles $codes -filter_fg 1 -filter_reset 1]
-                            #puts --->[ansistring VIEW $codes]
-
-                            if {[punk::ansi::codetype::is_sgr_reset [lindex $codes end-1]]} {
-                                if {[lindex $ptlens end] == 0 && [lindex $ptlens end-1] == 0 && [punk::ansi::codetype::is_sgr_reset [lindex $codes end-2]]} {
-                                    #special case double reset at end of content
-                                    #TODO - write test!
-                                    set cell_ansi_tail [punk::ansi::codetype::sgr_merge_singles [lrange $codes 0 end-3]] ;#no filters
-                                    set ansibase ""
-                                    set row_ansibase ""
-                                    if {$ftblock} {
-                                        set ansiborder_final [punk::ansi::codetype::sgr_merge [list $ansiborder_body_col_row] -filter_bg 1]
-                                        set ansiborder_final [punk::ansi::codetype::sgr_merge [list $ansiborder_final $cell_bg]]
-                                    }
-                                    set cell_ansibase $cell_ansi_tail
-                                } else {
-                                    #single trailing reset in content
-                                    set cell_ansibase "" ;#cell doesn't contribute to frame's ansibase
-                                }
-                            }  else {
-                                if {$ftblock} {
-                                    #no resets - use cell's bg to extend to the border - only for block frames
-                                    set ansiborder_final $ansiborder_body_col_row$cell_bg
-                                }
-                                set cell_ansibase $cell_bg
-                            }
-                            #v1
-                            #if {[punk::ansi::codetype::is_sgr_reset [lindex $codes end]]} {
-                            #    if {[punk::ansi::codetype::is_sgr_reset [lindex $codes end-1]]} {
-                            #        #special case double reset at end of content
-                            #        set cell_ansi_tail [punk::ansi::codetype::sgr_merge_singles $codes] ;#no filters
-                            #        set ansibase ""
-                            #        set row_ansibase ""
-                            #        if {$ftblock} {
-                            #            set ansiborder_final [punk::ansi::codetype::sgr_merge [list $ansiborder_body_col_row] -filter_bg 1]
-                            #        }
-                            #        set cell_ansibase $cell_ansi_tail
-                            #    } else {
-                            #        #single trailing reset in content
-                            #        set cell_ansibase "" ;#cell doesn't contribute to frame's ansibase
-                            #    }
-                            #}  else {
-                            #    if {$ftblock} {
-                            #        #no resets - use cell's bg to extend to the border - only for block frames
-                            #        set ansiborder_final $ansiborder_body_col_row$cell_bg
-                            #    }
-                            #    set cell_ansibase $cell_bg
-                            #}
-                        }
-
-                        set ansibase_final $ansibase$row_ansibase$cell_ansibase
-
-                        if {$r == 0} {
-                            if {$r == $rmax} {
-                                set joins [lremove $joins [lsearch $joins down*]]
-                                set bmap $onlymap
-                                if {$do_show_header} {
-                                    set blims $blims_only
-                                } else {
-                                    set blims $blims_only_headerless
-                                }
-                                if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                    set blims [struct::set difference $blims [tcl::dict::get $::textblock::class::table_edge_parts only$opt_posn] ]
-                                }
-                            } else {
-                                set bmap $topmap
-                                if {$do_show_header} {
-                                    set blims $blims_top
-                                } else {
-                                    set blims $blims_top_headerless
-                                }
-                                if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                    set blims [struct::set difference $blims [tcl::dict::get $::textblock::class::table_edge_parts top$opt_posn] ]
-                                }
-                            }
-                            set rowframe [textblock::frame -checkargs 0 -type [tcl::dict::get $ftypes body] -width [expr {$colwidth+2}] -blockalign $col_blockalign -ansibase $ansibase_final -ansiborder $ansiborder_final -boxlimits $blims -boxmap $bmap -joins $joins $c]
-                            set return_bodywidth [textblock::widthtopline $rowframe] ;#frame lines always same width - just look at top line
-                            append part_body $rowframe \n
-                        } else {
-                            if {$r == $rmax} {
-                                set joins [lremove $joins [lsearch $joins down*]]
-                                set bmap $botmap
-                                set blims $blims_bot
-                                if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                    set blims [struct::set difference $blims [tcl::dict::get $::textblock::class::table_edge_parts bottom$opt_posn] ]
-                                }
-                            } else {
-                                set bmap $midmap
-                                set blims $blims_mid ;#will only be reduced from boxlimits if -show_seps was processed above
-                                if {![tcl::dict::get $o_opts_table -show_edge]} {
-                                    set blims [struct::set difference $blims [tcl::dict::get $::textblock::class::table_edge_parts middle$opt_posn] ]
-                                }
-                            }
-                            append part_body [textblock::frame -checkargs 0 -type [tcl::dict::get $ftypes body] -width [expr {$colwidth+2}] -blockalign $col_blockalign -ansibase $ansibase_final -ansiborder $ansiborder_final -boxlimits $blims -boxmap $bmap -joins $joins $c]\n
-                        }
-                        incr r
-                    }
-                    #return empty (zero content height) row if no rows
-                    if {![llength $cells]} {
-                        set joins [lremove $joins [lsearch $joins down*]]
-                        #we need to know the width of the column to setup the empty cell properly
-                        #even if no header displayed - we should take account of any defined column widths
-                        set colwidth [my column_width $index_expression]
-
-                        if {$do_show_header} {
-                            set blims $blims_only
-                        } else {
-                            append part_body \n
-                            set blims $blims_only_headerless
-                        }
-                        #note that if show_edge is 0 - then for this empty line - we will not expect to see any bars
-                        #This is because the frame with no data had vertical components made entirely of corner elements
-                        #we could just append a newline when -show_edge is zero, but we want the correct width even when empty - for proper column joins when there are colspanned headers.
-                        #
-                        if {![tcl::dict::get $o_opts_table -show_edge]} {
-                            #set blims [struct::set difference $blims [tcl::dict::get $::textblock::class::table_edge_parts only$opt_posn] ]
-                            #append output [textblock::frame -width [expr {$colwidth + 2}] -type [tcl::dict::get $ftypes body] -boxlimits $blims -boxmap $onlymap -joins $joins]\n
-                            append part_body [tcl::string::repeat " " $colwidth] \n
-                            set return_bodywidth $colwidth
-                        } else {
-                            set emptyframe [textblock::frame -checkargs 0 -width [expr {$colwidth + 2}] -type [tcl::dict::get $ftypes body] -boxlimits $blims -boxmap $onlymap -joins $joins]
-                            append part_body $emptyframe \n
-                            set return_bodywidth [textblock::width $emptyframe]
-                        }
-                    }
-                    #assert bodywidth is integer >=0 whether there are rows or not
-
-                    #trim only 1 newline
-                    if {[tcl::string::index $part_body end] eq "\n"} {
-                        set part_body [tcl::string::range $part_body 0 end-1]
-                    }
-                    set return_bodyheight [textblock::height $part_body]
-                    #append output $part_body
-
-                    if {$opt_return eq "string"} {
-                        if {$part_header ne ""} {
-                            set output $part_header
-                            if {$part_body ne ""} {
-                                append output \n $part_body
-                            }
-                        } else {
-                            set output $part_body
-                        }
-                        return $output
-                    } else {
-                        return [tcl::dict::create header $part_header body $part_body headerwidth $return_headerwidth headerheight $return_headerheight bodywidth $return_bodywidth bodyheight $return_bodyheight]
-                    }
-                }
-
-                method get_column_cells_by_index {index_expression} {
-                    #*** !doctools
-                    #[call class::table [method get_column_cells_by_index] [arg index_expression]]
-                    #[para] Return a dict with keys 'headers' and 'cells' giving column header and data values
-
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-                    if {$cidx eq ""} {
-                        set range ""
-                        if {[tcl::dict::size $o_columndefs] > 0} {
-                            set range "0..[expr {[tcl::dict::size $o_columndefs] -1}]"
-                        } else {
-                            set range empty
-                        }
-                        error "table::get_column_cells_by_index no such index $index_expression. Valid range is $range"
-                    }
-                    #assert cidx is integer >=0
-                    set num_header_rows [my header_count]
-                    set cdef            [tcl::dict::get $o_columndefs $cidx]
-                    set headerlist      [tcl::dict::get $cdef -headers]
-                    set ansibase_col    [tcl::dict::get $cdef -ansibase]
-                    set textalign       [tcl::dict::get $cdef -textalign]
-                    switch -- $textalign {
-                        left    {set pad right}
-                        right   {set pad left}
-                        default {
-                            set pad "centre" ;#todo?
-                        }
-                    }
-
-                    #set ansibase_body   [tcl::dict::get $o_opts_table -ansibase_body]
-                    #set ansibase_header [tcl::dict::get $o_opts_table -ansibase_header]
-
-                    #set header_underlay $ansibase_header$cell_line_blank
-
-                    #set hdrwidth [my column_width_configured $cidx]
-                    #set all_colspans [my header_colspans]
-                    #we need to replace the 'any' entries with their actual span lengths before passing any -colspan values to column_datawidth - hence use header_colspans_numeric
-                    set all_colspans [my header_colspans_numeric]
-                    #JMN
-                    #store configured widths so we don't look up for each header line
-                    #set configured_widths [list]
-                    #foreach c [tcl::dict::keys $o_columndefs] {
-                    #    #lappend configured_widths [my column_width $c]
-                    #    #we don't just want the width of the column in the body - or the headers will get truncated
-                    #    lappend configured_widths [my column_width_configured $c]
-                    #}
-
-                    set output [tcl::dict::create]
-                    tcl::dict::set output headers [list]
-
-                    set showing_vseps [my Showing_vseps]
-                    for {set hrow 0} {$hrow < $num_header_rows} {incr hrow} {
-                        set hdr [lindex $headerlist $hrow]
-                        #jjj
-                        set header_maxdataheight   [tcl::dict::get $o_headerstates $hrow maxheightseen]
-                        #set header_maxdataheight [my header_height $hrow]  ;#from cached headerstates
-                        set headerdefminh   [tcl::dict::get $o_headerdefs $hrow -minheight]
-                        set headerdefmaxh   [tcl::dict::get $o_headerdefs $hrow -maxheight]
-                        if {"$headerdefminh$headerdefmaxh" ne "" && $headerdefminh eq $headerdefmaxh} {
-                            set headerh $headerdefminh ;#exact height defined for the row
-                        } else {
-                            if {$headerdefminh eq ""} {
-                                if {$headerdefmaxh eq ""} {
-                                    #both defs empty
-                                    set headerh $header_maxdataheight
-                                } else {
-                                    set headerh [expr {min(1,$headerdefmaxh,$header_maxdataheight)}]
-                                }
-                            } else {
-                                if {$headerdefmaxh eq ""} {
-                                    set headerh [expr {max($headerdefminh,$header_maxdataheight)}]
-                                } else {
-                                    if {$header_maxdataheight < $headerdefminh} {
-                                        set headerh $headerdefminh
-                                    } else {
-                                        set headerh [expr {max($headerdefminh,$header_maxdataheight)}]
-                                    }
-                                }
-                            }
-                        }
-
-
-                        set headerrow_colspans [tcl::dict::get $all_colspans $hrow]
-                        set this_span [lindex $headerrow_colspans $cidx]
-
-                        #set this_hdrwidth [lindex $configured_widths $cidx]
-                        set this_hdrwidth [my column_datawidth $cidx -headers 1 -colspan $this_span -cached 1] ;#widest of headers in this col with same span - allows textalign to work with blockalign
-
-                        set hcell_line_blank [tcl::string::repeat " " $this_hdrwidth]
-                        set hcell_lines [lrepeat $header_maxdataheight $hcell_line_blank]
-                        set hval_lines [split $hdr \n]
-                        #jmn concat
-                        #set hval_lines [concat $hval_lines $hcell_lines]
-                        set hval_lines [list {*}$hval_lines {*}$hcell_lines]
-                        set hval_lines [lrange $hval_lines 0 $header_maxdataheight-1] ;#vertical align top
-                        set hval_block [::join $hval_lines \n]
-                        set hcell [textblock::pad $hval_block -width $this_hdrwidth -padchar " " -within_ansi 1 -which $pad]
-                        tcl::dict::lappend output headers $hcell
-                    }
-
-
-                    #set colwidth [my column_width $cidx]
-                    #set cell_line_blank [tcl::string::repeat " " $colwidth]
-                    set datawidth [my column_datawidth $cidx -headers 0 -footers 0 -data 1 -cached 1]
-                    set cell_line_blank [tcl::string::repeat " " $datawidth]
-
-
-
-                    set items [tcl::dict::get $o_columndata $cidx]
-                    #puts "---> columndata $o_columndata"
-
-                    #set opt_row_ansibase [tcl::dict::get $o_rowdefs $r -ansibase]
-                    #set cell_ansibase $ansibase_body$ansibase_col$opt_row_ansibase
-
-                    tcl::dict::set output cells [list];#ensure we return something for cells key if no items in list
-                    set r 0
-                    foreach cval $items {
-                        #todo move to row_height method ?
-                        set maxdataheight [tcl::dict::get $o_rowstates $r -maxheight]
-                        set rowdefminh    [tcl::dict::get $o_rowdefs $r -minheight]
-                        set rowdefmaxh    [tcl::dict::get $o_rowdefs $r -maxheight]
-                        if {"$rowdefminh$rowdefmaxh" ne "" && $rowdefminh eq $rowdefmaxh} {
-                            set rowh $rowdefminh ;#an exact height is defined for the row
-                        } else {
-                            if {$rowdefminh eq ""} {
-                                if {$rowdefmaxh eq ""} {
-                                    #both defs empty
-                                    set rowh $maxdataheight
-                                } else {
-                                    set rowh [expr {min(1,$rowdefmaxh,$maxdataheight)}]
-                                }
-                            } else {
-                                if {$rowdefmaxh eq ""} {
-                                    set rowh [expr {max($rowdefminh,$maxdataheight)}]
-                                } else {
-                                    if {$maxdataheight < $rowdefminh} {
-                                        set rowh $rowdefminh
-                                    } else {
-                                        set rowh [expr {max($rowdefminh,$maxdataheight)}]
-                                    }
-                                }
-                            }
-                        }
-
-                        set cell_lines [lrepeat $rowh $cell_line_blank]
-                        #set cell_blank [join $cell_lines \n]
-
-
-                        set cval_lines [split $cval \n]
-                        #jmn
-                        #set cval_lines [concat $cval_lines $cell_lines]
-                        lappend cval_lines {*}$cell_lines
-                        set cval_lines [lrange $cval_lines 0 $rowh-1]
-                        set cval_block [::join $cval_lines \n]
-
-                        #//JMN assert widest cval_line = datawidth = known_blockwidth
-                        set cell [textblock::pad $cval_block -known_blockwidth $datawidth -width $datawidth -padchar " " -within_ansi 1 -which $pad]
-                        #set cell [textblock::pad $cval_block -width $colwidth -padchar " " -within_ansi 0 -which left]
-                        tcl::dict::lappend output cells $cell
-
-                        incr r
-                    }
-                    return $output
-                }
-                method get_column_values_by_index {index_expression} {
-                    #*** !doctools
-                    #[call class::table [method get_column_values_by_index] [arg index_expression]]
-                    #[para] List the cell values of a column from the data area only (no header values)
-
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-                    if {$cidx eq ""} {
-                        return
-                    }
-                    return [tcl::dict::get $o_columndata $cidx]
-                }
-                method debug {args} {
-                    #*** !doctools
-                    #[call class::table [method debug]]
-                    #[para] display lots of debug information about how the table is constructed.
-
-                    #nice to lay this out with tables - but this is the one function where we really should provide the ability to avoid tables in case things get really broken (e.g major refactor)
-                    set defaults [tcl::dict::create\
-                        -usetables 1\
-                    ]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -usetables {}
-                            default {
-                                error "table debug unrecognised option '$k'. Known options: [tcl::dict::keys $defaults]"
-                            }
-                        }
-                    }
-                    set opts [tcl::dict::merge $defaults $args]
-                    set opt_usetables [tcl::dict::get $opts -usetables]
-
-                    puts stdout "rowdefs:      $o_rowdefs"
-                    puts stdout "rowstates:    $o_rowstates"
-                    #puts stdout "columndefs:   $o_columndefs"
-                    puts stdout "columndefs:"
-                    if {!$opt_usetables} {
-                        tcl::dict::for {k v} $o_columndefs {
-                            puts "    $k $v"
-                        }
-                    } else {
-                        set t [textblock::class::table new]
-                        $t add_column -headers "Col"
-                        tcl::dict::for {col coldef} $o_columndefs {
-                            foreach property [tcl::dict::keys $coldef] {
-                                if {$property eq "-ansireset"} {
-                                    continue
-                                }
-                                $t add_column -headers $property
-                            }
-                            break
-                        }
-
-                        #build our inner tables first so we can sync widths
-                        set col_header_tables [tcl::dict::create]
-                        set max_widths [tcl::dict::create 0 0 1 0 2 0 3 0] ;#max inner table column widths
-                        tcl::dict::for {col coldef} $o_columndefs {
-                            set row [list $col]
-                            set colheaders [tcl::dict::get $coldef -headers]
-                            #inner table probably overkill here ..but just as easy
-                            set htable [textblock::class::table new]
-                            $htable configure -show_header 1 -show_edge 0 -show_hseps 0
-                            $htable add_column -headers row
-                            $htable add_column -headers text
-                            $htable add_column -headers WxH
-                            $htable add_column -headers span
-                            set hnum 0
-                            set spans [tcl::dict::get $o_columndefs $col -header_colspans]
-                            foreach h $colheaders s $spans {
-                                lassign [textblock::size $h] _w width _h height
-                                $htable add_row [list "$hnum " $h "${width}x${height}" $s]
-                                incr hnum
-                            }
-                            $htable configure_column 0 -ansibase [a+ web-dimgray]
-                            tcl::dict::set col_header_tables $col $htable
-                            set colwidths [$htable column_widths]
-                            set icol 0
-                            foreach w $colwidths {
-                                if {$w > [tcl::dict::get $max_widths $icol]} {
-                                    tcl::dict::set max_widths $icol $w
-                                }
-                                incr icol
-                            }
-                        }
-
-                        #safe jumptable test
-                        #dict for {col coldef} $o_columndefs {}
-                        tcl::dict::for {col coldef} $o_columndefs {
-                            set row [list $col]
-                            #safe jumptable test
-                            #dict for {property val} $coldef {}
-                            tcl::dict::for {property val} $coldef {
-                                switch -- $property {
-                                    -ansireset {continue}
-                                    -headers {
-                                        set htable [tcl::dict::get $col_header_tables $col]
-                                        tcl::dict::for {innercol maxw} $max_widths {
-                                            $htable configure_column $innercol -minwidth $maxw  -blockalign left
-                                        }
-                                        lappend row [$htable print]
-                                        $htable destroy
-                                    }
-                                    default {
-                                        lappend row $val
-                                    }
-                                }
-                            }
-                            $t add_row $row
-                        }
-
-
-
-
-                        $t configure -show_header 1
-                        puts stdout [$t print]
-                        $t destroy
-                    }
-                    puts stdout "columnstates: $o_columnstates"
-                    puts stdout "headerdefs:   $o_headerdefs"
-                    puts stdout "headerstates: $o_headerstates"
-                    tcl::dict::for {k coldef} $o_columndefs {
-                        if {[tcl::dict::exists $o_columndata $k]} {
-                            set headerlist [tcl::dict::get $coldef -headers]
-                            set coldata [tcl::dict::get $o_columndata $k]
-                            set colinfo "rowcount: [llength $coldata]"
-                            set allfields [concat $headerlist $coldata]
-                            if {[llength $allfields]} {
-                                set widest [tcl::mathfunc::max {*}[lmap v $allfields {textblock::width $v}]]
-                            } else {
-                                set widest 0
-                            }
-                            append colinfo " widest of headers and data: $widest"
-                        } else {
-                            set colinfo "WARNING - no columndata record for column key '$k'"
-                        }
-                        puts stdout "column $k columndata info: $colinfo"
-                    }
-                    set result ""
-                    set cols [list]
-                    set max [expr {[tcl::dict::size $o_columndefs]-1}]
-                    foreach c [tcl::dict::keys $o_columndefs] {
-                        if {$c == 0} {
-                            lappend cols [my get_column_by_index $c -position left] " "
-                        } elseif {$c == $max} {
-                            lappend cols [my get_column_by_index $c -position right]
-                        } else {
-                            lappend cols [my get_column_by_index $c -position inner] " "
-                        }
-                    }
-                    append result [textblock::join -- {*}$cols]
-                    return $result
-                }
-                #column width including headers - but without colspan consideration
-                method column_width_configured {index_expression} {
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-                    if {$cidx eq ""} {
-                        return
-                    }
-                    #assert cidx is now >=0 integer within the range of defined columns
-                    set cdef        [tcl::dict::get $o_columndefs $cidx]
-                    set defminw     [tcl::dict::get $cdef -minwidth]
-                    set defmaxw     [tcl::dict::get $cdef -maxwidth]
-                    if {"$defminw$defmaxw" ne "" && $defminw eq $defmaxw} {
-                        #an exact width is defined for the column - no need to look at data width
-                        set colwidth $defminw
-                    } else {
-                        #set widest [my column_datawidth $cidx -headers 1 -data 1 -footers 1]
-                        set hwidest [tcl::dict::get $o_columnstates $cidx maxwidthheaderseen]
-                        #set hwidest [my column_datawidth $cidx -headers 1 -colspan 1 -data 0 -footers 1]
-                        #set hwidest_singlespan ??
-                        set bwidest [tcl::dict::get $o_columnstates $cidx maxwidthbodyseen]
-                        set widest [expr {max($hwidest,$bwidest)}]
-                        #todo - predetermine if any items in column contain newlines and are truncated vertically due to o_rowdefs configuration.
-                        #if so - a truncated line shouldn't be included in our width calculation
-                        if {$defminw eq ""} {
-                            if {$defmaxw eq ""} {
-                                set colwidth $widest
-                            } else {
-                                set colwidth [expr {min($defmaxw,$widest)}]
-                            }
-                        } else {
-                            if {$defmaxw eq ""} {
-                                set colwidth [expr {max($defminw,$widest)}]
-                            } else {
-                                if {$widest < $defminw} {
-                                    set colwidth $defminw
-                                } else {
-                                    if {$widest > $defmaxw} {
-                                        set colwidth $defmaxw
-                                    } else {
-                                        set colwidth [expr {max($defminw,$widest)}]
-                                    }
-                                }
-                            }
-                        }
-                    }
-                    return $colwidth
-                }
-
-                method column_width {index_expression} {
-                    #*** !doctools
-                    #[call class::table [method column_width] [arg index_expression]]
-                    #[para] inner width of column ie the available cell-width without borders/separators
-
-                    if {[llength $o_calculated_column_widths] != [tcl::dict::size $o_columndefs]} {
-                        my calculate_column_widths -algorithm $o_column_width_algorithm
-                    }
-                    return [lindex $o_calculated_column_widths $index_expression]
-                }
-                method column_widths {} {
-                    #*** !doctools
-                    #[call class::table [method column_width]]
-                    #[para] ordered list of column widths (inner widths)
-
-                    if {[llength $o_calculated_column_widths] != [tcl::dict::size $o_columndefs]} {
-                        my calculate_column_widths -algorithm $o_column_width_algorithm
-                    }
-                    return $o_calculated_column_widths
-                }
-
-                #width of a table includes borders and seps
-                #whereas width of a column refers to the borderless width (inner width)
-                method width {} {
-                    #*** !doctools
-                    #[call class::table [method width]]
-                    #[para] width of the table including borders and separators
-                    #[para] calculate width based on assumption frame verticals are 1 screen-column wide
-                    #[para] (review - consider possibility of custom unicode double-wide frame?)
-
-                    set colwidths [my column_widths]
-                    set contentwidth [tcl::mathop::+ {*}$colwidths]
-                    set twidth $contentwidth
-                    if {[my Showing_vseps]} {
-                        incr twidth [llength $colwidths]
-                        incr twidth -1
-                    }
-                    if {[tcl::dict::get $o_opts_table -show_edge]} {
-                        incr twidth 2
-                    }
-                    return $twidth
-                }
-
-                #column *body* content width
-                method basic_column_width {index_expression} {
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-                    if {$cidx eq ""} {
-                        return
-                    }
-                    #puts "===column_width $index_expression"
-                    #assert cidx is now >=0 integer within the range of defined columns
-                    set cdef [tcl::dict::get $o_columndefs $cidx]
-                    set defminw     [tcl::dict::get $cdef -minwidth]
-                    set defmaxw     [tcl::dict::get $cdef -maxwidth]
-                    if {"$defminw$defmaxw" ne "" && $defminw eq $defmaxw} {
-                        #an exact width is defined for the column - no need to look at data width
-                        #review - this can result in truncation of spanning headers - even though there is enough width in the span-cell to place the full header
-                        set colwidth $defminw
-                    } else {
-                        #set widest [my column_datawidth $cidx -headers 0 -data 1 -footers 0]
-                        set widest [tcl::dict::get $o_columnstates $cidx maxwidthbodyseen]
-                        #todo - predetermine if any items in column contain newlines and are truncated vertically due to o_rowdefs configuration.
-                        #if so - a truncated line shouldn't be included in our width calculation
-                        if {$defminw eq ""} {
-                            if {$defmaxw eq ""} {
-                                set colwidth $widest
-                            } else {
-                                set colwidth [expr {min($defmaxw,$widest)}]
-                            }
-                        } else {
-                            if {$defmaxw eq ""} {
-                                set colwidth [expr {max($defminw,$widest)}]
-                            } else {
-                                if {$widest < $defminw} {
-                                    set colwidth $defminw
-                                } else {
-                                    if {$widest > $defmaxw} {
-                                        set colwidth $defmaxw
-                                    } else {
-                                        set colwidth [expr {max($defminw,$widest)}]
-                                    }
-                                }
-                            }
-                        }
-                    }
-                    set configured_widths [list]
-                    foreach c [tcl::dict::keys $o_columndefs] {
-                        lappend configured_widths [my column_width_configured $c]
-                    }
-                    set header_colspans [my header_colspans]
-                    set width_max $colwidth
-                    set test_width $colwidth
-                    set showing_vseps [my Showing_vseps]
-                    set thiscol_widest_header [tcl::dict::get $o_columnstates $cidx maxwidthheaderseen]
-                    tcl::dict::for {h colspans} $header_colspans {
-                        set spanc [lindex $colspans $cidx]
-                        #set headers [tcl::dict::get $cdef -headers]
-                        #set thiscol_widest_header 0
-                        #if {[llength $headers] > 0} {
-                        #    set thiscol_widest_header [tcl::mathfunc::max {*}[lmap v $headers {textblock::width $v}]]
-                        #}
-                        if {$spanc eq "1"} {
-                            if {$thiscol_widest_header > $colwidth} {
-                                set test_width [expr {max($thiscol_widest_header,$colwidth)}]
-                                if {$defmaxw ne ""} {
-                                    set test_width [expr {min($colwidth,$defmaxw)}]
-                                }
-                            }
-                            set width_max [expr {max($test_width,$width_max)}]
-                            continue
-                        }
-                        if {$spanc eq "any" || $spanc > 1} {
-                            set spanned [list] ;#spanned is other columns spanned - not including this one
-                            set cnext [expr {$cidx +1}]
-                            set spanlength [lindex $colspans $cnext]
-                            while {$spanlength eq "0" && $cnext < [llength $colspans]} {
-                                lappend spanned $cnext
-                                incr cnext
-                                set spanlength [lindex $colspans $cnext]
-                            }
-                            set others_width 0
-                            foreach col $spanned {
-                                incr others_width [lindex $configured_widths $col]
-                                if {$showing_vseps} {
-                                    incr others_width 1
-                                }
-                            }
-                            set total_spanned_width [expr {$width_max + $others_width}]
-                            if {$thiscol_widest_header > $total_spanned_width} {
-                                #this just allocates the extra space in the current column - which is not great.
-                                #A proper algorithm for distributing width created by headers to all the spanned columns is needed.
-                                #This is a tricky problem with multiple header lines and arbitrary spans.
-                                #The calculation should probably be done on the table as a whole first and this function should just look up that result.
-                                #Trying to calculate on a specific column only is unlikely to be easy or efficient.
-                                set needed [expr {$thiscol_widest_header - $total_spanned_width}]
-                                #puts "-->>col $cidx needed ($thiscol_widest_header - $total_spanned_width): $needed (spanned $spanned)"
-                                if {$defmaxw ne ""} {
-                                    set test_width [expr {min($colwidth+$needed,$defmaxw)}]
-                                } else {
-                                    set test_width [expr {$colwidth + $needed}]
-                                }
-                            }
-                        }
-                        set width_max [expr {max($test_width,$width_max)}]
-                    }
-
-                    #alternative to all the above shennanigans.. let the body cell data determine the size and just wrap the headers
-                    #could also split the needed width amongst the spanned columns? configurable for whether cells expand?
-                    set expand_first_column 1
-                    if {$expand_first_column} {
-                        set colwidth $width_max
-                    }
-
-                    #puts "---column_width $cidx = $colwidth"
-                    return $colwidth
-                }
-                method Showing_vseps {} {
-                    #review - show_seps and override mechanism for show_vseps show_hseps - document.
-                    set seps [tcl::dict::get $o_opts_table -show_seps]
-                    set vseps [tcl::dict::get $o_opts_table -show_vseps]
-                    if {$seps eq ""} {
-                        if {$vseps eq "" || $vseps} {
-                            return true
-                        }
-                    } elseif {$seps} {
-                        if {$vseps eq "" || $vseps} {
-                            return true
-                        }
-                    } else {
-                        if {$vseps ne "" && $vseps} {
-                            return true
-                        }
-                    }
-                    return false
-                }
-
-                method column_datawidth {index_expression args} {
-                    set opts [tcl::dict::create\
-                        -headers 0\
-                        -footers 0\
-                        -colspan unspecified\
-                        -data 1\
-                        -cached 1\
-                    ]
-                    #NOTE: -colspan any is not the same as *
-                    #
-                    #-colspan is relevant to header/footer data only
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -headers - -footers - -colspan - -data - -cached {
-                                tcl::dict::set opts $k $v
-                            }
-                            default {
-                                error "column_datawidth unrecognised flag '$k'. Known flags: [tcl::dict::keys $opts]"
-                            }
-                        }
-                    }
-                    set opt_colspan [tcl::dict::get $opts -colspan]
-                    switch -- $opt_colspan {
-                        * - unspecified {}
-                        any {
-                            error "method column_datawidth invalid -colspan '$opt_colspan' must be * or an integer >= 0 (use header_colspans_numeric to get actual spans)"
-                        }
-                        default {
-                            if {![string is integer -strict $opt_colspan]} {
-                                error "method column_datawidth invalid -colspan '$opt_colspan' must be * or an integer >= 0"
-                            }
-                        }
-                    }
-
-
-                    set cidx [lindex [tcl::dict::keys $o_columndefs] $index_expression]
-                    if {$cidx eq ""} {
-                        return
-                    }
-
-                    if {[tcl::dict::get $opts -cached]} {
-                        set hwidest 0
-                        set bwidest 0
-                        set fwidest 0
-                        if {[tcl::dict::get $opts -headers]} {
-                            if {$opt_colspan in {* unspecified}} {
-                                set hwidest [tcl::dict::get $o_columnstates $cidx maxwidthheaderseen]
-                            } else {
-                                #this is not cached
-                                # -- --- --- ---
-                                set colheaders [tcl::dict::get $o_columndefs $cidx -headers]
-                                set all_colspans_by_header [my header_colspans_numeric]
-                                set hlist [list]
-                                tcl::dict::for {hrow cspans} $all_colspans_by_header {
-                                    set s [lindex $cspans $cidx]
-                                    if {$s eq $opt_colspan} {
-                                        lappend hlist [lindex $colheaders $hrow]
-                                    }
-                                }
-                                if {[llength $hlist]} {
-                                    set hwidest [tcl::mathfunc::max {*}[lmap v $hlist  {textblock::width $v}]]
-                                } else {
-                                    set hwidest 0
-                                }
-                                # -- --- --- ---
-                            }
-                        }
-                        if {[tcl::dict::get $opts -data]} {
-                            set bwidest [tcl::dict::get $o_columnstates $cidx maxwidthbodyseen]
-                        }
-                        if {[tcl::dict::get $opts -footers]} {
-                            #TODO!
-                            #set bwidest [tcl::dict::get $o_columnstates $cidx maxwidthfooterseen]
-                        }
-                        return [expr {max($hwidest,$bwidest,$fwidest)}]
-                    }
-
-                    #assert cidx is >=0 integer in valid range of keys for o_columndefs
-                    set values [list]
-                    set hwidest 0
-                    if {[tcl::dict::get $opts -headers]} {
-                        if {$opt_colspan in {* unspecified}} {
-                            lappend values {*}[tcl::dict::get $o_columndefs $cidx -headers]
-                        } else {
-                            # -- --- --- ---
-                            set colheaders [tcl::dict::get $o_columndefs $cidx -headers]
-                            set all_colspans_by_header [my header_colspans_numeric]
-                            set hlist [list]
-                            tcl::dict::for {hrow cspans} $all_colspans_by_header {
-                                set s [lindex $cspans $cidx]
-                                if {$s eq $opt_colspan} {
-                                    lappend hlist [lindex $colheaders $hrow]
-                                }
-                            }
-                            if {[llength $hlist]} {
-                                set hwidest [tcl::mathfunc::max {*}[lmap v $hlist  {textblock::width $v}]]
-                            } else {
-                                set hwidest 0
-                            }
-                            # -- --- --- ---
-                        }
-                    }
-                    if {[tcl::dict::get $opts -data]} {
-                        if {[tcl::dict::exists $o_columndata $cidx]} {
-                            lappend values {*}[tcl::dict::get $o_columndata $cidx]
-                        }
-                    }
-                    if {[tcl::dict::get $opts -footers]} {
-                        lappend values {*}[tcl::dict::get $o_columndefs $cidx -footers]
-                    }
-                    if {[llength $values]} {
-                        set valwidest [tcl::mathfunc::max {*}[lmap v $values {textblock::width $v}]]
-                        set widest [expr {max($valwidest,$hwidest)}]
-                    } else {
-                        set widest $hwidest
-                    }
-                    return $widest
-                }
-                #print1 uses basic column joining - useful for testing/debug especially with colspans
-                method print1 {args} {
-                    if {![llength $args]} {
-                        set cols [tcl::dict::keys $o_columndata]
-                    } else {
-                        set cols [list]
-                        foreach colspec $args {
-                            set allcols [tcl::dict::keys $o_columndata]
-                            if {[tcl::string::first .. $colspec] >=0} {
-                                set parts [punk::ansi::ta::_perlish_split {\.\.} $colspec]
-                                if {[llength $parts] != 3} {
-                                    error "[namespace::current]::table error invalid print specification '$colspec'"
-                                }
-                                lassign $parts from _dd to
-                                if {$from eq ""}    {set from 0 }
-                                if {$to eq ""}      {set to end}
-
-                                set indices [lrange $allcols $from $to]
-                                lappend cols {*}$indices
-                            } else {
-                                set c [lindex $allcols $colspec]
-                                if {$c ne ""} {
-                                    lappend cols $c
-                                }
-                            }
-                        }
-                    }
-                    set blocks [list]
-                    set colposn 0
-                    set numposns [llength $cols]
-                    foreach c $cols {
-                        set flags [list]
-                        if {$colposn == 0 && $colposn == $numposns-1} {
-                            set flags [list -position solo]
-                        } elseif {$colposn == 0} {
-                            set flags [list -position left]
-                        } elseif {$colposn == $numposns-1} {
-                            set flags [list -position right]
-                        } else {
-                            set flags [list -position inner]
-                        }
-                        lappend blocks [my get_column_by_index $c {*}$flags]
-                        incr colposn
-                    }
-                    if {[llength $blocks]} {
-                        return [textblock::join -- {*}$blocks]
-                    } else {
-                        return "No columns matched"
-                    }
-                }
-                method columncalc_spans {allocmethod} {
-                    set colwidths [tcl::dict::create] ;# to use tcl::dict::incr
-                    set colspace_added [tcl::dict::create]
-
-                    set ordered_spans [tcl::dict::create]
-                    tcl::dict::for {col spandata} [my spangroups] {
-                        set dwidth [my column_datawidth $col -data 1 -headers 0 -footers 0 -cached 1]
-                        set minwidth [tcl::dict::get $o_columndefs $col -minwidth]
-                        set maxwidth [tcl::dict::get $o_columndefs $col -maxwidth]
-                        if {$minwidth ne ""} {
-                            if {$dwidth < $minwidth} {
-                                set dwidth $minwidth
-                            }
-                        }
-                        if {$maxwidth ne ""} {
-                            if {$dwidth > $maxwidth} {
-                                set dwidth $maxwidth
-                            }
-                        }
-                        tcl::dict::set colwidths $col $dwidth ;#spangroups is ordered by column - so colwidths dict will be correctly ordered
-                        tcl::dict::set colspace_added $col 0
-
-                        set spanlengths [tcl::dict::get $spandata spanlengths]
-                        foreach slen $spanlengths {
-                            set spans [tcl::dict::get $spandata spangroups $slen]
-                            set spans [lsort  -index 7 -integer $spans]
-                            foreach s $spans {
-                                set hwidth [tcl::dict::get $s headerwidth]
-                                set hrow [tcl::dict::get $s hrow]
-                                set scol [tcl::dict::get $s startcol]
-                                tcl::dict::set ordered_spans $scol,$hrow membercols $col $dwidth
-                                tcl::dict::set ordered_spans $scol,$hrow headerwidth $hwidth
-                            }
-                        }
-                    }
-
-                    #safe jumptable test
-                    #dict for {spanid spandata} $ordered_spans {}
-                    tcl::dict::for {spanid spandata} $ordered_spans {
-                        lassign [split $spanid ,] startcol hrow
-                        set memcols [tcl::dict::get $spandata membercols] ;#dict with col and initial width - we ignore initial width, it's there in case we want to allocate space based on initial data width ratios
-                        set colids  [tcl::dict::keys $memcols]
-                        set hwidth  [tcl::dict::get $spandata headerwidth]
-                        set num_cols_spanned [tcl::dict::size $memcols]
-                        if {$num_cols_spanned == 1} {
-                            set col [lindex $memcols 0]
-                            set space_to_alloc [expr {$hwidth - [tcl::dict::get $colwidths $col]}]
-                            if {$space_to_alloc > 0} {
-                                set maxwidth [tcl::dict::get $o_columndefs $col -maxwidth]
-                                if {$maxwidth ne ""} {
-                                    if {$maxwidth > [tcl::dict::get $colwidths $col]} {
-                                        set can_alloc [expr {$maxwidth - [tcl::dict::get $colwidths $col]}]
-                                    } else {
-                                        set can_alloc 0
-                                    }
-                                    set will_alloc [expr {min($space_to_alloc,$can_alloc)}]
-                                } else {
-                                    set will_alloc $space_to_alloc
-                                }
-                                if {$will_alloc} {
-                                    #tcl::dict::set colwidths $col $hwidth
-                                    tcl::dict::incr colwidths $col $will_alloc
-                                    tcl::dict::set colspace_added $col $will_alloc
-                                }
-                                #log!
-                                #if {$will_alloc < $space_to_alloc} {
-                                #    #todo - debug only
-                                #    puts stderr "max width $maxwidth hit for col $col - cannot allocate extra [expr {$space_to_alloc - $will_alloc}]"
-                                #}
-                            }
-                        } elseif {$num_cols_spanned > 1} {
-                            set spannedwidth 0
-                            foreach col $colids {
-                                incr spannedwidth [tcl::dict::get $colwidths $col]
-                            }
-                            set space_to_alloc [expr {$hwidth - $spannedwidth}]
-                            if {[my Showing_vseps]} {
-                                set sepcount [expr {$num_cols_spanned -1}]
-                                incr space_to_alloc -$sepcount
-                            }
-                            #review - we want to reduce overallocation to earlier or later columns - hence the use of colspace_added
-                            switch -- $allocmethod {
-                                least {
-                                    #add to least-expanded each time
-                                    #safer than method 1 - pretty balanced
-                                    if {$space_to_alloc > 0} {
-                                        for {set i 0} {$i < $space_to_alloc} {incr i} {
-                                            set ordered_colspace_added [lsort -stride 2 -index 1 -integer $colspace_added]
-                                            set ordered_all_colids [tcl::dict::keys $ordered_colspace_added]
-                                            foreach testcolid $ordered_all_colids {
-                                                if {$testcolid in $colids} {
-                                                    #assert - we will always find a match
-                                                    set colid $testcolid
-                                                    break
-                                                }
-                                            }
-                                            tcl::dict::incr colwidths $colid
-                                            tcl::dict::incr colspace_added $colid
-                                        }
-                                    }
-                                }
-                                least_unmaxed {
-                                    #TODO - fix header truncation/overflow issues when they are restricted by column maxwidth
-                                    #(we should be able to collapse column width to zero and have header colspans gracefully respond)
-                                    #add to least-expanded each time
-                                    #safer than method 1 - pretty balanced
-                                    if {$space_to_alloc > 0} {
-                                        for {set i 0} {$i < $space_to_alloc} {incr i} {
-                                            set ordered_colspace_added [lsort -stride 2 -index 1 -integer $colspace_added]
-                                            set ordered_all_colids [tcl::dict::keys $ordered_colspace_added]
-                                            set colid ""
-                                            foreach testcolid $ordered_all_colids {
-                                                set maxwidth [tcl::dict::get $o_columndefs $testcolid -maxwidth]
-                                                set can_alloc [expr {$maxwidth eq "" || $maxwidth > [tcl::dict::get $colwidths $testcolid]}]
-                                                if {$testcolid in $colids} {
-                                                    if {$can_alloc} {
-                                                        set colid $testcolid
-                                                        break
-                                                    } else {
-                                                        #remove from future consideration in for loop
-                                                        #log!
-                                                        #puts stderr "max width $maxwidth hit for col $testcolid"
-                                                        tcl::dict::unset colspace_added $testcolid
-                                                    }
-                                                }
-                                            }
-                                            if {$colid ne ""} {
-                                                tcl::dict::incr colwidths $colid
-                                                tcl::dict::incr colspace_added $colid
-                                            }
-                                        }
-                                    }
-                                }
-                                all {
-                                    #adds space to all columns - not just those spanned - risk of underallocating and truncating some headers!
-                                    #probably not a good idea for tables with complex headers and spans
-                                    while {$space_to_alloc > 0} {
-                                        set ordered_colspace_added [lsort -stride 2 -index 1 -integer $colspace_added]
-                                        set ordered_colids [tcl::dict::keys $ordered_colspace_added]
-
-                                        foreach col $ordered_colids  {
-                                            tcl::dict::incr colwidths $col
-                                            tcl::dict::incr colspace_added $col
-                                            incr space_to_alloc -1
-                                            if {$space_to_alloc == 0} {
-                                                break
-                                            }
-                                        }
-                                    }
-
-                                }
-                            }
-                        }
-                    }
-
-                    set column_widths [tcl::dict::values $colwidths]
-                    #todo - -maxwidth etc
-                    set table_minwidth [tcl::dict::get $o_opts_table -minwidth] ;#min width including frame elements
-                    if {[tcl::string::is integer -strict $table_minwidth]} {
-                        set contentwidth [tcl::mathop::+ {*}$column_widths]
-                        set twidth $contentwidth
-                        if {[my Showing_vseps]} {
-                            incr twidth [llength $column_widths]
-                            incr twidth -1
-                        }
-                        if {[tcl::dict::get $o_opts_table -show_edge]} {
-                            incr twidth 2
-                        }
-                        #
-                        set shortfall [expr {$table_minwidth - $twidth}]
-                        if {$shortfall > 0} {
-                            set space_to_alloc $shortfall
-                            while {$space_to_alloc > 0} {
-                                set ordered_colspace_added [lsort -stride 2 -index 1 -integer $colspace_added]
-                                set ordered_colids [tcl::dict::keys $ordered_colspace_added]
-
-                                foreach col $ordered_colids  {
-                                    tcl::dict::incr colwidths $col
-                                    tcl::dict::incr colspace_added $col
-                                    incr space_to_alloc -1
-                                    if {$space_to_alloc == 0} {
-                                        break
-                                    }
-                                }
-                            }
-                            set column_widths [tcl::dict::values $colwidths]
-                        }
-
-                    }
-
-                    return [list ordered_spans $ordered_spans colwidths $column_widths adjustments $colspace_added]
-                }
-
-                #spangroups keyed by column
-                method spangroups {} {
-                    #*** !doctools
-                    #[call class::table [method spangroups]]
-                    #[para] return a dict keyed by column-index showing advanced span information
-                    #[para] (debug tool)
-
-                    set column_count [tcl::dict::size $o_columndefs]
-                    set spangroups [tcl::dict::create]
-                    set headerwidths [tcl::dict::create] ;#key on col,hrow
-                    foreach c [tcl::dict::keys $o_columndefs] {
-                        tcl::dict::set spangroups $c [list spanlengths {}]
-                        set spanlist [my column_get_spaninfo $c]
-                        set index_spanlen_val 5
-                        set spanlist [lsort -index $index_spanlen_val -integer $spanlist]
-                        set ungrouped $spanlist
-
-                        while {[llength $ungrouped]} {
-                            set spanlen [lindex $ungrouped 0 $index_spanlen_val]
-                            set spangroup_posns [lsearch -all -index $index_spanlen_val $ungrouped $spanlen]
-                            set sgroup [list]
-                            foreach p $spangroup_posns {
-                                set spaninfo [lindex $ungrouped $p]
-                                set hcol [tcl::dict::get $spaninfo startcol]
-                                set hrow [tcl::dict::get $spaninfo hrow]
-                                set header [lindex [tcl::dict::get $o_columndefs $hcol -headers] $hrow]
-                                if {[tcl::dict::exists $headerwidths $hcol,$hrow]} {
-                                    set hwidth [tcl::dict::get $headerwidths $hcol,$hrow]
-                                } else {
-                                    set hwidth [textblock::width $header]
-                                    tcl::dict::set headerwidths $hcol,$hrow $hwidth
-                                }
-                                lappend spaninfo headerwidth $hwidth
-                                lappend sgroup $spaninfo
-                            }
-                            set spanlengths [tcl::dict::get $spangroups $c spanlengths]
-                            lappend spanlengths $spanlen
-                            tcl::dict::set spangroups $c spanlengths $spanlengths
-                            tcl::dict::set spangroups $c spangroups $spanlen  $sgroup
-                            set ungrouped [lremove $ungrouped {*}$spangroup_posns]
-                        }
-                    }
-                    return $spangroups
-                }
-                method column_get_own_spans {cidx} {
-                    set colspans_for_column [tcl::dict::get $o_columndefs $cidx -header_colspans]
-                }
-                method column_get_spaninfo {cidx} {
-                    set spans_by_header [my header_colspans]
-                    set colspans_for_column [tcl::dict::get $o_columndefs $cidx -header_colspans]
-                    set spaninfo [list]
-                    set numcols [tcl::dict::size $o_columndefs]
-                    #note that 'any' can occur in positions other than column 0 - meaning any remaining until next non-zero span
-                    tcl::dict::for {hrow rawspans} $spans_by_header {
-                        set thiscol_spanval [lindex $rawspans $cidx]
-                        if {$thiscol_spanval eq "any" || $thiscol_spanval > 0} {
-                            set spanstartcol $cidx ;#own column
-                            if {$thiscol_spanval eq "any"} {
-                                #scan right to first non-zero to get actual length of 'any' span
-                                #REVIEW!
-                                set spanlen 1
-                                for {set i [expr {$cidx+1}]} {$i < $numcols} {incr i} {
-                                    #abort at next any or number or empty string
-                                    if {[lindex $rawspans $i] ne "0"} {
-                                        break
-                                    }
-                                    incr spanlen
-                                }
-                                #set spanlen [expr {$numcols - $cidx}]
-                            } else {
-                                set spanlen $thiscol_spanval
-                            }
-                        } else {
-                            #look left til we see an any or a non-zero value
-                            for {set i $cidx} {$i > -1} {incr i -1} {
-                                set s [lindex $rawspans $i]
-                                if {$s eq "any" || $s > 0} {
-                                    set spanstartcol $i
-                                    if {$s eq "any"} {
-                                        #REVIEW!
-                                        #set spanlen [expr {$numcols - $i}]
-                                        set spanlen 1
-                                        #now scan right to see how long the 'any' actually is
-                                        for {set j [expr {$i+1}]} {$j < $numcols} {incr j} {
-                                            if {[lindex $rawspans $j] ne "0"} {
-                                                break
-                                            }
-                                            incr spanlen
-                                        }
-                                    } else {
-                                        set spanlen $s
-                                    }
-                                    break
-                                }
-                            }
-                        }
-                        #assert - we should always find 1 answer for each header row
-                        lappend spaninfo [list hrow $hrow startcol $spanstartcol spanlen $spanlen]
-                    }
-                    return $spaninfo
-                }
-                method calculate_column_widths {args} {
-                    set column_count [tcl::dict::size $o_columndefs]
-
-                    set opts [tcl::dict::create\
-                        -algorithm $o_column_width_algorithm\
-                    ]
-                    foreach {k v} $args {
-                        switch -- $k {
-                            -algorithm {
-                                tcl::dict::set opts $k $v
-                            }
-                            default {
-                                error "Unknown option '$k'. Known options: [tcl::dict::keys $opts]"
-                            }
-                        }
-                    }
-                    set opt_algorithm [tcl::dict::get $opts -algorithm]
-                    #puts stderr "--- recalculating column widths -algorithm $opt_algorithm"
-                    set known_algorithms [list basic simplistic span span2]
-                    switch -- $opt_algorithm {
-                        basic {
-                            #basic column by column - This allocates extra space to first span/column as they're encountered.
-                            #This can leave the table quite unbalanced with regards to whitespace and the table is also not as compact as it could be especially with regards to header colspans
-                            #The header values can extend over some of the spanned columns - but not optimally so.
-                            set o_calculated_column_widths [list]
-                            for {set c 0} {$c < $column_count} {incr c} {
-                                lappend o_calculated_column_widths [my basic_column_width $c]
-                            }
-                        }
-                        simplistic {
-                            #just uses the widest column data or header element.
-                            #this is even less compact than basic and doesn't allow header colspan values to extend beyond their first spanned column
-                            #This is a conservative option potentially useful in testing/debugging.
-                            set o_calculated_column_widths [list]
-                            for {set c 0} {$c < $column_count} {incr c} {
-                                lappend o_calculated_column_widths [my column_width_configured $c]
-                            }
-                        }
-                        span {
-                            #widest of smallest spans first method
-                            #set calcresult [my columncalc_spans least]
-                            set calcresult [my columncalc_spans least_unmaxed]
-                            set o_calculated_column_widths [tcl::dict::get $calcresult colwidths]
-                        }
-                        span2 {
-                            #allocates more evenly - but truncates headers sometimes
-                            set calcresult [my columncalc_spans all]
-                            set o_calculated_column_widths [tcl::dict::get $calcresult colwidths]
-                        }
-                        default {
-                            error "calculate_column_widths unknown algorithm $opt_algorithm. Known algorithms: $known_algorithms"
-                        }
-                    }
-                    #remember the last algorithm used
-                    set o_column_width_algorithm $opt_algorithm
-                    return $o_calculated_column_widths
-                }
-                method print2 {args} {
-                    variable full_column_cache
-                    set full_column_cache [tcl::dict::create]
-
-                    if {![llength $args]} {
-                        set cols [tcl::dict::keys $o_columndata]
-                    } else {
-                        set cols [list]
-                        foreach colspec $args {
-                            set allcols [tcl::dict::keys $o_columndata]
-                            if {[tcl::string::first .. $colspec] >=0} {
-                                set parts [punk::ansi::ta::_perlish_split {\.\.} $colspec]
-                                if {[llength $parts] != 3} {
-                                    error "[namespace::current]::table error invalid print specification '$colspec'"
-                                }
-                                lassign $parts from _dd to
-                                if {$from eq ""}    {set from 0}
-                                if {$to eq ""}      {set to end}
-
-                                set indices [lrange $allcols $from $to]
-                                lappend cols {*}$indices
-                            } else {
-                                set c [lindex $allcols $colspec]
-                                if {$c ne ""} {
-                                    lappend cols $c
-                                }
-                            }
-                        }
-                    }
-                    set blocks [list]
-                    set colposn 0
-                    set numposns [llength $cols]
-                    set padwidth 0
-                    set table ""
-                    foreach c $cols {
-                        set flags [list]
-                        if {$colposn == 0 && $colposn == $numposns-1} {
-                            set flags [list -position solo]
-                        } elseif {$colposn == 0} {
-                            set flags [list -position left]
-                        } elseif {$colposn == $numposns-1} {
-                            set flags [list -position right]
-                        } else {
-                            set flags [list -position inner]
-                        }
-                        #lappend blocks [my get_column_by_index $c {*}$flags]
-                        #todo - only check and store in cache if table has header or footer colspans > 1
-                        if {[tcl::dict::exists $full_column_cache $c]} {
-                            #puts "!!print used full_column_cache for $c"
-                            set columninfo [tcl::dict::get $full_column_cache $c]
-                        } else {
-                            set columninfo [my get_column_by_index $c -return dict {*}$flags]
-                            tcl::dict::set full_column_cache $c $columninfo
-                        }
-                        set nextcol     [tcl::string::cat [tcl::dict::get $columninfo header] \n [tcl::dict::get $columninfo body]]
-                        set bodywidth   [tcl::dict::get $columninfo bodywidth]
-
-                        if {$table eq ""} {
-                            set table $nextcol
-                            set height [textblock::height $table] ;#only need to get height once at start
-                        } else {
-                            set nextcol [textblock::join -- [textblock::block $padwidth $height $TSUB] $nextcol]
-                            set table [overtype::renderspace -expand_right 1  -transparent $TSUB $table[unset table] $nextcol]
-                            #JMN
-
-                            #set nextcol [textblock::join -- [textblock::block $padwidth $height "\uFFFF"] $nextcol]
-                            #set table [overtype::renderspace -expand_right 1 -transparent \uFFFF $table $nextcol]
-                        }
-                        incr padwidth $bodywidth
-                        incr colposn
-                    }
-
-                    if {[llength $cols]} {
-                        #return [textblock::join -- {*}$blocks]
-                        if {[tcl::dict::get $o_opts_table -show_edge]} {
-                            #title is considered part of the edge ?
-                            set offset 1  ;#make configurable?
-                            set titlepad [tcl::string::repeat $TSUB $offset]
-                            if {[tcl::dict::get $o_opts_table -title] ne ""} {
-                                set titlealign [tcl::dict::get $o_opts_table -titlealign]
-                                switch -- $titlealign {
-                                    left {
-                                        set tstring $titlepad[tcl::dict::get $o_opts_table -title]
-                                    }
-                                    right {
-                                        set tstring [tcl::dict::get $o_opts_table -title]$titlepad
-                                    }
-                                    default {
-                                        set tstring [tcl::dict::get $o_opts_table -title]
-                                    }
-                                }
-                                set opt_titletransparent [tcl::dict::get $o_opts_table -titletransparent]
-                                switch -- $opt_titletransparent {
-                                    0 {
-                                        set mapchar ""
-                                    }
-                                    1 {
-                                        set mapchar " "
-                                    }
-                                    default {
-                                        #won't work if not a single char - review - check also frame behaviour
-                                        set mapchar $opt_titletransparent
-                                    }
-                                }
-                                if {$mapchar ne ""} {
-                                    set tstring [tcl::string::map [list $mapchar $TSUB] $tstring]
-                                }
-                                set table [overtype::block -blockalign $titlealign -transparent $TSUB  $table[unset table] $tstring]
-                            }
-                        }
-                        return $table
-                    } else {
-                        return "No columns matched"
-                    }
-                }
-
-                # using -startcolumn to do slightly less work
-                method print3 {args} {
-                    if {![llength $args]} {
-                        set cols [tcl::dict::keys $o_columndata]
-                    } else {
-                        set cols [list]
-                        foreach colspec $args {
-                            set allcols [tcl::dict::keys $o_columndata]
-                            if {[tcl::string::first .. $colspec] >=0} {
-                                set parts [punk::ansi::ta::_perlish_split {\.\.} $colspec]
-                                if {[llength $parts] != 3} {
-                                    error "[namespace::current]::table error invalid print specification '$colspec'"
-                                }
-                                lassign $parts from _dd to
-                                if {$from eq ""}    {set from 0}
-                                if {$to eq ""}      {set to end}
-
-                                set indices [lrange $allcols $from $to]
-                                lappend cols {*}$indices
-                            } else {
-                                set c [lindex $allcols $colspec]
-                                if {$c ne ""} {
-                                    lappend cols $c
-                                }
-                            }
-                        }
-                    }
-                    set blocks [list]
-                    set numposns [llength $cols]
-                    set colposn  0
-                    set padwidth 0
-                    set table ""
-                    foreach c $cols {
-                        set flags [list]
-                        if {$colposn == 0 && $colposn == $numposns-1} {
-                            set flags [list -position solo]
-                        } elseif {$colposn == 0} {
-                            set flags [list -position left]
-                        } elseif {$colposn == $numposns-1} {
-                            set flags [list -position right]
-                        } else {
-                            set flags [list -position inner]
-                        }
-                        set columninfo [my get_column_by_index $c -return dict {*}$flags]
-                        set nextcol     [tcl::string::cat [tcl::dict::get $columninfo header] \n [tcl::dict::get $columninfo body]]
-                        set bodywidth   [tcl::dict::get $columninfo bodywidth]
-
-                        if {$table eq ""} {
-                            set table $nextcol
-                            set height [textblock::height $table] ;#only need to get height once at start
-                        } else {
-                            set table [overtype::renderspace -startcolumn [expr {$padwidth + 1}] -expand_right 1 -transparent $TSUB $table $nextcol]
-                        }
-                        incr padwidth $bodywidth
-                        incr colposn
-                    }
-
-                    if {[llength $cols]} {
-                        #return [textblock::join -- {*}$blocks]
-                        if {[tcl::dict::get $o_opts_table -show_edge]} {
-                            #title is considered part of the edge ?
-                            set offset 1  ;#make configurable?
-                            set titlepad [tcl::string::repeat $TSUB $offset]
-                            if {[tcl::dict::get $o_opts_table -title] ne ""} {
-                                set titlealign [tcl::dict::get $o_opts_table -titlealign]
-                                switch -- $titlealign {
-                                    left {
-                                        set tstring $titlepad[tcl::dict::get $o_opts_table -title]
-                                    }
-                                    right {
-                                        set tstring [tcl::dict::get $o_opts_table -title]$titlepad
-                                    }
-                                    default {
-                                        set tstring [tcl::dict::get $o_opts_table -title]
-                                    }
-                                }
-                                set opt_titletransparent [tcl::dict::get $o_opts_table -titletransparent]
-                                switch -- $opt_titletransparent {
-                                    0 {
-                                        set mapchar ""
-                                    }
-                                    1 {
-                                        set mapchar " "
-                                    }
-                                    default {
-                                        #won't work if not a single char - review - check also frame behaviour
-                                        set mapchar $opt_titletransparent
-                                    }
-                                }
-                                if {$mapchar ne ""} {
-                                    set tstring [tcl::string::map [list $mapchar $TSUB] $tstring]
-                                }
-                                set table [overtype::block -blockalign $titlealign -transparent $TSUB  $table[unset table] $tstring]
-                            }
-                        }
-                        return $table
-                    } else {
-                        return "No columns matched"
-                    }
-                }
-
-                #print headers and body using different join mechanisms
-                # using -startcolumn to do slightly less work
-                method print {args} {
-                    #*** !doctools
-                    #[call class::table [method print]]
-                    #[para] Return the table as text suitable for console display
-
-                    if {![llength $args]} {
-                        set cols [tcl::dict::keys $o_columndata]
-                    } else {
-                        set cols [list]
-                        set allcols [tcl::dict::keys $o_columndata]
-                        foreach colspec $args {
-                            if {[tcl::string::first .. $colspec] >=0} {
-                                set parts [punk::ansi::ta::_perlish_split {\.\.} $colspec]
-                                if {[llength $parts] != 3} {
-                                    error "[namespace::current]::table error invalid print specification '$colspec'"
-                                }
-                                lassign $parts from _dd to
-                                if {$from eq ""}    {set from 0}
-                                if {$to eq ""}      {set to end}
-
-                                set indices [lrange $allcols $from $to]
-                                lappend cols {*}$indices
-                            } else {
-                                set c [lindex $allcols $colspec]
-                                if {$c ne ""} {
-                                    lappend cols $c
-                                }
-                            }
-                        }
-                    }
-                    set numposns [llength $cols]
-                    set colposn  0
-                    set padwidth 0
-                    set header_build ""
-                    set body_blocks [list]
-                    set headerheight 0
-                    foreach c $cols {
-                        set flags [list]
-                        if {$colposn == 0 && $colposn == $numposns-1} {
-                            set flags [list -position solo]
-                        } elseif {$colposn == 0} {
-                            set flags [list -position left]
-                        } elseif {$colposn == $numposns-1} {
-                            set flags [list -position right]
-                        } else {
-                            set flags [list -position inner]
-                        }
-                        set columninfo [my get_column_by_index $c -return dict {*}$flags]
-                        #set nextcol         [tcl::dict::get $columninfo column]
-                        set bodywidth       [tcl::dict::get $columninfo bodywidth]
-                        set headerheight    [tcl::dict::get $columninfo headerheight]
-                        #set nextcol_lines   [split $nextcol \n]
-                        #set nextcol_header  [join [lrange $nextcol_lines 0 $headerheight-1] \n]
-                        #set nextcol_body    [join [lrange $nextcol_lines $headerheight end] \n]
-                        set nextcol_header  [tcl::dict::get $columninfo header]
-                        set nextcol_body    [tcl::dict::get $columninfo body]
-
-                        if {$header_build eq "" && ![llength $body_blocks]} {
-                            set header_build $nextcol_header
-                        } else {
-                            if {$headerheight > 0} {
-                                set header_build [overtype::renderspace -startcolumn [expr {$padwidth + 1}] -expand_right 1 -transparent $TSUB $header_build[unset header_build] $nextcol_header[unset nextcol_header]]
-                            }
-                            #set body_build [textblock::join -- $body_build[unset body_build] $nextcol_body]
-                        }
-                        lappend body_blocks $nextcol_body
-                        incr padwidth $bodywidth
-                        incr colposn
-                    }
-                    if {![llength $body_blocks]} {
-                        set body_build ""
-                    } else {
-                        #body blocks should not be ragged - so can use join_basic
-                        #set body_build [textblock::join_basic -- {*}$body_blocks]
-                        set body_build [textblock::join_basic_raw {*}$body_blocks]
-                    }
-                    if {$headerheight > 0} {
-                        set table [tcl::string::cat $header_build \n $body_build]
-                    } else {
-                        set table $body_build
-                    }
-
-                    if {[llength $cols]} {
-                        if {[tcl::dict::get $o_opts_table -show_edge]} {
-                            #title is considered part of the edge ?
-                            set offset 1  ;#make configurable?
-                            set titlepad [tcl::string::repeat $TSUB $offset]
-                            if {[tcl::dict::get $o_opts_table -title] ne ""} {
-                                set titlealign [tcl::dict::get $o_opts_table -titlealign]
-                                switch -- $titlealign {
-                                    left {
-                                        set tstring $titlepad[tcl::dict::get $o_opts_table -title]
-                                    }
-                                    right {
-                                        set tstring [tcl::dict::get $o_opts_table -title]$titlepad
-                                    }
-                                    default {
-                                        set tstring [tcl::dict::get $o_opts_table -title]
-                                    }
-                                }
-                                set opt_titletransparent [tcl::dict::get $o_opts_table -titletransparent]
-                                switch -- $opt_titletransparent {
-                                    0 {
-                                        set mapchar ""
-                                    }
-                                    1 {
-                                        set mapchar " "
-                                    }
-                                    default {
-                                        #won't work if not a single char - review - check also frame behaviour
-                                        set mapchar $opt_titletransparent
-                                    }
-                                }
-                                if {$mapchar ne ""} {
-                                    set tstring [tcl::string::map [list $mapchar $TSUB] $tstring]
-                                }
-                                set table [overtype::block -blockalign $titlealign -transparent $TSUB  $table[unset table] $tstring]
-                            }
-                        }
-                        return $table
-                    } else {
-                        return "No columns matched"
-                    }
-                }
-                method print_bodymatrix {} {
-                    #*** !doctools
-                    #[call class::table [method print_bodymatrix]]
-                    #[para] output the matrix string corresponding to the body data using the matrix 2string format
-                    #[para] this will be a table without borders,headers,title etc and will exclude additional ANSI applied due to table, row or column settings.
-                    #[para] If the original cell data itself contains ANSI - the output will still contain those ansi codes.
-                    #
-
-
-                    set m [my as_matrix]
-                    $m format 2string
-                }
-
-                #*** !doctools
-                #[list_end]
-            }]
-            #*** !doctools
-            #  [list_end] [comment {- end enumeration provider_classes }]
-            #[list_end] [comment {- end itemized list textblock::class groupings -}]
-        }
-    }
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#
-#Note: A textblock does not necessarily have lines the same length - either in number of characters or print-width
-#
-tcl::namespace::eval textblock {
-    variable frametypes
-    set frametypes [list light light_b light_c heavy heavy_b heavy_c arc arc_b arc_c double block block1 block2 block2hack ascii altg]
-    #class::table needs to be able to determine valid frametypes
-    proc frametypes {} {
-        variable frametypes
-        return $frametypes
-    }
-
-    #tcl::namespace::eval cd {
-    #    #todo - save and restore existing tcl::namespace::export in case macros::cd has default exports in future
-    #    tcl::namespace::eval ::term::ansi::code::macros::cd {tcl::namespace::export *}
-    #    tcl::namespace::import ::term::ansi::code::macros::cd::*
-    #    tcl::namespace::eval ::term::ansi::code::macros::cd {tcl::namespace::export -clear}
-    #}
-    proc spantest {} {
-        set t [list_as_table -columns 5 -return tableobject {a b c d e aa bb cc dd ee X Y}]
-        $t configure_column 0 -headers [list span3 "1-span4\n2-span4 second line" span5/5 "span-all etc blah 123 hmmmmm" span2]
-        $t configure_column 0 -header_colspans {3 4 5 any 2}
-        $t configure_column 2 -headers {"" "" "" "" c2span2_etc}
-        $t configure_column 2 -header_colspans {0 0 0 0 2}
-        $t configure -show_header 1 -ansiborder_header [a+ cyan]
-        return $t
-    }
-    proc spantest1 {} {
-        set t [list_as_table -columns 5 -return tableobject {a b c d e aa bb cc dd ee X Y}]
-        $t configure_column 0 -headers [list "span3-any longer than other span any" "1-span4\n2-span4 second line" "span-any short aligned?" "span5/5 longest etc blah 123" span2]
-        $t configure_column 0 -header_colspans {any 4 any 5 2}
-        $t configure_column 2 -headers {"" "" "" "" c2span2_etc}
-        $t configure_column 2 -header_colspans {0 0 0 0 2}
-        $t configure_column 3 -header_colspans {1 0 0 0 0}
-        $t configure -show_header 1 -ansiborder_header [a+ cyan]
-        $t configure_column 0 -blockalign right ;#trigger KNOWN BUG overwrite of right edge by last char of spanning col (in this case fullspan from left - but also happens for any span extending to rhs)
-        return $t
-    }
-
-    #more complex colspans
-    proc spantest2 {} {
-        set t [list_as_table -columns 5 -return tableobject {a b c d e aa bb cc dd ee X Y}]
-        $t configure_column 0 -headers {c0span3 c0span4 c0span1 "c0span-all etc blah 123 hmmmmm" c0span2}
-        $t configure_column 0 -header_colspans {3 4 1 any 2}
-        $t configure_column 1 -header_colspans {0 0 2 0 0}
-        $t configure_column 2 -headers {"" "" "" "" c2span2}
-        $t configure_column 2 -header_colspans {0 0 0 0 2}
-        $t configure_column 3 -header_colspans {1 0 2 0 0}
-        $t configure -show_header 1 -ansiborder_header [a+ cyan]
-        return $t
-    }
-    proc spantest3 {} {
-        set t [list_as_table -columns 5 -return tableobject {a b c d e aa bb cc dd ee X Y}]
-        $t configure_column 0 -headers {c0span3 c0span4 c0span1 "c0span-all etc blah 123 hmmmmm" "c0span2 etc blah" c0span1}
-        $t configure_column 0 -header_colspans {3 4 1 any 2 1}
-        $t configure_column 1 -header_colspans {0 0 4 0 0 1}
-        $t configure_column 1 -headers {"" "" "c1span4" "" "" "c1nospan"}
-        $t configure_column 2 -headers {"" "" "" "" "" c2span2}
-        $t configure_column 2 -header_colspans {0 0 0 0 1 2}
-        $t configure_column 4 -headers {"4" "444" "" "" "" "44"}
-        $t configure -show_header 1 -ansiborder_header [a+ cyan]
-        return $t
-    }
-
-    punk::args::define {
-            @id     -id ::textblock::periodic
-            @cmd    -name textblock::periodic -help "A rudimentary periodic table
-            This is primarily a test of textblock::class::table"
-
-            -return         -default table\
-                            -choices {table tableobject}\
-                            -help "default choice 'table' returns the displayable table output"
-            -compact        -default 1  -type boolean  -help "compact true defaults: -show_vseps 0 -show_header 0 -show_edge 0"
-            -frame          -default 1  -type boolean
-            -show_vseps     -default "" -type boolean
-            -show_header    -default "" -type boolean
-            -show_edge      -default "" -type boolean
-            -forcecolour    -default 0 -type boolean               -help "If punk::colour is off - this enables the produced table to still be ansi coloured"
-            @values -min 0 -max 0
-    }
-
-    proc periodic {args} {
-        #For an impressive interactive terminal app (javascript)
-        # see: https://github.com/spirometaxas/periodic-table-cli
-        set opts [dict get [punk::args::parse $args withid ::textblock::periodic] opts]
-        set opt_return  [tcl::dict::get $opts -return]
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc forcecolour
-        } else {
-            set fc ""
-        }
-
-        #examples ptable.com
-        set elements_layout [list\
-            1   H   ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  He\
-            2   Li  Be  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  B   C   N   O   F   Ne\
-            3   Na  Mg  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  Al  Si  P   S   Cl  Ar\
-            4   K   Ca  Sc  Ti  V   Cr  Mn  Fe  Co  Ni  Cu  Zn  Ga  Ge  As  Se  Br  Kr\
-            5   Rb  Sr  Y   Zr  Nb  Mo  Tc  Ru  Rh  Pd  Ag  Cd  In  Sn  Sb  Te  I   Xe\
-            6   Cs  Ba  ""  Hf  Ta  W   Re  Os  Ir  Pt  Au  Hg  Tl  Pb  Bi  Po  At  Rn\
-            7   Fr  Ra  ""  Rf  Db  Sg  Bh  Hs  Mt  Ds  Rg  Cn  Nh  Fl  Mc  Lv  Ts  Og\
-            " "  " "  " "  " "  " "  " "  " "  " "  " "  " "  " "  " "  ""  ""  ""  ""  ""  ""  ""\
-            ""  ""  ""  6   La  Ce  Pr  Nd  Pm  Sm  Eu  Gd  Tb  Dy  Ho  Er  Tm  Yb  Lu\
-            ""  ""  ""  7   Ac  Th  Pa  U   Np  Pu  Am  Cm  Bk  Cf  Es  Fm  Md  No  Lr\
-        ]
-        #generate list of elements ordered by atomic number from the layout table (0 based - so atomic number is +1)
-        #create a lookup dict from symbol to atomic number at same time
-        set elements [list]
-        set e_atomic [dict create]
-        set e_group  [dict create]
-        set e_period [dict create]
-        set atomic 0 ;#first, H, will be 1
-        set period 0
-        set group 0
-        foreach e $elements_layout {
-            if {[string trim $e] eq ""} {
-                switch -- $period {
-                    6a {
-                        set period "6c"
-                        set atomic 71 ;#next is Hf=72
-                    }
-                    7a {
-                        set period "7c"
-                        set atomic 103 ;#next is Rf=104
-                    }
-                }
-                if {$group == 18} {
-                    #handle rows of blanks
-                    set group 0
-                } else {
-                    incr group
-                }
-                continue
-            }
-            if {[string is digit -strict $e]} {
-                if {$period in {0 1 2 3 4}} {
-                    set period $e
-                } else {
-                    switch -- $period {
-                        5 {
-                            set period 6a
-                        }
-                        6c {
-                            set period 7a
-                        }
-                        6b {
-                            set period 7b
-                            set atomic 88 ;#next is Ac=89
-                        }
-                        7c {
-                            set period 6b
-                            set atomic 56 ;#next is La=57
-                        }
-                    }
-                }
-                incr group
-                continue
-            }
-
-            incr atomic
-            lappend elements $e
-            dict set e_atomic $e $atomic
-            dict set e_group $e $group
-            dict set e_period $e [string index $period 0]
-            if {$group == 18} {
-                set group 0 ;#false group 0 for first column of period numbers
-            } else {
-                incr group
-            }
-        }
-        #test no screwup above
-        if {[dict get $e_atomic Og] ne "118" || [dict get $e_atomic Lr] ne "103"} {
-            error "textblock::periodic programming error Og->[dict get $e_atomic Og] Lr->[dict get $e_atomic Lr] should be Og->118 Lr->103"
-        }
-
-
-        set type_colours [list]
-
-        set ecat [tcl::dict::create]
-
-        set cat_alkaline_earth [list Be Mg Ca Sr Ba Ra]
-        set ansi [a+ {*}$fc web-black Web-gold]
-        set val [list ansi $ansi cat alkaline_earth]
-        foreach e $cat_alkaline_earth {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat_reactive_nonmetal [list H C N O F P S Cl Se Br I]
-        #set ansi [a+ {*}$fc web-black Web-lightgreen]
-        set ansi [a+ {*}$fc black Term-113]
-        set val [list ansi $ansi cat reactive_nonmetal]
-        foreach e $cat_reactive_nonmetal {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list Li Na K Rb Cs Fr]
-        #set ansi [a+ {*}$fc web-black Web-Khaki]
-        set ansi [a+ {*}$fc black Term-lightgoldenrod2]
-        set val [list ansi $ansi cat alkali_metals]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list Sc Ti V Cr Mn Fe Co Ni Cu Zn Y Zr Nb Mo Tc Ru Rh Pd Ag Cd Hf Ta W Re Os Ir Pt Au Hg Rf Db Sg Bh Hs]
-        #set ansi [a+ {*}$fc web-black Web-lightsalmon]
-        set ansi [a+ {*}$fc black Term-orange1]
-        set val [list ansi $ansi cat transition_metals]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list Al Ga In Sn Tl Pb Bi Po]
-        set ansi [a+ {*}$fc web-black Web-lightskyblue]
-        set val [list ansi $ansi cat post_transition_metals]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list B Si Ge As Sb Te At]
-        #set ansi [a+ {*}$fc web-black Web-turquoise]
-        set ansi [a+ {*}$fc black Brightcyan]
-        set val [list ansi $ansi cat metalloids]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list He Ne Ar Kr Xe Rn]
-        set ansi [a+ {*}$fc web-black Web-orchid]
-        set val [list ansi $ansi cat noble_gases]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list Ac Th Pa U Np Pu Am Cm Bk Cf Es Fm Md No Lr]
-        set ansi [a+ {*}$fc web-black Web-plum]
-        set val [list ansi $ansi cat actinoids]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set cat [list La Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu]
-        #set ansi [a+ {*}$fc web-black Web-tan]
-        set ansi [a+ {*}$fc black Term-tan]
-        set val [list ansi $ansi cat lanthanoids]
-        foreach e $cat {
-            tcl::dict::set ecat $e $val
-        }
-
-        set ansi [a+ {*}$fc web-black Web-whitesmoke]
-        set val [list ansi $ansi cat other]
-        foreach e [list Mt Ds Rg Cn Nh Fl Mc Lv Ts Og] {
-            tcl::dict::set ecat $e $val
-        }
-
-        set elements_layout_coloured [list]
-        set RST [a+]
-        if {[tcl::dict::get $opts -compact]} {
-            foreach e $elements_layout {
-                if {[tcl::dict::exists $ecat $e]} {
-                    set ansi [tcl::dict::get $ecat $e ansi]
-                    #lappend elements_layout_coloured [textblock::pad $ansi$e -width 2 -which right]
-                    #no need to pad here - table column_configure -textalign default of left will do the work of padding right anyway
-                    lappend elements_layout_coloured $ansi$e
-                } else {
-                    lappend elements_layout_coloured $e
-                }
-            }
-        } else {
-            foreach e $elements_layout {
-                if {[tcl::dict::exists $ecat $e]} {
-                    set ansi [tcl::dict::get $ecat $e ansi]
-                    #the atomic number should be a superscript as is the norm
-                    #use subscript on line above
-                    set a [punk::char::lib::subscript_number [tcl::dict::get $e_atomic $e]]
-                    lappend elements_layout_coloured "$ansi$a\n $e "
-                } else {
-                    lappend elements_layout_coloured $e
-                }
-            }
-
-        }
-
-        set t [list_as_table -columns 19 -return tableobject $elements_layout_coloured]
-        #(defaults to show_hseps 0)
-
-        #todo - keep simple table with symbols as base -  map symbols to descriptions etc for more verbose table options
-
-        set header_0  [list  0  1   2   3   4   5   6   7   8   9   10  11  12  13  14  15  16  17  18]
-        set c 0
-        foreach h $header_0 {
-            $t configure_column $c -headers [list $h] -minwidth 2
-            incr c
-        }
-        set ccount [$t column_count]
-        for {set c 0} {$c < $ccount} {incr c} {
-            $t configure_column $c -minwidth 3
-        }
-        if {[tcl::dict::get $opts -compact]} {
-            #compact defaults - but let explicit arguments override
-            set conf [dict create -show_vseps 0 -show_header 0 -show_edge 0]
-        } else {
-            set conf [dict create -show_vseps 1 -show_header 1 -show_edge 1]
-        }
-        dict for {k v} $conf {
-            if {[dict get $opts $k] ne ""} {
-                dict set conf $k [dict get $opts $k]
-            }
-        }
-
-        set moreopts [dict create\
-            -frametype_header light\
-            -ansiborder_header [a+ {*}$fc brightwhite]\
-            -ansibase_header [a+ {*}$fc Black]\
-            -ansibase_body [a+ {*}$fc Black]\
-            -ansiborder_body [a+ {*}$fc black]\
-            -frametype block
-        ]
-        $t configure {*}[dict merge $conf $moreopts]
-
-        #-ansiborder_header [a+ {*}$fc web-white]\
-
-        if {$opt_return eq "table"} {
-            if {[dict get $opts -frame]} {
-                #set output [textblock::frame -ansiborder [a+ {*}$fc Black web-cornflowerblue] -type heavy -title "[a+ {*}$fc Black] Periodic Table " [$t print]]
-                #set output [textblock::frame -ansiborder [a+ {*}$fc Black term-deepskyblue2] -type heavy -title "[a+ {*}$fc Black] Periodic Table " [$t print]]
-                set output [textblock::frame -checkargs 0 -ansiborder [a+ {*}$fc Black cyan] -type heavy -title "[a+ {*}$fc Black] Periodic Table [a]" [$t print]]
-            } else {
-                set output [$t print]
-            }
-            $t destroy
-            return $output
-        }
-        return $t
-    }
-
-    proc bookend_lines {block start {end "\x1b\[m"}} {
-        set out ""
-        foreach ln [split $block \n] {
-            append out $start $ln $end \n
-        }
-        return [string range $out 0 end-1]
-    }
-    proc ansibase_lines {block {newprefix ""}} {
-        set base ""
-        set out ""
-        if {$newprefix eq ""} {
-            if {![punk::ansi::ta::detect $block]} {
-                return $block
-            }
-            #could be newine in SOS/PM? review - terminal should theoretically ignore all chars til close of string
-            foreach ln [split $block \n] {
-                set parts [punk::ansi::ta::split_codes $ln]
-                if {[lindex $parts 0] eq ""} {
-                    if {[lindex $parts 1] ne "" && ![punk::ansi::codetype::is_sgr_reset [lindex $parts 1]]} {
-                        set base [lindex $parts 1]
-                        append out $base
-                    } else {
-                        append out $base
-                    }
-                } else {
-                    #leading plaintext - maintain our base
-                    append out $base [lindex $parts 0] [lindex $parts 1]
-                }
-
-                set code_idx 3
-                foreach {pt code} [lrange $parts 2 end] {
-                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                        set parts [linsert $parts $code_idx+1 $base]
-                    }
-                    incr code_idx 2
-                }
-                append out {*}[lrange $parts 2 end] \n
-            }
-            return [string range $out 0 end-1]
-        } else {
-            set base $newprefix
-            if {![punk::ansi::ta::detect $block]} {
-                foreach ln [split $block \n] {
-                    append out $base $ln \n
-                }
-                return $out
-            }
-            foreach ln [split $block \n] {
-                set parts [punk::ansi::ta::split_codes $ln]
-                set code_idx 1
-                set offset 0
-                foreach {pt code} $parts {
-                    if {$code_idx == 1} {
-                        #first pt & code
-                        if {$pt ne ""} {
-                            #leading plaintext
-                            set parts [linsert $parts 0 $base]
-                            incr offset
-                        }
-                    }
-                    if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                        set parts [linsert $parts [expr {$code_idx+1+$offset}] $base]
-                        incr offset
-                    }
-                    incr code_idx 2
-                }
-                append out {*}$parts \n
-            }
-            return [string range $out 0 end-1]
-        }
-    }
-
-    set FRAMETYPES  [textblock::frametypes]
-    punk::args::define [punk::lib::tstr -return string {
-        @id         -id ::textblock::list_as_table
-        @cmd        -name "textblock::list_as_table" -help\
-            "Display a list in a bordered table
-            "
-
-        -return     -default table -choices {table tableobject}
-        -table      -default "" -type string\
-            -help "existing table object to use"
-        -action     -default "append" -choices {append replace}\
-            -help "row insertion method if existing -table is supplied
-            if append is chosen the new values will always start at the first column"
-        -title      -type string -help\
-            "Title to display overlayed on top edge of table.
-            Will not be visible if -show_edge is false"
-        -titlealign -type string -choices {left centre right}
-        -frametype  -default "light" -type dict -choices {${$FRAMETYPES}} -choicerestricted 0\
-            -help "frame type or dict for custom frame"
-        -show_edge  -default "" -type boolean\
-            -help "show outer border of table"
-        -show_seps  -default "" -type boolean
-        -show_vseps -default "" -type boolean\
-            -help "Show vertical table separators"
-        -show_hseps -default "" -type boolean\
-            -help "Show horizontal table separators
-            (default 0 if no existing -table supplied)"
-        -colheaders    -default "" -type list\
-            -help {list of lists. list of column header values. Outer list must match number of columns.
-            A table
-            e.g single header row: -colheaders {{column_a} {column_b} {column_c}}
-            e.g 2 header rows:     -colheaders {{column_a "nextrow test"} {column_b} {column_c}}
-            Note that each element of the outer list is itself a list so:
-                -colheaders {"column a" "column b" "column c"}
-            Is likely not the right format if it was intended to have a single header row where the
-            column titles contain spaces.
-            The correct syntax for that would be:
-                -colheaders {{"column a"} {"column b"} {"column c"}}
-            For spanning header cells - use 'set t [list_as_table -return tableobject ...]'
-            and then something like:
-                $t configure_header 1 -colspans {3 0 0}; $t print
-            }
-        -header     -default "" -type list -multiple 1\
-            -help "Each supplied -header argument is a header row.
-            The number of values for each must be <= number of columns"
-        -show_header -type boolean\
-            -help "Whether to show a header row.
-            Omit for unspecified/automatic,
-            in which case it will display only if -headers list was supplied."
-        -columns    -default "" -type integer\
-            -help "Number of table columns
-            Will default to 2 if not using an existing -table object"
-
-        @values -min 0 -max 1
-        datalist    -default {} -type list      -help "flat list of table cell values which will be wrapped based on -columns value"
-    }]
-
-    proc list_as_table {args} {
-        set FRAMETYPES  [textblock::frametypes]
-        set argd [punk::args::parse $args withid ::textblock::list_as_table]
-
-        set opts [dict get $argd opts]
-        set received [dict get $argd received]
-        set datalist [dict get $argd values datalist]
-
-        set existing_table [dict get $opts -table]
-        set opt_columns [dict get $opts -columns]
-        set count [llength $datalist]
-
-        set is_new_table 0
-        if {$existing_table ne ""} {
-            if {[tcl::namespace::tail [info object class $existing_table]] ne "table"} {
-                error "textblock::list_as_table error -table must be an existing table object (e.g set t \[textblock::class::table new\])"
-            }
-            set t $existing_table
-            foreach prop {-frametype -show_edge -show_seps -show_vseps -show_hseps} {
-                if {[tcl::dict::get $opts $prop] ne ""} {
-                    $t configure $prop [tcl::dict::get $opts $prop]
-                }
-            }
-            if {[dict get $opts -action] eq "replace"} {
-                $t row_clear
-            }
-            set cols [$t column_count]
-            if {[tcl::string::is integer -strict $opt_columns]} {
-                if {$opt_columns > $cols} {
-                    set extra [expr {$opt_columns - $cols}]
-                    for {set c 0} {$c < $extra} {incr c} {
-                        $t add_column
-                    }
-                } elseif {$opt_columns < $cols} {
-                    #todo - auto add blank values in the datalist
-                    error "Number of columns requested: $opt_columns is less than existing number of columns $cols - not yet supported"
-                }
-                set cols [$t column_count]
-            }
-        } else {
-            set is_new_table 1
-            set colheaders {}
-            if {[tcl::dict::get $opts -colheaders] ne ""} {
-                set colheaders [dict get $opts -colheaders]
-            } else {
-                set colheaders [list]
-            }
-            set r 0
-            foreach ch $colheaders {
-                set rows [llength $ch]
-                if {$r < $rows} {
-                    set r $rows
-                }
-            }
-            if {[llength [tcl::dict::get $opts -header]]} {
-                foreach hrow [tcl::dict::get $opts -header] {
-                    set c 0
-                    foreach cell $hrow {
-                        if {[llength $colheaders] < $c+1} {
-                            lappend colheaders [lrepeat $r {}]
-                        }
-                        set colinfo [lindex $colheaders $c]
-                        if {$r > [llength $colinfo]} {
-                            set diff [expr {$r - [llength $colinfo]}]
-                            lappend colinfo {*}[lrepeat $diff {}]
-                        }
-                        lappend colinfo $cell
-                        lset colheaders $c $colinfo
-                        incr c
-                    }
-                    incr r
-                }
-            }
-
-
-            if {[llength $colheaders] > 0} {
-                if {![tcl::dict::exists $opts received -show_header]} {
-                    set show_header 1
-                } else {
-                    set show_header [tcl::dict::get $opts -show_header]
-                }
-            } else {
-                if {![tcl::dict::exists $opts received -show_header]} {
-                    set show_header 0
-                } else {
-                    set show_header [tcl::dict::get $opts -show_header]
-                }
-            }
-
-            if {[tcl::string::is integer -strict $opt_columns]} {
-                set cols $opt_columns
-                if {[llength $colheaders] && $cols != [llength $colheaders]} {
-                    error "list_as_table number of columns ($cols) doesn't match supplied number of headers ([llength $colheaders])"
-                }
-            } else {
-                #review
-                if {[llength $colheaders]} {
-                    set cols [llength $colheaders]
-                } else {
-                    set cols 2 ;#seems a reasonable default
-                }
-            }
-            #defaults for new table only
-            #if {[tcl::dict::get $opts -show_seps] eq ""} {
-            #    tcl::dict::set opts -show_seps 1
-            #}
-            if {[tcl::dict::get $opts -show_edge] eq ""} {
-                tcl::dict::set opts -show_edge 1
-            }
-            if {[tcl::dict::get $opts -show_vseps] eq ""} {
-                tcl::dict::set opts -show_vseps 1
-            }
-            if {[tcl::dict::get $opts -show_hseps] eq ""} {
-                tcl::dict::set opts -show_hseps 0
-            }
-
-            set t [textblock::class::table new\
-                -show_header $show_header\
-                -show_edge  [tcl::dict::get $opts -show_edge]\
-                -frametype  [tcl::dict::get $opts -frametype]\
-                -show_seps  [tcl::dict::get $opts -show_seps]\
-                -show_vseps [tcl::dict::get $opts -show_vseps]\
-                -show_hseps [tcl::dict::get $opts -show_hseps]\
-            ]
-            if {[llength $colheaders]} {
-                for {set c 0} {$c < $cols} {incr c} {
-                    $t add_column -headers [lindex $colheaders $c]
-                }
-            } else {
-                for {set c 0} {$c < $cols} {incr c} {
-                    $t add_column -headers [list $c]
-                }
-            }
-        }
-
-        set full_rows [expr {$count / $cols}]
-        set last_items [expr {$count % $cols}]
-
-
-        set rowdata [list]
-        set row [list]
-        set i 0
-        if {$full_rows > 0} {
-            for {set r 0} {$r < $full_rows} {incr r} {
-                set j [expr {$i + ($cols -1)}]
-                set row [lrange $datalist $i $j]
-                incr i $cols
-                lappend rowdata $row
-            }
-        }
-        if {$last_items > 0} {
-            set idx [expr {$last_items -1}]
-            lappend rowdata [lrange $datalist end-$idx end]
-        }
-        foreach row $rowdata {
-            set shortfall [expr {$cols - [llength $row]}]
-            if {$shortfall > 0} {
-                #set row [concat $row [lrepeat $shortfall ""]]
-                lappend row {*}[lrepeat $shortfall ""]
-            }
-            $t add_row $row
-        }
-        if {"-title" in $received} {
-            $t configure -title [dict get $opts -title]
-        }
-        if {"-titlealign" in $received} {
-            $t configure -titlealign [dict get $opts -titlealign]
-        }
-        #puts stdout $rowdata
-        if {[tcl::dict::get $opts -return] eq "table"} {
-            set result [$t print]
-            if {$is_new_table} {
-                $t destroy
-            }
-            return $result
-        } else {
-            return $t
-        }
-    }
-    #return a homogenous block of characters - ie lines all same length, all same character
-    #printing-width in terminal columns is not necessarily same as blockwidth even if a single char is passed (could be full-width unicode character)
-    #This can have ansi SGR codes - but to repeat blocks containing ansi-movements, the block should first be rendered to a static output with something like overtype::left
-    proc block {blockwidth blockheight {char " "}} {
-        if {$blockwidth < 0} {
-            error "textblock::block blockwidth  must be an integer greater than or equal to zero"
-        }
-        if {$blockheight <= 0} {
-            error "textblock::block blockheight must be a positive integer"
-        }
-        if {$char eq ""} {return ""}
-        #using tcl::string::length is ok
-        if {[tcl::string::length $char] == 1} {
-            set row [tcl::string::repeat $char $blockwidth]
-            set mtrx [lrepeat $blockheight $row]
-            return [::join $mtrx \n]
-        } else {
-            set charblock [tcl::string::map [list \r\n \n] $char]
-            if {[tcl::string::last \n $charblock] >= 0} {
-                if {$blockwidth > 1} {
-                    #set row [.= val $charblock {*}[lrepeat [expr {$blockwidth -1}] |> piper_blockjoin $charblock]] ;#building a repeated "|> command arg" list to evaluate as a pipeline. (from before textblock::join could take arbitrary num of blocks )
-                    #set row [textblock::join_basic -- {*}[lrepeat $blockwidth $charblock]]
-                    set row [textblock::join_basic_raw {*}[lrepeat $blockwidth $charblock]]
-                } else {
-                    set row $charblock
-                }
-            } else {
-                set row [tcl::string::repeat $char $blockwidth]
-            }
-            set mtrx [lrepeat $blockheight $row]
-            return [::join $mtrx \n]
-        }
-    }
-
-
-    punk::args::define {
-        @id         -id ::textblock::testblock
-        @cmd -name textblock::testblock -help\
-            "Create a block of characters size
-            columns wide and size rows tall.
-            (which on a terminal will show as a
-            vertically oriented rectangle due to
-            cells being taller than their width)
-
-            The characters used are
-            123456789ABCDEF
-            "
-        -size   -type integer\
-                -default 15\
-                -optional 1\
-                -range {1 ""}
-        -direction -default horizontal\
-             -choices {horizontal vertical}\
-             -help\
-            "Direction of character increments.
-            When rainbow is in the colour list,
-            the colour stripes will be oriented
-            in this direction.
-            "
-        @values -min 0 -max 1
-        colour  -type list  -default {} -optional 1 -help\
-            "List of Ansi colour names
-            e.g. testblock -size 10 {white Red}
-            produces a block of character 10x10
-            with white text on red bacground
-
-            The additional pseudo-color 'rainbow'
-            is available.
-            "
-    }
-
-    proc testblock {args} {
-        set argd [punk::args::parse $args withid ::textblock::testblock]
-        set colour  [dict get $argd values colour]
-        set size    [dict get $argd opts -size]
-
-        set rainbow_list [list]
-        lappend rainbow_list   {30 47} ;#black White
-        lappend rainbow_list   {31 46} ;#red Cyan
-        lappend rainbow_list   {32 45} ;#green Purple
-        lappend rainbow_list   {33 44} ;#yellow Blue
-        lappend rainbow_list   {34 43} ;#blue Yellow
-        lappend rainbow_list   {35 42} ;#purple Green
-        lappend rainbow_list   {36 41} ;#cyan Red
-        lappend rainbow_list   {37 40} ;#white Black
-        lappend rainbow_list   {black Yellow}
-        lappend rainbow_list   red
-        lappend rainbow_list   green
-        lappend rainbow_list   yellow
-        lappend rainbow_list   blue
-        lappend rainbow_list   purple
-        lappend rainbow_list   cyan
-        lappend rainbow_list   {white Red}
-
-        #set rainbow_direction "horizontal"
-        #set vpos [lsearch $colour vertical]
-        #if {$vpos >= 0} {
-        #    set rainbow_direction vertical
-        #    set colour [lremove $colour $vpos]
-        #}
-        #set hpos [lsearch $colour horizontal]
-        #if {$hpos >=0} {
-        #    #horizontal is the default and superfluous but allowed for symmetry
-        #    set colour [lremove $colour $hpos]
-        #}
-        set direction [dict get $argd opts -direction]
-
-
-
-        set chars       [list {*}[punk::lib::range 1 9] A B C D E F]
-        if {$size <= 15} {
-            set charsubset  [lrange $chars 0 $size-1]
-        } else {
-            set numsets [expr {int(ceil($size / 15.0))}]
-            set longset [concat {*}[lrepeat $numsets $chars]]
-            set charsubset [lrange $longset 0 $size-1]
-
-            set longbows [concat {*}[lrepeat $numsets $rainbow_list]]
-            set rainbow_list [lrange $longbows 0 $size-1]
-        }
-        if {"noreset" in $colour} {
-            set RST ""
-        } else {
-            set RST [a]
-        }
-        if {"rainbow" in $colour && $direction eq "vertical"} {
-            #column first - colour change each column
-            set c [::join $charsubset \n]
-
-            set clist [list]
-            for {set i 0} {$i <$size} {incr i} {
-                set colour2 [tcl::string::map [list rainbow [lindex $rainbow_list $i]] $colour]
-                set ansi [a+ {*}$colour2]
-
-                set ansicode [punk::ansi::codetype::sgr_merge_list "" $ansi]
-                lappend clist ${ansicode}$c$RST
-            }
-            if {"noreset" in $colour} {
-                return [textblock::join_basic -ansiresets 0 -- {*}$clist]
-            } else {
-                #return [textblock::join_basic -- {*}$clist]
-                return [textblock::join_basic_raw {*}$clist]
-            }
-        } elseif {"rainbow" in $colour} {
-            #direction must be horizontal
-            set block ""
-            for {set r 0} {$r < $size} {incr r} {
-                set colour2 [tcl::string::map [list rainbow [lindex $rainbow_list $r]] $colour]
-                set ansi [a+ {*}$colour2]
-                set ansicode [punk::ansi::codetype::sgr_merge_list "" $ansi]
-                set row "$ansicode"
-                foreach c $charsubset {
-                    append row $c
-                }
-                append row $RST
-                append block $row \n
-            }
-            set block [tcl::string::trimright $block \n]
-            return $block
-        } else {
-            if {$direction eq "vertical"} {
-                #row first -
-                set rows [list]
-                foreach ch $charsubset {
-                    lappend rows [tcl::string::repeat $ch $size]
-                }
-                set block [::join $rows \n]
-                if {[llength $colour]} {
-                    set block [a+ {*}$colour]$block$RST
-                }
-                return $block
-            } else {
-                set block ""
-                for {set r 0} {$r < $size} {incr r} {
-                    append block [::join $charsubset ""] \n
-                }
-                if {[llength $colour]} {
-                    set block [a+ {*}$colour]$block$RST
-                }
-                return $block
-            }
-        }
-    }
-    interp alias {} testblock {} textblock::testblock
-
-    #todo - consider 'elastic tabstops' for textblocks where tab acts as a column separator and adjacent lines with the same number of tabs form a sort of table
-    proc width {textblock} {
-        #backspaces, vertical tabs ?
-        if {$textblock eq ""} {
-            return 0
-        }
-        #textutil::tabify is a reasonable hack when there are no ansi SGR codes - but probably not always what we want even then - review
-        if {[tcl::string::last \t $textblock] >= 0} {
-            if {[tcl::info::exists punk::console::tabwidth]} {
-                set tw $::punk::console::tabwidth
-            } else {
-                set tw 8
-            }
-            set textblock [textutil::tabify::untabify2 $textblock $tw]
-        }
-        if {[string length $textblock] > 1 && [punk::ansi::ta::detect $textblock]} {
-            #ansistripraw slightly faster than ansistrip - and won't affect width (avoid detect_g0/conversions)
-            set textblock [punk::ansi::ansistripraw $textblock]
-        }
-        if {[tcl::string::last \n $textblock] >= 0} {
-            return [tcl::mathfunc::max {*}[lmap v [split $textblock \n] {::punk::char::ansifreestring_width $v}]]
-        }
-        return [punk::char::ansifreestring_width $textblock]
-    }
-    #gather info about whether ragged (samewidth each line = false) and min width
-    proc widthinfo {textblock} {
-        #backspaces, vertical tabs ?
-        if {$textblock eq ""} {
-            return [dict create width 0 minwidth 0 ragged 0]
-        }
-        #textutil::tabify is a reasonable hack when there are no ansi SGR codes - but probably not always what we want even then - review
-        if {[tcl::string::last \t $textblock] >= 0} {
-            if {[tcl::info::exists punk::console::tabwidth]} {
-                set tw $::punk::console::tabwidth
-            } else {
-                set tw 8
-            }
-            set textblock [textutil::tabify::untabify2 $textblock $tw]
-        }
-        #review detectcode vs detect. detectcode won't look for completness of all codes to give a positive result
-        #ansistripraw splits on complete codes..
-        if {[string length $textblock] > 1 && [punk::ansi::ta::detectcode $textblock]} {
-            #ansistripraw slightly faster than ansistrip - and won't affect width (avoid detect_g0/conversions)
-            set textblock [punk::ansi::ansistripraw $textblock]
-        }
-        if {[tcl::string::last \n $textblock] >= 0} {
-            set widths [lmap v [split $textblock \n] {::punk::char::ansifreestring_width $v}]
-            set max [tcl::mathfunc::max {*}$widths]
-            set min [tcl::mathfunc::min {*}$widths]
-            set ragged [expr {$min != $max}]
-            return [dict create width $max minwidth $min ragged $ragged]
-        }
-        #single line
-        set w [punk::char::ansifreestring_width $textblock]
-        return [dict create width $w minwidth $w ragged 0]
-    }
-    #when we know the block is uniform in width - just examine topline
-    proc widthtopline {textblock} {
-        set firstnl [tcl::string::first \n $textblock]
-        if {$firstnl >= 0} {
-            set tl [tcl::string::range $textblock 0 $firstnl]
-        } else {
-            set tl $textblock
-        }
-        #review detectcode vs detect. detectcode won't look for completness of all codes to give a positive result
-        #ansistripraw splits on complete codes..
-        if {[punk::ansi::ta::detectcode $tl]} {
-            set tl [punk::ansi::ansistripraw $tl]
-        }
-        return [punk::char::ansifreestring_width $tl]
-    }
-    #uses tcl's tcl::string::length on each line. Length will include chars in ansi codes etc - this is not a 'width' determining function.
-    proc string_length_line_max {textblock} {
-        #tcl::mathfunc::max {*}[lmap v [split $textblock \n] {tcl::string::length $v}]
-        set max 0
-        foreach ln [split $textblock \n] {
-            if {[tcl::string::length $ln] > $max} {set max [tcl::string::length $ln]}
-        }
-        return $max
-    }
-    #*slightly* slower
-    #proc string_length_line_max {textblock} {
-    #    tcl::mathfunc::max {*}[lmap v [split $textblock \n] {tcl::string::length $v}]
-    #}
-    proc string_length_line_min textblock {
-        tcl::mathfunc::min {*}[lmap v [split $textblock \n] {tcl::string::length $v}]
-    }
-
-    proc height {textblock} {
-        #This is the height as it will/would-be rendered - not the number of input lines purely in terms of le
-        #empty string still has height 1 (at least for left-right/right-left languages)
-
-        #vertical tab on a proper terminal should move directly down.
-        #Whether or not the terminal in use actually does this - we need to calculate as if it does. (there might not even be a terminal)
-
-        set num_le [expr {[tcl::string::length $textblock]-[tcl::string::length [tcl::string::map [list \n {} \v {}] $textblock]]}] ;#faster than splitting into single-char list
-        return [expr {$num_le + 1}] ;# one line if no le - 2 if there is one trailing le even if no data follows le
-    }
-    #MAINTENANCE - same as overtype::blocksize?
-    proc size {textblock} {
-        if {$textblock eq ""} {
-            return [tcl::dict::create width 0 height 1] ;#no such thing as zero-height block - for consistency with non-empty strings having no line-endings
-        }
-        #strangely - tcl::string::last (windows tcl8.7 anway) is faster than tcl::string::first for large strings when the needle not in the haystack
-        if {[tcl::string::last \t $textblock] >= 0} {
-            if {[tcl::info::exists punk::console::tabwidth]} {
-                set tw $::punk::console::tabwidth
-            } else {
-                set tw 8
-            }
-            set textblock [textutil::tabify::untabify2 $textblock $tw]
-        }
-        #ansistripraw on entire block in one go rather than line by line - result should be the same - review - make tests
-        if {[string length $textblock] > 1 && [punk::ansi::ta::detectcode $textblock]} {
-            set textblock [punk::ansi::ansistripraw $textblock]
-        }
-        if {[tcl::string::last \n $textblock] >= 0} {
-            #set width [tcl::mathfunc::max {*}[lmap v [punk::lib::lines_as_list -- $textblock] {::punk::char::ansifreestring_width $v}]]
-            set width [tcl::mathfunc::max {*}[lmap v [split $textblock \n] {::punk::char::ansifreestring_width $v}]]
-        } else {
-            set width [punk::char::ansifreestring_width $textblock]
-        }
-        set num_le [expr {[tcl::string::length $textblock]-[tcl::string::length [tcl::string::map [list \n {} \v {}] $textblock]]}] ;#faster than splitting into single-char list
-        #our concept of block-height is likely to be different to other line-counting mechanisms
-        set height [expr {$num_le + 1}] ;# one line if no le - 2 if there is one trailing le even if no data follows le
-
-        return [tcl::dict::create width $width height $height] ;#maintain order in 'image processing' standard width then height - caller may use lassign [tcl::dict::values [blocksize <data>]] width height
-    }
-    proc size2 {textblock} {
-        if {$textblock eq ""} {
-            return [tcl::dict::create width 0 height 1] ;#no such thing as zero-height block - for consistency with non-empty strings having no line-endings
-        }
-        #strangely - tcl::string::last (windows tcl8.7 anway) is faster than tcl::string::first for large strings when the needle not in the haystack
-        if {[tcl::string::last \t $textblock] >= 0} {
-            if {[tcl::info::exists punk::console::tabwidth]} {
-                set tw $::punk::console::tabwidth
-            } else {
-                set tw 8
-            }
-            set textblock [textutil::tabify::untabify2 $textblock $tw]
-        }
-        #ansistripraw on entire block in one go rather than line by line - result should be the same - review - make tests
-        if {[string length $textblock] > 1 && [punk::ansi::ta::detect $textblock]} {
-            set textblock [punk::ansi::ansistripraw $textblock]
-        }
-        if {[tcl::string::last \n $textblock] >= 0} {
-            #set width [tcl::mathfunc::max {*}[lmap v [punk::lib::lines_as_list -- $textblock] {::punk::char::ansifreestring_width $v}]]
-            set lines [split $textblock \n]
-            set num_le [expr {[llength $lines]-1}]
-            #set width [tcl::mathfunc::max {*}[lmap v $lines {::punk::char::ansifreestring_width $v}]]
-            set width 0
-            foreach ln $lines {
-                set w [::punk::char::ansifreestring_width $ln]
-                if {$w > $width} {
-                    set width $w
-                }
-            }
-        } else {
-            set num_le 0
-            set width [punk::char::ansifreestring_width $textblock]
-        }
-        #set num_le [expr {[tcl::string::length $textblock]-[tcl::string::length [tcl::string::map [list \n {} \v {}] $textblock]]}] ;#faster than splitting into single-char list
-        #our concept of block-height is likely to be different to other line-counting mechanisms
-        set height [expr {$num_le + 1}] ;# one line if no le - 2 if there is one trailing le even if no data follows le
-
-        return [tcl::dict::create width $width height $height] ;#maintain order in 'image processing' standard width then height - caller may use lassign [tcl::dict::values [blocksize <data>]] width height
-    }
-    proc size_as_opts {textblock} {
-        set sz [size $textblock]
-        return [dict create -width [dict get $sz width] -height [dict get $sz height]]
-    }
-    proc size_as_list {textblock} {
-        set sz [size $textblock]
-        return [list [dict get $sz width] [dict get $sz height]]
-    }
-    #must be able to handle block as string with or without newlines
-    #if no newlines - attempt to treat as a list
-    #must handle whitespace-only string,list elements, and/or lines.
-    #reviewing 2024 - this seems like too much magic!
-    proc width1 {block} {
-        if {$block eq ""} {
-            return 0
-        }
-        if {[tcl::info::exists punk::console::tabwidth]} {
-            set tw $::punk::console::tabwidth
-        } else {
-            set tw 8
-        }
-        set block [textutil::tabify::untabify2 $block $tw]
-        if {[tcl::string::last \n $block] >= 0} {
-            return [tcl::mathfunc::max {*}[lmap v [punk::lib::lines_as_list -- $block] {::punk::char::string_width [ansistrip $v]}]]
-        }
-        if {[catch {llength $block}]} {
-            return [::punk::char::string_width [ansistrip $block]]
-        }
-        if {[llength $block] == 0} {
-            #could be just a whitespace string
-            return [tcl::string::length $block]
-        }
-        return [tcl::mathfunc::max {*}[lmap v $block {::punk::char::string_width [ansistrip $v]}]]
-    }
-
-    #we shouldn't make textblock depend on the punk pipeline system
-    #pipealias ::textblock::padleft .= {list $input [tcl::string::repeat " " $indent]} |/0,padding/1> punk:lib::lines_as_list -- |> .= {lmap v $data {overtype::right $padding $v}} |> punk::lib::list_as_lines -- <input/0,indent/1|
-    #pipealias ::textblock::padright .= {list $input [tcl::string::repeat " " $colsize]} |/0,padding/1> punk::lib::lines_as_list -- |> .= {lmap v $data {overtype::left $padding $v}} |> punk::lib::list_as_lines -- <input/0,colsize/1|
-
-    proc ::textblock::pad {block args} {
-        set opts [tcl::dict::create\
-            -padchar " "\
-            -which  "right"\
-            -known_blockwidth ""\
-            -known_samewidth  ""\
-            -known_hasansi    ""\
-            -width  ""\
-            -overflow 0\
-            -within_ansi 0\
-            -return block\
-        ]
-        #known_samewidth of empty string means we don't know either way, 0 is definitely 'ragged', 1 is definitely homogenous
-
-        #review!?
-        #-within_ansi means after a leading ansi code when doing left pad on all but last line
-        #-within_ansi means before a trailing ansi code when doing right pad  on all but last line
-        foreach {k v} $args {
-            switch -- $k {
-                -padchar - -which - -known_hasansi - -known_samewidth - -known_blockwidth - -width - -overflow - -within_ansi - -return {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    set usage "pad block ?-padchar <sp>|<character>? ?-which right|left|centre? ?-known_hasansi \"\"|<bool>? ?-known_blockwidth \"\"|<int>? ?-width auto|<int>? ?-within_ansi 1|0? ?-return block|list?"
-                    error "textblock::pad unrecognised option '$k'. Usage: $usage"
-                }
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- ---
-        set padchar         [tcl::dict::get $opts -padchar]
-        #if padchar width (screen width) > 1 - length calculations will not be correct
-        #we will allow tokens longer than 1 - as the caller may want to post-process on the token whilst preserving previous leading/trailing spaces, e.g with a tcl::string::map
-        #The caller may also use ansi within the padchar - although it's unlikely to be efficient.
-        # -- --- --- --- --- --- --- --- --- ---
-        set known_whiches [list l left r right c center centre]
-        set opt_which           [tcl::string::tolower [tcl::dict::get $opts -which]]
-        switch -- $opt_which {
-            center - centre - c {
-                set which c
-            }
-            left - l {
-                set which l
-            }
-            right - r {
-                set which r
-            }
-            default {
-                error "textblock::pad unrecognised value for -which option. Known values $known_whiches"
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- ---
-        set opt_width           [tcl::dict::get $opts -width]
-        switch -- $opt_width {
-            "" - auto {
-                set width auto
-            }
-            default {
-                if {![tcl::string::is integer -strict $opt_width] || $opt_width < 0} {
-                    error "textblock::pad -width must be an integer >=0"
-                }
-                set width $opt_width
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- ---
-        set opt_withinansi     [tcl::dict::get $opts -within_ansi]
-        switch -- $opt_withinansi {
-            0 - 1 {}
-            default {
-                set opt_withinansi 2
-            }
-        }
-        # -- --- --- --- --- --- --- --- --- ---
-        set known_blockwidth    [tcl::dict::get $opts -known_blockwidth]
-        set known_samewidth     [tcl::dict::get $opts -known_samewidth] ;# if true - we have a known non-ragged block, if false - could be either.
-        set datawidth ""
-        if {$width eq "auto"} {
-            #for auto - we
-            if {$known_blockwidth eq ""} {
-                if {$known_samewidth ne "" && $known_samewidth} {
-                    set datawidth [textblock::widthtopline $block]
-                } else {
-                    #set datawidth [textblock::width $block]
-                    set widthinfo [textblock::widthinfo $block]
-                    set known_samewidth [expr {![dict get $widthinfo ragged]}] ;#review - a false value here is definite, distinguished from unknown which would be empty string - so we can take advantage of it
-                    set datawidth [dict get $widthinfo width]
-                }
-            } else {
-                set datawidth $known_blockwidth
-            }
-            set width $datawidth ;# this is the width we want to pad out to
-            #assert datawidth has been set to widest line, taking ansi & 2wide chars into account
-        } else {
-            #only call width functions if known_samewidth - otherwise let the pad algorithm below determine it as we go
-            if {$known_samewidth ne "" && $known_samewidth} {
-                if {$known_blockwidth eq ""} {
-                    set datawidth [textblock::widthtopline $block]
-                } else {
-                    set datawidth $known_blockwidth
-                }
-            }
-            #assert datawidth may still be empty string
-        }
-        #assertion
-        #we can now use the states of datawidth and known_samewidth to determine if algorithm below should calculate widths as it goes.
-
-        set lines [list]
-
-        set padcharsize [punk::ansi::printing_length $padchar]
-        set pad_has_ansi [punk::ansi::ta::detect $padchar]
-        if {$block eq ""} {
-            #we need to treat as a line
-            set repeats [expr {int(ceil($width / double($padcharsize)))}] ;#will overshoot by 1 whenever padcharsize not an exact divisor of width
-            #TODO
-            #review - what happens when padchar has ansi, or the width would split a double-wide unicode char?
-            #we shouldn't be using string range if there is ansi - (overtype? ansistring range?)
-            #we should use overtype with suitable replacement char (space?) for chopped double-wides
-            if {!$pad_has_ansi} {
-                return [tcl::string::range [tcl::string::repeat $padchar $repeats] 0 $width-1]
-            } else {
-                set base [tcl::string::repeat " " $width]
-                return [overtype::block -blockalign left -overflow 0 $base [tcl::string::repeat $padchar $repeats]]
-            }
-        }
-
-        #review - tcl format can only pad with zeros or spaces?
-        #experimental fallback to supposedly faster simpler 'format' but we still need to compensate for double-width or non-printing chars - and it won't work on strings with ansi SGR codes
-        #review - surprisingly, this doesn't seem to be a performance win
-        #No detectable diff on small blocks - slightly worse on large blocks
-        #    if {($padchar eq " " || $padchar eq "0") && ![punk::ansi::ta::detect $block]} {
-        #        #This will still be wrong for example with diacritics on terminals that don't collapse the space following a diacritic, and don't correctly report cursor position
-        #        #(i.e as at 2024 - lots of them) wezterm on windows at least does the right thing.
-        #        set block [tcl::string::map [list \r\n \n] $block]
-        #        if {$which eq "l"} {
-        #            set fmt "%+${padchar}*s"
-        #        } else {
-        #            set fmt "%-${padchar}*s"
-        #        }
-        #        foreach ln [split $block \n] {
-        #            #set lnwidth [punk::char::ansifreestring_width $ln]
-        #            set lnwidth [punk::char::grapheme_width_cached $ln]
-        #            set lnlen [tcl::string::length $ln]
-        #            set diff [expr $lnwidth - $lnlen]
-        #            #we need trickwidth to get format to pad a string with a different terminal width compared to string length
-        #            set trickwidth [expr {$width - $diff}] ;#may 'subtract' a positive or negative int (ie will add to trickwidth if negative)
-        #            lappend lines [format $fmt $trickwidth $ln]
-        #        }
-        #        return [::join $lines \n]
-        #    }
-
-        #todo? special case trailing double-reset - insert between resets?
-        set lnum 0
-
-        set known_hasansi [tcl::dict::get $opts -known_hasansi]
-        if {$known_hasansi eq ""} {
-            set block_has_ansi [punk::ansi::ta::detectcode $block]
-        } else {
-            set block_has_ansi $known_hasansi
-        }
-        if {$block_has_ansi} {
-            set parts [punk::ansi::ta::split_codes $block]
-        } else {
-            #single plaintext part
-            set parts [list $block]
-        }
-
-        set line_chunks [list]
-        set line_len 0
-        set pad_cache [dict create] ;#key on value of 'missing' - which is width of required pad
-        foreach {pt ansi} $parts {
-            if {$pt eq ""} {
-                #we need to store empties in order to insert text in the correct position relative to leading/trailing ansi codes
-                lappend line_chunks ""
-            } elseif {[tcl::string::last \n $pt]==-1} {
-                lappend line_chunks $pt
-                if {$known_samewidth eq "" || ($known_samewidth ne "" && !$known_samewidth) || $datawidth eq ""} {
-                    incr line_len [punk::char::grapheme_width_cached $pt] ;#memleak - REVIEW
-                }
-            } else {
-                #set has_nl [expr {[tcl::string::last \n $pt]>=0}]
-                #if {$has_nl} {
-                    set pt [tcl::string::map [list \r\n \n] $pt]
-                    set partlines [split $pt \n]
-                #} else {
-                #    set partlines [list $pt]
-                #}
-                #set last [expr {[llength $partlines]-1}]
-                #set p -1
-                foreach pl [lrange $partlines 0 end-1] {
-                    #incr p
-                    lappend line_chunks $pl ;#we need to lappend because there can already be some pt and ansi entries for the current line from previous {pt ansi} values where pt had no newline.
-                    #incr line_len [punk::char::ansifreestring_width $pl]
-                    #if {$known_samewidth eq "" || ($known_samewidth ne "" && !$known_samewidth) || $datawidth eq ""} {
-                    #    incr line_len [punk::char::grapheme_width_cached $pl] ;#memleak - REVIEW
-                    #}
-                    #do padding
-                    if {$known_samewidth eq "" || ($known_samewidth ne "" && !$known_samewidth) || $datawidth eq ""} {
-                        incr line_len [punk::char::grapheme_width_cached $pl] ;#memleak - REVIEW
-                        set missing [expr {$width - $line_len}]
-                    } else {
-                        set missing [expr {$width - $datawidth}]
-                    }
-                    if {$missing > 0} {
-                        #commonly in a block - many lines will have the same pad - cache based on missing
-
-                        #padchar may be more than 1 wide - because of 2wide unicode and or multiple chars
-                        if {[tcl::dict::exists $pad_cache $missing]} {
-                            set pad [tcl::dict::get $pad_cache $missing]
-                        } else {
-                            set repeats [expr {int(ceil($missing / double($padcharsize)))}] ;#will overshoot by 1 whenever padcharsize not an exact divisor of width
-                            if {!$pad_has_ansi} {
-                                set pad [tcl::string::range [tcl::string::repeat $padchar $repeats] 0 $missing-1]
-                            } else {
-                                set base [tcl::string::repeat " " $missing]
-                                set pad [overtype::block -blockalign left -overflow 0 $base [tcl::string::repeat $padchar $repeats]]
-                            }
-                            dict set pad_cache $missing $pad
-                        }
-                        switch -- $which-$opt_withinansi {
-                            r-0 {
-                                lappend line_chunks $pad
-                            }
-                            r-1 {
-                                if {[lindex $line_chunks end] eq ""} {
-                                    set line_chunks [linsert $line_chunks end-2 $pad]
-                                } else {
-                                    lappend line_chunks $pad
-                                }
-                            }
-                            r-2 {
-                                lappend line_chunks $pad
-                            }
-                            l-0 {
-                               set line_chunks [linsert $line_chunks 0 $pad]
-                            }
-                            l-1 {
-                                if {[lindex $line_chunks 0] eq ""} {
-                                    set line_chunks [linsert $line_chunks 2 $pad]
-                                } else {
-                                    set line_chunks [linsert $line_chunks 0 $pad]
-                                }
-                            }
-                            l-2 {
-                                if {$lnum == 0} {
-                                    if {[lindex $line_chunks 0] eq ""} {
-                                        set line_chunks [linsert $line_chunks 2 $pad]
-                                    } else {
-                                        set line_chunks [linsert $line_chunks 0 $pad]
-                                    }
-                                } else {
-                                    set line_chunks [linsert $line_chunks 0 $pad]
-                                }
-                            }
-                        }
-                    }
-                    lappend lines [::join $line_chunks ""]
-                    set line_chunks [list]
-                    set line_len 0
-                    incr lnum
-                }
-                #deal with last part zzz of xxx\nyyy\nzzz - not yet a complete line
-                set pl [lindex $partlines end]
-                lappend line_chunks $pl ;#we need to lappend because there can already be some pt and ansi entries for the current line from previous {pt ansi} values where pt had no newline.
-                if {$pl ne "" && ($known_samewidth eq "" || ($known_samewidth ne "" && !$known_samewidth) || $datawidth eq "")} {
-                    incr line_len [punk::char::grapheme_width_cached $pl] ;#memleak - REVIEW
-                }
-
-            }
-            #don't let trailing empty ansi affect the line_chunks length
-            if {$ansi ne ""} {
-                lappend line_chunks $ansi ;#don't update line_len
-                #- review - ansi codes with visible content?
-                #- There shouldn't be any, even though for example some terminals display PM content
-                #e.g OSC 8 is ok as it has the uri 'inside' the ansi sequence, but that's ok because the displayable part is outside and is one of our pt values from split_codes.
-            }
-        }
-        #pad last line
-        if {$known_samewidth eq "" || ($known_samewidth ne "" && !$known_samewidth) || $datawidth eq ""} {
-            set missing [expr {$width - $line_len}]
-        } else {
-            set missing [expr {$width - $datawidth}]
-        }
-        if {$missing > 0} {
-            if {[tcl::dict::exists $pad_cache $missing]} {
-                set pad [tcl::dict::get $pad_cache $missing]
-            } else {
-                set repeats [expr {int(ceil($missing / double($padcharsize)))}] ;#will overshoot by 1 whenever padcharsize not an exact divisor of width
-                if {!$pad_has_ansi} {
-                    set pad [tcl::string::range [tcl::string::repeat $padchar $repeats] 0 $missing-1]
-                } else {
-                    set base [tcl::string::repeat " " $missing]
-                    set pad [overtype::block -blockalign left -overflow 0 $base [tcl::string::repeat $padchar $repeats]]
-                }
-            }
-            #set pad [tcl::string::repeat $padchar $missing]
-            switch -- $which-$opt_withinansi {
-                r-0 {
-                   lappend line_chunks $pad
-                }
-                r-1 {
-                    if {[lindex $line_chunks end] eq ""} {
-                        set line_chunks [linsert $line_chunks end-2 $pad]
-                    } else {
-                        lappend line_chunks $pad
-                    }
-                }
-                r-2 {
-                    if {[lindex $line_chunks end] eq ""} {
-                        set line_chunks [linsert $line_chunks end-2 $pad]
-                    } else {
-                        lappend line_chunks $pad
-                    }
-                    #lappend line_chunks $pad
-                }
-                l-0 {
-                    #if {[lindex $line_chunks 0] eq ""} {
-                    #    set line_chunks [linsert $line_chunks 2 $pad]
-                    #} else {
-                    #    set line_chunks [linsert $line_chunks 0 $pad]
-                    #}
-                    set line_chunks [linsert $line_chunks 0 $pad]
-                }
-                l-1 {
-                    #set line_chunks [linsert $line_chunks 0 $pad]
-                    set line_chunks [_insert_before_text_or_last_ansi $pad $line_chunks]
-                }
-                l-2 {
-                    set line_chunks [linsert $line_chunks 0 $pad]
-                }
-            }
-        }
-        lappend lines [::join $line_chunks ""]
-        if {[tcl::dict::get $opts -return] eq "block"} {
-            return [::join $lines \n]
-        } else {
-            return $lines
-        }
-    }
-
-    #left insertion into a list resulting from punk::ansi::ta::split_codes or split_codes_single
-    #resulting list is no longer a valid ansisplit list
-    proc _insert_before_text_or_last_ansi {str ansisplits} {
-        if {[llength $ansisplits] == 1} {
-            #ansisplits was a split on plaintext only
-            return [list $str [lindex $ansisplits 0]]
-        } elseif {[llength $ansisplits] == 0} {
-            return [list $str]
-        }
-        if {[llength $ansisplits] %2 != 1} {
-            error "_insert_before_text_or_last_ansi ansisplits list is not a valid resultlist from an ansi split - must be odd number of elements pt,ansi,pt,ansi...pt"
-        }
-        set out [list]
-        set i 0
-        set i_last_code [expr {[llength $ansisplits]-3}] ;#would normally be -2 - but our i is jumping to each pt - not every element
-        foreach {pt code} $ansisplits {
-            if {$pt ne ""} {
-                return [lappend out $str {*}[lrange $ansisplits $i end]]
-            }
-            if {$i == $i_last_code} {
-                return [lappend out $str {*}[lrange $ansisplits $i end]]
-            }
-            #code being empty can only occur when we have reached last pt
-            #we have returned by then.
-            lappend out $code
-            incr i 2
-        }
-        error "_insert_before_text_or_last_ansi failed on input str:[ansistring VIEW $str] ansisplits:[ansistring VIEW $ansisplits]"
-    }
-    proc pad_test {block} {
-        set width [textblock::width $block]
-        set padtowidth [expr {$width + 10}]
-        set left0   [textblock::pad $block   -known_blockwidth $width -width $padtowidth -padchar . -which left -within_ansi 0]
-        set left1   [textblock::pad $block   -known_blockwidth $width -width $padtowidth -padchar . -which left -within_ansi 1]
-        set left2   [textblock::pad $block   -known_blockwidth $width -width $padtowidth -padchar . -which left -within_ansi 2]
-        set right0  [textblock::pad $block   -known_blockwidth $width -width $padtowidth -padchar . -which right -within_ansi 0]
-        set right1  [textblock::pad $block   -known_blockwidth $width -width $padtowidth -padchar . -which right -within_ansi 1]
-        set right2  [textblock::pad $block   -known_blockwidth $width -width $padtowidth -padchar . -which right -within_ansi 2]
-
-        set testlist [list "within_ansi 0" $left0 $right0 "within_ansi 1" $left1 $right1 "within_ansi 2" $left2 $right2]
-
-        set t [textblock::list_as_table -columns 3 -return tableobject $testlist]
-        $t configure_column 0 -headers [list "ansi"]
-        $t configure_column 1 -headers [list "Left"]
-        $t configure_column 2 -headers [list "Right"]
-        $t configure -show_header 1
-        puts stdout [$t print]
-        return $t
-    }
-
-    proc pad_test_blocklist {blocklist args} {
-        set opts [tcl::dict::create\
-            -description ""\
-            -blockheaders ""\
-        ]
-        foreach {k v} $args {
-            switch -- $k {
-                -description - -blockheaders {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "pad_test_blocklist unrecognised option '$k'. Known options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        set opt_blockheaders [tcl::dict::get $opts -blockheaders]
-        set bheaders [tcl::dict::create]
-        if {$opt_blockheaders ne ""} {
-            set b 0
-            foreach h $opt_blockheaders {
-                if {$b < [llength $blocklist]} {
-                    tcl::dict::set bheaders $b $h
-                }
-                incr b
-            }
-        }
-
-        set b 0
-        set blockinfo [tcl::dict::create]
-        foreach block $blocklist {
-            set width [textblock::width $block]
-            tcl::dict::set blockinfo $b width $width
-            set padtowidth [expr {$width + 3}]
-            tcl::dict::set blockinfo $b left0 [textblock::pad $block -width $padtowidth -padchar . -which left -within_ansi 0]
-            tcl::dict::set blockinfo $b left1 [textblock::pad $block -width $padtowidth -padchar . -which left -within_ansi 1]
-            tcl::dict::set blockinfo $b left2 [textblock::pad $block -width $padtowidth -padchar . -which left -within_ansi 2]
-            tcl::dict::set blockinfo $b right0 [textblock::pad $block -width $padtowidth -padchar . -which right -within_ansi 0]
-            tcl::dict::set blockinfo $b right1 [textblock::pad $block -width $padtowidth -padchar . -which right -within_ansi 1]
-            tcl::dict::set blockinfo $b right2 [textblock::pad $block -width $padtowidth -padchar . -which right -within_ansi 2]
-            incr b
-        }
-
-        set r0 [list "0"]
-        set r1 [list "1"]
-        set r2 [list "2"]
-        set r3 [list "column\ncolours"]
-
-        #1
-        #test without table padding
-        #we need to textblock::join each item to ensure we don't get the table's own textblock::pad interfering
-        #(basically a mechanism to add extra resets at start and end of each line)
-        #dict for {b bdict} $blockinfo {
-        #    lappend r0 [textblock::join [tcl::dict::get $blockinfo $b left0]] [textblock::join [tcl::dict::get $blockinfo $b right0]]
-        #    lappend r1 [textblock::join [tcl::dict::get $blockinfo $b left1]] [textblock::join [tcl::dict::get $blockinfo $b right1]]
-        #    lappend r2 [textblock::join [tcl::dict::get $blockinfo $b left2]] [textblock::join [tcl::dict::get $blockinfo $b right2]]
-        #}
-
-        #2 - the more useful one?
-        tcl::dict::for {b bdict} $blockinfo {
-            lappend r0 [tcl::dict::get $blockinfo $b left0] [tcl::dict::get $blockinfo $b right0]
-            lappend r1 [tcl::dict::get $blockinfo $b left1] [tcl::dict::get $blockinfo $b right1]
-            lappend r2 [tcl::dict::get $blockinfo $b left2] [tcl::dict::get $blockinfo $b right2]
-            lappend r3 "" ""
-        }
-
-        set rows [concat $r0 $r1 $r2 $r3]
-
-        set column_ansi [a+ web-white Web-Gray]
-
-        set t [textblock::list_as_table -columns [expr {1 + (2 * [tcl::dict::size $blockinfo])}] -return tableobject $rows]
-        $t configure_column 0 -headers [list [tcl::dict::get $opts -description] "within_ansi"] -ansibase $column_ansi
-        set col 1
-        tcl::dict::for {b bdict} $blockinfo {
-            if {[tcl::dict::exists $bheaders $b]} {
-                set hdr [tcl::dict::get $bheaders $b]
-            } else {
-                set hdr "Block $b"
-            }
-            $t configure_column $col -headers [list $hdr "Left"] -minwidth [expr {$padtowidth + 2}]
-            $t configure_column $col -header_colspans 2 -ansibase $column_ansi
-            incr col
-            $t configure_column $col -headers [list "-" "Right"] -minwidth [expr {$padtowidth + 2}] -ansibase $column_ansi
-            incr col
-        }
-        $t configure -show_header 1
-        puts stdout [$t print]
-        return $t
-    }
-    proc pad_example {} {
-        set headers [list]
-        set blocks [list]
-
-        lappend blocks "[textblock::testblock 4 rainbow]"
-        lappend headers "rainbow 4x4\nresets at line extremes\nnothing trailing"
-
-        lappend blocks "[textblock::testblock 4 rainbow][a]"
-        lappend headers "rainbow 4x4\nresets at line extremes\ntrailing reset"
-
-        lappend blocks "[textblock::testblock 4 rainbow]\n[a+ Web-Green]"
-        lappend headers "rainbow 4x4\nresets at line extremes\ntrailing nl&green bg"
-
-        lappend blocks "[textblock::testblock 4 {rainbow noreset}]"
-        lappend headers "rainbow 4x4\nno line resets\nnothing trailing"
-
-        lappend blocks "[textblock::testblock 4 {rainbow noreset}][a]"
-        lappend headers "rainbow 4x4\nno line resets\ntrailing reset"
-
-        lappend blocks "[textblock::testblock 4 {rainbow noreset}]\n[a+ Web-Green]"
-        lappend headers "rainbow 4x4\nno line resets\ntrailing nl&green bg"
-
-        set t [textblock::pad_test_blocklist $blocks -description "trailing\nbg/reset\ntests" -blockheaders $headers]
-    }
-    proc pad_example2 {} {
-        set headers [list]
-        set blocks  [list]
-        lappend blocks "[a+ web-red Web-steelblue][textblock::block 4 4 x]\n"
-        lappend headers "red on blue 4x4\nno inner resets\ntrailing nl"
-
-        lappend blocks "[a+ web-red Web-steelblue][textblock::block 4 4 x]\n[a]"
-        lappend headers "red on blue 4x4\nno inner resets\ntrailing nl&reset"
-
-        lappend blocks "[a+ web-red Web-steelblue][textblock::block 4 4 x]\n[a+ Web-Green]"
-        lappend headers "red on blue 4x4\nno inner resets\ntrailing nl&green bg"
-
-        set t [textblock::pad_test_blocklist $blocks -description "trailing\nbg/reset\ntests" -blockheaders $headers]
-    }
-
-
-    #playing with syntax
-
-   # pipealias ::textblock::join_width .= {list $lhs [tcl::string::repeat " " $w1] $rhs [tcl::string::repeat " " $w2]} {|
-   #             /2,col1/1,col2/3
-   #             >} punk::lib::lines_as_list -- {|
-   #             data2
-   #             >} .=lhs> punk::lib::lines_as_list -- {|
-   #             >} .= {lmap v $data w $data2 {val "[overtype::left $col1 $v][overtype::left $col2 $w]"}} {|
-   #             >} punk::lib::list_as_lines -- <lhs/0,w1/1,rhs/2,w2/3|
-   #
-
-   # pipealias ::textblock::joinpair .= {list $lhs [tcl::string::repeat " " [width $lhs]] $rhs [tcl::string::repeat " " [width $rhs]]} {|
-   #             /2,col1/1,col2/3
-   #             >} .=> punk::lib::lines_as_list -- {|
-   #             data2
-   #             >} .=lhs> punk::lib::lines_as_list -- {|
-   #             >} .= {lmap v $data w $data2 {val "[overtype::left $col1 $v][overtype::left $col2 $w]"}} {|
-   #             >} punk::lib::list_as_lines -- <lhs/0,rhs/1|
-
-
-    proc ::textblock::join1 {args} {
-        lassign [punk::args::parse $args withdef {
-            @id -id ::textblock::join1
-            -ansiresets -default 1 -type integer
-            blocks -type string -multiple 1
-        }] _l leaders _o opts _v values
-        set blocks [tcl::dict::get $values blocks]
-
-        set idx 0
-        set fordata [list]
-        foreach b $blocks {
-            set c($idx) [tcl::string::repeat " " [width $b]]
-            lappend fordata "v($idx)" [punk::lib::lines_as_list {*}$opts -- $b]
-            incr idx
-        }
-        set outlines [list]
-        foreach {*}$fordata {
-            set row ""
-            foreach colidx [lsort -integer -increasing [array names c]] {
-                append row [overtype::left $c($colidx) $v($colidx)]
-            }
-            lappend outlines $row
-        }
-        return [punk::lib::list_as_lines -- $outlines]
-    }
-
-
-    punk::args::define {
-        @id         -id ::textblock::join_basic
-        @cmd -name textblock::join_basic -help\
-            "Join blocks of text line by line but don't add padding on each line to enforce uniform width.
-            Already uniform blocks will join faster than textblock::join, and ragged blocks will join in a ragged manner
-            "
-        -ansiresets -type any -default auto
-        --          -type none -optional 0 -help "end of options marker -- is mandatory because joined blocks may easily conflict with flags"
-        blocks      -type any -multiple 1
-    }
-
-    #join without regard to each line length in a block (no padding added to make each block uniform)
-    proc ::textblock::join_basic {args} {
-        set argd [punk::args::parse $args withid ::textblock::join_basic]
-        set ansiresets  [tcl::dict::get $argd opts -ansiresets]
-        set blocks      [tcl::dict::get $argd values blocks]
-
-        #-ansireplays is always on (if ansi detected)
-
-        # -- is a legimate block
-        #this makes for a somewhat messy api.. -- is required if first block is actually -- (or the very unlikely case the first block is intended to be -ansiresets)
-
-        if {![llength $blocks]} {
-            return
-        }
-        set rowcount 0
-        set blocklists [list]
-        foreach b $blocks {
-            if {[punk::ansi::ta::detectcode $b]} {
-                #-ansireplays 1 quite expensive e.g 7ms in 2024
-                set bl [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b]
-            } else {
-                set bl [split $b \n]
-            }
-            if {[llength $bl] > $rowcount} {
-                set rowcount [llength $bl]
-            }
-            lappend blocklists $bl
-        }
-        set outlines [list]
-        for {set r 0} {$r < $rowcount} {incr r} {
-            set row ""
-            for {set c 0} {$c < [llength $blocks]} {incr c} {
-                append row [lindex $blocklists $c $r]
-            }
-            lappend outlines $row
-        }
-        return [::join $outlines \n]
-    }
-    proc ::textblock::join_basic_raw {args} {
-        #no options. -*, -- are legimate blocks
-        set blocklists      [lrepeat [llength $args] ""]
-        set blocklengths    [lrepeat [expr {[llength $args]+1}] 0] ;#add 1 to ensure never empty - used only for rowcount max calc
-        set i -1
-        foreach b $args {
-            incr i
-            if {[punk::ansi::ta::detectcode $b]} {
-                #-ansireplays 1 quite expensive e.g 7ms in 2024
-                set blines [punk::lib::lines_as_list -ansireplays 1 -ansiresets auto -- $b]
-            } else {
-                set blines [split $b \n]
-            }
-            lset blocklengths $i [llength $blines]
-            lset blocklists   $i $blines
-        }
-        set rowcount [tcl::mathfunc::max {*}$blocklengths]
-        set outlines [lrepeat $rowcount ""]
-        for {set r 0} {$r < $rowcount} {incr r} {
-            set row ""
-            foreach blines $blocklists {
-                append row [lindex $blines $r]
-            }
-            lset outlines $r $row
-        }
-        return [::join $outlines \n]
-    }
-    proc ::textblock::join_basic2 {args} {
-            #@cmd -name textblock::join_basic -help "Join blocks line by line but don't add padding on each line to enforce uniform width.
-            #    Already uniform blocks will join faster than textblock::join, and ragged blocks will join in a ragged manner
-            #"
-        set argd [punk::args::parse $args withdef {
-            @id -id ::textblock::join_basic2
-            --          -type none -optional 0 -help "end of options marker -- is mandatory because joined blocks may easily conflict with flags"
-            -ansiresets -type any -default auto
-            blocks      -type any -multiple 1
-        }]
-        set ansiresets  [tcl::dict::get $argd opts -ansiresets]
-        set blocks      [tcl::dict::get $argd values blocks]
-
-        #-ansireplays is always on (if ansi detected)
-
-        # -- is a legimate block
-        #this makes for a somewhat messy api.. -- is required if first block is actually -- (or the very unlikely case the first block is intended to be -ansiresets)
-
-        if {![llength $blocks]} {
-            return
-        }
-        set idx 0
-        set fordata [list]
-        set colindices [list]
-        foreach b $blocks {
-            if {[punk::ansi::ta::detect $b]} {
-                lappend fordata "v($idx)" [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b]
-            } else {
-                lappend fordata "v($idx)" [split $b \n]
-            }
-            lappend colindices $idx
-            incr idx
-        }
-        set outlines [list]
-        foreach {*}$fordata {
-            set row {}
-            foreach colidx $colindices {
-                lappend row $v($colidx)
-            }
-            lappend outlines [::join $row ""]
-        }
-        return [::join $outlines \n]
-    }
-    #for joining 'rendered' blocks of plain or ansi text. Being 'rendered' means they are without ansi movement sequences as these have been processed
-    #they may however still be 'ragged' ie differing line lengths
-    proc ::textblock::join {args} {
-        #-ansireplays is always on (if ansi detected)
-
-        #we will support -- at posn 0 and 2 only to allow an optional single option pair for -ansiresets
-        #textblock::join is already somewhat expensive - we don't want to do much argument processing
-        #also "--" is a legitimate joining block - so we need to support that too without too much risk of misinterpretation
-        #this makes for a somewhat messy api.. -- is required if first block is actually -- (or the very unlikely case the first block is intended to be -ansiresets)
-        set ansiresets auto
-        switch -- [lindex $args 0] {
-            -- {
-                set blocks [lrange $args 1 end]
-            }
-            -ansiresets {
-                if {[lindex $args 2] eq "--"} {
-                    set blocks [lrange $args 3 end]
-                    set ansiresets [lindex $args 1]
-                } else {
-                    error "end of opts marker -- is mandatory."
-                }
-            }
-            default {
-                if {[catch {tcl::prefix::match {-ansiresets} [lindex $args 0]} fullopt]} {
-                    error "first flag must be -ansiresets or end of opts marker --"
-                } else {
-                    if {[lindex $args 2] eq "--"} {
-                        set blocks [lrange $args 3 end]
-                        set ansiresets [lindex $args 1]
-                    } else {
-                        error "end of opts marker -- is mandatory"
-                    }
-                }
-            }
-        }
-
-        if {![llength $blocks]} {
-            return
-        }
-
-        set idx 0
-        #set blocklists [list]
-        set blocklists [lrepeat [llength $blocks] ""]
-        set rowcount 0
-        set bidx -1
-        foreach b $blocks {
-            incr bidx
-            #we need the width of a rendered block for per-row renderline calls or padding
-            #we may as well use widthinfo to also determine raggedness state to pass on to pad function
-            #set bwidth [width $b]
-            set widthinfo [widthinfo $b]
-            set bwidth [dict get $widthinfo width]
-            set is_samewidth [expr {![dict get $widthinfo ragged]}]
-
-            #set c($idx) [tcl::string::repeat " " [set w($idx)]]
-            #fairly commonly a block may be a vertical list of chars e.g something like 1\n2\n3  or -\n-\n-\n-
-            #for determining a shortcut to avoid unnecessary ta::detect - (e.g width <=1) we can't use result of textblock::width as it strips ansi.
-            #testing of any decent size block line by line - even with max_string_length_line is slower than ta::detect anyway.
-
-            #blocks passed to join can be ragged - so we can't pass -known_samewidth to pad
-            if {[punk::ansi::ta::detectcode $b]} {
-                # - we need to join to use pad - even though we then need to immediately resplit REVIEW (make line list version of pad?)
-                set replay_block [::join [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b] \n]
-                #set blines [split [textblock::pad $replay_block -known_hasansi 1 -known_samewidth $is_samewidth -known_blockwidth $bwidth -width $bwidth -which right -padchar " "] \n]
-                set blines [textblock::pad $replay_block -return lines -known_hasansi 1 -known_samewidth $is_samewidth -known_blockwidth $bwidth -width $bwidth -which right -padchar " "]
-            } else {
-                #each block is being rendered into its own empty column - we don't need resets if it has no ansi, even if blocks to left and right do have ansi
-                #set blines [split [textblock::pad $b            -known_hasansi 0 -known_samewidth $is_samewidth -known_blockwidth $bwidth -width $bwidth -which right -padchar " "] \n]
-                set blines [textblock::pad $b            -return lines -known_hasansi 0 -known_samewidth $is_samewidth -known_blockwidth $bwidth -width $bwidth -which right -padchar " "]
-            }
-            set rowcount [expr {max($rowcount,[llength $blines])}]
-            #lappend blocklists $bl
-            lset blocklists $bidx $blines
-            set width($idx) $bwidth
-            incr idx
-        }
-
-        set outlines [lrepeat $rowcount ""]
-        for {set r 0} {$r < $rowcount} {incr r} {
-            set row ""
-            for {set c 0} {$c < [llength $blocklists]} {incr c} {
-                set cell [lindex $blocklists $c $r]
-                if {$cell eq ""} {
-                    set cell [string repeat " " $width($c)]
-                }
-                append row $cell
-            }
-            #lappend outlines $row
-            lset outlines $r $row
-        }
-        return [::join $outlines \n]
-    }
-
-    proc ::textblock::join2 {args} {
-
-        #-ansireplays is always on (if ansi detected)
-
-        #we will support -- at posn 0 and 2 only to allow an optional single option pair for -ansiresets
-        #textblock::join is already somewhat expensive - we don't want to do much argument processing
-        #also "--" is a legitimate joining block - so we need to support that too without too much risk of misinterpretation
-        #this makes for a somewhat messy api.. -- is required if first block is actually -- (or the very unlikely case the first block is intended to be -ansiresets)
-        set ansiresets auto
-        switch -- [lindex $args 0] {
-            -- {
-                set blocks [lrange $args 1 end]
-            }
-            -ansiresets {
-                if {[lindex $args 2] eq "--"} {
-                    set blocks [lrange $args 3 end]
-                    set ansiresets [lindex $args 1]
-                } else {
-                    error "end of opts marker -- is mandatory."
-                }
-            }
-            default {
-                if {[catch {tcl::prefix::match {-ansiresets} [lindex $args 0]} fullopt]} {
-                    error "first flag must be -ansiresets or end of opts marker --"
-                } else {
-                    if {[lindex $args 2] eq "--"} {
-                        set blocks [lrange $args 3 end]
-                        set ansiresets [lindex $args 1]
-                    } else {
-                        error "end of opts marker -- is mandatory"
-                    }
-                }
-            }
-        }
-
-        if {![llength $blocks]} {
-            return
-        }
-
-        set idx 0
-        set fordata [list]
-        set colindices [list]
-        foreach b $blocks {
-            set w($idx) [width $b] ;#we need the width of a rendered block for per-row renderline calls or padding
-            #set c($idx) [tcl::string::repeat " " [set w($idx)]]
-            #fairly commonly a block may be a vertical list of chars e.g something like 1\n2\n3  or -\n-\n-\n-
-            #for determining a shortcut to avoid unnecessary ta::detect - (e.g width <=1) we can't use result of textblock::width as it strips ansi.
-            #testing of any decent size block line by line - even with max_string_length_line is slower than ta::detect anyway.
-            if {[punk::ansi::ta::detect $b]} {
-                #lappend fordata "v($idx)" [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b]
-
-                # - we need to join to use pad - even though we then need to immediately resplit REVIEW (make line list version of pad?)
-                set replay_block [::join [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b] \n]
-                lappend fordata "v($idx)" [split [textblock::pad $replay_block -known_hasansi 1 -known_blockwidth $w($idx) -width $w($idx) -which right -padchar " "] \n]
-            } else {
-                #each block is being rendered into its own empty column - we don't need resets if it has no ansi, even if blocks to left and right do have ansi
-                #lappend fordata "v($idx)" [split $b \n]
-                lappend fordata "v($idx)" [split [textblock::pad $b -known_hasansi 0 -known_blockwidth $w($idx) -width $w($idx) -which right -padchar " "] \n]
-            }
-            lappend colindices $idx
-            incr idx
-        }
-
-
-
-
-        set outlines [list]
-        #set colindices [lsort -integer -increasing [array names c]]
-        foreach {*}$fordata {
-            set row ""
-            foreach colidx $colindices {
-                #we know we have a single line, no ansi in underlay and no overflow required - so we can use renderline directly
-                #append row [overtype::renderline -width $w($colidx) -insert_mode 0 -info 0 $c($colidx) $v($colidx)]
-                #append row [textblock::pad $v($colidx) -width $w($colidx) -which right -padchar " "]
-
-                #short blocks need to have empty lines padded too
-                if {$v($colidx) eq ""} {
-                    append row [string repeat " " $w($colidx)]
-                } else {
-                    append row $v($colidx)
-                }
-            }
-            lappend outlines $row
-        }
-        return [::join $outlines \n]
-    }
-    # This calls textblock::pad per cell :/
-    proc ::textblock::join3 {args} {
-
-        #-ansireplays is always on (if ansi detected)
-
-        #we will support -- at posn 0 and 2 only to allow an optional single option pair for -ansiresets
-        #textblock::join is already somewhat expensive - we don't want to do much argument processing
-        #also "--" is a legitimate joining block - so we need to support that too without too much risk of misinterpretation
-        #this makes for a somewhat messy api.. -- is required if first block is actually -- (or the very unlikely case the first block is intended to be -ansiresets)
-        set ansiresets auto
-        switch -- [lindex $args 0] {
-            -- {
-                set blocks [lrange $args 1 end]
-            }
-            -ansiresets {
-                if {[lindex $args 2] eq "--"} {
-                    set blocks [lrange $args 3 end]
-                    set ansiresets [lindex $args 1]
-                } else {
-                    error "end of opts marker -- is mandatory."
-                }
-            }
-            default {
-                if {[catch {tcl::prefix::match {-ansiresets} [lindex $args 0]} fullopt]} {
-                    error "first flag must be -ansiresets or end of opts marker --"
-                } else {
-                    if {[lindex $args 2] eq "--"} {
-                        set blocks [lrange $args 3 end]
-                        set ansiresets [lindex $args 1]
-                    } else {
-                        error "end of opts marker -- is mandatory"
-                    }
-                }
-            }
-        }
-
-        if {![llength $blocks]} {
-            return
-        }
-
-        set idx 0
-        set fordata [list]
-        set colindices [list]
-        foreach b $blocks {
-            set w($idx) [width $b] ;#we need the width of a rendered block for per-row renderline calls or padding
-            #set c($idx) [tcl::string::repeat " " [set w($idx)]]
-            #fairly commonly a block may be a vertical list of chars e.g something like 1\n2\n3  or -\n-\n-\n-
-            #for determining a shortcut to avoid unnecessary ta::detect - (e.g width <=1) we can't use result of textblock::width as it strips ansi.
-            #testing of any decent size block line by line - even with max_string_length_line is slower than ta::detect anyway.
-            if {[punk::ansi::ta::detect $b]} {
-                lappend fordata "v($idx)" [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b]
-            } else {
-                #each block is being rendered into its own empty column - we don't need resets if it has no ansi, even if blocks to left and right do have ansi
-                lappend fordata "v($idx)" [split $b \n]
-            }
-            lappend colindices $idx
-            incr idx
-        }
-        set outlines [list]
-        #set colindices [lsort -integer -increasing [array names c]]
-        foreach {*}$fordata {
-            set row ""
-            foreach colidx $colindices {
-                #we know we have a single line, no ansi in underlay and no overflow required - so we can use renderline directly
-                #append row [overtype::renderline -width $w($colidx) -insert_mode 0 -info 0 $c($colidx) $v($colidx)]
-                append row [textblock::pad $v($colidx) -width $w($colidx) -which right -padchar " "]
-            }
-            lappend outlines $row
-        }
-        #puts stderr "--->outlines len: [llength $outlines]"
-        return [::join $outlines \n]
-    }
-
-    proc ::textblock::trim {block} {
-        error "textblock::trim unimplemented"
-        set trimlines ""
-    }
-
-    #pipealias ::textblock::join_right .= {list $lhs [tcl::string::repeat " " [width $lhs]] $rhs [tcl::string::repeat " " [width $rhs]]} {|
-    #            /2,col1/1,col2/3
-    #            >} .=> punk::lib::lines_as_list -- {|
-    #            data2
-    #            >} .=lhs> punk::lib::lines_as_list -- {|
-    #            >} .= {lmap v $data w $data2 {val "[overtype::right $col1 $v][overtype::right $col2 $w]"}} {|
-    #            >} punk::lib::list_as_lines <lhs/0,rhs/1|
-
-    proc welcome_test {} {
-        package require punk::ansi
-        set ansi        [textblock::join -- " " [punk::ansi::ansicat src/testansi/publicdomain/roysac/ROY-WELC.ANS 80x8]]
-        # Ansi art courtesy of Carsten Cumbrowski aka Roy/SAC - roysac.com
-        set table       [[textblock::spantest] print]
-        set punks       [a+ web-lawngreen][>punk . lhs][a]\n\n[a+ rgb#FFFF00][>punk . rhs][a]
-        set ipunks      [overtype::renderspace -width [textblock::width $punks] [punk::ansi::enable_inverse]$punks]
-        set testblock   [textblock::testblock -size 15 rainbow]
-        set contents    $ansi\n[textblock::join -- "  " $table "  " $punks " " $testblock " " $ipunks " " $punks]
-        set framed      [textblock::frame -checkargs 0 -type arc -title [a+ cyan]Compositing[a] -subtitle [a+ red]ANSI[a] -ansiborder [a+ web-orange] $contents]
-    }
-
-
-    proc example {args} {
-        set opts [tcl::dict::create -forcecolour 0]
-        foreach {k v} $args {
-            switch -- $k {
-                -forcecolour {
-                    tcl::dict::set opts $k $v
-                }
-                default {
-                    error "textblock::example unrecognised option '$k'. Known-options: [tcl::dict::keys $opts]"
-                }
-            }
-        }
-        set opt_forcecolour 0
-        if {[tcl::dict::get $opts -forcecolour]} {
-            set fc forcecolour
-            set opt_forcecolour 1
-        } else {
-            set fc ""
-        }
-        set pleft [>punk . rhs]
-        set pright [>punk . lhs]
-        set prightair [>punk . lhs_air]
-        set red [a+ {*}$fc red]; set redb [a+ {*}$fc red bold]
-        set green [a+ {*}$fc green]; set greenb [a+ {*}$fc green bold]
-        set cyan [a+ {*}$fc cyan];set cyanb [a+ {*}$fc cyan bold]
-        set blue [a+ {*}$fc blue];set blueb [a+ {*}$fc blue bold]
-        set RST [a]
-        set gr0 [punk::ansi::g0 abcdefghijklm\nnopqrstuvwxyz]
-        set punks [textblock::join -- $pleft $pright]
-        set pleft_greenb $greenb$pleft$RST
-        set pright_redb  $redb$pright$RST
-        set prightair_cyanb $cyanb$prightair$RST
-        set cpunks [textblock::join -- $pleft_greenb $pright_redb]
-        set out ""
-        append out $punks \n
-        append out $cpunks \n
-        append out [textblock::join -- $punks $cpunks] \n
-        set 2frames_a [textblock::join -- [textblock::frame -checkargs 0 $cpunks] [textblock::frame -checkargs 0 $punks]]
-        append out $2frames_a \n
-        set 2frames_b [textblock::join --\
-                    [textblock::frame -checkargs 0 -ansiborder $cyanb\
-                    -title "plainpunks" $punks]\
-                    [textblock::frame -checkargs 0 -ansiborder $greenb\
-                    -title "fancy"\
-                    -titlealign right\
-                    -subtitle "punks"\
-                    -subtitlealign left\
-                    $cpunks]\
-                ]
-        append out [textblock::frame -checkargs 0 -title "punks" $2frames_b\n$RST$2frames_a] \n
-        set punkdeck [overtype::right [overtype::left [textblock::frame -checkargs 0 -ansiborder [a+ green bold] -type heavy -title ${redb}PATTERN$RST -subtitle ${redb}PUNK$RST $prightair_cyanb] "$blueb\n\n\P\nU\nN\nK$RST"] "$blueb\n\nD\nE\nC\nK"]
-        set spantable [[spantest] print]
-        append out [textblock::join -- $punkdeck "  " $spantable] \n
-        #append out [textblock::frame -title gr $gr0]
-        append out [textblock::periodic -forcecolour $opt_forcecolour]
-        return $out
-    }
-
-    proc example3 {{text "test\netc\nmore text"}} {
-        package require patternpunk
-        .= textblock::join -- [punk::lib::list_as_lines -- [list 1 2 3 4 5 6 7]] [>punk . lhs] |> .=>1 textblock::join -- " " |> .=>1 textblock::join -- $text |>  .=>1 textblock::join -- [>punk . rhs]  |> .=>1 textblock::join -- [punk::lib::list_as_lines -- [lrepeat 7 " | "]]
-    }
-    proc example2 {{text "test\netc\nmore text"}} {
-        package require patternpunk
-        .= textblock::join\
-             --\
-             [punk::lib::list_as_lines -- [list 1 2 3 4 5 6 7 8]]\
-             [>punk . lhs]\
-             " "\
-             $text\
-             [>punk . rhs]\
-             [punk::lib::list_as_lines -- [lrepeat 8 " | "]]
-    }
-    punk::args::define [punk::lib::tstr -return string {
-        @id         -id ::textblock::table
-        @cmd        -name "textblock::table" -help\
-            "A wrapper for creating a textblock::class::table
-
-            NOTE: more options available - argument definition
-            is incomplete"
-        @opts
-        -return -default table -choices {table tableobject}
-        -rows -type list -default "" -help\
-            "A list of lists.
-              Each toplevel element represents a row.
-              The number of elements in each row must
-              be the same.
-              e.g for 2 rows and 3 columns:
-               table -rows {{r0c0 r0c1 r0c2} {r1c0 r1c1 r1c2}}
-             "
-        -headers -type list -default "" -help\
-            "This is a simplified form where each column
-              has a single header row.
-              Each element in this list goes into the top
-              header row for a column.
-              More complex header arrangements where each
-              column has multiple headers can be made
-              by using -return tableobject and calling
-              $tableobj configure_column <idx> -headers"
-    }]
-    proc table {args} {
-        #todo - use punk::args
-        upvar ::textblock::class::opts_table_defaults toptdefaults
-        set defaults [tcl::dict::create\
-            -rows [list]\
-            -headers [list]\
-            -return table\
-        ]
-
-
-        set defaults [tcl::dict::merge $defaults $toptdefaults] ;# -title -frametype -show_header etc
-        set opts [tcl::dict::merge $defaults $args]
-        # -- --- --- ---
-        set opt_return  [tcl::dict::get $opts -return]
-        set opt_rows    [tcl::dict::get $opts -rows]
-        set opt_headers [tcl::dict::get $opts -headers]
-        # -- --- --- ---
-        set topts [tcl::dict::create]
-        set toptkeys [tcl::dict::keys $toptdefaults]
-        tcl::dict::for {k v} $opts {
-            if {$k in $toptkeys} {
-                tcl::dict::set topts $k $v
-            }
-        }
-        set t [textblock::class::table new {*}$topts]
-
-        foreach h $opt_headers {
-            $t add_column -headers [list $h]
-        }
-        if {[$t column_count] == 0} {
-            if {[llength $opt_rows]} {
-                set r0 [lindex $opt_rows 0]
-                foreach c $r0 {
-                    $t add_column
-                }
-            }
-        }
-        foreach r $opt_rows {
-            $t add_row $r
-        }
-
-
-
-        if {$opt_return eq "table"} {
-            set result [$t print]
-            $t destroy
-            return $result
-        } else {
-            return $t
-        }
-    }
-
-    proc frametype {f} {
-        #set custom_keys [list hl hlt hlb vl vll vlr tlc trc blc brc]
-        switch -- $f {
-            light - light_b - light_c - heavy - heavy_b - heavy_c - arc - arc_b - arc_c - double - block - block1 - block2 - block2hack - ascii - altg {
-                return [tcl::dict::create category predefined type $f]
-            }
-            default {
-                set is_custom_dict_ok 1
-                if {[llength $f] %2 == 0} {
-                    #custom dict may leave out keys - but cannot have unknown keys
-                    foreach {k v} $f {
-                        switch -- $k {
-                            all - hl - hlt - hlb - vl - vll - vlr - tlc - trc - blc - brc {}
-                            hltj - hlbj - vllj - vlrj {
-                                #also allow extra join arguments
-                            }
-                            default {
-                                #k not in custom_keys
-                                set is_custom_dict_ok 0
-                                break
-                            }
-                        }
-                    }
-                } else {
-                    set is_custom_dict_ok 0
-                }
-                if {!$is_custom_dict_ok} {
-                    error "frame option -type must be one of known types: $::textblock::frametypes or a dictionary with any of keys all,hl,hlt,hlb,vl,vll,vlr,tlc,trc,blc,brc"
-                }
-                if {[dict exists $f all]} {
-                    return [tcl::dict::create category custom type $f]
-                } else {
-                    set default_custom [tcl::dict::create hl " " vl " " tlc " " trc " " blc " " brc " "]
-                    set custom_frame [tcl::dict::merge $default_custom $f]
-                    return [tcl::dict::create category custom type $custom_frame]
-                }
-            }
-        }
-    }
-    variable framedef_cache [tcl::dict::create]
-    proc framedef {args} {
-        #unicode box drawing only provides enough characters for seamless joining of unicode boxes light and heavy.
-        #e.g with characters such as \u2539 Box Drawings Right Light and Left Up Heavy.
-        #the double glyphs in box drawing can do a limited set of joins to light lines - but not enough for seamless table layouts.
-        #the arc set can't even join to itself e.g with curved equivalents of T-like shapes
-
-        #we use the simplest cache_key possible - performance sensitive as called multiple times in table building.
-        variable framedef_cache
-        set cache_key $args
-        if {[tcl::dict::exists $framedef_cache $cache_key]} {
-            return  [tcl::dict::get $framedef_cache $cache_key]
-        }
-
-
-        #here we avoid the punk::args usage on the happy path, even though punk::args is fairly fast, in favour of an even faster literal switch on the happy path
-        #this means we have some duplication in where our flags/opts are defined: here in opts, and in spec below to give nicer error output without affecting performance.
-        #It also means we can't specify checks on the option types etc
-        set opts [tcl::dict::create\
-            -joins ""\
-            -boxonly 0\
-        ]
-        set bad_option 0
-        set values [list]
-        for {set i 0} {$i < [llength $args]} {incr i} {
-            set a [lindex $args $i]
-            set a2 [tcl::prefix match -error "" {-- -joins -boxonly} $a]
-            switch -- $a2 {
-                -joins - -boxonly {
-                    tcl::dict::set opts $a2 [lindex $args [incr i]]
-                }
-                -- {
-                    set values [lrange $args $i+1 end]
-                    break
-                }
-                default {
-                    if {[string match -* $a]} {
-                        set bad_option 1
-                    } else {
-                        set values [lrange $args $i end]
-                    }
-                    break
-                }
-            }
-        }
-        set f [lindex $values 0]
-        set rawglobs [lrange $values 1 end]
-        if {![llength $rawglobs] || "all" in $rawglobs || "*" in $rawglobs} {
-            set globs *
-        } else {
-            set globs [list]
-            foreach g $rawglobs {
-                switch -- $g {
-                    hl - hlt - hlb - vl - vll - vlr - tlc - trc - blc - brc -
-                    hltj - hlbj - vllj - vlrj {
-                        lappend globs $g
-                    }
-                    corner - corners {
-                        lappend globs tlc blc trc brc
-                    }
-                    noncorner - noncorners {
-                        #same as verticals + horizontals
-                        lappend globs hl* vl*
-                    }
-                    vertical - verticals {
-                        #we don't consider the corners part of this
-                        lappend globs vl*
-                    }
-                    horizontal - horizontals {
-                        lappend globs hl*
-                    }
-                    top - tops {
-                        lappend globs tlc trc hlt*
-                    }
-                    bottom - bottoms {
-                        lappend globs blc brc hlb*
-                    }
-                    left - lefts - lhs {
-                        lappend globs tlc blc vll*
-                    }
-                    right - rights - rhs {
-                        lappend globs trc brc vlr*
-                    }
-                    default {
-                        #must look like a glob search if not one of the above
-                        if {[regexp {[*?\[\]]} $g]} {
-                            lappend globs $g
-                        } else {
-                            set bad_option 1
-                        }
-                    }
-                }
-            }
-        }
-        if {$bad_option || [llength $values] == 0} {
-            #no framedef supplied, or unrecognised opt seen
-            set spec [string map [list <ftlist> $::textblock::frametypes] {
-                @id     -id ::textblock::framedef
-                @cmd    -name textblock::framedef\
-                    -summary "Return frame graphical elements as a dictionary."\
-                    -help "Return a dict of the elements that make up a frame border.
-                May return a subset of available elements based on memberglob values."
-                @leaders -min 0 -max 0
-                @opts
-                -joins      -default "" -type list\
-                    -help "List of join directions, any of: up down left right
-                    or those combined with another frametype e.g left-heavy down-light."
-                -boxonly    -default 0 -type boolean\
-                    -help "-boxonly true restricts results to the corner,vertical and horizontal box elements
-                    It excludes the extra top and side join elements htlj,hlbj,vllj,vlrj."
-
-                @values -min 1 -max -1
-                frametype -choices "<ftlist>" -choiceprefix 0 -choicerestricted 0 -type dict\
-                    -help "name from the predefined frametypes or an adhoc dictionary."
-                memberglob -type globstring -optional 1 -multiple 1 -choiceprefix 0 -choicerestricted 0 -choices {
-                    corner noncorner top bottom vertical horizontal left right
-                    hl hlt hlb vsl vll vlr tlc trc blc brc hltj hlbj vllj vlrj
-                }\
-                    -help "restrict to keys matching memberglob."
-            }]
-            #append spec \n "frametype -help \"A predefined \""
-            punk::args::parse $args withdef $spec
-            return
-        }
-
-        set joins   [tcl::dict::get $opts -joins]
-        set boxonly [tcl::dict::get $opts -boxonly]
-
-
-        #sorted order down left right up
-        #1 x choose 4
-        #4 x choose 3
-        #6 x choose 2
-        #4 x choose 1
-        #15 combos
-
-        set join_directions [list]
-        #targets - light,heavy (double?) - seem to be some required glyphs missing from unicode
-        #e.g down-light, up-heavy
-        set join_targets [tcl::dict::create left "" down "" right "" up ""]
-        foreach jt $joins {
-            lassign [split $jt -] direction target
-            if {$target ne ""} {
-                tcl::dict::set join_targets $direction $target
-            }
-            lappend join_directions $direction
-        }
-        set join_directions [lsort -unique $join_directions]
-        set do_joins [::join $join_directions _]
-
-
-        switch -- $f {
-            "altg" {
-                #old style ansi escape sequences with alternate graphics page G0
-                #set hl [cd::hl]
-                set hl [punk::ansi::g0 q]
-                set hlt $hl
-                set hlb $hl
-                #set vl [cd::vl]
-                set vl [punk::ansi::g0 x]
-                set vll $vl
-                set vlr $vl
-                #set tlc [cd::tlc]
-                set tlc [punk::ansi::g0 l]
-                #set trc [cd::trc]
-                set trc [punk::ansi::g0 k]
-                #set blc [cd::blc]
-                set blc [punk::ansi::g0 m]
-                #set brc [cd::brc]
-                set brc [punk::ansi::g0 j]
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-                #No join targets available to join altg to other box styles
-                switch -- $do_joins {
-                    down {
-                        #1
-                        set blc [punk::ansi::g0 t] ;#(ltj)
-                        set brc [punk::ansi::g0 u] ;#(rtj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                    } left {
-                        #2
-                        set tlc [punk::ansi::g0 w] ;#(ttj)
-                        set blc [punk::ansi::g0 v] ;#(btj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                    }
-                    right {
-                        #3
-                        set trc [punk::ansi::g0 w] ;#(ttj)
-                        set brc [punk::ansi::g0 v] ;#(btj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                    }
-                    up {
-                        #4
-                        set tlc [punk::ansi::g0 t] ;#(ltj)
-                        set trc [punk::ansi::g0 u] ;#(rtj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                    }
-                    down_left {
-                        #5
-                        set blc [punk::ansi::g0 n] ;#(fwj)
-                        set tlc [punk::ansi::g0 w] ;#(ttj)
-                        set brc [punk::ansi::g0 u] ;#(rtj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                    }
-                    down_right {
-                        #6
-                        set blc [punk::ansi::g0 t] ;#(ltj)
-                        set trc [punk::ansi::g0 w] ;#(ttj)
-                        set brc [punk::ansi::g0 n] ;#(fwj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                    }
-                    down_up {
-                        #7
-                        set blc [punk::ansi::g0 t] ;#(ltj)
-                        set brc [punk::ansi::g0 u] ;#(rtj)
-
-                        set tlc [punk::ansi::g0 t] ;#(ltj)
-                        set trc [punk::ansi::g0 u] ;#(rtj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                    }
-                    left_right {
-                        #8
-                        #from 2
-                        set tlc [punk::ansi::g0 w] ;#(ttj)
-                        set blc [punk::ansi::g0 v] ;#(btj)
-                        #from3
-                        set trc [punk::ansi::g0 w] ;#(ttj)
-                        set brc [punk::ansi::g0 v] ;#(btj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                    }
-                    left_up {
-                        #9
-                        set tlc [punk::ansi::g0 n] ;#(fwj)
-                        set trc [punk::ansi::g0 u] ;#(rtj)
-                        set blc [punk::ansi::g0 v] ;#(btj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                    }
-                    right_up {
-                        #10
-                        set tlc [punk::ansi::g0 t] ;#(ltj)
-                        set trc [punk::ansi::g0 n] ;#(fwj)
-                        set brc [punk::ansi::g0 v] ;#(btj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                    }
-                    down_left_right {
-                        #11
-                        set blc [punk::ansi::g0 n] ;#(fwj)
-                        set brc [punk::ansi::g0 n] ;#(fwj)
-                        set trc [punk::ansi::g0 w] ;#(ttj)
-                        set tlc [punk::ansi::g0 w] ;#(ttj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                    }
-                    down_left_up {
-                        #12
-                        set tlc [punk::ansi::g0 n] ;#(fwj)
-                        set blc [punk::ansi::g0 n] ;#(fwj)
-                        set trc [punk::ansi::g0 u] ;#(rtj)
-                        set brc [punk::ansi::g0 u] ;#(rtj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                    }
-                    down_right_up {
-                        #13
-                        set tlc [punk::ansi::g0 t] ;#(ltj)
-                        set blc [punk::ansi::g0 t] ;#(ltj)
-                        set trc [punk::ansi::g0 n] ;#(fwj)
-                        set brc [punk::ansi::g0 n] ;#(fwj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                    }
-                    left_right_up {
-                        #14
-                        set tlc [punk::ansi::g0 n] ;#(fwj)
-                        set trc [punk::ansi::g0 n] ;#(fwj)
-                        set blc [punk::ansi::g0 v] ;#(btj)
-                        set brc [punk::ansi::g0 v] ;#(btj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                    }
-                    down_left_right_up {
-                        #15
-                        set tlc [punk::ansi::g0 n] ;#(fwj)
-                        set blc [punk::ansi::g0 n] ;#(fwj)
-                        set trc [punk::ansi::g0 n] ;#(fwj)
-                        set brc [punk::ansi::g0 n] ;#(fwj)
-                        set vllj [punk::ansi::g0 u] ;#(rtj)
-                        set hltj [punk::ansi::g0 v];#(btj)
-                        set vlrj [punk::ansi::g0 t] ;#(ltj)
-                        set hlbj [punk::ansi::g0 w] ;#(ttj)
-                    }
-                }
-
-
-            }
-            "ascii" {
-                set hl -
-                set hlt -
-                set hlb -
-                set vl |
-                set vll |
-                set vlr |
-                set tlc +
-                set trc +
-                set blc +
-                set brc +
-                #horizontal and vertical bar joins
-                #set hltj $hlt
-                #set hlbj $hlb
-                #set vllj $vll
-                #set vlrj $vlr
-                #ascii + is small - can reasonably be considered a join to anything?
-                set hltj +
-                set hlbj +
-                set vllj +
-                set vlrj +
-                #our corners are all + already - so we won't do anything for directions or targets
-
-            }
-            "light" {
-                #unicode box drawing set
-                set hl [punk::char::charshort boxd_lhz] ;# light horizontal
-                set hlt $hl
-                set hlb $hl
-                set vl [punk::char::charshort boxd_lv] ;#light vertical
-                set vll $vl
-                set vlr $vl
-                set tlc [punk::char::charshort boxd_ldr]
-                set trc [punk::char::charshort boxd_ldl]
-                set blc [punk::char::charshort boxd_lur]
-                set brc [punk::char::charshort boxd_lul]
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-
-                #15 combos
-                #sort order: down left right up
-                #ltj,rtj,ttj,btj e.g left T junction etc.
-                #Look at from the perspective of a frame/table outline with a clean border and arms pointing inwards
-
-                #set targetdown,targetleft,targetright,targetup vars
-                #default empty targets to current box type 'light'
-                foreach dir {down left right up} {
-                    set rawtarget [tcl::dict::get $join_targets $dir]
-                    lassign [split $rawtarget _] target ;# treat variants light light_b lightc the same
-                    switch -- $target {
-                        "" - light {
-                            set target$dir light
-                        }
-                        ascii - altg - arc {
-                            set target$dir light
-                        }
-                        heavy {
-                            set target$dir $target
-                        }
-                        default {
-                            set target$dir other
-                        }
-                    }
-                }
-                switch -- $do_joins {
-                    down {
-                        #1
-                        switch -- $targetdown {
-                            heavy {
-                                set blc [punk::char::charshort boxd_dhrul]  ;#\u251f down hieavy and right up light (ltj)
-                                set brc \u2527 ;#boxd_dhlul down heavy and left up light (rtj)
-                                set hlbj \u2530 ;# down heavy (ttj)
-                            }
-                            light {
-                                set blc \u251c ;#[punk::char::charshort boxd_lvr] light vertical and right (ltj)
-                                set brc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-                                set hlbj \u252c ;# (ttj)
-                            }
-                        }
-                    }
-                    left {
-                        #2
-                        switch -- $targetleft {
-                            heavy {
-                                set tlc \u252d ;# Left Heavy and Right Down Light (ttj)
-                                set blc \u2535  ;# Left Heavy and Right Up Light  (btj)
-                                set vllj \u2525 ;# left heavy (rtj)
-                            }
-                            light {
-                                set tlc [punk::char::charshort boxd_ldhz] ;#T shape (ttj) - joinleft
-                                set blc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-                                set vllj \u2524 ;# (rtj)
-                            }
-                        }
-                    }
-                    right {
-                        #3
-                        switch -- $targetright {
-                            heavy {
-                                set trc \u252e ;#Right Heavy and Left Down Light (ttj)
-                                set brc \u2536 ;#Right Heavy and Left up Light (btj)
-                                set vlrj \u251d;#right heavy (ltj)
-                            }
-                            light {
-                                set trc [punk::char::charshort boxd_ldhz] ;#T shape (ttj)
-                                set brc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-                                set vlrj \u251c;# (ltj)
-                            }
-                        }
-                    }
-                    up {
-                        #4
-                        switch -- $targetup {
-                            heavy {
-                                set tlc \u251e ;#up heavy (ltj)
-                                set trc \u2526 ;#up heavy (rtj)
-                            }
-                            light {
-                                set tlc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                                set trc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-                            }
-                        }
-                    }
-                    down_left {
-                        #5
-                        switch -- $targetdown-$targetleft {
-                            other-light {
-                                set blc \u2534  ;#(btj)
-                                set tlc \u252c  ;#(ttj)
-                                #brc - default corner
-                                set vllj \u2524 ;# (rtj)
-                            }
-                            other-other {
-                                #default corners
-                            }
-                            other-heavy {
-                                set blc \u2535  ;# heavy left (btj)
-                                set tlc \u252d ;#heavy left (ttj)
-                                #brc default corner
-                                set vllj \u2525 ;# heavy left (rtj)
-                            }
-                            heavy-light {
-                                set blc \u2541  ;# heavy down (fwj)
-                                set tlc \u252c  ;# light  (ttj)
-                                set brc \u2527  ;# heavy down (rtj)
-                                set vllj \u2524 ;# (rtj)
-                                set hlbj \u2530 ;# heavy down (ttj)
-                            }
-                            heavy-other {
-                                set blc \u251f  ;#heavy down (ltj)
-                                #tlc - default corner
-                                set brc \u2527  ;#heavy down (rtj)
-                                set hlbj \u2530 ;# heavy down (ttj)
-                            }
-                            heavy-heavy {
-                                set blc \u2545 ;#heavy down and left (fwj)
-                                set tlc \u252d ;#heavy left (ttj)
-                                set brc \u2527 ;#heavy down (rtj)
-                                set vllj \u2525 ;# heavy left (rtj)
-                                set hlbj \u2530 ;# heavy down (ttj)
-                            }
-                            light-light {
-                                set blc \u253c ;# [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                                set tlc \u252c ;# boxd_ldhz (ttj)
-                                set brc \u2524 ;# boxd_lvl light vertical and left(rtj)
-                                set vllj \u2524 ;# (rtj)
-                                set hlbj \u252c ;# (ttj)
-                            }
-                            light-other {
-                                set blc \u251c ;# (ltj)
-                                #tlc - default corner
-                                set brc \u2524 ;# boxd_lvl (rtj)
-                                set hlbj \u252c ;# (ttj)
-                            }
-                            light-heavy {
-                                set blc \u253d ;# heavy left (fwj)
-                                set tlc \u252d ;# heavy left (ttj)
-                                set brc \u2524 ;# light (rtj)
-                                set vllj \u2525 ;# heavy left (rtj)
-                                set hlbj \u252c ;# (ttj)
-                            }
-                            default {
-                                set blc \u253c ;# [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                                set tlc \u252c ;# [punk::char::charshort boxd_ldhz] ;#T shape (ttj)
-                                set brc \u2524 ;# [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-                            }
-                        }
-                    }
-                    down_right {
-                        #6
-                        set blc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                        set trc [punk::char::charshort boxd_ldhz] ;#T shape (ttj)
-                        set brc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                    }
-                    down_up {
-                        #7
-                        set blc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                        set brc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-
-                        set tlc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                        set trc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-                    }
-                    left_right {
-                        #8
-                        #from 2
-                        set tlc [punk::char::charshort boxd_ldhz] ;#T shape (ttj) - joinleft
-                        set blc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-                        #from3
-                        set trc [punk::char::charshort boxd_ldhz] ;#T shape (ttj)
-                        set brc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-
-
-                        switch -- $targetleft-$targetright {
-                            heavy-light {
-                                set tlc \u252d ;# Left Heavy and Right Down Light (ttj)
-                                set blc \u2535  ;# Left Heavy and Right Up Light  (btj)
-                                set vllj \u2525 ;# left heavy (rtj)
-                                set vlrj \u251c;#right light (ltj)
-                            }
-                            heavy-other {
-                                set tlc \u252d ;# Left Heavy and Right Down Light (ttj)
-                                set blc \u2535  ;# Left Heavy and Right Up Light  (btj)
-                                set vllj \u2525 ;# left heavy (rtj)
-                            }
-                            heavy-heavy {
-                                set vllj \u2525 ;# left heavy (rtj)
-                                set vlrj \u251d;#right heavy (ltj)
-                                set tlc \u252d ;# Left Heavy and Right Down Light (ttj)
-                                set blc \u2535  ;# Left Heavy and Right Up Light  (btj)
-                                set trc \u252e ;#Right Heavy and Left Down Light (ttj)
-                                set brc \u2536 ;#Right Heavy and Left up Light (btj)
-                            }
-                            light-heavy {
-                                set trc \u252e ;#Right Heavy and Left Down Light (ttj)
-                                set brc \u2536 ;#Right Heavy and Left up Light (btj)
-                                set vlrj \u251d;#right heavy (ltj)
-                                set vllj \u2524 ;# left light (rtj)
-                            }
-                            light-other {
-                                set vllj \u2524 ;# left light (rtj)
-                            }
-                            light-light {
-                                set vllj \u2524 ;# left light (rtj)
-                                set vlrj \u251c;#right light (ltj)
-                            }
-                        }
-                                #set vllj \u2525 ;# left heavy (rtj)
-                                #set vllj \u2524 ;# left light (rtj)
-                                #set vlrj \u251d;#right heavy (ltj)
-                                #set vlrj \u251c;#right light (ltj)
-                    }
-                    left_up {
-                        #9
-                        set tlc [punk::char::charshort boxd_lvhz]     ;#light vertical and horizontal (fwj)
-                        set trc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-                        set blc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-                    }
-                    right_up {
-                        #10
-                        set tlc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                        set trc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set brc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-                    }
-                    down_left_right {
-                        #11
-                        set blc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set brc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set trc [punk::char::charshort boxd_ldhz] ;#T shape (ttj)
-                        set tlc [punk::char::charshort boxd_ldhz] ;#T shape (ttj)
-
-                    }
-                    down_left_up {
-                        #12
-                        set tlc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set blc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set trc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-                        set brc [punk::char::charshort boxd_lvl]  ;#light vertical and left (rtj)
-
-                    }
-                    down_right_up {
-                        #13
-                        set tlc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                        set blc [punk::char::charshort boxd_lvr]  ;#light vertical and right (ltj)
-                        set trc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set brc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                    }
-                    left_right_up {
-                        #14
-                        set tlc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set trc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set blc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-                        set brc [punk::char::charshort boxd_luhz] ;#upside down T shape  (btj)
-
-                    }
-                    down_left_right_up {
-                        #15
-                        set tlc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set blc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set trc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                        set brc [punk::char::charshort boxd_lvhz] ;#light vertical and horizontal (fwj)
-                    }
-                }
-                #four way junction (cd::fwj) (punk::ansi::g0 n) (punk::char::charshort lvhz) (+)
-            }
-            light_b {
-                set hl  " "
-                set hlt " "
-                set hlb " "
-                set vl  " "
-                set vll " "
-                set vlr " "
-                set tlc " "
-                set trc " "
-                set blc " "
-                set brc " "
-                #horizontal and vertical bar joins
-                set hltj " "
-                set hlbj " "
-                set vllj " "
-                set vlrj " "
-
-                set arcframe [textblock::framedef -boxonly $boxonly -joins $joins light corner vll vlr vllj vlrj]
-                tcl::dict::with arcframe {} ;#extract keys as vars
-            }
-            light_c {
-                set hl  " "
-                set hlt " "
-                set hlb " "
-                set vl  " "
-                set vll " "
-                set vlr " "
-                set tlc " "
-                set trc " "
-                set blc " "
-                set brc " "
-                #horizontal and vertical bar joins
-                set hltj " "
-                set hlbj " "
-                set vllj " "
-                set vlrj " "
-
-                set arcframe [textblock::framedef -boxonly $boxonly -joins $joins light corner]
-                tcl::dict::with arcframe {} ;#extract keys as vars
-            }
-            "heavy" {
-                #unicode box drawing set
-                set hl [punk::char::charshort boxd_hhz] ;# light horizontal
-                set hlt $hl
-                set hlb $hl
-                set vl [punk::char::charshort boxd_hv] ;#light vertical
-                set vll $vl
-                set vlr $vl
-                set tlc [punk::char::charshort boxd_hdr]
-                set trc [punk::char::charshort boxd_hdl]
-                set blc [punk::char::charshort boxd_hur]
-                set brc [punk::char::charshort boxd_hul]
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-
-                #set targetdown,targetleft,targetright,targetup vars
-                #default empty targets to current box type 'heavy'
-                foreach dir {down left right up} {
-                    set target [tcl::dict::get $join_targets $dir]
-                    switch -- $target {
-                        "" - heavy {
-                            set target$dir heavy
-                        }
-                        light - ascii - altg - arc {
-                            set target$dir light
-                        }
-                        default {
-                            set target$dir other
-                        }
-                    }
-                }
-                switch -- $do_joins {
-                    down {
-                        #1
-                        switch -- $targetdown {
-                            light {
-                                set blc [punk::char::charshort boxd_dlruh]  ;#\u2521 down light and right up heavy (ltj)
-                                set brc [punk::char::charshort boxd_dlluh]  ;#\u2529 down light and left up heavy (rtj)
-                                set hlbj \u252F ;#down light (ttj)
-                            }
-                            heavy {
-                                set blc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                                set brc [punk::char::charshort boxd_hvl]  ;# (rtj)
-                                set hlbj \u2533 ;# down heavy (ttj)
-                            }
-                        }
-                    }
-                    left {
-                        #2
-                        switch -- $targetleft {
-                            light {
-                                set tlc [punk::char::charshort boxd_llrdh] ;#\u2532 Left Light and Right Down Heavy (ttj)
-                                set blc [punk::char::charshort boxd_llruh]  ;#\u253a Left Light and Right Up Heavy (btj)
-                                set vllj \u2528 ;# left light (rtj)
-                            }
-                            heavy {
-                                set tlc [punk::char::charshort boxd_hdhz] ;# (ttj)
-                                set blc [punk::char::charshort boxd_huhz] ;# (btj)
-                                set vllj \u252b ;#(rtj)
-                            }
-                        }
-                    }
-                    right {
-                        #3
-                        switch -- $targetright {
-                            light {
-                                set trc [punk::char::charshort boxd_rlldh] ;#\u2531 Right Light and Left Down Heavy (ttj)
-                                set brc [punk::char::charshort boxd_rlluh] ;#\u2539 Right Light and Left Up Heavy(btj)
-                                set vlrj \u2520 ;#right light (ltj)
-                            }
-                            heavy {
-                                set trc [punk::char::charshort boxd_hdhz] ;#T shape (ttj)
-                                set brc [punk::char::charshort boxd_huhz] ;# (btj)
-                                set vlrj \u2523 ;# (ltj)
-                            }
-                        }
-                    }
-                    up {
-                        #4
-                        switch -- $targetup {
-                            light {
-                                set tlc [punk::char::charshort boxd_ulrdh]  ;#\u2522 Up Light and Right Down Heavy (ltj)
-                                set trc [punk::char::charshort boxd_ulldh]  ;#\u252a Up Light and Left Down Heavy (rtj)
-                                set hltj \u2537 ;# up light (btj)
-                            }
-                            heavy {
-                                set tlc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                                set trc [punk::char::charshort boxd_hvl]  ;# (rtj)
-                                set hltj \u253b ;# (btj)
-                            }
-                        }
-                    }
-                    down_left {
-                        #down_left is the main join type used for 'L' shaped cell border table building where we boxlimit to {vll hlb blc}
-                        #5
-                        switch -- down-$targetdown-left-$targetleft {
-                             down-light-left-heavy {
-                               set blc [punk::char::charshort boxd_dluhzh] ;#down light and up horizontal heavy (fwj)
-                               set brc [punk::char::charshort boxd_dlluh]  ;#\u2529 down light and left up heavy (rtj)
-                               set tlc [punk::char::charshort boxd_hdhz]   ;# (ttj) (at tlc down stays heavy)
-                               set hlbj \u252F ;# down light (ttj)
-                               set vllj \u252b ;#(rtj)
-                            }
-                            down-heavy-left-light {
-                                set blc [punk::char::charshort boxd_llrvh] ;# left light and right Vertical Heavy (fwj)
-                                set brc [punk::char::charshort boxd_hvl]  ;# (rtj) (at brc left must stay heavy)
-                                set tlc [punk::char::charshort boxd_llrdh] ;#\u2532 Left Light and Right Down Heavy (ttj)
-                                set hlbj \u2533 ;# down heavy (ttj)
-                                set vllj \u2528 ;# left light (rtj)
-                            }
-                            down-light-left-light {
-                                set blc [punk::char::charshort boxd_ruhldl] ;#\u2544 right up heavy and left down light (fwj)
-                                set brc [punk::char::charshort boxd_dlluh]  ;#\u2529 Down Light and left Up Heavy (rtj) (left must stay heavy)
-                                set tlc [punk::char::charshort boxd_llrdh]  ;#\u2532 Left Light and Right Down Heavy (ttj) (we are in heavy - so down must stay heavy at tlc)
-                                set hlbj \u252F ;# down light (ttj)
-                                set vllj \u2528 ;# left light (rtj)
-                            }
-                            down-heavy-left-heavy {
-                                set blc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                                set brc [punk::char::charshort boxd_hvl]  ;# (rtj)
-                                set tlc [punk::char::charshort boxd_hdhz] ;# (ttj)
-                                set hlbj \u2533 ;#(ttj)
-                                set vllj \u252b ;#(rtj)
-                            }
-                            down-other-left-heavy {
-                                set blc \u253b ;#boxd_huhz Heavy Up and Horizontal (btj)
-                                #leave brc default corner
-                                set tlc \u2533 ;#hdhz Heavy Down and Horizontal (ttj)
-
-                                set vllj \u252b ;#(rtj)
-                            }
-                            down-other-left-light {
-                                set blc \u253a ;#llruh Left Light and Right Up Heavy (btj)
-                                #leave brc default corner
-                                set tlc \u2532 ;#llrdh Left Light and Right Down Heavy (ttj)
-
-                                set vllj \u2528 ;# left light (rtj)
-                            }
-                            down-heavy-left-other {
-                                set blc \u2523 ;#hvr Heavy Vertical and Right (ltj)
-                                set brc \u252b ;#hvl Heavy Veritcal and Left (rtj)
-                                #leave tlc default corner
-
-                                set hlbj \u2533 ;#(ttj)
-                            }
-                            down-light-left-other {
-                                set blc \u2521  ;#dlruh Down Light and Right Up Heavy  (ltj)
-                                set brc \u2529  ;#dlluh Down Light and Left Up Heavy (rtj)
-                                #leave tlc default corner
-
-                                set hlbj \u252F ;# down light (ttj)
-                            }
-                        }
-                    }
-                    down_right {
-                        #6
-                        set blc [punk::char::charshort boxd_hvr]  ;# (ltj) (blc right&up stay heavy)
-                        set trc [punk::char::charshort boxd_hdhz] ;# (ttj) (tlc down&left stay heavy)
-                        set brc [punk::char::charshort boxd_hvhz] ;# (fwj) (brc left&up heavy)
-                    }
-                    down_up {
-                        #7
-                        set blc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                        set brc [punk::char::charshort boxd_hvl]  ;# (rtj)
-
-                        set tlc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                        set trc [punk::char::charshort boxd_hvl]  ;# (rtj)
-                    }
-                    left_right {
-                        #8
-                        #from 2
-                        set tlc [punk::char::charshort boxd_hdhz] ;# (ttj)
-                        set blc [punk::char::charshort boxd_huhz] ;# (btj)
-                        #from3
-                        set trc [punk::char::charshort boxd_hdhz] ;# (ttj)
-                        set brc [punk::char::charshort boxd_huhz] ;# (btj)
-                    }
-                    left_up {
-                        #9
-                        set tlc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_hvl]  ;# (rtj)
-                        set blc [punk::char::charshort boxd_huhz] ;# (btj)
-                    }
-                    right_up {
-                        #10
-                        set tlc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                        set trc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_huhz] ;# (btj)
-                    }
-                    down_left_right {
-                        #11
-                        set blc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_hdhz] ;# (ttj)
-                        set tlc [punk::char::charshort boxd_hdhz] ;# (ttj)
-
-                    }
-                    down_left_up {
-                        #12
-                        set tlc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set blc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_hvl]  ;# (rtj)
-                        set brc [punk::char::charshort boxd_hvl]  ;# (rtj)
-
-                    }
-                    down_right_up {
-                        #13
-                        set tlc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                        set blc [punk::char::charshort boxd_hvr]  ;# (ltj)
-                        set trc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                    }
-                    left_right_up {
-                        #14
-                        set tlc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set blc [punk::char::charshort boxd_huhz] ;# (btj)
-                        set brc [punk::char::charshort boxd_huhz] ;# (btj)
-
-                    }
-                    down_left_right_up {
-                        #15
-                        set tlc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set blc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_hvhz] ;# (fwj)
-                    }
-                }
-            }
-            heavy_b {
-                set hl  " "
-                set hlt " "
-                set hlb " "
-                set vl  " "
-                set vll " "
-                set vlr " "
-                set tlc " "
-                set trc " "
-                set blc " "
-                set brc " "
-                #horizontal and vertical bar joins
-                set hltj " "
-                set hlbj " "
-                set vllj " "
-                set vlrj " "
-
-                set arcframe [textblock::framedef -boxonly $boxonly -joins $joins heavy corner vll vlr vllj vlrj]
-                tcl::dict::with arcframe {} ;#extract keys as vars
-            }
-            heavy_c {
-                set hl  " "
-                set hlt " "
-                set hlb " "
-                set vl  " "
-                set vll " "
-                set vlr " "
-                set tlc " "
-                set trc " "
-                set blc " "
-                set brc " "
-                #horizontal and vertical bar joins
-                set hltj " "
-                set hlbj " "
-                set vllj " "
-                set vlrj " "
-
-                set arcframe [textblock::framedef -boxonly $boxonly -joins $joins heavy corner]
-                tcl::dict::with arcframe {} ;#extract keys as vars
-            }
-            "double" {
-                #unicode box drawing set
-                set hl [punk::char::charshort boxd_dhz] ;# double horizontal \U2550
-                set hlt $hl
-                set hlb $hl
-                set vl [punk::char::charshort boxd_dv] ;#double vertical \U2551
-                set vll $vl
-                set vlr $vl
-                set tlc [punk::char::charshort boxd_ddr] ;#double down and right \U2554
-                set trc [punk::char::charshort boxd_ddl] ;#double down and left \U2557
-                set blc [punk::char::charshort boxd_dur] ;#double up and right \U255A
-                set brc [punk::char::charshort boxd_dul] ;#double up and left \U255D
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-
-                # \u256c  (fwj)
-
-                #set targetdown,targetleft,targetright,targetup vars
-                #default empty targets to current box type 'double'
-                foreach dir {down left right up} {
-                    set target [tcl::dict::get $join_targets $dir]
-                    switch -- $target {
-                        "" - double {
-                            set target$dir double
-                        }
-                        light {
-                            set target$dir light
-                        }
-                        default {
-                            set target$dir other
-                        }
-                    }
-                }
-
-                #unicode provides no joining for double to anything else
-                #better to leave a gap by using default double corners if join target is not empty or double
-                switch -- $do_joins {
-                    down {
-                        #1
-                        switch -- $targetdown {
-                            double {
-                                set blc \u2560  ;# (ltj)
-                                set brc \u2563  ;# (rtj)
-                                set hlbj \u2566 ;# (ttj)
-                            }
-                            light {
-                                set hlbj \u2564 ;# down light (ttj)
-                            }
-                        }
-                    }
-                    left {
-                        #2
-                        switch -- $targetleft {
-                            double {
-                                set tlc \u2566  ;# (ttj)
-                                set blc \u2569  ;# (btj)
-                                set vllj \u2563 ;# (rtj)
-                            }
-                            light {
-                                set vllj \u2562 ;# light left (rtj)
-                            }
-                        }
-                    }
-                    right {
-                        #3
-                        switch -- $targetright {
-                            double {
-                                set trc \u2566  ;# (ttj)
-                                set brc \u2569  ;# (btj)
-                            }
-                            light {
-                                set vlrj \u255F ;# light right (ltj)
-                            }
-                        }
-                    }
-                    up {
-                        #4
-                        switch -- $targetup {
-                            double {
-                                set tlc \u2560  ;# (ltj)
-                                set trc \u2563  ;# (rtj)
-                                set hltj \u2569 ;# (btj)
-                            }
-                            light {
-                                set hltj \u2567 ;#up light (btj)
-                            }
-                        }
-                    }
-                    down_left {
-                        #5
-                        switch -- $targetdown-$targetleft {
-                            double-double {
-                                set blc \u256c  ;# (fwj)
-                                set brc \u2563  ;# (rtj)
-                                set tlc \u2566  ;# (ttj)
-                                set hlbj \u2566 ;# (ttj)
-                            }
-                            double-light {
-                                #no corner joins treat corners like 'other'
-                                set blc \u2560  ;# (ltj)
-                                set brc \u2563  ;# (rtj)
-
-                                set hlbj \u2566 ;# (ttj)
-                                set vllj \u2562 ;# light left (rtj)
-
-                            }
-                            double-other {
-                                set blc \u2560  ;# (ltj)
-                                set brc \u2563  ;# (rtj)
-                                #leave tlc as ordinary double corner
-                            }
-                            light-double {
-
-                                set vllj \u2563 ;# (rtj)
-                                set hlbj \u2564 ;# light down (ttj)
-
-                            }
-                            light-light {
-
-                                set vllj \u2562 ;# light left (rtj)
-                                set hlbj \u2564 ;# light down (ttj)
-                            }
-                            other-light {
-                                set vllj \u2562 ;# light left (rtj)
-                            }
-                            other-double {
-                                set blc \u2569  ;# (btj)
-                                #leave brc as ordinary double corner
-                                set tlc \u2566  ;# (ttj)
-                            }
-                        }
-                    }
-                    down_right {
-                        #6
-                        switch -- $targetdown-$targetright {
-                            double-double {
-                                set blc \u2560  ;# (ltj)
-                                set trc \u2566  ;# (ttj)
-                                set brc \u256c  ;# (fwj)
-                                set hlbj \u2566 ;# (ttj)
-                            }
-                            double-other {
-                                set blc \u2560  ;# (ltj)
-                                #leave trc default
-                                set brc \u2563 ;# (rtj)
-                            }
-                            other-double {
-                                #leave blc default
-                                set trc \u2566 ;# (ttj)
-                                set brc \u2569 ;#(btj)
-                            }
-                        }
-                    }
-                    down_up {
-                        #7
-                        switch -- $targetdown-$targetup {
-                            double-double {
-                                set blc \u2560  ;# (ltj)
-                                set brc \u2563  ;# (rtj)
-                                set tlc \u2560  ;# (ltj)
-                                set trc \u2563  ;# (rtj)
-                                set hltj \u2569 ;# (btj)
-                                set hlbj \u2566 ;# (ttj)
-                            }
-                        }
-                    }
-                    left_right {
-                        #8
-
-                        #from 2
-                        #set tlc [punk::char::charshort boxd_hdhz] ;# (ttj)
-                        set tlc \U2566 ;# (ttj)
-                        #set blc [punk::char::charshort boxd_huhz] ;# (btj)
-                        set blc \u2569 ;# (btj)
-                        #from3
-                        set trc [punk::char::charshort boxd_ddhz] ;# (ttj)
-                        set brc [punk::char::charshort boxd_duhz] ;# (btj)
-                    }
-                    left_up {
-                        #9
-                        set tlc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_dvl]  ;# (rtj)
-                        set blc [punk::char::charshort boxd_duhz] ;# (btj)
-                        set hltj \u2569 ;# (btj)
-                        set vllj \u2563 ;# (rtj)
-                    }
-                    right_up {
-                        #10
-                        set tlc [punk::char::charshort boxd_dvr]  ;# (ltj)
-                        set trc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_duhz] ;# (btj)
-                        set hltj \u2569 ;# (btj)
-                        set vlrj \u2560 ;# (ltj)
-                    }
-                    down_left_right {
-                        #11
-                        set blc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_ddhz] ;# (ttj)
-                        set tlc [punk::char::charshort boxd_ddhz] ;# (ttj)
-                        set hlbj \u2566 ;# (ttj)
-                        set vlrj \u2560 ;# (ltj)
-
-                    }
-                    down_left_up {
-                        #12
-                        set tlc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set blc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_dvl]  ;# (rtj)
-                        set brc [punk::char::charshort boxd_dvl]  ;# (rtj)
-                        set hltj \u2569 ;# (btj)
-                        set hlbj \u2566 ;# (ttj)
-
-                    }
-                    down_right_up {
-                        #13
-                        set tlc [punk::char::charshort boxd_dvr]  ;# (ltj)
-                        set blc [punk::char::charshort boxd_dvr]  ;# (ltj)
-                        set trc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set hltj \u2569 ;# (btj)
-                        set hlbj \u2566 ;# (ttj)
-                    }
-                    left_right_up {
-                        #14
-                        set tlc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set blc [punk::char::charshort boxd_duhz] ;# (btj)
-                        set brc [punk::char::charshort boxd_duhz] ;# (btj)
-                        set hltj \u2569 ;# (btj)
-
-                    }
-                    down_left_right_up {
-                        #15
-                        set tlc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set blc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set trc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set brc [punk::char::charshort boxd_dvhz] ;# (fwj)
-                        set hltj \u2569 ;# (btj)
-                        set hlbj \u2566 ;# (ttj)
-                    }
-                }
-
-            }
-            "arc" {
-                #unicode box drawing set
-
-
-                set hl [punk::char::charshort boxd_lhz] ;# light horizontal
-                set hlt $hl
-                set hlb $hl
-                set vl [punk::char::charshort boxd_lv] ;#light vertical
-                set vll $vl
-                set vlr $vl
-                set tlc [punk::char::charshort boxd_ladr] ;#light arc down and right \U256D
-                set trc [punk::char::charshort boxd_ladl] ;#light arc down and left \U256E
-                set blc [punk::char::charshort boxd_laur] ;#light arc up and right \U2570
-                set brc [punk::char::charshort boxd_laul] ;#light arc up and left \U256F
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-
-                #set targetdown,targetleft,targetright,targetup vars
-                #default empty targets to current box type 'arc'
-                foreach dir {down left right up} {
-                    set target [tcl::dict::get $join_targets $dir]
-                    switch -- $target {
-                        "" - arc {
-                            set target$dir self
-                        }
-                        default {
-                            set target$dir other
-                        }
-                    }
-                }
-
-                switch -- $do_joins {
-                    down {
-                        #1
-                        switch -- $targetdown {
-                            self {
-                                set blc \u251c  ;# *light (ltj)
-                                #set blc \u29FD   ;# misc math right-pointing curved angle bracket (ltj) - positioned too far left
-                                #set blc \u227b    ;# math succeeds char. joins on right  ok - gaps top and bottom - almost passable
-                                #set blc \u22b1    ;#math succeeds under relation - looks 'ornate', sits too low to join horizontal
-
-                                #set brc \u2524  ;# *light(rtj)
-                                #set brc \u29FC   ;# misc math left-pointing curved angle bracket (rtj)
-                            }
-                        }
-                    }
-                    left {
-                        #2
-                        switch -- $targetleft {
-                            self {
-                                set tlc \u252c  ;# *light(ttj) - need a low positioned curved y shape - nothing apparent
-                                #set blc \u2144  ;# (btj) - upside down y - positioning too low for arc
-                                set blc \u2534  ;# *light (btj)
-                            }
-                        }
-                    }
-                    right {
-                        #3
-                        switch -- $targetright {
-                            self {
-                                set trc \u252c  ;# *light (ttj)
-                                #set brc \u2144 ;# (btj)
-                                set brc \u2534  ;# *light (btj)
-                            }
-                        }
-                    }
-                    up {
-                        #4
-                        switch -- $targetup {
-                            self {
-                                set tlc \u251c  ;# *light (ltj)
-                                set trc \u2524  ;# *light(rtj)
-                            }
-                        }
-                    }
-                    down_left {
-                        #5
-                        switch -- $targetdown-$targetleft {
-                            self-self {
-                                #set blc \u27e1  ;# white concave-sided diamond - positioned too far right
-                                #set blc \u27e3   ;# concave sided diamond with rightwards tick - positioned too low, too right - big gaps
-                                #set blc \u2bce   ;# from "Miscellaneous Symbols and Arrows" - positioned too far right
-                                set brc \u2524  ;# *light (rtj)
-                                set tlc \u252c  ;# *light (ttj)
-                            }
-                            self-other {
-                                #set blc \u2560  ;# (ltj)
-                                #set brc \u2563  ;# (rtj)
-                                #leave tlc as ordinary double corner
-                            }
-                            other-self {
-                                #set blc \u2569  ;# (btj)
-                                #leave brc as ordinary double corner
-                                #set tlc \u2566  ;# (ttj)
-                            }
-                        }
-                    }
-                    down_right {
-                        switch -- $targetdown-$targetright {
-                            self-self {
-                                #set brc \u2bce ;# from "Miscellaneous Symbols and Arrows" - positioned too far right
-                                set trc \u252c  ;# (ttj)
-                                set blc \u2524  ;# (rtj)
-                            }
-                        }
-                    }
-                }
-            }
-            arc_b {
-                set hl  " "
-                set hlt " "
-                set hlb " "
-                set vl  " "
-                set vll " "
-                set vlr " "
-                set tlc " "
-                set trc " "
-                set blc " "
-                set brc " "
-                #horizontal and vertical bar joins
-                set hltj " "
-                set hlbj " "
-                set vllj " "
-                set vlrj " "
-
-                set arcframe [textblock::framedef -boxonly $boxonly -joins $joins arc corner vll vlr vllj vlrj]
-                tcl::dict::with arcframe {} ;#extract keys as vars
-            }
-            arc_c {
-                set hl  " "
-                set hlt " "
-                set hlb " "
-                set vl  " "
-                set vll " "
-                set vlr " "
-                set tlc " "
-                set trc " "
-                set blc " "
-                set brc " "
-                #horizontal and vertical bar joins
-                set hltj " "
-                set hlbj " "
-                set vllj " "
-                set vlrj " "
-
-                set arcframe [textblock::framedef -boxonly $boxonly -joins $joins arc corner]
-                tcl::dict::with arcframe {} ;#extract keys as vars
-            }
-            block1 {
-                #box drawing as far as we can go without extra blocks from legacy computing unicode block - which is unfortunately not commonly supported
-                set hlt \u2581 ;# lower one eighth block
-                set hlb \u2594 ;# upper one eighth block
-                set vll \u258f ;# left one eighth block
-                set vlr \u2595 ;# right one eighth block
-                set tlc \u2581 ;# lower one eighth block
-                set trc \u2581 ;# lower one eighth block
-                set blc \u2594 ;# upper one eighth block
-                set brc \u2594 ;# upper one eight block
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-
-            }
-            block2 {
-                #the resultant table will have text appear towards top of each box
-                #with 'legacy' computing unicode block - hopefully these become more widely supported - as they are useful and fill in some gaps
-                set hlt \u2594 ;# upper one eighth block
-                set hlb \u2581 ;# lower one eighth block
-                set vlr \u2595 ;# right one eighth block
-                set vll \u258f ;# left one eighth block
-
-                #some terminals (on windows as at 2024) miscount width of these single-width blocks internally
-                #resulting in extra spacing that is sometimes well removed from the character itself (e.g at next ansi reset)
-                #This was fixed in windows-terminal based systems (2021) but persists in others.
-                #https://github.com/microsoft/terminal/issues/11694
-                set tlc \U1fb7d ;#legacy block
-                set trc \U1fb7e ;#legacy block
-                set blc \U1fb7c ;#legacy block
-                set brc \U1fb7f ;#legacy block
-
-                if {(![interp issafe])} {
-                    if {![catch {punk::console::check::has_bug_legacysymbolwidth} symbug] && $symbug} {
-                        #rather than totally fail on some mixed layout that happens to use block2 - just degrade it - but prevent alignment problems
-                        set sp \u00a0 ;#non breaking space (plain space may act transparent in some use cases)
-                        set tlc $sp
-                        set trc $sp
-                        set blc $sp
-                        set brc $sp
-                    }
-                }
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-
-            }
-            block2hack {
-                #the resultant table will have text appear towards top of each box
-                #with 'legacy' computing unicode block - hopefully these become more widely supported - as they are useful and fill in some gaps
-                set hlt \u2594 ;# upper one eighth block
-                set hlb \u2581 ;# lower one eighth block
-                set vlr \u2595 ;# right one eighth block
-                set vll \u258f ;# left one eighth block
-
-                #see comments in block2 regarding the problems in some terminals that this *may* hack around to some extent.
-                #the caller probably only needs block2hack if block2 doesn't work
-
-                #1)
-                #review - this hack looks sort of promising - but overtype::renderline needs fixing ?
-                #set tlc \U1fb7d\b ;#legacy block
-                #set trc \U1fb7e\b ;#legacy block
-                #set blc \U1fb7c\b ;#legacy block
-                #set brc \U1fb7f\b ;#legacy block
-
-                #2) - works on cmd.exe and some others
-                # a 'privacy message' is 'probably' also not supported on the old terminal but is on newer ones
-                #known exception - conemu on windows - displays junk for various ansi codes - (and slow terminal anyway)
-                #this hack has a reasonable chance of working
-                #except that the punk overtype library does recognise PMs
-                #A single backspace however is an unlikely and generally unuseful PM - so there is a corresponding hack in the renderline system to pass this PM through!
-                #ugly - in that we don't know the application specifics of what the PM data contains and where it's going.
-                set tlc \U1fb7d\x1b^\b\x1b\\ ;#legacy block
-                set trc \U1fb7e\x1b^\b\x1b\\ ;#legacy block
-                set blc \U1fb7c\x1b^\b\x1b\\ ;#legacy block
-                set brc \U1fb7f\x1b^\b\x1b\\ ;#legacy block
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-            }
-            block {
-                set hlt \u2580 ;#upper half
-                set hlb \u2584 ;#lower half
-                set vll \u258c ;#left half
-                set vlr \u2590 ;#right half
-
-                set tlc \u259b ;#upper left corner half
-                set trc \u259c
-                set blc \u2599
-                set brc \u259f
-
-                #horizontal and vertical bar joins
-                set hltj $hlt
-                set hlbj $hlb
-                set vllj $vll
-                set vlrj $vlr
-            }
-            default {
-                #set default_custom [tcl::dict::create hl " " vl " " tlc " " trc " " blc " " brc " "] ;#only default the general types - these form defaults for more specific types if they're missing
-                set default_custom [tcl::dict::create hl " " vl " " tlc " " trc " " blc " " brc " "]
-                if {"all" in [dict keys $f]} {
-                    set A [dict get $f all]
-                    set default_custom [tcl::dict::create hl $A vl $A tlc $A trc $A blc $A brc $A]
-                }
-                if {[llength $f] % 2} {
-                    #todo  - retrieve usage from punk::args
-                    error "textblock::frametype frametype '$f' is not one of the predefined frametypes: $::textblock::frametypes and does not appear to be a dictionary for a custom frametype"
-                }
-                #unknown order of keys specified by user - validate before creating vars as we need more general elements to be available as defaults
-                dict for {k v} $f {
-                    switch -- $k {
-                        all - hl - vl - tlc - trc - blc - brc - hlt - hlb - vll - vlr - hltj - hlbj - vllj - vlrj {}
-                        default {
-                            error "textblock::frametype '$f' has unknown element '$k'"
-                        }
-                    }
-                }
-                #verified keys - safe to extract as vars
-                set custom_frame [tcl::dict::merge $default_custom $f]
-                tcl::dict::with custom_frame {} ;#extract keys as vars
-                #longer j vars must be after their more specific counterparts in the list being processed by foreach
-                foreach t {hlt hlb vll vlr hltj hlbj vllj vlrj} {
-                    if {[tcl::dict::exists $custom_frame $t]} {
-                        set $t [tcl::dict::get $custom_frame $t]
-                    } else {
-                        #set more explicit type to it's more general counterpart if it's missing
-                        #e.g hlt -> hl
-                        #e.g hltj -> hlt
-                        set $t [set [string range $t 0 end-1]]
-                    }
-                }
-                #assert vars hl vl tlc trc blc brc hlt hlb vll vlr hltj hlbj vllj vlrj are all set
-                #horizontal and vertical bar joins - key/variable ends with 'j'
-            }
-        }
-        if {$boxonly} {
-            set result [tcl::dict::create\
-                tlc $tlc hlt $hlt trc $trc\
-                vll $vll          vlr $vlr\
-                blc $blc hlb $hlb brc $brc\
-            ]
-        } else {
-            set result [tcl::dict::create\
-                tlc $tlc hlt $hlt trc $trc\
-                vll $vll          vlr $vlr\
-                blc $blc hlb $hlb brc $brc\
-                hltj $hltj\
-                hlbj $hlbj\
-                vllj $vllj\
-                vlrj $vlrj\
-            ]
-        }
-        set result [dict filter $result key {*}$globs]
-        tcl::dict::set framedef_cache $cache_key $result
-        return $result
-    }
-
-
-    variable frame_cache
-    set frame_cache [tcl::dict::create]
-
-    punk::args::define {
-        @id     -id     ::textblock::frame_cache
-        @cmd    -name   textblock::frame_cache -help\
-            "Display or clear the frame cache."
-        -pretty -default 1                   -help\
-           "Uses 'pdict textblock::frame_cache */*' for prettier output
-              Either way this is set, output requires long lines and may
-              still wrap in an ugly manner. Try 'textblock::use_cache md5'
-              to shorten the argument display and reduce wrapping.
-            "
-        @values -min 0 -max -1
-        action -default {display} -choices {clear size info display} -choicelabels {
-                clear "Clear the textblock::frame_cache dictionary."
-            } -help "Perform an action on the frame cache."
-    }
-    proc frame_cache {args} {
-        set argd [punk::args::parse $args withid ::textblock::frame_cache]
-        set action [dict get $argd values action]
-        variable frame_cache
-        set all_values_dict [dict get $argd values]
-        set action_values [lrange [dict values $all_values_dict] 1 end]
-        switch -- $action {
-            clear {
-                set size [dict size $frame_cache]
-                set frame_cache [tcl::dict::create]
-                return "frame_cache cleared $size entries"
-            }
-            size {
-                return [dict size $frame_cache]
-            }
-            info {
-                return [dict info $frame_cache]
-            }
-            display {
-                #fall through
-            }
-            default {
-                #assert - unreachable - punk::args should have validated
-                error "frame_cache -action '$action' not understood. Valid actions: clear size info display"
-            }
-        }
-        if {[llength $action_values]} {
-            return [frame_cache_display -pretty [dict get $argd opts -pretty] {*}$action_values]
-        } else {
-            return [frame_cache_display -pretty [dict get $argd opts -pretty]]
-        }
-    }
-    punk::args::define {
-        @dynamic
-        @id -id ::textblock::frame_cache_display
-        @opts
-        ${[::punk::args::resolved_def -types opts ::textblock::frame_cache -pretty]}
-        @values -min 0 -max 2
-        startindex -default ""  -type indexexpression -help\
-           "If both startindex and endindex are missing/empty, it is treated as
-              startindex 0 endindex end. (ie displays all records)
-              If only startindex has a value - the frame_cache record at that
-              index will be displayed"
-        endindex   -default ""  -type indexexpression
-    }
-    proc frame_cache_display {args} {
-        set argd [punk::args::parse $args withid ::textblock::frame_cache_display]
-        variable frame_cache
-        lassign [dict values [dict get $argd values]] startidx endidx
-        set limit ""
-        if {$startidx ne ""} {
-            if {$endidx ne ""} {
-                if {$startidx eq $endidx} {
-                    set limit "index"
-                } else {
-                    set limit "range"
-                }
-            } else {
-                set limit "index"
-            }
-        } else {
-            set limit "all"
-        }
-
-        set display_dict {}
-        switch -- $limit {
-            all {
-                set display_dict $frame_cache
-            }
-            index {
-                set k [lindex [dict keys $frame_cache] $startidx]
-                if {$k ne ""} {
-                    set display_dict [dict create $k [dict get $frame_cache $k]]
-                }
-            }
-            range {
-                set keys [lrange [dict keys $frame_cache] $startidx $endidx]
-                foreach k $keys {
-                    dict set display_dict $k [dict get $frame_cache $k]
-                }
-            }
-        }
-
-        if {[dict get $argd opts -pretty]} {
-            set out [pdict -chan none display_dict */*]
-        } else {
-            set out ""
-            if {[catch {
-                set termwidth [tcl::dict::get [punk::console::get_size] columns]
-            }]} {
-                set termwidth 80
-            }
-
-            tcl::dict::for {k v} $display_dict {
-                lassign $v _f frame _used used
-                set fwidth [textblock::widthtopline $frame]
-                #review - are cached frames uniform width lines?
-                #set fwidth [textblock::width $frame]
-                set frameinfo "$k used:$used "
-                set allinone_width [expr {[tcl::string::length $frameinfo] + $fwidth}]
-                if {$allinone_width >= $termwidth} {
-                    #split across 2 lines
-                    append out "$frameinfo\n"
-                    append out $frame \n
-                } else {
-                    append out [textblock::join -- $frameinfo $frame]\n
-                }
-                append out \n ;# frames used to build tables often have joins - keep a line in between for clarity
-            }
-        }
-        return $out
-    }
-
-
-    variable FRAMETYPES
-    set FRAMETYPES  [textblock::frametypes]
-    variable EG
-    set EG          [a+ brightblack]
-    variable RST
-    set RST         [a]
-
-    proc frame_samples {} {
-        #@ for example 50us per frame and 16 frames - we are already at 800us
-        #As this can be triggered in @dynamic punk::args parsing for textblock::frame - even that can add up.
-        #textblock::frame shouldn't use punk::args parsing on the happy path - so this isn't an issue if -checkargs 0 supplied in that call
-        #frame_samples might be a candidate for memoization/caching - but we need to leave open the possibility of
-        #adding/loading or even editing frametypes in a running system and having that reflected in the textblock::frame argument usage display.
-
-        set FRAMETYPELABELS [dict create]
-        if {[info commands ::textblock::frame] ne ""} {
-            foreach ft [frametypes] {
-                dict set FRAMETYPELABELS $ft [textblock::frame -checkargs 0 -type $ft " "]
-            }
-        }
-        set FRAMETYPELABELS [dict remove $FRAMETYPELABELS block2hack]
-        return $FRAMETYPELABELS
-    }
-    #proc EG {} "return {[a+ brightblack]}"
-    #make EG fetch from SGR cache so as to abide by colour off/on
-    proc EG {} {
-        a+ brightblack
-    }
-    #proc RST {} "return {\x1b\[m}"
-    proc RST {} {
-        return "\x1b\[m"
-    }
-
-    #catch 22  for -choicelabels - need some sort of lazy evaluation
-    #            ${[textblock::frame_samples]}
-
-    #todo punk::args alias for centre center etc?
-    namespace eval argdoc {
-        punk::args::define {
-            @dynamic
-            @id     -id     ::textblock::frame
-            @cmd    -name   "textblock::frame"\
-                -summary "Frame a block of content with a border."\
-                -help\
-                "This command allows content to be framed with various border styles. The content can include
-                other ANSI codes and unicode characters. Some predefined border types can be selected with
-                the -type option and the characters can be overridden either in part or in total by supplying
-                some or all entries in the -boxmap dictionary.
-                The ${$B}textblock::framedef${$N} command can be used to return a dictionary for a frame type.
-                Border elements can also be suppressed on chosen sides with -boxlimits.
-                ANSI colours can be applied to borders or as defaults for the content using -ansiborder and
-                -ansibase options.
-                The punk::ansi::a+ function (aliased as a+) can be used to apply ANSI styles.
-                e.g
-                  frame -type block -ansiborder [a+ blue Red] -ansibase [a+ black Red] \"A\\nB\""
-            -checkargs      -default 1 -type boolean\
-                -help "If true do extra argument checks and
-                provide more comprehensive error info.
-                As the argument parser loads around 16 default frame
-                samples dynamically, this can add add up as each may
-                take 10s of microseconds. For many-framed tables
-                and other applications this can add up.
-                Set false for performance improvement."
-            -etabs          -default 0\
-                -help "expanding tabs - experimental/unimplemented."
-            -type           -default light\
-                -type dict\
-                -typesynopsis {${$I}choice${$NI}|<${$I}dict${$NI}>}\
-                -choices {${[textblock::frametypes]}}\
-                -choicerestricted 0 -choicecolumns 8\
-                -choicelabels {
-                    ${[textblock::frame_samples]}
-                }\
-                -help "Type of border for frame."
-            -boxlimits      -default {hl vl tlc blc trc brc} -type list -help "Limit the border box to listed elements.
-                passing an empty string will result in no box, but title/subtitle will still appear if supplied.
-                ${[textblock::EG]}e.g: -frame -boxlimits {} -title things [a+ red White]my\\ncontent${[textblock::RST]}"
-            -boxmap         -default {} -type dict
-            -joins          -default {} -type list
-            -title          -default "" -type string -regexprefail {\n}\
-                -help "Frame title placed on topbar - no newlines.
-                May contain ANSI - no trailing reset required.
-                ${[textblock::EG]}e.g 1: frame -title My[a+ green]Green[a]Thing
-                e.g 2: frame -title [a+ red underline]MyThing${[textblock::RST]}"
-            -titlealign     -default "centre" -choices {left centre right}
-            -subtitle       -default "" -type string -regexprefail {\n}\
-                -help "Frame subtitle placed on bottombar - no newlines
-                May contain Ansi - no trailing reset required."
-            -subtitlealign  -default "centre" -choices {left centre right}
-            -width          -default "" -type int\
-                -help "Width of resulting frame including borders.
-                If omitted or empty-string, the width will be determined automatically based on content."
-            -height         -default "" -type int\
-                -help "Height of resulting frame including borders."
-            -ansiborder     -default "" -type ansistring\
-                -help "Ansi escape sequence to set border attributes.
-                ${[textblock::EG]}e.g 1: frame -ansiborder [a+ web-red] contents
-                e.g 2: frame -ansiborder \"\\x1b\\\[31m\" contents${[textblock::RST]}"
-            -ansibase       -default "" -type ansistring\
-                -help "Default ANSI attributes within frame."
-            -blockalign     -default centre -choices {left right centre}\
-                -help "Alignment of the content block within the frame."
-            -pad            -default 1 -type boolean -help "Whether to pad within the ANSI so content background
-                extends within the content block inside the frame.
-                Has no effect if no ANSI in content."
-            -textalign      -default left -choices {left right centre}\
-                -help "Alignment of text within the content block. (centre unimplemented)"
-            -ellipsis       -default 1 -type boolean\
-                -help "Whether to show elipsis for truncated content and title/subtitle."
-            -usecache       -default 1 -type boolean
-            -buildcache     -default 1 -type boolean
-            -crm_mode       -default 0 -type boolean\
-                -help "Show ANSI control characters within frame contents.
-                (Control Representation Mode)
-                Frame width doesn't adapt and content may be truncated
-                so -width may need to be manually set to display more."
-
-            @values -min 0 -max 1
-            contents -default "" -type string\
-                -help "Frame contents - may be a block of text containing newlines and ANSI.
-                Text may be 'ragged' - ie unequal line-lengths.
-                No trailing ANSI reset required.
-                ${[textblock::EG]}e.g: frame \"[a+ blue White] \\nMy blue foreground text on\\nwhite background\\n\"${[textblock::RST]}"
-        }
-    }
-
-    #options before content argument - which is allowed to be absent
-    #frame performance (noticeable with complex tables even of modest size) is improved somewhat by frame_cache - but is still (2024) a fairly expensive operation.
-    #
-    #consider if we can use -sticky nsew instead of -blockalign (as per Tk grid -sticky option)
-    # This would require some sort of expand equivalent e.g for -sticky ew or -sticky ns - for which we have to decide a meaning for text.. e.g ansi padding?
-    #We are framing 'rendered' text - so we don't have access to for example an inner frame or table to tell it to expand
-    #we could refactor as an object and provide a -return object option, then use stored -sticky data to influence how another object renders into it
-    # - but we would need to maintain support for the rendered-string based operations too.
-    proc frame {args} {
-        variable frametypes
-        variable use_hash
-
-        #counterintuitively - in-proc dict create each time is generally slightly faster than linked namespace var
-        set opts [tcl::dict::create\
-            -etabs 0\
-            -type light\
-            -boxlimits [list hl vl tlc blc trc brc]\
-            -boxmap {}\
-            -joins [list]\
-            -title ""\
-            -titlealign "centre"\
-            -subtitle ""\
-            -subtitlealign "centre"\
-            -width ""\
-            -height ""\
-            -ansiborder ""\
-            -ansibase ""\
-            -blockalign "centre"\
-            -textalign "left"\
-            -ellipsis 1\
-            -usecache 1\
-            -buildcache 1\
-            -pad 1\
-            -crm_mode 0\
-            -checkargs 1\
-        ]
-        #-pad 1 is default so that simple 'textblock::frame "[a+ Red]a  \nbbb[a]"  extends the bg colour on the short ragged lines (and empty lines)
-        # for ansi art - -pad 0 is likely to be preferable
-
-        set has_contents 0
-        set optlist $args ;#initial only - content will be removed
-        #no solo opts for frame
-        if {[llength $args] %2 == 0} {
-            if {[lindex $args end-1] eq "--"} {
-                set contents [lpop optlist end]
-                set has_contents 1
-                #lpop optlist end
-                ledit optlist end end;#drop the end-of-opts flag
-            } else {
-                set optlist $args
-                set contents ""
-            }
-        } else {
-            set contents [lpop optlist end]
-            set has_contents 1
-        }
-
-        #todo args -justify left|centre|right (center)
-        #todo -blockalignbias -textalignbias?
-        #use -buildcache 1 with -usecache 0 for debugging cache issues so we can inspect using textblock::frame_cache
-        set optnames [tcl::dict::keys $opts]
-        set opts_ok 1 ;#default assumption
-        #NOTE: mis-spelling options in this list can trigger $opt_ok false
-        #and fallback to using punk::args to parse unnecessarily. - performance can degrate noticeably on tables
-        foreach {k v} $optlist {
-            set k2 [tcl::prefix::match -error "" $optnames $k]
-            switch -- $k2 {
-                -etabs - -type - -boxlimits - -boxmap - -joins
-                - -title - -titlealign - -subtitle - -subtitlealign - -width - -height
-                - -ansiborder - -ansibase
-                - -blockalign - -textalign - -ellipsis
-                - -crm_mode
-                - -usecache - -buildcache - -pad
-                - -checkargs {
-                    tcl::dict::set opts $k2 $v
-                }
-                default {
-                    #error "frame option '$k' not understood. Valid options are $optnames"
-                    set opts_ok 0
-                    break
-                }
-            }
-        }
-        set check_args [dict get $opts -checkargs]
-
-        #only use punk::args if check_args is true or our basic checks failed
-        #never need to checkargs if only one argument supplied even if it looks like an option - as it will be treated as data to frame
-        if {[llength $args] != 1 && (!$opts_ok || $check_args)} {
-            #as frame is called a lot within table building - checking args can have a *big* impact on final performance.
-            set argd  [punk::args::parse $args withid ::textblock::frame]
-            set opts [dict get $argd opts]
-            set contents [dict get $argd values contents]
-        }
-
-        # -- --- --- --- --- ---
-        # cache relevant
-        set opt_usecache    [tcl::dict::get $opts -usecache]
-        set opt_buildcache  [tcl::dict::get $opts -buildcache]
-        set usecache $opt_usecache ;#may need to override
-        set opt_etabs       [tcl::dict::get $opts -etabs] ;#affects contentwidth - needed before cache determination
-        set opt_crm_mode    [tcl::dict::get $opts -crm_mode]
-        # -- --- --- --- --- ---
-        set opt_type        [tcl::dict::get $opts -type]
-        set opt_boxlimits   [tcl::dict::get $opts -boxlimits]
-        set opt_joins       [tcl::dict::get $opts -joins]
-        set opt_boxmap      [tcl::dict::get $opts -boxmap]
-        set buildcache $opt_buildcache
-        set opt_pad         [tcl::dict::get $opts -pad]
-        # -- --- --- --- --- ---
-        set opt_title       [tcl::dict::get $opts -title]
-        set opt_subtitle    [tcl::dict::get $opts -subtitle]
-        set opt_width       [tcl::dict::get $opts -width]
-        set opt_height      [tcl::dict::get $opts -height]
-        # -- --- --- --- --- ---
-        set opt_ansiborder [tcl::dict::get $opts -ansiborder]
-        set opt_ansibase   [tcl::dict::get $opts -ansibase] ;#experimental
-        set opt_ellipsis   [tcl::dict::get $opts -ellipsis]
-
-        set opt_blockalign     [tcl::dict::get $opts -blockalign]
-        set opt_textalign      [tcl::dict::get $opts -textalign]
-
-        set custom_keys [list hl hlt hlb vl vll vlr tlc trc blc brc]
-
-        set known_frametypes $frametypes ;# light, heavey etc as defined in the ::textblock::frametypes variable
-        set default_custom [tcl::dict::create hl " " vl " " tlc " " trc " " blc " " brc " "]
-
-        lassign [textblock::frametype $opt_type] _cat category _type ftype
-        if {$category eq "custom"} {
-            set custom_frame $ftype
-            set frameset "custom"
-            set framedef $custom_frame
-        } else {
-            #category = predefined
-            set frameset $ftype ;# light,heavy etc
-            set framedef $ftype
-        }
-
-        #if check_args?
-
-
-        #REVIEW - now done in framedef?
-        #set join_directions [list]
-        ##targets - light,heavy (double?) - seem to be some required glyphs missing from unicode
-        ##e.g down-light, up-heavy
-        #set join_targets [tcl::dict::create left "" down "" right "" up ""]
-        #foreach jt $opt_joins {
-        #    lassign [split $jt -] direction target
-        #    if {$target ne ""} {
-        #        tcl::dict::set join_targets $direction $target
-        #    }
-        #    lappend join_directions $direction
-        #}
-        #set join_directions [lsort -unique $join_directions]
-        #set do_joins [::join $join_directions _]
-
-
-
-
-        # -- --- --- --- --- ---
-
-        if {$has_contents} {
-            if {[tcl::string::last \t $contents] >= 0} {
-                if {[tcl::info::exists punk::console::tabwidth]} {
-                    set tw $::punk::console::tabwidth
-                } else {
-                    set tw 8
-                }
-                if {$opt_etabs} {
-                    #todo
-                    set contents [textutil::tabify::untabify2 $contents $tw]
-                }
-            }
-            set contents [tcl::string::map {\r\n \n} $contents]
-            if {$opt_crm_mode} {
-                if {$opt_height eq ""} {
-                    set h [textblock::height $contents]
-                } else {
-                    set h [expr {$opt_height -2}]
-                }
-                if {$opt_width eq ""} {
-                    set w [textblock::width $contents]
-                } else {
-                    set w [expr {$opt_width -2}]
-                }
-                set contents [overtype::renderspace -crm_mode 1 -wrap 1 -width $w -height $h "" $contents]
-                set actual_contentwidth $w
-                set actual_contentheight $h
-            } else {
-                #set actual_contentwidth [textblock::width $contents] ;#length of longest line in contents (contents can be ragged)
-                #set actual_contentheight [textblock::height $contents]
-                lassign [textblock::size_as_list $contents] actual_contentwidth actual_contentheight
-            }
-        } else {
-            set actual_contentwidth 0
-            set actual_contentheight 0
-        }
-
-        if {$opt_title ne ""} {
-            set titlewidth [punk::ansi::printing_length $opt_title]
-            set content_or_title_width [expr {max($actual_contentwidth,$titlewidth)}]
-        } else {
-            set titlewith 0
-            set content_or_title_width  $actual_contentwidth
-        }
-        #opt_subtitle ??
-
-        if {$opt_width eq ""} {
-            set frame_inner_width $content_or_title_width
-        } else {
-            set frame_inner_width [expr {max(0,$opt_width - 2)}] ;#default
-        }
-
-        if {$opt_height eq ""} {
-            set frame_inner_height $actual_contentheight
-        } else {
-            set frame_inner_height [expr {max(0,$opt_height -2)}] ;#default
-        }
-        if {$frame_inner_height == 0 && $frame_inner_width == 0} {
-            set has_contents 0
-        }
-        #todo - render it with vertical overflow so we can process ansi moves?
-        #set linecount [textblock::height $contents]
-        set linecount $frame_inner_height
-
-        # -- --- --- --- --- --- --- --- ---
-        variable frame_cache
-        #review - custom frame affects frame_inner_width - exclude from caching?
-        #set cache_key [concat $optlist $frame_inner_width $frame_inner_height]
-        #jmn
-        #set hashables [concat $optlist $frame_inner_width $frame_inner_height]
-        set hashables [list {*}$optlist $frame_inner_width $frame_inner_height]
-
-
-        switch -- $use_hash {
-            sha1 {
-                package require sha1
-                set hash [sha1::sha1 [encoding convertto utf-8 $hashables]]
-            }
-            sha256 {
-                package require sha256
-                set hash [sha2::sha256 [encoding convertto utf-8 $hashables]]
-            }
-            md5 {
-                package require md5
-                if {[package vsatisfies [package present md5] 2- ] } {
-                    set hash [md5::md5 -hex [encoding convertto utf-8 $hashables]] ;#need fast and unique to content - not cryptographic - review
-                } else {
-                    set hash [md5::md5 [encoding convertto utf-8 $hashables]]
-                }
-            }
-            default {
-                set hash $hashables
-            }
-        }
-
-        set cache_key "$hash-$frame_inner_width-$frame_inner_height-actualcontentwidth:$actual_contentwidth"
-        #should be in a unicode private range different to that used in table construction
-        #e.g BMP PUA U+E000 -> U+F8FF  - although this is commonly used for example by nerdfonts
-        #also supplementary private use blocks
-        #however these display double wide on for example cmd terminal despite having wcswidth 1 (makes layout debugging difficult)
-        #U+F0000 -> U+FFFD
-        #U+100000 -> U+10FFFD
-        #FSUB options: \uf0ff \uF1FF \uf2ff (no nerdfont glyphs - should look like standard replacement char) \uF2DD (circular thingy)
-        #should be something someone is unlikely to use as part of a custom frame character.
-        #ideally a glyph that doesn't auto-expand into whitespace and is countable when in a string (narrower is better)
-        #As nerdfont glyphs tend to be mostly equal height & width - circular glyphs tend to be more distinguishable in a string
-        #terminal settings may need to be adjusted to stop auto glyph resizing - a rather annoying misfeature that some people seem to think they like.
-        #e.g in wezterm config: allow_square_glyphs_to_overflow_width = "Never"
-        #review - we could consider wasting a few cycles to check for a conflict and use a different FSUB
-        set FSUB \uF2DD
-
-
-        #this occurs commonly in table building with colspans - review
-        if {($actual_contentwidth > $frame_inner_width) || ($actual_contentheight != $frame_inner_height)} {
-            set usecache 0
-            #set buildcache 0 ;#comment out for debug/analysis so we can see
-            #puts "--->> frame_inner_width:$frame_inner_width actual_contentwidth:$actual_contentwidth contents: '$contents'"
-            set cache_key [a+ Web-red web-white]$cache_key[a]
-        }
-        if {$buildcache && ($actual_contentwidth < $frame_inner_width)} {
-            #colourise cache_key to warn
-            if {$actual_contentwidth == 0} {
-                #we can still substitute with right length
-                set cache_key [a+ Web-steelblue web-black]$cache_key[a]
-            } else {
-                #actual_contentwidth is narrower than frame - check template's patternwidth
-                if {[tcl::dict::exists $frame_cache $cache_key]} {
-                    set cache_patternwidth [tcl::dict::get $frame_cache $cache_key patternwidth]
-                } else {
-                    set cache_patternwidth $actual_contentwidth
-                }
-                if {$actual_contentwidth < $cache_patternwidth} {
-                    set usecache 0
-                    set cache_key [a+ Web-orange web-black]$cache_key[a]
-                } elseif {$actual_contentwidth == $cache_patternwidth} {
-                    #set usecache 1
-                } else {
-                    #actual_contentwidth > pattern
-                    set usecache 0
-                    set cache_key [a+ Web-red web-black]$cache_key[a]
-                }
-            }
-        }
-
-        #JMN debug
-        #set usecache 0
-
-        set is_cached 0
-        if {$usecache && [tcl::dict::exists $frame_cache $cache_key]} {
-            set cache_patternwidth [tcl::dict::get $frame_cache $cache_key patternwidth]
-            set template [tcl::dict::get $frame_cache $cache_key frame]
-            set used [tcl::dict::get $frame_cache $cache_key used]
-            tcl::dict::set frame_cache $cache_key used [expr {$used+1}] ;#update existing record
-            set is_cached 1
-        }
-
-
-        # -- --- --- --- --- --- --- --- ---
-        if {!$is_cached} {
-            # -- --- --- --- ---
-            # -- --- --- --- ---
-            set is_joins_ok 1
-            foreach v $opt_joins {
-                lassign [split $v -] direction target
-                switch -- $direction {
-                    left - right - up - down {}
-                    default {
-                        set is_joins_ok 0
-                        break
-                    }
-                }
-                switch -- $target {
-                    "" - light - light_b - light_c - heavy - heavy_b - heavy_c - ascii - altg - arc - arc_b - arc_c - double - custom - block - block1 - block2 {}
-                    default {
-                        set is_joins_ok 0
-                        break
-                    }
-                }
-            }
-            if {!$is_joins_ok} {
-                error "frame option -joins '$opt_joins' must contain only values from the set: left,right,up,down with targets heavy,light,ascii,altg,arc,double,block,block1,custom e.g down-light"
-            }
-            # -- --- --- --- --- ---
-            set is_boxmap_ok 1
-            tcl::dict::for {boxelement subst} $opt_boxmap {
-                switch -- $boxelement {
-                    hl - hlt - hlb - vl - vll - vlr - tlc - trc - blc - brc {}
-                    hltj - hlbj - vllj - vlrj {}
-                    default {
-                        set is_boxmap_ok 0
-                        break
-                    }
-                }
-            }
-            if {!$is_boxmap_ok} {
-                error "frame option -boxmap '$opt_boxmap' must contain only keys from the set: hl,hlt,hlb,vl,vll,vlr,tlc,trc,blc,brc,hltj,hlbj,vllj,vlrj"
-            }
-            # -- --- --- --- --- ---
-            #these are all valid commands for overtype::<cmd>
-            switch -- $opt_textalign {
-                left - right - centre - center {}
-                default {
-                    error "frame option -textalign must be left|right|centre|center - received: $opt_textalign"
-                }
-            }
-            # -- --- --- --- --- ---
-            switch -- $opt_blockalign {
-                left - right - centre - center {}
-                default {
-                    error "frame option -blockalign must be left|right|centre|center - received: $opt_blockalign"
-                }
-            }
-            # -- --- --- --- ---
-            # -- --- --- --- ---
-            set is_boxlimits_ok 1
-            set exact_boxlimits [list]
-            foreach v $opt_boxlimits {
-                switch -- $v {
-                    hl {
-                        lappend exact_boxlimits hlt hlb
-                    }
-                    vl {
-                        lappend exact_boxlimits vll vlr
-                    }
-                    hlt - hlb - vll - vlr - tlc - trc - blc - brc {
-                        lappend exact_boxlimits $v
-                    }
-                    default {
-                        #k not in custom_keys
-                        set is_boxlimits_ok 0
-                        break
-                    }
-                }
-            }
-            #review vllj etc?
-            if {!$is_boxlimits_ok} {
-                error "frame option -boxlimits '$opt_boxlimits' must contain only values from the set: hl,hlt,hlb,vl,vll,vlr,tlc,trc,blc,brc"
-            }
-            set exact_boxlimits [lsort -unique $exact_boxlimits]
-            # -- --- --- --- --- ---
-
-
-            set rst [a]
-            #set column [tcl::string::repeat " " $frame_inner_width] ;#default - may need to override for custom frame
-            set underlayline [tcl::string::repeat " " $frame_inner_width]
-            set underlay [::join [lrepeat $linecount $underlayline] \n]
-
-
-            set vll_width 1 ;#default for all except custom (printing width)
-            set vlr_width 1
-
-            set framedef [textblock::framedef  -joins $opt_joins $framedef]
-            tcl::dict::with framedef {} ;#extract vll,hlt,tlc etc vars
-
-            #puts "---> $opt_boxmap"
-            #review - we handle double-wide in custom frames - what about for boxmaps?
-            tcl::dict::for {boxelement sub} $opt_boxmap {
-                if {$boxelement eq "vl"} {
-                    set vll $sub
-                    set vlr $sub
-                    set hl $sub
-                } elseif {$boxelement eq "hl"} {
-                    set hlt $sub
-                    set hlb $sub
-                    set hl $sub
-                } else {
-                    set $boxelement $sub
-                }
-            }
-
-            switch -- $frameset {
-                custom {
-                    #REVIEW - textblock::table assumes that at least the vl elements are 1-wide
-                    #generally supporting wider or taller custom frame elements would make for some interesting graphical possibilities though
-                    #if no ansi, these widths are reasonable to maintain in grapheme_width_cached indefinitely
-                    set vll_width [punk::ansi::printing_length $vll]
-                    set hlb_width [punk::ansi::printing_length $hlb]
-                    set hlt_width [punk::ansi::printing_length $hlt]
-
-                    set vlr_width [punk::ansi::printing_length $vlr]
-
-                    set tlc_width [punk::ansi::printing_length $tlc]
-                    set trc_width [punk::ansi::printing_length $trc]
-                    set blc_width [punk::ansi::printing_length $blc]
-                    set brc_width [punk::ansi::printing_length $brc]
-
-
-                    set framewidth [expr {$frame_inner_width + 2}] ;#reverse default assumption
-                    if {$opt_width eq ""} {
-                        #width wasn't specified - so user is expecting frame to adapt to title/contents
-                        #content shouldn't truncate because of extra wide frame
-                        #review - punk::console::get_size ?  wrapping? quite hard to support with colspans
-                        set frame_inner_width $content_or_title_width
-                        set tbarwidth [expr {$content_or_title_width + 2 - $tlc_width - $trc_width - 2 + $vll_width + $vlr_width}] ;#+/2's for difference between border element widths and standard element single-width
-                        set bbarwidth [expr {$content_or_title_width + 2 - $blc_width - $brc_width - 2 + $vll_width + $vlr_width}]
-                    } else {
-                        set frame_inner_width [expr $opt_width - $vll_width - $vlr_width]  ;#content may be truncated
-                        set tbarwidth [expr {$opt_width - $tlc_width - $trc_width}]
-                        set bbarwidth [expr {$opt_width - $blc_width - $brc_width}]
-                    }
-                    #set column [tcl::string::repeat " " $frame_inner_width]
-                    set underlayline [tcl::string::repeat " " $frame_inner_width]
-                    set underlay [::join [lrepeat $linecount $underlayline] \n]
-                    #cache?
-
-                    if {$hlt_width == 1} {
-                        set tbar [tcl::string::repeat $hlt $tbarwidth]
-                    } else {
-                        #possibly mixed width chars that make up hlt - tcl::string::range won't get width right
-                        set blank [tcl::string::repeat " " $tbarwidth]
-                        if {$hlt_width > 0} {
-                            set count [expr {($tbarwidth / $hlt_width) + 1}]
-                        } else {
-                            set count 0
-                        }
-                        set tbar [tcl::string::repeat $hlt $count]
-                        #set tbar [tcl::string::range $tbar 0 $tbarwidth-1]
-                        set tbar [overtype::left -overflow 0 -exposed1 " " -exposed2 " " $blank $tbar];#spaces for exposed halves of 2w chars instead of default replacement character
-                    }
-                    if {$hlb_width == 1} {
-                        set bbar [tcl::string::repeat $hlb $bbarwidth]
-                    } else {
-                        set blank [tcl::string::repeat " " $bbarwidth]
-                        if {$hlb_width > 0} {
-                            set count [expr {($bbarwidth / $hlb_width) + 1}]
-                        } else {
-                            set count 0
-                        }
-                        set bbar [tcl::string::repeat $hlb $count]
-                        #set bbar [tcl::string::range $bbar 0 $bbarwidth-1]
-                        set bbar [overtype::left -overflow 0 -exposed1 " " -exposed2 " " $blank $bbar]
-                    }
-                }
-                altg {
-                    set tbar [tcl::string::repeat $hlt $frame_inner_width]
-                    #set tbar [cd::groptim $tbar]
-                    set tbar [punk::ansi::groptim $tbar]
-                    set bbar [tcl::string::repeat $hlb $frame_inner_width]
-                    #set bbar [cd::groptim $bbar]
-                    set bbar [punk::ansi::groptim $bbar]
-                }
-                default {
-                    set tbar [tcl::string::repeat $hlt $frame_inner_width]
-                    set bbar [tcl::string::repeat $hlb $frame_inner_width]
-
-                }
-            }
-
-            set leftborder 0
-            set rightborder 0
-            set topborder 0
-            set bottomborder 0
-            #        hl - hlt - hlb - vl - vll - vlr - tlc - trc - blc - brc {}
-            #puts "----->$exact_boxlimits"
-            foreach lim $exact_boxlimits {
-                switch -- $lim {
-                    hlt {
-                        set topborder 1
-                    }
-                    hlb {
-                        set bottomborder 1
-                    }
-                    vll {
-                        set leftborder 1
-                    }
-                    vlr {
-                        set rightborder 1
-                    }
-                    tlc {
-                        set topborder 1
-                        set leftborder 1
-                    }
-                    trc {
-                        set topborder 1
-                        set rightborder 1
-                    }
-                    blc {
-                        set bottomborder 1
-                        set leftborder 1
-                    }
-                    brc {
-                        set bottomborder 1
-                        set rightborder 1
-                    }
-                }
-            }
-            if {$opt_width ne "" && $opt_width < 2} {
-                set rightborder 0
-            }
-            #keep lhs/rhs separate? can we do vertical text on sidebars?
-            set lhs [tcl::string::repeat $vll\n $linecount]
-            set lhs [tcl::string::range $lhs 0 end-1]
-            set rhs [tcl::string::repeat $vlr\n $linecount]
-            set rhs [tcl::string::range $rhs 0 end-1]
-
-
-            if {$opt_ansiborder ne ""} {
-                set tbar $opt_ansiborder$tbar$rst
-                set bbar $opt_ansiborder$bbar$rst
-                set tlc $opt_ansiborder$tlc$rst
-                set trc $opt_ansiborder$trc$rst
-                set blc $opt_ansiborder$blc$rst
-                set brc $opt_ansiborder$brc$rst
-
-                set lhs $opt_ansiborder$lhs$rst ;#wrap the whole block and let textblock::join figure it out
-                set rhs $opt_ansiborder$rhs$rst
-            }
-
-            #boxlimits used for partial borders in table generation
-            set all_exact_boxlimits [list vll vlr hlt hlb tlc blc trc brc]
-            set unspecified_limits [struct::set difference $all_exact_boxlimits $exact_boxlimits]
-            foreach lim $unspecified_limits {
-                switch -- $lim {
-                    vll {
-                        set blank_vll [tcl::string::repeat " " $vll_width]
-                        set lhs [tcl::string::repeat $blank_vll\n $linecount]
-                        set lhs [tcl::string::range $lhs 0 end-1]
-                    }
-                    vlr {
-                        set blank_vlr [tcl::string::repeat " " $vlr_width]
-                        set rhs [tcl::string::repeat $blank_vlr\n $linecount]
-                        set rhs [tcl::string::range $rhs 0 end-1]
-                    }
-                    hlt {
-                        set bar_width [punk::ansi::printing_length $tbar]
-                        set tbar [tcl::string::repeat " " $bar_width]
-                    }
-                    tlc {
-                        set tlc_width [punk::ansi::printing_length $tlc]
-                        set tlc [tcl::string::repeat " " $tlc_width]
-                    }
-                    trc {
-                        set trc_width [punk::ansi::printing_length $trc]
-                        set trc [tcl::string::repeat " " $trc_width]
-                    }
-                    hlb {
-                        set bar_width [punk::ansi::printing_length $bbar]
-                        set bbar [tcl::string::repeat " " $bar_width]
-                    }
-                    blc {
-                        set blc_width [punk::ansi::printing_length $blc]
-                        set blc [tcl::string::repeat " " $blc_width]
-                    }
-                    brc {
-                        set brc_width [punk::ansi::printing_length $brc]
-                        set brc [tcl::string::repeat " " $brc_width]
-                    }
-                }
-            }
-
-            if {$opt_title ne ""} {
-                set titlealign [dict get $opts -titlealign]
-                set titlealignfull [tcl::prefix::match -error "" {left centre right} $titlealign]
-                if {$titlealignfull ni {left centre right}} {
-                    error "textblock::frame -titlealign must be one of {left centre right} or a unique prefix thereof. Received $titlealign"
-                }
-                #set topbar [overtype::centre -overflow 0 -exposed1 " " -exposed2 " " -ellipsis 1 -bias left $tbar $opt_title] ;#overtype supports gx0 on/off
-                set topbar [overtype::block -blockalign $titlealignfull -overflow 0 -exposed1 " " -exposed2 " " -ellipsis 1 $tbar $opt_title] ;#overtype supports gx0 on/off
-            } else {
-                set topbar $tbar
-            }
-            if {$opt_subtitle ne ""} {
-                set titlealign [dict get $opts -subtitlealign]
-                set titlealignfull [tcl::prefix::match -error "" {left centre right} $titlealign]
-                if {$titlealignfull ni {left centre right}} {
-                    error "textblock::frame -subtitlealign must be one of {left centre right} or a unique prefix thereof. Received $titlealign"
-                }
-                #set bottombar [overtype::centre -overflow 0 -exposed1 " " -exposed2 " " -ellipsis 1 -bias left $bbar $opt_subtitle] ;#overtype supports gx0 on/off
-                set bottombar [overtype::block -blockalign $titlealignfull -overflow 0 -exposed1 " " -exposed2 " " -ellipsis 1 $bbar $opt_subtitle] ;#overtype supports gx0 on/off
-            } else {
-                set bottombar $bbar
-            }
-            if {$opt_ansibase eq ""} {
-                set rstbase [a]
-            } else {
-                set rstbase [a]$opt_ansibase
-            }
-
-            if {$opt_title ne ""} {
-                #title overrides -boxlimits for topborder
-                set topborder 1
-            }
-            set fs ""
-            set fscached ""
-            set cache_patternwidth 0
-            #todo - output nothing except maybe newlines depending on if opt_height 0 and/or opt_width 0?
-            if {$topborder} {
-                if {$leftborder && $rightborder} {
-                    append fs $tlc$topbar$trc
-                } else {
-                    if {$leftborder} {
-                        append fs $tlc$topbar
-                    } elseif {$rightborder} {
-                        append fs $topbar$trc
-                    } else {
-                        append fs $topbar
-                    }
-                }
-            }
-            append fscached $fs
-            if {$has_contents || $opt_height > 2} {
-                #if {$topborder && $fs ne "xx"} {
-                #    append fs \n
-                #}
-                if {$topborder} {
-                    append fs \n
-                    append fscached \n
-                }
-                switch -- $opt_textalign {
-                    right   {set pad "left"}
-                    left    {set pad "right"}
-                    default {set pad $opt_textalign}
-                }
-                #set textaligned_contents [textblock::pad $contents -width $actual_contentwidth -which $pad -within_ansi 1]
-                #set inner [overtype::block -blockalign $opt_blockalign -ellipsis $opt_ellipsis $opt_ansibase$underlay$rstbase $opt_ansibase$textaligned_contents]
-
-                set cache_contentline [tcl::string::repeat $FSUB $actual_contentwidth]
-                set cache_patternwidth $actual_contentwidth
-                set cache_contentpattern [::join [lrepeat $linecount $cache_contentline] \n]
-
-                #review - why do we wrap before overtype call if they have same ansibase?
-                #underlay is just a block of spaces
-                #set wrapped_underlay $opt_ansibase$underlay$rstbase
-                #cache_contentpattern is replacement chars
-                #set wrapped_cache_contentpattern   $opt_ansibase$cache_contentpattern
-
-                set cache_inner [overtype::block -blockalign $opt_blockalign -ellipsis $opt_ellipsis $underlay $cache_contentpattern]
-                #puts "frame--->ansiwrap -rawansi [ansistring VIEW $opt_ansibase] $cache_inner"
-                if {$opt_ansibase ne ""} {
-                    if {[punk::ansi::ta::detectcode $cache_inner]} {
-                        #set cache_inner [punk::ansi::ansiwrap -rawansi $opt_ansibase $cache_inner]
-                        #set cache_inner [punk::ansi::ansiwrap_raw $opt_ansibase "" "" $cache_inner]
-                        #jjj ??? review
-                        set cache_inner [punk::ansi::ansiwrap_raw $opt_ansibase "\x1b\[m" "" $cache_inner]
-                    } else {
-                        #!!!
-                        set cache_inner "$opt_ansibase$cache_inner\x1b\[0m"
-                    }
-                }
-
-
-
-                #after overtype::block - our actual patternwidth may be less
-                set cache_patternwidth [tcl::string::length [lindex [regexp -inline "\[^$FSUB]*(\[$FSUB]*).*" $cache_inner] 1]]
-
-                if {$leftborder && $rightborder} {
-                    #set bodyparts [list $lhs $inner $rhs]
-                    set cache_bodyparts [list $lhs $cache_inner $rhs]
-                } else {
-                    if {$leftborder} {
-                        #set bodyparts [list $lhs $inner]
-                        set cache_bodyparts [list $lhs $cache_inner]
-                    } elseif {$rightborder} {
-                        #set bodyparts [list $inner $rhs]
-                        set cache_bodyparts [list $cache_inner $rhs]
-                    } else {
-                        #set bodyparts [list $inner]
-                        set cache_bodyparts [list $cache_inner]
-                    }
-                }
-                #set body [textblock::join -- {*}$bodyparts]
-
-                #JMN test
-                #assert - lhs, cache_inner, rhs non-ragged - so can use join_basic REVIEW
-                #set cache_body [textblock::join -- {*}$cache_bodyparts]
-                #set cache_body [textblock::join_basic -- {*}$cache_bodyparts]
-                set cache_body [textblock::join_basic_raw {*}$cache_bodyparts]
-
-                append fscached $cache_body
-                #append fs $body
-            }
-
-            if {$opt_height eq "" || $opt_height > 1} {
-                if {$opt_subtitle ne ""} {
-                    #subtitle overrides boxlimits for bottomborder
-                    set bottomborder 1
-                }
-                if {$bottomborder} {
-                    if {($topborder & $fs ne "xx" ) || ($has_contents || $opt_height > 2)} {
-                        #append fs \n
-                        append fscached \n
-                    }
-                    if {$leftborder && $rightborder} {
-                        #append fs $blc$bottombar$brc
-                        append fscached $blc$bottombar$brc
-                    } else {
-                        if {$leftborder} {
-                            #append fs $blc$bottombar
-                            append fscached $blc$bottombar
-                        } elseif {$rightborder} {
-                            #append fs $bottombar$brc
-                            append fscached $bottombar$brc
-                        } else {
-                            #append fs $bottombar
-                            append fscached $bottombar
-                        }
-                    }
-                }
-            }
-            set template $fscached
-            ;#end !$is_cached
-        }
-
-
-
-
-        #use the same mechanism to build the final frame - whether from cache or template
-        if {$actual_contentwidth == 0} {
-            set fs [tcl::string::map [list $FSUB " "] $template]
-        } else {
-            switch -- $opt_textalign {
-                left    {set pad right}
-                right   {set pad left}
-                default {set pad $opt_textalign}
-            }
-
-            #review
-            if {[tcl::string::is integer -strict $opt_height] && $actual_contentheight < ($opt_height -2)} {
-                set diff [expr {($opt_height -2) - $actual_contentheight}]
-                append contents [::join [lrepeat $diff \n] ""] ;# should not affect actual_contentwidth
-            }
-
-            #set cwidth [textblock::width $contents]
-            #JJJ
-            set contents_has_ansi [punk::ansi::ta::detectcode $contents]
-            if {$opt_ansibase ne ""} {
-                if {$contents_has_ansi} {
-                    #set contents [punk::ansi::ansiwrap -rawansi $opt_ansibase $contents]
-                    #set contents [punk::ansi::ansiwrap_raw $opt_ansibase "" "" $contents]
-                    #jjj
-                    set contents [punk::ansi::ansiwrap_raw $opt_ansibase "\x1b\[m" "" $contents]
-                    #set contents "$opt_ansibase$contents\x1b\[0m"
-                } else {
-                    set contents "$opt_ansibase$contents\x1b\[0m"
-                    set contents_has_ansi 1
-                }
-            }
-
-            set cwidth $actual_contentwidth
-            if {$opt_pad} {
-                set paddedcontents [textblock::pad $contents -known_blockwidth $cwidth -which $pad -within_ansi 1] ;#autowidth to width of content (should match cache_patternwidth)
-                set paddedwidth  [textblock::widthtopline $paddedcontents]
-                #review - horizontal truncation
-                if {$paddedwidth > $cache_patternwidth} {
-                    set paddedcontents [overtype::renderspace -width $cache_patternwidth "" $paddedcontents]
-                }
-                #important to supply end of opts -- to textblock::join - particularly here with arbitrary data
-                if {$contents_has_ansi} {
-                    set contentblock [textblock::join -- $paddedcontents] ;#make sure each line has ansi replays
-                } else {
-                    set contentblock $paddedcontents
-                }
-            } else {
-                if {$cwidth > $cache_patternwidth} {
-                    set contents [overtype::renderspace -width $cache_patternwidth "" $contents]
-                }
-                if {$contents_has_ansi} {
-                    set contentblock [textblock::join -- $contents] ;# adds ansiresets and any required replays on each line
-                } else {
-                    set contentblock $contents
-                }
-            }
-
-            set tlines [split $template \n]
-
-            #we will need to strip off the leading reset on each line when stitching together with template lines so that ansibase can come into play too.
-            #after textblock::join the reset will be a separate code ie should be exactly ESC[0m
-            set clines [split $contentblock \n]
-
-            set fs ""
-            #set overwritable [tcl::string::repeat $FSUB $cache_patternwidth]
-            set pattern_offset [expr {$cache_patternwidth -1}]
-            set contentindex 0
-            foreach tline $tlines {
-                set subposn [tcl::string::first $FSUB $tline]
-                if {$subposn >= 0} {
-                    set content_line [lindex $clines $contentindex]
-                    #review - different forms of reset e.g \x1b\[m ??
-                    if {[tcl::string::range $content_line 0 3] eq "\x1b\[0m"} {
-                        set content_line [tcl::string::range $content_line 4 end]
-                        #::tcl::string::replace content_line 0 3
-                    }
-                    append content_line $opt_ansibase
-                    append fs [tcl::string::replace $tline $subposn $subposn+$pattern_offset $content_line] \n
-                    incr contentindex
-                } else {
-                    append fs $tline \n
-                }
-            }
-            if {[string index $fs end] eq "\n"} {
-                set fs [string range $fs 0 end-1]
-            }
-        }
-
-
-        if {$is_cached} {
-            return $fs
-        } else {
-            if {$buildcache} {
-                tcl::dict::set frame_cache $cache_key [list frame $template used 0 patternwidth $cache_patternwidth]
-            }
-            return $fs
-        }
-    }
-    punk::args::define {
-                @id     -id ::textblock::gcross
-                -max_cross_size -default 0 -type integer -help "Largest size cross to use to make up the block
-                Only cross sizes that divide the size of the overall block will be used.
-                e.g if the 'size' chosen is 19 (a prime number) - only 1 or the full size of 19 can be used as the crosses to make up the block.
-                Whereas for a block size of 24, -max_cross_size of 1,2,3,4,6,8,12 or 24 will work. (all divisors)
-                If a number chosen for -max_cross_size isn't a divisor, the largest divisor below the chosen value will be used.
-                "
-                @values -min 0 -max 1
-                size -default 1 -type integer
-    }
-    proc gcross {args} {
-        set argd [punk::args::parse $args withid ::textblock::gcross]
-        set size [dict get $argd values size]
-        set opts [dict get $argd opts]
-
-        if {$size == 0} {
-            return ""
-        }
-
-        set opt_max_cross_size [tcl::dict::get $opts -max_cross_size]
-
-        #set fit_size [punk::lib::greatestOddFactor $size]
-        set fit_size $size
-        if {$opt_max_cross_size == 0} {
-            set max_cross_size $fit_size
-        } else {
-            #todo - only allow divisors
-            #set testsize [expr {min($fit_size,$opt_max_cross_size)}]
-
-            set factors [punk::lib::factors $size]
-            #pick odd size in list that is smaller or equal to test_size
-            set max_cross_size [lindex $factors end]
-            set last_ok [lindex $factors 0]
-            for {set i 0} {$i < [llength $factors]} {incr i} {
-                set s [lindex $factors $i]
-                if {$s > $opt_max_cross_size} {
-                    break
-                }
-                set last_ok $s
-            }
-            set max_cross_size $last_ok
-        }
-        set crosscount [expr {$size / $max_cross_size}]
-
-        package require punk::char
-        set x [punk::char::charshort boxd_ldc]
-        set bs [punk::char::charshort boxd_ldgullr]
-        set fs [punk::char::charshort boxd_ldgurll]
-
-        set onecross ""
-        set crossrows [list]
-        set armsize [expr {int(floor($max_cross_size /2))}]
-        set row [lrepeat $max_cross_size " "]
-        #toparm
-        for {set i 0} {$i < $armsize} {incr i} {
-            set r $row
-            lset r $i $bs
-            lset r end-$i $fs
-            #append onecross [::join $r ""] \n
-            lappend crossrows [::join $r ""]
-        }
-
-        if {$max_cross_size % 2} {
-            #only put centre cross in for odd sized crosses
-            set r $row
-            lset r $armsize $x
-            #append onecross [::join $r ""] \n
-            lappend crossrows [::join $r ""]
-        }
-
-        for {set i [expr {$armsize -1}]} {$i >= 0} {incr i -1} {
-            set r $row
-            lset r $i $fs
-            lset r end-$i $bs
-            #append onecross [::join $r ""] \n
-            lappend crossrows [::join $r ""]
-        }
-        #set onecross [tcl::string::trimright $onecross \n]
-        set onecross [::join $crossrows \n]
-
-        #fastest to do row first then columns - because textblock::join must do line by line
-
-        if {$crosscount > 1} {
-            set row [textblock::join -- {*}[lrepeat $crosscount $onecross]]
-            set rows [lrepeat $crosscount $row]
-            set out [::join $rows \n]
-        } else {
-            set out $onecross
-        }
-
-        return $out
-    }
-
-    #Test we can join two coloured blocks
-    proc test_colour {} {
-        set b1 [a red]1\n2\n3[a]
-        set b2 [a green]a\nb\nc[a]
-        set result [textblock::join -- $b1 $b2]
-        puts $result
-        #return [list $b1 $b2 $result]
-        return [ansistring VIEW $result]
-    }
-    tcl::namespace::import ::punk::ansi::ansistrip
-}
-
-
-tcl::namespace::eval ::textblock::piper {
-    tcl::namespace::export *
-    proc join {rhs pipelinedata} {
-        tailcall ::textblock::join -- $pipelinedata $rhs
-    }
-}
-interp alias {} piper_blockjoin {} ::textblock::piper::join
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready
-package provide textblock [tcl::namespace::eval textblock {
-    variable version
-    set version 0.1.3
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/textutil-0.9.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/textutil-0.9.tm
deleted file mode 100644
index b18a5228..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/textutil-0.9.tm
+++ /dev/null
@@ -1,80 +0,0 @@
-# textutil.tcl --
-#
-#	Utilities for manipulating strings, words, single lines,
-#	paragraphs, ...
-#
-# Copyright (c) 2000      by Ajuba Solutions.
-# Copyright (c) 2000      by Eric Melski <ericm@ajubasolutions.com>
-# Copyright (c) 2002      by Joe English <jenglish@users.sourceforge.net>
-# Copyright (c) 2001-2006 by Andreas Kupries <andreas_kupries@users.sourceforge.net>
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# RCS: @(#) $Id: textutil.tcl,v 1.17 2006/09/21 06:46:24 andreas_kupries Exp $
-
-# ### ### ### ######### ######### #########
-## Requirements
-
-package require Tcl 8.2-
-
-namespace eval ::textutil {}
-
-# ### ### ### ######### ######### #########
-## API implementation
-## All through sub-packages imported here.
-
-package require textutil::string
-package require textutil::repeat
-package require textutil::adjust
-package require textutil::split
-package require textutil::tabify
-package require textutil::trim
-package require textutil::wcswidth
-
-namespace eval ::textutil {
-    # Import the miscellaneous string command for public export
-
-    namespace import -force string::chop string::tail
-    namespace import -force string::cap string::uncap string::capEachWord
-    namespace import -force string::longestCommonPrefix
-    namespace import -force string::longestCommonPrefixList
-
-    # Import the repeat commands for public export
-
-    namespace import -force repeat::strRepeat repeat::blank
-
-    # Import the adjust commands for public export
-
-    namespace import -force adjust::adjust adjust::indent adjust::undent
-
-    # Import the split commands for public export
-
-    namespace import -force split::splitx split::splitn
-
-    # Import the trim commands for public export
-
-    namespace import -force trim::trim trim::trimleft trim::trimright
-    namespace import -force trim::trimPrefix trim::trimEmptyHeading
-
-    # Import the tabify commands for public export
-
-    namespace import -force tabify::tabify tabify::untabify
-    namespace import -force tabify::tabify2 tabify::untabify2
-
-    # Re-export all the imported commands
-
-    namespace export chop tail cap uncap capEachWord
-    namespace export longestCommonPrefix longestCommonPrefixList
-    namespace export strRepeat blank
-    namespace export adjust indent undent
-    namespace export splitx splitn
-    namespace export trim trimleft trimright trimPrefix trimEmptyHeading
-    namespace export tabify untabify tabify2 untabify2
-}
-
-
-# ### ### ### ######### ######### #########
-## Ready
-
-package provide textutil 0.9
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.2.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.2.tm
deleted file mode 100644
index c7da645b..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.2.tm
+++ /dev/null
@@ -1,5680 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application tomlish 1.1.2
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin tomlish_module_tomlish 0 1.1.2]
-#[copyright "2024"]
-#[titledesc {tomlish toml parser}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {tomlish}]             [comment {-- Description at end of page heading --}] 
-#[require tomlish]
-#[keywords module parsing toml configuration]
-#[description]
-#[para] tomlish is an intermediate representation of toml data in a tree structure (tagged lists representing type information)
-#[para] The design goals are for tomlish to be whitespace and comment preserving ie byte-for byte preservation during roundtrips from toml to tomlish and back to toml 
-#[para] The tomlish representation can then be converted to a Tcl dict structure or to other formats such as json,
-#[para] although these other formats are generally unlikely to retain whitespace or comments
-#[para] A further goal is to allow at least a useful subset of in-place editing operations which also preserve whitespace and comments.
-#[para] e.g leaf key value editing, and table reordering/sorting, key-renaming at any level, key insertions/deletions 
-#[para] The API for editing (tomldoc object?) may require explicit setting of type if accessing an existing key
-#[para] e.g setting a key that already exists and is a different type (especially if nested structure such as a table or array)
-#[para] will need a -type option (-force ?) to force overriding with another type such as an int.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of tomlish
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by tomlish
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require struct::stack
-package require logger
-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {struct::stack}]
-
-#limit ourselves to clear, destroy, peek, pop, push, rotate, or size  (e.g v 1.3 does not implement 'get')
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    variable types 
-
-    #IDEAS:
-    # since get_toml produces tomlish with whitespace/comments intact:
-    # tomldoc object - allow (at least basic?) editing of toml whilst preserving comments & whitespace
-    # - setKey (set leaf only to value) how to specify type? -type option? - whole array vs index into arrays and further nested objects?  - option for raw toml additions?
-    # - separate addKey??
-    # - deleteKey (delete leaf)
-    # - deleteTable (delete table - if only has leaves? - option to delete with child tables?)
-    # - set/add Table? - position in doc based on existing tables/subtables?
-
-    #The tomlish intermediate representation allows things such as sorting the toml document by table name or other re-ordering of tables -
-    # because the tables include subkeys, comments and newlines within their structure - those elements all come along with it nicely during reordering. 
-    #The same goes for the first newline following a keyval  e.g  x=1 \ny=2\n\n
-    #The newline is part of the keyval structure so makes reordering easier
-    #example from_toml "a=1\nb=2\n\n\n"
-    #  0 = TOMLISH
-    #  1 = KEY a = {INT 1} {NEWLINE lf}
-    #  2 = NEWLINE lf
-    #  3 = KEY b = {INT 2} {NEWLINE lf}
-    #  4 = NEWLINE lf
-    #  5 = NEWLINE lf
-
-
-    #ARRAY is analogous to a Tcl list
-    #TABLE is analogous to a Tcl dict
-    #WS = inline whitespace
-    #KEY = bare key and value
-    #QKEY = double quoted key and value ;#todo - rename to DQKEY?
-    #SQKEY = single quoted key and value
-    #ITABLE = inline table (*can* be anonymous table)
-    #         inline table values immediately create a table with the opening brace
-    #         inline tables are fully defined between their braces, as are dotted-key subtables defined within
-    #         No additional subtables or arrays of tables may be defined within an inline table after the ending brace - they must be entirely self-contained
-
-    set tags [list TOMLISH ARRAY TABLE ITABLE ANONTABLE WS NEWLINE COMMENT DOTTEDKEY KEY QKEY SQKEY STRING STRINGPART MULTISTRING LITERAL LITERALPART MULTILITERAL INT FLOAT BOOL DATETIME]
-    #tomlish v1.0 should accept arbitrary 64-bit signed ints (from -2^63 to 2^63-1)
-    #we will restrict to this range for compatibility for now - although Tcl can handle larger (arbitrarily so?)
-    set min_int -9223372036854775808 ;#-2^63
-    set max_int +9223372036854775807 ;#2^63-1
-
-    proc Dolog {lvl txt} {
-        #return "$lvl -- $txt"
-        set msg "[clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] tomlish '$txt'"
-        puts stderr $msg
-    }
-    logger::initNamespace ::tomlish
-    foreach lvl [logger::levels] {
-        interp alias {} tomlish_log_$lvl {} ::tomlish::Dolog $lvl
-        log::logproc $lvl tomlish_log_$lvl 
-    }
-
-    #*** !doctools
-    #[subsection {Namespace tomlish}]
-    #[para] Core API functions for tomlish 
-    #[list_begin definitions]
-
-    proc tags {} {
-        return $::tomlish::tags
-    }
-
-    #helper function for to_dict 
-    proc _get_keyval_value {keyval_element} {
-        log::notice ">>> _get_keyval_value from '$keyval_element'<<<"
-        set found_value 0
-        #find the value
-        # 3 is the earliest index at which the value could occur (depending on whitespace)
-        set found_sub [list]
-        if {[lindex $keyval_element 2] ne "="} {
-            error "tomlish _get_keyval_value keyval_element doesn't seem to be a properly structured {<keytype> <keydata> = <valuedat>} list"
-        }
-        foreach sub [lrange $keyval_element 2 end]  {
-            #note that a barekey/quotedkey won't occur directly inside a barekey/quotedkey
-            switch -exact -- [lindex $sub 0] {
-                STRING - LITERAL - MULTISTRING - MULTILITERAL - INT - FLOAT - BOOL - DATETIME - TABLE - ARRAY - ITABLE {
-                    set type [lindex $sub 0]
-                    set value [lindex $sub 1]
-                    set found_sub $sub
-                    incr found_value 1
-                }
-                default {}
-            }
-        }
-        if {!$found_value} {
-            error "tomlish Failed to find value element in KEY. '$keyval_element'"
-        }
-        if {$found_value > 1} {
-            error "tomlish Found multiple value elements in KEY, expected exactly one. '$keyval_element'"
-        }
-
-        switch -exact -- $type {
-            INT - FLOAT - BOOL - DATETIME {
-                #simple (non-container, no-substitution) datatype	
-                set result [list type $type value $value]
-            }
-            STRING - STRINGPART {
-                set result [list type $type value [::tomlish::utils::unescape_string $value]]
-            }
-            LITERAL - LITERALPART {
-                #REVIEW
-                set result [list type $type value $value]
-            }
-            TABLE {
-                #invalid?
-                error "tomlish _get_keyval_value invalid to have type TABLE on rhs of ="
-            }
-            ITABLE {
-                #This one should not be returned as a type <tag> value <something> structure!
-                #
-                set result [::tomlish::to_dict [list $found_sub]]
-            }
-            ARRAY {
-                #we need to recurse to get the corresponding dict for the contained item(s)
-                #pass in the whole $found_sub - not just the $value!
-                set result [list type $type value [::tomlish::to_dict [list $found_sub]]]
-            }
-            MULTISTRING - MULTILITERAL {
-                #review - mapping these to STRING might make some conversions harder?
-                #if we keep the MULTI<type> - we know we have to look for newlines for example when converting to json
-                #without specific types we'd have to check every STRING - and lose info about how best to map chars within it
-                set result [list type $type value [::tomlish::to_dict [list $found_sub]]]
-            }
-            default {
-                error "tomlish Unexpected value type '$type' found in keyval '$keyval_element'"
-            }
-        } 
-        return $result
-    }
-
-    proc _get_dottedkey_info {dottedkeyrecord} {
-        set key_hierarchy [list]
-        set key_hierarchy_raw [list]
-        if {[lindex $dottedkeyrecord 0] ne "DOTTEDKEY"} {
-            error "tomlish _get_dottedkey_info error. Supplied list doesn't appear to be a DOTTEDKEY (tag: [lindex $dottedkeyrecord 0])"
-        }
-        set compoundkeylist [lindex $dottedkeyrecord 1]
-        set expect_sep 0
-        foreach part $compoundkeylist {
-            set parttag [lindex $part 0]
-            if {$parttag eq "WS"} {
-                continue
-            }
-            if {$expect_sep} {
-                if {$parttag ne "DOTSEP"} {
-                    error "DOTTEDKEY missing dot separator between parts. '$dottedkeyrecord'"
-                }
-                set expect_sep 0
-            } else {
-                set val [lindex $part 1]
-                switch -exact -- $parttag {
-                    KEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw $val
-                    }
-                    QKEY {
-                        lappend key_hierarchy [::tomlish::utils::unescape_string $val]
-                        lappend key_hierarchy_raw \"$val\"
-                    }
-                    SQKEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw "'$val'"
-                    }
-                    default {
-                        error "DOTTED key unexpected part '$parttag' - ensure dot separator is between key parts. '$item'"
-                    }
-                }
-                set expect_sep 1
-            }
-        }
-        return [dict create keys $key_hierarchy keys_raw $key_hierarchy_raw]
-    }
-
-
-
-    #to_dict is a *basic* programmatic datastructure for accessing the data.
-    # produce a dictionary of keys and values from a tomlish tagged list.
-    # to_dict is primarily for reading toml data.
-    #Extraneous (not within quoted sections) whitespace and comments are not preserved in this structure,
-    # so a roundtrip from toml to this datastructure and back to toml will lose whitespace formatting and comments.
-    # creating/changing toml values can be done directly on a tomlish list if preserving (or adding) formatting/comments is desired.
-    #A separate package 'tomlish::object' may be needed to allow easier programmatic creating/updating/deleting of data elements whilst preserving (or adding or selectively deleting/editing) such formatting. 
-    #
-    #Note, currently we get a plain sub dictionary when an inline table is a direct value for a key, but an ITABLE when it's in an ARRAY - REVIEW
-    #Namespacing?
-    #ie note the difference:
-    #[Data]
-    #temp = { cpu = 79.5, case = 72.0}
-    # versus
-    #[Data]
-    #temps = [{cpu = 79.5, case = 72.0}]
-    proc to_dict {tomlish} {
-        
-        #keep track of which tablenames have already been directly defined,
-        # so we can raise an error to satisfy the toml rule: 'You cannot define any key or table more than once. Doing so is invalid'
-        #Note that [a] and then [a.b] is ok if there are no subkey conflicts - so we are only tracking complete tablenames here.
-        #we don't error out just because a previous tablename segment has already appeared.
-        ##variable tablenames_seen [list] 
-        if {[uplevel 1 [list info exists tablenames_seen]]} {
-            upvar tablenames_seen tablenames_seen
-        } else {
-            set tablenames_seen [list]
-        }
-        
-        log::info ">>>  processing '$tomlish'<<<"
-        set items $tomlish
-        
-        foreach lst $items {
-            if {[lindex $lst 0] ni $::tomlish::tags} {
-                error "supplied string does not appear to be toml parsed into a tomlish tagged list. Run tomlish::decode::toml on the raw toml data to produce a tomlish list"
-            }
-        }
-        
-        if {[lindex $tomlish 0] eq "TOMLISH"} {
-            #ignore TOMLISH tag at beginning
-            set items [lrange $tomlish 1 end]
-        }
-        
-        set datastructure [dict create]
-        foreach item $items {
-            set tag [lindex $item 0]
-            #puts "...> item:'$item' tag:'$tag'"
-            switch -exact -- $tag {
-                KEY - QKEY - SQKEY {
-                    log::debug "--> processing $tag: $item"
-                    set key [lindex $item 1]
-                    if {$tag eq "QKEY"} {
-                        set key [::tomlish::utils::unescape_string $key]
-                    }
-                    #!todo - normalize key. (may be quoted/doublequoted)
-                    
-                    if {[dict exists $datastructure $key]} {
-                        error "Duplicate key '$key'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-                    
-                    #lassign [_get_keyval_value $item] type val
-                    set keyval_dict [_get_keyval_value $item]
-                    dict set datastructure $key $keyval_dict
-                }
-                DOTTEDKEY {
-                    log::debug "--> processing $tag: $item"
-                    set dkey_info                   [_get_dottedkey_info $item]
-                    set dotted_key_hierarchy        [dict get $dkey_info keys]
-                    set dotted_key_hierarchy_raw    [dict get $dkey_info keys_raw]
-
-                    #a.b.c = 1
-                    #table_key_hierarchy -> a b
-                    #leafkey -> c
-                    if {[llength $dotted_key_hierarchy] == 0} {
-                        #empty?? probably invalid. review
-                        #This is different to '' = 1  or ''.'' = 1 which have lengths 1 and 2 respectively
-                        error "DOTTED key has no parts - invalid?  '$item'"
-                    } elseif {[llength $dotted_key_hierarchy] == 1} {
-                        #dottedkey is only a key - no table component
-                        set table_hierarchy [list]
-                        set leafkey [lindex $dotted_key_hierarchy 0]
-                    } else {
-                        set table_hierarchy [lrange $dotted_key_hierarchy 0 end-1]
-                        set table_hierarchy_raw [lrange $dotted_key_hierarchy_raw 0 end-1]
-                        set leafkey [lindex $dotted_key_hierarchy end] 
-                    }
-
-                    #ensure empty tables are still represented in the datastructure
-                    set pathkeys [list]
-                    foreach k $table_hierarchy {
-                        lappend pathkeys $k 
-                        if {![dict exists $datastructure {*}$pathkeys]} {
-                            dict set datastructure {*}$pathkeys [list] 
-                        } else {
-                            tomlish::log::notice "to_dict datastructure at key path $pathkeys already had data: [dict get $datastructure {*}$pathkeys]"
-                        }
-                    }
-
-                    set keyval_dict [_get_keyval_value $item]
-                    dict set datastructure {*}$pathkeys $leafkey $keyval_dict
-
-                    #JMN test 2025
-
-                }
-                TABLE  {
-                    set tablename [lindex $item 1]
-                    set tablename [::tomlish::utils::tablename_trim $tablename]
-                    
-                    if {$tablename in $tablenames_seen} {
-                        error "Table name '$tablename' has already been directly defined in the toml data. Invalid."
-                    }
-                    
-                    log::debug "--> processing $tag (name: $tablename): $item"
-                    set name_segments [::tomlish::utils::tablename_split $tablename]
-                    set last_seg ""
-                    #toml spec rule - all segments mst be non-empty
-                    #note that the results of tablename_split are 'raw' - ie some segments may be enclosed in single or double quotes.
-                    
-                    set table_key_hierarchy [list]
-                    set table_key_hierarchy_raw [list]
-                    
-                    foreach rawseg $name_segments {
-                    
-                        set seg [::tomlish::utils::normalize_key $rawseg]  ;#strips one level of enclosing quotes, and substitutes only toml-specified escapes
-                        set c1 [tcl::string::index $rawseg 0]
-                        set c2 [tcl::string::index $rawseg end]
-                        if {($c1 eq "'") && ($c2 eq "'")} {
-                            #single quoted segment. No escapes are processed within it.
-                            set seg [tcl::string::range $rawseg 1 end-1]
-                        } elseif {($c1 eq "\"") && ($c2 eq "\"")} {
-                            #double quoted segment. Apply escapes.
-                            set seg [::tomlish::utils::unescape_string [tcl::string::range $rawseg 1 end-1]]
-                        } else {
-                            set seg $rawseg
-                        }
-                        
-                        #no need to check for empty segments here - we've already called tablename_split which would have raised an error for empty segments.
-                        #if {$rawseg eq ""} {
-                        #	error "Table name '[lindex $item 1]' is not valid. All segments (parts between dots) must be non-empty"
-                        #}
-                        lappend table_key_hierarchy $seg
-                        lappend table_key_hierarchy_raw $rawseg
-                        
-                        if {[dict exists $datastructure {*}$table_key_hierarchy]} {
-                            #It's ok for this key to already exist *if* it was defined by a previous tablename or equivalent
-                            #and if this key is longer 
-
-                            #consider the following 2 which are legal:
-                            #[table]
-                            #x.y = 3
-                            #[table.x.z]
-                            #k= 22
-
-                            #equivalent
-
-                            #[table]
-                            #[table.x]
-                            #y = 3
-                            #[table.x.z]
-                            #k=22
-
-                            #illegal
-                            #[table]
-                            #x.y = 3
-                            #[table.x.y.z]
-                            #k = 22
-                            ## - we should bfail on encoungerint table.x.y because only table and table.x are effectively tables
-                            ## - we should also fail if 
-
-                            #illegal
-                            #[table]
-                            #x.y = {p=3}
-                            #[table.x.y.z]
-                            #k = 22
-                            ## we should fail because y is an inline table which is closed to further entries
-
-
-                            #TODO! fix - this code is wrong
-                            
-                            set testkey [join $table_key_hierarchy_raw .]
-
-                            set testkey_length [llength $table_key_hierarchy_raw]
-                            set found_testkey 0
-                            if {$testkey in $tablenames_seen} {
-                                set found_testkey 1
-                            } else {
-                                #see if it was defined by a longer entry
-                                foreach seen $tablenames_seen {
-                                    set seen_segments [::tomlish::utils::tablename_split $seen]
-                                    #these are raw unnormalized tablename segments. Need to normalize the double-quoted ones,
-                                    # and strip the quotes from both single-quoted and double-quoted entries.
-                                    
-                                    #note: it is not safe to compare normalized tablenames using join!
-                                    # e.g  a.'b.c'.d  is not the same as a.b.c.d
-                                    # instead compare {a b.c d} with {a b c d}
-                                    # Here is an example where the number of keys is the same, but they must be compared as a list, not a joined string.
-                                    #'a.b'.'c.d.e'  vs  'a.b.c'.'d.e' 
-                                    
-                                    #VVV the test below is wrong VVV!
-                                    #we need to normalize the tablenames seen so that {"x\ty"} matches {"x<rawtab>y"}
-
-                                    set seen_match [join [lrange $seen_segments 0 [expr {$testkey_length -1}]] .]
-                                    puts stderr "testkey:'$testkey' vs seen_match:'$seen_match'"
-                                    if {$testkey eq $seen_match} {
-                                        set found_testkey 1
-                                    }
-                                }
-                            }
-                            
-                            if {$found_testkey == 0} {
-                                #the raw table_key_hierarchy is better to display in the error message, although it's not the actual dict keyset
-                                set msg "key [join $table_key_hierarchy_raw .] already exists in datastructure, but wasn't defined by a supertable."
-                                append msg \n "tablenames_seen:" \n
-                                foreach ts $tablenames_seen {
-                                    append msg "  " $ts \n
-                                }
-                                error $msg
-                            }
-                        }
-                        
-                    }
-                    
-                    #ensure empty tables are still represented in the datastructure
-                    set table_keys [list]
-                    foreach k $table_key_hierarchy {
-                        lappend table_keys $k 
-                        if {![dict exists $datastructure {*}$table_keys]} {
-                            dict set datastructure {*}$table_keys [list] 
-                        } else {
-                            tomlish::log::notice "to_dict datastructure at (TABLE) subkey $table_keys already had data: [dict get $datastructure {*}$table_keys]"
-                        }
-                    }
-                    
-                    #We must do this after the key-collision test above!
-                    lappend tablenames_seen $tablename
-                    
-                    
-                    log::debug ">>>>>>>>>>>>>>>>>>>>table_key_hierarchy    : $table_key_hierarchy"
-                    log::debug ">>>>>>>>>>>>>>>>>>>>table_key_hierarchy_raw: $table_key_hierarchy_raw"
-                    
-                    #now add the contained elements
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        log::debug "--> $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [_get_dottedkey_info $element]
-                                #e.g1 keys {x.y y} keys_raw {'x.y' y}
-                                #e.g2 keys {x.y y} keys_raw {{"x.y"} y}
-                                set dotted_key_hierarchy        [dict get $dkey_info keys]
-                                set dkeys                       [lrange $dotted_key_hierarchy 0 end-1]
-                                set leaf_key                    [lindex $dotted_key_hierarchy end]
-                                set dotted_key_hierarchy_raw    [dict get $dkey_info keys_raw]
-                                set dkeys_raw                   [lrange $dotted_key_hierarchy_raw 0 end-1]
-                                set leaf_key_raw                [lindex $dotted_key_hierarchy_raw end]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set test_keys $table_keys
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$table_keys {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$table_keys $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                #keyval_dict is either a {type <tomltag> value <whatever>}
-                                #or the result from parsing an arbitrary dict from an inline table - which could theoretically look the same at the topmost level
-                                #punk::dict::is_tomlish_typeval can distinguish
-                                puts stdout ">>> $keyval_dict"
-                                dict set datastructure {*}$table_keys {*}$dkeys $leaf_key $keyval_dict
-                                #JMN 2025
-                                #tomlish::utils::normalize_key ??
-                                lappend tablenames_seen [join [list {*}$table_key_hierarchy_raw {*}$dkeys_raw] .] ;#????
-                                #if the keyval_dict is not a simple type x value y - then it's an inline table ?
-                                #if so - we should add the path to the leaf_key as a seen table too - as it's not allowed to have more entries added.
-                                if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                                    #the value is either empty or or a dict structure with arbitrary (from-user-data) toplevel keys 
-                                    # inner structure will contain {type <tag> value <etc>} if all leaves are not empty ITABLES
-                                    lappend tablenames_seen [join [list {*}$table_key_hierarchy_raw  {*}$dkeys_raw $leaf_key_raw] .]
-                                }
-
-                            }
-                            KEY - QKEY - SQKEY {
-                                #obsolete ?
-                                set keyval_key [lindex $element 1]
-                                if {$type eq "QKEY"} {
-                                    set keyval_key [::tomlish::utils::unescape_string $keyval_key]
-                                }
-                                if {[dict exists $datastructure {*}$dotted_key_hierarchy $keyval_key]} {
-                                    error "Duplicate key '$dotted_key_hierarchy $key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                dict set datastructure {*}$dotted_key_hierarchy $keyval_key $keyval_dict
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in table context. Expected only KEY,QKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                    #now make sure we add an empty value if there were no contained elements!
-                    #!todo.
-                }
-                ITABLE {
-                    #SEP???
-                    set datastructure [list]
-                    foreach element [lrange $item 1 end] {
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [_get_dottedkey_info $element]
-                                set dotted_key_hierarchy       [dict get $dkey_info keys]
-                                set dotted_key_hierarchy_raw   [dict get $dkey_info keys_raw]
-                                set leaf_key [lindex $dotted_key_hierarchy end]
-                                set dkeys [lrange $dotted_key_hierarchy 0 end-1]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set table_keys [list] ;#We don't know the context - next level up will have to check for key collisions?
-                                set test_keys $table_keys
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$table_keys {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$table_keys $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                dict set datastructure {*}$table_keys {*}$dkeys $leaf_key $keyval_dict
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in ITABLE context. Expected only KEY,QKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                }
-                ARRAY {
-                    #arrays in toml are allowed to contain mixtures of types
-                    set datastructure [list]
-                    log::debug "--> processing array: $item"
-                    
-                    foreach element [lrange $item 1 end]  {
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            INT - FLOAT - BOOL - DATETIME {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            STRING {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::utils::unescape_string $value]]
-                            }
-                            LITERAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            ITABLE - TABLE - ARRAY - MULTISTRING - MULTILITERAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                            }
-                            WS - SEP - NEWLINE - COMMENT {
-                                #ignore whitespace, commas, newlines and comments
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in array"
-                            }
-                        }
-                    }
-                }
-                MULTILITERAL {
-                    #triple squoted string
-                    #first newline stripped only if it is the very first element
-                    #(ie *immediately* following the opening delims)
-                    #All whitespace other than newlines is within LITERALPARTS
-                    # -------------------------------------------------------------------------
-                    #todo - consider extension to toml to allow indent-aware multiline literals
-                    # how - propose as issue in toml github? Use different delim? e.g ^^^ ?
-                    #e.g
-                    # xxx=?'''abc
-                    #         def
-                    #          etc
-                    #         '''
-                    #  - we would like to trimleft each line to the column following the opening delim 
-                    # -------------------------------------------------------------------------
-
-                    log::debug "--> processing multiliteral: $item"
-                    set parts [lrange $item 1 end]
-                    if {[lindex $parts 0 0] eq "NEWLINE"} {
-                        set parts [lrange $parts 1 end] ;#skip it
-                    }
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            LITERALPART {
-                                append stringvalue [lindex $element 1]
-                            }
-                            NEWLINE {
-                                set val [lindex $element 1]
-                                if {$val eq "nl"} {
-                                    append stringvalue \n
-                                } else {
-                                    append stringvalue \r\n
-                                }
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                MULTISTRING {
-                    #triple dquoted string
-                    log::debug "--> processing multistring: $item"
-                    set stringvalue ""
-                    set idx 0
-                    set parts [lrange $item 1 end]
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        #We use STRINGPART in the tomlish representation as a distinct element to STRING - which would imply wrapping quotes to be reinserted
-                        switch -exact -- $type {
-                            STRING {
-                                #todo - do away with STRING ?
-                                #we don't build MULTISTRINGS containing  STRING - but should we accept it?
-                                tomlish::log::warn "double quoting a STRING found in MULTISTRING - should be STRINGPART?"
-                                append stringvalue "\"[::tomlish::utils::unescape_string [lindex $element 1]]\""
-                            }
-                            STRINGPART {
-                                append stringvalue [::tomlish::utils::unescape_string [lindex $element 1]]
-                            }
-                            CONT {
-                                #When the last non-whitespace character on a line is an unescaped backslash,
-                                #it will be trimmed along with all whitespace (including newlines) up to the next non-whitespace character or closing delimiter
-                                # review - we allow some whitespace in stringpart elements - can a stringpart ever be all whitespace?
-                                set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                if {$next_nl == -1} {
-                                    #last line
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"  ;#add the sep
-                                    } else {
-                                        #skip over ws without emitting
-                                        set idx [llength $parts]
-                                    }
-                                } else {
-                                    set parts_til_nl [lrange $parts 0 $next_nl-1]
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts_til_nl WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"
-                                    } else {
-                                        #skip over ws on this line
-                                        set idx $next_nl
-                                        #then have to check each subsequent line until we get to first non-whitespace
-                                        set trimming 1
-                                        while {$trimming && $idx < [llength $parts]} {
-                                            set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                            if {$next_nl == -1} {
-                                                #last line
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                } else {
-                                                    set idx [llength $parts]
-                                                }
-                                                set trimming 0
-                                            } else {
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not [lrange $parts 0 $next_nl-1] WS] 
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                    set trimming 0
-                                                } else {
-                                                    set idx $next_nl
-                                                    #keep trimming
-                                                }
-                                            }
-                                        }
-                                    }
-                                } 
-                            }
-                            NEWLINE {
-                                #if newline is first element - it is not part of the data of a multistring
-                                if {$idx > 0} {
-                                    set val [lindex $element 1]
-                                    if {$val eq "nl"} {
-                                        append stringvalue \n
-                                    } else {
-                                        append stringvalue \r\n
-                                    }
-                                }
-                            }
-                            WS {
-                                append stringvalue [lindex $element 1]
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                WS - COMMENT - NEWLINE {
-                    #ignore 
-                }
-                default {
-                    error "Unexpected tag '$tag' in Tomlish list '$tomlish'"
-                }
-            }
-        }
-        return $datastructure
-    }
-
-
-    proc _from_dictval_tomltype {parents tablestack keys typeval} {
-        set type [dict get $typeval type]
-        set val  [dict get $typeval value]
-        switch -- $type {
-            ARRAY {
-                set subitems [list]
-                foreach item $val {
-                    lappend subitems [_from_dictval [list {*}$parents ARRAY] $tablestack $keys $item] SEP
-                }
-                if {[lindex $subitems end] eq "SEP"} {
-                    set subitems [lrange $subitems 0 end-1]
-                }
-                return [list ARRAY {*}$subitems]
-            }
-            ITABLE {
-                if {$val eq ""} {
-                    return ITABLE
-                } else {
-                    return [_from_dictval [list {*}$parents ITABLE] $tablestack $keys $val] 
-                }
-            }
-            MULTISTRING {
-                #value is a raw string that isn't encoded as tomlish
-                #create a valid toml snippet with the raw value and decode it to the proper tomlish MULTISTRING format
-                set tomlpart "x=\"\"\"\\\n"
-                append tomlpart $val "\"\"\""
-                set tomlish [tomlish::decode::toml $tomlpart]
-                #e.g if val = " etc\nblah"
-                #TOMLISH {DOTTEDKEY {{KEY x}} = {MULTISTRING CONT {NEWLINE LF} {WS { }} {STRINGPART etc} {NEWLINE lf} {STRINGPART blah} } }
-                #lindex 1 3 is the MULTISTRING tomlish list
-                return [lindex $tomlish 1 3]
-            }
-            MULTILITERAL {
-                set tomlpart "x='''\n"
-                append tomlpart $val '''
-                set tomlish [tomlish::decode::toml $tomlpart]
-                return [lindex $tomlish 1 3]
-            }
-            default {
-                return [list $type $val] 
-            }
-        }
-    }
-
-    proc _from_dictval {parents tablestack keys vinfo} {
-        set k [lindex $keys end]
-        if {[regexp {\s} $k] || [string first . $k] >= 0} {
-            #Any dot in the key would have been split by to_dict - so if it's present here it's part of this key - not a level separator!
-            #todo - QKEY?
-            set K_PART [list SQKEY $k]
-        } else {
-            set K_PART [list KEY $k]
-        }
-        puts stderr "---parents:'$parents' keys:'$keys' vinfo: $vinfo---"
-        puts stderr "---tablestack: $tablestack---"
-        set result [list]
-        set lastparent [lindex $parents end]
-        if {$lastparent in [list "" do_inline]} {
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                set type [dict get $vinfo type]
-                #treat ITABLE differently?
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result DOTTEDKEY [list $K_PART {WS { }}] = {WS { }} $sublist {NEWLINE lf}
-            } else {
-                #set  result [list TABLE $k {NEWLINE lf}] 
-                if {$vinfo ne ""} {
-
-                    #set result [list DOTTEDKEY [list [list KEY $k]] = ]
-                    #set records [list ITABLE]
-
-                    set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-
-                    if {$lastparent eq "do_inline"} {
-                        set result [list DOTTEDKEY [list $K_PART] =]
-                        set records [list ITABLE]
-                    } else {
-                        #review - quoted k ??
-                        set result [list TABLE $k {NEWLINE lf}]
-                        set tablestack [list {*}$tablestack [list T $k]]
-                        set records [list]
-                    }
-
-
-
-                    set lastidx [expr {[dict size $vinfo] -1}]
-                    set dictidx 0
-                    dict for {vk vv} $vinfo {
-                        if {[regexp {\s} $vk] || [string first . $vk] >= 0} {
-                            set VK_PART [list SQKEY $vk]
-                        } else {
-                            set VK_PART [list KEY $vk]
-                        }
-                        if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                            #type x value y
-                            set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                            set record [list DOTTEDKEY [list $VK_PART {WS { }}] = {WS { }} $sublist] 
-                        } else {
-                            if {$vv eq ""} {
-                                #experimental
-                                if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    puts stderr "_from_dictval could uninline KEY $vk (tablestack:$tablestack)"
-                                    #set tname [tomlish::dict::name_from_tablestack [list {*}$tablestack [list T $vk]]]
-                                    set tname [join [list {*}$keys $vk] .]
-                                    set record [list TABLE $tname {NEWLINE lf}]
-                                    set tablestack [list {*}$tablestack [list T $vk]]
-                                } else {
-                                    set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    set tablestack [list {*}$tablestack [list I $vk]]
-                                }
-                            } else {
-                                if { 0 } {
-                                    #experiment.. sort of getting there.
-                                    if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                        puts stderr "_from_dictval could uninline2 KEYS [list {*}$keys $vk] (tablestack:$tablestack)"
-                                        set tname [join [list {*}$keys $vk] .]
-                                        set record [list TABLE $tname {NEWLINE lf}]
-                                        set tablestack [list {*}$tablestack [list T $vk]]
-
-                                        #review - todo?
-                                        set dottedkey_value [_from_dictval [list {*}$parents TABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        lappend record {*}$dottedkey_value
-
-                                    } else {
-                                        set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                    }
-                                } else {
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                        }
-                        if {$dictidx != $lastidx} {
-                            #lappend record SEP
-                            if {$lastparent eq "do_inline"} {
-                                lappend record SEP
-                            } else {
-                                lappend record {NEWLINE lf} 
-                            }
-                        }
-                        lappend records $record
-                        incr dictidx 
-                    }
-                    if {$lastparent eq "do_inline"} {
-                        lappend result $records {NEWLINE lf}
-                    } else {
-                        lappend result {*}$records {NEWLINE lf}
-                    }
-                } else {
-                    if {$lastparent eq "do_inline"} {
-                        lappend result DOTTEDKEY [list [list KEY $k]] = ITABLE {NEWLINE lf}
-                    } else {
-                        lappend result TABLE $k {NEWLINE lf}
-                    }
-                }
-            }
-        } else {
-            #lastparent is not toplevel "" or "do_inline"
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                #type x value y
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result {*}$sublist
-            } else {
-                if {$lastparent eq "TABLE"} {
-                    #review
-                    dict for {vk vv} $vinfo {
-                        set dottedkey_value [_from_dictval [list {*}$parents DOTTEDKEY] $tablestack [list {*}$keys $vk] $vv]
-                        lappend result [list DOTTEDKEY [list [list KEY $vk]] = $dottedkey_value {NEWLINE lf}]
-                    }
-                } else {
-                    if {$vinfo ne ""} {
-                        set lastidx [expr {[dict size $vinfo] -1}]
-                        set dictidx 0
-                        set sub [list]
-                        set result $lastparent ;#e.g sets ITABLE
-                        set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-                        dict for {vk vv} $vinfo {
-                            if {[regexp {\s} $vk] || [string first . $vk] >=0} {
-                                set VK_PART [list SQKEY $vk]
-                            } else {
-                                set VK_PART [list KEY $vk]
-                            }
-                            if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                                #type x value y
-                                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                                set record [list DOTTEDKEY [list $VK_PART] = $sublist]
-                            } else {
-                                if {$vv eq ""} {
-                                    #can't just uninline at this level
-                                    #we need a better method to query main dict for uninlinability at each level
-                                    # (including what's been inlined already)
-                                    #if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    #    puts stderr "_from_dictval uninline2 KEY $keys"
-                                    #    set tname [join [list {*}$keys $vk] .]
-                                    #    set record [list TABLE $tname {NEWLINE lf}]
-                                    #    set tablestack [list {*}$tablestack [list T $vk]]
-                                    #} else {
-                                        set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    #}
-                                } else {
-                                    #set sub [_from_dictval ITABLE $vk $vv]
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    #set record [list DOTTEDKEY [list $VK_PART] = ITABLE $dottedkey_value]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                            if {$dictidx != $lastidx} {
-                                lappend record SEP
-                            }
-                            lappend result $record
-                            incr dictidx
-                        }
-                    } else {
-                        puts stderr "table x-1"
-                        lappend result DOTTEDKEY [list $K_PART] = ITABLE 
-                    }
-                }
-            }
-        }
-        return $result
-    }
-
-
-    proc from_dict {d} {
-        #consider:
-        #   t1={a=1,b=2}
-        #    x = 1
-        #If we represent t1 as an expanded table we get
-        # [t1]
-        # a=1
-        # b=2
-        # x=1
-        # --- which is incorrect - as x was a toplevel key like t1!
-        #This issue doesn't occur if x is itself an inline table
-        #   t1={a=1,b=2}
-        #   x= {no="problem"}
-        #
-        # (or if we were to reorder x to come before t1)
-
-        #As the dictionary form doesn't distinguish the structure used to create tables {[table1]\nk=v} vs inline {table1={k=v}}
-        #Without a solution, from_dict would have to always produce the inline form for toplevel tables unless we allowed re-ordering,
-        #which is unpreferred here.
-    
-        #A possible solution:
-        #scan the top level to see if all (trailing) elements are themselves dicts 
-        # (ie not of form {type XXX value yyy}) 
-        #
-        # A further point is that if all root level values are at the 'top' - we can treat lower table-like structures as {[table]} elements 
-        #ie we don't need to force do_inline if all the 'simple' keys are before any compound keys
-
-        #set root_has_values 0 
-        #approach 1) - the naive approach - forces inline when not always necessary
-        #dict for {k v} $d {
-        #    if {[llength $v] == 4 && [lindex $v 0] eq "type"} {
-        #        set root_has_values 1
-        #        break
-        #    }
-        #}
-
-
-        #approach 2) - track the position of last {type x value y} in the dictionary built by to_dict
-        # - still not perfect. Inlines dotted tables unnecessarily
-        #This means from_dict doesn't produce output optimal for human editing.
-        set last_simple [tomlish::dict::last_tomltype_posn $d]
-
-
-        ## set parent "do_inline" ;#a value used in _from_dictval to distinguish from "" or other context based parent values
-        #Any keys that are themselves tables - will need to be represented inline
-        #to avoid reordering, or incorrect assignment of plain values to the wrong table.
-
-        ## set parent ""
-        #all toplevel keys in the dict structure can represent subtables.
-        #we are free to use {[tablename]\n} syntax for toplevel elements.
-
-
-        set tomlish [list TOMLISH]
-        set dictposn 0
-        set tablestack [list [list T root]] ;#todo
-        dict for {t tinfo} $d {
-            if {$last_simple > $dictposn} {
-                set parents [list do_inline]
-            } else {
-                set parents [list ""]
-            }
-            set keys [list $t]
-            set trecord [_from_dictval $parents $tablestack $keys $tinfo]
-            lappend tomlish $trecord
-            incr dictposn
-        }
-        return $tomlish
-    }
-
-    proc json_to_toml {json} {
-        #*** !doctools
-        #[call [fun json_to_toml] [arg json]]
-        #[para]
-
-        set tomlish [::tomlish::from_json $json]
-        set toml [::tomlish::to_toml $tomlish]
-    }
-
-    #TODO use huddle?
-    proc from_json {json} {
-        set jstruct [::tomlish::json_struct $json]
-        return [::tomlish::from_json_struct $jstruct]
-    }
-
-    proc from_json_struct {jstruct} {
-        package require fish::json_toml
-        return [fish::json_toml::jsonstruct2tomlish $jstruct]
-    }
-
-    proc toml_to_json {toml} {
-        set tomlish [::tomlish::from_toml $toml]
-        return [::tomlish::get_json $tomlish]
-    }
-
-    proc get_json {tomlish} {
-        package require fish::json
-        set d [::tomlish::to_dict $tomlish]
-        #return [::tomlish::dict_to_json $d]
-        return [fish::json::from "struct" $d]
-    }
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-namespace eval tomlish::encode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::encode}]
-    #[para] 
-    #[list_begin definitions]
-
-    #STRING,INT,FLOAT,BOOL, DATETIME - simple wrappers for completeness 
-    # take a value of the appropriate type and wrap as a tomlish tagged item
-    proc string {s} {
-        return [list STRING $s]
-    }
-
-    proc int {i} {
-        #whole numbers, may be prefixed with a + or -
-        #Leading zeros are not allowed
-        #Hex,octal binary forms are allowed (toml 1.0)
-        #We will error out on encountering commas, as commas are interpreted differently depending on locale (and don't seem to be supported in the toml spec anyway)
-        #!todo - Tcl can handle bignums - bigger than a 64bit signed long as specified in toml.
-        #      - We should probably raise an error for number larger than this and suggest the user supply it as a string?
-        if {[tcl::string::last , $i] > -1} {
-            error "Unable to interpret '$i' as an integer. Use underscores if you need a thousands separator [::tomlish::parse::report_line]"
-        }
-        if {![::tomlish::utils::int_validchars $i]} {
-            error "Unable to interpret '$i' as an integer. Only 0-9 + 1 _ characters are acceptable. [::tomlish::parse::report_line]"
-        }
-        
-        if {[::tomlish::utils::is_int $i]} {
-            return [list INT $i]
-        } else {
-            error "'$i' is not a valid integer as per the Toml spec. [::tomlish::parse::report_line]"
-        }
-        
-    }
-
-    proc float {f} {
-        #convert any non-lower case variants of special values to lowercase for Toml
-        if {[::tcl::string::tolower $f] in {nan +nan -nan inf +inf -inf}} {
-            return [list FLOAT [tcl::string::tolower $f]]
-        }
-        if {[::tomlish::utils::is_float $f]} {
-            return [list FLOAT $f]
-        } else {
-            error "Unable to interpret '$f' as Toml float. Check your input, or check that tomlish is able to handle all Toml floats properly [::tomlish::parse::report_line]" 
-        }
-    }
-
-    proc datetime {str} {
-        if {[::tomlish::utils::is_datetime $str]} {
-            return [list DATETIME $str]
-        } else {
-            error "Unable to interpret '$str' as Toml datetime. Check your input, or check that tomlish is able to handle all Toml datetimes properly [::tomlish::parse::report_line]" 
-        }
-    }
-
-    proc boolean {b} {
-        #convert any Tcl-acceptable boolean to boolean as accepted by toml - lower case true/false
-        if {![tcl::string::is boolean -strict $b]} {
-            error "Unable to convert '$b' to Toml boolean true|false. [::tomlish::parse::report_line]"
-        } else {
-            if {[expr {$b && 1}]} {
-                return [::list BOOL true]
-            } else {
-                return [::list BOOL false]
-            }
-        }
-    }
-
-
-    #TODO
-    #Take tablename followed by 
-    # a) *tomlish* name-value pairs e.g table mydata [list KEY item11 = [list STRING "test"]] {KEY item2 = [list INT 1]}  
-    # (accept also key <keyname> value {STRING <value>})
-    # b) simple 2-element tcl lists being name & *simple* value pairs for which basic heuristics will be used to determine types
-    proc table {name args} {
-        set pairs [list]
-        foreach t $args {
-            if {[llength $t] == 4} {
-                if {[tcl::string::tolower [lindex $t 0]] ne "key" || [tcl::string::tolower [lindex $t 2]] ni "= value"} {
-                    error "Only items tagged as KEY <keyname> = <value> currently accepted as name-value pairs for table command"
-                }
-                lassign $t _k keystr _eq valuepart
-                if {[llength $valuepart] != 2} {
-                    error "supplied value must be typed. e.g {INT 1} or {STRING test}"
-                }
-                lappend pairs [list KEY $keystr = $valuepart] 
-            } elseif {[llength $t] == 2} {
-                #!todo - type heuristics
-                lassign $t n v
-                lappend pairs [list KEY $n = [list STRING $v]]
-            } else {
-                error "'KEY <name> = {<type> <val}' or simple name-value pairs expected. Unable to handle [llength $t] element list as argument"
-            }
-        }
-        set result [list TABLE $name {NEWLINE lf}]
-        foreach p $pairs {
-            lappend result $p {NEWLINE lf} 
-        }
-        return $result
-        #return [list TABLE $name $pairs]
-    }
-
-
-    #the tomlish root is basically a nameless table representing the root of the document
-    proc root {args} {
-        set table [::tomlish::encode::table TOMLISH {*}$args]
-        set result [lrange $table 2 end]  
-    }
-
-    #WS = whitepace, US = underscore
-    proc tomlish {list {context ""}} {
-        if {![tcl::string::is list $list]} {
-            error "Supplied 'tomlish' is not a valid Tcl list. Expected a tagged list (parsed Toml)"
-        }
-        set toml "" ;#result string
-        
-        foreach item $list {
-            set tag [lindex $item 0]
-            #puts "tomlish::encode::tomlish processing item '$item', tag '$tag'"
-            #during recursion, some tags require different error checking in different contexts.
-            set nextcontext $tag ;
-            
-            
-            #Handle invalid tag nestings
-            switch -- $context {
-                QKEY -
-                SQKEY -
-                KEY {
-                    if {$tag in {KEY QKEY SQKEY}} {
-                        error "Invalid tag '$tag' encountered within '$context'"
-                    }
-                }
-                MULTISTRING {
-                    #explicitly list the valid child tags
-                    set ms_parts {STRING STRINGPART WS NEWLINE CONT}
-                    if {$tag ni $ms_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTISTRING must belong to: $ms_parts"
-                    }
-                }
-                MULTILITERAL {
-                    set ml_parts {LITERALPART NEWLINE}
-                    if {$tag ni $ml_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTILITERAL must belong to: $ml_parts"
-                    }
-                }
-                default {
-                    #no context, or no defined nesting error for this context
-                }
-            }
-            
-            switch -- $tag {
-                TOMLISH {
-                    #optional root tag. Ignore.
-                }
-                QKEY -
-                SQKEY -
-                KEY {
-                    #
-                    if {$tag eq "KEY"} {
-                        append toml [lindex $item 1] ;#Key
-                    } elseif {$tag eq "SQKEY"} {
-                        append toml '[lindex $item 1]' ;#SQuoted Key
-                    } else {
-                        append toml \"[lindex $item 1]\" ;#Quoted Key
-                    }
-                    #= could be at various positions depending on WS
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                DOTTEDKEY {
-                    #QKEY, SQKEY, BAREKEY, WS, DOTSEP
-                    foreach part [lindex $item 1] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    #whitespace at tail of dotted key elements is within the list in element 1
-                    #generally we expect the = to be at element 2 - review
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            #puts "encoding [list $part] (context:$nextcontext)"
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                TABLE {
-                    append toml "\[[lindex $item 1]\]"  ;#table name 
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    
-                }
-                ITABLE {
-                    #inline table - e.g within array or on RHS of keyval/qkeyval
-                    set data ""
-                    foreach part [lrange $item 1 end] {
-                        append data [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\{$data\}"
-                }
-                ARRAY {
-                    
-                    set arraystr ""
-                    foreach part [lrange $item 1 end] {
-                        append arraystr [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\[$arraystr\]"
-                }
-                WS {
-                    append toml [lindex $item 1]
-                }
-                SEP {
-                    append toml ","
-                }
-                DOTSEP {
-                    append toml "."
-                }
-                NEWLINE {
-                    set chartype [lindex $item 1]
-                    if {$chartype eq "lf"} {
-                        append toml \n
-                    } elseif {$chartype eq "crlf"} {
-                        append toml \r\n
-                    } else {
-                        error "Unrecognized newline type '$chartype'"
-                    }
-                }
-                CONT {
-                    #line continuation character "\"
-                    append toml "\\"
-                }
-                STRING {
-                    #simple double quoted strings only
-                    #
-                    append toml \"[lindex $item 1]\"
-                }
-                STRINGPART {
-                    append toml [lindex $item 1]
-                }
-                MULTISTRING {
-                    #Tripple quoted string which is a container for newlines,whitespace and multiple strings/stringparts
-                    set multistring "" ;#variable to build up the string
-                    foreach part [lrange $item 1 end] {
-                        append multistring [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\"\"\"$multistring\"\"\""
-                }
-                LITERAL {
-                    #Single Quoted string(literal string)
-                    append toml '[lindex $item 1]'
-                }
-                LITERALPART {
-                    append toml [lindex $item 1]
-                }
-                MULTILITERAL {
-                    #multiliteral could be handled as a single literal if we allowed literal to contain newlines 
-                    #- except that the first newline must be retained for roundtripping tomlish <-> toml but
-                    # the first newline is not part of the data.
-                    # we elect instead to maintain a basic LITERALPART that must not contain newlines..
-                    # and to compose MULTILITERAL of multiple NEWLINE LITERALPART parts,
-                    #with the datastructure representation dropping the first newline (if immediately following opening delim) when building the value.
-                    set literal ""
-                    foreach part [lrange $item 1 end] {
-                        append literal [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml '''$literal'''
-                }
-                INT -
-                BOOL -
-                FLOAT -
-                DATETIME {
-                    append toml [lindex $item 1]
-                }
-                INCOMPLETE {
-                    error "cannot process tomlish term tagged as INCOMPLETE"
-                }
-                COMMENT {
-                    append toml "#[lindex $item 1]"
-                }
-                BOM {
-                    #Byte Order Mark may appear at beginning of a file. Needs to be preserved.
-                    append toml "\uFEFF"
-                }
-                default {
-                    error "Not a properly formed 'tomlish' taggedlist.\n '$list'\n Unknown tag '[lindex $item 0]'. See output of \[tomlish::tags\] command."
-                }
-            }
-        
-        }
-        return $toml
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::encode ---}]
-}
-#fish toml from tomlish
-
-#(encode tomlish as toml)
-interp alias {} tomlish::to_toml {} tomlish::encode::tomlish
-
-# 
-
-
-namespace eval tomlish::decode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::decode}]
-    #[para] 
-    #[list_begin definitions]
-
-    #return a Tcl list of tomlish tokens 
-    #i.e get a standard list of all the toml terms in string $s
-    #where each element of the list is a *tomlish* term.. i.e a specially 'tagged' Tcl list.
-    #(simliar to a tcl 'Huddle' - but also supporting whitespace preservation)
-    # ----------------------------------------------------------------------------------------------
-    # NOTE: the production of tomlish from toml source doesn't indicate the toml source was valid!!!
-    # e.g we deliberately don't check certain things such as duplicate table declarations here.
-    # ----------------------------------------------------------------------------------------------
-    #Part of the justification for this is that as long as the syntax is toml shaped - we can load files which violate certain rules and allow programmatic manipulation.
-    # (e.g perhaps a toml editor to highlight violations for fixing)
-    # A further stage is then necessary to load the tomlish tagged list into a data structure more suitable for efficient query/reading.
-    # e.g dicts or an object oriented structure
-    #Note also - *no* escapes in quoted strings are processed. This is up to the datastructure stage
-    #e.g to_dict will substitute \r \n \uHHHH \UHHHHHHH etc 
-    #This is important for tomlish to maintain the ability to perform competely lossless round-trips from toml to tomlish and back to toml.
-    # (which is handy for testing as well as editing some part of the structure with absolutely no effect on other parts of the document)
-    #If we were to unescape a tab character for example 
-    # - we have no way of knowing if it was originally specified as \t \u0009 or \U00000009 or directly as a tab character.
-    # For this reason, we also do absolutely no line-ending transformations based on platform.
-    # All line-endings are maintained as is, and even a file with mixed cr crlf line-endings will be correctly interpreted and can be 'roundtripped'
-
-    proc toml {args} {
-        #*** !doctools
-        #[call [fun toml] [arg arg...]]
-        #[para] return a Tcl list of tomlish tokens
-
-        set s [join $args \n]
-
-        namespace upvar ::tomlish::parse is_parsing is_parsing 
-        set is_parsing 1
-        
-        
-        if {[info command ::tomlish::parse::spacestack] eq "::tomlish::parse::spacestack"} {
-            tomlish::parse::spacestack destroy
-        }
-        struct::stack ::tomlish::parse::spacestack
-        
-        namespace upvar ::tomlish::parse last_space_action last_space_action
-        namespace upvar ::tomlish::parse last_space_type last_space_type
-        
-        
-        namespace upvar ::tomlish::parse tok tok
-        set tok ""
-        
-        namespace upvar ::tomlish::parse type type 
-        namespace upvar ::tomlish::parse tokenType tokenType 
-        ::tomlish::parse::set_tokenType ""  
-        namespace upvar ::tomlish::parse tokenType_list tokenType_list 
-        set tokenType [list]  ;#Flat (un-nested) list of tokentypes found
-        
-        namespace upvar ::tomlish::parse lastChar lastChar 
-        set lastChar ""
-        
-
-        set result ""
-        namespace upvar ::tomlish::parse nest nest 
-        set nest 0
-        
-        namespace upvar ::tomlish::parse v v  ;#array keyed on nest level
-        
-        
-        set v(0) {TOMLISH}
-        array set s0 [list] ;#whitespace data to go in {SPACE {}} element.
-        set parentlevel 0
-        
-        namespace upvar ::tomlish::parse i i
-        set i 0
-        
-        namespace upvar ::tomlish::parse state state 
-        
-        namespace upvar ::tomlish::parse braceCount braceCount 
-        set barceCount 0
-        namespace upvar ::tomlish::parse bracketCount bracketCount
-        set bracketCount 0
-        
-        set sep 0
-        set r 1
-        namespace upvar ::tomlish::parse token_waiting token_waiting 
-        set token_waiting [dict create] ;#if ::tok finds a *complete* second token during a run, it will put the 2nd one here to be returned by the next call.
-        
-        
-        set state "table-space"
-        ::tomlish::parse::spacestack push {type space state table-space}
-        namespace upvar  ::tomlish::parse linenum  linenum;#'line number' of input data. (incremented for each literal linefeed - but not escaped ones in data)
-        set linenum 1
-
-        set ::tomlish::parse::state_list [list] 
-        try {
-            while {$r} {
-                set r [::tomlish::parse::tok $s]
-                #puts stdout "got tok: '$tok' while parsing string '$s' "
-                set next_tokenType_known 0 ;#whether we begin a new token here based on what terminated the token result of 'tok'
-                
-                
-                
-                #puts "got token: '$tok'  tokenType='$tokenType'. while v($nest) = [set v($nest)]"
-                #puts "-->tok: $tok tokenType='$tokenType'"
-                set prevstate $state
-                set transition_info [::tomlish::parse::goNextState $tokenType $tok $state]
-                #review goNextState could perform more than one space_action
-                set space_action [dict get $transition_info space_action]
-                set newstate     [dict get $transition_info newstate] ;#use of 'newstate' vs 'state' makes code clearer below
-                
-                if {[tcl::string::match "err-*" $state]} {
-                    ::tomlish::log::warn "---- State error in state $prevstate for tokenType: $tokenType token value: $tok. $state aborting parse. [tomlish::parse::report_line]"
-                    lappend v(0) [list ERROR tokentype $tokenType state $prevstate to $state  leveldata [set v($nest)]]
-                    return $v(0)
-                }
-                # ---------------------------------------------------------
-                #NOTE there may already be a token_waiting at this point
-                #set_token_waiting can raise an error here,
-                # in which case the space_action branch needs to be rewritten to handle the existing token_waiting
-                # ---------------------------------------------------------
-
-                if {$space_action eq "pop"} {
-                    #pop_trigger_tokens: newline tablename endarray endinlinetable 
-                    #note a token is a pop trigger depending on context. e.g first newline during keyval is a pop trigger.
-                    set parentlevel [expr {$nest -1}]
-                    set do_append_to_parent 1 ;#most tokens will leave this alone - but some like squote_seq need to do their own append 
-                    switch -exact -- $tokenType {
-                        squote_seq {
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the xxx-squote-space isn't a space level from the toml perspective 
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop 
-                            switch -- $tok {
-                                ' {
-                                    tomlish::parse::set_token_waiting type startsquote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                '' {
-                                    #review - we should perhaps return double_squote instead? 
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_squote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                ''' {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                '''' {
-                                    switch -exact -- $prevstate {
-                                        leading-squote-space {
-                                            error "---- 4 squotes from leading-squote-space - shouldn't get here"
-                                            #we should have emitted the triple and left the last for next loop
-                                        }
-                                        trailing-squote-space {
-                                            tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 4}]
-                                            #todo integrate left squote with nest data at this level
-                                            set lastpart [lindex $v($parentlevel) end]
-                                            switch -- [lindex $lastpart 0] {
-                                                LITERALPART {
-                                                    set newval "[lindex $lastpart 1]'"
-                                                    set parentdata $v($parentlevel) 
-                                                    lset parentdata end [list LITERALPART $newval]
-                                                    set v($parentlevel) $parentdata
-                                                }
-                                                NEWLINE {
-                                                    lappend v($parentlevel) [list LITERALPART "'"]
-                                                }
-                                                default {
-                                                    error "--- don't know how to integrate extra trailing squote with data $v($parentlevel)"
-                                                }
-                                            }
-                                        }
-                                        default {
-                                            error "--- unexpected popped due to squote_seq but came from state '$prevstate' should have been leading-squote-space or trailing-squote-space"
-                                        }
-                                    }
-                                }
-                                ''''' {
-                                    switch -exact -- $prevstate {
-                                        leading-squote-space {
-                                            error "---- 5 squotes from leading-squote-space - shouldn't get here"
-                                            #we should have emitted the triple and left the following squotes for next loop 
-                                        }
-                                        trailing-squote-space {
-                                            tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i-5}]
-                                            #todo integrate left 2 squotes with nest data at this level
-                                            set lastpart [lindex $v($parentlevel) end]
-                                            switch -- [lindex $lastpart 0] {
-                                                LITERALPART {
-                                                    set newval "[lindex $lastpart 1]''"
-                                                    set parentdata $v($parentlevel) 
-                                                    lset parentdata end [list LITERALPART $newval]
-                                                    set v($parentlevel) $parentdata
-                                                }
-                                                NEWLINE {
-                                                    lappend v($parentlevel) [LITERALPART "''"]
-                                                }
-                                                default {
-                                                    error "--- don't know how to integrate extra trailing 2 squotes with data $v($parentlevel)"
-                                                }
-                                            }
-                                        }
-                                        default {
-                                            error "--- unexpected popped due to squote_seq but came from state '$prevstate' should have been leading-squote-space or trailing-squote-space"
-                                        }
-                                    }
-                                }
-                            }
-                            puts "---- HERE squote_seq pop <$tok>"
-                        }
-                        triple_squote {
-                            #presumably popping multiliteral-space
-                            ::tomlish::log::debug "---- triple_squote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTILITERAL {
-                                        lappend merged $part
-                                    }
-                                    LITERALPART {
-                                        if {$lasttype eq "LITERALPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_squote unhandled part type [lindex $part 0] unable to merge leveldata: $v($next)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        equal {
-                            if {$prevstate eq "dottedkey-space"} {
-                                tomlish::log::debug "---- equal ending dottedkey-space for last_space_action pop" 
-                                #re-emit for parent space 
-                                tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                            }
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        tablename {
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablename pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        tablearrayname {
-                            #!review - tablearrayname different to tablename regarding push/pop?
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablearrayname pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        endarray {
-                            #nothing to do here.
-                        }
-                        comma {
-                            #comma for inline table will pop the keyvalue space
-                            lappend v($nest) "SEP"
-                        }
-                        endinlinetable {
-                            ::tomlish::log::debug "---- endinlinetable for last_space_action pop"
-                        }
-                        endmultiquote {
-                            ::tomlish::log::debug "---- endmultiquote for last_space_action 'pop'"
-                        }
-                        default {
-                            error "---- unexpected tokenType '$tokenType' for last_space_action 'pop'"
-                        }
-                    }
-                    if {$do_append_to_parent} {
-                        #e.g squote_seq does it's own appends as necessary - so won't get here
-                        lappend v($parentlevel) [set v($nest)]
-                    }
-
-                    incr nest -1
-                    
-                }	elseif {$last_space_action eq "push"} {
-                    set prevnest $nest
-                    incr nest 1
-                    set v($nest) [list]
-                    # push_trigger_tokens: barekey quotedkey startinlinetable startarray tablename tablearrayname
-
-
-                    switch -exact -- $tokenType {
-                        squote_seq_begin {
-                            ####
-                            if {[dict exists $transition_info starttok] && [dict get $transition_info starttok] ne ""} {
-                                lassign [dict get $transition_info starttok] starttok_type starttok_val
-                                set next_tokenType_known 1
-                                ::tomlish::parse::set_tokenType $starttok_type
-                                set tok $starttok_val
-                            }
-                        }
-                        squotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        barekey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            set waiting [tomlish::parse::get_token_waiting]
-                            if {[llength $waiting]} {
-                                set i [dict get $waiting startindex] 
-                                tomlish::parse::clear_token_waiting
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            } else {
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            }
-                        }
-                        startsquote {
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "squotedkey"
-                            set tok ""
-                        }
-                        quotedkey - itablequotedkey {
-                            set v($nest) [list QKEY $tok] ;#$tok is the keyname
-                        }
-                        itablesquotedkey {
-                            set v($nest) [list SQKEY $tok] ;#$tok is the keyname
-                        }
-                        tablename {
-                            #note: we do not use the output of tomlish::tablename_trim to produce a tablename for storage in the tomlish list!
-                            #The tomlish list is intended to preserve all whitespace (and comments) - so a roundtrip from toml file to tomlish
-                            # back to toml file will be identical.
-                            #It is up to the datastructure stage to normalize and interpret tomlish for programmatic access.
-                            # we call tablename_trim here only to to validate that the tablename data is well-formed at the outermost level, 
-                            # so we can raise an error at this point rather than create a tomlish list with obviously invalid table names.
-                            
-                            #todo - review!  It's arguable that we should not do any validation here, and just store even incorrect raw tablenames,
-                            # so that the tomlish list is more useful for say a toml editor. Consider adding an 'err' tag to the appropriate place in the 
-                            # tomlish list?
-                            
-                            set test_only [::tomlish::utils::tablename_trim $tok]
-                            ::tomlish::log::debug "---- trimmed (but not normalized) tablename: '$test_only'"
-                            set v($nest) [list TABLE $tok] ;#$tok is the *raw* table name
-                            #note also that equivalent tablenames may have different toml representations even after being trimmed!
-                            #e.g ["x\t\t"]  & ["x		"]  (tab escapes vs literals)
-                            #These will show as above in the tomlish list, but should normalize to the same tablename when used as keys by the datastructure stage.
-                        }
-                        tablearrayname {
-                            set test_only [::tomlish::utils::tablename_trim $tok]
-                            puts stdout "trimmed (but not normalized) tablearrayname: '$test_only'"
-                            set v($nest) [list TABLEARRAY $tok] ;#$tok is the *raw* tablearray name
-                        }
-                        startarray {
-                            set v($nest) [list ARRAY] ;#$tok is just the opening bracket - don't output.
-                        }
-                        startinlinetable {
-                            set v($nest) [list ITABLE] ;#$tok is just the opening curly brace - don't output.
-                        }
-                        startmultiquote {
-                            ::tomlish::log::debug "---- push trigger tokenType startmultiquote"
-                            set v($nest) [list MULTISTRING] ;#container for STRINGPART, WS, CONT, NEWLINE
-                        }
-                        triple_squote {
-                            ::tomlish::log::debug "---- push trigger tokenType triple_squote"
-                            set v($nest) [list MULTILITERAL] ;#container for NEWLINE,LITERAL
-                        }
-                        default {
-                            error "---- push trigger tokenType '$tokenType' not yet implemented"
-                        }
-                    }
-                    
-                } else {
-                    #no space level change
-                    switch -exact -- $tokenType {
-                        squotedkey {
-                            puts "---- squotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list SQKEY $tok] 
-                        }
-                        barekey {
-                            lappend v($nest) [list KEY $tok]
-                        }
-                        dotsep {
-                            lappend v($nest) [list DOTSEP]
-                        }
-                        starttablename {
-                            #$tok is triggered by the opening bracket and sends nothing to output
-                        }
-                        starttablearrayname {
-                            #$tok is triggered by the double opening brackets and sends nothing to output
-                        }
-                        tablename - tablenamearray {
-                            error "---- did not expect 'tablename/tablearrayname' without space level change (no space level change)"
-                            #set v($nest) [list TABLE $tok]
-                        }
-                        endtablename - endtablearrayname {
-                            #no output into the tomlish list for this token
-                        }
-                        startinlinetable {
-                            puts stderr "---- decode::toml error. did not expect startinlinetable without space level change (no space level change)"
-                        }
-                        startquote {
-                            switch -exact -- $newstate {
-                                string-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "string"
-                                    set tok ""
-                                }
-                                quoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "quotedkey"
-                                    set tok ""
-                                }
-                                itable-quoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "itablequotedkey"
-                                    set tok ""
-                                }
-                                default {
-                                    error "----  startquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        startsquote {
-                            switch -exact -- $newstate {
-                                literal-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "literal"
-                                    set tok ""
-                                }
-                                squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "squotedkey"
-                                    set tok ""
-                                }
-                                itable-squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "itablesquotedkey"
-                                    set tok ""
-                                }
-                                multiliteral-space {
-                                    #false alarm squote returned from squote_seq pop
-                                    ::tomlish::log::debug "---- adding lone squote to own LITERALPART nextstate: $newstate (no space level change)"
-                                    #(single squote - not terminating space)
-                                    lappend v($nest) [list LITERALPART ']
-                                    #may need to be joined on pop if there are neighbouring LITERALPARTs
-                                }
-                                default {
-                                    error "---- startsquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        startmultiquote {
-                            #review
-                            puts stderr "---- got startmultiquote in state $prevstate (no space level change)"
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "stringpart"
-                            set tok ""
-                        }
-                        endquote {
-                            #nothing to do?
-                            set tok ""
-                        }
-                        endsquote {
-                            set tok ""
-                        }
-                        endmultiquote {
-                            #JMN!!
-                            set tok ""
-                        }
-                        string {
-                            lappend v($nest) [list STRING $tok] ;#directly wrapped in dquotes
-                        }
-                        literal {
-                            lappend v($nest) [list LITERAL $tok] ;#directly wrapped in squotes
-                        }
-                        double_squote {
-                            switch -exact -- $prevstate {
-                                keyval-value-expected {
-                                    lappend v($nest) [list LITERAL ""] 
-                                }
-                                multiliteral-space {
-                                    #multiliteral-space to multiliteral-space
-                                    lappend v($nest) [list LITERALPART '']
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-                        }
-                        multistring {
-                            #review
-                            lappend v($nest) [list MULTISTRING $tok]
-                        }
-                        stringpart {
-                            lappend v($nest) [list STRINGPART $tok] ;#will not get wrapped in dquotes directly
-                        }
-                        multiliteral {
-                            lappend v($nest) [LIST MULTILITERAL $tok]
-                        }
-                        literalpart {
-                            lappend v($nest) [list LITERALPART $tok] ;#will not get wrapped in squotes directly
-                        }
-                        quotedkey {
-                            #lappend v($nest) [list QKEY $tok]  ;#TEST
-                        }
-                        itablequotedkey {
-
-                        }
-                        untyped_value {
-                            #we can't determine the type of unquoted values (int,float,datetime,bool) until the entire token was read.
-                            if {$tok in {true false}} {
-                                set tag BOOL
-                            } elseif {[::tomlish::utils::is_int $tok]} {
-                                set tag INT
-                            } elseif {[::tomlish::utils::is_float $tok]} {
-                                set tag FLOAT
-                            } elseif {[::tomlish::utils::is_datetime $tok]} {
-                                set tag DATETIME
-                            } else {
-                                error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. [tomlish::parse::report_line] (no space level change)"
-                            }
-                            lappend v($nest) [list $tag $tok]
-
-                        }
-                        comment {
-                            #puts stdout "----- comment token returned '$tok'------"
-                            lappend v($nest) [list COMMENT "$tok"]
-                        }
-                        equal {
-                            #we append '=' to the nest so that any surrounding whitespace is retained.
-                            lappend v($nest)  =
-                        }
-                        comma {
-                            lappend v($nest) SEP
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        whitespace {
-                            lappend v($nest) [list WS $tok]
-                        }
-                        continuation {
-                            lappend v($nest) CONT
-                        }
-                        bom {
-                            lappend v($nest) BOM
-                        }
-                        eof {
-                            #ok - nothing more to add to the tomlish list.
-                            #!todo - check previous tokens are complete/valid?
-                        }
-                        default {
-                            error "--- unknown tokenType '$tokenType' during state $prevstate [::tomlish::parse::report_line] (no space level change)"
-                        }
-                    }
-                }
-                
-                if {!$next_tokenType_known} {
-                    ::tomlish::log::notice "---- tomlish::decode::toml - current tokenType:$tokenType Next token type not known"
-                    ::tomlish::parse::set_tokenType ""
-                    set tok ""
-                }
-                
-                if {$state eq "end-state"} {
-                    break
-                }
-                
-                
-            }
-            
-            #while {$nest > 0} {
-            #	lappend v([expr {$nest -1}]) [set v($nest)]
-            #	incr nest -1
-            #}
-            while {[::tomlish::parse::spacestack size] > 1} {
-                ::tomlish::parse::spacestack pop
-                lappend v([expr {$nest -1}]) [set v($nest)]
-                incr nest -1
-                
-                #set parent [spacestack peek] ;#the level being appended to
-                #lassign $parent type state
-                #if {$type eq "space"} {
-                #	
-                #} elseif {$type eq "buffer"} {
-                #	lappend v([expr {$nest -1}]) {*}[set v($nest)]
-                #} else {
-                #	error "invalid spacestack item: $parent"
-                #}
-            }
-            
-        } finally {
-            set is_parsing 0
-        }	
-        return $v(0)
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::decode ---}]
-}
-#decode toml to tomlish
-interp alias {} tomlish::from_toml {} tomlish::decode::toml
-
-namespace eval tomlish::utils {
-    #*** !doctools
-    #[subsection {Namespace tomlish::utils}]
-    #[para] 
-    #[list_begin definitions]
-
-
-    #tablenames (& tablearraynames) may contain irrelevant leading, trailing and interspersed whitespace
-    # tablenames can be made up of segments delimited by dots. .eg   [ a.b . c ]
-    #trimmed, the tablename becomes  {a.b.c}
-    # A segment may contain whitespace if it is quoted  e.g [a . b . "c etc "    ]
-    #ie whitespace is only irrelevant if it's outside a quoted segment
-    #trimmed, the tablename becomes {a.b."c etc "}
-    proc tablename_trim {tablename} {
-        set segments [tablename_split $tablename false]
-        set trimmed_segments [list]
-        foreach seg $segments {
-            lappend trimmed_segments [::string trim $seg " \t"]
-        }
-        return [join $trimmed_segments .]
-    }
-
-    #basic generic quote matching for single and double quotes
-    #note for example that {[o'malley]} will return sq - as the single quote is not closed or wrapped in double quotes 
-    proc tok_in_quotedpart {tok} {
-        set sLen [tcl::string::length $tok]
-        set quote_type ""
-        set had_slash 0
-        for {set i 0} {$i < $sLen} {incr i} {
-            set c [tcl::string::index $tok $i]
-            if {$quote_type eq ""} {
-                if {$had_slash} {
-                    #don't enter quote mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0 
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            set quote_type dq
-                        }
-                        sq {
-                            set quote_type sq
-                        }
-                        bsl {
-                            set had_slash 1
-                        } 
-                    }
-                }
-            } else {
-                if {$had_slash} {
-                    #don't leave quoted mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            if {$quote_type eq "dq"} {
-                                set quote_type ""
-                            }
-                        }
-                        sq {
-                            if {$quote_type eq "sq"} {
-                                set quote_type ""
-                            }
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            }
-        }
-        return $quote_type ;#dq | sq
-    }
-
-    #utils::tablename_split
-    proc tablename_split {tablename {normalize false}} {
-        #we can't just split on . because we have to handle quoted segments which may contain a dot.
-        #eg {dog."tater.man"}
-        set sLen [tcl::string::length $tablename]
-        set segments [list]
-        set mode "unknown"  ;#5 modes: unknown, quoted,litquoted, unquoted, syntax
-        #quoted is for double-quotes,  litquoted is for single-quotes (string literal)
-        set seg ""
-        for {set i 0} {$i < $sLen} {incr i} {
-            
-            if {$i > 0} {
-                set lastChar [tcl::string::index $tablename [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-            
-            set c [tcl::string::index $tablename $i]
-            
-            if {$c eq "."} {
-                switch -exact -- $mode {
-                    unquoted {
-                        #dot marks end of segment.
-                        lappend segments $seg
-                        set seg ""
-                        set mode "unknown"
-                    }
-                    quoted {
-                        append seg $c
-                    }
-                    unknown {
-                        lappend segments $seg
-                        set seg ""
-                    }
-                    litquoted {
-                        append seg $c
-                    }
-                    default {
-                        #mode: syntax
-                        #we got our dot. - the syntax mode is now satisfied.
-                        set mode "unknown"
-                    }
-                }
-            } elseif {($c eq "\"") && ($lastChar ne "\\")} {
-                if {$mode eq "unknown"} {
-                    if {[tcl::string::trim $seg] ne ""} {
-                        #we don't allow a quote in the middle of a bare key
-                        error "tablename_split. character '\"' invalid at this point in tablename. tablename: '$tablename'"
-                    }
-                    set mode "quoted"
-                    set seg "\""
-                } elseif {$mode eq "unquoted"} {
-                    append seg $c  
-                } elseif {$mode eq "quoted"} {
-                    append seg $c
-                    lappend segments $seg
-                    set seg ""
-                    set mode "syntax" ;#make sure we only accept a dot or end-of-data now.
-                } elseif {$mode eq "litquoted"} {
-                    append seg $c
-                } elseif {$mode eq "syntax"} {
-                    error "tablename_split. expected whitespace or dot, got double quote. tablename: '$tablename'"
-                }
-            } elseif {($c eq "\'")} {
-                if {$mode eq "unknown"} {
-                    append seg $c
-                    set mode "litquoted"
-                } elseif {$mode eq "unquoted"} {
-                    #single quote inside e.g o'neill
-                    append seg $c
-                } elseif {$mode eq "quoted"} {
-                    append seg $c
-                
-                } elseif {$mode eq "litquoted"} {
-                    append seg $c
-                    lappend segments $seg
-                    set seg ""
-                    set mode "syntax"
-                } elseif {$mode eq "syntax"} {
-                    error "tablename_split. expected whitespace or dot, got single quote. tablename: '$tablename'"
-                }
-            
-            } elseif {$c in [list " " \t]} {
-                if {$mode eq "syntax"} {
-                    #ignore
-                } else {
-                    append seg $c
-                }
-            } else {
-                if {$mode eq "syntax"} {
-                    error "tablename_split. Expected a dot separator. got '$c'. tablename: '$tablename'"
-                }
-                if {$mode eq "unknown"} {
-                    set mode "unquoted"
-                }
-                append seg $c
-            }
-            if {$i == $sLen-1} {
-                #end of data
-                ::tomlish::log::debug "End of data: mode='$mode'"
-                switch -exact -- $mode {
-                    quoted {
-                        if {$c ne "\""} {
-                            error "tablename_split. missing closing double-quote in a segment. tablename: '$tablename'"
-                        }
-                        if {$normalize} {
-                            lappend segments $seg
-                        } else {
-                            lappend segments [::tomlish::utils::unescape_string [tcl::string::range $seg 1 end-1]]
-                            #lappend segments [subst -nocommands -novariables [::string range $seg 1 end-1]] ;#wrong 
-                        }
-                    }
-                    litquoted {
-                        set trimmed_seg [tcl::string::trim $seg]
-                        if {[tcl::string::index $trimmed_seg end] ne "\'"} {
-                            error "tablename_split. missing closing single-quote in a segment. tablename: '$tablename'"
-                        }
-                        lappend segments $seg
-                    }
-                    unquoted - unknown {
-                        lappend segments $seg
-                    }
-                    syntax {
-                        #ok - segment already lappended
-                    }
-                    default {
-                        lappend segments $seg
-                    }
-                }
-            }
-        }
-        foreach seg $segments {
-            set trimmed [tcl::string::trim $seg " \t"]
-            #note - we explicitly allow 'empty' quoted strings  '' & "" 
-            # (these are 'discouraged' but valid toml keys)
-            #if {$trimmed in [list "''" "\"\""]} {
-            #	puts stderr "tablename_split. warning - Empty quoted string as tablename segment"
-            #}
-            if {$trimmed eq "" } {
-                error "tablename_split. Empty segment found. tablename: '$tablename' segments [llength $segments] ($segments)"
-            }
-        }
-        return $segments
-    }
-
-    proc unicode_escape_info {slashu} {
-            #!todo
-            # validate that slashu is either a \uxxxx or \Uxxxxxxxx value of the correct length and 
-            # is a valid 'unicode scalar value'
-            # ie integers in the range 0 to D7FF16 and E00016 to 10FFFF16 inclusive
-            #expr {(($x >= 0) && ($x <= 0xD7FF16)) || (($x >= 0xE00016) && ($x <= 0x10FFFF16))}
-            if {[tcl::string::match {\\u*} $slashu]} {
-                set exp {^\\u([0-9a-fA-F]{4}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %4x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\uHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } elseif {[tcl::string::match {\\U*} $slashu]} {
-                set exp {^\\U([0-9a-fA-F]{8}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %8x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        if {(($dec >= 0) && ($dec <= 0xD7FF16)) || (($dec >= 0xE00016) && ($dec <= 0x10FFFF16))} {
-                            return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                        } else {
-                            return [list err [list reason "$slashu is not within the 'unicode scalar value' ranges 0 to 0xD7FF16 or 0xE00016 to 0x10FFFF16"]]
-                        }
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\UHHHHHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } else {
-                return [list err [list reason "Supplied string did not start with \\u or \\U" ]]
-            }		
-            
-    }
-
-    proc unescape_string {str} {
-        #note we can't just use Tcl subst because:
-        # it also transforms \a (audible bell) and \v (vertical tab) which are not in the toml spec.
-        # it would strip out backslashes inappropriately: e.g "\j" becomes just j
-        # it recognizes other escapes which aren't approprite  e.g \xhh and octal \nnn
-        # it replaces\<newline><whitespace> with a single whitespace
-        #This means we shouldn't use 'subst' on the whole string, but instead substitute only the toml-specified escapes (\r \n \b \t \f \\ \" \uhhhh & \Uhhhhhhhh
-        
-        set buffer ""
-        set buffer4 ""  ;#buffer for 4 hex characters following a \u
-        set buffer8 ""  ;#buffer for 8 hex characters following a \u
-        
-        set sLen [tcl::string::length $str]
-        
-        #we need to handle arbitrarily long sequences of backslashes.  \\\\\ etc
-        set slash_active 0
-        set unicode4_active 0
-        set unicode8_active 0
-        
-        
-        #!todo - check for invalid data in the form of a raw carriage return (decimal 13) without following linefeed?
-        set i 0
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $str [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-            
-            set c [tcl::string::index $str $i]
-            ::tomlish::log::debug "unescape_string. got char $c"
-            scan $c %c n
-            if {($n <= 31) && ($n != 9) && ($n != 10) && ($n != 13)} {
-                #we don't expect unescaped unicode characters from 0000 to 001F -
-                #*except* for raw tab (which is whitespace) and newlines
-                error "unescape_string. Invalid data for a toml string. Unescaped control character (decimal $n) [::tomlish::utils::string_to_slashu $c]"
-            }
-            incr i ;#must incr here because we do'returns'inside the loop
-            if {$c eq "\\"} {
-                if {$slash_active} {
-                    append buffer "\\"
-                    set slash_active 0
-                } elseif {$unicode4_active} {
-                    error "unescape_string. unexpected case slash during unicode4 not yet handled"
-                } elseif {$unicode8_active} {
-                    error "unescape_string. unexpected case slash during unicode8 not yet handled"
-                } else {
-                    # don't output anything (yet)	
-                    set slash_active 1
-                }
-            } else {
-                if {$unicode4_active} {
-                    if {[tcl::string::length $buffer4] < 4} {
-                        append buffer4 $c
-                    } 
-                    if {[tcl::string::length $buffer4] == 4} {
-                        #we have a \uHHHH to test
-                        set unicode4_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\u$buffer4"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$unicode8_active} {
-                    if {[tcl::string::length $buffer8] < 8} {
-                        append buffer8 $c
-                    } 
-                    if {[tcl::string::length $buffer8] == 8} {
-                        #we have a \UHHHHHHHH to test
-                        set unicode8_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\U$buffer8"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$slash_active} {
-                    set slash_active 0
-                    set ctest [tcl::string::map {{"} dq} $c]
-                    switch -exact -- $ctest {
-                        dq {
-                            set e "\\\""
-                            append buffer [subst -nocommand -novariable $e]
-                        }
-                        b - t - n - f - r {
-                            set e "\\$c"
-                            append buffer [subst -nocommand -novariable $e]
-                        }
-                        u {
-                            set unicode4_active 1
-                            set buffer4 ""
-                        }
-                        U {
-                            set unicode8_active 1
-                            set buffer8 ""
-                        }
-                        default {
-                            set slash_active 0
-                            
-                            append buffer "\\"  
-                            append buffer $c
-                        }
-                    } 
-                } else {
-                    append buffer $c
-                }
-            }
-        }
-        #puts stdout "EOF 4:$unicode4_active 8:$unicode8_active slash:$slash_active"
-        if {$unicode4_active} {
-            error "End of string reached before complete unicode escape sequence \uHHHH" 
-        }
-        if {$unicode8_active} {
-            error "End of string reached before complete unicode escape sequence \UHHHHHHHH" 
-        }
-        if {$slash_active} {
-            append buffer "\\"
-        }
-        return $buffer
-    }
-
-    proc normalize_key {rawkey} {
-        set c1 [tcl::string::index $rawkey 0]
-        set c2 [tcl::string::index $rawkey end]
-        if {($c1 eq "'") && ($c2 eq "'")} {
-            #single quoted segment. No escapes allowed within it.
-            set key [tcl::string::range $rawkey 1 end-1]
-        } elseif {($c1 eq "\"") && ($c2 eq "\"")} {
-            #double quoted segment. Apply escapes.
-            #
-            set keydata [tcl::string::range $rawkey 1 end-1] ;#strip outer quotes only
-            set key [::tomlish::utils::unescape_string $keydata]
-            #set key [subst -nocommands -novariables $keydata] ;#wrong. Todo - create a string escape substitution function.
-        } else {
-            set key $rawkey
-        }
-        return $key
-    } 
-
-    proc string_to_slashu {string} {
-        set rv {}
-        foreach c [split $string {}] {
-            scan $c %c c
-            append rv {\u}
-            append rv [format %.4X $c]
-        }
-        return $rv
-    }
-
-    #'nonprintable' is conservative here because some systems (e.g windows console) are very limited in what they can display. 
-    proc nonprintable_to_slashu {s} {
-        set res ""
-        foreach i [split $s ""] {
-            scan $i %c c
-            
-            set printable 0
-            if {($c>31) && ($c<127)} {
-                set printable 1
-            }
-            if {$printable} {append res $i} else {append res \\u[format %.4X $c]}
-        }
-        set res
-    } ;#RS 
-
-    #check if str is valid for use as a toml bare key
-    #Early toml versions? only allowed letters + underscore + dash
-    proc is_barekey1 {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        } else {
-            set matches [regexp -all {[a-zA-Z0-9\_\-]} $str]
-            if {[tcl::string::length $str] == $matches} {
-                #all characters match the regexp
-                return 1
-            } else {
-                return 0
-            }
-        }
-    }
-
-    #from toml.abnf in github.com/toml-lang/toml
-    #unquoted-key = 1*unquoted-key-char
-    #unquoted-key-char = ALPHA / DIGIT / %x2D / %x5F         ; a-z A-Z 0-9 - _
-    #unquoted-key-char =/ %xB2 / %xB3 / %xB9 / %xBC-BE       ; superscript digits, fractions
-    #unquoted-key-char =/ %xC0-D6 / %xD8-F6 / %xF8-37D       ; non-symbol chars in Latin block
-    #unquoted-key-char =/ %x37F-1FFF                         ; exclude GREEK QUESTION MARK, which is basically a semi-colon
-    #unquoted-key-char =/ %x200C-200D / %x203F-2040          ; from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    #unquoted-key-char =/ %x2070-218F / %x2460-24FF          ; include super-/subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    #unquoted-key-char =/ %x2C00-2FEF / %x3001-D7FF          ; skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    #unquoted-key-char =/ %x2070-21FF / %x2300-24FF          ; skip math operators
-    #unquoted-key-char =/ %x25A0-268B / %x2690-2757          ; skip box drawing, block elements, and some yin-yang symbols
-    #unquoted-key-char =/ %x2762-2767 / %x2776-27E5          ; skip some Dingbat punctuation
-    #unquoted-key-char =/ %x2801-297F                        ; skip some math brackets and arrows, and braille blank
-    #unquoted-key-char =/ %x2B00-2FFF / %x3001-D7FF          ; skip various math operators and symbols, and ideographic space
-    #unquoted-key-char =/ %xF900-FDCF / %xFDF0-FFFD          ; skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    #unquoted-key-char =/ %x10000-EFFFF                      ; all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    variable re_barekey
-    set ranges [list]
-    lappend ranges {a-zA-Z0-9\_\-}
-    lappend ranges {\u00B2} {\u00B3} {\u00B9} {\u00BC-\u00BE}       ;# superscript digits, fractions
-    lappend ranges {\u00C0-\u00D6} {\u00D8-\u00F6} {\u00F8-\u037D}  ;# non-symbol chars in Latin block
-    lappend ranges {\u037f-\u1FFF}                                  ;# exclude GREEK QUESTION MARK, which is basically a semi-colon
-    lappend ranges {\u200C-\u200D} {\u203F-\u2040}                  ;# from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    lappend ranges {\u2070-\u218f} {\u2460-\u24FF}                  ;# include super-subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    lappend ranges {\u2C00-\u2FEF} {\u3001-\uD7FF}                  ;# skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    lappend ranges {\u2070-\u21FF} {\u2300-\u24FF}                  ;# skip math operators
-    lappend ranges {\u25A0-\u268B} {\u2690-\u2757}                  ;# skip box drawing, block elements, and some yin-yang symbols
-    lappend ranges {\u2762-\u2767} {\u2776-\u27E5}                  ;# skip some Dingbat punctuation
-    lappend ranges {\u2801-\u297F}                                  ;# skip some math brackets and arrows, and braille blank
-    lappend ranges {\u2B00-\u2FFF} {\u3001-\uD7FF}                  ;# skip various math operators and symbols, and ideographic space
-    lappend ranges {\uF900-\uFDCF} {\uFDF0-\uFFFD}                  ;# skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    lappend ranges {\U10000-\UEFFFF}                                ;# all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    set re_barekey {^[}
-    foreach r $ranges {
-        append re_barekey $r
-    }
-    append re_barekey {]+$}
-
-    proc is_barekey {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        }
-        variable re_barekey
-        return [regexp $re_barekey $str]
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'integer'.
-    proc int_validchars1 {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_\-\+]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    #add support for hex,octal,binary 0x.. 0o.. 0b...
-    proc int_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_int {str} {
-        set matches [regexp -all {[0-9\_xo\-\+A-Fa-f]} $str]
-        
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-
-            # --------------------------------------- 
-            #check for leading zeroes in non 0x 0b 0o 
-            #first strip any +, -  or _ (just for this test)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            if {([tcl::string::length $check] > 1) && ([tcl::string::index $check 0] eq "0") && ([tcl::string::index $check 1] ni {o x b})} {
-                return 0
-            } 
-            # --------------------------------------- 
-
-            #check +,- only occur in the first position.
-            if {[tcl::string::last - $str] > 0} {
-                return 0 
-            }
-            if {[tcl::string::last + $str] > 0} {
-                return 0 
-            }
-            set numeric_value [tcl::string::map {_ ""} $str] ;#allow some earlier tcl versions which don't support underscores
-            #use Tcl's integer check to ensure we don't let things like 3e4 through - which is a float (would need to be 0x3e4 for hex)
-            if {![tcl::string::is integer -strict $numeric_value]} {
-                return 0
-            }
-            #!todo - check bounds only based on some config value
-            #even though Tcl can handle bignums, we won't accept anything outside of toml 1.0 minimum requirements. 
-            #presumably very large numbers would have to be supplied in a toml file as strings.
-            #Review - toml 1.0 only says that it must handle up to 2^63 - not that this is a max
-            if {$numeric_value > $::tomlish::max_int} {
-                return 0
-            }
-            if {$numeric_value < $::tomlish::min_int} {
-                return 0
-            }
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'float'.
-    proc float_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[eE0-9\_\-\+\.]} $str] == $numchars} {
-            return 1
-        } else {
-            #only allow lower case for these special values - as per Toml 1.0 spec
-            if {$str ni {inf +inf -inf nan +nan -nan}} {
-                return 0
-            } else {
-                return 1
-            }
-        }
-    }
-
-    proc is_float {str} {
-        set matches [regexp -all {[eE0-9\_\-\+\.]} $str]
-        #don't test for case variations - as Toml doesn't allow (whereas Tcl allows Inf NaN etc)
-        if {$str in {inf +inf -inf nan +nan -nan}} {
-            return 1
-        }
-        
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            #A leading zero is ok, but we should disallow multiple leading zeroes (same rules as toml ints)
-            #Toml spec also disallows leading zeros in the exponent part
-            #... but this seems less interoperable (some libraries generate leading zeroes in exponents)
-            #for now we will allow leading zeros in exponents
-            #!todo - configure 'strict' option to disallow?
-            #first strip any +, -  or _ (just for this test)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            set r {([0-9])*}
-            regexp $r $check intpart  ;#intpart holds all numerals before the first .,e or E
-            set z {([0])*}
-            regexp $z $intpart leadingzeros
-            if {[tcl::string::length $leadingzeros] > 1} {
-                return 0
-            }
-            #for floats, +,- may occur in multiple places
-            #e.g -2E-22   +3e34
-            #!todo - check bounds ?
-            
-            #strip underscores for tcl double check
-            set check [tcl::string::map {_ ""} $str]
-            #string is double accepts inf nan +NaN etc.
-            if {![tcl::string::is double $check]} {
-                return 0
-            }
-            
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'datetime'.
-    proc datetime_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[zZtT0-9\-\+\.:]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    #review - we 
-    proc is_datetime {str} {
-        #e.g 1979-05-27
-        #e.g 1979-05-27T00:32:00Z
-        #e.g 1979-05-27 00:32:00-07:00
-        #e.g 1979-05-27 00:32:00+10:00
-        #e.g 1979-05-27 00:32:00.999999-07:00
-
-        #review
-        #minimal datetimes? 
-        # 2024 ok - shortest valid 4 digit year?
-        # 02:00 ok
-        # 05-17 ok
-        if {[string length $str] < 4} {
-            return 0
-        }
-        
-        set matches [regexp -all {[zZtT0-9\-\+\.:]} $str]
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            #!todo - use full RFC 3339 parser?
-            lassign [split $str T] datepart timepart
-            #!todo - what if the value is 'time only'?
-
-            #Tcl's free-form clock scan (no -format option) is deprecated 
-            # 
-            #if {[catch {clock scan $datepart} err]} {
-            #    puts stderr "tcl clock scan failed err:'$err'"
-            #    return 0
-            #}
-
-            #!todo - verify time part is reasonable
-        } else {
-            return 0
-        }
-        return 1
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::utils ---}]
-}
-
-namespace eval tomlish::parse {
-    #*** !doctools
-    #[subsection {Namespace tomlish::parse}]
-    #[para] 
-    #[list_begin definitions]
-
-    #This is a somewhat curly mix of a statemachine and toml-nesting-stack littered with special cases.
-    #The code is a pig's-nest - but it should be noted that for example trailing single double quotes in multiline strings are perhaps not so trivial to parse using more standard methods either:
-    # - e.g some kind of backtracking required if using an ABNF parser?
-    #I don't know the precise technical name for this sort of parser; probably something like "Dog's Breakfast"
-    #More seriously, we don't have distinct lex/parse steps - so it is basically a 'fused lexer' or 'scannerless parser'
-    
-    #It is also desirable for this system to be useful in 'interactive' use. review - would a separate lexer make this easier or harder? 
-
-    #A possible alternative more structured approach might be to use a PEG (Parsing Expression Grammar)
-    
-
-    variable is_parsing 0  ;#whether we are in the middle of parsing tomlish text
-
-    variable state 
-    # states: 
-    # table-space, itable-space, array-space
-    # value-expected, keyval-syntax,
-    # quoted-key, squoted-key
-    # string-state, literal-state, multistring...
-    #
-    # notes:
-    # only the -space states are also 'spaces' ie a container which is pushed/popped on the spacestack
-
-    #
-    # value-expected  - we also allow for leading whitespace in this state, but once a value is returned we jump to a state based on the containing space. e.g keyval-tail or array-syntax
-    #
-    #stateMatrix defines for each state, actions to take for each possible token.
-    #single-element actions are the name of the next state into which to transition, or a 'POPSPACE' instruction to pop a level off the spacestack and add the data to the parent container.
-    #dual-element actions are a push instruction and the name of the space to push on the stack.
-    # - PUSHSPACE is a simple push onto the spacestack, zeropoppushspace also pushes, but will first do a pop *if* the current space level is greater than zero (ie if only if not already in root table-space)  
-
-    # -- --- --- --- --- ---
-    #token/state naming guide 
-    # -- --- --- --- --- ---
-    #tokens        :  underscore separated or bare name e.g newline,  start_quote, start_squote
-    #private tokens:  always have a leading underscore (These are private 'temporary state' tokens that are never returned as actual tokens e.g _start_squote_sequence
-    #states        :  always contain at least one dash e.g err-state, table-space
-    #instructions
-    # -- --- --- --- --- ---
-
-
-    #stateMatrix dict of elements mapping current state to next state based on returned tokens
-    # current-state {token-encountered next-state ... }
-    # where next-state can be a 1 or 2 element list.
-    #If 2 element - the first item is an instruction (ucase)
-    #If 1 element - it is either a lowercase dashed state name or an ucase instruction 
-    #e.g {PUSHSPACE <state-space>} or POPSPACE or SAMESPACE 
-
-
-    #SAMESPACE - got to same space as parent without popping a level, but has it's own autotransition lookup -  strange concept - review usecases
-
-    variable stateMatrix 
-    set stateMatrix [dict create]
-
-    #xxx-space vs xxx-syntax inadequately documented - TODO
-
-    # --------------------------------------------------------------------------------------------------------------#
-    #  incomplete example of some state starting at table-space 
-    # --------------------------------------------------------------------------------------------------------------#
-    #                                                      ( = -> value-expected)
-    #                                       keyval-syntax                         (popped -> keyval-space -> keyval-tail) (autotransition on pop)
-    #                keyval-space (autotransition on push ^)
-    # table-space (barekey^) (startquote -> quoted-key ^)
-    # --------------------------------------------------------------------------------------------------------------#
-
-    dict set stateMatrix\
-        table-space       {
-            bom                 "table-space"\
-            whitespace          "table-space"\
-            newline             "table-space"\
-            barekey             {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            squotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax" note ""}\
-            startquote          "quoted-key"\
-            XXXstartsquote         "squoted-key"\
-            comment             "table-space"\
-            starttablename      "tablename-state"\
-            starttablearrayname "tablearrayname-state"\
-            startmultiquote     "err-state"\
-            endquote            "err-state"\
-            comma               "err-state"\
-            eof                 "end-state"\
-            equal               "err-state"\
-        }
-
-    #itable-space/ curly-syntax : itables
-    dict set stateMatrix\
-        itable-space {\
-            whitespace          "itable-space"\
-            newline             "itable-space"\
-            squote_seq_begin    {PUSHSPACE  "leading-squote-space"  returnstate itable-space starttok {squote_seq "'"}}\
-            barekey             {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            squotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            endinlinetable      "POPSPACE"\
-            startquote          "quoted-key"\
-            startsquote         {TOSTATE "squoted-key"  comment "jn-testing"}\
-            comma               "itable-space"\
-            comment             "err-state"\
-            eof                 "err-state"\
-        }
-
-
-    dict set stateMatrix\
-        keyval-space    {\
-            whitespace          "keyval-syntax"\
-            equal               "keyval-value-expected"\
-        }
-
-    # '  =   ' portion of keyval
-    dict set stateMatrix\
-        keyval-syntax   {\
-            whitespace          "keyval-syntax"\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            equal               "keyval-value-expected"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    ####
-    dict set stateMatrix\
-        keyval-value-expected {\
-            whitespace          "keyval-value-expected"\
-            untyped_value       {TOSTATE    "keyval-tail"      note ""}\
-            squote_seq_begin    {PUSHSPACE  "leading-squote-space"  returnstate keyval-value-expected starttok {squote_seq "'"}}\
-            startquote          {TOSTATE    "string-state"          returnstate keyval-tail}\
-            startmultiquote     {PUSHSPACE  "multistring-space"     returnstate keyval-tail}\
-            startsquote         {TOSTATE    "literal-state"         returnstate keyval-tail note "usual way a literal is triggered"}\
-            double_squote       {TOSTATE    "keyval-tail"                       note "empty literal received when double squote occurs"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE  itable-space             returnstate keyval-tail}\
-            startarray          {PUSHSPACE  array-space             returnstate keyval-tail}\
-        }
-            #squote_seq_begin    {PUSHSPACE "leading-squote-space" returnstate keyval-process-leading-squotes starttok {squote_seq "'"}}
-    dict set stateMatrix\
-        leading-squote-space  {\
-            squote_seq          "POPSPACE"\
-        }
-    #dict set stateMatrix\
-    #    keyval-process-leading-squotes  {\
-    #        startsquote         "literal-state"\
-    #        triple_squote       {PUSHSPACE "multiliteral-space" returnstate keyval-tail}\
-    #    }
-
-    dict set stateMatrix\
-        keyval-tail     {\
-            whitespace          "keyval-tail"\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-    dict set stateMatrix\
-        itable-keyval-syntax   {\
-            whitespace          "itable-keyval-syntax"\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            equal               "itable-keyval-value-expected"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        itable-keyval-value-expected {\
-            whitespace          "itable-keyval-value-expected"\
-            untyped_value       {TOSTATE    "itable-val-tail"                       note ""}\
-            squote_seq_begin    {PUSHSPACE  "leading-squote-space"  returnstate itable-keyval-value-expected starttok {squote_seq "'"}}\
-            startquote          {TOSTATE    "string-state"          returnstate itable-val-tail}\
-            startmultiquote     {PUSHSPACE  "multistring-space"     returnstate itable-val-tail}\
-            startsquote         {TOSTATE    "literal-state"         returnstate itable-val-tail note "usual way a literal is triggered"}\
-            double_squote       {TOSTATE    "itable-val-tail"                       note "empty literal received when double squote occurs"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate itable-val-tail}\
-            startinlinetable    {PUSHSPACE  "itable-space"           returnstate itable-val-tail}\
-            startarray          {PUSHSPACE  "array-space"           returnstate itable-val-tail}\
-        }
-    dict set stateMatrix\
-        itable-keyval-space    {\
-            whitespace          "itable-keyval-syntax"\
-            equal               {TOSTATE "itable-keyval-value-expected" note "required"}\
-        }
-
-    dict set stateMatrix\
-        itable-val-tail         {\
-            whitespace          "itable-val-tail"\
-            endinlinetable      "POPSPACE"\
-            comma               "POPSPACE"\
-            Xnewline             {TOSTATE "itable-val-tail" note "itable-space ??"}\
-            newline             "err-state"\
-            comment             "itable-val-tail"\
-            eof                 "err-state"\
-        }
-    #dict set stateMatrix\
-    #    itable-quoted-key       {\
-    #        whitespace          "NA"\
-    #        itablequotedkey     {PUSHSPACE "itable-keyval-space"}\
-    #        newline             "err-state"\
-    #        endquote            "itable-keyval-syntax"\
-    #    }
-    #dict set stateMatrix\
-    #    itable-squoted-key       {\
-    #        whitespace          "NA"\
-    #        itablesquotedkey    {PUSHSPACE "itable-keyval-space"}\
-    #        newline             "err-state"\
-    #        endsquote           "itable-keyval-syntax"\
-    #    }
-
-
-
-
-
-    dict set stateMatrix\
-        value-expected  {\
-            whitespace          "value-expected"\
-            untyped_value       {"SAMESPACE"    ""  replay untyped_value}\
-            startquote          "string-state"\
-            startsquote         "literal-state"\
-            startmultiquote     {PUSHSPACE "multistring-space"}\
-            triple_squote       {PUSHSPACE "multiliteral-space"}\
-            startinlinetable    {PUSHSPACE itable-space}\
-            startarray          {PUSHSPACE array-space}\
-            comment             "err-state-value-expected-got-comment"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    
-    #dottedkey-space is not used within [tablename] or [[tablearrayname]]
-    #it is for keyval ie  x.y.z = value
-    dict set stateMatrix\
-        dottedkey-space {\
-            whitespace          "dottedkey-space"\
-            dotsep              "dottedkey-space"\
-            barekey             "dottedkey-space"\
-            squotedkey          "dottedkey-space"\
-            quotedkey           "dottedkey-space"\
-            equal               "POPSPACE"\
-            newline             "err-state"\
-            comma               "err-state"\
-            comment             "err-state"\
-        }
-            #dottedkeyend        "POPSPACE"
-
-
-
-
-    #REVIEW
-    #toml spec looks like heading towards allowing newlines within inline tables
-    #https://github.com/toml-lang/toml/issues/781
-    dict set stateMatrix\
-        curly-syntax {\
-            whitespace          "curly-syntax"\
-            newline             "curly-syntax"\
-            barekey             {PUSHSPACE "itable-keyval-space"}\
-            itablequotedkey     "itable-keyval-space"\
-            endinlinetable      "POPSPACE"\
-            startquote          "itable-quoted-key"\
-            comma               "itable-space"\
-            comment             "itable-space"\
-            eof                 "err-state"\
-        }
-        #review comment "err-state" vs comment "itable-space" - see if TOML 1.1 comes out and allows comments in multiline ITABLES
-        #We currently allow multiline ITABLES  (also with comments) in the tokenizer.
-        #if we want to disallow as per TOML 1.0 - we should do so when attempting to get structure?
-
-
-    #JMN REVIEW
-    dict set stateMatrix\
-        array-space     {\
-            whitespace          "array-space"\
-            newline             "array-space"\
-            untyped_value       "SAMESPACE"\
-            startarray          {PUSHSPACE "array-space"}\
-            endarray            "POPSPACE"\
-            startmultiquote     {PUSHSPACE multistring-space}\
-            startinlinetable    {PUSHSPACE itable-space}\
-            startquote          "string-state"\
-            startsquote         "literal-state"\
-            triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax  note "seems ok 2024"}\
-            comma               "array-space"\
-            comment             "array-space"\
-            eof                 "err-state-array-space-got-eof"\
-        }
-    dict set stateMatrix\
-        array-syntax    {\
-            whitespace          "array-syntax"\
-            newline             "array-syntax"\
-            untyped_value       "SAMESPACE"\
-            startarray          {PUSHSPACE array-space}\
-            endarray            "POPSPACE"\
-            startmultiquote     {PUSHSPACE multistring-space}\
-            startquote          "string-state"\
-            startsquote         "literal-state"\
-            comma               "array-space"\
-            comment             "err-state"\
-        }
-
-
-
-    #quoted-key & squoted-key need to PUSHSPACE from own token to keyval-space
-    dict set stateMatrix\
-        quoted-key       {\
-            whitespace          "NA"\
-            quotedkey           {PUSHSPACE "keyval-space"}\
-            newline             "err-state"\
-            endquote            "keyval-syntax"\
-        }
-    dict set stateMatrix\
-        squoted-key       {\
-            whitespace          "NA"\
-            squotedkey          "squoted-key"\
-            newline             "err-state"\
-        }
-           # endsquote           {PUSHSPACE "keyval-space"}
-    
-    dict set stateMatrix\
-        string-state          {\
-            whitespace          "NA"\
-            string              "string-state"\
-            endquote            "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        literal-state       {\
-            whitespace          "NA"\
-            literal             "literal-state"\
-            endsquote           "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-
-    #dict set stateMatrix\
-    #    stringpart      {\
-    #        continuation        "SAMESPACE"\
-    #        endmultiquote       "POPSPACE"\
-    #        eof                 "err-state"\
-    #    }
-    dict set stateMatrix\
-        multistring-space {\
-            whitespace          "multistring-space"\
-            continuation        "multistring-space"\
-            stringpart          "multistring-space"\
-            newline             "multistring-space"\
-            endmultiquote       "POPSPACE"\
-            eof                 "err-state"\
-        }
-
-
-    #only valid subparts are literalpart and newline. other whitespace etc is within literalpart
-    #todo - treat sole cr as part of literalpart but crlf and lf as newline
-    dict set stateMatrix\
-        multiliteral-space {\
-            literalpart         "multiliteral-space"\
-            newline             "multiliteral-space"\
-            squote_seq_begin    {PUSHSPACE "trailing-squote-space" returnstate multiliteral-space starttok {squote_seq "'"}}\
-            triple_squote       {POPSPACE                       note "on popping - we do any necessary concatenation of LITERALPART items due to squote processing"}\
-            double_squote       {TOSTATE multiliteral-space     note "short squote_seq: can occur anywhere in the space e.g emitted at end when 5 squotes occur"}\
-            startsquote         {TOSTATE multiliteral-space     note "short squote_seq: same as double_squote - false alarm"}\
-            eof                 "err-premature-eof-in-multiliteral-space"\
-        }
-
-    #trailing because we are looking for possible terminating ''' - but must accept '''' or ''''' and re-integrate the 1st one or 2 extra squotes
-    dict set stateMatrix\
-        trailing-squote-space {\
-            squote_seq          "POPSPACE"\
-        }
-        
-
-    dict set stateMatrix\
-        tablename-state       {\
-            whitespace          "NA"\
-            tablename           {zeropoppushspace table-space}\
-            tablename2          {PUSHSPACE table-space}\
-            endtablename        "tablename-tail"\
-            comma               "err-state"\
-            newline             "err-state"\
-        }
-    dict set stateMatrix\
-        tablearrayname-state  {\
-            whitespace          "NA"\
-            tablearrayname      {zeropoppushspace table-space}\
-            tablearrayname2     {PUSHSPACE table-space}\
-            endtablearray       "tablearrayname-tail"\
-            comma               "err-state"\
-            newline             "err-state"\
-        }
-
-    dict set stateMatrix\
-        tablename-tail   {\
-            whitespace          "tablename-tail"\
-            newline             "table-space"\
-            comment             "tablename-tail"\
-            eof                 "end-state"\
-        }
-    dict set stateMatrix\
-        tablearrayname-tail {\
-            whitespace          "tablearrayname-tail"\
-            newline             "table-space"\
-            comment             "tablearrayname-tail"\
-            eof                 "end-state"\
-        }
-    dict set stateMatrix\
-        end-state             {}
-
-    set knowntokens [list]
-    set knownstates [list]
-    dict for {state transitions} $stateMatrix {
-        if {$state ni $knownstates} {lappend knownstates $state}
-        dict for {tok instructions} $transitions {
-            if {$tok ni $knowntokens} {lappend knowntokens $tok}
-        }
-    }
-    dict set stateMatrix nostate {}
-    foreach tok $knowntokens {
-        dict set stateMatrix nostate $tok "err-nostate-received-token-$tok"
-    }
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- 
-    #purpose - debugging?  remove?
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- 
-    #build a list of 'push triggers' from the stateMatrix
-    # ie tokens which can push a new space onto spacestack
-    set push_trigger_tokens [list]
-    tcl::dict::for {s transitions} $stateMatrix {
-        tcl::dict::for {token transition_to} $transitions {
-            set instruction [lindex $transition_to 0]
-            switch -exact -- $instruction {
-                PUSHSPACE - zeropoppushspace {
-                    if {$token ni $push_trigger_tokens} {
-                        lappend push_trigger_tokens $token
-                    }
-                }
-            }
-        }
-    }
-    ::tomlish::log::debug "push_trigger_tokens: $push_trigger_tokens"
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- 
-
-
-
-    #This seems hacky... (deprecate in favour of explicit arguments to the instructions in stateMatrix?)
-    #spacePopTransitions, spacePushTransitions, spaceSameTransitions below for auto state redirections on POPSPACE,PUSHSPACE,SAMESPACE 
-
-    #mainly for the -space states:
-    #redirect to another state $c based on a state transition from $whatever to $b
-    # e.g  "string {array-space array-syntax}" means when transitioning from string to array-space, jump to array-syntax instead.
-    #this is useful as we often don't know state $b. e.g when it is decided by 'POPSPACE' 
-
-    #Push to, next
-    #default first states when we push to these spaces
-    variable spacePushTransitions {
-        keyval-space            keyval-syntax
-        itable-keyval-space     itable-keyval-syntax
-        array-space             array-space
-        table-space             tablename-state
-    }
-        #itable-space             itable-space 
-    #Pop to, next
-    variable spacePopTransitions {
-        array-space             array-syntax
-    }
-        #itable-space             curly-syntax
-        #itable-keyval-space     itable-val-tail
-    #review
-    #we pop to keyval-space from dottedkey-space or from value-expected? we don't always want to go to keyval-tail
-    #leave it out and make the POPSPACE caller explicitly specify it
-    #keyval-space        keyval-tail
-
-    variable spaceSameTransitions {
-        array-space             array-syntax
-    }
-        #itable-space             curly-syntax
-        #itable-keyval-space     itable-val-tail
-
-
-    variable state_list ;#reset every tomlish::decode::toml
-
-    namespace export tomlish toml
-    namespace ensemble create
-
-    #goNextState has various side-effects e.g pushes and pops spacestack
-    #REVIEW - setting nest and v elements here is ugly
-    #todo - make neater, more single-purpose?
-    proc goNextState {tokentype tok currentstate} {
-        variable state
-        variable nest
-        variable v
-
-        set prevstate $currentstate  
-
-
-        variable spacePopTransitions
-        variable spacePushTransitions
-        variable spaceSameTransitions
-
-        variable last_space_action      "none"
-        variable last_space_type        "none"
-        variable state_list
-        
-        set result ""
-        set starttok ""
-        
-        if {[dict exists $::tomlish::parse::stateMatrix $currentstate $tokentype]} {
-            set transition_to [dict get $::tomlish::parse::stateMatrix $currentstate $tokentype]
-            ::tomlish::log::debug "--->> goNextState tokentype:$tokentype tok:$tok currentstate:$currentstate  :  transition_to = $transition_to"
-            switch -exact -- [lindex $transition_to 0] {
-                POPSPACE {
-                    spacestack pop
-                    set parent_info [spacestack peek]
-                    set type [dict get $parent_info type]
-                    set parentspace [dict get $parent_info state]
-
-                    set last_space_action "pop"
-                    set last_space_type $type
-
-                    if {[dict exists $parent_info returnstate]} {
-                        set next [dict get $parent_info returnstate]
-                        #clear the returnstate on current level 
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification 
-                        ::tomlish::log::info "--->> POPSPACE transition to parent space $parentspace redirected to stored returnstate $next <<---"
-                    } else {
-                        ###
-                        #review - do away with spacePopTransitions - which although useful to provide a default..
-                        # - involve error-prone configurations distant to the main state transition configuration in stateMatrix
-                        if {[dict exists $::tomlish::parse::spacePopTransitions $parentspace]} {
-                            set next [dict get $::tomlish::parse::spacePopTransitions $parentspace]
-                            ::tomlish::log::info "--->> POPSPACE transition to parent space $parentspace redirected state to $next (spacePopTransitions)<<---"
-                        } else {
-                            set next $parentspace
-                            ::tomlish::log::info "--->> POPSPACE transition to parent space $parentspace<<---"
-                        }
-                    }
-                    set result $next
-                }
-                SAMESPACE {
-                    set currentspace_info [spacestack peek]
-                    ::tomlish::log::debug       "--->> SAMESPACE got current space entry: $currentspace_info <<<<<"
-                    set type         [dict get $currentspace_info type]
-                    set currentspace [dict get $currentspace_info state]
-
-                    if {[dict exists $currentspace_info returnstate]} {
-                        set next [dict get $currentspace_info returnstate]
-                        #clear the returnstate on current level 
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification 
-                        ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace redirected to stored returnstate $next"
-                    } else {
-                        if {[dict exists $::tomlish::parse::spaceSameTransitions $currentspace]} {
-                            set next [dict get $::tomlish::parse::spaceSameTransitions $currentspace]
-                            ::tomlish::log::info   "--->> SAMESPACE transition to space $currentspace redirected state to $next (spaceSameTransitions)"
-                        } else {
-                            set next $currentspace
-                            ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace"
-                        }
-                    }
-                    set result $next
-                }
-                zeropoppushspace {
-                    if {$nest > 0} {
-                        #pop back down to the root level (table-space)
-                        spacestack pop
-                        set parentinfo [spacestack peek]
-                        set type [dict get $parentinfo type]
-                        set target [dict get $parentinfo state]
-
-                        set last_space_action "pop"
-                        set last_space_type $type
-                        
-                        #-----
-                        #standard pop
-                        set parentlevel [expr {$nest -1}]
-                        lappend v($parentlevel) [set v($nest)]
-                        incr nest -1
-                        #-----
-                    }
-                    #re-entrancy 
-                    
-                    #set next [list PUSHSPACE [lindex $transition_to 1]]
-                    set nexttokentype ${tokentype}2  ;#fake token type e.g tablename2 or tablearrayname2
-                    #::tomlish::log::notice "goNextState REENTRANCY. calling goNextState $nexttokentype $tokentype"
-                    #set result [::tomlish::parse::goNextState $nexttokentype $tokentype]
-                    ::tomlish::log::debug "--->> zeropoppushspace goNextState REENTRANCY. calling goNextState $nexttokentype $currentstate"
-                    set transition_info [::tomlish::parse::goNextState $nexttokentype $tok $currentstate]
-                    set result [dict get $transition_info newstate]
-                }
-                PUSHSPACE {
-                    set original_target [dict get $transition_to PUSHSPACE]
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    if {[dict exists $transition_to starttok]} {
-                        set starttok [dict get $transition_to starttok]
-                    }
-                    spacestack push [dict create type space state $original_target] 
-
-                    set last_space_action "push"
-                    set last_space_type "space"
-
-                    if {[dict exists $transition_to state]} {
-                        #an explicit state in the pushed space was requested in the stateMatrix - override the spacePushTransition (spacePushTransitions can be deprecated if we require explicitness?)
-                        set next [dict get $transition_to state]
-                        ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next by explicit 'state' entry"
-                    } else {
-                        #puts $::tomlish::parse::spacePushTransitions
-                        if {[dict exists $::tomlish::parse::spacePushTransitions $original_target]} {
-                            set next [dict get $::tomlish::parse::spacePushTransitions $original_target]
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next (spacePushTransitions) "
-                        } else {
-                            set next $original_target
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target"
-                        }
-                    }
-                    set result $next
-                }
-                TOSTATE {
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    set result [dict get $transition_to TOSTATE]
-                }
-                default {
-                    #simplified version of TOSTATE
-                    set result [lindex $transition_to 0] ;#ignore everything but first word
-                }
-            }
-        } else {
-            ::tomlish::log::error "--->> No state transition defined from state $currentstate when tokentype $tokentype received" 
-            set result "nostate"
-        }
-        lappend state_list [list tokentype $tokentype from $currentstate to $result]
-        set state $result
-        ::tomlish::log::notice "--->> STATE TRANSITION tokenType: '$tokentype' tok:$tok  triggering '$currentstate' -> '$result' last_space_action:$last_space_action "
-        return [dict create prevstate $prevstate newstate $result space_action $last_space_action starttok $starttok]
-    }
-
-    proc report_line {{line ""}} {
-        variable linenum
-        variable is_parsing
-        if {$is_parsing} {
-            if {$line eq ""} {
-                set line $linenum
-            } 
-            return "Line Number: $line"
-        } else {
-            #not in the middle of parsing tomlish text - return nothing.
-            return ""
-        }
-    }
-
-    #produce a *slightly* more readable string rep of the nest for puts etc.
-    proc nest_pretty1 {list} {
-        set prettier "{"
-        
-        foreach el $list {
-            if { [lindex $el 0] eq "NEWLINE"} {
-                append prettier "[list $el]\n"
-            } elseif {([llength $el] > 1) && ([lindex $el 0] in {KEY QKEY SQKEY TABLE ARRAY})} {
-                append prettier [nest_pretty1 $el]
-            } else {
-                append prettier "[list $el] "
-            }
-        }
-        append prettier "}"
-        return $prettier
-    }
-
-    proc set_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        if {![info exists tokenType]} {
-            set tokenType ""
-        }
-        lappend tokenType_list $t
-        set tokenType $t
-    }
-
-    proc switch_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        lset tokenType_list end $t
-        set tokenType $t
-    }
-
-    proc get_tokenType {} {
-        variable tokenType
-        return $tokenType
-    }
-
-    proc _shortcircuit_startquotesequence {} {
-        variable tok
-        variable i
-        set toklen [tcl::string::length $tok]
-        if {$toklen == 1} {
-            set_tokenType "startquote"
-            incr i -1
-            return -level 2 1
-        } elseif {$toklen == 2} {
-            puts stderr "_shortcircuit_startquotesequence toklen 2"
-            set_tokenType "startquote"
-            set tok "\""
-            incr i -2  
-            return -level 2 1
-        }
-    }
-
-    proc get_token_waiting {} {
-        variable token_waiting
-        return [lindex $token_waiting 0]
-    }
-    proc clear_token_waiting {} {
-        variable token_waiting
-        set token_waiting [list]
-    }
-
-    #token_waiting is a list - but our standard case is to have only one
-    #in certain circumstances such as near eof we may have 2
-    #the set_token_waiting function only allows setting when there is not already one waiting.
-    #we want to catch cases of inadvertently trying to set multiple
-    # - the reason being that the state transition triggered by the previous token may have invalidated the assumptions made when a token was added as waiting.
-    proc set_token_waiting {args} {
-        if {[llength $args] %2 != 0} {
-            error "tomlish set_token_waiting must have args of form: type <tokentype> value <value> complete 0|1"
-        }
-        variable token_waiting
-
-        if {[llength $token_waiting] && [dict get [lindex $token_waiting end] type] ne "eof"} {
-            #tokloop already set a token_waiting - but something (post tokloop processing?) is trying to set another
-            #we may need to remove the existing token_waiting and reset the tokloop index to the previous char so it's reprocessed in the possibly new context
-            #rather than attempt to make the right decision here - we raise an error and require the caller to check/handle it 
-            set err         "tomlish set_token_waiting already has token_waiting: [lindex $token_waiting 0]" 
-            append err \n   "  -                cannot add token_waiting: $args"
-            error $err
-            #set tomlish::parse::i [expr {[dict get $token_waiting startindex] -1}]
-            #set token_waiting [list]
-        }
-
-        set waiting [dict create]
-        dict for {k v} $args {
-            switch -exact $k {
-                type -  complete {
-                    dict set waiting $k $v
-                }
-                value {
-                    dict set waiting tok $v
-                }
-                startindex {
-                    dict set waiting startindex $v
-                }
-                default {
-                    error "tomlish set_token_waiting error - unrecognised key $k. known keys: [dict keys $args]"
-                }
-            }
-        }
-        if {![tcl::string::is boolean -strict [dict get $waiting complete]]} {
-            error "tomlish set_token_waiting error - 'complete' must be a boolean. got [dict get $waiting complete]"
-        }
-        if {![llength $token_waiting]} {
-            set token_waiting [list $waiting]
-        } else {
-            #an extra sanity-check that we don't have more than just the eof..
-            if {[llength $token_waiting] > 1} {
-                set err "tomlish Unexpected. Existing token_waiting count > 1.\n"
-                foreach tw $token_waiting {
-                    append err " $tw" \n
-                }
-                append err " -          cannot add token_waiting: $waiting"
-                error $err
-            }
-            #last entry must be a waiting eof
-            set token_waiting [list $waiting [lindex $token_waiting end]]
-        }
-        return
-    }
-
-    #returns 0 or 1 
-    #tomlish::parse::tok
-    #we attempt to do this without lookahead (potential use in streaming toml? for what benefit?) todo -final flag 
-    # - the possible benefit is being able to more easily process in arbitrarily split chunks (although we would still have to watch crlf splitting ?)
-    # - interactive use?
-
-    proc tok {s} {
-        variable nest
-        variable v
-        variable i
-        variable tok
-        variable type ;#character type
-        variable state ;#FSM
-        
-        
-        variable tokenType
-        variable tokenType_list
-        
-        
-        variable endToken
-        
-        variable lastChar 
-        
-        variable braceCount
-        variable bracketCount
-        
-
-        #------------------------------
-        #Previous run found another (presumably single-char) token
-        #The normal case is for there to be only one dict in the list
-        #multiple is an exception - primarily for eof
-        variable token_waiting 
-        if {[llength $token_waiting]} {
-            set waiting [lindex $token_waiting 0]
-
-            set tokenType   [dict get $waiting type]
-            set tok         [dict get $waiting tok]
-            #todo: dict get $token_waiting complete
-            set token_waiting [lrange $token_waiting 1 end]
-            return 1
-        }
-        #------------------------------
-        
-        set resultlist [list]
-        set sLen [tcl::string::length $s]
-
-        set slash_active 0
-        set quote 0
-        set c ""
-        set multi_dquote ""
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $s [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-            
-            set c [tcl::string::index $s $i]
-            set cindex $i
-            tomlish::log::debug "- tokloop char <$c> index $i   tokenType:$tokenType tok:<$tok>"
-            #puts "got char $c during tokenType '$tokenType'"
-            incr i ;#must incr here because we do returns inside the loop
-            
-            set ctest [tcl::string::map {\{ lc \} rc \[ lb \] rb \" dq ' sq \\ bsl \r cr \n lf \t tab \uFEFF bom} $c] 
-            switch -exact -- $ctest {
-                # {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" 
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {$had_slash} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                    
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            barekey {
-                                error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed (see tomlish::utils::is_barekey). [tomlish::parse::report_line]"
-                            }
-                            whitespace {
-                                # hash marks end of whitespace token
-                                #do a return for the whitespace, set token_waiting 
-                                #set_token_waiting type comment value "" complete 1
-                                incr i -1  ;#leave comment for next run
-                                return 1
-                            }
-                            untyped_value {
-                                #REVIEW! the spec isn't clear.. is whitespace after an int,bool etc required before comment?
-                                #we will accept a comment marker as an immediate terminator of the untyped_value.
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #fix!
-                                error "tomlish Character '#' is invalid first character for  $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare parts - but allowed in quoted parts - let tablename parser sort it out
-                                append tok $c
-                            }
-                            default {
-                                #quotedkey, itablequotedkey, string,literal, multistring
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -- $state {
-                            multistring-space {
-                                set_tokenType stringpart
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes#"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" 
-                                set tok "#"
-                            }
-                            default {
-                                #start of token if we're not in a token
-                                set_tokenType comment
-                                set tok "" ;#The hash is not part of the comment data
-                            }
-                        }
-                    }
-                }
-                lc {
-                    #left curly brace
-                    set dquotes $multi_dquote
-                    set multi_dquote "" 
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            string - quotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $dquotes$c
-                            }
-                            starttablename - starttablearrayname {
-                                #*bare* tablename can only contain letters,digits underscores
-                                error "tomlish Invalid tablename first character \{ [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #valid in quoted parts
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            itable-keyval-value-expected - keyval-value-expected - value-expected {
-                                #switch last key to tablename??
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested anonymous inline table 
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "startinlinetable"
-                                set tok "\{" 
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\{"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" 
-                                set tok "\{"
-                            }
-                            default {
-                                error "tomlish state: '$state'. left brace case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                rc {
-                    #right curly brace
-                    set dquotes $multi_dquote
-                    set multi_dquote "" 
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            string - quotedkey - itablequotedkey - comment {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $dquotes$c
-                            }
-                            starttablename - tablename {
-                                if {$had_slash} {append tok "\\"} 
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endinlinetable value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            starttablearrayname - tablearrayname {
-                                if {$had_slash} {append tok "\\"} 
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            itable-val-tail {
-                                #review
-                                error "tomlish right-curly in itable-val-tail"
-                            }
-                            default {
-                                #end any other token
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            value-expected {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endinlinetable"
-                                set tok "\}" 
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endinlinetable"
-                                set tok "\}" 
-                                return 1
-                            }
-                            itable-space {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname-state problem"
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                #invalid
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            curly-syntax {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-val-tail {
-                                set_tokenType "endinlinetable"
-                                set tok ""
-                                #we need to pop the keyval - and then reprocess to pop the inlinetable - so we incr -1
-                                incr i -1
-                                return 1
-                            }
-                            itable-keyval-syntax {
-                                error "tomlish endinlinetable unexpected at this point. Expecting key=val syntax [tomlish::parse::report_line]"
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\}"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" ; #review
-                                set tok "\}"
-                            }
-                            default {
-                                #JMN2024b keyval-tail?
-                                error "tomlish state '$state'. endinlinetable case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                lb {
-                    #left square bracket
-                    set dquotes $multi_dquote
-                    set multi_dquote "" 
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            string - quotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            starttablename {
-                                #change the tokenType
-                                switch_tokenType "starttablearrayname"
-                                set tok "" ;#no output into the tomlish list for this token
-                                #any following whitespace is part of the tablearrayname, so return now
-                                return 1
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token 
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\["
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        #invalid at this point - state machine should disallow table -> starttablearrayname
-                                        set_token_waiting type starttablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "\["
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            keyval-value-expected - itable-keyval-value-expected - value-expected {
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                            }
-                            table-space {
-                                #table name
-                                #assume it's a single bracket - but we need to wait for non-bracket to confirm it's not a tablearray
-                                #note that a starttablearrayname token may contain whitespace between the brackets
-                                # e.g \[   \[ 
-                                set_tokenType "starttablename"
-                                set tok ""  ;#there is no output into the tomlish list for this token
-                            }
-                            array-space - array-syntax {
-                                #nested array?
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                                #error "state: array-space. startarray case not implemented [tomlish::parse::report_line]"				
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\["
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\["
-                            }
-                            itable-space {
-                                #handle state just to give specific error msg
-                                error "tomlish state: '$state'. Left square bracket invalid. Cannot start array in inline table without key. Use key=\[<vals>\] syntax. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish state: '$state'. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                rb {
-                    #right square bracket
-                    set dquotes $multi_dquote
-                    set multi_dquote "" 
-                    set had_slash $slash_active
-                    set slash_active 0
-                    
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            string - quotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $dquotes$c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #????
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                } else {
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                }
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token 
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablename value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            tablearraynames {
-                                #todo?
-                                if {$had_slash} {append tok "\\"} 
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            value-expected {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endarray"
-                                set tok "\]" 
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endarray"
-                                set tok "\]" 
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endtablename"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname problem"
-                                set_tokenType "endtablearray"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\]"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\]"
-                            }
-                            default {
-                                error "tomlish state '$state'. endarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                bsl {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    #backslash
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence  
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #end whitespace token
-                                    incr i -1 ;#reprocess bsl in next run
-                                    return 1
-                                } else {
-                                    error "tomlish Unexpected backslash during whitespace. [tomlish::parse::report_line]"
-                                }
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                #never need to set slash_active true when in single quoted tokens 
-                                append tok "\\"
-                                set slash_active 0
-                            }
-                            string - quotedkey - itablequotedkey - comment {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            stringpart {
-                                if {$slash_active} {
-                                    #assert - quotes empty - or we wouldn't have slash_active
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    append tok $dquotes
-                                    set slash_active 1
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish backslash is invalid as first character of $tokenType [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            barekey {
-                                error "tomlish Unexpected backslash during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish Backslash unexpected during tokentype: '$tokenType'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$slash_active} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\\"
-                                    set slash_active 0
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        set_tokenType "stringpart"
-                                        set tok $dquotes
-                                    }
-                                    set slash_active 1
-                                }
-                            }
-                            multiliteral-space {
-                                #nothing can be escaped in multiliteral-space - not even squotes (?) review
-                                set_tokenType "literalpart"
-                                set tok "\\"
-                            }
-                            default {
-                                error "tomlish tok error: Unexpected backslash when no token is active. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                sq {
-                    #single quote
-                    set had_slash $slash_active 
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                #short squote_seq tokens are returned if active during any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                switch -- $state {
-                                    leading-squote-space {
-                                        append tok $c
-                                        if {$existingtoklen > 2} {
-                                            error "tomlish tok error: squote_seq unexpected length $existingtoklen when another received"
-                                        } elseif {$existingtoklen == 2} {
-                                           return 1 ;#return tok ''' 
-                                        }
-                                    }
-                                    trailing-squote-space {
-                                        append tok $c
-                                        if {$existingtoklen == 4} {
-                                            #maxlen to be an squote_seq is multisquote + 2  = 5
-                                            #return tok '''''
-                                            return 1
-                                        }
-                                    }
-                                    default {
-                                        error "tomlish tok error: squote_seq in unexpected state '$state' - expected leading-squote-space or trailing-squote-space" 
-                                    }
-                                }
-                            }
-                            whitespace {
-                                #end whitespace
-                                incr i -1  ;#reprocess sq
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                #temp token creatable only during value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_squote 
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_squote_sequence'"
-                                    }
-                                }
-                            }
-                            literal {
-                                #slash_active always false
-                                #terminate the literal 
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #ended by '''  - but final could be '''' or ''''' (up to 2 squotes allowed directly before ending triple squote sequence)
-                                #todo
-                                # idea:  end this literalpart  (possibly 'temporarily')
-                                # let the sq be reprocessed in the multiliteral-space to push an end-multiliteral-sequence to state stack
-                                # upon popping end-multiliteral-sequence - stitch quotes back into this literalpart's token (if either too short - or a long ending sequence as shown above)
-                                incr i -1 ;#throw the "'" back to loop - will be added to an squote_seq token for later processing
-                                return 1
-                            }
-                            itablesquotedkey {
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            squotedkey {
-                                ###
-                                #set_token_waiting type endsquote value "'" complete 1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #!!!
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                append tok $c
-                            }
-                            default {
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            value-expected - array-space {
-                                set_tokenType "_start_squote_sequence" 
-                                set tok "'" 
-                            }
-                            itable-keyval-value-expected - keyval-value-expected {
-                                set_tokenType "squote_seq_begin"
-                                set tok "'"
-                                return 1
-                            }
-                            table-space {
-                                ###
-                                set_tokenType "squotedkey"
-                                set tok "" 
-                            }
-                            itable-space {
-                                set_tokenType "squote_seq_begin"
-                                set tok "'" 
-                                return 1
-                            }
-                            tablename-state {
-                                #first char in tablename-state/tablearrayname-state
-                                set_tokenType tablename 
-                                append tok "'"
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                append tok "'"
-                            }
-                            literal-state {
-                                tomlish::log::debug "- tokloop sq during literal-state with no tokentype - empty literal?"
-                                set_tokenType literal 
-                                incr -1
-                                return 1
-                            }
-                            multistring-space {
-                                error "tomlish unimplemented - squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                            multiliteral-space {
-                                #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row 
-                                #we are building up an squote_seq to determine if 
-                                #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                #b) it is exactly ''' and we can terminate the whole multiliteral
-                                #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                set_tokenType "squote_seq_begin"
-                                set tok "'"
-                                return 1
-                            }
-                            dottedkey-space {
-                                set_tokenType squotedkey
-                            }
-                            default {
-                                error "tomlish unhandled squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                dq {
-                    #double quote
-                    set had_slash $slash_active 
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                set toklen [tcl::string::length $tok]
-                                if {$toklen == 1} {
-                                    append tok $c
-                                } elseif {$toklen == 2} {
-                                    append tok $c
-                                    #switch vs set?
-                                    set_tokenType "startmultiquote"
-                                    return 1
-                                } else {
-                                    error "tomlish unexpected token length $toklen in 'startquotesequence'"
-                                }
-                            }
-                            _start_squote_sequence {
-                                set toklen [tcl::string::length $tok]
-                                switch -- $toklen {
-                                    1 {
-                                        set_tokenType "startsquote"
-                                        incr i -1
-                                        return 1
-                                    }
-                                    2 {
-                                        set_tokenType "startsquote"
-                                        incr i -2
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish unexpected _start_squote_sequence length $toklen"
-                                    }
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string {
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #unescaped quote always terminates a string? 
-                                    set_token_waiting type endquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            stringpart {
-                                #sub element of multistring
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #incr i -1
-                                    
-                                    if {$multi_dquote eq "\"\""} {
-                                        set_token_waiting type endmultiquote value "\"\"\"" complete 1 startindex [expr {$cindex -2}] 
-                                        set multi_dquote ""
-                                        return 1
-                                    } else {
-                                        append multi_dquote "\""
-                                    }
-                                }
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        #REVIEW
-                                        if {$had_slash} {
-                                            incr i -2
-                                            return 1
-                                        } else {
-                                            switch -- [tcl::string::length $multi_dquote] {
-                                                2 {
-                                                    set_token_waiting type endmultiquote value "\"\"\"" complete 1 startindex [expr {$cindex-2}]
-                                                    set multi_dquote ""
-                                                    return 1
-                                                }
-                                                1 {
-                                                    incr i -2
-                                                    return 1
-                                                }
-                                                0 {
-                                                    incr i -1
-                                                    return 1
-                                                }
-                                            }
-                                        }
-                                    }
-                                    keyval-value-expected - value-expected {
-                                        #end whitespace token and reprocess
-                                        incr i -1
-                                        return 1
-
-                                        #if {$multi_dquote eq "\"\""} {
-                                        #    set_token_waiting type startmultiquote value "\"\"\"" complete 1
-                                        #    set multi_dquote ""
-                                        #    return 1
-                                        #} else {
-                                        #    #end whitespace token and reprocess
-                                        #    incr i -1
-                                        #    return 1
-                                        #}
-                                    }
-                                    default {
-                                        set_token_waiting type startquote value "\"" complete 1 startindex $cindex
-                                        return 1 
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            quotedkey - itablequotedkey {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    set_token_waiting type endquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1 ;##
-                                return 1
-                            }
-                            default {
-                                error "tomlish got quote during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        #token is string only if we're expecting a value at this point
-                        switch -exact -- $state {
-                            keyval-value-expected - value-expected - array-space {
-                                #!? start looking for possible multistartquote
-                                #set_tokenType startquote
-                                #set tok $c
-                                #return 1
-                                set_tokenType "startquotesequence"  ;#one or more quotes in a row - either startquote or multistartquote
-                                set tok $c
-                            }
-                            itable-keyval-value-expected {
-                                #JMN 2025 - review
-                                set_tokenType "startquotesequence"  ;#one or more quotes in a row - either startquote or multistartquote
-                                set tok $c
-                            }
-                            multistring-space {
-                                #TODO - had_slash!!!
-                                #REVIEW
-                                if {$had_slash} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\"" 
-                                    set multi_dquote ""
-                                } else {
-                                    if {$multi_dquote eq "\"\""} {
-                                        tomlish::log::debug "- tokloop char dq ---> endmultiquote"
-                                        set_tokenType "endmultiquote"
-                                        set tok "\"\"\""
-                                        return 1
-                                        #set_token_waiting type endmultiquote value "\"\"\"" complete 1
-                                        #set multi_dquote ""
-                                        #return 1
-                                    } else {
-                                        append multi_dquote "\""
-                                    }
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\""
-                            }
-                            table-space {
-                                set_tokenType "startquote"
-                                set tok $c
-                                return 1
-                            }
-                            itable-space {
-                                set_tokenType "startquote"
-                                set tok $c
-                                return 1
-                            }
-                            tablename-state {
-                                set_tokenType tablename 
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType dquote_seq_begin 
-                                set tok $c
-                            }
-                            default {
-                                error "tomlish Unexpected quote during state '$state' [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                = {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    set had_slash $slash_active
-                    set slash_active 0
-                    
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                #assertion had_slash 0, multi_dquote ""
-                                append tok $c
-                            }
-                            string - comment - quotedkey - itablequotedkey {
-                                #for these tokenTypes an = is just data.
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $dquotes$c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    set backlen [expr {[tcl::string::length $dquotes] + 1}]
-                                    incr i -$backlen
-                                    return 1
-                                } else {
-                                    set_token_waiting type equal value = complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                #set_token_waiting type equal value = complete 1
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character '=' is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare name - but valid in quoted parts - leave for tablename parser to sort out
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish unexpected = character during tokentype $tokenType.  case not implemented. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok ${dquotes}=
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "="
-                            }
-                            dottedkey-space {
-                                set_tokenType "equal" 
-                                set tok "="
-                                return 1
-                            }
-                            default {
-                                set_tokenType "equal"
-                                set tok =
-                                return 1
-                            }
-                        }
-                    }
-                }
-                cr {
-                    #REVIEW!
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    # \r carriage return
-                    if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal {
-                                append tok $c
-                            }
-                            literalpart {
-                                #part of MLL string (multi-line literal string)
-                                #we need to split out crlf as a separate NEWLINE to be consistent
-                                ::tomlish::log::warn "literalpart ended by cr - needs testing"
-                                #return literalpart temporarily - allow cr to be reprocessed from multiliteral-space 
-                                incr i -1
-                                return 1
-                            }
-                            stringpart {
-                                #part of MLB string (multi-line basic string)
-                                #jmn2025 - review
-                                #append tok $dquotes$c
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character <carriage return> is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #could in theory be valid in quoted part of name
-                                #review - might be better just to disallow here
-                                append tok $c
-                            }
-                            default {
-                                #!todo - error out if cr inappropriate for tokenType
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        #lf may be appended if next
-                        #review - lone cr as newline? - this is uncommon - but so is lone cr in a string(?)
-                        set_tokenType "newline"
-                        set tok cr
-                    }
-                }
-                lf {
-                    # \n newline 
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    set had_slash $slash_active 
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal {
-                                #nl is not allowed *within* a literal - require multiliteral syntax for any literal containing a newline ''' '''
-                                #even though we terminate the literal without the closing quote here - the token_waiting newline should trigger a state error
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #we allow newlines - but store them within the multiliteral as their own element 
-                                #This is a legitimate end to the literalpart - but not the whole multiliteral
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            newline {
-                                #review
-                                #this lf is the trailing part of a crlf 
-                                append tok lf ;#assert we should now have tok "crlf" - as a previous cr is the only way to have an incomplete newline tok
-                                return 1
-                            }
-                            stringpart {
-                                if {$dquotes ne ""} {
-                                    append tok $dquotes
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$had_slash} {
-                                        #emit the stringpart (return 1), queue the continuation, go back 1 to reprocess the lf (incr i -1) 
-                                        set_token_waiting type continuation value \\ complete 1 startindex [expr {$cindex-1}]
-                                        incr i -1
-                                        return 1
-                                    } else {
-                                        set_token_waiting type newline value lf complete 1 startindex $cindex
-                                        return 1
-                                    }
-                                }
-                            }
-                            starttablename - tablename - tablearrayname - starttablearrayname {
-                                error "tomlish Character <linefeed> is invalid in $tokenType. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                #newline ends all other tokens.
-                                #note for string: we don't add (raw unescaped) newline to simple string. (must use multi-string for this)
-                                #note for whitespace:
-                                #    we will use the convention that \n terminates the current whitespace even if whitespace follows
-                                #    ie whitespace is split into separate whitespace tokens at each newline   
-                                
-                                #puts "-------------- newline lf during tokenType $tokenType"
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        #e.g one or 2 quotes just before nl
-                                        set_tokenType "stringpart"
-                                        set tok $dquotes
-                                        incr i -1
-                                        return 1
-                                    }
-                                    set_tokenType "newline" 
-                                    set tok lf 
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0, multi_dquote ""
-                                set_tokenType "newline" 
-                                set tok "lf"
-                                return 1
-                            }
-                            default {
-                                #ignore slash? error?
-                                set_tokenType "newline"
-                                set tok lf
-                                return 1
-                            }
-                        }
-                        #if {$had_slash} {
-                        #    #CONT directly before newline - allows strings_5_byteequivalent test to pass
-                        #    set_tokenType "continuation"
-                        #    set tok "\\"
-                        #    incr i -1
-                        #    return 1
-                        #} else {
-                        #    set_tokenType newline
-                        #    set tok lf
-                        #    return 1
-                        #}
-                    }
-                }
-                , {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" 
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1 
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            comment - tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok ,
-                            }
-                            string - quotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            stringpart {
-                                #stringpart can have up to 2 quotes too
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $dquotes$c
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                #assert had_slash always 0, multi_dquote ""
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    set backlen [expr {[tcl::string::length $dquotes] + 1}]
-                                    incr i -$backlen
-                                    return 1
-                                } else {
-                                    set_token_waiting type comma value "," complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            default {
-                                set_token_waiting type comma value "," complete 1 startindex $cindex
-                                if {$had_slash} {append tok "\\"} 
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"} 
-                                append tok "$dquotes,"
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0, multi_dquote ""
-                                set_tokenType "literalpart" 
-                                set tok ","
-                            }
-                            default {
-                                set_tokenType "comma"
-                                set tok ","
-                                return 1
-                            }
-                        }
-                    }
-                }
-                . {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    set had_slash $slash_active 
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1 
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            comment - untyped_value {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            string - quotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"} 
-                                append tok $dquotes$c
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                #assert had_slash always 0, multi_dquote ""
-                                append tok $c
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        set backchars [expr {[tcl::string::length $dquotes] + 1}]
-                                        if {$had_slash} {
-                                            incr backchars 1
-                                        }
-                                        incr i -$backchars
-                                        return 1
-                                    }
-                                    dottedkey-space {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish Received  period during tokenType 'whitespace' [tomlish::parse::report_line]"
-                                    }
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                #This would correspond to an empty table name
-                                error "tomlish Character '.' is not allowed as first character ($tokenType). [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #subtable - split later - review
-                                append tok $c
-                            }
-                            barekey {
-                                #e.g x.y = 1
-                                #we need to transition the barekey to become a structured table name  ??? review
-                                #x is the tablename y is the key
-                                set_token_waiting type dotsep value "." complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                error "tomlish Received period during tokenType '$tokenType' [tomlish::parse::report_line]"
-                                #set_token_waiting type period value . complete 1
-                                #return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"} 
-                                append tok "$dquotes."
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "."
-                            }
-                            dottedkey-space {
-                                ###
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            default {
-                                set_tokenType "untyped_value"
-                                set tok "."
-                            }
-                        }
-                    }
-
-                }
-                " " {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    if {[tcl::string::length $tokenType]} {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1 
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            barekey {
-                                #todo had_slash - emit token or error
-                                #whitespace is a terminator for bare keys
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            comment {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok $dquotes$c
-                            }
-                            string - quotedkey - itablequotedkey {
-                                if {$had_slash} { append tok "\\" }
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " " 
-                                    append tok $dquotes
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart - squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    if {$dquotes ne ""} {
-                                        #end whitespace token
-                                        #go back by the number of quotes plus this space char
-                                        set backchars [expr {[tcl::string::length $dquotes] + 1}]
-                                        incr i -$backchars
-                                        return 1
-                                    } else {
-                                        append tok $c
-                                    }
-                                } else {
-                                    append tok $c
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace space during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active 
-                        set slash_active 0
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        set_tokenType "stringpart"
-                                        set tok $dquotes
-                                        incr i -1
-                                        return 1
-                                    }
-                                    set_tokenType "whitespace"
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                if {$had_slash} {
-                                    error "tomlish unexpected backslash [tomlish::parse::report_line]"
-                                }
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                tab {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out (?review)
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1 
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            barekey {
-                                #whitespace is a terminator for bare keys
-                                incr i -1
-                                #set_token_waiting type whitespace value $c complete 1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            quotedkey - itablequotedkey - squotedkey - itablesquotedkey {
-                                append tok $c
-                            }
-                            string - comment - whitespace {
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " " 
-                                    append tok $dquotes
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearraynames {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace tab during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active 
-                        if {$slash_active} {
-                            set slash_active 0
-                        }
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename 
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname 
-                                set tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        set_tokenType stringpart
-                                        set tok $dquotes
-                                        incr i -1
-                                        return 1
-                                    } else {
-                                        set_tokenType whitespace
-                                        append tok $c
-                                    }
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                bom {
-                    #BOM (Byte Order Mark) - ignored by token consumer
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            _start_squote_sequence {
-                                #assert - tok will be one or two squotes only
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            default {
-                                set_token_waiting type bom value "\uFEFF" complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else { 
-                        switch -exact -- $state {
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "bom"
-                                set tok "\uFEFF"
-                                return 1
-                            }
-                        }
-                    }
-                }
-                default {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1 
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    if {$dquotes ne ""} {
-                                        set backlen [expr {[tcl::string::length $dquotes] + 1}]
-                                        incr i -$backlen
-                                        return 1
-                                    } else {
-                                        incr i -1
-                                        return 1
-                                    }
-                                } else {
-                                    #review
-                                    incr i -1  ;#We don't have a full token to add to the token_waiting dict - so leave this char for next run.
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed. (see tomlish::utils::is_barekey) [tomlish::parse::report_line]"
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                #allow statemachine to set context for subsequent chars
-                                return 1
-                            }
-                            stringpart {
-                                append tok $dquotes$c
-                            }
-                            default {
-                                #e.g comment/string/literal/literalpart/untyped_value/starttablename/starttablearrayname/tablename/tablearrayname
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            table-space - itable-space {
-                                #if no currently active token - assume another key value pair
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            curly-syntax {
-                                puts stderr "curly-syntax - review"
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                if {$had_slash} {
-                                    #assert - we don't get had_slash and dquotes at same time
-                                    set tok \\$c
-                                } else {
-                                    set tok $dquotes$c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType "tablename"
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType barekey 
-                                set tok $c
-                            }
-                            default {
-                                tomlish::log::debug "- tokloop char '$c' setting to untyped_value while state:$state"
-                                set_tokenType "untyped_value"
-                                set tok $c
-                            }
-                        }
-                    }
-                }
-            }
-            
-        }
-        
-        #run out of characters (eof)
-        if {[tcl::string::length $tokenType]} {
-            #check for invalid ending tokens
-            #if {$state eq "err-state"} {
-            #	error "Reached end of data whilst tokenType = '$tokenType'. INVALID"
-            #}
-            switch -exact -- $tokenType {
-                startquotesequence {
-                    set toklen [tcl::string::length $tok]
-                    if {$toklen == 1} {
-                        #invalid
-                        #eof with open string
-                        error "tomlish eof reached without closing quote for string. [tomlish::parse::report_line]"
-                    } elseif {$toklen == 2} {
-                        #valid
-                        #we ended in a double quote, not actually a startquoteseqence - effectively an empty string
-                        switch_tokenType "startquote"
-                        incr i -1
-                        #set_token_waiting type string value "" complete 1
-                        return 1
-                    }
-                }
-                _start_squote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open literal 
-                            error "tomlish eof reached without closing single quote for string literal. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            #review
-                            set_token_waiting type endsquote value "'" complete 1 startindex [expr {$cindex -1}] 
-                            set_tokenType "literal"
-                            set tok ""
-                            return 1
-                        }
-                    }
-                }
-            }
-            set_token_waiting type eof value eof complete 1 startindex $i ;#review
-            return 1
-        } else {
-            ::tomlish::log::debug "- No current tokenType, ran out of characters, setting tokenType to 'eof' [tomlish::parse::report_line]"
-            set tokenType "eof"
-            set tok "eof"
-        }
-        return 0
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::parse ---}]
-}
-
-namespace eval tomlish::dict {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-
-    proc is_tomlish_typeval {d} {
-        #designed to detect {type <tag> value <whatever>} e.g {type INT value 3}, {type STRING value "blah etc"}
-        #as a sanity check we need to avoid mistaking user data that happens to match same form
-        #consider x.y={type="spud",value="blah"}
-        #The value of type will itself have already been converted to {type STRING value spud} ie never a single element.
-        #check the length of the type as a quick way to see it's a tag - not something else masqerading.
-        expr {[dict size $d] == 2 && [dict exists $d type] && [dict exists $d value] && [llength [dict get $d type]] == 1} 
-    }
-    proc is_tomlish_typeval2 {d} {
-        upvar ::tomlish::tags tags
-        expr {[lindex $d 0] eq "type" && [lindex $d 1] in $tags}
-    }
-    proc last_tomltype_posn {d} {
-        set last_simple -1 
-        set dictposn [expr {[dict size $d] -1}]
-        foreach k [lreverse [dict keys $d]] {
-            set dval [dict get $d $k]
-            if {[is_tomlish_typeval $dval]} {
-                set last_simple $dictposn
-                break
-            }
-            incr dictposn -1
-        }
-        return $last_simple
-    }
-
-
-    #review
-    proc name_from_tablestack {tablestack} {
-        set name ""
-        foreach tinfo [lrange $tablestack 1 end] {
-            lassign $tinfo type namepart
-            switch -- $type {
-                T {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                I {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                default {
-                    #end at first break in the leading sequence of T & I tablenames
-                    break
-                }
-            }
-        }
-        return $name
-    }
-
-}
-
-tcl::namespace::eval tomlish::app {
-    variable applist [list encoder decoder test]
-
-    #*** !doctools
-    #[subsection {Namespace tomlish::app}]
-    #[para] 
-    #[list_begin definitions]
-
-    proc decoder {args} {
-        #*** !doctools
-        #[call app::[fun decoder] [arg args]]
-        #[para] read toml on stdin until EOF
-        #[para] on error   - returns non-zero exit code and writes error on stderr 
-        #[para] on success - returns zero exit code and writes JSON encoding of the data on stdout
-        #[para] This decoder is intended to be compatible with toml-test
-
-        set opts [dict merge [dict create] $args]
-        #fconfigure stdin -encoding utf-8
-        fconfigure stdin -translation binary
-        #Just slurp it all - presumably we are not handling massive amounts of data on stdin.
-        # - even if the input is large, we probably don't gain much (aside from possible memory savings?) by attempting to process input as it arrives.
-        if {[catch {
-            set toml [read stdin] 
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set j [::tomlish::toml_to_json $toml]
-        } on error {em} {
-            puts stderr "decoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline stdout $j
-        exit 0
-    }
-
-    proc encoder {args} {
-        #*** !doctools
-        #[call app::[fun encoder] [arg args]]
-        #[para] read JSON on stdin until EOF
-        #[para] return non-zero exitcode if JSON data cannot be converted to a valid TOML representation
-        #[para] return zero exitcode and TOML data on stdout if JSON data can be converted.
-        #[para] This encoder is intended to be compatible with toml-test
-
-        set opts [dict merge [dict create] $args]
-        fconfigure stdin -translation binary
-        if {[catch {
-            set json [read stdin] 
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set toml [::tomlish::json_to_toml $json]
-        } on error {em} {
-            puts stderr "encoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline stdout $toml
-        exit 0	
-    }
-
-    proc test {args} {
-        set opts [dict merge [dict create] $args]
-
-        package require test::tomlish
-        if {[dict exists $opts -suite]} {
-            test::tomlish::suite [dict get $opts -suite]
-        }
-        test::tomlish::run
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::app ---}]
-}
-
-proc ::tomlish::appnames {} {
-    set applist [list]
-    foreach cmd [info commands ::tomlish::app::*] {
-        lappend applist [namespace tail $cmd]
-    }
-    return $applist
-}	
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace tomlish::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-if {$argc > 0} {
-	puts stderr "argc: $argc args: $argv"
-	
-	if {($argc == 1)} {
-		if {[tcl::string::tolower $argv] in {help -help h -h}} {
-			puts stdout "Usage: -app <appname> where appname one of:[tomlish::appnames]"
-			exit 0
-		} else {
-			puts stderr "Argument '$argv' not understood. Try -help"
-			exit 1
-		}
-	}
-	set opts [dict create]
-	set opts [dict merge $opts $argv]
-	
-	set opts_understood [list -app ]
-	if {"-app" in [dict keys $opts]} {
-		#Don't vet the remaining opts - as they are interpreted by each app
-	} else {
-		foreach key [dict keys $opts] {
-			if {$key ni $opts_understood} {
-				puts stderr "Option '$key' not understood"
-				exit 1
-			}
-		}
-	}
-	if {[dict exists $opts -app]} {
-		set app [dict get $opts -app]
-		if {$app ni [tomlish::appnames]} {
-			puts stderr "app '[dict get $opts -app]' not found"
-			exit 1
-		}
-		tomlish::app::$app {*}$opts
-	}
-}
-
-##  Ready   
-package provide tomlish [namespace eval tomlish {
-    variable pkg tomlish
-    variable version
-    set version 1.1.2 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.3.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.3.tm
deleted file mode 100644
index 3da39427..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.3.tm
+++ /dev/null
@@ -1,6002 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application tomlish 1.1.3
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin tomlish_module_tomlish 0 1.1.3]
-#[copyright "2024"]
-#[titledesc {tomlish toml parser}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {tomlish}]             [comment {-- Description at end of page heading --}]
-#[require tomlish]
-#[keywords module parsing toml configuration]
-#[description]
-#[para] tomlish is an intermediate representation of toml data in a tree structure (tagged lists representing type information)
-#[para] The design goals are for tomlish to be whitespace and comment preserving ie byte-for byte preservation during roundtrips from toml to tomlish and back to toml
-#[para] The tomlish representation can then be converted to a Tcl dict structure or to other formats such as json,
-#[para] although these other formats are generally unlikely to retain whitespace or comments
-#[para] The other formats also won't preserve roundtripability e.g \t and a literal tab coming from a toml file will be indistinguishable.
-#[para] A further goal is to allow at least a useful subset of in-place editing operations which also preserve whitespace and comments.
-#[para] e.g leaf key value editing, and table reordering/sorting, key-renaming at any level, key insertions/deletions
-#[para] The API for editing (tomldoc object?) may require explicit setting of type if accessing an existing key
-#[para] e.g setting a key that already exists and is a different type (especially if nested structure such as a table or array)
-#[para] will need a -type option (-force ?) to force overriding with another type such as an int.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of tomlish
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by tomlish
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require struct::stack
-package require logger
-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {struct::stack}]
-
-#limit ourselves to clear, destroy, peek, pop, push, rotate, or size  (e.g v 1.3 does not implement 'get')
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    variable types
-
-    #IDEAS:
-    # since get_toml produces tomlish with whitespace/comments intact:
-    # tomldoc object - allow (at least basic?) editing of toml whilst preserving comments & whitespace
-    # - setKey (set leaf only to value) how to specify type? -type option? - whole array vs index into arrays and further nested objects?  - option for raw toml additions?
-    # - separate addKey??
-    # - deleteKey (delete leaf)
-    # - deleteTable (delete table - if only has leaves? - option to delete with child tables?)
-    # - set/add Table? - position in doc based on existing tables/subtables?
-
-    #The tomlish intermediate representation allows things such as sorting the toml document by table name or other re-ordering of tables -
-    # because the tables include subkeys, comments and newlines within their structure - those elements all come along with it nicely during reordering.
-    #The same goes for the first newline following a keyval  e.g  x=1 \ny=2\n\n
-    #The newline is part of the keyval structure so makes reordering easier
-    #example from_toml "a=1\nb=2\n\n\n"
-    #  0 = TOMLISH
-    #  1 = KEY a = {INT 1} {NEWLINE lf}
-    #  2 = NEWLINE lf
-    #  3 = KEY b = {INT 2} {NEWLINE lf}
-    #  4 = NEWLINE lf
-    #  5 = NEWLINE lf
-
-
-    #ARRAY is analogous to a Tcl list
-    #TABLE is analogous to a Tcl dict
-    #WS = inline whitespace
-    #KEY = bare key and value
-    #DQKEY = double quoted key and value
-    #SQKEY = single quoted key and value
-    #ITABLE = inline table (*can* be anonymous table)
-    #         inline table values immediately create a table with the opening brace
-    #         inline tables are fully defined between their braces, as are dotted-key subtables defined within
-    #         No additional subtables or arrays of tables may be defined within an inline table after the ending brace - they must be entirely self-contained
-
-    set tags [list TOMLISH ARRAY TABLE ITABLE ANONTABLE WS NEWLINE COMMENT DOTTEDKEY KEY DQKEY SQKEY STRING STRINGPART MULTISTRING LITERAL LITERALPART MULTILITERAL INT FLOAT BOOL DATETIME]
-    #tomlish v1.0 should accept arbitrary 64-bit signed ints (from -2^63 to 2^63-1)
-    #we will restrict to this range for compatibility for now - although Tcl can handle larger (arbitrarily so?)
-    set min_int -9223372036854775808 ;#-2^63
-    set max_int +9223372036854775807 ;#2^63-1
-
-    proc Dolog {lvl txt} {
-        #return "$lvl -- $txt"
-        set msg "[clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] tomlish '$txt'"
-        puts stderr $msg
-    }
-    logger::initNamespace ::tomlish
-    foreach lvl [logger::levels] {
-        interp alias {} tomlish_log_$lvl {} ::tomlish::Dolog $lvl
-        log::logproc $lvl tomlish_log_$lvl
-    }
-
-    #*** !doctools
-    #[subsection {Namespace tomlish}]
-    #[para] Core API functions for tomlish
-    #[list_begin definitions]
-
-    proc tags {} {
-        return $::tomlish::tags
-    }
-
-    #helper function for to_dict
-    proc _get_keyval_value {keyval_element} {
-        log::notice ">>> _get_keyval_value from '$keyval_element'<<<"
-        set found_value 0
-        #find the value
-        # 3 is the earliest index at which the value could occur (depending on whitespace)
-        set found_sub [list]
-        if {[lindex $keyval_element 2] ne "="} {
-            error "tomlish _get_keyval_value keyval_element doesn't seem to be a properly structured {<keytype> <keydata> = <valuedat>} list"
-        }
-
-        #review
-        if {[uplevel 1 [list info exists tablenames_seen]]} {
-            upvar tablenames_seen tablenames_seen
-        } else {
-            set tablenames_seen [list] ;#list of lists
-        }
-        if {[uplevel 1 [list info exists tablenames_closed]]} {
-            upvar tablenames_closed tablenames_closed
-        } else {
-            set tablenames_closed [list] ;#list of lists
-        }
-
-        foreach sub [lrange $keyval_element 2 end]  {
-            #note that a barekey/dquotedkey won't occur directly inside a barekey/dquotedkey
-            switch -exact -- [lindex $sub 0] {
-                STRING - LITERAL - MULTISTRING - MULTILITERAL - INT - FLOAT - BOOL - DATETIME - TABLE - ARRAY - ITABLE {
-                    set type [lindex $sub 0]
-                    set value [lindex $sub 1]
-                    set found_sub $sub
-                    incr found_value 1
-                }
-                default {}
-            }
-        }
-        if {!$found_value} {
-            error "tomlish Failed to find value element in KEY. '$keyval_element'"
-        }
-        if {$found_value > 1} {
-            error "tomlish Found multiple value elements in KEY, expected exactly one. '$keyval_element'"
-        }
-
-        switch -exact -- $type {
-            INT - FLOAT - BOOL - DATETIME {
-                #simple (non-container, no-substitution) datatype
-                set result [list type $type value $value]
-            }
-            STRING - STRINGPART {
-                set result [list type $type value [::tomlish::utils::unescape_string $value]]
-            }
-            LITERAL - LITERALPART {
-                #REVIEW
-                set result [list type $type value $value]
-            }
-            TABLE {
-                #invalid?
-                error "tomlish _get_keyval_value invalid to have type TABLE on rhs of ="
-            }
-            ITABLE {
-                #This one should not be returned as a type <tag> value <something> structure!
-                #
-                set result [::tomlish::to_dict [list $found_sub]]
-            }
-            ARRAY {
-                #we need to recurse to get the corresponding dict for the contained item(s)
-                #pass in the whole $found_sub - not just the $value!
-                set prev_tablenames_seen    $tablenames_seen
-                set prev_tablenames_closed  $tablenames_closed
-                set tablenames_seen     [list]
-                set tablenames_closed   [list]
-                set result [list type $type value [::tomlish::to_dict [list $found_sub]]]
-                set tablenames_seen     $prev_tablenames_seen
-                set tablenames_closed   $prev_tablenames_closed
-            }
-            MULTISTRING - MULTILITERAL {
-                #review - mapping these to STRING might make some conversions harder?
-                #if we keep the MULTI<type> - we know we have to look for newlines for example when converting to json
-                #without specific types we'd have to check every STRING - and lose info about how best to map chars within it
-                set result [list type $type value [::tomlish::to_dict [list $found_sub]]]
-            }
-            default {
-                error "tomlish Unexpected value type '$type' found in keyval '$keyval_element'"
-            }
-        }
-        return $result
-    }
-
-    proc _get_dottedkey_info {dottedkeyrecord} {
-        set key_hierarchy [list]
-        set key_hierarchy_raw [list]
-        if {[lindex $dottedkeyrecord 0] ne "DOTTEDKEY"} {
-            error "tomlish _get_dottedkey_info error. Supplied list doesn't appear to be a DOTTEDKEY (tag: [lindex $dottedkeyrecord 0])"
-        }
-        set compoundkeylist [lindex $dottedkeyrecord 1]
-        set expect_sep 0
-        foreach part $compoundkeylist {
-            set parttag [lindex $part 0]
-            if {$parttag eq "WS"} {
-                continue
-            }
-            if {$expect_sep} {
-                if {$parttag ne "DOTSEP"} {
-                    error "DOTTEDKEY missing dot separator between parts. '$dottedkeyrecord'"
-                }
-                set expect_sep 0
-            } else {
-                set val [lindex $part 1]
-                switch -exact -- $parttag {
-                    KEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw $val
-                    }
-                    DQKEY {
-                        lappend key_hierarchy [::tomlish::utils::unescape_string $val]
-                        lappend key_hierarchy_raw \"$val\"
-                    }
-                    SQKEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw "'$val'"
-                    }
-                    default {
-                        error "DOTTED key unexpected part '$parttag' - ensure dot separator is between key parts. '$item'"
-                    }
-                }
-                set expect_sep 1
-            }
-        }
-        return [dict create keys $key_hierarchy keys_raw $key_hierarchy_raw]
-    }
-
-
-
-    #to_dict is a *basic* programmatic datastructure for accessing the data.
-    # produce a dictionary of keys and values from a tomlish tagged list.
-    # to_dict is primarily for reading toml data.
-    #Extraneous (not within quoted sections) whitespace and comments are not preserved in this structure,
-    # so a roundtrip from toml to this datastructure and back to toml will lose whitespace formatting and comments.
-    # creating/changing toml values can be done directly on a tomlish list if preserving (or adding) formatting/comments is desired.
-    #A separate package 'tomlish::object' may be needed to allow easier programmatic creating/updating/deleting of data elements whilst preserving (or adding or selectively deleting/editing) such formatting.
-    #
-
-    #within an ARRAY, we store  a list of items such as plain dicts (possibly empty) and {type <tag> value <val>} for simple types
-    #(ARRAYS can be mixed type)
-    #This means our dict structure should have only ARRAY and simple types which need to be in {type <tag> value <val>} form
-    #A dict within an array encodeded as a type ITABLE value <etc> should also parse - but is the unpreferred form - REVIEW test?
-
-    #Namespacing?
-    #ie note the difference:
-    #[Data]
-    #temp = { cpu = 79.5, case = 72.0}
-    # versus
-    #[Data]
-    #temps = [{cpu = 79.5, case = 72.0}]
-    proc to_dict {tomlish} {
-
-        #keep track of which tablenames have already been directly defined,
-        # so we can raise an error to satisfy the toml rule: 'You cannot define any key or table more than once. Doing so is invalid'
-        #Note that [a] and then [a.b] is ok if there are no subkey conflicts - so we are only tracking complete tablenames here.
-        #we don't error out just because a previous tablename segment has already appeared.
-        ##variable tablenames_seen [list]
-        if {[uplevel 1 [list info exists tablenames_seen]]} {
-            upvar tablenames_seen tablenames_seen
-        } else {
-            set tablenames_seen [list] ;#list of lists
-        }
-        if {[uplevel 1 [list info exists tablenames_closed]]} {
-            upvar tablenames_closed tablenames_closed
-        } else {
-            set tablenames_closed [list] ;#list of lists
-        }
-
-        log::info "---> to_dict  processing '$tomlish'<<<"
-        set items $tomlish
-
-        foreach lst $items {
-            if {[lindex $lst 0] ni $::tomlish::tags} {
-                error "supplied string does not appear to be toml parsed into a tomlish tagged list. Run tomlish::decode::toml on the raw toml data to produce a tomlish list"
-            }
-        }
-
-        if {[lindex $tomlish 0] eq "TOMLISH"} {
-            #ignore TOMLISH tag at beginning
-            set items [lrange $tomlish 1 end]
-        }
-
-        set datastructure [dict create]
-        foreach item $items {
-            set tag [lindex $item 0]
-            #puts "...> item:'$item' tag:'$tag'"
-            switch -exact -- $tag {
-                KEY - DQKEY - SQKEY {
-                    log::debug "---> to_dict item: processing $tag: $item"
-                    set key [lindex $item 1]
-                    if {$tag eq "DQKEY"} {
-                        set key [::tomlish::utils::unescape_string $key]
-                    }
-                    #!todo - normalize key. (may be quoted/doublequoted)
-
-                    if {[dict exists $datastructure $key]} {
-                        error "Duplicate key '$key'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-
-                    #lassign [_get_keyval_value $item] type val
-                    set keyval_dict [_get_keyval_value $item]
-                    dict set datastructure $key $keyval_dict
-                }
-                DOTTEDKEY {
-                    log::debug "---> to_dict item processing $tag: $item"
-                    set dkey_info                   [_get_dottedkey_info $item]
-                    set dotted_key_hierarchy        [dict get $dkey_info keys]
-
-                    #a.b.c = 1
-                    #table_key_hierarchy -> a b
-                    #leafkey -> c
-                    if {[llength $dotted_key_hierarchy] == 0} {
-                        #empty?? probably invalid. review
-                        #This is different to '' = 1  or ''.'' = 1 which have lengths 1 and 2 respectively
-                        error "DOTTED key has no parts - invalid?  '$item'"
-                    } elseif {[llength $dotted_key_hierarchy] == 1} {
-                        #dottedkey is only a key - no table component
-                        set table_hierarchy [list]
-                        set leafkey [lindex $dotted_key_hierarchy 0]
-                    } else {
-                        set table_hierarchy [lrange $dotted_key_hierarchy 0 end-1]
-                        set leafkey [lindex $dotted_key_hierarchy end]
-                    }
-
-                    #ensure empty tables are still represented in the datastructure
-                    #review - this seems unnecessary?
-                    set pathkeys [list]
-                    foreach k $table_hierarchy {
-                        lappend pathkeys $k
-                        if {![dict exists $datastructure {*}$pathkeys]} {
-                            dict set datastructure {*}$pathkeys [list]
-                        } else {
-                            tomlish::log::notice "to_dict datastructure at key path $pathkeys already had data: [dict get $datastructure {*}$pathkeys]"
-                        }
-                    }
-                    #review?
-                    if {[dict exists $datastructure {*}$table_hierarchy $leafkey]} {
-                        error "Duplicate key '$table_hierarchy $leafkey'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-
-                    #JMN test 2025
-                    if {[llength $table_hierarchy]} {
-                        lappend tablenames_seen $table_hierarchy
-                    }
-
-                    set keyval_dict [_get_keyval_value $item]
-                    if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                        lappend tablenames_seen     [list {*}$table_hierarchy $leafkey]
-                        lappend tablenames_closed   [list {*}$table_hierarchy $leafkey]
-
-                        #review - item is an ITABLE - we recurse here without datastructure context :/
-                        #overwriting keys? todo ?
-                        dict set datastructure {*}$table_hierarchy $leafkey $keyval_dict
-                    } else {
-                        dict set datastructure {*}$table_hierarchy $leafkey $keyval_dict
-                    }
-
-                }
-                TABLE  {
-                    set tablename [lindex $item 1]
-                    #set tablename [::tomlish::utils::tablename_trim $tablename]
-                    set norm_segments [::tomlish::utils::tablename_split $tablename true] ;#true to normalize
-                    if {$norm_segments in $tablenames_seen} {
-                        error "Table name '$tablename' has already been directly defined in the toml data. Invalid."
-                    }
-
-                    log::debug "---> to_dict processing item $tag (name: $tablename): $item"
-                    set name_segments [::tomlish::utils::tablename_split $tablename] ;#unnormalized
-                    set last_seg ""
-                    #toml spec rule - all segments mst be non-empty
-                    #note that the results of tablename_split are 'raw' - ie some segments may be enclosed in single or double quotes.
-
-                    set table_key_sublist [list]
-
-                    foreach normseg $norm_segments {
-                        lappend table_key_sublist $normseg
-                        if {[dict exists $datastructure {*}$table_key_sublist]} {
-                            #It's ok for this key to already exist *if* it was defined by a previous tablename or equivalent
-                            #and if this key is longer
-
-                            #consider the following 2 which are legal:
-                            #[table]
-                            #x.y = 3
-                            #[table.x.z]
-                            #k= 22
-
-                            #equivalent
-
-                            #[table]
-                            #[table.x]
-                            #y = 3
-                            #[table.x.z]
-                            #k=22
-
-                            #illegal
-                            #[table]
-                            #x.y = 3
-                            #[table.x.y.z]
-                            #k = 22
-                            ## - we should fail on encountering table.x.y because only table and table.x are effectively tables
-
-                            #illegal
-                            #[table]
-                            #x.y = {p=3}
-                            #[table.x.y.z]
-                            #k = 22
-                            ## we should fail because y is an inline table which is closed to further entries
-
-
-                            #note: it is not safe to compare normalized tablenames using join!
-                            # e.g  a.'b.c'.d  is not the same as a.b.c.d
-                            # instead compare {a b.c d} with {a b c d}
-                            # Here is an example where the number of keys is the same, but they must be compared as a list, not a joined string.
-                            #'a.b'.'c.d.e'  vs  'a.b.c'.'d.e'
-                            #we need to normalize the tablenames seen so that {"x\ty"} matches {"x<rawtab>y"}
-
-                            set sublist_length [llength $table_key_sublist]
-                            set found_testkey 0
-                            if {$table_key_sublist in $tablenames_seen} {
-                                set found_testkey 1
-                            } else {
-                                #see if it was defined by a longer entry
-                                foreach seen_table_segments $tablenames_seen {
-                                    if {[llength $seen_table_segments] <= $sublist_length} {
-                                        continue
-                                    }
-                                    #each tablenames_seen entry is already a list of normalized segments
-
-                                    #we could have [a.b.c.d] early on
-                                    # followed by [a.b]  - which was still defined by the earlier one.
-
-                                    set seen_longer [lrange $seen_segments 0 [expr {$sublist_length -1}]]
-                                    puts stderr "testkey:'$table_key_sublist' vs seen_match:'$seen_longer'"
-                                    if {$table_key_sublist eq $seen_longer} {
-                                        set found_testkey 1
-                                    }
-                                }
-                            }
-
-                            if {$found_testkey == 0} {
-                                #the raw table_key_hierarchy is better to display in the error message, although it's not the actual dict keyset
-                                set msg "key $table_key_sublist  already exists in datastructure, but wasn't defined by a supertable."
-                                append msg \n "tablenames_seen:" \n
-                                foreach ts $tablenames_seen {
-                                    append msg "  " $ts \n
-                                }
-                                error $msg
-                            }
-                        }
-
-                    }
-
-                    #ensure empty tables are still represented in the datastructure
-                    set table_keys [list]
-                    foreach k $table_key_hierarchy {
-                        lappend table_keys $k
-                        if {![dict exists $datastructure {*}$table_keys]} {
-                            dict set datastructure {*}$table_keys [list]
-                        } else {
-                            tomlish::log::notice "to_dict datastructure at (TABLE) subkey $table_keys already had data: [dict get $datastructure {*}$table_keys]"
-                        }
-                    }
-
-                    #We must do this after the key-collision test above!
-                    lappend tablenames_seen $norm_segments
-
-
-                    log::debug ">>> to_dict >>>>>>>>>>>>>>>>> table_key_hierarchy    : $table_key_hierarchy"
-
-                    #now add the contained elements
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [_get_dottedkey_info $element]
-                                #e.g1 keys {x.y y} keys_raw {'x.y' "a\tb"}   keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-                                #e.g2 keys {x.y y} keys_raw {{"x.y"} "a\tb"} keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-                                set dotted_key_hierarchy        [dict get $dkey_info keys]
-                                set dkeys                       [lrange $dotted_key_hierarchy 0 end-1]
-                                set leaf_key                    [lindex $dotted_key_hierarchy end]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set test_keys $table_keys
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$table_keys {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$table_keys $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                #keyval_dict is either a {type <tomltag> value <whatever>}
-                                #or the result from parsing an arbitrary dict from an inline table - which could theoretically look the same at the topmost level
-                                #punk::dict::is_tomlish_typeval can distinguish
-                                puts stdout "to_dict>>> $keyval_dict"
-                                dict set datastructure {*}$table_keys {*}$dkeys $leaf_key $keyval_dict
-                                #JMN 2025
-                                lappend tablenames_seen [list {*}$table_key_hierarchy {*}$dkeys]
-
-                                if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                                    #the value is either empty or or a dict structure with arbitrary (from-user-data) toplevel keys
-                                    # inner structure will contain {type <tag> value <etc>} if all leaves are not empty ITABLES
-                                    lappend tablenames_seen [list {*}$table_key_hierarchy  {*}$dkeys $leaf_key]
-                                    #if the keyval_dict is not a simple type x value y - then it's an inline table ?
-                                    #if so - we should add the path to the leaf_key as a closed table too - as it's not allowed to have more entries added.
-                                }
-
-                            }
-                            KEY - DQKEY - SQKEY {
-                                #obsolete ?
-                                set keyval_key [lindex $element 1]
-                                if {$type eq "DQKEY"} {
-                                    set keyval_key [::tomlish::utils::unescape_string $keyval_key]
-                                }
-                                if {[dict exists $datastructure {*}$dotted_key_hierarchy $keyval_key]} {
-                                    error "Duplicate key '$dotted_key_hierarchy $key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                dict set datastructure {*}$dotted_key_hierarchy $keyval_key $keyval_dict
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in table context. Expected only KEY,DQKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                    #now make sure we add an empty value if there were no contained elements!
-                    #!todo.
-                }
-                ITABLE {
-                    #SEP???
-                    set datastructure [list]
-                    foreach element [lrange $item 1 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [_get_dottedkey_info $element]
-                                set dotted_key_hierarchy       [dict get $dkey_info keys]
-                                set leaf_key [lindex $dotted_key_hierarchy end]
-                                set dkeys [lrange $dotted_key_hierarchy 0 end-1]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set table_keys [list] ;#We don't know the context - next level up will have to check for key collisions?
-                                set test_keys $table_keys
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$table_keys {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$table_keys $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                dict set datastructure {*}$table_keys {*}$dkeys $leaf_key $keyval_dict
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in ITABLE context. Expected only KEY,DQKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                }
-                ARRAY {
-                    #arrays in toml are allowed to contain mixtures of types
-                    set datastructure [list]
-                    log::debug "--> processing array: $item"
-
-                    foreach element [lrange $item 1 end]  {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            INT - FLOAT - BOOL - DATETIME {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            STRING {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::utils::unescape_string $value]]
-                            }
-                            LITERAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            ITABLE {
-                                #anonymous table
-                                #lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                                lappend datastructure  [::tomlish::to_dict [list $element]] ;#store itables within arrays as raw dicts (possibly empty)
-                            }
-                            TABLE {
-                                #invalid? shouldn't be output from from_dict - but could manually be constructed as such?  review
-                                #doesn't make sense as table needs a name?
-                                #take as synonym for ITABLE?
-                                error "to_dict TABLE within array unexpected"
-                            }
-                            ARRAY - MULTISTRING - MULTILITERAL {
-                                #set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                            }
-                            WS - SEP - NEWLINE - COMMENT {
-                                #ignore whitespace, commas, newlines and comments
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in array"
-                            }
-                        }
-                    }
-                }
-                MULTILITERAL {
-                    #triple squoted string
-                    #first newline stripped only if it is the very first element
-                    #(ie *immediately* following the opening delims)
-                    #All whitespace other than newlines is within LITERALPARTS
-                    # -------------------------------------------------------------------------
-                    #todo - consider extension to toml to allow indent-aware multiline literals
-                    # how - propose as issue in toml github? Use different delim? e.g ^^^ ?
-                    #e.g
-                    # xxx=?'''abc
-                    #         def
-                    #          etc
-                    #         '''
-                    #  - we would like to trimleft each line to the column following the opening delim
-                    # -------------------------------------------------------------------------
-
-                    log::debug "---> todict processing multiliteral: $item"
-                    set parts [lrange $item 1 end]
-                    if {[lindex $parts 0 0] eq "NEWLINE"} {
-                        set parts [lrange $parts 1 end] ;#skip it
-                    }
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            LITERALPART {
-                                append stringvalue [lindex $element 1]
-                            }
-                            NEWLINE {
-                                set val [lindex $element 1]
-                                if {$val eq "nl"} {
-                                    append stringvalue \n
-                                } else {
-                                    append stringvalue \r\n
-                                }
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                MULTISTRING {
-                    #triple dquoted string
-                    log::debug "---> to_dict processing multistring: $item"
-                    set stringvalue ""
-                    set idx 0
-                    set parts [lrange $item 1 end]
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        #We use STRINGPART in the tomlish representation as a distinct element to STRING - which would imply wrapping quotes to be reinserted
-                        switch -exact -- $type {
-                            STRING {
-                                #todo - do away with STRING ?
-                                #we don't build MULTISTRINGS containing  STRING - but should we accept it?
-                                tomlish::log::warn "double quoting a STRING found in MULTISTRING - should be STRINGPART?"
-                                append stringvalue "\"[::tomlish::utils::unescape_string [lindex $element 1]]\""
-                            }
-                            STRINGPART {
-                                append stringvalue [::tomlish::utils::unescape_string [lindex $element 1]]
-                            }
-                            CONT {
-                                #When the last non-whitespace character on a line is an unescaped backslash,
-                                #it will be trimmed along with all whitespace (including newlines) up to the next non-whitespace character or closing delimiter
-                                # review - we allow some whitespace in stringpart elements - can a stringpart ever be all whitespace?
-                                set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                if {$next_nl == -1} {
-                                    #last line
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"  ;#add the sep
-                                    } else {
-                                        #skip over ws without emitting
-                                        set idx [llength $parts]
-                                    }
-                                } else {
-                                    set parts_til_nl [lrange $parts 0 $next_nl-1]
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts_til_nl WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"
-                                    } else {
-                                        #skip over ws on this line
-                                        set idx $next_nl
-                                        #then have to check each subsequent line until we get to first non-whitespace
-                                        set trimming 1
-                                        while {$trimming && $idx < [llength $parts]} {
-                                            set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                            if {$next_nl == -1} {
-                                                #last line
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                } else {
-                                                    set idx [llength $parts]
-                                                }
-                                                set trimming 0
-                                            } else {
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not [lrange $parts 0 $next_nl-1] WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                    set trimming 0
-                                                } else {
-                                                    set idx $next_nl
-                                                    #keep trimming
-                                                }
-                                            }
-                                        }
-                                    }
-                                }
-                            }
-                            NEWLINE {
-                                #if newline is first element - it is not part of the data of a multistring
-                                if {$idx > 0} {
-                                    set val [lindex $element 1]
-                                    if {$val eq "nl"} {
-                                        append stringvalue \n
-                                    } else {
-                                        append stringvalue \r\n
-                                    }
-                                }
-                            }
-                            WS {
-                                append stringvalue [lindex $element 1]
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                WS - COMMENT - NEWLINE {
-                    #ignore
-                }
-                default {
-                    error "Unexpected tag '$tag' in Tomlish list '$tomlish'"
-                }
-            }
-        }
-        return $datastructure
-    }
-
-
-    proc _from_dictval_tomltype {parents tablestack keys typeval} {
-        set type [dict get $typeval type]
-        set val  [dict get $typeval value]
-        switch -- $type {
-            ARRAY {
-                set subitems [list]
-                foreach item $val {
-                    lappend subitems [_from_dictval [list {*}$parents ARRAY] $tablestack $keys $item] SEP
-                }
-                if {[lindex $subitems end] eq "SEP"} {
-                    set subitems [lrange $subitems 0 end-1]
-                }
-                return [list ARRAY {*}$subitems]
-            }
-            ITABLE {
-                if {$val eq ""} {
-                    return ITABLE
-                } else {
-                    return [_from_dictval [list {*}$parents ITABLE] $tablestack $keys $val]
-                }
-            }
-            MULTISTRING {
-                #value is a raw string that isn't encoded as tomlish
-                #create a valid toml snippet with the raw value and decode it to the proper tomlish MULTISTRING format
-                #We need to convert controls in $val to escape sequences - except for newlines
-                #
-                #consider an *option* to reformat for long lines? (perhaps overcomplex - byte equiv - but may fold in ugly places)
-                #we could use a line-length limit to decide when to put in a "line ending backslash"
-                #and even format it with a reasonable indent so that proper CONT and WS entries are made (?) REVIEW
-                #
-                #TODO
-                set tomlpart "x=\"\"\"\\\n"
-                append tomlpart $val "\"\"\""
-                set tomlish [tomlish::decode::toml $tomlpart]
-                #e.g if val = " etc\nblah"
-                #TOMLISH {DOTTEDKEY {{KEY x}} = {MULTISTRING CONT {NEWLINE LF} {WS { }} {STRINGPART etc} {NEWLINE lf} {STRINGPART blah} } }
-                #lindex 1 3 is the MULTISTRING tomlish list
-                return [lindex $tomlish 1 3]
-            }
-            MULTILITERAL {
-                #MLL string can contain newlines - but still no control chars
-                #todo - validate
-                set tomlpart "x='''\n"
-                append tomlpart $val '''
-                set tomlish [tomlish::decode::toml $tomlpart]
-                return [lindex $tomlish 1 3]
-            }
-            LITERAL {
-                #from v1.0 spec - "Control characters other than tab are not permitted in a literal string"
-                #(This rules out raw ANSI SGR - which is somewhat restrictive - but perhaps justified for a config format
-                # as copy-pasting ansi to a config value is probably not always wise, and it's not something that can be
-                # easily input via a text editor. ANSI can go in Basic strings using the \e escape if that's accepted v1.1?)
-                #we could choose to change the type to another format here when encountering invalid chars - but that seems
-                #like too much magic. We elect to error out and require the dict to have valid data for the types it specifies.
-                if {[string first ' $val] >=0} {
-                    error "_from_dictval_tomltype error: single quote found in LITERAL - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                #detect control chars other than tab
-                #for this we can use rawstring_to_Bstring_with_escaped_controls - even though this isn't a Bstring
-                #we are just using the map to detect a difference.
-                set testval [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]
-                if {$testval ne $val} {
-                    #some escaping would have to be done if this value was destined for a Bstring...
-                    #therefor this string has controls and isn't suitable for a LITERAL according to the specs.
-                    error "_from_dictval_tomltype error: control chars (other than tab) found in LITERAL value - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list LITERAL $val]
-            }
-            STRING {
-                return [list STRING [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]]
-            }
-            INT {
-                if {![::tomlish::utils::is_int $val]} {
-                    error "_from_dictval_tomltype error: bad INT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list INT $val]
-            }
-            FLOAT {
-                if {![::tomlish::utils::is_float $val]} {
-                    error "_from_dictval_tomltype error: bad FLOAT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list FLOAT $val]
-            }
-            default {
-                if {$type ni [::tomlish::tags]} {
-                    error "_from_dictval_tomltype error: Unrecognised typename '$type' in {type <typename> value <value>} - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list $type $val]
-            }
-        }
-    }
-
-    proc _from_dictval {parents tablestack keys vinfo} {
-        set k [lindex $keys end]
-        if {[regexp {\s} $k] || [string first . $k] >= 0} {}
-        if {![::tomlish::utils::is_barekey $k]} {
-            #Any dot in the key would have been split by to_dict - so if it's present here it's part of this key - not a level separator!
-            #requires quoting
-            #we'll use a basic mechanism for now to determine the type of quoting - whether it has any single quotes or not.
-            #todo - more?
-            #For keys - we currently (2025) are only allowed barekeys,basic strings and literal strings. (no multiline forms)
-            if {[string first ' $k] >=0} {
-                #basic string
-            } else {
-                #literal string
-                set K_PART [list SQKEY $k]
-            }
-        } else {
-            set K_PART [list KEY $k]
-        }
-        puts stderr "---parents:'$parents' keys:'$keys' vinfo: $vinfo---"
-        puts stderr "---tablestack: $tablestack---"
-        set result [list]
-        set lastparent [lindex $parents end]
-        if {$lastparent in [list "" do_inline]} {
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                set type [dict get $vinfo type]
-                #treat ITABLE differently?
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result DOTTEDKEY [list $K_PART {WS { }}] = {WS { }} $sublist {NEWLINE lf}
-            } else {
-                #set  result [list TABLE $k {NEWLINE lf}]
-                if {$vinfo ne ""} {
-
-                    #set result [list DOTTEDKEY [list [list KEY $k]] = ]
-                    #set records [list ITABLE]
-
-                    set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-
-                    if {$lastparent eq "do_inline"} {
-                        set result [list DOTTEDKEY [list $K_PART] =]
-                        set records [list ITABLE]
-                    } else {
-                        #review - quoted k ??
-                        set result [list TABLE $k {NEWLINE lf}]
-                        set tablestack [list {*}$tablestack [list T $k]]
-                        set records [list]
-                    }
-
-
-
-                    set lastidx [expr {[dict size $vinfo] -1}]
-                    set dictidx 0
-                    dict for {vk vv} $vinfo {
-                        if {[regexp {\s} $vk] || [string first . $vk] >= 0} {
-                            set VK_PART [list SQKEY $vk]
-                        } else {
-                            set VK_PART [list KEY $vk]
-                        }
-                        if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                            #type x value y
-                            set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                            set record [list DOTTEDKEY [list $VK_PART {WS { }}] = {WS { }} $sublist]
-                        } else {
-                            if {$vv eq ""} {
-                                #experimental
-                                if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    puts stderr "_from_dictval could uninline KEY $vk (tablestack:$tablestack)"
-                                    #set tname [tomlish::dict::name_from_tablestack [list {*}$tablestack [list T $vk]]]
-                                    set tname [join [list {*}$keys $vk] .]
-                                    set record [list TABLE $tname {NEWLINE lf}]
-                                    set tablestack [list {*}$tablestack [list T $vk]]
-                                } else {
-                                    set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    set tablestack [list {*}$tablestack [list I $vk]]
-                                }
-                            } else {
-                                if { 0 } {
-                                    #experiment.. sort of getting there.
-                                    if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                        puts stderr "_from_dictval could uninline2 KEYS [list {*}$keys $vk] (tablestack:$tablestack)"
-                                        set tname [join [list {*}$keys $vk] .]
-                                        set record [list TABLE $tname {NEWLINE lf}]
-                                        set tablestack [list {*}$tablestack [list T $vk]]
-
-                                        #review - todo?
-                                        set dottedkey_value [_from_dictval [list {*}$parents TABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        lappend record {*}$dottedkey_value
-
-                                    } else {
-                                        set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                    }
-                                } else {
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                        }
-                        if {$dictidx != $lastidx} {
-                            #lappend record SEP
-                            if {$lastparent eq "do_inline"} {
-                                lappend record SEP
-                            } else {
-                                lappend record {NEWLINE lf}
-                            }
-                        }
-                        lappend records $record
-                        incr dictidx
-                    }
-                    if {$lastparent eq "do_inline"} {
-                        lappend result $records {NEWLINE lf}
-                    } else {
-                        lappend result {*}$records {NEWLINE lf}
-                    }
-                } else {
-                    if {$lastparent eq "do_inline"} {
-                        lappend result DOTTEDKEY [list [list KEY $k]] = ITABLE {NEWLINE lf}
-                    } else {
-                        lappend result TABLE $k {NEWLINE lf}
-                    }
-                }
-            }
-        } else {
-            #lastparent is not toplevel "" or "do_inline"
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                #type x value y
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result {*}$sublist
-            } else {
-                if {$lastparent eq "TABLE"} {
-                    #review
-                    dict for {vk vv} $vinfo {
-                        set dottedkey_value [_from_dictval [list {*}$parents DOTTEDKEY] $tablestack [list {*}$keys $vk] $vv]
-                        lappend result [list DOTTEDKEY [list [list KEY $vk]] = $dottedkey_value {NEWLINE lf}]
-                    }
-                } else {
-                    if {$vinfo ne ""} {
-                        set lastidx [expr {[dict size $vinfo] -1}]
-                        set dictidx 0
-                        set sub [list]
-                        #REVIEW
-                        #set result $lastparent ;#e.g sets ITABLE
-                        set result ITABLE
-                        set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-                        dict for {vk vv} $vinfo {
-                            if {[regexp {\s} $vk] || [string first . $vk] >=0} {
-                                set VK_PART [list SQKEY $vk]
-                            } else {
-                                set VK_PART [list KEY $vk]
-                            }
-                            if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                                #type x value y
-                                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                                set record [list DOTTEDKEY [list $VK_PART] = $sublist]
-                            } else {
-                                if {$vv eq ""} {
-                                    #can't just uninline at this level
-                                    #we need a better method to query main dict for uninlinability at each level
-                                    # (including what's been inlined already)
-                                    #if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    #    puts stderr "_from_dictval uninline2 KEY $keys"
-                                    #    set tname [join [list {*}$keys $vk] .]
-                                    #    set record [list TABLE $tname {NEWLINE lf}]
-                                    #    set tablestack [list {*}$tablestack [list T $vk]]
-                                    #} else {
-                                        set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    #}
-                                } else {
-                                    #set sub [_from_dictval ITABLE $vk $vv]
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    #set record [list DOTTEDKEY [list $VK_PART] = ITABLE $dottedkey_value]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                            if {$dictidx != $lastidx} {
-                                lappend record SEP
-                            }
-                            lappend result $record
-                            incr dictidx
-                        }
-                    } else {
-                        puts stderr "table x-1"
-                        lappend result DOTTEDKEY [list $K_PART] = ITABLE
-                    }
-                }
-            }
-        }
-        return $result
-    }
-
-
-    proc from_dict {d} {
-        #consider:
-        #   t1={a=1,b=2}
-        #    x = 1
-        #If we represent t1 as an expanded table we get
-        # [t1]
-        # a=1
-        # b=2
-        # x=1
-        # --- which is incorrect - as x was a toplevel key like t1!
-        #This issue doesn't occur if x is itself an inline table
-        #   t1={a=1,b=2}
-        #   x= {no="problem"}
-        #
-        # (or if we were to reorder x to come before t1)
-
-        #As the dictionary form doesn't distinguish the structure used to create tables {[table1]\nk=v} vs inline {table1={k=v}}
-        #Without a solution, from_dict would have to always produce the inline form for toplevel tables unless we allowed re-ordering,
-        #which is unpreferred here.
-
-        #A possible solution:
-        #scan the top level to see if all (trailing) elements are themselves dicts
-        # (ie not of form {type XXX value yyy})
-        #
-        # A further point is that if all root level values are at the 'top' - we can treat lower table-like structures as {[table]} elements
-        #ie we don't need to force do_inline if all the 'simple' keys are before any compound keys
-
-        #set root_has_values 0
-        #approach 1) - the naive approach - forces inline when not always necessary
-        #dict for {k v} $d {
-        #    if {[llength $v] == 4 && [lindex $v 0] eq "type"} {
-        #        set root_has_values 1
-        #        break
-        #    }
-        #}
-
-
-        #approach 2) - track the position of last {type x value y} in the dictionary built by to_dict
-        # - still not perfect. Inlines dotted tables unnecessarily
-        #This means from_dict doesn't produce output optimal for human editing.
-        set last_simple [tomlish::dict::last_tomltype_posn $d]
-
-
-        ## set parent "do_inline" ;#a value used in _from_dictval to distinguish from "" or other context based parent values
-        #Any keys that are themselves tables - will need to be represented inline
-        #to avoid reordering, or incorrect assignment of plain values to the wrong table.
-
-        ## set parent ""
-        #all toplevel keys in the dict structure can represent subtables.
-        #we are free to use {[tablename]\n} syntax for toplevel elements.
-
-
-        set tomlish [list TOMLISH]
-        set dictposn 0
-        set tablestack [list [list T root]] ;#todo
-        dict for {t tinfo} $d {
-            if {$last_simple > $dictposn} {
-                set parents [list do_inline]
-            } else {
-                set parents [list ""]
-            }
-            set keys [list $t]
-            set trecord [_from_dictval $parents $tablestack $keys $tinfo]
-            lappend tomlish $trecord
-            incr dictposn
-        }
-        return $tomlish
-    }
-
-    proc json_to_toml {json} {
-        #*** !doctools
-        #[call [fun json_to_toml] [arg json]]
-        #[para]
-
-        set tomlish [::tomlish::from_json $json]
-        set toml [::tomlish::to_toml $tomlish]
-    }
-
-    #TODO use huddle?
-    proc from_json {json} {
-        #set jstruct [::tomlish::json_struct $json]
-        #return [::tomlish::from_json_struct $jstruct]
-        package require huddle
-        package require huddle::json
-        set h [huddle::json::json2huddle parse $json]
-
-    }
-
-    proc from_json_struct {jstruct} {
-        package require fish::json_toml
-        return [fish::json_toml::jsonstruct2tomlish $jstruct]
-    }
-
-    proc toml_to_json {toml} {
-        set tomlish [::tomlish::from_toml $toml]
-        return [::tomlish::get_json $tomlish]
-    }
-
-    proc get_json {tomlish} {
-        package require fish::json
-        set d [::tomlish::to_dict $tomlish]
-        #return [::tomlish::dict_to_json $d]
-        return [fish::json::from "struct" $d]
-    }
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-namespace eval tomlish::build {
-    #STRING,INT,FLOAT,BOOL, DATETIME - simple wrappers for completeness
-    # take a value of the appropriate type and wrap as a tomlish tagged item
-    proc STRING {s} {
-        return [list STRING [::tomlish::utils::rawstring_to_Bstring_with_escaped_controls $s]]
-    }
-    proc LITERAL {litstring} {
-
-    }
-
-    proc INT {i} {
-        #whole numbers, may be prefixed with a + or -
-        #Leading zeros are not allowed
-        #Hex,octal binary forms are allowed (toml 1.0)
-        #We will error out on encountering commas, as commas are interpreted differently depending on locale (and don't seem to be supported in the toml spec anyway)
-        #!todo - Tcl can handle bignums - bigger than a 64bit signed long as specified in toml.
-        #      - We should probably raise an error for number larger than this and suggest the user supply it as a string?
-        if {[tcl::string::last , $i] > -1} {
-            error "Unable to interpret '$i' as an integer. Use underscores if you need a thousands separator [::tomlish::parse::report_line]"
-        }
-        if {![::tomlish::utils::int_validchars $i]} {
-            error "Unable to interpret '$i' as an integer. Only 0-9 + 1 _ characters are acceptable. [::tomlish::parse::report_line]"
-        }
-
-        if {[::tomlish::utils::is_int $i]} {
-            return [list INT $i]
-        } else {
-            error "'$i' is not a valid integer as per the Toml spec. [::tomlish::parse::report_line]"
-        }
-
-    }
-
-    proc FLOAT {f} {
-        #convert any non-lower case variants of special values to lowercase for Toml
-        if {[::tcl::string::tolower $f] in {nan +nan -nan inf +inf -inf}} {
-            return [list FLOAT [tcl::string::tolower $f]]
-        }
-        if {[::tomlish::utils::is_float $f]} {
-            return [list FLOAT $f]
-        } else {
-            error "Unable to interpret '$f' as Toml float. Check your input, or check that tomlish is able to handle all Toml floats properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc DATETIME {str} {
-        if {[::tomlish::utils::is_datetime $str]} {
-            return [list DATETIME $str]
-        } else {
-            error "Unable to interpret '$str' as Toml datetime. Check your input, or check that tomlish is able to handle all Toml datetimes properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc BOOLEAN {b} {
-        #convert any Tcl-acceptable boolean to boolean as accepted by toml - lower case true/false
-        if {![tcl::string::is boolean -strict $b]} {
-            error "Unable to convert '$b' to Toml boolean true|false. [::tomlish::parse::report_line]"
-        } else {
-            if {$b && 1} {
-                return [::list BOOL true]
-            } else {
-                return [::list BOOL false]
-            }
-        }
-    }
-
-    #REVIEW
-    #Take tablename followed by
-    # a) *tomlish* name-value pairs e.g table mydata [list KEY item11 = [list STRING "test"]] {KEY item2 = [list INT 1]}
-    # (accept also key <keyname> value {STRING <value>})
-    # b) simple 2-element tcl lists being name & *simple* value pairs for which basic heuristics will be used to determine types
-    proc _table {name args} {
-        set pairs [list]
-        foreach t $args {
-            if {[llength $t] == 4} {
-                if {[tcl::string::tolower [lindex $t 0]] ne "key" || [tcl::string::tolower [lindex $t 2]] ni "= value"} {
-                    error "Only items tagged as KEY <keyname> = <value> currently accepted as name-value pairs for table command"
-                }
-                lassign $t _k keystr _eq valuepart
-                if {[llength $valuepart] != 2} {
-                    error "supplied value must be typed. e.g {INT 1} or {STRING test}"
-                }
-                lappend pairs [list KEY $keystr = $valuepart]
-            } elseif {[llength $t] == 2} {
-                #!todo - type heuristics
-                lassign $t n v
-                lappend pairs [list KEY $n = [list STRING $v]]
-            } else {
-                error "'KEY <name> = {<type> <val}' or simple name-value pairs expected. Unable to handle [llength $t] element list as argument"
-            }
-        }
-        set result [list TABLE $name {NEWLINE lf}]
-        foreach p $pairs {
-            lappend result $p {NEWLINE lf}
-        }
-        return $result
-        #return [list TABLE $name $pairs]
-    }
-
-
-    #REVIEW - root & table are not correct
-    #the tomlish root is basically a nameless table representing the root of the document
-    proc _root {args} {
-        set table [::tomlish::encode::table TOMLISH {*}$args]
-        set result [lrange $table 2 end]
-    }
-
-}
-
-namespace eval tomlish::encode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::encode}]
-    #[para]
-    #[list_begin definitions]
-
-
-
-
-    #WS = whitepace, US = underscore
-    #---------------------------------------------------------------------------------------------------------
-    #NOTE - this DELIBERATELY does not validate the data, or process escapes etc
-    #It encodes the tomlish records as they are.
-    #ie it only produces toml shaped data from a tomlish list.
-    #It is part of the roundtripability of data from toml to tomlish
-    #e.g duplicate keys etc can exist in the toml output.
-    #The to_dict from_dict (or any equivalent processor pair) is responsible for validation and conversion
-    #back and forth of escape sequences where appropriate.
-    #---------------------------------------------------------------------------------------------------------
-    proc tomlish {list {context ""}} {
-        if {![tcl::string::is list $list]} {
-            error "Supplied 'tomlish' is not a valid Tcl list. Expected a tagged list (parsed Toml)"
-        }
-        set toml "" ;#result string
-
-        foreach item $list {
-            set tag [lindex $item 0]
-            #puts "tomlish::encode::tomlish processing item '$item', tag '$tag'"
-            #during recursion, some tags require different error checking in different contexts.
-            set nextcontext $tag ;
-
-            #Handle invalid tag nestings
-            switch -- $context {
-                DQKEY -
-                SQKEY -
-                KEY {
-                    if {$tag in {KEY DQKEY SQKEY}} {
-                        error "Invalid tag '$tag' encountered within '$context'"
-                    }
-                }
-                MULTISTRING {
-                    #explicitly list the valid child tags
-                    set ms_parts {STRING STRINGPART WS NEWLINE CONT}
-                    if {$tag ni $ms_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTISTRING must belong to: $ms_parts"
-                    }
-                }
-                MULTILITERAL {
-                    set ml_parts {LITERALPART NEWLINE}
-                    if {$tag ni $ml_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTILITERAL must belong to: $ml_parts"
-                    }
-                }
-                default {
-                    #no context, or no defined nesting error for this context
-                }
-            }
-
-            switch -- $tag {
-                TOMLISH {
-                    #optional root tag. Ignore.
-                }
-                DQKEY -
-                SQKEY -
-                KEY {
-                    #
-                    if {$tag eq "KEY"} {
-                        append toml [lindex $item 1] ;#Key
-                    } elseif {$tag eq "SQKEY"} {
-                        append toml '[lindex $item 1]' ;#SQuoted Key
-                    } else {
-                        append toml \"[lindex $item 1]\" ;#DQuoted Key
-                    }
-                    #= could be at various positions depending on WS
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                DOTTEDKEY {
-                    #DQKEY, SQKEY, BAREKEY, WS, DOTSEP
-                    foreach part [lindex $item 1] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    #whitespace at tail of dotted key elements is within the list in element 1
-                    #generally we expect the = to be at element 2 - review
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            #puts "encoding [list $part] (context:$nextcontext)"
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                TABLE {
-                    append toml "\[[lindex $item 1]\]"  ;#table name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ITABLE {
-                    #inline table - e.g within array or on RHS of keyval/qkeyval
-                    set data ""
-                    foreach part [lrange $item 1 end] {
-                        append data [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\{$data\}"
-                }
-                ARRAY {
-                    set arraystr ""
-                    foreach part [lrange $item 1 end] {
-                        append arraystr [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\[$arraystr\]"
-                }
-                WS {
-                    append toml [lindex $item 1]
-                }
-                SEP {
-                    append toml ","
-                }
-                DOTSEP {
-                    append toml "."
-                }
-                NEWLINE {
-                    set chartype [lindex $item 1]
-                    if {$chartype eq "lf"} {
-                        append toml \n
-                    } elseif {$chartype eq "crlf"} {
-                        append toml \r\n
-                    } else {
-                        error "Unrecognized newline type '$chartype'"
-                    }
-                }
-                CONT {
-                    #line continuation character "\"
-                    append toml "\\"
-                }
-                STRING {
-                    #Basic string (Bstring)
-                    #simple double quoted strings only
-                    #
-                    append toml \"[lindex $item 1]\"
-                }
-                STRINGPART {
-                    append toml [lindex $item 1]
-                }
-                MULTISTRING {
-                    #Tripple quoted string which is a container for newlines,whitespace and multiple strings/stringparts
-                    set multistring "" ;#variable to build up the string
-                    foreach part [lrange $item 1 end] {
-                        append multistring [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\"\"\"$multistring\"\"\""
-                }
-                LITERAL {
-                    #Single Quoted string(literal string)
-                    append toml '[lindex $item 1]'
-                }
-                LITERALPART {
-                    append toml [lindex $item 1]
-                }
-                MULTILITERAL {
-                    #multiliteral could be handled as a single literal if we allowed literal to contain newlines
-                    #- except that the first newline must be retained for roundtripping tomlish <-> toml but
-                    # the first newline is not part of the data.
-                    # we elect instead to maintain a basic LITERALPART that must not contain newlines..
-                    # and to compose MULTILITERAL of multiple NEWLINE LITERALPART parts,
-                    #with the datastructure representation dropping the first newline (if immediately following opening delim) when building the value.
-                    set literal ""
-                    foreach part [lrange $item 1 end] {
-                        append literal [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml '''$literal'''
-                }
-                INT -
-                BOOL -
-                FLOAT -
-                DATETIME {
-                    append toml [lindex $item 1]
-                }
-                INCOMPLETE {
-                    error "cannot process tomlish term tagged as INCOMPLETE"
-                }
-                COMMENT {
-                    append toml "#[lindex $item 1]"
-                }
-                BOM {
-                    #Byte Order Mark may appear at beginning of a file. Needs to be preserved.
-                    append toml "\uFEFF"
-                }
-                default {
-                    error "Not a properly formed 'tomlish' taggedlist.\n '$list'\n Unknown tag '[lindex $item 0]'. See output of \[tomlish::tags\] command."
-                }
-            }
-
-        }
-        return $toml
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::encode ---}]
-}
-#fish toml from tomlish
-
-#(encode tomlish as toml)
-interp alias {} tomlish::to_toml {} tomlish::encode::tomlish
-
-#
-
-
-namespace eval tomlish::decode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::decode}]
-    #[para]
-    #[list_begin definitions]
-
-    #return a Tcl list of tomlish tokens
-    #i.e get a standard list of all the toml terms in string $s
-    #where each element of the list is a *tomlish* term.. i.e a specially 'tagged' Tcl list.
-    #(simliar to a tcl 'Huddle' - but also supporting whitespace preservation)
-    # ----------------------------------------------------------------------------------------------
-    # NOTE: the production of tomlish from toml source doesn't indicate the toml source was valid!!!
-    # e.g we deliberately don't check certain things such as duplicate table declarations here.
-    # ----------------------------------------------------------------------------------------------
-    #Part of the justification for this is that as long as the syntax is toml shaped - we can load files which violate certain rules and allow programmatic manipulation.
-    # (e.g perhaps a toml editor to highlight violations for fixing)
-    # A further stage is then necessary to load the tomlish tagged list into a data structure more suitable for efficient query/reading.
-    # e.g dicts or an object oriented structure
-    #Note also - *no* escapes in quoted strings are processed. This is up to the datastructure stage
-    #e.g to_dict will substitute \r \n \uHHHH \UHHHHHHH etc
-    #This is important for tomlish to maintain the ability to perform competely lossless round-trips from toml to tomlish and back to toml.
-    # (which is handy for testing as well as editing some part of the structure with absolutely no effect on other parts of the document)
-    #If we were to unescape a tab character for example
-    # - we have no way of knowing if it was originally specified as \t \u0009 or \U00000009 or directly as a tab character.
-    # For this reason, we also do absolutely no line-ending transformations based on platform.
-    # All line-endings are maintained as is, and even a file with mixed lf crlf line-endings will be correctly interpreted and can be 'roundtripped'
-
-    proc toml {args} {
-        #*** !doctools
-        #[call [fun toml] [arg arg...]]
-        #[para] return a Tcl list of tomlish tokens
-
-        set s [join $args \n]
-
-        namespace upvar ::tomlish::parse is_parsing is_parsing
-        set is_parsing 1
-
-        if {[info command ::tomlish::parse::spacestack] eq "::tomlish::parse::spacestack"} {
-            tomlish::parse::spacestack destroy
-        }
-        struct::stack ::tomlish::parse::spacestack
-
-        namespace upvar ::tomlish::parse last_space_action last_space_action
-        namespace upvar ::tomlish::parse last_space_type last_space_type
-
-        namespace upvar ::tomlish::parse tok tok
-        set tok ""
-
-        namespace upvar ::tomlish::parse type type
-        namespace upvar ::tomlish::parse tokenType tokenType
-        ::tomlish::parse::set_tokenType ""
-        namespace upvar ::tomlish::parse tokenType_list tokenType_list
-        set tokenType [list]  ;#Flat (un-nested) list of tokentypes found
-
-        namespace upvar ::tomlish::parse lastChar lastChar
-        set lastChar ""
-
-
-        set result ""
-        namespace upvar ::tomlish::parse nest nest
-        set nest 0
-
-        namespace upvar ::tomlish::parse v v  ;#array keyed on nest level
-
-
-        set v(0) {TOMLISH}
-        array set s0 [list] ;#whitespace data to go in {SPACE {}} element.
-        set parentlevel 0
-
-        namespace upvar ::tomlish::parse i i
-        set i 0
-
-        namespace upvar ::tomlish::parse state state
-
-        namespace upvar ::tomlish::parse braceCount braceCount
-        set barceCount 0
-        namespace upvar ::tomlish::parse bracketCount bracketCount
-        set bracketCount 0
-
-        set sep 0
-        set r 1
-        namespace upvar ::tomlish::parse token_waiting token_waiting
-        set token_waiting [dict create] ;#if ::tok finds a *complete* second token during a run, it will put the 2nd one here to be returned by the next call.
-
-
-        set state "table-space"
-        ::tomlish::parse::spacestack push {type space state table-space}
-        namespace upvar  ::tomlish::parse linenum  linenum;#'line number' of input data. (incremented for each literal linefeed - but not escaped ones in data)
-        set linenum 1
-
-        set ::tomlish::parse::state_list [list]
-        try {
-            while {$r} {
-                set r [::tomlish::parse::tok $s]
-                #puts stdout "got tok: '$tok' while parsing string '$s' "
-                set next_tokenType_known 0 ;#whether we begin a new token here based on what terminated the token result of 'tok'
-
-
-                #puts "got token: '$tok'  tokenType='$tokenType'. while v($nest) = [set v($nest)]"
-                #puts "-->tok: $tok tokenType='$tokenType'"
-                set prevstate $state
-                set transition_info [::tomlish::parse::goNextState $tokenType $tok $state]
-                #review goNextState could perform more than one space_action
-                set space_action [dict get $transition_info space_action]
-                set newstate     [dict get $transition_info newstate] ;#use of 'newstate' vs 'state' makes code clearer below
-
-                if {[tcl::string::match "err-*" $state]} {
-                    ::tomlish::log::warn "---- State error in state $prevstate for tokenType: $tokenType token value: $tok. $state aborting parse. [tomlish::parse::report_line]"
-                    lappend v(0) [list ERROR tokentype $tokenType state $prevstate to $state  leveldata [set v($nest)]]
-                    return $v(0)
-                }
-                # ---------------------------------------------------------
-                #NOTE there may already be a token_waiting at this point
-                #set_token_waiting can raise an error here,
-                # in which case the space_action branch needs to be rewritten to handle the existing token_waiting
-                # ---------------------------------------------------------
-
-                if {$space_action eq "pop"} {
-                    #pop_trigger_tokens: newline tablename endarray endinlinetable
-                    #note a token is a pop trigger depending on context. e.g first newline during keyval is a pop trigger.
-                    set parentlevel [expr {$nest -1}]
-                    set do_append_to_parent 1 ;#most tokens will leave this alone - but some like squote_seq need to do their own append
-                    switch -exact -- $tokenType {
-                        squote_seq {
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the xxx-squote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            switch -- $tok {
-                                ' {
-                                    tomlish::parse::set_token_waiting type startsquote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                '' {
-                                    #review - we should perhaps return double_squote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_squote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                ''' {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                '''' {
-                                    switch -exact -- $prevstate {
-                                        leading-squote-space {
-                                            error "---- 4 squotes from leading-squote-space - shouldn't get here"
-                                            #we should have emitted the triple and left the last for next loop
-                                        }
-                                        trailing-squote-space {
-                                            tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 4}]
-                                            #todo integrate left squote with nest data at this level
-                                            set lastpart [lindex $v($parentlevel) end]
-                                            switch -- [lindex $lastpart 0] {
-                                                LITERALPART {
-                                                    set newval "[lindex $lastpart 1]'"
-                                                    set parentdata $v($parentlevel)
-                                                    lset parentdata end [list LITERALPART $newval]
-                                                    set v($parentlevel) $parentdata
-                                                }
-                                                NEWLINE {
-                                                    lappend v($parentlevel) [list LITERALPART "'"]
-                                                }
-                                                default {
-                                                    error "--- don't know how to integrate extra trailing squote with data $v($parentlevel)"
-                                                }
-                                            }
-                                        }
-                                        default {
-                                            error "--- unexpected popped due to squote_seq but came from state '$prevstate' should have been leading-squote-space or trailing-squote-space"
-                                        }
-                                    }
-                                }
-                                ''''' {
-                                    switch -exact -- $prevstate {
-                                        leading-squote-space {
-                                            error "---- 5 squotes from leading-squote-space - shouldn't get here"
-                                            #we should have emitted the triple and left the following squotes for next loop
-                                        }
-                                        trailing-squote-space {
-                                            tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i-5}]
-                                            #todo integrate left 2 squotes with nest data at this level
-                                            set lastpart [lindex $v($parentlevel) end]
-                                            switch -- [lindex $lastpart 0] {
-                                                LITERALPART {
-                                                    set newval "[lindex $lastpart 1]''"
-                                                    set parentdata $v($parentlevel)
-                                                    lset parentdata end [list LITERALPART $newval]
-                                                    set v($parentlevel) $parentdata
-                                                }
-                                                NEWLINE {
-                                                    lappend v($parentlevel) [LITERALPART "''"]
-                                                }
-                                                default {
-                                                    error "--- don't know how to integrate extra trailing 2 squotes with data $v($parentlevel)"
-                                                }
-                                            }
-                                        }
-                                        default {
-                                            error "--- unexpected popped due to squote_seq but came from state '$prevstate' should have been leading-squote-space or trailing-squote-space"
-                                        }
-                                    }
-                                }
-                            }
-                            puts stderr "tomlish::decode::toml ---- HERE squote_seq pop <$tok>"
-                        }
-                        triple_squote {
-                            #presumably popping multiliteral-space
-                            ::tomlish::log::debug "---- triple_squote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTILITERAL {
-                                        lappend merged $part
-                                    }
-                                    LITERALPART {
-                                        if {$lasttype eq "LITERALPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_squote unhandled part type [lindex $part 0] unable to merge leveldata: $v($next)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        equal {
-                            #pop caused by =
-                            switch -exact -- $prevstate {
-                                dottedkey-space {
-                                    tomlish::log::debug "---- equal ending dottedkey-space for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                                dottedkey-space-tail {
-                                    #experiment?
-                                    tomlish::log::debug "---- equal ending dottedkey-space-tail for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                            }
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        tablename {
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablename pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        tablearrayname {
-                            #!review - tablearrayname different to tablename regarding push/pop?
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablearrayname pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        endarray {
-                            #nothing to do here.
-                        }
-                        comma {
-                            #comma for inline table will pop the keyvalue space
-                            lappend v($nest) "SEP"
-                        }
-                        endinlinetable {
-                            ::tomlish::log::debug "---- endinlinetable for last_space_action pop"
-                        }
-                        endmultiquote {
-                            ::tomlish::log::debug "---- endmultiquote for last_space_action 'pop'"
-                        }
-                        default {
-                            error "---- unexpected tokenType '$tokenType' for last_space_action 'pop'"
-                        }
-                    }
-                    if {$do_append_to_parent} {
-                        #e.g squote_seq does it's own appends as necessary - so won't get here
-                        lappend v($parentlevel) [set v($nest)]
-                    }
-
-                    incr nest -1
-
-                }	elseif {$last_space_action eq "push"} {
-                    set prevnest $nest
-                    incr nest 1
-                    set v($nest) [list]
-                    # push_trigger_tokens: barekey dquotedkey startinlinetable startarray tablename tablearrayname
-
-
-                    switch -exact -- $tokenType {
-                        squote_seq_begin {
-                            ####
-                            if {[dict exists $transition_info starttok] && [dict get $transition_info starttok] ne ""} {
-                                lassign [dict get $transition_info starttok] starttok_type starttok_val
-                                set next_tokenType_known 1
-                                ::tomlish::parse::set_tokenType $starttok_type
-                                set tok $starttok_val
-                            }
-                        }
-                        squotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        dquotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        XXXdquotedkey - XXXitablequotedkey {
-                            #todo
-                            set v($nest) [list DQKEY $tok] ;#$tok is the keyname
-                        }
-                        barekey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            set waiting [tomlish::parse::get_token_waiting]
-                            if {[llength $waiting]} {
-                                set i [dict get $waiting startindex]
-                                tomlish::parse::clear_token_waiting
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            } else {
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            }
-                        }
-                        startsquote {
-                            #JMN
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "squotedkey"
-                            set tok ""
-                        }
-                        tablename {
-                            #note: we do not use the output of tomlish::tablename_trim to produce a tablename for storage in the tomlish list!
-                            #The tomlish list is intended to preserve all whitespace (and comments) - so a roundtrip from toml file to tomlish
-                            # back to toml file will be identical.
-                            #It is up to the datastructure stage to normalize and interpret tomlish for programmatic access.
-                            # we call tablename_trim here only to to validate that the tablename data is well-formed at the outermost level,
-                            # so we can raise an error at this point rather than create a tomlish list with obviously invalid table names.
-
-                            #todo - review!  It's arguable that we should not do any validation here, and just store even incorrect raw tablenames,
-                            # so that the tomlish list is more useful for say a toml editor. Consider adding an 'err' tag to the appropriate place in the
-                            # tomlish list?
-
-                            set test_only [::tomlish::utils::tablename_trim $tok]
-                            ::tomlish::log::debug "---- trimmed (but not normalized) tablename: '$test_only'"
-                            set v($nest) [list TABLE $tok] ;#$tok is the *raw* table name
-                            #note also that equivalent tablenames may have different toml representations even after being trimmed!
-                            #e.g ["x\t\t"]  & ["x		"]  (tab escapes vs literals)
-                            #These will show as above in the tomlish list, but should normalize to the same tablename when used as keys by the datastructure stage.
-                        }
-                        tablearrayname {
-                            set test_only [::tomlish::utils::tablename_trim $tok]
-                            puts stdout "trimmed (but not normalized) tablearrayname: '$test_only'"
-                            set v($nest) [list TABLEARRAY $tok] ;#$tok is the *raw* tablearray name
-                        }
-                        startarray {
-                            set v($nest) [list ARRAY] ;#$tok is just the opening bracket - don't output.
-                        }
-                        startinlinetable {
-                            set v($nest) [list ITABLE] ;#$tok is just the opening curly brace - don't output.
-                        }
-                        startmultiquote {
-                            ::tomlish::log::debug "---- push trigger tokenType startmultiquote"
-                            set v($nest) [list MULTISTRING] ;#container for STRINGPART, WS, CONT, NEWLINE
-                        }
-                        triple_squote {
-                            ::tomlish::log::debug "---- push trigger tokenType triple_squote"
-                            set v($nest) [list MULTILITERAL] ;#container for NEWLINE,LITERAL
-                        }
-                        default {
-                            error "---- push trigger tokenType '$tokenType' not yet implemented"
-                        }
-                    }
-
-                } else {
-                    #no space level change
-                    switch -exact -- $tokenType {
-                        squotedkey {
-                            puts "---- squotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list SQKEY $tok]
-                        }
-                        dquotedkey {
-                            puts "---- dquotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list DQKEY $tok]
-                        }
-                        barekey {
-                            lappend v($nest) [list KEY $tok]
-                        }
-                        dotsep {
-                            lappend v($nest) [list DOTSEP]
-                        }
-                        starttablename {
-                            #$tok is triggered by the opening bracket and sends nothing to output
-                        }
-                        starttablearrayname {
-                            #$tok is triggered by the double opening brackets and sends nothing to output
-                        }
-                        tablename - tablenamearray {
-                            error "---- did not expect 'tablename/tablearrayname' without space level change (no space level change)"
-                            #set v($nest) [list TABLE $tok]
-                        }
-                        endtablename - endtablearrayname {
-                            #no output into the tomlish list for this token
-                        }
-                        startinlinetable {
-                            puts stderr "---- decode::toml error. did not expect startinlinetable without space level change (no space level change)"
-                        }
-                        startquote {
-                            switch -exact -- $newstate {
-                                string-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "string"
-                                    set tok ""
-                                }
-                                quoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "dquotedkey"
-                                    set tok ""
-                                }
-                                XXXitable-quoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "itablequotedkey"
-                                    set tok ""
-                                }
-                                default {
-                                    error "----  startquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        startsquote {
-                            switch -exact -- $newstate {
-                                literal-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "literal"
-                                    set tok ""
-                                }
-                                squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "squotedkey"
-                                    set tok ""
-                                }
-                                XXXitable-squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "itablesquotedkey"
-                                    set tok ""
-                                }
-                                multiliteral-space {
-                                    #false alarm squote returned from squote_seq pop
-                                    ::tomlish::log::debug "---- adding lone squote to own LITERALPART nextstate: $newstate (no space level change)"
-                                    #(single squote - not terminating space)
-                                    lappend v($nest) [list LITERALPART ']
-                                    #may need to be joined on pop if there are neighbouring LITERALPARTs
-                                }
-                                default {
-                                    error "---- startsquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        startmultiquote {
-                            #review
-                            puts stderr "---- got startmultiquote in state $prevstate (no space level change)"
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "stringpart"
-                            set tok ""
-                        }
-                        endquote {
-                            #nothing to do?
-                            set tok ""
-                        }
-                        endsquote {
-                            set tok ""
-                        }
-                        endmultiquote {
-                            #JMN!!
-                            set tok ""
-                        }
-                        string {
-                            lappend v($nest) [list STRING $tok] ;#directly wrapped in dquotes
-                        }
-                        literal {
-                            lappend v($nest) [list LITERAL $tok] ;#directly wrapped in squotes
-                        }
-                        double_squote {
-                            switch -exact -- $prevstate {
-                                keyval-value-expected {
-                                    lappend v($nest) [list LITERAL ""]
-                                }
-                                multiliteral-space {
-                                    #multiliteral-space to multiliteral-space
-                                    lappend v($nest) [list LITERALPART '']
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-                        }
-                        multistring {
-                            #review
-                            lappend v($nest) [list MULTISTRING $tok]
-                        }
-                        stringpart {
-                            lappend v($nest) [list STRINGPART $tok] ;#will not get wrapped in dquotes directly
-                        }
-                        multiliteral {
-                            lappend v($nest) [LIST MULTILITERAL $tok]
-                        }
-                        literalpart {
-                            lappend v($nest) [list LITERALPART $tok] ;#will not get wrapped in squotes directly
-                        }
-                        itablequotedkey {
-
-                        }
-                        untyped_value {
-                            #we can't determine the type of unquoted values (int,float,datetime,bool) until the entire token was read.
-                            if {$tok in {true false}} {
-                                set tag BOOL
-                            } elseif {[::tomlish::utils::is_int $tok]} {
-                                set tag INT
-                            } elseif {[::tomlish::utils::is_float $tok]} {
-                                set tag FLOAT
-                            } elseif {[::tomlish::utils::is_datetime $tok]} {
-                                set tag DATETIME
-                            } else {
-                                error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. [tomlish::parse::report_line] (no space level change)"
-                            }
-                            lappend v($nest) [list $tag $tok]
-
-                        }
-                        comment {
-                            #puts stdout "----- comment token returned '$tok'------"
-                            lappend v($nest) [list COMMENT "$tok"]
-                        }
-                        equal {
-                            #we append '=' to the nest so that any surrounding whitespace is retained.
-                            lappend v($nest)  =
-                        }
-                        comma {
-                            lappend v($nest) SEP
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        whitespace {
-                            lappend v($nest) [list WS $tok]
-                        }
-                        continuation {
-                            lappend v($nest) CONT
-                        }
-                        bom {
-                            lappend v($nest) BOM
-                        }
-                        eof {
-                            #ok - nothing more to add to the tomlish list.
-                            #!todo - check previous tokens are complete/valid?
-                        }
-                        default {
-                            error "--- unknown tokenType '$tokenType' during state $prevstate [::tomlish::parse::report_line] (no space level change)"
-                        }
-                    }
-                }
-
-                if {!$next_tokenType_known} {
-                    ::tomlish::log::notice "---- tomlish::decode::toml - current tokenType:$tokenType Next token type not known"
-                    ::tomlish::parse::set_tokenType ""
-                    set tok ""
-                }
-
-                if {$state eq "end-state"} {
-                    break
-                }
-
-
-            }
-
-            #while {$nest > 0} {
-            #	lappend v([expr {$nest -1}]) [set v($nest)]
-            #	incr nest -1
-            #}
-            while {[::tomlish::parse::spacestack size] > 1} {
-                ::tomlish::parse::spacestack pop
-                lappend v([expr {$nest -1}]) [set v($nest)]
-                incr nest -1
-
-                #set parent [spacestack peek] ;#the level being appended to
-                #lassign $parent type state
-                #if {$type eq "space"} {
-                #
-                #} elseif {$type eq "buffer"} {
-                #	lappend v([expr {$nest -1}]) {*}[set v($nest)]
-                #} else {
-                #	error "invalid spacestack item: $parent"
-                #}
-            }
-
-        } finally {
-            set is_parsing 0
-        }
-        return $v(0)
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::decode ---}]
-}
-#decode toml to tomlish
-interp alias {} tomlish::from_toml {} tomlish::decode::toml
-
-namespace eval tomlish::utils {
-    #*** !doctools
-    #[subsection {Namespace tomlish::utils}]
-    #[para]
-    #[list_begin definitions]
-
-
-    #tablenames (& tablearraynames) may contain irrelevant leading, trailing and interspersed whitespace
-    # tablenames can be made up of segments delimited by dots. .eg   [ a.b . c ]
-    #trimmed, the tablename becomes  {a.b.c}
-    # A segment may contain whitespace if it is quoted  e.g [a . b . "c etc "    ]
-    #ie whitespace is only irrelevant if it's outside a quoted segment
-    #trimmed, the tablename becomes {a.b."c etc "}
-    proc tablename_trim {tablename} {
-        set segments [tablename_split $tablename false]
-        set trimmed_segments [list]
-        foreach seg $segments {
-            lappend trimmed_segments [::string trim $seg " \t"]
-        }
-        return [join $trimmed_segments .]
-    }
-
-    #basic generic quote matching for single and double quotes
-    #note for example that {[o'malley]} will return sq - as the single quote is not closed or wrapped in double quotes
-    proc tok_in_quotedpart {tok} {
-        set sLen [tcl::string::length $tok]
-        set quote_type ""
-        set had_slash 0
-        for {set i 0} {$i < $sLen} {incr i} {
-            set c [tcl::string::index $tok $i]
-            if {$quote_type eq ""} {
-                if {$had_slash} {
-                    #don't enter quote mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            set quote_type dq
-                        }
-                        sq {
-                            set quote_type sq
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            } else {
-                if {$had_slash} {
-                    #don't leave quoted mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            if {$quote_type eq "dq"} {
-                                set quote_type ""
-                            }
-                        }
-                        sq {
-                            if {$quote_type eq "sq"} {
-                                set quote_type ""
-                            }
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            }
-        }
-        return $quote_type ;#dq | sq
-    }
-
-    #utils::tablename_split
-    proc tablename_split {tablename {normalize false}} {
-        #we can't just split on . because we have to handle quoted segments which may contain a dot.
-        #eg {dog."tater.man"}
-        set sLen [tcl::string::length $tablename]
-        set segments [list]
-        set mode "unknown"  ;#5 modes: unknown, quoted,litquoted, unquoted, syntax
-        #quoted is for double-quotes,  litquoted is for single-quotes (string literal)
-        set seg ""
-        for {set i 0} {$i < $sLen} {incr i} {
-
-            if {$i > 0} {
-                set lastChar [tcl::string::index $tablename [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $tablename $i]
-
-            if {$c eq "."} {
-                switch -exact -- $mode {
-                    unquoted {
-                        #dot marks end of segment.
-                        lappend segments $seg
-                        set seg ""
-                        set mode "unknown"
-                    }
-                    quoted {
-                        append seg $c
-                    }
-                    unknown {
-                        lappend segments $seg
-                        set seg ""
-                    }
-                    litquoted {
-                        append seg $c
-                    }
-                    default {
-                        #mode: syntax
-                        #we got our dot. - the syntax mode is now satisfied.
-                        set mode "unknown"
-                    }
-                }
-            } elseif {($c eq "\"") && ($lastChar ne "\\")} {
-                if {$mode eq "unknown"} {
-                    if {[tcl::string::trim $seg] ne ""} {
-                        #we don't allow a quote in the middle of a bare key
-                        error "tablename_split. character '\"' invalid at this point in tablename. tablename: '$tablename'"
-                    }
-                    set mode "quoted"
-                    set seg "\""
-                } elseif {$mode eq "unquoted"} {
-                    append seg $c
-                } elseif {$mode eq "quoted"} {
-                    append seg $c
-
-                    if {$normalize} {
-                        lappend segments [::tomlish::utils::unescape_string [tcl::string::range $seg 1 end-1]]
-                    } else {
-                        lappend segments $seg
-                    }
-
-                    set seg ""
-                    set mode "syntax" ;#make sure we only accept a dot or end-of-data now.
-                } elseif {$mode eq "litquoted"} {
-                    append seg $c
-                } elseif {$mode eq "syntax"} {
-                    error "tablename_split. expected whitespace or dot, got double quote. tablename: '$tablename'"
-                }
-            } elseif {($c eq "\'")} {
-                if {$mode eq "unknown"} {
-                    append seg $c
-                    set mode "litquoted"
-                } elseif {$mode eq "unquoted"} {
-                    #single quote inside e.g o'neill
-                    append seg $c
-                } elseif {$mode eq "quoted"} {
-                    append seg $c
-
-                } elseif {$mode eq "litquoted"} {
-                    append seg $c
-                    #no normalization to do
-                    lappend segments $seg
-                    set seg ""
-                    set mode "syntax"
-                } elseif {$mode eq "syntax"} {
-                    error "tablename_split. expected whitespace or dot, got single quote. tablename: '$tablename'"
-                }
-
-            } elseif {$c in [list " " \t]} {
-                if {$mode eq "syntax"} {
-                    #ignore
-                } else {
-                    append seg $c
-                }
-            } else {
-                if {$mode eq "syntax"} {
-                    error "tablename_split. Expected a dot separator. got '$c'. tablename: '$tablename'"
-                }
-                if {$mode eq "unknown"} {
-                    set mode "unquoted"
-                }
-                append seg $c
-            }
-            if {$i == $sLen-1} {
-                #end of data
-                ::tomlish::log::debug "End of data: mode='$mode'"
-                #REVIEW - we can only end up in unquoted or syntax here? are other branches reachable?
-                switch -exact -- $mode {
-                    quoted {
-                        if {$c ne "\""} {
-                            error "tablename_split. missing closing double-quote in a segment. tablename: '$tablename'"
-                        }
-                        if {$normalize} {
-                            lappend segments [::tomlish::utils::unescape_string [tcl::string::range $seg 1 end-1]]
-                            #lappend segments [subst -nocommands -novariables [::string range $seg 1 end-1]] ;#wrong
-                        } else {
-                            lappend segments $seg
-                        }
-                    }
-                    litquoted {
-                        set trimmed_seg [tcl::string::trim $seg]
-                        if {[tcl::string::index $trimmed_seg end] ne "\'"} {
-                            error "tablename_split. missing closing single-quote in a segment. tablename: '$tablename'"
-                        }
-                        lappend segments $seg
-                    }
-                    unquoted - unknown {
-                        lappend segments $seg
-                    }
-                    syntax {
-                        #ok - segment already lappended
-                    }
-                    default {
-                        lappend segments $seg
-                    }
-                }
-            }
-        }
-        foreach seg $segments {
-            set trimmed [tcl::string::trim $seg " \t"]
-            #note - we explicitly allow 'empty' quoted strings  '' & ""
-            # (these are 'discouraged' but valid toml keys)
-            #if {$trimmed in [list "''" "\"\""]} {
-            #	puts stderr "tablename_split. warning - Empty quoted string as tablename segment"
-            #}
-            if {$trimmed eq "" } {
-                error "tablename_split. Empty segment found. tablename: '$tablename' segments [llength $segments] ($segments)"
-            }
-        }
-        return $segments
-    }
-
-    proc unicode_escape_info {slashu} {
-            #!todo
-            # validate that slashu is either a \uxxxx or \Uxxxxxxxx value of the correct length and
-            # is a valid 'unicode scalar value' (any Unicode code point except high-surrogate and low-surrogate code points)
-            # ie integers in the range 0 to D7FF16 and E00016 to 10FFFF16 inclusive
-            #expr {(($x >= 0) && ($x <= 0xD7FF16)) || (($x >= 0xE00016) && ($x <= 0x10FFFF16))}
-            if {[tcl::string::match {\\u*} $slashu]} {
-                set exp {^\\u([0-9a-fA-F]{4}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %4x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\uHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } elseif {[tcl::string::match {\\U*} $slashu]} {
-                set exp {^\\U([0-9a-fA-F]{8}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %8x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        if {(($dec >= 0) && ($dec <= 0xD7FF16)) || (($dec >= 0xE00016) && ($dec <= 0x10FFFF16))} {
-                            return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                        } else {
-                            return [list err [list reason "$slashu is not within the 'unicode scalar value' ranges 0 to 0xD7FF16 or 0xE00016 to 0x10FFFF16"]]
-                        }
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\UHHHHHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } else {
-                return [list err [list reason "Supplied string did not start with \\u or \\U" ]]
-            }
-
-    }
-
-    #Note that unicode characters don't *have* to be escaped.
-    #So if we provide a function named 'escape_string', the name implies the inverse of unescape_string which unescapes unicode \u \U values.
-    #- an inverse of unescape_string would encode all unicode chars unnecessarily.
-    #- as toml accepts a compact escape sequence for common chars such as tab,backspace,linefeed etc  but also allows the full form \u009 etc
-    #- escape_string and unescape_string would not be reliably roundtrippable inverses anyway.
-    #REVIEW - provide it anyway? When would it be desirable to use?
-
-    variable Bstring_control_map [list\
-        \b      {\b}\
-        \n      {\n}\
-        \r      {\r}\
-        \"      {\"}\
-        \x1b    {\e}\
-        \\      "\\\\"\
-    ]
-    #\e for \x1b seems like it might be included - v1.1?? hard to find current state of where toml is going :/
-    #for a Bstring (Basic string) tab is explicitly mentioned as not being one that must be escaped.
-    for {set cdec 0} {$cdec <= 8} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        lappend Bstring_control_map [format %c $cdec] \\u$hhhh
-    }
-    for {set cdec [expr {0x0A}]} {$cdec <= 0x1F} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        lappend Bstring_control_map [format %c $cdec] \\u$hhhh
-    }
-    # \u007F = 127
-    lappend Bstring_control_map [format %c 127] \\u007F
-
-    #Note the inclusion of backslash in the list of controls makes this non idempotent - subsequent runs would keep encoding the backslashes!
-    #escape only those chars that must be escaped in a Bstring (e.g not tab which can be literal or escaped)
-    #for example - can be used by from_dict to produce valid Bstring data for a tomlish record
-    proc rawstring_to_Bstring_with_escaped_controls {str} {
-        #for the well known chars that have compact escape sequences allowed by toml - we choose that form over the full \u form.
-        #we'll use a string map with an explicit list rather than algorithmic at runtime
-        # - the string map is probably more performant than splitting a string, especially if it's large
-        variable Bstring_control_map
-        return [string map $Bstring_control_map $str]
-    }
-
-    #review - unescape what string? Bstring vs MLBstring?
-    #we should be specific in the function naming here
-    #used by to_dict - so part of validation? - REVIEW
-    proc unescape_string {str} {
-        #note we can't just use Tcl subst because:
-        # it also transforms \a (audible bell) and \v (vertical tab) which are not in the toml spec.
-        # it would strip out backslashes inappropriately: e.g "\j" becomes just j
-        # it recognizes other escapes which aren't approprite  e.g \xhh and octal \nnn
-        # it replaces \<newline><whitespace> with a single whitespace   (trailing backslash)
-        #This means we shouldn't use 'subst' on the whole string, but instead substitute only the toml-specified escapes (\r \n \b \t \f \\ \" \uhhhh & \Uhhhhhhhh
-
-        set buffer ""
-        set buffer4 ""  ;#buffer for 4 hex characters following a \u
-        set buffer8 ""  ;#buffer for 8 hex characters following a \u
-
-        set sLen [tcl::string::length $str]
-
-        #we need to handle arbitrarily long sequences of backslashes.  \\\\\ etc
-        set slash_active 0
-        set unicode4_active 0
-        set unicode8_active 0
-
-        ::tomlish::log::debug "unescape_string. got len [string length str] str $str"
-
-        #!todo - check for invalid data in the form of a raw carriage return (decimal 13) without following linefeed?
-        set i 0
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $str [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $str $i]
-            #::tomlish::log::debug "unescape_string. got char $c" ;#too much?
-
-            #----------------------
-            #as we are 'unescaping' - should we really be testing for existing values that should have been escaped?
-            #this test looks incomplete anyway REVIEW
-            scan $c %c n
-            if {($n <= 31) && ($n != 9) && ($n != 10) && ($n != 13)} {
-                #we don't expect unescaped unicode characters from 0000 to 001F -
-                #*except* for raw tab (which is whitespace) and newlines
-                error "unescape_string. Invalid data for a toml string. Unescaped control character (decimal $n) [::tomlish::utils::string_to_slashu $c]"
-            }
-            #----------------------
-
-            incr i ;#must incr here because we do'returns'inside the loop
-            if {$c eq "\\"} {
-                if {$slash_active} {
-                    append buffer "\\"
-                    set slash_active 0
-                } elseif {$unicode4_active} {
-                    error "unescape_string. unexpected case slash during unicode4 not yet handled"
-                } elseif {$unicode8_active} {
-                    error "unescape_string. unexpected case slash during unicode8 not yet handled"
-                } else {
-                    # don't output anything (yet)
-                    set slash_active 1
-                }
-            } else {
-                if {$unicode4_active} {
-                    if {[tcl::string::length $buffer4] < 4} {
-                        append buffer4 $c
-                    }
-                    if {[tcl::string::length $buffer4] == 4} {
-                        #we have a \uHHHH to test
-                        set unicode4_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\u$buffer4"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$unicode8_active} {
-                    if {[tcl::string::length $buffer8] < 8} {
-                        append buffer8 $c
-                    }
-                    if {[tcl::string::length $buffer8] == 8} {
-                        #we have a \UHHHHHHHH to test
-                        set unicode8_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\U$buffer8"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$slash_active} {
-                    set slash_active 0
-                    set ctest [tcl::string::map {{"} dq} $c]
-                    switch -exact -- $ctest {
-                        dq {
-                            set e "\\\""
-                            append buffer [subst -nocommand -novariable $e]
-                        }
-                        b - t - n - f - r {
-                            set e "\\$c"
-                            append buffer [subst -nocommand -novariable $e]
-                        }
-                        u {
-                            set unicode4_active 1
-                            set buffer4 ""
-                        }
-                        U {
-                            set unicode8_active 1
-                            set buffer8 ""
-                        }
-                        default {
-                            set slash_active 0
-                            #review - toml spec says all other escapes are reserved
-                            #and if they are used TOML should produce an error.
-                            #we leave detecting this for caller for now - REVIEW
-                            append buffer "\\"
-                            append buffer $c
-                        }
-                    }
-                } else {
-                    append buffer $c
-                }
-            }
-        }
-        #puts stdout "EOF 4:$unicode4_active 8:$unicode8_active slash:$slash_active"
-        if {$unicode4_active} {
-            error "End of string reached before complete unicode escape sequence \uHHHH"
-        }
-        if {$unicode8_active} {
-            error "End of string reached before complete unicode escape sequence \UHHHHHHHH"
-        }
-        if {$slash_active} {
-            append buffer "\\"
-        }
-        return $buffer
-    }
-
-    #This does not have to do with unicode normal forms - which it seems toml has decided against regarding use in keys (review/references?)
-    #This is meant for internal use regarding ensuring we match equivalent keys which may have just been specified with different string mechanisms,
-    #e.g squoted vs dquoted vs barekey.
-    proc normalize_key {rawkey} {
-        set c1 [tcl::string::index $rawkey 0]
-        set c2 [tcl::string::index $rawkey end]
-        if {($c1 eq "'") && ($c2 eq "'")} {
-            #single quoted segment. No escapes allowed within it.
-            set key [tcl::string::range $rawkey 1 end-1]
-        } elseif {($c1 eq "\"") && ($c2 eq "\"")} {
-            #double quoted segment. Apply escapes.
-            #
-            set keydata [tcl::string::range $rawkey 1 end-1] ;#strip outer quotes only
-            #e.g key could have mix of \UXXXXXXXX escapes and unicode chars
-            #or mix of \t and literal tabs.
-            #unescape to convert all to literal versions for comparison
-            set key [::tomlish::utils::unescape_string $keydata]
-            #set key [subst -nocommands -novariables $keydata] ;#wrong. Todo - create a string escape substitution function.
-        } else {
-            set key $rawkey
-        }
-        return $key
-    }
-
-    proc string_to_slashu {string} {
-        set rv {}
-        foreach c [split $string {}] {
-            scan $c %c cdec
-            if {$cdec > 65535} {
-                append rv {\U} [format %.8X $cdec]
-            } else {
-                append rv {\u} [format %.4X $cdec]
-            }
-        }
-        return $rv
-    }
-
-    #'nonprintable' is conservative here because some systems (e.g windows console) are very limited in what they can display.
-    #This is used for display purposes only (error msgs)
-    proc nonprintable_to_slashu {s} {
-        set res ""
-        foreach i [split $s ""] {
-            scan $i %c cdec
-
-            set printable 0
-            if {($cdec>31) && ($cdec<127)} {
-                set printable 1
-            }
-            if {$printable} {
-                append res $i
-            } else {
-                if {$cdec > 65535} {
-                    append res \\U[format %.8X $cdec]
-                } else {
-                    append res \\u[format %.4X $cdec]
-                }
-            }
-        }
-        set res
-    } ;# initial version from tcl wiki RS
-
-    #check if str is valid for use as a toml bare key
-    #Early toml versions? only allowed letters + underscore + dash
-    proc is_barekey1 {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        } else {
-            set matches [regexp -all {[a-zA-Z0-9\_\-]} $str]
-            if {[tcl::string::length $str] == $matches} {
-                #all characters match the regexp
-                return 1
-            } else {
-                return 0
-            }
-        }
-    }
-
-    #from toml.abnf in github.com/toml-lang/toml
-    #unquoted-key = 1*unquoted-key-char
-    #unquoted-key-char = ALPHA / DIGIT / %x2D / %x5F         ; a-z A-Z 0-9 - _
-    #unquoted-key-char =/ %xB2 / %xB3 / %xB9 / %xBC-BE       ; superscript digits, fractions
-    #unquoted-key-char =/ %xC0-D6 / %xD8-F6 / %xF8-37D       ; non-symbol chars in Latin block
-    #unquoted-key-char =/ %x37F-1FFF                         ; exclude GREEK QUESTION MARK, which is basically a semi-colon
-    #unquoted-key-char =/ %x200C-200D / %x203F-2040          ; from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    #unquoted-key-char =/ %x2070-218F / %x2460-24FF          ; include super-/subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    #unquoted-key-char =/ %x2C00-2FEF / %x3001-D7FF          ; skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    #unquoted-key-char =/ %x2070-21FF / %x2300-24FF          ; skip math operators
-    #unquoted-key-char =/ %x25A0-268B / %x2690-2757          ; skip box drawing, block elements, and some yin-yang symbols
-    #unquoted-key-char =/ %x2762-2767 / %x2776-27E5          ; skip some Dingbat punctuation
-    #unquoted-key-char =/ %x2801-297F                        ; skip some math brackets and arrows, and braille blank
-    #unquoted-key-char =/ %x2B00-2FFF / %x3001-D7FF          ; skip various math operators and symbols, and ideographic space
-    #unquoted-key-char =/ %xF900-FDCF / %xFDF0-FFFD          ; skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    #unquoted-key-char =/ %x10000-EFFFF                      ; all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    variable re_barekey
-    set ranges [list]
-    lappend ranges {a-zA-Z0-9\_\-}
-    lappend ranges {\u00B2} {\u00B3} {\u00B9} {\u00BC-\u00BE}       ;# superscript digits, fractions
-    lappend ranges {\u00C0-\u00D6} {\u00D8-\u00F6} {\u00F8-\u037D}  ;# non-symbol chars in Latin block
-    lappend ranges {\u037f-\u1FFF}                                  ;# exclude GREEK QUESTION MARK, which is basically a semi-colon
-    lappend ranges {\u200C-\u200D} {\u203F-\u2040}                  ;# from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    lappend ranges {\u2070-\u218f} {\u2460-\u24FF}                  ;# include super-subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    lappend ranges {\u2C00-\u2FEF} {\u3001-\uD7FF}                  ;# skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    lappend ranges {\u2070-\u21FF} {\u2300-\u24FF}                  ;# skip math operators
-    lappend ranges {\u25A0-\u268B} {\u2690-\u2757}                  ;# skip box drawing, block elements, and some yin-yang symbols
-    lappend ranges {\u2762-\u2767} {\u2776-\u27E5}                  ;# skip some Dingbat punctuation
-    lappend ranges {\u2801-\u297F}                                  ;# skip some math brackets and arrows, and braille blank
-    lappend ranges {\u2B00-\u2FFF} {\u3001-\uD7FF}                  ;# skip various math operators and symbols, and ideographic space
-    lappend ranges {\uF900-\uFDCF} {\uFDF0-\uFFFD}                  ;# skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    lappend ranges {\U10000-\UEFFFF}                                ;# all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    set re_barekey {^[}
-    foreach r $ranges {
-        append re_barekey $r
-    }
-    append re_barekey {]+$}
-
-    proc is_barekey {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        }
-        variable re_barekey
-        return [regexp $re_barekey $str]
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'integer'.
-    proc int_validchars1 {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_\-\+]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    #add support for hex,octal,binary 0x.. 0o.. 0b...
-    proc int_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_int {str} {
-        set matches [regexp -all {[0-9\_xo\-\+A-Fa-f]} $str]
-
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-
-            # ---------------------------------------
-            #check for leading zeroes in non 0x 0b 0o
-            #first strip any +, -  or _ (just for this test)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            if {([tcl::string::length $check] > 1) && ([tcl::string::index $check 0] eq "0") && ([tcl::string::index $check 1] ni {o x b})} {
-                return 0
-            }
-            # ---------------------------------------
-
-            #check +,- only occur in the first position.
-            if {[tcl::string::last - $str] > 0} {
-                return 0
-            }
-            if {[tcl::string::last + $str] > 0} {
-                return 0
-            }
-            set numeric_value [tcl::string::map {_ ""} $str] ;#allow some earlier tcl versions which don't support underscores
-            #use Tcl's integer check to ensure we don't let things like 3e4 through - which is a float (would need to be 0x3e4 for hex)
-            if {![tcl::string::is integer -strict $numeric_value]} {
-                return 0
-            }
-            #!todo - check bounds only based on some config value
-            #even though Tcl can handle bignums, we won't accept anything outside of toml 1.0 minimum requirements.
-            #presumably very large numbers would have to be supplied in a toml file as strings.
-            #Review - toml 1.0 only says that it must handle up to 2^63 - not that this is a max
-            if {$numeric_value > $::tomlish::max_int} {
-                return 0
-            }
-            if {$numeric_value < $::tomlish::min_int} {
-                return 0
-            }
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'float'.
-    proc float_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[eE0-9\_\-\+\.]} $str] == $numchars} {
-            return 1
-        } else {
-            #only allow lower case for these special values - as per Toml 1.0 spec
-            if {$str ni {inf +inf -inf nan +nan -nan}} {
-                return 0
-            } else {
-                return 1
-            }
-        }
-    }
-
-    proc is_float {str} {
-        set matches [regexp -all {[eE0-9\_\-\+\.]} $str]
-        #don't test for case variations - as Toml doesn't allow (whereas Tcl allows Inf NaN etc)
-        if {$str in {inf +inf -inf nan +nan -nan}} {
-            return 1
-        }
-
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            #A leading zero is ok, but we should disallow multiple leading zeroes (same rules as toml ints)
-            #Toml spec also disallows leading zeros in the exponent part
-            #... but this seems less interoperable (some libraries generate leading zeroes in exponents)
-            #for now we will allow leading zeros in exponents
-            #!todo - configure 'strict' option to disallow?
-            #first strip any +, -  or _ (just for this test)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            set r {([0-9])*}
-            regexp $r $check intpart  ;#intpart holds all numerals before the first .,e or E
-            set z {([0])*}
-            regexp $z $intpart leadingzeros
-            if {[tcl::string::length $leadingzeros] > 1} {
-                return 0
-            }
-            #for floats, +,- may occur in multiple places
-            #e.g -2E-22   +3e34
-            #!todo - check bounds ?
-
-            #strip underscores for tcl double check
-            set check [tcl::string::map {_ ""} $str]
-            #string is double accepts inf nan +NaN etc.
-            if {![tcl::string::is double $check]} {
-                return 0
-            }
-
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'datetime'.
-    proc datetime_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[zZtT0-9\-\+\.:]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    #review - we
-    proc is_datetime {str} {
-        #e.g 1979-05-27
-        #e.g 1979-05-27T00:32:00Z
-        #e.g 1979-05-27 00:32:00-07:00
-        #e.g 1979-05-27 00:32:00+10:00
-        #e.g 1979-05-27 00:32:00.999999-07:00
-
-        #review
-        #minimal datetimes?
-        # 2024 ok - shortest valid 4 digit year?
-        # 02:00 ok
-        # 05-17 ok
-        if {[string length $str] < 4} {
-            return 0
-        }
-
-        set matches [regexp -all {[zZtT0-9\-\+\.:]} $str]
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            #!todo - use full RFC 3339 parser?
-            lassign [split $str T] datepart timepart
-            #!todo - what if the value is 'time only'?
-
-            #Tcl's free-form clock scan (no -format option) is deprecated
-            #
-            #if {[catch {clock scan $datepart} err]} {
-            #    puts stderr "tcl clock scan failed err:'$err'"
-            #    return 0
-            #}
-
-            #!todo - verify time part is reasonable
-        } else {
-            return 0
-        }
-        return 1
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::utils ---}]
-}
-
-namespace eval tomlish::parse {
-    #*** !doctools
-    #[subsection {Namespace tomlish::parse}]
-    #[para]
-    #[list_begin definitions]
-
-    #This is a somewhat curly mix of a statemachine and toml-nesting-stack littered with special cases.
-    #The code is a pig's-nest - but it should be noted that for example trailing single double quotes in multiline strings are perhaps not so trivial to parse using more standard methods either:
-    # - e.g some kind of backtracking required if using an ABNF parser?
-    #I don't know the precise technical name for this sort of parser; probably something like "Dog's Breakfast"
-    #More seriously, we don't have distinct lex/parse steps - so it is basically a 'fused lexer' or 'scannerless parser'
-
-    #It is also desirable for this system to be useful in 'interactive' use. review - would a separate lexer make this easier or harder?
-
-    #A possible alternative more structured approach might be to use a PEG (Parsing Expression Grammar)
-
-
-    variable is_parsing 0  ;#whether we are in the middle of parsing tomlish text
-
-    variable state
-    # states:
-    # table-space, itable-space, array-space
-    # value-expected, keyval-syntax,
-    # quoted-key, squoted-key
-    # string-state, literal-state, multistring...
-    #
-    # notes:
-    # only the -space states are also 'spaces' ie a container which is pushed/popped on the spacestack
-
-    #
-    # value-expected  - we also allow for leading whitespace in this state, but once a value is returned we jump to a state based on the containing space. e.g keyval-tail or array-syntax
-    #
-    #stateMatrix defines for each state, actions to take for each possible token.
-    #single-element actions are the name of the next state into which to transition, or a 'POPSPACE' instruction to pop a level off the spacestack and add the data to the parent container.
-    #dual-element actions are a push instruction and the name of the space to push on the stack.
-    # - PUSHSPACE is a simple push onto the spacestack, zeropoppushspace also pushes, but will first do a pop *if* the current space level is greater than zero (ie if only if not already in root table-space)
-
-    # -- --- --- --- --- ---
-    #token/state naming guide
-    # -- --- --- --- --- ---
-    #tokens        :  underscore separated or bare name e.g newline,  start_quote, start_squote
-    #private tokens:  always have a leading underscore (These are private 'temporary state' tokens that are never returned as actual tokens e.g _start_squote_sequence
-    #states        :  always contain at least one dash e.g err-state, table-space
-    #instructions
-    # -- --- --- --- --- ---
-
-
-    #stateMatrix dict of elements mapping current state to next state based on returned tokens
-    # current-state {token-encountered next-state ... }
-    # where next-state can be a 1 or 2 element list.
-    #If 2 element - the first item is an instruction (ucase)
-    #If 1 element - it is either a lowercase dashed state name or an ucase instruction
-    #e.g {PUSHSPACE <state-space>} or POPSPACE or SAMESPACE
-
-
-    #SAMESPACE - got to same space as parent without popping a level, but has it's own autotransition lookup -  strange concept - review usecases
-
-    variable stateMatrix
-    set stateMatrix [dict create]
-
-    #xxx-space vs xxx-syntax inadequately documented - TODO
-
-    # --------------------------------------------------------------------------------------------------------------#
-    #  incomplete example of some state starting at table-space
-    # --------------------------------------------------------------------------------------------------------------#
-    #                                                      ( = -> value-expected)
-    #                                       keyval-syntax                         (popped -> keyval-space -> keyval-tail) (autotransition on pop)
-    #                keyval-space (autotransition on push ^)
-    # table-space (barekey^) (startdquote -> dquoted-key ^)
-    # --------------------------------------------------------------------------------------------------------------#
-
-    dict set stateMatrix\
-        table-space       {
-            bom                 "table-space"\
-            whitespace          "table-space"\
-            newline             "table-space"\
-            barekey             {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            squotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax" note ""}\
-            dquotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            XXXstartquote          "quoted-key"\
-            XXXstartsquote         "squoted-key"\
-            comment             "table-space"\
-            starttablename      "tablename-state"\
-            starttablearrayname "tablearrayname-state"\
-            startmultiquote     "err-state"\
-            endquote            "err-state"\
-            comma               "err-state"\
-            eof                 "end-state"\
-            equal               "err-state"\
-            cr                  "err-lonecr"\
-        }
-
-    #itable-space/ curly-syntax : itables
-    dict set stateMatrix\
-        itable-space {\
-            whitespace          "itable-space"\
-            newline             "itable-space"\
-            barekey             {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            squotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            dquotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            endinlinetable      "POPSPACE"\
-            XXXstartquote          "quoted-key"\
-            XXXstartsquote         {TOSTATE "squoted-key"  comment "jn-testing"}\
-            comma               "err-state"\
-            comment             "itable-space"\
-            eof                 "err-state"\
-        }
-        #squote_seq_begin    {PUSHSPACE  "leading-squote-space"  returnstate itable-space starttok {squote_seq "'"}}
-
-
-    dict set stateMatrix\
-        keyval-space    {\
-            whitespace          "keyval-syntax"\
-            equal               "keyval-value-expected"\
-        }
-
-    # '  =   ' portion of keyval
-    dict set stateMatrix\
-        keyval-syntax   {\
-            whitespace          "keyval-syntax"\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE "dottedkey-space"}\
-            equal               "keyval-value-expected"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    ####
-    dict set stateMatrix\
-        keyval-value-expected {\
-            whitespace          "keyval-value-expected"\
-            untyped_value       {TOSTATE    "keyval-tail"      note ""}\
-            squote_seq_begin    {PUSHSPACE  "leading-squote-space"  returnstate keyval-value-expected starttok {squote_seq "'"}}\
-            startquote          {TOSTATE    "string-state"          returnstate keyval-tail}\
-            startmultiquote     {PUSHSPACE  "multistring-space"     returnstate keyval-tail}\
-            startsquote         {TOSTATE    "literal-state"         returnstate keyval-tail note "usual way a literal is triggered"}\
-            double_squote       {TOSTATE    "keyval-tail"                       note "empty literal received when double squote occurs"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE  itable-space             returnstate keyval-tail}\
-            startarray          {PUSHSPACE  array-space             returnstate keyval-tail}\
-        }
-            #squote_seq_begin    {PUSHSPACE "leading-squote-space" returnstate keyval-process-leading-squotes starttok {squote_seq "'"}}
-    dict set stateMatrix\
-        leading-squote-space  {\
-            squote_seq          "POPSPACE"\
-        }
-    #dict set stateMatrix\
-    #    keyval-process-leading-squotes  {\
-    #        startsquote         "literal-state"\
-    #        triple_squote       {PUSHSPACE "multiliteral-space" returnstate keyval-tail}\
-    #    }
-
-    dict set stateMatrix\
-        keyval-tail     {\
-            whitespace          "keyval-tail"\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-    dict set stateMatrix\
-        itable-keyval-syntax   {\
-            whitespace          "itable-keyval-syntax"\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE "dottedkey-space"}\
-            equal               "itable-keyval-value-expected"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        itable-keyval-value-expected {\
-            whitespace          "itable-keyval-value-expected"\
-            untyped_value       {TOSTATE    "itable-val-tail"                       note ""}\
-            squote_seq_begin    {PUSHSPACE  "leading-squote-space"  returnstate itable-keyval-value-expected starttok {squote_seq "'"}}\
-            startquote          {TOSTATE    "string-state"          returnstate itable-val-tail}\
-            startmultiquote     {PUSHSPACE  "multistring-space"     returnstate itable-val-tail}\
-            startsquote         {TOSTATE    "literal-state"         returnstate itable-val-tail note "usual way a literal is triggered"}\
-            double_squote       {TOSTATE    "itable-val-tail"                       note "empty literal received when double squote occurs"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate itable-val-tail}\
-            startinlinetable    {PUSHSPACE  "itable-space"           returnstate itable-val-tail}\
-            startarray          {PUSHSPACE  "array-space"           returnstate itable-val-tail}\
-        }
-    dict set stateMatrix\
-        itable-keyval-space    {\
-            whitespace          "itable-keyval-syntax"\
-            equal               {TOSTATE "itable-keyval-value-expected" note "required"}\
-        }
-
-    dict set stateMatrix\
-        itable-val-tail         {\
-            whitespace          "itable-val-tail"\
-            endinlinetable      "POPSPACE"\
-            comma               "POPSPACE"\
-            XXXnewline             {TOSTATE "itable-val-tail" note "itable-space ??"}\
-            newline             "POPSPACE"\
-            comment             "itable-val-tail"\
-            eof                 "err-state"\
-        }
-    #dict set stateMatrix\
-    #    itable-quoted-key       {\
-    #        whitespace          "NA"\
-    #        itablequotedkey     {PUSHSPACE "itable-keyval-space"}\
-    #        newline             "err-state"\
-    #        endquote            "itable-keyval-syntax"\
-    #    }
-    #dict set stateMatrix\
-    #    itable-squoted-key       {\
-    #        whitespace          "NA"\
-    #        itablesquotedkey    {PUSHSPACE "itable-keyval-space"}\
-    #        newline             "err-state"\
-    #        endsquote           "itable-keyval-syntax"\
-    #    }
-
-
-
-
-
-    dict set stateMatrix\
-        value-expected  {\
-            whitespace          "value-expected"\
-            untyped_value       {"SAMESPACE"    ""  replay untyped_value}\
-            startquote          "string-state"\
-            startsquote         "literal-state"\
-            startmultiquote     {PUSHSPACE "multistring-space"}\
-            triple_squote       {PUSHSPACE "multiliteral-space"}\
-            startinlinetable    {PUSHSPACE itable-space}\
-            startarray          {PUSHSPACE array-space}\
-            comment             "err-state-value-expected-got-comment"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-    #dottedkey-space is not (currently) used within [tablename] or [[tablearrayname]]
-    #it is for keyval ie  x.y.z = value
-
-    #this is the state after dot
-    #we are expecting a complete key token or whitespace
-    #(initial entry to the space is by one of the keys - which will immediately go to dottedkey-space-tail)
-    dict set stateMatrix\
-        dottedkey-space {\
-            whitespace          "dottedkey-space"\
-            dotsep              "err-state"\
-            barekey             "dottedkey-space-tail"\
-            squotedkey          "dottedkey-space-tail"\
-            dquotedkey          "dottedkey-space-tail"\
-            newline             "err-state"\
-            comma               "err-state"\
-            comment             "err-state"\
-            equal               "err-state"\
-        }
-            #dottedkeyend        "POPSPACE"
-            #equal               "POPSPACE"\
-
-    #jmn 2025
-    #we have 1 or more dottedkeys so far - need dotsep to add more, whitespace to maintain, equal to pop
-    dict set stateMatrix\
-        dottedkey-space-tail {\
-            whitespace          "dottedkey-space-tail"
-            dotsep              "dottedkey-space"
-            equal               "POPSPACE"\
-        }
-
-    #--------------------------------------------------------------------------
-    #scratch area
-    #from_toml {x=1}
-    # barekey tok <x>
-    # table-space PUSHSPACE keyval-space state keyval-syntax
-    #
-
-
-    #--------------------------------------------------------------------------
-
-
-    #REVIEW
-    #toml spec looks like heading towards allowing newlines within inline tables
-    #https://github.com/toml-lang/toml/issues/781
-
-    #2025 - appears to be valid for 1.1 - which we are targeting.
-    #https://github.com/toml-lang/toml/blob/main/toml.md#inline-table
-
-    #JMN2025
-    #dict set stateMatrix\
-    #    curly-syntax {\
-    #        whitespace          "curly-syntax"\
-    #        newline             "curly-syntax"\
-    #        barekey             {PUSHSPACE "itable-keyval-space"}\
-    #        itablequotedkey     "itable-keyval-space"\
-    #        endinlinetable      "POPSPACE"\
-    #        startquote          "itable-quoted-key"\
-    #        comma               "itable-space"\
-    #        comment             "itable-space"\
-    #        eof                 "err-state"\
-    #    }
-        #review comment "err-state" vs comment "itable-space" - see if TOML 1.1 comes out and allows comments in multiline ITABLES
-        #We currently allow multiline ITABLES  (also with comments) in the tokenizer.
-        #if we want to disallow as per TOML 1.0 - we should do so when attempting to get structure?
-
-
-    #JMN REVIEW
-    dict set stateMatrix\
-        array-space     {\
-            whitespace          "array-space"\
-            newline             "array-space"\
-            untyped_value       "SAMESPACE"\
-            startarray          {PUSHSPACE "array-space"}\
-            endarray            "POPSPACE"\
-            startmultiquote     {PUSHSPACE multistring-space}\
-            startinlinetable    {PUSHSPACE itable-space}\
-            startquote          "string-state"\
-            startsquote         "literal-state"\
-            triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax  note "seems ok 2024"}\
-            comma               "array-space"\
-            comment             "array-space"\
-            eof                 "err-state-array-space-got-eof"\
-        }
-    dict set stateMatrix\
-        array-syntax    {\
-            whitespace          "array-syntax"\
-            newline             "array-syntax"\
-            untyped_value       "SAMESPACE"\
-            startarray          {PUSHSPACE array-space}\
-            endarray            "POPSPACE"\
-            startmultiquote     {PUSHSPACE multistring-space}\
-            startquote          "string-state"\
-            startsquote         "literal-state"\
-            comma               "array-space"\
-            comment             "err-state"\
-        }
-
-
-
-    #quoted-key & squoted-key need to PUSHSPACE from own token to keyval-space
-    dict set stateMatrix\
-        quoted-key       {\
-            whitespace          "NA"\
-            dquotedkey           {PUSHSPACE "keyval-space"}\
-            newline             "err-state"\
-            endquote            "keyval-syntax"\
-        }
-
-
-    #review
-    dict set stateMatrix\
-        dquoted-key       {\
-            whitespace          "NA"\
-            dquotedkey          "dquoted-key"\
-            newline             "err-state"\
-        }
-    dict set stateMatrix\
-        squoted-key       {\
-            whitespace          "NA"\
-            squotedkey          "squoted-key"\
-            newline             "err-state"\
-        }
-           # endsquote           {PUSHSPACE "keyval-space"}
-
-    dict set stateMatrix\
-        string-state          {\
-            whitespace          "NA"\
-            string              "string-state"\
-            endquote            "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        literal-state       {\
-            whitespace          "NA"\
-            literal             "literal-state"\
-            endsquote           "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-
-    #dict set stateMatrix\
-    #    stringpart      {\
-    #        continuation        "SAMESPACE"\
-    #        endmultiquote       "POPSPACE"\
-    #        eof                 "err-state"\
-    #    }
-    dict set stateMatrix\
-        multistring-space {\
-            whitespace          "multistring-space"\
-            continuation        "multistring-space"\
-            stringpart          "multistring-space"\
-            newline             "multistring-space"\
-            endmultiquote       "POPSPACE"\
-            eof                 "err-state"\
-        }
-
-
-    #only valid subparts are literalpart and newline. other whitespace etc is within literalpart
-    #todo - treat sole cr as part of literalpart but crlf and lf as newline
-    dict set stateMatrix\
-        multiliteral-space {\
-            literalpart         "multiliteral-space"\
-            newline             "multiliteral-space"\
-            squote_seq_begin    {PUSHSPACE "trailing-squote-space" returnstate multiliteral-space starttok {squote_seq "'"}}\
-            triple_squote       {POPSPACE                       note "on popping - we do any necessary concatenation of LITERALPART items due to squote processing"}\
-            double_squote       {TOSTATE multiliteral-space     note "short squote_seq: can occur anywhere in the space e.g emitted at end when 5 squotes occur"}\
-            startsquote         {TOSTATE multiliteral-space     note "short squote_seq: same as double_squote - false alarm"}\
-            eof                 "err-premature-eof-in-multiliteral-space"\
-        }
-
-    #trailing because we are looking for possible terminating ''' - but must accept '''' or ''''' and re-integrate the 1st one or 2 extra squotes
-    dict set stateMatrix\
-        trailing-squote-space {\
-            squote_seq          "POPSPACE"\
-        }
-
-
-    dict set stateMatrix\
-        tablename-state       {\
-            whitespace          "NA"\
-            tablename           {zeropoppushspace table-space}\
-            tablename2          {PUSHSPACE table-space}\
-            endtablename        "tablename-tail"\
-            comma               "err-state"\
-            newline             "err-state"\
-        }
-    dict set stateMatrix\
-        tablearrayname-state  {\
-            whitespace          "NA"\
-            tablearrayname      {zeropoppushspace table-space}\
-            tablearrayname2     {PUSHSPACE table-space}\
-            endtablearray       "tablearrayname-tail"\
-            comma               "err-state"\
-            newline             "err-state"\
-        }
-
-    dict set stateMatrix\
-        tablename-tail   {\
-            whitespace          "tablename-tail"\
-            newline             "table-space"\
-            comment             "tablename-tail"\
-            eof                 "end-state"\
-        }
-    dict set stateMatrix\
-        tablearrayname-tail {\
-            whitespace          "tablearrayname-tail"\
-            newline             "table-space"\
-            comment             "tablearrayname-tail"\
-            eof                 "end-state"\
-        }
-    dict set stateMatrix\
-        end-state             {}
-
-    set knowntokens [list]
-    set knownstates [list]
-    dict for {state transitions} $stateMatrix {
-        if {$state ni $knownstates} {lappend knownstates $state}
-        dict for {tok instructions} $transitions {
-            if {$tok ni $knowntokens} {lappend knowntokens $tok}
-        }
-    }
-    dict set stateMatrix nostate {}
-    foreach tok $knowntokens {
-        dict set stateMatrix nostate $tok "err-nostate-received-token-$tok"
-    }
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #purpose - debugging?  remove?
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #build a list of 'push triggers' from the stateMatrix
-    # ie tokens which can push a new space onto spacestack
-    set push_trigger_tokens [list]
-    tcl::dict::for {s transitions} $stateMatrix {
-        tcl::dict::for {token transition_to} $transitions {
-            set instruction [lindex $transition_to 0]
-            switch -exact -- $instruction {
-                PUSHSPACE - zeropoppushspace {
-                    if {$token ni $push_trigger_tokens} {
-                        lappend push_trigger_tokens $token
-                    }
-                }
-            }
-        }
-    }
-    ::tomlish::log::debug "push_trigger_tokens: $push_trigger_tokens"
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-
-    #This seems hacky... (deprecate in favour of explicit arguments to the instructions in stateMatrix?)
-    #spacePopTransitions, spacePushTransitions, spaceSameTransitions below for auto state redirections on POPSPACE,PUSHSPACE,SAMESPACE
-
-    #mainly for the -space states:
-    #redirect to another state $c based on a state transition from $whatever to $b
-    # e.g  "string {array-space array-syntax}" means when transitioning from string to array-space, jump to array-syntax instead.
-    #this is useful as we often don't know state $b. e.g when it is decided by 'POPSPACE'
-
-    #Push to, next
-    #default first states when we push to these spaces
-    variable spacePushTransitions {
-        keyval-space            keyval-syntax
-        itable-keyval-space     itable-keyval-syntax
-        array-space             array-space
-        table-space             tablename-state
-    }
-        #itable-space             itable-space
-    #Pop to, next
-    variable spacePopTransitions {
-        array-space             array-syntax
-    }
-        #itable-space             curly-syntax
-        #itable-keyval-space     itable-val-tail
-    #review
-    #we pop to keyval-space from dottedkey-space or from value-expected? we don't always want to go to keyval-tail
-    #leave it out and make the POPSPACE caller explicitly specify it
-    #keyval-space        keyval-tail
-
-    variable spaceSameTransitions {
-        array-space             array-syntax
-    }
-        #itable-space             curly-syntax
-        #itable-keyval-space     itable-val-tail
-
-
-    variable state_list ;#reset every tomlish::decode::toml
-
-    namespace export tomlish toml
-    namespace ensemble create
-
-    #goNextState has various side-effects e.g pushes and pops spacestack
-    #REVIEW - setting nest and v elements here is ugly
-    #todo - make neater, more single-purpose?
-    proc goNextState {tokentype tok currentstate} {
-        variable state
-        variable nest
-        variable v
-
-        set prevstate $currentstate
-
-
-        variable spacePopTransitions
-        variable spacePushTransitions
-        variable spaceSameTransitions
-
-        variable last_space_action      "none"
-        variable last_space_type        "none"
-        variable state_list
-
-        set result ""
-        set starttok ""
-
-        if {[dict exists $::tomlish::parse::stateMatrix $currentstate $tokentype]} {
-            set transition_to [dict get $::tomlish::parse::stateMatrix $currentstate $tokentype]
-            ::tomlish::log::debug "--->> goNextState tokentype:$tokentype tok:$tok currentstate:$currentstate  :  transition_to = $transition_to"
-            switch -exact -- [lindex $transition_to 0] {
-                POPSPACE {
-                    spacestack pop
-                    set parent_info [spacestack peek]
-                    set type [dict get $parent_info type]
-                    set parentspace [dict get $parent_info state]
-
-                    set last_space_action "pop"
-                    set last_space_type $type
-
-                    if {[dict exists $parent_info returnstate]} {
-                        set next [dict get $parent_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> POPSPACE transition to parent space $parentspace redirected to stored returnstate $next <<---"
-                    } else {
-                        ###
-                        #review - do away with spacePopTransitions - which although useful to provide a default..
-                        # - involve error-prone configurations distant to the main state transition configuration in stateMatrix
-                        if {[dict exists $::tomlish::parse::spacePopTransitions $parentspace]} {
-                            set next [dict get $::tomlish::parse::spacePopTransitions $parentspace]
-                            ::tomlish::log::info "--->> POPSPACE transition to parent space $parentspace redirected state to $next (spacePopTransitions)<<---"
-                        } else {
-                            set next $parentspace
-                            ::tomlish::log::info "--->> POPSPACE transition to parent space $parentspace<<---"
-                        }
-                    }
-                    set result $next
-                }
-                SAMESPACE {
-                    set currentspace_info [spacestack peek]
-                    ::tomlish::log::debug       "--->> SAMESPACE got current space entry: $currentspace_info <<<<<"
-                    set type         [dict get $currentspace_info type]
-                    set currentspace [dict get $currentspace_info state]
-
-                    if {[dict exists $currentspace_info returnstate]} {
-                        set next [dict get $currentspace_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace redirected to stored returnstate $next"
-                    } else {
-                        if {[dict exists $::tomlish::parse::spaceSameTransitions $currentspace]} {
-                            set next [dict get $::tomlish::parse::spaceSameTransitions $currentspace]
-                            ::tomlish::log::info   "--->> SAMESPACE transition to space $currentspace redirected state to $next (spaceSameTransitions)"
-                        } else {
-                            set next $currentspace
-                            ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace"
-                        }
-                    }
-                    set result $next
-                }
-                zeropoppushspace {
-                    if {$nest > 0} {
-                        #pop back down to the root level (table-space)
-                        spacestack pop
-                        set parentinfo [spacestack peek]
-                        set type [dict get $parentinfo type]
-                        set target [dict get $parentinfo state]
-
-                        set last_space_action "pop"
-                        set last_space_type $type
-
-                        #-----
-                        #standard pop
-                        set parentlevel [expr {$nest -1}]
-                        lappend v($parentlevel) [set v($nest)]
-                        incr nest -1
-                        #-----
-                    }
-                    #re-entrancy
-
-                    #set next [list PUSHSPACE [lindex $transition_to 1]]
-                    set nexttokentype ${tokentype}2  ;#fake token type e.g tablename2 or tablearrayname2
-                    #::tomlish::log::notice "goNextState REENTRANCY. calling goNextState $nexttokentype $tokentype"
-                    #set result [::tomlish::parse::goNextState $nexttokentype $tokentype]
-                    ::tomlish::log::debug "--->> zeropoppushspace goNextState REENTRANCY. calling goNextState $nexttokentype $currentstate"
-                    set transition_info [::tomlish::parse::goNextState $nexttokentype $tok $currentstate]
-                    set result [dict get $transition_info newstate]
-                }
-                PUSHSPACE {
-                    set original_target [dict get $transition_to PUSHSPACE]
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    if {[dict exists $transition_to starttok]} {
-                        set starttok [dict get $transition_to starttok]
-                    }
-                    spacestack push [dict create type space state $original_target]
-
-                    set last_space_action "push"
-                    set last_space_type "space"
-
-                    if {[dict exists $transition_to state]} {
-                        #an explicit state in the pushed space was requested in the stateMatrix - override the spacePushTransition (spacePushTransitions can be deprecated if we require explicitness?)
-                        set next [dict get $transition_to state]
-                        ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next by explicit 'state' entry"
-                    } else {
-                        #puts $::tomlish::parse::spacePushTransitions
-                        if {[dict exists $::tomlish::parse::spacePushTransitions $original_target]} {
-                            set next [dict get $::tomlish::parse::spacePushTransitions $original_target]
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next (spacePushTransitions) "
-                        } else {
-                            set next $original_target
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target"
-                        }
-                    }
-                    set result $next
-                }
-                TOSTATE {
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    set result [dict get $transition_to TOSTATE]
-                }
-                default {
-                    #simplified version of TOSTATE
-                    set result [lindex $transition_to 0] ;#ignore everything but first word
-                }
-            }
-        } else {
-            ::tomlish::log::error "--->> No state transition defined from state $currentstate when tokentype $tokentype received"
-            set result "nostate"
-        }
-        lappend state_list [list tokentype $tokentype from $currentstate to $result]
-        set state $result
-        ::tomlish::log::notice "--->> STATE TRANSITION tokenType: '$tokentype' tok:$tok  triggering '$currentstate' -> '$result' last_space_action:$last_space_action "
-        return [dict create prevstate $prevstate newstate $result space_action $last_space_action starttok $starttok]
-    }
-
-    proc report_line {{line ""}} {
-        variable linenum
-        variable is_parsing
-        if {$is_parsing} {
-            if {$line eq ""} {
-                set line $linenum
-            }
-            return "Line Number: $line"
-        } else {
-            #not in the middle of parsing tomlish text - return nothing.
-            return ""
-        }
-    }
-
-    #produce a *slightly* more readable string rep of the nest for puts etc.
-    proc nest_pretty1 {list} {
-        set prettier "{"
-
-        foreach el $list {
-            if { [lindex $el 0] eq "NEWLINE"} {
-                append prettier "[list $el]\n"
-            } elseif {([llength $el] > 1) && ([lindex $el 0] in {KEY DQKEY SQKEY TABLE ARRAY})} {
-                append prettier [nest_pretty1 $el]
-            } else {
-                append prettier "[list $el] "
-            }
-        }
-        append prettier "}"
-        return $prettier
-    }
-
-    proc set_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        if {![info exists tokenType]} {
-            set tokenType ""
-        }
-        lappend tokenType_list $t
-        set tokenType $t
-    }
-
-    proc switch_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        lset tokenType_list end $t
-        set tokenType $t
-    }
-
-    proc get_tokenType {} {
-        variable tokenType
-        return $tokenType
-    }
-
-    proc _shortcircuit_startquotesequence {} {
-        variable tok
-        variable i
-        set toklen [tcl::string::length $tok]
-        if {$toklen == 1} {
-            set_tokenType "startquote"
-            incr i -1
-            return -level 2 1
-        } elseif {$toklen == 2} {
-            puts stderr "_shortcircuit_startquotesequence toklen 2"
-            set_tokenType "startquote"
-            set tok "\""
-            incr i -2
-            return -level 2 1
-        }
-    }
-
-    proc get_token_waiting {} {
-        variable token_waiting
-        return [lindex $token_waiting 0]
-    }
-    proc clear_token_waiting {} {
-        variable token_waiting
-        set token_waiting [list]
-    }
-
-    #token_waiting is a list - but our standard case is to have only one
-    #in certain circumstances such as near eof we may have 2
-    #the set_token_waiting function only allows setting when there is not already one waiting.
-    #we want to catch cases of inadvertently trying to set multiple
-    # - the reason being that the state transition triggered by the previous token may have invalidated the assumptions made when a token was added as waiting.
-    proc set_token_waiting {args} {
-        if {[llength $args] %2 != 0} {
-            error "tomlish set_token_waiting must have args of form: type <tokentype> value <value> complete 0|1"
-        }
-        variable token_waiting
-
-        if {[llength $token_waiting] && [dict get [lindex $token_waiting end] type] ne "eof"} {
-            #tokloop already set a token_waiting - but something (post tokloop processing?) is trying to set another
-            #we may need to remove the existing token_waiting and reset the tokloop index to the previous char so it's reprocessed in the possibly new context
-            #rather than attempt to make the right decision here - we raise an error and require the caller to check/handle it
-            set err         "tomlish set_token_waiting already has token_waiting: [lindex $token_waiting 0]"
-            append err \n   "  -                cannot add token_waiting: $args"
-            error $err
-            #set tomlish::parse::i [expr {[dict get $token_waiting startindex] -1}]
-            #set token_waiting [list]
-        }
-
-        set waiting [dict create]
-        dict for {k v} $args {
-            switch -exact $k {
-                type -  complete {
-                    dict set waiting $k $v
-                }
-                value {
-                    dict set waiting tok $v
-                }
-                startindex {
-                    dict set waiting startindex $v
-                }
-                default {
-                    error "tomlish set_token_waiting error - unrecognised key $k. known keys: [dict keys $args]"
-                }
-            }
-        }
-        if {![tcl::string::is boolean -strict [dict get $waiting complete]]} {
-            error "tomlish set_token_waiting error - 'complete' must be a boolean. got [dict get $waiting complete]"
-        }
-        if {![llength $token_waiting]} {
-            set token_waiting [list $waiting]
-        } else {
-            #an extra sanity-check that we don't have more than just the eof..
-            if {[llength $token_waiting] > 1} {
-                set err "tomlish Unexpected. Existing token_waiting count > 1.\n"
-                foreach tw $token_waiting {
-                    append err " $tw" \n
-                }
-                append err " -          cannot add token_waiting: $waiting"
-                error $err
-            }
-            #last entry must be a waiting eof
-            set token_waiting [list $waiting [lindex $token_waiting end]]
-        }
-        return
-    }
-
-    #returns 0 or 1
-    #tomlish::parse::tok
-    #we attempt to do this without lookahead (potential use in streaming toml? for what benefit?) todo -final flag
-    # - the possible benefit is being able to more easily process in arbitrarily split chunks (although we would still have to watch crlf splitting ?)
-    # - interactive use?
-
-    proc tok {s} {
-        variable nest
-        variable v
-        variable i
-        variable tok
-        variable type ;#character type
-        variable state ;#FSM
-
-
-        variable tokenType
-        variable tokenType_list
-
-
-        variable endToken
-
-        variable lastChar
-
-        variable braceCount
-        variable bracketCount
-
-
-        #------------------------------
-        #Previous run found another (presumably single-char) token
-        #The normal case is for there to be only one dict in the list
-        #multiple is an exception - primarily for eof
-        variable token_waiting
-        if {[llength $token_waiting]} {
-            set waiting [lindex $token_waiting 0]
-
-            set tokenType   [dict get $waiting type]
-            set tok         [dict get $waiting tok]
-            #todo: dict get $token_waiting complete
-            set token_waiting [lrange $token_waiting 1 end]
-            return 1
-        }
-        #------------------------------
-
-        set resultlist [list]
-        set sLen [tcl::string::length $s]
-
-        set slash_active 0
-        set quote 0
-        set c ""
-        set multi_dquote ""
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $s [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $s $i]
-            set cindex $i
-            set ctest [tcl::string::map {\{ lc \} rc \[ lb \] rb \" dq ' sq \\ bsl \r cr \n lf \t tab \uFEFF bom} $c]
-            tomlish::log::debug "- tokloop char <$ctest> index $i   tokenType:$tokenType tok:<$tok>"
-            #puts "got char $c during tokenType '$tokenType'"
-            incr i ;#must incr here because we do returns inside the loop
-
-            switch -exact -- $ctest {
-                # {
-                    set dquotes $multi_dquote
-                    set multi_dquote ""
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {$had_slash} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            barekey {
-                                error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed (see tomlish::utils::is_barekey). [tomlish::parse::report_line]"
-                            }
-                            whitespace {
-                                # hash marks end of whitespace token
-                                #do a return for the whitespace, set token_waiting
-                                #set_token_waiting type comment value "" complete 1
-                                incr i -1  ;#leave comment for next run
-                                return 1
-                            }
-                            untyped_value {
-                                #REVIEW! the spec isn't clear.. is whitespace after an int,bool etc required before comment?
-                                #we will accept a comment marker as an immediate terminator of the untyped_value.
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #fix!
-                                error "tomlish Character '#' is invalid first character for  $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare parts - but allowed in quoted parts - let tablename parser sort it out
-                                append tok $c
-                            }
-                            default {
-                                #dquotedkey, itablequotedkey, string,literal, multistring
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -- $state {
-                            multistring-space {
-                                set_tokenType stringpart
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes#"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "#"
-                            }
-                            default {
-                                #start of token if we're not in a token
-                                set_tokenType comment
-                                set tok "" ;#The hash is not part of the comment data
-                            }
-                        }
-                    }
-                }
-                lc {
-                    #left curly brace
-                    set dquotes $multi_dquote
-                    set multi_dquote ""
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            starttablename - starttablearrayname {
-                                #*bare* tablename can only contain letters,digits underscores
-                                error "tomlish Invalid tablename first character \{ [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #valid in quoted parts
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            itable-keyval-value-expected - keyval-value-expected - value-expected {
-                                #switch last key to tablename??
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested anonymous inline table
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\{"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\{"
-                            }
-                            default {
-                                error "tomlish state: '$state'. left brace case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                rc {
-                    #right curly brace
-                    set dquotes $multi_dquote
-                    set multi_dquote ""
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            XXXitablesquotedkey {
-                            }
-                            string - dquotedkey - itablequotedkey - comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            starttablename - tablename {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endinlinetable value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            starttablearrayname - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                #end any other token
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            value-expected {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-space {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname-state problem"
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                #invalid
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            XXXcurly-syntax {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-val-tail {
-                                set_tokenType "endinlinetable"
-                                set tok ""
-                                #we need to pop the keyval - and then reprocess to pop the inlinetable - so we incr -1
-                                incr i -1
-                                return 1
-                            }
-                            itable-keyval-syntax {
-                                error "tomlish endinlinetable unexpected at this point. Expecting key=val syntax [tomlish::parse::report_line]"
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\}"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" ; #review
-                                set tok "\}"
-                            }
-                            default {
-                                #JMN2024b keyval-tail?
-                                error "tomlish state '$state'. endinlinetable case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                lb {
-                    #left square bracket
-                    set dquotes $multi_dquote
-                    set multi_dquote ""
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            XXXitablesquotedkey {
-                            }
-                            string - dquotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            starttablename {
-                                #change the tokenType
-                                switch_tokenType "starttablearrayname"
-                                set tok "" ;#no output into the tomlish list for this token
-                                #any following whitespace is part of the tablearrayname, so return now
-                                return 1
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    #append tok "\\["
-                                    append tok {\[}
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        #invalid at this point - state machine should disallow table -> starttablearrayname
-                                        set_token_waiting type starttablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "\["
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            keyval-value-expected - itable-keyval-value-expected - value-expected {
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                            }
-                            table-space {
-                                #table name
-                                #assume it's a single bracket - but we need to wait for non-bracket to confirm it's not a tablearray
-                                #note that a starttablearrayname token may contain whitespace between the brackets
-                                # e.g \[   \[
-                                set_tokenType "starttablename"
-                                set tok ""  ;#there is no output into the tomlish list for this token
-                            }
-                            array-space - array-syntax {
-                                #nested array?
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                                #error "state: array-space. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\["
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\["
-                            }
-                            itable-space {
-                                #handle state just to give specific error msg
-                                error "tomlish state: '$state'. Left square bracket invalid. Cannot start array in inline table without key. Use key=\[<vals>\] syntax. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish state: '$state'. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                rb {
-                    #right square bracket
-                    set dquotes $multi_dquote
-                    set multi_dquote ""
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            XXXitablesquotedkey {
-                            }
-                            string - dquotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #????
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                } else {
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                }
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablename value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            tablearraynames {
-                                #todo?
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            value-expected {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endtablename"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname problem"
-                                set_tokenType "endtablearray"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "$dquotes\]"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\]"
-                            }
-                            default {
-                                error "tomlish state '$state'. endarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                bsl {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    #backslash
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #end whitespace token
-                                    incr i -1 ;#reprocess bsl in next run
-                                    return 1
-                                } else {
-                                    error "tomlish Unexpected backslash during whitespace. [tomlish::parse::report_line]"
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                #never need to set slash_active true when in single quoted tokens
-                                append tok "\\"
-                                set slash_active 0
-                            }
-                            XXXitablesquotedkey {
-                            }
-                            string - dquotedkey - itablequotedkey - comment {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            stringpart {
-                                if {$slash_active} {
-                                    #assert - quotes empty - or we wouldn't have slash_active
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    append tok $dquotes
-                                    set slash_active 1
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish backslash is invalid as first character of $tokenType [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            barekey {
-                                error "tomlish Unexpected backslash during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish Backslash unexpected during tokentype: '$tokenType'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$slash_active} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\\"
-                                    set slash_active 0
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        set_tokenType "stringpart"
-                                        set tok $dquotes
-                                    }
-                                    set slash_active 1
-                                }
-                            }
-                            multiliteral-space {
-                                #nothing can be escaped in multiliteral-space - not even squotes (?) review
-                                set_tokenType "literalpart"
-                                set tok "\\"
-                            }
-                            default {
-                                error "tomlish tok error: Unexpected backslash when no token is active. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                sq {
-                    #single quote
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                #short squote_seq tokens are returned if active during any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                switch -- $state {
-                                    leading-squote-space {
-                                        append tok $c
-                                        if {$existingtoklen > 2} {
-                                            error "tomlish tok error: squote_seq unexpected length $existingtoklen when another received"
-                                        } elseif {$existingtoklen == 2} {
-                                           return 1 ;#return tok '''
-                                        }
-                                    }
-                                    trailing-squote-space {
-                                        append tok $c
-                                        if {$existingtoklen == 4} {
-                                            #maxlen to be an squote_seq is multisquote + 2  = 5
-                                            #return tok '''''
-                                            return 1
-                                        }
-                                    }
-                                    default {
-                                        error "tomlish tok error: squote_seq in unexpected state '$state' - expected leading-squote-space or trailing-squote-space"
-                                    }
-                                }
-                            }
-                            whitespace {
-                                #end whitespace
-                                incr i -1  ;#reprocess sq
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                #temp token creatable only during value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_squote
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_squote_sequence'"
-                                    }
-                                }
-                            }
-                            literal {
-                                #slash_active always false
-                                #terminate the literal
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #ended by '''  - but final could be '''' or ''''' (up to 2 squotes allowed directly before ending triple squote sequence)
-                                #todo
-                                # idea:  end this literalpart  (possibly 'temporarily')
-                                # let the sq be reprocessed in the multiliteral-space to push an end-multiliteral-sequence to state stack
-                                # upon popping end-multiliteral-sequence - stitch quotes back into this literalpart's token (if either too short - or a long ending sequence as shown above)
-                                incr i -1 ;#throw the "'" back to loop - will be added to an squote_seq token for later processing
-                                return 1
-                            }
-                            XXXitablesquotedkey {
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            squotedkey {
-                                ###
-                                #set_token_waiting type endsquote value "'" complete 1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #!!!
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                append tok $c
-                            }
-                            barekey {
-                                #not clear why o'shennanigan shouldn't be a legal barekey - but it seems not to be.
-                                error "tomlish Unexpected single quote during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            value-expected - array-space {
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                            }
-                            itable-keyval-value-expected - keyval-value-expected {
-                                set_tokenType "squote_seq_begin"
-                                set tok "'"
-                                return 1
-                            }
-                            table-space {
-                                #tests: squotedkey.test
-                                set_tokenType "squotedkey"
-                                set tok ""
-                            }
-                            itable-space {
-                                #tests: squotedkey_itable.test
-                                set_tokenType "squotedkey"
-                                set tok ""
-                            }
-                            XXXitable-space {
-                                #future - could there be multiline keys?
-                                #this would allow arbitrary tcl dicts to be stored in toml
-                                #probably unlikely - as it's perhaps not very 'minimal' or ergonomic for config files
-                                set_tokenType "squote_seq_begin"
-                                set tok "'"
-                                return 1
-                            }
-                            tablename-state {
-                                #first char in tablename-state/tablearrayname-state
-                                set_tokenType tablename
-                                append tok "'"
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                append tok "'"
-                            }
-                            literal-state {
-                                tomlish::log::debug "- tokloop sq during literal-state with no tokentype - empty literal?"
-                                set_tokenType literal
-                                incr -1
-                                return 1
-                            }
-                            multistring-space {
-                                error "tomlish unimplemented - squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                            multiliteral-space {
-                                #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                #we are building up an squote_seq to determine if
-                                #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                #b) it is exactly ''' and we can terminate the whole multiliteral
-                                #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                set_tokenType "squote_seq_begin"
-                                set tok "'"
-                                return 1
-                            }
-                            dottedkey-space {
-                                set_tokenType squotedkey
-                            }
-                            default {
-                                error "tomlish unhandled squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                dq {
-                    #double quote
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                set toklen [tcl::string::length $tok]
-                                if {$toklen == 1} {
-                                    append tok $c
-                                } elseif {$toklen == 2} {
-                                    append tok $c
-                                    #switch vs set?
-                                    set_tokenType "startmultiquote"
-                                    return 1
-                                } else {
-                                    error "tomlish unexpected token length $toklen in 'startquotesequence'"
-                                }
-                            }
-                            _start_squote_sequence {
-                                set toklen [tcl::string::length $tok]
-                                switch -- $toklen {
-                                    1 {
-                                        set_tokenType "startsquote"
-                                        incr i -1
-                                        return 1
-                                    }
-                                    2 {
-                                        set_tokenType "startsquote"
-                                        incr i -2
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish unexpected _start_squote_sequence length $toklen"
-                                    }
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string {
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #unescaped quote always terminates a string?
-                                    set_token_waiting type endquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            stringpart {
-                                #sub element of multistring
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #incr i -1
-
-                                    if {$multi_dquote eq "\"\""} {
-                                        set_token_waiting type endmultiquote value "\"\"\"" complete 1 startindex [expr {$cindex -2}]
-                                        set multi_dquote ""
-                                        return 1
-                                    } else {
-                                        append multi_dquote "\""
-                                    }
-                                }
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        #REVIEW
-                                        if {$had_slash} {
-                                            incr i -2
-                                            return 1
-                                        } else {
-                                            switch -- [tcl::string::length $multi_dquote] {
-                                                2 {
-                                                    set_token_waiting type endmultiquote value "\"\"\"" complete 1 startindex [expr {$cindex-2}]
-                                                    set multi_dquote ""
-                                                    return 1
-                                                }
-                                                1 {
-                                                    incr i -2
-                                                    return 1
-                                                }
-                                                0 {
-                                                    incr i -1
-                                                    return 1
-                                                }
-                                            }
-                                        }
-                                    }
-                                    keyval-value-expected - value-expected {
-                                        #end whitespace token and reprocess
-                                        incr i -1
-                                        return 1
-
-                                        #if {$multi_dquote eq "\"\""} {
-                                        #    set_token_waiting type startmultiquote value "\"\"\"" complete 1
-                                        #    set multi_dquote ""
-                                        #    return 1
-                                        #} else {
-                                        #    #end whitespace token and reprocess
-                                        #    incr i -1
-                                        #    return 1
-                                        #}
-                                    }
-                                    table-space - itable-space {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    default {
-                                        set_token_waiting type startquote value "\"" complete 1 startindex $cindex
-                                        return 1
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            XXXdquotedkey - XXXitablequotedkey {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    set_token_waiting type endquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            dquotedkey {
-                                ###
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    #set_token_waiting type endsquote value "'" complete 1
-                                    return 1
-                                }
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1 ;##
-                                return 1
-                            }
-                            default {
-                                error "tomlish got quote during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        #token is string only if we're expecting a value at this point
-                        switch -exact -- $state {
-                            keyval-value-expected - value-expected - array-space {
-                                #!? start looking for possible multistartquote
-                                #set_tokenType startquote
-                                #set tok $c
-                                #return 1
-                                set_tokenType "startquotesequence"  ;#one or more quotes in a row - either startquote or multistartquote
-                                set tok $c
-                            }
-                            itable-keyval-value-expected {
-                                #JMN 2025 - review
-                                set_tokenType "startquotesequence"  ;#one or more quotes in a row - either startquote or multistartquote
-                                set tok $c
-                            }
-                            multistring-space {
-                                #TODO - had_slash!!!
-                                #REVIEW
-                                if {$had_slash} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\""
-                                    set multi_dquote ""
-                                } else {
-                                    if {$multi_dquote eq "\"\""} {
-                                        tomlish::log::debug "- tokloop char dq ---> endmultiquote"
-                                        set_tokenType "endmultiquote"
-                                        set tok "\"\"\""
-                                        return 1
-                                        #set_token_waiting type endmultiquote value "\"\"\"" complete 1
-                                        #set multi_dquote ""
-                                        #return 1
-                                    } else {
-                                        append multi_dquote "\""
-                                    }
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\""
-                            }
-                            XXXtable-space {
-                                set_tokenType "startquote"
-                                set tok $c
-                                return 1
-                            }
-                            XXXitable-space {
-                                set_tokenType "startquote"
-                                set tok $c
-                            }
-                            table-space - itable-space {
-                                set_tokenType "dquotedkey"
-                                set tok ""
-                            }
-                            tablename-state {
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType dquotedkey
-                                set tok ""
-
-                                #only if complex keys become a thing
-                                #set_tokenType dquote_seq_begin
-                                #set tok $c
-                            }
-                            default {
-                                error "tomlish Unexpected quote during state '$state' [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                = {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                #assertion had_slash 0, multi_dquote ""
-                                append tok $c
-                            }
-                            string - comment - dquotedkey - itablequotedkey {
-                                #for these tokenTypes an = is just data.
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    set backlen [expr {[tcl::string::length $dquotes] + 1}]
-                                    incr i -$backlen
-                                    return 1
-                                } else {
-                                    set_token_waiting type equal value = complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                #set_token_waiting type equal value = complete 1
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character '=' is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare name - but valid in quoted parts - leave for tablename parser to sort out
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish unexpected = character during tokentype $tokenType.  case not implemented. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok ${dquotes}=
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "="
-                            }
-                            dottedkey-space {
-                                set_tokenType "equal"
-                                set tok "="
-                                return 1
-                            }
-                            default {
-                                set_tokenType "equal"
-                                set tok =
-                                return 1
-                            }
-                        }
-                    }
-                }
-                cr {
-                    #REVIEW!
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    # \r carriage return
-                    if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #we have received a double cr
-                                ::tomlish::log::warn "double cr - will generate cr token. needs testing"
-                                set_tokenType "cr" ;#lone cr token will generally raise an error - but let state machine handle it
-                                incr i -1
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal {
-                                append tok $c
-                            }
-                            literalpart {
-                                #part of MLL string (multi-line literal string)
-                                #we need to split out crlf as a separate NEWLINE to be consistent
-                                ::tomlish::log::warn "literalpart ended by cr - needs testing"
-                                #return literalpart temporarily - allow cr to be reprocessed from multiliteral-space
-                                incr i -1
-                                return 1
-                            }
-                            stringpart {
-                                #stringpart is a part of MLB string (multi-line basic string)
-                                #throw back the cr - if followed by lf it will become a {NEWLINE crlf} entry within the MULTISTRING list (e.g between STRINGPART entries)
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character <carriage return> is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #could in theory be valid in quoted part of name
-                                #review - might be better just to disallow here
-                                append tok $c
-                            }
-                            whitespace {
-                                #it should technically be part of whitespace if not followed by lf
-                                #but outside of values we are also free to map it to be another NEWLINE instead? REVIEW
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                incr i -1
-                                return 1
-                            }
-                            default {
-                                #!todo - error out if cr inappropriate for tokenType
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        #lf may be appended if next
-                        #review - lone cr as newline? - this is uncommon - but so is lone cr in a string(?)
-                        set_tokenType "newline"
-                        set tok cr
-                    }
-                }
-                lf {
-                    # \n newline
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #review
-                                #this lf is the trailing part of a crlf
-                                append tok lf ;#assert we should now have tok "crlf" - as a previous cr is the only way to have an incomplete newline tok
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal {
-                                #nl is not allowed *within* a literal - require multiliteral syntax for any literal containing a newline ''' '''
-                                #even though we terminate the literal without the closing quote here - the token_waiting newline should trigger a state error
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #we allow newlines - but store them within the multiliteral as their own element
-                                #This is a legitimate end to the literalpart - but not the whole multiliteral
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            stringpart {
-                                if {$dquotes ne ""} {
-                                    append tok $dquotes
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$had_slash} {
-                                        #emit the stringpart (return 1), queue the continuation, go back 1 to reprocess the lf (incr i -1)
-                                        set_token_waiting type continuation value \\ complete 1 startindex [expr {$cindex-1}]
-                                        incr i -1
-                                        return 1
-                                    } else {
-                                        set_token_waiting type newline value lf complete 1 startindex $cindex
-                                        return 1
-                                    }
-                                }
-                            }
-                            starttablename - tablename - tablearrayname - starttablearrayname {
-                                error "tomlish Character <linefeed> is invalid in $tokenType. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                #newline ends all other tokens.
-                                #note for string: we don't add (raw unescaped) newline to simple string. (must use multi-string for this)
-                                #note for whitespace:
-                                #    we will use the convention that \n terminates the current whitespace even if whitespace follows
-                                #    ie whitespace is split into separate whitespace tokens at each newline
-
-                                #puts "-------------- newline lf during tokenType $tokenType"
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        #e.g one or 2 quotes just before nl
-                                        set_tokenType "stringpart"
-                                        set tok $dquotes
-                                        incr i -1
-                                        return 1
-                                    }
-                                    set_tokenType "newline"
-                                    set tok lf
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0, multi_dquote ""
-                                set_tokenType "newline"
-                                set tok "lf"
-                                return 1
-                            }
-                            default {
-                                #ignore slash? error?
-                                set_tokenType "newline"
-                                set tok lf
-                                return 1
-                            }
-                        }
-                        #if {$had_slash} {
-                        #    #CONT directly before newline - allows strings_5_byteequivalent test to pass
-                        #    set_tokenType "continuation"
-                        #    set tok "\\"
-                        #    incr i -1
-                        #    return 1
-                        #} else {
-                        #    set_tokenType newline
-                        #    set tok lf
-                        #    return 1
-                        #}
-                    }
-                }
-                , {
-                    set dquotes $multi_dquote
-                    set multi_dquote ""
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            comment - tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok ,
-                            }
-                            string - dquotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                #stringpart can have up to 2 quotes too
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0, multi_dquote ""
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    set backlen [expr {[tcl::string::length $dquotes] + 1}]
-                                    incr i -$backlen
-                                    return 1
-                                } else {
-                                    set_token_waiting type comma value "," complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            default {
-                                set_token_waiting type comma value "," complete 1 startindex $cindex
-                                if {$had_slash} {append tok "\\"}
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok "$dquotes,"
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0, multi_dquote ""
-                                set_tokenType "literalpart"
-                                set tok ","
-                            }
-                            default {
-                                set_tokenType "comma"
-                                set tok ","
-                                return 1
-                            }
-                        }
-                    }
-                }
-                . {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            comment - untyped_value {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            string - dquotedkey - itablequotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $dquotes$c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0, multi_dquote ""
-                                append tok $c
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        set backchars [expr {[tcl::string::length $dquotes] + 1}]
-                                        if {$had_slash} {
-                                            incr backchars 1
-                                        }
-                                        incr i -$backchars
-                                        return 1
-                                    }
-                                    xxxdottedkey-space {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    dottedkey-space-tail {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish Received  period during tokenType 'whitespace' [tomlish::parse::report_line]"
-                                    }
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                #This would correspond to an empty table name
-                                error "tomlish Character '.' is not allowed as first character ($tokenType). [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #subtable - split later - review
-                                append tok $c
-                            }
-                            barekey {
-                                #e.g x.y = 1
-                                #we need to transition the barekey to become a structured table name  ??? review
-                                #x is the tablename y is the key
-                                set_token_waiting type dotsep value "." complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                error "tomlish Received period during tokenType '$tokenType' [tomlish::parse::report_line]"
-                                #set_token_waiting type period value . complete 1
-                                #return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok "$dquotes."
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "."
-                            }
-                            XXXdottedkey-space {
-                                ### obs?
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            dottedkey-space-tail {
-                                ###
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            default {
-                                set_tokenType "untyped_value"
-                                set tok "."
-                            }
-                        }
-                    }
-
-                }
-                " " {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-                    if {[tcl::string::length $tokenType]} {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            barekey {
-                                #todo had_slash - emit token or error
-                                #whitespace is a terminator for bare keys
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            comment {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok $dquotes$c
-                            }
-                            string - dquotedkey - itablequotedkey {
-                                if {$had_slash} { append tok "\\" }
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " "
-                                    append tok $dquotes
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    if {$dquotes ne ""} {
-                                        #end whitespace token
-                                        #go back by the number of quotes plus this space char
-                                        set backchars [expr {[tcl::string::length $dquotes] + 1}]
-                                        incr i -$backchars
-                                        return 1
-                                    } else {
-                                        append tok $c
-                                    }
-                                } else {
-                                    append tok $c
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace space during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        set_tokenType "stringpart"
-                                        set tok $dquotes
-                                        incr i -1
-                                        return 1
-                                    }
-                                    set_tokenType "whitespace"
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                if {$had_slash} {
-                                    error "tomlish unexpected backslash [tomlish::parse::report_line]"
-                                }
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                tab {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out (?review)
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            barekey {
-                                #whitespace is a terminator for bare keys
-                                incr i -1
-                                #set_token_waiting type whitespace value $c complete 1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            dquotedkey - string - comment - whitespace {
-                                #REVIEW
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " "
-                                    append tok $dquotes
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearraynames {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace tab during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        if {$slash_active} {
-                            set slash_active 0
-                        }
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    if {$dquotes ne ""} {
-                                        set_tokenType stringpart
-                                        set tok $dquotes
-                                        incr i -1
-                                        return 1
-                                    } else {
-                                        set_tokenType whitespace
-                                        append tok $c
-                                    }
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                bom {
-                    #BOM (Byte Order Mark) - ignored by token consumer
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            _start_squote_sequence {
-                                #assert - tok will be one or two squotes only
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            default {
-                                set_token_waiting type bom value "\uFEFF" complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "bom"
-                                set tok "\uFEFF"
-                                return 1
-                            }
-                        }
-                    }
-                }
-                default {
-                    set dquotes $multi_dquote
-                    set multi_dquote "" ;#!!
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            squote_seq {
-                                incr i -1
-                                return 1
-                            }
-                            startquotesequence {
-                                _shortcircuit_startquotesequence
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "startsquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    if {$dquotes ne ""} {
-                                        set backlen [expr {[tcl::string::length $dquotes] + 1}]
-                                        incr i -$backlen
-                                        return 1
-                                    } else {
-                                        incr i -1
-                                        return 1
-                                    }
-                                } else {
-                                    #review
-                                    incr i -1  ;#We don't have a full token to add to the token_waiting dict - so leave this char for next run.
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed. (see tomlish::utils::is_barekey) [tomlish::parse::report_line]"
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                #allow statemachine to set context for subsequent chars
-                                return 1
-                            }
-                            stringpart {
-                                append tok $dquotes$c
-                            }
-                            default {
-                                #e.g comment/string/literal/literalpart/untyped_value/starttablename/starttablearrayname/tablename/tablearrayname
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            table-space - itable-space {
-                                #if no currently active token - assume another key value pair
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            XXXcurly-syntax {
-                                puts stderr "curly-syntax - review"
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                if {$had_slash} {
-                                    #assert - we don't get had_slash and dquotes at same time
-                                    set tok \\$c
-                                } else {
-                                    set tok $dquotes$c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType "tablename"
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType barekey
-                                set tok $c
-                            }
-                            default {
-                                #todo - something like ansistring VIEW to show control chars?
-                                set cshow [string map [list \t tab \v vt] $c]
-                                tomlish::log::debug "- tokloop char '$cshow' setting to untyped_value while state:$state [tomlish::parse::report_line]"
-                                set_tokenType "untyped_value"
-                                set tok $c
-                            }
-                        }
-                    }
-                }
-            }
-
-        }
-
-        #run out of characters (eof)
-        if {[tcl::string::length $tokenType]} {
-            #check for invalid ending tokens
-            #if {$state eq "err-state"} {
-            #	error "Reached end of data whilst tokenType = '$tokenType'. INVALID"
-            #}
-            switch -exact -- $tokenType {
-                startquotesequence {
-                    set toklen [tcl::string::length $tok]
-                    if {$toklen == 1} {
-                        #invalid
-                        #eof with open string
-                        error "tomlish eof reached without closing quote for string. [tomlish::parse::report_line]"
-                    } elseif {$toklen == 2} {
-                        #valid
-                        #we ended in a double quote, not actually a startquoteseqence - effectively an empty string
-                        switch_tokenType "startquote"
-                        incr i -1
-                        #set_token_waiting type string value "" complete 1
-                        return 1
-                    }
-                }
-                _start_squote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open literal
-                            error "tomlish eof reached without closing single quote for string literal. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            #review
-                            set_token_waiting type endsquote value "'" complete 1 startindex [expr {$cindex -1}]
-                            set_tokenType "literal"
-                            set tok ""
-                            return 1
-                        }
-                    }
-                }
-                newline {
-                    #The only newline token that has still not been returned should have a tok value of "cr"
-                    puts "tomlish eof reached - with incomplete newline token '$tok'"
-                    if {$tok eq "cr"} {
-                        #we convert lone cr to it's own "cr" token elsewhere in the document to allow statemachine to handle it.
-                        #(which it should generally do by not handling it ie raising an error - or emitting an ERROR list in the tomlish)
-                        #if trailing char is a lone cr - we should encode it the same way as elsewhere that is outside of values
-                        # ie as it's own token.
-                        switch_tokenType "cr"
-                        return 1
-                    } else {
-                        #should be unreachable
-                        error "tomlish eof reached - with invalid newline token. value: $tok"
-                    }
-                }
-            }
-            set_token_waiting type eof value eof complete 1 startindex $i ;#review
-            return 1
-        } else {
-            ::tomlish::log::debug "- No current tokenType, ran out of characters, setting tokenType to 'eof' [tomlish::parse::report_line]"
-            set tokenType "eof"
-            set tok "eof"
-        }
-        return 0
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::parse ---}]
-}
-
-namespace eval tomlish::dict {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-
-    proc is_tomlish_typeval {d} {
-        #designed to detect {type <tag> value <whatever>} e.g {type INT value 3}, {type STRING value "blah etc"}
-        #as a sanity check we need to avoid mistaking user data that happens to match same form
-        #consider x.y={type="spud",value="blah"}
-        #The value of type will itself have already been converted to {type STRING value spud} ie never a single element.
-        #check the length of the type as a quick way to see it's a tag - not something else masqerading.
-        expr {[dict size $d] == 2 && [dict exists $d type] && [dict exists $d value] && [llength [dict get $d type]] == 1}
-    }
-    proc is_tomlish_typeval2 {d} {
-        upvar ::tomlish::tags tags
-        expr {[lindex $d 0] eq "type" && [lindex $d 1] in $tags}
-    }
-    proc last_tomltype_posn {d} {
-        set last_simple -1
-        set dictposn [expr {[dict size $d] -1}]
-        foreach k [lreverse [dict keys $d]] {
-            set dval [dict get $d $k]
-            if {[is_tomlish_typeval $dval]} {
-                set last_simple $dictposn
-                break
-            }
-            incr dictposn -1
-        }
-        return $last_simple
-    }
-
-
-    #review
-    proc name_from_tablestack {tablestack} {
-        set name ""
-        foreach tinfo [lrange $tablestack 1 end] {
-            lassign $tinfo type namepart
-            switch -- $type {
-                T {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                I {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                default {
-                    #end at first break in the leading sequence of T & I tablenames
-                    break
-                }
-            }
-        }
-        return $name
-    }
-
-}
-
-tcl::namespace::eval tomlish::app {
-    variable applist [list encoder decoder test]
-
-    #*** !doctools
-    #[subsection {Namespace tomlish::app}]
-    #[para]
-    #[list_begin definitions]
-
-    proc decoder {args} {
-        #*** !doctools
-        #[call app::[fun decoder] [arg args]]
-        #[para] read toml on stdin until EOF
-        #[para] on error   - returns non-zero exit code and writes error on stderr
-        #[para] on success - returns zero exit code and writes JSON encoding of the data on stdout
-        #[para] This decoder is intended to be compatible with toml-test
-
-        set opts [dict merge [dict create] $args]
-        #fconfigure stdin -encoding utf-8
-        fconfigure stdin -translation binary
-        #Just slurp it all - presumably we are not handling massive amounts of data on stdin.
-        # - even if the input is large, we probably don't gain much (aside from possible memory savings?) by attempting to process input as it arrives.
-        if {[catch {
-            set toml [read stdin]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set j [::tomlish::toml_to_json $toml]
-        } on error {em} {
-            puts stderr "decoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline stdout $j
-        exit 0
-    }
-
-    proc encoder {args} {
-        #*** !doctools
-        #[call app::[fun encoder] [arg args]]
-        #[para] read JSON on stdin until EOF
-        #[para] return non-zero exitcode if JSON data cannot be converted to a valid TOML representation
-        #[para] return zero exitcode and TOML data on stdout if JSON data can be converted.
-        #[para] This encoder is intended to be compatible with toml-test
-
-        set opts [dict merge [dict create] $args]
-        fconfigure stdin -translation binary
-        if {[catch {
-            set json [read stdin]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set toml [::tomlish::json_to_toml $json]
-        } on error {em} {
-            puts stderr "encoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline stdout $toml
-        exit 0
-    }
-
-    proc test {args} {
-        set opts [dict merge [dict create] $args]
-
-        package require test::tomlish
-        if {[dict exists $opts -suite]} {
-            test::tomlish::suite [dict get $opts -suite]
-        }
-        test::tomlish::run
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::app ---}]
-}
-
-proc ::tomlish::appnames {} {
-    set applist [list]
-    foreach cmd [info commands ::tomlish::app::*] {
-        lappend applist [namespace tail $cmd]
-    }
-    return $applist
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace tomlish::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-if {$argc > 0} {
-    puts stderr "argc: $argc args: $argv"
-
-    if {($argc == 1)} {
-        if {[tcl::string::tolower $argv] in {help -help h -h}} {
-            puts stdout "Usage: -app <appname> where appname one of:[tomlish::appnames]"
-            exit 0
-        } else {
-            puts stderr "Argument '$argv' not understood. Try -help"
-            exit 1
-        }
-    }
-    set opts [dict create]
-    set opts [dict merge $opts $argv]
-
-    set opts_understood [list -app ]
-    if {"-app" in [dict keys $opts]} {
-        #Don't vet the remaining opts - as they are interpreted by each app
-    } else {
-        foreach key [dict keys $opts] {
-            if {$key ni $opts_understood} {
-                puts stderr "Option '$key' not understood"
-                exit 1
-            }
-        }
-    }
-    if {[dict exists $opts -app]} {
-        set app [dict get $opts -app]
-        if {$app ni [tomlish::appnames]} {
-            puts stderr "app '[dict get $opts -app]' not found"
-            exit 1
-        }
-        tomlish::app::$app {*}$opts
-    }
-}
-
-##  Ready
-package provide tomlish [namespace eval tomlish {
-    variable pkg tomlish
-    variable version
-    set version 1.1.3
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.4.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.4.tm
deleted file mode 100644
index 33d5b912..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.4.tm
+++ /dev/null
@@ -1,6199 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application tomlish 1.1.4
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin tomlish_module_tomlish 0 1.1.4]
-#[copyright "2024"]
-#[titledesc {tomlish toml parser}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {tomlish}]             [comment {-- Description at end of page heading --}]
-#[require tomlish]
-#[keywords module parsing toml configuration]
-#[description]
-#[para] tomlish is an intermediate representation of toml data in a tree structure (tagged lists representing type information)
-#[para] The design goals are for tomlish to be whitespace and comment preserving ie byte-for byte preservation during roundtrips from toml to tomlish and back to toml
-#[para] The tomlish representation can then be converted to a Tcl dict structure or to other formats such as json,
-#[para] although these other formats are generally unlikely to retain whitespace or comments
-#[para] The other formats also won't preserve roundtripability e.g \t and a literal tab coming from a toml file will be indistinguishable.
-#[para] A further goal is to allow at least a useful subset of in-place editing operations which also preserve whitespace and comments.
-#[para] e.g leaf key value editing, and table reordering/sorting, key-renaming at any level, key insertions/deletions
-#[para] The API for editing (tomldoc object?) may require explicit setting of type if accessing an existing key
-#[para] e.g setting a key that already exists and is a different type (especially if nested structure such as a table or array)
-#[para] will need a -type option (-force ?) to force overriding with another type such as an int.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of tomlish
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by tomlish
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require struct::stack
-package require logger
-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {struct::stack}]
-
-#limit ourselves to clear, destroy, peek, pop, push, rotate, or size  (e.g v 1.3 does not implement 'get')
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    variable types
-
-    #IDEAS:
-    # since get_toml produces tomlish with whitespace/comments intact:
-    # tomldoc object - allow (at least basic?) editing of toml whilst preserving comments & whitespace
-    # - setKey (set leaf only to value) how to specify type? -type option? - whole array vs index into arrays and further nested objects?  - option for raw toml additions?
-    # - separate addKey??
-    # - deleteKey (delete leaf)
-    # - deleteTable (delete table - if only has leaves? - option to delete with child tables?)
-    # - set/add Table? - position in doc based on existing tables/subtables?
-
-    #The tomlish intermediate representation allows things such as sorting the toml document by table name or other re-ordering of tables -
-    # because the tables include subkeys, comments and newlines within their structure - those elements all come along with it nicely during reordering.
-    #The same goes for the first newline following a keyval  e.g  x=1 \ny=2\n\n
-    #The newline is part of the keyval structure so makes reordering easier
-    #example from_toml "a=1\nb=2\n\n\n"
-    #  0 = TOMLISH
-    #  1 = KEY a = {INT 1} {NEWLINE lf}
-    #  2 = NEWLINE lf
-    #  3 = KEY b = {INT 2} {NEWLINE lf}
-    #  4 = NEWLINE lf
-    #  5 = NEWLINE lf
-
-
-    #ARRAY is analogous to a Tcl list
-    #TABLE is analogous to a Tcl dict
-    #WS = inline whitespace
-    #KEY = bare key and value
-    #DQKEY = double quoted key and value
-    #SQKEY = single quoted key and value
-    #ITABLE = inline table (*can* be anonymous table)
-    #         inline table values immediately create a table with the opening brace
-    #         inline tables are fully defined between their braces, as are dotted-key subtables defined within
-    #         No additional subtables or arrays of tables may be defined within an inline table after the ending brace - they must be entirely self-contained
-
-    set tags [list TOMLISH ARRAY TABLE ITABLE TABLEARRAY WS NEWLINE COMMENT DOTTEDKEY KEY DQKEY SQKEY STRING STRINGPART MULTISTRING LITERAL LITERALPART MULTILITERAL INT FLOAT BOOL DATETIME]
-    #removed - ANONTABLE
-    #tomlish v1.0 should accept arbitrary 64-bit signed ints (from -2^63 to 2^63-1)
-    #we will restrict to this range for compatibility for now - although Tcl can handle larger (arbitrarily so?)
-    set min_int -9223372036854775808 ;#-2^63
-    set max_int +9223372036854775807 ;#2^63-1
-
-    proc Dolog {lvl txt} {
-        #return "$lvl -- $txt"
-        set msg "[clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] tomlish '$txt'"
-        puts stderr $msg
-    }
-    logger::initNamespace ::tomlish
-    foreach lvl [logger::levels] {
-        interp alias {} tomlish_log_$lvl {} ::tomlish::Dolog $lvl
-        log::logproc $lvl tomlish_log_$lvl
-    }
-
-    #*** !doctools
-    #[subsection {Namespace tomlish}]
-    #[para] Core API functions for tomlish
-    #[list_begin definitions]
-
-    proc tags {} {
-        return $::tomlish::tags
-    }
-
-    #helper function for to_dict
-    proc _get_keyval_value {keyval_element} {
-        log::notice ">>> _get_keyval_value from '$keyval_element'<<<"
-        set found_value 0
-        #find the value
-        # 3 is the earliest index at which the value could occur (depending on whitespace)
-        set found_sub [list]
-        if {[lindex $keyval_element 2] ne "="} {
-            error "tomlish _get_keyval_value keyval_element doesn't seem to be a properly structured {<keytype> <keydata> = <valuedat>} list"
-        }
-
-        #review
-        if {[uplevel 1 [list info exists tablenames_info]]} {
-            upvar tablenames_info tablenames_info
-        } else {
-            set tablenames_info [dict create] ;#keys are lists {parenttable subtable etc}  corresponding to parenttable.subtable.etc
-        }
-
-        foreach sub [lrange $keyval_element 2 end]  {
-            #note that a barekey/dquotedkey won't occur directly inside a barekey/dquotedkey
-            switch -exact -- [lindex $sub 0] {
-                STRING - LITERAL - MULTISTRING - MULTILITERAL - INT - FLOAT - BOOL - DATETIME - TABLE - ARRAY - ITABLE {
-                    set type [lindex $sub 0]
-                    set value [lindex $sub 1]
-                    set found_sub $sub
-                    incr found_value 1
-                }
-                default {}
-            }
-        }
-        if {!$found_value} {
-            error "tomlish Failed to find value element in KEY. '$keyval_element'"
-        }
-        if {$found_value > 1} {
-            error "tomlish Found multiple value elements in KEY, expected exactly one. '$keyval_element'"
-        }
-
-        switch -exact -- $type {
-            INT - FLOAT - BOOL - DATETIME {
-                #simple (non-container, no-substitution) datatype
-                set result [list type $type value $value]
-            }
-            STRING - STRINGPART {
-                set result [list type $type value [::tomlish::utils::unescape_string $value]]
-            }
-            LITERAL - LITERALPART {
-                #REVIEW
-                set result [list type $type value $value]
-            }
-            TABLE {
-                #invalid?
-                error "tomlish _get_keyval_value invalid to have type TABLE on rhs of ="
-            }
-            ITABLE {
-                #This one should not be returned as a type <tag> value <something> structure!
-                #
-                set result [::tomlish::to_dict [list $found_sub]]
-            }
-            ARRAY {
-                #we need to recurse to get the corresponding dict for the contained item(s)
-                #pass in the whole $found_sub - not just the $value!
-                set prev_tablenames_info    $tablenames_info
-                set tablenames_info     [dict create]
-                set result [list type $type value [::tomlish::to_dict [list $found_sub]]]
-                set tablenames_info     $prev_tablenames_info
-            }
-            MULTISTRING - MULTILITERAL {
-                #review - mapping these to STRING might make some conversions harder?
-                #if we keep the MULTI<type> - we know we have to look for newlines for example when converting to json
-                #without specific types we'd have to check every STRING - and lose info about how best to map chars within it
-                set result [list type $type value [::tomlish::to_dict [list $found_sub]]]
-            }
-            default {
-                error "tomlish Unexpected value type '$type' found in keyval '$keyval_element'"
-            }
-        }
-        return $result
-    }
-
-    proc _get_dottedkey_info {dottedkeyrecord} {
-        set key_hierarchy [list]
-        set key_hierarchy_raw [list]
-        if {[lindex $dottedkeyrecord 0] ne "DOTTEDKEY"} {
-            error "tomlish _get_dottedkey_info error. Supplied list doesn't appear to be a DOTTEDKEY (tag: [lindex $dottedkeyrecord 0])"
-        }
-        set compoundkeylist [lindex $dottedkeyrecord 1]
-        set expect_sep 0
-        foreach part $compoundkeylist {
-            set parttag [lindex $part 0]
-            if {$parttag eq "WS"} {
-                continue
-            }
-            if {$expect_sep} {
-                if {$parttag ne "DOTSEP"} {
-                    error "DOTTEDKEY missing dot separator between parts. '$dottedkeyrecord'"
-                }
-                set expect_sep 0
-            } else {
-                set val [lindex $part 1]
-                switch -exact -- $parttag {
-                    KEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw $val
-                    }
-                    DQKEY {
-                        lappend key_hierarchy [::tomlish::utils::unescape_string $val]
-                        lappend key_hierarchy_raw \"$val\"
-                    }
-                    SQKEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw "'$val'"
-                    }
-                    default {
-                        error "DOTTED key unexpected part '$parttag' - ensure dot separator is between key parts. '$item'"
-                    }
-                }
-                set expect_sep 1
-            }
-        }
-        return [dict create keys $key_hierarchy keys_raw $key_hierarchy_raw]
-    }
-
-
-
-    #to_dict is a *basic* programmatic datastructure for accessing the data.
-    # produce a dictionary of keys and values from a tomlish tagged list.
-    # to_dict is primarily for reading toml data.
-    #Extraneous (not within quoted sections) whitespace and comments are not preserved in this structure,
-    # so a roundtrip from toml to this datastructure and back to toml will lose whitespace formatting and comments.
-    # creating/changing toml values can be done directly on a tomlish list if preserving (or adding) formatting/comments is desired.
-    #A separate package 'tomlish::object' may be needed to allow easier programmatic creating/updating/deleting of data elements whilst preserving (or adding or selectively deleting/editing) such formatting.
-    #
-
-    #within an ARRAY, we store  a list of items such as plain dicts (possibly empty) and {type <tag> value <val>} for simple types
-    #(ARRAYS can be mixed type)
-    #This means our dict structure should have only ARRAY and simple types which need to be in {type <tag> value <val>} form
-    #A dict within an array encodeded as a type ITABLE value <etc> should also parse - but is the unpreferred form - REVIEW test?
-
-    #Namespacing?
-    #ie note the difference:
-    #[Data]
-    #temp = { cpu = 79.5, case = 72.0}
-    # versus
-    #[Data]
-    #temps = [{cpu = 79.5, case = 72.0}]
-    proc to_dict {tomlish} {
-        package require dictn
-
-        #keep track of which tablenames have already been directly defined,
-        # so we can raise an error to satisfy the toml rule: 'You cannot define any key or table more than once. Doing so is invalid'
-        #Note that [a] and then [a.b] is ok if there are no subkey conflicts - so we are only tracking complete tablenames here.
-        #we don't error out just because a previous tablename segment has already appeared.
-
-        #Declaring, Creating, and Defining Tables
-        #https://github.com/toml-lang/toml/issues/795
-        #(update - only Creating and Defining are relevant terminology)
-
-        #review
-        #tablenames_info keys created, defined, createdby, definedby, closedby
-
-                #consider the following 2 which are legal:
-                #[table]     #'table' created, defined=open definedby={header table}
-                #x.y = 3
-                #[table.x.z] #'table' defined=closed closedby={header table.x.z}, 'table.x' created, 'table.x.z' created defined=open definedby={header table.x.z}
-                #k= 22
-                #            #'table.x.z' defined=closed closedby={eof eof}
-
-                #equivalent datastructure
-
-                #[table]     #'table' created, defined=open definedby={header table}
-                #[table.x]   #'table' defined=closed closedby={header table.x}, 'table.x' created defined=open definedby={header table.x}
-                #y = 3
-                #[table.x.z] #'table.x' defined=closed closedby={header table.x.z}, 'table.x.z' created defined=open definedby={header table.x.z}
-                #k=22
-
-                #illegal
-                #[table]       #'table' created and defined=open
-                #x.y = 3       #'table.x' created first keyval pair defined=open definedby={keyval x.y = 3}
-                #[table.x.y.z] #'table' defined=closed, 'table.x' closed because parent 'table' closed?, 'table.x.y' cannot be created
-                #k = 22
-                #
-                ## - we would fail on encountering table.x.y because only table and table.x are effectively tables - but that table.x is closed should be detected (?)
-
-                #illegal
-                #[table]
-                #x.y = {p=3}
-                #[table.x.y.z]
-                #k = 22
-                ## we should fail because y is an inline table which is closed to further entries
-
-            #note: it is not safe to compare normalized tablenames using join!
-            # e.g  a.'b.c'.d  is not the same as a.b.c.d
-            # instead compare {a b.c d} with {a b c d}
-            # Here is an example where the number of keys is the same, but they must be compared as a list, not a joined string.
-            #'a.b'.'c.d.e'  vs  'a.b.c'.'d.e'
-            #we need to normalize the tablenames seen so that {"x\ty"} matches {"x<rawtab>y"}
-
-
-
-        if {[uplevel 1 [list info exists tablenames_info]]} {
-            upvar tablenames_info tablenames_info
-        } else {
-            set tablenames_info [dict create] ;#keyed on tablepath each of which is a list such as {config subgroup etc} (corresponding to config.subgroup.etc)
-        }
-
-
-        log::info "---> to_dict  processing '$tomlish'<<<"
-        set items $tomlish
-
-        foreach lst $items {
-            if {[lindex $lst 0] ni $::tomlish::tags} {
-                error "supplied string does not appear to be toml parsed into a tomlish tagged list. Run tomlish::decode::toml on the raw toml data to produce a tomlish list"
-            }
-        }
-
-        if {[lindex $tomlish 0] eq "TOMLISH"} {
-            #ignore TOMLISH tag at beginning
-            set items [lrange $tomlish 1 end]
-        }
-
-        set datastructure [dict create]
-        foreach item $items {
-            set tag [lindex $item 0]
-            #puts "...> item:'$item' tag:'$tag'"
-            switch -exact -- $tag {
-                KEY - DQKEY - SQKEY {
-                    log::debug "---> to_dict item: processing $tag: $item"
-                    set key [lindex $item 1]
-                    if {$tag eq "DQKEY"} {
-                        set key [::tomlish::utils::unescape_string $key]
-                    }
-                    #!todo - normalize key. (may be quoted/doublequoted)
-
-                    if {[dict exists $datastructure $key]} {
-                        error "Duplicate key '$key'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-
-                    #lassign [_get_keyval_value $item] type val
-                    set keyval_dict [_get_keyval_value $item]
-                    dict set datastructure $key $keyval_dict
-                }
-                DOTTEDKEY {
-                    log::debug "---> to_dict item processing $tag: $item"
-                    set dkey_info                   [_get_dottedkey_info $item]
-                    set dotted_key_hierarchy        [dict get $dkey_info keys]
-
-                    #a.b.c = 1
-                    #table_key_hierarchy -> a b
-                    #tleaf -> c
-                    if {[llength $dotted_key_hierarchy] == 0} {
-                        #empty?? probably invalid. review
-                        #This is different to '' = 1  or ''.'' = 1 which have lengths 1 and 2 respectively
-                        error "DOTTED key has no parts - invalid?  '$item'"
-                    } elseif {[llength $dotted_key_hierarchy] == 1} {
-                        #dottedkey is only a key - no table component
-                        set table_hierarchy [list]
-                        set tleaf [lindex $dotted_key_hierarchy 0]
-                    } else {
-                        set table_hierarchy [lrange $dotted_key_hierarchy 0 end-1]
-                        set tleaf [lindex $dotted_key_hierarchy end]
-                    }
-
-                    #ensure empty tables are still represented in the datastructure
-                    #review - this seems unnecessary?
-                    set pathkeys [list]
-                    foreach k $table_hierarchy {
-                        lappend pathkeys $k
-                        if {![dict exists $datastructure {*}$pathkeys]} {
-                            dict set datastructure {*}$pathkeys [list]
-                        } else {
-                            tomlish::log::notice "to_dict datastructure at key path $pathkeys already had data: [dict get $datastructure {*}$pathkeys]"
-                        }
-                    }
-                    #review?
-                    if {[dict exists $datastructure {*}$table_hierarchy $tleaf]} {
-                        error "Duplicate key '$table_hierarchy $tleaf'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-
-                    #JMN test 2025
-                    if {[llength $table_hierarchy]} {
-                        dictn incr tablenames_info [list $table_hierarchy seencount]
-                    }
-
-                    set keyval_dict [_get_keyval_value $item]
-                    if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                        set t [list {*}$table_hierarchy $tleaf]
-                        dictn incr tablenames_info [list $t seencount]
-                        dictn set tablenames_info [list $t closed] 1
-
-                        #review - item is an ITABLE - we recurse here without datastructure context :/
-                        #overwriting keys? todo ?
-                        dict set datastructure {*}$table_hierarchy $tleaf $keyval_dict
-                    } else {
-                        dict set datastructure {*}$table_hierarchy $tleaf $keyval_dict
-                    }
-
-                }
-                TABLEARRAY {
-                    set tablename [lindex $item 1]
-                    log::debug "---> to_dict processing item TABLENAME (name: $tablename): $item"
-                    set norm_segments [::tomlish::utils::tablename_split $tablename true] ;#true to normalize
-                    #we expect repeated tablearray entries - each adding a sub-object to the value, which is an array/list.
-
-                }
-                TABLE  {
-                    set tablename [lindex $item 1]
-                    log::debug "---> to_dict processing item TABLE (name: $tablename): $item"
-                    #set tablename [::tomlish::utils::tablename_trim $tablename]
-                    set norm_segments [::tomlish::utils::tablename_split $tablename true] ;#true to normalize
-
-                    set T_DEFINED [dictn getdef $tablenames_info [list $norm_segments defined] NULL]
-                    if {$T_DEFINED ne "NULL"} {
-                        #our tablename e.g [a.b.c.d] declares a space to 'define' subkeys - but there has already been a definition space for this path
-                        set msg "Table name $tablename  has already been directly defined in the toml data. Invalid"
-                        append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                        error $msg
-                    }
-
-
-                    set name_segments [::tomlish::utils::tablename_split $tablename 0] ;#unnormalized e.g ['a'."b".c.d] -> 'a' "b" c d
-                    #results of tablename_split <name> 0 are 'raw' - ie some segments may be enclosed in single or double quotes.
-
-
-                    set supertable [list]
-                    ##############
-                    # [a.b.c.d]
-                    # norm_segments = {a b c d}
-                    #check a {a b} {a b c} <---- supertables of a.b.c.d
-                    ##############
-                    foreach normseg [lrange $norm_segments 0 end-1] {
-                        lappend supertable $normseg
-                        if {![dictn exists $tablenames_info [list $supertable type]]} {
-                            #supertable with this path doesn't yet exist
-                            if {[dict exists $datastructure {*}$supertable]} {
-                                #There is data though - so it must have been created as a keyval
-                                set msg "Supertable [join $supertable .] of table name $tablename already has data - invalid"
-                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                error $msg
-                            } else {
-                                #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                                dictn set tablenames_info [list $supertable type] header
-                                #ensure empty tables are still represented in the datastructure
-                                dict set datastructure {*}$supertable [list]
-                            }
-                        } else {
-                            #supertable has already been created - and maybe defined - but even if defined we can add subtables
-                        }
-                    }
-                    #table [a.b.c.d] hasn't been defined - but may have been 'created' already by a longer tablename
-                    # - or may have existing data from a keyval
-                    if {![dictn exists $tablenames_info [list $norm_segments type]]} {
-                        if {[dict exists $datastructure {*}$norm_segments]} {
-                            set msg "Table name $tablename already has data - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            error $msg
-                        }
-                        #no data or previously created table
-                        dictn set tablenames_info [list $norm_segments type] header
-
-                        #We are 'defining' this table's keys and values here (even if empty)
-                        dict set datastructure {*}$norm_segments [list] ;#ensure table still represented in datastructure even if we add no keyvals here
-                    }
-                    dictn set tablenames_info [list $norm_segments defined] open
-                    log::debug ">>> to_dict >>>>>>>>>>>>>>>>> normalized table key hierarchy    : $norm_segments"
-
-                    #now add the contained elements
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> todict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [_get_dottedkey_info $element]
-                                #e.g1 keys {x.y y} keys_raw {'x.y' "a\tb"}   keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-                                #e.g2 keys {x.y y} keys_raw {{"x.y"} "a\tb"} keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-                                set dotted_key_hierarchy        [dict get $dkey_info keys]
-                                set dkeys                       [lrange $dotted_key_hierarchy 0 end-1]
-                                set leaf_key                    [lindex $dotted_key_hierarchy end]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set test_keys $norm_segments
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$norm_segments {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$norm_segments $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                #keyval_dict is either a {type <tomltag> value <whatever>}
-                                #or the result from parsing an arbitrary dict from an inline table - which could theoretically look the same at the topmost level
-                                #punk::dict::is_tomlish_typeval can distinguish
-                                puts stdout "to_dict>>> $keyval_dict"
-                                dict set datastructure {*}$norm_segments {*}$dkeys $leaf_key $keyval_dict
-                                #JMN 2025
-                                #lappend tablenames_info [list {*}$norm_segments {*}$dkeys]
-                                set tkey [list {*}$norm_segments {*}$dkeys]
-                                dictn incr tablenames_info [list $tkey seencount]
-
-                                if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                                    #the value is either empty or or a dict structure with arbitrary (from-user-data) toplevel keys
-                                    # inner structure will contain {type <tag> value <etc>} if all leaves are not empty ITABLES
-                                    set tkey [list {*}$norm_segments {*}$dkeys $leaf_key]
-                                    #lappend tablenames_info [list {*}$norm_segments  {*}$dkeys $leaf_key]
-                                    dictn incr tablenames_info [list $tkey seencount]
-                                    #if the keyval_dict is not a simple type x value y - then it's an inline table ?
-                                    #if so - we should add the path to the leaf_key as a closed table too - as it's not allowed to have more entries added.
-                                    dictn set tablenames_info [list $tkey closed] 1
-                                }
-
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in table context. Expected only DOTTEDKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                    #now make sure we add an empty value if there were no contained elements!
-                    #!todo.
-                }
-                ITABLE {
-                    #SEP???
-                    set datastructure [list]
-                    foreach element [lrange $item 1 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [_get_dottedkey_info $element]
-                                set dotted_key_hierarchy       [dict get $dkey_info keys]
-                                set leaf_key [lindex $dotted_key_hierarchy end]
-                                set dkeys [lrange $dotted_key_hierarchy 0 end-1]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set table_keys [list] ;#We don't know the context - next level up will have to check for key collisions?
-                                set test_keys $table_keys
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$table_keys {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$table_keys $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                dict set datastructure {*}$table_keys {*}$dkeys $leaf_key $keyval_dict
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in ITABLE context. Expected only KEY,DQKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                }
-                ARRAY {
-                    #arrays in toml are allowed to contain mixtures of types
-                    set datastructure [list]
-                    log::debug "--> processing array: $item"
-
-                    foreach element [lrange $item 1 end]  {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            INT - FLOAT - BOOL - DATETIME {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            STRING {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::utils::unescape_string $value]]
-                            }
-                            LITERAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            ITABLE {
-                                #anonymous table
-                                #lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                                lappend datastructure  [::tomlish::to_dict [list $element]] ;#store itables within arrays as raw dicts (possibly empty)
-                            }
-                            TABLE {
-                                #invalid? shouldn't be output from from_dict - but could manually be constructed as such?  review
-                                #doesn't make sense as table needs a name?
-                                #take as synonym for ITABLE?
-                                error "to_dict TABLE within array unexpected"
-                            }
-                            ARRAY - MULTISTRING - MULTILITERAL {
-                                #set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                            }
-                            WS - SEP - NEWLINE - COMMENT {
-                                #ignore whitespace, commas, newlines and comments
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in array"
-                            }
-                        }
-                    }
-                }
-                MULTILITERAL {
-                    #triple squoted string
-                    #first newline stripped only if it is the very first element
-                    #(ie *immediately* following the opening delims)
-                    #All whitespace other than newlines is within LITERALPARTS
-                    # -------------------------------------------------------------------------
-                    #todo - consider extension to toml to allow indent-aware multiline literals
-                    # how - propose as issue in toml github? Use different delim? e.g ^^^ ?
-                    #e.g
-                    # xxx=?'''abc
-                    #         def
-                    #          etc
-                    #         '''
-                    #  - we would like to trimleft each line to the column following the opening delim
-                    # -------------------------------------------------------------------------
-
-                    log::debug "---> todict processing multiliteral: $item"
-                    set parts [lrange $item 1 end]
-                    if {[lindex $parts 0 0] eq "NEWLINE"} {
-                        set parts [lrange $parts 1 end] ;#skip it
-                    }
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            LITERALPART {
-                                append stringvalue [lindex $element 1]
-                            }
-                            NEWLINE {
-                                set val [lindex $element 1]
-                                if {$val eq "nl"} {
-                                    append stringvalue \n
-                                } else {
-                                    append stringvalue \r\n
-                                }
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                MULTISTRING {
-                    #triple dquoted string
-                    log::debug "---> to_dict processing multistring: $item"
-                    set stringvalue ""
-                    set idx 0
-                    set parts [lrange $item 1 end]
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        #We use STRINGPART in the tomlish representation as a distinct element to STRING - which would imply wrapping quotes to be reinserted
-                        switch -exact -- $type {
-                            STRING {
-                                #todo - do away with STRING ?
-                                #we don't build MULTISTRINGS containing  STRING - but should we accept it?
-                                tomlish::log::warn "double quoting a STRING found in MULTISTRING - should be STRINGPART?"
-                                append stringvalue "\"[::tomlish::utils::unescape_string [lindex $element 1]]\""
-                            }
-                            STRINGPART {
-                                append stringvalue [::tomlish::utils::unescape_string [lindex $element 1]]
-                            }
-                            CONT {
-                                #When the last non-whitespace character on a line is an unescaped backslash,
-                                #it will be trimmed along with all whitespace (including newlines) up to the next non-whitespace character or closing delimiter
-                                # review - we allow some whitespace in stringpart elements - can a stringpart ever be all whitespace?
-                                set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                if {$next_nl == -1} {
-                                    #last line
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"  ;#add the sep
-                                    } else {
-                                        #skip over ws without emitting
-                                        set idx [llength $parts]
-                                    }
-                                } else {
-                                    set parts_til_nl [lrange $parts 0 $next_nl-1]
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts_til_nl WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"
-                                    } else {
-                                        #skip over ws on this line
-                                        set idx $next_nl
-                                        #then have to check each subsequent line until we get to first non-whitespace
-                                        set trimming 1
-                                        while {$trimming && $idx < [llength $parts]} {
-                                            set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                            if {$next_nl == -1} {
-                                                #last line
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                } else {
-                                                    set idx [llength $parts]
-                                                }
-                                                set trimming 0
-                                            } else {
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not [lrange $parts 0 $next_nl-1] WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                    set trimming 0
-                                                } else {
-                                                    set idx $next_nl
-                                                    #keep trimming
-                                                }
-                                            }
-                                        }
-                                    }
-                                }
-                            }
-                            NEWLINE {
-                                #if newline is first element - it is not part of the data of a multistring
-                                if {$idx > 0} {
-                                    set val [lindex $element 1]
-                                    if {$val eq "nl"} {
-                                        append stringvalue \n
-                                    } else {
-                                        append stringvalue \r\n
-                                    }
-                                }
-                            }
-                            WS {
-                                append stringvalue [lindex $element 1]
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                WS - COMMENT - NEWLINE {
-                    #ignore
-                }
-                default {
-                    error "Unexpected tag '$tag' in Tomlish list '$tomlish'"
-                }
-            }
-        }
-        return $datastructure
-    }
-
-
-    proc _from_dictval_tomltype {parents tablestack keys typeval} {
-        set type [dict get $typeval type]
-        set val  [dict get $typeval value]
-        switch -- $type {
-            ARRAY {
-                set subitems [list]
-                foreach item $val {
-                    lappend subitems [_from_dictval [list {*}$parents ARRAY] $tablestack $keys $item] SEP
-                }
-                if {[lindex $subitems end] eq "SEP"} {
-                    set subitems [lrange $subitems 0 end-1]
-                }
-                return [list ARRAY {*}$subitems]
-            }
-            ITABLE {
-                if {$val eq ""} {
-                    return ITABLE
-                } else {
-                    return [_from_dictval [list {*}$parents ITABLE] $tablestack $keys $val]
-                }
-            }
-            MULTISTRING {
-                #value is a raw string that isn't encoded as tomlish
-                #create a valid toml snippet with the raw value and decode it to the proper tomlish MULTISTRING format
-                #We need to convert controls in $val to escape sequences - except for newlines
-                #
-                #consider an *option* to reformat for long lines? (perhaps overcomplex - byte equiv - but may fold in ugly places)
-                #we could use a line-length limit to decide when to put in a "line ending backslash"
-                #and even format it with a reasonable indent so that proper CONT and WS entries are made (?) REVIEW
-                #
-                #TODO
-                set tomlpart "x=\"\"\"\\\n"
-                append tomlpart $val "\"\"\""
-                set tomlish [tomlish::decode::toml $tomlpart]
-                #e.g if val = " etc\nblah"
-                #TOMLISH {DOTTEDKEY {{KEY x}} = {MULTISTRING CONT {NEWLINE LF} {WS { }} {STRINGPART etc} {NEWLINE lf} {STRINGPART blah} } }
-                #lindex 1 3 is the MULTISTRING tomlish list
-                return [lindex $tomlish 1 3]
-            }
-            MULTILITERAL {
-                #MLL string can contain newlines - but still no control chars
-                #todo - validate
-                set tomlpart "x='''\n"
-                append tomlpart $val '''
-                set tomlish [tomlish::decode::toml $tomlpart]
-                return [lindex $tomlish 1 3]
-            }
-            LITERAL {
-                #from v1.0 spec - "Control characters other than tab are not permitted in a literal string"
-                #(This rules out raw ANSI SGR - which is somewhat restrictive - but perhaps justified for a config format
-                # as copy-pasting ansi to a config value is probably not always wise, and it's not something that can be
-                # easily input via a text editor. ANSI can go in Basic strings using the \e escape if that's accepted v1.1?)
-                #we could choose to change the type to another format here when encountering invalid chars - but that seems
-                #like too much magic. We elect to error out and require the dict to have valid data for the types it specifies.
-                if {[string first ' $val] >=0} {
-                    error "_from_dictval_tomltype error: single quote found in LITERAL - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                #detect control chars other than tab
-                #for this we can use rawstring_to_Bstring_with_escaped_controls - even though this isn't a Bstring
-                #we are just using the map to detect a difference.
-                set testval [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]
-                if {$testval ne $val} {
-                    #some escaping would have to be done if this value was destined for a Bstring...
-                    #therefor this string has controls and isn't suitable for a LITERAL according to the specs.
-                    error "_from_dictval_tomltype error: control chars (other than tab) found in LITERAL value - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list LITERAL $val]
-            }
-            STRING {
-                return [list STRING [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]]
-            }
-            INT {
-                if {![::tomlish::utils::is_int $val]} {
-                    error "_from_dictval_tomltype error: bad INT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list INT $val]
-            }
-            FLOAT {
-                if {![::tomlish::utils::is_float $val]} {
-                    error "_from_dictval_tomltype error: bad FLOAT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list FLOAT $val]
-            }
-            default {
-                if {$type ni [::tomlish::tags]} {
-                    error "_from_dictval_tomltype error: Unrecognised typename '$type' in {type <typename> value <value>} - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list $type $val]
-            }
-        }
-    }
-
-    proc _from_dictval {parents tablestack keys vinfo} {
-        set k [lindex $keys end]
-        if {[regexp {\s} $k] || [string first . $k] >= 0} {}
-        if {![::tomlish::utils::is_barekey $k]} {
-            #Any dot in the key would have been split by to_dict - so if it's present here it's part of this key - not a level separator!
-            #requires quoting
-            #we'll use a basic mechanism for now to determine the type of quoting - whether it has any single quotes or not.
-            #todo - more?
-            #For keys - we currently (2025) are only allowed barekeys,basic strings and literal strings. (no multiline forms)
-            if {[string first ' $k] >=0} {
-                #basic string
-            } else {
-                #literal string
-                set K_PART [list SQKEY $k]
-            }
-        } else {
-            set K_PART [list KEY $k]
-        }
-        puts stderr "---parents:'$parents' keys:'$keys' vinfo: $vinfo---"
-        puts stderr "---tablestack: $tablestack---"
-        set result [list]
-        set lastparent [lindex $parents end]
-        if {$lastparent in [list "" do_inline]} {
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                set type [dict get $vinfo type]
-                #treat ITABLE differently?
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result DOTTEDKEY [list $K_PART {WS { }}] = {WS { }} $sublist {NEWLINE lf}
-            } else {
-                #set  result [list TABLE $k {NEWLINE lf}]
-                if {$vinfo ne ""} {
-
-                    #set result [list DOTTEDKEY [list [list KEY $k]] = ]
-                    #set records [list ITABLE]
-
-                    set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-
-                    if {$lastparent eq "do_inline"} {
-                        set result [list DOTTEDKEY [list $K_PART] =]
-                        set records [list ITABLE]
-                    } else {
-                        #review - quoted k ??
-                        set result [list TABLE $k {NEWLINE lf}]
-                        set tablestack [list {*}$tablestack [list T $k]]
-                        set records [list]
-                    }
-
-
-
-                    set lastidx [expr {[dict size $vinfo] -1}]
-                    set dictidx 0
-                    dict for {vk vv} $vinfo {
-                        if {[regexp {\s} $vk] || [string first . $vk] >= 0} {
-                            set VK_PART [list SQKEY $vk]
-                        } else {
-                            set VK_PART [list KEY $vk]
-                        }
-                        if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                            #type x value y
-                            set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                            set record [list DOTTEDKEY [list $VK_PART {WS { }}] = {WS { }} $sublist]
-                        } else {
-                            if {$vv eq ""} {
-                                #experimental
-                                if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    puts stderr "_from_dictval could uninline KEY $vk (tablestack:$tablestack)"
-                                    #set tname [tomlish::dict::name_from_tablestack [list {*}$tablestack [list T $vk]]]
-                                    set tname [join [list {*}$keys $vk] .]
-                                    set record [list TABLE $tname {NEWLINE lf}]
-                                    set tablestack [list {*}$tablestack [list T $vk]]
-                                } else {
-                                    set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    set tablestack [list {*}$tablestack [list I $vk]]
-                                }
-                            } else {
-                                if { 0 } {
-                                    #experiment.. sort of getting there.
-                                    if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                        puts stderr "_from_dictval could uninline2 KEYS [list {*}$keys $vk] (tablestack:$tablestack)"
-                                        set tname [join [list {*}$keys $vk] .]
-                                        set record [list TABLE $tname {NEWLINE lf}]
-                                        set tablestack [list {*}$tablestack [list T $vk]]
-
-                                        #review - todo?
-                                        set dottedkey_value [_from_dictval [list {*}$parents TABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        lappend record {*}$dottedkey_value
-
-                                    } else {
-                                        set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                    }
-                                } else {
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                        }
-                        if {$dictidx != $lastidx} {
-                            #lappend record SEP
-                            if {$lastparent eq "do_inline"} {
-                                lappend record SEP
-                            } else {
-                                lappend record {NEWLINE lf}
-                            }
-                        }
-                        lappend records $record
-                        incr dictidx
-                    }
-                    if {$lastparent eq "do_inline"} {
-                        lappend result $records {NEWLINE lf}
-                    } else {
-                        lappend result {*}$records {NEWLINE lf}
-                    }
-                } else {
-                    if {$lastparent eq "do_inline"} {
-                        lappend result DOTTEDKEY [list [list KEY $k]] = ITABLE {NEWLINE lf}
-                    } else {
-                        lappend result TABLE $k {NEWLINE lf}
-                    }
-                }
-            }
-        } else {
-            #lastparent is not toplevel "" or "do_inline"
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                #type x value y
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result {*}$sublist
-            } else {
-                if {$lastparent eq "TABLE"} {
-                    #review
-                    dict for {vk vv} $vinfo {
-                        set dottedkey_value [_from_dictval [list {*}$parents DOTTEDKEY] $tablestack [list {*}$keys $vk] $vv]
-                        lappend result [list DOTTEDKEY [list [list KEY $vk]] = $dottedkey_value {NEWLINE lf}]
-                    }
-                } else {
-                    if {$vinfo ne ""} {
-                        set lastidx [expr {[dict size $vinfo] -1}]
-                        set dictidx 0
-                        set sub [list]
-                        #REVIEW
-                        #set result $lastparent ;#e.g sets ITABLE
-                        set result ITABLE
-                        set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-                        dict for {vk vv} $vinfo {
-                            if {[regexp {\s} $vk] || [string first . $vk] >=0} {
-                                set VK_PART [list SQKEY $vk]
-                            } else {
-                                set VK_PART [list KEY $vk]
-                            }
-                            if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                                #type x value y
-                                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                                set record [list DOTTEDKEY [list $VK_PART] = $sublist]
-                            } else {
-                                if {$vv eq ""} {
-                                    #can't just uninline at this level
-                                    #we need a better method to query main dict for uninlinability at each level
-                                    # (including what's been inlined already)
-                                    #if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    #    puts stderr "_from_dictval uninline2 KEY $keys"
-                                    #    set tname [join [list {*}$keys $vk] .]
-                                    #    set record [list TABLE $tname {NEWLINE lf}]
-                                    #    set tablestack [list {*}$tablestack [list T $vk]]
-                                    #} else {
-                                        set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    #}
-                                } else {
-                                    #set sub [_from_dictval ITABLE $vk $vv]
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    #set record [list DOTTEDKEY [list $VK_PART] = ITABLE $dottedkey_value]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                            if {$dictidx != $lastidx} {
-                                lappend record SEP
-                            }
-                            lappend result $record
-                            incr dictidx
-                        }
-                    } else {
-                        puts stderr "table x-1"
-                        lappend result DOTTEDKEY [list $K_PART] = ITABLE
-                    }
-                }
-            }
-        }
-        return $result
-    }
-
-
-    proc from_dict {d} {
-        #consider:
-        #   t1={a=1,b=2}
-        #    x = 1
-        #If we represent t1 as an expanded table we get
-        # [t1]
-        # a=1
-        # b=2
-        # x=1
-        # --- which is incorrect - as x was a toplevel key like t1!
-        #This issue doesn't occur if x is itself an inline table
-        #   t1={a=1,b=2}
-        #   x= {no="problem"}
-        #
-        # (or if we were to reorder x to come before t1)
-
-        #As the dictionary form doesn't distinguish the structure used to create tables {[table1]\nk=v} vs inline {table1={k=v}}
-        #Without a solution, from_dict would have to always produce the inline form for toplevel tables unless we allowed re-ordering,
-        #which is unpreferred here.
-
-        #A possible solution:
-        #scan the top level to see if all (trailing) elements are themselves dicts
-        # (ie not of form {type XXX value yyy})
-        #
-        # A further point is that if all root level values are at the 'top' - we can treat lower table-like structures as {[table]} elements
-        #ie we don't need to force do_inline if all the 'simple' keys are before any compound keys
-
-        #set root_has_values 0
-        #approach 1) - the naive approach - forces inline when not always necessary
-        #dict for {k v} $d {
-        #    if {[llength $v] == 4 && [lindex $v 0] eq "type"} {
-        #        set root_has_values 1
-        #        break
-        #    }
-        #}
-
-
-        #approach 2) - track the position of last {type x value y} in the dictionary built by to_dict
-        # - still not perfect. Inlines dotted tables unnecessarily
-        #This means from_dict doesn't produce output optimal for human editing.
-        set last_simple [tomlish::dict::last_tomltype_posn $d]
-
-
-        ## set parent "do_inline" ;#a value used in _from_dictval to distinguish from "" or other context based parent values
-        #Any keys that are themselves tables - will need to be represented inline
-        #to avoid reordering, or incorrect assignment of plain values to the wrong table.
-
-        ## set parent ""
-        #all toplevel keys in the dict structure can represent subtables.
-        #we are free to use {[tablename]\n} syntax for toplevel elements.
-
-
-        set tomlish [list TOMLISH]
-        set dictposn 0
-        set tablestack [list [list T root]] ;#todo
-        dict for {t tinfo} $d {
-            if {$last_simple > $dictposn} {
-                set parents [list do_inline]
-            } else {
-                set parents [list ""]
-            }
-            set keys [list $t]
-            set trecord [_from_dictval $parents $tablestack $keys $tinfo]
-            lappend tomlish $trecord
-            incr dictposn
-        }
-        return $tomlish
-    }
-
-    proc json_to_toml {json} {
-        #*** !doctools
-        #[call [fun json_to_toml] [arg json]]
-        #[para]
-
-        set tomlish [::tomlish::from_json $json]
-        set toml [::tomlish::to_toml $tomlish]
-    }
-
-    #TODO use huddle?
-    proc from_json {json} {
-        #set jstruct [::tomlish::json_struct $json]
-        #return [::tomlish::from_json_struct $jstruct]
-        package require huddle
-        package require huddle::json
-        set h [huddle::json::json2huddle parse $json]
-
-    }
-
-    proc from_json_struct {jstruct} {
-        package require fish::json_toml
-        return [fish::json_toml::jsonstruct2tomlish $jstruct]
-    }
-
-    proc toml_to_json {toml} {
-        set tomlish [::tomlish::from_toml $toml]
-        return [::tomlish::get_json $tomlish]
-    }
-
-    proc get_json {tomlish} {
-        package require fish::json
-        set d [::tomlish::to_dict $tomlish]
-        #return [::tomlish::dict_to_json $d]
-        return [fish::json::from "struct" $d]
-    }
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-namespace eval tomlish::build {
-    #STRING,INT,FLOAT,BOOL, DATETIME - simple wrappers for completeness
-    # take a value of the appropriate type and wrap as a tomlish tagged item
-    proc STRING {s} {
-        return [list STRING [::tomlish::utils::rawstring_to_Bstring_with_escaped_controls $s]]
-    }
-    proc LITERAL {litstring} {
-        error todo
-    }
-
-    proc INT {i} {
-        #whole numbers, may be prefixed with a + or -
-        #Leading zeros are not allowed
-        #Hex,octal binary forms are allowed (toml 1.0)
-        #We will error out on encountering commas, as commas are interpreted differently depending on locale (and don't seem to be supported in the toml spec anyway)
-        #!todo - Tcl can handle bignums - bigger than a 64bit signed long as specified in toml.
-        #      - We should probably raise an error for number larger than this and suggest the user supply it as a string?
-        if {[tcl::string::last , $i] > -1} {
-            error "Unable to interpret '$i' as an integer. Use underscores if you need a thousands separator [::tomlish::parse::report_line]"
-        }
-        if {![::tomlish::utils::int_validchars $i]} {
-            error "Unable to interpret '$i' as an integer. Only 0-9 + 1 _ characters are acceptable. [::tomlish::parse::report_line]"
-        }
-
-        if {[::tomlish::utils::is_int $i]} {
-            return [list INT $i]
-        } else {
-            error "'$i' is not a valid integer as per the Toml spec. [::tomlish::parse::report_line]"
-        }
-
-    }
-
-    proc FLOAT {f} {
-        #convert any non-lower case variants of special values to lowercase for Toml
-        if {[::tcl::string::tolower $f] in {nan +nan -nan inf +inf -inf}} {
-            return [list FLOAT [tcl::string::tolower $f]]
-        }
-        if {[::tomlish::utils::is_float $f]} {
-            return [list FLOAT $f]
-        } else {
-            error "Unable to interpret '$f' as Toml float. Check your input, or check that tomlish is able to handle all Toml floats properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc DATETIME {str} {
-        if {[::tomlish::utils::is_datetime $str]} {
-            return [list DATETIME $str]
-        } else {
-            error "Unable to interpret '$str' as Toml datetime. Check your input, or check that tomlish is able to handle all Toml datetimes properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc BOOLEAN {b} {
-        #convert any Tcl-acceptable boolean to boolean as accepted by toml - lower case true/false
-        if {![tcl::string::is boolean -strict $b]} {
-            error "Unable to convert '$b' to Toml boolean true|false. [::tomlish::parse::report_line]"
-        } else {
-            if {$b && 1} {
-                return [::list BOOL true]
-            } else {
-                return [::list BOOL false]
-            }
-        }
-    }
-
-    #REVIEW
-    #Take tablename followed by
-    # a) *tomlish* name-value pairs e.g table mydata [list KEY item11 = [list STRING "test"]] {KEY item2 = [list INT 1]}
-    # (accept also key <keyname> value {STRING <value>})
-    # b) simple 2-element tcl lists being name & *simple* value pairs for which basic heuristics will be used to determine types
-    proc _table {name args} {
-        set pairs [list]
-        foreach t $args {
-            if {[llength $t] == 4} {
-                if {[tcl::string::tolower [lindex $t 0]] ne "key" || [tcl::string::tolower [lindex $t 2]] ni "= value"} {
-                    error "Only items tagged as KEY <keyname> = <value> currently accepted as name-value pairs for table command"
-                }
-                lassign $t _k keystr _eq valuepart
-                if {[llength $valuepart] != 2} {
-                    error "supplied value must be typed. e.g {INT 1} or {STRING test}"
-                }
-                lappend pairs [list KEY $keystr = $valuepart]
-            } elseif {[llength $t] == 2} {
-                #!todo - type heuristics
-                lassign $t n v
-                lappend pairs [list KEY $n = [list STRING $v]]
-            } else {
-                error "'KEY <name> = {<type> <val}' or simple name-value pairs expected. Unable to handle [llength $t] element list as argument"
-            }
-        }
-        set result [list TABLE $name {NEWLINE lf}]
-        foreach p $pairs {
-            lappend result $p {NEWLINE lf}
-        }
-        return $result
-        #return [list TABLE $name $pairs]
-    }
-
-
-    #REVIEW - root & table are not correct
-    #the tomlish root is basically a nameless table representing the root of the document
-    proc _root {args} {
-        set table [::tomlish::encode::table TOMLISH {*}$args]
-        set result [lrange $table 2 end]
-    }
-
-}
-
-namespace eval tomlish::encode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::encode}]
-    #[para]
-    #[list_begin definitions]
-
-
-
-
-    #WS = whitepace, US = underscore
-    #---------------------------------------------------------------------------------------------------------
-    #NOTE - this DELIBERATELY does not validate the data, or process escapes etc
-    #It encodes the tomlish records as they are.
-    #ie it only produces toml shaped data from a tomlish list.
-    #
-    #It is part of the roundtripability of data from toml to tomlish
-    #!! ie - it is not the place to do formatting of inline vs multiline !!
-    # That needs to be encoded in the tomlish data that is being passed in
-    # (e.g from_dict could make formatting decisions in the tomlish it produces)
-    #
-    #e.g duplicate keys etc can exist in the toml output.
-    #The to_dict from_dict (or any equivalent processor pair) is responsible for validation and conversion
-    #back and forth of escape sequences where appropriate.
-    #---------------------------------------------------------------------------------------------------------
-    proc tomlish {list {context ""}} {
-        if {![tcl::string::is list $list]} {
-            error "Supplied 'tomlish' is not a valid Tcl list. Expected a tagged list (parsed Toml)"
-        }
-        set toml "" ;#result string
-
-        foreach item $list {
-            set tag [lindex $item 0]
-            #puts "tomlish::encode::tomlish processing item '$item', tag '$tag'"
-            #during recursion, some tags require different error checking in different contexts.
-            set nextcontext $tag ;
-
-            #Handle invalid tag nestings
-            switch -- $context {
-                DQKEY -
-                SQKEY -
-                KEY {
-                    if {$tag in {KEY DQKEY SQKEY}} {
-                        error "Invalid tag '$tag' encountered within '$context'"
-                    }
-                }
-                MULTISTRING {
-                    #explicitly list the valid child tags
-                    set ms_parts {STRING STRINGPART WS NEWLINE CONT}
-                    if {$tag ni $ms_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTISTRING must belong to: $ms_parts"
-                    }
-                }
-                MULTILITERAL {
-                    set ml_parts {LITERALPART NEWLINE}
-                    if {$tag ni $ml_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTILITERAL must belong to: $ml_parts"
-                    }
-                }
-                default {
-                    #no context, or no defined nesting error for this context
-                }
-            }
-
-            switch -- $tag {
-                TOMLISH {
-                    #optional root tag. Ignore.
-                }
-                DQKEY -
-                SQKEY -
-                KEY {
-                    #
-                    if {$tag eq "KEY"} {
-                        append toml [lindex $item 1] ;#Key
-                    } elseif {$tag eq "SQKEY"} {
-                        append toml '[lindex $item 1]' ;#SQuoted Key
-                    } else {
-                        append toml \"[lindex $item 1]\" ;#DQuoted Key
-                    }
-                    #= could be at various positions depending on WS
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                DOTTEDKEY {
-                    #DQKEY, SQKEY, BAREKEY, WS, DOTSEP
-                    foreach part [lindex $item 1] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    #whitespace at tail of dotted key elements is within the list in element 1
-                    #generally we expect the = to be at element 2 - review
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            #puts "encoding [list $part] (context:$nextcontext)"
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                TABLE {
-                    append toml "\[[lindex $item 1]\]"  ;#table name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ITABLE {
-                    #inline table - e.g within array or on RHS of keyval/qkeyval
-                    set data ""
-                    foreach part [lrange $item 1 end] {
-                        append data [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\{$data\}"
-                }
-                TABLEARRAY {
-                    append toml "\[\[[lindex $item 1]\]\]"  ;#tablearray name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ARRAY {
-                    set arraystr ""
-                    foreach part [lrange $item 1 end] {
-                        append arraystr [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\[$arraystr\]"
-                }
-                WS {
-                    append toml [lindex $item 1]
-                }
-                SEP {
-                    append toml ","
-                }
-                DOTSEP {
-                    append toml "."
-                }
-                NEWLINE {
-                    set chartype [lindex $item 1]
-                    if {$chartype eq "lf"} {
-                        append toml \n
-                    } elseif {$chartype eq "crlf"} {
-                        append toml \r\n
-                    } else {
-                        error "Unrecognized newline type '$chartype'"
-                    }
-                }
-                CONT {
-                    #line continuation character "\"
-                    append toml "\\"
-                }
-                STRING {
-                    #Basic string (Bstring)
-                    #simple double quoted strings only
-                    #
-                    append toml \"[lindex $item 1]\"
-                }
-                STRINGPART {
-                    append toml [lindex $item 1]
-                }
-                MULTISTRING {
-                    #Tripple quoted string which is a container for newlines,whitespace and multiple strings/stringparts
-                    set multistring "" ;#variable to build up the string
-                    foreach part [lrange $item 1 end] {
-                        append multistring [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\"\"\"$multistring\"\"\""
-                }
-                LITERAL {
-                    #Single Quoted string(literal string)
-                    append toml '[lindex $item 1]'
-                }
-                LITERALPART {
-                    append toml [lindex $item 1]
-                }
-                MULTILITERAL {
-                    #multiliteral could be handled as a single literal if we allowed literal to contain newlines
-                    #- except that the first newline must be retained for roundtripping tomlish <-> toml but
-                    # the first newline is not part of the data.
-                    # we elect instead to maintain a basic LITERALPART that must not contain newlines..
-                    # and to compose MULTILITERAL of multiple NEWLINE LITERALPART parts,
-                    #with the datastructure representation dropping the first newline (if immediately following opening delim) when building the value.
-                    set literal ""
-                    foreach part [lrange $item 1 end] {
-                        append literal [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml '''$literal'''
-                }
-                INT -
-                BOOL -
-                FLOAT -
-                DATETIME {
-                    append toml [lindex $item 1]
-                }
-                INCOMPLETE {
-                    error "cannot process tomlish term tagged as INCOMPLETE"
-                }
-                COMMENT {
-                    append toml "#[lindex $item 1]"
-                }
-                BOM {
-                    #Byte Order Mark may appear at beginning of a file. Needs to be preserved.
-                    append toml "\uFEFF"
-                }
-                default {
-                    error "Not a properly formed 'tomlish' taggedlist.\n '$list'\n Unknown tag '[lindex $item 0]'. See output of \[tomlish::tags\] command."
-                }
-            }
-
-        }
-        return $toml
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::encode ---}]
-}
-#fish toml from tomlish
-
-#(encode tomlish as toml)
-interp alias {} tomlish::to_toml {} tomlish::encode::tomlish
-
-#
-
-
-namespace eval tomlish::decode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::decode}]
-    #[para]
-    #[list_begin definitions]
-
-    #return a Tcl list of tomlish tokens
-    #i.e get a standard list of all the toml terms in string $s
-    #where each element of the list is a *tomlish* term.. i.e a specially 'tagged' Tcl list.
-    #(simliar to a tcl 'Huddle' - but also supporting whitespace preservation)
-    # ----------------------------------------------------------------------------------------------
-    # NOTE: the production of tomlish from toml source doesn't indicate the toml source was valid!!!
-    # e.g we deliberately don't check certain things such as duplicate table declarations here.
-    # ----------------------------------------------------------------------------------------------
-    #Part of the justification for this is that as long as the syntax is toml shaped - we can load files which violate certain rules and allow programmatic manipulation.
-    # (e.g perhaps a toml editor to highlight violations for fixing)
-    # A further stage is then necessary to load the tomlish tagged list into a data structure more suitable for efficient query/reading.
-    # e.g dicts or an object oriented structure
-    #Note also - *no* escapes in quoted strings are processed. This is up to the datastructure stage
-    #e.g to_dict will substitute \r \n \uHHHH \UHHHHHHH etc
-    #This is important for tomlish to maintain the ability to perform competely lossless round-trips from toml to tomlish and back to toml.
-    # (which is handy for testing as well as editing some part of the structure with absolutely no effect on other parts of the document)
-    #If we were to unescape a tab character for example
-    # - we have no way of knowing if it was originally specified as \t \u0009 or \U00000009 or directly as a tab character.
-    # For this reason, we also do absolutely no line-ending transformations based on platform.
-    # All line-endings are maintained as is, and even a file with mixed lf crlf line-endings will be correctly interpreted and can be 'roundtripped'
-
-    proc toml {args} {
-        #*** !doctools
-        #[call [fun toml] [arg arg...]]
-        #[para] return a Tcl list of tomlish tokens
-
-        set s [join $args \n]
-
-        namespace upvar ::tomlish::parse is_parsing is_parsing
-        set is_parsing 1
-
-        if {[info command ::tomlish::parse::spacestack] eq "::tomlish::parse::spacestack"} {
-            tomlish::parse::spacestack destroy
-        }
-        struct::stack ::tomlish::parse::spacestack
-
-        namespace upvar ::tomlish::parse last_space_action last_space_action
-        namespace upvar ::tomlish::parse last_space_type last_space_type
-
-        namespace upvar ::tomlish::parse tok tok
-        set tok ""
-
-        namespace upvar ::tomlish::parse type type
-        namespace upvar ::tomlish::parse tokenType tokenType
-        ::tomlish::parse::set_tokenType ""
-        namespace upvar ::tomlish::parse tokenType_list tokenType_list
-        set tokenType [list]  ;#Flat (un-nested) list of tokentypes found
-
-        namespace upvar ::tomlish::parse lastChar lastChar
-        set lastChar ""
-
-
-        set result ""
-        namespace upvar ::tomlish::parse nest nest
-        set nest 0
-
-        namespace upvar ::tomlish::parse v v  ;#array keyed on nest level
-
-
-        set v(0) {TOMLISH}
-        array set s0 [list] ;#whitespace data to go in {SPACE {}} element.
-        set parentlevel 0
-
-        namespace upvar ::tomlish::parse i i
-        set i 0
-
-        namespace upvar ::tomlish::parse state state
-
-        namespace upvar ::tomlish::parse braceCount braceCount
-        set barceCount 0
-        namespace upvar ::tomlish::parse bracketCount bracketCount
-        set bracketCount 0
-
-        set sep 0
-        set r 1
-        namespace upvar ::tomlish::parse token_waiting token_waiting
-        set token_waiting [dict create] ;#if ::tok finds a *complete* second token during a run, it will put the 2nd one here to be returned by the next call.
-
-
-        set state "table-space"
-        ::tomlish::parse::spacestack push {type space state table-space}
-        namespace upvar  ::tomlish::parse linenum  linenum;#'line number' of input data. (incremented for each literal linefeed - but not escaped ones in data)
-        set linenum 1
-
-        set ::tomlish::parse::state_list [list]
-        try {
-            while {$r} {
-                set r [::tomlish::parse::tok $s]
-                #puts stdout "got tok: '$tok' while parsing string '$s' "
-                set next_tokenType_known 0 ;#whether we begin a new token here based on what terminated the token result of 'tok'
-
-
-                #puts "got token: '$tok'  tokenType='$tokenType'. while v($nest) = [set v($nest)]"
-                #puts "-->tok: $tok tokenType='$tokenType'"
-                set prevstate $state
-                set transition_info [::tomlish::parse::goNextState $tokenType $tok $state]
-                #review goNextState could perform more than one space_action
-                set space_action [dict get $transition_info space_action]
-                set newstate     [dict get $transition_info newstate] ;#use of 'newstate' vs 'state' makes code clearer below
-
-                if {[tcl::string::match "err-*" $state]} {
-                    ::tomlish::log::warn "---- State error in state $prevstate for tokenType: $tokenType token value: $tok. $state aborting parse. [tomlish::parse::report_line]"
-                    lappend v(0) [list ERROR tokentype $tokenType state $prevstate to $state  leveldata [set v($nest)]]
-                    return $v(0)
-                }
-                # ---------------------------------------------------------
-                #NOTE there may already be a token_waiting at this point
-                #set_token_waiting can raise an error here,
-                # in which case the space_action branch needs to be rewritten to handle the existing token_waiting
-                # ---------------------------------------------------------
-
-                if {$space_action eq "pop"} {
-                    #pop_trigger_tokens: newline tablename endarray endinlinetable
-                    #note a token is a pop trigger depending on context. e.g first newline during keyval is a pop trigger.
-                    set parentlevel [expr {$nest -1}]
-                    set do_append_to_parent 1 ;#most tokens will leave this alone - but some like tentative_accum_squote need to do their own append
-                    switch -exact -- $tokenType {
-                        tentative_accum_squote {
-                            #should only apply within a multiliteral
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the xxx-squote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            #assert prevstate always trailing-squote-space
-                            #dev guardrail - remove? assertion lib?
-                            switch -exact -- $prevstate {
-                                trailing-squote-space {
-                                }
-                                default {
-                                    error "--- unexpected popped due to tentative_accum_squote but came from state '$prevstate' should have been trailing-squote-space"
-                                }
-                            }
-                            switch -- $tok {
-                                ' {
-                                    tomlish::parse::set_token_waiting type single_squote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                '' {
-                                    #review - we should perhaps return double_squote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_squote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                ''' {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                '''' {
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 4}]
-                                    #todo integrate left squote with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        LITERALPART {
-                                            set newval "[lindex $lastpart 1]'"
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list LITERALPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE {
-                                            lappend v($parentlevel) [list LITERALPART "'"]
-                                        }
-                                        MULTILITERAL {
-                                            #empty
-                                            lappend v($parentlevel) [list LITERALPART "'"]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing squote with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                                ''''' {
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i-5}]
-                                    #todo integrate left 2 squotes with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        LITERALPART {
-                                            set newval "[lindex $lastpart 1]''"
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list LITERALPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE {
-                                            lappend v($parentlevel) [list LITERALPART "''"]
-                                        }
-                                        MULTILITERAL {
-                                            lappend v($parentlevel) [list LITERALPART "''"]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing 2 squotes with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                        triple_squote {
-                            #presumably popping multiliteral-space
-                            ::tomlish::log::debug "---- triple_squote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTILITERAL {
-                                        lappend merged $part
-                                    }
-                                    LITERALPART {
-                                        if {$lasttype eq "LITERALPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_squote unhandled part type [lindex $part 0] unable to merge leveldata: $v($nest)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        tentative_accum_dquote {
-                            #should only apply within a multistring
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the trailing-dquote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            #assert prevstate always trailing-dquote-space
-                            #dev guardrail - remove? assertion lib?
-                            switch -exact -- $prevstate {
-                                trailing-dquote-space {
-                                }
-                                default {
-                                    error "--- unexpected popped due to tentative_accum_dquote but came from state '$prevstate' should have been trailing-dquote-space"
-                                }
-                            }
-                            switch -- $tok {
-                                {"} {
-                                    tomlish::parse::set_token_waiting type single_dquote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                {""} {
-                                    #review - we should perhaps return double_dquote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_dquote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                {"""} {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                {""""} {
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i - 4}]
-                                    #todo integrate left dquote with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        STRINGPART {
-                                            set newval "[lindex $lastpart 1]\""
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list STRINGPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE - CONT - WS {
-                                            lappend v($parentlevel) [list STRINGPART {"}]
-                                        }
-                                        MULTISTRING {
-                                            #empty
-                                            lappend v($parentlevel) [list STRINGPART {"}]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing dquote with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                                {"""""} {
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i-5}]
-                                    #todo integrate left 2 dquotes with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        STRINGPART {
-                                            set newval "[lindex $lastpart 1]\"\""
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list STRINGPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE - CONT - WS {
-                                            lappend v($parentlevel) [list STRINGPART {""}]
-                                        }
-                                        MULTISTRING {
-                                            lappend v($parentlevel) [list STRINGPART {""}]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing 2 dquotes with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                        triple_dquote {
-                            #presumably popping multistring-space
-                            ::tomlish::log::debug "---- triple_dquote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTISTRING {
-                                        lappend merged $part
-                                    }
-                                    STRINGPART {
-                                        if {$lasttype eq "STRINGPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    CONT - WS {
-                                        lappend  merged $part
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_dquote unhandled part type [lindex $part 0] unable to merge leveldata: $v($nest)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        equal {
-                            #pop caused by =
-                            switch -exact -- $prevstate {
-                                dottedkey-space {
-                                    tomlish::log::debug "---- equal ending dottedkey-space for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                                dottedkey-space-tail {
-                                    #experiment?
-                                    tomlish::log::debug "---- equal ending dottedkey-space-tail for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                            }
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        tablename {
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablename pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        tablearrayname {
-                            #!review - tablearrayname different to tablename regarding push/pop?
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablearrayname pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        endarray {
-                            #nothing to do here.
-                        }
-                        comma {
-                            #comma for inline table will pop the keyvalue space
-                            lappend v($nest) "SEP"
-                        }
-                        endinlinetable {
-                            ::tomlish::log::debug "---- endinlinetable for last_space_action pop"
-                        }
-                        default {
-                            error "---- unexpected tokenType '$tokenType' for last_space_action 'pop'"
-                        }
-                    }
-                    if {$do_append_to_parent} {
-                        #e.g tentative_accum_squote does it's own appends as necessary - so won't get here
-                        lappend v($parentlevel) [set v($nest)]
-                    }
-
-                    incr nest -1
-
-                }	elseif {$last_space_action eq "push"} {
-                    set prevnest $nest
-                    incr nest 1
-                    set v($nest) [list]
-                    # push_trigger_tokens: barekey dquotedkey startinlinetable startarray tablename tablearrayname
-
-
-                    switch -exact -- $tokenType {
-                        tentative_trigger_squote - tentative_trigger_dquote {
-                            #### this startok will always be tentative_accum_squote/tentative_accum_dquote starting with one accumulated squote/dquote
-                            if {[dict exists $transition_info starttok] && [dict get $transition_info starttok] ne ""} {
-                                lassign [dict get $transition_info starttok] starttok_type starttok_val
-                                set next_tokenType_known 1
-                                ::tomlish::parse::set_tokenType $starttok_type
-                                set tok $starttok_val
-                            }
-                        }
-                        single_squote {
-                            #JMN - REVIEW
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "squotedkey"
-                            set tok ""
-                        }
-                        triple_squote {
-                            ::tomlish::log::debug "---- push trigger tokenType triple_squote"
-                            set v($nest) [list MULTILITERAL] ;#container for NEWLINE,LITERALPART
-                        }
-                        squotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        triple_dquote {
-                            set v($nest) [list MULTISTRING] ;#container for NEWLINE,STRINGPART,CONT
-                        }
-                        dquotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        XXXdquotedkey {
-                            #todo
-                            set v($nest) [list DQKEY $tok] ;#$tok is the keyname
-                        }
-                        barekey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            set waiting [tomlish::parse::get_token_waiting]
-                            if {[llength $waiting]} {
-                                set i [dict get $waiting startindex]
-                                tomlish::parse::clear_token_waiting
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            } else {
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            }
-                        }
-                        tablename {
-                            #note: we do not use the output of tomlish::tablename_trim to produce a tablename for storage in the tomlish list!
-                            #The tomlish list is intended to preserve all whitespace (and comments) - so a roundtrip from toml file to tomlish
-                            # back to toml file will be identical.
-                            #It is up to the datastructure stage to normalize and interpret tomlish for programmatic access.
-                            # we call tablename_trim here only to to validate that the tablename data is well-formed at the outermost level,
-                            # so we can raise an error at this point rather than create a tomlish list with obviously invalid table names from
-                            # a structural perspective.
-
-                            #todo - review!  It's arguable that we should not do any validation here, and just store even incorrect raw tablenames,
-                            # so that the tomlish list is more useful for say a toml editor. Consider adding an 'err' tag to the appropriate place in the
-                            # tomlish list?
-
-                            #set trimtable [::tomlish::utils::tablename_trim $tok]
-                            #::tomlish::log::debug "---- trimmed (but not normalized) tablename: '$trimtable'"
-                            set v($nest) [list TABLE $tok] ;#$tok is the *raw* table name
-                            #note also that equivalent tablenames may have different toml representations even after being trimmed!
-                            #e.g ["x\t\t"]  & ["x		"]  (tab escapes vs literals)
-                            #These will show as above in the tomlish list, but should normalize to the same tablename when used as keys by the datastructure stage.
-                        }
-                        tablearrayname {
-                            #set trimtable [::tomlish::utils::tablename_trim $tok]
-                            #::tomlish::log::debug "---- trimmed (but not normalized) tablearrayname: '$trimtable'"
-                            set v($nest) [list TABLEARRAY $tok] ;#$tok is the *raw* tablearray name
-                        }
-                        startarray {
-                            set v($nest) [list ARRAY] ;#$tok is just the opening bracket - don't output.
-                        }
-                        startinlinetable {
-                            set v($nest) [list ITABLE] ;#$tok is just the opening curly brace - don't output.
-                        }
-                        default {
-                            error "---- push trigger tokenType '$tokenType' not yet implemented"
-                        }
-                    }
-
-                } else {
-                    #no space level change
-                    switch -exact -- $tokenType {
-                        squotedkey {
-                            #puts "---- squotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list SQKEY $tok]
-                        }
-                        dquotedkey {
-                            #puts "---- dquotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list DQKEY $tok]
-                        }
-                        barekey {
-                            lappend v($nest) [list KEY $tok]
-                        }
-                        dotsep {
-                            lappend v($nest) [list DOTSEP]
-                        }
-                        starttablename {
-                            #$tok is triggered by the opening bracket and sends nothing to output
-                        }
-                        starttablearrayname {
-                            #$tok is triggered by the double opening brackets and sends nothing to output
-                        }
-                        tablename - tablenamearray {
-                            error "---- did not expect 'tablename/tablearrayname' without space level change (no space level change)"
-                            #set v($nest) [list TABLE $tok]
-                        }
-                        endtablename - endtablearrayname {
-                            #no output into the tomlish list for this token
-                        }
-                        startinlinetable {
-                            puts stderr "---- decode::toml error. did not expect startinlinetable without space level change (no space level change)"
-                        }
-                        single_dquote {
-                            switch -exact -- $newstate {
-                                string-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "string"
-                                    set tok ""
-                                }
-                                dquoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "dquotedkey"
-                                    set tok ""
-                                }
-                                multistring-space {
-                                    lappend v($nest) [list STRINGPART {"}]
-                                    #may need to be joined on pop if there are neighbouring STRINGPARTS 
-                                }
-                                default {
-                                    error "----  single_dquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        double_dquote {
-                            #leading extra quotes - test: toml_multistring_startquote2
-                            switch -exact -- $prevstate {
-                                itable-keyval-value-expected - keyval-value-expected {
-                                    puts stderr "tomlish::decode::toml double_dquote TEST"
-                                    #empty string
-                                    lappend v($nest) [list STRINGPART ""]
-                                }
-                                multistring-space {
-                                    #multistring-space to multistring-space
-                                    lappend v($nest) [list STRINGPART {""}]
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-
-                        }
-                        single_squote {
-                            switch -exact -- $newstate {
-                                literal-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "literal"
-                                    set tok ""
-                                }
-                                squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "squotedkey"
-                                    set tok ""
-                                }
-                                multiliteral-space {
-                                    #false alarm squote returned from tentative_accum_squote pop
-                                    ::tomlish::log::debug "---- adding lone squote to own LITERALPART nextstate: $newstate (no space level change)"
-                                    #(single squote - not terminating space)
-                                    lappend v($nest) [list LITERALPART ']
-                                    #may need to be joined on pop if there are neighbouring LITERALPARTs
-                                }
-                                default {
-                                    error "---- single_squote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        double_squote {
-                            switch -exact -- $prevstate {
-                                keyval-value-expected {
-                                    lappend v($nest) [list LITERAL ""]
-                                }
-                                multiliteral-space {
-                                    #multiliteral-space to multiliteral-space
-                                    lappend v($nest) [list LITERALPART '']
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-                        }
-                        enddquote {
-                            #nothing to do?
-                            set tok ""
-                        }
-                        endsquote {
-                            set tok ""
-                        }
-                        string {
-                            lappend v($nest) [list STRING $tok] ;#directly wrapped in dquotes
-                        }
-                        literal {
-                            lappend v($nest) [list LITERAL $tok] ;#directly wrapped in squotes
-                        }
-                        multistring {
-                            #review
-                            lappend v($nest) [list MULTISTRING $tok]
-                        }
-                        stringpart {
-                            lappend v($nest) [list STRINGPART $tok] ;#will not get wrapped in dquotes directly
-                        }
-                        multiliteral {
-                            lappend v($nest) [LIST MULTILITERAL $tok]
-                        }
-                        literalpart {
-                            lappend v($nest) [list LITERALPART $tok] ;#will not get wrapped in squotes directly
-                        }
-                        untyped_value {
-                            #would be better termed unclassified_value
-                            #we can't determine the type of unquoted values (int,float,datetime,bool) until the entire token was read.
-                            if {$tok in {true false}} {
-                                set tag BOOL
-                            } elseif {[::tomlish::utils::is_int $tok]} {
-                                set tag INT
-                            } elseif {[::tomlish::utils::is_float $tok]} {
-                                set tag FLOAT
-                            } elseif {[::tomlish::utils::is_datetime $tok]} {
-                                set tag DATETIME
-                            } else {
-                                error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. [tomlish::parse::report_line] (no space level change)"
-                            }
-                            lappend v($nest) [list $tag $tok]
-
-                        }
-                        comment {
-                            #puts stdout "----- comment token returned '$tok'------"
-                            lappend v($nest) [list COMMENT "$tok"]
-                        }
-                        equal {
-                            #we append '=' to the nest so that any surrounding whitespace is retained.
-                            lappend v($nest)  =
-                        }
-                        comma {
-                            lappend v($nest) SEP
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        whitespace {
-                            lappend v($nest) [list WS $tok]
-                        }
-                        continuation {
-                            lappend v($nest) CONT
-                        }
-                        bom {
-                            lappend v($nest) BOM
-                        }
-                        eof {
-                            #ok - nothing more to add to the tomlish list.
-                            #!todo - check previous tokens are complete/valid?
-                        }
-                        default {
-                            error "--- unknown tokenType '$tokenType' during state $prevstate [::tomlish::parse::report_line] (no space level change)"
-                        }
-                    }
-                }
-
-                if {!$next_tokenType_known} {
-                    ::tomlish::log::notice "---- tomlish::decode::toml - current tokenType:$tokenType Next token type not known"
-                    ::tomlish::parse::set_tokenType ""
-                    set tok ""
-                }
-
-                if {$state eq "end-state"} {
-                    break
-                }
-
-
-            }
-
-            #while {$nest > 0} {
-            #	lappend v([expr {$nest -1}]) [set v($nest)]
-            #	incr nest -1
-            #}
-            while {[::tomlish::parse::spacestack size] > 1} {
-                ::tomlish::parse::spacestack pop
-                lappend v([expr {$nest -1}]) [set v($nest)]
-                incr nest -1
-
-                #set parent [spacestack peek] ;#the level being appended to
-                #lassign $parent type state
-                #if {$type eq "space"} {
-                #
-                #} elseif {$type eq "buffer"} {
-                #	lappend v([expr {$nest -1}]) {*}[set v($nest)]
-                #} else {
-                #	error "invalid spacestack item: $parent"
-                #}
-            }
-
-        } finally {
-            set is_parsing 0
-        }
-        return $v(0)
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::decode ---}]
-}
-#decode toml to tomlish
-interp alias {} tomlish::from_toml {} tomlish::decode::toml
-
-namespace eval tomlish::utils {
-    #*** !doctools
-    #[subsection {Namespace tomlish::utils}]
-    #[para]
-    #[list_begin definitions]
-
-
-    #tablenames (& tablearraynames) may contain irrelevant leading, trailing and interspersed whitespace
-    # tablenames can be made up of segments delimited by dots. .eg   [ a.b . c ]
-    #trimmed, the tablename becomes  {a.b.c}
-    # A segment may contain whitespace if it is quoted  e.g [a . b . "c etc "    ]
-    #ie whitespace is only irrelevant if it's outside a quoted segment
-    #trimmed, the tablename becomes {a.b."c etc "}
-    proc tablename_trim {tablename} {
-        set segments [tablename_split $tablename false]
-        set trimmed_segments [list]
-        foreach seg $segments {
-            lappend trimmed_segments [::string trim $seg " \t"]
-        }
-        return [join $trimmed_segments .]
-    }
-
-    #basic generic quote matching for single and double quotes
-    #note for example that {[o'malley]} will return sq - as the single quote is not closed or wrapped in double quotes
-    proc tok_in_quotedpart {tok} {
-        set sLen [tcl::string::length $tok]
-        set quote_type ""
-        set had_slash 0
-        for {set i 0} {$i < $sLen} {incr i} {
-            set c [tcl::string::index $tok $i]
-            if {$quote_type eq ""} {
-                if {$had_slash} {
-                    #don't enter quote mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            set quote_type dq
-                        }
-                        sq {
-                            set quote_type sq
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            } else {
-                if {$had_slash} {
-                    #don't leave quoted mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            if {$quote_type eq "dq"} {
-                                set quote_type ""
-                            }
-                        }
-                        sq {
-                            if {$quote_type eq "sq"} {
-                                set quote_type ""
-                            }
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            }
-        }
-        return $quote_type ;#dq | sq
-    }
-
-    #utils::tablename_split
-    proc tablename_split {tablename {normalize false}} {
-        #we can't just split on . because we have to handle quoted segments which may contain a dot.
-        #eg {dog."tater.man"}
-        set sLen [tcl::string::length $tablename]
-        set segments [list]
-        set mode "preval"  ;#5 modes: preval, quoted,litquoted, unquoted, postval
-        #quoted is for double-quotes,  litquoted is for single-quotes (string literal)
-        set seg ""
-        for {set i 0} {$i < $sLen} {incr i} {
-
-            if {$i > 0} {
-                set lastChar [tcl::string::index $tablename [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            #todo - track\count backslashes properly
-
-            set c [tcl::string::index $tablename $i]
-            if {$c eq "\""} {
-                if {($lastChar eq "\\")} {
-                    #not strictly correct - we could have had an even number prior-backslash sequence
-                    #the toml spec would have us error out immediately on bsl in bad location - but we're
-                    #trying to parse to unvalidated tomlish
-                    set ctest escq
-                } else {
-                    set ctest dq
-                }
-            } else {
-                set ctest [string map [list " " sp \t tab] $c]
-            }
-
-            switch -- $ctest {
-                . {
-                    switch -exact -- $mode {
-                        preval {
-                            error "tablename_split. dot not allowed - expecting a value"
-                        }
-                        unquoted {
-                            #dot marks end of segment.
-                            #if {![is_barekey $seg]} {
-                            #    error "tablename_split. dot not allowed - expecting a value"
-                            #}
-                            lappend segments $seg
-                            set seg ""
-                            set mode "preval"
-                        }
-                        quoted {
-                            append seg $c
-                        }
-                        litquoted {
-                            append seg $c
-                        }
-                        postval {
-                            #got dot in an expected location
-                            set mode "preval"
-                        }
-                    }
-                }
-                dq {
-                    #unescaped dquote
-                    switch -- $mode {
-                        preval {
-                            set mode "quoted"
-                            set seg "\""
-                        }
-                        unquoted {
-                            #invalid in barekey - but we are after structure only
-                            append seg $c
-                        }
-                        quoted {
-                            append seg $c
-                            if {$normalize} {
-                                lappend segments [::tomlish::utils::unescape_string [tcl::string::range $seg 1 end-1]]
-                            } else {
-                                lappend segments $seg
-                            }
-                            set seg ""
-                            set mode "postval" ;#make sure we only accept a dot or end-of-data now.
-                        }
-                        litquoted {
-                            append seg $c
-                        }
-                        postval {
-                            error "tablename_split. expected whitespace or dot, got double quote. tablename: '$tablename'"
-                        }
-                    }
-                }
-                ' {
-                    switch -- $mode {
-                        preval {
-                            append seg $c
-                            set mode "litquoted"
-                        }
-                        unquoted {
-                            #single quote inside e.g o'neill - ultimately invalid - but we pass through here.
-                            append seg $c
-                        }
-                        quoted {
-                            append seg $c
-                        }
-                        litquoted {
-                            append seg $c
-                            #no normalization to do aside from stripping squotes
-                            if {$normalize} {
-                                lappend segments [tcl::string::range $seg 1 end-1]
-                            } else {
-                                lappend segments $seg
-                            }
-                            set seg ""
-                            set mode "postval"
-                        }
-                        postval {
-                            error "tablename_split. expected whitespace or dot, got single quote. tablename: '$tablename'"
-                        }
-                    }
-                }
-                sp - tab {
-                    switch -- $mode {
-                        preval - postval {
-                            #ignore
-                        }
-                        unquoted {
-                            #terminates a barekey
-                            lappend segments $seg
-                            set seg ""
-                            set mode "postval"
-                        }
-                        default {
-                            #append to quoted or litquoted
-                            append seg $c
-                        }
-                    }
-                }
-                default {
-                    switch -- $mode {
-                        preval {
-                            set mode unquoted
-                            append seg $c
-                        }
-                        postval {
-                            error "tablename_split. Expected a dot separator. got '$c'. tablename: '$tablename'"
-                        }
-                        default {
-                            append seg $c
-                        }
-                    }
-                }
-            }
-
-            if {$i == $sLen-1} {
-                #end of data
-                ::tomlish::log::debug "End of data: mode='$mode'"
-                switch -exact -- $mode {
-                    preval {
-                        error "tablename_split. Expected a value after last dot separator. tablename: '$tablename'"
-                    }
-                    unquoted {
-                        lappend segments $seg
-                    }
-                    quoted {
-                        error "tablename_split. Expected a trailing double quote. tablename: '$tablename'"
-                    }
-                    litquoted {
-                        error "tablename_split. Expected a trailing single quote. tablename: '$tablename'"
-                    }
-                    postval {
-                        #ok - segment already lappended
-                    }
-                }
-            }
-        }
-
-        #note - we must allow 'empty' quoted strings  '' & ""
-        # (these are 'discouraged' but valid toml keys)
-
-        return $segments
-    }
-
-    proc unicode_escape_info {slashu} {
-            #!todo
-            # validate that slashu is either a \uxxxx or \Uxxxxxxxx value of the correct length and
-            # is a valid 'unicode scalar value' (any Unicode code point except high-surrogate and low-surrogate code points)
-            # ie integers in the range 0 to D7FF16 and E00016 to 10FFFF16 inclusive
-            #expr {(($x >= 0) && ($x <= 0xD7FF16)) || (($x >= 0xE00016) && ($x <= 0x10FFFF16))}
-            if {[tcl::string::match {\\u*} $slashu]} {
-                set exp {^\\u([0-9a-fA-F]{4}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %4x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\uHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } elseif {[tcl::string::match {\\U*} $slashu]} {
-                set exp {^\\U([0-9a-fA-F]{8}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %8x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        if {(($dec >= 0) && ($dec <= 0xD7FF16)) || (($dec >= 0xE00016) && ($dec <= 0x10FFFF16))} {
-                            return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                        } else {
-                            return [list err [list reason "$slashu is not within the 'unicode scalar value' ranges 0 to 0xD7FF16 or 0xE00016 to 0x10FFFF16"]]
-                        }
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\UHHHHHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } else {
-                return [list err [list reason "Supplied string did not start with \\u or \\U" ]]
-            }
-
-    }
-
-    #Note that unicode characters don't *have* to be escaped.
-    #So if we provide a function named 'escape_string', the name implies the inverse of unescape_string which unescapes unicode \u \U values.
-    #- an inverse of unescape_string would encode all unicode chars unnecessarily.
-    #- as toml accepts a compact escape sequence for common chars such as tab,backspace,linefeed etc  but also allows the full form \u009 etc
-    #- escape_string and unescape_string would not be reliably roundtrippable inverses anyway.
-    #REVIEW - provide it anyway? When would it be desirable to use?
-
-    variable Bstring_control_map [dict create]
-        dict set Bstring_control_map \b      {\b}
-        dict set Bstring_control_map \n      {\n}
-        dict set Bstring_control_map \r      {\r}
-        dict set Bstring_control_map \"      {\"}
-        #dict set Bstring_control_map \x1b    {\e}    ;#should presumably be only be a convenience for decode - going the other way we get \u001B
-        dict set Bstring_control_map \\      "\\\\"
-
-    #\e for \x1b seems like it might be included - v1.1?? hard to find current state of where toml is going :/
-    #for a Bstring (Basic string) tab is explicitly mentioned as not being one that must be escaped.
-    #8 = \b - already in list.
-    #built the remainder whilst checking for entries already hardcoded above -in case more are added to the hardcoded list
-    for {set cdec 0} {$cdec <= 7} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Bstring_control_map $char]} {
-            dict set Bstring_control_map $char \\u$hhhh
-        }
-    }
-    for {set cdec [expr {0x0A}]} {$cdec <= 0x1F} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Bstring_control_map $char]} {
-            dict set Bstring_control_map $char \\u$hhhh
-        }
-    }
-    # \u007F = 127
-    dict set Bstring_control_map [format %c 127] \\u007F
-
-    #Note the inclusion of backslash in the list of controls makes this non idempotent - subsequent runs would keep encoding the backslashes!
-    #escape only those chars that must be escaped in a Bstring (e.g not tab which can be literal or escaped)
-    #for example - can be used by from_dict to produce valid Bstring data for a tomlish record
-    proc rawstring_to_Bstring_with_escaped_controls {str} {
-        #for the well known chars that have compact escape sequences allowed by toml - we choose that form over the full \u form.
-        #we'll use a string map with an explicit list rather than algorithmic at runtime
-        # - the string map is probably more performant than splitting a string, especially if it's large
-        variable Bstring_control_map
-        return [string map $Bstring_control_map $str]
-    }
-
-    #review - unescape what string? Bstring vs MLBstring?
-    #we should be specific in the function naming here
-    #used by to_dict - so part of validation? - REVIEW
-    proc unescape_string {str} {
-        #note we can't just use Tcl subst because:
-        # it also transforms \a (audible bell) and \v (vertical tab) which are not in the toml spec.
-        # it would strip out backslashes inappropriately: e.g "\j" becomes just j
-        # it recognizes other escapes which aren't approprite  e.g \xhh and octal \nnn
-        # it replaces \<newline><whitespace> with a single whitespace   (trailing backslash)
-        #This means we shouldn't use 'subst' on the whole string, but instead substitute only the toml-specified escapes (\r \n \b \t \f \\ \" \uhhhh & \Uhhhhhhhh
-        #plus \e for \x1b?
-
-        set buffer ""
-        set buffer4 ""  ;#buffer for 4 hex characters following a \u
-        set buffer8 ""  ;#buffer for 8 hex characters following a \u
-
-        set sLen [tcl::string::length $str]
-
-        #we need to handle arbitrarily long sequences of backslashes.  \\\\\ etc
-        set slash_active 0
-        set unicode4_active 0
-        set unicode8_active 0
-
-        ::tomlish::log::debug "unescape_string. got len [string length str] str $str"
-
-        #!todo - check for invalid data in the form of a raw carriage return (decimal 13) without following linefeed?
-        set i 0
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $str [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $str $i]
-            #::tomlish::log::debug "unescape_string. got char $c" ;#too much?
-
-            #----------------------
-            #as we are 'unescaping' - should we really be testing for existing values that should have been escaped?
-            #this test looks incomplete anyway REVIEW
-            scan $c %c n
-            if {($n <= 31) && ($n != 9) && ($n != 10) && ($n != 13)} {
-                #we don't expect unescaped unicode characters from 0000 to 001F -
-                #*except* for raw tab (which is whitespace) and newlines
-                error "unescape_string. Invalid data for a toml string. Unescaped control character (decimal $n) [::tomlish::utils::string_to_slashu $c]"
-            }
-            #----------------------
-
-            incr i ;#must incr here because we do'returns'inside the loop
-            if {$c eq "\\"} {
-                if {$slash_active} {
-                    append buffer "\\"
-                    set slash_active 0
-                } elseif {$unicode4_active} {
-                    error "unescape_string. unexpected case slash during unicode4 not yet handled"
-                } elseif {$unicode8_active} {
-                    error "unescape_string. unexpected case slash during unicode8 not yet handled"
-                } else {
-                    # don't output anything (yet)
-                    set slash_active 1
-                }
-            } else {
-                if {$unicode4_active} {
-                    if {[tcl::string::length $buffer4] < 4} {
-                        append buffer4 $c
-                    }
-                    if {[tcl::string::length $buffer4] == 4} {
-                        #we have a \uHHHH to test
-                        set unicode4_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\u$buffer4"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$unicode8_active} {
-                    if {[tcl::string::length $buffer8] < 8} {
-                        append buffer8 $c
-                    }
-                    if {[tcl::string::length $buffer8] == 8} {
-                        #we have a \UHHHHHHHH to test
-                        set unicode8_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\U$buffer8"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$slash_active} {
-                    set slash_active 0
-                    set ctest [tcl::string::map {{"} dq} $c]
-                    switch -exact -- $ctest {
-                        dq {
-                            append buffer {"}
-                        }
-                        b - t - n - f - r {
-                            append buffer [subst -nocommand -novariable "\\$c"]
-                        }
-                        e {
-                            append buffer \x1b
-                        }
-                        u {
-                            set unicode4_active 1
-                            set buffer4 ""
-                        }
-                        U {
-                            set unicode8_active 1
-                            set buffer8 ""
-                        }
-                        default {
-                            set slash_active 0
-                            #review - toml spec says all other escapes are reserved
-                            #and if they are used TOML should produce an error.
-                            #we leave detecting this for caller for now - REVIEW
-                            append buffer "\\$c"
-                        }
-                    }
-                } else {
-                    append buffer $c
-                }
-            }
-        }
-        #puts stdout "EOF 4:$unicode4_active 8:$unicode8_active slash:$slash_active"
-        if {$unicode4_active} {
-            error "End of string reached before complete unicode escape sequence \uHHHH"
-        }
-        if {$unicode8_active} {
-            error "End of string reached before complete unicode escape sequence \UHHHHHHHH"
-        }
-        if {$slash_active} {
-            append buffer "\\"
-        }
-        return $buffer
-    }
-
-    #This does not have to do with unicode normal forms - which it seems toml has decided against regarding use in keys (review/references?)
-    #This is meant for internal use regarding ensuring we match equivalent keys which may have just been specified with different string mechanisms,
-    #e.g squoted vs dquoted vs barekey.
-    proc normalize_key {rawkey} {
-        set c1 [tcl::string::index $rawkey 0]
-        set c2 [tcl::string::index $rawkey end]
-        if {($c1 eq "'") && ($c2 eq "'")} {
-            #single quoted segment. No escapes allowed within it.
-            set key [tcl::string::range $rawkey 1 end-1]
-        } elseif {($c1 eq "\"") && ($c2 eq "\"")} {
-            #double quoted segment. Apply escapes.
-            #
-            set keydata [tcl::string::range $rawkey 1 end-1] ;#strip outer quotes only
-            #e.g key could have mix of \UXXXXXXXX escapes and unicode chars
-            #or mix of \t and literal tabs.
-            #unescape to convert all to literal versions for comparison
-            set key [::tomlish::utils::unescape_string $keydata]
-            #set key [subst -nocommands -novariables $keydata] ;#wrong. Todo - create a string escape substitution function.
-        } else {
-            set key $rawkey
-        }
-        return $key
-    }
-
-    proc string_to_slashu {string} {
-        set rv {}
-        foreach c [split $string {}] {
-            scan $c %c cdec
-            if {$cdec > 65535} {
-                append rv {\U} [format %.8X $cdec]
-            } else {
-                append rv {\u} [format %.4X $cdec]
-            }
-        }
-        return $rv
-    }
-
-    #'nonprintable' is conservative here because some systems (e.g windows console) are very limited in what they can display.
-    #This is used for display purposes only (error msgs)
-    proc nonprintable_to_slashu {s} {
-        set res ""
-        foreach i [split $s ""] {
-            scan $i %c cdec
-
-            set printable 0
-            if {($cdec>31) && ($cdec<127)} {
-                set printable 1
-            }
-            if {$printable} {
-                append res $i
-            } else {
-                if {$cdec > 65535} {
-                    append res \\U[format %.8X $cdec]
-                } else {
-                    append res \\u[format %.4X $cdec]
-                }
-            }
-        }
-        set res
-    } ;# initial version from tcl wiki RS
-
-    #check if str is valid for use as a toml bare key
-    #Early toml versions? only allowed letters + underscore + dash
-    proc is_barekey1 {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        } else {
-            set matches [regexp -all {[a-zA-Z0-9\_\-]} $str]
-            if {[tcl::string::length $str] == $matches} {
-                #all characters match the regexp
-                return 1
-            } else {
-                return 0
-            }
-        }
-    }
-
-    #from toml.abnf in github.com/toml-lang/toml
-    #unquoted-key = 1*unquoted-key-char
-    #unquoted-key-char = ALPHA / DIGIT / %x2D / %x5F         ; a-z A-Z 0-9 - _
-    #unquoted-key-char =/ %xB2 / %xB3 / %xB9 / %xBC-BE       ; superscript digits, fractions
-    #unquoted-key-char =/ %xC0-D6 / %xD8-F6 / %xF8-37D       ; non-symbol chars in Latin block
-    #unquoted-key-char =/ %x37F-1FFF                         ; exclude GREEK QUESTION MARK, which is basically a semi-colon
-    #unquoted-key-char =/ %x200C-200D / %x203F-2040          ; from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    #unquoted-key-char =/ %x2070-218F / %x2460-24FF          ; include super-/subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    #unquoted-key-char =/ %x2C00-2FEF / %x3001-D7FF          ; skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    #unquoted-key-char =/ %x2070-21FF / %x2300-24FF          ; skip math operators
-    #unquoted-key-char =/ %x25A0-268B / %x2690-2757          ; skip box drawing, block elements, and some yin-yang symbols
-    #unquoted-key-char =/ %x2762-2767 / %x2776-27E5          ; skip some Dingbat punctuation
-    #unquoted-key-char =/ %x2801-297F                        ; skip some math brackets and arrows, and braille blank
-    #unquoted-key-char =/ %x2B00-2FFF / %x3001-D7FF          ; skip various math operators and symbols, and ideographic space
-    #unquoted-key-char =/ %xF900-FDCF / %xFDF0-FFFD          ; skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    #unquoted-key-char =/ %x10000-EFFFF                      ; all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    variable re_barekey
-    set ranges [list]
-    lappend ranges {a-zA-Z0-9\_\-}
-    lappend ranges {\u00B2} {\u00B3} {\u00B9} {\u00BC-\u00BE}       ;# superscript digits, fractions
-    lappend ranges {\u00C0-\u00D6} {\u00D8-\u00F6} {\u00F8-\u037D}  ;# non-symbol chars in Latin block
-    lappend ranges {\u037f-\u1FFF}                                  ;# exclude GREEK QUESTION MARK, which is basically a semi-colon
-    lappend ranges {\u200C-\u200D} {\u203F-\u2040}                  ;# from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    lappend ranges {\u2070-\u218f} {\u2460-\u24FF}                  ;# include super-subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    lappend ranges {\u2C00-\u2FEF} {\u3001-\uD7FF}                  ;# skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    lappend ranges {\u2070-\u21FF} {\u2300-\u24FF}                  ;# skip math operators
-    lappend ranges {\u25A0-\u268B} {\u2690-\u2757}                  ;# skip box drawing, block elements, and some yin-yang symbols
-    lappend ranges {\u2762-\u2767} {\u2776-\u27E5}                  ;# skip some Dingbat punctuation
-    lappend ranges {\u2801-\u297F}                                  ;# skip some math brackets and arrows, and braille blank
-    lappend ranges {\u2B00-\u2FFF} {\u3001-\uD7FF}                  ;# skip various math operators and symbols, and ideographic space
-    lappend ranges {\uF900-\uFDCF} {\uFDF0-\uFFFD}                  ;# skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    lappend ranges {\U10000-\UEFFFF}                                ;# all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    set re_barekey {^[}
-    foreach r $ranges {
-        append re_barekey $r
-    }
-    append re_barekey {]+$}
-
-    proc is_barekey {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        }
-        variable re_barekey
-        return [regexp $re_barekey $str]
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'integer'.
-    proc int_validchars1 {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_\-\+]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    #add support for hex,octal,binary 0x.. 0o.. 0b...
-    proc int_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_int {str} {
-        set matches [regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] ;#0b101 etc covered by a-f
-
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-
-            # ---------------------------------------
-            #check for leading zeroes in non 0x 0b 0o
-            #first strip any +, -  or _ (just for this test)
-            #(but still allowing 0 -0 +0)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            if {([tcl::string::length $check] > 1) && ([tcl::string::index $check 0] eq "0") && ([tcl::string::index $check 1] ni {o x b})} {
-                return 0
-            }
-            # ---------------------------------------
-
-            #check +,- only occur in the first position. (excludes also +++1 etc)
-            if {[tcl::string::last - $str] > 0} {
-                return 0
-            }
-            if {[tcl::string::last + $str] > 0} {
-                return 0
-            }
-
-            #-------------------------------------------
-            #unclear if a 'digit' includes the type specifiers x b o
-            #we assume the 0x 0b 0o are NOT counted as digits - as underscores here would seem
-            #to be likely to cause interop issues with other systems
-            #(e.g tcl allows 0b1_1 but not 0b_11)
-            #Most of this structure would be unnecessary if we could rely on string::is::integer understanding underscores (9+?)
-            #we still need to support earlier Tcl for now though.
-
-            #first rule out any case with more than one underscore in a row
-            if {[regexp {__} $str]} {
-                return 0
-            }
-            if {[string index $str 0] eq "_"} {
-                return 0
-            }
-            set utest [string trimleft $str +-]
-            #test again for further trick like _+_0xFF
-            if {[string index $utest 0] eq "_"} {
-                return 0
-            }
-            if {[string range $utest 0 1] in {0x 0b 0o}} {
-                set testnum [string range $utest 2 end]
-            } else {
-                set testnum $utest
-                #exclude also things like 0_x 0___b that snuck past our prefix test
-                if {![string is digit -strict [string map {_ ""} $testnum]]} {
-                    return 0
-                }
-                #assert - only digits and underscores in testnum
-                #still may have underscores at each end
-            }
-            #assert testnum is now the 'digits' portion of a <digits>, 0x<digits> 0b<digits> 0o<digits> number
-            #(+ and - already stripped)
-            #It may still have chars unsuitable for its type - which will be caught by the string::is::integer test below
-            if {[string length $testnum] != [string length [string trim $testnum _]]} {
-                #had non-inner underscores in 'digit' part
-                return 0
-            }
-            #assert str only has solo inner underscores (if any) between 'digits'
-            #-------------------------------------------
-
-            set numeric_value [tcl::string::map {_ ""} $str] ;#allow some earlier tcl versions which don't support underscores
-            #use Tcl's integer check to ensure we don't let things like 3e4 through - which is a float (would need to be 0x3e4 for hex)
-            if {![tcl::string::is integer -strict $numeric_value]} {
-                return 0
-            }
-            #!todo - check bounds only based on some config value
-            #even though Tcl can handle bignums, we won't accept anything outside of toml 1.0 minimum requirements.
-            #presumably very large numbers would have to be supplied in a toml file as strings.
-            #Review - toml 1.0 only says that it must handle up to 2^63 - not that this is a max
-            if {$numeric_value > $::tomlish::max_int} {
-                return 0
-            }
-            if {$numeric_value < $::tomlish::min_int} {
-                return 0
-            }
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'float'.
-    proc float_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[eE0-9\_\-\+\.]} $str] == $numchars} {
-            return 1
-        } else {
-            #only allow lower case for these special values - as per Toml 1.0 spec
-            if {$str ni {inf +inf -inf nan +nan -nan}} {
-                return 0
-            } else {
-                return 1
-            }
-        }
-    }
-
-    #note - Tcl's string is double will return true also for the subset of float values which are integers
-    #This function is to determine whether it matches the Toml float concept - so requires a . or e or E
-    proc is_float {str} {
-        #vip greenlight known literals, don't test for case variations - as Toml doesn't allow (whereas Tcl allows Inf NaN etc)
-        if {$str in {inf +inf -inf nan +nan -nan}} {
-            return 1
-        }
-        #doorcheck the basics for floatiness vs members of that rival gang - ints
-        if {![regexp {[.eE]} $str]} {
-            #could  be an integer - which isn't specifically a float for Toml purposes.
-            return 0
-        }
-
-
-        #patdown for any contraband chars
-        set matches [regexp -all {[eE0-9\_\-\+\.]} $str]
-        if {[tcl::string::length $str] != $matches} {
-            return 0
-        }
-
-        #all characters in legal range
-
-        #A leading zero is ok, but we should disallow multiple leading zeroes (same rules as toml ints)
-
-        #Early Toml spec also disallowed leading zeros in the exponent part(?)
-        #... this seems less interoperable anyway (some libraries generate leading zeroes in exponents)
-        #we allow leading zeros in exponents here.
-
-        #Check for leading zeros in main part
-        #first strip any +, -  or _ (just for this test)
-        set check [tcl::string::map {+ "" - "" _ ""} $str]
-        set r {([0-9])*}
-        regexp $r $check intpart  ;#intpart holds all numerals before the first .,e or E
-        set z {([0])*}
-        regexp $z $intpart leadingzeros
-        if {[tcl::string::length $leadingzeros] > 1} {
-            return 0
-        }
-
-        #for floats, +,- may occur in multiple places
-        #e.g -2E-22   +3e34
-        #!todo - check bounds ?
-
-        #-----------------------------------------
-        if {[regexp {__} $str]} {
-            return 0
-        }
-        if {[string index $str 0] eq "_" || [string index $str end] eq "_"} {
-            return 0
-        }
-        set utest [string trimleft $str +-]
-        #test again for further trick like _+_
-        if {[string index $utest 0] eq "_"} {
-            return 0
-        }
-        #-----------------------------------------
-
-        #decimal point, if used must be surrounded by at least one digit on each side
-        #e.g 3.e+20   also illegal
-        set dposn [string first . $str]
-        if {$dposn > -1 } {
-            set d3 [string range $str $dposn-1 $dposn+1]
-            if {![string is integer -strict [string index $d3 0]] || ![string is integer -strict [string index $d3 2]]} {
-                return 0
-            }
-        }
-        #we've already eliminated leading/trailing underscores
-        #now ensure each inner underscore is surrounded by digits
-        if {[regexp {_[^0-9]|[^0-9]_} $str]} {
-            return 0
-        }
-
-        #strip underscores for tcl double check so we can support < tcl 9 versions which didn't allow underscores
-        set check [tcl::string::map {_ ""} $str]
-        #string is double accepts inf nan +NaN etc.
-        if {![tcl::string::is double $check]} {
-            return 0
-        }
-
-        #All good - seems to be a toml-approved float and not an int.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'datetime'.
-    proc datetime_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[zZtT0-9\-\+\.:]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    #review - we
-    proc is_datetime {str} {
-        #e.g 1979-05-27
-        #e.g 1979-05-27T00:32:00Z
-        #e.g 1979-05-27 00:32:00-07:00
-        #e.g 1979-05-27 00:32:00+10:00
-        #e.g 1979-05-27 00:32:00.999999-07:00
-
-        #review
-        #minimal datetimes?
-        # 2024 ok - shortest valid 4 digit year?
-        # 02:00 ok
-        # 05-17 ok
-        if {[string length $str] < 4} {
-            return 0
-        }
-
-        set matches [regexp -all {[zZtT0-9\-\+\.:]} $str]
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            #!todo - use full RFC 3339 parser?
-            lassign [split $str T] datepart timepart
-            #!todo - what if the value is 'time only'?
-
-            #Tcl's free-form clock scan (no -format option) is deprecated
-            #
-            #if {[catch {clock scan $datepart} err]} {
-            #    puts stderr "tcl clock scan failed err:'$err'"
-            #    return 0
-            #}
-
-            #!todo - verify time part is reasonable
-        } else {
-            return 0
-        }
-        return 1
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::utils ---}]
-}
-
-namespace eval tomlish::parse {
-    #*** !doctools
-    #[subsection {Namespace tomlish::parse}]
-    #[para]
-    #[list_begin definitions]
-
-    #This is a somewhat curly mix of a statemachine and toml-nesting-stack littered with special cases.
-    #The code is a pig's-nest - but it should be noted that for example trailing single double quotes in multiline strings are perhaps not so trivial to parse using more standard methods either:
-    # - e.g some kind of backtracking required if using an ABNF parser?
-    #I don't know the precise technical name for this sort of parser; probably something like "Dog's Breakfast"
-    #More seriously, we don't have distinct lex/parse steps - so it is basically a 'fused lexer' or 'scannerless parser'
-
-    #It is also desirable for this system to be useful in 'interactive' use. review - would a separate lexer make this easier or harder?
-
-    #A possible alternative more structured approach might be to use a PEG (Parsing Expression Grammar)
-
-
-    variable is_parsing 0  ;#whether we are in the middle of parsing tomlish text
-
-    variable state
-    # states:
-    # table-space, itable-space, array-space
-    # array-value-expected,keyval-value-expected,itable-keyval-value-expected, keyval-syntax,
-    # dquoted-key, squoted-key
-    # string-state, literal-state, multistring...
-    #
-    # notes:
-    # only the -space states are also 'spaces' ie a container which is pushed/popped on the spacestack
-
-    #
-    # xxx_value-expected  - we also allow for leading whitespace in this state, but once a value is returned we jump to a state based on the containing space. e.g keyval-tail or array-syntax
-    #
-    #stateMatrix defines for each state, actions to take for each possible token.
-    #single-element actions are the name of the next state into which to transition, or a 'POPSPACE' instruction to pop a level off the spacestack and add the data to the parent container.
-    #dual-element actions are a push instruction and the name of the space to push on the stack.
-    # - PUSHSPACE is a simple push onto the spacestack, zeropoppushspace also pushes, but will first do a pop *if* the current space level is greater than zero (ie if only if not already in root table-space)
-
-    # -- --- --- --- --- ---
-    #token/state naming guide
-    # -- --- --- --- --- ---
-    #tokens        :  underscore separated or bare name e.g newline,  start_quote, start_squote
-    #private tokens:  always have a leading underscore (These are private 'temporary state' tokens that are never returned as actual tokens e.g _start_squote_sequence
-    #states        :  always contain at least one dash e.g err-state, table-space
-    #instructions
-    # -- --- --- --- --- ---
-
-
-    #stateMatrix dict of elements mapping current state to next state based on returned tokens
-    # current-state {token-encountered next-state ... }
-    # where next-state can be a 1 or 2 element list.
-    #If 2 element - the first item is an instruction (ucase)
-    #If 1 element - it is either a lowercase dashed state name or an ucase instruction
-    #e.g {PUSHSPACE <state-space>} or POPSPACE or SAMESPACE
-
-
-    #SAMESPACE - got to same space as parent without popping a level, but has it's own autotransition lookup -  strange concept - review usecases
-
-    variable stateMatrix
-    set stateMatrix [dict create]
-    #---------------------------------------------------------
-    #WARNING
-    #The stateMatrix implementation here is currently messy.
-    #The code is a mixture of declarative via the stateMatrix and imperative via switch statements during PUSH/POP/SAMESPACE transitions.
-    #This means the state behaviour has to be reasoned about by looking at both in conjuction.
-    #---------------------------------------------------------
-
-    #xxx-space vs xxx-syntax inadequately documented - TODO
-
-    #review - out of date?
-    # --------------------------------------------------------------------------------------------------------------#
-    #  incomplete example of some state starting at table-space
-    # --------------------------------------------------------------------------------------------------------------#
-    #                                                      ( = -> keyval-value-expected)
-    #                                       keyval-syntax                         (popped -> keyval-space -> keyval-tail) (autotransition on pop)
-    #                keyval-space (autotransition on push ^)
-    # table-space (barekey^) (startdquote -> dquoted-key ^)
-    # --------------------------------------------------------------------------------------------------------------#
-
-    dict set stateMatrix\
-        table-space       {
-            bom                 "table-space"\
-            whitespace          "table-space"\
-            newline             "table-space"\
-            barekey             {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            squotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax" note ""}\
-            dquotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            XXXsingle_dquote    "quoted-key"\
-            XXXsingle_squote    "squoted-key"\
-            comment             "table-space"\
-            starttablename      "tablename-state"\
-            starttablearrayname "tablearrayname-state"\
-            enddquote           "err-state"\
-            endsquote           "err-state"\
-            comma               "err-state"\
-            eof                 "end-state"\
-            equal               "err-state"\
-            cr                  "err-lonecr"\
-        }
-
-
-
-    dict set stateMatrix\
-        keyval-space    {\
-            whitespace          "keyval-syntax"\
-            equal               "keyval-value-expected"\
-        }
-
-    # '  =   ' portion of keyval
-    dict set stateMatrix\
-        keyval-syntax   {\
-            whitespace          "keyval-syntax"\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE "dottedkey-space"}\
-            equal               "keyval-value-expected"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    ####
-    dict set stateMatrix\
-        keyval-value-expected {\
-            whitespace          "keyval-value-expected"\
-            untyped_value       {TOSTATE        "keyval-tail"                                       note ""}\
-            literal             {TOSTATE        "keyval-tail"                                       note "required for empty literal at EOF"}\
-            string              {TOSTATE        "keyval-tail"                                       note "required for empty string at EOF"}\
-            single_dquote       {TOSTATE        "string-state"          returnstate keyval-tail}\
-            triple_dquote       {PUSHSPACE      "multistring-space"     returnstate keyval-tail}\
-            single_squote       {TOSTATE        "literal-state"         returnstate keyval-tail     note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE      "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE      itable-space            returnstate keyval-tail}\
-            startarray          {PUSHSPACE      array-space             returnstate keyval-tail}\
-        }
-            #double_squote       {TOSTATE    "keyval-tail"                       note "empty literal received when double squote occurs"}
-
-    #2025 - no leading-squote-space - only trailing-squote-space.
-
-    dict set stateMatrix\
-        keyval-tail     {\
-            whitespace          "keyval-tail"\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-
-    #itable-space/ curly-syntax : itables
-    # x={<here>y=1,<here>}
-    dict set stateMatrix\
-        itable-space {\
-            whitespace          "itable-space"\
-            newline             "itable-space"\
-            barekey             {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            squotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            dquotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            endinlinetable      "POPSPACE"\
-            comma               "err-state"\
-            comment             "itable-space"\
-            eof                 "err-state"\
-        }
-        #we don't get single_squote etc here - instead we get the resulting squotedkey token
-
-
-    # ??? review - something like this
-    #     <dottedkeyspace-tail><here>
-    # x={y                            =1,}
-    dict set stateMatrix\
-        itable-keyval-syntax   {\
-            whitespace          {TOSTATE    "itable-keyval-syntax"}\
-            barekey             {PUSHSPACE  "dottedkey-space"}\
-            squotedkey          {PUSHSPACE  "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE  "dottedkey-space"}\
-            equal               {TOSTATE    "itable-keyval-value-expected"}\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-    # x={y<here>=1}
-    dict set stateMatrix\
-        itable-keyval-space    {\
-            whitespace          "itable-keyval-syntax"\
-            equal               {TOSTATE "itable-keyval-value-expected" note "required"}\
-        }
-
-    dict set stateMatrix\
-        itable-keyval-value-expected {\
-            whitespace          "itable-keyval-value-expected"\
-            untyped_value       {TOSTATE    "itable-val-tail"                       note ""}\
-            single_dquote       {TOSTATE    "string-state"          returnstate itable-val-tail}\
-            triple_dquote       {PUSHSPACE  "multistring-space"     returnstate itable-val-tail}\
-            single_squote       {TOSTATE    "literal-state"         returnstate itable-val-tail note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate itable-val-tail}\
-            startinlinetable    {PUSHSPACE  "itable-space"           returnstate itable-val-tail}\
-            startarray          {PUSHSPACE  "array-space"           returnstate itable-val-tail}\
-        }
-        #double_squote not currently generated by _start_squote_sequence - '' processed as single_squote to literal-state just like 'xxx'
-        # review
-        #    double_squote       {TOSTATE    "itable-val-tail"                       note "empty literal received when double squote occurs"}
-
-
-
-    # x={y=1<here>,z="x"<here>}
-    #POPSPACE is transition from itable-keyval-space to parent itable-space
-    dict set stateMatrix\
-        itable-val-tail         {\
-            whitespace          "itable-val-tail"\
-            endinlinetable      "POPSPACE"\
-            comma               "POPSPACE"\
-            newline             {TOSTATE "itable-val-tail" note "itable-space ??"}\
-            comment             "itable-val-tail"\
-            eof                 "err-state"\
-        }
-     # XXXnewline             "POPSPACE"
-     # We shouldn't popspace on newline - as if there was no comma we need to stay in itable-val-tail
-     # This means the newline and subsequent whitespace, comments etc become part of the preceeding dottedkey record
-     #e.g
-     # x = {
-     #   j=1
-     #   #comment within dottedkey j record
-     #   ,  # comment unattached
-     #   #comment unattached
-     #   k=2 , #comment unattached
-     #   l=3 #comment within l record
-     #   , m=4
-     #   #comment associated with m record
-     #
-     #   #still associated with m record
-     # }
-     ## - This doesn't quite correspond to what a user might expect - but seems like a consistent mechanism.
-     #The awkwardness is because there is no way to put in a comment that doesn't consume a trailing comma
-     #so we cant do: j= 1 #comment for j1 ,
-     # and have the trailing comma recognised.
-     #
-     # To associate: j= 1, #comment for j1
-     # we would need some extra processing . (not popping until next key ? extra state itable-sep-tail?) REVIEW - worth doing?
-     #
-     #  The same issue occurs with multiline arrays. The most natural assumption is that a comment on same line after a comma
-     #  is 'associated' with the previous entry.
-     #
-     # These comment issues are independent of the data dictionary being generated for conversion to json etc - as the comments don't carry through anyway,
-     # but are a potential oddity for manipulating the intermediate tomlish structure whilst attempting to preserve 'associated' comments
-     # (e.g reordering records within an itable)
-     #The user's intention for 'associated' isn't always clear and the specs don't really guide on this.
-
-
-    #dottedkey-space is not (currently) used within [tablename] or [[tablearrayname]]
-    #it is for keyval ie  x.y.z = value
-
-    #this is the state after dot
-    #we are expecting a complete key token or whitespace
-    #(initial entry to the space is by one of the keys - which will immediately go to dottedkey-space-tail)
-    dict set stateMatrix\
-        dottedkey-space {\
-            whitespace          "dottedkey-space"\
-            dotsep              "err-state"\
-            barekey             "dottedkey-space-tail"\
-            squotedkey          "dottedkey-space-tail"\
-            dquotedkey          "dottedkey-space-tail"\
-            newline             "err-state"\
-            comma               "err-state"\
-            comment             "err-state"\
-            equal               "err-state"\
-        }
-            #dottedkeyend        "POPSPACE"
-            #equal               "POPSPACE"\
-
-    #jmn 2025
-    #we have 1 or more dottedkeys so far - need dotsep to add more, whitespace to maintain, equal to pop
-    dict set stateMatrix\
-        dottedkey-space-tail {\
-            whitespace          "dottedkey-space-tail"
-            dotsep              "dottedkey-space"
-            equal               "POPSPACE"\
-            eof                 "err-state"\
-            newline             "err-state"\
-        }
-
-    #--------------------------------------------------------------------------
-    #scratch area
-    #from_toml {x=1}
-    # barekey tok <x>
-    # table-space PUSHSPACE keyval-space state keyval-syntax
-    #
-
-
-    #--------------------------------------------------------------------------
-
-
-    #REVIEW
-    #toml spec looks like heading towards allowing newlines within inline tables
-    #https://github.com/toml-lang/toml/issues/781
-
-    #2025 - multiline itables appear to be valid for 1.1 - which we are targeting.
-    #https://github.com/toml-lang/toml/blob/main/toml.md#inline-table
-
-    #JMN2025
-        #review comment "err-state" vs comment "itable-space" - see if TOML 1.1 comes out and allows comments in multiline ITABLES
-        #We currently allow multiline ITABLES  (also with comments) in the tokenizer.
-        #if we want to disallow as per TOML 1.0 - we should do so when attempting to get structure?
-
-
-    #JMN REVIEW
-    #dict set stateMatrix\
-    #    array-space     {\
-    #        whitespace          "array-space"\
-    #        newline             "array-space"\
-    #        untyped_value       "SAMESPACE"\
-    #        startarray          {PUSHSPACE "array-space"}\
-    #        endarray            "POPSPACE"\
-    #        startinlinetable    {PUSHSPACE itable-space}\
-    #        single_dquote         "string-state"\
-    #        single_squote         "literal-state"\
-    #        triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax  note "seems ok 2024"}\
-    #        comma               "array-space"\
-    #        comment             "array-space"\
-    #        eof                 "err-state-array-space-got-eof"\
-    #    }
-
-    ## array-space ##
-    set aspace [dict create]
-    dict set aspace whitespace          "array-space"
-    dict set aspace newline             "array-space"
-    #dict set aspace untyped_value       "SAMESPACE"
-    dict set aspace untyped_value       "array-syntax"
-    dict set aspace startarray          {PUSHSPACE "array-space"}
-    dict set aspace endarray            "POPSPACE"
-    dict set aspace single_dquote       {TOSTATE "string-state" returnstate array-syntax}
-    dict set aspace triple_dquote       {PUSHSPACE  "multistring-space" returnstate array-syntax}
-    dict set aspace single_squote       {TOSTATE "literal-state" returnstate array-syntax}
-    dict set aspace triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax}
-    dict set aspace startinlinetable    {PUSHSPACE itable-space}
-    #dict set aspace comma               "array-space"
-    dict set aspace comment             "array-space"
-    dict set aspace eof                 "err-state-array-space-got-eof"
-    dict set stateMatrix array-space $aspace
-
-    #when we pop from an inner array we get to array-syntax
-    #e.g {x=[[]<array-syntax]}
-    #when there is leading space before a value we get to array-syntax
-
-    ## array-syntax ##
-    set asyntax [dict create]
-    dict set asyntax whitespace         "array-syntax"
-    dict set asyntax newline            "array-syntax"
-    #dict set asyntax untyped_value      "SAMESPACE"
-    #dict set asyntax startarray         {PUSHSPACE array-space}
-    dict set asyntax endarray           "POPSPACE"
-    #dict set asyntax single_dquote         "string-state"
-    #dict set asyntax single_squote      "literal-state"
-    dict set asyntax comma              "array-space"
-    dict set asyntax comment            "array-syntax"
-    dict set stateMatrix array-syntax $asyntax
-
-
-
-
-    #dquotedkey is a token - dquoted-key is a state
-    dict set stateMatrix\
-        dquoted-key       {\
-            whitespace          "NA"\
-            dquotedkey          "dquoted-key"\
-            newline             "err-state"\
-        }
-    dict set stateMatrix\
-        squoted-key       {\
-            whitespace          "NA"\
-            squotedkey          "squoted-key"\
-            newline             "err-state"\
-        }
-           # endsquote           {PUSHSPACE "keyval-space"}
-
-    dict set stateMatrix\
-        string-state          {\
-            whitespace          "NA"\
-            string              "string-state"\
-            enddquote            "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        literal-state       {\
-            whitespace          "NA"\
-            literal             "literal-state"\
-            endsquote           "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-
-    dict set stateMatrix\
-        multistring-space {\
-            whitespace                  "multistring-space"\
-            continuation                "multistring-space"\
-            stringpart                  "multistring-space"\
-            newline                     "multistring-space"\
-            tentative_trigger_dquote     {PUSHSPACE "trailing-dquote-space" returnstate multistring-space starttok {tentative_accum_dquote {"}}}\
-            single_dquote               {TOSTATE multistring-space}\
-            double_dquote               {TOSTATE multistring-space}\
-            triple_dquote               {POPSPACE}\
-            eof                         "err-state"\
-        }
-    dict set stateMatrix\
-        trailing-dquote-space {
-            tentative_accum_dquote      "POPSPACE"
-        }
-
-
-    #only valid subparts are literalpart and newline. other whitespace etc is within literalpart
-    #todo - treat sole cr as part of literalpart but crlf and lf as newline
-    dict set stateMatrix\
-        multiliteral-space {\
-            literalpart                 "multiliteral-space"\
-            newline                     "multiliteral-space"\
-            tentative_trigger_squote    {PUSHSPACE "trailing-squote-space" returnstate multiliteral-space starttok {tentative_accum_squote "'"}}\
-            single_squote               {TOSTATE multiliteral-space     note "short tentative_accum_squote: false alarm this squote is part of data"}\
-            double_squote               {TOSTATE multiliteral-space     note "short tentative_accum_squote: can occur anywhere in the space e.g emitted at end when 5 squotes occur"}\
-            triple_squote               {POPSPACE                       note "on popping - we do any necessary concatenation of LITERALPART items due to squote processing"}\
-            eof                         "err-premature-eof-in-multiliteral-space"\
-        }
-
-    #trailing because we are looking for possible terminating ''' - but must accept '''' or ''''' and re-integrate the 1st one or 2 extra squotes
-    dict set stateMatrix\
-        trailing-squote-space {
-            tentative_accum_squote          "POPSPACE"
-        }
-
-
-    #dict set stateMatrix\
-    #    tablename-state       {\
-    #        whitespace          "NA"\
-    #        tablename           {zeropoppushspace table-space}\
-    #        tablename2          {PUSHSPACE table-space}\
-    #        endtablename        "tablename-tail"\
-    #        comma               "err-state"\
-    #        newline             "err-state"\
-    #    }
-
-    set tnamestate [dict create]
-    dict set tnamestate whitespace          "NA"
-    dict set tnamestate tablename           {zeropoppushspace table-space}
-    dict set tnamestate tablename2          {PUSHSPACE table-space returnstate tablearrayname-tail}
-    dict set tnamestate endtablename        "tablename-tail"
-    dict set tnamestate endtablearrayname    "tablearrayname-tail"
-    dict set tnamestate comma               "err-state"
-    dict set tnamestate newline             "err-state"
-    dict set stateMatrix tablename-state $tnamestate
-
-
-    #dict set stateMatrix\
-    #    tablearrayname-state  {\
-    #        whitespace          "NA"\
-    #        tablearrayname      {zeropoppushspace table-space}\
-    #        tablearrayname2     {PUSHSPACE table-space}\
-    #        endtablearray       "tablearrayname-tail"\
-    #        comma               "err-state"\
-    #        newline             "err-state"\
-    #    }
-    set tarrnamestate [dict create]
-    dict set tarrnamestate whitespace          "NA"
-    dict set tarrnamestate tablearrayname      {zeropoppushspace table-space}
-    dict set tarrnamestate tablearrayname2     {PUSHSPACE table-space}
-    dict set tarrnamestate endtablearrayname   "tablearrayname-tail"
-    dict set tarrnamestate comma               "err-state"
-    dict set tarrnamestate newline             "err-state"
-    dict set stateMatrix tablearrayname-state $tarrnamestate
-
-
-    dict set stateMatrix\
-        tablename-tail   {\
-            whitespace          "tablename-tail"\
-            newline             "table-space"\
-            comment             "tablename-tail"\
-            eof                 "end-state"\
-        }
-    #dict set stateMatrix\
-    #    tablearrayname-tail {\
-    #        whitespace          "tablearrayname-tail"\
-    #        newline             "table-space"\
-    #        comment             "tablearrayname-tail"\
-    #        eof                 "end-state"\
-    #    }
-
-
-    # [[xxx]<here>]  ???
-    set tarntail [dict create]
-    dict set tarntail whitespace          "tablearrayname-tail"
-    dict set tarntail newline             "err-state"
-    dict set tarntail comment             "err-state"
-    dict set tarntail eof                 "err-state"
-    dict set tarntail endtablename        "tablearray-tail"
-    dict set stateMatrix tablearrayname-tail $tarntail
-
-    #review - somewhat counterintuitive...?
-    #                     [(starttablearrayname)     (endtablearrayname]
-    # [(starttablename)                                                     (endtablename)]
-
-    # [[xxx]]<here> ???
-    set tartail [dict create]
-    dict set tartail whitespace         "tablearray-tail"
-    dict set tartail newline            "table-space"
-    dict set tartail comment            "tablearray-tail"
-    dict set tartail eof                "end-state"
-    dict set stateMatrix tablearray-tail $tartail
-
-
-
-
-
-
-    dict set stateMatrix\
-        end-state             {}
-
-    set knowntokens [list]
-    set knownstates [list]
-    dict for {state transitions} $stateMatrix {
-        if {$state ni $knownstates} {lappend knownstates $state}
-        dict for {tok instructions} $transitions {
-            if {$tok ni $knowntokens} {lappend knowntokens $tok}
-        }
-    }
-    dict set stateMatrix nostate {}
-    foreach tok $knowntokens {
-        dict set stateMatrix nostate $tok "err-nostate-received-token-$tok"
-    }
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #purpose - debugging?  remove?
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #build a list of 'push triggers' from the stateMatrix
-    # ie tokens which can push a new space onto spacestack
-    set push_trigger_tokens [list]
-    tcl::dict::for {s transitions} $stateMatrix {
-        tcl::dict::for {token transition_to} $transitions {
-            set instruction [lindex $transition_to 0]
-            switch -exact -- $instruction {
-                PUSHSPACE - zeropoppushspace {
-                    if {$token ni $push_trigger_tokens} {
-                        lappend push_trigger_tokens $token
-                    }
-                }
-            }
-        }
-    }
-    ::tomlish::log::debug "push_trigger_tokens: $push_trigger_tokens"
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-
-    #This seems hacky... (deprecate in favour of explicit arguments to the instructions in stateMatrix?)
-    #spacePopTransitions, spacePushTransitions, spaceSameTransitions below for auto state redirections on POPSPACE,PUSHSPACE,SAMESPACE
-
-    #mainly for the -space states:
-    #redirect to another state $c based on a state transition from $whatever to $b
-    # e.g  "string {array-space array-syntax}" means when transitioning from string to array-space, jump to array-syntax instead.
-    #this is useful as we often don't know state $b. e.g when it is decided by 'POPSPACE'
-
-    #use dict set to add values so we can easily add/remove/comment lines
-
-    #Push to, next
-    #default first states when we push to these spaces
-    variable spacePushTransitions [dict create]
-    dict set spacePushTransitions keyval-space            keyval-syntax
-    dict set spacePushTransitions itable-keyval-space     itable-keyval-syntax
-    dict set spacePushTransitions array-space             array-space
-    dict set spacePushTransitions table-space             tablename-state
-    #dict set spacePushTransitions #itable-space             itable-space
-
-    #Pop to, next
-    variable spacePopTransitions [dict create]
-    dict set spacePopTransitions array-space    array-syntax
-
-
-        #itable-keyval-space     itable-val-tail
-    #review
-    #we pop to keyval-space from dottedkey-space or from keyval-value-expected? we don't always want to go to keyval-tail
-    #leave it out and make the POPSPACE caller explicitly specify it
-    #keyval-space        keyval-tail
-
-    variable spaceSameTransitions [dict create]
-    #JMN test
-    #dict set spaceSameTransitions array-space   array-syntax
-
-        #itable-keyval-space     itable-val-tail
-
-
-    variable state_list ;#reset every tomlish::decode::toml
-
-    namespace export tomlish toml
-    namespace ensemble create
-
-    #goNextState has various side-effects e.g pushes and pops spacestack
-    #REVIEW - setting nest and v elements here is ugly
-    #todo - make neater, more single-purpose?
-    proc goNextState {tokentype tok currentstate} {
-        variable state
-        variable nest
-        variable v
-
-        set prevstate $currentstate
-
-
-        variable spacePopTransitions
-        variable spacePushTransitions
-        variable spaceSameTransitions
-
-        variable last_space_action      "none"
-        variable last_space_type        "none"
-        variable state_list
-
-        set result ""
-        set starttok ""
-
-        if {[dict exists $::tomlish::parse::stateMatrix $currentstate $tokentype]} {
-            set transition_to [dict get $::tomlish::parse::stateMatrix $currentstate $tokentype]
-            ::tomlish::log::debug "--->> goNextState tokentype:$tokentype tok:$tok currentstate:$currentstate  :  transition_to = $transition_to"
-            switch -exact -- [lindex $transition_to 0] {
-                POPSPACE {
-                    set popfromspace_info [spacestack peek]
-                    set popfromspace_state [dict get $popfromspace_info state]
-                    spacestack pop
-                    set parent_info [spacestack peek]
-                    set type [dict get $parent_info type]
-                    set parentspace [dict get $parent_info state]
-
-                    set last_space_action "pop"
-                    set last_space_type $type
-
-                    if {[dict exists $parent_info returnstate]} {
-                        set next [dict get $parent_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace redirected to stored returnstate $next <<---"
-                    } else {
-                        ###
-                        #review - do away with spacePopTransitions - which although useful to provide a default..
-                        # - involve error-prone configurations distant to the main state transition configuration in stateMatrix
-                        if {[dict exists $::tomlish::parse::spacePopTransitions $parentspace]} {
-                            set next [dict get $::tomlish::parse::spacePopTransitions $parentspace]
-                            ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace redirected state to $next (spacePopTransitions)<<---"
-                        } else {
-                            set next $parentspace
-                            ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace<<---"
-                        }
-                    }
-                    set result $next
-                }
-                SAMESPACE {
-                    set currentspace_info [spacestack peek]
-                    ::tomlish::log::debug       "--->> SAMESPACE got current space entry: $currentspace_info <<<<<"
-                    set type         [dict get $currentspace_info type]
-                    set currentspace [dict get $currentspace_info state]
-
-                    if {[dict exists $currentspace_info returnstate]} {
-                        set next [dict get $currentspace_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace redirected to stored returnstate $next"
-                    } else {
-                        if {[dict exists $::tomlish::parse::spaceSameTransitions $currentspace]} {
-                            set next [dict get $::tomlish::parse::spaceSameTransitions $currentspace]
-                            ::tomlish::log::info   "--->> SAMESPACE transition to space $currentspace redirected state to $next (spaceSameTransitions)"
-                        } else {
-                            set next $currentspace
-                            ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace"
-                        }
-                    }
-                    set result $next
-                }
-                zeropoppushspace {
-                    if {$nest > 0} {
-                        #pop back down to the root level (table-space)
-                        spacestack pop
-                        set parentinfo [spacestack peek]
-                        set type [dict get $parentinfo type]
-                        set target [dict get $parentinfo state]
-
-                        set last_space_action "pop"
-                        set last_space_type $type
-
-                        #-----
-                        #standard pop
-                        set parentlevel [expr {$nest -1}]
-                        lappend v($parentlevel) [set v($nest)]
-                        incr nest -1
-                        #-----
-                    }
-                    #re-entrancy
-
-                    #set next [list PUSHSPACE [lindex $transition_to 1]]
-                    set nexttokentype ${tokentype}2  ;#fake token type e.g tablename2 or tablearrayname2
-                    #::tomlish::log::notice "goNextState REENTRANCY. calling goNextState $nexttokentype $tokentype"
-                    #set result [::tomlish::parse::goNextState $nexttokentype $tokentype]
-                    ::tomlish::log::debug "--->> zeropoppushspace goNextState REENTRANCY. calling goNextState $nexttokentype $currentstate"
-                    set transition_info [::tomlish::parse::goNextState $nexttokentype $tok $currentstate]
-                    set result [dict get $transition_info newstate]
-                }
-                PUSHSPACE {
-                    set original_target [dict get $transition_to PUSHSPACE]
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    if {[dict exists $transition_to starttok]} {
-                        set starttok [dict get $transition_to starttok]
-                    }
-                    spacestack push [dict create type space state $original_target]
-
-                    set last_space_action "push"
-                    set last_space_type "space"
-
-                    if {[dict exists $transition_to state]} {
-                        #an explicit state in the pushed space was requested in the stateMatrix - override the spacePushTransition (spacePushTransitions can be deprecated if we require explicitness?)
-                        set next [dict get $transition_to state]
-                        ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next by explicit 'state' entry"
-                    } else {
-                        #puts $::tomlish::parse::spacePushTransitions
-                        if {[dict exists $::tomlish::parse::spacePushTransitions $original_target]} {
-                            set next [dict get $::tomlish::parse::spacePushTransitions $original_target]
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next (spacePushTransitions) "
-                        } else {
-                            set next $original_target
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target"
-                        }
-                    }
-                    set result $next
-                }
-                TOSTATE {
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    set result [dict get $transition_to TOSTATE]
-                }
-                default {
-                    #simplified version of TOSTATE
-                    set result [lindex $transition_to 0] ;#ignore everything but first word
-                }
-            }
-        } else {
-            ::tomlish::log::error "--->> No state transition defined from state $currentstate when tokentype $tokentype received"
-            set result "nostate"
-        }
-        lappend state_list [list tokentype $tokentype from $currentstate to $result]
-        set state $result
-        ::tomlish::log::notice "--->> STATE TRANSITION tokenType: '$tokentype' tok:$tok  triggering '$currentstate' -> '$result' last_space_action:$last_space_action "
-        return [dict create prevstate $prevstate newstate $result space_action $last_space_action starttok $starttok]
-    }
-
-    proc report_line {{line ""}} {
-        variable linenum
-        variable is_parsing
-        if {$is_parsing} {
-            if {$line eq ""} {
-                set line $linenum
-            }
-            return "Line Number: $line"
-        } else {
-            #not in the middle of parsing tomlish text - return nothing.
-            return ""
-        }
-    }
-
-    #produce a *slightly* more readable string rep of the nest for puts etc.
-    proc nest_pretty1 {list} {
-        set prettier "{"
-
-        foreach el $list {
-            if { [lindex $el 0] eq "NEWLINE"} {
-                append prettier "[list $el]\n"
-            } elseif {([llength $el] > 1) && ([lindex $el 0] in {KEY DQKEY SQKEY TABLE ARRAY})} {
-                append prettier [nest_pretty1 $el]
-            } else {
-                append prettier "[list $el] "
-            }
-        }
-        append prettier "}"
-        return $prettier
-    }
-
-    proc set_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        if {![info exists tokenType]} {
-            set tokenType ""
-        }
-        lappend tokenType_list $t
-        set tokenType $t
-    }
-
-    proc switch_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        lset tokenType_list end $t
-        set tokenType $t
-    }
-
-    proc get_tokenType {} {
-        variable tokenType
-        return $tokenType
-    }
-
-
-    proc get_token_waiting {} {
-        variable token_waiting
-        return [lindex $token_waiting 0]
-    }
-    proc clear_token_waiting {} {
-        variable token_waiting
-        set token_waiting [list]
-    }
-
-    #token_waiting is a list - but our standard case is to have only one
-    #in certain circumstances such as near eof we may have 2
-    #the set_token_waiting function only allows setting when there is not already one waiting.
-    #we want to catch cases of inadvertently trying to set multiple
-    # - the reason being that the state transition triggered by the previous token may have invalidated the assumptions made when a token was added as waiting.
-    proc set_token_waiting {args} {
-        if {[llength $args] %2 != 0} {
-            error "tomlish set_token_waiting must have args of form: type <tokentype> value <value> complete 0|1"
-        }
-        variable token_waiting
-
-        if {[llength $token_waiting] && [dict get [lindex $token_waiting end] type] ne "eof"} {
-            #tokloop already set a token_waiting - but something (post tokloop processing?) is trying to set another
-            #we may need to remove the existing token_waiting and reset the tokloop index to the previous char so it's reprocessed in the possibly new context
-            #rather than attempt to make the right decision here - we raise an error and require the caller to check/handle it
-            set err         "tomlish set_token_waiting already has token_waiting: [lindex $token_waiting 0]"
-            append err \n   "  -                cannot add token_waiting: $args"
-            error $err
-            #set tomlish::parse::i [expr {[dict get $token_waiting startindex] -1}]
-            #set token_waiting [list]
-        }
-
-        set waiting [dict create]
-        dict for {k v} $args {
-            switch -exact $k {
-                type -  complete {
-                    dict set waiting $k $v
-                }
-                value {
-                    dict set waiting tok $v
-                }
-                startindex {
-                    dict set waiting startindex $v
-                }
-                default {
-                    error "tomlish set_token_waiting error - unrecognised key $k. known keys: [dict keys $args]"
-                }
-            }
-        }
-        if {![tcl::string::is boolean -strict [dict get $waiting complete]]} {
-            error "tomlish set_token_waiting error - 'complete' must be a boolean. got [dict get $waiting complete]"
-        }
-        if {![llength $token_waiting]} {
-            set token_waiting [list $waiting]
-        } else {
-            #an extra sanity-check that we don't have more than just the eof..
-            if {[llength $token_waiting] > 1} {
-                set err "tomlish Unexpected. Existing token_waiting count > 1.\n"
-                foreach tw $token_waiting {
-                    append err " $tw" \n
-                }
-                append err " -          cannot add token_waiting: $waiting"
-                error $err
-            }
-            #last entry must be a waiting eof
-            set token_waiting [list $waiting [lindex $token_waiting end]]
-        }
-        return
-    }
-
-    #returns 0 or 1
-    #tomlish::parse::tok
-    #we attempt to do this without lookahead (potential use in streaming toml? for what benefit?) todo -final flag
-    # - the possible benefit is being able to more easily process in arbitrarily split chunks (although we would still have to watch crlf splitting ?)
-    # - interactive use?
-
-    proc tok {s} {
-        variable nest
-        variable v
-        variable i
-        variable tok
-        variable type ;#character type
-        variable state ;#FSM
-
-
-        variable tokenType
-        variable tokenType_list
-
-
-        variable endToken
-
-        variable lastChar
-
-        variable braceCount
-        variable bracketCount
-
-
-        #------------------------------
-        #Previous run found another (presumably single-char) token
-        #The normal case is for there to be only one dict in the list
-        #multiple is an exception - primarily for eof
-        variable token_waiting
-        if {[llength $token_waiting]} {
-            set waiting [lindex $token_waiting 0]
-
-            set tokenType   [dict get $waiting type]
-            set tok         [dict get $waiting tok]
-            #todo: dict get $token_waiting complete
-            set token_waiting [lrange $token_waiting 1 end]
-            return 1
-        }
-        #------------------------------
-
-        set resultlist [list]
-        set sLen [tcl::string::length $s]
-
-        set slash_active 0
-        set quote 0
-        set c ""
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $s [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $s $i]
-            set cindex $i
-            set ctest [tcl::string::map {\{ lc \} rc \[ lb \] rb \" dq ' sq \\ bsl \r cr \n lf \t tab \uFEFF bom} $c]
-            tomlish::log::debug "- tokloop char <$ctest> index $i   tokenType:$tokenType tok:<$tok>"
-            #puts "got char $c during tokenType '$tokenType'"
-            incr i ;#must incr here because we do returns inside the loop
-
-            switch -exact -- $ctest {
-                # {
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {$had_slash} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                #for multiliteral,  multistring -  data and/or end
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #pseudo token beginning with underscore - never returned to state machine - review
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i [tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed (see tomlish::utils::is_barekey). [tomlish::parse::report_line]"
-                            }
-                            whitespace {
-                                # hash marks end of whitespace token
-                                #do a return for the whitespace, set token_waiting
-                                #set_token_waiting type comment value "" complete 1
-                                incr i -1  ;#leave comment for next run
-                                return 1
-                            }
-                            untyped_value {
-                                #REVIEW! the spec isn't clear.. is whitespace after an int,bool etc required before comment?
-                                #we will accept a comment marker as an immediate terminator of the untyped_value.
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #fix!
-                                error "tomlish Character '#' is invalid first character for  $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare parts - but allowed in quoted parts - let tablename parser sort it out
-                                append tok $c
-                            }
-                            default {
-                                #dquotedkey, string,literal, multistring
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -- $state {
-                            multistring-space {
-                                set_tokenType stringpart
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "#"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "#"
-                            }
-                            default {
-                                #start of token if we're not in a token
-                                set_tokenType comment
-                                set tok "" ;#The hash is not part of the comment data
-                            }
-                        }
-                    }
-                }
-                lc {
-                    #left curly brace
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i [tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                #*bare* tablename can only contain letters,digits underscores
-                                error "tomlish Invalid tablename first character \{ [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #valid in quoted parts
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\{"
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            itable-keyval-value-expected - keyval-value-expected {
-                                #switch last key to tablename??
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested anonymous inline table
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\{"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\{"
-                            }
-                            default {
-                                error "tomlish state: '$state'. left brace case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                rc {
-                    #right curly brace
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey - comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - tablename {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endinlinetable value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            starttablearrayname - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                #end any other token
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-space {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname-state problem"
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                #invalid
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-val-tail {
-                                set_tokenType "endinlinetable"
-                                set tok ""
-                                #we need to pop the keyval - and then reprocess to pop the inlinetable - so we incr -1
-                                incr i -1
-                                return 1
-                            }
-                            itable-keyval-syntax {
-                                error "tomlish endinlinetable unexpected at this point. Expecting key=val syntax [tomlish::parse::report_line]"
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\}"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" ; #review
-                                set tok "\}"
-                            }
-                            default {
-                                #JMN2024b keyval-tail?
-                                error "tomlish state '$state'. endinlinetable case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                lb {
-                    #left square bracket
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename {
-                                #change the tokenType
-                                switch_tokenType "starttablearrayname"
-                                set tok "" ;#no output into the tomlish list for this token
-                                #any following whitespace is part of the tablearrayname, so return now
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    #append tok "\\["
-                                    append tok {\[}
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        #invalid at this point - state machine should disallow:
-                                        # table -> starttablearrayname
-                                        # tablearray -> starttablearrayname
-                                        set_token_waiting type starttablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "\["
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            keyval-value-expected - itable-keyval-value-expected {
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested array?
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                                #error "state: array-space. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                            table-space {
-                                #table name
-                                #assume it's a single bracket - but we need to wait for non-bracket to confirm it's not a tablearray
-                                #note that a starttablearrayname token may contain whitespace between the brackets
-                                # e.g \[   \[
-                                set_tokenType "starttablename"
-                                set tok ""  ;#there is no output into the tomlish list for this token
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\["
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\["
-                            }
-                            itable-space {
-                                #handle state just to give specific error msg
-                                error "tomlish state: '$state'. Left square bracket invalid. Cannot start array in inline table without key. Use key=\[<vals>\] syntax. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish state: '$state'. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                rb {
-                    #right square bracket
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #????
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                } else {
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                }
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablename value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            tablearrayname {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            default {
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            array-syntax - array-space {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endtablename"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname problem"
-                                set_tokenType "endtablearray"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-tail {
-                                #[[xxx]<here>
-                                set_tokenType "endtablename"
-                                #sequence: starttablename -> starttablearrayname -> endtablearrayname -> endtablename
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\]"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\]"
-                            }
-                            default {
-                                error "tomlish state '$state'. endarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                bsl {
-                    #backslash
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #end whitespace token
-                                    incr i -1 ;#reprocess bsl in next run
-                                    return 1
-                                } else {
-                                    error "tomlish Unexpected backslash during whitespace. [tomlish::parse::report_line]"
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                #never need to set slash_active true when in single quoted tokens
-                                append tok "\\"
-                                set slash_active 0
-                            }
-                            string - dquotedkey - comment {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            stringpart {
-                                if {$slash_active} {
-                                    #assert - quotes empty - or we wouldn't have slash_active
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish backslash is invalid as first character of $tokenType [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            barekey {
-                                error "tomlish Unexpected backslash during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish Backslash unexpected during tokentype: '$tokenType'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$slash_active} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\\"
-                                    set slash_active 0
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            multiliteral-space {
-                                #nothing can be escaped in multiliteral-space - not even squotes (?) review
-                                set_tokenType "literalpart"
-                                set tok "\\"
-                            }
-                            default {
-                                error "tomlish tok error: Unexpected backslash when no token is active. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                sq {
-                    #single quote
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote {
-                                #for within multiliteral
-                                #short tentative_accum_squote tokens are returned if active upon receipt of any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                #assert state = trailing-squote-space
-                                append tok $c
-                                if {$existingtoklen == 4} {
-                                    #maxlen to be a tentative_accum_squote is multisquote + 2  = 5
-                                    #return tok with value '''''
-                                    return 1
-                                }
-                            }
-                            tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #pseudo/temp token creatable during keyval-value-expected itable-keyval-value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        #no conclusion can yet be reached
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #enter multiliteral
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_squote
-                                        return 1
-                                    }
-                                    default {
-                                        #if there are more than 3 leading squotes we also enter multiliteral space and the subsequent ones are handled
-                                        #by the tentative_accum_squote check for ending sequence which can accept up to 5 and reintegrate the
-                                        #extra 1 or 2 squotes as data.
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_squote_sequence'"
-                                    }
-                                }
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                #end whitespace
-                                incr i -1  ;#reprocess sq
-                                return 1
-                            }
-                            literal {
-                                #slash_active always false
-                                #terminate the literal
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #ended by '''  - but final could be '''' or ''''' (up to 2 squotes allowed directly before ending triple squote sequence)
-                                #todo
-                                # idea:  end this literalpart  (possibly 'temporarily')
-                                # let the sq be reprocessed in the multiliteral-space to push an end-multiliteral-sequence to state stack
-                                # upon popping end-multiliteral-sequence - stitch quotes back into this literalpart's token (if either too short - or a long ending sequence as shown above)
-                                incr i -1 ;#throw the "'" back to loop - will be added to a tentative_accum_squote token for later processing
-                                return 1
-                            }
-                            XXXitablesquotedkey {
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            squotedkey {
-                                ###
-                                #set_token_waiting type endsquote value "'" complete 1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #!!!
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                append tok $c
-                            }
-                            barekey {
-                                #barekeys now support all sorts of unicode letter/number chars for other cultures
-                                #but not punctuation - not even for those of Irish heritage who don't object
-                                #to the anglicised form of some names.
-                                # o'shenanigan seems to not be a legal barekey
-                                #The Irish will have to use an earlier form Ó - which apparently many may prefer anyway.
-                                error "tomlish Unexpected single quote during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            array-space - keyval-value-expected - itable-keyval-value-expected {
-                                #leading squote
-                                #pseudo-token _start_squote_sequence ss not received by state machine 
-                                #This pseudotoken will trigger production of single_squote token or triple_squote token
-                                #It currently doesn't trigger double_squote token
-                                #(handle '' same as 'x' ie produce a single_squote and go into processing literal)
-                                #review - producing double_squote for empty literal may be slightly more efficient.
-                                #This token is not used to handle squote sequences *within* a multiliteral
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                            }
-                            multiliteral-space {
-                                #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                #we are building up a tentative_accum_squote to determine if
-                                #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                #b) it is exactly ''' and we can terminate the whole multiliteral
-                                #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                set_tokenType "tentative_trigger_squote" ;#trigger tentative_accum_squote
-                                set tok "'"
-                                return 1
-                            }
-                            table-space - itable-space {
-                                #tests: squotedkey.test squotedkey_itable.test
-                                set_tokenType "squotedkey"
-                                set tok ""
-                            }
-                            XXXtable-space - XXXitable-space {
-                                #future - could there be multiline keys? MLLKEY, MLBKEY ?
-                                #this would (almost) allow arbitrary tcl dicts to be stored in toml (aside from escaping issues)
-                                #probably unlikely - as it's perhaps not very 'minimal' or ergonomic for config files
-                                #@2025 ABNF for toml mentions key, simple-key, unquoted-key, quoted-key and dotted-key
-                                #where key is simple-key or dotted-key - no MLL or MLB components
-                                #the spec states solution for arbitrary binary data is application specific involving encodings
-                                #such as hex, base64
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                                return 1
-                            }
-                            tablename-state {
-                                #first char in tablename-state/tablearrayname-state
-                                set_tokenType "tablename"
-                                append tok "'"
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                append tok "'"
-                            }
-                            literal-state {
-                                #shouldn't get here? review
-                                tomlish::log::debug "- tokloop sq during literal-state with no tokentype - empty literal?"
-                                set_tokenType "literal"
-                                incr -1
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok ","
-                                #error "tomlish unimplemented - squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                            dottedkey-space {
-                                set_tokenType "squotedkey"
-                            }
-                            default {
-                                error "tomlish unhandled squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                dq {
-                    #double quote
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            tentative_accum_dquote {
-                                #within multistring
-                                #short tentative_accum_dquote tokens are returned if active upon receipt of any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                #assert state = trailing-squote-space
-                                append tok $c
-                                if {$existingtoklen == 4} {
-                                    #maxlen to be a tentative_accum_dquote is multidquote + 2  = 5
-                                    #return tok with value """""
-                                    return 1
-                                }
-                            }
-                            _start_dquote_sequence {
-                                #pseudo/temp token creatable during keyval-value-expected itable-keyval-value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        #no conclusion can yet be reached
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #enter multistring 
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_dquote
-                                        return 1
-                                    }
-                                    default {
-                                        #if there are more than 3 leading dquotes we also enter multistring space and the subsequent ones are handled
-                                        #by the tentative_accum_dquote check for ending sequence which can accept up to 5 and reintegrate the
-                                        #extra 1 or 2 dquotes as data.
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_dquote_sequence'"
-                                    }
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string {
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #unescaped quote always terminates a string
-                                    set_token_waiting type enddquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            stringpart {
-                                #sub element of multistring
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    incr i -1 ;#throw the {"} back to loop - will be added to a tentative_accum_dquote token for later processing
-                                    return 1
-                                }
-                            }
-                            whitespace {
-                                #assert: had_slash will only ever be true in multistring-space
-                                if {$had_slash} {
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #end whitespace token - throw dq back for reprocessing
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            XXXdquotedkey {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    set_token_waiting type enddquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            dquotedkey {
-                                ###
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    #set_token_waiting type enddquote value {"} complete 1
-                                    return 1
-                                }
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1 ;##
-                                return 1
-                            }
-                            default {
-                                error "tomlish got quote during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        #token is string only if we're expecting a value at this point
-                        switch -exact -- $state {
-                            array-space - keyval-value-expected - itable-keyval-value-expected {
-                                #leading dquote
-                                #pseudo-token _start_squote_sequence ss not received by state machine
-                                #This pseudotoken will trigger production of single_dquote token or triple_dquote token
-                                #It currently doesn't trigger double_dquote token
-                                #(handle "" same as "x" ie produce a single_dquote and go into processing string)
-                                #review - producing double_dquote for empty string may be slightly more efficient.
-                                #This token is not used to handle dquote sequences once *within* a multistring 
-                                set_tokenType "_start_dquote_sequence"
-                                set tok {"}
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\""
-                                } else {
-                                    #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                    #we are building up a tentative_accum_squote to determine if
-                                    #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                    #b) it is exactly ''' and we can terminate the whole multiliteral
-                                    #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                    set_tokenType "tentative_trigger_dquote" ;#trigger tentative_accum_dquote
-                                    set tok {"}
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\""
-                            }
-                            table-space - itable-space {
-                                set_tokenType "dquotedkey"
-                                set tok ""
-                            }
-                            dottedkey-space {
-                                set_tokenType dquotedkey
-                                set tok ""
-
-                                #only if complex keys become a thing
-                                #set_tokenType dquote_seq_begin
-                                #set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            default {
-                                error "tomlish Unexpected dquote during state '$state' [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                = {
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                #assertion had_slash 0
-                                append tok $c
-                            }
-                            string - comment - dquotedkey {
-                                #for these tokenTypes an = is just data.
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type equal value = complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                #set_token_waiting type equal value = complete 1
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character '=' is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare name - but valid in quoted parts - leave for tablename parser to sort out
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish unexpected = character during tokentype $tokenType.  case not implemented. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok =
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "="
-                            }
-                            dottedkey-space {
-                                set_tokenType "equal"
-                                set tok "="
-                                return 1
-                            }
-                            default {
-                                set_tokenType "equal"
-                                set tok =
-                                return 1
-                            }
-                        }
-                    }
-                }
-                cr {
-                    #REVIEW!
-                    # \r carriage return
-                    if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #we have received a double cr
-                                ::tomlish::log::warn "double cr - will generate cr token. needs testing"
-                                set_tokenType "cr" ;#lone cr token will generally raise an error - but let state machine handle it
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal {
-                                append tok $c
-                            }
-                            literalpart {
-                                #part of MLL string (multi-line literal string)
-                                #we need to split out crlf as a separate NEWLINE to be consistent
-                                ::tomlish::log::warn "literalpart ended by cr - needs testing"
-                                #return literalpart temporarily - allow cr to be reprocessed from multiliteral-space
-                                incr i -1
-                                return 1
-                            }
-                            stringpart {
-                                #stringpart is a part of MLB string (multi-line basic string)
-                                #throw back the cr - if followed by lf it will become a {NEWLINE crlf} entry within the MULTISTRING list (e.g between STRINGPART entries)
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character <carriage return> is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #could in theory be valid in quoted part of name
-                                #review - might be better just to disallow here
-                                append tok $c
-                            }
-                            whitespace {
-                                #it should technically be part of whitespace if not followed by lf
-                                #but outside of values we are also free to map it to be another NEWLINE instead? REVIEW
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                incr i -1
-                                return 1
-                            }
-                            default {
-                                #!todo - error out if cr inappropriate for tokenType
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        #lf may be appended if next
-                        #review - lone cr as newline? - this is uncommon - but so is lone cr in a string(?)
-                        set_tokenType "newline"
-                        set tok cr
-                    }
-                }
-                lf {
-                    # \n newline
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #review
-                                #this lf is the trailing part of a crlf
-                                append tok lf ;#assert we should now have tok "crlf" - as a previous cr is the only way to have an incomplete newline tok
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                #multiliteral or multistring
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal {
-                                #nl is not allowed *within* a literal - require multiliteral syntax for any literal containing a newline ''' '''
-                                #even though we terminate the literal without the closing quote here - the token_waiting newline should trigger a state error
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #we allow newlines - but store them within the multiliteral as their own element
-                                #This is a legitimate end to the literalpart - but not the whole multiliteral
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            stringpart {
-                                if {$had_slash} {
-                                    #emit the stringpart (return 1), queue the continuation, go back 1 to reprocess the lf (incr i -1)
-                                    set_token_waiting type continuation value \\ complete 1 startindex [expr {$cindex-1}]
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type newline value lf complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            starttablename - tablename - tablearrayname - starttablearrayname {
-                                error "tomlish Character <linefeed> is invalid in $tokenType. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                #newline ends all other tokens.
-                                #note for string: we don't add (raw unescaped) newline to simple string. (must use multi-string for this)
-                                #note for whitespace:
-                                #    we will use the convention that \n terminates the current whitespace even if whitespace follows
-                                #    ie whitespace is split into separate whitespace tokens at each newline
-
-                                #puts "-------------- newline lf during tokenType $tokenType"
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType "newline"
-                                    set tok lf
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0 
-                                set_tokenType "newline"
-                                set tok "lf"
-                                return 1
-                            }
-                            default {
-                                #ignore slash? error?
-                                set_tokenType "newline"
-                                set tok lf
-                                return 1
-                            }
-                        }
-                        #if {$had_slash} {
-                        #    #CONT directly before newline - allows strings_5_byteequivalent test to pass
-                        #    set_tokenType "continuation"
-                        #    set tok "\\"
-                        #    incr i -1
-                        #    return 1
-                        #} else {
-                        #    set_tokenType newline
-                        #    set tok lf
-                        #    return 1
-                        #}
-                    }
-                }
-                , {
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            comment - tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok ,
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                #stringpart can have up to 2 quotes too
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0 
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type comma value "," complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            default {
-                                set_token_waiting type comma value "," complete 1 startindex $cindex
-                                if {$had_slash} {append tok "\\"}
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok ","
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0
-                                set_tokenType "literalpart"
-                                set tok ","
-                            }
-                            default {
-                                set_tokenType "comma"
-                                set tok ","
-                                return 1
-                            }
-                        }
-                    }
-                }
-                . {
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            comment - untyped_value {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0
-                                append tok $c
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        #review
-                                        if {$had_slash} {
-                                            incr i -2
-                                        } else {
-                                            incr i -1
-                                        }
-                                        return 1
-                                    }
-                                    xxxdottedkey-space {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    dottedkey-space-tail {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish Received  period during tokenType 'whitespace' [tomlish::parse::report_line]"
-                                    }
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                #This would correspond to an empty table name
-                                error "tomlish Character '.' is not allowed as first character ($tokenType). [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #subtable - split later - review
-                                append tok $c
-                            }
-                            barekey {
-                                #e.g x.y = 1
-                                #we need to transition the barekey to become a structured table name  ??? review
-                                #x is the tablename y is the key
-                                set_token_waiting type dotsep value "." complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                error "tomlish Received period during tokenType '$tokenType' [tomlish::parse::report_line]"
-                                #set_token_waiting type period value . complete 1
-                                #return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok "."
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "."
-                            }
-                            XXXdottedkey-space {
-                                ### obs?
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            dottedkey-space-tail {
-                                ###
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            default {
-                                set_tokenType "untyped_value"
-                                set tok "."
-                            }
-                        }
-                    }
-
-                }
-                " " {
-                    if {[tcl::string::length $tokenType]} {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                #todo had_slash - emit token or error
-                                #whitespace is a terminator for bare keys
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            comment {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} { append tok "\\" }
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART xxx WS " "
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    append tok $c
-                                } else {
-                                    append tok $c
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace space during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType "whitespace"
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                if {$had_slash} {
-                                    error "tomlish unexpected backslash [tomlish::parse::report_line]"
-                                }
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                tab {
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out (?review)
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                #whitespace is a terminator for bare keys
-                                incr i -1
-                                #set_token_waiting type whitespace value $c complete 1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            dquotedkey - string - comment - whitespace {
-                                #REVIEW
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " "
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace tab during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        if {$slash_active} {
-                            set slash_active 0
-                        }
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType whitespace
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                bom {
-                    #BOM (Byte Order Mark) - ignored by token consumer
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #assert - tok will be one or two squotes only
-                                #A toml literal probably isn't allowed to contain this
-                                #but we will parse and let the validator sort it out.
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string - stringpart {
-                                append tok $c
-                            }
-                            default {
-                                #state machine will generally not have entry to accept bom - let it crash
-                                set_token_waiting type bom value "\uFEFF" complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "bom"
-                                set tok "\uFEFF"
-                                return 1
-                            }
-                        }
-                    }
-                }
-                default {
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    #review
-                                    incr i -1  ;#We don't have a full token to add to the token_waiting dict - so leave this char for next run.
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed. (see tomlish::utils::is_barekey) [tomlish::parse::report_line]"
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                #allow statemachine to set context for subsequent chars
-                                return 1
-                            }
-                            stringpart {
-                                append tok $c
-                            }
-                            default {
-                                #e.g comment/string/literal/literalpart/untyped_value/starttablename/starttablearrayname/tablename/tablearrayname
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            table-space - itable-space {
-                                #if no currently active token - assume another key value pair
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                if {$had_slash} {
-                                    set tok \\$c
-                                } else {
-                                    set tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType "tablename"
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType barekey
-                                set tok $c
-                            }
-                            default {
-                                #todo - something like ansistring VIEW to show control chars?
-                                set cshow [string map [list \t tab \v vt] $c]
-                                tomlish::log::debug "- tokloop char '$cshow' setting to untyped_value while state:$state [tomlish::parse::report_line]"
-                                set_tokenType "untyped_value"
-                                set tok $c
-                            }
-                        }
-                    }
-                }
-            }
-
-        }
-
-        #run out of characters (eof)
-        if {[tcl::string::length $tokenType]} {
-            #check for invalid ending tokens
-            #if {$state eq "err-state"} {
-            #	error "Reached end of data whilst tokenType = '$tokenType'. INVALID"
-            #}
-            switch -exact -- $tokenType {
-                _start_squote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open literal
-                            error "tomlish eof reached without closing single quote for string literal. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            set_tokenType "literal"
-                            set tok ""
-                            return 1
-
-                            ##review
-                            #set_token_waiting type endsquote value "'" complete 1 startindex [expr {$cindex -1}]
-                            #set_tokenType "literal"
-                            #set tok ""
-                            #return 1
-                        }
-                    }
-                }
-                _start_dquote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open string
-                            error "tomlish eof reached without closing double quote for string. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            set_tokenType "string"
-                            set tok ""
-                            return 1
-                        }
-                    }
-                }
-                newline {
-                    #The only newline token that has still not been returned should have a tok value of "cr"
-                    puts "tomlish eof reached - with incomplete newline token '$tok'"
-                    if {$tok eq "cr"} {
-                        #we convert lone cr to it's own "cr" token elsewhere in the document to allow statemachine to handle it.
-                        #(which it should generally do by not handling it ie raising an error - or emitting an ERROR list in the tomlish)
-                        #if trailing char is a lone cr - we should encode it the same way as elsewhere that is outside of values
-                        # ie as it's own token.
-                        switch_tokenType "cr"
-                        return 1
-                    } else {
-                        #should be unreachable
-                        error "tomlish eof reached - with invalid newline token. value: $tok"
-                    }
-                }
-            }
-            set_token_waiting type eof value eof complete 1 startindex $i ;#review
-            return 1
-        } else {
-            ::tomlish::log::debug "- No current tokenType, ran out of characters, setting tokenType to 'eof' [tomlish::parse::report_line]"
-            set tokenType "eof"
-            set tok "eof"
-        }
-        return 0
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::parse ---}]
-}
-
-namespace eval tomlish::dict {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-
-    proc is_tomlish_typeval {d} {
-        #designed to detect {type <tag> value <whatever>} e.g {type INT value 3}, {type STRING value "blah etc"}
-        #as a sanity check we need to avoid mistaking user data that happens to match same form
-        #consider x.y={type="spud",value="blah"}
-        #The value of type will itself have already been converted to {type STRING value spud} ie never a single element.
-        #check the length of the type as a quick way to see it's a tag - not something else masqerading.
-        expr {[dict size $d] == 2 && [dict exists $d type] && [dict exists $d value] && [llength [dict get $d type]] == 1}
-    }
-    proc is_tomlish_typeval2 {d} {
-        upvar ::tomlish::tags tags
-        expr {[lindex $d 0] eq "type" && [lindex $d 1] in $tags}
-    }
-    proc last_tomltype_posn {d} {
-        set last_simple -1
-        set dictposn [expr {[dict size $d] -1}]
-        foreach k [lreverse [dict keys $d]] {
-            set dval [dict get $d $k]
-            if {[is_tomlish_typeval $dval]} {
-                set last_simple $dictposn
-                break
-            }
-            incr dictposn -1
-        }
-        return $last_simple
-    }
-
-
-    #review
-    proc name_from_tablestack {tablestack} {
-        set name ""
-        foreach tinfo [lrange $tablestack 1 end] {
-            lassign $tinfo type namepart
-            switch -- $type {
-                T {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                I {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                default {
-                    #end at first break in the leading sequence of T & I tablenames
-                    break
-                }
-            }
-        }
-        return $name
-    }
-
-    proc _show_tablenames {tablenames_info} {
-        append msg \n "tablenames_info:" \n
-        dict for {tkey tinfo} $tablenames_info {
-            append msg      "  "    "table:  $tkey" \n
-            dict for {field finfo} $tinfo {
-                append msg  "      "   "$field      $finfo" \n
-            }
-        }
-        return $msg
-    }
-}
-
-tcl::namespace::eval tomlish::app {
-    variable applist [list encoder decoder test]
-
-    #*** !doctools
-    #[subsection {Namespace tomlish::app}]
-    #[para]
-    #[list_begin definitions]
-
-    proc decoder {args} {
-        #*** !doctools
-        #[call app::[fun decoder] [arg args]]
-        #[para] read toml on stdin until EOF
-        #[para] on error   - returns non-zero exit code and writes error on stderr
-        #[para] on success - returns zero exit code and writes JSON encoding of the data on stdout
-        #[para] This decoder is intended to be compatible with toml-test
-
-        set opts [dict merge [dict create] $args]
-        #fconfigure stdin -encoding utf-8
-        fconfigure stdin -translation binary
-        #Just slurp it all - presumably we are not handling massive amounts of data on stdin.
-        # - even if the input is large, we probably don't gain much (aside from possible memory savings?) by attempting to process input as it arrives.
-        if {[catch {
-            set toml [read stdin]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set j [::tomlish::toml_to_json $toml]
-        } on error {em} {
-            puts stderr "decoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline stdout $j
-        exit 0
-    }
-
-    proc encoder {args} {
-        #*** !doctools
-        #[call app::[fun encoder] [arg args]]
-        #[para] read JSON on stdin until EOF
-        #[para] return non-zero exitcode if JSON data cannot be converted to a valid TOML representation
-        #[para] return zero exitcode and TOML data on stdout if JSON data can be converted.
-        #[para] This encoder is intended to be compatible with toml-test
-
-        set opts [dict merge [dict create] $args]
-        fconfigure stdin -translation binary
-        if {[catch {
-            set json [read stdin]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set toml [::tomlish::json_to_toml $json]
-        } on error {em} {
-            puts stderr "encoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline stdout $toml
-        exit 0
-    }
-
-    proc test {args} {
-        set opts [dict merge [dict create] $args]
-
-        package require test::tomlish
-        if {[dict exists $opts -suite]} {
-            test::tomlish::suite [dict get $opts -suite]
-        }
-        test::tomlish::run
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::app ---}]
-}
-
-proc ::tomlish::appnames {} {
-    set applist [list]
-    foreach cmd [info commands ::tomlish::app::*] {
-        lappend applist [namespace tail $cmd]
-    }
-    return $applist
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace tomlish::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-if {$argc > 0} {
-    puts stderr "argc: $argc args: $argv"
-
-    if {($argc == 1)} {
-        if {[tcl::string::tolower $argv] in {help -help h -h}} {
-            puts stdout "Usage: -app <appname> where appname one of:[tomlish::appnames]"
-            exit 0
-        } else {
-            puts stderr "Argument '$argv' not understood. Try -help"
-            exit 1
-        }
-    }
-    set opts [dict create]
-    set opts [dict merge $opts $argv]
-
-    set opts_understood [list -app ]
-    if {"-app" in [dict keys $opts]} {
-        #Don't vet the remaining opts - as they are interpreted by each app
-    } else {
-        foreach key [dict keys $opts] {
-            if {$key ni $opts_understood} {
-                puts stderr "Option '$key' not understood"
-                exit 1
-            }
-        }
-    }
-    if {[dict exists $opts -app]} {
-        set app [dict get $opts -app]
-        if {$app ni [tomlish::appnames]} {
-            puts stderr "app '[dict get $opts -app]' not found"
-            exit 1
-        }
-        tomlish::app::$app {*}$opts
-    }
-}
-
-##  Ready
-package provide tomlish [namespace eval tomlish {
-    variable pkg tomlish
-    variable version
-    set version 1.1.4
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.5.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.5.tm
deleted file mode 100644
index 7ff93c3e..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.5.tm
+++ /dev/null
@@ -1,6973 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application tomlish 1.1.5
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin tomlish_module_tomlish 0 1.1.5]
-#[copyright "2024"]
-#[titledesc {tomlish toml parser}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {tomlish}]             [comment {-- Description at end of page heading --}]
-#[require tomlish]
-#[keywords module parsing toml configuration]
-#[description]
-#[para] tomlish is an intermediate representation of toml data in a tree structure (tagged lists representing type information)
-#[para] The design goals are for tomlish to be whitespace and comment preserving ie byte-for byte preservation during roundtrips from toml to tomlish and back to toml
-#[para] The tomlish representation can then be converted to a Tcl dict structure or to other formats such as json,
-#[para] although these other formats are generally unlikely to retain whitespace or comments
-#[para] The other formats also won't preserve roundtripability e.g \t and a literal tab coming from a toml file will be indistinguishable.
-#[para] A further goal is to allow at least a useful subset of in-place editing operations which also preserve whitespace and comments.
-#[para] e.g leaf key value editing, and table reordering/sorting, key-renaming at any level, key insertions/deletions
-#[para] The API for editing (tomldoc object?) may require explicit setting of type if accessing an existing key
-#[para] e.g setting a key that already exists and is a different type (especially if nested structure such as a table or array)
-#[para] will need a -type option (-force ?) to force overriding with another type such as an int.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of tomlish
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by tomlish
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require struct::stack
-package require logger
-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {struct::stack}]
-
-#limit ourselves to clear, destroy, peek, pop, push, rotate, or size  (e.g v 1.3 does not implement 'get')
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    variable types
-
-    #default interp recursionlimit of 1000 is insufficient to pass 1000 deep nested structures as in certain toml tests.
-    #e.g https://github.com/iarna/toml-spec-tests/tree/latest/values
-    #1000 seems deep for a 'configuration' format - but toml sometimes used for other serialisation purposes.
-    #todo - review
-    set existing_recursionlimit [interp recursionlimit {}]
-    if {$existing_recursionlimit < 5000} {
-        interp recursionlimit {} 5000
-    }
-
-    #IDEAS:
-    # since get_toml produces tomlish with whitespace/comments intact:
-    # tomldoc object - allow (at least basic?) editing of toml whilst preserving comments & whitespace
-    # - setKey (set leaf only to value) how to specify type? -type option? - whole array vs index into arrays and further nested objects?  - option for raw toml additions?
-    # - separate addKey??
-    # - deleteKey (delete leaf)
-    # - deleteTable (delete table - if only has leaves? - option to delete with child tables?)
-    # - set/add Table? - position in doc based on existing tables/subtables?
-
-    #The tomlish intermediate representation allows things such as sorting the toml document by table name or other re-ordering of tables -
-    # because the tables include subkeys, comments and newlines within their structure - those elements all come along with it nicely during reordering.
-    #The same goes for the first newline following a keyval  e.g  x=1 \ny=2\n\n
-    #The newline is part of the keyval structure so makes reordering easier
-    #example from_toml "a=1\nb=2\n\n\n"
-    #  0 = TOMLISH
-    #  1 = KEY a = {INT 1} {NEWLINE lf}
-    #  2 = NEWLINE lf
-    #  3 = KEY b = {INT 2} {NEWLINE lf}
-    #  4 = NEWLINE lf
-    #  5 = NEWLINE lf
-
-    #This reordering idea is complicated by the nature of tablearrays - especially as a table header references last tablearrayname,
-    # and duplicate table headers are allowed in that context.
-    #e.g
-    #[[fruits]]
-    # name="apple"
-    #  [fruits.metadata]
-    #  id=1
-    #
-    #[unrelated1]
-    #
-    #[[fruits]]
-    # name="pear"
-    #
-    #[unrelated2]
-    # silly="ordering"
-    #
-    #[fruits.metadata]
-    #id=2
-    #The TABLEARRAY record can't be completely selfcontained on the default parsing mechanism - because it is legal (though not recommended) to have unrelated tables in between.
-    #If we were to 'insert' later related records (such as the 2nd [fruits.metadata] above) into the TABLEARRAY structure - then, even though it might produce 'nicer' toml,
-    # we would lose roundtripability toml->tomlish->toml
-    # -----------------------------------------------------
-    #REVIEW
-    #todo - some sort of 'normalize'/'grouping' function on tomlish that at least makes records self-contained, and perhaps then (optionally) reorders resulting records sensibly.
-    #such a function on the tomlish may work - although it would be unwise to duplicate the validation aspects of to_dict
-    #The most practical way might be to use to_dict followed by from_dict - but that would lose comment info and formatting.
-    #In the above example - The decision by the toml author to put [unrelated1] between related tablearrays should be respected,
-    #but the positioning of [unrelated2] between a tablearray and one of its contained tables is suspect.
-    #Both [fruits.metadata] table records should theoretically be added as children to their corresponding [[fruits]] tablearray record in the tomlish. (just as their name keys are)
-    # -----------------------------------------------------
-
-
-
-    #ARRAY is analogous to a Tcl list
-    #TABLE is analogous to a Tcl dict
-    #WS = inline whitespace
-    #KEY = bare key and value
-    #DQKEY = double quoted key and value
-    #SQKEY = single quoted key and value
-    #ITABLE = inline table (*can* be anonymous table)
-    #         inline table values immediately create a table with the opening brace
-    #         inline tables are fully defined between their braces, as are dotted-key subtables defined within
-    #         No additional subtables or arrays of tables may be defined within an inline table after the ending brace - they must be entirely self-contained
-
-    set tags [list TOMLISH ARRAY TABLE ITABLE TABLEARRAY WS NEWLINE COMMENT DOTTEDKEY KEY DQKEY SQKEY STRING STRINGPART MULTISTRING LITERAL LITERALPART MULTILITERAL INT FLOAT BOOL DATETIME]
-    #removed - ANONTABLE
-    #tomlish v1.0 should accept arbitrary 64-bit signed ints (from -2^63 to 2^63-1)
-    #we will restrict to this range for compatibility for now - although Tcl can handle larger (arbitrarily so?)
-    #todo - configurable - allow empty string for 'unlimited'
-    set min_int -9223372036854775808 ;#-2^63
-    set max_int +9223372036854775807 ;#2^63-1
-
-    proc Dolog {lvl txt} {
-        #return "$lvl -- $txt"
-        set msg "[clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] tomlish '$txt'"
-        puts stderr $msg
-    }
-    logger::initNamespace ::tomlish
-    foreach lvl [logger::levels] {
-        interp alias {} tomlish_log_$lvl {} ::tomlish::Dolog $lvl
-        log::logproc $lvl tomlish_log_$lvl
-    }
-
-    #*** !doctools
-    #[subsection {Namespace tomlish}]
-    #[para] Core API functions for tomlish
-    #[list_begin definitions]
-
-    proc tags {} {
-        return $::tomlish::tags
-    }
-
-    #helper function for to_dict
-    proc _get_keyval_value {keyval_element} {
-        log::notice ">>> _get_keyval_value from '$keyval_element'<<<"
-        #find the value (or 2 values if space separated datetime - and stitch back into one)
-        # 3 is the earliest index at which the value could occur (depending on whitespace)
-        if {[lindex $keyval_element 2] ne "="} {
-            error "tomlish _get_keyval_value keyval_element doesn't seem to be a properly structured {<keytype> <keydata> = <valuedat>} list"
-        }
-
-        #review
-        if {[uplevel 1 [list info exists tablenames_info]]} {
-            upvar tablenames_info tablenames_info
-        } else {
-            set tablenames_info [dict create] ;#keys are lists {parenttable subtable etc}  corresponding to parenttable.subtable.etc
-        }
-        set sublist [lrange $keyval_element 2 end]
-
-        set values [list]
-        set value_posns [list]
-        set posn 0
-        foreach sub $sublist  {
-            #note that a barekey/dquotedkey won't occur directly inside a barekey/dquotedkey
-            switch -exact -- [lindex $sub 0] {
-                STRING - LITERAL - MULTISTRING - MULTILITERAL - INT - FLOAT - BOOL - DATETIME - TABLE - ARRAY - ITABLE {
-                    lappend values $sub
-                    lappend value_posns $posn
-                }
-                default {}
-            }
-            incr posn
-        }
-        switch -- [llength $values] {
-            0 {
-                error "tomlish Failed to find value element in KEY. '$keyval_element'"
-            }
-            1 {
-                lassign [lindex $values 0] type value
-            }
-            2 {
-                #validate than exactly single space was between the two values
-                lassign $value_posns p1 p2
-                if {$p2 != $p1 +2} {
-                    #sanity check
-                    #can probably only get here through manual manipulation of the tomlish list to an unprocessable form
-                    error "tomlish KEY appears to have more than one part - but not separated by whitespace - invalid '$keyval_element'"
-                }
-                set between_token [lindex $sublist $p1+1]
-                if {[lindex $between_token 1] ne " "} {
-                    error "tomlish KEY in 2 parts is not separated by a single space - cannot consider for datetime '$keyval_element'"
-                }
-                lassign [lindex $values 0] type_d1 value_d1
-                lassign [lindex $values 1] type_d2 value_d2
-                if {$type_d1 ne "DATETIME" || $type_d2 ne "DATETIME"} {
-                    error "tomlish KEY in 2 parts does not appear to be datetime '$keyval_element'"
-                }
-                set type DATETIME
-                set value "${value_d1}T${value_d2}"
-            }
-            default {
-                error "tomlish Found multiple value elements in KEY, expected one. (or 2 for space-separated datetime) '$keyval_element'"
-            }
-        }
-
-        switch -exact -- $type {
-            INT - FLOAT - BOOL - DATETIME {
-                #simple (non-container, no-substitution) datatype
-                set result [list type $type value $value]
-            }
-            STRING - STRINGPART {
-                set result [list type $type value [::tomlish::utils::unescape_string $value]]
-            }
-            LITERAL - LITERALPART {
-                #REVIEW
-                set result [list type $type value $value]
-            }
-            TABLE {
-                #invalid?
-                error "tomlish _get_keyval_value invalid to have type TABLE on rhs of ="
-            }
-            ITABLE {
-                #This one should not be returned as a type <tag> value <something> structure!
-                #
-                set result [::tomlish::to_dict [ list [lindex $values 0] ]]
-            }
-            ARRAY {
-                #we need to recurse to get the corresponding dict for the contained item(s)
-                #pass in the whole [lindex $values 0] (type val) - not just the $value!
-                set prev_tablenames_info    $tablenames_info
-                set tablenames_info     [dict create]
-                set result [list type $type value [ ::tomlish::to_dict [  list [lindex $values 0]  ] ]]
-                set tablenames_info     $prev_tablenames_info
-            }
-            MULTISTRING - MULTILITERAL {
-                #review - mapping these to STRING might make some conversions harder?
-                #if we keep the MULTI<type> - we know we have to look for newlines for example when converting to json
-                #without specific types we'd have to check every STRING - and lose info about how best to map chars within it
-                set result [list type $type value [ ::tomlish::to_dict [  list [lindex $values 0]  ] ]]
-            }
-            default {
-                error "tomlish Unexpected value type '$type' found in keyval '$keyval_element'"
-            }
-        }
-        return $result
-    }
-
-
-
-    #to_dict is a *basic* programmatic datastructure for accessing the data.
-    # produce a dictionary of keys and values from a tomlish tagged list.
-    # to_dict is primarily for reading toml data.
-    #Extraneous (not within quoted sections) whitespace and comments are not preserved in this structure,
-    # so a roundtrip from toml to this datastructure and back to toml will lose whitespace formatting and comments.
-    # creating/changing toml values can be done directly on a tomlish list if preserving (or adding) formatting/comments is desired.
-    #A separate package 'tomlish::object' may be needed to allow easier programmatic creating/updating/deleting of data elements whilst preserving (or adding or selectively deleting/editing) such formatting.
-    #
-
-    #within an ARRAY, we store  a list of items such as plain dicts (possibly empty) and {type <tag> value <val>} for simple types
-    #(ARRAYS can be mixed type)
-    #This means our dict structure should have only ARRAY and simple types which need to be in {type <tag> value <val>} form
-    #A dict within an array encodeded as a type ITABLE value <etc> should also parse - but is the unpreferred form - REVIEW test?
-
-    #Namespacing?
-    #ie note the difference:
-    #[Data]
-    #temp = { cpu = 79.5, case = 72.0}
-    # versus
-    #[Data]
-    #temps = [{cpu = 79.5, case = 72.0}]
-    proc to_dict {tomlish} {
-        package require dictn
-
-        #keep track of which tablenames have already been directly defined,
-        # so we can raise an error to satisfy the toml rule: 'You cannot define any key or table more than once. Doing so is invalid'
-        #Note that [a] and then [a.b] is ok if there are no subkey conflicts - so we are only tracking complete tablenames here.
-        #we don't error out just because a previous tablename segment has already appeared.
-
-        #Declaring, Creating, and Defining Tables
-        #https://github.com/toml-lang/toml/issues/795
-        #(update - only Creating and Defining are relevant terminology)
-
-        #review
-        #tablenames_info keys type created, defined, createdby, definedby, closedby ??? review keys
-        # [tname] = header_table   [[tname]] = header_tablearray
-
-                #consider the following 2 which are legal:
-                #[table]     #'table' created, defined=open type header_table 
-                #x.y = 3
-                #[table.x.z] #'table' defined=closed closedby={header_table table.x.z}, 'table.x' created, 'table.x.z' created defined=open definedby={header_table table.x.z}
-                #k= 22
-                #            #'table.x.z' defined=closed closedby={eof eof}
-
-                #equivalent datastructure
-
-                #[table]     #'table' created, defined=open definedby={header_table table}
-                #[table.x]   #'table' defined=closed closedby={header_table table.x}, 'table.x' created defined=open definedby={header_table table.x}
-                #y = 3
-                #[table.x.z] #'table.x' defined=closed closedby={header_table table.x.z}, 'table.x.z' created defined=open definedby={header_table table.x.z}
-                #k=22
-
-                #illegal
-                #[table]       #'table' created and defined=open
-                #x.y = 3       #'table.x' created first keyval pair defined=open definedby={keyval x.y = 3}
-                #[table.x.y.z] #'table' defined=closed, 'table.x' closed because parent 'table' closed?, 'table.x.y' cannot be created
-                #k = 22
-                #
-                ## - we would fail on encountering table.x.y because only table and table.x are effectively tables - but that table.x is closed should be detected (?)
-
-                #illegal
-                #[table]
-                #x.y = {p=3}
-                #[table.x.y.z]
-                #k = 22
-                ## we should fail because y is an inline table which is closed to further entries
-
-            #note: it is not safe to compare normalized tablenames using join!
-            # e.g  a.'b.c'.d  is not the same as a.b.c.d
-            # instead compare {a b.c d} with {a b c d}
-            # Here is an example where the number of keys is the same, but they must be compared as a list, not a joined string.
-            #'a.b'.'c.d.e'  vs  'a.b.c'.'d.e'
-            #we need to normalize the tablenames seen so that {"x\ty"} matches {"x<rawtab>y"}
-
-
-
-        if {[uplevel 1 [list info exists tablenames_info]]} {
-            upvar tablenames_info tablenames_info
-        } else {
-            set tablenames_info [dict create] ;#keyed on tablepath each of which is a list such as {config subgroup etc} (corresponding to config.subgroup.etc)
-        }
-
-
-        log::info "---> to_dict  processing '$tomlish'<<<"
-        set items $tomlish
-
-        foreach lst $items {
-            if {[lindex $lst 0] ni $::tomlish::tags} {
-                error "supplied string does not appear to be toml parsed into a tomlish tagged list. Run tomlish::decode::toml on the raw toml data to produce a tomlish list"
-            }
-        }
-
-        if {[lindex $tomlish 0] eq "TOMLISH"} {
-            #ignore TOMLISH tag at beginning
-            set items [lrange $tomlish 1 end]
-        }
-
-        set datastructure [dict create]
-        foreach item $items {
-            set tag [lindex $item 0]
-            #puts "...> item:'$item' tag:'$tag'"
-            switch -exact -- $tag {
-                KEY - DQKEY - SQKEY {
-                    log::debug "---> to_dict item: processing $tag: $item"
-                    set key [lindex $item 1]
-                    if {$tag eq "DQKEY"} {
-                        set key [::tomlish::utils::unescape_string $key]
-                    }
-                    #!todo - normalize key. (may be quoted/doublequoted)
-
-                    if {[dict exists $datastructure $key]} {
-                        error "Duplicate key '$key'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-
-                    #lassign [_get_keyval_value $item] type val
-                    set keyval_dict [_get_keyval_value $item]
-                    dict set datastructure $key $keyval_dict
-                }
-                DOTTEDKEY {
-                    log::debug "---> to_dict item processing $tag: $item"
-                    set dkey_info                   [tomlish::to_dict::get_dottedkey_info $item]
-                    set dotted_key_hierarchy        [dict get $dkey_info keys]
-
-                    #a.b.c = 1
-                    #table_key_hierarchy -> a b
-                    #tleaf -> c
-                    if {[llength $dotted_key_hierarchy] == 0} {
-                        #empty?? probably invalid. review
-                        #This is different to '' = 1  or ''.'' = 1 which have lengths 1 and 2 respectively
-                        error "DOTTED key has no parts - invalid?  '$item'"
-                    } elseif {[llength $dotted_key_hierarchy] == 1} {
-                        #dottedkey is only a key - no table component
-                        set table_hierarchy [list]
-                        set tleaf [lindex $dotted_key_hierarchy 0]
-                    } else {
-                        set table_hierarchy [lrange $dotted_key_hierarchy 0 end-1]
-                        set tleaf [lindex $dotted_key_hierarchy end]
-                    }
-
-                    #ensure empty tables are still represented in the datastructure
-                    #review - this seems unnecessary?
-                    set pathkeys [list]
-                    foreach k $table_hierarchy {
-                        lappend pathkeys $k
-                        if {![dict exists $datastructure {*}$pathkeys]} {
-                            dict set datastructure {*}$pathkeys [list]
-                        } else {
-                            tomlish::log::notice "to_dict datastructure at key path $pathkeys already had data: [dict get $datastructure {*}$pathkeys]"
-                        }
-                    }
-                    #review?
-                    if {[dict exists $datastructure {*}$table_hierarchy $tleaf]} {
-                        error "Duplicate key '$table_hierarchy $tleaf'. The key already exists at this level in the toml data. The toml data is not valid."
-                    }
-
-                    #JMN test 2025
-                    if {[llength $table_hierarchy]} {
-                        dictn incr tablenames_info [list $table_hierarchy seencount]
-                    }
-
-                    set keyval_dict [_get_keyval_value $item]
-                    if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                        set t [list {*}$table_hierarchy $tleaf]
-                        dictn incr tablenames_info [list $t seencount]
-                        dictn set tablenames_info [list $t closed] 1
-
-                        #review - item is an ITABLE - we recurse here without datastructure context :/
-                        #overwriting keys? todo ?
-                        dict set datastructure {*}$table_hierarchy $tleaf $keyval_dict
-                    } else {
-                        dict set datastructure {*}$table_hierarchy $tleaf $keyval_dict
-                    }
-
-                }
-                TABLEARRAY {
-                    set dottedtables_defined [list] ;#for closing off at end by setting 'defined'
-
-                    set NEST_DICT [dict create] ;#first blush attempt at referencing supertable tablearrays
-                    set tablearrayname [lindex $item 1]
-                    log::debug "---> to_dict processing item TABLENAME (name: $tablearrayname): $item"
-                    set norm_segments [::tomlish::to_dict::tablename_split $tablearrayname true] ;#true to normalize
-                    #we expect repeated tablearray entries - each adding a sub-object to the value, which is an array/list.
-                    #tablearrayname is likely to appear multiple times - so unlike a TABLE we don't check for 'defined' for the full name as an indicator of a problem
-                    set supertable [list]
-                    ##############
-                    # [[a.b.c.d]]
-                    # norm_segments = {a b c d}
-                    #check a {a b} {a b c} <---- supertables of a.b.c.d
-                    ##############
-                    foreach normseg [lrange $norm_segments 0 end-1] {
-                        lappend supertable $normseg
-                        if {![dictn exists $tablenames_info [list $supertable type]]} {
-                            #supertable with this path doesn't yet exist
-                            if {[dict exists $datastructure {*}$supertable]} {
-                                #There is data though - so it must have been created as a keyval
-                                set msg "Supertable [join $supertable .] of tablearray name $tablearrayname already has data but doesn't appear to be a table - invalid"
-                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                #raise a specific type of error for tests to check
-                                #test: datastructure_tablearray_supertable_keycollision
-                                return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                            } else {
-                                #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                                #REVIEW!!
-                                # what happens with from_toml {[[a.b.c]]} {[[a]]}  ???
-                                dictn set tablenames_info [list $supertable type] header_table ;#how do we know it's not going to be a tablearray?
-                                #ensure empty tables are still represented in the datastructure
-                                dict set datastructure {*}$supertable [list]
-                            }
-                        } else {
-                            #supertable has already been created - and maybe defined - but even if defined we can add subtables unless it is of type itable
-                            #but if it's a tablearray - we need to point to the most 'recently defined table element of the array'
-                            #(another way of saying last member of that array)??
-                            set supertype [dictn get $tablenames_info [list $supertable type]]
-                            if {$supertype eq "header_tablearray"} {
-                                puts stdout "todict!!! TABLEARRAY nesting required for supertable [join $supertable .]"
-                                puts stdout "todict!!! todo.."
-                                #how to do multilevel nesting??
-                                set EXISTING_SUPERARRAY_ELEMENTS [dict get $datastructure {*}$supertable value]
-                                dict set NEST_DICT $supertable $EXISTING_SUPERARRAY_ELEMENTS
-                                puts stdout "todict!!! supertable '[join $supertable .]' elements $EXISTING_SUPERARRAY_ELEMENTS"
-                            }
-                        }
-                    }
-                    #
-                    if {![dictn exists $tablenames_info [list $norm_segments type]]} {
-                        #first encounter of this tablearrayname
-                        if {[dict exists $datastructure {*}$norm_segments]} {
-                            #e.g from_toml {a=1} {[[a]]}
-                            set msg "Cannot create tablearray name $tablearrayname. Key already has data but key doesn't appear to be a table (keycollision) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            #raise a specific type of error for tests to check
-                            #test: datastructure_tablearray_direct_keycollision_error
-                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                        }
-                        #no collision - we can create the tablearray and the  array in the datastructure
-                        dictn set tablenames_info [list $norm_segments type] header_tablearray
-                        dict set datastructure {*}$norm_segments [list type ARRAY value {}]
-                        set ARRAY_ELEMENTS [list]
-                    } else {
-                        #we have a table - but is it a tablearray?
-                        set ttype [dictn get $tablenames_info [list $norm_segments type]]
-                        #use a tabletype_unknown type for previous 'created' only tables?
-                        if {$ttype ne "header_tablearray"} {
-                            set msg "tablearray name $tablearrayname already appears to be already created as a table not a tablearray - invalid?"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            #raise a specific type of error for tests to check
-                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                        }
-                        #add to array
-                        #error "add_to_array not implemented"
-                        #{type ARRAY value <list>}
-                        set ARRAY_ELEMENTS [dict get $datastructure {*}$norm_segments value]
-                    }
-
-
-                    set object [dict create] ;#array context equivalent of 'datastructure'
-                    set objectnames_info [dict create] ;#array contex equivalent of tablenames_info
-
-                    #add to ARRAY_ELEMENTS and write back in to datastructure.
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> todict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                #MAINTENANCE: temp copy from TABLE 
-                                #convert to function: data needed? element, norm_segments refs to: tablename_info datastructure  ???
-                                set dkey_info [tomlish::to_dict::get_dottedkey_info $element]
-                                #e.g1 keys {x.y y} keys_raw {'x.y' "a\tb"}   keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-                                #e.g2 keys {x.y y} keys_raw {{"x.y"} "a\tb"} keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-
-                                #[a.b]
-                                #t1.t2.dottedtable.k = "val"
-                                #we have already checked supertables a {a b}
-                                #We need to check {a b t1} & {a b t2} ('creation' only)
-                                #and then 'dottedtable' is 'defined' while k is an ordinary key in dottedtable
-
-                                #note we also get here as a 'dottedkey' with a simple
-                                #[a.b]
-                                #k = "val"
-
-                                set all_dotted_keys        [dict get $dkey_info keys]
-                                set dottedkeyname          [join $all_dotted_keys .]
-                                #obsolete
-                                set nonleaf_keys           [lrange $all_dotted_keys 0 end-1] ;#may be empty
-
-                                if {[llength $all_dotted_keys] > 1} {
-                                    #dottedtable.k=1
-                                    #tX.dottedtable.k=1
-                                    #etc
-
-                                    set defines_a_table 1
-                                    #Wrap in a list so we can detect 'null' equivalent.
-                                    #We can't use empty string as that's a valid dotted key segment
-                                    set dottedtable_bag [list [lindex $all_dotted_keys end-1]]
-                                    set dotparents      [lrange $all_dotted_keys 0 end-2]
-                                } else {
-                                    #basic case - not really a 'dotted' key
-                                    #a = 1
-                                    set defines_a_table 0
-                                    set dottedtable_bag [list] ;#empty bag
-                                    set dotparents      [list]
-                                }
-                                #assert dottedtable_bag only ever holds 0 or 1 elements
-                                set leaf_key                    [lindex $all_dotted_keys end]
-
-                                #we've already tested the table keys that got us here.. but not the dottedkey segments (if any) prior to dottedtable & leaf_key
-                                #set supertable $norm_segments
-                                set supertable [list] ;#disconnect from main structure - each array element is a new context for key paths!
-                                foreach normkey $dotparents {
-                                    lappend supertable $normkey
-                                    if {![dictn exists $tablenames_info [list $supertable type]]} {
-                                        #supertable with this combined path (table norm_segments plus parts of dottedkey) not yet 'created'
-                                        if {[dict exists $datastructure {*}$supertable]} {
-                                            #There is data so it must have been created as a keyval
-                                            set msg "Supertable [join $supertable .] of dotted key $dottedkeyname already has data but doesn't appear to be a table (keycollision) - invalid"
-                                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                            #raise a specific type of error for tests to check
-                                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                        }
-                                        #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                                        dictn set tablenames_info [list $supertable type] unknown_table ;#REVIEW
-                                        #ensure empty tables are still represented in the datastructure
-                                        dict set datastructure {*}$supertable [list]
-                                    }
-                                }
-                                if {[llength $dottedtable_bag] == 1} {
-                                    set dottedtable [lindex $dottedtable_bag 0]
-                                    set dottedpath [list {*}$norm_segments {*}$dotparents $dottedtable] ;#full path to dottedtable
-                                    #our dotted key is attempting to define a table
-                                    if {![dictn exists $tablenames_info [list $dottedpath type]]} {
-                                        #first one - but check datastructure for collisions
-                                        if {[dict exists $datastructure {*}$dottedpath]} {
-                                            set msg "Supertable [join $dottedpath .] of dotted key $dottedkeyname already has data but doesn't appear to be a table (keycollision) - invalid"
-                                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                            #raise a specific type of error for tests to check
-                                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                        }
-                                        #'create' the table
-                                        dictn set tablenames_info [list $dottedpath type] dottedkey_table
-                                        #don't actually set 'defined' here.. use the end of TABLE record to close them off by looking at this list
-                                        lappend dottedtables_defined $dottedpath
-                                        #
-                                    } else {
-                                        #exists - but might be from another dottedkey within the current header section
-                                        #the table is open for adding keys until the next 'header' section ([tablename] / [[tablearray]])
-                                        #check for 'defined' closed (or just existence)
-                                        if {[dictn get $tablenames_info [list $dottedpath type]] eq "dottedkey_table"} {
-                                            #right type - but make sure it's from this header section - i.e defined not set 
-                                            set definedstate [dictn getdef $tablenames_info [list $dottedpath defined] NULL]
-                                            if {$definedstate ne "NULL"} {
-                                                #collision with some other dottedkey
-                                                set msg "Table $dottedpath represented by dottedkey $dottedkeyname has been 'defined' elsewhere (keycollision) - invalid"
-                                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                                return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                            }
-                                        }
-                                    }
-                                }
-                                #assert - dottedkey represents a key val pair that can be added
-
-
-                                if {[dict exists $datastructure {*}$norm_segments {*}$all_dotted_keys]} {
-                                    set msg "Duplicate key '$norm_segments $all_dotted_keys'. The key already exists at this level in the toml data. The toml data is not valid."
-                                    append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                    return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                }
-
-                                set keyval_dict [_get_keyval_value $element]
-                                #keyval_dict is either a {type <tomltag> value <whatever>}
-                                #or the result from parsing an arbitrary dict from an inline table - which could theoretically look the same at the topmost level
-                                #punk::dict::is_tomlish_typeval can distinguish
-                                puts stdout "to_dict>>> TABLE/dottedkey '$dottedkeyname' kv: $keyval_dict"
-                                #dict set datastructure {*}$norm_segments {*}$all_dotted_keys $keyval_dict
-                                #wrong
-                                #TODO!!!!!!!!!!!!!
-                                #lappend ARRAY_ELEMENTS [list $dottedkeyname $keyval_dict]
-                                dict set object $dottedkeyname $keyval_dict
-
-                                #remove ?
-                                if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                                    #the value is either empty or or a dict structure with arbitrary (from-user-data) toplevel keys
-                                    # inner structure will contain {type <tag> value <etc>} if all leaves are not empty ITABLES
-                                    set tkey [list {*}$norm_segments {*}$all_dotted_keys]
-                                    #lappend tablenames_info [list {*}$norm_segments  {*}$dkeys $leaf_key]
-
-                                    #by not creating a tablenames_info record - we effectively make it closed anyway?
-                                    #it should be detected as a key
-                                    #is there any need to store tablenames_info for it??
-                                    #REVIEW
-
-                                    ##TODO - update?
-                                    #dictn incr tablenames_info [list $tkey seencount]
-                                    ##if the keyval_dict is not a simple type x value y - then it's an inline table ?
-                                    ##if so - we should add the path to the leaf_key as a closed table too - as it's not allowed to have more entries added.
-                                    #dictn set tablenames_info [list $tkey closed] 1
-                                }
-
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            TABLE {
-                                #we should be able to process tablearray subtables either as part of the tablearray record, or independently.
-                                #(or even a mixture of both, although that is somewhat an edge case)
-                                #[[fruit]]
-                                #x=1
-                                #  [fruit.metadata]
-                                #  [fruit.otherdata]
-
-                                #when processing a dict destined for the above - the tomlish generator (e.g from_dict)
-                                #should create as 1 or 3 records (but could create 2 records if there was an unrelated table in between the subtables)
-                                #choices: all in tablearray record,  tablearray + 1 or 2 table records.
-                                #
-                                #We are going the other way here - so we just need to realize the list of tables 'belonging' to this tablearray might not be complete.
-                                #
-                                #the subtable names must be prefixed with the tablearray - we should validate that for any contained TABLE records
-
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in tablearray context. Expected only DOTTEDKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-
-                    #todo?
-                    ##end of TABLE record - equivalent of EOF or next header - close off the dottedtables
-                    #foreach dtablepath $dottedtables_defined {
-                    #    dictn set tablename_info [list $dtablepath defined] closed
-                    #}
-
-                    if {[dict size $NEST_DICT]} {
-                        puts "reintegrate?? $NEST_DICT"
-                        #todo - more - what if multiple in hierarchy?
-                        dict for {superpath existing_elements} $NEST_DICT {
-                            #objects stored directly as dicts in ARRAY value
-                            set lastd [lindex $existing_elements end]
-                            #insufficient..
-                            #dict set lastd [lindex $norm_segments end] [list type ITABLE value $object]
-                            dict set lastd [lindex $norm_segments end] $object
-                            #set lastd [dict merge $lastd $object]
-                            lset existing_elements end $lastd
-                            dict set datastructure {*}$superpath [list type ARRAY value $existing_elements]
-                        }
-                    } else {
-                        #lappend ARRAY_ELEMENTS [list type ITABLE value $object]
-                        lappend ARRAY_ELEMENTS $object
-                        dict set datastructure {*}$norm_segments [list type ARRAY value $ARRAY_ELEMENTS]
-                    }
-                }
-                TABLE  {
-                    set tablename [lindex $item 1]
-                    set dottedtables_defined [list] ;#for closing off at end by setting 'defined' 
-                    #As our TABLE record contains all it's child DOTTEDKEY records - this should be equivalent to setting them as defined at EOF or next header. 
-
-                    log::debug "---> to_dict processing item TABLE (name: $tablename): $item"
-                    set norm_segments [::tomlish::to_dict::tablename_split $tablename true] ;#true to normalize
-
-                    set T_DEFINED [dictn getdef $tablenames_info [list $norm_segments defined] NULL]
-                    if {$T_DEFINED ne "NULL"} {
-                        #our tablename e.g [a.b.c.d] declares a space to 'define' subkeys - but there has already been a definition space for this path
-                        set msg "Table name $tablename  has already been directly defined in the toml data. Invalid"
-                        append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                        #raise a specific type of error for tests to check
-                        return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                    }
-
-
-                    set name_segments [::tomlish::to_dict::tablename_split $tablename 0] ;#unnormalized e.g ['a'."b".c.d] -> 'a' "b" c d
-                    #results of tablename_split <name> 0 are 'raw' - ie some segments may be enclosed in single or double quotes.
-
-
-                    set supertable [list]
-                    ##############
-                    # [a.b.c.d]
-                    # norm_segments = {a b c d}
-                    #check a {a b} {a b c} <---- supertables of a.b.c.d
-                    ##############
-                    foreach normseg [lrange $norm_segments 0 end-1] {
-                        lappend supertable $normseg
-                        if {![dictn exists $tablenames_info [list $supertable type]]} {
-                            #supertable with this path doesn't yet exist
-                            if {[dict exists $datastructure {*}$supertable]} {
-                                #There is data though - so it must have been created as a keyval
-                                set msg "Supertable [join $supertable .] of table name $tablename already has data but doesn't appear to be a table (keycollision) - invalid"
-                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                #raise a specific type of error for tests to check
-                                return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                            }
-                            #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                            dictn set tablenames_info [list $supertable type] header_table
-                            #ensure empty tables are still represented in the datastructure
-                            dict set datastructure {*}$supertable [list]
-                        } else {
-                            #supertable has already been created - and may be defined - but even if defined we can add subtables unless it is of type itable
-
-                        }
-                    }
-                    #table [a.b.c.d] hasn't been defined - but may have been 'created' already by a longer tablename
-                    # - or may have existing data from a keyval
-                    if {![dictn exists $tablenames_info [list $norm_segments type]]} {
-                        if {[dict exists $datastructure {*}$norm_segments]} {
-                            #e.g from_toml {a=1} {[a]}
-                            set msg "Cannot create table name $tablename. Key already has data but key doesn't appear to be a table (keycollision) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            #raise a specific type of error for tests to check
-                            #test: datastructure_tablename_keyval_collision_error
-                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                        }
-                        #no data or previously created table
-                        dictn set tablenames_info [list $norm_segments type] header_table
-
-                        #We are 'defining' this table's keys and values here (even if empty)
-                        dict set datastructure {*}$norm_segments [list] ;#ensure table still represented in datastructure even if we add no keyvals here
-                    }
-                    dictn set tablenames_info [list $norm_segments defined] open
-                    log::debug ">>> to_dict >>>>>>>>>>>>>>>>> normalized table key hierarchy    : $norm_segments"
-
-                    #now add the contained elements
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> todict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                #convert to function: data needed? element, norm_segments refs to: tablename_info datastructure  ???
-                                set dkey_info [tomlish::to_dict::get_dottedkey_info $element]
-                                #e.g1 keys {x.y y} keys_raw {'x.y' "a\tb"}   keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-                                #e.g2 keys {x.y y} keys_raw {{"x.y"} "a\tb"} keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-
-                                #[a.b]
-                                #t1.t2.dottedtable.k = "val"
-                                #we have already checked supertables a {a b}
-                                #We need to check {a b t1} & {a b t2} ('creation' only)
-                                #and then 'dottedtable' is 'defined' while k is an ordinary key in dottedtable
-
-                                #note we also get here as a 'dottedkey' with a simple
-                                #[a.b]
-                                #k = "val"
-
-                                set all_dotted_keys        [dict get $dkey_info keys]
-                                set dottedkeyname          [join $all_dotted_keys .]
-                                #obsolete
-                                set nonleaf_keys           [lrange $all_dotted_keys 0 end-1] ;#may be empty
-
-                                if {[llength $all_dotted_keys] > 1} {
-                                    #dottedtable.k=1
-                                    #tX.dottedtable.k=1
-                                    #etc
-
-                                    set defines_a_table 1
-                                    #Wrap in a list so we can detect 'null' equivalent.
-                                    #We can't use empty string as that's a valid dotted key segment
-                                    set dottedtable_bag [list [lindex $all_dotted_keys end-1]]
-                                    set dotparents      [lrange $all_dotted_keys 0 end-2]
-                                } else {
-                                    #basic case - not really a 'dotted' key
-                                    #a = 1
-                                    set defines_a_table 0
-                                    set dottedtable_bag [list] ;#empty bag
-                                    set dotparents      [list]
-                                }
-                                #assert dottedtable_bag only ever holds 0 or 1 elements
-                                set leaf_key                    [lindex $all_dotted_keys end]
-
-                                #we've already tested the table keys that got us here.. but not the dottedkey segments (if any) prior to dottedtable & leaf_key
-                                set supertable $norm_segments
-                                foreach normkey $dotparents {
-                                    lappend supertable $normkey
-                                    if {![dictn exists $tablenames_info [list $supertable type]]} {
-                                        #supertable with this combined path (table norm_segments plus parts of dottedkey) not yet 'created'
-                                        if {[dict exists $datastructure {*}$supertable]} {
-                                            #There is data so it must have been created as a keyval
-                                            set msg "Supertable [join $supertable .] of dotted key $dottedkeyname already has data but doesn't appear to be a table (keycollision) - invalid"
-                                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                            #raise a specific type of error for tests to check
-                                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                        }
-                                        #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                                        dictn set tablenames_info [list $supertable type] unknown_table ;#REVIEW
-                                        #ensure empty tables are still represented in the datastructure
-                                        dict set datastructure {*}$supertable [list]
-                                    }
-                                }
-                                if {[llength $dottedtable_bag] == 1} {
-                                    set dottedtable [lindex $dottedtable_bag 0]
-                                    set dottedpath [list {*}$norm_segments {*}$dotparents $dottedtable] ;#full path to dottedtable
-                                    #our dotted key is attempting to define a table
-                                    if {![dictn exists $tablenames_info [list $dottedpath type]]} {
-                                        #first one - but check datastructure for collisions
-                                        if {[dict exists $datastructure {*}$dottedpath]} {
-                                            set msg "Supertable [join $dottedpath .] of dotted key $dottedkeyname already has data but doesn't appear to be a table (keycollision) - invalid"
-                                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                            #raise a specific type of error for tests to check
-                                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                        }
-                                        #'create' the table
-                                        dictn set tablenames_info [list $dottedpath type] dottedkey_table
-                                        #don't actually set 'defined' here.. use the end of TABLE record to close them off by looking at this list
-                                        lappend dottedtables_defined $dottedpath
-                                        #
-                                    } else {
-                                        #exists - but might be from another dottedkey within the current header section
-                                        #the table is open for adding keys until the next 'header' section ([tablename] / [[tablearray]])
-                                        #check for 'defined' closed (or just existence)
-                                        if {[dictn get $tablenames_info [list $dottedpath type]] eq "dottedkey_table"} {
-                                            #right type - but make sure it's from this header section - i.e defined not set 
-                                            set definedstate [dictn getdef $tablenames_info [list $dottedpath defined] NULL]
-                                            if {$definedstate ne "NULL"} {
-                                                #collision with some other dottedkey
-                                                set msg "Table $dottedpath represented by dottedkey $dottedkeyname has been 'defined' elsewhere (keycollision) - invalid"
-                                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                                return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                            }
-                                        }
-                                    }
-                                }
-                                #assert - dottedkey represents a key val pair that can be added
-
-
-                                if {[dict exists $datastructure {*}$norm_segments {*}$all_dotted_keys]} {
-                                    set msg "Duplicate key '$norm_segments $all_dotted_keys'. The key already exists at this level in the toml data. The toml data is not valid."
-                                    append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                    return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                                }
-
-                                set keyval_dict [_get_keyval_value $element]
-                                #keyval_dict is either a {type <tomltag> value <whatever>}
-                                #or the result from parsing an arbitrary dict from an inline table - which could theoretically look the same at the topmost level
-                                #punk::dict::is_tomlish_typeval can distinguish
-                                puts stdout "to_dict>>> TABLE/dottedkey $dottedkeyname kv: $keyval_dict"
-                                dict set datastructure {*}$norm_segments {*}$all_dotted_keys $keyval_dict
-
-                                #remove ?
-                                if {![tomlish::dict::is_tomlish_typeval $keyval_dict]} {
-                                    #the value is either empty or or a dict structure with arbitrary (from-user-data) toplevel keys
-                                    # inner structure will contain {type <tag> value <etc>} if all leaves are not empty ITABLES
-                                    set tkey [list {*}$norm_segments {*}$all_dotted_keys]
-                                    #lappend tablenames_info [list {*}$norm_segments  {*}$dkeys $leaf_key]
-
-                                    #by not creating a tablenames_info record - we effectively make it closed anyway?
-                                    #it should be detected as a key
-                                    #is there any need to store tablenames_info for it??
-                                    #REVIEW
-
-                                    ##TODO - update?
-                                    #dictn incr tablenames_info [list $tkey seencount]
-                                    ##if the keyval_dict is not a simple type x value y - then it's an inline table ?
-                                    ##if so - we should add the path to the leaf_key as a closed table too - as it's not allowed to have more entries added.
-                                    #dictn set tablenames_info [list $tkey closed] 1
-                                }
-
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in table context. Expected only DOTTEDKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-
-                    #end of TABLE record - equivalent of EOF or next header - close off the dottedtables
-                    foreach dtablepath $dottedtables_defined {
-                        dictn set tablename_info [list $dtablepath defined] closed
-                    }
-
-
-                    #review???
-                    #now make sure we add an empty value if there were no contained elements!
-                    #!todo.
-                }
-                ITABLE {
-                    #SEP???
-                    set datastructure [list]
-                    foreach element [lrange $item 1 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkey_info [tomlish::to_dict::get_dottedkey_info $element]
-                                set dotted_key_hierarchy       [dict get $dkey_info keys]
-                                set leaf_key [lindex $dotted_key_hierarchy end]
-                                set dkeys [lrange $dotted_key_hierarchy 0 end-1]
-
-                                #ensure empty keys are still represented in the datastructure
-                                set table_keys [list] ;#We don't know the context - next level up will have to check for key collisions?
-                                set test_keys $table_keys
-                                foreach k $dkeys {
-                                    lappend test_keys $k
-                                    if {![dict exists $datastructure {*}$test_keys]} {
-                                        dict set datastructure {*}$test_keys [list]
-                                    } else {
-                                        tomlish::log::notice "to_dict datastructure at (DOTTEDKEY) subkey $test_keys already had data: [dict get $datastructure {*}$test_keys]"
-                                    }
-                                }
-
-                                if {[dict exists $datastructure {*}$table_keys {*}$dkeys $leaf_key]} {
-                                    error "Duplicate key '$table_keys $dkeys $leaf_key'. The key already exists at this level in the toml data. The toml data is not valid."
-                                }
-                                set keyval_dict [_get_keyval_value $element]
-                                dict set datastructure {*}$table_keys {*}$dkeys $leaf_key $keyval_dict
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in ITABLE context. Expected only KEY,DQKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                }
-                ARRAY {
-                    #arrays in toml are allowed to contain mixtures of types
-                    set datastructure [list]
-                    log::debug "--> processing array: $item"
-
-                    foreach element [lrange $item 1 end]  {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            INT - FLOAT - BOOL - DATETIME {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            STRING {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::utils::unescape_string $value]]
-                            }
-                            LITERAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            ITABLE {
-                                #anonymous table
-                                #lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                                lappend datastructure  [::tomlish::to_dict [list $element]] ;#store itables within arrays as raw dicts (possibly empty)
-                            }
-                            TABLE {
-                                #invalid? shouldn't be output from from_dict - but could manually be constructed as such?  review
-                                #doesn't make sense as table needs a name?
-                                #take as synonym for ITABLE?
-                                error "to_dict TABLE within array unexpected"
-                            }
-                            ARRAY - MULTISTRING - MULTILITERAL {
-                                #set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                            }
-                            WS - SEP - NEWLINE - COMMENT {
-                                #ignore whitespace, commas, newlines and comments
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in array"
-                            }
-                        }
-                    }
-                }
-                MULTILITERAL {
-                    #triple squoted string
-                    #first newline stripped only if it is the very first element
-                    #(ie *immediately* following the opening delims)
-                    #All whitespace other than newlines is within LITERALPARTS
-                    # -------------------------------------------------------------------------
-                    #todo - consider extension to toml to allow indent-aware multiline literals
-                    # how - propose as issue in toml github? Use different delim? e.g ^^^ ?
-                    #e.g
-                    # xxx=?'''abc
-                    #         def
-                    #          etc
-                    #         '''
-                    #  - we would like to trimleft each line to the column following the opening delim
-                    # -------------------------------------------------------------------------
-
-                    log::debug "---> todict processing multiliteral: $item"
-                    set parts [lrange $item 1 end]
-                    if {[lindex $parts 0 0] eq "NEWLINE"} {
-                        set parts [lrange $parts 1 end] ;#skip it
-                    }
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            LITERALPART {
-                                append stringvalue [lindex $element 1]
-                            }
-                            NEWLINE {
-                                set val [lindex $element 1]
-                                if {$val eq "nl"} {
-                                    append stringvalue \n
-                                } else {
-                                    append stringvalue \r\n
-                                }
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                MULTISTRING {
-                    #triple dquoted string
-                    log::debug "---> to_dict processing multistring: $item"
-                    set stringvalue ""
-                    set idx 0
-                    set parts [lrange $item 1 end]
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        #We use STRINGPART in the tomlish representation as a distinct element to STRING - which would imply wrapping quotes to be reinserted
-                        switch -exact -- $type {
-                            STRING {
-                                #todo - do away with STRING ?
-                                #we don't build MULTISTRINGS containing  STRING - but should we accept it?
-                                tomlish::log::warn "double quoting a STRING found in MULTISTRING - should be STRINGPART?"
-                                append stringvalue "\"[::tomlish::utils::unescape_string [lindex $element 1]]\""
-                            }
-                            STRINGPART {
-                                append stringvalue [::tomlish::utils::unescape_string [lindex $element 1]]
-                            }
-                            CONT {
-                                #When the last non-whitespace character on a line is an unescaped backslash,
-                                #it will be trimmed along with all whitespace (including newlines) up to the next non-whitespace character or closing delimiter
-                                # review - we allow some whitespace in stringpart elements - can a stringpart ever be all whitespace?
-                                set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                if {$next_nl == -1} {
-                                    #last line
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"  ;#add the sep
-                                    } else {
-                                        #skip over ws without emitting
-                                        set idx [llength $parts]
-                                    }
-                                } else {
-                                    set parts_til_nl [lrange $parts 0 $next_nl-1]
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts_til_nl WS]
-                                    if {$non_ws >= 0} {
-                                        append stringvalue "\\"
-                                    } else {
-                                        #skip over ws on this line
-                                        set idx $next_nl
-                                        #then have to check each subsequent line until we get to first non-whitespace
-                                        set trimming 1
-                                        while {$trimming && $idx < [llength $parts]} {
-                                            set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                            if {$next_nl == -1} {
-                                                #last line
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                } else {
-                                                    set idx [llength $parts]
-                                                }
-                                                set trimming 0
-                                            } else {
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not [lrange $parts 0 $next_nl-1] WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                    set trimming 0
-                                                } else {
-                                                    set idx $next_nl
-                                                    #keep trimming
-                                                }
-                                            }
-                                        }
-                                    }
-                                }
-                            }
-                            NEWLINE {
-                                #if newline is first element - it is not part of the data of a multistring
-                                if {$idx > 0} {
-                                    set val [lindex $element 1]
-                                    if {$val eq "nl"} {
-                                        append stringvalue \n
-                                    } else {
-                                        append stringvalue \r\n
-                                    }
-                                }
-                            }
-                            WS {
-                                append stringvalue [lindex $element 1]
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                WS - COMMENT - NEWLINE {
-                    #ignore
-                }
-                default {
-                    error "Unexpected tag '$tag' in Tomlish list '$tomlish'"
-                }
-            }
-        }
-        return $datastructure
-    }
-
-
-    proc _from_dictval_tomltype {parents tablestack keys typeval} {
-        set type [dict get $typeval type]
-        set val  [dict get $typeval value]
-        switch -- $type {
-            ARRAY {
-                set subitems [list]
-                foreach item $val {
-                    lappend subitems [_from_dictval [list {*}$parents ARRAY] $tablestack $keys $item] SEP
-                }
-                if {[lindex $subitems end] eq "SEP"} {
-                    set subitems [lrange $subitems 0 end-1]
-                }
-                return [list ARRAY {*}$subitems]
-            }
-            ITABLE {
-                if {$val eq ""} {
-                    return ITABLE
-                } else {
-                    return [_from_dictval [list {*}$parents ITABLE] $tablestack $keys $val]
-                }
-            }
-            MULTISTRING {
-                #value is a raw string that isn't encoded as tomlish
-                #create a valid toml snippet with the raw value and decode it to the proper tomlish MULTISTRING format
-                #We need to convert controls in $val to escape sequences - except for newlines
-                #
-                #consider an *option* to reformat for long lines? (perhaps overcomplex - byte equiv - but may fold in ugly places)
-                #we could use a line-length limit to decide when to put in a "line ending backslash"
-                #and even format it with a reasonable indent so that proper CONT and WS entries are made (?) REVIEW
-                #
-                #TODO
-                set tomlpart "x=\"\"\"\\\n"
-                append tomlpart $val "\"\"\""
-                set tomlish [tomlish::decode::toml $tomlpart]
-                #e.g if val = " etc\nblah"
-                #TOMLISH {DOTTEDKEY {{KEY x}} = {MULTISTRING CONT {NEWLINE LF} {WS { }} {STRINGPART etc} {NEWLINE lf} {STRINGPART blah} } }
-                #lindex 1 3 is the MULTISTRING tomlish list
-                return [lindex $tomlish 1 3]
-            }
-            MULTILITERAL {
-                #MLL string can contain newlines - but still no control chars
-                #todo - validate
-                set tomlpart "x='''\n"
-                append tomlpart $val '''
-                set tomlish [tomlish::decode::toml $tomlpart]
-                return [lindex $tomlish 1 3]
-            }
-            LITERAL {
-                #from v1.0 spec - "Control characters other than tab are not permitted in a literal string"
-                #(This rules out raw ANSI SGR - which is somewhat restrictive - but perhaps justified for a config format
-                # as copy-pasting ansi to a config value is probably not always wise, and it's not something that can be
-                # easily input via a text editor. ANSI can go in Basic strings using the \e escape if that's accepted v1.1?)
-                #we could choose to change the type to another format here when encountering invalid chars - but that seems
-                #like too much magic. We elect to error out and require the dict to have valid data for the types it specifies.
-                if {[string first ' $val] >=0} {
-                    error "_from_dictval_tomltype error: single quote found in LITERAL - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                #detect control chars other than tab
-                #for this we can use rawstring_to_Bstring_with_escaped_controls - even though this isn't a Bstring
-                #we are just using the map to detect a difference.
-                set testval [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]
-                if {$testval ne $val} {
-                    #some escaping would have to be done if this value was destined for a Bstring...
-                    #therefor this string has controls and isn't suitable for a LITERAL according to the specs.
-                    error "_from_dictval_tomltype error: control chars (other than tab) found in LITERAL value - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list LITERAL $val]
-            }
-            STRING {
-                return [list STRING [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]]
-            }
-            INT {
-                if {![::tomlish::utils::is_int $val]} {
-                    error "_from_dictval_tomltype error: bad INT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list INT $val]
-            }
-            FLOAT {
-                if {![::tomlish::utils::is_float $val]} {
-                    error "_from_dictval_tomltype error: bad FLOAT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list FLOAT $val]
-            }
-            default {
-                if {$type ni [::tomlish::tags]} {
-                    error "_from_dictval_tomltype error: Unrecognised typename '$type' in {type <typename> value <value>} - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list $type $val]
-            }
-        }
-    }
-
-    #take a raw string and classify: result is a 2 element list comprised of  KEY|SQKEY|DQKEY and the value being the appropriate inner string
-    proc _from_dict_classify_key {rawval} {
-        if {![::tomlish::utils::is_barekey $rawval]} {
-            #requires quoting
-            #
-            #Any dot in the key would have been split by to_dict - so if it's present here it's part of this key - not a level separator!
-            #
-            #we'll use a basic mechanisms for now to determine the type of quoting
-            # - whether it has any single quotes or not.
-            #   (can't go in an SQKEY)
-            # - whether it has any chars that require quoting when in a Bstring
-            #   (if so - then its visual representation might be unsuitable for a key in a toml text file, so escape and put in DQKEY instead of literal SQKEY)
-            #todo - more?
-            #REVIEW - the backslash might often be in things like a regex or windows path - which is often better expressed in a literal SQKEY
-            # from literal examples:
-            # 'c:\Users\nodejs\templates'
-            # '<\i\c*\s*>'
-            #If these are in *keys* our basic test will express these as:
-            # "c:\\Users\\nodejs\\templates"
-            # "<\\i\\c*\\s*>"
-            # This still works - but a smarter test might determine when SQKEY is the better form?
-            #when coming from external systems - can we even know if the value was already escaped? REVIEW
-            #Probably when coming from json - we know it's already escaped - and so we build our dict converting keys to unescaped
-            #TODO - clarify in documentation that keys resulting from to_dict are in 'normalized' (unescaped) form
-            #
-            #For keys - we currently (2025) are only allowed barekeys,basic strings and literal strings. (no multiline forms)
-            set k_escaped [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $rawval]
-            if {[string length $k_escaped] != [string length $rawval]} {
-                #escaping made a difference
-                set has_escape_requirement 1
-            } else {
-                set has_escape_requirement 0
-            }
-            if {[string first ' $rawval] >=0 || $has_escape_requirement} {
-                #basic string
-                # (any ANSI SGR sequence will end up here in escaped form )
-                return [list DQKEY $k_escaped]
-            } else {
-                #literal string
-                return [list SQKEY $rawval]
-            }
-        } else {
-            return [list KEY $rawval]
-        }
-    }
-
-    #the quoting implies the necessary escaping for DQKEYs
-    proc _from_dict_join_and_quote_raw_keys {rawkeylist} {
-        set result ""
-        foreach rk $rawkeylist {
-            lassign [_from_dict_classify_key $rk] type val
-            switch -- $type {
-                SQKEY {
-                    append result "'$val'."
-                }
-                DQKEY {
-                    append result "\"$val\"."
-                }
-                KEY {
-                    append result "$val."
-                }
-            }
-        }
-        return [string range $result 0 end-1]
-    }
-    proc _from_dictval {parents tablestack keys vinfo} {
-        set k [lindex $keys end]
-        set K_PART [_from_dict_classify_key $k] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-        puts stderr "---parents:'$parents' keys:'$keys' vinfo: $vinfo---"
-        puts stderr "---tablestack: $tablestack---"
-        set result [list]
-        set lastparent [lindex $parents end]
-        if {$lastparent in [list "" do_inline]} {
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                set type [dict get $vinfo type]
-                #treat ITABLE differently?
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result DOTTEDKEY [list $K_PART {WS { }}] = {WS { }} $sublist {NEWLINE lf}
-            } else {
-                if {$vinfo ne ""} {
-
-                    #set result [list DOTTEDKEY [list [list KEY $k]] = ]
-                    #set records [list ITABLE]
-
-                    set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-
-                    if {$lastparent eq "do_inline"} {
-                        set result [list DOTTEDKEY [list $K_PART] =]
-                        set records [list ITABLE]
-                    } else {
-                        set tname [_from_dict_join_and_quote_raw_keys [list $k]]
-                        set result [list TABLE $tname {NEWLINE lf}]
-                        set tablestack [list {*}$tablestack [list T $k]]
-                        set records [list]
-                    }
-
-
-
-                    set lastidx [expr {[dict size $vinfo] -1}]
-                    set dictidx 0
-                    dict for {vk vv} $vinfo {
-                        set VK_PART [_from_dict_classify_key $vk] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-                        #(SQKEY & DQKEY do not have the enclosing quotes in their returned val)
-                        #if {[regexp {\s} $vk] || [string first . $vk] >= 0} {
-                        #    set VK_PART [list SQKEY $vk]
-                        #} else {
-                        #    set VK_PART [list KEY $vk]
-                        #}
-                        if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                            #type x value y
-                            #REVIEW - we could detect if value is an array of objects,
-                            #and depending on parent context - emit a series of TABLEARRAY records instead of a DOTTEDKEY record containing an ARRAY of objects
-                            set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                            set record [list DOTTEDKEY [list $VK_PART {WS { }}] = {WS { }} $sublist]
-                        } else {
-                            if {$vv eq ""} {
-                                #experimental
-                                if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    puts stderr "_from_dictval could uninline KEY $vk (tablestack:$tablestack)"
-                                    #set tname [tomlish::dict::name_from_tablestack [list {*}$tablestack [list T $vk]]]
-
-                                    #we can't just join normalized keys - need keys with appropriate quotes and escapes
-                                    #set tname [join [list {*}$keys $vk] .] ;#WRONG
-                                    set tq [_from_dict_join_and_quote_raw_keys [list {*}$keys $vk]]
-                                    set record [list TABLE $tq {NEWLINE lf}]
-                                    set tablestack [list {*}$tablestack [list T $vk]]
-                                } else {
-                                    set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    set tablestack [list {*}$tablestack [list I $vk]]
-                                }
-                            } else {
-                                if { 0 } {
-                                    #experiment.. sort of getting there.
-                                    if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                        puts stderr "_from_dictval could uninline2 KEYS [list {*}$keys $vk] (tablestack:$tablestack)"
-                                        set tq [_from_dict_join_and_quote_raw_keys [list {*}$keys $vk]]
-                                        set record [list TABLE $tq {NEWLINE lf}]
-                                        set tablestack [list {*}$tablestack [list T $vk]]
-
-                                        #review - todo?
-                                        set dottedkey_value [_from_dictval [list {*}$parents TABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        lappend record {*}$dottedkey_value
-
-                                    } else {
-                                        set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                    }
-                                } else {
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                        }
-                        if {$dictidx != $lastidx} {
-                            #lappend record SEP
-                            if {$lastparent eq "do_inline"} {
-                                lappend record SEP
-                            } else {
-                                lappend record {NEWLINE lf}
-                            }
-                        }
-                        lappend records $record
-                        incr dictidx
-                    }
-                    if {$lastparent eq "do_inline"} {
-                        lappend result $records {NEWLINE lf}
-                    } else {
-                        lappend result {*}$records {NEWLINE lf}
-                    }
-                } else {
-                    if {$lastparent eq "do_inline"} {
-                        lappend result DOTTEDKEY [list $K_PART] = ITABLE {NEWLINE lf}
-                    } else {
-                        set tname [_from_dict_join_and_quote_raw_keys [list $k]]
-                        lappend result TABLE $tname {NEWLINE lf}
-                    }
-                }
-            }
-        } else {
-            #lastparent is not toplevel "" or "do_inline"
-            if {[tomlish::dict::is_tomlish_typeval $vinfo]} {
-                #type x value y
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result {*}$sublist
-            } else {
-                if {$lastparent eq "TABLE"} {
-                    #review
-                    dict for {vk vv} $vinfo {
-                        set VK_PART [_from_dict_classify_key $vk] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-                        set dottedkey_value [_from_dictval [list {*}$parents DOTTEDKEY] $tablestack [list {*}$keys $vk] $vv]
-                        lappend result [list DOTTEDKEY [list $VK_PART] = $dottedkey_value {NEWLINE lf}]
-                    }
-                } else {
-                    if {$vinfo ne ""} {
-                        set lastidx [expr {[dict size $vinfo] -1}]
-                        set dictidx 0
-                        set sub [list]
-                        #REVIEW
-                        #set result $lastparent ;#e.g sets ITABLE
-                        set result ITABLE
-                        set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-                        dict for {vk vv} $vinfo {
-                            set VK_PART [_from_dict_classify_key $vk] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-                            if {[tomlish::dict::is_tomlish_typeval $vv]} {
-                                #type x value y
-                                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                                set record [list DOTTEDKEY [list $VK_PART] = $sublist]
-                            } else {
-                                if {$vv eq ""} {
-                                    #can't just uninline at this level
-                                    #we need a better method to query main dict for uninlinability at each level
-                                    # (including what's been inlined already)
-                                    #if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    #    puts stderr "_from_dictval uninline2 KEY $keys"
-                                    #     set tname [_from_dict_join_and_quote_raw_keys [list {*}$keys $vk]]
-                                    #    set record [list TABLE $tname {NEWLINE lf}]
-                                    #    set tablestack [list {*}$tablestack [list T $vk]]
-                                    #} else {
-                                        set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    #}
-                                } else {
-                                    #set sub [_from_dictval ITABLE $vk $vv]
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    #set record [list DOTTEDKEY [list $VK_PART] = ITABLE $dottedkey_value]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                            if {$dictidx != $lastidx} {
-                                lappend record SEP
-                            }
-                            lappend result $record
-                            incr dictidx
-                        }
-                    } else {
-                        puts stderr "table x-1"
-                        lappend result DOTTEDKEY [list $K_PART] = ITABLE
-                    }
-                }
-            }
-        }
-        return $result
-    }
-
-
-    proc from_dict {d} {
-        #consider:
-        #   t1={a=1,b=2}
-        #    x = 1
-        #If we represent t1 as an expanded table we get
-        # [t1]
-        # a=1
-        # b=2
-        # x=1
-        # --- which is incorrect - as x was a toplevel key like t1!
-        #This issue doesn't occur if x is itself an inline table
-        #   t1={a=1,b=2}
-        #   x= {no="problem"}
-        #
-        # (or if we were to reorder x to come before t1)
-
-        #As the dictionary form doesn't distinguish the structure used to create tables {[table1]\nk=v} vs inline {table1={k=v}}
-        #Without a solution, from_dict would have to always produce the inline form for toplevel tables unless we allowed re-ordering,
-        #which is unpreferred here.
-
-        #A possible solution:
-        #scan the top level to see if all (trailing) elements are themselves dicts
-        # (ie not of form {type XXX value yyy})
-        #
-        # A further point is that if all root level values are at the 'top' - we can treat lower table-like structures as {[table]} elements
-        #ie we don't need to force do_inline if all the 'simple' keys are before any compound keys
-
-        #set root_has_values 0
-        #approach 1) - the naive approach - forces inline when not always necessary
-        #dict for {k v} $d {
-        #    if {[llength $v] == 4 && [lindex $v 0] eq "type"} {
-        #        set root_has_values 1
-        #        break
-        #    }
-        #}
-
-
-        #approach 2) - track the position of last {type x value y} in the dictionary built by to_dict
-        # - still not perfect. Inlines dotted tables unnecessarily
-        #This means from_dict doesn't produce output optimal for human editing.
-        set last_simple [tomlish::dict::last_tomltype_posn $d]
-
-
-        ## set parent "do_inline" ;#a value used in _from_dictval to distinguish from "" or other context based parent values
-        #Any keys that are themselves tables - will need to be represented inline
-        #to avoid reordering, or incorrect assignment of plain values to the wrong table.
-
-        ## set parent ""
-        #all toplevel keys in the dict structure can represent subtables.
-        #we are free to use {[tablename]\n} syntax for toplevel elements.
-
-
-        set tomlish [list TOMLISH]
-        set dictposn 0
-        set tablestack [list [list T root]] ;#todo
-        dict for {t tinfo} $d {
-            if {$last_simple > $dictposn} {
-                set parents [list do_inline]
-            } else {
-                set parents [list ""]
-            }
-            set keys [list $t]
-            #review - where to make decision on
-            # DOTTEDKEY containing array of objs
-            #vs
-            # list of TABLEARRAY records
-            #At least for the top
-            set trecord [_from_dictval $parents $tablestack $keys $tinfo]
-            lappend tomlish $trecord
-            incr dictposn
-        }
-        return $tomlish
-    }
-
-    proc json_to_toml {json} {
-        #*** !doctools
-        #[call [fun json_to_toml] [arg json]]
-        #[para]
-
-        set tomlish [::tomlish::from_json $json]
-        set toml [::tomlish::to_toml $tomlish]
-    }
-
-    #TODO use huddle?
-    proc from_json {json} {
-        #set jstruct [::tomlish::json_struct $json]
-        #return [::tomlish::from_json_struct $jstruct]
-        package require huddle
-        package require huddle::json
-        set h [huddle::json::json2huddle parse $json]
-
-    }
-
-    proc from_json_struct {jstruct} {
-        package require fish::json_toml
-        return [fish::json_toml::jsonstruct2tomlish $jstruct]
-    }
-
-    proc toml_to_json {toml} {
-        set tomlish [::tomlish::from_toml $toml]
-        return [::tomlish::get_json $tomlish]
-    }
-
-    proc get_json {tomlish} {
-        package require fish::json
-        set d [::tomlish::to_dict $tomlish]
-
-        #return [::tomlish::dict_to_json $d]
-        return [fish::json::from "struct" $d]
-    }
-
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-namespace eval tomlish::build {
-    #STRING,INT,FLOAT,BOOL, DATETIME - simple wrappers for completeness
-    # take a value of the appropriate type and wrap as a tomlish tagged item
-    proc STRING {s} {
-        return [list STRING [::tomlish::utils::rawstring_to_Bstring_with_escaped_controls $s]]
-    }
-    proc LITERAL {litstring} {
-        error todo
-    }
-
-    proc INT {i} {
-        #whole numbers, may be prefixed with a + or -
-        #Leading zeros are not allowed
-        #Hex,octal binary forms are allowed (toml 1.0)
-        #We will error out on encountering commas, as commas are interpreted differently depending on locale (and don't seem to be supported in the toml spec anyway)
-        #!todo - Tcl can handle bignums - bigger than a 64bit signed long as specified in toml.
-        #      - We should probably raise an error for number larger than this and suggest the user supply it as a string?
-        if {[tcl::string::last , $i] > -1} {
-            error "Unable to interpret '$i' as an integer. Use underscores if you need a thousands separator [::tomlish::parse::report_line]"
-        }
-        if {![::tomlish::utils::int_validchars $i]} {
-            error "Unable to interpret '$i' as an integer. Only 0-9 + 1 _ characters are acceptable. [::tomlish::parse::report_line]"
-        }
-
-        if {[::tomlish::utils::is_int $i]} {
-            return [list INT $i]
-        } else {
-            error "'$i' is not a valid integer as per the Toml spec. [::tomlish::parse::report_line]"
-        }
-
-    }
-
-    proc FLOAT {f} {
-        #convert any non-lower case variants of special values to lowercase for Toml
-        if {[::tcl::string::tolower $f] in {nan +nan -nan inf +inf -inf}} {
-            return [list FLOAT [tcl::string::tolower $f]]
-        }
-        if {[::tomlish::utils::is_float $f]} {
-            return [list FLOAT $f]
-        } else {
-            error "Unable to interpret '$f' as Toml float. Check your input, or check that tomlish is able to handle all Toml floats properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc DATETIME {str} {
-        if {[::tomlish::utils::is_datetime $str]} {
-            return [list DATETIME $str]
-        } else {
-            error "Unable to interpret '$str' as Toml datetime. Check your input, or check that tomlish is able to handle all Toml datetimes properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc BOOLEAN {b} {
-        #convert any Tcl-acceptable boolean to boolean as accepted by toml - lower case true/false
-        if {![tcl::string::is boolean -strict $b]} {
-            error "Unable to convert '$b' to Toml boolean true|false. [::tomlish::parse::report_line]"
-        } else {
-            if {$b && 1} {
-                return [::list BOOL true]
-            } else {
-                return [::list BOOL false]
-            }
-        }
-    }
-
-    #REVIEW
-    #Take tablename followed by
-    # a) *tomlish* name-value pairs e.g table mydata [list KEY item11 = [list STRING "test"]] {KEY item2 = [list INT 1]}
-    # (accept also key <keyname> value {STRING <value>})
-    # b) simple 2-element tcl lists being name & *simple* value pairs for which basic heuristics will be used to determine types
-    proc _table {name args} {
-        set pairs [list]
-        foreach t $args {
-            if {[llength $t] == 4} {
-                if {[tcl::string::tolower [lindex $t 0]] ne "key" || [tcl::string::tolower [lindex $t 2]] ni "= value"} {
-                    error "Only items tagged as KEY <keyname> = <value> currently accepted as name-value pairs for table command"
-                }
-                lassign $t _k keystr _eq valuepart
-                if {[llength $valuepart] != 2} {
-                    error "supplied value must be typed. e.g {INT 1} or {STRING test}"
-                }
-                lappend pairs [list KEY $keystr = $valuepart]
-            } elseif {[llength $t] == 2} {
-                #!todo - type heuristics
-                lassign $t n v
-                lappend pairs [list KEY $n = [list STRING $v]]
-            } else {
-                error "'KEY <name> = {<type> <val}' or simple name-value pairs expected. Unable to handle [llength $t] element list as argument"
-            }
-        }
-        set result [list TABLE $name {NEWLINE lf}]
-        foreach p $pairs {
-            lappend result $p {NEWLINE lf}
-        }
-        return $result
-        #return [list TABLE $name $pairs]
-    }
-
-
-    #REVIEW - root & table are not correct
-    #the tomlish root is basically a nameless table representing the root of the document
-    proc _root {args} {
-        set table [::tomlish::encode::table TOMLISH {*}$args]
-        set result [lrange $table 2 end]
-    }
-
-}
-
-namespace eval tomlish::encode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::encode}]
-    #[para]
-    #[list_begin definitions]
-
-
-
-
-    #WS = whitepace, US = underscore
-    #---------------------------------------------------------------------------------------------------------
-    #NOTE - this DELIBERATELY does not validate the data, or process escapes etc
-    #It encodes the tomlish records as they are.
-    #ie it only produces toml shaped data from a tomlish list.
-    #
-    #It is part of the roundtripability of data from toml to tomlish
-    #!! ie - it is not the place to do formatting of inline vs multiline !!
-    # That needs to be encoded in the tomlish data that is being passed in
-    # (e.g from_dict could make formatting decisions in the tomlish it produces)
-    #
-    #e.g duplicate keys etc can exist in the toml output.
-    #The to_dict from_dict (or any equivalent processor pair) is responsible for validation and conversion
-    #back and forth of escape sequences where appropriate.
-    #---------------------------------------------------------------------------------------------------------
-    proc tomlish {list {context ""}} {
-        if {![tcl::string::is list $list]} {
-            error "Supplied 'tomlish' is not a valid Tcl list. Expected a tagged list (parsed Toml)"
-        }
-        set toml "" ;#result string
-
-        foreach item $list {
-            set tag [lindex $item 0]
-            #puts "tomlish::encode::tomlish processing item '$item', tag '$tag'"
-            #during recursion, some tags require different error checking in different contexts.
-            set nextcontext $tag ;
-
-            #Handle invalid tag nestings
-            switch -- $context {
-                DQKEY -
-                SQKEY -
-                KEY {
-                    if {$tag in {KEY DQKEY SQKEY}} {
-                        error "Invalid tag '$tag' encountered within '$context'"
-                    }
-                }
-                MULTISTRING {
-                    #explicitly list the valid child tags
-                    set ms_parts {STRING STRINGPART WS NEWLINE CONT}
-                    if {$tag ni $ms_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTISTRING must belong to: $ms_parts"
-                    }
-                }
-                MULTILITERAL {
-                    set ml_parts {LITERALPART NEWLINE}
-                    if {$tag ni $ml_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTILITERAL must belong to: $ml_parts"
-                    }
-                }
-                default {
-                    #no context, or no defined nesting error for this context
-                }
-            }
-
-            switch -- $tag {
-                TOMLISH {
-                    #optional root tag. Ignore.
-                }
-                DQKEY -
-                SQKEY -
-                KEY {
-                    #
-                    if {$tag eq "KEY"} {
-                        append toml [lindex $item 1] ;#Key
-                    } elseif {$tag eq "SQKEY"} {
-                        append toml '[lindex $item 1]' ;#SQuoted Key
-                    } else {
-                        append toml \"[lindex $item 1]\" ;#DQuoted Key
-                    }
-                    #= could be at various positions depending on WS
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                DOTTEDKEY {
-                    #DQKEY, SQKEY, BAREKEY, WS, DOTSEP
-                    foreach part [lindex $item 1] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    #whitespace at tail of dotted key elements is within the list in element 1
-                    #generally we expect the = to be at element 2 - review
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            #puts "encoding [list $part] (context:$nextcontext)"
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                TABLE {
-                    append toml "\[[lindex $item 1]\]"  ;#table name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ITABLE {
-                    #inline table - e.g within array or on RHS of keyval/qkeyval
-                    set data ""
-                    foreach part [lrange $item 1 end] {
-                        append data [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\{$data\}"
-                }
-                TABLEARRAY {
-                    append toml "\[\[[lindex $item 1]\]\]"  ;#tablearray name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ARRAY {
-                    set arraystr ""
-                    foreach part [lrange $item 1 end] {
-                        append arraystr [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\[$arraystr\]"
-                }
-                WS {
-                    append toml [lindex $item 1]
-                }
-                SEP {
-                    append toml ","
-                }
-                DOTSEP {
-                    append toml "."
-                }
-                NEWLINE {
-                    set chartype [lindex $item 1]
-                    if {$chartype eq "lf"} {
-                        append toml \n
-                    } elseif {$chartype eq "crlf"} {
-                        append toml \r\n
-                    } else {
-                        error "Unrecognized newline type '$chartype'"
-                    }
-                }
-                CONT {
-                    #line continuation character "\"
-                    append toml "\\"
-                }
-                STRING {
-                    #Basic string (Bstring)
-                    #simple double quoted strings only
-                    #
-                    append toml \"[lindex $item 1]\"
-                }
-                STRINGPART {
-                    append toml [lindex $item 1]
-                }
-                MULTISTRING {
-                    #Tripple quoted string which is a container for newlines,whitespace and multiple strings/stringparts
-                    set multistring "" ;#variable to build up the string
-                    foreach part [lrange $item 1 end] {
-                        append multistring [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\"\"\"$multistring\"\"\""
-                }
-                LITERAL {
-                    #Single Quoted string(literal string)
-                    append toml '[lindex $item 1]'
-                }
-                LITERALPART {
-                    append toml [lindex $item 1]
-                }
-                MULTILITERAL {
-                    #multiliteral could be handled as a single literal if we allowed literal to contain newlines
-                    #- except that the first newline must be retained for roundtripping tomlish <-> toml but
-                    # the first newline is not part of the data.
-                    # we elect instead to maintain a basic LITERALPART that must not contain newlines..
-                    # and to compose MULTILITERAL of multiple NEWLINE LITERALPART parts,
-                    #with the datastructure representation dropping the first newline (if immediately following opening delim) when building the value.
-                    set literal ""
-                    foreach part [lrange $item 1 end] {
-                        append literal [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml '''$literal'''
-                }
-                INT -
-                BOOL -
-                FLOAT -
-                DATETIME {
-                    append toml [lindex $item 1]
-                }
-                INCOMPLETE {
-                    error "cannot process tomlish term tagged as INCOMPLETE"
-                }
-                COMMENT {
-                    append toml "#[lindex $item 1]"
-                }
-                BOM {
-                    #Byte Order Mark may appear at beginning of a file. Needs to be preserved.
-                    append toml "\uFEFF"
-                }
-                default {
-                    error "Not a properly formed 'tomlish' taggedlist.\n '$list'\n Unknown tag '[lindex $item 0]'. See output of \[tomlish::tags\] command."
-                }
-            }
-
-        }
-        return $toml
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::encode ---}]
-}
-#fish toml from tomlish
-
-#(encode tomlish as toml)
-interp alias {} tomlish::to_toml {} tomlish::encode::tomlish
-
-#
-
-
-namespace eval tomlish::decode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::decode}]
-    #[para]
-    #[list_begin definitions]
-
-    #return a Tcl list of tomlish tokens
-    #i.e get a standard list of all the toml terms in string $s
-    #where each element of the list is a *tomlish* term.. i.e a specially 'tagged' Tcl list.
-    #(simliar to a tcl 'Huddle' - but also supporting whitespace preservation)
-    # ----------------------------------------------------------------------------------------------
-    # NOTE: the production of tomlish from toml source doesn't indicate the toml source was valid!!!
-    # e.g we deliberately don't check certain things such as duplicate table declarations here.
-    # ----------------------------------------------------------------------------------------------
-    #Part of the justification for this is that as long as the syntax is toml shaped - we can load files which violate certain rules and allow programmatic manipulation.
-    # (e.g perhaps a toml editor to highlight violations for fixing)
-    # A further stage is then necessary to load the tomlish tagged list into a data structure more suitable for efficient query/reading.
-    # e.g dicts or an object oriented structure
-    #Note also - *no* escapes in quoted strings are processed. This is up to the datastructure stage
-    #e.g to_dict will substitute \r \n \uHHHH \UHHHHHHH etc
-    #This is important for tomlish to maintain the ability to perform competely lossless round-trips from toml to tomlish and back to toml.
-    # (which is handy for testing as well as editing some part of the structure with absolutely no effect on other parts of the document)
-    #If we were to unescape a tab character for example
-    # - we have no way of knowing if it was originally specified as \t \u0009 or \U00000009 or directly as a tab character.
-    # For this reason, we also do absolutely no line-ending transformations based on platform.
-    # All line-endings are maintained as is, and even a file with mixed lf crlf line-endings will be correctly interpreted and can be 'roundtripped'
-
-    proc toml {args} {
-        #*** !doctools
-        #[call [fun toml] [arg arg...]]
-        #[para] return a Tcl list of tomlish tokens
-
-        set s [join $args \n]
-
-        namespace upvar ::tomlish::parse is_parsing is_parsing
-        set is_parsing 1
-
-        if {[info command ::tomlish::parse::spacestack] eq "::tomlish::parse::spacestack"} {
-            tomlish::parse::spacestack destroy
-        }
-        struct::stack ::tomlish::parse::spacestack
-
-        namespace upvar ::tomlish::parse last_space_action last_space_action
-        namespace upvar ::tomlish::parse last_space_type last_space_type
-
-        namespace upvar ::tomlish::parse tok tok
-        set tok ""
-
-        namespace upvar ::tomlish::parse type type
-        namespace upvar ::tomlish::parse tokenType tokenType
-        ::tomlish::parse::set_tokenType ""
-        namespace upvar ::tomlish::parse tokenType_list tokenType_list
-        set tokenType [list]  ;#Flat (un-nested) list of tokentypes found
-
-        namespace upvar ::tomlish::parse lastChar lastChar
-        set lastChar ""
-
-
-        set result ""
-        namespace upvar ::tomlish::parse nest nest
-        set nest 0
-
-        namespace upvar ::tomlish::parse v v  ;#array keyed on nest level
-
-
-        set v(0) {TOMLISH}
-        array set s0 [list] ;#whitespace data to go in {SPACE {}} element.
-        set parentlevel 0
-
-        namespace upvar ::tomlish::parse i i
-        set i 0
-
-        namespace upvar ::tomlish::parse state state
-
-        namespace upvar ::tomlish::parse braceCount braceCount
-        set barceCount 0
-        namespace upvar ::tomlish::parse bracketCount bracketCount
-        set bracketCount 0
-
-        set sep 0
-        set r 1
-        namespace upvar ::tomlish::parse token_waiting token_waiting
-        set token_waiting [dict create] ;#if ::tok finds a *complete* second token during a run, it will put the 2nd one here to be returned by the next call.
-
-
-        set state "table-space"
-        ::tomlish::parse::spacestack push {type space state table-space}
-        namespace upvar  ::tomlish::parse linenum  linenum;#'line number' of input data. (incremented for each literal linefeed - but not escaped ones in data)
-        set linenum 1
-
-        set ::tomlish::parse::state_list [list]
-        try {
-            while {$r} {
-                set r [::tomlish::parse::tok $s]
-                #puts stdout "got tok: '$tok' while parsing string '$s' "
-                set next_tokenType_known 0 ;#whether we begin a new token here based on what terminated the token result of 'tok'
-
-
-                #puts "got token: '$tok'  tokenType='$tokenType'. while v($nest) = [set v($nest)]"
-                #puts "-->tok: $tok tokenType='$tokenType'"
-                set prevstate $state
-                set transition_info [::tomlish::parse::goNextState $tokenType $tok $state]
-                #review goNextState could perform more than one space_action
-                set space_action [dict get $transition_info space_action]
-                set newstate     [dict get $transition_info newstate] ;#use of 'newstate' vs 'state' makes code clearer below
-
-                if {[tcl::string::match "err-*" $state]} {
-                    ::tomlish::log::warn "---- State error in state $prevstate for tokenType: $tokenType token value: $tok. $state aborting parse. [tomlish::parse::report_line]"
-                    lappend v(0) [list ERROR tokentype $tokenType state $prevstate to $state  leveldata [set v($nest)]]
-                    return $v(0)
-                }
-                # ---------------------------------------------------------
-                #NOTE there may already be a token_waiting at this point
-                #set_token_waiting can raise an error here,
-                # in which case the space_action branch needs to be rewritten to handle the existing token_waiting
-                # ---------------------------------------------------------
-
-                if {$space_action eq "pop"} {
-                    #pop_trigger_tokens: newline tablename endarray endinlinetable
-                    #note a token is a pop trigger depending on context. e.g first newline during keyval is a pop trigger.
-                    set parentlevel [expr {$nest -1}]
-                    set do_append_to_parent 1 ;#most tokens will leave this alone - but some like tentative_accum_squote need to do their own append
-                    switch -exact -- $tokenType {
-                        tentative_accum_squote {
-                            #should only apply within a multiliteral
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the xxx-squote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            #assert prevstate always trailing-squote-space
-                            #dev guardrail - remove? assertion lib?
-                            switch -exact -- $prevstate {
-                                trailing-squote-space {
-                                }
-                                default {
-                                    error "--- unexpected popped due to tentative_accum_squote but came from state '$prevstate' should have been trailing-squote-space"
-                                }
-                            }
-                            switch -- $tok {
-                                ' {
-                                    tomlish::parse::set_token_waiting type single_squote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                '' {
-                                    #review - we should perhaps return double_squote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_squote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                ''' {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                '''' {
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 4}]
-                                    #todo integrate left squote with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        LITERALPART {
-                                            set newval "[lindex $lastpart 1]'"
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list LITERALPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE {
-                                            lappend v($parentlevel) [list LITERALPART "'"]
-                                        }
-                                        MULTILITERAL {
-                                            #empty
-                                            lappend v($parentlevel) [list LITERALPART "'"]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing squote with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                                ''''' {
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i-5}]
-                                    #todo integrate left 2 squotes with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        LITERALPART {
-                                            set newval "[lindex $lastpart 1]''"
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list LITERALPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE {
-                                            lappend v($parentlevel) [list LITERALPART "''"]
-                                        }
-                                        MULTILITERAL {
-                                            lappend v($parentlevel) [list LITERALPART "''"]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing 2 squotes with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                        triple_squote {
-                            #presumably popping multiliteral-space
-                            ::tomlish::log::debug "---- triple_squote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTILITERAL {
-                                        lappend merged $part
-                                    }
-                                    LITERALPART {
-                                        if {$lasttype eq "LITERALPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_squote unhandled part type [lindex $part 0] unable to merge leveldata: $v($nest)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        tentative_accum_dquote {
-                            #should only apply within a multistring
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the trailing-dquote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            #assert prevstate always trailing-dquote-space
-                            #dev guardrail - remove? assertion lib?
-                            switch -exact -- $prevstate {
-                                trailing-dquote-space {
-                                }
-                                default {
-                                    error "--- unexpected popped due to tentative_accum_dquote but came from state '$prevstate' should have been trailing-dquote-space"
-                                }
-                            }
-                            switch -- $tok {
-                                {"} {
-                                    tomlish::parse::set_token_waiting type single_dquote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                {""} {
-                                    #review - we should perhaps return double_dquote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_dquote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                {"""} {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                {""""} {
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i - 4}]
-                                    #todo integrate left dquote with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        STRINGPART {
-                                            set newval "[lindex $lastpart 1]\""
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list STRINGPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE - CONT - WS {
-                                            lappend v($parentlevel) [list STRINGPART {"}]
-                                        }
-                                        MULTISTRING {
-                                            #empty
-                                            lappend v($parentlevel) [list STRINGPART {"}]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing dquote with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                                {"""""} {
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i-5}]
-                                    #todo integrate left 2 dquotes with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        STRINGPART {
-                                            set newval "[lindex $lastpart 1]\"\""
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list STRINGPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE - CONT - WS {
-                                            lappend v($parentlevel) [list STRINGPART {""}]
-                                        }
-                                        MULTISTRING {
-                                            lappend v($parentlevel) [list STRINGPART {""}]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing 2 dquotes with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                        triple_dquote {
-                            #presumably popping multistring-space
-                            ::tomlish::log::debug "---- triple_dquote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTISTRING {
-                                        lappend merged $part
-                                    }
-                                    STRINGPART {
-                                        if {$lasttype eq "STRINGPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    CONT - WS {
-                                        lappend  merged $part
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_dquote unhandled part type [lindex $part 0] unable to merge leveldata: $v($nest)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        equal {
-                            #pop caused by =
-                            switch -exact -- $prevstate {
-                                dottedkey-space {
-                                    tomlish::log::debug "---- equal ending dottedkey-space for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                                dottedkey-space-tail {
-                                    #experiment?
-                                    tomlish::log::debug "---- equal ending dottedkey-space-tail for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                            }
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        tablename {
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablename pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        tablearrayname {
-                            #!review - tablearrayname different to tablename regarding push/pop?
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablearrayname pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        endarray {
-                            #nothing to do here.
-                        }
-                        comma {
-                            #comma for inline table will pop the keyvalue space
-                            lappend v($nest) "SEP"
-                        }
-                        endinlinetable {
-                            ::tomlish::log::debug "---- endinlinetable for last_space_action pop"
-                        }
-                        default {
-                            error "---- unexpected tokenType '$tokenType' for last_space_action 'pop'"
-                        }
-                    }
-                    if {$do_append_to_parent} {
-                        #e.g tentative_accum_squote does it's own appends as necessary - so won't get here
-                        lappend v($parentlevel) [set v($nest)]
-                    }
-
-                    incr nest -1
-
-                }	elseif {$last_space_action eq "push"} {
-                    set prevnest $nest
-                    incr nest 1
-                    set v($nest) [list]
-                    # push_trigger_tokens: barekey dquotedkey startinlinetable startarray tablename tablearrayname
-
-
-                    switch -exact -- $tokenType {
-                        tentative_trigger_squote - tentative_trigger_dquote {
-                            #### this startok will always be tentative_accum_squote/tentative_accum_dquote starting with one accumulated squote/dquote
-                            if {[dict exists $transition_info starttok] && [dict get $transition_info starttok] ne ""} {
-                                lassign [dict get $transition_info starttok] starttok_type starttok_val
-                                set next_tokenType_known 1
-                                ::tomlish::parse::set_tokenType $starttok_type
-                                set tok $starttok_val
-                            }
-                        }
-                        single_squote {
-                            #JMN - REVIEW
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "squotedkey"
-                            set tok ""
-                        }
-                        triple_squote {
-                            ::tomlish::log::debug "---- push trigger tokenType triple_squote"
-                            set v($nest) [list MULTILITERAL] ;#container for NEWLINE,LITERALPART
-                        }
-                        squotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        triple_dquote {
-                            set v($nest) [list MULTISTRING] ;#container for NEWLINE,STRINGPART,CONT
-                        }
-                        dquotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        barekey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            set waiting [tomlish::parse::get_token_waiting]
-                            if {[llength $waiting]} {
-                                set i [dict get $waiting startindex]
-                                tomlish::parse::clear_token_waiting
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            } else {
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            }
-                        }
-                        tablename {
-                            #note: we do not use the output of tomlish::to_dict::tablename_trim to produce a tablename for storage in the tomlish list!
-                            #The tomlish list is intended to preserve all whitespace (and comments) - so a roundtrip from toml file to tomlish
-                            # back to toml file will be identical.
-                            #It is up to the datastructure stage to normalize and interpret tomlish for programmatic access.
-                            # we call tablename_trim here only to to validate that the tablename data is well-formed at the outermost level,
-                            # so we can raise an error at this point rather than create a tomlish list with obviously invalid table names from
-                            # a structural perspective.
-
-                            #todo - review!  It's arguable that we should not do any validation here, and just store even incorrect raw tablenames,
-                            # so that the tomlish list is more useful for say a toml editor. Consider adding an 'err' tag to the appropriate place in the
-                            # tomlish list?
-
-                            #set trimtable [::tomlish::to_dict::tablename_trim $tok]
-                            #::tomlish::log::debug "---- trimmed (but not normalized) tablename: '$trimtable'"
-                            set v($nest) [list TABLE $tok] ;#$tok is the *raw* table name
-                            #note also that equivalent tablenames may have different toml representations even after being trimmed!
-                            #e.g ["x\t\t"]  & ["x		"]  (tab escapes vs literals)
-                            #These will show as above in the tomlish list, but should normalize to the same tablename when used as keys by the datastructure stage.
-                        }
-                        tablearrayname {
-                            #set trimtable [::tomlish::to_dict::tablename_trim $tok]
-                            #::tomlish::log::debug "---- trimmed (but not normalized) tablearrayname: '$trimtable'"
-                            set v($nest) [list TABLEARRAY $tok] ;#$tok is the *raw* tablearray name
-                        }
-                        startarray {
-                            set v($nest) [list ARRAY] ;#$tok is just the opening bracket - don't output.
-                        }
-                        startinlinetable {
-                            set v($nest) [list ITABLE] ;#$tok is just the opening curly brace - don't output.
-                        }
-                        default {
-                            error "---- push trigger tokenType '$tokenType' not yet implemented"
-                        }
-                    }
-
-                } else {
-                    #no space level change
-                    switch -exact -- $tokenType {
-                        squotedkey {
-                            #puts "---- squotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list SQKEY $tok]
-                        }
-                        dquotedkey {
-                            #puts "---- dquotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list DQKEY $tok]
-                        }
-                        barekey {
-                            lappend v($nest) [list KEY $tok]
-                        }
-                        dotsep {
-                            lappend v($nest) [list DOTSEP]
-                        }
-                        starttablename {
-                            #$tok is triggered by the opening bracket and sends nothing to output
-                        }
-                        starttablearrayname {
-                            #$tok is triggered by the double opening brackets and sends nothing to output
-                        }
-                        tablename - tablenamearray {
-                            error "---- did not expect 'tablename/tablearrayname' without space level change (no space level change)"
-                            #set v($nest) [list TABLE $tok]
-                        }
-                        endtablename - endtablearrayname {
-                            #no output into the tomlish list for this token
-                        }
-                        startinlinetable {
-                            puts stderr "---- decode::toml error. did not expect startinlinetable without space level change (no space level change)"
-                        }
-                        single_dquote {
-                            switch -exact -- $newstate {
-                                string-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "string"
-                                    set tok ""
-                                }
-                                dquoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "dquotedkey"
-                                    set tok ""
-                                }
-                                multistring-space {
-                                    lappend v($nest) [list STRINGPART {"}]
-                                    #may need to be joined on pop if there are neighbouring STRINGPARTS 
-                                }
-                                default {
-                                    error "----  single_dquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        double_dquote {
-                            #leading extra quotes - test: toml_multistring_startquote2
-                            switch -exact -- $prevstate {
-                                itable-keyval-value-expected - keyval-value-expected {
-                                    puts stderr "tomlish::decode::toml double_dquote TEST"
-                                    #empty string
-                                    lappend v($nest) [list STRINGPART ""]
-                                }
-                                multistring-space {
-                                    #multistring-space to multistring-space
-                                    lappend v($nest) [list STRINGPART {""}]
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-
-                        }
-                        single_squote {
-                            switch -exact -- $newstate {
-                                literal-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "literal"
-                                    set tok ""
-                                }
-                                squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "squotedkey"
-                                    set tok ""
-                                }
-                                multiliteral-space {
-                                    #false alarm squote returned from tentative_accum_squote pop
-                                    ::tomlish::log::debug "---- adding lone squote to own LITERALPART nextstate: $newstate (no space level change)"
-                                    #(single squote - not terminating space)
-                                    lappend v($nest) [list LITERALPART ']
-                                    #may need to be joined on pop if there are neighbouring LITERALPARTs
-                                }
-                                default {
-                                    error "---- single_squote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        double_squote {
-                            switch -exact -- $prevstate {
-                                keyval-value-expected {
-                                    lappend v($nest) [list LITERAL ""]
-                                }
-                                multiliteral-space {
-                                    #multiliteral-space to multiliteral-space
-                                    lappend v($nest) [list LITERALPART '']
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-                        }
-                        enddquote {
-                            #nothing to do?
-                            set tok ""
-                        }
-                        endsquote {
-                            set tok ""
-                        }
-                        string {
-                            lappend v($nest) [list STRING $tok] ;#directly wrapped in dquotes
-                        }
-                        literal {
-                            lappend v($nest) [list LITERAL $tok] ;#directly wrapped in squotes
-                        }
-                        multistring {
-                            #review
-                            lappend v($nest) [list MULTISTRING $tok]
-                        }
-                        stringpart {
-                            lappend v($nest) [list STRINGPART $tok] ;#will not get wrapped in dquotes directly
-                        }
-                        multiliteral {
-                            lappend v($nest) [LIST MULTILITERAL $tok]
-                        }
-                        literalpart {
-                            lappend v($nest) [list LITERALPART $tok] ;#will not get wrapped in squotes directly
-                        }
-                        untyped_value {
-                            #would be better termed unclassified_value
-                            #we can't determine the type of unquoted values (int,float,datetime,bool) until the entire token was read.
-                            unset -nocomplain tag
-                            if {$tok in {true false}} {
-                                set tag BOOL
-                            } else {
-                                if {[::tomlish::utils::is_int $tok]} {
-                                    set tag INT
-                                } else {
-                                    if {[string is integer -strict $tok]} {
-                                        #didn't qualify as a toml int - but still an int
-                                        #probably means is_int is limiting size and not accepting bigints (configurable?)
-                                        #or it didn't qualify due to more than 1 leading zero
-                                        #or other integer format issue such as repeated underscores
-                                        error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. (looks close to being an int. Formatting or range issue?) [tomlish::parse::report_line] (no space level change)"
-                                    } else {
-                                        if {[::tomlish::utils::is_float $tok]} {
-                                            set tag FLOAT
-                                        } elseif {[::tomlish::utils::is_datetime $tok] || [::tomlish::utils::is_timepart $tok]} {
-                                            #Note we must allow lone timepart here (not just is_localtime which doesn't allow tz offsets) in case it followed a localdate
-                                            #e.g x= 2025-01-01 02:34Z
-                                            #The to_dict validation will catch an invalid standaline timepart, or combine with leading date if applicable.
-                                            set tag DATETIME
-                                        } else {
-                                            error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. [tomlish::parse::report_line] (no space level change)"
-                                        }
-                                    }
-                                }
-                            }
-                            #assert either tag is set, or we errored out.
-                            lappend v($nest) [list $tag $tok]
-
-                        }
-                        comment {
-                            #puts stdout "----- comment token returned '$tok'------"
-                            lappend v($nest) [list COMMENT "$tok"]
-                        }
-                        equal {
-                            #we append '=' to the nest so that any surrounding whitespace is retained.
-                            lappend v($nest)  =
-                        }
-                        comma {
-                            lappend v($nest) SEP
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        whitespace {
-                            lappend v($nest) [list WS $tok]
-                        }
-                        continuation {
-                            lappend v($nest) CONT
-                        }
-                        bom {
-                            lappend v($nest) BOM
-                        }
-                        eof {
-                            #ok - nothing more to add to the tomlish list.
-                            #!todo - check previous tokens are complete/valid?
-                        }
-                        default {
-                            error "--- unknown tokenType '$tokenType' during state $prevstate [::tomlish::parse::report_line] (no space level change)"
-                        }
-                    }
-                }
-
-                if {!$next_tokenType_known} {
-                    ::tomlish::log::notice "---- tomlish::decode::toml - current tokenType:$tokenType Next token type not known"
-                    ::tomlish::parse::set_tokenType ""
-                    set tok ""
-                }
-
-                if {$state eq "end-state"} {
-                    break
-                }
-
-
-            }
-
-            #while {$nest > 0} {
-            #	lappend v([expr {$nest -1}]) [set v($nest)]
-            #	incr nest -1
-            #}
-            while {[::tomlish::parse::spacestack size] > 1} {
-                ::tomlish::parse::spacestack pop
-                lappend v([expr {$nest -1}]) [set v($nest)]
-                incr nest -1
-
-                #set parent [spacestack peek] ;#the level being appended to
-                #lassign $parent type state
-                #if {$type eq "space"} {
-                #
-                #} elseif {$type eq "buffer"} {
-                #	lappend v([expr {$nest -1}]) {*}[set v($nest)]
-                #} else {
-                #	error "invalid spacestack item: $parent"
-                #}
-            }
-
-        } finally {
-            set is_parsing 0
-        }
-        return $v(0)
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::decode ---}]
-}
-#decode toml to tomlish
-interp alias {} tomlish::from_toml {} tomlish::decode::toml
-
-namespace eval tomlish::utils {
-    #*** !doctools
-    #[subsection {Namespace tomlish::utils}]
-    #[para]
-    #[list_begin definitions]
-
-
-
-    #basic generic quote matching for single and double quotes
-    #note for example that {[o'malley]} will return sq - as the single quote is not closed or wrapped in double quotes
-    proc tok_in_quotedpart {tok} {
-        set sLen [tcl::string::length $tok]
-        set quote_type ""
-        set had_slash 0
-        for {set i 0} {$i < $sLen} {incr i} {
-            set c [tcl::string::index $tok $i]
-            if {$quote_type eq ""} {
-                if {$had_slash} {
-                    #don't enter quote mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            set quote_type dq
-                        }
-                        sq {
-                            set quote_type sq
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            } else {
-                if {$had_slash} {
-                    #don't leave quoted mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            if {$quote_type eq "dq"} {
-                                set quote_type ""
-                            }
-                        }
-                        sq {
-                            if {$quote_type eq "sq"} {
-                                set quote_type ""
-                            }
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            }
-        }
-        return $quote_type ;#dq | sq
-    }
-
-
-    proc unicode_escape_info {slashu} {
-            #!todo
-            # validate that slashu is either a \uxxxx or \Uxxxxxxxx value of the correct length and
-            # is a valid 'unicode scalar value' (any Unicode code point except high-surrogate and low-surrogate code points)
-            # ie integers in the range 0 to D7FF16 and E00016 to 10FFFF16 inclusive
-            #expr {(($x >= 0) && ($x <= 0xD7FF16)) || (($x >= 0xE00016) && ($x <= 0x10FFFF16))}
-            if {[tcl::string::match {\\u*} $slashu]} {
-                set exp {^\\u([0-9a-fA-F]{4}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %4x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\uHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } elseif {[tcl::string::match {\\U*} $slashu]} {
-                set exp {^\\U([0-9a-fA-F]{8}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %8x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        if {(($dec >= 0) && ($dec <= 0xD7FF16)) || (($dec >= 0xE00016) && ($dec <= 0x10FFFF16))} {
-                            return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                        } else {
-                            return [list err [list reason "$slashu is not within the 'unicode scalar value' ranges 0 to 0xD7FF16 or 0xE00016 to 0x10FFFF16"]]
-                        }
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\UHHHHHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } else {
-                return [list err [list reason "Supplied string did not start with \\u or \\U" ]]
-            }
-
-    }
-
-    #Note that unicode characters don't *have* to be escaped.
-    #So if we provide a function named 'escape_string', the name implies the inverse of unescape_string which unescapes unicode \u \U values.
-    #- an inverse of unescape_string would encode all unicode chars unnecessarily.
-    #- as toml accepts a compact escape sequence for common chars such as tab,backspace,linefeed etc  but also allows the full form \u009 etc
-    #- escape_string and unescape_string would not be reliably roundtrippable inverses anyway.
-    #REVIEW - provide it anyway? When would it be desirable to use?
-
-    variable Bstring_control_map [dict create]
-        dict set Bstring_control_map \b      {\b}
-        dict set Bstring_control_map \n      {\n}
-        dict set Bstring_control_map \r      {\r}
-        dict set Bstring_control_map \"      {\"}
-        dict set Bstring_control_map \x1b    {\e}    ;#In spec it's included in the list of 'must be escaped', as well as the 'convenience' escapes - so we make it go both ways.
-        dict set Bstring_control_map \\      "\\\\"
-
-    #\e for \x1b seems like it might be included - v1.1?? hard to find current state of where toml is going :/
-    #for a Bstring (Basic string) tab is explicitly mentioned as not being one that must be escaped.
-    #8 = \b - already in list.
-    #built the remainder whilst checking for entries already hardcoded above -in case more are added to the hardcoded list
-    for {set cdec 0} {$cdec <= 7} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Bstring_control_map $char]} {
-            dict set Bstring_control_map $char \\u$hhhh
-        }
-    }
-    for {set cdec [expr {0x0A}]} {$cdec <= 0x1F} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Bstring_control_map $char]} {
-            dict set Bstring_control_map $char \\u$hhhh
-        }
-    }
-    # \u007F = 127
-    dict set Bstring_control_map [format %c 127] \\u007F
-
-    #Note the inclusion of backslash in the list of controls makes this non idempotent - subsequent runs would keep encoding the backslashes!
-    #escape only those chars that must be escaped in a Bstring (e.g not tab which can be literal or escaped)
-    #for example - can be used by from_dict to produce valid Bstring data for a tomlish record
-    proc rawstring_to_Bstring_with_escaped_controls {str} {
-        #for the well known chars that have compact escape sequences allowed by toml - we choose that form over the full \u form.
-        #we'll use a string map with an explicit list rather than algorithmic at runtime
-        # - the string map is probably more performant than splitting a string, especially if it's large
-        variable Bstring_control_map
-        return [string map $Bstring_control_map $str]
-    }
-
-    #review - unescape what string? Bstring vs MLBstring?
-    #we should be specific in the function naming here
-    #used by to_dict - so part of validation? - REVIEW
-    proc unescape_string {str} {
-        #note we can't just use Tcl subst because:
-        # it also transforms \a (audible bell) and \v (vertical tab) which are not in the toml spec.
-        # it would strip out backslashes inappropriately: e.g "\j" becomes just j
-        # it recognizes other escapes which aren't approprite  e.g \xhh and octal \nnn
-        # it replaces \<newline><whitespace> with a single whitespace   (trailing backslash)
-        #This means we shouldn't use 'subst' on the whole string, but instead substitute only the toml-specified escapes (\r \n \b \t \f \\ \" \uhhhh & \Uhhhhhhhh
-        #plus \e for \x1b?
-
-        set buffer ""
-        set buffer4 ""  ;#buffer for 4 hex characters following a \u
-        set buffer8 ""  ;#buffer for 8 hex characters following a \u
-
-        set sLen [tcl::string::length $str]
-
-        #we need to handle arbitrarily long sequences of backslashes.  \\\\\ etc
-        set slash_active 0
-        set unicode4_active 0
-        set unicode8_active 0
-
-        ::tomlish::log::debug "unescape_string. got len [string length str] str $str"
-
-        #!todo - check for invalid data in the form of a raw carriage return (decimal 13) without following linefeed?
-        set i 0
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $str [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $str $i]
-            #::tomlish::log::debug "unescape_string. got char $c" ;#too much?
-
-            #----------------------
-            #as we are 'unescaping' - should we really be testing for existing values that should have been escaped?
-            #this test looks incomplete anyway REVIEW
-            scan $c %c n
-            if {($n <= 31) && ($n != 9) && ($n != 10) && ($n != 13)} {
-                #we don't expect unescaped unicode characters from 0000 to 001F -
-                #*except* for raw tab (which is whitespace) and newlines
-                error "unescape_string. Invalid data for a toml string. Unescaped control character (decimal $n) [::tomlish::utils::string_to_slashu $c]"
-            }
-            #----------------------
-
-            incr i ;#must incr here because we do'returns'inside the loop
-            if {$c eq "\\"} {
-                if {$slash_active} {
-                    append buffer "\\"
-                    set slash_active 0
-                } elseif {$unicode4_active} {
-                    error "unescape_string. unexpected case slash during unicode4 not yet handled"
-                } elseif {$unicode8_active} {
-                    error "unescape_string. unexpected case slash during unicode8 not yet handled"
-                } else {
-                    # don't output anything (yet)
-                    set slash_active 1
-                }
-            } else {
-                if {$unicode4_active} {
-                    if {[tcl::string::length $buffer4] < 4} {
-                        append buffer4 $c
-                    }
-                    if {[tcl::string::length $buffer4] == 4} {
-                        #we have a \uHHHH to test
-                        set unicode4_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\u$buffer4"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$unicode8_active} {
-                    if {[tcl::string::length $buffer8] < 8} {
-                        append buffer8 $c
-                    }
-                    if {[tcl::string::length $buffer8] == 8} {
-                        #we have a \UHHHHHHHH to test
-                        set unicode8_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\U$buffer8"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$slash_active} {
-                    set slash_active 0
-                    set ctest [tcl::string::map {{"} dq} $c]
-                    switch -exact -- $ctest {
-                        dq {
-                            append buffer {"}
-                        }
-                        b - t - n - f - r {
-                            append buffer [subst -nocommand -novariable "\\$c"]
-                        }
-                        e {
-                            append buffer \x1b
-                        }
-                        u {
-                            set unicode4_active 1
-                            set buffer4 ""
-                        }
-                        U {
-                            set unicode8_active 1
-                            set buffer8 ""
-                        }
-                        default {
-                            set slash_active 0
-                            #review - toml spec says all other escapes are reserved
-                            #and if they are used TOML should produce an error.
-                            #we leave detecting this for caller for now - REVIEW
-                            append buffer "\\$c"
-                        }
-                    }
-                } else {
-                    append buffer $c
-                }
-            }
-        }
-        #puts stdout "EOF 4:$unicode4_active 8:$unicode8_active slash:$slash_active"
-        if {$unicode4_active} {
-            error "End of string reached before complete unicode escape sequence \uHHHH"
-        }
-        if {$unicode8_active} {
-            error "End of string reached before complete unicode escape sequence \UHHHHHHHH"
-        }
-        if {$slash_active} {
-            append buffer "\\"
-        }
-        return $buffer
-    }
-
-    #This does not have to do with unicode normal forms - which it seems toml has decided against regarding use in keys (review/references?)
-    #This is meant for internal use regarding ensuring we match equivalent keys which may have just been specified with different string mechanisms,
-    #e.g squoted vs dquoted vs barekey.
-    proc normalize_key {rawkey} {
-        set c1 [tcl::string::index $rawkey 0]
-        set c2 [tcl::string::index $rawkey end]
-        if {($c1 eq "'") && ($c2 eq "'")} {
-            #single quoted segment. No escapes allowed within it.
-            set key [tcl::string::range $rawkey 1 end-1]
-        } elseif {($c1 eq "\"") && ($c2 eq "\"")} {
-            #double quoted segment. Apply escapes.
-            #
-            set keydata [tcl::string::range $rawkey 1 end-1] ;#strip outer quotes only
-            #e.g key could have mix of \UXXXXXXXX escapes and unicode chars
-            #or mix of \t and literal tabs.
-            #unescape to convert all to literal versions for comparison
-            set key [::tomlish::utils::unescape_string $keydata]
-            #set key [subst -nocommands -novariables $keydata] ;#wrong. Todo - create a string escape substitution function.
-        } else {
-            set key $rawkey
-        }
-        return $key
-    }
-
-    proc string_to_slashu {string} {
-        set rv {}
-        foreach c [split $string {}] {
-            scan $c %c cdec
-            if {$cdec > 65535} {
-                append rv {\U} [format %.8X $cdec]
-            } else {
-                append rv {\u} [format %.4X $cdec]
-            }
-        }
-        return $rv
-    }
-
-    #'nonprintable' is conservative here because some systems (e.g windows console) are very limited in what they can display.
-    #This is used for display purposes only (error msgs)
-    proc nonprintable_to_slashu {s} {
-        set res ""
-        foreach i [split $s ""] {
-            scan $i %c cdec
-
-            set printable 0
-            if {($cdec>31) && ($cdec<127)} {
-                set printable 1
-            }
-            if {$printable} {
-                append res $i
-            } else {
-                if {$cdec > 65535} {
-                    append res \\U[format %.8X $cdec]
-                } else {
-                    append res \\u[format %.4X $cdec]
-                }
-            }
-        }
-        set res
-    } ;# initial version from tcl wiki RS
-
-    #check if str is valid for use as a toml bare key
-    #Early toml versions? only allowed letters + underscore + dash
-    proc is_barekey1 {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        } else {
-            set matches [regexp -all {[a-zA-Z0-9\_\-]} $str]
-            if {[tcl::string::length $str] == $matches} {
-                #all characters match the regexp
-                return 1
-            } else {
-                return 0
-            }
-        }
-    }
-
-    #from toml.abnf in github.com/toml-lang/toml
-    #unquoted-key = 1*unquoted-key-char
-    #unquoted-key-char = ALPHA / DIGIT / %x2D / %x5F         ; a-z A-Z 0-9 - _
-    #unquoted-key-char =/ %xB2 / %xB3 / %xB9 / %xBC-BE       ; superscript digits, fractions
-    #unquoted-key-char =/ %xC0-D6 / %xD8-F6 / %xF8-37D       ; non-symbol chars in Latin block
-    #unquoted-key-char =/ %x37F-1FFF                         ; exclude GREEK QUESTION MARK, which is basically a semi-colon
-    #unquoted-key-char =/ %x200C-200D / %x203F-2040          ; from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    #unquoted-key-char =/ %x2070-218F / %x2460-24FF          ; include super-/subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    #unquoted-key-char =/ %x2C00-2FEF / %x3001-D7FF          ; skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    #unquoted-key-char =/ %x2070-21FF / %x2300-24FF          ; skip math operators
-    #unquoted-key-char =/ %x25A0-268B / %x2690-2757          ; skip box drawing, block elements, and some yin-yang symbols
-    #unquoted-key-char =/ %x2762-2767 / %x2776-27E5          ; skip some Dingbat punctuation
-    #unquoted-key-char =/ %x2801-297F                        ; skip some math brackets and arrows, and braille blank
-    #unquoted-key-char =/ %x2B00-2FFF / %x3001-D7FF          ; skip various math operators and symbols, and ideographic space
-    #unquoted-key-char =/ %xF900-FDCF / %xFDF0-FFFD          ; skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    #unquoted-key-char =/ %x10000-EFFFF                      ; all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    variable re_barekey
-    set ranges [list]
-    lappend ranges {a-zA-Z0-9\_\-}
-    lappend ranges {\u00B2} {\u00B3} {\u00B9} {\u00BC-\u00BE}       ;# superscript digits, fractions
-    lappend ranges {\u00C0-\u00D6} {\u00D8-\u00F6} {\u00F8-\u037D}  ;# non-symbol chars in Latin block
-    lappend ranges {\u037f-\u1FFF}                                  ;# exclude GREEK QUESTION MARK, which is basically a semi-colon
-    lappend ranges {\u200C-\u200D} {\u203F-\u2040}                  ;# from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    lappend ranges {\u2070-\u218f} {\u2460-\u24FF}                  ;# include super-subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    lappend ranges {\u2C00-\u2FEF} {\u3001-\uD7FF}                  ;# skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    lappend ranges {\u2070-\u21FF} {\u2300-\u24FF}                  ;# skip math operators
-    lappend ranges {\u25A0-\u268B} {\u2690-\u2757}                  ;# skip box drawing, block elements, and some yin-yang symbols
-    lappend ranges {\u2762-\u2767} {\u2776-\u27E5}                  ;# skip some Dingbat punctuation
-    lappend ranges {\u2801-\u297F}                                  ;# skip some math brackets and arrows, and braille blank
-    lappend ranges {\u2B00-\u2FFF} {\u3001-\uD7FF}                  ;# skip various math operators and symbols, and ideographic space
-    lappend ranges {\uF900-\uFDCF} {\uFDF0-\uFFFD}                  ;# skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    lappend ranges {\U10000-\UEFFFF}                                ;# all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    set re_barekey {^[}
-    foreach r $ranges {
-        append re_barekey $r
-    }
-    append re_barekey {]+$}
-
-    proc is_barekey {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        }
-        variable re_barekey
-        return [regexp $re_barekey $str]
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'integer'.
-    proc int_validchars1 {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_\-\+]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    #add support for hex,octal,binary 0x.. 0o.. 0b...
-    proc int_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_int {str} {
-        set matches [regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] ;#0b101 etc covered by a-f
-
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-
-            # ---------------------------------------
-            #check for leading zeroes in non 0x 0b 0o
-            #first strip any +, -  or _ (just for this test)
-            #(but still allowing 0 -0 +0)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            if {([tcl::string::length $check] > 1) && ([tcl::string::index $check 0] eq "0") && ([tcl::string::index $check 1] ni {o x b})} {
-                return 0
-            }
-            # ---------------------------------------
-
-            #check +,- only occur in the first position. (excludes also +++1 etc)
-            if {[tcl::string::last - $str] > 0} {
-                return 0
-            }
-            if {[tcl::string::last + $str] > 0} {
-                return 0
-            }
-
-            #-------------------------------------------
-            #unclear if a 'digit' includes the type specifiers x b o
-            #we assume the 0x 0b 0o are NOT counted as digits - as underscores here would seem
-            #to be likely to cause interop issues with other systems
-            #(e.g tcl allows 0b1_1 but not 0b_11)
-            #Most of this structure would be unnecessary if we could rely on string::is::integer understanding underscores (9+?)
-            #we still need to support earlier Tcl for now though.
-
-            #first rule out any case with more than one underscore in a row
-            if {[regexp {__} $str]} {
-                return 0
-            }
-            if {[string index $str 0] eq "_"} {
-                return 0
-            }
-            set utest [string trimleft $str +-]
-            #test again for further trick like _+_0xFF
-            if {[string index $utest 0] eq "_"} {
-                return 0
-            }
-            if {[string range $utest 0 1] in {0x 0b 0o}} {
-                set testnum [string range $utest 2 end]
-            } else {
-                set testnum $utest
-                #exclude also things like 0_x 0___b that snuck past our prefix test
-                if {![string is digit -strict [string map {_ ""} $testnum]]} {
-                    return 0
-                }
-                #assert - only digits and underscores in testnum
-                #still may have underscores at each end
-            }
-            #assert testnum is now the 'digits' portion of a <digits>, 0x<digits> 0b<digits> 0o<digits> number
-            #(+ and - already stripped)
-            #It may still have chars unsuitable for its type - which will be caught by the string::is::integer test below
-            if {[string length $testnum] != [string length [string trim $testnum _]]} {
-                #had non-inner underscores in 'digit' part
-                return 0
-            }
-            #assert str only has solo inner underscores (if any) between 'digits'
-            #-------------------------------------------
-
-            set numeric_value [tcl::string::map {_ ""} $str] ;#allow some earlier tcl versions which don't support underscores
-            #use Tcl's integer check to ensure we don't let things like 3e4 through - which is a float (would need to be 0x3e4 for hex)
-            if {![tcl::string::is integer -strict $numeric_value]} {
-                return 0
-            }
-
-
-
-            #!todo - check bounds only based on some config value
-            #even though Tcl can handle bignums, we won't accept anything outside of toml 1.0 minimum requirements by default (for now)
-            #presumably very large numbers would have to be supplied in a toml file as strings.
-            #Review - toml 1.0 only says that it must handle up to 2^63 - not that this is a max
-            #some question around implementations allowed to use lower values such as 2^31 on some systems?
-            if {$::tomlish::max_int ne "" && $numeric_value > $::tomlish::max_int} {
-                return 0
-            }
-            if {$::tomlish::min_int ne "" && $numeric_value < $::tomlish::min_int} {
-                return 0
-            }
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'float'.
-    proc float_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[eE0-9\_\-\+\.]} $str] == $numchars} {
-            return 1
-        } else {
-            #only allow lower case for these special values - as per Toml 1.0 spec
-            if {$str ni {inf +inf -inf nan +nan -nan}} {
-                return 0
-            } else {
-                return 1
-            }
-        }
-    }
-
-    #note - Tcl's string is double will return true also for the subset of float values which are integers
-    #This function is to determine whether it matches the Toml float concept - so requires a . or e or E
-    proc is_float {str} {
-        #vip greenlight known literals, don't test for case variations - as Toml doesn't allow (whereas Tcl allows Inf NaN etc)
-        if {$str in {inf +inf -inf nan +nan -nan}} {
-            return 1
-        }
-        #doorcheck the basics for floatiness vs members of that rival gang - ints
-        if {![regexp {[.eE]} $str]} {
-            #could  be an integer - which isn't specifically a float for Toml purposes.
-            return 0
-        }
-
-
-        #patdown for any contraband chars
-        set matches [regexp -all {[eE0-9\_\-\+\.]} $str]
-        if {[tcl::string::length $str] != $matches} {
-            return 0
-        }
-
-        #all characters in legal range
-
-        #A leading zero is ok, but we should disallow multiple leading zeroes (same rules as toml ints)
-
-        #Early Toml spec also disallowed leading zeros in the exponent part(?)
-        #... this seems less interoperable anyway (some libraries generate leading zeroes in exponents)
-        #we allow leading zeros in exponents here.
-
-        #Check for leading zeros in main part
-        #first strip any +, -  or _ (just for this test)
-        set check [tcl::string::map {+ "" - "" _ ""} $str]
-        set r {([0-9])*}
-        regexp $r $check intpart  ;#intpart holds all numerals before the first .,e or E
-        set z {([0])*}
-        regexp $z $intpart leadingzeros
-        if {[tcl::string::length $leadingzeros] > 1} {
-            return 0
-        }
-
-        #for floats, +,- may occur in multiple places
-        #e.g -2E-22   +3e34
-        #!todo - check bounds ?
-
-        #-----------------------------------------
-        if {[regexp {__} $str]} {
-            return 0
-        }
-        if {[string index $str 0] eq "_" || [string index $str end] eq "_"} {
-            return 0
-        }
-        set utest [string trimleft $str +-]
-        #test again for further trick like _+_
-        if {[string index $utest 0] eq "_"} {
-            return 0
-        }
-        #-----------------------------------------
-
-        #decimal point, if used must be surrounded by at least one digit on each side
-        #e.g 3.e+20   also illegal
-        set dposn [string first . $str]
-        if {$dposn > -1 } {
-            set d3 [string range $str $dposn-1 $dposn+1]
-            if {![string is integer -strict [string index $d3 0]] || ![string is integer -strict [string index $d3 2]]} {
-                return 0
-            }
-        }
-        #we've already eliminated leading/trailing underscores
-        #now ensure each inner underscore is surrounded by digits
-        if {[regexp {_[^0-9]|[^0-9]_} $str]} {
-            return 0
-        }
-
-        #strip underscores for tcl double check so we can support < tcl 9 versions which didn't allow underscores
-        set check [tcl::string::map {_ ""} $str]
-        #string is double accepts inf nan +NaN etc.
-        if {![tcl::string::is double $check]} {
-            return 0
-        }
-
-        #All good - seems to be a toml-approved float and not an int.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'datetime'.
-    proc datetime_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[zZtT0-9\-\+\.:]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_datepart {str} {
-        set matches [regexp -all {[0-9\-]} $str]
-        if {[tcl::string::length $str] != $matches} {
-            return 0
-        }
-        #seems to require yyyy-mm-dd (e.g not allowing just yyyy-mm)
-        if {![regexp {^([0-9]{4})-([0-9]{2})-([0-9]{2})$} $str _match y m d]} {
-            return 0
-        }
-        if {$m > 12 || $m == 0} {
-            return 0
-        }
-        switch -- [expr {$m}] {
-            1 - 3 - 5 - 7 - 8 - 10 - 12 {
-                if {$d > 31 || $d == 0} {
-                    return 0
-                }
-            }
-            2 {
-                if {$d > 29 || $d == 0} {
-                    return 0
-                }
-                if {$d == 29} {
-                    #leapyear check
-                    if {[catch {clock scan $str -format %Y-%m-%d} errM]} {
-                        return 0
-                    }
-                }
-            }
-            4 - 6 - 9 - 11 {
-                if {$d > 30 || $d == 0} {
-                    return 0
-                }
-            }
-        }
-        return 1
-    }
-    proc is_localdate {str} {
-        is_datepart $str
-    }
-    proc is_timepart {str} {
-        set numchars [tcl::string::length $str]
-        #timepart can have negative or positive offsets so - and + must be accepted
-        if {[regexp -all {[zZt0-9\-\+\.:]} $str] == $numchars} {
-            #todo
-            #basic check that we have leading 2dig hr and 2dig min separated by colon
-            if {![regexp {^[0-9]{2}:[0-9]{2}$|^[0-9]{2}:[0-9]{2}[^0-9]{1}.*$} $str]} {
-                #nn:nn or nn:nnX.*  where X is non digit
-                return 0
-            }
-            return 1
-        } else {
-            return 0
-        }
-    }
-    proc is_localtime {str} {
-        #time of day without any relation to a specific day or any offset or timezone
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\.:]} $str] == $numchars} {
-            #todo
-            if {![regexp {^[0-9]{2}:[0-9]{2}$|^[0-9]{2}:[0-9]{2}:[0-9]{2}([.][0-9]*){0,1}$} $str]} {
-                #hh:mm or hh:mm:ss or hh:mm::ss.nnn
-                return 0
-            }
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    #review
-    proc is_datetime {str} {
-        #Essentially RFC3339 formatted date-time - but:
-        #1) allowing seconds to be omitted (:00 assumed)
-        #2) T may be replaced with a single space character TODO - parser support for space in datetime!
-        #   (RFC 3339 allows space instead of T also - but doesn't specify it *must* be a single space)
-
-        #toml-lint @2025-04 doesn't accept t for T or z for Z - but RFC3339 does
-        #toml spec doesn't clarify - we will accept
-
-        #e.g 1979-05-27
-        #e.g 1979-05-27T00:32:00Z
-        #e.g 1979-05-27 00:32:00-07:00
-        #e.g 1979-05-27 00:32:00+10:00
-        #e.g 1979-05-27 00:32:00.999999-07:00
-
-        #review
-        #minimal datetimes?
-        # 2024 not ok   -  2024T not accepted by tomlint why?
-        # 02:00 ok
-        # 02:00:00.5 ok
-        # 1:00  - not ok - RFC3339 requires 2-digit hr,min,sec
-
-        #toml-lint.com accepts 2025-01
-
-        if {[string length $str] < 5} {
-            return 0
-        }
-
-        set matches [regexp -all {[zZtT0-9\ \-\+\.:]} $str]
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            if {[regexp -all {\ } $str] > 1} {
-                #only a single space is allowed.
-                return 0
-            }
-            #If we get a space - it is only valid as a convience to represent the T separator
-            #we can normalize by converting to T here before more tests
-            set str [string map {" " T t T} $str]
-            #a further sanity check on T
-            if {[regexp -all {T} $str] > 1} {
-                return 0
-            }
-
-            #!todo - use full RFC 3339 parser?
-            #!todo - what if the value is 'time only'?
-
-            if {[string first T $str] > -1} {
-                lassign [split $str T] datepart timepart
-                if {![is_datepart $datepart]} {
-                    return 0
-                }
-                if {![is_timepart $timepart]} {
-                    return 0
-                }
-            } else {
-                #either a datepart or a localtime
-                #spec: "If you include only the time portion of an RFC 3339 formatted date-time, it will represent that time of day
-                # without any relation to a specific day or any offset or timezone."
-                if {!([is_datepart $str] || [is_localtime $str])} {
-                    return 0
-                }
-            }
-
-
-            #Tcl's free-form clock scan (no -format option) is deprecated
-            #
-            #if {[catch {clock scan $datepart} err]} {
-            #    puts stderr "tcl clock scan failed err:'$err'"
-            #    return 0
-            #}
-
-        } else {
-            return 0
-        }
-        return 1
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::utils ---}]
-}
-
-namespace eval tomlish::parse {
-    #*** !doctools
-    #[subsection {Namespace tomlish::parse}]
-    #[para]
-    #[list_begin definitions]
-
-    #This is a somewhat curly mix of a statemachine and toml-nesting-stack littered with special cases.
-    #The code is a pig's-nest - but it should be noted that for example trailing single double quotes in multiline strings are perhaps not so trivial to parse using more standard methods either:
-    # - e.g some kind of backtracking required if using an ABNF parser?
-    #I don't know the precise technical name for this sort of parser; probably something like "Dog's Breakfast"
-    #More seriously, we don't have distinct lex/parse steps - so it is basically a 'fused lexer' or 'scannerless parser'
-
-    #It is also desirable for this system to be useful in 'interactive' use. review - would a separate lexer make this easier or harder?
-
-    #A possible alternative more structured approach might be to use a PEG (Parsing Expression Grammar)
-
-
-    variable is_parsing 0  ;#whether we are in the middle of parsing tomlish text
-
-    variable state
-    # states:
-    # table-space, itable-space, array-space
-    # array-value-expected,keyval-value-expected,itable-keyval-value-expected, keyval-syntax,
-    # dquoted-key, squoted-key
-    # string-state, literal-state, multistring...
-    #
-    # notes:
-    # only the -space states are also 'spaces' ie a container which is pushed/popped on the spacestack
-
-    #
-    # xxx_value-expected  - we also allow for leading whitespace in this state, but once a value is returned we jump to a state based on the containing space. e.g keyval-tail or array-syntax
-    #
-    #stateMatrix defines for each state, actions to take for each possible token.
-    #single-element actions are the name of the next state into which to transition, or a 'POPSPACE' instruction to pop a level off the spacestack and add the data to the parent container.
-    #dual-element actions are a push instruction and the name of the space to push on the stack.
-    # - PUSHSPACE is a simple push onto the spacestack, zeropoppushspace also pushes, but will first do a pop *if* the current space level is greater than zero (ie if only if not already in root table-space)
-
-    # -- --- --- --- --- ---
-    #token/state naming guide
-    # -- --- --- --- --- ---
-    #tokens        :  underscore separated or bare name e.g newline,  start_quote, start_squote
-    #private tokens:  always have a leading underscore (These are private 'temporary state' tokens that are never returned as actual tokens e.g _start_squote_sequence
-    #states        :  always contain at least one dash e.g err-state, table-space
-    #instructions
-    # -- --- --- --- --- ---
-
-
-    #stateMatrix dict of elements mapping current state to next state based on returned tokens
-    # current-state {token-encountered next-state ... }
-    # where next-state can be a 1 or 2 element list.
-    #If 2 element - the first item is an instruction (ucase)
-    #If 1 element - it is either a lowercase dashed state name or an ucase instruction
-    #e.g {PUSHSPACE <state-space>} or POPSPACE or SAMESPACE
-
-
-    #SAMESPACE - got to same space as parent without popping a level, but has it's own autotransition lookup -  strange concept - review usecases
-
-    variable stateMatrix
-    set stateMatrix [dict create]
-    #---------------------------------------------------------
-    #WARNING
-    #The stateMatrix implementation here is currently messy.
-    #The code is a mixture of declarative via the stateMatrix and imperative via switch statements during PUSH/POP/SAMESPACE transitions.
-    #This means the state behaviour has to be reasoned about by looking at both in conjuction.
-    #---------------------------------------------------------
-
-    #xxx-space vs xxx-syntax inadequately documented - TODO
-
-    #review - out of date?
-    # --------------------------------------------------------------------------------------------------------------#
-    #  incomplete example of some state starting at table-space
-    # --------------------------------------------------------------------------------------------------------------#
-    #                                                      ( = -> keyval-value-expected)
-    #                                       keyval-syntax                         (popped -> keyval-space -> keyval-tail) (autotransition on pop)
-    #                keyval-space (autotransition on push ^)
-    # table-space (barekey^) (startdquote -> dquoted-key ^)
-    # --------------------------------------------------------------------------------------------------------------#
-
-    dict set stateMatrix\
-        table-space       {
-            bom                 "table-space"\
-            whitespace          "table-space"\
-            newline             "table-space"\
-            barekey             {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            squotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax" note ""}\
-            dquotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            XXXsingle_dquote    "quoted-key"\
-            XXXsingle_squote    "squoted-key"\
-            comment             "table-space"\
-            starttablename      "tablename-state"\
-            starttablearrayname "tablearrayname-state"\
-            enddquote           "err-state"\
-            endsquote           "err-state"\
-            comma               "err-state"\
-            eof                 "end-state"\
-            equal               "err-state"\
-            cr                  "err-lonecr"\
-        }
-
-
-
-    dict set stateMatrix\
-        keyval-space    {\
-            whitespace          "keyval-syntax"\
-            equal               "keyval-value-expected"\
-        }
-
-    # '  =   ' portion of keyval
-    dict set stateMatrix\
-        keyval-syntax   {\
-            whitespace          "keyval-syntax"\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE "dottedkey-space"}\
-            equal               "keyval-value-expected"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    ####
-    dict set stateMatrix\
-        keyval-value-expected {\
-            whitespace          "keyval-value-expected"\
-            untyped_value       {TOSTATE        "keyval-untyped-sequence"                                       note "possible datetime datepart"}\
-            literal             {TOSTATE        "keyval-tail"                                       note "required for empty literal at EOF"}\
-            string              {TOSTATE        "keyval-tail"                                       note "required for empty string at EOF"}\
-            single_dquote       {TOSTATE        "string-state"          returnstate keyval-tail}\
-            triple_dquote       {PUSHSPACE      "multistring-space"     returnstate keyval-tail}\
-            single_squote       {TOSTATE        "literal-state"         returnstate keyval-tail     note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE      "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE      itable-space            returnstate keyval-tail}\
-            startarray          {PUSHSPACE      array-space             returnstate keyval-tail}\
-        }
-            #double_squote       {TOSTATE    "keyval-tail"                       note "empty literal received when double squote occurs"}
-
-    #untyped_value sequences without intervening comma are allowed for datepart timepart
-    #we will produce tomlish with missing SEPS and to_dict must validate whether 2 adjacent barekeys are valid
-    dict set stateMatrix\
-        keyval-untyped-sequence {\
-            whitespace          "keyval-untyped-sequence"\
-            untyped_value       {TOSTATE        "keyval-tail"}\
-            literal             {TOSTATE        "keyval-tail"                                       note "required for empty literal at EOF"}\
-            string              {TOSTATE        "keyval-tail"                                       note "required for empty string at EOF"}\
-            single_dquote       {TOSTATE        "string-state"          returnstate keyval-tail}\
-            triple_dquote       {PUSHSPACE      "multistring-space"     returnstate keyval-tail}\
-            single_squote       {TOSTATE        "literal-state"         returnstate keyval-tail     note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE      "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE      itable-space            returnstate keyval-tail}\
-            startarray          {PUSHSPACE      array-space             returnstate keyval-tail}\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-    #2025 - no leading-squote-space - only trailing-squote-space.
-
-    dict set stateMatrix\
-        keyval-tail     {\
-            whitespace          "keyval-tail"\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-
-    #itable-space/ curly-syntax : itables
-    # x={<here>y=1,<here>}
-    dict set stateMatrix\
-        itable-space {\
-            whitespace          "itable-space"\
-            newline             "itable-space"\
-            barekey             {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            squotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            dquotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            endinlinetable      "POPSPACE"\
-            comma               "err-state"\
-            comment             "itable-space"\
-            eof                 "err-state"\
-        }
-        #we don't get single_squote etc here - instead we get the resulting squotedkey token
-
-
-    # ??? review - something like this
-    #     <dottedkeyspace-tail><here>
-    # x={y                            =1,}
-    dict set stateMatrix\
-        itable-keyval-syntax   {\
-            whitespace          {TOSTATE    "itable-keyval-syntax"}\
-            barekey             {PUSHSPACE  "dottedkey-space"}\
-            squotedkey          {PUSHSPACE  "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE  "dottedkey-space"}\
-            equal               {TOSTATE    "itable-keyval-value-expected"}\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-    # x={y<here>=1}
-    dict set stateMatrix\
-        itable-keyval-space    {\
-            whitespace          "itable-keyval-syntax"\
-            equal               {TOSTATE "itable-keyval-value-expected" note "required"}\
-        }
-
-    dict set stateMatrix\
-        itable-keyval-value-expected {\
-            whitespace          "itable-keyval-value-expected"\
-            untyped_value       {TOSTATE    "itable-val-tail"                       note ""}\
-            single_dquote       {TOSTATE    "string-state"          returnstate itable-val-tail}\
-            triple_dquote       {PUSHSPACE  "multistring-space"     returnstate itable-val-tail}\
-            single_squote       {TOSTATE    "literal-state"         returnstate itable-val-tail note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate itable-val-tail}\
-            startinlinetable    {PUSHSPACE  "itable-space"           returnstate itable-val-tail}\
-            startarray          {PUSHSPACE  "array-space"           returnstate itable-val-tail}\
-        }
-        #double_squote not currently generated by _start_squote_sequence - '' processed as single_squote to literal-state just like 'xxx'
-        # review
-        #    double_squote       {TOSTATE    "itable-val-tail"                       note "empty literal received when double squote occurs"}
-
-
-
-    # x={y=1<here>,z="x"<here>}
-    #POPSPACE is transition from itable-keyval-space to parent itable-space
-    dict set stateMatrix\
-        itable-val-tail         {\
-            whitespace          "itable-val-tail"\
-            endinlinetable      "POPSPACE"\
-            comma               "POPSPACE"\
-            newline             {TOSTATE "itable-val-tail" note "itable-space ??"}\
-            comment             "itable-val-tail"\
-            eof                 "err-state"\
-        }
-     # XXXnewline             "POPSPACE"
-     # We shouldn't popspace on newline - as if there was no comma we need to stay in itable-val-tail
-     # This means the newline and subsequent whitespace, comments etc become part of the preceeding dottedkey record
-     #e.g
-     # x = {
-     #   j=1
-     #   #comment within dottedkey j record
-     #   ,  # comment unattached
-     #   #comment unattached
-     #   k=2 , #comment unattached
-     #   l=3 #comment within l record
-     #   , m=4
-     #   #comment associated with m record
-     #
-     #   #still associated with m record
-     # }
-     ## - This doesn't quite correspond to what a user might expect - but seems like a consistent mechanism.
-     #The awkwardness is because there is no way to put in a comment that doesn't consume a trailing comma
-     #so we cant do: j= 1 #comment for j1 ,
-     # and have the trailing comma recognised.
-     #
-     # To associate: j= 1, #comment for j1
-     # we would need some extra processing . (not popping until next key ? extra state itable-sep-tail?) REVIEW - worth doing?
-     #
-     #  The same issue occurs with multiline arrays. The most natural assumption is that a comment on same line after a comma
-     #  is 'associated' with the previous entry.
-     #
-     # These comment issues are independent of the data dictionary being generated for conversion to json etc - as the comments don't carry through anyway,
-     # but are a potential oddity for manipulating the intermediate tomlish structure whilst attempting to preserve 'associated' comments
-     # (e.g reordering records within an itable)
-     #The user's intention for 'associated' isn't always clear and the specs don't really guide on this.
-
-
-    #dottedkey-space is not (currently) used within [tablename] or [[tablearrayname]]
-    #it is for keyval ie  x.y.z = value
-
-    #this is the state after dot
-    #we are expecting a complete key token or whitespace
-    #(initial entry to the space is by one of the keys - which will immediately go to dottedkey-space-tail)
-    dict set stateMatrix\
-        dottedkey-space {\
-            whitespace          "dottedkey-space"\
-            dotsep              "err-state"\
-            barekey             "dottedkey-space-tail"\
-            squotedkey          "dottedkey-space-tail"\
-            dquotedkey          "dottedkey-space-tail"\
-            newline             "err-state"\
-            comma               "err-state"\
-            comment             "err-state"\
-            equal               "err-state"\
-        }
-
-            #dottedkeyend        "POPSPACE"
-            #equal               "POPSPACE"\
-
-
-    #jmn 2025
-    #we have 1 or more dottedkeys so far - need dotsep to add more, whitespace to maintain, equal to pop
-    dict set stateMatrix\
-        dottedkey-space-tail {\
-            whitespace          "dottedkey-space-tail"
-            dotsep              "dottedkey-space"
-            equal               "POPSPACE"\
-            eof                 "err-state"\
-            newline             "err-state"\
-        }
-
-    #--------------------------------------------------------------------------
-    #scratch area
-    #from_toml {x=1}
-    # barekey tok <x>
-    # table-space PUSHSPACE keyval-space state keyval-syntax
-    #
-
-
-    #--------------------------------------------------------------------------
-
-
-    #REVIEW
-    #toml spec looks like heading towards allowing newlines within inline tables
-    #https://github.com/toml-lang/toml/issues/781
-
-    #2025 - multiline itables appear to be valid for 1.1 - which we are targeting.
-    #https://github.com/toml-lang/toml/blob/main/toml.md#inline-table
-
-    #JMN2025
-        #review comment "err-state" vs comment "itable-space" - see if TOML 1.1 comes out and allows comments in multiline ITABLES
-        #We currently allow multiline ITABLES  (also with comments) in the tokenizer.
-        #if we want to disallow as per TOML 1.0 - we should do so when attempting to get structure?
-
-
-    #JMN REVIEW
-    #dict set stateMatrix\
-    #    array-space     {\
-    #        whitespace          "array-space"\
-    #        newline             "array-space"\
-    #        untyped_value       "SAMESPACE"\
-    #        startarray          {PUSHSPACE "array-space"}\
-    #        endarray            "POPSPACE"\
-    #        startinlinetable    {PUSHSPACE itable-space}\
-    #        single_dquote         "string-state"\
-    #        single_squote         "literal-state"\
-    #        triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax  note "seems ok 2024"}\
-    #        comma               "array-space"\
-    #        comment             "array-space"\
-    #        eof                 "err-state-array-space-got-eof"\
-    #    }
-
-    ## array-space ##
-    set aspace [dict create]
-    dict set aspace whitespace          "array-space"
-    dict set aspace newline             "array-space"
-    #dict set aspace untyped_value       "SAMESPACE"
-    dict set aspace untyped_value       "array-syntax"
-    dict set aspace startarray          {PUSHSPACE "array-space"}
-    dict set aspace endarray            "POPSPACE"
-    dict set aspace single_dquote       {TOSTATE "string-state" returnstate array-syntax}
-    dict set aspace triple_dquote       {PUSHSPACE  "multistring-space" returnstate array-syntax}
-    dict set aspace single_squote       {TOSTATE "literal-state" returnstate array-syntax}
-    dict set aspace triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax}
-    dict set aspace startinlinetable    {PUSHSPACE itable-space}
-    #dict set aspace comma               "array-space"
-    dict set aspace comment             "array-space"
-    dict set aspace eof                 "err-state-array-space-got-eof"
-    dict set stateMatrix array-space $aspace
-
-    #when we pop from an inner array we get to array-syntax
-    #e.g {x=[[]<array-syntax]}
-    #when there is leading space before a value we get to array-syntax
-
-    ## array-syntax ##
-    set asyntax [dict create]
-    dict set asyntax whitespace         "array-syntax"
-    dict set asyntax newline            "array-syntax"
-    #dict set asyntax untyped_value      "SAMESPACE"
-    #dict set asyntax startarray         {PUSHSPACE array-space}
-    dict set asyntax endarray           "POPSPACE"
-    #dict set asyntax single_dquote         "string-state"
-    #dict set asyntax single_squote      "literal-state"
-    dict set asyntax comma              "array-space"
-    dict set asyntax comment            "array-syntax"
-    dict set stateMatrix array-syntax $asyntax
-
-
-
-
-    #dquotedkey is a token - dquoted-key is a state
-    dict set stateMatrix\
-        dquoted-key       {\
-            whitespace          "NA"\
-            dquotedkey          "dquoted-key"\
-            newline             "err-state"\
-        }
-    dict set stateMatrix\
-        squoted-key       {\
-            whitespace          "NA"\
-            squotedkey          "squoted-key"\
-            newline             "err-state"\
-        }
-           # endsquote           {PUSHSPACE "keyval-space"}
-
-    dict set stateMatrix\
-        string-state          {\
-            whitespace          "NA"\
-            string              "string-state"\
-            enddquote            "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        literal-state       {\
-            whitespace          "NA"\
-            literal             "literal-state"\
-            endsquote           "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-
-    dict set stateMatrix\
-        multistring-space {\
-            whitespace                  "multistring-space"\
-            continuation                "multistring-space"\
-            stringpart                  "multistring-space"\
-            newline                     "multistring-space"\
-            tentative_trigger_dquote     {PUSHSPACE "trailing-dquote-space" returnstate multistring-space starttok {tentative_accum_dquote {"}}}\
-            single_dquote               {TOSTATE multistring-space}\
-            double_dquote               {TOSTATE multistring-space}\
-            triple_dquote               {POPSPACE}\
-            eof                         "err-state"\
-        }
-    dict set stateMatrix\
-        trailing-dquote-space {
-            tentative_accum_dquote      "POPSPACE"
-        }
-
-
-    #only valid subparts are literalpart and newline. other whitespace etc is within literalpart
-    #todo - treat sole cr as part of literalpart but crlf and lf as newline
-    dict set stateMatrix\
-        multiliteral-space {\
-            literalpart                 "multiliteral-space"\
-            newline                     "multiliteral-space"\
-            tentative_trigger_squote    {PUSHSPACE "trailing-squote-space" returnstate multiliteral-space starttok {tentative_accum_squote "'"}}\
-            single_squote               {TOSTATE multiliteral-space     note "short tentative_accum_squote: false alarm this squote is part of data"}\
-            double_squote               {TOSTATE multiliteral-space     note "short tentative_accum_squote: can occur anywhere in the space e.g emitted at end when 5 squotes occur"}\
-            triple_squote               {POPSPACE                       note "on popping - we do any necessary concatenation of LITERALPART items due to squote processing"}\
-            eof                         "err-premature-eof-in-multiliteral-space"\
-        }
-
-    #trailing because we are looking for possible terminating ''' - but must accept '''' or ''''' and re-integrate the 1st one or 2 extra squotes
-    dict set stateMatrix\
-        trailing-squote-space {
-            tentative_accum_squote          "POPSPACE"
-        }
-
-
-    #dict set stateMatrix\
-    #    tablename-state       {\
-    #        whitespace          "NA"\
-    #        tablename           {zeropoppushspace table-space}\
-    #        tablename2          {PUSHSPACE table-space}\
-    #        endtablename        "tablename-tail"\
-    #        comma               "err-state"\
-    #        newline             "err-state"\
-    #    }
-
-    set tnamestate [dict create]
-    dict set tnamestate whitespace          "NA"
-    dict set tnamestate tablename           {zeropoppushspace table-space}
-    dict set tnamestate tablename2          {PUSHSPACE table-space returnstate tablearrayname-tail}
-    dict set tnamestate endtablename        "tablename-tail"
-    dict set tnamestate endtablearrayname    "tablearrayname-tail"
-    dict set tnamestate comma               "err-state"
-    dict set tnamestate newline             "err-state"
-    dict set stateMatrix tablename-state $tnamestate
-
-
-    #dict set stateMatrix\
-    #    tablearrayname-state  {\
-    #        whitespace          "NA"\
-    #        tablearrayname      {zeropoppushspace table-space}\
-    #        tablearrayname2     {PUSHSPACE table-space}\
-    #        endtablearray       "tablearrayname-tail"\
-    #        comma               "err-state"\
-    #        newline             "err-state"\
-    #    }
-    set tarrnamestate [dict create]
-    dict set tarrnamestate whitespace          "NA"
-    dict set tarrnamestate tablearrayname      {zeropoppushspace table-space}
-    dict set tarrnamestate tablearrayname2     {PUSHSPACE table-space}
-    dict set tarrnamestate endtablearrayname   "tablearrayname-tail"
-    dict set tarrnamestate comma               "err-state"
-    dict set tarrnamestate newline             "err-state"
-    dict set stateMatrix tablearrayname-state $tarrnamestate
-
-
-    dict set stateMatrix\
-        tablename-tail   {\
-            whitespace          "tablename-tail"\
-            newline             "table-space"\
-            comment             "tablename-tail"\
-            eof                 "end-state"\
-        }
-    #dict set stateMatrix\
-    #    tablearrayname-tail {\
-    #        whitespace          "tablearrayname-tail"\
-    #        newline             "table-space"\
-    #        comment             "tablearrayname-tail"\
-    #        eof                 "end-state"\
-    #    }
-
-
-    # [[xxx]<here>]  ???
-    set tarntail [dict create]
-    dict set tarntail whitespace          "tablearrayname-tail"
-    dict set tarntail newline             "err-state"
-    dict set tarntail comment             "err-state"
-    dict set tarntail eof                 "err-state"
-    dict set tarntail endtablename        "tablearray-tail"
-    dict set stateMatrix tablearrayname-tail $tarntail
-
-    #review - somewhat counterintuitive...?
-    #                     [(starttablearrayname)     (endtablearrayname]
-    # [(starttablename)                                                     (endtablename)]
-
-    # [[xxx]]<here> ???
-    set tartail [dict create]
-    dict set tartail whitespace         "tablearray-tail"
-    dict set tartail newline            "table-space"
-    dict set tartail comment            "tablearray-tail"
-    dict set tartail eof                "end-state"
-    dict set stateMatrix tablearray-tail $tartail
-
-
-
-
-
-
-    dict set stateMatrix\
-        end-state             {}
-
-    set knowntokens [list]
-    set knownstates [list]
-    dict for {state transitions} $stateMatrix {
-        if {$state ni $knownstates} {lappend knownstates $state}
-        dict for {tok instructions} $transitions {
-            if {$tok ni $knowntokens} {lappend knowntokens $tok}
-        }
-    }
-    dict set stateMatrix nostate {}
-    foreach tok $knowntokens {
-        dict set stateMatrix nostate $tok "err-nostate-received-token-$tok"
-    }
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #purpose - debugging?  remove?
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #build a list of 'push triggers' from the stateMatrix
-    # ie tokens which can push a new space onto spacestack
-    set push_trigger_tokens [list]
-    tcl::dict::for {s transitions} $stateMatrix {
-        tcl::dict::for {token transition_to} $transitions {
-            set instruction [lindex $transition_to 0]
-            switch -exact -- $instruction {
-                PUSHSPACE - zeropoppushspace {
-                    if {$token ni $push_trigger_tokens} {
-                        lappend push_trigger_tokens $token
-                    }
-                }
-            }
-        }
-    }
-    ::tomlish::log::debug "push_trigger_tokens: $push_trigger_tokens"
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-
-    #This seems hacky... (deprecate in favour of explicit arguments to the instructions in stateMatrix?)
-    #spacePopTransitions, spacePushTransitions, spaceSameTransitions below for auto state redirections on POPSPACE,PUSHSPACE,SAMESPACE
-
-    #mainly for the -space states:
-    #redirect to another state $c based on a state transition from $whatever to $b
-    # e.g  "string {array-space array-syntax}" means when transitioning from string to array-space, jump to array-syntax instead.
-    #this is useful as we often don't know state $b. e.g when it is decided by 'POPSPACE'
-
-    #use dict set to add values so we can easily add/remove/comment lines
-
-    #Push to, next
-    #default first states when we push to these spaces
-    variable spacePushTransitions [dict create]
-    dict set spacePushTransitions keyval-space            keyval-syntax
-    dict set spacePushTransitions itable-keyval-space     itable-keyval-syntax
-    dict set spacePushTransitions array-space             array-space
-    dict set spacePushTransitions table-space             tablename-state
-    #dict set spacePushTransitions #itable-space             itable-space
-
-    #Pop to, next
-    variable spacePopTransitions [dict create]
-    dict set spacePopTransitions array-space    array-syntax
-
-
-        #itable-keyval-space     itable-val-tail
-    #review
-    #we pop to keyval-space from dottedkey-space or from keyval-value-expected? we don't always want to go to keyval-tail
-    #leave it out and make the POPSPACE caller explicitly specify it
-    #keyval-space        keyval-tail
-
-    variable spaceSameTransitions [dict create]
-    #JMN test
-    #dict set spaceSameTransitions array-space   array-syntax
-
-        #itable-keyval-space     itable-val-tail
-
-
-    variable state_list ;#reset every tomlish::decode::toml
-
-    namespace export tomlish toml
-    namespace ensemble create
-
-    #goNextState has various side-effects e.g pushes and pops spacestack
-    #REVIEW - setting nest and v elements here is ugly
-    #todo - make neater, more single-purpose?
-    proc goNextState {tokentype tok currentstate} {
-        variable state
-        variable nest
-        variable v
-
-        set prevstate $currentstate
-
-
-        variable spacePopTransitions
-        variable spacePushTransitions
-        variable spaceSameTransitions
-
-        variable last_space_action      "none"
-        variable last_space_type        "none"
-        variable state_list
-
-        set result ""
-        set starttok ""
-
-        if {[dict exists $::tomlish::parse::stateMatrix $currentstate $tokentype]} {
-            set transition_to [dict get $::tomlish::parse::stateMatrix $currentstate $tokentype]
-            ::tomlish::log::debug "--->> goNextState tokentype:$tokentype tok:$tok currentstate:$currentstate  :  transition_to = $transition_to"
-            switch -exact -- [lindex $transition_to 0] {
-                POPSPACE {
-                    set popfromspace_info [spacestack peek]
-                    set popfromspace_state [dict get $popfromspace_info state]
-                    spacestack pop
-                    set parent_info [spacestack peek]
-                    set type [dict get $parent_info type]
-                    set parentspace [dict get $parent_info state]
-
-                    set last_space_action "pop"
-                    set last_space_type $type
-
-                    if {[dict exists $parent_info returnstate]} {
-                        set next [dict get $parent_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace redirected to stored returnstate $next <<---"
-                    } else {
-                        ###
-                        #review - do away with spacePopTransitions - which although useful to provide a default..
-                        # - involve error-prone configurations distant to the main state transition configuration in stateMatrix
-                        if {[dict exists $::tomlish::parse::spacePopTransitions $parentspace]} {
-                            set next [dict get $::tomlish::parse::spacePopTransitions $parentspace]
-                            ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace redirected state to $next (spacePopTransitions)<<---"
-                        } else {
-                            set next $parentspace
-                            ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace<<---"
-                        }
-                    }
-                    set result $next
-                }
-                SAMESPACE {
-                    set currentspace_info [spacestack peek]
-                    ::tomlish::log::debug       "--->> SAMESPACE got current space entry: $currentspace_info <<<<<"
-                    set type         [dict get $currentspace_info type]
-                    set currentspace [dict get $currentspace_info state]
-
-                    if {[dict exists $currentspace_info returnstate]} {
-                        set next [dict get $currentspace_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace redirected to stored returnstate $next"
-                    } else {
-                        if {[dict exists $::tomlish::parse::spaceSameTransitions $currentspace]} {
-                            set next [dict get $::tomlish::parse::spaceSameTransitions $currentspace]
-                            ::tomlish::log::info   "--->> SAMESPACE transition to space $currentspace redirected state to $next (spaceSameTransitions)"
-                        } else {
-                            set next $currentspace
-                            ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace"
-                        }
-                    }
-                    set result $next
-                }
-                zeropoppushspace {
-                    if {$nest > 0} {
-                        #pop back down to the root level (table-space)
-                        spacestack pop
-                        set parentinfo [spacestack peek]
-                        set type [dict get $parentinfo type]
-                        set target [dict get $parentinfo state]
-
-                        set last_space_action "pop"
-                        set last_space_type $type
-
-                        #-----
-                        #standard pop
-                        set parentlevel [expr {$nest -1}]
-                        lappend v($parentlevel) [set v($nest)]
-                        incr nest -1
-                        #-----
-                    }
-                    #re-entrancy
-
-                    #set next [list PUSHSPACE [lindex $transition_to 1]]
-                    set nexttokentype ${tokentype}2  ;#fake token type e.g tablename2 or tablearrayname2
-                    ::tomlish::log::debug "--->> zeropoppushspace goNextState RECURSE. calling goNextState $nexttokentype $currentstate"
-                    set transition_info [::tomlish::parse::goNextState $nexttokentype $tok $currentstate]
-                    set result [dict get $transition_info newstate]
-                }
-                PUSHSPACE {
-                    set original_target [dict get $transition_to PUSHSPACE]
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    if {[dict exists $transition_to starttok]} {
-                        set starttok [dict get $transition_to starttok]
-                    }
-                    spacestack push [dict create type space state $original_target]
-
-                    set last_space_action "push"
-                    set last_space_type "space"
-
-                    if {[dict exists $transition_to state]} {
-                        #an explicit state in the pushed space was requested in the stateMatrix - override the spacePushTransition (spacePushTransitions can be deprecated if we require explicitness?)
-                        set next [dict get $transition_to state]
-                        ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next by explicit 'state' entry"
-                    } else {
-                        #puts $::tomlish::parse::spacePushTransitions
-                        if {[dict exists $::tomlish::parse::spacePushTransitions $original_target]} {
-                            set next [dict get $::tomlish::parse::spacePushTransitions $original_target]
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next (spacePushTransitions) "
-                        } else {
-                            set next $original_target
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target"
-                        }
-                    }
-                    set result $next
-                }
-                TOSTATE {
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    set result [dict get $transition_to TOSTATE]
-                }
-                default {
-                    #simplified version of TOSTATE
-                    set result [lindex $transition_to 0] ;#ignore everything but first word
-                }
-            }
-        } else {
-            ::tomlish::log::error "--->> No state transition defined from state $currentstate when tokentype $tokentype received"
-            set result "nostate"
-        }
-        lappend state_list [list tokentype $tokentype from $currentstate to $result]
-        set state $result
-        ::tomlish::log::notice "--->> STATE TRANSITION tokenType: '$tokentype' tok:$tok  triggering '$currentstate' -> '$result' last_space_action:$last_space_action "
-        return [dict create prevstate $prevstate newstate $result space_action $last_space_action starttok $starttok]
-    }
-
-    proc report_line {{line ""}} {
-        variable linenum
-        variable is_parsing
-        if {$is_parsing} {
-            if {$line eq ""} {
-                set line $linenum
-            }
-            return "Line Number: $line"
-        } else {
-            #not in the middle of parsing tomlish text - return nothing.
-            return ""
-        }
-    }
-
-    #produce a *slightly* more readable string rep of the nest for puts etc.
-    proc nest_pretty1 {list} {
-        set prettier "{"
-
-        foreach el $list {
-            if { [lindex $el 0] eq "NEWLINE"} {
-                append prettier "[list $el]\n"
-            } elseif {([llength $el] > 1) && ([lindex $el 0] in {KEY DQKEY SQKEY TABLE ARRAY})} {
-                append prettier [nest_pretty1 $el]
-            } else {
-                append prettier "[list $el] "
-            }
-        }
-        append prettier "}"
-        return $prettier
-    }
-
-    proc set_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        if {![info exists tokenType]} {
-            set tokenType ""
-        }
-        lappend tokenType_list $t
-        set tokenType $t
-    }
-
-    proc switch_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        lset tokenType_list end $t
-        set tokenType $t
-    }
-
-    proc get_tokenType {} {
-        variable tokenType
-        return $tokenType
-    }
-
-
-    proc get_token_waiting {} {
-        variable token_waiting
-        return [lindex $token_waiting 0]
-    }
-    proc clear_token_waiting {} {
-        variable token_waiting
-        set token_waiting [list]
-    }
-
-    #token_waiting is a list - but our standard case is to have only one
-    #in certain circumstances such as near eof we may have 2
-    #the set_token_waiting function only allows setting when there is not already one waiting.
-    #we want to catch cases of inadvertently trying to set multiple
-    # - the reason being that the state transition triggered by the previous token may have invalidated the assumptions made when a token was added as waiting.
-    proc set_token_waiting {args} {
-        if {[llength $args] %2 != 0} {
-            error "tomlish set_token_waiting must have args of form: type <tokentype> value <value> complete 0|1"
-        }
-        variable token_waiting
-
-        if {[llength $token_waiting] && [dict get [lindex $token_waiting end] type] ne "eof"} {
-            #tokloop already set a token_waiting - but something (post tokloop processing?) is trying to set another
-            #we may need to remove the existing token_waiting and reset the tokloop index to the previous char so it's reprocessed in the possibly new context
-            #rather than attempt to make the right decision here - we raise an error and require the caller to check/handle it
-            set err         "tomlish set_token_waiting already has token_waiting: [lindex $token_waiting 0]"
-            append err \n   "  -                cannot add token_waiting: $args"
-            error $err
-            #set tomlish::parse::i [expr {[dict get $token_waiting startindex] -1}]
-            #set token_waiting [list]
-        }
-
-        set waiting [dict create]
-        dict for {k v} $args {
-            switch -exact $k {
-                type -  complete {
-                    dict set waiting $k $v
-                }
-                value {
-                    dict set waiting tok $v
-                }
-                startindex {
-                    dict set waiting startindex $v
-                }
-                default {
-                    error "tomlish set_token_waiting error - unrecognised key $k. known keys: [dict keys $args]"
-                }
-            }
-        }
-        if {![tcl::string::is boolean -strict [dict get $waiting complete]]} {
-            error "tomlish set_token_waiting error - 'complete' must be a boolean. got [dict get $waiting complete]"
-        }
-        if {![llength $token_waiting]} {
-            set token_waiting [list $waiting]
-        } else {
-            #an extra sanity-check that we don't have more than just the eof..
-            if {[llength $token_waiting] > 1} {
-                set err "tomlish Unexpected. Existing token_waiting count > 1.\n"
-                foreach tw $token_waiting {
-                    append err " $tw" \n
-                }
-                append err " -          cannot add token_waiting: $waiting"
-                error $err
-            }
-            #last entry must be a waiting eof
-            set token_waiting [list $waiting [lindex $token_waiting end]]
-        }
-        return
-    }
-
-    #returns 0 or 1
-    #tomlish::parse::tok
-    #we attempt to do this without lookahead (potential use in streaming toml? for what benefit?) todo -final flag
-    # - the possible benefit is being able to more easily process in arbitrarily split chunks (although we would still have to watch crlf splitting ?)
-    # - interactive use?
-
-    proc tok {s} {
-        variable nest
-        variable v
-        variable i
-        variable tok
-        variable type ;#character type
-        variable state ;#FSM
-
-
-        variable tokenType
-        variable tokenType_list
-
-
-        variable endToken
-
-        variable lastChar
-
-        variable braceCount
-        variable bracketCount
-
-
-        #------------------------------
-        #Previous run found another (presumably single-char) token
-        #The normal case is for there to be only one dict in the list
-        #multiple is an exception - primarily for eof
-        variable token_waiting
-        if {[llength $token_waiting]} {
-            set waiting [lindex $token_waiting 0]
-
-            set tokenType   [dict get $waiting type]
-            set tok         [dict get $waiting tok]
-            #todo: dict get $token_waiting complete
-            set token_waiting [lrange $token_waiting 1 end]
-            return 1
-        }
-        #------------------------------
-
-        set resultlist [list]
-        set sLen [tcl::string::length $s]
-
-        set slash_active 0
-        set quote 0
-        set c ""
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $s [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $s $i]
-            set cindex $i
-            set ctest [tcl::string::map {\{ lc \} rc \[ lb \] rb \" dq ' sq \\ bsl \r cr \n lf \t tab \uFEFF bom} $c]
-            tomlish::log::debug "- tokloop char <$ctest> index $i   tokenType:$tokenType tok:<$tok>"
-            #puts "got char $c during tokenType '$tokenType'"
-            incr i ;#must incr here because we do returns inside the loop
-
-            switch -exact -- $ctest {
-                # {
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {$had_slash} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                #for multiliteral,  multistring -  data and/or end
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #pseudo token beginning with underscore - never returned to state machine - review
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i [tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed (see tomlish::utils::is_barekey). [tomlish::parse::report_line]"
-                            }
-                            whitespace {
-                                # hash marks end of whitespace token
-                                #do a return for the whitespace, set token_waiting
-                                #set_token_waiting type comment value "" complete 1
-                                incr i -1  ;#leave comment for next run
-                                return 1
-                            }
-                            untyped_value {
-                                #REVIEW! the spec isn't clear.. is whitespace after an int,bool etc required before comment?
-                                #we will accept a comment marker as an immediate terminator of the untyped_value.
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #fix!
-                                error "tomlish Character '#' is invalid first character for  $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare parts - but allowed in quoted parts - let tablename parser sort it out
-                                append tok $c
-                            }
-                            default {
-                                #dquotedkey, string,literal, multistring
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -- $state {
-                            multistring-space {
-                                set_tokenType stringpart
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "#"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "#"
-                            }
-                            default {
-                                #start of token if we're not in a token
-                                set_tokenType comment
-                                set tok "" ;#The hash is not part of the comment data
-                            }
-                        }
-                    }
-                }
-                lc {
-                    #left curly brace
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i [tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                #*bare* tablename can only contain letters,digits underscores
-                                error "tomlish Invalid tablename first character \{ [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #valid in quoted parts
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\{"
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            itable-keyval-value-expected - keyval-value-expected {
-                                #switch last key to tablename??
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested anonymous inline table
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\{"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\{"
-                            }
-                            default {
-                                error "tomlish state: '$state'. left brace case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                rc {
-                    #right curly brace
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey - comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - tablename {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endinlinetable value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            starttablearrayname - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                #end any other token
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-space {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname-state problem"
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                #invalid
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-val-tail {
-                                set_tokenType "endinlinetable"
-                                set tok ""
-                                #we need to pop the keyval - and then reprocess to pop the inlinetable - so we incr -1
-                                incr i -1
-                                return 1
-                            }
-                            itable-keyval-syntax {
-                                error "tomlish endinlinetable unexpected at this point. Expecting key=val syntax [tomlish::parse::report_line]"
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\}"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" ; #review
-                                set tok "\}"
-                            }
-                            default {
-                                #JMN2024b keyval-tail?
-                                error "tomlish state '$state'. endinlinetable case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                lb {
-                    #left square bracket
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename {
-                                #change the tokenType
-                                switch_tokenType "starttablearrayname"
-                                set tok "" ;#no output into the tomlish list for this token
-                                #any following whitespace is part of the tablearrayname, so return now
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    #append tok "\\["
-                                    append tok {\[}
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        #invalid at this point - state machine should disallow:
-                                        # table -> starttablearrayname
-                                        # tablearray -> starttablearrayname
-                                        set_token_waiting type starttablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "\["
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            keyval-value-expected - itable-keyval-value-expected {
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested array?
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                                #error "state: array-space. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                            table-space {
-                                #table name
-                                #assume it's a single bracket - but we need to wait for non-bracket to confirm it's not a tablearray
-                                #note that a starttablearrayname token may contain whitespace between the brackets
-                                # e.g \[   \[
-                                set_tokenType "starttablename"
-                                set tok ""  ;#there is no output into the tomlish list for this token
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\["
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\["
-                            }
-                            itable-space {
-                                #handle state just to give specific error msg
-                                error "tomlish state: '$state'. Left square bracket invalid. Cannot start array in inline table without key. Use key=\[<vals>\] syntax. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish state: '$state'. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                rb {
-                    #right square bracket
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #????
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                } else {
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                }
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablename value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            tablearrayname {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            default {
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            array-syntax - array-space {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endtablename"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname problem"
-                                set_tokenType "endtablearray"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-tail {
-                                #[[xxx]<here>
-                                set_tokenType "endtablename"
-                                #sequence: starttablename -> starttablearrayname -> endtablearrayname -> endtablename
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\]"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\]"
-                            }
-                            default {
-                                error "tomlish state '$state'. endarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                bsl {
-                    #backslash
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #end whitespace token
-                                    incr i -1 ;#reprocess bsl in next run
-                                    return 1
-                                } else {
-                                    error "tomlish Unexpected backslash during whitespace. [tomlish::parse::report_line]"
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                #never need to set slash_active true when in single quoted tokens
-                                append tok "\\"
-                                set slash_active 0
-                            }
-                            string - dquotedkey - comment {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            stringpart {
-                                if {$slash_active} {
-                                    #assert - quotes empty - or we wouldn't have slash_active
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish backslash is invalid as first character of $tokenType [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            barekey {
-                                error "tomlish Unexpected backslash during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish Backslash unexpected during tokentype: '$tokenType'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$slash_active} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\\"
-                                    set slash_active 0
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            multiliteral-space {
-                                #nothing can be escaped in multiliteral-space - not even squotes (?) review
-                                set_tokenType "literalpart"
-                                set tok "\\"
-                            }
-                            default {
-                                error "tomlish tok error: Unexpected backslash when no token is active. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                sq {
-                    #single quote
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote {
-                                #for within multiliteral
-                                #short tentative_accum_squote tokens are returned if active upon receipt of any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                #assert state = trailing-squote-space
-                                append tok $c
-                                if {$existingtoklen == 4} {
-                                    #maxlen to be a tentative_accum_squote is multisquote + 2  = 5
-                                    #return tok with value '''''
-                                    return 1
-                                }
-                            }
-                            tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #pseudo/temp token creatable during keyval-value-expected itable-keyval-value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        #no conclusion can yet be reached
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #enter multiliteral
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_squote
-                                        return 1
-                                    }
-                                    default {
-                                        #if there are more than 3 leading squotes we also enter multiliteral space and the subsequent ones are handled
-                                        #by the tentative_accum_squote check for ending sequence which can accept up to 5 and reintegrate the
-                                        #extra 1 or 2 squotes as data.
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_squote_sequence'"
-                                    }
-                                }
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                #end whitespace
-                                incr i -1  ;#reprocess sq
-                                return 1
-                            }
-                            literal {
-                                #slash_active always false
-                                #terminate the literal
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #ended by '''  - but final could be '''' or ''''' (up to 2 squotes allowed directly before ending triple squote sequence)
-                                #todo
-                                # idea:  end this literalpart  (possibly 'temporarily')
-                                # let the sq be reprocessed in the multiliteral-space to push an end-multiliteral-sequence to state stack
-                                # upon popping end-multiliteral-sequence - stitch quotes back into this literalpart's token (if either too short - or a long ending sequence as shown above)
-                                incr i -1 ;#throw the "'" back to loop - will be added to a tentative_accum_squote token for later processing
-                                return 1
-                            }
-                            XXXitablesquotedkey {
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            squotedkey {
-                                ###
-                                #set_token_waiting type endsquote value "'" complete 1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #!!!
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                append tok $c
-                            }
-                            barekey {
-                                #barekeys now support all sorts of unicode letter/number chars for other cultures
-                                #but not punctuation - not even for those of Irish heritage who don't object
-                                #to the anglicised form of some names.
-                                # o'shenanigan seems to not be a legal barekey
-                                #The Irish will have to use an earlier form Ó - which apparently many may prefer anyway.
-                                error "tomlish Unexpected single quote during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            array-space - keyval-value-expected - itable-keyval-value-expected {
-                                #leading squote
-                                #pseudo-token _start_squote_sequence ss not received by state machine 
-                                #This pseudotoken will trigger production of single_squote token or triple_squote token
-                                #It currently doesn't trigger double_squote token
-                                #(handle '' same as 'x' ie produce a single_squote and go into processing literal)
-                                #review - producing double_squote for empty literal may be slightly more efficient.
-                                #This token is not used to handle squote sequences *within* a multiliteral
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                            }
-                            multiliteral-space {
-                                #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                #we are building up a tentative_accum_squote to determine if
-                                #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                #b) it is exactly ''' and we can terminate the whole multiliteral
-                                #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                set_tokenType "tentative_trigger_squote" ;#trigger tentative_accum_squote
-                                set tok "'"
-                                return 1
-                            }
-                            table-space - itable-space {
-                                #tests: squotedkey.test squotedkey_itable.test
-                                set_tokenType "squotedkey"
-                                set tok ""
-                            }
-                            XXXtable-space - XXXitable-space {
-                                #future - could there be multiline keys? MLLKEY, MLBKEY ?
-                                #this would (almost) allow arbitrary tcl dicts to be stored in toml (aside from escaping issues)
-                                #probably unlikely - as it's perhaps not very 'minimal' or ergonomic for config files
-                                #@2025 ABNF for toml mentions key, simple-key, unquoted-key, quoted-key and dotted-key
-                                #where key is simple-key or dotted-key - no MLL or MLB components
-                                #the spec states solution for arbitrary binary data is application specific involving encodings
-                                #such as hex, base64
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                                return 1
-                            }
-                            tablename-state {
-                                #first char in tablename-state/tablearrayname-state
-                                set_tokenType "tablename"
-                                append tok "'"
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                append tok "'"
-                            }
-                            literal-state {
-                                #shouldn't get here? review
-                                tomlish::log::debug "- tokloop sq during literal-state with no tokentype - empty literal?"
-                                set_tokenType "literal"
-                                incr -1
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok ","
-                                #error "tomlish unimplemented - squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                            dottedkey-space {
-                                set_tokenType "squotedkey"
-                            }
-                            default {
-                                error "tomlish unhandled squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                dq {
-                    #double quote
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            tentative_accum_dquote {
-                                #within multistring
-                                #short tentative_accum_dquote tokens are returned if active upon receipt of any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                #assert state = trailing-squote-space
-                                append tok $c
-                                if {$existingtoklen == 4} {
-                                    #maxlen to be a tentative_accum_dquote is multidquote + 2  = 5
-                                    #return tok with value """""
-                                    return 1
-                                }
-                            }
-                            _start_dquote_sequence {
-                                #pseudo/temp token creatable during keyval-value-expected itable-keyval-value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        #no conclusion can yet be reached
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #enter multistring 
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_dquote
-                                        return 1
-                                    }
-                                    default {
-                                        #if there are more than 3 leading dquotes we also enter multistring space and the subsequent ones are handled
-                                        #by the tentative_accum_dquote check for ending sequence which can accept up to 5 and reintegrate the
-                                        #extra 1 or 2 dquotes as data.
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_dquote_sequence'"
-                                    }
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string {
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #unescaped quote always terminates a string
-                                    set_token_waiting type enddquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            stringpart {
-                                #sub element of multistring
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    incr i -1 ;#throw the {"} back to loop - will be added to a tentative_accum_dquote token for later processing
-                                    return 1
-                                }
-                            }
-                            whitespace {
-                                #assert: had_slash will only ever be true in multistring-space
-                                if {$had_slash} {
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #end whitespace token - throw dq back for reprocessing
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            XXXdquotedkey {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    set_token_waiting type enddquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            dquotedkey {
-                                ###
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    #set_token_waiting type enddquote value {"} complete 1
-                                    return 1
-                                }
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1 ;##
-                                return 1
-                            }
-                            default {
-                                error "tomlish got quote during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        #token is string only if we're expecting a value at this point
-                        switch -exact -- $state {
-                            array-space - keyval-value-expected - itable-keyval-value-expected {
-                                #leading dquote
-                                #pseudo-token _start_squote_sequence ss not received by state machine
-                                #This pseudotoken will trigger production of single_dquote token or triple_dquote token
-                                #It currently doesn't trigger double_dquote token
-                                #(handle "" same as "x" ie produce a single_dquote and go into processing string)
-                                #review - producing double_dquote for empty string may be slightly more efficient.
-                                #This token is not used to handle dquote sequences once *within* a multistring 
-                                set_tokenType "_start_dquote_sequence"
-                                set tok {"}
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\""
-                                } else {
-                                    #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                    #we are building up a tentative_accum_squote to determine if
-                                    #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                    #b) it is exactly ''' and we can terminate the whole multiliteral
-                                    #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                    set_tokenType "tentative_trigger_dquote" ;#trigger tentative_accum_dquote
-                                    set tok {"}
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\""
-                            }
-                            table-space - itable-space {
-                                set_tokenType "dquotedkey"
-                                set tok ""
-                            }
-                            dottedkey-space {
-                                set_tokenType dquotedkey
-                                set tok ""
-
-                                #only if complex keys become a thing
-                                #set_tokenType dquote_seq_begin
-                                #set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            default {
-                                error "tomlish Unexpected dquote during state '$state' [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                = {
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                #assertion had_slash 0
-                                append tok $c
-                            }
-                            string - comment - dquotedkey {
-                                #for these tokenTypes an = is just data.
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type equal value = complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                #set_token_waiting type equal value = complete 1
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character '=' is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare name - but valid in quoted parts - leave for tablename parser to sort out
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish unexpected = character during tokentype $tokenType.  case not implemented. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok =
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "="
-                            }
-                            dottedkey-space {
-                                set_tokenType "equal"
-                                set tok "="
-                                return 1
-                            }
-                            default {
-                                set_tokenType "equal"
-                                set tok =
-                                return 1
-                            }
-                        }
-                    }
-                }
-                cr {
-                    #REVIEW!
-                    # \r carriage return
-                    if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #we have received a double cr
-                                ::tomlish::log::warn "double cr - will generate cr token. needs testing"
-                                set_tokenType "cr" ;#lone cr token will generally raise an error - but let state machine handle it
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal {
-                                append tok $c
-                            }
-                            literalpart {
-                                #part of MLL string (multi-line literal string)
-                                #we need to split out crlf as a separate NEWLINE to be consistent
-                                ::tomlish::log::warn "literalpart ended by cr - needs testing"
-                                #return literalpart temporarily - allow cr to be reprocessed from multiliteral-space
-                                incr i -1
-                                return 1
-                            }
-                            stringpart {
-                                #stringpart is a part of MLB string (multi-line basic string)
-                                #throw back the cr - if followed by lf it will become a {NEWLINE crlf} entry within the MULTISTRING list (e.g between STRINGPART entries)
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character <carriage return> is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #could in theory be valid in quoted part of name
-                                #review - might be better just to disallow here
-                                append tok $c
-                            }
-                            whitespace {
-                                #it should technically be part of whitespace if not followed by lf
-                                #but outside of values we are also free to map it to be another NEWLINE instead? REVIEW
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                incr i -1
-                                return 1
-                            }
-                            default {
-                                #!todo - error out if cr inappropriate for tokenType
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        #lf may be appended if next
-                        #review - lone cr as newline? - this is uncommon - but so is lone cr in a string(?)
-                        set_tokenType "newline"
-                        set tok cr
-                    }
-                }
-                lf {
-                    # \n newline
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #review
-                                #this lf is the trailing part of a crlf
-                                append tok lf ;#assert we should now have tok "crlf" - as a previous cr is the only way to have an incomplete newline tok
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                #multiliteral or multistring
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal {
-                                #nl is not allowed *within* a literal - require multiliteral syntax for any literal containing a newline ''' '''
-                                #even though we terminate the literal without the closing quote here - the token_waiting newline should trigger a state error
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #we allow newlines - but store them within the multiliteral as their own element
-                                #This is a legitimate end to the literalpart - but not the whole multiliteral
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            stringpart {
-                                if {$had_slash} {
-                                    #emit the stringpart (return 1), queue the continuation, go back 1 to reprocess the lf (incr i -1)
-                                    set_token_waiting type continuation value \\ complete 1 startindex [expr {$cindex-1}]
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type newline value lf complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            starttablename - tablename - tablearrayname - starttablearrayname {
-                                error "tomlish Character <linefeed> is invalid in $tokenType. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                #newline ends all other tokens.
-                                #note for string: we don't add (raw unescaped) newline to simple string. (must use multi-string for this)
-                                #note for whitespace:
-                                #    we will use the convention that \n terminates the current whitespace even if whitespace follows
-                                #    ie whitespace is split into separate whitespace tokens at each newline
-
-                                #puts "-------------- newline lf during tokenType $tokenType"
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType "newline"
-                                    set tok lf
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0 
-                                set_tokenType "newline"
-                                set tok "lf"
-                                return 1
-                            }
-                            default {
-                                #ignore slash? error?
-                                set_tokenType "newline"
-                                set tok lf
-                                return 1
-                            }
-                        }
-                        #if {$had_slash} {
-                        #    #CONT directly before newline - allows strings_5_byteequivalent test to pass
-                        #    set_tokenType "continuation"
-                        #    set tok "\\"
-                        #    incr i -1
-                        #    return 1
-                        #} else {
-                        #    set_tokenType newline
-                        #    set tok lf
-                        #    return 1
-                        #}
-                    }
-                }
-                , {
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            comment - tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok ,
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                #stringpart can have up to 2 quotes too
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0 
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type comma value "," complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            default {
-                                set_token_waiting type comma value "," complete 1 startindex $cindex
-                                if {$had_slash} {append tok "\\"}
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok ","
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0
-                                set_tokenType "literalpart"
-                                set tok ","
-                            }
-                            default {
-                                set_tokenType "comma"
-                                set tok ","
-                                return 1
-                            }
-                        }
-                    }
-                }
-                . {
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            comment - untyped_value {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0
-                                append tok $c
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        #review
-                                        if {$had_slash} {
-                                            incr i -2
-                                        } else {
-                                            incr i -1
-                                        }
-                                        return 1
-                                    }
-                                    xxxdottedkey-space {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    dottedkey-space-tail {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish Received  period during tokenType 'whitespace' [tomlish::parse::report_line]"
-                                    }
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                #This would correspond to an empty table name
-                                error "tomlish Character '.' is not allowed as first character ($tokenType). [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #subtable - split later - review
-                                append tok $c
-                            }
-                            barekey {
-                                #e.g x.y = 1
-                                #we need to transition the barekey to become a structured table name  ??? review
-                                #x is the tablename y is the key
-                                set_token_waiting type dotsep value "." complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                error "tomlish Received period during tokenType '$tokenType' [tomlish::parse::report_line]"
-                                #set_token_waiting type period value . complete 1
-                                #return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok "."
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "."
-                            }
-                            XXXdottedkey-space {
-                                ### obs?
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            dottedkey-space-tail {
-                                ###
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            default {
-                                set_tokenType "untyped_value"
-                                set tok "."
-                            }
-                        }
-                    }
-
-                }
-                " " {
-                    if {[tcl::string::length $tokenType]} {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                #todo had_slash - emit token or error
-                                #whitespace is a terminator for bare keys
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            comment {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} { append tok "\\" }
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART xxx WS " "
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    append tok $c
-                                } else {
-                                    append tok $c
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace space during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType "whitespace"
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                if {$had_slash} {
-                                    error "tomlish unexpected backslash [tomlish::parse::report_line]"
-                                }
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                tab {
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out (?review)
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                #whitespace is a terminator for bare keys
-                                incr i -1
-                                #set_token_waiting type whitespace value $c complete 1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            dquotedkey - string - comment - whitespace {
-                                #REVIEW
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " "
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace tab during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        if {$slash_active} {
-                            set slash_active 0
-                        }
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType whitespace
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                bom {
-                    #BOM (Byte Order Mark) - ignored by token consumer
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #assert - tok will be one or two squotes only
-                                #A toml literal probably isn't allowed to contain this
-                                #but we will parse and let the validator sort it out.
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string - stringpart {
-                                append tok $c
-                            }
-                            default {
-                                #state machine will generally not have entry to accept bom - let it crash
-                                set_token_waiting type bom value "\uFEFF" complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "bom"
-                                set tok "\uFEFF"
-                                return 1
-                            }
-                        }
-                    }
-                }
-                default {
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    #review
-                                    incr i -1  ;#We don't have a full token to add to the token_waiting dict - so leave this char for next run.
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed. (see tomlish::utils::is_barekey) [tomlish::parse::report_line]"
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                #allow statemachine to set context for subsequent chars
-                                return 1
-                            }
-                            stringpart {
-                                append tok $c
-                            }
-                            default {
-                                #e.g comment/string/literal/literalpart/untyped_value/starttablename/starttablearrayname/tablename/tablearrayname
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            table-space - itable-space {
-                                #if no currently active token - assume another key value pair
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                if {$had_slash} {
-                                    set tok \\$c
-                                } else {
-                                    set tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType "tablename"
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType barekey
-                                set tok $c
-                            }
-                            default {
-                                #todo - something like ansistring VIEW to show control chars?
-                                set cshow [string map [list \t tab \v vt] $c]
-                                tomlish::log::debug "- tokloop char '$cshow' setting to untyped_value while state:$state [tomlish::parse::report_line]"
-                                set_tokenType "untyped_value"
-                                set tok $c
-                            }
-                        }
-                    }
-                }
-            }
-
-        }
-
-        #run out of characters (eof)
-        if {[tcl::string::length $tokenType]} {
-            #check for invalid ending tokens
-            #if {$state eq "err-state"} {
-            #	error "Reached end of data whilst tokenType = '$tokenType'. INVALID"
-            #}
-            switch -exact -- $tokenType {
-                _start_squote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open literal
-                            error "tomlish eof reached without closing single quote for string literal. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            set_tokenType "literal"
-                            set tok ""
-                            return 1
-
-                            ##review
-                            #set_token_waiting type endsquote value "'" complete 1 startindex [expr {$cindex -1}]
-                            #set_tokenType "literal"
-                            #set tok ""
-                            #return 1
-                        }
-                    }
-                }
-                _start_dquote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open string
-                            error "tomlish eof reached without closing double quote for string. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            set_tokenType "string"
-                            set tok ""
-                            return 1
-                        }
-                    }
-                }
-                newline {
-                    #The only newline token that has still not been returned should have a tok value of "cr"
-                    puts "tomlish eof reached - with incomplete newline token '$tok'"
-                    if {$tok eq "cr"} {
-                        #we convert lone cr to it's own "cr" token elsewhere in the document to allow statemachine to handle it.
-                        #(which it should generally do by not handling it ie raising an error - or emitting an ERROR list in the tomlish)
-                        #if trailing char is a lone cr - we should encode it the same way as elsewhere that is outside of values
-                        # ie as it's own token.
-                        switch_tokenType "cr"
-                        return 1
-                    } else {
-                        #should be unreachable
-                        error "tomlish eof reached - with invalid newline token. value: $tok"
-                    }
-                }
-            }
-            set_token_waiting type eof value eof complete 1 startindex $i ;#review
-            return 1
-        } else {
-            ::tomlish::log::debug "- No current tokenType, ran out of characters, setting tokenType to 'eof' [tomlish::parse::report_line]"
-            set tokenType "eof"
-            set tok "eof"
-        }
-        return 0
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::parse ---}]
-}
-
-namespace eval tomlish::dict {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-
-    proc is_tomlish_typeval {d} {
-        #designed to detect {type <tag> value <whatever>} e.g {type INT value 3}, {type STRING value "blah etc"}
-        #as a sanity check we need to avoid mistaking user data that happens to match same form
-        #consider x.y={type="spud",value="blah"}
-        #The value of type will itself have already been converted to {type STRING value spud} ie never a single element.
-        #check the length of the type as a quick way to see it's a tag - not something else masqerading.
-        expr {[dict size $d] == 2 && [dict exists $d type] && [dict exists $d value] && [llength [dict get $d type]] == 1}
-    }
-    proc is_tomlish_typeval2 {d} {
-        upvar ::tomlish::tags tags
-        expr {[lindex $d 0] eq "type" && [lindex $d 1] in $tags}
-    }
-    proc last_tomltype_posn {d} {
-        set last_simple -1
-        set dictposn [expr {[dict size $d] -1}]
-        foreach k [lreverse [dict keys $d]] {
-            set dval [dict get $d $k]
-            if {[is_tomlish_typeval $dval]} {
-                set last_simple $dictposn
-                break
-            }
-            incr dictposn -1
-        }
-        return $last_simple
-    }
-
-
-    #review
-    proc name_from_tablestack {tablestack} {
-        set name ""
-        foreach tinfo [lrange $tablestack 1 end] {
-            lassign $tinfo type namepart
-            switch -- $type {
-                T {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                I {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                default {
-                    #end at first break in the leading sequence of T & I tablenames
-                    break
-                }
-            }
-        }
-        return $name
-    }
-
-    proc _show_tablenames {tablenames_info} {
-        append msg \n "tablenames_info:" \n
-        dict for {tkey tinfo} $tablenames_info {
-            append msg      "  "    "table:  $tkey" \n
-            dict for {field finfo} $tinfo {
-                append msg  "      "   "$field      $finfo" \n
-            }
-        }
-        return $msg
-    }
-}
-tcl::namespace::eval tomlish::to_dict {
-    proc tablename_split {tablename {normalize false}} {
-        #we can't just split on . because we have to handle quoted segments which may contain a dot.
-        #eg {dog."tater.man"}
-        set sLen [tcl::string::length $tablename]
-        set segments [list]
-        set mode "preval"  ;#5 modes: preval, quoted,litquoted, unquoted, postval
-        #quoted is for double-quotes,  litquoted is for single-quotes (string literal)
-        set seg ""
-        for {set i 0} {$i < $sLen} {incr i} {
-
-            if {$i > 0} {
-                set lastChar [tcl::string::index $tablename [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            #todo - track\count backslashes properly
-
-            set c [tcl::string::index $tablename $i]
-            if {$c eq "\""} {
-                if {($lastChar eq "\\")} {
-                    #not strictly correct - we could have had an even number prior-backslash sequence
-                    #the toml spec would have us error out immediately on bsl in bad location - but we're
-                    #trying to parse to unvalidated tomlish
-                    set ctest escq
-                } else {
-                    set ctest dq
-                }
-            } else {
-                set ctest [string map [list " " sp \t tab] $c]
-            }
-
-            switch -- $ctest {
-                . {
-                    switch -exact -- $mode {
-                        preval {
-                            error "tablename_split. dot not allowed - expecting a value"
-                        }
-                        unquoted {
-                            #dot marks end of segment.
-                            if {![tomlish::utils::is_barekey $seg]} {
-                                error "tablename_split. unquoted key segment $seg is not a valid toml key"
-                            }
-                            lappend segments $seg
-                            set seg ""
-                            set mode "preval"
-                        }
-                        quoted {
-                            append seg $c
-                        }
-                        litquoted {
-                            append seg $c
-                        }
-                        postval {
-                            #got dot in an expected location
-                            set mode "preval"
-                        }
-                    }
-                }
-                dq {
-                    #unescaped dquote
-                    switch -- $mode {
-                        preval {
-                            set mode "quoted"
-                            set seg "\""
-                        }
-                        unquoted {
-                            #invalid in barekey - but we are after structure only
-                            append seg $c
-                        }
-                        quoted {
-                            append seg $c
-                            if {$normalize} {
-                                lappend segments [::tomlish::utils::unescape_string [tcl::string::range $seg 1 end-1]]
-                            } else {
-                                lappend segments $seg
-                            }
-                            set seg ""
-                            set mode "postval" ;#make sure we only accept a dot or end-of-data now.
-                        }
-                        litquoted {
-                            append seg $c
-                        }
-                        postval {
-                            error "tablename_split. expected whitespace or dot, got double quote. tablename: '$tablename'"
-                        }
-                    }
-                }
-                ' {
-                    switch -- $mode {
-                        preval {
-                            append seg $c
-                            set mode "litquoted"
-                        }
-                        unquoted {
-                            #single quote inside e.g o'neill - ultimately invalid - but we pass through here.
-                            append seg $c
-                        }
-                        quoted {
-                            append seg $c
-                        }
-                        litquoted {
-                            append seg $c
-                            #no normalization to do aside from stripping squotes
-                            if {$normalize} {
-                                lappend segments [tcl::string::range $seg 1 end-1]
-                            } else {
-                                lappend segments $seg
-                            }
-                            set seg ""
-                            set mode "postval"
-                        }
-                        postval {
-                            error "tablename_split. expected whitespace or dot, got single quote. tablename: '$tablename'"
-                        }
-                    }
-                }
-                sp - tab {
-                    switch -- $mode {
-                        preval - postval {
-                            #ignore
-                        }
-                        unquoted {
-                            #terminates a barekey
-                            lappend segments $seg
-                            set seg ""
-                            set mode "postval"
-                        }
-                        default {
-                            #append to quoted or litquoted
-                            append seg $c
-                        }
-                    }
-                }
-                default {
-                    switch -- $mode {
-                        preval {
-                            set mode unquoted
-                            append seg $c
-                        }
-                        postval {
-                            error "tablename_split. Expected a dot separator. got '$c'. tablename: '$tablename'"
-                        }
-                        default {
-                            append seg $c
-                        }
-                    }
-                }
-            }
-
-            if {$i == $sLen-1} {
-                #end of data
-                ::tomlish::log::debug "End of data: mode='$mode'"
-                switch -exact -- $mode {
-                    preval {
-                        error "tablename_split. Expected a value after last dot separator. tablename: '$tablename'"
-                    }
-                    unquoted {
-                        if {![tomlish::utils::is_barekey $seg]} {
-                            #e.g toml-test invalid/table/with-pound required to fail for invalid barekey 
-                            error "tablename_split. unquoted key segment $seg is not a valid toml key"
-                        }
-                        lappend segments $seg
-                    }
-                    quoted {
-                        error "tablename_split. Expected a trailing double quote. tablename: '$tablename'"
-                    }
-                    litquoted {
-                        error "tablename_split. Expected a trailing single quote. tablename: '$tablename'"
-                    }
-                    postval {
-                        #ok - segment already lappended
-                    }
-                }
-            }
-        }
-
-        #note - we must allow 'empty' quoted strings  '' & ""
-        # (these are 'discouraged' but valid toml keys)
-
-        return $segments
-    }
-
-    #tablenames (& tablearraynames) may contain irrelevant leading, trailing and interspersed whitespace
-    # tablenames can be made up of segments delimited by dots. .eg   [ a.b . c ]
-    #trimmed, the tablename becomes  {a.b.c}
-    # A segment may contain whitespace if it is quoted  e.g [a . b . "c etc "    ]
-    #ie whitespace is only irrelevant if it's outside a quoted segment
-    #trimmed, the tablename becomes {a.b."c etc "}
-    proc tablename_trim {tablename} {
-        set segments [tablename_split $tablename false]
-        set trimmed_segments [list]
-        foreach seg $segments {
-            lappend trimmed_segments [::string trim $seg " \t"]
-        }
-        return [join $trimmed_segments .]
-    }
-
-    proc get_dottedkey_info {dottedkeyrecord} {
-        set key_hierarchy [list]
-        set key_hierarchy_raw [list]
-        if {[lindex $dottedkeyrecord 0] ne "DOTTEDKEY"} {
-            error "tomlish::to_dict::get_dottedkey_info error. Supplied list doesn't appear to be a DOTTEDKEY (tag: [lindex $dottedkeyrecord 0])"
-        }
-        set compoundkeylist [lindex $dottedkeyrecord 1]
-        set expect_sep 0
-        foreach part $compoundkeylist {
-            set parttag [lindex $part 0]
-            if {$parttag eq "WS"} {
-                continue
-            }
-            if {$expect_sep} {
-                if {$parttag ne "DOTSEP"} {
-                    error "DOTTEDKEY missing dot separator between parts. '$dottedkeyrecord'"
-                }
-                set expect_sep 0
-            } else {
-                set val [lindex $part 1]
-                switch -exact -- $parttag {
-                    KEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw $val
-                    }
-                    DQKEY {
-                        lappend key_hierarchy [::tomlish::utils::unescape_string $val]
-                        lappend key_hierarchy_raw \"$val\"
-                    }
-                    SQKEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw "'$val'"
-                    }
-                    default {
-                        error "tomlish::to_dict::get_dottedkey_info DOTTED key unexpected part '$parttag' - ensure dot separator is between key parts. '$item'"
-                    }
-                }
-                set expect_sep 1
-            }
-        }
-        return [dict create keys $key_hierarchy keys_raw $key_hierarchy_raw]
-    }
-
-}
-
-
-tcl::namespace::eval tomlish::app {
-    #*** !doctools
-    #[subsection {Namespace tomlish::app}]
-    #[para]
-    #[list_begin definitions]
-
-    tcl::namespace::eval argdoc {
-        proc test_suites {} {
-            if {[package provide test::tomlish] eq ""} {
-                return [list]
-            }
-            return [test::tomlish::SUITES]
-        }
-    }
-
-    package require punk::args
-    punk::args::define {
-        @id         -id ::tomlish::app::decoder
-        @cmd        -name tomlish::app::decoder -help\
-            "Read toml on stdin until EOF
-            on error   - returns non-zero exit code and writes error to
-             the errorchannel.
-            on success - returns zero exit code and writes JSON encoding
-             of the data to the outputchannel.
-            This decoder is intended to be compatble with toml-test."
-        @leaders -min 0 -max 0
-        @opts
-        -help -type none -help\
-            "Display this usage message"
-        -inputchannel -default stdin
-        -outputchannel -default stdout
-        -errorchannel -default stderr
-        @values -min 0 -max 0
-    }
-    proc decoder {args} {
-        set argd [punk::args::parse $args withid ::tomlish::app::decoder]
-        set ch_input   [dict get $argd opts -inputchannel]
-        set ch_output  [dict get $argd opts -outputchannel]
-        set ch_error   [dict get $argd opts -errorchannel]
-        if {[dict exists $argd received -help]} {
-            return [punk::args::usage -scheme info ::tomlish::app::decoder]
-        }
-
-        #fconfigure stdin -encoding utf-8
-        fconfigure $ch_input -translation binary
-        #Just slurp it all - presumably we are not handling massive amounts of data on stdin.
-        # - even if the input is large, we probably don't gain much (aside from possible memory savings?) by attempting to process input as it arrives.
-        if {[catch {
-            set toml [read $ch_input]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set j [::tomlish::toml_to_json $toml]
-        } on error {em} {
-            puts $ch_error "decoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline $ch_output $j
-        exit 0
-    }
-
-    package require punk::args
-    punk::args::define {
-        @id         -id ::tomlish::app::encoder
-        @cmd        -name tomlish::app::encoder -help\
-            "Read JSON on input until EOF
-            return non-zero exitcode if JSON data cannot be converted to
-            a valid TOML representation.
-            return zero exitcode and TOML data on output if JSON data can
-            be converted.
-            This encoder is intended to be compatible with toml-test."
-        @leaders -min 0 -max 0
-        @opts
-        -help -type none -help \
-            "Display this usage message"
-        -inputchannel -default stdin
-        -outputchannel -default stdout
-        -errorchannel -default stderr
-        @values -min 0 -max 0
-    }
-    proc encoder {args} {
-        set argd [punk::args::parse $args withid ::tomlish::app::encoder]
-        set ch_input   [dict get $argd opts -inputchannel]
-        set ch_output  [dict get $argd opts -outputchannel]
-        set ch_error   [dict get $argd opts -errorchannel]
-        if {[dict exists $argd received -help]} {
-            return [punk::args::usage -scheme info ::tomlish::app::encoder]
-        }
-        #review
-        fconfigure $ch_input -translation binary
-        if {[catch {
-            set json [read $ch_input]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            set toml [::tomlish::json_to_toml $json]
-        } on error {em} {
-            puts $ch_error "encoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline $ch_output $toml
-        exit 0
-    }
-
-    punk::args::define {
-        @dynamic
-        @id     -id ::tomlish::app::test
-        @cmd    -name tomlish::app::test
-        @leaders
-        @opts -any 1
-        -help -type none -help\
-            "Display this usage message
-              or further info if more args."
-        -suite -default tests -choices {${[::tomlish::app::argdoc::test_suites]}}
-        @values -min 0 -max -1
-    }
-    proc test {args} {
-        package require test::tomlish
-        set argd [punk::args::parse $args withid ::tomlish::app::test]
-        set opts        [dict get $argd opts]
-        set values      [dict get $argd values]
-        set received    [dict get $argd received]
-        set solos       [dict get $argd solos]
-        set opt_suite       [dict get $opts -suite]
-        if {[dict exists $received -help] && ![dict exists $received -suite]} {
-            return [punk::args::usage -scheme info ::tomlish::app::test]
-        }
-
-        test::tomlish::SUITE $opt_suite
-        #if {[catch {test::tomlish::SUITE $opt_suite} errM]} {
-        #    puts stderr "Unknown test suite '$opt_suite'. Available suites: [test::tomlish::SUITES]"
-        #    exit 1
-        #}
-        set run_opts [dict remove $opts -suite]
-        set run_opts [dict remove $run_opts {*}$solos]
-        set result [test::tomlish::RUN {*}$run_opts {*}$solos {*}$values]
-        return $result
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::app ---}]
-}
-
-proc ::tomlish::appnames {} {
-    set applist [list]
-    foreach cmd [info commands ::tomlish::app::*] {
-        lappend applist [namespace tail $cmd]
-    }
-    return $applist
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace tomlish::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-if {[info exists ::argc] && $::argc > 0} {
-    #puts stderr "argc: $::argc args: $::argv"
-    set arglist $::argv
-    # --------------
-    #make sure any dependant packages that are sourced don't get any commandline args
-    set ::argv {}
-    set ::argc 0
-    # --------------
-    package require punk::args
-    punk::args::define {
-        @dynamic
-        @id         -id tomlish::cmdline
-        @cmd        -name tomlish -help\
-            "toml encoder/decoder written in Tcl"
-        @opts -any 1
-        -help -type none -help\
-            "Display this usage message or more specific
-              help if further arguments provided."
-        -app -choices {${[tomlish::appnames]}}
-    }
-    try {
-        set argd [punk::args::parse $arglist withid tomlish::cmdline]
-    } trap {PUNKARGS VALIDATION} {msg erroropts} {
-        puts stderr $msg
-        exit 1
-    }
-
-
-    lassign [dict values $argd] leaders opts values received solos
-    if {[dict exists $received -help] && ![dict exists $received -app]} {
-        #only emit cmdline help if -app not supplied as well - otherwise app function can act on -help for more specific help
-        #puts stdout "Usage: -app <appname> where appname one of:[tomlish::appnames]"
-        puts stdout [punk::args::usage -scheme info tomlish::cmdline]
-        exit 0
-    }
-    if {![dict exists $received -app]} {
-        puts stderr [punk::args::usage -scheme error tomlish::cmdline]
-        exit 1
-    }
-
-    set app [dict get $opts -app]
-    set appnames [tomlish::appnames]
-    set app_opts [dict remove $opts -app {*}$solos]
-    try {
-        set result [tomlish::app::$app {*}$app_opts {*}$solos {*}$values]
-    } trap {PUNKARGS VALIDATION} {msg erroropts} {
-        #The validation error should fully describe the issue
-        #no need for errortrace - keep the output cleaner
-        puts stderr $msg
-        exit 1
-    } trap {} {msg erroropts} {
-        #unexpected error - uncaught throw will produce error trace
-        #todo - a support msg? Otherwise we may as well just leave off this trap.
-        throw [dict get $erroropts -errorcode] [dict get $erroropts -errorinfo]
-    }
-    if {"-help" in $solos} {
-        puts stderr $result
-        exit 1
-    } else {
-        if {$result ne ""} {
-            puts stdout $result
-            exit 0
-        }
-    }
-
-    #set opts [dict create]
-    #set opts [dict merge $opts $::argv]
-
-    #set opts_understood [list -app ]
-    #if {"-app" in [dict keys $opts]} {
-    #    #Don't vet the remaining opts - as they are interpreted by each app
-    #} else {
-    #    foreach key [dict keys $opts] {
-    #        if {$key ni $opts_understood} {
-    #            puts stderr "Option '$key' not understood"
-    #            exit 1
-    #        }
-    #    }
-    #}
-    #if {[dict exists $opts -app]} {
-    #    set app [dict get $opts -app]
-    #    set appnames [tomlish::appnames]
-    #    if {$app ni $appnames} {
-    #        puts stderr "app '[dict get $opts -app]' not found. Available apps: $appnames"
-    #        exit 1
-    #    }
-    #    tomlish::app::$app {*}$opts
-    #}
-}
-
-##  Ready
-package provide tomlish [namespace eval tomlish {
-    variable pkg tomlish
-    variable version
-    set version 1.1.5
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm
deleted file mode 100644
index af632c36..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm
+++ /dev/null
@@ -1,9470 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use 'pmix make' or src/make.tcl to update from <pkg>-buildversion.txt
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application tomlish 1.1.6
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin tomlish_module_tomlish 0 1.1.6]
-#[copyright "2024"]
-#[titledesc {tomlish toml parser}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {tomlish}]             [comment {-- Description at end of page heading --}]
-#[require tomlish]
-#[keywords module parsing toml configuration]
-#[description]
-#[para] tomlish is an intermediate representation of toml data in a tree structure (tagged lists representing type information)
-#[para] The design goals are for tomlish to be whitespace and comment preserving ie byte-for byte preservation during roundtrips from toml to tomlish and back to toml
-#[para] The tomlish representation can then be converted to a Tcl dict structure or to other formats such as json,
-#[para] although these other formats are generally unlikely to retain whitespace or comments
-#[para] The other formats also won't preserve roundtripability e.g \t and a literal tab coming from a toml file will be indistinguishable.
-#[para] A further goal is to allow at least a useful subset of in-place editing operations which also preserve whitespace and comments.
-#[para] e.g leaf key value editing, and table reordering/sorting, key-renaming at any level, key insertions/deletions
-#[para] The API for editing (tomldoc object?) may require explicit setting of type if accessing an existing key
-#[para] e.g setting a key that already exists and is a different type (especially if nested structure such as a table or array)
-#[para] will need a -type option (-force ?) to force overriding with another type such as an int.
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of tomlish
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by tomlish
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require struct::stack
-package require logger
-
-#*** !doctools
-#[item] [package {Tcl 8.6-}]
-#[item] [package {struct::stack}]
-
-#limit ourselves to clear, destroy, peek, pop, push, rotate, or size  (e.g v 1.3 does not implement 'get')
-
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    variable types
-
-    #*** !doctools
-    #[subsection {Namespace tomlish}]
-    #[para] Core API functions for tomlish
-    #[list_begin definitions]
-
-    #default interp recursionlimit of 1000 is insufficient to pass 1000 deep nested structures as in certain toml tests.
-    #e.g https://github.com/iarna/toml-spec-tests/tree/latest/values
-    #1000 seems deep for a 'configuration' format - but toml sometimes used for other serialisation purposes.
-    #todo - review
-    set existing_recursionlimit [interp recursionlimit {}]
-    if {$existing_recursionlimit < 5000} {
-        interp recursionlimit {} 5000
-    }
-
-    #IDEAS:
-    # since get_toml produces tomlish with whitespace/comments intact:
-    # tomldoc object - allow (at least basic?) editing of toml whilst preserving comments & whitespace
-    # - setKey (set leaf only to value) how to specify type? -type option? - whole array vs index into arrays and further nested objects?  - option for raw toml additions?
-    # - separate addKey??
-    # - deleteKey (delete leaf)
-    # - deleteTable (delete table - if only has leaves? - option to delete with child tables?)
-    # - set/add Table? - position in doc based on existing tables/subtables?
-
-    #The tomlish intermediate representation allows things such as sorting the toml document by table name or other re-ordering of tables -
-    # because the tables include subkeys, comments and newlines within their structure - those elements all come along with it nicely during reordering.
-    #The same goes for the first newline following a keyval  e.g  x=1 \ny=2\n\n
-    #The newline is part of the keyval structure so makes reordering easier
-    #example from_toml "a=1\nb=2\n\n\n"
-    #  0 = TOMLISH
-    #  1 = KEY a = {INT 1} {NEWLINE lf}
-    #  2 = NEWLINE lf
-    #  3 = KEY b = {INT 2} {NEWLINE lf}
-    #  4 = NEWLINE lf
-    #  5 = NEWLINE lf
-
-    #This reordering idea is complicated by the nature of tablearrays - especially as a table header references last tablearrayname,
-    # and duplicate table headers are allowed in that context.
-    #e.g
-    #[[fruits]]
-    # name="apple"
-    #  [fruits.metadata]
-    #  id=1
-    #
-    #[unrelated1]
-    #
-    #[[fruits]]
-    # name="pear"
-    #
-    #[unrelated2]
-    # silly="ordering"
-    #
-    #[fruits.metadata]
-    #id=2
-    #The TABLEARRAY record can't be completely selfcontained on the default parsing mechanism - because it is legal (though not recommended) to have unrelated tables in between.
-    #If we were to 'insert' later related records (such as the 2nd [fruits.metadata] above) into the TABLEARRAY structure - then, even though it might produce 'nicer' toml,
-    # we would lose roundtripability toml->tomlish->toml
-    # -----------------------------------------------------
-    #REVIEW
-    #todo - some sort of 'normalize'/'grouping' function on tomlish that at least makes records self-contained, and perhaps then (optionally) reorders resulting records sensibly.
-    #such a function on the tomlish may work - although it would be unwise to duplicate the validation aspects of dict::from_tomlish 
-    #The most practical way might be to use dict::from_tomlish followed by from_dict - but that would lose comment info and formatting.
-    #In the above example - The decision by the toml author to put [unrelated1] between related tablearrays should be respected,
-    #but the positioning of [unrelated2] between a tablearray and one of its contained tables is suspect.
-    #Both [fruits.metadata] table records should theoretically be added as children to their corresponding [[fruits]] tablearray record in the tomlish. (just as their name keys are)
-    # -----------------------------------------------------
-
-
-
-    #ARRAY is analogous to a Tcl list
-    #TABLE is analogous to a Tcl dict
-    #WS = inline whitespace
-    #KEY = bare key and value
-    #DQKEY = double quoted key and value
-    #SQKEY = single quoted key and value
-    #ITABLE = inline table (*can* be anonymous table)
-    #         inline table values immediately create a table with the opening brace
-    #         inline tables are fully defined between their braces, as are dotted-key subtables defined within
-    #         No additional subtables or arrays of tables may be defined within an inline table after the ending brace - they must be entirely self-contained
-
-    set tags [list TOMLISH BOM ARRAY TABLE ITABLE TABLEARRAY WS NEWLINE COMMENT DOTTEDKEY KEY DQKEY SQKEY STRING STRINGPART MULTISTRING LITERAL LITERALPART MULTILITERAL INT FLOAT BOOL]
-    #DDDD
-    lappend tags {*}[list\
-        DATETIME\
-        DATETIME-LOCAL\
-        DATE-LOCAL\
-        TIME-LOCAL\
-    ]
-
-    #removed - ANONTABLE
-    #tomlish v1.0 should accept arbitrary 64-bit signed ints (from -2^63 to 2^63-1)
-    #we will restrict to this range for compatibility for now - although Tcl can handle larger (arbitrarily so?)
-    #todo - configurable - allow empty string for 'unlimited'
-    set min_int -9223372036854775808 ;#-2^63
-    set max_int +9223372036854775807 ;#2^63-1
-
-    proc Dolog {lvl txt} {
-        #return "$lvl -- $txt"
-        set msg "[clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"] tomlish '$txt'"
-        puts stderr $msg
-    }
-    logger::initNamespace ::tomlish
-    foreach lvl [logger::levels] {
-        interp alias {} tomlish_log_$lvl {} ::tomlish::Dolog $lvl
-        log::logproc $lvl tomlish_log_$lvl
-    }
-
-
-    proc tags {} {
-        return $::tomlish::tags
-    }
-
-    proc get_dottedkey_info {dottedkeyrecord} {
-        set key_hierarchy [list]
-        set key_hierarchy_raw [list]
-        if {[lindex $dottedkeyrecord 0] ne "DOTTEDKEY"} {
-            error "tomlish::get_dottedkey_info error. Supplied list doesn't appear to be a DOTTEDKEY (tag: [lindex $dottedkeyrecord 0])"
-        }
-        set compoundkeylist [lindex $dottedkeyrecord 1]
-        set expect_sep 0
-        foreach part $compoundkeylist {
-            set parttag [lindex $part 0]
-            if {$parttag eq "WS"} {
-                continue
-            }
-            if {$expect_sep} {
-                if {$parttag ne "DOTSEP"} {
-                    error "DOTTEDKEY missing dot separator between parts. '$dottedkeyrecord'"
-                }
-                set expect_sep 0
-            } else {
-                set val [lindex $part 1]
-                switch -exact -- $parttag {
-                    KEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw $val
-                    }
-                    DQKEY {
-                        #REVIEW unescape or not?
-                        #JJJJ
-                        lappend key_hierarchy [::tomlish::utils::unescape_string $val]
-                        lappend key_hierarchy_raw \"$val\"
-                    }
-                    SQKEY {
-                        lappend key_hierarchy $val
-                        lappend key_hierarchy_raw "'$val'"
-                    }
-                    default {
-                        error "tomlish::get_dottedkey_info DOTTED key unexpected part '$parttag' - ensure dot separator is between key parts. '$compoundkeylist'"
-                    }
-                }
-                set expect_sep 1
-            }
-        }
-        return [dict create keys $key_hierarchy keys_raw $key_hierarchy_raw]
-    }
-
-    #helper function for tomlish::dict::from_tomlish
-    proc _get_keyval_value {keyval_element} {
-        #e.g
-        #DOTTEDKEY {{KEY a} {WS { }}} = {WS { }} {ARRAY {INT 1} SEP {ITABLE {DOTTEDKEY {{KEY x}} = {INT 1} SEP} {DOTTEDKEY {{KEY y}} = {INT 2}}}}
-
-        log::notice ">>> _get_keyval_value from '$keyval_element'<<<"
-        #find the value (or 2 values if space separated datetime - and stitch back into one)
-        # 3 is the earliest index at which the value could occur (depending on whitespace)
-        if {[lindex $keyval_element 2] ne "="} {
-            error "tomlish _get_keyval_value keyval_element doesn't seem to be a properly structured {<keytype> <keydata> = <valuedata>} list\n $keyval_element"
-        }
-
-        #review
-        if {[uplevel 1 [list info exists tablenames_info]]} {
-            upvar tablenames_info tablenames_info
-        } else {
-            set tablenames_info [dict create] ;#keys are @@ paths {@@parenttable @@arrayable <index> @@etc}  corresponding to parenttable.arraytable[<idx>].etc
-            #value is a dict with keys such as ttype, tdefined
-        }
-        set sublist [lrange $keyval_element 3 end] ;# rhs of =
-
-        set values [list]
-        set value_posns [list]
-        set posn 0
-        foreach sub $sublist  {
-            #note that a barekey/dquotedkey won't occur directly inside a barekey/dquotedkey
-            #DDDD
-            switch -exact -- [lindex $sub 0] {
-                STRING - LITERAL - MULTISTRING - MULTILITERAL - INT - FLOAT - BOOL - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL - TIME-TZ - TABLE - ARRAY - ITABLE {
-                    lappend values $sub
-                    lappend value_posns $posn
-                }
-                DOTTEDKEY {
-                    #we should never see DOTTEDKEY as a toplevel element on RHS
-                    #sanity check in case manually manipulated tomlish - or something went very wrong
-                    set msg "tomlish::_get_keyval_value Unexpected toplevel value element DOTTEDKEY after ="
-                    return -code error -errorcode {TOMLISH SYNTAX UNEXPECTEDDOTTEDKEYRHS} $msg
-                }
-                WS - NEWLINE - COMMENT {}
-                SEP {}
-                default {
-                    set msg "tomlish::_get_keyval_value Unexpected toplevel value element [lindex $sub 0] after ="
-                    return -code error -errorcode {TOMLISH SYNTAX UNEXPECTED} $msg
-                }
-            }
-            incr posn
-        }
-        switch -- [llength $values] {
-            0 {
-                error "tomlish Failed to find value element in KEY. '$keyval_element'"
-            }
-            1 {
-                lassign [lindex $values 0] type value
-            }
-            2 {
-                #we generally expect a single 'value' item on RHS of =
-                #(ignoring WS,NEWLINE,SEP
-                #(either a simple type, or a container which has multiple values inside)
-                #exception for space separated datetime which is two toplevel values
-
-                #validate than exactly single space was between the two values
-                lassign $value_posns p1 p2
-                if {$p2 != $p1 +2} {
-                    #sanity check
-                    #can probably only get here through manual manipulation of the tomlish list to an unprocessable form
-                    error "tomlish KEY appears to have more than one part - but not separated by whitespace - invalid '$keyval_element'"
-                }
-                set between_token [lindex $sublist $p1+1]
-                if {[lindex $between_token 1] ne " "} {
-                    error "tomlish KEY in 2 parts is not separated by a single space - cannot consider for datetime '$keyval_element'"
-                }
-                lassign [lindex $values 0] type_d1 value_d1
-                lassign [lindex $values 1] type_d2 value_d2
-                #DDDD
-                if {$type_d1 ne "DATE-LOCAL" || $type_d2 ni {TIME-TZ TIME-LOCAL}} {
-                    #we reuse DATETIME tag for standalone time with tz offset (or zZ)
-                    error "tomlish KEY in 2 parts does not appear to be datetime '$keyval_element'"
-                }
-                if {$type_d2 eq "TIME-LOCAL"} {
-                    set type DATETIME-LOCAL
-                } elseif {$type_d2 eq "TIME-TZ"} {
-                    set type DATETIME
-                } else {
-                    error "tomlish KEY in 2 parts does not appear to be datetime. (part 2 not a time value) '$keyval_element'"
-                }
-                set value "${value_d1}T${value_d2}"
-            }
-            default {
-                error "tomlish Found multiple value elements in KEY, expected one. (or 2 for space-separated datetime) '$keyval_element'"
-            }
-        }
-        set sub_tablenames_info [dict create]
-        switch -exact -- $type {
-            TIME-TZ {
-                #This is only valid in tomlish following a DATE-LOCAL
-                error "tomlish type TIME-TZ was not preceeded by DATE-LOCAL in keyval '$keyval_element'"
-            }
-            INT - FLOAT - BOOL - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL {
-                #DDDD
-                #simple (non-container, no-substitution) datatype
-                set result [list type $type value $value]
-            }
-            STRING - STRINGPART {
-                #JJJ
-                #!!! review
-                #set result [list type $type value [::tomlish::utils::unescape_string $value]]
-                set result [list type $type value $value]
-            }
-            LITERAL - LITERALPART {
-                #REVIEW
-                set result [list type $type value $value]
-            }
-            TABLE {
-                #invalid?
-                error "tomlish _get_keyval_value invalid to have type TABLE on rhs of ="
-            }
-            ITABLE {
-                #This one should not be returned as a type <tag> value <something> structure!
-                #
-                set prev_tablenames_info    $tablenames_info
-                set tablenames_info         [dict create]
-                set result [::tomlish::dict::from_tomlish [ list [lindex $values 0] ]]
-                set sub_tablenames_info     $tablenames_info
-                set tablenames_info         $prev_tablenames_info
-            }
-            ARRAY {
-                #we need to recurse to get the corresponding dict for the contained item(s)
-                #pass in the whole [lindex $values 0] (type val) - not just the $value!
-                set prev_tablenames_info    $tablenames_info
-                set tablenames_info         [dict create]
-                set result [list type $type value [ ::tomlish::dict::from_tomlish [  list [lindex $values 0]  ] ]]
-                set sub_tablenames_info     $tablenames_info
-                set tablenames_info         $prev_tablenames_info
-            }
-            MULTISTRING - MULTILITERAL {
-                #review - mapping these to STRING might make some conversions harder?
-                #if we keep the MULTI<type> - we know we have to look for newlines for example when converting to json
-                #without specific types we'd have to check every STRING - and lose info about how best to map chars within it
-                set result [list type $type value [ ::tomlish::dict::from_tomlish [  list [lindex $values 0]  ] ]]
-            }
-            default {
-                error "tomlish Unexpected value type '$type' found in keyval '$keyval_element'"
-            }
-        }
-        return [dict create result $result tablenames_info $sub_tablenames_info]
-    }
-
-
-    proc to_dict {tomlish {returnextra 0}} {
-        tomlish::dict::from_tomlish $tomlish $returnextra
-    }
-
-
-
-    proc _from_dictval_tomltype {parents tablestack keys typeval} {
-        set type [dict get $typeval type]
-        set val  [dict get $typeval value]
-        #These are the restricted sets of typed used in the tomlish::dict representation
-        #They are a subset of the types in tomlish: data types plus ARRAY, arranged in a dictionary form.
-        #The container types: ITABLE, TABLE, TABLEARRAY are not used as they are represented as dictionary keys and ARRAY items.
-        #The WS, COMMENT, and NEWLINE elements are also unrepresented in the dict structure.
-        switch -- $type {
-            ARRAY {
-                set subitems [list]
-                foreach item $val {
-                    lappend subitems [_from_dictval [list {*}$parents ARRAY] $tablestack $keys $item] SEP
-                }
-                if {[lindex $subitems end] eq "SEP"} {
-                    set subitems [lrange $subitems 0 end-1]
-                }
-                return [list ARRAY {*}$subitems]
-            }
-            ITABLE {
-                error "not applicable"
-                if {$val eq ""} {
-                    return ITABLE
-                } else {
-                    return [_from_dictval [list {*}$parents ITABLE] $tablestack $keys $val]
-                }
-            }
-            STRING {
-                #JSJS
-                #if our dict came from json - we have already decided what type of STRING/LITERAL etc to use when building the dict
-
-                #do not validate like this - important that eg json val\\ue -> dict val\ue -> tomlish/toml val\\ue
-                #see toml-tests
-                #if {![tomlish::utils::rawstring_is_valid_tomlstring $val]} {
-                #    #todo?
-                #    return -code error -errorcode {TOML SYNTAX INVALIDSTRING} "Unescaped controls in string or invalid escapes"
-                #}
-                return [list STRING [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $val]]
-            }
-            MULTISTRING {
-                #value is a raw string that isn't encoded as tomlish
-                #create a valid toml snippet with the raw value and decode it to the proper tomlish MULTISTRING format
-                #We need to convert controls in $val to escape sequences - except for newlines
-                #
-                #consider an *option* to reformat for long lines? (perhaps overcomplex - byte equiv - but may fold in ugly places)
-                #we could use a line-length limit to decide when to put in a "line ending backslash"
-                #and even format it with a reasonable indent so that proper CONT and WS entries are made (?) REVIEW
-                #
-                #TODO
-                #set tomlpart "x=\"\"\"\\\n" ;#no need for continuation
-                set tomlpart "x=\"\"\"\n"
-                append tomlpart [tomlish::utils::rawstring_to_MultiBstring_with_escaped_controls $val]
-                append tomlpart "\"\"\""
-                set tomlish [tomlish::from_toml $tomlpart]
-                #e.g if val = " etc\nblah"
-                #TOMLISH {DOTTEDKEY {{KEY x}} = {MULTISTRING CONT {NEWLINE LF} {WS { }} {STRINGPART etc} {NEWLINE lf} {STRINGPART blah} } }
-                #lindex 1 3 is the MULTISTRING tomlish list
-                return [lindex $tomlish 1 3]
-            }
-            MULTILITERAL {
-                #MLL string can contain newlines - but still no control chars
-                #todo - validate - e.g val can't contain more than 2 squotes in a row
-                if {[string first ''' $val] >=0} {
-                    set msg "_from_dictval_tomltype error: more than 2 single quotes in a row found in MULTILITERAL - cannot encode dict to TOML-VALID TOMLISH"
-                    return -code error -errorcode {TOML SYNTAX INVALIDLITERAL} $msg
-                }
-
-                #rawstring_is_valid_multiliteral - allow newlines as lf or crlf - but not bare cr
-                if {![tomlish::utils::rawstring_is_valid_multiliteral $val]} {
-                    return -code error -errorcode {TOML SYNTAX INVALIDMULTILITERAL} "Controls other than tab or newlines found in multiliteral"
-                }
-
-                set tomlpart "x='''\n"
-                append tomlpart $val '''
-                set tomlish [tomlish::from_toml $tomlpart]
-                return [lindex $tomlish 1 3]
-            }
-            LITERAL {
-                #from v1.0 spec - "Control characters other than tab are not permitted in a literal string"
-                #(This rules out raw ANSI SGR - which is somewhat restrictive - but perhaps justified for a config format
-                # as copy-pasting ansi to a config value is probably not always wise, and it's not something that can be
-                # easily input via a text editor. ANSI can go in Basic strings using the \e escape if that's accepted v1.1?)
-                #we could choose to change the type to another format here when encountering invalid chars - but that seems
-                #like too much magic. We elect to error out and require the dict to have valid data for the types it specifies.
-                if {[string first ' $val] >=0} {
-                    set msg "_from_dictval_tomltype error: single quote found in LITERAL - cannot encode dict to TOML-VALID TOMLISH"
-                    return -code error -errorcode {TOML SYNTAX INVALIDLITERAL} $msg
-                }
-                #JJJJ
-                if {![tomlish::utils::rawstring_is_valid_literal $val]} {
-                    #has controls other than tab
-                    #todo - squote?
-                    return -code error -errorcode {TOML SYNTAX INVALIDLITERAL} "Controls other than tab found in literal"
-                }
-                return [list LITERAL $val]
-            }
-            INT {
-                if {![::tomlish::utils::is_int $val]} {
-                    error "_from_dictval_tomltype error: bad INT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list INT $val]
-            }
-            FLOAT {
-                if {![::tomlish::utils::is_float $val]} {
-                    error "_from_dictval_tomltype error: bad FLOAT value '$val' - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list FLOAT $val]
-            }
-            default {
-                if {$type ni [::tomlish::tags]} {
-                    error "_from_dictval_tomltype error: Unrecognised typename '$type' in {type <typename> value <value>} - cannot encode dict to TOML-VALID TOMLISH"
-                }
-                return [list $type $val]
-            }
-        }
-    }
-
-    proc _from_dictval {parents tablestack keys vinfo} {
-        set k [lindex $keys end]
-        set K_PART [tomlish::dict::classify_rawkey $k] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-        #puts stderr "---parents:'$parents' keys:'$keys' vinfo: $vinfo---"
-        #puts stderr "---tablestack: $tablestack---"
-        set result [list]
-        set lastparent [lindex $parents end]
-        if {$lastparent in [list "" do_inline]} {
-            if {[tomlish::dict::is_typeval $vinfo]} {
-                set type [dict get $vinfo type]
-                #treat ITABLE differently?
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result DOTTEDKEY [list $K_PART {WS { }}] = {WS { }} $sublist {NEWLINE lf}
-            } else {
-                if {$vinfo ne ""} {
-                    if {![tomlish::utils::string_is_dict $vinfo]} {
-                        #e.g tomlish::dict::from_tomlish was called with return_extra 1
-                        return -code error -errorcode {TOMLISH SYNTAX INVALIDDICT} "tomlish::_from_dictval Supplied dict is not a valid format for converting to tomlish" ;#review
-                    }
-
-                    #set result [list DOTTEDKEY [list [list KEY $k]] = ]
-                    #set records [list ITABLE]
-
-                    set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-
-                    if {$lastparent eq "do_inline"} {
-                        set result [list DOTTEDKEY [list $K_PART] =]
-                        set records [list ITABLE]
-                    } else {
-                        set tname [tomlish::dict::join_and_quote_rawkey_list [list $k]]
-                        set result [list TABLE $tname {NEWLINE lf}]
-                        set tablestack [list {*}$tablestack [list T $k]]
-                        set records [list]
-                    }
-
-
-
-                    set lastidx [expr {[dict size $vinfo] -1}]
-                    set dictidx 0
-                    dict for {vk vv} $vinfo {
-                        set VK_PART [tomlish::dict::classify_rawkey $vk] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-                        #(SQKEY & DQKEY do not have the enclosing quotes in their returned val)
-                        #if {[regexp {\s} $vk] || [string first . $vk] >= 0} {
-                        #    set VK_PART [list SQKEY $vk]
-                        #} else {
-                        #    set VK_PART [list KEY $vk]
-                        #}
-                        if {[tomlish::dict::is_typeval $vv]} {
-                            #type x value y
-                            #REVIEW - we could detect if value is an array of objects,
-                            #and depending on parent context - emit a series of TABLEARRAY records instead of a DOTTEDKEY record containing an ARRAY of objects
-                            set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                            set record [list DOTTEDKEY [list $VK_PART {WS { }}] = {WS { }} $sublist]
-                        } else {
-                            if {$vv eq ""} {
-                                #experimental
-                                if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    ::tomlish::log::notice "_from_dictval could uninline KEY $vk (tablestack:$tablestack)"
-                                    #set tname [tomlish::dict::name_from_tablestack [list {*}$tablestack [list T $vk]]]
-
-                                    #we can't just join normalized keys - need keys with appropriate quotes and escapes
-                                    #set tname [join [list {*}$keys $vk] .] ;#WRONG
-                                    set tq [tomlish::dict::join_and_quote_rawkey_list [list {*}$keys $vk]]
-
-
-                                    ##wrong? results in TABLE within TABLE record?? todo pop?
-                                    #set record [list TABLE $tq {NEWLINE lf}]
-                                    #set tablestack [list {*}$tablestack [list T $vk]]
-
-                                    #REVIEW!!!
-
-                                    set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    set tablestack [list {*}$tablestack [list I $vk]]
-
-                                } else {
-                                    set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    set tablestack [list {*}$tablestack [list I $vk]]
-                                }
-                            } else {
-                                if { 0 } {
-                                    #experiment.. sort of getting there.
-                                    if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                        ::tomlish::log::notice "_from_dictval could uninline2 KEYS [list {*}$keys $vk] (tablestack:$tablestack)"
-                                        set tq [tomlish::dict::join_and_quote_rawkey_list [list {*}$keys $vk]]
-                                        set record [list TABLE $tq {NEWLINE lf}]
-                                        set tablestack [list {*}$tablestack [list T $vk]]
-
-                                        #review - todo?
-                                        set dottedkey_value [_from_dictval [list {*}$parents TABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        lappend record {*}$dottedkey_value
-
-                                    } else {
-                                        set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                        set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                    }
-                                } else {
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                        }
-                        if {$dictidx != $lastidx} {
-                            #lappend record SEP
-                            if {$lastparent eq "do_inline"} {
-                                lappend record SEP
-                            } else {
-                                lappend record {NEWLINE lf}
-                            }
-                        }
-                        if {[llength $record]} {
-                            lappend records $record
-                        }
-                        incr dictidx
-                    }
-                    if {$lastparent eq "do_inline"} {
-                        lappend result $records {NEWLINE lf}
-                    } else {
-                        lappend result {*}$records {NEWLINE lf}
-                    }
-                } else {
-                    if {$lastparent eq "do_inline"} {
-                        lappend result DOTTEDKEY [list $K_PART] = ITABLE {NEWLINE lf}
-                    } else {
-                        set tname [tomlish::dict::join_and_quote_rawkey_list [list $k]]
-                        #REVIEW
-                        lappend result TABLE $tname {NEWLINE lf}
-                    }
-                }
-            }
-        } else {
-            #lastparent is not toplevel "" or "do_inline"
-            if {[tomlish::dict::is_typeval $vinfo]} {
-                #type x value y
-                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vinfo]
-                lappend result {*}$sublist
-            } else {
-                if {$lastparent eq "TABLE"} {
-                    #review
-                    dict for {vk vv} $vinfo {
-                        set VK_PART [tomlish::dict::classify_rawkey $vk] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-                        set dottedkey_value [_from_dictval [list {*}$parents DOTTEDKEY] $tablestack [list {*}$keys $vk] $vv]
-                        lappend result [list DOTTEDKEY [list $VK_PART] = $dottedkey_value {NEWLINE lf}]
-                    }
-                } else {
-                    if {$vinfo ne ""} {
-                        if {![tomlish::utils::string_is_dict $vinfo]} {
-                            #e.g tomlish::dict::from_tomlish was called with return_extra 1
-                            return -code error -errorcode {TOMLISH SYNTAX INVALIDDICT} "tomlish::_from_dictval Supplied dict is not a valid format for converting to tomlish" ;#review
-                        }
-                        set lastidx [expr {[dict size $vinfo] -1}]
-                        set dictidx 0
-                        set sub [list]
-                        #REVIEW
-                        #set result $lastparent ;#e.g sets ITABLE
-                        set result ITABLE
-                        set last_tomltype_posn [tomlish::dict::last_tomltype_posn $vinfo]
-                        dict for {vk vv} $vinfo {
-                            set VK_PART [tomlish::dict::classify_rawkey $vk] ;#get [list SQKEY <val] [list DQKEY <val] or [list KEY <val>]
-                            if {[tomlish::dict::is_typeval $vv]} {
-                                #type x value y
-                                set sublist [_from_dictval_tomltype $parents $tablestack $keys $vv]
-                                set record [list DOTTEDKEY [list $VK_PART] = $sublist]
-                            } else {
-                                if {$vv eq ""} {
-                                    #can't just uninline at this level
-                                    #we need a better method to query main dict for uninlinability at each level
-                                    # (including what's been inlined already)
-                                    #if {[lindex $parents 0] eq "" && $dictidx > $last_tomltype_posn} {
-                                    #    puts stderr "_from_dictval uninline2 KEY $keys"
-                                    #     set tname [tomlish::dict::join_and_quote_rawkey_list [list {*}$keys $vk]]
-                                    #    set record [list TABLE $tname {NEWLINE lf}]
-                                    #    set tablestack [list {*}$tablestack [list T $vk]]
-                                    #} else {
-                                        set record [list DOTTEDKEY [list $VK_PART] = ITABLE]
-                                    #}
-                                } else {
-                                    #set sub [_from_dictval ITABLE $vk $vv]
-                                    set dottedkey_value [_from_dictval [list {*}$parents ITABLE] $tablestack [list {*}$keys $vk] $vv]
-                                    #set record [list DOTTEDKEY [list $VK_PART] = ITABLE $dottedkey_value]
-                                    set record [list DOTTEDKEY [list $VK_PART] = $dottedkey_value]
-                                }
-                            }
-                            if {$dictidx != $lastidx} {
-                                lappend record SEP
-                            }
-                            lappend result $record
-                            incr dictidx
-                        }
-                    } else {
-                        #e.g x=[{}]
-                        log::debug "---> _from_dictval empty ITABLE x-1"
-                        #lappend result DOTTEDKEY [list $K_PART] = ITABLE ;#wrong
-                        lappend result ITABLE
-                    }
-                }
-            }
-        }
-        return $result
-    }
-
-
-    proc from_dict {d} {
-        #consider:
-        #   t1={a=1,b=2}
-        #    x = 1
-
-        # from_dict gives us: t1 {a {type INT value 1} b {type INT value 2}} x {type INT value 1}
-
-        #If we represent t1 as an expanded table we get
-        # [t1]
-        # a=1
-        # b=2
-        # x=1
-        # --- which is incorrect - as x was a toplevel key like t1!
-        #This issue doesn't occur if x is itself an inline table
-        #   t1={a=1,b=2}
-        #   x= {no="problem"}
-        #
-        # (or if we were to reorder x to come before t1)
-
-        #ie the order of the dict elements influences how the toml can be represented.
-
-        #As the dictionary form doesn't distinguish the structure used to create tables {[table1]\nk=v} vs inline {table1={k=v}}
-        #Without a solution, from_dict would have to always produce the inline form for toplevel tables unless we allowed re-ordering,
-        #which is unpreferred here.
-
-        #A possible solution:
-        #scan the top level to see if all (trailing) elements are themselves dicts
-        # (ie not of form {type XXX value yyy})
-        #
-        # A further point is that if all root level values are at the 'top' - we can treat lower table-like structures as {[table]} elements
-        #ie we don't need to force do_inline if all the 'simple' keys are before any compound keys
-
-        #set root_has_values 0
-        #approach 1) - the naive approach - forces inline when not always necessary
-        #dict for {k v} $d {
-        #    if {[llength $v] == 4 && [lindex $v 0] eq "type"} {
-        #        set root_has_values 1
-        #        break
-        #    }
-        #}
-
-
-        #approach 2) - track the position of last {type x value y} in the dictionary built by dict::from_tomlish
-        # - still not perfect. Inlines dotted tables unnecessarily
-        #This means from_dict doesn't produce output optimal for human editing.
-        set last_simple [tomlish::dict::last_tomltype_posn $d]
-
-
-        ## set parent "do_inline" ;#a value used in _from_dictval to distinguish from "" or other context based parent values
-        #Any keys that are themselves tables - will need to be represented inline
-        #to avoid reordering, or incorrect assignment of plain values to the wrong table.
-
-        ## set parent ""
-        #all toplevel keys in the dict structure can represent subtables.
-        #we are free to use {[tablename]\n} syntax for toplevel elements.
-
-
-        set tomlish [list TOMLISH]
-        set dictposn 0
-        set tablestack [list [list T root]] ;#todo
-        dict for {t tinfo} $d {
-            if {$last_simple > $dictposn} {
-                set parents [list do_inline]
-            } else {
-                set parents [list ""]
-            }
-            set keys [list $t]
-            #review - where to make decision on
-            # DOTTEDKEY containing array of objs
-            #vs
-            # list of TABLEARRAY records
-            #At least for the top
-            set trecord [_from_dictval $parents $tablestack $keys $tinfo]
-            lappend tomlish $trecord
-            incr dictposn
-        }
-        return $tomlish
-    }
-
-    proc typedjson_to_toml {json} {
-        #*** !doctools
-        #[call [fun typedjson_to_toml] [arg json]]
-        #[para]
-
-        set tomlish [::tomlish::from_dict_from_typedjson $json]
-        lappend tomlish [list NEWLINE lf]
-        set toml [::tomlish::to_toml $tomlish]
-    }
-
-    set json1 {{ "a": {"type": "integer", "value": "42"}}}
-    set json2 {{
-                "a": {"type": "integer", "value": "42"},
-                "b": {"type": "string", "value": "test"}
-               }}
-    set json3 {
-{
-  "best-day-ever": {"type": "datetime", "value": "1987-07-05T17:45:00Z"},
-  "numtheory": {
-    "boring": {"type": "bool", "value": "false"},
-    "perfection": [
-      {"type": "integer", "value": "6"},
-      {"type": "integer", "value": "28"},
-      {"type": "integer", "value": "496"}
-    ]
-  }
-}
-    }
-
-    set json4 {
-{
-  "best-day-ever": {"type": "datetime", "value": "1987-07-05T17:45:00Z"},
-  "numtheory": {
-    "boring": {"type": "bool", "value": "false"},
-    "perfection": [
-      {"type": "integer", "value": "6"},
-      {"type": "integer", "value": "28"},
-      {"type": "integer", "value": "496"}
-    ]
-  },
-  "emptyobj": {},
-  "emptyarray": []
-}
-    }
-
-    set json5 {
-{
-           "a": {
-               " x ": {},
-               "b.c": {},
-               "d.e": {},
-               "b": {
-                   "c": {}
-               }
-           }
-}
-    }
-
-    #surrogate pair face emoji
-    set json6 {
-{
-        "surrogatepair": {"type": "string", "value": "\uD83D\uDE10"}
-}
-    }
-
-
-    set json7 {
-{
-        "escapes": {"type": "string", "value": "val\\ue"}
-}
-    }
-
-
-    proc from_dict_from_typedjson {json} {
-        set d [tomlish::dict::from_typedjson $json]
-        tomlish::from_dict $d ;#return tomlish
-    }
-
-
-    proc toml_to_typedjson {toml} {
-        set tomlish [::tomlish::from_toml $toml]
-        set d [tomlish::dict::from_tomlish $tomlish]
-        #full validation only occurs by re-encoding dict to tomlish
-        set test [tomlish::from_dict $d]
-
-        set h [tomlish::typedhuddle::from_dict $d]
-        #huddle jsondump $h
-        tomlish::huddle::jsondumpraw $h
-    }
-
-    #proc get_json {tomlish} {
-    #    package require fish::json
-    #    set d [::tomlish::dict::from_tomlish $tomlish]
-
-    #    #return [::tomlish::dict_to_json $d]
-    #    return [fish::json::from "struct" $d]
-    #}
-
-    #return a Tcl list of tomlish tokens
-    #i.e get a standard list of all the toml terms in string $s
-    #where each element of the list is a *tomlish* term.. i.e a specially 'tagged' Tcl list.
-    #(simliar to a tcl 'Huddle' - but also supporting whitespace preservation)
-    # ----------------------------------------------------------------------------------------------
-    # NOTE: the production of tomlish from toml source doesn't indicate the toml source was valid!!!
-    # e.g we deliberately don't check certain things such as duplicate table declarations here.
-    # ----------------------------------------------------------------------------------------------
-    #Part of the justification for this is that as long as the syntax is toml shaped - we can load files which violate certain rules and allow programmatic manipulation.
-    # (e.g perhaps a toml editor to highlight violations for fixing)
-    # A further stage is then necessary to load the tomlish tagged list into a data structure more suitable for efficient query/reading.
-    # e.g dicts or an object oriented structure
-    #Note also - *no* escapes in quoted strings are processed. This is up to the datastructure stage
-    #e.g dict::from_tomlish will substitute \r \n \uHHHH \UHHHHHHH etc
-    #This is important for tomlish to maintain the ability to perform competely lossless round-trips from toml to tomlish and back to toml.
-    # (which is handy for testing as well as editing some part of the structure with absolutely no effect on other parts of the document)
-    #If we were to unescape a tab character for example
-    # - we have no way of knowing if it was originally specified as \t \u0009 or \U00000009 or directly as a tab character.
-    # For this reason, we also do absolutely no line-ending transformations based on platform.
-    # All line-endings are maintained as is, and even a file with mixed lf crlf line-endings will be correctly interpreted and can be 'roundtripped'
-
-    proc from_toml {args} {
-
-        namespace upvar ::tomlish::parse s s
-        set s [join $args \n]
-        namespace upvar ::tomlish::parse i i
-        set i 0 ;#index into s
-
-        namespace upvar ::tomlish::parse is_parsing is_parsing
-        set is_parsing 1
-
-        if {[info command ::tomlish::parse::spacestack] eq "::tomlish::parse::spacestack"} {
-            tomlish::parse::spacestack destroy
-        }
-        struct::stack ::tomlish::parse::spacestack
-
-        namespace upvar ::tomlish::parse last_space_action last_space_action
-        namespace upvar ::tomlish::parse last_space_type last_space_type
-
-        namespace upvar ::tomlish::parse tok tok
-        set tok ""
-
-        namespace upvar ::tomlish::parse type type
-        namespace upvar ::tomlish::parse tokenType tokenType
-        ::tomlish::parse::set_tokenType ""
-        namespace upvar ::tomlish::parse tokenType_list tokenType_list
-        set tokenType [list]  ;#Flat (un-nested) list of tokentypes found
-
-        namespace upvar ::tomlish::parse lastChar lastChar
-        set lastChar ""
-
-
-        set result ""
-        namespace upvar ::tomlish::parse nest nest
-        set nest 0
-
-        namespace upvar ::tomlish::parse v v  ;#array keyed on nest level
-
-
-        set v(0) {TOMLISH}
-        array set s0 [list] ;#whitespace data to go in {SPACE {}} element.
-        set parentlevel 0
-
-
-        namespace upvar ::tomlish::parse state state
-
-        namespace upvar ::tomlish::parse braceCount braceCount
-        set barceCount 0
-        namespace upvar ::tomlish::parse bracketCount bracketCount
-        set bracketCount 0
-
-        set sep 0
-        set r 1
-        namespace upvar ::tomlish::parse token_waiting token_waiting
-        set token_waiting [dict create] ;#if ::tok finds a *complete* second token during a run, it will put the 2nd one here to be returned by the next call.
-
-
-
-        set state "table-space"
-        ::tomlish::parse::spacestack push {type space state table-space}
-        namespace upvar  ::tomlish::parse linenum  linenum;#'line number' of input data. (incremented for each literal linefeed - but not escaped ones in data)
-        set linenum 1
-
-        set ::tomlish::parse::state_list [list]
-        try {
-            while {$r} {
-                set r [::tomlish::parse::tok]
-                #puts stdout "got tok: '$tok' while parsing string '$s' "
-                set next_tokenType_known 0 ;#whether we begin a new token here based on what terminated the token result of 'tok'
-
-
-                #puts "got token: '$tok'  tokenType='$tokenType'. while v($nest) = [set v($nest)]"
-                #puts "-->tok: $tok tokenType='$tokenType'"
-                set prevstate $state
-                set transition_info [::tomlish::parse::goNextState $tokenType $tok $state]
-                #review goNextState could perform more than one space_action
-                set space_action [dict get $transition_info space_action]
-                set newstate     [dict get $transition_info newstate] ;#use of 'newstate' vs 'state' makes code clearer below
-
-                if {[tcl::string::match "err-*" $state]} {
-                    ::tomlish::log::warn "---- State error in state $prevstate for tokenType: $tokenType token value: $tok. $state aborting parse. [tomlish::parse::report_line]"
-                    lappend v(0) [list ERROR tokentype $tokenType state $prevstate to $state  leveldata [set v($nest)]]
-                    return $v(0)
-                }
-                # ---------------------------------------------------------
-                #NOTE there may already be a token_waiting at this point
-                #set_token_waiting can raise an error here,
-                # in which case the space_action branch needs to be rewritten to handle the existing token_waiting
-                # ---------------------------------------------------------
-
-                if {$space_action eq "pop"} {
-                    #pop_trigger_tokens: newline tablename endarray endinlinetable
-                    #note a token is a pop trigger depending on context. e.g first newline during keyval is a pop trigger.
-                    set parentlevel [expr {$nest -1}]
-                    set do_append_to_parent 1 ;#most tokens will leave this alone - but some like tentative_accum_squote need to do their own append
-                    switch -exact -- $tokenType {
-                        tentative_accum_squote {
-                            #should only apply within a multiliteral
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the xxx-squote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            #assert prevstate always trailing-squote-space
-                            #dev guardrail - remove? assertion lib?
-                            switch -exact -- $prevstate {
-                                trailing-squote-space {
-                                }
-                                default {
-                                    error "--- unexpected popped due to tentative_accum_squote but came from state '$prevstate' should have been trailing-squote-space"
-                                }
-                            }
-                            switch -- $tok {
-                                ' {
-                                    tomlish::parse::set_token_waiting type single_squote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                '' {
-                                    #review - we should perhaps return double_squote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_squote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                ''' {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                '''' {
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i - 4}]
-                                    #todo integrate left squote with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        LITERALPART {
-                                            set newval "[lindex $lastpart 1]'"
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list LITERALPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE {
-                                            lappend v($parentlevel) [list LITERALPART "'"]
-                                        }
-                                        MULTILITERAL {
-                                            #empty
-                                            lappend v($parentlevel) [list LITERALPART "'"]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing squote with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                                ''''' {
-                                    tomlish::parse::set_token_waiting type triple_squote value $tok complete 1 startindex [expr {$i-5}]
-                                    #todo integrate left 2 squotes with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        LITERALPART {
-                                            set newval "[lindex $lastpart 1]''"
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list LITERALPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE {
-                                            lappend v($parentlevel) [list LITERALPART "''"]
-                                        }
-                                        MULTILITERAL {
-                                            lappend v($parentlevel) [list LITERALPART "''"]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing 2 squotes with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                        triple_squote {
-                            #presumably popping multiliteral-space
-                            ::tomlish::log::debug "---- triple_squote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTILITERAL {
-                                        lappend merged $part
-                                    }
-                                    LITERALPART {
-                                        if {$lasttype eq "LITERALPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_squote unhandled part type [lindex $part 0] unable to merge leveldata: $v($nest)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        tentative_accum_dquote {
-                            #should only apply within a multistring
-                            ####
-                            set do_append_to_parent 0 ;#mark false to indicate we will do our own appends if needed
-                            #Without this - we would get extraneous empty list entries in the parent
-                            # - as the trailing-dquote-space isn't a space level from the toml perspective
-                            # - the use of a space is to give us a hook here to (possibly) integrate extra quotes into the parent space when we pop
-                            #assert prevstate always trailing-dquote-space
-                            #dev guardrail - remove? assertion lib?
-                            switch -exact -- $prevstate {
-                                trailing-dquote-space {
-                                }
-                                default {
-                                    error "--- unexpected popped due to tentative_accum_dquote but came from state '$prevstate' should have been trailing-dquote-space"
-                                }
-                            }
-                            switch -- $tok {
-                                {"} {
-                                    tomlish::parse::set_token_waiting type single_dquote value $tok complete 1 startindex [expr {$i -1}]
-                                }
-                                {""} {
-                                    #review - we should perhaps return double_dquote instead?
-                                    #tomlish::parse::set_token_waiting type literal value "" complete 1
-                                    tomlish::parse::set_token_waiting type double_dquote value "" complete 1 startindex [expr {$i - 2}]
-                                }
-                                {"""} {
-                                    ####
-                                    #if already an eof in token_waiting - set_token_waiting will insert before it
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i - 3}]
-                                }
-                                {""""} {
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i - 4}]
-                                    #todo integrate left dquote with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        STRINGPART {
-                                            set newval "[lindex $lastpart 1]\""
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list STRINGPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE - CONT - WS {
-                                            lappend v($parentlevel) [list STRINGPART {"}]
-                                        }
-                                        MULTISTRING {
-                                            #empty
-                                            lappend v($parentlevel) [list STRINGPART {"}]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing dquote with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                                {"""""} {
-                                    tomlish::parse::set_token_waiting type triple_dquote value $tok complete 1 startindex [expr {$i-5}]
-                                    #todo integrate left 2 dquotes with nest data at this level
-                                    set lastpart [lindex $v($parentlevel) end]
-                                    switch -- [lindex $lastpart 0] {
-                                        STRINGPART {
-                                            set newval "[lindex $lastpart 1]\"\""
-                                            set parentdata $v($parentlevel)
-                                            lset parentdata end [list STRINGPART $newval]
-                                            set v($parentlevel) $parentdata
-                                        }
-                                        NEWLINE - CONT - WS {
-                                            lappend v($parentlevel) [list STRINGPART {""}]
-                                        }
-                                        MULTISTRING {
-                                            lappend v($parentlevel) [list STRINGPART {""}]
-                                        }
-                                        default {
-                                            error "--- don't know how to integrate extra trailing 2 dquotes with data $v($parentlevel)"
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                        triple_dquote {
-                            #presumably popping multistring-space
-                            ::tomlish::log::debug "---- triple_dquote for last_space_action pop leveldata: $v($nest)"
-                            set merged [list]
-                            set lasttype ""
-                            foreach part $v($nest) {
-                                switch -exact -- [lindex $part 0] {
-                                    MULTISTRING {
-                                        lappend merged $part
-                                    }
-                                    STRINGPART {
-                                        if {$lasttype eq "STRINGPART"} {
-                                            set prevpart [lindex $merged end]
-                                            lset prevpart 1 [lindex $prevpart 1][lindex $part 1]
-                                            lset merged end $prevpart
-                                        } else {
-                                            lappend merged $part
-                                        }
-                                    }
-                                    CONT - WS {
-                                        lappend  merged $part
-                                    }
-                                    NEWLINE {
-                                        #note that even though first newline ultimately gets stripped from multiliterals - that isn't done here
-                                        #we still need the first one for roundtripping. The datastructure stage is where it gets stripped.
-                                        lappend  merged $part
-                                    }
-                                    default {
-                                        error "---- triple_dquote unhandled part type [lindex $part 0] unable to merge leveldata: $v($nest)"
-                                    }
-                                }
-                                set lasttype [lindex $part 0]
-                            }
-                            set v($nest) $merged
-                        }
-                        equal {
-                            #pop caused by =
-                            switch -exact -- $prevstate {
-                                dottedkey-space {
-                                    tomlish::log::debug "---- equal ending dottedkey-space for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                                dottedkey-space-tail {
-                                    #experiment?
-                                    tomlish::log::debug "---- equal ending dottedkey-space-tail for last_space_action pop"
-                                    #re-emit for parent space
-                                    tomlish::parse::set_token_waiting type equal value = complete 1 startindex [expr {$i-1}]
-                                }
-                            }
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        tablename {
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablename pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        tablearrayname {
-                            #!review - tablearrayname different to tablename regarding push/pop?
-                            #note: a tablename only 'pops' if we are greater than zero
-                            error "---- tablearrayname pop should already have been handled as special case zeropoppushspace in goNextState"
-                        }
-                        endarray {
-                            #nothing to do here.
-                        }
-                        comma {
-                            #comma for inline table will pop the keyvalue space
-                            lappend v($nest) "SEP"
-                        }
-                        endinlinetable {
-                            ::tomlish::log::debug "---- endinlinetable for last_space_action pop"
-                        }
-                        default {
-                            error "---- unexpected tokenType '$tokenType' for last_space_action 'pop'"
-                        }
-                    }
-                    if {$do_append_to_parent} {
-                        #e.g tentative_accum_squote does it's own appends as necessary - so won't get here
-                        lappend v($parentlevel) [set v($nest)]
-                    }
-
-                    incr nest -1
-
-                }	elseif {$last_space_action eq "push"} {
-                    set prevnest $nest
-                    incr nest 1
-                    set v($nest) [list]
-                    # push_trigger_tokens: barekey dquotedkey startinlinetable startarray tablename tablearrayname
-
-
-                    switch -exact -- $tokenType {
-                        tentative_trigger_squote - tentative_trigger_dquote {
-                            #### this startok will always be tentative_accum_squote/tentative_accum_dquote starting with one accumulated squote/dquote
-                            if {[dict exists $transition_info starttok] && [dict get $transition_info starttok] ne ""} {
-                                lassign [dict get $transition_info starttok] starttok_type starttok_val
-                                set next_tokenType_known 1
-                                ::tomlish::parse::set_tokenType $starttok_type
-                                set tok $starttok_val
-                            }
-                        }
-                        single_squote {
-                            #JMN - REVIEW
-                            set next_tokenType_known 1
-                            ::tomlish::parse::set_tokenType "squotedkey"
-                            set tok ""
-                        }
-                        triple_squote {
-                            ::tomlish::log::debug "---- push trigger tokenType triple_squote"
-                            set v($nest) [list MULTILITERAL] ;#container for NEWLINE,LITERALPART
-                        }
-                        squotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        triple_dquote {
-                            set v($nest) [list MULTISTRING] ;#container for NEWLINE,STRINGPART,CONT
-                        }
-                        dquotedkey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                        }
-                        barekey {
-                            switch -exact -- $prevstate {
-                                table-space - itable-space {
-                                    set v($nest) [list DOTTEDKEY]
-                                }
-                            }
-                            #todo - check not something already waiting?
-                            set waiting [tomlish::parse::get_token_waiting]
-                            if {[llength $waiting]} {
-                                set i [dict get $waiting startindex]
-                                tomlish::parse::clear_token_waiting
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            } else {
-                                tomlish::parse::set_token_waiting type $tokenType value $tok complete 1 startindex [expr {$i -[tcl::string::length $tok]}] ;#re-submit token in the newly pushed space
-                            }
-                        }
-                        tablename {
-                            #note: we do not use the output of tablename_trim to produce a tablename for storage in the tomlish list!
-                            #The tomlish list is intended to preserve all whitespace (and comments) - so a roundtrip from toml file to tomlish
-                            # back to toml file will be identical.
-                            #It is up to the datastructure stage to normalize and interpret tomlish for programmatic access.
-                            # we call tablename_trim here only to to validate that the tablename data is well-formed at the outermost level,
-                            # so we can raise an error at this point rather than create a tomlish list with obviously invalid table names from
-                            # a structural perspective.
-
-                            #todo - review!  It's arguable that we should not do any validation here, and just store even incorrect raw tablenames,
-                            # so that the tomlish list is more useful for say a toml editor. Consider adding an 'err' tag to the appropriate place in the
-                            # tomlish list?
-
-                            #set trimtable [tablename_trim $tok]
-                            #::tomlish::log::debug "---- trimmed (but not normalized) tablename: '$trimtable'"
-                            set v($nest) [list TABLE $tok] ;#$tok is the *raw* table name
-                            #note also that equivalent tablenames may have different toml representations even after being trimmed!
-                            #e.g ["x\t\t"]  & ["x		"]  (tab escapes vs literals)
-                            #These will show as above in the tomlish list, but should normalize to the same tablename when used as keys by the datastructure stage.
-                        }
-                        tablearrayname {
-                            #set trimtable [tablename_trim $tok]
-                            #::tomlish::log::debug "---- trimmed (but not normalized) tablearrayname: '$trimtable'"
-                            set v($nest) [list TABLEARRAY $tok] ;#$tok is the *raw* tablearray name
-                        }
-                        startarray {
-                            set v($nest) [list ARRAY] ;#$tok is just the opening bracket - don't output.
-                        }
-                        startinlinetable {
-                            set v($nest) [list ITABLE] ;#$tok is just the opening curly brace - don't output.
-                        }
-                        default {
-                            error "---- push trigger tokenType '$tokenType' not yet implemented"
-                        }
-                    }
-
-                } else {
-                    #no space level change
-                    switch -exact -- $tokenType {
-                        squotedkey {
-                            #puts "---- squotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list SQKEY $tok]
-                        }
-                        dquotedkey {
-                            #puts "---- dquotedkey in state $prevstate (no space level change)"
-                            lappend v($nest) [list DQKEY $tok]
-                        }
-                        barekey {
-                            lappend v($nest) [list KEY $tok]
-                        }
-                        dotsep {
-                            lappend v($nest) [list DOTSEP]
-                        }
-                        starttablename {
-                            #$tok is triggered by the opening bracket and sends nothing to output
-                        }
-                        starttablearrayname {
-                            #$tok is triggered by the double opening brackets and sends nothing to output
-                        }
-                        tablename - tablenamearray {
-                            error "---- did not expect 'tablename/tablearrayname' without space level change (no space level change)"
-                            #set v($nest) [list TABLE $tok]
-                        }
-                        endtablename - endtablearrayname {
-                            #no output into the tomlish list for this token
-                        }
-                        startinlinetable {
-                            puts stderr "---- decode::toml error. did not expect startinlinetable without space level change (no space level change)"
-                        }
-                        single_dquote {
-                            switch -exact -- $newstate {
-                                string-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "string"
-                                    set tok ""
-                                }
-                                dquoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "dquotedkey"
-                                    set tok ""
-                                }
-                                multistring-space {
-                                    lappend v($nest) [list STRINGPART {"}]
-                                    #may need to be joined on pop if there are neighbouring STRINGPARTS 
-                                }
-                                default {
-                                    error "----  single_dquote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        double_dquote {
-                            #leading extra quotes - test: toml_multistring_startquote2
-                            switch -exact -- $prevstate {
-                                itable-keyval-value-expected - keyval-value-expected {
-                                    puts stderr "tomlish::decode::toml double_dquote TEST"
-                                    #empty string
-                                    lappend v($nest) [list STRINGPART ""]
-                                }
-                                multistring-space {
-                                    #multistring-space to multistring-space
-                                    lappend v($nest) [list STRINGPART {""}]
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-
-                        }
-                        single_squote {
-                            switch -exact -- $newstate {
-                                literal-state {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "literal"
-                                    set tok ""
-                                }
-                                squoted-key {
-                                    set next_tokenType_known 1
-                                    ::tomlish::parse::set_tokenType "squotedkey"
-                                    set tok ""
-                                }
-                                multiliteral-space {
-                                    #false alarm squote returned from tentative_accum_squote pop
-                                    ::tomlish::log::debug "---- adding lone squote to own LITERALPART nextstate: $newstate (no space level change)"
-                                    #(single squote - not terminating space)
-                                    lappend v($nest) [list LITERALPART ']
-                                    #may need to be joined on pop if there are neighbouring LITERALPARTs
-                                }
-                                default {
-                                    error "---- single_squote switch case not implemented for nextstate: $newstate (no space level change)"
-                                }
-                            }
-                        }
-                        double_squote {
-                            switch -exact -- $prevstate {
-                                keyval-value-expected {
-                                    lappend v($nest) [list LITERAL ""]
-                                }
-                                multiliteral-space {
-                                    #multiliteral-space to multiliteral-space
-                                    lappend v($nest) [list LITERALPART '']
-                                }
-                                default {
-                                    error "--- unhandled tokenType '$tokenType' when transitioning from state $prevstate to $newstate [::tomlish::parse::report_line] (no space level change)"
-                                }
-                            }
-                        }
-                        enddquote {
-                            #nothing to do?
-                            set tok ""
-                        }
-                        endsquote {
-                            set tok ""
-                        }
-                        string {
-                            #JJJJ
-                            set tok [tomlish::from_Bstring $tok]
-                            lappend v($nest) [list STRING $tok] ;#directly wrapped in dquotes
-                        }
-                        literal {
-                            lappend v($nest) [list LITERAL $tok] ;#directly wrapped in squotes
-                        }
-                        multistring {
-                            #review
-                            #JJJJ ?
-                            lappend v($nest) [list MULTISTRING $tok]
-                        }
-                        stringpart {
-                            #JJJJ
-                            set tok [tomlish::from_Bstring $tok]
-                            lappend v($nest) [list STRINGPART $tok] ;#will not get wrapped in dquotes directly
-                        }
-                        multiliteral {
-                            lappend v($nest) [LIST MULTILITERAL $tok]
-                        }
-                        literalpart {
-                            lappend v($nest) [list LITERALPART $tok] ;#will not get wrapped in squotes directly
-                        }
-                        untyped_value {
-                            #would be better termed unclassified_value
-                            #we can't determine the type of unquoted values (int,float,datetime,bool) until the entire token was read.
-                            unset -nocomplain tag
-                            if {$tok in {true false}} {
-                                set tag BOOL
-                            } else {
-                                if {[::tomlish::utils::is_int $tok]} {
-                                    set tag INT
-                                } else {
-                                    if {[::tomlish::utils::string_is_integer -strict $tok]} {
-                                        #didn't qualify as a toml int - but still an int
-                                        #probably means is_int is limiting size and not accepting bigints (configurable?)
-                                        #or it didn't qualify due to more than 1 leading zero
-                                        #or other integer format issue such as repeated underscores
-                                        error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. (looks close to being an int. Formatting or range issue?) [tomlish::parse::report_line] (no space level change)"
-                                    } else {
-                                        #DDDD
-                                        if {[::tomlish::utils::is_float $tok]} {
-                                            set tag FLOAT
-                                        } elseif {[::tomlish::utils::is_time-local $tok]} {
-                                            set tag TIME-LOCAL
-                                        } elseif {[::tomlish::utils::is_timepart $tok]} {
-                                            ######################################
-                                            #Note we must allow lone timepart here (not just is_time-local which doesn't allow tz offsets) in case it followed a previous localdate
-                                            #set tag DATETIME ;#PLACEHOLDER tag - review standalone time with tz - no specific tag - only allowed as followup value from DATE-LOCAL
-                                            set tag TIME-TZ
-                                            #This will become a DATETIME or a DATETIME-LOCAL (or will error)
-                                            ######################################
-                                        } elseif {[::tomlish::utils::is_date-local $tok]} {
-                                            set tag DATE-LOCAL
-                                        } elseif {[::tomlish::utils::is_date_or_time_or_datetime $tok]} {
-                                            #not just a date or just a time
-                                            #could be either local or have tz offset
-                                            #DDDD JJJ
-                                            set norm [string map {" " T} $tok];#prob unneeded - we won't get here if there was a space - would arrive as 2 separate tokens review.
-                                            lassign [split $norm T] dp tp
-                                            if {[::tomlish::utils::is_time-local $tp]} {
-                                                set tag DATETIME-LOCAL
-                                            } else {
-                                                set tag DATETIME
-                                            }
-                                        } else {
-                                            error "---- Unable to interpret '$tok' as Boolean, Integer, Float or Datetime as per the toml specs. [tomlish::parse::report_line] (no space level change)"
-                                        }
-                                    }
-                                }
-                            }
-                            #assert either tag is set, or we errored out.
-                            lappend v($nest) [list $tag $tok]
-
-                        }
-                        comment {
-                            #puts stdout "----- comment token returned '$tok'------"
-                            #JJJJ
-                            set tok [tomlish::from_comment $tok]
-                            lappend v($nest) [list COMMENT "$tok"]
-                        }
-                        equal {
-                            #we append '=' to the nest so that any surrounding whitespace is retained.
-                            lappend v($nest)  =
-                        }
-                        comma {
-                            lappend v($nest) SEP
-                        }
-                        newline {
-                            incr linenum
-                            lappend v($nest) [list NEWLINE $tok]
-                        }
-                        whitespace {
-                            lappend v($nest) [list WS $tok]
-                        }
-                        continuation {
-                            lappend v($nest) CONT
-                        }
-                        bom {
-                            lappend v($nest) BOM
-                        }
-                        eof {
-                            #ok - nothing more to add to the tomlish list.
-                            #!todo - check previous tokens are complete/valid?
-                        }
-                        default {
-                            error "--- unknown tokenType '$tokenType' during state $prevstate [::tomlish::parse::report_line] (no space level change)"
-                        }
-                    }
-                }
-
-                if {!$next_tokenType_known} {
-                    ::tomlish::log::notice "---- tomlish::decode::toml - current tokenType:$tokenType Next token type not known"
-                    ::tomlish::parse::set_tokenType ""
-                    set tok ""
-                }
-
-                if {$state eq "end-state"} {
-                    break
-                }
-
-
-            }
-
-            #while {$nest > 0} {
-            #	lappend v([expr {$nest -1}]) [set v($nest)]
-            #	incr nest -1
-            #}
-            while {[::tomlish::parse::spacestack size] > 1} {
-                ::tomlish::parse::spacestack pop
-                lappend v([expr {$nest -1}]) [set v($nest)]
-                incr nest -1
-
-                #set parent [spacestack peek] ;#the level being appended to
-                #lassign $parent type state
-                #if {$type eq "space"} {
-                #
-                #} elseif {$type eq "buffer"} {
-                #	lappend v([expr {$nest -1}]) {*}[set v($nest)]
-                #} else {
-                #	error "invalid spacestack item: $parent"
-                #}
-            }
-
-        } finally {
-            set is_parsing 0
-        }
-        return $v(0)
-    }
-
-    #toml dquoted string to tomlish STRING
-    # - only allow specified escape sequences
-    # - allow any unicode except those that must be escaped: dquote, bsl, and control chars(except tab)
-    proc from_Bstring {bstr} {
-        #JJJJ
-        if {[catch {
-            tomlish::utils::unescape_string $bstr
-        } errM]} {
-            return -code error -errorcode {TOML SYNTAX INVALIDESCAPE} "tomlish::from_Bstring toml Bstring contains invalid escape sequence\n$errM" ;#review
-        }
-        #assert: all escapes are now valid
-
-        if {[regexp {[\u0000-\u0008\u000A-\u001F\u007f]} $bstr]} {
-            set msg "tomlish::from_Bstring toml Bstring contains controls that must be escaped"
-            return -code error -errorcode {TOML SYNTAX BSTRINGUNESCAPEDCONTROLS} $msg ;#review
-        }
-        return $bstr
-    }
-    #validate toml comment
-    # - disallow controls that must be escaped
-    #from spec:
-    # "Control characters other than tab (U+0000 to U+0008, U+000A to U+001F, U+007F) are not permitted in comments."
-    proc from_comment {comment} {
-        if {[regexp {[\u0000-\u0008\u000A-\u001F\u007f]} $comment]} {
-            set msg "tomlish::from_comment toml comment contains controls that must be escaped"
-            return -code error -errorcode {TOML SYNTAX COMMENTUNESCAPEDCONTROLS} $msg ;#review
-        }
-        return $comment
-    }
-
-
-    #return TOMLISH {<tag> value} from new and existing typeval dicts of form {type <type> value <value}
-    #Basic types such as INT, STRING result in tomlish form {<tag> value} but
-    # some such as MULTISTRING can be of form {<tag> <part>...}
-    #
-    #Don't validate here - validate in tomlish::dict::path::setleaf
-    proc _update_tomlish_typeval_convert_to_new_from_existing {new existing} {
-        #we deliberately don't support container types that can contain comments e.g ARRAY, ITABLE, DOTTEDKEY
-        #This is also not for higher level constructs such as TABLE, TABLEARRAY
-        if {!([tomlish::dict::is_typeval $target] && [tomlish::dict_is_typveval $source])} {
-            error "_update_tomlish_typeval_convert_to: target and source must be of form {type <type> value <value}"
-        }
-        set e_type [dict get $existing type]
-        switch -- $e_type {
-            INT - FLOAT - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL - LITERAL - STRING - MULTILITERAL - MULTISTRING {}
-            default {
-                error "_update_tomlish_typeval_convert_to_new_from_existing: cannot convert from type $e_type - must be a non-container type"
-            }
-        }
-        set typechanges_allowed 2 ;#todo - from config/option 0 = none, 1 = any 2 = similar
-
-        if {!$typechanges_allowed} {
-            if {$e_type ne $n_type} {
-                return -code error -errorcode {TOMLISH UPDATE DISALLOWEDTYPECHANGE} "update from type $e_type to $n_type disallowed by policy"
-            }
-        }
-
-        set n_type  [dict get $new type]
-        set n_value [dict get $new value]
-        switch -- $n_type {
-            INT - FLOAT {
-                if {$typechanges_allowed == 2 && $e_type ni {INT FLOAT}} {
-                    return -code error -errorcode {TOMLISH UPDATE DISALLOWEDTYPECHANGE} "update from type $e_type to $n_type disallowed by policy. Existing type must be INT or FLOAT"
-                }
-                set tomlish [list $n_type $n_value]
-            }
-            DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL {
-                if {$typechanges_allowed == 2 && $e_type ni {DATETIME DATETIME-LOCAL DATE-LOCAL TIME-LOCAL}} {
-                    return -code error -errorcode {TOMLISH UPDATE DISALLOWEDTYPECHANGE} "update from type $e_type to $n_type disallowed by policy. Existing type must be a date or time type"
-                }
-                set tomlish [list $n_type $n_value]
-            }
-            LITERAL - STRING {
-                if {$typechanges_allowed == 2 && $e_type ni {LITERAL STRING MULTILITERAL MULTISTRING}} {
-                    return -code error -errorcode {TOMLISH UPDATE DISALLOWEDTYPECHANGE} "update from type $e_type to $n_type disallowed by policy. Existing type must be one of the string types."
-                }
-                set tomlish [list $n_type $n_value]
-            }
-            MULTILITERAL {
-                if {$typechanges_allowed == 2 && $e_type ni {LITERAL STRING MULTILITERAL MULTISTRING}} {
-                    return -code error -errorcode {TOMLISH UPDATE DISALLOWEDTYPECHANGE} "update from type $e_type to $n_type disallowed by policy. Existing type must be one of the string types."
-                }
-
-                set toml    ""
-                append toml "x='''" \n
-                append toml "$rawval'''" \n
-                set tomlish [lrange [tomlish::from_toml $toml] 1 end] ;#remove TOMLISH keyword
-                set dklist [lindex $tomlish 0]
-                set msrecord [lindex $dklist 3]
-
-                set tomlish $msrecord
-            }
-            MULTISTRING {
-                if {$typechanges_allowed == 2 && $e_type ni {LITERAL STRING MULTILITERAL MULTISTRING}} {
-                    return -code error -errorcode {TOMLISH UPDATE DISALLOWEDTYPECHANGE} "update from type $e_type to $n_type disallowed by policy. Existing type must be one of the string types."
-                }
-                #UUU
-                set newval [tomlish::utils::rawstring_to_MultiBstring_with_escaped_controls $rawval]
-                set toml    ""
-                append toml "x=\"\"\"" \n
-                append toml "$newval\"\"\"" \n
-                set tomlish [lrange [tomlish::from_toml $toml] 1 end] ;#remove TOMLISH keyword
-                #assert tomlish is a list with a single element
-                #e.g {DOTTEDKEY {{KEY x}} = {MULTISTRING {NEWLINE lf} {STRINGPART aaa}} {NEWLINE lf}}
-                set dklist [lindex $tomlish 0]
-                set msrecord [lindex $dklist 3]
-                #e.g
-                #MULTISTRING {NEWLINE lf} {STRINGPART aaa}
-                set tomlish $msrecord
-            }
-            default {
-                error "_update_tomlish_typeval_convert_to_new_from_existing: cannot convert to type $n_type - must be a non-container type"
-            }
-        }
-        return $tomlish
-    }
-
-    # - initial aim is to set leaves only - dict must be full representation of the datastructure
-    # todo - consider flags to allow subset of datastructure in dict
-    # options for:
-    #   pruning of keys/branches not present
-    #   updating from a subset dict (reduces processing - and more flexible to supply only paths to leaves requiring update?)
-    #
-    #todo - allow adding extra leaves e.g keys in tables,tablearrays, itables, arrays
-    proc update_tomlish_from_dict {tomlish d} {
-        set returnextra true
-        #validate supplied tomlish and keep tablenames_info (review - validate structure only - allow invalid values to be overwritten from dict?)
-        set tomlish_info [tomlish::dict::from_tomlish $tomlish $returnextra]
-        set original_tdict              [dict get $tomlish_info datastructure]
-        set original_tablenames_info    [dict get $tomlish_info tablenames_info]
-
-        if {![tomlish::utils::string_is_dict $d]} {
-            error "tomlish::update_tomlish_from_dict value supplied for dict to merge from is not a dict"
-        }
-        set output_tomlish [list]
-        #because we are not building the datastructure as we go (we already have fully built original_tdict)
-        # - we need to track counter for tablearrays encountered to get the proper refpath index
-        set tomlish_tablearrays_seen [dict create] ;#store counter for each, keyed on refpath, 1 based
-        foreach tomlish_record $tomlish {
-            set tomlish_type [lindex $tomlish_record 0]
-            switch -- $tomlish_type {
-                TOMLISH - WS - BOM - NEWLINE - COMMENT {
-                    #pass through unmolested.
-                    lappend output_tomlish $tomlish_record
-                }
-                TABLE - TABLEARRAY {
-                    #top level in tomlish list
-                    #TABLE & TABLEARRAY contain same types of elements in their record
-                    #main difference in processing here is regarding the use of tomlish_tablearrays_seen
-
-                    #TABLE records for tablearray subtables are not stored within their corresponding TABLEARRAY record  (at least not for now, and not by default - review)
-                    set fulltablename [lindex $tomlish_record 1]
-                    set normalise 1
-                    set tablenameparts [tomlish::toml::tablename_split $fulltablename $normalise]
-                    #supertables could be tablearrays
-                    #set thistablepath [lmap k $tablenameparts {string cat @@ $k}]
-                    set table_refpath [list]
-                    foreach tn [lrange $tablenameparts 0 end-1] {
-                        lappend table_refpath "@@$tn"
-                        set ttype [dictn getdef $original_tablenames_info [list $table_refpath ttype] {}]
-                        if {$ttype eq "header_tablearray"} {
-                            #reference last element of tablearray
-                            #set numseen [dict incr tomlish_tablearrays_seen $table_refpath]
-                            set numseen [dict get $tomlish_tablearrays_seen $table_refpath]
-                            set tindex [expr {$numseen -1}]
-                            lappend table_refpath $tindex
-                        }
-                    }
-                    set last_tn [lindex $tablenameparts end] 
-                    lappend table_refpath "@@$last_tn"
-                    set ttype [dictn getdef $original_tablenames_info [list $table_refpath ttype] {}]
-                    if {$tomlish_type eq "TABLE"} {
-                        if {$ttype eq "header_tablearray"} {
-                            set numseen [dict get $tomlish_tablearrays_seen $table_refpath]
-                            set tindex [expr {$numseen -1}]
-                            lappend table_refpath $tindex
-                        }
-                        puts "table_refpath: $table_refpath"
-                    } else {
-                        #we know it's of ttype header_tablearray
-                        set seen_updated [dict incr tomlish_tablearrays_seen $table_refpath]
-                        set numseen [dict get $seen_updated $table_refpath]
-                        set tindex [expr {$numseen -1}]
-                        lappend table_refpath $tindex
-                        puts "tablearray_refpath: $table_refpath"
-                    }
-
-                    #source dict for part below this table path
-                    set subd      [tomlish::dict::path::get $d $table_refpath]
-
-                    set updated_tablechildren [list]
-                    set tablechildren [lrange $tomlish_record 2 end] ;#all beyond TABLE <name> are contained in the table
-                    foreach tr $tablechildren {
-                        set tr_type [lindex $tr 0]
-                        switch -- $tr_type {
-                            NEWLINE - WS - COMMENT {
-                                lappend updated_tablechildren $tr
-                            }
-                            DOTTEDKEY {
-                                #review
-                                #UUU
-                                set dktomlish    [list TOMLISH $tr]
-                                set dkdict       [::tomlish::to_dict $dktomlish]
-                                set newdktomlish [update_tomlish_from_dict $dktomlish $subd]
-                                set newrecords [lrange $newdktomlish 1 end];#strip TOMLISH
-                                lappend updated_tablechildren {*}$newrecords
-                            }
-                            default {
-                                error "update_tomlish_from_dict: unexpected table record type $tr_type"
-                            }
-                        }
-                    }
-
-                    #todo - add leaves from subd that weren't in the tablechildren list
-                    #ordering?
-
-                    lappend output_tomlish [list {*}[lrange $tomlish_record 0 1] {*}$updated_tablechildren]
-                }
-                DOTTEDKEY {
-                    #We don't have to check toml table rules regarding created/defined here as dict::from_tomlish has already ensured correctness
-                    #UUU
-                    set dkinfo  [tomlish::get_dottedkey_info $tomlish_record] ;#e.g keys {j { k} l} keys_raw {j {' k'} l}
-                    set keys [dict get $dkinfo keys]
-                    set dk_refpath [lmap k $keys {string cat @@ $k}]
-
-                    set kvinfo  [tomlish::_get_keyval_value $tomlish_record]
-                    set existing_typeval [dict get $kvinfo result]
-                    if {[tomlish::dict::is_typeval $existing_typeval] && [dict get $existing_typeval type] ne "ARRAY"} {
-                        #leaf in supplied tomlish - source dict must also be leaf (invalid to rewrite a branch)
-                        #e.g
-                        #DOTTEDKEY {{KEY j} DOTSEP {SQKEY { k}} DOTSEP {KEY l}} = {INT 0} {WS { }} {COMMENT comment} {NEWLINE lf}
-                        #existing_typeval: {type INT value 0}
-                        #e.g
-                        #DOTTEDKEY {{KEY j} DOTSEP {SQKEY { k}} DOTSEP {KEY l}} = {MULTISTRING {WS { }} {STRINGPART x} {WS { }}} {WS { }} {COMMENT comment} {NEWLINE lf}
-                        #existing_typeval: {type MULTISTRING value { x }}
-
-                        #see if source dict has a simple typeval to set
-                        set new_typeval [tomlish::dict::path::get $d $dk_refpath]
-                        if {![tomlish::dict::is_typeval $new_typeval]} {
-                            error "update_tomlish_from_dict - update dictionary has non-leaf data at path $dk_refpath - cannot set"
-                        }
-                        #update if type matches. Todo - flag -allowtypechange ?
-                        set e_type [dict get $existing_typeval type]
-                        set n_type [dict get $new_typeval type]
-                        if {$e_type ne $n_type} {
-                            error "update_tomlish_from_dict - cannot change type $e_type to $n_type at path $dk_refpath"
-                        }
-                        #-start 3 to begin search after =
-                        set valindex [lsearch -start 3 -index 0 $tomlish_record $e_type]
-                        if {$valindex == -1} {
-                            error "update_tomlish_from_dict - unexpected error - failed to find $e_type in record $tomlish_record"
-                        }
-                        set rawval [dict get $new_typeval value]
-                        switch -- $e_type {
-                            MULTISTRING {
-                                #UUU
-                                set newval [tomlish::utils::rawstring_to_MultiBstring_with_escaped_controls $rawval]
-                                set toml    ""
-                                append toml "x=\"\"\"" \n
-                                append toml "$newval\"\"\"" \n
-                                set tomlish [lrange [tomlish::from_toml $toml] 1 end] ;#remove TOMLISH keyword
-                                #assert tomlish is a list with a single element
-                                #e.g {DOTTEDKEY {{KEY x}} = {MULTISTRING {NEWLINE lf} {STRINGPART aaa}} {NEWLINE lf}}
-                                set dklist [lindex $tomlish 0]
-                                set msrecord [lindex $dklist 3]
-                                #e.g
-                                #MULTISTRING {NEWLINE lf} {STRINGPART aaa}
-
-                                #error "update_tomlish_from_dict MULTISTRING update unimplemented. Todo"
-                                lset tomlish_record $valindex $msrecord
-                            }
-                            MULTILITERAL {
-                                set toml    ""
-                                append toml "x='''" \n
-                                append toml "$rawval'''" \n
-                                set tomlish [lrange [tomlish::from_toml $toml] 1 end] ;#remove TOMLISH keyword
-                                set dklist [lindex $tomlish 0]
-                                set msrecord [lindex $dklist 3]
-                                lset tomlish_record $valindex $msrecord
-                            }
-                            default {
-                                switch -- $e_type {
-                                    STRING {
-                                        #review
-                                        set newval [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $rawval]
-                                    }
-                                    default {
-                                        set newval $rawval
-                                    }
-                                }
-                                lset tomlish_record $valindex [list $e_type $newval]
-                            }
-                        }
-
-                    } elseif {[tomlish::dict::is_typeval $existing_typeval] && [dict get $existing_typeval type] eq "ARRAY"} {
-                        #e.g
-                        #DOTTEDKEY {{KEY a}} = {ARRAY {INT 1} SEP {INT 2} SEP {INT 3}}
-                        #DOTTEDKEY {{KEY a} {WS { }}} = {WS { }} {ARRAY {INT 1} {WS { }} SEP {INT 2} {WS { }} SEP {INT 3}} {WS { }}
-                        #existing_typeval: {type ARRAY value {{type INT value 1} {type INT value 2} {type INT value 3}}}
-
-                        #= is always at index 2 (any preceding whitespace is attached to keylist)
-                        set valindex [lsearch -start 3 -index 0 $tomlish_record ARRAY]
-                        if {$valindex == -1} {
-                            error "update_tomlish_from_dict - unexpected error - failed to find ARRAY in record $tomlish_record"
-                        }
-
-                        set existing_arraytomlish [lindex $tomlish_record $valindex]
-                        puts "update_tomlish_from_dict: existing_arraytomlish: $existing_arraytomlish"
-                        set subd      [tomlish::dict::path::get $d $dk_refpath]
-                        #set existing_items [tomlish::dict::from_tomlish $tomlish_record] ;#utilise fragment processing of dict::from_tomlish - to produce a LIST
-                        #we expect the subdict structure to be something like:
-                        # {type ARRAY value {{type INT value 1} {type INT value 2}}}
-                        # or with untagged subdicts (ITABLE in tomlish)
-                        # {type ARRAY value {{x {type INT value 1}} {type INT value 2}}}
-
-
-                        #we can only have one ARRAY record - so we can use lset
-                        set newsubrecord_itable [update_tomlish_from_dict [list $existing_arraytomlish] $subd]
-                        lset tomlish_record $valindex [lindex $newsubrecord_itable 0] ;#passed in a single element tomlish list - expect only one back
-
-                    } elseif {[tomlish::dict::is_typeval_dict $existing_typeval]} {
-                        #Not actually a {type <type> value <value>} structure.
-                        #sub dict (ITABLE)
-                        #e.g
-                        #DOTTEDKEY {{KEY j} DOTSEP {SQKEY { k}} DOTSEP {KEY l}} = {ITABLE {DOTTEDKEY {{KEY q}} = {INT 1}}} {WS { }} {COMMENT comment} {NEWLINE lf}
-                        #DOTTEDKEY {{KEY x} {WS {    }}} = {WS { }} {ITABLE {WS { }} {DOTTEDKEY {{KEY j}} = {INT 1} {WS { }} SEP} {WS { }} {DOTTEDKEY {{KEY k} {WS { }}} = {WS { }} {INT 333}}} {WS { }} {COMMENT {test }}
-                        #existingvaldata: {q {type INT value 1}}
-                        set subd      [tomlish::dict::path::get $d $dk_refpath]
-                        #= is always at index 2 (any preceding whitespace is attached to keylist)
-                        set valindex [lsearch -start 3 -index 0 $tomlish_record ITABLE]
-                        if {$valindex == -1} {
-                            error "update_tomlish_from_dict - unexpected error - failed to find ITABLE in record $tomlish_record"
-                        }
-                        #we can only have one ITABLE record - so we can use lset
-
-                        set itablerecord [lindex $tomlish_record $valindex]
-                        puts "update_tomlish_from_dict: existing_itabletomlish: $itablerecord"
-                        set newsubrecord_itable [update_tomlish_from_dict [list $itablerecord] $subd]
-                        lset tomlish_record $valindex [lindex $newsubrecord_itable 0]
-                    } else {
-                        #unreachable? - dict::from_tomlish didn't object.
-                        error "update_tomlish_from_dict: Unexpected data in DOTTEDKEY record: $existing_typeval"
-                    }
-                    lappend output_tomlish $tomlish_record
-                }
-                ARRAY {
-                    #UUU
-                    #fragment recursion
-                    puts "update_tomlish_from_dict: process ARRAY fragment"
-                    puts "tomlish:\n$tomlish"
-                    puts "updatedict:\n$d"
-                    set source_d_elements [tomlish::dict::path::get $d {[]}]
-
-                    set updated_arraychildren [list]
-                    set arrayrecord $tomlish_record
-                    set arraychildren [lrange $arrayrecord 1 end] ;#includes WS, SEP, NEWLINE, COMMENT
-                    set arridx 0
-                    set childidx 0
-                    foreach arrchild $arraychildren {
-                        set arrchild_type [lindex $arrchild 0]
-                        switch -- $arrchild_type {
-                            SEP {
-                                #we don't check for proper SEP interspersal here, presuming well-formed tomlish - review
-                                lappend updated_arraychildren $arrchild
-                            }
-                            NEWLINE - WS - COMMENT {
-                                lappend updated_arraychildren $arrchild
-                            }
-                            default {
-                                #updatables
-                                #review - type changes from existing value??
-                                set sourcedata [lindex $source_d_elements $arridx]
-                                #todo - what happens when less source elements than in existing array? ie sourcedata is empty.
-                                #
-                                switch -- $arrchild_type {
-                                    STRING - LITERAL - FLOAT - INT - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL {
-                                        #basic types - no recursion needed
-                                        #REVIEW - change of type? flag to allow/disallow?
-                                        if {![tomlish::dict::is_typeval $sourcedata]} {
-                                            error "update_tomlish_from_dict - update dictionary has non-leaf data at path \[$arridx\] - cannot set"
-                                        }
-                                        set newval   [dict get $sourcedata value]
-                                        set newtype     [dict get $sourcedata type]
-                                        if {$newtype eq "STRING"} {
-                                            set newval [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $newval]
-                                        }
-                                        lappend updated_arraychildren [list $newtype $newval]
-                                    }
-                                    MULTISTRING {
-                                        #no need to recurse
-                                        puts stderr "multistring within array update - unimplemented"
-                                    }
-                                    MULTILITERAL {
-                                        #no need to recurse
-                                        puts stderr "multiliteral within array update - unimplemented"
-                                    }
-                                    ITABLE - ARRAY {
-                                        #recurse
-                                        puts stderr "update $arrchild_type within array"
-                                        set nextd [tomlish::dict::path::get $d $arridx]
-                                        set subrecord_tomlish [list $arrchild]
-                                        set newsubrecord_tomlish [update_tomlish_from_dict $subrecord_tomlish $nextd]
-                                        lappend updated_arraychildren {*}$newsubrecord_tomlish
-                                    }
-                                    default {
-                                        error "update_tomlish_from_dict: unexpected array child record type $arrchild_type"
-                                    }
-                                }
-                                incr arridx ;#only increment array index for updatables
-                            }
-                        }
-                    }
-
-                    lappend output_tomlish [list ARRAY {*}$updated_arraychildren]
-                }
-                ITABLE {
-                    #fragment recursion target
-                    #ITABLE {DOTTEDKEY {{KEY j}} = {INT 1}}
-                    #ITABLE {WS { }} {DOTTEDKEY {{KEY j}} = {INT 1} {WS { }} SEP} {WS { }} {DOTTEDKEY {{KEY k} {WS { }}} = {WS { }} {INT 333}}
-                    #ITABLE {NEWLINE lf} {DOTTEDKEY {{KEY j} {WS { }}} = {WS { }} {INT 1} SEP} {WS { }} {COMMENT test} {NEWLINE lf} {WS { }} {DOTTEDKEY {{KEY k}} = {WS { }} {INT 2} {NEWLINE lf}}
-                    puts "update_tomlish_from_dict: process ITABLE fragment"
-                    puts "tomlish:\n$tomlish"
-                    puts "updatedict:\n$d"
-                    set updated_itablechildren [list]
-                    set itablechildren [lrange $tomlish_record 1 end] ;#includes WS, NEWLINE, COMMENT (possibly SEP - though it may be attached to DOTTEDKEY record REVIEW)
-                    #we only expect DOTTEDKEY records for data items within ITABLE
-                    foreach itablechild $tomlish_record {
-                        set itablechild_type [lindex $itablechild 0]
-                        switch -- $itablechild_type {
-                            SEP {
-                                #REVIEW
-                                #we don't necessarily expect a SEP *directly* within ITABLE records as currently when they're created by tomlish::from_toml
-                                #it attaches them (along with intervening WS, COMMENTs) to each DOTTEDKEY record
-                                #This feels somewhat misaligned with ARRAY - where we have no choice but to have SEP, and COMMENTs independent of the array elements.
-                                #Attaching COMMENTs, SEP to the previous DOTTEDKEY has some merit - but perhaps consistency with ARRAY would be preferable.
-                                #This may change - but in any case it should probably be valid/handled gracefully either way.
-                                lappend updated_itablechildren $itablechild
-                            }
-                            COMMENT - WS - NEWLINE {
-                                lappend updated_itablechildren $itablechild
-                            }
-                            DOTTEDKEY {
-                                puts stderr "update dottedkey in itable: tomlish:[list $itablechild] d:$d"
-                                set updatedtomlish [update_tomlish_from_dict [list $itablechild] $d]
-                                set newrecord [lindex $updatedtomlish 0]
-                                lappend updated_itablechildren $newrecord
-                            }
-                        }
-                    }
-
-                    lappend output_tomlish [list ITABLE {*}$updated_itablechildren]
-                }
-                default {
-                    error "update_tomlish_from_dict: Unexpected toplevel type $tomlish_type record: $tomlish_record"
-                }
-            }
-        }
-        return $output_tomlish
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-namespace eval tomlish::build {
-    #STRING,INT,FLOAT,BOOL, DATETIME - simple wrappers for completeness
-    # take a value of the appropriate type and wrap as a tomlish tagged item
-    proc STRING {s} {
-        return [list STRING [::tomlish::utils::rawstring_to_Bstring_with_escaped_controls $s]]
-    }
-    proc LITERAL {litstring} {
-        error todo
-    }
-
-    proc INT {i} {
-        #whole numbers, may be prefixed with a + or -
-        #Leading zeros are not allowed
-        #Hex,octal binary forms are allowed (toml 1.0)
-        #We will error out on encountering commas, as commas are interpreted differently depending on locale (and don't seem to be supported in the toml spec anyway)
-        #!todo - Tcl can handle bignums - bigger than a 64bit signed long as specified in toml.
-        #      - We should probably raise an error for number larger than this and suggest the user supply it as a string?
-        if {[tcl::string::last , $i] > -1} {
-            error "Unable to interpret '$i' as an integer. Use underscores if you need a thousands separator [::tomlish::parse::report_line]"
-        }
-        if {![::tomlish::utils::int_validchars $i]} {
-            error "Unable to interpret '$i' as an integer. Only 0-9 + 1 _ characters are acceptable. [::tomlish::parse::report_line]"
-        }
-
-        if {[::tomlish::utils::is_int $i]} {
-            return [list INT $i]
-        } else {
-            error "'$i' is not a valid integer as per the Toml spec. [::tomlish::parse::report_line]"
-        }
-
-    }
-
-    proc FLOAT {f} {
-        #convert any non-lower case variants of special values to lowercase for Toml
-        if {[::tcl::string::tolower $f] in {nan +nan -nan inf +inf -inf}} {
-            return [list FLOAT [tcl::string::tolower $f]]
-        }
-        if {[::tomlish::utils::is_float $f]} {
-            return [list FLOAT $f]
-        } else {
-            error "Unable to interpret '$f' as Toml float. Check your input, or check that tomlish is able to handle all Toml floats properly [::tomlish::parse::report_line]"
-        }
-    }
-
-    proc DATETIME {str} {
-        if {[::tomlish::utils::is_date_or_time_or_datetime $str]} {
-            return [list DATETIME $str]
-        } else {
-            error "Unable to interpret '$str' as Toml datetime. Check your input, or check that tomlish is able to handle all Toml datetimes properly [::tomlish::parse::report_line]"
-        }
-    }
-    proc DATETIME-LOCAL {str} {
-        error "build::DATETIME-LOCAL todo"
-    }
-
-    proc BOOLEAN {b} {
-        #convert any Tcl-acceptable boolean to boolean as accepted by toml - lower case true/false
-        if {![tcl::string::is boolean -strict $b]} {
-            error "Unable to convert '$b' to Toml boolean true|false. [::tomlish::parse::report_line]"
-        } else {
-            if {$b && 1} {
-                return [::list BOOL true]
-            } else {
-                return [::list BOOL false]
-            }
-        }
-    }
-
-    #REVIEW
-    #Take tablename followed by
-    # a) *tomlish* name-value pairs e.g table mydata [list KEY item11 = [list STRING "test"]] {KEY item2 = [list INT 1]}
-    # (accept also key <keyname> value {STRING <value>})
-    # b) simple 2-element tcl lists being name & *simple* value pairs for which basic heuristics will be used to determine types
-    proc _table {name args} {
-        set pairs [list]
-        foreach t $args {
-            if {[llength $t] == 4} {
-                if {[tcl::string::tolower [lindex $t 0]] ne "key" || [tcl::string::tolower [lindex $t 2]] ni "= value"} {
-                    error "Only items tagged as KEY <keyname> = <value> currently accepted as name-value pairs for table command"
-                }
-                lassign $t _k keystr _eq valuepart
-                if {[llength $valuepart] != 2} {
-                    error "supplied value must be typed. e.g {INT 1} or {STRING test}"
-                }
-                lappend pairs [list KEY $keystr = $valuepart]
-            } elseif {[llength $t] == 2} {
-                #!todo - type heuristics
-                lassign $t n v
-                lappend pairs [list KEY $n = [list STRING $v]]
-            } else {
-                error "'KEY <name> = {<type> <val}' or simple name-value pairs expected. Unable to handle [llength $t] element list as argument"
-            }
-        }
-        set result [list TABLE $name {NEWLINE lf}]
-        foreach p $pairs {
-            lappend result $p {NEWLINE lf}
-        }
-        return $result
-        #return [list TABLE $name $pairs]
-    }
-
-
-    #REVIEW - root & table are not correct
-    #the tomlish root is basically a nameless table representing the root of the document
-    proc _root {args} {
-        set table [::tomlish::encode::table TOMLISH {*}$args]
-        set result [lrange $table 2 end]
-    }
-
-}
-
-namespace eval tomlish::encode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::encode}]
-    #[para]
-    #[list_begin definitions]
-
-
-
-
-    #WS = whitepace, US = underscore
-    #---------------------------------------------------------------------------------------------------------
-    #NOTE - this DELIBERATELY does not validate the data, or process escapes etc
-    #It encodes the tomlish records as they are.
-    #ie it only produces toml shaped data from a tomlish list.
-    #
-    #It is part of the roundtripability of data from toml to tomlish
-    #!! ie - it is not the place to do formatting of inline vs multiline !!
-    # That needs to be encoded in the tomlish data that is being passed in
-    # (e.g from_dict could make formatting decisions in the tomlish it produces)
-    #
-    #e.g duplicate keys etc can exist in the toml output.
-    #The dict::from_tomlish tomlish::from_dict (or any equivalent processor pair) is responsible for validation and conversion
-    #back and forth of escape sequences where appropriate.
-    #---------------------------------------------------------------------------------------------------------
-    proc tomlish {list {context ""}} {
-        if {![tcl::string::is list $list]} {
-            error "Supplied 'tomlish' is not a valid Tcl list. Expected a tagged list (parsed Toml)"
-        }
-        set toml "" ;#result string
-
-        foreach item $list {
-            set tag [lindex $item 0]
-            #puts "tomlish::encode::tomlish processing item '$item', tag '$tag'"
-            #during recursion, some tags require different error checking in different contexts.
-            set nextcontext $tag ;
-
-            #Handle invalid tag nestings
-            switch -- $context {
-                DQKEY -
-                SQKEY -
-                KEY {
-                    if {$tag in {KEY DQKEY SQKEY}} {
-                        error "Invalid tag '$tag' encountered within '$context'"
-                    }
-                }
-                MULTISTRING {
-                    #explicitly list the valid child tags
-                    set ms_parts {STRING STRINGPART WS NEWLINE CONT}
-                    if {$tag ni $ms_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTISTRING must belong to: $ms_parts"
-                    }
-                }
-                MULTILITERAL {
-                    set ml_parts {LITERALPART NEWLINE}
-                    if {$tag ni $ml_parts} {
-                        error "Invalid tag '$tag' encountered within a MULTILITERAL must belong to: $ml_parts"
-                    }
-                }
-                default {
-                    #no context, or no defined nesting error for this context
-                }
-            }
-
-            switch -- $tag {
-                TOMLISH {
-                    #optional root tag. Ignore.
-                }
-                DQKEY -
-                SQKEY -
-                KEY {
-                    #
-                    if {$tag eq "KEY"} {
-                        append toml [lindex $item 1] ;#Key
-                    } elseif {$tag eq "SQKEY"} {
-                        append toml '[lindex $item 1]' ;#SQuoted Key
-                    } else {
-                        append toml \"[lindex $item 1]\" ;#DQuoted Key
-                    }
-                    #= could be at various positions depending on WS
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                DOTTEDKEY {
-                    #DQKEY, SQKEY, BAREKEY, WS, DOTSEP
-                    foreach part [lindex $item 1] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    #whitespace at tail of dotted key elements is within the list in element 1
-                    #generally we expect the = to be at element 2 - review
-                    foreach part [lrange $item 2 end] {
-                        if {$part eq "="} {
-                            append toml "="
-                        } else {
-                            #puts "encoding [list $part] (context:$nextcontext)"
-                            append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                        }
-                    }
-                }
-                TABLE {
-                    append toml "\[[lindex $item 1]\]"  ;#table name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ITABLE {
-                    #inline table - e.g within array or on RHS of keyval/qkeyval
-                    set data ""
-                    foreach part [lrange $item 1 end] {
-                        append data [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\{$data\}"
-                }
-                TABLEARRAY {
-                    append toml "\[\[[lindex $item 1]\]\]"  ;#tablearray name
-                    foreach part [lrange $item 2 end] {
-                        append toml [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                }
-                ARRAY {
-                    set arraystr ""
-                    foreach part [lrange $item 1 end] {
-                        append arraystr [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\[$arraystr\]"
-                }
-                WS {
-                    append toml [lindex $item 1]
-                }
-                SEP {
-                    append toml ","
-                }
-                DOTSEP {
-                    append toml "."
-                }
-                NEWLINE {
-                    set chartype [lindex $item 1]
-                    if {$chartype eq "lf"} {
-                        append toml \n
-                    } elseif {$chartype eq "crlf"} {
-                        append toml \r\n
-                    } else {
-                        error "Unrecognized newline type '$chartype'"
-                    }
-                }
-                CONT {
-                    #line continuation character "\"
-                    append toml "\\"
-                }
-                STRING {
-                    #Basic string (Bstring)
-                    #simple double quoted strings only
-                    #
-                    append toml \"[lindex $item 1]\"
-                }
-                STRINGPART {
-                    append toml [lindex $item 1]
-                }
-                MULTISTRING {
-                    #Tripple quoted string which is a container for newlines,whitespace and multiple strings/stringparts
-                    set multistring "" ;#variable to build up the string
-                    foreach part [lrange $item 1 end] {
-                        append multistring [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml "\"\"\"$multistring\"\"\""
-                }
-                LITERAL {
-                    #Single Quoted string(literal string)
-                    append toml '[lindex $item 1]'
-                }
-                LITERALPART {
-                    append toml [lindex $item 1]
-                }
-                MULTILITERAL {
-                    #multiliteral could be handled as a single literal if we allowed literal to contain newlines
-                    #- except that the first newline must be retained for roundtripping tomlish <-> toml but
-                    # the first newline is not part of the data.
-                    # we elect instead to maintain a basic LITERALPART that must not contain newlines..
-                    # and to compose MULTILITERAL of multiple NEWLINE LITERALPART parts,
-                    #with the datastructure representation dropping the first newline (if immediately following opening delim) when building the value.
-                    set literal ""
-                    foreach part [lrange $item 1 end] {
-                        append literal [::tomlish::encode::tomlish [list $part] $nextcontext]
-                    }
-                    append toml '''$literal'''
-                }
-                INT -
-                BOOL -
-                FLOAT -
-                DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL {
-                    #DDDD
-                    append toml [lindex $item 1]
-                }
-                INCOMPLETE {
-                    error "cannot process tomlish term tagged as INCOMPLETE"
-                }
-                COMMENT {
-                    append toml "#[lindex $item 1]"
-                }
-                BOM {
-                    #Byte Order Mark may appear at beginning of a file. Needs to be preserved.
-                    append toml "\uFEFF"
-                }
-                default {
-                    error "Not a properly formed 'tomlish' taggedlist.\n '$list'\n Unknown tag '[lindex $item 0]'. See output of \[tomlish::tags\] command."
-                }
-            }
-
-        }
-        return $toml
-    }
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::encode ---}]
-}
-#fish toml from tomlish
-
-#(encode tomlish as toml)
-interp alias {} tomlish::to_toml {} tomlish::encode::tomlish
-
-#
-
-
-namespace eval tomlish::decode {
-    #*** !doctools
-    #[subsection {Namespace tomlish::decode}]
-    #[para]
-    #[list_begin definitions]
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::decode ---}]
-}
-#decode toml to tomlish
-#interp alias {} tomlish::from_toml {} tomlish::decode::toml
-
-namespace eval tomlish::utils {
-    #*** !doctools
-    #[subsection {Namespace tomlish::utils}]
-    #[para]
-    #[list_begin definitions]
-
-    #------------------------------------------------------------------------------
-    # Tcl 8.6 support
-    #------------------------------------------------------------------------------
-    if {[catch {tcl::string::is dict {}}]} {
-        proc string_is_dict {str} {
-            #we don't support -strict or -failindex for this fallback
-            expr {[::tcl::string::is list $str] && ([llength $str] % 2 == 0)}
-        }
-    } else {
-        proc string_is_dict {str} {
-            #we don't support -strict or -failindex for this fallback even though underlying supports it
-            ::tcl::string::is dict $str
-        }
-    }
-    if {![string is integer [expr {2**32}]]} {
-        proc string_is_integer {args} {
-            ::tcl::string::is entier {*}$args
-        }
-    } else {
-        proc string_is_integer {args} {
-            ::tcl::string::is integer {*}$args
-        }
-    }
-    #------------------------------------------------------------------------------
-
-    #subset of jq syntax for get/set operations on dicts
-    # no filters or multiple targets
-    # meant for 'leaf' queries
-    proc jq_to_path {jq} {
-        set jq [string trim $jq] ;#don't tokenize any leading/trailing whitespace
-        set path [list]
-        set in_arr 0
-        set in_dq 0
-        set tok ""
-        set bsl 0 
-        foreach c [split $jq ""] {
-            if {$c eq "\\"} {
-                if {$bsl} {
-                    set bsl 0
-                    set c "\\"
-                } else {
-                    set bsl 1
-                    continue
-                }
-            } else {
-                if {$bsl} {
-                    set c "\\$c"
-                    set bsl 0
-                }
-            }
-            if {$in_arr} {
-                switch -- $c {
-                    {]} {
-                        set in_arr 0
-                        lappend path $tok
-                        set tok ""
-                    }
-                    default {
-                        append tok $c
-                    }
-                }
-            } elseif {$in_dq} {
-                if {$c eq "\""} {
-                    set in_dq 0
-                    #append tok "\""
-                    lappend path $tok
-                    set tok ""
-                } else {
-                    append tok $c
-                }
-            } else {
-                switch -- $c {
-                    . {
-                        if {$tok ne ""} {
-                            lappend path $tok
-                        }
-                        set tok "@@"
-                    }
-                    {[} {
-                        if {$tok ne ""} {
-                            lappend path $tok
-                        }
-                        set in_arr 1
-                        set tok ""
-                    }
-                    {"} {
-                        if {$tok eq "@@"} {
-                            #set tok "@@\""
-                            set in_dq 1
-                        } else {
-                            append tok "\""
-                        }
-                    }
-                    default {
-                        append tok $c
-                    }
-                }
-            }
-        }
-        if {$tok ne ""} {
-            lappend path $tok
-        }
-        return $path
-    }
-    proc path_to_jq {path} {
-        set jq ""
-        foreach p $path {
-            if {[string match @@* $p]} {
-                set key [string range $p 2 end]
-                if {![tomlish::utils::is_barekey $key]} {
-                    set key [subst -nocommands -novariables $key]
-                    set key "\"[tomlish::utils::rawstring_to_Bstring_with_escaped_controls $key]\""
-                }
-                append jq ".$key"
-            } else {
-                append jq {[} $p {]}
-            }
-        }
-        return $jq
-    }
-
-
-
-    #basic generic quote matching for single and double quotes
-    #note for example that {[o'malley]} will return sq - as the single quote is not closed or wrapped in double quotes
-    proc tok_in_quotedpart {tok} {
-        set sLen [tcl::string::length $tok]
-        set quote_type ""
-        set had_slash 0
-        for {set i 0} {$i < $sLen} {incr i} {
-            set c [tcl::string::index $tok $i]
-            if {$quote_type eq ""} {
-                if {$had_slash} {
-                    #don't enter quote mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            set quote_type dq
-                        }
-                        sq {
-                            set quote_type sq
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            } else {
-                if {$had_slash} {
-                    #don't leave quoted mode
-                    #leave slash_mode because even if current char is slash - it is escaped
-                    set had_slash 0
-                } else {
-                    set ctype [tcl::string::map [list {"} dq {'} sq \\ bsl] $c]
-                    switch -- $ctype {
-                        dq {
-                            if {$quote_type eq "dq"} {
-                                set quote_type ""
-                            }
-                        }
-                        sq {
-                            if {$quote_type eq "sq"} {
-                                set quote_type ""
-                            }
-                        }
-                        bsl {
-                            set had_slash 1
-                        }
-                    }
-                }
-            }
-        }
-        return $quote_type ;#dq | sq
-    }
-
-    proc hex_escape_info {slashx} {
-        set exp {^\\x([0-9a-fA-F]{2}$)}
-        if {[regexp $exp $slashx match hex]} {
-            return [list ok [list char [subst -nocommand -novariable $slashx]]]
-        } else {
-            return [list err [list reason "Supplied string not of the form \\xHH where H in \[0-9a-fA-F\]"]]
-        }
-    }
-    proc unicode_escape_info {slashu} {
-            #!todo
-            # validate that slashu is either a \uxxxx or \Uxxxxxxxx value of the correct length and
-            # is a valid 'unicode scalar value' (any Unicode code point except high-surrogate and low-surrogate code points)
-            # ie integers in the range 0 to D7FF16 and E00016 to 10FFFF16 inclusive
-            #expr {(($x >= 0) && ($x <= 0xD7FF16)) || (($x >= 0xE00016) && ($x <= 0x10FFFF16))}
-            if {[tcl::string::match {\\u*} $slashu]} {
-                set exp {^\\u([0-9a-fA-F]{4}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %4x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\uHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } elseif {[tcl::string::match {\\U*} $slashu]} {
-                set exp {^\\U([0-9a-fA-F]{8}$)}
-                if {[regexp $exp $slashu match hex]} {
-                    if {[scan $hex %8x dec] != 1} {
-                        #why would a scan ever fail after matching the regexp? !todo - review. unreachable branch?
-                        return [list err [list reason "Failed to convert '$hex' to decimal"]]
-                    } else {
-                        if {(($dec >= 0) && ($dec <= 0xD7FF16)) || (($dec >= 0xE00016) && ($dec <= 0x10FFFF16))} {
-                            return [list ok [list char [subst -nocommand -novariable $slashu]]]
-                        } else {
-                            return [list err [list reason "$slashu is not within the 'unicode scalar value' ranges 0 to 0xD7FF16 or 0xE00016 to 0x10FFFF16"]]
-                        }
-                    }
-                } else {
-                    return [list err [list reason "Supplied string not of the form \\UHHHHHHHH where H in \[0-9a-fA-F\]"]]
-                }
-            } else {
-                return [list err [list reason "Supplied string did not start with \\u or \\U" ]]
-            }
-
-    }
-
-    #Note that unicode characters don't *have* to be escaped.
-    #So if we provide a function named 'escape_string', the name implies the inverse of unescape_string which unescapes unicode \u \U values.
-    #- an inverse of unescape_string would encode all unicode chars unnecessarily.
-    #- as toml accepts a compact escape sequence for common chars such as tab,backspace,linefeed etc  but also allows the full form \u009 etc
-    #- escape_string and unescape_string would not be reliably roundtrippable inverses anyway.
-    #REVIEW - provide it anyway? When would it be desirable to use?
-
-    variable Bstring_control_map [dict create]
-        dict set Bstring_control_map \b      {\b}
-        dict set Bstring_control_map \n      {\n}
-        dict set Bstring_control_map \r      {\r}
-        dict set Bstring_control_map \"      {\"}
-        dict set Bstring_control_map \x1b    {\e}    ;#In spec it's included in the list of 'must be escaped', as well as the 'convenience' escapes - so we make it go both ways.
-        dict set Bstring_control_map \\      "\\\\"
-
-    #\e for \x1b seems like it might be included - v1.1?? hard to find current state of where toml is going :/
-    #for a Bstring (Basic string) tab is explicitly mentioned as not being one that must be escaped.
-    #8 = \b - already in list.
-    #built the remainder whilst checking for entries already hardcoded above -in case more are added to the hardcoded list
-    for {set cdec 0} {$cdec <= 7} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Bstring_control_map $char]} {
-            dict set Bstring_control_map $char \\u$hhhh
-        }
-    }
-    for {set cdec [expr {0x0A}]} {$cdec <= 0x1F} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Bstring_control_map $char]} {
-            dict set Bstring_control_map $char \\u$hhhh
-        }
-    }
-    # \u007F = 127
-    dict set Bstring_control_map [format %c 127] \\u007F
-
-    # ------------------------------------------------------------------
-    variable Literal_control_map [dict create]
-    #controls other than tab
-    for {set cdec 0} {$cdec <= 8} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Literal_control_map $char]} {
-            dict set Literal_control_map $char \\u$hhhh
-        }
-    }
-    for {set cdec [expr {0x0A}]} {$cdec <= 0x1F} {incr cdec} {
-        set hhhh [format %.4X $cdec]
-        set char [format %c $cdec]
-        if {![dict exists $Literal_control_map $char]} {
-            dict set Literal_control_map $char \\u$hhhh
-        }
-    }
-    # \u007F = 127
-    dict set Literal_control_map [format %c 127] \\u007F
-    # ------------------------------------------------------------------
-    variable Multiliteral_control_map
-    set Multiliteral_control_map [dict remove $Literal_control_map \n]
-
-    variable String_control_map
-    set String_control_map [dict remove $Literal_control_map \\]
-
-
-    variable MultiBstring_totoml_map
-    #'minimally' escaped sequences of double quotes.
-    #e.g {""\"""\"}  vs {\"\"\"\"\"}
-    #This produces easier to read toml - and in many cases may be more likely to match original format when roundtripped from dict datastructure
-    # REVIEW - should this be configurable?
-    set MultiBstring_totoml_map [dict remove $Bstring_control_map {"} \r \n]
-    dict set MultiBstring_totoml_map {"""} {""\"} ;#" editor hack: commented quote for dumb syntax highlighers
-
-    #Note the inclusion of backslash in the list of controls makes this non idempotent - subsequent runs would keep encoding the backslashes!
-    #escape only those chars that must be escaped in a Bstring (e.g not tab which can be literal or escaped)
-    #for example - can be used by from_dict to produce valid Bstring data for a tomlish record
-    proc rawstring_to_Bstring_with_escaped_controls {str} {
-        #for the well known chars that have compact escape sequences allowed by toml - we choose that form over the full \u form.
-        #we'll use a string map with an explicit list rather than algorithmic at runtime
-        # - the string map is probably more performant than splitting a string, especially if it's large
-
-        upvar ::tomlish::utils::Bstring_control_map map
-
-        return [string map $map $str]
-    }
-    proc rawstring_to_MultiBstring_with_escaped_controls {str} {
-        #for the well known chars that have compact escape sequences allowed by toml - we choose that form over the full \u form.
-        #we'll use a string map with an explicit list rather than algorithmic at runtime
-        # - the string map is probably more performant than splitting a string, especially if it's large
-
-        upvar ::tomlish::utils::MultiBstring_totoml_map map
-
-        return [string map $map $str]
-    }
-
-    #anything is valid in this direction ?? review
-    #proc rawstring_is_valid_tomlstring {str} {
-    #    #controls are allowed in this direction dict -> toml (they get quoted)
-
-    #    #check any existing escapes are valid
-    #    if {[catch {
-    #        unescape_string $str
-    #    } errM]} {
-    #        return 0
-    #    }
-    #    return 1
-    #}
-
-
-    #REVIEW - easier way to validate? regex?
-    #This is not used for the parsing of toml to tomlish,
-    # but can be used to validate for updating via dict e.g when setting with tomlish::dict::path::setleaf
-    proc inner_MultiBstring_is_valid_toml {str} {
-        set without_literal_backslashes [string map [list "\\\\" "<lbsl>"] $str]
-        #replace only escaped dquotes - use a placeholder - we don't want unescaped runs of dquotes merging.
-        set without_escaped_dquotes [string map [list "\\\"" "<edq>"] $without_literal_backslashes]
-
-        if {[string first "\"\"\"" $without_escaped_dquotes] != -1} {
-            return 0
-        }
-        #assert - all remaining backslashes are escapes
-
-        #strip remaining dquotes
-        set dquoteless [string map [list "\"" "<dq>"] $without_escaped_dquotes]
-        #puts stderr "dquoteless: $dquoteless"
-
-        #check any remaining escapes are valid
-        if {[catch {
-            #don't use the returned value - just check it
-            unescape_string $without_literal_backslashes
-        } errM]} {
-            return 0
-        }
-
-
-        variable Bstring_control_map
-        #remove backslash from control map - we are happy with the remaining escapes (varying length)
-        set testmap [dict remove $Bstring_control_map "\\" \r \n]
-        set testval [string map $testmap $dquoteless]
-        #if they differ - there were raw controls
-        return [expr {$testval eq $dquoteless}]
-    }
-    proc inner_Bstring_is_valid_toml {str} {
-        set without_literal_backslashes [string map [list "\\\\" "<lbsl>"] $str]
-        #replace only escaped dquotes - use a placeholder - we don't want unescaped runs of dquotes merging.
-        set without_escaped_dquotes [string map [list "\\\"" "<edq>"] $without_literal_backslashes]
-
-        #plain Bstring can't have unescaped dquotes at tall
-        if {[string first "\"" $without_escaped_dquotes] != -1} {
-            return 0
-        }
-        #assert - all remaining backslashes are escapes
-
-        #check any remaining escapes are valid
-        if {[catch {
-            #don't use the returned value - just check it
-            unescape_string $without_literal_backslashes
-        } errM]} {
-            return 0
-        }
-
-        variable Bstring_control_map
-        #remove backslash from control map - we are happy with the remaining escapes (varying length)
-        set testmap [dict remove $Bstring_control_map "\\"]
-        set testval [string map $testmap $without_escaped_dquotes]
-        #if they differ - there were raw controls
-        return [expr {$testval eq $without_escaped_dquotes}]
-    }
-
-    proc rawstring_is_valid_literal {str} {
-        #detect control chars other than tab
-        variable Literal_control_map
-        set testval [string map $Literal_control_map $str]
-        return [expr {$testval eq $str}]
-    }
-    proc rawstring_is_valid_multiliteral {str} {
-        #detect control chars other than tab
-        variable Multiliteral_control_map
-
-        set teststr [string map [list \r\n ok] $str]
-
-        set testval [string map $Multiliteral_control_map $teststr]
-        return [expr {$testval eq $teststr}]
-    }
-
-    #review - unescape what string? Bstring vs MLBstring?
-    #we should be specific in the function naming here
-    #used by dict::from_tomlish - so part of validation? - REVIEW
-    proc unescape_string {str} {
-        #note we can't just use Tcl subst because:
-        # it also transforms \a (audible bell) and \v (vertical tab) which are not in the toml spec.
-        # it would strip out backslashes inappropriately: e.g "\j" becomes just j
-        # it recognizes other escapes which aren't approprite  e.g octal \nnn
-        # it replaces \<newline><whitespace> with a single whitespace   (trailing backslash)
-        #This means we shouldn't use 'subst' on the whole string, but instead substitute only the toml-specified escapes (\r \n \b \t \f \\ \" \uhhhh & \Uhhhhhhhh
-        #plus \e for \x1b?
-
-        set buffer ""
-        set buffer2 ""  ;#buffer for 2 hex characters following a \x
-        set buffer4 ""  ;#buffer for 4 hex characters following a \u
-        set buffer8 ""  ;#buffer for 8 hex characters following a \u
-
-        set sLen [tcl::string::length $str]
-
-        #we need to handle arbitrarily long sequences of backslashes.  \\\\\ etc
-        set slash_active 0
-        set unicode2_active 0
-        set unicode4_active 0
-        set unicode8_active 0
-
-        ::tomlish::log::debug "unescape_string. got len [string length str] str $str"
-
-        #!todo - check for invalid data in the form of a raw carriage return (decimal 13) without following linefeed?
-        set i 0
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $str [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            set c [tcl::string::index $str $i]
-            #::tomlish::log::debug "unescape_string. got char $c" ;#too much?
-
-            ##----------------------
-            ##as we are 'unescaping' - should we really be testing here for existing values that should have been escaped?
-            ##The answer is probably no - keep this function to a single purpose - test elsewhere for raw controls.
-            ##this test looks incomplete anyway REVIEW
-            #scan $c %c n
-            #if {($n <= 31) && ($n != 9) && ($n != 10) && ($n != 13)} {
-            #    #we don't expect unescaped unicode characters from 0000 to 001F -
-            #    #*except* for raw tab (which is whitespace) and newlines
-            #    error "unescape_string. Invalid data for a toml string. Unescaped control character (decimal $n) [::tomlish::utils::string_to_slashu $c]"
-            #}
-            ##----------------------
-
-            incr i ;#must incr here because we do'returns'inside the loop
-            if {$c eq "\\"} {
-                if {$slash_active} {
-                    append buffer "\\"
-                    set slash_active 0
-                } elseif {$unicode2_active} {
-                    error "unescape_string. unexpected case slash during unicode2 not yet handled"
-                } elseif {$unicode4_active} {
-                    error "unescape_string. unexpected case slash during unicode4 not yet handled"
-                } elseif {$unicode8_active} {
-                    error "unescape_string. unexpected case slash during unicode8 not yet handled"
-                } else {
-                    # don't output anything (yet)
-                    set slash_active 1
-                }
-            } else {
-                if {$unicode2_active} {
-                    if {[tcl::string::length $buffer2] < 2} {
-                        append buffer2 $c
-                    }
-                    if {[tcl::string::length $buffer2] == 2} {
-                        #we have a \xHH to test
-                        set unicode2_active 0
-                        set result [tomlish::utils::hex_escape_info "\\x$buffer2"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$unicode4_active} {
-                    if {[tcl::string::length $buffer4] < 4} {
-                        append buffer4 $c
-                    }
-                    if {[tcl::string::length $buffer4] == 4} {
-                        #we have a \uHHHH to test
-                        set unicode4_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\u$buffer4"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$unicode8_active} {
-                    if {[tcl::string::length $buffer8] < 8} {
-                        append buffer8 $c
-                    }
-                    if {[tcl::string::length $buffer8] == 8} {
-                        #we have a \UHHHHHHHH to test
-                        set unicode8_active 0
-                        set result [tomlish::utils::unicode_escape_info "\\U$buffer8"]
-                        if {[lindex $result 0] eq "ok"} {
-                            append buffer [dict get $result ok char]
-                        } else {
-                            error "unescape_string error: [lindex $result 1]"
-                        }
-                    }
-                } elseif {$slash_active} {
-                    set slash_active 0
-                    set ctest [tcl::string::map {{"} dq} $c]
-                    switch -exact -- $ctest {
-                        dq {
-                            append buffer {"}
-                        }
-                        b - t - n - f - r {
-                            append buffer [subst -nocommand -novariable "\\$c"]
-                        }
-                        e {
-                            append buffer \x1b
-                        }
-                        x {
-                            #introduced in 1.1.0 \xHH
-                            set unicode2_active 1
-                            set buffer2 ""
-                        }
-                        u {
-                            set unicode4_active 1
-                            set buffer4 ""
-                        }
-                        U {
-                            set unicode8_active 1
-                            set buffer8 ""
-                        }
-                        default {
-                            set slash_active 0
-                            #review - toml spec says all other escapes are reserved
-                            #and if they are used TOML should produce an error.
-                            #append buffer "\\$c"
-                            set msg "Invalid escape sequence \\ followed by '$c'"
-                            return -code error -errorcode {TOMLISH SYNTAX INVALIDESCAPE} $msg
-                        }
-                    }
-                } else {
-                    append buffer $c
-                }
-            }
-        }
-        #puts stdout "EOF 4:$unicode4_active 8:$unicode8_active slash:$slash_active"
-        if {$unicode2_active} {
-            error "End of string reached before complete hex escape sequence \xHH"
-        }
-        if {$unicode4_active} {
-            error "End of string reached before complete unicode escape sequence \uHHHH"
-        }
-        if {$unicode8_active} {
-            error "End of string reached before complete unicode escape sequence \UHHHHHHHH"
-        }
-        if {$slash_active} {
-            append buffer "\\"
-        }
-        try {
-            encoding convertto utf-8 $buffer
-        } trap {} {emsg eopts} {
-            return -code error -errorcode {TOMLISH SYNTAX ENCODINGERROR} $emsg
-        }
-        return $buffer
-    }
-
-    #This does not have to do with unicode normal forms - which it seems toml has decided against regarding use in keys (review/references?)
-    #This is meant for internal use regarding ensuring we match equivalent keys which may have just been specified with different string mechanisms,
-    #e.g squoted vs dquoted vs barekey.
-    proc normalize_key {rawkey} {
-        set c1 [tcl::string::index $rawkey 0]
-        set c2 [tcl::string::index $rawkey end]
-        if {($c1 eq "'") && ($c2 eq "'")} {
-            #single quoted segment. No escapes allowed within it.
-            set key [tcl::string::range $rawkey 1 end-1]
-        } elseif {($c1 eq "\"") && ($c2 eq "\"")} {
-            #double quoted segment. Unapply escapes.
-            #
-            set keydata [tcl::string::range $rawkey 1 end-1] ;#strip outer quotes only
-            #e.g key could have mix of \UXXXXXXXX escapes and unicode chars
-            #or mix of \t and literal tabs.
-            #unescape to convert all to literal versions for comparison
-            set key [::tomlish::utils::unescape_string $keydata]
-            #set key [subst -nocommands -novariables $keydata] ;#wrong. Todo - create a string escape substitution function.
-        } else {
-            set key $rawkey
-        }
-        return $key
-    }
-
-    proc string_to_slashu {string} {
-        set rv {}
-        foreach c [split $string {}] {
-            scan $c %c cdec
-            if {$cdec > 65535} {
-                append rv {\U} [format %.8X $cdec]
-            } else {
-                append rv {\u} [format %.4X $cdec]
-            }
-        }
-        return $rv
-    }
-
-    #'nonprintable' is conservative here because some systems (e.g windows console) are very limited in what they can display.
-    #This is used for display purposes only (error msgs)
-    proc nonprintable_to_slashu {s} {
-        set res ""
-        foreach i [split $s ""] {
-            scan $i %c cdec
-
-            set printable 0
-            if {($cdec>31) && ($cdec<127)} {
-                set printable 1
-            }
-            if {$printable} {
-                append res $i
-            } else {
-                if {$cdec > 65535} {
-                    append res \\U[format %.8X $cdec]
-                } else {
-                    append res \\u[format %.4X $cdec]
-                }
-            }
-        }
-        set res
-    } ;# initial version from tcl wiki RS
-
-    proc rawstring_to_jsonstring {s} {
-        #like nonprintable_to_slashu
-        # - also escape every dquote
-        # - escape newlines
-        set res ""
-        foreach i [split $s ""] {
-            scan $i %c cdec
-            switch -- $cdec {
-                34 {
-                    #double quote
-                    append res \\\"
-                }
-                13 {
-                    #carriage return
-                    append res \\r
-                }
-                8 {
-                    append res \\b
-                }
-                9 {
-                    append res \\t
-                }
-                10 {
-                    #linefeed
-                    append res \\n
-                }
-                92 {
-                    append res \\\\
-                }
-                default {
-                    set printable 0
-                    if {($cdec>31) && ($cdec<127)} {
-                        set printable 1
-                    }
-                    if {$printable} {
-                        append res $i
-                    } else {
-                        if {$cdec > 65535} {
-                            #append res $i
-                            #append res \\U[format %.8X $cdec] ;#wrong
-                            #append res "\\U{[format %.8x $cdec]}" ;#some variation of json?
-                            package require punk::cesu
-                            #e.g \U0001f610 emoticon face
-                            #surrogate pair: \uD83D\uDE10
-                            set surrogatepair [punk::cesu::to_surrogatestring -format escape $i]
-                            append res $surrogatepair
-                        } else {
-                            append res \\u[format %.4X $cdec]
-                        }
-                    }
-                }
-            }
-        }
-        set res
-
-    }
-
-    #check if str is valid for use as a toml bare key
-    #Early toml versions only allowed letters + underscore + dash
-    proc is_basic_barekey {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        } else {
-            set matches [regexp -all {[a-zA-Z0-9\_\-]} $str]
-            if {[tcl::string::length $str] == $matches} {
-                #all characters match the regexp
-                return 1
-            } else {
-                return 0
-            }
-        }
-    }
-
-    #from toml.abnf in github.com/toml-lang/toml
-    #unquoted-key = 1*unquoted-key-char
-    #unquoted-key-char = ALPHA / DIGIT / %x2D / %x5F         ; a-z A-Z 0-9 - _
-    #unquoted-key-char =/ %xB2 / %xB3 / %xB9 / %xBC-BE       ; superscript digits, fractions
-    #unquoted-key-char =/ %xC0-D6 / %xD8-F6 / %xF8-37D       ; non-symbol chars in Latin block
-    #unquoted-key-char =/ %x37F-1FFF                         ; exclude GREEK QUESTION MARK, which is basically a semi-colon
-    #unquoted-key-char =/ %x200C-200D / %x203F-2040          ; from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    #unquoted-key-char =/ %x2070-218F / %x2460-24FF          ; include super-/subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    #unquoted-key-char =/ %x2C00-2FEF / %x3001-D7FF          ; skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    #unquoted-key-char =/ %x2070-21FF / %x2300-24FF          ; skip math operators
-    #unquoted-key-char =/ %x25A0-268B / %x2690-2757          ; skip box drawing, block elements, and some yin-yang symbols
-    #unquoted-key-char =/ %x2762-2767 / %x2776-27E5          ; skip some Dingbat punctuation
-    #unquoted-key-char =/ %x2801-297F                        ; skip some math brackets and arrows, and braille blank
-    #unquoted-key-char =/ %x2B00-2FFF / %x3001-D7FF          ; skip various math operators and symbols, and ideographic space
-    #unquoted-key-char =/ %xF900-FDCF / %xFDF0-FFFD          ; skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    #unquoted-key-char =/ %x10000-EFFFF                      ; all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    variable re_barekey
-    set ranges [list]
-    lappend ranges {a-zA-Z0-9\_\-}
-    lappend ranges {\u00B2} {\u00B3} {\u00B9} {\u00BC-\u00BE}       ;# superscript digits, fractions
-    lappend ranges {\u00C0-\u00D6} {\u00D8-\u00F6} {\u00F8-\u037D}  ;# non-symbol chars in Latin block
-    lappend ranges {\u037f-\u1FFF}                                  ;# exclude GREEK QUESTION MARK, which is basically a semi-colon
-    lappend ranges {\u200C-\u200D} {\u203F-\u2040}                  ;# from General Punctuation Block, include the two tie symbols and ZWNJ, ZWJ
-    lappend ranges {\u2070-\u218f} {\u2460-\u24FF}                  ;# include super-subscripts, letterlike/numberlike forms, enclosed alphanumerics
-    lappend ranges {\u2C00-\u2FEF} {\u3001-\uD7FF}                  ;# skip arrows, math, box drawing etc, skip 2FF0-3000 ideographic up/down markers and spaces
-    lappend ranges {\u2070-\u21FF} {\u2300-\u24FF}                  ;# skip math operators
-    lappend ranges {\u25A0-\u268B} {\u2690-\u2757}                  ;# skip box drawing, block elements, and some yin-yang symbols
-    lappend ranges {\u2762-\u2767} {\u2776-\u27E5}                  ;# skip some Dingbat punctuation
-    lappend ranges {\u2801-\u297F}                                  ;# skip some math brackets and arrows, and braille blank
-    lappend ranges {\u2B00-\u2FFF} {\u3001-\uD7FF}                  ;# skip various math operators and symbols, and ideographic space
-    lappend ranges {\uF900-\uFDCF} {\uFDF0-\uFFFD}                  ;# skip D800-DFFF surrogate block, E000-F8FF Private Use area, FDD0-FDEF intended for process-internal use (unicode)
-    lappend ranges {\U10000-\UEFFFF}                                ;# all chars outside BMP range, excluding Private Use planes (F0000-10FFFF)
-    set re_barekey {^[}
-    foreach r $ranges {
-        append re_barekey $r
-    }
-    append re_barekey {]+$}
-
-    proc is_barekey {str} {
-        if {[tcl::string::length $str] == 0} {
-            return 0
-        }
-        variable re_barekey
-        return [regexp $re_barekey $str]
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'integer'.
-    proc int_validchars1 {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_\-\+]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    #add support for hex,octal,binary 0x.. 0o.. 0b...
-    proc int_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_int {str} {
-        set matches [regexp -all {[0-9\_xo\-\+A-Fa-f]} $str] ;#0b101 etc covered by a-f
-
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-
-            # ---------------------------------------
-            #check for leading zeroes in non 0x 0b 0o
-            #first strip any +, -  or _ (just for this test)
-            #(but still allowing 0 -0 +0)
-            set check [tcl::string::map {+ "" - "" _ ""} $str]
-            if {([tcl::string::length $check] > 1) && ([tcl::string::index $check 0] eq "0") && ([tcl::string::index $check 1] ni {o x b})} {
-                return 0
-            }
-            # ---------------------------------------
-
-            #check +,- only occur in the first position. (excludes also +++1 etc)
-            if {[tcl::string::last - $str] > 0} {
-                return 0
-            }
-            if {[tcl::string::last + $str] > 0} {
-                return 0
-            }
-
-            #-------------------------------------------
-            #unclear if a 'digit' includes the type specifiers x b o
-            #we assume the 0x 0b 0o are NOT counted as digits - as underscores here would seem
-            #to be likely to cause interop issues with other systems
-            #(e.g tcl allows 0b1_1 but not 0b_11)
-            #Most of this structure would be unnecessary if we could rely on string::is::integer understanding underscores (9+?)
-            #we still need to support earlier Tcl for now though.
-
-            #first rule out any case with more than one underscore in a row
-            if {[regexp {__} $str]} {
-                return 0
-            }
-            if {[string index $str 0] eq "_"} {
-                return 0
-            }
-            set utest [string trimleft $str +-]
-            #test again for further trick like _+_0xFF
-            if {[string index $utest 0] eq "_"} {
-                return 0
-            }
-            if {[string range $utest 0 1] in {0x 0b 0o}} {
-                set testnum [string range $utest 2 end]
-                #spec says *non-negative* integers may *also* be expressed in hex, octal or binary
-                #and also explicitly states + not allowed
-                #presumed to mean negative not allowed.
-                if {[string index $str 0] in {- +}} {
-                    return 0
-                }
-            } else {
-                set testnum $utest
-                #exclude also things like 0_x 0___b that snuck past our prefix test
-                if {![string is digit -strict [string map {_ ""} $testnum]]} {
-                    return 0
-                }
-                #assert - only digits and underscores in testnum
-                #still may have underscores at each end
-            }
-            #assert testnum is now the 'digits' portion of a <digits>, 0x<digits> 0b<digits> 0o<digits> number
-            #(+ and - already stripped)
-            #It may still have chars unsuitable for its type - which will be caught by the string::is::integer test below
-            if {[string length $testnum] != [string length [string trim $testnum _]]} {
-                #had non-inner underscores in 'digit' part
-                return 0
-            }
-            #assert str only has solo inner underscores (if any) between 'digits'
-            #-------------------------------------------
-
-            set numeric_value [tcl::string::map {_ ""} $str] ;#allow some earlier tcl versions which don't support underscores
-            #use Tcl's integer check to ensure we don't let things like 3e4 through - which is a float (would need to be 0x3e4 for hex)
-            if {![::tomlish::utils::string_is_integer -strict $numeric_value]} {
-                return 0
-            }
-
-
-
-            #!todo - check bounds only based on some config value
-            #even though Tcl can handle bignums, we won't accept anything outside of toml 1.0 minimum requirements by default (for now)
-            #presumably very large numbers would have to be supplied in a toml file as strings.
-            #Review - toml 1.0 only says that it must handle up to 2^63 - not that this is a max
-            #some question around implementations allowed to use lower values such as 2^31 on some systems?
-            if {$::tomlish::max_int ne "" && $numeric_value > $::tomlish::max_int} {
-                return 0
-            }
-            if {$::tomlish::min_int ne "" && $numeric_value < $::tomlish::min_int} {
-                return 0
-            }
-        } else {
-            return 0
-        }
-        #Got this far - didn't find anything wrong with it.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'float'.
-    proc float_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[eE0-9\_\-\+\.]} $str] == $numchars} {
-            return 1
-        } else {
-            #only allow lower case for these special values - as per Toml 1.0 spec
-            if {$str ni {inf +inf -inf nan +nan -nan}} {
-                return 0
-            } else {
-                return 1
-            }
-        }
-    }
-
-    #note - Tcl's string is double will return true also for the subset of float values which are integers
-    #This function is to determine whether it matches the Toml float concept - so requires a . or e or E
-    proc is_float {str} {
-        #vip greenlight known literals, don't test for case variations - as Toml doesn't allow (whereas Tcl allows Inf NaN etc)
-        if {$str in {inf +inf -inf nan +nan -nan}} {
-            return 1
-        }
-        #doorcheck the basics for floatiness vs members of that rival gang - ints
-        if {![regexp {[.eE]} $str]} {
-            #could  be an integer - which isn't specifically a float for Toml purposes.
-            return 0
-        }
-
-
-        #patdown for any contraband chars
-        set matches [regexp -all {[eE0-9\_\-\+\.]} $str]
-        if {[tcl::string::length $str] != $matches} {
-            return 0
-        }
-
-        #all characters in legal range
-
-        #A leading zero is ok, but we should disallow multiple leading zeroes (same rules as toml ints)
-
-        #Early Toml spec also disallowed leading zeros in the exponent part(?)
-        #... this seems less interoperable anyway (some libraries generate leading zeroes in exponents)
-        #we allow leading zeros in exponents here.
-
-        #Check for leading zeros in main part
-        #first strip any +, -  or _ (just for this test)
-        set check [tcl::string::map {+ "" - "" _ ""} $str]
-        set r {([0-9])*}
-        regexp $r $check intpart  ;#intpart holds all numerals before the first .,e or E
-        #leading zero only if exactly one zero
-        if {$intpart ne "0" && [string match 0* $intpart]} {
-            return 0
-        }
-
-        #for floats, +,- may occur in multiple places
-        #e.g -2E-22   +3e34
-        #!todo - check bounds ?
-
-        #-----------------------------------------
-        if {[regexp {__} $str]} {
-            return 0
-        }
-        if {[string index $str 0] eq "_" || [string index $str end] eq "_"} {
-            return 0
-        }
-        set utest [string trimleft $str +-]
-        #test again for further trick like _+_
-        if {[string index $utest 0] eq "_"} {
-            return 0
-        }
-        #-----------------------------------------
-
-        #decimal point, if used must be surrounded by at least one digit on each side
-        #e.g 3.e+20   also illegal
-        set dposn [string first . $str]
-        if {$dposn > -1 } {
-            set d3 [string range $str $dposn-1 $dposn+1]
-            if {![::tomlish::utils::string_is_integer -strict [string index $d3 0]] || ![::tomlish::utils::string_is_integer -strict [string index $d3 2]]} {
-                return 0
-            }
-        }
-        #we've already eliminated leading/trailing underscores
-        #now ensure each inner underscore is surrounded by digits
-        if {[regexp {_[^0-9]|[^0-9]_} $str]} {
-            return 0
-        }
-
-        #strip underscores for tcl double check so we can support < tcl 9 versions which didn't allow underscores
-        set check [tcl::string::map {_ ""} $str]
-        #string is double accepts inf nan +NaN etc.
-        if {![tcl::string::is double $check]} {
-            return 0
-        }
-
-        #All good - seems to be a toml-approved float and not an int.
-        return 1
-    }
-
-    #test only that the characters in str are valid for the toml specified type 'datetime'.
-    proc datetime_validchars {str} {
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[zZtT0-9\-\+\.:]} $str] == $numchars} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-
-    #allow only hh:mm:ss or hh:mm (no subseconds)
-    #return 2 when missing seconds
-    proc _is_hms_or_hm_time {val} {
-        set numchars [tcl::string::length $val]
-        if {[regexp -all {[0-9:]} $val] != $numchars} {
-           return 0
-        }
-        #assert now digits and colons only
-        set hms_cparts [split $val :]
-        #2 or 3 parts only are valid - check contents of each part
-        if {[llength $hms_cparts] == 2} {
-            lassign $hms_cparts hr min
-            if {[string length $hr] != 2 || [string length $min] != 2} {
-                return 0
-            }
-            if {$hr > 23 || $min > 59} {
-                return 0
-            }
-            return 2 ;#missing seconds indicator (can still be used as boolean for true in tcl if we don't care whether hh::mm::ss or hh:mm
-        } elseif {[llength $hms_cparts] == 3} {
-            lassign $hms_cparts hr min sec
-            if {[string length $hr] != 2 || [string length $min] != 2 || [string length $sec] !=2} {
-                return 0
-            }
-            #possible for sec to be 60 - leap second RFC 3339
-            if {$hr > 23 || $min > 59 || $sec > 60} {
-                return 0
-            }
-            return 1
-        } else {
-            return 0
-        }
-    }
-    proc is_timepart {str} {
-        #validate the part after the T (or space)
-        #we receive only that trailing part here.
-
-        #odt1 = 1979-05-27T07:32:00Z
-        #odt2 = 1979-05-27T00:32:00-07:00
-        #odt3 = 1979-05-27T00:32:00.5-07:00
-        #odt4 = 1979-05-27T00:32:00.999999-07:00
-
-        set numchars [tcl::string::length $str]
-        #timepart can have negative or positive offsets so - and + must be accepted
-        if {[regexp -all {[zZt0-9\-\+\.:]} $str] == $numchars} {
-            #todo
-            #basic check that we have leading 2dig hr and 2dig min separated by colon
-            if {![regexp {^[0-9]{2}:[0-9]{2}$|^[0-9]{2}:[0-9]{2}[^0-9]{1}.*$} $str]} {
-                #nn:nn or nn:nnX.*  where X is non digit
-                return 0
-            }
-            set dotparts [split $str .]
-            if {[llength $dotparts] ni {1 2}} {
-                return 0
-            }
-            if {[llength $dotparts] == 2} {
-                lassign $dotparts hms tail
-                if {[_is_hms_or_hm_time $hms] == 2} {
-                    #If we have a dot - assume hh::mm::ss required
-                    #toml spec is unclear on this but hh:mm.<fraction> doesn't seem sensible - REVIEW
-                    return 0
-                }
-                #validate tail - which might have +- offset
-                if {[string index $tail end] ni {z Z}} {
-                    #from hh:mm:??.<tail>
-                    #check for +/- something
-                    if {[regexp {(.*)[+-](.*)} $tail _match fraction offset]} {
-                        if {![string is digit -strict $fraction]} {
-                            return 0
-                        }
-                        if {[_is_hms_or_hm_time $offset] != 2} {
-                            #RFC3339 indicates offset can be specified as hh:mm  or Z - not hh:mm:ss
-                            return 0
-                        }
-                    } else {
-                        #tail has no +/-, only valid if fraction digits
-                        #toml-test invalid/datetime/second-trailing-dot
-                        if {![string is digit -strict $tail]} {
-                            return 0
-                        }
-                    }
-                } else {
-                    set tail [string range $tail 0 end-1]
-                    #expect tail nnnn (from hh:mm::ss.nnnnZ)
-                    #had a dot and a zZ
-                    if {![string is digit -strict $tail]} {
-                        return 0
-                    }
-                }
-
-            } else {
-                #no dot (fraction of second)
-                if {[regexp {(.*)[+-](.*)} $str _match hms offset]} {
-                    #validate offset
-                    #offset of +Z or -Z not valid
-                    if {[_is_hms_or_hm_time $offset] != 2} {
-                        #offset is not of required form hh:mm
-                        return 0
-                    }
-                } else {
-                    set hms $str
-                    set offset ""
-                    #trim a *single* z or Z off hms if present - multiple should error later
-                    if {[string index $hms end] in {z Z}} {
-                        set hms [string range $hms 0 end-1]
-                    }
-                }
-            }
-            #hms is allowed in toml to be hh:mm:ss or hh:mm
-            #validate we have hh:mm:ss or hh:mm - exactly 2 digits each
-            if {![_is_hms_or_hm_time $hms]} {
-                return 0
-            }
-
-            return 1
-        } else {
-            return 0
-        }
-    }
-
-    proc is_date-local {str} {
-        set matches [regexp -all {[0-9\-]} $str]
-        if {[tcl::string::length $str] != $matches} {
-            return 0
-        }
-        #seems to require yyyy-mm-dd (e.g not allowing just yyyy-mm)
-        if {![regexp {^([0-9]{4})-([0-9]{2})-([0-9]{2})$} $str _match y m d]} {
-            return 0
-        }
-        if {$m > 12 || $m == 0} {
-            return 0
-        }
-        switch -- [expr {$m}] {
-            1 - 3 - 5 - 7 - 8 - 10 - 12 {
-                if {$d > 31 || $d == 0} {
-                    return 0
-                }
-            }
-            2 {
-                if {$d > 29 || $d == 0} {
-                    return 0
-                }
-                if {$d == 29} {
-                    #leapyear check
-                    if {[catch {clock scan $str -format %Y-%m-%d} errM]} {
-                        return 0
-                    }
-                }
-            }
-            4 - 6 - 9 - 11 {
-                if {$d > 30 || $d == 0} {
-                    return 0
-                }
-            }
-        }
-        return 1
-    }
-    proc is_time-local {str} {
-        #time of day without any relation to a specific day or any offset or timezone
-        set numchars [tcl::string::length $str]
-        if {[regexp -all {[0-9\.:]} $str] == $numchars} {
-            #todo
-            if {![regexp {^[0-9]{2}:[0-9]{2}$|^[0-9]{2}:[0-9]{2}:[0-9]{2}([.][0-9]+){0,1}$} $str]} {
-                #hh:mm or hh:mm:ss or hh:mm::ss.nnn
-                return 0
-            }
-            set dotparts [split $str .]
-            if {[llength $dotparts] ni {1 2}} {
-                return 0
-            }
-            if {[llength $dotparts] == 2} {
-                lassign $dotparts hms _tail
-                #validate tail - just fractional seconds - regex has confirmed at least one digit and only digits
-                #nothing todo? max length?
-            } else {
-                #no fractional seconds
-                set hms $str
-            }
-            if {![_is_hms_or_hm_time $hms]} {
-                return 0
-            }
-            return 1
-        } else {
-            return 0
-        }
-    }
-    proc is_datetime-local {str} {
-        set norm [string map {" " T} $str]
-        lassign [split $norm T] dp tp
-        if {$dp eq "" || $tp eq ""} {return 0}
-        if {![is_date-local $dp]} {return 0}
-        if {![is_timepart $tp]} {return 0}
-        if {![is_time-local $tp]} {return 0}
-        return 1
-    }
-    proc is_datetime {str} {
-        set norm [string map {" " T} $str]
-        lassign [split $norm T] dp tp
-        if {$dp eq "" || $tp eq ""} {return 0}
-        if {![is_date-local $dp]} {return 0}
-        if {![is_timepart $tp]} {return 0}
-        if {[is_time-local $tp]} {return 0}
-        return 1
-    }
-    #review
-    proc is_date_or_time_or_datetime {str} {
-        #Essentially RFC3339 formatted date-time - but:
-        #1) allowing seconds to be omitted (:00 assumed)
-        #2) T may be replaced with a single space character TODO - parser support for space in datetime!
-        #   (RFC 3339 allows space instead of T also - but doesn't specify it *must* be a single space)
-
-        #toml-lint @2025-04 doesn't accept t for T or z for Z - but RFC3339 does
-        #toml spec doesn't clarify - we will accept
-
-        #e.g 1979-05-27
-        #e.g 1979-05-27T00:32:00Z
-        #e.g 1979-05-27 00:32:00-07:00
-        #e.g 1979-05-27 00:32:00+10:00
-        #e.g 1979-05-27 00:32:00.999999-07:00
-
-        #review
-        #minimal datetimes?
-        # 2024 not ok   -  2024T not accepted by tomlint why?
-        # 02:00 ok
-        # 02:00:00.5 ok
-        # 1:00  - not ok - RFC3339 requires 2-digit hr,min,sec
-
-        #toml-lint.com accepts 2025-01
-
-        if {[string length $str] < 5} {
-            return 0
-        }
-
-        set matches [regexp -all {[zZtT0-9\ \-\+\.:]} $str]
-        if {[tcl::string::length $str] == $matches} {
-            #all characters in legal range
-            if {[regexp -all {\ } $str] > 1} {
-                #only a single space is allowed.
-                return 0
-            }
-            #If we get a space - it is only valid as a convience to represent the T separator
-            #we can normalize by converting to T here before more tests
-            set str [string map {" " T t T} $str]
-            #a further sanity check on T
-            if {[regexp -all {T} $str] > 1} {
-                return 0
-            }
-
-            #!todo - use full RFC 3339 parser?
-            #!todo - what if the value is 'time only'?
-
-            if {[string first T $str] > -1} {
-                lassign [split $str T] datepart timepart
-                if {![is_date-local $datepart]} {
-                    return 0
-                }
-                if {![is_timepart $timepart]} {
-                    return 0
-                }
-            } else {
-                #either a datepart or a localtime
-                #spec: "If you include only the time portion of an RFC 3339 formatted date-time, it will represent that time of day
-                # without any relation to a specific day or any offset or timezone."
-                if {!([is_date-local $str] || [is_time-local $str])} {
-                    return 0
-                }
-            }
-
-
-            #Tcl's free-form clock scan (no -format option) is deprecated
-            #
-            #if {[catch {clock scan $datepart} err]} {
-            #    puts stderr "tcl clock scan failed err:'$err'"
-            #    return 0
-            #}
-
-        } else {
-            return 0
-        }
-        return 1
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::utils ---}]
-}
-
-namespace eval tomlish::parse {
-    #*** !doctools
-    #[subsection {Namespace tomlish::parse}]
-    #[para]
-    #[list_begin definitions]
-
-    #This is a somewhat curly mix of a statemachine and toml-nesting-stack littered with special cases.
-    #The code is a pig's-nest - but it should be noted that for example trailing single double quotes in multiline strings are perhaps not so trivial to parse using more standard methods either:
-    # - e.g some kind of backtracking required if using an ABNF parser?
-    #I don't know the precise technical name for this sort of parser; probably something like "Dog's Breakfast"
-    #More seriously, we don't have distinct lex/parse steps - so it is basically a 'fused lexer' or 'scannerless parser'
-
-    #It is also desirable for this system to be useful in 'interactive' use. review - would a separate lexer make this easier or harder?
-
-    #A possible alternative more structured approach might be to use a PEG (Parsing Expression Grammar)
-
-
-    variable is_parsing 0  ;#whether we are in the middle of parsing tomlish text
-
-    variable state
-    # states:
-    # table-space, itable-space, array-space
-    # array-value-expected,keyval-value-expected,itable-keyval-value-expected, keyval-syntax,
-    # dquoted-key, squoted-key
-    # string-state, literal-state, multistring...
-    #
-    # notes:
-    # only the -space states are also 'spaces' ie a container which is pushed/popped on the spacestack
-
-    #
-    # xxx_value-expected  - we also allow for leading whitespace in this state, but once a value is returned we jump to a state based on the containing space. e.g keyval-tail or array-syntax
-    #
-    #stateMatrix defines for each state, actions to take for each possible token.
-    #single-element actions are the name of the next state into which to transition, or a 'POPSPACE' instruction to pop a level off the spacestack and add the data to the parent container.
-    #dual-element actions are a push instruction and the name of the space to push on the stack.
-    # - PUSHSPACE is a simple push onto the spacestack, zeropoppushspace also pushes, but will first do a pop *if* the current space level is greater than zero (ie if only if not already in root table-space)
-
-    # -- --- --- --- --- ---
-    #token/state naming guide
-    # -- --- --- --- --- ---
-    #tokens        :  underscore separated or bare name e.g newline,  start_quote, start_squote
-    #private tokens:  always have a leading underscore (These are private 'temporary state' tokens that are never returned as actual tokens e.g _start_squote_sequence
-    #states        :  always contain at least one dash e.g err-state, table-space
-    #instructions
-    # -- --- --- --- --- ---
-
-
-    #stateMatrix dict of elements mapping current state to next state based on returned tokens
-    # current-state {token-encountered next-state ... }
-    # where next-state can be a 1 or 2 element list.
-    #If 2 element - the first item is an instruction (ucase)
-    #If 1 element - it is either a lowercase dashed state name or an ucase instruction
-    #e.g {PUSHSPACE <state-space>} or POPSPACE or SAMESPACE
-
-
-    #SAMESPACE - got to same space as parent without popping a level, but has it's own autotransition lookup -  strange concept - review usecases
-
-    variable stateMatrix
-    set stateMatrix [dict create]
-    #---------------------------------------------------------
-    #WARNING
-    #The stateMatrix implementation here is currently messy.
-    #The code is a mixture of declarative via the stateMatrix and imperative via switch statements during PUSH/POP/SAMESPACE transitions.
-    #This means the state behaviour has to be reasoned about by looking at both in conjuction.
-    #---------------------------------------------------------
-
-    #xxx-space vs xxx-syntax inadequately documented - TODO
-
-    #review - out of date?
-    # --------------------------------------------------------------------------------------------------------------#
-    #  incomplete example of some state starting at table-space
-    # --------------------------------------------------------------------------------------------------------------#
-    #                                                      ( = -> keyval-value-expected)
-    #                                       keyval-syntax                         (popped -> keyval-space -> keyval-tail) (autotransition on pop)
-    #                keyval-space (autotransition on push ^)
-    # table-space (barekey^) (startdquote -> dquoted-key ^)
-    # --------------------------------------------------------------------------------------------------------------#
-
-    dict set stateMatrix\
-        table-space       {
-            bom                 "table-space"\
-            whitespace          "table-space"\
-            newline             "table-space"\
-            barekey             {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            squotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax" note ""}\
-            dquotedkey          {PUSHSPACE "keyval-space" state "keyval-syntax"}\
-            XXXsingle_dquote    "quoted-key"\
-            XXXsingle_squote    "squoted-key"\
-            comment             "table-space"\
-            starttablename      "tablename-state"\
-            starttablearrayname "tablearrayname-state"\
-            enddquote           "err-state"\
-            endsquote           "err-state"\
-            comma               "err-state"\
-            eof                 "end-state"\
-            equal               "err-state"\
-            cr                  "err-lonecr"\
-        }
-
-
-
-    dict set stateMatrix\
-        keyval-space    {\
-            whitespace          "keyval-syntax"\
-            equal               "keyval-value-expected"\
-        }
-
-    # '  =   ' portion of keyval
-    dict set stateMatrix\
-        keyval-syntax   {\
-            whitespace          "keyval-syntax"\
-            barekey             {PUSHSPACE "dottedkey-space"}\
-            squotedkey          {PUSHSPACE "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE "dottedkey-space"}\
-            equal               "keyval-value-expected"\
-            comma               "err-state"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    ####
-    dict set stateMatrix\
-        keyval-value-expected {\
-            whitespace          "keyval-value-expected"\
-            untyped_value       {TOSTATE        "keyval-untyped-sequence"                                       note "possible datetime datepart"}\
-            literal             {TOSTATE        "keyval-tail"                                       note "required for empty literal at EOF"}\
-            string              {TOSTATE        "keyval-tail"                                       note "required for empty string at EOF"}\
-            single_dquote       {TOSTATE        "string-state"          returnstate keyval-tail}\
-            triple_dquote       {PUSHSPACE      "multistring-space"     returnstate keyval-tail}\
-            single_squote       {TOSTATE        "literal-state"         returnstate keyval-tail     note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE      "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE      itable-space            returnstate keyval-tail}\
-            startarray          {PUSHSPACE      array-space             returnstate keyval-tail}\
-        }
-            #double_squote       {TOSTATE    "keyval-tail"                       note "empty literal received when double squote occurs"}
-
-    #untyped_value sequences without intervening comma are allowed for datepart timepart
-    #we will produce tomlish with missing SEPS and to_dict must validate whether 2 adjacent barekeys are valid
-    dict set stateMatrix\
-        keyval-untyped-sequence {\
-            whitespace          "keyval-untyped-sequence"\
-            untyped_value       {TOSTATE        "keyval-tail"}\
-            literal             {TOSTATE        "keyval-tail"                                       note "required for empty literal at EOF"}\
-            string              {TOSTATE        "keyval-tail"                                       note "required for empty string at EOF"}\
-            single_dquote       {TOSTATE        "string-state"          returnstate keyval-tail}\
-            triple_dquote       {PUSHSPACE      "multistring-space"     returnstate keyval-tail}\
-            single_squote       {TOSTATE        "literal-state"         returnstate keyval-tail     note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE      "multiliteral-space"    returnstate keyval-tail}\
-            startinlinetable    {PUSHSPACE      itable-space            returnstate keyval-tail}\
-            startarray          {PUSHSPACE      array-space             returnstate keyval-tail}\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-    #2025 - no leading-squote-space - only trailing-squote-space.
-
-    dict set stateMatrix\
-        keyval-tail     {\
-            whitespace          "keyval-tail"\
-            newline             "POPSPACE"\
-            comment             "keyval-tail"\
-            eof                 "end-state"\
-        }
-
-
-    #itable-space/ curly-syntax : itables
-    # x={<here>y=1,<here>}
-    dict set stateMatrix\
-        itable-space {\
-            whitespace          "itable-space"\
-            newline             "itable-space"\
-            barekey             {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            squotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            dquotedkey          {PUSHSPACE "itable-keyval-space" state "itable-keyval-syntax"}\
-            endinlinetable      "POPSPACE"\
-            comma               "err-state"\
-            comment             "itable-space"\
-            eof                 "err-state"\
-        }
-        #we don't get single_squote etc here - instead we get the resulting squotedkey token
-
-
-    # ??? review - something like this
-    #     <dottedkeyspace-tail><here>
-    # x={y                            =1,}
-    dict set stateMatrix\
-        itable-keyval-syntax   {\
-            whitespace          {TOSTATE    "itable-keyval-syntax"}\
-            barekey             {PUSHSPACE  "dottedkey-space"}\
-            squotedkey          {PUSHSPACE  "dottedkey-space"}\
-            dquotedkey          {PUSHSPACE  "dottedkey-space"}\
-            equal               {TOSTATE    "itable-keyval-value-expected"}\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-    # x={y<here>=1}
-    dict set stateMatrix\
-        itable-keyval-space    {\
-            whitespace          "itable-keyval-syntax"\
-            equal               {TOSTATE "itable-keyval-value-expected" note "required"}\
-        }
-
-    dict set stateMatrix\
-        itable-keyval-value-expected {\
-            whitespace          "itable-keyval-value-expected"\
-            untyped_value       {TOSTATE    "itable-val-tail"                       note ""}\
-            single_dquote       {TOSTATE    "string-state"          returnstate itable-val-tail}\
-            triple_dquote       {PUSHSPACE  "multistring-space"     returnstate itable-val-tail}\
-            single_squote       {TOSTATE    "literal-state"         returnstate itable-val-tail note "usual way a literal is triggered"}\
-            triple_squote       {PUSHSPACE  "multiliteral-space"    returnstate itable-val-tail}\
-            startinlinetable    {PUSHSPACE  "itable-space"           returnstate itable-val-tail}\
-            startarray          {PUSHSPACE  "array-space"           returnstate itable-val-tail}\
-        }
-        #double_squote not currently generated by _start_squote_sequence - '' processed as single_squote to literal-state just like 'xxx'
-        # review
-        #    double_squote       {TOSTATE    "itable-val-tail"                       note "empty literal received when double squote occurs"}
-
-
-
-    # x={y=1<here>,z="x"<here>}
-    #POPSPACE is transition from itable-keyval-space to parent itable-space
-    dict set stateMatrix\
-        itable-val-tail         {\
-            whitespace          "itable-val-tail"\
-            endinlinetable      "POPSPACE"\
-            comma               "POPSPACE"\
-            newline             {TOSTATE "itable-val-tail" note "itable-space ??"}\
-            comment             "itable-val-tail"\
-            eof                 "err-state"\
-        }
-     # XXXnewline             "POPSPACE"
-     # We shouldn't popspace on newline - as if there was no comma we need to stay in itable-val-tail
-     # This means the newline and subsequent whitespace, comments etc become part of the preceeding dottedkey record
-     #e.g
-     # x = {
-     #   j=1
-     #   #comment within dottedkey j record
-     #   ,  # comment unattached
-     #   #comment unattached
-     #   k=2 , #comment unattached
-     #   l=3 #comment within l record
-     #   , m=4
-     #   #comment associated with m record
-     #
-     #   #still associated with m record
-     # }
-     ## - This doesn't quite correspond to what a user might expect - but seems like a consistent mechanism.
-     #The awkwardness is because there is no way to put in a comment that doesn't consume a trailing comma
-     #so we cant do: j= 1 #comment for j1 ,
-     # and have the trailing comma recognised.
-     #
-     # To associate: j= 1, #comment for j1
-     # we would need some extra processing . (not popping until next key ? extra state itable-sep-tail?) REVIEW - worth doing?
-     #
-     #  The same issue occurs with multiline arrays. The most natural assumption is that a comment on same line after a comma
-     #  is 'associated' with the previous entry.
-     #
-     # These comment issues are independent of the data dictionary being generated for conversion to json etc - as the comments don't carry through anyway,
-     # but are a potential oddity for manipulating the intermediate tomlish structure whilst attempting to preserve 'associated' comments
-     # (e.g reordering records within an itable)
-     #The user's intention for 'associated' isn't always clear and the specs don't really guide on this.
-
-
-    #dottedkey-space is not (currently) used within [tablename] or [[tablearrayname]]
-    #it is for keyval ie  x.y.z = value
-
-    #this is the state after dot
-    #we are expecting a complete key token or whitespace
-    #(initial entry to the space is by one of the keys - which will immediately go to dottedkey-space-tail)
-    dict set stateMatrix\
-        dottedkey-space {\
-            whitespace          "dottedkey-space"\
-            dotsep              "err-state"\
-            barekey             "dottedkey-space-tail"\
-            squotedkey          "dottedkey-space-tail"\
-            dquotedkey          "dottedkey-space-tail"\
-            newline             "err-state"\
-            comma               "err-state"\
-            comment             "err-state"\
-            equal               "err-state"\
-        }
-
-            #dottedkeyend        "POPSPACE"
-            #equal               "POPSPACE"\
-
-
-    #jmn 2025
-    #we have 1 or more dottedkeys so far - need dotsep to add more, whitespace to maintain, equal to pop
-    dict set stateMatrix\
-        dottedkey-space-tail {\
-            whitespace          "dottedkey-space-tail"
-            dotsep              "dottedkey-space"
-            equal               "POPSPACE"\
-            eof                 "err-state"\
-            newline             "err-state"\
-        }
-
-    #--------------------------------------------------------------------------
-    #scratch area
-    #from_toml {x=1}
-    # barekey tok <x>
-    # table-space PUSHSPACE keyval-space state keyval-syntax
-    #
-
-
-    #--------------------------------------------------------------------------
-
-
-    #REVIEW
-    #toml spec looks like heading towards allowing newlines within inline tables
-    #https://github.com/toml-lang/toml/issues/781
-
-    #2025 - multiline itables appear to be valid for 1.1 - which we are targeting.
-    #https://github.com/toml-lang/toml/blob/main/toml.md#inline-table
-
-    #JMN2025
-        #review comment "err-state" vs comment "itable-space" - see if TOML 1.1 comes out and allows comments in multiline ITABLES
-        #We currently allow multiline ITABLES  (also with comments) in the tokenizer.
-        #if we want to disallow as per TOML 1.0 - we should do so when attempting to get structure?
-
-
-    #JMN REVIEW
-    #dict set stateMatrix\
-    #    array-space     {\
-    #        whitespace          "array-space"\
-    #        newline             "array-space"\
-    #        untyped_value       "SAMESPACE"\
-    #        startarray          {PUSHSPACE "array-space"}\
-    #        endarray            "POPSPACE"\
-    #        startinlinetable    {PUSHSPACE itable-space}\
-    #        single_dquote         "string-state"\
-    #        single_squote         "literal-state"\
-    #        triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax  note "seems ok 2024"}\
-    #        comma               "array-space"\
-    #        comment             "array-space"\
-    #        eof                 "err-state-array-space-got-eof"\
-    #    }
-
-    ## array-space ##
-    set aspace [dict create]
-    dict set aspace whitespace          "array-space"
-    dict set aspace newline             "array-space"
-    #dict set aspace untyped_value       "SAMESPACE"
-    dict set aspace untyped_value       "array-syntax"
-    dict set aspace startarray          {PUSHSPACE "array-space"}
-    dict set aspace endarray            "POPSPACE"
-    dict set aspace single_dquote       {TOSTATE "string-state" returnstate array-syntax}
-    dict set aspace triple_dquote       {PUSHSPACE  "multistring-space" returnstate array-syntax}
-    dict set aspace single_squote       {TOSTATE "literal-state" returnstate array-syntax}
-    dict set aspace triple_squote       {PUSHSPACE  "multiliteral-space" returnstate array-syntax}
-    dict set aspace startinlinetable    {PUSHSPACE itable-space}
-    #dict set aspace comma               "array-space"
-    dict set aspace comment             "array-space"
-    dict set aspace eof                 "err-state-array-space-got-eof"
-    dict set stateMatrix array-space $aspace
-
-    #when we pop from an inner array we get to array-syntax
-    #e.g {x=[[]<array-syntax]}
-    #when there is leading space before a value we get to array-syntax
-
-    ## array-syntax ##
-    set asyntax [dict create]
-    dict set asyntax whitespace         "array-syntax"
-    dict set asyntax newline            "array-syntax"
-    #dict set asyntax untyped_value      "SAMESPACE"
-    #dict set asyntax startarray         {PUSHSPACE array-space}
-    dict set asyntax endarray           "POPSPACE"
-    #dict set asyntax single_dquote         "string-state"
-    #dict set asyntax single_squote      "literal-state"
-    dict set asyntax comma              "array-space"
-    dict set asyntax comment            "array-syntax"
-    dict set stateMatrix array-syntax $asyntax
-
-
-
-
-    #dquotedkey is a token - dquoted-key is a state
-    dict set stateMatrix\
-        dquoted-key       {\
-            whitespace          "NA"\
-            dquotedkey          "dquoted-key"\
-            newline             "err-state"\
-        }
-    dict set stateMatrix\
-        squoted-key       {\
-            whitespace          "NA"\
-            squotedkey          "squoted-key"\
-            newline             "err-state"\
-        }
-           # endsquote           {PUSHSPACE "keyval-space"}
-
-    dict set stateMatrix\
-        string-state          {\
-            whitespace          "NA"\
-            string              "string-state"\
-            enddquote            "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-    dict set stateMatrix\
-        literal-state       {\
-            whitespace          "NA"\
-            literal             "literal-state"\
-            endsquote           "SAMESPACE"\
-            newline             "err-state"\
-            eof                 "err-state"\
-        }
-
-
-    dict set stateMatrix\
-        multistring-space {\
-            whitespace                  "multistring-space"\
-            continuation                "multistring-space"\
-            stringpart                  "multistring-space"\
-            newline                     "multistring-space"\
-            tentative_trigger_dquote     {PUSHSPACE "trailing-dquote-space" returnstate multistring-space starttok {tentative_accum_dquote {"}}}\
-            single_dquote               {TOSTATE multistring-space}\
-            double_dquote               {TOSTATE multistring-space}\
-            triple_dquote               {POPSPACE}\
-            eof                         "err-state"\
-        }
-    dict set stateMatrix\
-        trailing-dquote-space {
-            tentative_accum_dquote      "POPSPACE"
-        }
-
-
-    #only valid subparts are literalpart and newline. other whitespace etc is within literalpart
-    #todo - treat sole cr as part of literalpart but crlf and lf as newline
-    dict set stateMatrix\
-        multiliteral-space {\
-            literalpart                 "multiliteral-space"\
-            newline                     "multiliteral-space"\
-            tentative_trigger_squote    {PUSHSPACE "trailing-squote-space" returnstate multiliteral-space starttok {tentative_accum_squote "'"}}\
-            single_squote               {TOSTATE multiliteral-space     note "short tentative_accum_squote: false alarm this squote is part of data"}\
-            double_squote               {TOSTATE multiliteral-space     note "short tentative_accum_squote: can occur anywhere in the space e.g emitted at end when 5 squotes occur"}\
-            triple_squote               {POPSPACE                       note "on popping - we do any necessary concatenation of LITERALPART items due to squote processing"}\
-            eof                         "err-premature-eof-in-multiliteral-space"\
-        }
-
-    #trailing because we are looking for possible terminating ''' - but must accept '''' or ''''' and re-integrate the 1st one or 2 extra squotes
-    dict set stateMatrix\
-        trailing-squote-space {
-            tentative_accum_squote          "POPSPACE"
-        }
-
-
-    #dict set stateMatrix\
-    #    tablename-state       {\
-    #        whitespace          "NA"\
-    #        tablename           {zeropoppushspace table-space}\
-    #        tablename2          {PUSHSPACE table-space}\
-    #        endtablename        "tablename-tail"\
-    #        comma               "err-state"\
-    #        newline             "err-state"\
-    #    }
-
-    set tnamestate [dict create]
-    dict set tnamestate whitespace          "NA"
-    dict set tnamestate tablename           {zeropoppushspace table-space}
-    #dict set tnamestate tablename2          {PUSHSPACE table-space returnstate tablearrayname-tail}
-    dict set tnamestate tablename2          {PUSHSPACE table-space returnstate tablename-tail}
-    dict set tnamestate endtablename        "tablename-tail"
-    dict set tnamestate endtablearrayname    "tablearrayname-tail"
-    dict set tnamestate comma               "err-state"
-    dict set tnamestate newline             "err-state"
-    dict set stateMatrix tablename-state $tnamestate
-
-
-    #dict set stateMatrix\
-    #    tablearrayname-state  {\
-    #        whitespace          "NA"\
-    #        tablearrayname      {zeropoppushspace table-space}\
-    #        tablearrayname2     {PUSHSPACE table-space}\
-    #        endtablearray       "tablearrayname-tail"\
-    #        comma               "err-state"\
-    #        newline             "err-state"\
-    #    }
-    set tarrnamestate [dict create]
-    dict set tarrnamestate whitespace          "NA"
-    dict set tarrnamestate tablearrayname      {zeropoppushspace table-space}
-    dict set tarrnamestate tablearrayname2     {PUSHSPACE table-space}
-    dict set tarrnamestate endtablearrayname   "tablearrayname-tail"
-    dict set tarrnamestate comma               "err-state"
-    dict set tarrnamestate newline             "err-state"
-    dict set stateMatrix tablearrayname-state $tarrnamestate
-
-
-    dict set stateMatrix\
-        tablename-tail   {\
-            whitespace          "tablename-tail"\
-            newline             "table-space"\
-            comment             "tablename-tail"\
-            eof                 "end-state"\
-        }
-    #dict set stateMatrix\
-    #    tablearrayname-tail {\
-    #        whitespace          "tablearrayname-tail"\
-    #        newline             "table-space"\
-    #        comment             "tablearrayname-tail"\
-    #        eof                 "end-state"\
-    #    }
-
-
-    # [[xxx]<here>]  ???
-    set tarntail [dict create]
-    dict set tarntail whitespace          "err-state" ;#"tablearrayname-tail" ;#spec doesn't allow whitespace here
-    dict set tarntail newline             "err-state"
-    dict set tarntail comment             "err-state"
-    dict set tarntail eof                 "err-state"
-    dict set tarntail endtablename        "tablearray-tail"
-    dict set stateMatrix tablearrayname-tail $tarntail
-
-    #review - somewhat counterintuitive...?
-    #                     [(starttablearrayname)     (endtablearrayname]
-    # [(starttablename)                                                     (endtablename)]
-
-    # [[xxx]]<here> ???
-    set tartail [dict create]
-    dict set tartail whitespace         "tablearray-tail"
-    dict set tartail newline            "table-space"
-    dict set tartail comment            "tablearray-tail"
-    dict set tartail eof                "end-state"
-    dict set stateMatrix tablearray-tail $tartail
-
-
-
-
-
-
-    dict set stateMatrix\
-        end-state             {}
-
-    set knowntokens [list]
-    set knownstates [list]
-    dict for {state transitions} $stateMatrix {
-        if {$state ni $knownstates} {lappend knownstates $state}
-        dict for {tok instructions} $transitions {
-            if {$tok ni $knowntokens} {lappend knowntokens $tok}
-        }
-    }
-    dict set stateMatrix nostate {}
-    foreach tok $knowntokens {
-        dict set stateMatrix nostate $tok "err-nostate-received-token-$tok"
-    }
-
-
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #purpose - debugging?  remove?
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    #build a list of 'push triggers' from the stateMatrix
-    # ie tokens which can push a new space onto spacestack
-    set push_trigger_tokens [list]
-    tcl::dict::for {s transitions} $stateMatrix {
-        tcl::dict::for {token transition_to} $transitions {
-            set instruction [lindex $transition_to 0]
-            switch -exact -- $instruction {
-                PUSHSPACE - zeropoppushspace {
-                    if {$token ni $push_trigger_tokens} {
-                        lappend push_trigger_tokens $token
-                    }
-                }
-            }
-        }
-    }
-    ::tomlish::log::debug "push_trigger_tokens: $push_trigger_tokens"
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-
-
-    #This seems hacky... (deprecate in favour of explicit arguments to the instructions in stateMatrix?)
-    #spacePopTransitions, spacePushTransitions, spaceSameTransitions below for auto state redirections on POPSPACE,PUSHSPACE,SAMESPACE
-
-    #mainly for the -space states:
-    #redirect to another state $c based on a state transition from $whatever to $b
-    # e.g  "string {array-space array-syntax}" means when transitioning from string to array-space, jump to array-syntax instead.
-    #this is useful as we often don't know state $b. e.g when it is decided by 'POPSPACE'
-
-    #use dict set to add values so we can easily add/remove/comment lines
-
-    #Push to, next
-    #default first states when we push to these spaces
-    variable spacePushTransitions [dict create]
-    dict set spacePushTransitions keyval-space            keyval-syntax
-    dict set spacePushTransitions itable-keyval-space     itable-keyval-syntax
-    dict set spacePushTransitions array-space             array-space
-    dict set spacePushTransitions table-space             tablename-state
-    #dict set spacePushTransitions #itable-space             itable-space
-
-    #Pop to, next
-    variable spacePopTransitions [dict create]
-    dict set spacePopTransitions array-space    array-syntax
-
-
-        #itable-keyval-space     itable-val-tail
-    #review
-    #we pop to keyval-space from dottedkey-space or from keyval-value-expected? we don't always want to go to keyval-tail
-    #leave it out and make the POPSPACE caller explicitly specify it
-    #keyval-space        keyval-tail
-
-    variable spaceSameTransitions [dict create]
-    #JMN test
-    #dict set spaceSameTransitions array-space   array-syntax
-
-        #itable-keyval-space     itable-val-tail
-
-
-    variable state_list ;#reset every tomlish::decode::toml
-
-    namespace export tomlish toml
-    namespace ensemble create
-
-    #goNextState has various side-effects e.g pushes and pops spacestack
-    #REVIEW - setting nest and v elements here is ugly
-    #todo - make neater, more single-purpose?
-    proc goNextState {tokentype tok currentstate} {
-        variable state
-        variable nest
-        variable v
-
-        set prevstate $currentstate
-
-
-        variable spacePopTransitions
-        variable spacePushTransitions
-        variable spaceSameTransitions
-
-        variable last_space_action      "none"
-        variable last_space_type        "none"
-        variable state_list
-
-        set result ""
-        set starttok ""
-
-        if {[dict exists $::tomlish::parse::stateMatrix $currentstate $tokentype]} {
-            set transition_to [dict get $::tomlish::parse::stateMatrix $currentstate $tokentype]
-            ::tomlish::log::debug "--->> goNextState tokentype:$tokentype tok:$tok currentstate:$currentstate  :  transition_to = $transition_to"
-            switch -exact -- [lindex $transition_to 0] {
-                POPSPACE {
-                    set popfromspace_info [spacestack peek]
-                    set popfromspace_state [dict get $popfromspace_info state]
-                    spacestack pop
-                    set parent_info [spacestack peek]
-                    set type [dict get $parent_info type]
-                    set parentspace [dict get $parent_info state]
-
-                    set last_space_action "pop"
-                    set last_space_type $type
-
-                    if {[dict exists $parent_info returnstate]} {
-                        set next [dict get $parent_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace redirected to stored returnstate $next <<---"
-                    } else {
-                        ###
-                        #review - do away with spacePopTransitions - which although useful to provide a default..
-                        # - involve error-prone configurations distant to the main state transition configuration in stateMatrix
-                        if {[dict exists $::tomlish::parse::spacePopTransitions $parentspace]} {
-                            set next [dict get $::tomlish::parse::spacePopTransitions $parentspace]
-                            ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace redirected state to $next (spacePopTransitions)<<---"
-                        } else {
-                            set next $parentspace
-                            ::tomlish::log::info "--->> POPSPACE transition from $popfromspace_state to parent space $parentspace<<---"
-                        }
-                    }
-                    set result $next
-                }
-                SAMESPACE {
-                    set currentspace_info [spacestack peek]
-                    ::tomlish::log::debug       "--->> SAMESPACE got current space entry: $currentspace_info <<<<<"
-                    set type         [dict get $currentspace_info type]
-                    set currentspace [dict get $currentspace_info state]
-
-                    if {[dict exists $currentspace_info returnstate]} {
-                        set next [dict get $currentspace_info returnstate]
-                        #clear the returnstate on current level
-                        set existing [spacestack pop]
-                        dict unset existing returnstate
-                        spacestack push $existing ;#re-push modification
-                        ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace redirected to stored returnstate $next"
-                    } else {
-                        if {[dict exists $::tomlish::parse::spaceSameTransitions $currentspace]} {
-                            set next [dict get $::tomlish::parse::spaceSameTransitions $currentspace]
-                            ::tomlish::log::info   "--->> SAMESPACE transition to space $currentspace redirected state to $next (spaceSameTransitions)"
-                        } else {
-                            set next $currentspace
-                            ::tomlish::log::info "--->> SAMESPACE transition to space $currentspace"
-                        }
-                    }
-                    set result $next
-                }
-                zeropoppushspace {
-                    if {$nest > 0} {
-                        #pop back down to the root level (table-space)
-                        spacestack pop
-                        set parentinfo [spacestack peek]
-                        set type [dict get $parentinfo type]
-                        set target [dict get $parentinfo state]
-
-                        set last_space_action "pop"
-                        set last_space_type $type
-
-                        #-----
-                        #standard pop
-                        set parentlevel [expr {$nest -1}]
-                        lappend v($parentlevel) [set v($nest)]
-                        incr nest -1
-                        #-----
-                    }
-                    #re-entrancy
-
-                    #set next [list PUSHSPACE [lindex $transition_to 1]]
-                    set nexttokentype ${tokentype}2  ;#fake token type e.g tablename2 or tablearrayname2
-                    ::tomlish::log::debug "--->> zeropoppushspace goNextState RECURSE. calling goNextState $nexttokentype $currentstate"
-                    set transition_info [::tomlish::parse::goNextState $nexttokentype $tok $currentstate]
-                    set result [dict get $transition_info newstate]
-                }
-                PUSHSPACE {
-                    set original_target [dict get $transition_to PUSHSPACE]
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    if {[dict exists $transition_to starttok]} {
-                        set starttok [dict get $transition_to starttok]
-                    }
-                    spacestack push [dict create type space state $original_target]
-
-                    set last_space_action "push"
-                    set last_space_type "space"
-
-                    if {[dict exists $transition_to state]} {
-                        #an explicit state in the pushed space was requested in the stateMatrix - override the spacePushTransition (spacePushTransitions can be deprecated if we require explicitness?)
-                        set next [dict get $transition_to state]
-                        ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next by explicit 'state' entry"
-                    } else {
-                        #puts $::tomlish::parse::spacePushTransitions
-                        if {[dict exists $::tomlish::parse::spacePushTransitions $original_target]} {
-                            set next [dict get $::tomlish::parse::spacePushTransitions $original_target]
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target redirected state to $next (spacePushTransitions) "
-                        } else {
-                            set next $original_target
-                            ::tomlish::log::info "--->> PUSHSPACE transition to space $original_target"
-                        }
-                    }
-                    set result $next
-                }
-                TOSTATE {
-                    if {[dict exists $transition_to returnstate]} {
-                        #adjust the existing space record on the stack.
-                        #struct::stack doesn't really support that - so we have to pop and re-push
-                        #todo - investigate a custom stack implementation where we can efficiently lset the top of the stack
-                        set currentspace [spacestack pop]
-                        dict set currentspace returnstate [dict get $transition_to returnstate]
-                        spacestack push $currentspace ;#return modified info to stack so when we POPSPACE the returnstate is available.
-                    }
-                    set result [dict get $transition_to TOSTATE]
-                }
-                default {
-                    #simplified version of TOSTATE
-                    set result [lindex $transition_to 0] ;#ignore everything but first word
-                }
-            }
-        } else {
-            ::tomlish::log::error "--->> No state transition defined from state $currentstate when tokentype $tokentype received"
-            set result "nostate"
-        }
-        lappend state_list [list tokentype $tokentype from $currentstate to $result]
-        set state $result
-        ::tomlish::log::notice "--->> STATE TRANSITION tokenType: '$tokentype' tok:$tok  triggering '$currentstate' -> '$result' last_space_action:$last_space_action "
-        return [dict create prevstate $prevstate newstate $result space_action $last_space_action starttok $starttok]
-    }
-
-    proc report_line {{line ""}} {
-        variable linenum
-        variable is_parsing
-        if {$is_parsing} {
-            if {$line eq ""} {
-                set line $linenum
-            }
-            return "Line Number: $line"
-        } else {
-            #not in the middle of parsing tomlish text - return nothing.
-            return ""
-        }
-    }
-
-    #produce a *slightly* more readable string rep of the nest for puts etc.
-    proc nest_pretty1 {list} {
-        set prettier "{"
-
-        foreach el $list {
-            if { [lindex $el 0] eq "NEWLINE"} {
-                append prettier "[list $el]\n"
-            } elseif {([llength $el] > 1) && ([lindex $el 0] in {KEY DQKEY SQKEY TABLE ARRAY})} {
-                append prettier [nest_pretty1 $el]
-            } else {
-                append prettier "[list $el] "
-            }
-        }
-        append prettier "}"
-        return $prettier
-    }
-
-    proc set_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        if {![info exists tokenType]} {
-            set tokenType ""
-        }
-        lappend tokenType_list $t
-        set tokenType $t
-    }
-
-    proc switch_tokenType {t} {
-        variable tokenType
-        variable tokenType_list
-        lset tokenType_list end $t
-        set tokenType $t
-    }
-
-    proc get_tokenType {} {
-        variable tokenType
-        return $tokenType
-    }
-
-
-    proc get_token_waiting {} {
-        variable token_waiting
-        return [lindex $token_waiting 0]
-    }
-    proc clear_token_waiting {} {
-        variable token_waiting
-        set token_waiting [list]
-    }
-
-    #token_waiting is a list - but our standard case is to have only one
-    #in certain circumstances such as near eof we may have 2
-    #the set_token_waiting function only allows setting when there is not already one waiting.
-    #we want to catch cases of inadvertently trying to set multiple
-    # - the reason being that the state transition triggered by the previous token may have invalidated the assumptions made when a token was added as waiting.
-    proc set_token_waiting {args} {
-        if {[llength $args] %2 != 0} {
-            error "tomlish set_token_waiting must have args of form: type <tokentype> value <value> complete 0|1"
-        }
-        variable token_waiting
-
-        if {[llength $token_waiting] && [dict get [lindex $token_waiting end] type] ne "eof"} {
-            #tokloop already set a token_waiting - but something (post tokloop processing?) is trying to set another
-            #we may need to remove the existing token_waiting and reset the tokloop index to the previous char so it's reprocessed in the possibly new context
-            #rather than attempt to make the right decision here - we raise an error and require the caller to check/handle it
-            set err         "tomlish set_token_waiting already has token_waiting: [lindex $token_waiting 0]"
-            append err \n   "  -                cannot add token_waiting: $args"
-            error $err
-            #set tomlish::parse::i [expr {[dict get $token_waiting startindex] -1}]
-            #set token_waiting [list]
-        }
-
-        set waiting [dict create]
-        dict for {k v} $args {
-            switch -exact $k {
-                type -  complete {
-                    dict set waiting $k $v
-                }
-                value {
-                    dict set waiting tok $v
-                }
-                startindex {
-                    dict set waiting startindex $v
-                }
-                default {
-                    error "tomlish set_token_waiting error - unrecognised key $k. known keys: [dict keys $args]"
-                }
-            }
-        }
-        if {![tcl::string::is boolean -strict [dict get $waiting complete]]} {
-            error "tomlish set_token_waiting error - 'complete' must be a boolean. got [dict get $waiting complete]"
-        }
-        if {![llength $token_waiting]} {
-            set token_waiting [list $waiting]
-        } else {
-            #an extra sanity-check that we don't have more than just the eof..
-            if {[llength $token_waiting] > 1} {
-                set err "tomlish Unexpected. Existing token_waiting count > 1.\n"
-                foreach tw $token_waiting {
-                    append err " $tw" \n
-                }
-                append err " -          cannot add token_waiting: $waiting"
-                error $err
-            }
-            #last entry must be a waiting eof
-            set token_waiting [list $waiting [lindex $token_waiting end]]
-        }
-        return
-    }
-
-    #returns 0 or 1
-    #tomlish::parse::tok
-    #we attempt to do this without lookahead (potential use in streaming toml? for what benefit?) todo -final flag
-    # - the possible benefit is being able to more easily process in arbitrarily split chunks (although we would still have to watch crlf splitting ?)
-    # - interactive use?
-
-    proc tok {} {
-        variable nest
-        variable s
-        variable v
-        variable i
-        variable tok
-        variable type ;#character type
-        variable state ;#FSM
-
-
-        variable tokenType
-        variable tokenType_list
-
-
-        variable endToken
-
-        variable lastChar
-
-        variable braceCount
-        variable bracketCount
-
-
-        #------------------------------
-        #Previous run found another (presumably single-char) token
-        #The normal case is for there to be only one dict in the list
-        #multiple is an exception - primarily for eof
-        variable token_waiting
-        if {[llength $token_waiting]} {
-            set waiting [lindex $token_waiting 0]
-
-            set tokenType   [dict get $waiting type]
-            set tok         [dict get $waiting tok]
-            #todo: dict get $token_waiting complete
-            set token_waiting [lrange $token_waiting 1 end]
-            return 1
-        }
-        #------------------------------
-
-        set resultlist [list]
-        set sLen [tcl::string::length $s]
-
-        set slash_active 0
-        set quote 0
-        set c ""
-        for {} {$i < $sLen} {} {
-            if {$i > 0} {
-                set lastChar [tcl::string::index $s [expr {$i - 1}]]
-                set start_of_data h
-            } else {
-                set lastChar ""
-                set start_of_data 1
-                #bom-handling
-                if {[tcl::string::index $s 0] eq "\uFEFF"} {
-                    #bom (could be from various encodings - now decoded as single unicode char FEFF)
-                    #incr i 1 ;#skip over initial bom?
-                }
-            }
-
-
-            set c [tcl::string::index $s $i]
-            set cindex $i
-
-            set ctest [tcl::string::map {\{ lc \} rc \[ lb \] rb \" dq ' sq \\ bsl \r cr \n lf \t tab \uFEFF bom} $c]
-            tomlish::log::debug "- tokloop char <$ctest> index $i   tokenType:$tokenType tok:<$tok>"
-            #puts "got char $c during tokenType '$tokenType'"
-            incr i ;#must incr here because we do returns inside the loop
-
-
-
-            switch -exact -- $ctest {
-                # {
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {$had_slash} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                #for multiliteral,  multistring -  data and/or end
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #pseudo token beginning with underscore - never returned to state machine - review
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed (see tomlish::utils::is_barekey). [tomlish::parse::report_line]"
-                            }
-                            whitespace {
-                                # hash marks end of whitespace token
-                                #do a return for the whitespace, set token_waiting
-                                #set_token_waiting type comment value "" complete 1
-                                incr i -1  ;#leave comment for next run
-                                return 1
-                            }
-                            untyped_value {
-                                #REVIEW! the spec isn't clear.. is whitespace after an int,bool etc required before comment?
-                                #we will accept a comment marker as an immediate terminator of the untyped_value.
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #fix?
-                                error "tomlish Character '#' is invalid first character for  $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare parts - but allowed in quoted parts - let tablename parser sort it out
-                                append tok $c
-                            }
-                            default {
-                                #dquotedkey, string,literal, multistring
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -- $state {
-                            multistring-space {
-                                set_tokenType stringpart
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "#"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "#"
-                            }
-                            default {
-                                #start of token if we're not in a token
-                                set_tokenType comment
-                                set tok "" ;#The hash is not part of the comment data
-                            }
-                        }
-                    }
-                }
-                lc {
-                    #left curly brace
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i [tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                #*bare* tablename can only contain letters,digits underscores
-                                error "tomlish Invalid tablename first character \{ [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #valid in quoted parts
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\{"
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            itable-keyval-value-expected - keyval-value-expected {
-                                #switch last key to tablename??
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested anonymous inline table
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "startinlinetable"
-                                set tok "\{"
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\{"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\{"
-                            }
-                            default {
-                                error "tomlish state: '$state'. left brace case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                rc {
-                    #right curly brace
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey - comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - tablename {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endinlinetable value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            starttablearrayname - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                #invalid! - but leave for datastructure loading stage to catch
-                                set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                #end any other token
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-space {
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename - allowed or not?
-                                #empty tablename/tablearrayname ?
-                                #error "unexpected tablename problem"
-
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname-state problem"
-                                set_tokenType "endinlinetable"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            array-syntax - array-space {
-                                #invalid
-                                set_tokenType "endinlinetable"
-                                set tok "\}"
-                                return 1
-                            }
-                            itable-val-tail {
-                                set_tokenType "endinlinetable"
-                                set tok ""
-                                #we need to pop the keyval - and then reprocess to pop the inlinetable - so we incr -1
-                                incr i -1
-                                return 1
-                            }
-                            itable-keyval-syntax {
-                                error "tomlish endinlinetable unexpected at this point. Expecting key=val syntax [tomlish::parse::report_line]"
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\}"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart" ; #review
-                                set tok "\}"
-                            }
-                            default {
-                                #JMN2024b keyval-tail?
-                                error "tomlish state '$state'. endinlinetable case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                lb {
-                    #left square bracket
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename {
-                                #change the tokenType
-                                switch_tokenType "starttablearrayname"
-                                set tok "" ;#no output into the tomlish list for this token
-                                #any following whitespace is part of the tablearrayname, so return now
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    #append tok "\\["
-                                    append tok {\[}
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        #invalid at this point - state machine should disallow:
-                                        # table -> starttablearrayname
-                                        # tablearray -> starttablearrayname
-                                        set_token_waiting type starttablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "\["
-                                    }
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok "\["
-                            }
-                            default {
-                                #end any other token.
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            keyval-value-expected - itable-keyval-value-expected {
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                            }
-                            array-space - array-syntax {
-                                #nested array?
-                                set_tokenType "startarray"
-                                set tok "\["
-                                return 1
-                                #error "state: array-space. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                            table-space {
-                                #table name
-                                #assume it's a single bracket - but we need to wait for non-bracket to confirm it's not a tablearray
-                                #note that a starttablearrayname token may contain whitespace between the brackets
-                                # e.g \[   \[
-                                set_tokenType "starttablename"
-                                set tok ""  ;#there is no output into the tomlish list for this token
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\["
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\["
-                            }
-                            itable-space {
-                                #handle state just to give specific error msg
-                                error "tomlish state: '$state'. Left square bracket invalid. Cannot start array in inline table without key. Use key=\[<vals>\] syntax. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish state: '$state'. startarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                rb {
-                    #right square bracket
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #????
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                } else {
-                                    incr i -1
-                                    if {$had_slash} {incr i -1} ;#reprocess
-                                    return 1
-                                }
-                            }
-                            starttablename {
-                                #toml-test invalid/table/empty
-
-                                set_token_waiting type tablename value "" complete 1 startindex $cindex
-                                incr i -1
-                                return 1
-                            }
-                            tablename {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablename value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            tablearrayname {
-                                #e.g a."x[0]".c is valid table name sequence - so we need to track quoting to know if rb is an end token
-                                if {$had_slash} {
-                                    #resultant tablename may be invalid - but leave for datastructure loading stage to catch
-                                    append tok "\\]"
-                                } else {
-                                    if {[tomlish::utils::tok_in_quotedpart $tok] eq ""} {
-                                        set_token_waiting type endtablearrayname value "" complete 1 startindex $cindex
-                                        return 1
-                                    } else {
-                                        #we appear to still be in single or double quoted section
-                                        append tok "]"
-                                    }
-                                }
-                            }
-                            default {
-                                incr i -1
-                                return 1
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        switch -exact -- $state {
-                            array-syntax - array-space {
-                                #invalid - but allow parser statemachine to report it.
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            table-space {
-                                #invalid - but allow parser statemachine to report it. ?
-                                set_tokenType "endarray"
-                                set tok "\]"
-                                return 1
-                            }
-                            tablename-state {
-                                #e.g []  - empty tablename
-                                #tomltest 1.1.0 invalid/table/empty
-                                #should be invalid
-                                #we parse it and let dict::from_tomlish error when it tries to split table
-
-                                set_tokenType "endtablename"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-state {
-                                error "tomlish unexpected tablearrayname problem"
-                                set_tokenType "endtablearray"
-                                set tok "" ;#no output into the tomlish list for this token
-                                return 1
-                            }
-                            tablearrayname-tail {
-                                #[[xxx]<here>
-                                set_tokenType "endtablename"
-                                #sequence: starttablename -> starttablearrayname -> endtablearrayname -> endtablename
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok "\]"
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\]"
-                            }
-                            default {
-                                error "tomlish state '$state'. endarray case not implemented [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                bsl {
-                    #backslash
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    #end whitespace token
-                                    incr i -1 ;#reprocess bsl in next run
-                                    return 1
-                                } else {
-                                    error "tomlish Unexpected backslash during whitespace. [tomlish::parse::report_line]"
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                #never need to set slash_active true when in single quoted tokens
-                                append tok "\\"
-                                set slash_active 0
-                            }
-                            string - dquotedkey - comment {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            stringpart {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish backslash is invalid as first character of $tokenType [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                if {$slash_active} {
-                                    set slash_active 0
-                                    append tok "\\\\"
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            barekey {
-                                error "tomlish Unexpected backslash during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                error "tomlish Backslash unexpected during tokentype: '$tokenType'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$slash_active} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\\"
-                                    set slash_active 0
-                                } else {
-                                    set slash_active 1
-                                }
-                            }
-                            multiliteral-space {
-                                #nothing can be escaped in multiliteral-space - not even squotes (?) review
-                                set_tokenType "literalpart"
-                                set tok "\\"
-                            }
-                            default {
-                                error "tomlish tok error: Unexpected backslash when no token is active. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                sq {
-                    #single quote
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote {
-                                #for within multiliteral
-                                #short tentative_accum_squote tokens are returned if active upon receipt of any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                #assert state = trailing-squote-space
-                                append tok $c
-                                if {$existingtoklen == 4} {
-                                    #maxlen to be a tentative_accum_squote is multisquote + 2  = 5
-                                    #return tok with value '''''
-                                    return 1
-                                }
-                            }
-                            tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #pseudo/temp token creatable during keyval-value-expected itable-keyval-value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        #no conclusion can yet be reached
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #enter multiliteral
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_squote
-                                        return 1
-                                    }
-                                    default {
-                                        #if there are more than 3 leading squotes we also enter multiliteral space and the subsequent ones are handled
-                                        #by the tentative_accum_squote check for ending sequence which can accept up to 5 and reintegrate the
-                                        #extra 1 or 2 squotes as data.
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_squote_sequence'"
-                                    }
-                                }
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                #end whitespace
-                                incr i -1  ;#reprocess sq
-                                return 1
-                            }
-                            literal {
-                                #slash_active always false
-                                #terminate the literal
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #ended by '''  - but final could be '''' or ''''' (up to 2 squotes allowed directly before ending triple squote sequence)
-                                #todo
-                                # idea:  end this literalpart  (possibly 'temporarily')
-                                # let the sq be reprocessed in the multiliteral-space to push an end-multiliteral-sequence to state stack
-                                # upon popping end-multiliteral-sequence - stitch quotes back into this literalpart's token (if either too short - or a long ending sequence as shown above)
-                                incr i -1 ;#throw the "'" back to loop - will be added to a tentative_accum_squote token for later processing
-                                return 1
-                            }
-                            XXXitablesquotedkey {
-                                set_token_waiting type endsquote value "'" complete 1 startindex $cindex
-                                return 1
-                            }
-                            squotedkey {
-                                ###
-                                #set_token_waiting type endsquote value "'" complete 1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                #!!!
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                append tok $c
-                            }
-                            barekey {
-                                #barekeys now support all sorts of unicode letter/number chars for other cultures
-                                #but not punctuation - not even for those of Irish heritage who don't object
-                                #to the anglicised form of some names.
-                                # o'shenanigan seems to not be a legal barekey
-                                #The Irish will have to use an earlier form Ó - which apparently many may prefer anyway.
-                                error "tomlish Unexpected single quote during barekey. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            array-space - keyval-value-expected - itable-keyval-value-expected {
-                                #leading squote
-                                #pseudo-token _start_squote_sequence ss not received by state machine 
-                                #This pseudotoken will trigger production of single_squote token or triple_squote token
-                                #It currently doesn't trigger double_squote token
-                                #(handle '' same as 'x' ie produce a single_squote and go into processing literal)
-                                #review - producing double_squote for empty literal may be slightly more efficient.
-                                #This token is not used to handle squote sequences *within* a multiliteral
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                            }
-                            multiliteral-space {
-                                #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                #we are building up a tentative_accum_squote to determine if
-                                #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                #b) it is exactly ''' and we can terminate the whole multiliteral
-                                #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                set_tokenType "tentative_trigger_squote" ;#trigger tentative_accum_squote
-                                set tok "'"
-                                return 1
-                            }
-                            table-space - itable-space {
-                                #tests: squotedkey.test squotedkey_itable.test
-                                set_tokenType "squotedkey"
-                                set tok ""
-                            }
-                            XXXtable-space - XXXitable-space {
-                                #future - could there be multiline keys? MLLKEY, MLBKEY ?
-                                #this would (almost) allow arbitrary tcl dicts to be stored in toml (aside from escaping issues)
-                                #probably unlikely - as it's perhaps not very 'minimal' or ergonomic for config files
-                                #@2025 ABNF for toml mentions key, simple-key, unquoted-key, quoted-key and dotted-key
-                                #where key is simple-key or dotted-key - no MLL or MLB components
-                                #the spec states solution for arbitrary binary data is application specific involving encodings
-                                #such as hex, base64
-                                set_tokenType "_start_squote_sequence"
-                                set tok "'"
-                                return 1
-                            }
-                            tablename-state {
-                                #first char in tablename-state/tablearrayname-state
-                                set_tokenType "tablename"
-                                append tok "'"
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                append tok "'"
-                            }
-                            literal-state {
-                                #shouldn't get here? review
-                                tomlish::log::debug "- tokloop sq during literal-state with no tokentype - empty literal?"
-                                set_tokenType "literal"
-                                incr -1
-                                return 1
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok ","
-                                #error "tomlish unimplemented - squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                            dottedkey-space {
-                                set_tokenType "squotedkey"
-                            }
-                            default {
-                                error "tomlish unhandled squote during state '$state'. [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-
-                }
-                dq {
-                    #double quote
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #review
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            tentative_accum_dquote {
-                                #within multistring
-                                #short tentative_accum_dquote tokens are returned if active upon receipt of any other character
-                                #longest allowable for leading/trailing are returned here
-                                ####
-                                set existingtoklen [tcl::string::length $tok] ;#toklen prior to this squote
-                                #assert state = trailing-squote-space
-                                append tok $c
-                                if {$existingtoklen == 4} {
-                                    #maxlen to be a tentative_accum_dquote is multidquote + 2  = 5
-                                    #return tok with value """""
-                                    return 1
-                                }
-                            }
-                            _start_dquote_sequence {
-                                #pseudo/temp token creatable during keyval-value-expected itable-keyval-value-expected or array-space
-                                switch -- [tcl::string::length $tok] {
-                                    1 {
-                                        #no conclusion can yet be reached
-                                        append tok $c
-                                    }
-                                    2 {
-                                        #enter multistring 
-                                        #switch?
-                                        append tok $c
-                                        set_tokenType triple_dquote
-                                        return 1
-                                    }
-                                    default {
-                                        #if there are more than 3 leading dquotes we also enter multistring space and the subsequent ones are handled
-                                        #by the tentative_accum_dquote check for ending sequence which can accept up to 5 and reintegrate the
-                                        #extra 1 or 2 dquotes as data.
-                                        error "tomlish unexpected token length [tcl::string::length $tok] in '_start_dquote_sequence'"
-                                    }
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string {
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    #unescaped quote always terminates a string
-                                    set_token_waiting type enddquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            stringpart {
-                                #sub element of multistring
-                                if {$had_slash} {
-                                    append tok "\\" $c
-                                } else {
-                                    incr i -1 ;#throw the {"} back to loop - will be added to a tentative_accum_dquote token for later processing
-                                    return 1
-                                }
-                            }
-                            whitespace {
-                                #assert: had_slash will only ever be true in multistring-space
-                                if {$had_slash} {
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #end whitespace token - throw dq back for reprocessing
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            comment {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            XXXdquotedkey {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    set_token_waiting type enddquote value "\"" complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            dquotedkey {
-                                ###
-                                if {$had_slash} {
-                                    append tok "\\"
-                                    append tok $c
-                                } else {
-                                    #set_token_waiting type enddquote value {"} complete 1
-                                    return 1
-                                }
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1 ;##
-                                return 1
-                            }
-                            default {
-                                error "tomlish got quote during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        #$slash_active not relevant when no tokenType
-                        #token is string only if we're expecting a value at this point
-                        switch -exact -- $state {
-                            array-space - keyval-value-expected - itable-keyval-value-expected {
-                                #leading dquote
-                                #pseudo-token _start_squote_sequence ss not received by state machine
-                                #This pseudotoken will trigger production of single_dquote token or triple_dquote token
-                                #It currently doesn't trigger double_dquote token
-                                #(handle "" same as "x" ie produce a single_dquote and go into processing string)
-                                #review - producing double_dquote for empty string may be slightly more efficient.
-                                #This token is not used to handle dquote sequences once *within* a multistring 
-                                set_tokenType "_start_dquote_sequence"
-                                set tok {"}
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "stringpart"
-                                    set tok "\\\""
-                                } else {
-                                    #each literalpart is not necessarily started/ended with squotes - but may contain up to 2 in a row
-                                    #we are building up a tentative_accum_squote to determine if
-                                    #a) it is shorter than ''' so belongs in a literalpart (either previous, subsequent or it's own literalpart between newlines
-                                    #b) it is exactly ''' and we can terminate the whole multiliteral
-                                    #c) it is 4 or 5 squotes where the first 1 or 2 beling in a literalpart and the trailing 3 terminate the space
-                                    set_tokenType "tentative_trigger_dquote" ;#trigger tentative_accum_dquote
-                                    set tok {"}
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "\""
-                            }
-                            table-space - itable-space {
-                                set_tokenType "dquotedkey"
-                                set tok ""
-                            }
-                            dottedkey-space {
-                                set_tokenType dquotedkey
-                                set tok ""
-
-                                #only if complex keys become a thing
-                                #set_tokenType dquote_seq_begin
-                                #set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            default {
-                                error "tomlish Unexpected dquote during state '$state' [tomlish::parse::report_line]"
-                            }
-                        }
-                    }
-                }
-                = {
-                    set had_slash $slash_active
-                    set slash_active 0
-
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #review
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart - squotedkey {
-                                #assertion had_slash 0
-                                append tok $c
-                            }
-                            string - comment - dquotedkey {
-                                #for these tokenTypes an = is just data.
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type equal value = complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                #set_token_waiting type equal value = complete 1
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character '=' is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #invalid in bare name - but valid in quoted parts - leave for tablename parser to sort out
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish unexpected = character during tokentype $tokenType.  case not implemented. [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok =
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "="
-                            }
-                            dottedkey-space {
-                                set_tokenType "equal"
-                                set tok "="
-                                return 1
-                            }
-                            default {
-                                set_tokenType "equal"
-                                set tok =
-                                return 1
-                            }
-                        }
-                    }
-                }
-                cr {
-                    #REVIEW!
-                    # \r carriage return
-                    if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #we have received a double cr
-                                ::tomlish::log::warn "double cr - will generate cr token. needs testing"
-                                set_tokenType "cr" ;#lone cr token will generally raise an error - but let state machine handle it
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal {
-                                append tok $c
-                            }
-                            literalpart {
-                                #part of MLL string (multi-line literal string)
-                                #we need to split out crlf as a separate NEWLINE to be consistent
-                                ::tomlish::log::warn "literalpart ended by cr - needs testing"
-                                #return literalpart temporarily - allow cr to be reprocessed from multiliteral-space
-                                incr i -1
-                                return 1
-                            }
-                            stringpart {
-                                #stringpart is a part of MLB string (multi-line basic string)
-                                #throw back the cr - if followed by lf it will become a {NEWLINE crlf} entry within the MULTISTRING list (e.g between STRINGPART entries)
-                                incr i -1
-                                return 1
-                            }
-                            starttablename - starttablearrayname {
-                                error "tomlish Character <carriage return> is invalid first character for $tokenType. [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #could in theory be valid in quoted part of name
-                                #review - might be better just to disallow here
-                                append tok $c
-                            }
-                            whitespace {
-                                #it should technically be part of whitespace if not followed by lf
-                                #but outside of values we are also free to map it to be another NEWLINE instead? REVIEW
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                incr i -1
-                                return 1
-                            }
-                            comment {
-                                #JJJJ
-                                #review
-                                incr i -1
-                                return 1
-                            }
-                            default {
-                                #!todo - error out if cr inappropriate for tokenType
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        #lf may be appended if next
-                        #review - lone cr as newline? - this is uncommon - but so is lone cr in a string(?)
-                        set_tokenType "newline"
-                        set tok cr
-                    }
-                }
-                lf {
-                    # \n newline
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #review
-                                #this lf is the trailing part of a crlf
-                                append tok lf ;#assert we should now have tok "crlf" - as a previous cr is the only way to have an incomplete newline tok
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                #multiliteral or multistring
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal {
-                                #nl is not allowed *within* a literal - require multiliteral syntax for any literal containing a newline ''' '''
-                                #even though we terminate the literal without the closing quote here - the token_waiting newline should trigger a state error
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            literalpart {
-                                #we allow newlines - but store them within the multiliteral as their own element
-                                #This is a legitimate end to the literalpart - but not the whole multiliteral
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                            stringpart {
-                                if {$had_slash} {
-                                    #emit the stringpart (return 1), queue the continuation, go back 1 to reprocess the lf (incr i -1)
-                                    set_token_waiting type continuation value \\ complete 1 startindex [expr {$cindex-1}]
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type newline value lf complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            starttablename - tablename - tablearrayname - starttablearrayname {
-                                error "tomlish Character <linefeed> is invalid in $tokenType. [tomlish::parse::report_line]"
-                            }
-                            default {
-                                #newline ends all other tokens.
-                                #note for string: we don't add (raw unescaped) newline to simple string. (must use multi-string for this)
-                                #note for whitespace:
-                                #    we will use the convention that \n terminates the current whitespace even if whitespace follows
-                                #    ie whitespace is split into separate whitespace tokens at each newline
-
-                                #puts "-------------- newline lf during tokenType $tokenType"
-                                set_token_waiting type newline value lf complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType "newline"
-                                    set tok lf
-                                    return 1
-                                }
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0 
-                                set_tokenType "newline"
-                                set tok "lf"
-                                return 1
-                            }
-                            default {
-                                #ignore slash? error?
-                                set_tokenType "newline"
-                                set tok lf
-                                return 1
-                            }
-                        }
-                        #if {$had_slash} {
-                        #    #CONT directly before newline - allows strings_5_byteequivalent test to pass
-                        #    set_tokenType "continuation"
-                        #    set tok "\\"
-                        #    incr i -1
-                        #    return 1
-                        #} else {
-                        #    set_tokenType newline
-                        #    set tok lf
-                        #    return 1
-                        #}
-                    }
-                }
-                , {
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            comment - tablename - tablearrayname {
-                                if {$had_slash} {append tok "\\"}
-                                append tok ,
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                #stringpart can have up to 2 quotes too
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0 
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_token_waiting type comma value "," complete 1 startindex $cindex
-                                    return 1
-                                }
-                            }
-                            default {
-                                set_token_waiting type comma value "," complete 1 startindex $cindex
-                                if {$had_slash} {append tok "\\"}
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok ","
-                            }
-                            multiliteral-space {
-                                #assert had_slash 0
-                                set_tokenType "literalpart"
-                                set tok ","
-                            }
-                            default {
-                                set_tokenType "comma"
-                                set tok ","
-                                return 1
-                            }
-                        }
-                    }
-                }
-                . {
-                    set had_slash $slash_active
-                    set slash_active 0
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            comment - untyped_value {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            stringpart {
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            literal - literalpart - squotedkey {
-                                #assert had_slash always 0
-                                append tok $c
-                            }
-                            whitespace {
-                                switch -exact -- $state {
-                                    multistring-space {
-                                        #review
-                                        if {$had_slash} {
-                                            incr i -2
-                                        } else {
-                                            incr i -1
-                                        }
-                                        return 1
-                                    }
-                                    xxxdottedkey-space {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    dottedkey-space-tail {
-                                        incr i -1
-                                        return 1
-                                    }
-                                    default {
-                                        error "tomlish Received  period during tokenType 'whitespace' [tomlish::parse::report_line]"
-                                    }
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                #This would correspond to an empty table name
-                                error "tomlish Character '.' is not allowed as first character ($tokenType). [tomlish::parse::report_line]"
-                            }
-                            tablename - tablearrayname {
-                                #subtable - split later - review
-                                append tok $c
-                            }
-                            barekey {
-                                #e.g x.y = 1
-                                #we need to transition the barekey to become a structured table name  ??? review
-                                #x is the tablename y is the key
-                                set_token_waiting type dotsep value "." complete 1 startindex $cindex
-                                return 1
-                            }
-                            default {
-                                error "tomlish Received period during tokenType '$tokenType' [tomlish::parse::report_line]"
-                                #set_token_waiting type period value . complete 1
-                                #return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok "."
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok "."
-                            }
-                            XXXdottedkey-space {
-                                ### obs?
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            dottedkey-space-tail {
-                                ###
-                                set_tokenType "dotsep"
-                                set tok "."
-                                return 1
-                            }
-                            default {
-                                set_tokenType "untyped_value"
-                                set tok "."
-                            }
-                        }
-                    }
-
-                }
-                " " - tab {
-                    if {[tcl::string::length $tokenType]} {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                #todo had_slash - emit token or error
-                                #whitespace is a terminator for bare keys
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            comment {
-                                if {$had_slash} {
-                                    append tok "\\"
-                                }
-                                append tok $c
-                            }
-                            string - dquotedkey {
-                                if {$had_slash} { append tok "\\" }
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART xxx WS " "
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart - squotedkey {
-                                append tok $c
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    append tok $c
-                                } else {
-                                    append tok $c
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace space during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok ""
-                                if {$had_slash} {append tok "\\"}
-                                append tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType "whitespace"
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                if {$had_slash} {
-                                    error "tomlish unexpected backslash [tomlish::parse::report_line]"
-                                }
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                tabX {
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out (?review)
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            barekey {
-                                #whitespace is a terminator for bare keys
-                                incr i -1
-                                #set_token_waiting type whitespace value $c complete 1
-                                return 1
-                            }
-                            untyped_value {
-                                #unquoted values (int,date,float etc) are terminated by whitespace
-                                #set_token_waiting type whitespace value $c complete 1
-                                incr i -1
-                                return 1
-                            }
-                            squotedkey {
-                                append tok $c
-                            }
-                            dquotedkey - string - comment - whitespace {
-                                #REVIEW
-                                append tok $c
-                            }
-                            stringpart {
-                                #for stringpart we store WS separately for ease of processing continuations (CONT stripping)
-                                if {$had_slash} {
-                                    #REVIEW
-                                    #emit the stringpart - go back to the slash
-                                    incr i -2
-                                    return 1
-                                } else {
-                                    #split into STRINGPART aaa WS " "
-                                    incr i -1
-                                    return 1
-                                }
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                return 1
-                            }
-                            tablename - tablearrayname {
-                                #include whitespace in the tablename/tablearrayname
-                                #Will need to be normalized upon interpreting the tomlish as a datastructure
-                                append tok $c
-                            }
-                            default {
-                                error "tomlish Received whitespace tab during tokenType '$tokenType' [tomlish::parse::report_line]"
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        if {$slash_active} {
-                            set slash_active 0
-                        }
-                        switch -exact -- $state {
-                            tablename-state {
-                                #tablename can have leading,trailing and interspersed whitespace!
-                                #These will not be treated as whitespace tokens, instead forming part of the name.
-                                set_tokenType tablename
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType tablearrayname
-                                set tok $c
-                            }
-                            multistring-space {
-                                if {$had_slash} {
-                                    set_tokenType "continuation"
-                                    set tok "\\"
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    set_tokenType whitespace
-                                    append tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "whitespace"
-                                append tok $c
-                            }
-                        }
-                    }
-                }
-                bom {
-                    #bom encoded as single unicode codepoint \uFFEF
-                    #BOM (Byte Order Mark) - ignored by token consumer
-                    if {[tcl::string::length $tokenType]} {
-                        switch -exact -- $tokenType {
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                #assert - tok will be one or two squotes only
-                                #A toml literal probably isn't allowed to contain this
-                                #but we will parse and let the validator sort it out.
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            literal - literalpart {
-                                append tok $c
-                            }
-                            string - stringpart {
-                                append tok $c
-                            }
-                            default {
-                                #state machine will generally not have entry to accept bom - let it crash
-                                set_token_waiting type bom value "\uFEFF" complete 1 startindex $cindex
-                                return 1
-                            }
-                        }
-                    } else {
-                        switch -exact -- $state {
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                set tok $c
-                            }
-                            default {
-                                set_tokenType "bom"
-                                set tok "\uFEFF"
-                                return 1
-                            }
-                        }
-                    }
-                }
-                default {
-
-                    if {[tcl::string::length $tokenType]} {
-                        if {$slash_active} {append tok "\\"} ;#if tokentype not appropriate for \, we would already have errored out.
-                        set slash_active 0
-                        switch -exact -- $tokenType {
-                            newline {
-                                #incomplete newline
-                                set_tokenType "cr"
-                                incr i -1
-                                return 1
-                            }
-                            tentative_accum_squote - tentative_accum_dquote {
-                                incr i -1
-                                return 1
-                            }
-                            _start_squote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_squote"
-                                return 1
-                            }
-                            _start_dquote_sequence {
-                                incr i -[tcl::string::length $tok]
-                                set_tokenType "single_dquote"
-                                return 1
-                            }
-                            whitespace {
-                                if {$state eq "multistring-space"} {
-                                    incr i -1
-                                    return 1
-                                } else {
-                                    #review
-                                    incr i -1  ;#We don't have a full token to add to the token_waiting dict - so leave this char for next run.
-                                    return 1
-                                }
-                            }
-                            barekey {
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected character '$c' during bare key. Only \[a-zA-Z0-9_-\] and a selection of letter-like chars allowed. (see tomlish::utils::is_barekey) [tomlish::parse::report_line]"
-                                }
-                            }
-                            starttablename - starttablearrayname {
-                                incr i -1
-                                #allow statemachine to set context for subsequent chars
-                                return 1
-                            }
-                            string - stringpart {
-                                append tok $c
-                            }
-                            default {
-                                #e.g comment/literal/literalpart/untyped_value/starttablename/starttablearrayname/tablename/tablearrayname
-                                append tok $c
-                            }
-                        }
-                    } else {
-                        set had_slash $slash_active
-                        set slash_active 0
-                        switch -exact -- $state {
-                            table-space - itable-space {
-                                #if no currently active token - assume another key value pair
-                                if {[tomlish::utils::is_barekey $c]} {
-                                    set_tokenType "barekey"
-                                    append tok $c
-                                } else {
-                                    error "tomlish Unexpected char $c  ([tomlish::utils::nonprintable_to_slashu $c]) whilst no active tokenType. [tomlish::parse::report_line]"
-                                }
-                            }
-                            multistring-space {
-                                set_tokenType "stringpart"
-                                if {$had_slash} {
-                                    set tok \\$c
-                                } else {
-                                    set tok $c
-                                }
-                            }
-                            multiliteral-space {
-                                set_tokenType "literalpart"
-                                set tok $c
-                            }
-                            tablename-state {
-                                set_tokenType "tablename"
-                                set tok $c
-                            }
-                            tablearrayname-state {
-                                set_tokenType "tablearrayname"
-                                set tok $c
-                            }
-                            dottedkey-space {
-                                set_tokenType barekey
-                                set tok $c
-                            }
-                            default {
-                                #todo - something like ansistring VIEW to show control chars?
-                                set cshow [string map [list \t tab \v vt] $c]
-                                tomlish::log::debug "- tokloop char '$cshow' setting to untyped_value while state:$state [tomlish::parse::report_line]"
-                                set_tokenType "untyped_value"
-                                set tok $c
-                            }
-                        }
-                    }
-                }
-            }
-
-        }
-
-        #run out of characters (eof)
-        if {[tcl::string::length $tokenType]} {
-            #check for invalid ending tokens
-            #if {$state eq "err-state"} {
-            #	error "Reached end of data whilst tokenType = '$tokenType'. INVALID"
-            #}
-            switch -exact -- $tokenType {
-                _start_squote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open literal
-                            error "tomlish eof reached without closing single quote for string literal. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            set_tokenType "literal"
-                            set tok ""
-                            return 1
-
-                            ##review
-                            #set_token_waiting type endsquote value "'" complete 1 startindex [expr {$cindex -1}]
-                            #set_tokenType "literal"
-                            #set tok ""
-                            #return 1
-                        }
-                    }
-                }
-                _start_dquote_sequence {
-                    set toklen [tcl::string::length $tok]
-                    switch -- $toklen {
-                        1 {
-                            #invalid eof with open string
-                            error "tomlish eof reached without closing double quote for string. [tomlish::parse::report_line]"
-                        }
-                        2 {
-                            set_tokenType "string"
-                            set tok ""
-                            return 1
-                        }
-                    }
-                }
-                newline {
-                    #The only newline token that has still not been returned should have a tok value of "cr"
-                    puts "tomlish eof reached - with incomplete newline token '$tok'"
-                    if {$tok eq "cr"} {
-                        #we convert lone cr to it's own "cr" token elsewhere in the document to allow statemachine to handle it.
-                        #(which it should generally do by not handling it ie raising an error - or emitting an ERROR list in the tomlish)
-                        #if trailing char is a lone cr - we should encode it the same way as elsewhere that is outside of values
-                        # ie as it's own token.
-                        switch_tokenType "cr"
-                        return 1
-                    } else {
-                        #should be unreachable
-                        error "tomlish eof reached - with invalid newline token. value: $tok"
-                    }
-                }
-            }
-            set_token_waiting type eof value eof complete 1 startindex $i ;#review
-            return 1
-        } else {
-            ::tomlish::log::debug "- No current tokenType, ran out of characters, setting tokenType to 'eof' [tomlish::parse::report_line]"
-            set tokenType "eof"
-            set tok "eof"
-        }
-        return 0
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::parse ---}]
-}
-namespace eval tomlish::huddle {
-    proc from_json {json} {
-        package require huddle
-        package require huddle::json
-        #note - huddle may now contain raw surrogate pair - which cannot be emitted to stdout
-        set h [huddle::json::json2huddle parse $json]
-    }
-    proc from_dict {d} {
-        error "tomlish::huddle::from_dict unimplemented"
-    }
-
-    #raw - strings must already be processed into values suitable for json e.g surrogate pair escaping
-    proc jsondumpraw {huddle_object {offset "  "} {newline "\n"} {begin ""}} {
-        upvar ::huddle::types types
-        set nextoff "$begin$offset"
-        set nlof "$newline$nextoff"
-        set sp " "
-        if {[string equal $offset ""]} {set sp ""}
-
-        set type [huddle type $huddle_object]
-
-        switch -- $type {
-            boolean -
-            number {
-                return [huddle get_stripped $huddle_object]
-            }
-            null {
-                return null
-            }
-            string {
-                set data [huddle get_stripped $huddle_object]
-
-                # JSON permits only oneline string
-                #set data [string map {
-                #        \n \\n
-                #        \t \\t
-                #        \r \\r
-                #        \b \\b
-                #        \f \\f
-                #        \\ \\\\
-                #        \" \\\"
-                #        / \\/
-                #    } $data
-                #]
-                return "\"$data\""
-            }
-            list {
-                set inner {}
-                set len [huddle llength $huddle_object]
-                for {set i 0} {$i < $len} {incr i} {
-                    set subobject [huddle get $huddle_object $i]
-                    lappend inner [jsondumpraw $subobject $offset $newline $nextoff]
-                }
-                if {[llength $inner] == 1} {
-                    return "\[[lindex $inner 0]\]"
-                }
-                return "\[$nlof[join $inner ,$nlof]$newline$begin\]"
-            }
-            dict {
-                set inner {}
-                foreach {key} [huddle keys $huddle_object] {
-                    lappend inner [subst {"$key":$sp[jsondumpraw [huddle get $huddle_object $key] $offset $newline $nextoff]}]
-                }
-                #if {[llength $inner] == 1} {
-                #    return $inner ;#wrong - breaks with quoted list representation
-                #    #FAILS: toml-test valid/comment/tricky
-                #}
-
-                return "\{$nlof[join $inner ,$nlof]$newline$begin\}"
-            }
-            default {
-                set node [unwrap $huddle_object]
-                #foreach {tag src} $node break
-                lassign $node tag src
-                return [$types(callback:$tag) jsondumpraw $huddle_object $offset $newline $nextoff]
-            }
-        }
-    }
-}
-
-#typed as per toml-test types
-namespace eval tomlish::typedhuddle {
-    proc from_json {json} {
-        set plainhuddle [tomlish::huddle::from_json $json]
-
-        error "tomlish::typedhuddle::from_json unimplemented"
-    }
-    proc from_dict {d} {
-        package require huddle
-        set h [huddle create]
-        if {[tomlish::dict::is_typeval $d]} {
-            set dtype [dict get $d type]
-            switch -- $dtype {
-                ARRAY {
-                    #error "typedhuddle::from_dict ARRAY not yet handled"
-                    set h_list [huddle list]
-                    set elements [dict get $d value]
-                    foreach el $elements {
-                        set sub [from_dict $el]
-                        huddle append h_list $sub
-                    }
-                    return $h_list
-                }
-                default {
-                    set tinfo [tomlish::dict::convert_typeval_to_tomltest $d]
-                    #basic non-container types
-                    set h_tdict [huddle create]
-                    huddle set h_tdict type     [huddle string [dict get $tinfo type]]
-                    huddle set h_tdict value    [huddle string [dict get $tinfo value]]
-                    return $h_tdict
-                }
-            }
-        } else {
-            dict for {dictkey dictval} $d {
-                set jsonkey [tomlish::utils::rawstring_to_jsonstring $dictkey]
-                if {[tomlish::dict::is_typeval $dictval]} {
-                    set dtype [dict get $dictval type]
-                    switch -- $dtype {
-                        ARRAY {
-                            #error "typedhuddle::from_dict ARRAY not yet handled"
-                            set h_next [huddle list]
-                            set elements [dict get $dictval value]
-                            foreach el $elements {
-                                set sub [from_dict $el]
-                                huddle append h_next $sub
-                            }
-                        }
-                        default {
-                            set tinfo [tomlish::dict::convert_typeval_to_tomltest $dictval]
-                            set tp [dict get $tinfo type]
-                            #basic non-container types
-                            set h_next [huddle create] ;#dict
-                            huddle set h_next type     [huddle string [dict get $tinfo type]]
-                            huddle set h_next value    [huddle string [dict get $tinfo value]]
-                        }
-                    }
-                    huddle set h $jsonkey $h_next
-                } else {
-                    #dict
-                    set sub [from_dict $dictval]
-                    huddle set h $jsonkey $sub
-                }
-            }
-        }
-        return $h
-    }
-    proc is_typeval {huddled} {
-        set htype [huddle type $huddled]
-        if {$htype ne "dict"} {
-            return 0
-        }
-        if {[huddle keys $huddled] ne {type value}} {
-            return 0
-        }
-        set tp [huddle type $huddled type]
-        switch -- $tp {
-            string - integer - float - bool - datetime - datetime-local - date-local - time-local {
-                return 1
-            }
-        }
-        return 0
-    }
-
-    #direction from typed json towards toml
-    proc convert_typeval_to_tomlish {huddled} {
-        set htype [huddle get_stripped $huddled type]
-        set hval [huddle get_stripped $huddled value]
-        switch -- $htype {
-            string {
-                #we need to decide here the type of string element to use in toml/tomlish
-                #STRING,MULTISTRING,LITERAL,MULTILITERAL
-                #set unesc [tomlish::utils::unescape_jsonstring $hval] ;#no need - json parser unescaped when creating the huddle
-                set unesc $hval
-                #(huddle::json::json2huddle parse $json)
-                #since it was unescaped any backslashes remaining represent themselves - reapply escape - REVIEW
-                #set hval [string map [list \\ \\\ ] $hval]
-                #JSJS
-                if {[string first \n $unesc] >= 0} {
-                    #always use a MULTI
-                    if {[string first ' $unesc] >=0} {
-                        if {[string first ''' $unesc] >=0} {
-                            set dtype MULTISTRING
-                        } else {
-                            set dtype MULTILITERAL
-                        }
-                    } else {
-                        if {[string first \"\"\" $unesc] >=0} {
-                            set dtype MULTILITERAL
-                        } else {
-                            set dtype MULTISTRING
-                        }
-                    }
-                } else {
-                    #use multi if needed?
-                    if {[string first '' $hval] >=0} {
-                        if {[string first ''' $unesc] >=0} {
-                            set dtype STRING
-                        } else {
-                            set dtype MULTILITERAL
-                        }
-                    } elseif {[string first ' $unesc] >= 0} {
-                        set dtype STRING
-                    } elseif {[string first \"\"\" $unesc] >= 0} {
-                        set dtype LITERAL
-                    } else {
-                        #STRING or LITERAL?
-                        set dtype STRING
-                    }
-                }
-
-            }
-            datetime - bool {
-                set dtype [string toupper $htype]
-            }
-            float {
-                set dtype FLOAT
-                if {[::tomlish::utils::string_is_integer -strict $hval]} {
-                    #json FLOAT specified as integer - must have dot for toml
-                    set hval [expr {double($hval)}]
-                }
-            }
-            integer {
-                set dtype INT
-            }
-            datetime - datetime-local - date-local - time-local {
-                #DDDD
-                #set dtype DATETIME
-                set dtype [string toupper $htype]
-            }
-            default {
-                error "tomlish::typedhuddle::convert_typeval_to_tomlish unrecognised type $htype"
-            }
-        }
-        return [list type $dtype value $hval]
-    }
-
-}
-namespace eval tomlish::toml {
-    proc from_binary {bindata} {
-        set bom ""
-        set b12 [tcl::string::range $bindata 0 1]
-        set b12test [string map [list \xEF\xBB utf8_12 \xFE\xFF bom16be \xFF\xFE utf32le_12 \x00\x00 utf32be_12] $b12]
-        switch -- $b12test {
-            bom16be {
-                #FEFF
-                set bom utf-16be
-            }
-            utf32le_12 {
-                #FFFE
-                set b34 [tcl::string::range $bindata 2 3]
-                if {$b34 eq "\x00\x00"} {
-                    set bom utf-32le
-                } else {
-                    set bom utf-16le
-                }
-            }
-            utf32be_12 {
-                #0000
-                set b34 [tcl::string::range $bindata 2 3]
-                if {$b34 eq "\xFE\xFF"} {
-                    set bom utf-32be
-                }
-            }
-            utf8_12 {
-                set b3 [tcl::string::index $bindata 2]
-                if {$b3 eq "\xBF"} {
-                    set bom utf-8
-                }
-            }
-        }
-        if {$bom eq ""} {
-            #no bom - assume utf8 - but we read in as binary
-            #if data wasn't actually utf8 we may error here depending on content - or we may just get wrongly encoded chars
-            set tomldata [encoding convertfrom utf-8 $bindata]
-        } elseif {$bom eq "utf-8"} {
-            #utf-8 bom read in as binary
-            set tomldata [encoding convertfrom utf-8 $bindata]
-            #bom now encoded as single unicode char \uFFEF
-        } else {
-            return -code error -errorcode {TOML ENCODING NOTUTF8} "Input not UTF8 encoded according to BOM. Indicated encoding is '$bom' - invalid for toml"
-        }
-        return $tomldata
-    }
-    proc from_tomlish {tomlish} {
-        return [tomlish::encode::tomlish $tomlish]
-    }
-
-    #todo - rename to taggedjson
-    proc from_tomlish_from_dict_from_typedjson {json} {
-        set d           [tomlish::dict::from_typedjson $json]
-        from_tomlish    [tomlish::from_dict $d] ;#return tomlish
-    }
-
-    proc tablename_split {tablename {normalize false}} {
-        #we can't just split on . because we have to handle quoted segments which may contain a dot.
-        #eg {dog."tater.man"}
-        if {$tablename eq ""} {
-            error "tablename_split. No table name segments found. empty tablename"
-        }
-        set sLen [tcl::string::length $tablename]
-        set segments [list]
-        set mode "preval"  ;#5 modes: preval, quoted,litquoted, unquoted, postval
-        #quoted is for double-quotes,  litquoted is for single-quotes (string literal)
-        set seg ""
-        for {set i 0} {$i < $sLen} {incr i} {
-
-            if {$i > 0} {
-                set lastChar [tcl::string::index $tablename [expr {$i - 1}]]
-            } else {
-                set lastChar ""
-            }
-
-            #todo - track\count backslashes properly
-
-            set c [tcl::string::index $tablename $i]
-            if {$c eq "\""} {
-                if {($lastChar eq "\\")} {
-                    #not strictly correct - we could have had an even number prior-backslash sequence
-                    #the toml spec would have us error out immediately on bsl in bad location - but we're
-                    #trying to parse to unvalidated tomlish
-                    set ctest escq
-                } else {
-                    set ctest dq
-                }
-            } else {
-                set ctest [string map [list " " sp \t tab] $c]
-            }
-
-            switch -- $ctest {
-                . {
-                    switch -exact -- $mode {
-                        preval {
-                            error "tablename_split. dot not allowed - expecting a value"
-                        }
-                        unquoted {
-                            #dot marks end of segment.
-                            if {![tomlish::utils::is_barekey $seg]} {
-                                error "tablename_split. unquoted key segment $seg is not a valid toml key"
-                            }
-                            lappend segments $seg
-                            set seg ""
-                            set mode "preval"
-                        }
-                        quoted {
-                            append seg $c
-                        }
-                        litquoted {
-                            append seg $c
-                        }
-                        postval {
-                            #got dot in an expected location
-                            set mode "preval"
-                        }
-                    }
-                }
-                dq {
-                    #unescaped dquote
-                    switch -- $mode {
-                        preval {
-                            set mode "quoted"
-                            set seg "\""
-                        }
-                        unquoted {
-                            #invalid in barekey - but we are after structure only
-                            append seg $c
-                        }
-                        quoted {
-                            append seg $c
-                            #JJJJ
-                            if {$normalize} {
-                                lappend segments [::tomlish::utils::unescape_string [tcl::string::range $seg 1 end-1]]
-                            } else {
-                                lappend segments $seg
-                            }
-                            set seg ""
-                            set mode "postval" ;#make sure we only accept a dot or end-of-data now.
-                        }
-                        litquoted {
-                            append seg $c
-                        }
-                        postval {
-                            error "tablename_split. expected whitespace or dot, got double quote. tablename: '$tablename'"
-                        }
-                    }
-                }
-                ' {
-                    switch -- $mode {
-                        preval {
-                            append seg $c
-                            set mode "litquoted"
-                        }
-                        unquoted {
-                            #single quote inside e.g o'neill - ultimately invalid - but we pass through here.
-                            append seg $c
-                        }
-                        quoted {
-                            append seg $c
-                        }
-                        litquoted {
-                            append seg $c
-                            #no normalization to do aside from stripping squotes
-                            if {$normalize} {
-                                lappend segments [tcl::string::range $seg 1 end-1]
-                            } else {
-                                lappend segments $seg
-                            }
-                            set seg ""
-                            set mode "postval"
-                        }
-                        postval {
-                            error "tablename_split. expected whitespace or dot, got single quote. tablename: '$tablename'"
-                        }
-                    }
-                }
-                sp - tab {
-                    switch -- $mode {
-                        preval - postval {
-                            #ignore
-                        }
-                        unquoted {
-                            #terminates a barekey
-                            lappend segments $seg
-                            set seg ""
-                            set mode "postval"
-                        }
-                        default {
-                            #append to quoted or litquoted
-                            append seg $c
-                        }
-                    }
-                }
-                default {
-                    switch -- $mode {
-                        preval {
-                            set mode unquoted
-                            append seg $c
-                        }
-                        postval {
-                            error "tablename_split. Expected a dot separator. got '$c'. tablename: '$tablename'"
-                        }
-                        default {
-                            append seg $c
-                        }
-                    }
-                }
-            }
-
-            if {$i == $sLen-1} {
-                #end of data
-                ::tomlish::log::debug "End of data: mode='$mode'"
-                switch -exact -- $mode {
-                    preval {
-                        if {[llength $segments]} {
-                            error "tablename_split. Expected a value after last dot separator. tablename: '$tablename'"
-                        } else {
-                            error "tablename_split. Whitespace only? No table name segments found. tablename: '$tablename'"
-                        }
-                    }
-                    unquoted {
-                        if {![tomlish::utils::is_barekey $seg]} {
-                            #e.g toml-test invalid/table/with-pound required to fail for invalid barekey 
-                            error "tablename_split. unquoted key segment $seg is not a valid toml key"
-                        }
-                        lappend segments $seg
-                    }
-                    quoted {
-                        error "tablename_split. Expected a trailing double quote. tablename: '$tablename'"
-                    }
-                    litquoted {
-                        error "tablename_split. Expected a trailing single quote. tablename: '$tablename'"
-                    }
-                    postval {
-                        #ok - segment already lappended
-                    }
-                }
-            }
-        }
-
-        #note - we must allow 'empty' quoted strings  '' & ""
-        # (these are 'discouraged' but valid toml keys)
-
-        return $segments
-    }
-
-    #tablenames (& tablearraynames) may contain irrelevant leading, trailing and interspersed whitespace
-    # tablenames can be made up of segments delimited by dots. .eg   [ a.b . c ]
-    #trimmed, the tablename becomes  {a.b.c}
-    # A segment may contain whitespace if it is quoted  e.g [a . b . "c etc "    ]
-    #ie whitespace is only irrelevant if it's outside a quoted segment
-    #trimmed, the tablename becomes {a.b."c etc "}
-    proc tablename_trim {tablename} {
-        set segments [tomlish::toml::tablename_split $tablename false]
-        set trimmed_segments [list]
-        foreach seg $segments {
-            lappend trimmed_segments [::string trim $seg " \t"]
-        }
-        return [join $trimmed_segments .]
-    }
-}
-
-namespace eval tomlish::dict {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-
-    #from_taggedjson
-    proc from_typedjson {json} {
-        package require huddle
-        package require huddle::json
-        set h [huddle::json::json2huddle parse $json]
-        #json2huddle parse unescapes the basic json escapes \n \\ etc
-        #$h could now contain raw form of surrogate pair (json2huddle parse as at 2025-014 doesn't convert the surrogates - just unescapes?)
-        if {[catch {encoding convertto utf-8 $h} errM]} {
-            #This test suggests we have raw surrogate pairs - REVIEW
-            package require punk::cesu
-            set h [punk::cesu::from_surrogatestring $h]
-        }
-        tomlish::dict::from_typedhuddle $h
-    }
-    proc from_typedhuddle {h} {
-        set resultd [dict create]
-        switch -- [huddle type $h] {
-            dict {
-                foreach k [huddle keys $h] {
-                    switch -- [huddle type $h $k] {
-                        dict {
-                            set huddle_d [huddle get $h $k]
-                            #puts stderr "huddle_d: $huddle_d"
-                            #set v [huddle get_stripped $h $k]
-                            if {[tomlish::typedhuddle::is_typeval $huddle_d]} {
-                                dict set resultd $k [tomlish::typedhuddle::convert_typeval_to_tomlish $huddle_d]
-                            } else {
-                                dict set resultd $k [from_typedhuddle $huddle_d]
-                            }
-                        }
-                        list {
-                            set items [huddle get $h $k]
-
-                            set numitems [huddle llength $items]
-                            if {$numitems == 0} {
-                                dict set resultd $k [list type ARRAY value {}]
-                            } else {
-                                set arritems [list]
-                                for {set i 0} {$i < $numitems} {incr i} {
-                                    set item [huddle get $items $i]
-                                    #puts stderr "item: $item"
-                                    #set v [huddle get $item]
-                                    if {[tomlish::typedhuddle::is_typeval $item]} {
-                                        lappend arritems [tomlish::typedhuddle::convert_typeval_to_tomlish $item]
-                                    } else {
-                                        lappend arritems [from_typedhuddle $item]
-                                    }
-                                }
-                                dict set resultd $k [list type ARRAY value $arritems]
-                            }
-                        }
-                        default {
-                            error "dict_from_json unexpected subtype [huddle type $h $k] in dict"
-                        }
-                    }
-                }
-            }
-            list {
-                set items [huddle get $h]
-                set numitems [huddle llength $items]
-                if {$numitems == 0} {
-                    return [list type ARRAY value {}]
-                } else {
-                    set arritems [list]
-                    for {set i 0} {$i < $numitems} {incr i} {
-                        set item [huddle get $items $i]
-                        #puts stderr "item: $item"
-                        #set v [huddle get $item]
-                        if {[tomlish::typedhuddle::is_typeval $item]} {
-                            lappend arritems [tomlish::typedhuddle::convert_typeval_to_tomlish $item]
-                        } else {
-                            lappend arritems [from_typedhuddle $item]
-                        }
-                    }
-                    return [list type ARRAY value $arritems]
-                }
-
-            }
-        }
-        return $resultd
-    }
-
-    proc is_typeval {d} {
-        #designed to detect {type <tag> value <whatever>} e.g {type INT value 3}, {type STRING value "blah etc"}
-        #as a sanity check we need to avoid mistaking user data that happens to match same form
-        #consider x.y={type="spud",value="blah"}
-        #The value of type will itself have already been converted to {type STRING value spud} ie never a single element.
-        #check the length of the type as a quick way to see it's a tag - not something else masqerading.
-        expr {[::tomlish::utils::string_is_dict $d] && [dict size $d] == 2 && [dict exists $d type] && [dict exists $d value] && [llength [dict get $d type]] == 1}
-    }
-
-    #simple types only - not containers?
-    proc convert_typeval_to_tomltest {d} {
-        set dtype [dict get $d type]
-        set dval  [dict get $d value]
-        switch -- $dtype {
-            INT {
-                set testtype integer
-                set dval [expr {$dval}] ;#convert e.g 0xDEADBEEF to 3735928559
-            }
-            FLOAT - BOOL {
-                set testtype [string tolower $dtype]
-            }
-            DATE-LOCAL {
-                set testtype date-local 
-            }
-            TIME-LOCAL {
-                if {[tomlish::utils::_is_hms_or_hm_time $dval] == 2} {
-                    #add seconds for sending to json
-                    set dval "${dval}:00"
-                }
-                set testtype time-local 
-            }
-            DATETIME - DATETIME-LOCAL {
-                #we expect it to be basically well formed here - this is not validation - just adding possible missing seconds
-                if {![regexp {([tT\ ])} $dval _ dsep]} {
-                    return -code error -errorcode {TOJSON SYNTAX INVALIDDATE} "Unable to process $dtype '$dval' - missing RFC3339 separator space or T" 
-                }
-                lassign [split $dval $dsep] dp tail
-
-                #toml allows HH:MM without seconds - but we need to add seconds 00 when passing to external systems
-                if {![tomlish::utils::is_time-local $tail]} {
-                    #there is some offset component. We aren't checking its syntax here (presumed done when dict building)
-                    regexp {([\+\-zZ])} $tail _ tsep ;#keep tsep for rebuilding
-                    lassign [split $tail $tsep] tp offset ;#offset may be empty if z or Z
-                } else {
-                    set tp $tail
-                    set tsep ""
-                    set offset ""
-                }
-                if {[tomlish::utils::_is_hms_or_hm_time $tp] == 2} {
-                    #need to add seconds
-                    set dval "${dp}${dsep}${tp}:00${tsep}${offset}"
-                }
-                set testtype [string tolower $dtype]
-            }
-            STRING - MULTISTRING  {
-                set testtype string
-                #JJJJ
-                set dval [tomlish::utils::unescape_string $dval]
-                set dval [tomlish::utils::rawstring_to_jsonstring $dval]
-            }
-            LITERAL - MULTILITERAL {
-                set testtype string
-                #don't validate on way out to json here?
-                #decoder should validate by calling tomlish::from_dict
-                #if {![tomlish::utils::rawstring_is_valid_literal $dval]} {
-                #    return -code error -errorcode {TOML SYNTAX INVALIDLITERAL} $msg
-                #}
-                set dval [tomlish::utils::rawstring_to_jsonstring $dval]
-            }
-            default {
-                error "convert_typeval_to_tomltest unhandled type $dtype"
-            }
-        }
-        return [list type $testtype value $dval]
-    }
-
-    # Check that each leaf is a typeval or typeval dict
-    #importantly: must accept empty dict leaves e.g {x {}}
-    proc is_typeval_dict {d {checkarrays 0}} {
-        if {![::tomlish::utils::string_is_dict $d]} {
-            return 0
-        }
-        dict for {k v} $d {
-            set is_d 0
-            if {!([is_typeval $v] || [set is_d [is_typeval_dict $v $checkarrays]])} {
-                return 0
-            }
-            if {!$is_d} {
-                set vtype [dict get $v type]
-                switch -- $vtype {
-                    INT - FLOAT - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL - BOOL - LITERAL - STRING - MULTILITERAL - MULTISTRING {}
-                    ARRAY {
-                        if {$checkarrays} {
-                            set arrdata [dict get $v value]
-                            foreach el $arrdata {
-                                if {![is_typeval_dict $el $checkarrays]} {
-                                    return 0
-                                }
-                            }
-                        }
-                    }
-                    default {
-                        puts stderr "is_typeval_dict: Unexpected type '$vtype'"
-                        return 0
-                    }
-                }
-            }
-        }
-        return 1
-    }
-
-    proc last_tomltype_posn {d} {
-        set last_simple -1
-        set dictposn [expr {[dict size $d] -1}]
-        foreach k [lreverse [dict keys $d]] {
-            set dval [dict get $d $k]
-            if {[is_typeval $dval]} {
-                set last_simple $dictposn
-                break
-            }
-            incr dictposn -1
-        }
-        return $last_simple
-    }
-
-
-    #review
-    proc name_from_tablestack {tablestack} {
-        set name ""
-        foreach tinfo [lrange $tablestack 1 end] {
-            lassign $tinfo type namepart
-            switch -- $type {
-                T {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                I {
-                    if {$name eq ""} {
-                        append name $namepart
-                    } else {
-                        append name .$namepart
-                    }
-                }
-                default {
-                    #end at first break in the leading sequence of T & I tablenames
-                    break
-                }
-            }
-        }
-        return $name
-    }
-
-
-    #tablenames_info is a flat dict with the key being an '@@' path
-    proc _show_tablenames {tablenames_info} {
-        #e.g {@l@a @@b} {ttype header_table tdefined closed}
-        append msg \n "tablenames_info:" \n
-        dict for {tkey tinfo} $tablenames_info {
-            append msg      "  "    "table:  $tkey" \n
-            dict for {field finfo} $tinfo {
-                append msg  "      "   "$field      $finfo" \n
-            }
-        }
-        return $msg
-    }
-
-    #take a raw string and classify: result is a 2 element list comprised of  KEY|SQKEY|DQKEY and the value being the appropriate inner string
-    proc classify_rawkey {rawval} {
-        if {![::tomlish::utils::is_barekey $rawval]} {
-            #requires quoting
-            #
-            #Any dot in the key would have been split by dict::from_tomlish - so if it's present here it's part of this key - not a level separator!
-            #
-            #we'll use a basic mechanisms for now to determine the type of quoting
-            # - whether it has any single quotes or not.
-            #   (can't go in an SQKEY)
-            # - whether it has any chars that require quoting when in a Bstring
-            #   (if so - then its visual representation might be unsuitable for a key in a toml text file, so escape and put in DQKEY instead of literal SQKEY)
-            #todo - more?
-            #REVIEW - the backslash might often be in things like a regex or windows path - which is often better expressed in a literal SQKEY
-            # from literal examples:
-            # 'c:\Users\nodejs\templates'
-            # '<\i\c*\s*>'
-            #If these are in *keys* our basic test will express these as:
-            # "c:\\Users\\nodejs\\templates"
-            # "<\\i\\c*\\s*>"
-            # This still works - but a smarter test might determine when SQKEY is the better form?
-            #when coming from external systems - can we even know if the value was already escaped? REVIEW
-            #Probably when coming from json - we know it's already escaped - and so we build our dict converting keys to unescaped
-            #TODO - clarify in documentation that keys resulting from dict::from_tomlish are in 'normalized' (unescaped) form
-            #
-            #For keys - we currently (2025) are only allowed barekeys,basic strings and literal strings. (no multiline forms)
-            set k_escaped [tomlish::utils::rawstring_to_Bstring_with_escaped_controls $rawval]
-            if {[string length $k_escaped] != [string length $rawval]} {
-                #escaping made a difference
-                set has_escape_requirement 1
-            } else {
-                set has_escape_requirement 0
-            }
-            if {[string first ' $rawval] >=0 || $has_escape_requirement} {
-                #basic string
-                # (any ANSI SGR sequence will end up here in escaped form )
-                return [list DQKEY $k_escaped]
-            } else {
-                #literal string
-                return [list SQKEY $rawval]
-            }
-        } else {
-            return [list KEY $rawval]
-        }
-    }
-    #the quoting implies the necessary escaping for DQKEYs
-    proc join_and_quote_rawkey_list {rawkeylist} {
-        set result ""
-        foreach rk $rawkeylist {
-            lassign [tomlish::dict::classify_rawkey $rk] type val
-            switch -- $type {
-                SQKEY {
-                    append result "'$val'."
-                }
-                DQKEY {
-                    append result "\"$val\"."
-                }
-                KEY {
-                    append result "$val."
-                }
-            }
-        }
-        return [string range $result 0 end-1]
-    }
-
-    proc _process_tomlish_dottedkey {element {context_refpath {}}} {
-        upvar tablenames_info tablenames_info
-        upvar datastructure datastructure
-        set dottedtables_defined [list]
-        set dkey_info [tomlish::get_dottedkey_info $element]
-        #e.g1 keys {x.y y} keys_raw {'x.y' "a\tb"}   keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-        #e.g2 keys {x.y y} keys_raw {{"x.y"} "a\tb"} keys {x.y {a   b}} (keys_raw has escape, keys has literal tab char)
-
-        #[a.b]
-        #t1.t2.dottedtable.leafkey = "val"
-        #we have already checked supertables a & {a b}
-        #  - in basic case, passed in context_refpath as {@@a @@b}
-        #  - our context_refpath could also include some combination of keys and array indices e.g {@@a @@b 3 @@subtablekey}
-        #We need to check {a b t1} & {a b t2} ('creation' only)
-        #and then 'dottedtable' is 'defined' while leafkey is an ordinary key in dottedtable
-
-        #note we also get here as a 'dottedkey' with the following even though there is no dot in k
-        #[a.b]
-        #leafkey = "val"
-
-        set all_dotted_keys        [dict get $dkey_info keys]
-        set dottedkeyname          [join $all_dotted_keys .]
-
-        if {[llength $all_dotted_keys] > 1} {
-            #dottedtable.k=1
-            #tX.dottedtable.k=1
-            #etc
-
-            #Wrap in a list so we can detect 'null' equivalent.
-            #We can't use empty string as that's a valid dotted key segment
-            set dottedtable_bag [list [lindex $all_dotted_keys end-1]]
-            set dotparents      [lrange $all_dotted_keys 0 end-2]
-        } else {
-            #basic case - not really a 'dotted' key
-            #k = 1
-            set dottedtable_bag [list] ;#empty bag
-            set dotparents      [list]
-        }
-        #assert dottedtable_bag only ever holds 0 or 1 elements
-        set leaf_key                    [lindex $all_dotted_keys end]
-
-        #see also: https://github.com/toml-lang/toml/issues/846 "Can dotted keys insert into already-defined [tables]?"
-        #This code was originally written with a misinterpretation of:
-        #"Dotted keys create and define a table for each key part before the last one, provided that such tables were not previously created."
-        # 'each key part before the last one' refers to each key in a single dotted key entry
-        # not each 2nd-to last key in a list of dotted keys.
-
-
-        #we've already tested the table/tablearray keys that got us here.. but not the dottedkey segments (if any) prior to dottedtable & leaf_key
-        set dottedsuper_refpath $context_refpath
-        foreach normkey $dotparents {
-            lappend dottedsuper_refpath @@$normkey
-            if {![dict exists $tablenames_info $dottedsuper_refpath ttype]} {
-                #supertable with this combined path (context_path plus parts of dottedkey) not yet 'created'
-                if {[tomlish::dict::path::exists $datastructure $dottedsuper_refpath]} {
-                    #There is data so it must have been created as a keyval
-                    set msg "Path $dottedsuper_refpath for dotted key $dottedkeyname already has data but doesn't appear to be a table (keycollision) - invalid"
-                    append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                    #raise a specific type of error for tests to check
-                    return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                }
-                #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                #dict set tablenames_info $dottedsuper_refpath ttype unknown_table ;#REVIEW
-                dict set tablenames_info $dottedsuper_refpath ttype unknown_dotted ;#REVIEW
-
-                #see note above re dotted keys insert into already defined table - we need to 'define' all the dotted supers in this block
-                lappend dottedtables_defined $dottedsuper_refpath
-
-                #ensure empty tables are still represented in the datastructure
-                tomlish::dict::path::setleaf datastructure $dottedsuper_refpath {} 0;#set to empty subdict
-            } else {
-                #added for fixed assumption
-                set ttype [dict get $tablenames_info $dottedsuper_refpath ttype]
-                set definedstate [dictn getdef $tablenames_info [list $dottedsuper_refpath tdefined] NULL]
-                switch -- $ttype {
-                    dottedkey_table - unknown_dotted {
-                        #'created' as dotted - but make sure it's from this header section - i.e defined not set
-                        if {$definedstate ne "NULL"} {
-                            #collision with some other dottedkey
-                            set msg "Table at $dottedsuper_refpath represented by dottedkey $dottedkeyname has been 'defined' elsewhere (table redefinition) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                        }
-                    }
-                    itable {
-                        #itables are immediately defined
-                        set msg "Table at $dottedsuper_refpath represented by dottedkey $dottedkeyname has been 'defined' as itable (table redefinition) - invalid"
-                        append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                        return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                    }
-                    default {
-                        #header_table, header_tablearray or unknown_header
-                        #is header_tablearray any different from header_table in this context?
-                        #we don't set tdefined for tablearray anyway - so should be ok here.
-                        if {$definedstate ne "NULL"} {
-                            set msg "Table at $dottedsuper_refpath represented by dottedkey $dottedkeyname has been 'defined' in a header  (table redefinition) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                        }
-                    }
-                }
-            }
-        }
-
-        #dottedtable being 2nd last segment was for original assumption - todo - tidy up? we are duplicating the logic above
-        #review - any need/advantage to treat 2nd to last key any different from other supers? ie D in a.b.c.D.key=1
-        #no need for 'unknown_dotted' vs 'dottedkey_table' ??
-        if {[llength $dottedtable_bag] == 1} {
-            set dottedtable [lindex $dottedtable_bag 0]
-            set dottedkey_refpath [list {*}$dottedsuper_refpath "@@$dottedtable"]
-            #our dotted key is attempting to define a table
-            if {![dict exists $tablenames_info $dottedkey_refpath ttype]} {
-                #first one - but check datastructure for collisions
-                if {[tomlish::dict::path::exists $datastructure $dottedkey_refpath]} {
-                    set msg "Path $dottedkey_refpath for dotted key $dottedkeyname already has data but doesn't appear to be a table (keycollision) - invalid"
-                    append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                    #raise a specific type of error for tests to check
-                    return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                }
-                #'create' the table
-                dict set tablenames_info $dottedkey_refpath ttype dottedkey_table
-                #don't actually set 'defined' here.. use the end of TABLE record to close them off by looking at this list
-                tomlish::dict::path::setleaf datastructure $dottedkey_refpath {} 0
-                lappend dottedtables_defined $dottedkey_refpath
-
-                #
-            } else {
-                #exists - but might be from another dottedkey within the current header section
-                #the table is open for adding keys until the next 'header' section ([tablename] / [[tablearray]])
-                #check for 'defined' closed (or just existence)
-                set ttype [dict get $tablenames_info $dottedkey_refpath ttype]
-                set definedstate [dictn getdef $tablenames_info [list $dottedkey_refpath tdefined] NULL]
-                switch -- $ttype {
-                    dottedkey_table - unknown_dotted {
-                        #'created' as dotted - but make sure it's from this header section - i.e defined not set
-                        if {$definedstate ne "NULL"} {
-                            #collision with some other dottedkey
-                            set msg "Table at $dottedkey_refpath represented by dottedkey $dottedkeyname has been 'defined' elsewhere (table redefinition) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                        }
-                    }
-                    itable {
-                        #itables are immediately defined
-                        set msg "Table at $dottedkey_refpath represented by dottedkey $dottedkeyname has been 'defined' as itable (table redefinition) - invalid"
-                        append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                        return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                    }
-                    default {
-                        #header_table, header_tablearray or unknown_header
-                        #is header_tablearray any different from header_table in this context?
-                        #we don't set tdefined for tablearray anyway - so should be ok here.
-                        if {$definedstate ne "NULL"} {
-                            set msg "Table at $dottedkey_refpath represented by dottedkey $dottedkeyname has been 'defined' in a header  (table redefinition) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                        }
-                    }
-                }
-            }
-        } else {
-            set dottedkey_refpath $dottedsuper_refpath
-        }
-        #assert - dottedkey represents a key val pair that can be added
-
-
-        set fullkey_refpath [list {*}$dottedkey_refpath @@$leaf_key]
-        if {[tomlish::dict::path::exists $datastructure $fullkey_refpath]} {
-            set msg "Duplicate key.  The key (path $fullkey_refpath) already exists at this level in the toml data. The toml data is not valid."
-            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-        }
-
-        #set keyval_dict [_get_keyval_value $element]
-        lassign [_get_keyval_value $element] _ keyval_dict _ sub_tablenames_info
-
-
-        #keyval_dict is either a {type <tomltag> value <whatever>}
-        #or the result from parsing an arbitrary dict from an inline table - which could theoretically look the same at the topmost level
-        #punk::dict::is_typeval can distinguish
-        tomlish::log::debug "_process_tomlish_dottedkey>>> context:$context_refpath dottedkey $dottedkeyname kv: $keyval_dict"
-        tomlish::dict::path::setleaf datastructure $fullkey_refpath $keyval_dict 0
-
-        #remove ?
-        #if {![tomlish::dict::is_typeval $keyval_dict]} {
-        #    #the value is either empty or or a dict structure with arbitrary (from-user-data) toplevel keys
-        #    # inner structure will contain {type <tag> value <etc>} if all leaves are not empty ITABLES
-        #    ##set tkey [list {*}$norm_segments {*}$all_dotted_keys]
-
-        #    #by not creating a tablenames_info record - we effectively make it closed anyway?
-        #    #it should be detected as a key
-        #    #is there any need to store tablenames_info for it??
-        #    #REVIEW
-
-        #    ##TODO - update?
-        #    #dictn incr tablenames_info [list $tkey seencount]
-        #    ##if the keyval_dict is not a simple type x value y - then it's an inline table ?
-        #    ##if so - we should add the path to the leaf_key as a closed table too - as it's not allowed to have more entries added.
-        #    #dictn set tablenames_info [list $tkey closed] 1
-        #}
-        return [dict create dottedtables_defined $dottedtables_defined]
-    }
-
-
-    #tomlish::dict::from_tomlish is a *basic* programmatic datastructure for accessing the data.
-    # produce a dictionary of keys and values from a tomlish tagged list.
-    # ----------------------------------------------------------------
-    # NOTE:
-    #  can instead produce a list if passed an ARRAY at toplevel
-    #  can produce a single value if passed a MULTISTRING or MULTILIST at toplevel
-    # These are fragments of tomlish used in recursive calls.
-    # Such fragments don't represent valid tomlish that can be converted to a toml doc.
-    # ----------------------------------------------------------------
-    # dict::from_tomlish is primarily for read access to toml data.
-    #Extraneous (not within quoted sections) whitespace and comments are not preserved in this structure,
-    # so a roundtrip from toml to this datastructure and back to toml will lose whitespace formatting and comments.
-    # creating/changing toml values can be done directly on a tomlish list if preserving (or adding) formatting/comments is desired.
-    #A separate package 'tomlish::object' may be needed to allow easier programmatic creating/updating/deleting of data elements whilst preserving (or adding or selectively deleting/editing) such formatting.
-    #
-
-    #within an ARRAY, we store  a list of items such as plain dicts (possibly empty) and {type <tag> value <val>} for simple types
-    #(ARRAYS can be mixed type)
-    #This means our dict structure should have only ARRAY and simple types which need to be in {type <tag> value <val>} form
-    #A dict within an array encodeded as a type ITABLE value <etc> should also parse - but is the unpreferred form - REVIEW test?
-
-    #Namespacing?
-    #ie note the difference:
-    #[Data]
-    #temp = { cpu = 79.5, case = 72.0}
-    # versus
-    #[Data]
-    #temps = [{cpu = 79.5, case = 72.0}]
-    proc from_tomlish {tomlish {returnextra 0}} {
-        package require dictn
-
-        #keep track of which tablenames have already been directly defined,
-        # so we can raise an error to satisfy the toml rule: 'You cannot define any key or table more than once. Doing so is invalid'
-        #Note that [a] and then [a.b] is ok if there are no subkey conflicts - so we are only tracking complete tablenames here.
-        #we don't error out just because a previous tablename segment has already appeared.
-
-        #Declaring, Creating, and Defining Tables
-        #https://github.com/toml-lang/toml/issues/795
-        #(update - only Creating and Defining are relevant terminology)
-
-        #review
-        #tablenames_info keys ttype created, tdefined, createdby, definedby, closedby ??? review keys
-        # [tname] = header_table   [[tname]] = header_tablearray
-
-                #consider the following 2 which are legal:
-                #[table]     #'table' created, defined=open type header_table 
-                #x.y = 3
-                #[table.x.z] #'table' tdefined=closed closedby={header_table table.x.z}, 'table.x' created, 'table.x.z' created tdefined=open tdefinedby={header_table table.x.z}
-                #k= 22
-                #            #'table.x.z' tdefined=closed closedby={eof eof}
-
-                #equivalent datastructure
-
-                #[table]     #'table' created, tdefined=open definedby={header_table table}
-                #[table.x]   #'table' tdefined=closed closedby={header_table table.x}, 'table.x' created tdefined=open definedby={header_table table.x}
-                #y = 3
-                #[table.x.z] #'table.x' tdefined=closed closedby={header_table table.x.z}, 'table.x.z' created tdefined=open definedby={header_table table.x.z}
-                #k=22
-
-                #illegal
-                #[table]       #'table' created and tdefined=open
-                #x.y = 3       #'table.x' created first keyval pair tdefined=open definedby={keyval x.y = 3}
-                #[table.x.y.z] #'table' tdefined=closed, 'table.x' closed because parent 'table' closed?, 'table.x.y' cannot be created
-                #k = 22
-                #
-                ## - we would fail on encountering table.x.y because only table and table.x are effectively tables - but that table.x is closed should be detected (?)
-
-                #illegal
-                #[table]
-                #x.y = {p=3}
-                #[table.x.y.z]
-                #k = 22
-                ## we should fail because y is an inline table which is closed to further entries
-
-            #note: it is not safe to compare normalized tablenames using join!
-            # e.g  a.'b.c'.d  is not the same as a.b.c.d
-            # instead compare {a b.c d} with {a b c d}
-            # Here is an example where the number of keys is the same, but they must be compared as a list, not a joined string.
-            #'a.b'.'c.d.e'  vs  'a.b.c'.'d.e'
-            #we need to normalize the tablenames seen so that {"x\ty"} matches {"x<rawtab>y"}
-
-
-
-        if {[uplevel 1 [list info exists tablenames_info]]} {
-            upvar tablenames_info tablenames_info
-        } else {
-            set tablenames_info [dict create] ;#keyed on tablepath each of which is an @@path such as {@@config @@subgroup @@etc} (corresponding to config.subgroup.etc)
-            #also has non @@ indexes which are list indexes as taken by tcl list commands (int or end-1 etc)
-            #value is a dict with keys: ttype, tdefined
-        }
-
-        if {![string is list $tomlish]} {
-            error "tomlish::dict::from_tomlish Supplied value for tomlish does not appear to be a tomlish list. Use tomlish::from_toml <tomldata> to get a tomlish list from toml."
-        }
-
-
-        log::info "---> dict::from_tomlish  processing '$tomlish'<<<"
-        set items $tomlish
-
-        foreach lst $items {
-            if {[lindex $lst 0] ni $::tomlish::tags} {
-                error "tomlish::dict::from_tomlish supplied list does not appear to be toml parsed into a tomlish tagged list. Run tomlish::decode::toml on the raw toml data to produce a tomlish list"
-            }
-        }
-
-        if {[lindex $tomlish 0] eq "TOMLISH"} {
-            #ignore TOMLISH tag at beginning
-            set items [lrange $tomlish 1 end]
-        }
-
-        set datastructure [dict create]
-        set dottedtables_defined [list]
-        foreach item $items {
-            set tag [lindex $item 0]
-            #puts "...> item:'$item' tag:'$tag'"
-            switch -exact -- $tag {
-                KEY - DQKEY - SQKEY - INT - FLOAT - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL - STRING - LITERAL {
-                    #we don't require invalid tomlish fragments with these keys in our direct recursion
-                    #(we do support ARRAY, MULTISTING, and MULTILITERAL tomlish fragments below)
-                    error "tomlish::dict::from_tomlish error: invalid tag: $tag. At the toplevel, from_tomlish can only process WS NEWLINE COMMENT and compound elements DOTTEDKEY TABLE TABLEARRAY ITABLE MULTILITERAL MULTISTRING"
-                }
-                DOTTEDKEY {
-                    #toplevel dotted key empty context_refpath
-                    set dkinfo [_process_tomlish_dottedkey $item {}]
-                    lappend dottedtables_defined {*}[dict get $dkinfo dottedtables_defined]
-                    #at any level - we don't expect any more DOTTEDKEY records in a tomlish structure after TABLE or TABLEARRAY are encountered
-                    #as those records should encapsulate their own dottedkeys
-
-                }
-                TABLEARRAY {
-                    #close off any dottedtables_defined created by dottedkeys at this level
-                    foreach dtablepath $dottedtables_defined {
-                        dict set tablenames_info $dtablepath tdefined closed
-                    }
-                    set dottedtables_defined [list] ;#for closing off at end by setting 'defined'
-
-                    set tablearrayname [lindex $item 1]
-                    tomlish::log::debug "---> tomlish::dict::from_tomlish processing item TABLENAME (name: $tablearrayname): $item"
-                    set norm_segments [::tomlish::toml::tablename_split $tablearrayname true] ;#true to normalize
-                    #we expect repeated tablearray entries - each adding a sub-object to the value, which is an array/list.
-                    #tablearrayname is likely to appear multiple times - so unlike a TABLE we don't check for 'defined' for the full name as an indicator of a problem
-                    set supertable [list]
-                    ##############
-                    # [[a.b.c.d]]
-                    # norm_segments = {a b c d}
-                    #check a {a b} {a b c} <---- supertables of a.b.c.d
-                    ##############
-                    set refpath [list] ;#e.g @@j1 @@j2 1 @@k1 end
-                    foreach normseg [lrange $norm_segments 0 end-1] {
-                        lappend supertable $normseg
-                        lappend refpath @@$normseg
-                        if {![dict exists $tablenames_info $refpath ttype]} {
-                            #supertable with this path doesn't yet exist
-                            if {[tomlish::dict::path::exists $datastructure $refpath]} {
-                                #There is data though - so it must have been created as a keyval
-                                set msg "Supertable [join $supertable .] of tablearray name $tablearrayname already has data but doesn't appear to be a table - invalid"
-                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                #raise a specific type of error for tests to check
-                                #test: datastructure_tablearray_supertable_keycollision
-                                return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                            } else {
-                                #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                                #review - we can't later specify as tablearray so should just set ttype to header_table even though it's being created
-                                # because of a tablearray header?
-                                #By setting ttype to something other than table_header we can provide more precise errorCode/msg ??
-                                dict set tablenames_info $refpath ttype unknown_header
-                                #ensure empty tables are still represented in the datastructure
-                                dict set datastructure {*}$supertable [list]
-                            }
-                        } else {
-                            #REVIEW!!
-                            # what happens with from_toml {[[a.b.c]]} {[[a.b]]}  ???
-                            #presumed that a and a.b were 'created' as tables (supertables of tablearray at a.b.c)  and can't now be redefined as tablearrays
-
-                            #supertable has already been created - and may be defined - but even if defined we can add subtables unless it is of type itable
-                            #but if it's a tablearray - we need to point to the most 'recently defined table element of the array'
-                            #(last member of that array - need to check type? allowed to have non-table elements ie nonhomogenous??)
-                            set supertype [dict get $tablenames_info $refpath ttype]
-                            if {$supertype eq "header_tablearray"} {
-                                #exercised by toml-tests:
-                                # valid/table/array-table-array
-                                # valid/table/array-nest
-
-                                #puts stdout "todict!!! TABLEARRAY nesting required for supertable [join $supertable .]"
-
-                                #'refer' to the appropriate element in existing array
-                                set arrdata [tomlish::dict::path::get $datastructure [list {*}$refpath @@value]]
-                                set idx [expr {[llength $arrdata]-1}]
-                                if {$idx < 0} {
-                                    #existing tablearray should have at least one entry even if empty (review)
-                                    set msg "reference to empty tablearray?"
-                                    return -code error -errorcode {TOMLISH STRUCTURE REFTOEMPTYTABLEARRAY} $msg
-                                }
-                                lappend refpath $idx
-                            }
-                        }
-                    }
-                    #
-                    #puts "TABLE supertable refpath $refpath"
-                    lappend refpath @@[lindex $norm_segments end]
-                    tomlish::log::debug "TABLEARRAY refpath $refpath"
-                    set tablearray_refpath $refpath
-
-
-                    if {![dict exists $tablenames_info $tablearray_refpath ttype]} {
-                        #first encounter of this tablearrayname
-                        if {[tomlish::dict::path::exists $datastructure $tablearray_refpath]} {
-                            #e.g from_toml {a=1} {[[a]]}
-                            set msg "Cannot create tablearray name $tablearrayname. Key already has data but key doesn't appear to be a table (keycollision) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            #raise a specific type of error for tests to check
-                            #test: datastructure_tablearray_direct_keycollision_error
-                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                        }
-                        #no collision - we can create the tablearray and the  array in the datastructure
-                        dict set tablenames_info $tablearray_refpath ttype header_tablearray
-                        #dict set datastructure {*}$norm_segments [list type ARRAY value {}]
-                        #create array along with empty array-item at position zero
-                        tomlish::dict::path::setleaf datastructure $tablearray_refpath [list type ARRAY value {{}}] 0
-                        set arrayitem_refpath [list {*}$tablearray_refpath 0]
-                        #set ARRAY_ELEMENTS [list]
-                    } else {
-                        #we have an existing tablenames_info record for this path - but is it a tablearray?
-                        set ttype [dict get $tablenames_info $tablearray_refpath ttype]
-                        if {$ttype ne "header_tablearray"} {
-                            #header_table or itable
-                            switch -- $ttype {
-                                itable                          {set ttypename itable}
-                                header_table                    {set ttypename table}
-                                dottedkey_table                 {set ttypename dottedkey_table}
-                                unknown_header - unknown_dotted {
-                                    #table was created e.g as supertable - but not specifically a tablearray
-                                    #violates ordering - return specific test error
-                                    set msg "Table $tablearrayname referenced as supertable before tablearray defined (ordering)"
-                                    return -code error -errorcode {TOMLISH STRUCTURE TABLEARRAYORDERING} $msg
-                                }
-                                default                         {error "unrecognised type $ttype - expected header_table or itable"}
-                            }
-                            set msg "tablearray name $tablearrayname already appears to be already created as '$ttypename' not tablearray - invalid?"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            #raise a specific type of error for tests to check
-                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                        }
-                        #EXISTING tablearray
-                        #add to array
-                        #error "add_to_array not implemented"
-                        #{type ARRAY value <list>}
-                        #set ARRAY_ELEMENTS [dict get $datastructure {*}$norm_segments value]
-                        tomlish::log::debug ">>>>pre-extend-array dict::from_tomlish datastructure: $datastructure"
-                        set existing_array [tomlish::dict::path::get $datastructure [list {*}$tablearray_refpath @@value]]
-                        set arrayitem_refpath [list {*}$tablearray_refpath [llength $existing_array]]
-                        tomlish::dict::path::lappend datastructure $tablearray_refpath {}
-                        tomlish::log::debug ">>>>post-extend-array dict::from_tomlish datastructure: $datastructure"
-                    }
-
-
-                    #set object [dict create] ;#array context equivalent of 'datastructure'
-
-                    #add to ARRAY_ELEMENTS and write back in to datastructure.
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        tomlish::log::debug "----> todict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkinfo [_process_tomlish_dottedkey $element $arrayitem_refpath]
-                                lappend dottedtables_defined {*}[dict get $dkinfo dottedtables_defined]
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            TABLE {
-                                #we *perhaps* should be able to process tablearray subtables either as part of the tablearray record, or independently.
-                                #(or even a mixture of both, although that is somewhat an edge case, and of limited utility)
-                                #[[fruit]]
-                                #x=1
-                                #  [fruit.metadata]
-                                #  [fruit.otherdata]
-
-                                #when processing a dict destined for the above - the tomlish generator (e.g from_dict)
-                                #should create as 1 or 3 records (but could create 2 records if there was an unrelated table in between the subtables)
-                                #choices: all in tablearray record,  tablearray + 1 or 2 table records.
-                                #
-                                #We are going the other way here - so we just need to realise that the list of tables 'belonging' to this tablearray might not be complete.
-                                #
-                                #the subtable names must be prefixed with the tablearray - we should validate that for any contained TABLE records
-
-                                #The default mechanism is for from_dict to produce tomlish with separate TABLE records - and use the ordering to determine membership
-                                #If we were to support wrapping the TABLE records within a TABLEARRAY - we should also support TABLEARRAY within TABLEARRAY
-                                # -----------------------------------------------------------------------
-                                #Implementing this is not critical for standard encoding/decoding of toml!
-                                #It would be an alternative form for the tomlish intermediate form - and adds complexity.
-                                #
-                                #The upside would be to provide a function for sorting/rearranging in the tomlish form if all records were fully encapsulated.
-                                #A possible downside is that unrelated tables placed before a tablearray is fully defined (within the tablearray definition area in toml)
-                                # would have to be re-positioned before or after the encapsulated tablearray record.
-                                # While unrelated tables in such a position aren't a recommended way to write toml, they appear to be valid 
-                                # and preserving the author's ordering is a goal of the basic encoding/decoding operations if no explicit sorting/reordering was requested. 
-                                #
-                                #Consider an 'encapsulate' method to this (tomlish -> tomlish)
-                                # -----------------------------------------------------------------------
-                                #todo
-                                error "tomlish::dict::from_tomlish TABLE element within TABLEARRAY not handled - TABLE should be a separate tomlish record"
-                            }
-                            default {
-                                error "tomlish::dict::from_tomlish Sub element of type '$type' not understood in tablearray context. Expected only DOTTEDKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-
-                    #end of TABLEARRAY record - equivalent of EOF or next header - close off the dottedtables
-                    foreach dtablepath $dottedtables_defined {
-                        dict set tablenames_info $dtablepath tdefined closed
-                    }
-                }
-                TABLE  {
-                    #close off any dottedtables_defined created by dottedkeys at this level
-                    foreach dtablepath $dottedtables_defined {
-                        dict set tablenames_info $dtablepath tdefined closed
-                    }
-                    set tablename [lindex $item 1]
-                    set dottedtables_defined [list] ;#for closing off at end by setting 'defined' 
-                    #As our TABLE record contains all it's child DOTTEDKEY records - this should be equivalent to setting them as defined at EOF or next header. 
-
-                    #-----------------------------------------------------------------------------------
-                    #default assumption - our reference is to the main tablenames_info and datastructure
-                    #Will need to append keys appropriately if we have recursed
-                    #-----------------------------------------------------------------------------------
-
-                    log::debug "---> tomlish::dict::from_tomlish processing item TABLE (name: $tablename): $item"
-                    set norm_segments [::tomlish::toml::tablename_split $tablename true] ;#true to normalize
-
-
-
-                    set name_segments [::tomlish::toml::tablename_split $tablename 0] ;#unnormalized e.g ['a'."b".c.d] -> 'a' "b" c d
-                    #results of tablename_split <name> 0 are 'raw' - ie some segments may be enclosed in single or double quotes.
-
-
-                    set supertable [list]
-                    ##############
-                    # [a.b.c.d]
-                    # norm_segments = {a b c d}
-                    #check a {a b} {a b c} <---- supertables of a.b.c.d
-                    ##############
-
-                    ##############
-                    #[[a]]
-                    #[a.b]        #supertable a is tablearray
-                    ##############
-
-                    #also consider
-                    ##############
-                    # [[a.b]]
-                    # [a.b.c.d]   #supertable a is a table, supertable a.b is tablearray, supertable a.b.c is elementtable
-                    ##############
-                    set refpath [list] ;#e.g @@j1 @@j2 1 @@k1 end
-                    foreach normseg [lrange $norm_segments 0 end-1] {
-                        lappend supertable $normseg
-                        lappend refpath @@$normseg
-                        if {![dict exists $tablenames_info $refpath ttype]} {
-                            #supertable with this path doesn't yet exist
-                            if {[tomlish::dict::path::exists $datastructure $refpath]} {
-                                #There is data though - so it must have been created as a keyval
-                                set msg "Supertable [join $supertable .] of table name $tablename (path $refpath) already has data but doesn't appear to be a table (keycollision) - invalid"
-                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                #raise a specific type of error for tests to check
-                                return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                            }
-                            #here we 'create' it, but it's not being 'defined' ie we're not setting keyvals for it here
-                            #we also don't know whether it's a table or a dottedkey_table (not allowed to be tablearray - out of order?)
-                            dict set tablenames_info $refpath ttype unknown_header
-                            #ensure empty tables are still represented in the datastructure
-                            #dict set datastructure {*}$supertable [list]
-                            tomlish::dict::path::setleaf datastructure $refpath {} 0
-                        } else {
-                            #supertable has already been created - and may be defined - but even if defined we can add subtables unless it is of type itable
-                            if {[dict get $tablenames_info $refpath ttype] eq "header_tablearray"} {
-                                #'refer' to the appropriate element in existing array
-                                set arrdata [tomlish::dict::path::get $datastructure [list {*}$refpath @@value]]
-                                set idx [expr {[llength $arrdata]-1}]
-                                if {$idx < 0} {
-                                    #existing tablearray should have at least one entry even if empty (review)
-                                    set msg "reference to empty tablearray?"
-                                    return -code error -errorcode {TOMLISH STRUCTURE REFTOEMPTYTABLEARRAY} $msg
-                                }
-                                lappend refpath $idx
-                            } else {
-                                #??
-                                if {[dictn getdef $tablenames_info [list $refpath tdefined] NULL] eq "NULL"} {
-                                } else {
-                                }
-                            }
-                        }
-                    }
-                    #puts "TABLE supertable refpath $refpath"
-                    lappend refpath @@[lindex $norm_segments end]
-                    tomlish::log::info "TABLE refpath $refpath"
-                    set table_refpath $refpath
-
-
-
-
-                    #table [a.b.c.d] hasn't been defined - but may have been 'created' already by a longer tablename
-                    # - or may have existing data from a keyval
-                    if {![dict exists $tablenames_info $table_refpath ttype]} {
-                        if {[tomlish::dict::path::exists $datastructure $table_refpath]} {
-                            #e.g from_toml {a=1} {[a]}
-                            set msg "Cannot create table name $tablename. Key already has data but key doesn't appear to be a table (keycollision) - invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            #raise a specific type of error for tests to check
-                            #test: datastructure_tablename_keyval_collision_error
-                            return -code error -errorcode {TOMLISH STRUCTURE KEYCOLLISION} $msg
-                        }
-                        #no data or previously created table
-                        dict set tablenames_info $table_refpath ttype header_table
-
-                        #We are 'defining' this table's keys and values here (even if empty)
-                        #dict set datastructure {*}$norm_segments [list] ;#ensure table still represented in datastructure even if we add no keyvals here
-                        tomlish::dict::path::setleaf datastructure $table_refpath {} 0;#ensure table still represented in datastructure even if we add no keyvals here
-                    } else {
-                        if {[dict get $tablenames_info $table_refpath ttype] eq "header_tablearray"} {
-                            #e.g tomltest invalid/table/duplicate-table-array2
-                            #[[tbl]]
-                            #[tbl]
-                            set msg "Table name $tablename has already been created as a tablearray. Invalid"
-                            append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                            return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                        } else {
-                            #any other type tdefined is a problem
-                            set T_DEFINED [dictn getdef $tablenames_info [list $table_refpath tdefined] NULL]
-                            if {$T_DEFINED ne "NULL" } {
-                                #our tablename e.g [a.b.c.d] declares a space to 'define' subkeys - but there has already been a definition space for this path
-                                set msg "Table name $tablename  has already been defined in the toml data. Invalid"
-                                append msg \n [tomlish::dict::_show_tablenames $tablenames_info]
-                                #raise a specific type of error for tests to check
-                                return -code error -errorcode {TOMLISH STRUCTURE TABLEREDEFINED} $msg
-                            }
-                        }
-                    }
-                    dict set tablenames_info $table_refpath tdefined open
-
-                    #now add the contained elements
-                    foreach element [lrange $item 2 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> todict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkinfo [_process_tomlish_dottedkey $element $table_refpath]
-                                lappend dottedtables_defined {*}[dict get $dkinfo dottedtables_defined]
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in table context. Expected only DOTTEDKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-
-                    #end of TABLE record - equivalent of EOF or next header - close off the dottedtables
-                    foreach dtablepath $dottedtables_defined {
-                        dict set tablenames_info $dtablepath tdefined closed
-                    }
-                }
-                ITABLE {
-                    #As there is no other mechanism to create tables within an ITABLE than dottedkeys
-                    # and ITABLES are fully defined/enclosed - we can rely on key collision and don't need to track dottedtables_defined - REVIEW.
-                    set dottedtables_defined [list]
-                    #SEP???
-                    #ITABLE only ever on RHS of = or inside ARRAY
-                    set datastructure [dict create]
-                    set tablenames_info [dict create]
-
-                    foreach element [lrange $item 1 end] {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            DOTTEDKEY {
-                                set dkinfo [_process_tomlish_dottedkey $element]
-                            }
-                            NEWLINE - COMMENT - WS {
-                                #ignore
-                            }
-                            default {
-                                error "Sub element of type '$type' not understood in ITABLE context. Expected only KEY,DQKEY,SQKEY,NEWLINE,COMMENT,WS"
-                            }
-                        }
-                    }
-                }
-                ARRAY {
-                    #invalid at toplevel of a 'complete' tomlish structure - but we support it here for recursive fragment processing
-                    #arrays in toml are allowed to contain mixtures of types
-                    set datastructure [list]
-                    log::debug "--> processing array: $item"
-
-                    foreach element [lrange $item 1 end]  {
-                        set type [lindex $element 0]
-                        log::debug "----> tododict processing $tag subitem $type processing contained element $element"
-                        switch -exact -- $type {
-                            INT - FLOAT - BOOL - DATETIME - DATETIME-LOCAL - DATE-LOCAL - TIME-LOCAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            STRING {
-                                #JJJJ
-                                #don't unescape string!
-                                set value [lindex $element 1]
-                                #lappend datastructure [list type $type value [::tomlish::utils::unescape_string $value]]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            LITERAL {
-                                set value [lindex $element 1]
-                                lappend datastructure [list type $type value $value]
-                            }
-                            ITABLE {
-                                #anonymous table
-                                #lappend datastructure [list type $type value [::tomlish::to_dict [list $element]]]
-                                lappend datastructure  [::tomlish::dict::from_tomlish [list $element]] ;#store itables within arrays as raw dicts (possibly empty)
-                            }
-                            TABLE - TABLEARRAY {
-                                #invalid? shouldn't be output from from_dict - but could manually be constructed as such?  review
-                                #doesn't make sense as table needs a name?
-                                #take as synonym for ITABLE?
-                                error "tomlish::dict::from_tomlish $type within array unexpected"
-                            }
-                            ARRAY - MULTISTRING - MULTILITERAL {
-                                #set value [lindex $element 1]
-                                lappend datastructure [list type $type value [::tomlish::dict::from_tomlish [list $element]]]
-                            }
-                            WS - SEP - NEWLINE - COMMENT {
-                                #ignore whitespace, commas, newlines and comments
-                            }
-                            default {
-                                error "tomlish::dict::from_tomlish Unexpected value type '$type' found in array"
-                            }
-                        }
-                    }
-                }
-                MULTILITERAL {
-                    #Not for toplevel of complete tomlish - (recursive fragment processing)
-
-                    #triple squoted string
-                    #first newline stripped only if it is the very first element
-                    #(ie *immediately* following the opening delims)
-                    #All whitespace other than newlines is within LITERALPARTS
-                    # -------------------------------------------------------------------------
-                    #todo - consider extension to toml to allow indent-aware multiline literals
-                    # how - propose as issue in toml github? Use different delim? e.g ^^^ ?
-                    #e.g
-                    # xxx=?'''abc
-                    #         def
-                    #          etc
-                    #         '''
-                    #  - we would like to trimleft each line to the column following the opening delim
-                    # -------------------------------------------------------------------------
-
-                    log::debug "---> todict processing multiliteral: $item"
-                    set parts [lrange $item 1 end]
-                    if {[lindex $parts 0 0] eq "NEWLINE"} {
-                        set parts [lrange $parts 1 end] ;#skip it
-                    }
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        switch -exact -- $type {
-                            LITERALPART {
-                                append stringvalue [lindex $element 1]
-                            }
-                            NEWLINE {
-                                set val [lindex $element 1]
-                                if {$val eq "lf"} {
-                                    append stringvalue \n
-                                } else {
-                                    append stringvalue \r\n
-                                }
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                MULTISTRING {
-                    #Not for toplevel of complete tomlish - (recursive fragment processing)
-                    #triple dquoted string
-                    log::debug "---> tomlish::dict::from_tomlish processing multistring: $item"
-                    set stringvalue ""
-                    set idx 0
-                    set parts [lrange $item 1 end]
-                    for {set idx 0} {$idx < [llength $parts]} {incr idx} {
-                        set element [lindex $parts $idx]
-                        set type [lindex $element 0]
-                        #We use STRINGPART in the tomlish representation as a distinct element to STRING - which would imply wrapping quotes to be reinserted
-                        switch -exact -- $type {
-                            STRING {
-                                #todo - do away with STRING ?
-                                #we don't build MULTISTRINGS containing  STRING - but should we accept it?
-                                tomlish::log::warn "double quoting a STRING found in MULTISTRING - should be STRINGPART?"
-                                #append stringvalue "\"[::tomlish::utils::unescape_string [lindex $element 1]]\""
-                                append stringvalue "\"[lindex $element 1]\""
-                            }
-                            STRINGPART {
-                                #JJJ
-                                #don't unescape string 
-                                #append stringvalue [::tomlish::utils::unescape_string [lindex $element 1]]
-                                append stringvalue [lindex $element 1]
-                            }
-                            CONT {
-                                #When the last non-whitespace character on a line is an unescaped backslash,
-                                #it will be trimmed along with all whitespace (including newlines) up to the next non-whitespace character or closing delimiter
-                                # review - we allow some whitespace in stringpart elements - can a stringpart ever be all whitespace?
-                                set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                if {$next_nl == -1} {
-                                    #last (or first and only) line
-                                    return -code error -errorcode {TOMLISH SYNTAX INVALIDESCAPE} "Invalid whitespace escape - not a valid continuation position"
-                                    #set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                    #if {$non_ws >= 0} {
-                                    #    #append stringvalue "\\"  
-                                    #    return -code error -errorcode {TOMLISH SYNTAX INVALIDESCAPE} "Invalid whitespace escape - not a valid continuation position"
-                                    #} else {
-                                    #    #skip over ws without emitting
-                                    #    set idx [llength $parts]
-                                    #}
-                                } else {
-                                    set parts_til_nl [lrange $parts 0 $next_nl-1]
-                                    set non_ws [lsearch -index 0 -start $idx+1 -not $parts_til_nl WS]
-                                    if {$non_ws >= 0} {
-                                        #This CONT is invalid. If there had been a non-whitespace char directly following it,
-                                        #it wouldn't have come through as a CONT token
-                                        #Now that we see it isn't the last non-whitespace backslash on the line we can reject 
-                                        # as an invalid escape of space or tab
-                                        #append stringvalue "\\"
-                                        return -code error -errorcode {TOMLISH SYNTAX INVALIDESCAPE} "Invalid whitespace escape - not a valid continuation position"
-                                    } else {
-                                        #skip over ws on this line
-                                        set idx $next_nl
-                                        #then have to check each subsequent line until we get to first non-whitespace
-                                        set trimming 1
-                                        while {$trimming && $idx < [llength $parts]} {
-                                            set next_nl [lsearch -index 0 -start $idx+1 $parts NEWLINE]
-                                            if {$next_nl == -1} {
-                                                #last line
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not $parts WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                } else {
-                                                    set idx [llength $parts]
-                                                }
-                                                set trimming 0
-                                            } else {
-                                                set non_ws [lsearch -index 0 -start $idx+1 -not [lrange $parts 0 $next_nl-1] WS]
-                                                if {$non_ws >= 0} {
-                                                    set idx [expr {$non_ws -1}]
-                                                    set trimming 0
-                                                } else {
-                                                    set idx $next_nl
-                                                    #keep trimming
-                                                }
-                                            }
-                                        }
-                                    }
-                                }
-                            }
-                            NEWLINE {
-                                #if newline is first element - it is not part of the data of a multistring
-                                if {$idx > 0} {
-                                    set val [lindex $element 1]
-                                    if {$val eq "lf"} {
-                                        append stringvalue \n
-                                    } else {
-                                        append stringvalue \r\n
-                                    }
-                                }
-                            }
-                            WS {
-                                append stringvalue [lindex $element 1]
-                            }
-                            default {
-                                error "Unexpected value type '$type' found in multistring"
-                            }
-                        }
-                    }
-                    set datastructure $stringvalue
-                }
-                WS - COMMENT - NEWLINE {
-                    #ignore
-                }
-                BOM {
-                    #this token is the unicode single char \uFFEF
-                    #It doesn't tell us what encoding was originally used (though toml should only accept UTF-8 files)
-                    #ignore at start - what about in other positions?
-                }
-                default {
-                    error "Unexpected tag '$tag' in Tomlish list '$tomlish'"
-                }
-            }
-        }
-        if {!$returnextra} {
-            return $datastructure
-        } else {
-            return [dict create datastructure $datastructure tablenames_info $tablenames_info]
-        }
-    }
-}
-namespace eval tomlish::path {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-
-    set test_tomlish [tomlish::from_toml {  } #comment {z=1} {x.y=2 #xy2} {[[shop.product]] #product1} {x=[ #array1} {11 #val1} {, 12 #val2} {]} {[unrelated.' etc ']} {a.b={c=666}} {a.x={}} {[[shop.product]]} {x="test"} {[shop]} {name="myshop"}]
-
-    proc get {tomlish {path {}}} {
-        if {$path eq ""} {
-            return $tomlish
-        }
-        if {[string index $path 0] in [list . "\["]} {
-            set path [tomlish::utils::jq_to_path $path]
-        }
-
-        #at the cost of some performance, sanity check that the tomlish is valid
-        if {[catch {tomlish::to_dict $tomlish} d]} {
-            error "tomlish::path::get error supplied tomlish is malformed\nerrmsg: $d"
-        }
-        #since we have the dict - test the path is valid
-        if {![tomlish::dict::path::exists $d $path]} {
-            error "tomlish::path::get - path \"$path\" not found in tomlish $tomlish"
-        }
-
-        if {[lindex $tomlish 0] eq "TOMLISH"} {
-            set tomlish [lrange $tomlish 1 end]
-        }
-        ::set pathsofar [list]
-        ::set tomlitems [list] ;#reducing set. 2 element list {keypath itemlist}
-        foreach record $tomlish {
-            lappend tomlitems [list {} [list $record]] ;#root records
-        }
-
-        ::set dictsubpath [list] ;#reset at every index encounter?
-        foreach p $path {
-            ::lappend pathsofar $p
-            set sublist [list]
-            if {[string range $p 0 1] eq "@@"} {
-                set realsearchkey [string range $p 2 end]
-                lappend dictsubpath $realsearchkey
-                foreach path_items $tomlitems {
-                    lassign $path_items subpath tlist
-                    lappend subpath $realsearchkey
-                    foreach item $tlist {
-                        set tp [lindex $item 0]
-                        switch -- $tp {
-                            WS - NEWLINE - COMMENT {
-                            }
-                            DOTTEDKEY {
-                                #can occur at toplevel (before others) or within other elements
-                                set keyinfo [tomlish::get_dottedkey_info $item]
-                                set keys_raw [dict get $keyinfo keys_raw]
-                                puts stderr "subpath:$subpath -->DOTTEDKEY keys_raw: $keys_raw"
-                                #may not be enough keys_raw for subpath - but there could be further ITABLES to continue the dict further
-                                set prefixparts [lrange $keys_raw 0 [llength $subpath]-1]
-                                set is_kmatch 1 ;#default assumption only
-                                foreach dsub $subpath kpart $prefixparts {
-                                    if {$dsub ne $kpart} {
-                                        set is_kmatch 0
-                                    }
-                                }
-                                if {$is_kmatch} {
-                                    if {[llength $keys_raw] == [llength $subpath]} {
-                                        set subpath [list]
-                                        #e.g {DOTTEDKEY {{KEY xxx}} = {WS { }} {STRING blah}}
-                                        lappend sublist [list $subpath [lrange $item 3 end]]
-                                    } else {
-                                        lappend sublist [list $subpath [list $item]]
-                                    }
-                                }
-                            }
-                            ITABLE {
-                                #subelement only
-                                set itablechildren [lrange $item 1 end]
-                                puts stderr "subpath:$subpath -->ITABLE records: $itablechildren"
-                                set nextpath [lmap v $subpath {string cat @@ $v}]
-                                set results [tomlish::path::get $itablechildren $nextpath]
-                                set subpath [list]
-                                puts "--> lappending [list $subpath $results]"
-                                lappend sublist [list $subpath $results]
-                            }
-                            TABLEARRAY {
-                                #toplevel only
-                                set fulltablename [lindex $item 1]
-                                set normalise 1
-                                set tparts [tomlish::toml::tablename_split $fulltablename $normalise]
-                                if {[llength $tparts] < [llength $subpath]} {continue} ;#not enough parts to satisfy current subpath query
-                                set prefixparts [lrange $tparts 0 [llength $subpath]-1]
-                                set is_tmatch 1 ;#default assumption only
-                                foreach dsub $subpath tpart $prefixparts {
-                                    if {$dsub ne $tpart} {
-                                        set is_tmatch 0
-                                    }
-                                }
-                                #TODO reference arrays
-                                if {$is_tmatch} {
-                                    if {[llength $tparts] == [llength $subpath]} {
-                                        set subpath [list]
-                                        lappend sublist [list $subpath [lrange $item 2 end]]
-                                    } else {
-                                        #TODO
-                                        set subpath 0
-                                        lappend sublist [list $subpath [list $item]] ;#add entire TABLE line
-                                    }
-                                }
-                            }
-                            TABLE {
-                                #toplevel only
-                                set fulltablename [lindex $item 1]
-                                set normalise 1
-                                set tparts [tomlish::toml::tablename_split $fulltablename $normalise]
-                                if {[llength $tparts] < [llength $subpath]} {continue} ;#not enough parts to satisfy current subpath query
-                                set prefixparts [lrange $tparts 0 [llength $subpath]-1]
-                                set is_tmatch 1 ;#default assumption only
-                                foreach dsub $subpath tpart $prefixparts {
-                                    if {$dsub ne $tpart} {
-                                        set is_tmatch 0
-                                    }
-                                }
-                                if {$is_tmatch} {
-                                    if {[llength $tparts] == [llength $subpath]} {
-                                        set subpath [list]
-                                        lappend sublist [list $subpath [lrange $item 2 end]]
-                                    } else {
-                                        #leave subpath
-                                        lappend sublist [list $subpath [list $item]] ;#add entire TABLE line
-                                    }
-                                }
-                            }
-                            ARRAY {
-                                #subelement only
-                            }
-
-                        }
-                    }
-                }
-            } else {
-                #index
-                #will never occur at toplevel (dict::path::exists already ruled it out)
-                foreach path_items $toml_items {
-                    lassign $path_items subpath $tlist
-                    set tp [lindex $tlist 0]
-                    switch -- $tp {
-                        ARRAY {
-                        }
-                    }
-                }
-            }
-            #temp
-            puts stdout "pathsofar: $pathsofar"
-            puts stdout [punk::lib::showdict -roottype list $sublist]
-            set tomlitems $sublist
-        }
-
-        #REVIEW
-        if {[llength $tomlitems] == 1} {
-            return [lindex $tomlitems 0 1]
-        }
-        set result [list]
-        foreach i $tomlitems {
-            lappend result [lindex $i 1]
-        }
-        return $result
-        #return [lindex $tomlitems 1]
-    }
-
-}
-
-namespace eval tomlish::dict::path {
-
-    #access tomlish dict structure
-    namespace export {[a-z]*};   # Convention: export all lowercase
-
-    #access with path such as: @@k @@k 0 @@k end  where dict keys marked with @@ and plain values are list indices into <list> in {type ARRAY value <list>}
-    #leaf elements returned as structured {type <t> value <v>}
-
-    proc get {dictval {path {} } } {
-        if {$path eq ""} {
-            return $dictval
-        }
-        if {[string index $path 0] in [list . "\[" ] } {
-            set path [tomlish::utils::jq_to_path $path]
-        }
-
-        ::set data $dictval
-        ::set pathsofar [list]
-        ::set i 0
-        foreach p $path {
-            ::lappend pathsofar $p
-            if {[string range $p 0 1] eq "@@" } {
-                #dict key
-                ::set data [dict get $data [string range $p 2 end]]
-            } else {
-                #ARRAY or raw list index
-                if {[llength $pathsofar] > 1 && [string trim [lindex $pathsofar $i-1]] eq ""} {
-                    #previous path was query for entire list - result is a raw list, not a dict
-                    if {[string trim $p] eq ""} {
-                        #review - multiple {[]} in a row in the path is pretty suspicious - raise error
-                        error "tomlish::dict::path::get error - multiple empty indices in a row not supported"
-                    }
-                    ::set data [lindex $data $p]
-                } else {
-                    if {![tomlish::dict::is_typeval $data]} {
-                        error "tomlish::dict::path::get error bad path $path. Attempt to access table or other value as array at subpath $pathsofar."
-                    }
-                    if {[dict get $data type] ne "ARRAY"} {
-                        error "tomlish::dict::get error bad path $path. Subpath $pathsofar is not an array."
-                    }
-                    ::set arrdata [dict get $data value]
-                    #when $p is empty string (or whitespace) - lindex returns entire list (or empty list)
-                    # - this corresponds to jq: {[]} or path {""}
-                    ::set data [lindex $arrdata $p]
-                }
-            }
-            incr i
-        }
-        return $data
-    }
-
-
-    proc exists {dictval path} {
-        #completely empty path considered to exist - review
-        if {[string index $path 0] in [list . "\[" ] } {
-            set path [tomlish::utils::jq_to_path $path]
-        }
-        ::set data $dictval
-        ::set pathsofar [list]
-        ::set exists 1
-        ::set i 0
-        foreach p $path {
-            ::lappend pathsofar $p
-            if {[string range $p 0 1] eq "@@"} {
-                #dict key
-                ::set k [string range $p 2 end]
-                if {![dict exists $data $k]} {
-                    return 0
-                }
-                ::set data [dict get $data $k]
-            } else {
-                #ARRAY or raw list index
-                if {[llength $pathsofar] > 1 && [string trim [lindex $pathsofar $i-1]] eq ""} {
-                    #previous path was query for entire list - result is not a dict
-                    if {[string trim $p] eq ""} {
-                        #review - multiple {[]} in a row in the path is pretty suspicious - raise error
-                        error "tomlish::dict::path::exists error - multiple empty indices in a row not supported"
-                        #or just leave data as is?
-                    } else {
-                        ::set intp [tomlish::system::lindex_resolve_basic $data $p]
-                        if {$intp == -1} {
-                            return 0
-                        }
-                        ::set data [lindex $data $p]
-                    }
-                } else {
-                    if {![tomlish::dict::is_typeval $data]} {
-                        return 0
-                    }
-                    if {[dict get $data type] ne "ARRAY"} {
-                        return 0
-                    }
-                    #special case for empty path syntax {jq: [] path: ""} meaning retrieve all elements in list
-                    ::set arrdata [dict get $data value]
-                    if {[string trim $p] eq ""} {
-                        #we have confirmed above it is an ARRAY - we consider an empty list to exist.
-                        #UUU
-                        ::set data $arrdata
-                    } else {
-                        #for 'exists' we need to avoid lindex returning empty string for out of bounds
-                        ::set intp [tomlish::system::lindex_resolve_basic $arrdata $p] ;#handle index math (end-1 etc)
-                        if {$intp == -1} {
-                            #out of bounds
-                            return 0
-                        }
-                        ::set data [lindex $arrdata $p]
-                    }
-                }
-            }
-            incr i
-        }
-        return $exists
-    }
-
-
-    #raise error for invalid
-    proc validate_typeval {typeval} {
-        set valtype [dict get $typeval type]
-        set rawval  [dict get $typeval value]
-        switch -- $valtype {
-            INT {
-                if {![tomlish::utils::is_int $rawval]} {
-                    return -code error -errorcode {TOML TYPE NOT_INT} "validate_typeval value is not a valid toml int: '$rawval'"
-                }
-            }
-            BOOL {
-                #toml only accepts lower case true and false
-                #review
-                if {$rawval ni {true false} } {
-                    return -code error -errorcode {TOML TYPE NOT_INT} "validate_typeval value is not a valid toml boolean (true|false): '$rawval'"
-                }
-            }
-            FLOAT {
-                if {![tomlish::utils::is_float $rawval]} {
-                    return -code error -errorcode {TOML TYPE NOT_INT} "validate_typeval value is not a valid toml float: '$rawval'"
-                }
-            }
-            DATETIME {
-                #review - accept even when more specific types apply?
-                if {![tomlish::utils::is_datetime]} {
-                    return -code error -errorcode {TOML TYPE NOT_DATETIME} "validate_typeval value is not a valid toml datetime: '$rawval'"
-                }
-            }
-            DATETIME-LOCAL {
-                if {![tomlish::utils::is_datetime-local]} {
-                    return -code error -errorcode {TOML TYPE NOT_DATETIME-LOCAL} "validate_typeval value is not a valid toml datetime-local: '$rawval'"
-                }
-            }
-            DATE-LOCAL {
-                if {![tomlish::utils::is_date-local]} {
-                    return -code error -errorcode {TOML TYPE NOT_DATE-LOCAL} "validate_typeval value is not a valid toml date-local: '$rawval'"
-                }
-            }
-            TIME-LOCAL {
-                if {![tomlish::utils::is_time-local]} {
-                    return -code error -errorcode {TOML TYPE NOT_TIME-LOCAL} "validate_typeval value is not a valid toml time-local: '$rawval'"
-                }
-            }
-            ARRAY {
-                if {$rawval eq ""} {
-                    return
-                }
-                foreach el $rawval {
-                    validate_typeval $el
-                }
-            }
-            STRING {
-                if {![tomlish::utils::inner_Bstring_is_valid_toml $rawval]} {
-                    return -code error -errorcode {TOML TYPE NOT_BSTRING} "validate_typeval value is not a valid toml basic string: '$rawval'"
-                }
-            }
-            MULTISTRING {
-                #multistring as a single value
-                #UUU
-                if {![tomlish::utils::inner_MultiBstring_is_valid_toml $rawval]} {
-                    return -code error -errorcode {TOML TYPE NOT_MLBSTRING} "validate_typeval value is not a valid toml multistring: '$rawval'"
-                }
-            }
-            LITERAL {
-                #todo?
-            }
-            MULTILITERAL {
-                #?
-            }
-            default {
-                return -code error -errorcode {TOML TYPE UNRECOGNISED} "validate_typeval does not recognise type '$valtype'"
-            }
-        }
-    }
-
-    #a restricted analogy of 'dictn set'
-    #set 'leaf' values only - don't create intermediate paths
-    # can replace an existing dict with another dict
-    # can create a key when key at tail end of path is a key (ie @@keyname, not index)
-    # can replace an existing {type <type> value <val} entry, when new val is also a {type <type> value <val>}
-    #  with added restriction that if <type> is ARRAY the new <type> must also be ARRAY
-
-
-    # vscode tcl syntax highlighter is unable to handle (in some cases!) some simple constructs like left square bracket in curly braces,
-    # yet it is ok in comments. i.e  {[} is prolematic for the highlighter, so we use "\[" instead :/
-    #e.g ------------------------------------------------
-    #    if {[string index $path 0] in [list . {[}] } {
-    #       # ...
-    #    }
-    #    ------------------------------------------------
-    #This may highlight ok - and even text immediately following can be ok - but
-    # the subsequent code block at global scope, perhaps *many* lines distant from where the syntax highlighting issue started, may then be completely miscoloured 
-    # This is a big timewaster - a decent syntax highlighter is really needed for Tcl in vscode (2025-09)
-
-    package require struct::list
-    proc setleaf {dictvariable path value {validate 1}} {
-        if {[string index $path 0] in [list . "\[" ] } {
-            set path [tomlish::utils::jq_to_path $path]
-        }
-
-        upvar $dictvariable dict_being_edited
-        if {![info exists dict_being_edited]} {
-            error "tomlish::dict::path::setleaf error - supplied value for 'dictvariable' doesn't seem to be the name of an existing variable"
-        }
-        ::set data $dict_being_edited
-        ::set pathsofar [list]
-        if {!([tomlish::dict::is_typeval $value] || [tomlish::dict::is_typeval_dict $value 0])} {
-            #failed check of supplied value as basic type, or a sub-dict structure (not checking arrays)
-            error "tomlish::dict::path::setleaf error - value must already be in the tomlish form {type <tag> value <value>} or be a dict with such forms as leaves"
-        }
-        if {$validate && [tomlish::dict::is_typeval $value]} {
-            #validate value element of $value is correct for type element
-            if {[catch {validate_typeval $value} errM]} {
-                return -code error -errorcode {TOMLISH VALIDATION TYPEFAIL} $errM
-            }
-        }
-        foreach p $path {
-            ::lappend pathsofar $p
-            if {[string range $p 0 1] eq "@@"} {
-                ::set k [string range $p 2 end]
-
-                # if {![dict exists $data $k]} {
-                #     error "tomlish::dict:path::set error bad path $path. Attempt to access nonexistent element at subpath $pathsofar."
-                # }
-                ::set varname v[incr v]
-
-                if {[struct::list equal $pathsofar $path]} {
-                    #see if leaf of the path given already exists
-                    if {[dict exists $data $k]} {
-                        ::set endpoint [dict get $data $k]
-                        if {[tomlish::dict::is_typeval $endpoint]} {
-                            set existing_tp [dict get $endpoint type]
-                            if {![tomlish::dict::is_typeval $value]} {
-                                error "tomlish::dict::path::setleaf error Unable to overwrite subpath '$pathsofar' which is of type $existing_tp with sub-dict. Supplied value not {type <type> value <value}"
-                            }
-                            #can switch types - except for arrays - REVIEW
-                            set val_tp [dict get $value type]
-                            if {$existing_tp eq "ARRAY" && $val_tp ne "ARRAY"} {
-                                error "tomlish::dict::path::setleaf error Unable to overwrite subpath '$pathsofar' which is of type $existing_tp with supplied type $val_tp."
-                            }
-                        } else {
-                            if {![tomlish::dict::is_typeval_dict $value]} {
-                                set val_tp [dict get $value type]
-                                error "tomlish::dict::path::setleaf error Cannot overwrite sub-dict (size: [dict size $endpoint]) at '$pathsofar' with type $val_tp"
-                            }
-                        }
-                        #temp debug
-                        tomlish::log::debug "overwriting at path $path existing:[dict get $data $k] val:$value"
-                    } else {
-                        #new key at leaf - ok - value can be either simple key val or sub-dict
-                    }
-                    ::set $varname $value
-                    dict set vdict $pathsofar $varname
-                    break
-                } else {
-                    if {![dict exists $data $k]} {
-                        error "tomlish::dict::path::setleaf error bad path '$path'. Attempt to access nonexistent element at subpath '$pathsofar'."
-                    }
-                }
-                ::set data [dict get $data $k]
-                ::set $varname $data
-                dict set vdict $pathsofar $varname
-            } else {
-                # p is an index
-                if {![tomlish::dict::is_typeval $data]} {
-                    error "tomlish::dict::path::setleaf error bad path '$path'. Attempt to access table as array at subpath '$pathsofar'."
-                }
-                if {[dict get $data type] ne "ARRAY"} {
-                    error "tomlish::dict::path::setleaf error bad path '$path'. Subpath '$pathsofar' is not an array."
-                }
-                ::set varname v[incr v]
-                if {[struct::list equal $pathsofar $path]} {
-                    if {[dict get $data type] ne "ARRAY"} {
-                        error "tomlish::dict::path::setleaf error bad path '$path'. Parent of subpath '$pathsofar' is not an array."
-                    }
-                    ::set parentarray [dict get $data value]
-                    set idx [tomlish::system::lindex_resolve_basic $parentarray $p]
-                    if {$idx == -1} {
-                        error "tomlish::dict::path::setleaf error bad path '$path'. No existing element at '$p'"
-                    }
-                    ::set endpoint [lindex $parentarray $p]
-                    if {[tomlish::dict::is_typeval $endpoint]} {
-                        if {![tomlish::dict::is_typeval $value]} {
-                            #attempt to replace plain typeval with a typeval dict
-                            error "tomlish::dict::path::setleaf error path '$path'. Cannot overwrite {type <t> val <v>} with sub-dict:  $value"
-                        }
-                        switch -- [dict get $endpoint type] {
-                            ARRAY {
-                                #disallow overwriting array - unless given value is an ARRAY? REVIEW
-                                if {[dict get $value type] ne "ARRAY"} {
-                                    error "tomlish::dict::path::setleaf error bad path '$path'. Cannot overwrite array with non-array: $value"
-                                }
-                            }
-                            default {
-                                #
-                            }
-                        }
-                    } else {
-                        #leaf is a typeval dict not a plain typeval - only allow overwrite with a typeval dict
-                        if {![tomlish::dict::is_typeval_dict $value 0]} {
-                            error "tomlish::dict::path::setleaf error path '$path'. Cannot overwrite sub-dict (size: [dict size $endpoint]) with non sub-dict: $value"
-                        }
-                    }
-                    ::set $varname $value
-                    dict set vdict $pathsofar $varname
-                    break
-                } else {
-                    ::set arrdata [dict get $data value]
-                    set idx [tomlish::system::lindex_resolve_basic $arrdata $p]
-                    if {$idx == -1} {
-                        error "tomlish::dict::path::setleaf error bad path '$path'. No existing element at $p"
-                    }
-                    ::set data [lindex $arrdata $p]
-                    ::set $varname $data
-                    dict set vdict $pathsofar $varname
-                }
-            }
-        }
-        #dict for {path varname} $vdict {
-        #    puts "$path   $varname\n"
-        #    puts "        '[::set $varname]'\n"
-        #    puts ""
-        #}
-
-        ::set i 0
-        ::set reverse [lreverse $vdict]
-        foreach {varname path} $reverse {
-            set newval [::set $varname]
-            if {$i+2 == [llength $reverse]} {
-                ::set k [lindex $path end]
-                ::set k [string range $k 2 end] ;#first key is always @@something
-                dict set dict_being_edited $k $newval
-                #puts "--result $dict_being_edited"
-                break
-            }
-            ::set nextvarname [lindex $reverse $i+2]
-            ::set nextval [::set $nextvarname]
-            ::set k [lindex $path end]
-            if {[string match @@* $k]} {
-                #dict key
-                #dict set $nextvarname $k $newval
-                setleaf $nextvarname [list $k] $newval 0
-            } else {
-                #list index
-                ::set nextarr [dict get $nextval value]
-                ::lset nextarr $k $newval
-                dict set $nextvarname value $nextarr
-            }
-            ::incr i 2
-        }
-
-        return $dict_being_edited
-
-    }
-    #path must be to a {type ARRAY value <list>}
-    #REVIEW - how to lappend to deep mixed dict/array structure without rewriting whole datastructure?
-    proc lappend {dictvariable path args} {
-        if {[string index $path 0] in [list . "\[" ]} {
-            set path [tomlish::utils::jq_to_path $path]
-        }
-        upvar $dictvariable dict_being_edited
-        ::set data $dict_being_edited
-        ::set pathsofar [list]
-        #::set newlist [list]
-        ::set v 0
-        ::set vdict [dict create]
-        foreach a $args {
-            if {![::tomlish::utils::string_is_dict $a]} {
-                error "tomlish::dict::path::lappend error - lappended arguments must already be in the tomlish form {type <tag> value <value>} or be a dict with such forms as leaves"
-            }
-        }
-        foreach p $path {
-            ::lappend pathsofar $p
-            if {[string range $p 0 1] eq "@@"} {
-                ::set k [string range $p 2 end]
-                if {![dict exists $data $k]} {
-                    error "tomlish::dict::path::lappend error bad path $path. Attempt to access nonexistent element at subpath $pathsofar."
-                }
-                ::set varname v[incr v]
-
-                if {[struct::list equal $pathsofar $path]} {
-                    #see if endpoint of the path given is an ARRAY
-                    ::set endpoint [dict get $data $k]
-                    if {![tomlish::dict::is_typeval $endpoint]} {
-                        error "tomlish::dict::path::lappend error bad path $path. Attempt to access table as array at subpath $pathsofar."
-                    }
-                    if {[dict get $endpoint type] ne "ARRAY"} {
-                        error "tomlish::dict::path::lappend error bad path $path. Subpath $pathsofar is not an array."
-                    }
-                    ::set arrdata       [dict get $endpoint value]
-                    ::lappend arrdata {*}$args
-                    dict set endpoint value $arrdata
-                    ::set newlist $endpoint
-                    ::set $varname $newlist
-                    dict set vdict $pathsofar $varname
-                    break
-                }
-                ::set data [dict get $data $k]
-                ::set $varname $data
-                dict set vdict $pathsofar $varname
-            } else {
-                if {![tomlish::dict::is_typeval $data]} {
-                    error "tomlish::dict::path::lappend error bad path $path. Attempt to access table as array at subpath $pathsofar."
-                }
-                if {[dict get $data type] ne "ARRAY"} {
-                    error "tomlish::dict::path::lappend error bad path $path. Subpath $pathsofar is not an array."
-                }
-                ::set varname v[incr v]
-                if {[struct::list equal $pathsofar $path]} {
-                    if {[dict get $data type] ne "ARRAY"} {
-                        error "tomlish::dict::path::lappend error bad path $path. Parent path is not an array."
-                    }
-                    ::set parentarray [dict get $data value]
-                    ::set idx [tomlish::system::lindex_resolve_basic $parentarray $p]
-                    if {$idx == -1} {
-                        error "tomlish::dict::path::lappend error bad path $path. Index $p does not exist."
-                    }
-                    ::set endpoint [lindex $parentarray $p]
-                    if {[dict get $endpoint type] ne "ARRAY"} {
-                        error "tomlish::dict::path::lappend error bad path $path. Not an array."
-                    }
-
-                    ::set arrdata [dict get $endpoint value]
-                    ::lappend arrdata {*}$args
-                    dict set endpoint value $arrdata
-                    ::set newlist $endpoint
-                    #::lset parentarray $p $newlist
-                    #set parentarray $newlist
-                    ::set $varname $newlist
-                    dict set vdict $pathsofar $varname
-                    break
-                } else {
-                    ::set arrdata [dict get $data value]
-                    set idx [tomlish::system::lindex_resolve_basic $arrdata $p]
-                    if {$idx == -1} {
-                        error "tomlish::dict::path::lappend error bad path $path. Subpath $pathsofar, index $p does not exist."
-                    }
-                    ::set data [lindex $arrdata $p]
-                    ::set $varname $data
-                    dict set vdict $pathsofar $varname
-                }
-            }
-        }
-        # todo tomlish::log::debug ?
-        # dict for {path varname} $vdict {
-        #     puts "$path   $varname\n"
-        #     puts "        [::set $varname]\n"
-        #     puts ""
-        # }
-        ::set i 0
-        ::set reverse [lreverse $vdict]
-        foreach {varname path} $reverse {
-            set newval [::set $varname]
-            if {$i+2 == [llength $reverse]} {
-                ::set k [lindex $path end]
-                ::set k [string range $k 2 end] ;#first key is always @@something
-                dict set dict_being_edited $k $newval
-                #puts "--result $dict_being_edited"
-                break
-            }
-            ::set nextvarname [lindex $reverse $i+2]
-            ::set nextval [::set $nextvarname]
-            ::set k [lindex $path end]
-            if {[string match @@* $k]} {
-                #dict key
-                set k [string range $k 2 end]
-                dict set $nextvarname $k $newval
-            } else {
-                #list index
-                ::set nextarr [dict get $nextval value]
-                ::lset nextarr $k $newval
-                dict set $nextvarname value $nextarr
-            }
-            ::incr i 2
-        }
-        return $dict_being_edited
-    }
-}
-
-tcl::namespace::eval tomlish::to_dict {
-
-    proc @@path {dictkeys} {
-        lmap v $dictkeys {string cat @@ $v}
-    }
-
-}
-
-tcl::namespace::eval tomlish::app {
-    #*** !doctools
-    #[subsection {Namespace tomlish::app}]
-    #[para]
-    #[list_begin definitions]
-
-    tcl::namespace::eval argdoc {
-        proc test_suites {} {
-            if {[package provide test::tomlish] eq ""} {
-                return [list]
-            }
-            return [test::tomlish::SUITES]
-        }
-    }
-
-    package require punk::args
-    punk::args::define {
-        @id         -id ::tomlish::app::decode_to_typedjson
-        @cmd        -name tomlish::app::decode_to_typedjson -help\
-            "Read toml on stdin until EOF
-            on error   - returns non-zero exit code and writes error to
-             the errorchannel.
-            on success - returns zero exit code and writes typed JSON encoding
-             of the data to the outputchannel.
-            This decoder is intended to be compatble with toml-test.
-            toml-test defines the typed JSON format."
-        @leaders -min 0 -max 0
-        @opts
-        -help -type none -help\
-            "Display this usage message"
-        -inputchannel -default stdin
-        -inputencoding -default "iso8859-1" -choicerestricted 0 -choices {utf-8 utf-16 iso8859-1} -help\
-            "configure encoding on input channel
-              iso8859-1 is equivalent to binary encoding"
-        -outputchannel -default stdout
-        -errorchannel -default stderr
-        @values -min 0 -max 0
-    }
-    proc decode_to_typedjson {args} {
-        set argd [punk::args::parse $args withid ::tomlish::app::decode_to_typedjson]
-        set ch_input        [dict get $argd opts -inputchannel]
-        set ch_input_enc    [dict get $argd opts -inputencoding]
-        set ch_output       [dict get $argd opts -outputchannel]
-        set ch_error        [dict get $argd opts -errorchannel]
-        if {[dict exists $argd received -help]} {
-            return [punk::args::usage -scheme info ::tomlish::app::decode_to_typedjson]
-        }
-
-        chan configure $ch_input -encoding $ch_input_enc
-        #translation?
-        chan configure $ch_input -translation lf ;# toml-test invalid/control tests we need to see raw CRs to reject them properly - auto translation won't do.
-
-        #Just slurp it all - presumably we are not handling massive amounts of data on stdin.
-        # - even if the input is large, we probably don't gain much (aside from possible memory savings?) by attempting to process input as it arrives.
-        if {[catch {
-            set inputdata [read $ch_input]
-            if {$ch_input_enc eq "iso8859-1"} {
-                set toml [tomlish::toml::from_binary $inputdata]
-            } else {
-                set toml $inputdata
-            }
-        } errM]} {
-            puts stderr "read-input error: $errM"
-            #toml-tests expect exit code 1
-            #e.g invalid/encoding/utf16-bom
-            exit 1  ;#read error
-        }
-        try {
-            set j [::tomlish::toml_to_typedjson $toml]
-        } on error {em} {
-            puts $ch_error "decoding failed: '$em'"
-            exit 1
-        }
-        puts -nonewline $ch_output $j
-        exit 0
-    }
-
-    package require punk::args
-    punk::args::define {
-        @id         -id ::tomlish::app::encode_from_typedjson
-        @cmd        -name tomlish::app::encode_from_typedjson -help\
-            "Read typed JSON on input until EOF
-            return non-zero exitcode if JSON data cannot be converted to
-            a valid TOML representation.
-            return zero exitcode and TOML data on output if JSON data can
-            be converted.
-            This encoder is intended to be compatible with toml-test.
-            toml-test defines the typed JSON format."
-        @leaders -min 0 -max 0
-        @opts
-        -help -type none -help \
-            "Display this usage message"
-        -restrict_barekeys -default 0 -help\
-            "If true, keys containing unicode will be quoted.
-              If false, an extended range of barekeys will be used
-              in unquoted form."
-        -inputchannel -default stdin
-        -inputencoding -default "" -choicerestricted 0 -choices {utf-8 utf-16 iso8859-1} -help\
-            "configure encoding on input channel
-              If not supplied, leave at Tcl default"
-        -outputchannel -default stdout
-        -errorchannel -default stderr
-        @values -min 0 -max 0
-    }
-    proc encode_from_typedjson {args} {
-        set argd [punk::args::parse $args withid ::tomlish::app::encode_from_typedjson]
-        set restrict_barekeys   [dict get $argd opts -restrict_barekeys]
-        set ch_input            [dict get $argd opts -inputchannel]
-        set ch_input_enc        [dict get $argd opts -inputencoding]
-        set ch_output           [dict get $argd opts -outputchannel]
-        set ch_error            [dict get $argd opts -errorchannel]
-        if {[dict exists $argd received -help]} {
-            return [punk::args::usage -scheme info ::tomlish::app::encode_from_typedjson]
-        }
-        #review
-        if {$ch_input_enc ne ""} {
-            chan configure $ch_input -encoding $ch_input_enc
-        }
-        #review
-        chan configure $ch_input -translation lf
-
-        chan configure $ch_output -translation lf
-
-        if {[catch {
-            set json [read $ch_input]
-        }]} {
-            exit 2  ;#read error
-        }
-        try {
-            #tomlish::typedjson_to_toml
-            set toml [::tomlish::toml::from_tomlish_from_dict_from_typedjson $json]
-        } trap {} {e eopts} {
-            puts $ch_error "encoding failed: '$e'"
-            puts $ch_error "$::errorInfo"
-            exit 1
-        }
-        puts -nonewline $ch_output $toml
-        exit 0
-    }
-
-    punk::args::define {
-        @dynamic
-        @id     -id ::tomlish::app::test
-        @cmd    -name tomlish::app::test -help\
-            "Run the internal tests on the tomlish library."
-        @leaders
-        @opts -any 1
-        -help -type none -help\
-            "Display this usage message
-              or further info if more args."
-        -suite -default tests -choices {${[::tomlish::app::argdoc::test_suites]}}
-        @values -min 0 -max -1
-    }
-    proc test {args} {
-        package require test::tomlish
-        set argd [punk::args::parse $args withid ::tomlish::app::test]
-        set opts        [dict get $argd opts]
-        set values      [dict get $argd values]
-        set received    [dict get $argd received]
-        set solos       [dict get $argd solos]
-        set opt_suite       [dict get $opts -suite]
-        if {[dict exists $received -help] && ![dict exists $received -suite]} {
-            return [punk::args::usage -scheme info ::tomlish::app::test]
-        }
-
-        test::tomlish::SUITE $opt_suite
-        #if {[catch {test::tomlish::SUITE $opt_suite} errM]} {
-        #    puts stderr "Unknown test suite '$opt_suite'. Available suites: [test::tomlish::SUITES]"
-        #    exit 1
-        #}
-        set run_opts [dict remove $opts -suite]
-        set run_opts [dict remove $run_opts {*}$solos]
-        set result [test::tomlish::RUN {*}$run_opts {*}$solos {*}$values]
-        return $result
-    }
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::app ---}]
-}
-
-proc ::tomlish::appnames {} {
-    set applist [list]
-    foreach cmd [info commands ::tomlish::app::*] {
-        lappend applist [namespace tail $cmd]
-    }
-    return $applist
-}
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish::lib {
-    namespace export {[a-z]*};   # Convention: export all lowercase
-    namespace path [namespace parent]
-    #*** !doctools
-    #[subsection {Namespace tomlish::lib}]
-    #[para] Secondary functions that are part of the API
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1
-    #    return 1
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-namespace eval tomlish::system {
-    #*** !doctools
-    #[subsection {Namespace tomlish::system}]
-    #[para]
-    #[list_begin definitions]
-
-
-
-    #taken from punk::lib
-    #todo - change list argument to integer length
-    proc lindex_resolve_basic {list index} {
-        #*** !doctools
-        #[call [fun lindex_resolve_basic] [arg list] [arg index]]
-        #[para] Accepts index of the forms accepted by Tcl's list commands. (e.g compound indices such as 3+1 end-2)
-        #[para] returns -1 for out of range at either end, or a valid integer index
-        #[para] Unlike lindex_resolve; lindex_resolve_basic can't determine if an out of range index was out of range at the lower or upper bound
-        #[para] This is only likely to be faster than average over lindex_resolve for Tcl which has the builtin lseq command
-        #[para] The performance advantage is more likely to be present when using compound indexes such as $x+1 or end-1
-        #[para] For pure integer indices the performance should be equivalent
-
-        set index [tcl::string::map {_ {}} $index] ;#forward compatibility with integers such as 1_000
-        #'only' supports 2**32 max index on tcl < 9.0 - ok. 
-        if {[string is integer -strict $index]} {
-            #can match +i -i
-            #avoid even the lseq overhead when the index is simple
-            if {$index < 0 || ($index >= [llength $list])} {
-                #even though in this case we could return -2 or -3 like lindex_resolve; for consistency we don't, as it's not always determinable for compound indices using the lseq method.
-                return -1
-            } else {
-                #integer may still have + sign - normalize with expr
-                return [expr {$index}]
-            }
-        }
-        if {[llength $list]} {
-            set indices [tomlish::system::range 0 [expr {[llength $list]-1}]] ;# uses lseq if available, has fallback.
-            #if lseq was available - $indices is an 'arithseries' - theoretically not taking up ram(?)
-        } else {
-            set indices [list]
-        }
-        set idx [lindex $indices $index]
-        if {$idx eq ""} {
-            #we have no way to determine if out of bounds is at lower vs upper end
-            return -1
-        } else {
-            return $idx
-        }
-    }
-
-    #supports *safe* ultra basic offset expressions as used by lindex etc, but without the 'end' features
-    #safe in that we don't evaluate the expression as a string.
-    proc offset_expr {expression} {
-        #required for tcl < 8.7 range command (lseq not available)
-        set expression [tcl::string::map {_ {}} $expression]
-        if {[tcl::string::is integer -strict $expression]} {
-            return [expr {$expression}]
-        }
-        if {[regexp {(.*)([+-])(.*)} $expression _match a op b] && [tcl::string::is integer -strict $a] && [tcl::string::is integer -strict $b]} {
-            if {$op eq "-"} {
-                return [expr {$a - $b}]
-            } else {
-                return [expr {$a + $b}]
-            }
-        } else {
-            error "bad expression '$expression': must be integer?\[+-\]integer?"
-        }
-    }
-
-    if {[info commands ::lseq] ne ""} {
-        #tcl 8.7+ lseq significantly faster, especially for larger ranges
-        #The internal rep can be an 'arithseries' with no string representation
-        #support minimal set from to
-        proc range {from to} {
-            lseq $from $to
-        }
-    } else {
-        #lseq accepts basic expressions e.g 4-2 for both arguments
-        #e.g we can do lseq 0 [llength $list]-1
-        #if range is to be consistent with the lseq version above - it should support that, even though we don't support most lseq functionality in either wrapper.
-        proc range {from to} {
-            set to [offset_expr $to]
-            set from [offset_expr $from]
-            if {$to > $from} {
-                set count [expr {($to -$from) + 1}]
-                if {$from == 0} {
-                    return [lsearch -all [lrepeat $count 0] *]
-                } else {
-                    incr from -1
-                    return [lmap v [lrepeat $count 0] {incr from}]
-                }
-                #slower methods.
-                #2)
-                #set i -1
-                #set L [lrepeat $count 0]
-                #lmap v $L {lset L [incr i] [incr from];lindex {}}
-                #return $L
-                #3)
-                #set L {}
-                #for {set i 0} {$i < $count} {incr i} {
-                #    lappend L [incr from]
-                #}
-                #return $L
-            } elseif {$from > $to} {
-                set count [expr {$from - $to} + 1]
-                #1)
-                if {$to == 0} {
-                    return [lreverse [lsearch -all [lrepeat $count 0] *]]
-                } else {
-                    incr from
-                    return [lmap v [lrepeat $count 0] {incr from -1}]
-                }
-
-                #2)
-                #set i -1
-                #set L [lrepeat $count 0]
-                #lmap v $L {lset L [incr i] [incr from -1];lindex {}}
-                #return $L
-                #3)
-                #set L {}
-                #for {set i 0} {$i < $count} {incr i} {
-                #    lappend L [incr from -1]
-                #}
-                #return $L
-            } else {
-                return [list $from]
-            }
-        }
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace tomlish::system ---}]
-}
-
-if {[info exists ::argc] && $::argc > 0} {
-    #puts stderr "argc: $::argc args: $::argv"
-    set arglist $::argv
-    # --------------
-    #make sure any dependant packages that are sourced don't get any commandline args
-    set ::argv {}
-    set ::argc 0
-    # --------------
-    package require punk::args
-    punk::args::define {
-        @dynamic
-        @id         -id tomlish::cmdline
-        @cmd        -name tomlish -help\
-            "toml encoder/decoder written in Tcl"
-        @opts -any 1
-        -help -type none -help\
-            "Display this usage message or more specific
-              help if further arguments provided."
-        -app -choices {${[tomlish::appnames]}}
-    }
-    try {
-        set argd [punk::args::parse $arglist withid tomlish::cmdline]
-    } trap {PUNKARGS VALIDATION} {msg erroropts} {
-        puts stderr $msg
-        exit 1
-    }
-
-
-    lassign [dict values $argd] leaders opts values received solos
-    if {[dict exists $received -help] && ![dict exists $received -app]} {
-        #only emit cmdline help if -app not supplied as well - otherwise app function can act on -help for more specific help
-        #puts stdout "Usage: -app <appname> where appname one of:[tomlish::appnames]"
-        puts stdout [punk::args::usage -scheme info tomlish::cmdline]
-        exit 0
-    }
-    if {![dict exists $received -app]} {
-        puts stderr [punk::args::usage -scheme error tomlish::cmdline]
-        exit 1
-    }
-
-    set app [dict get $opts -app]
-    set appnames [tomlish::appnames]
-    set app_opts [dict remove $opts -app {*}$solos]
-    try {
-        set result [tomlish::app::$app {*}$app_opts {*}$solos {*}$values]
-    } trap {PUNKARGS VALIDATION} {msg erroropts} {
-        #The validation error should fully describe the issue
-        #no need for errortrace - keep the output cleaner
-        puts stderr $msg
-        exit 1
-    } trap {} {msg erroropts} {
-        #unexpected error - uncaught throw will produce error trace
-        #todo - a support msg? Otherwise we may as well just leave off this trap.
-        throw [dict get $erroropts -errorcode] [dict get $erroropts -errorinfo]
-    }
-    if {"-help" in $solos} {
-        puts stderr $result
-        exit 1
-    } else {
-        if {$result ne ""} {
-            puts stdout $result
-            exit 0
-        }
-    }
-}
-
-##  Ready
-package provide tomlish [namespace eval tomlish {
-    variable pkg tomlish
-    variable version
-    set version 1.1.6
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.7.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.7.tm
deleted file mode 100644
index fbd43f3d..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.7.tm
+++ /dev/null
@@ -1,245 +0,0 @@
-# uuid.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# UUIDs are 128 bit values that attempt to be unique in time and space.
-#
-# Reference:
-#   http://www.opengroup.org/dce/info/draft-leach-uuids-guids-01.txt
-#
-# uuid: scheme:
-# http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html
-#
-# Usage: uuid::uuid generate
-#        uuid::uuid equal $idA $idB
-
-package require Tcl 8.5
-
-namespace eval uuid {
-    variable accel
-    array set accel {critcl 0}
-
-    namespace export uuid
-
-    variable uid
-    if {![info exists uid]} {
-        set uid 1
-    }
-
-    proc K {a b} {set a}
-}
-
-###
-# Optimization
-# Caches machine info after the first pass
-###
-
-proc ::uuid::generate_tcl_machinfo {} {
-  variable machinfo
-  if {[info exists machinfo]} {
-    return $machinfo
-  }
-  lappend machinfo [clock seconds]; # timestamp
-  lappend machinfo [clock clicks];  # system incrementing counter
-  lappend machinfo [info hostname]; # spatial unique id (poor)
-  lappend machinfo [pid];           # additional entropy
-  lappend machinfo [array get ::tcl_platform]
-
-  ###
-  # If we have /dev/urandom just stream 128 bits from that
-  ###
-  if {[file exists /dev/urandom]} {
-    set fin [open /dev/urandom r]
-    binary scan [read $fin 128] H* machinfo
-    close $fin
-  } elseif {[catch {package require nettool}]} {
-    # More spatial information -- better than hostname.
-    # bug 1150714: opening a server socket may raise a warning messagebox
-    #   with WinXP firewall, using ipconfig will return all IP addresses
-    #   including ipv6 ones if available. ipconfig is OK on win98+
-    if {[string equal $::tcl_platform(platform) "windows"]} {
-      catch {exec ipconfig} config
-      lappend machinfo $config
-    } else {
-      catch {
-          set s [socket -server void -myaddr [info hostname] 0]
-          K [fconfigure $s -sockname] [close $s]
-      } r
-      lappend machinfo $r
-    }
-
-    if {[package provide Tk] != {}} {
-      lappend machinfo [winfo pointerxy .]
-      lappend machinfo [winfo id .]
-    }
-  } else {
-    ###
-    # If the nettool package works on this platform
-    # use the stream of hardware ids from it
-    ###
-    lappend machinfo {*}[::nettool::hwid_list]
-  }
-  return $machinfo
-}
-
-# Generates a binary UUID as per the draft spec. We generate a pseudo-random
-# type uuid (type 4). See section 3.4
-#
-proc ::uuid::generate_tcl {} {
-    package require md5 2
-    variable uid
-
-    set tok [md5::MD5Init]
-    md5::MD5Update $tok [incr uid];      # package incrementing counter
-    foreach string [generate_tcl_machinfo] {
-      md5::MD5Update $tok $string
-    }
-    set r [md5::MD5Final $tok]
-    binary scan $r c* r
-
-    # 3.4: set uuid versioning fields
-    lset r 8 [expr {([lindex $r 8] & 0x3F) | 0x80}]
-    lset r 6 [expr {([lindex $r 6] & 0x0F) | 0x40}]
-
-    return [binary format c* $r]
-}
-
-if {[string equal $tcl_platform(platform) "windows"]
-        && [package provide critcl] != {}} {
-    namespace eval uuid {
-        critcl::ccode {
-            #define WIN32_LEAN_AND_MEAN
-            #define STRICT
-            #include <windows.h>
-            #include <ole2.h>
-            typedef long (__stdcall *LPFNUUIDCREATE)(UUID *);
-            typedef const unsigned char cu_char;
-        }
-        critcl::cproc generate_c {Tcl_Interp* interp} ok {
-            HRESULT hr = S_OK;
-            int r = TCL_OK;
-            UUID uuid = {0};
-            HMODULE hLib;
-            LPFNUUIDCREATE lpfnUuidCreate = NULL;
-            hLib = LoadLibraryA(("rpcrt4.dll"));
-            if (hLib)
-                lpfnUuidCreate = (LPFNUUIDCREATE)
-                    GetProcAddress(hLib, "UuidCreate");
-            if (lpfnUuidCreate) {
-                Tcl_Obj *obj;
-                lpfnUuidCreate(&uuid);
-                obj = Tcl_NewByteArrayObj((cu_char *)&uuid, sizeof(uuid));
-                Tcl_SetObjResult(interp, obj);
-            } else {
-                Tcl_SetResult(interp, "error: failed to create a guid",
-                              TCL_STATIC);
-                r = TCL_ERROR;
-            }
-            return r;
-        }
-    }
-}
-
-# Convert a binary uuid into its string representation.
-#
-proc ::uuid::tostring {uuid} {
-    binary scan $uuid H* s
-    foreach {a b} {0 7 8 11 12 15 16 19 20 end} {
-        append r [string range $s $a $b] -
-    }
-    return [string tolower [string trimright $r -]]
-}
-
-# Convert a string representation of a uuid into its binary format.
-#
-proc ::uuid::fromstring {uuid} {
-    return [binary format H* [string map {- {}} $uuid]]
-}
-
-# Compare two uuids for equality.
-#
-proc ::uuid::equal {left right} {
-    set l [fromstring $left]
-    set r [fromstring $right]
-    return [string equal $l $r]
-}
-
-# Call our generate uuid implementation
-proc ::uuid::generate {} {
-    variable accel
-    if {$accel(critcl)} {
-        return [generate_c]
-    } else {
-        return [generate_tcl]
-    }
-}
-
-# uuid generate -> string rep of a new uuid
-# uuid equal uuid1 uuid2
-#
-proc uuid::uuid {cmd args} {
-    switch -exact -- $cmd {
-        generate {
-            if {[llength $args] != 0} {
-                return -code error "wrong # args:\
-                    should be \"uuid generate\""
-            }
-            return [tostring [generate]]
-        }
-        equal {
-            if {[llength $args] != 2} {
-                return -code error "wrong \# args:\
-                    should be \"uuid equal uuid1 uuid2\""
-            }
-            return [eval [linsert $args 0 equal]]
-        }
-        default {
-            return -code error "bad option \"$cmd\":\
-                must be generate or equal"
-        }
-    }
-}
-
-# -------------------------------------------------------------------------
-
-# LoadAccelerator --
-#
-#	This package can make use of a number of compiled extensions to
-#	accelerate the digest computation. This procedure manages the
-#	use of these extensions within the package. During normal usage
-#	this should not be called, but the test package manipulates the
-#	list of enabled accelerators.
-#
-proc ::uuid::LoadAccelerator {name} {
-    variable accel
-    set r 0
-    switch -exact -- $name {
-        critcl {
-            if {![catch {package require tcllibc}]} {
-                set r [expr {[info commands ::uuid::generate_c] != {}}]
-            }
-        }
-        default {
-            return -code error "invalid accelerator package:\
-                must be one of [join [array names accel] {, }]"
-        }
-    }
-    set accel($name) $r
-}
-
-# -------------------------------------------------------------------------
-
-# Try and load a compiled extension to help.
-namespace eval ::uuid {
-    variable e {}
-    foreach e {critcl} {
-        if {[LoadAccelerator $e]} break
-    }
-    unset e
-}
-
-package provide uuid 1.0.7
-
-# -------------------------------------------------------------------------
-# Local variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.8.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.8.tm
deleted file mode 100644
index c5cffa67..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.8.tm
+++ /dev/null
@@ -1,246 +0,0 @@
-# uuid.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# UUIDs are 128 bit values that attempt to be unique in time and space.
-#
-# Reference:
-#   http://www.opengroup.org/dce/info/draft-leach-uuids-guids-01.txt
-#
-# uuid: scheme:
-# http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html
-#
-# Usage: uuid::uuid generate
-#        uuid::uuid equal $idA $idB
-
-package require Tcl 8.5 9
-
-namespace eval uuid {
-    variable accel
-    array set accel {critcl 0}
-
-    namespace export uuid
-
-    variable uid
-    if {![info exists uid]} {
-        set uid 1
-    }
-
-    proc K {a b} {set a}
-}
-
-###
-# Optimization
-# Caches machine info after the first pass
-###
-
-proc ::uuid::generate_tcl_machinfo {} {
-  variable machinfo
-  if {[info exists machinfo]} {
-    return $machinfo
-  }
-  lappend machinfo [clock seconds]; # timestamp
-  lappend machinfo [clock clicks];  # system incrementing counter
-  lappend machinfo [info hostname]; # spatial unique id (poor)
-  lappend machinfo [pid];           # additional entropy
-  lappend machinfo [array get ::tcl_platform]
-
-  ###
-  # If we have /dev/urandom just stream 128 bits from that
-  ###
-  if {[file exists /dev/urandom]} {
-    set fin [open /dev/urandom r]
-    fconfigure $fin -encoding binary  
-    binary scan [read $fin 128] H* machinfo
-    close $fin
-  } elseif {[catch {package require nettool}]} {
-    # More spatial information -- better than hostname.
-    # bug 1150714: opening a server socket may raise a warning messagebox
-    #   with WinXP firewall, using ipconfig will return all IP addresses
-    #   including ipv6 ones if available. ipconfig is OK on win98+
-    if {[string equal $::tcl_platform(platform) "windows"]} {
-      catch {exec ipconfig} config
-      lappend machinfo $config
-    } else {
-      catch {
-          set s [socket -server void -myaddr [info hostname] 0]
-          K [fconfigure $s -sockname] [close $s]
-      } r
-      lappend machinfo $r
-    }
-
-    if {[package provide Tk] != {}} {
-      lappend machinfo [winfo pointerxy .]
-      lappend machinfo [winfo id .]
-    }
-  } else {
-    ###
-    # If the nettool package works on this platform
-    # use the stream of hardware ids from it
-    ###
-    lappend machinfo {*}[::nettool::hwid_list]
-  }
-  return $machinfo
-}
-
-# Generates a binary UUID as per the draft spec. We generate a pseudo-random
-# type uuid (type 4). See section 3.4
-#
-proc ::uuid::generate_tcl {} {
-    package require md5 2
-    variable uid
-
-    set tok [md5::MD5Init]
-    md5::MD5Update $tok [incr uid];      # package incrementing counter
-    foreach string [generate_tcl_machinfo] {
-      md5::MD5Update $tok $string
-    }
-    set r [md5::MD5Final $tok]
-    binary scan $r c* r
-
-    # 3.4: set uuid versioning fields
-    lset r 8 [expr {([lindex $r 8] & 0x3F) | 0x80}]
-    lset r 6 [expr {([lindex $r 6] & 0x0F) | 0x40}]
-
-    return [binary format c* $r]
-}
-
-if {[string equal $tcl_platform(platform) "windows"]
-        && [package provide critcl] != {}} {
-    namespace eval uuid {
-        critcl::ccode {
-            #define WIN32_LEAN_AND_MEAN
-            #define STRICT
-            #include <windows.h>
-            #include <ole2.h>
-            typedef long (__stdcall *LPFNUUIDCREATE)(UUID *);
-            typedef const unsigned char cu_char;
-        }
-        critcl::cproc generate_c {Tcl_Interp* interp} ok {
-            HRESULT hr = S_OK;
-            int r = TCL_OK;
-            UUID uuid = {0};
-            HMODULE hLib;
-            LPFNUUIDCREATE lpfnUuidCreate = NULL;
-            hLib = LoadLibraryA(("rpcrt4.dll"));
-            if (hLib)
-                lpfnUuidCreate = (LPFNUUIDCREATE)
-                    GetProcAddress(hLib, "UuidCreate");
-            if (lpfnUuidCreate) {
-                Tcl_Obj *obj;
-                lpfnUuidCreate(&uuid);
-                obj = Tcl_NewByteArrayObj((cu_char *)&uuid, sizeof(uuid));
-                Tcl_SetObjResult(interp, obj);
-            } else {
-                Tcl_SetResult(interp, "error: failed to create a guid",
-                              TCL_STATIC);
-                r = TCL_ERROR;
-            }
-            return r;
-        }
-    }
-}
-
-# Convert a binary uuid into its string representation.
-#
-proc ::uuid::tostring {uuid} {
-    binary scan $uuid H* s
-    foreach {a b} {0 7 8 11 12 15 16 19 20 end} {
-        append r [string range $s $a $b] -
-    }
-    return [string tolower [string trimright $r -]]
-}
-
-# Convert a string representation of a uuid into its binary format.
-#
-proc ::uuid::fromstring {uuid} {
-    return [binary format H* [string map {- {}} $uuid]]
-}
-
-# Compare two uuids for equality.
-#
-proc ::uuid::equal {left right} {
-    set l [fromstring $left]
-    set r [fromstring $right]
-    return [string equal $l $r]
-}
-
-# Call our generate uuid implementation
-proc ::uuid::generate {} {
-    variable accel
-    if {$accel(critcl)} {
-        return [generate_c]
-    } else {
-        return [generate_tcl]
-    }
-}
-
-# uuid generate -> string rep of a new uuid
-# uuid equal uuid1 uuid2
-#
-proc uuid::uuid {cmd args} {
-    switch -exact -- $cmd {
-        generate {
-            if {[llength $args] != 0} {
-                return -code error "wrong # args:\
-                    should be \"uuid generate\""
-            }
-            return [tostring [generate]]
-        }
-        equal {
-            if {[llength $args] != 2} {
-                return -code error "wrong \# args:\
-                    should be \"uuid equal uuid1 uuid2\""
-            }
-            return [eval [linsert $args 0 equal]]
-        }
-        default {
-            return -code error "bad option \"$cmd\":\
-                must be generate or equal"
-        }
-    }
-}
-
-# -------------------------------------------------------------------------
-
-# LoadAccelerator --
-#
-#	This package can make use of a number of compiled extensions to
-#	accelerate the digest computation. This procedure manages the
-#	use of these extensions within the package. During normal usage
-#	this should not be called, but the test package manipulates the
-#	list of enabled accelerators.
-#
-proc ::uuid::LoadAccelerator {name} {
-    variable accel
-    set r 0
-    switch -exact -- $name {
-        critcl {
-            if {![catch {package require tcllibc}]} {
-                set r [expr {[info commands ::uuid::generate_c] != {}}]
-            }
-        }
-        default {
-            return -code error "invalid accelerator package:\
-                must be one of [join [array names accel] {, }]"
-        }
-    }
-    set accel($name) $r
-}
-
-# -------------------------------------------------------------------------
-
-# Try and load a compiled extension to help.
-namespace eval ::uuid {
-    variable e {}
-    foreach e {critcl} {
-        if {[LoadAccelerator $e]} break
-    }
-    unset e
-}
-
-package provide uuid 1.0.8
-
-# -------------------------------------------------------------------------
-# Local variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/zipper-0.12.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/zipper-0.12.tm
deleted file mode 100644
index 99a566c7..00000000
Binary files a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/zipper-0.12.tm and /dev/null differ
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl b/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl
deleted file mode 100644
index fb2a5353..00000000
--- a/src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl
+++ /dev/null
@@ -1,3628 +0,0 @@
-# tcl
-#
-# punkboot - make any tclkits and modules in <projectdir>/src folders and place them and associated data files/scripts in the parent folder of src.
-#e.g in 'bin' and 'modules' folders at same level as 'src' folder.
-if {[info exists ::env(NO_COLOR)]} {
-    namespace eval ::punk::console {variable colour_disabled 1}
-}
-set hashline "# ## ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###"
-puts $hashline
-puts "    Punk Boot"
-puts $hashline\n
-
-package prefer latest
-lassign [split [info tclversion] .] tclmajorv tclminorv
-
-global A  ;#UI Ansi code array
-array set A {}
-
-namespace eval ::punkboot {
-    variable scriptfolder [file normalize [file dirname [info script]]]
-    variable foldername [file tail $scriptfolder]
-    variable pkg_requirements [list]; variable pkg_missing [list];variable pkg_loaded [list]
-    variable non_help_flags [list -k]
-    variable help_flags     [list -help --help /? -h]
-    variable known_commands [list project modules libs packages vfs bin info check shell vendorupdate bootsupport vfscommonupdate ]
-}
-
-
-
-namespace eval ::punkboot::lib {
-    #for some purposes (whether a source folder is likely to have any useful content) we are interested in non dotfile/dotfolder immediate contents of a folder, but not whether a particular platform
-    #considers them hidden or not.
-    proc folder_nondotted_children {folder} {
-        set normfolder [file normalize $folder]
-        if {![file isdirectory $normfolder]} {error "punkboot::lib::folder_nondotted_children error. Supplied folder '$folder' is not a directory"}
-        set contents [glob -nocomplain -dir $folder -tails *]
-        #some platforms (windows) return dotted entries with *, although most don't
-        set nondotted_tails [lsearch -all -inline -not $contents .*]
-        return [lmap ftail $nondotted_tails {file join $folder $ftail}]
-    }
-    proc folder_nondotted_folders {folder} {
-        set normfolder [file normalize $folder]
-        if {![file isdirectory $normfolder]} {error "punkboot::lib::folder_nondotted_folders error. Supplied folder '$folder' is not a directory"}
-        set contents [glob -nocomplain -dir $folder -types d -tails *]
-        #some platforms (windows) return dotted entries with *, although most don't
-        set nondotted_tails [lsearch -all -inline -not $contents .*]
-        return [lmap ftail $nondotted_tails {file join $folder $ftail}]
-    }
-    proc folder_nondotted_files {folder} {
-        set normfolder [file normalize $folder]
-        if {![file isdirectory $normfolder]} {error "punkboot::lib::folder_nondotted_files error. Supplied folder '$folder' is not a directory"}
-        set contents [glob -nocomplain -dir $folder -types f $folder -tails *]
-        #some platforms (windows) return dotted entries with *, although most don't
-        set nondotted_tails [lsearch -all -inline -not $contents .*]
-        return [lmap ftail $nondotted_tails {file join $folder $ftail}]
-    }
-    proc tm_version_isvalid {versionpart} {
-        #Needs to be suitable for use with Tcl's 'package vcompare'
-        if {![catch [list package vcompare $versionpart $versionpart]]} {
-            return 1
-        } else {
-            return 0
-        }
-    }
-    proc tm_version_major {version} {
-        if {![tm_version_isvalid $version]} {
-            error "Invalid version '$version' is not a proper Tcl module version number"
-        }
-        set firstpart [lindex [split $version .] 0]
-        #check for a/b in first segment
-        if {[string is integer -strict $firstpart]} {
-            return $firstpart
-        }
-        if {[string first a $firstpart] > 0} {
-            return [lindex [split $firstpart a] 0]
-        }
-        if {[string first b $firstpart] > 0} {
-            return [lindex [split $firstpart b] 0]
-        }
-        error "tm_version_major unable to determine major version from version number '$version'"
-    }
-    proc tm_version_canonical {ver} {
-        #accepts a single valid version only - not a bounded or unbounded spec
-        if {![tm_version_isvalid $ver]} {
-            error "tm_version_canonical version '$ver' is not valid for a package version"
-        }
-        set parts [split $ver .]
-        set newparts [list]
-        foreach o $parts {
-            set trimmed [string trimleft $o 0]
-            set firstnonzero [string index $trimmed 0]
-            switch -exact -- $firstnonzero {
-                "" {
-                    lappend newparts 0
-                }
-                a - b {
-                    #e.g 000bnnnn -> bnnnnn
-                    set tailtrimmed [string trimleft [string range $trimmed 1 end] 0]
-                    if {$tailtrimmed eq ""} {
-                        set tailtrimmed 0
-                    }
-                    lappend newparts 0$firstnonzero$tailtrimmed
-                }
-                default {
-                    #digit
-                    if {[string is integer -strict $trimmed]} {
-                        #e.g 0100 -> 100
-                        lappend newparts $trimmed
-                    } else {
-                        #e.g 0100b003 -> 100b003 (still need to process tail)
-                        if {[set apos [string first a $trimmed]] > 0} {
-                            set lhs [string range $trimmed 0 $apos-1] ;#assert lhs non-empty and only digits or wouldn't be in this branch
-                            set rhs [string range $trimmed $apos+1 end] ;#assert rhs non-empty and only digits
-                            set rhs [string trimleft $rhs 0]
-                            if {$rhs eq ""} {
-                                set rhs 0
-                            }
-                            lappend newparts ${lhs}a${rhs}
-                        } elseif {[set bpos [string first b $trimmed]] > 0} {
-                            set lhs [string range $trimmed 0 $bpos-1] ;#assert lhs non-empty and only digits or wouldn't be in this branch
-                            set rhs [string range $trimmed $bpos+1 end] ;#assert rhs non-empty and only digits
-                            set rhs [string trimleft $rhs 0]
-                            if {$rhs eq ""} {
-                                set rhs 0
-                            }
-                            lappend newparts ${lhs}b${rhs}
-                        } else {
-                            #assert - shouldn't get here trimmed val should have been empty, an int or contained an a or b
-                            error "tm_version_canonical error - trimfail - unexpected"
-                        }
-                    }
-                }
-            }
-        }
-        return [join $newparts .]
-    }
-    proc tm_version_required_canonical {versionspec} {
-        #also trim leading zero from any dottedpart?
-        #Tcl *allows* leading zeros in any of the dotted parts - but they are not significant.
-        #e.g 1.01 is equivalent to 1.1 and 01.001
-        #also 1b3 == 1b0003
-
-        if {[string trim $versionspec] eq ""} {return ""}  ;#unspecified = any version
-        set errmsg "punkboot::lib::tm_version_required_canonical - invalid version specification"
-        if {[string first - $versionspec] < 0} {
-            #no dash
-            #looks like a minbounded version (ie a single version with no dash)  convert to min-max form
-            set from $versionspec
-            if {![::punkboot::lib::tm_version_isvalid $from]} {
-                error "$errmsg '$versionpec'"
-            }
-            if {![catch {::punkboot::lib::tm_version_major $from} majorv]} {
-                set from [tm_version_canonical $from]
-                return "${from}-[expr {$majorv +1}]"
-            } else {
-                error "$errmsg '$versionspec'"
-            }
-        } else {
-            # min- or min-max
-            #validation and canonicalisation (strip leading zeroes from each segment, including either side of a or b)
-            set parts [split $versionspec -] ;#we expect only 2 parts
-            lassign $parts from to
-            if {![::punkboot::lib::tm_version_isvalid $from]} {
-                error "$errmsg '$versionspec'"
-            }
-            set from [tm_version_canonical $from]
-            if {[llength $parts] == 2} {
-                if {$to ne ""} {
-                    if {![::punkboot::lib::tm_version_isvalid $to]} {
-                        error "$errmsg '$versionspec'"
-                    }
-                    set to [tm_version_canonical $to]
-                    return $from-$to
-                } else {
-                    return $from-
-                }
-            } else {
-                error "$errmsg '$versionspec'"
-            }
-            error "tm_version_required_canonical should have already returned a canonicalised versionspec - or produced an error with reason before this point"
-        }
-    }
-    #This is somewhat ugly - but we don't want to do any 'package require' operations at this stage
-    # even for something that is available in tcl_library.
-    #review
-    proc platform_generic {} {
-        #platform::generic - snipped straight from platform package
-        global tcl_platform
-
-        set plat [string tolower [lindex $tcl_platform(os) 0]]
-        set cpu  $tcl_platform(machine)
-
-        switch -glob -- $cpu {
-        sun4* {
-            set cpu sparc
-        }
-        intel -
-        ia32* -
-        i*86* {
-            set cpu ix86
-        }
-        x86_64 {
-            if {$tcl_platform(wordSize) == 4} {
-                # See Example <1> at the top of this file.
-                set cpu ix86
-            }
-        }
-        ppc -
-        "Power*" {
-            set cpu powerpc
-        }
-        "arm*" {
-            set cpu arm
-        }
-        ia64 {
-            if {$tcl_platform(wordSize) == 4} {
-            append cpu _32
-            }
-        }
-        }
-
-        switch -glob -- $plat {
-        windows {
-            if {$tcl_platform(platform) == "unix"} {
-                set plat cygwin
-            } else {
-                set plat win32
-            }
-            if {$cpu eq "amd64"} {
-                # Do not check wordSize, win32-x64 is an IL32P64 platform.
-                set cpu x86_64
-            }
-        }
-        sunos {
-            set plat solaris
-            if {[string match "ix86" $cpu]} {
-                if {$tcl_platform(wordSize) == 8} {
-                    set cpu x86_64
-                }
-            } elseif {![string match "ia64*" $cpu]} {
-                # sparc
-                if {$tcl_platform(wordSize) == 8} {
-                    append cpu 64
-                }
-            }
-        }
-        darwin {
-            set plat macosx
-            # Correctly identify the cpu when running as a 64bit
-            # process on a machine with a 32bit kernel
-            if {$cpu eq "ix86"} {
-                if {$tcl_platform(wordSize) == 8} {
-                    set cpu x86_64
-                }
-            }
-        }
-        aix {
-            set cpu powerpc
-            if {$tcl_platform(wordSize) == 8} {
-                append cpu 64
-            }
-        }
-        hp-ux {
-            set plat hpux
-            if {![string match "ia64*" $cpu]} {
-                set cpu parisc
-                if {$tcl_platform(wordSize) == 8} {
-                    append cpu 64
-                }
-            }
-        }
-        osf1 {
-            set plat tru64
-        }
-        default {
-            set plat [lindex [split $plat _-] 0]
-        }
-        }
-
-        return "${plat}-${cpu}"
-    }
-
-}
-
-if {"::try" ni [info commands ::try]} {
-    puts stderr "Tcl interpreter possibly too old - 'try' command not found - aborting"
-    exit 1
-}
-
-#------------------------------------------------------------------------------
-#Module loading from src/bootsupport or [pwd]/modules if pwd is a 'src' folder
-#------------------------------------------------------------------------------
-#If there is a folder under the current directory, in the subpath  src/bootsupport/modules which contains .tm files
-# - then it will attempt to preference these modules
-# This allows a source update via 'fossil update' 'git pull' etc to pull in a minimal set of support modules for the boot script
-# and load these in preference to ones that may have been in the interp's tcl::tm::list or auto_path due to environment variables
-set startdir [pwd]
-
-set scriptdir [file dirname [file normalize [info script]]]
-#puts "SCRIPTDIR: $scriptdir"
-
-#we are focussed on pure-tcl libs/modules in bootsupport for now.
-#There may be cases where we want to use compiled packages from src/bootsupport/modules_tcl9 etc
-#REVIEW - punkboot can really speed up with appropriate accelerators and/or external binaries
-#       - we need to support that without binary downloads from repos unless the user explicitly asks for that.
-#       - They may already be available in the vfs (or pointed to package paths) of the running executable.
-#       - todo: some user prompting regarding installs with platform-appropriate package managers
-#       - todo: some user prompting regarding building accelerators from source.
-
-# -------------------------------------------------------------------------------------
-set bootsupport_module_paths    [list]
-set bootsupport_library_paths   [list]
-set this_platform_generic [punkboot::lib::platform_generic]
-#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 $scriptdir bootsupport]]} {
-    set bootsupportdir [file join $scriptdir bootsupport]
-    puts stderr "Using bootsupport dir $bootsupportdir"
-
-    lappend bootsupport_module_paths    [file join $bootsupportdir modules_tcl$::tclmajorv] ;#more version-specific modules slightly higher in precedence order
-    lappend bootsupport_module_paths    [file join $bootsupportdir modules]
-    lappend bootsupport_library_paths   [file join $bootsupportdir lib_tcl$::tclmajorv/allplatforms] ;#more version-specific pkgs slightly higher in precedence order
-    lappend bootsupport_library_paths   [file join $bootsupportdir lib_tcl$::tclmajorv/$this_platform_generic] ;#more version-specific pkgs slightly higher in precedence order
-    lappend bootsupport_library_paths   [file join $bootsupportdir lib]
-} else {
-    puts stderr "No bootsupport dir for script [info script] at [file join $scriptdir bootsupport]"
-    #lappend bootsupport_module_paths    [file join $startdir bootsupport modules_tcl$::tclmajorv]
-    #lappend bootsupport_module_paths    [file join $startdir bootsupport modules]
-    #lappend bootsupport_library_paths   [file join $startdir bootsupport lib_tcl$::tclmajorv/allplatforms]
-    #lappend bootsupport_library_paths   [file join $startdir bootsupport lib_tcl$::tclmajorv/$this_platform_generic]
-    #lappend bootsupport_library_paths   [file join $startdir bootsupport lib]
-}
-set bootsupport_paths_exist 0
-foreach p [list {*}$bootsupport_module_paths {*}$bootsupport_library_paths] {
-    if {[file exists $p]} {
-        set bootsupport_paths_exist 1 ;#at least one exists
-        break
-    }
-}
-# -------------------------------------------------------------------------------------
-# -------------------------------------------------------------------------------------
-set sourcesupport_module_paths  [list]
-set sourcesupport_library_paths [list]
-set sourcesupport_paths_exist 0
-#we deliberately don't use [pwd]/modules because commonly the launch dir may be the project dir.
-#The <projectdir>/modules are the very modules we are building - and may be in a broken state, which punkboot then can't fix.
-#The 'building' is generally just assigning a version instead of 999999.0a1 (and some doc string substitution?)
-#(most?) Modules in src/modules etc should still be runnable directly in certain cases like this where we point to them.
-if {[file tail $startdir] eq "src"} {
-    #todo - other src 'module' dirs..
-    foreach p [list $startdir/modules_tcl$::tclmajorv $startdir/modules  $startdir/vendormodules_tcl$::tclmajorv $startdir/vendormodules]  {
-        if {[file exists $p]} {
-            lappend sourcesupport_module_paths $p
-        }
-    }
-    # -- -- --
-    foreach p [list $startdir/lib_tcl$::tclmajorv/allplatforms $startdir/lib_tcl$::tclmajorv/$this_platform_generic $startdir/lib $startdir/vendorlib_tcl$::tclmajorv/allplatforms $startdir/vendorlib_tcl$::tclmajorv/$this_platform_generic $startdir/vendorlib] {
-        if {[file exists $p]} {
-            lappend sourcesupport_library_paths $p
-        }
-    }
-    # -- -- --
-
-    foreach p [list {*}$sourcesupport_module_paths {*}$sourcesupport_library_paths] {
-        if {[file exists $p]} {
-            set sourcesupport_paths_exist 1
-            break
-        }
-    }
-
-    if {$sourcesupport_paths_exist} {
-        #launch from <projectdir/src is also likely to be common
-        # but we need to be loud about what's going on.
-        puts stderr "------------------------------------------------------------------"
-        puts stderr "Launched from within a folder ending in 'src'"
-        puts stderr " - modules in $startdir/modules $startdir/lib (etc) may override bootsupport modules"
-        puts stderr "------------------------------------------------------------------"
-    }
-}
-# -------------------------------------------------------------------------------------
-set original_tm_list [tcl::tm::list]
-set original_auto_path $::auto_path
-
-set package_paths_modified 0
-if {$bootsupport_paths_exist || $sourcesupport_paths_exist} {
-    tcl::tm::remove {*}$original_tm_list
-
-    #very basic test there is something there..
-    set support_contents_exist 0
-    foreach p [list {*}$bootsupport_module_paths {*}$bootsupport_library_paths {*}$sourcesupport_module_paths {*}$sourcesupport_library_paths] {
-        #set contents [glob -nocomplain -dir $p -tail *]
-        if {![file exists $p]} {continue}
-        set contents [punkboot::lib::folder_nondotted_children $p]
-        set readmeposn [lsearch -nocase $contents readme.md]
-        #don't assume 'ledit' available
-        set contents [lreplace $contents $readmeposn $readmeposn] ;#list unchanged if -1
-        if {[llength $contents]} {
-            set support_contents_exist 1
-            break
-        }
-    }
-
-    set tcl_core_packages [list tcl::zlib zlib tcl::oo TclOO tcl::tommath tcl::zipfs Tcl Tk]
-    if {$support_contents_exist} {
-        #only forget all *unloaded* package names
-        foreach pkg [package names] {
-            if {$pkg in $tcl_core_packages} {
-                continue
-            }
-            if {![llength [package versions $pkg]]} {
-                #puts stderr "Got no versions for pkg $pkg"
-                continue
-            }
-            if {![string length [package provide $pkg]]} {
-                #no returned version indicates it wasn't loaded - so we can forget its index
-                package forget $pkg
-            }
-        }
-        #Deliberately omit original_tm_list and original_auto_path
-        tcl::tm::add  {*}[lreverse $bootsupport_module_paths] {*}[lreverse $sourcesupport_module_paths] ;#tm::add works like LIFO. sourcesupport_module_paths end up earliest in resulting tm list.
-        set ::auto_path [list  {*}$sourcesupport_library_paths {*}$bootsupport_library_paths]
-    }
-    #puts "----> auto_path     $::auto_path"
-    #puts "----> tcl::tm::list [tcl::tm::list]"
-
-    #maint: also in punk::repl package
-    #--------------------------------------------------------
-    set libunks [list]
-    foreach tm_path [tcl::tm::list] {
-        set punkdir [file join $tm_path punk]
-        if {![file exists $punkdir]} {continue}
-        lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm]
-    }
-    set libunknown ""
-    set libunknown_version_sofar ""
-    foreach lib $libunks {
-        #expecting to be of form libunknown-<tclversion>.tm
-        set vtail [lindex [split [file tail $lib] -] 1]
-        set thisver [file rootname $vtail] ;#file rootname x.y.z.tm
-        if {$libunknown_version_sofar eq ""} {
-            set libunknown_version_sofar $thisver
-            set libunknown $lib
-        } else {
-            if {[package vcompare $thisver $libunknown_version_sofar] == 1} {
-                set libunknown_version_sofar $thisver
-                set libunknown $lib
-            }
-        }
-    }
-    if {$libunknown ne ""} {
-        source $libunknown
-        if {[catch {punk::libunknown::init -caller make.tcl} errM]} {
-            puts stderr "error initialising punk::libunknown\n$errM"
-        }
-        #puts stdout " *** [package names]"
-        #puts stdout " **** [dict get $::punk::libunknown::epoch pkg untracked]"
-    } else {
-        puts stderr "Failed to find punk::libunknown"
-    }
-    #--------------------------------------------------------
-
-    #package require Thread
-    #puts "---->tcl_library [info library]"
-    #puts "---->loaded      [info loaded]"
-    # - the full repl requires Threading and punk,shellfilter,shellrun to call and display properly.
-
-    # tm list already indexed - need 'package forget' to find modules based on current tcl::tm::list
-    #These are strong dependencies
-    #package forget  punk::mix
-    #package forget  punk::repo
-    #package forget  punkcheck
-
-    package require punk::repo ;#todo - push our requirements to a smaller punk::repo::xxx package with minimal dependencies
-    package require punk::mix
-    package require punkcheck
-    package require punk::lib
-    package require punk::args
-    package require punk::ansi
-    package require textblock
-
-
-    set package_paths_modified 1
-
-    #------------------------------------------------------------------------------
-    #puts "----> llength package names [llength [package names]]"
-}
-
-set ::punkboot::pkg_requirements_found [list]
-
-#we will treat 'package require <mver>.<etc>' (minbounded) as  <mver>.<etc>-<mver+1> ie explicitly convert to corresponding bounded form
-#put some with leading zeros to test normalisation
-set ::punkboot::bootsupport_requirements [dict create\
-    punk::repo              [list version "00.01.01-"]\
-    punk::mix               [list version ""]\
-    punk::ansi              [list]\
-    punk::args              [list]\
-    overtype                [list version "1.6.5-"]\
-    punkcheck               [list]\
-    fauxlink                [list version "0.1.1-"]\
-    textblock               [list version 0.1.1-]\
-    fileutil                [list]\
-    fileutil::traverse      [list]\
-    struct::list            [list]\
-    md5                     [list version 2-]\
-]
-
-#while we are converting plain version numbers to explicit bounded form - we'll also do some validation of the entries
-dict for {pkg pkginfo} $::punkboot::bootsupport_requirements {
-    if {[dict exists $pkginfo version]} {
-        set ver [string trim [dict get $pkginfo version]]
-        if {![catch {::punkboot::lib::tm_version_required_canonical $ver} canonical]} {
-            if {$canonical ne $ver} {
-                dict set pkginfo version $canonical  ;# plain ver mapped to min-max. min- and min-max and empty left as is
-                dict set ::punkboot::bootsupport_requirements $pkg $pkginfo
-            }
-        } else {
-            puts stderr "punkboot::bootsupport_requirements - package $pkg has invalid version specification '$ver'"
-            exit 1
-        }
-    } else {
-        #make sure each has a blank version entry if nothing was there.
-        dict set pkginfo version ""
-        dict set ::punkboot::bootsupport_requirements $pkg $pkginfo
-    }
-}
-#Assert - our bootsupport_requirement version numbers should now be either empty or of the form min- or min-max
-#dict for {k v} $::punkboot::bootsupport_requirements {
-#    puts "- $k $v"
-#}
-
-#some of our toplevel package specified in bootsupport_requirements may trigger 'package require' for dependencies that we know are optional/not required.
-#By listing them here we can produce better warnings
-set ::punkboot::bootsupport_optional [dict create\
-    tcllibc                 [list -note {improves performance significantley}]\
-    twapi                   [list]\
-    patternpunk             [list]\
-    cryptkit                [list -note {accelerates some packages}]\
-    Trf                     [list -note {accelerates some packages}]\
-]
-set ::punkboot::bootsupport_recommended [dict create\
-    tcllibc                 [list -note {improves performance significantley}]\
-]
-
-# ** *** *** *** *** *** *** *** *** *** *** ***
-# create an interp in which we hijack package command
-# This allows us to auto-gather some dependencies (not necessarily all and not necessarily strictly required)
-# Note: even in a separate interp we could still possibly get side-effects if a package has compiled components - REVIEW
-# Hopefully the only side-effect is that a subsequent load of the package will be faster...
-# (punk boot is intended to operate without compiled components - but some could be pulled in by tcl modules if they're found)
-# (tcllibc is also highly desirable as the performance impact when not available can be dramatic.)
-# ... but if the binary is loaded with a different path name when we come to actually use it - there could be issues.
-# A truly safe way to do this might be to call out to a separate process, or to relaunch after checks. (todo?)
-# A truly accurate way to do this is to have dependencies properly recorded for every package -
-# something the package developer would have to provide - or an analyst would have to determine by looking at the code.
-# (to check for 'package require' statements that are actually optional, one-or-more-of-n, mutually-exclusive, anti-requirements etc)
-# Such information may also vary depending on what features of the package are to be used here - so it's a tricky problem.
-#
-# Nevertheless - the auto-determination can be a useful warning to the punk boot developer that something may be missing in the bootsupport.
-#
-# A further auto-determination for optionality could potentially be done in yet another interp by causing package require to fake-error on a dependency -
-# and see if the parent still loads. This would still be more time and complexity for a still uncertain result.
-# e.g a package may be a strong requirement for the package being examined iff another optional package is present (which doesn't itself require that dependency)
-# - it's unclear that reasonable determinations always can be made.
-# There are also packages that aren't required during one package's load - but are required during certain operations.
-# ** *** *** *** *** *** *** *** *** *** *** ***
-proc  ::punkboot::check_package_availability {args} {
-    #best effort at auto-determinining packages required (dependencies) based on top-level packages in the list.
-    #Without fully parsing the package-loading Tcl scripts and examining all side-effects (an unlikely capability),
-    # this is not going to be as accurate as the package developer providing a definitive list of which packages are required and which are optional.
-    # 'optionality' is a contextual concept anyway depending on how the package is intended to be used.
-    # The package developer may consider a feature optional - but it may not be optional in a particular usecase.
-
-    set bootsupport_requirements [lindex $args end]
-    set usage "punkboot::check_package_availability ?-quiet 0|1? package_list"
-    if {![llength $bootsupport_requirements]} {
-        error "usage: $usage"
-    }
-    set opts [lrange $args 0 end-1]
-    if {[llength $opts] % 2 != 0} {
-        error "incorrect number of arguments. usage: $usage"
-    }
-    set defaults [dict create\
-        -quiet 1\
-    ]
-    set opts [dict merge $defaults $opts]
-    set opt_quiet [dict get $opts -quiet]
-
-    interp create testpkgs
-    interp eval testpkgs [list package prefer [package prefer]]
-    interp eval testpkgs {
-        namespace eval ::test {}
-        set ::test::pkg_requested [list] ;#list of pairs (pkgname version_requested) version_requested is 'normalised' (min- /min-max only) or empty
-        set ::test::pkg_loaded    [list]
-        set ::test::pkg_missing   [list]
-        set ::test::pkg_broken    [list]
-        set ::test::pkg_info      [dict create]
-        tcl::tm::remove {*}[tcl::tm::list]
-        set ::auto_path [list]
-    }
-    #sync interp package paths with current state of package/library paths
-    interp eval testpkgs [list ::tcl::tm::add {*}[tcl::tm::list]]
-    interp eval testpkgs [list set ::auto_path $::auto_path]
-    interp eval testpkgs [list set ::test::bootsupport_requirements $bootsupport_requirements]
-    interp eval testpkgs [list set ::argv0 $::argv0]
-    interp eval testpkgs [list set ::opt_quiet $opt_quiet]
-
-
-    interp eval testpkgs {
-        #try {
-            rename ::package ::package_orig
-            variable ns_scanned [list]
-            #
-            proc ::tm_version_major {version} {
-                #if {![tm_version_isvalid $version]} {
-                #    error "Invalid version '$version' is not a proper Tcl module version number"
-                #}
-                set firstpart [lindex [split $version .] 0]
-                #check for a/b in first segment
-                if {[string is integer -strict $firstpart]} {
-                    return $firstpart
-                }
-                if {[string first a $firstpart] > 0} {
-                    return [lindex [split $firstpart a] 0]
-                }
-                if {[string first b $firstpart] > 0} {
-                    return [lindex [split $firstpart b] 0]
-                }
-                error "tm_version_major unable to determine major version from version number '$version'"
-            }
-            proc ::package {args} {
-                variable ns_scanned
-                if {[lindex $args 0] eq "require"} {
-                    #review - difference between errors due to bad requirements format vs package missing/failed
-                    #we should probably still put syntax errors into the datastructure to be ultimately shown to the user
-                    if {[lindex $args 1] eq "-exact"} {
-                        set pkgname             [lindex $args 2]
-                        set raw_requirements_list [lrange $args 3 end]
-                        #review - what to do with invalid extra args? Normally it would raise an error
-                        set version_requested   [lindex $raw_requirements_list 0] ;#for now treat as exactly one requirement when -exact
-                        #normalise!
-                        set version_requested "$version_requested-$version_requested"
-                        lappend requirements_list $version_requested
-                    } else {
-                        set pkgname [lindex $args 1]
-                        #usually only a single requirement - but we must handle multiple
-                        set raw_requirements_list   [lrange $args 2 end] ;#may be also be pattern like ver- (min-unbounded) or ver1-ver2 (bounded) (which will match >=ver1 but strictly < ver2) (or like -exact if ver1=ver2)
-                        set requirements_list [list]
-                        foreach requirement $raw_requirements_list {
-                            #set requirement [::punkboot::lib::tm_version_required_canonical $requirement]
-                            #todo - work out how to get normalisation code in interp
-                            if {[string trim $requirement] ne ""} {
-                                if {[string first - $requirement] < 0} {
-                                    #plain ver - normalise to ver-nextmajor
-                                    #todo - we should fully normalise as we do in main script! (e.g leading zeroes - even though these should be rare)
-                                    set m [::tm_version_major $requirement]
-                                    set nextm [expr {$m +1}]
-                                    lappend requirements_list $requirement-$nextm
-                                } else {
-                                    #has dash - we should normalize so keys match even if leading zeros!
-                                    lappend requirements_list $requirement
-                                }
-                            } else {
-                                #empty or whitespace spec not allowed - should be syntax error
-                                #add it to list anyway so that the underlying package call later can fail it appropriately
-                                lappend requirements_list $requirement
-                            }
-                        }
-                        #assert - added an entry for every raw requirement - even if doesn't appear to be valid
-
-                        #$requirements_list may be empty = any version satisfies.
-                    }
-
-                    #should still distinguish: {pkgname {}} -valid vs {pkgname {{}}} due to empty string supplied in call - invalid - but leave for underlying package command to error on
-                    set pkgrequest [list $pkgname $requirements_list]
-                    if {$pkgrequest ni $::test::pkg_requested} {
-                        lappend ::test::pkg_requested $pkgrequest
-                    }
-
-                    # -- -- --- --- --- --- --- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-                    # Must ensure a scan has been done in the relevant subpath before attempting to gether package vervsion
-                    set nsquals [namespace qualifiers $pkgname]
-                    if {$nsquals ne "" && $nsquals ni $ns_scanned} {
-                        catch {::package_orig require ${nsquals}::zzz-nonexistant} ;#scan every ns encountered once - or we will get no result from 'package versions' for sub namespaces.
-                        lappend ns_scanned $nsquals
-                    }
-                    set versions [::package_orig versions $pkgname]
-                    #An empty result from versions doesn't always indicate we can't load the package!
-                    #REVIEW - known to happen with 'package versions Tcl' - what other circumstances?
-                    # -- -- --- --- --- --- --- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-
-                    #fill in a blank pinfo dict to get some consistent ordering
-                    if {[dict exists $::test::pkg_info $pkgrequest]} {
-                        set pinfo [dict get $::test::pkg_info $pkgrequest]
-                    } else {
-                        set pinfo [dict create version "" versions $versions version_requested $requirements_list required_by [list]]
-                    }
-                    if {[llength $::test::pkg_stack]} {
-                        set caller [lindex $::test::pkg_stack end]
-                        set required_by [dict get $pinfo required_by]
-                        if {$caller ni $required_by} {
-                            lappend required_by $caller
-                        }
-                        dict set pinfo required_by $required_by
-                    }
-                    lappend ::test::pkg_stack $pkgname
-
-                    #At this point we could short circuit if we've already classified this package/requirements combo as missing/broken from a previous require
-                    #review - there is some chance the exact pkg/requirements combo may succeed after an earlier failure if some package adjusted search paths..
-                    #however - the pkg should maintain a failure record - treating it as successful is likely to hide relevant info
-                    if {$pkgrequest in [list {*}$::test::pkg_missing {*}$::test::pkg_broken]} {
-                        set ::test::pkg_stack [lrange $::test::pkg_stack 0 end-1]
-                        dict set ::test::pkg_info $pkgrequest $pinfo
-                        return
-                    }
-
-                    #use our normalised requirements instead of original args
-                    #if {[catch [list ::package_orig {*}$args] result]} {}
-                    if {[catch [list ::package_orig require $pkgname {*}$requirements_list] result]} {
-                        dict set pinfo testerror $result
-                        #package missing - or exists - but failing to initialise
-                        if {!$::opt_quiet} {
-                            set parent_path [lrange $::test::pkg_stack 0 end-1]
-                            puts stderr "\x1b\[32m $pkgname versions: $versions error: $result\x1b\[m"
-                            set parent_path [join $parent_path " -> "]
-                            puts stderr "pkg requirements: $parent_path"
-                            puts stderr "error during    : '$args'"
-                            puts stderr "    \x1b\[93m$result\x1b\[m"
-                        }
-
-                        #the failed package may still exist - so we could check 'package files' and 'package ifneeded' here too - REVIEW
-                        #to determine the version that we attempted to load,
-                        #- we need to look at 'pkg versions' vs -exact  / ver / ver-ver (using package vsatisfies)
-                        if {![llength $versions]} {
-                            #no versions *and* we had an error - missing is our best guess. review.
-                            #'package versions Tcl' never shows any results
-                            #so requests for old versions will show as missing not broken.
-                            #This is probably better anyway.
-                            if {$pkgrequest ni $::test::pkg_missing} {
-                                lappend ::test::pkg_missing $pkgrequest
-                            }
-                        } else {
-                            if {$pkgrequest ni $::test_pkg_broken} {
-                                lappend ::test::pkg_broken $pkgrequest
-                            }
-
-                            #all we know about failed pkg is in the error $result
-                            #we can't reliably determine which version of possibly many it was trying to load just based on error msgs.
-                            #(we often could - but not always)
-                            #Instead - use the properly ordered versions and knowledge of which pkg 'package require' would have picked.
-
-                            #'package versions' does not always return ordered earliest to latest! (e.g 'package versions http' -> 2.10b1 2.9.8)
-                            set ordered_versions [lsort -command {::package_orig vcompare} [::package_orig versions $pkgname]]
-                            if {[::package_orig prefer] eq "stable"} {
-                                #to support 'package prefer' = stable we have to strip alpha/beta versions
-                                set selectable_versions [list]
-                                foreach v $ordered_versions {
-                                    if {[string match *a* $v] || [string match *b* $v]} {
-                                        #presence of an a or b indicates 'unstable'
-                                        continue
-                                    }
-                                    lappend selectable_versions $v
-                                }
-                            } else {
-                                #we are operating under 'package prefer' = latest
-                                set selectable_versions $ordered_versions
-                            }
-
-                            if {[llength $requirements_list]} {
-                                #add one or no entry for each requirement.
-                                #pick highest at end
-                                set satisfiers [list]
-                                foreach requirement $requirements_list {
-                                    foreach ver [lreverse $selectable_versions] {
-                                        if {[package vsatisfies $ver $requirement]} {
-                                            lappend satisfiers $ver
-                                            break
-                                        }
-                                    }
-                                }
-                                if {[llength $satisfiers]} {
-                                    set satisfiers [lsort -command {::package_orig vcompare} $satisfiers]
-                                    dict set pinfo version [lindex $satisfiers end]
-                                }
-                            } else {
-                                #package require will have picked highest/latest
-                                dict set pinfo version [lindex $selectable_versions end]
-                            }
-                        }
-
-
-                        #Note that we must return without error in order to gather 'probable' dependencies.
-                        #This is not completely accurate - as a lib/module may have wrapped a 'package require' in a catch
-                        #In such a case the 'dependency' might be optional - but we currently have no way of determining this.
-                        #By not returning an error - the loaded package may not behave correctly (e.g package state variables set differently?)
-                        #- hence this is all done in a separate interp to be discarded.
-                        #Note that pkgIndex.tcl scripts may commonly just 'return' and fail to do a 'package provide'
-                        # - presumably the standard package require still raises an error in that case though - so it is different?
-                        # - e.g at least some versions of struct::list did this. resulting in "can't find package struct::list" for tcl versions not supported.
-                        # - even thoug it did find a package for struct::list.
-                        set ::test::pkg_stack [lrange $::test::pkg_stack 0 end-1]
-                        dict set ::test::pkg_info $pkgrequest $pinfo
-                        return
-                    } else {
-                        #package loaded ok
-                        lappend ::test::pkg_loaded $pkgrequest
-                        set ifneeded_script [list uplevel 1 [list ::package_orig ifneeded $pkgname]] ;#not guaranteed to be a tcl list?
-                        set pinfo [dict merge $pinfo [dict create version $result raw_ifneeded $ifneeded_script]]
-
-                        set ::test::pkg_stack [lrange $::test::pkg_stack 0 end-1]
-                        set relevant_files [list]
-                        if {![catch {::package_orig files Tcl} ]} {
-                            #tcl9 (also some 8.6/8.7)  has 'package files' subcommand.
-                            #unfortunately, in some cases (e.g md5 when no accelerators available) this can be a huge list (1000+) showing all scanned pkgIndex.tcl files from unrelated packages.
-                            #We expect this to be fixed - but early Tcl9 (and some 8.6/8.7) versions may persist and have this behaviour
-                            #see: https://core.tcl-lang.org/tcl/tktview/209fd9adce
-                            set all_files [::package_orig files $pkgname]
-                            #some arbitrary threshold? REVIEW
-                            if {[llength $all_files] > 10} {
-                                dict set pinfo warning "files_sourced_during_load=[llength $all_files]"
-                            } else {
-                                set relevant_files $all_files
-                                dict set pinfo packagefiles $relevant_files
-                            }
-                        }
-                        if {![llength $relevant_files]} {
-                            dict set pinfo packagefiles {} ;#default
-                            #there are all sorts of scripts, so this is not predictably structured
-                            #e.g using things like apply
-                            #we will attempt to get a trailing source .. <file>
-                            set parts [split [string trim $ifneeded_script] {;}]
-                            set trimparts [list]
-                            foreach p $parts {
-                                lappend trimparts [string trimright $p]
-                            }
-                            set last_with_text [lsearch -inline -not [lreverse $trimparts] ""] ;#could return empty if all blank
-                            #we still don't assume any line is a valid tcl list..
-                            if {$last_with_text ne "" && [regexp -- {\S+$} $last_with_text lastword]} {
-                                #if it's a file or dir - close enough (?)
-                                #e.g tcllibc uses apply and the last entry is actuall a folder used to find the file..
-                                #we aren't brave enough to try to work out the actual file(s)
-                                if {[file exists $lastword]} {
-                                    dict set pinfo packagefiles $lastword
-                                }
-                            }
-                        }
-                        dict set ::test::pkg_info $pkgrequest $pinfo
-                        return $result
-                    }
-                } else {
-                    #puts stderr "package $args"
-                    return [uplevel 1 [list ::package_orig {*}$args]]
-                }
-            }
-
-            set ::test::pkg_stack [list]
-            catch {::package_orig require zzz-non-existant} ;#scan so we get 'package versions' results
-            dict for {pkg pkgdict} $::test::bootsupport_requirements {
-                #set nsquals [namespace qualifiers $pkg]
-                #if {$nsquals ne ""} {
-                #    catch {::package_orig require ${nsquals}::zzz-non-existant} ;#force scan of every level encountered
-                #}
-                set ::test::pkg_stack [list]
-                #run the instrumented 'package require' on the toplevel requirements
-                # dict key version always exists in pkgdict - version is empty or normalised to min- or min-max
-                set wanted [dict get $pkgdict version]
-                catch {package require $pkg {*}$wanted}
-            }
-        #} finally {
-        #    #not strictly necessary as we'll tear down the interp
-        #    catch {rename ::package ""}
-        #    catch {rename ::package_orig ::package}
-        #}
-        # ** *** *** *** *** *** *** *** *** *** *** ***
-
-        #note we will have entries for each different way package was requested
-        set ::test::pkg_requested [lsort -unique $::test::pkg_requested]
-
-        #foreach pkg $::test::pkg_requested {
-        #    set ver [package provide $pkg]
-        #    if {$ver eq ""} {
-        #        #puts stderr "missing pkg: $pkg"
-        #        lappend ::test::pkg_missing $pkg
-        #    } else {
-        #        if {[string tolower $pkg] eq "tcl"} {
-        #            #ignore
-        #            #continue
-        #        }
-        #        lappend ::test::pkg_loaded $pkg
-        #    }
-        #}
-    }
-    #extract results from testpkgs interp
-    set  requested      [interp eval testpkgs {set ::test::pkg_requested}]
-    set  loaded         [interp eval testpkgs {set ::test::pkg_loaded}]
-    set  missing        [interp eval testpkgs {set ::test::pkg_missing}]
-    set  broken         [interp eval testpkgs {set ::test::pkg_broken}]
-    set  pkginfo        [interp eval testpkgs {set ::test::pkg_info}]
-    interp delete testpkgs
-
-    #now run the normal package require on every pkg to see if our 'broken' assignments are correct?
-    #by returning without error in our fake package require - we have potentially miscategorised some in both the 'broken' and 'loaded' categories.
-    #a) - packages that are broken due to missing dependency but we haven't reported as such (the common case)
-    #b) - packages that we reported as broken because they tried to use a function from an optional dependency we didn't error on 
-    #c) - other cases
-    #
-    #Note also by not erroring on a package require the package may have not attempted to load another package that would do the job.
-    #This is a case where we may completely fail to report a one-of-n dependency for example
-    # - hard to test without repeated runs :/
-    #todo - another interp?
-    #a 'normal' run now may at least mark/unmark some 'broken' packages and give at least some better feedback.
-    #we will test all discovered packages from the above process except those already marked as 'missing'
-    #both 'broken' and 'loaded' are still suspect at this point.
-    #we will attempt to load the -exact version that the previous test either appeared to load or fail in loading.
-    #Presumably that is the one that would be loaded in the normal course anyway - REVIEW.
-    #(as well as 'requestd' not guaranteed to be complete - but we will live with that for the purposes here)
-    interp create normaltest
-    interp eval normaltest [list package prefer [package prefer]]
-    interp eval normaltest {
-        set ::pkg_broken [list]
-        set ::pkg_loaded [list]
-        set ::pkg_errors [dict create]
-        tcl::tm::remove {*}[tcl::tm::list]
-        set ::auto_path [list]
-    }
-
-    set test_packages [list]
-    foreach pkgrequest $requested {
-        lassign $pkgrequest pkgname requirements_list 
-        if {$pkgrequest ni $missing} {
-            if {[dict exists $pkginfo $pkgrequest version]} {
-                set tried_version [dict get $pkginfo $pkgrequest version]
-            } else {
-                set tried_version ""
-            }
-            lappend test_packages [list $pkgname $tried_version $requirements_list]
-        }
-    }
-
-    #sync interp package paths with current state of package/library paths
-    interp eval normaltest [list ::tcl::tm::add {*}[tcl::tm::list]]
-    interp eval normaltest [list set ::auto_path $::auto_path]
-    interp eval normaltest [list set ::test_packages $test_packages]
-    interp eval normaltest [list set ::argv0 $::argv0]
-    interp eval normaltest [list set ::opt_quiet $opt_quiet]
-
-    interp eval normaltest {
-        foreach testinfo $::test_packages {
-            lassign $testinfo pkgname ver requirements_list 
-
-            #if {$ver eq ""} {
-            #    set require_script [list package require $pkgname]
-            #} else {
-            #    set require_script [list package require $pkgname $ver-$ver] ;#bounded same version - equivalent to -exact
-            #}
-            set require_script [list package require $pkgname {*}$requirements_list]
-
-            #puts "finaltest $pkgname  requested:$requirements_list"
-            if {[catch $require_script result]} {
-                lappend ::pkg_broken [list $pkgname $requirements_list]
-                dict set ::pkg_errors [list $pkgname $requirements_list] $result
-            }  else {
-                #result is version we actually got - without the previous interp's fudgery
-                if {![llength $requirements_list] || [package vsatisfies $result {*}$requirements_list]} { 
-                    lappend ::pkg_loaded [list $pkgname $requirements_list]
-                } else {
-                    lappend ::pkg_broken [list $pkgname $requirements_list]
-                    dict set ::pkg_errors [list $pkgname $requirements_list] "Version conflict for package \"$pkgname\": have $result, need $requirements_list"
-                    #standard err msg but capital V to differentiate 
-                    #Differs from standard in that we have normalised exacts to ver-ver - so will report in that form instead of e.g 0-1 -exact 1.0 1b3-2
-                }
-            }
-        }
-    }
-    set actually_failed [interp eval normaltest [list set ::pkg_broken]]
-    set pkg_errors      [interp eval normaltest [list set ::pkg_errors]] ;#dict
-    set actually_loaded         [list]
-    set actually_loaded_names   [list]
-    set actually_broken         [list]
-    foreach pkgrequest $requested {
-        if {$pkgrequest in $missing} {
-            continue
-        }
-        if {$pkgrequest in $actually_failed} {
-            lappend actually_broken $pkgrequest
-        } else {
-            lappend actually_loaded $pkgrequest
-            if {[lindex $pkgrequest 0] ni $actually_loaded_names} {
-                lappend actually_loaded_names [lindex $pkgrequest 0]
-            }
-        }
-    }
-
-    dict for {pkg_req err} $pkg_errors {
-        dict set pkginfo $pkg_req error $err
-    }
-
-    interp delete normaltest
-    set pkgstate [dict create requested $requested loaded $actually_loaded loadednames $actually_loaded_names missing $missing broken $actually_broken info $pkginfo]
-
-    #debug
-    #dict for {k v} $pkgstate {
-    #    puts stderr "   - $k $v"
-    #}
-    return $pkgstate
-}
-
-
-#called when only-bootsupport or bootsupport+external module/lib paths active.
-#flags for ui-feature relevant packages
-proc ::punkboot::package_bools {pkg_availability} {
-    set pkgbools [dict create]
-    set requirements [dict create\
-        overtype        1.6.5-\
-        textblock       0.1.1-\
-        punk::ansi      0.1.1-\
-    ]
-    #'dict get $pkg_availability loaded] is a list of {pkgname requrement} pairs
-    #set loaded_names [lmap i [lsearch -all -index 0 -subindices [dict get $pkg_availability loaded] *] {lindex $loaded $i}] ;#return list of first elements in each tuple
-    set loaded_names [dict get $pkg_availability loadednames] ;#prebuilt list of names 
-    dict for {pkgname req} $requirements {
-        #each req could in theory be a list
-        if {$pkgname in $loaded_names} {
-            #get first loaded match - use version from it (all info records for {pkgname *} should have same version that was actually loaded)
-            set first_loaded [lsearch -inline -index 0 [dict get $pkg_availability loaded] $pkgname]
-            set loaded_version [dict get $pkg_availability info $first_loaded version]
-            if {![llength $req] || [package vsatisfies $loaded_version {*}$req]} {
-                dict set pkgbools $pkgname 1
-            } else {
-                dict set pkgbools $pkgname 0
-            }
-        } else {
-            dict set pkgbools $pkgname 0
-        } 
-    }
-    return $pkgbools
-}
-proc ::punkboot::get_display_missing_packages {pkg_availability} {
-    array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
-    global A
-    if {![array size A]} {
-        punkboot::define_global_ansi
-    }
-    set missing_rows [list]
-    set fields_blank_missing [dict create\
-        status              ""\
-        package             ""\
-        version_requested   ""\
-        versions            ""\
-        optional            ""\
-        recommended         ""\
-        required_by         ""\
-    ]
-    foreach pkg_req [dict get $pkg_availability missing] {
-        lassign $pkg_req pkgname requirements_list
-        set fields $fields_blank_missing
-        dict set fields status "missing"
-        dict set fields package $pkg_req
-        if {[dict exists $::punkboot::bootsupport_optional $pkgname]} {
-            dict set fields optional " ${A(OK)}(known optional)$A(RST)"
-        }
-        if {[dict exists $::punkboot::bootsupport_recommended $pkgname]} {
-            dict set fields recommended "${A(HIGHLIGHT)}(RECOMMENDED)$A(RST)"
-        }
-        if {[dict exists $pkg_availability info $pkg_req required_by]} {
-            dict set fields required_by [dict get $pkg_availability info $pkg_req required_by]
-        }
-        lappend missing_rows $fields
-    }
-    set missing_out ""
-    set c1_width 40
-    foreach row $missing_rows {
-        if {$haspkg(overtype)} {
-            set line    "    [overtype::left [string repeat " " $c1_width] $A(BWHITE)[dict get $row package]$A(RST)]" 
-        } else {
-            set line    "    [format "%-*s" $c1_width [dict get $row package]]"
-        }
-        append line " [dict get $row status]" 
-        append line " [dict get $row optional]"
-        append line " [dict get $row recommended]"
-        append line " requested_by:[join [dict get $row required_by] {, }]"
-        append missing_out $line \n
-    }
-    return $missing_out
-}
-proc ::punkboot::get_display_broken_packages {pkg_availability} {
-    array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
-    global A
-    if {![array size A]} {
-        punkboot::define_global_ansi
-    }
-    set broken_rows [list]
-    set fields_blank_broken [dict create\
-        status          ""\
-        package         ""\
-        version         ""\
-        optional        ""\
-        recommended     ""\
-        required_by     ""\
-        error           ""\
-    ]
-    foreach pkg_req [dict get $pkg_availability broken] {
-        lassign $pkg_req pkgname vrequested 
-        set fields $fields_blank_broken
-        dict set fields status "broken"
-        dict set fields package $pkg_req 
-
-        if {[dict exists $pkg_availability info $pkg_req version]} {
-            dict set fields version [dict get $pkg_availability info $pkg_req version] 
-        }
-
-        if {[dict exist $::punkboot::bootsupport_optional $pkgname]} {
-            dict set fields optional "${A(OK)}(known optional)$A(RST)"
-        }
-
-        if {[dict exists $::punkboot::bootsupport_recommended $pkgname]} {
-            dict set fields recommended "${A(HIGHLIGHT)}(RECOMMENDED)$A(RST)"
-        }
-
-        set requiredby_list [list]
-        if {[dict exists $::punkboot::bootsupport_requirements $pkgname]} {
-            #punkboot also asked for this pkgname
-            #the question of what other packages would also be satisfied had this request not been broken isn't necessarily something we need to answer here
-            #we do so for punkboot anyway - but it's inclusion as 'requiredby or requestedby' isn't strictly accurate - 
-            # it is more like: would also be satisfied by
-            #what is 'broken' may depend on what order packages were loaded
-            #e.g if a package already required a specific low version (that was optional for it) that another then fails on because a different version was not optional for that later package.
-            #puts stderr "$pkgname===$::punkboot::bootsupport_requirements"
-            set pboot_required [dict get $::punkboot::bootsupport_requirements $pkgname version] ;#version key always present and empty or normalised
-            if {[list $pkgname $pboot_required] eq $pkg_req} {
-                #pboot had same requirespec as this broken record
-                set requiredby_list [list punkboot]
-            } elseif {[dict exists $pkg_availability info $pkg_req version]} {
-                set vtried [dict get $pkg_availability info $pkg_req version]
-                if {[dict exists $pkg_availability broken [list $pkgname $pboot_required]]} {
-                    #punkboot didn't get what it wanted directly
-                    if {$pboot_required eq "" || [package vsatisfies $vtried $pboot_required]} { 
-                        #REVIEW  
-                        #e.g punkboot might require no specific version - and this fail record might be for a specific version
-                        #we only list punkboot against this request if it's request also failed - but would be satisfied by this failure if it had worked
-                        set requiredby_list [list punkboot]
-                    }
-                }
-            }
-        }
-        if {[dict exists $pkg_availability info $pkg_req required_by]} {
-            lappend requiredby_list {*}[dict get $pkg_availability info $pkg_req required_by]
-        }
-        dict set fields required_by $requiredby_list
-
-        if {[dict exists $pkg_availability info $pkg_req error]} {
-            dict set fields error "[dict get $pkg_availability info $pkg_req error]" 
-        }
-
-        lappend broken_rows $fields
-    }
-    set broken_out ""
-    set c1_width 40
-    set c3_width 20
-    set c3 [string repeat " " $c3_width]
-    foreach row $broken_rows {
-        if {$haspkg(overtype)} {
-            set line    "    [overtype::left [string repeat " " $c1_width] $A(BAD)[dict get $row package]$A(RST)]" 
-        } else {
-            set line    "    [format "%-*s" $c1_width [dict get $row package]]"
-        }
-        append line " [dict get $row status]" 
-        if {[dict get $row version] ne ""} {
-            set txt " ver:[dict get $row version]" 
-            append line [format "%-*s" $c3_width $txt]
-        } else {
-            append line $c3 
-        }
-        if {[dict get $row optional] ne ""} {
-            append line [dict get $row optional]
-        }
-        if {[dict get $row recommended] ne ""} {
-            append line [dict get $row recommended]
-        }
-        if {[dict get $row required_by] ne ""} {
-            append line " requested_by:[join [dict get $row required_by] {, }]"
-        }
-        if {[dict get $row error] ne ""} {
-            append line " err:[dict get $row error]"
-        }
-        append broken_out $line \n
-    }
-    return $broken_out
-}
-proc ::punkboot::define_global_ansi {} {
-    #stick to basic colours for themable aspects ?
-    #
-    set has_ansi [expr {[package provide punk::ansi] ne ""}]
-
-    global A
-    if {!$has_ansi} {
-        if {[info exists ::punk::console::colour_disabled] && $::punk::console::colour_disabled} {
-            set A(RST)              ""
-            set A(HIGHLIGHT)        ""
-            set A(BWHITE)           ""
-            set A(OK)               ""
-            set A(BAD)              ""
-            set A(ERR)              ""
-        } else {
-            set A(RST)             \x1b\[m
-            set A(HIGHLIGHT)       \x1b\[93m        ;#brightyellow
-            set A(BWHITE)          \x1b\[97m        ;#brightwhite
-            set A(OK)              \x1b\[92m        ;#brightgreen 
-            set A(BAD)             \x1b\[33m        ;# orange
-            set A(ERR)             \x1b\[31m        ;# red
-        }
-    } else {
-        namespace eval ::punkboot {
-            namespace import ::punk::ansi::a+ ::punk::ansi::a
-        }
-        set A(RST)             \x1b\[m
-        set A(HIGHLIGHT)       [a+ brightyellow]
-        set A(BWHITE)          [a+ brightwhite]
-        set A(OK)              [a+ web-lawngreen]     ;#brightgreen 
-        set A(BAD)             [a+ web-orange]
-        set A(ERR)             [a+ web-indianred]     ;#easier on the eyes than standard red on some screens
-    }
-}
-proc ::punkboot::punkboot_gethelp {args} {
-    #we have currently restricted our package paths to those from 'bootsupport'
-    #gather details on what is missing so that the info is always reported in help output.
-    variable pkg_availability
-    global A
-    punkboot::define_global_ansi
-
-    array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
-
-    set scriptname [file tail [info script]]
-    append h "Usage:" \n 
-    append h "" \n
-    append h "  $scriptname -help  or $scriptname --help or $scriptname /? or just $scriptname" \n
-    append h "    - This help." \n \n
-    append h "  $scriptname project ?-k?" \n
-    append h "    - this is the literal word project - and confirms you want to run the project build - which includes src/vfs/* checks and builds" \n
-    append h "    - the optional -k flag will terminate running processes matching the executable being built (if applicable)" \n
-    append h "    - builds/copies .tm modules from src to <projectdir>/modules etc and pkgIndex.tcl based libraries from src to <projectdir>/lib etc." \n \n
-    append h "  $scriptname modules"  \n
-    append h "    - build (or copy if build not required) .tm modules from src/modules src/vendormodules etc to their corresponding locations under <projectdir>" \n
-    append h "      This does not scan src/runtime and src/vfs folders to build kit/zipkit/cookfs executables" \n \n
-    append h "  $scriptname libs"  \n
-    append h "    - build (or copy if build not required) pkgIndex.tcl based libraries from src/lib src/vendorlib etc to their corresponding locations under <projectdir>" \n
-    append h "      This does not scan src/runtime and src/vfs folders to build kit/zipkit/cookfs executables" \n \n
-    append h "  $scriptname packages"  \n
-    append h "    - build (or copy if build not required) both .tm and pkgIndex.tcl based packages from src to their corresponding locations under <projectdir>" \n
-    append h "      This does not scan src/runtime and src/vfs folders to build kit/zipkit/cookfs executables" \n \n
-    append h "  $scriptname bootsupport"  \n
-    append h "    - update the src/bootsupport modules as well as the mixtemplates/layouts/<layoutname>/src/bootsupport modules if the folder exists" \n
-    append h "    - bootsupport modules are pulled from locations specified in include_modules.config files within each src/bootsupport subdirectory" \n
-    append h "    - This should usually be from modules that have been built and tested in <projectdir>/modules <projectdir>/lib etc." \n
-    append h "    - bootsupport modules are available to make.tcl" \n \n
-    append h "  $scriptname vendorupdate"  \n
-    append h "    - update the src/vendormodules based on src/vendormodules/include_modules.config" \n \n
-    append h "    - update the src/vendorlib based on src/vendorlib/config.toml (todo)" \n \n
-    append h "  $scriptname vfscommonupdate"  \n
-    append h "    - update the src/vfs/_vfscommon.vfs from compiled src/modules and src/lib etc" \n
-    append h "    - before calling this (followed by make project) - you can test using '<builtexe>(.exe) dev'" \n
-    append h "      this will load modules from your <projectdir>/module <projectdir>/lib paths instead of from the kit/zipkit" \n \n
-    append h "  $scriptname info" \n
-    append h "    - show the name and base folder of the project to be built" \n \n
-    append h "  $scriptname check" \n
-    append h "    - show module/library paths and any potentially problematic packages for running this script" \n
-    append h "  $scriptname shell" \n
-    append h "    - run the punk shell using bootsupport libraries." \n
-    append h "" \n
-    if {[llength [dict get $pkg_availability missing]] || [llength [dict get $pkg_availability broken]]} {
-        set has_recommended 0
-        set has_nonoptional 0
-        foreach pkg_req [list {*}[dict get $pkg_availability missing] {*}[dict get $pkg_availability broken]] {
-            lassign $pkg_req pkgname _requirements
-            if {[dict exists $::punkboot::bootsupport_recommended $pkgname]} {
-                set has_recommended 1
-                break
-            }
-            if {![dict exists $::punkboot::bootsupport_optional $pkgname]} {
-                set has_nonoptional 1
-                break
-            }
-        }
-        if {$has_recommended || $has_nonoptional} {
-            append h "* $A(HIGHLIGHT)** NOTE ** ***$A(RST)" \n
-            append h "    punk boot has detected that the following packages could not be loaded from the bootsystem path:" \n
-            set missing_out [get_display_missing_packages $pkg_availability] 
-            append h $missing_out
-
-            set broken_out [get_display_broken_packages $pkg_availability] 
-
-            append h $broken_out
-            append h "* $A(HIGHLIGHT)** *** *** ***$A(RST)" \n
-            append h "    These packages are *probably* required for punk boot to function correctly and efficiently" \n
-            append h "    punk boot may still work if they are available elsewhere for the running interpreter" \n
-            append h "    Review to see if bootsupport should be updated" \n
-            append h "    Call 'make.tcl check' and examine the last table (which includes bootsupport + executable-provided packages)" \n
-            append h "    See if there are any items marked missing or broken that aren't marked as '(known optional)'" \n
-            append h "    If all are marked (known optional) then it should work." \n
-            append h "    A package marked (known optional) and (RECOMMENDED) may make the build/install processes run a lot faster. (e.g tcllibc)" \n 
-            append h "* $A(HIGHLIGHT)** *** *** ***$A(RST)" \n\n
-            #append h "Successfully Loaded packages:" \n
-            #append h "    " [join $::punkboot::pkg_loaded "\n    "] \n
-        }
-    }
-    return $h
-}
-
-
-
-
-set scriptargs $::argv
-punk::args::define {
-    @id     -id     punkmake
-    @cmd    -name   punkmake\
-        -summary\
-        "Project builder"\
-        -help\
-        ""
-    @form -form help
-    @leaders
-    subcommand -type "literal(help)"
-    @opts
-    @values
-    what -type string -choices {modules libs shell}
-
-    @form -form modules
-    subcommand -type "literal(modules)"
-
-    @form -form libs
-    subcommand -type "literal(libs)"
-
-    @form -form shell
-    subcommand -type "literal(shell)"
-    arg -type any -optional 1 -multiple 1
-}
-
-#set argd [punk::args::parse $scriptargs -form 0 withid punkmake]
-###lassign [dict values $argd] leaders opts values received
-#
-#puts stdout [punk::args::usage -scheme nocolour punkmake]
-#exit 1
-
-
-set do_help 0
-if {![llength $scriptargs]} {
-    set do_help 1
-} else {
-    foreach h $::punkboot::help_flags {
-        if {[lsearch $scriptargs $h] >= 0} {
-            set do_help 1
-            break
-        }
-    }
-}
-
-
-set commands_found [list]
-foreach a $scriptargs {
-    if {![string match -* $a]} {
-        lappend commands_found $a
-    } else {
-        if {$a ni $::punkboot::non_help_flags} {
-            set do_help 1
-        }
-    }
-}
-if {[llength $commands_found] != 1 } {
-    set do_help 1
-} elseif {[lindex $commands_found 0] ni $::punkboot::known_commands} {
-    puts stderr "Unknown command: [lindex $commands_found 0]\n\n"
-    set do_help 1
-}
-
-
-if {$do_help} {
-    puts stdout "Checking package availability..."
-    set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] 
-    foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
-        #puts stderr "---> $pkg_request"
-        lassign $pkg_request pkgname vrequest
-        set vloaded [dict get $::punkboot::pkg_availability info $pkg_request version] ;#version that was selected to load in response to vrequest during test
-        #catch {package require $pkgname {*}$vrequest} ;#todo
-        package require $pkgname {*}$vrequest ;#todo
-        #package require $pkgname $vloaded-$vloaded
-    }
-    puts stdout [::punkboot::punkboot_gethelp] 
-    exit 0
-}
-
-
-
-set ::punkboot::command [lindex $commands_found 0]
-
-
-if {[lsearch $::argv -k] >= 0} {
-    set forcekill 1
-} else {
-    set forcekill 0
-}
-#puts stdout "::argv  $::argv"
-# ----------------------------------------
-
-set scriptfolder $::punkboot::scriptfolder
-
-
-
-#first look for a project root (something under fossil or git revision control AND matches punk project folder structure)
-#If that fails - just look for a 'project shaped folder' ie meets minimum requirements of /src /src/lib /src/modules /lib /modules
-#test
-if {[catch {punk::repo::find_project}]} {
-    puts stderr "punk::repo [package provide punk::repo]"
-}
-if {![string length [set projectroot [punk::repo::find_project $scriptfolder]]]} {
-    if {![string length [set projectroot [punk::repo::find_candidate $scriptfolder]]]} {
-        puts stderr "punkboot script unable to determine an approprite project root at or above the path '$scriptfolder' ensure the make script is within a project folder structure"
-        puts stderr " -aborted- "
-        exit 2
-        #todo?
-        #ask user for a project name and create basic structure?
-        #call punk::mix::cli::new $projectname on parent folder?
-    } else {
-        puts stderr "WARNING punkboot script operating in project space that is not under version control"
-    }
-} else {
-    
-}
-
-set sourcefolder $projectroot/src
-set binfolder    $projectroot/bin
-
-if {$::punkboot::command eq "check"} {
-    set sep [string repeat - 75]
-    puts stdout $sep
-    puts stdout "module/library checks - paths from bootsupport only"
-    puts stdout $sep
-    puts stdout "- tcl::tm::list"
-    foreach fld [tcl::tm::list] {
-        if {[file exists $fld]} {
-            puts stdout "    $fld"
-        } else {
-            puts stdout "    $fld (not present)"
-        }
-    }
-    puts stdout "- auto_path"
-    foreach fld $::auto_path {
-        if {[file exists $fld]} {
-            puts stdout "    $fld"
-        } else {
-            puts stdout "    $fld (not present)"
-        }
-    }
-    flush stdout
-    set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] 
-    foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
-        lassign $pkg_request pkgname vrequest
-        package require $pkgname {*}$vrequest ;#todo?
-    }
-    flush stderr 
-    #punk::lib::showdict -channel stderr $::punkboot::pkg_availability
-    set missing_out [::punkboot::get_display_missing_packages $::punkboot::pkg_availability] 
-    puts stdout $missing_out\n
-
-    set broken_out [::punkboot::get_display_broken_packages $::punkboot::pkg_availability] 
-    puts stdout $broken_out
-
-    set v [package require punk::mix::base]
-
-    #don't exit yet - 2nd part of "check" below package path restore
-}
-# -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-# - package path restore original module paths and auto_path entries to take effect in addition to bootsupport paths
-# - Order such that bootsupport entries are always higher priority (if same version number - prefer bootsupport)
-# - This must be done between the two "check" command sections
-
-#   Ideally we would be running make.tcl purely from bootsupport packages - but binary packages such as Thread are required,
-#   and without accelerators the performance is abysmal (e.g minutes vs seconds for common sha1 operations)
-
-if {$package_paths_modified} {
-    set tm_list_boot [tcl::tm::list]
-    tcl::tm::remove {*}$tm_list_boot
-
-    set lower_prio [list]
-    foreach p $original_tm_list {
-        if {$p ni $tm_list_boot} {
-            lappend lower_prio $p
-        }
-    }
-    tcl::tm::add {*}[lreverse $lower_prio] {*}[lreverse $tm_list_boot]
-
-    #set ::auto_path [list $bootsupport_lib {*}$original_auto_path]
-    lappend ::auto_path {*}$original_auto_path
-}
-# -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-
-
-# -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-#The problem with forcing our main packages to load only from bootsupport/sourcesupport is that if they require packages that use accelerators
-# and no acceleration is available in bootsupport/sourcesupport - then they will stay unaccelerated even if the os packages provide it
-# Also - some packages such as struct::set don't seem to handle reloading after forget (at least - not without destroying the command first)
-#Packages that provide acceleration don't use a consistent API for testing acceleration e.g md5, sha1, struct::set in tcllib all differ in
-#whether they provide functions such as Loaded, Implementations, SwitchTo
-set acceleratable [list sha1 md5]
-lappend acceleratable {*}[lsearch -all -inline [package names] struct::*]
-foreach p $acceleratable {
-    package forget $p
-    if {[string match struct::* $p]} {
-        catch {rename $p ""}
-    }
-}
-# -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-
-
-#2nd part of "check"
-if {$::punkboot::command eq "check"} {
-    set sep [string repeat - 75]
-    puts stdout $sep
-    puts stdout "module/library checks - paths from bootsupport plus those provided by running interp [info nameofexecutable]"
-    puts stdout $sep
-    puts stdout "- tcl::tm::list"
-    foreach fld [tcl::tm::list] {
-        if {[file exists $fld]} {
-            puts stdout "    $fld"
-        } else {
-            #puts stdout "    $fld (not present)"
-        }
-    }
-    puts stdout "- auto_path"
-    foreach fld $::auto_path {
-        if {[file exists $fld]} {
-            puts stdout "    $fld"
-        } else {
-            #puts stdout "    $fld (not present)"
-        }
-    }
-    set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] 
-    foreach pkg_request [dict get $::punkboot::pkg_availability loaded] {
-        lassign $pkg_request pkgname vrequest
-        catch {package require $pkgname {*}$vrequest} ;#todo
-    }
-    flush stderr 
-    #punk::lib::showdict -channel stderr $::punkboot::pkg_availability
-    set missing_out [::punkboot::get_display_missing_packages $::punkboot::pkg_availability] 
-    puts stdout $missing_out\n
-    set broken_out  [::punkboot::get_display_broken_packages $::punkboot::pkg_availability] 
-    puts stdout $broken_out
-    puts stdout $sep
-    puts stdout $sep
-    catch {package require struct::set}
-    puts stdout ---[package ifneeded struct::set 2.2.3]
-    exit 0
-}
-
-if {![array size A]} {
-    punkboot::define_global_ansi
-}
-
-#puts stderr ">>>>>>+ loaded:[info loaded]"
-#puts stderr "llength package names: [llength [package names]]"
-if {[info exists ::punk::libunknown::epoch]} {
-    set untracked [dict get $::punk::libunknown::epoch pkg untracked]
-    #puts stderr "punk::libunknown::epoch exists"
-} else {
-    set untracked [list]
-    #puts stderr "punk::libunknown::epoch does not exist"
-}
-#REVIEW - we shouldn't need to manually set the untracked packages - punk::libunknown::init should have done it?
-foreach p [package names] {
-    if {![dict exists $untracked $p]} {
-        dict set untracked $p ""
-    }
-}
-dict set ::punk::libunknown::epoch pkg untracked $untracked
-
-if {[package provide punk::libunknown] eq ""} {
-    puts "punk::libunknown not loaded"
-} else {
-    puts "punk::libunknown loaded"
-}
-dict for {pkg pkginfo} $::punkboot::bootsupport_requirements {
-    set verspec [dict get $pkginfo version] ;#version wanted specification always exists and is empty or normalised 
-    if {[catch {package require $pkg {*}$verspec} errM]} {
-        puts stdout "$A(BAD)$errM$A(RST)"
-    }
-}
-
-if {$::punkboot::command eq "info"} {
-    puts stdout "- -- --- --- --- --- --- --- --- --- -- -"
-    puts stdout "- --             info                -- -"
-    puts stdout "- -- --- --- --- --- --- --- --- --- -- -"
-    puts stdout "- projectroot     : $projectroot"
-    set sourcefolder $projectroot/src
-    #todo show all but highlight the one that matches $this_platform_generic
-    set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib vendorlib_tcl*]
-    puts stdout "- vendorlib folders: ([llength $vendorlibfolders])"
-    foreach fld $vendorlibfolders {
-        puts stdout "    src/$fld"
-    }
-    set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules vendormodules_tcl*]
-    puts stdout "- vendormodule folders: ([llength $vendormodulefolders])"
-    foreach fld $vendormodulefolders {
-        puts stdout "    src/$fld"
-    }
-    #set source_module_folderlist [punk::mix::cli::lib::find_source_module_paths $projectroot] ;#returns only those containing .tm files
-    #foreach fld $source_module_folderlist {
-    #    set relpath [punkcheck::lib::path_relative $projectroot $fld]
-    #    puts stdout "    $relpath"
-    #}
-    set  projectmodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails modules_tcl* modules]
-    puts stdout "- source module paths: [llength $projectmodulefolders]"
-    #JJJ
-    foreach fld $projectmodulefolders {
-        puts stdout "    $fld"
-    }
-    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib_tcl* lib]
-    puts stdout "- source libary paths: [llength $projectlibfolders]"
-    foreach fld $projectlibfolders {
-        puts stdout "    src/$fld"
-    }
-    if {[punk::repo::find_fossil $scriptfolder] eq $projectroot} {
-        set vc "fossil"
-        set rev [punk::repo::fossil_revision $scriptfolder]
-        set rem [punk::repo::fossil_remote $scriptfolder]
-    } elseif {[punk::repo::find_git $scriptfolder] eq $projectroot} {
-        set vc "git"
-        set rev [punk::repo::git_revision $scriptfolder]
-        set rem [punk::repo::git_remote  $scriptfolder]
-    } else {
-        set vc " - none found -"
-        set rev "n/a"
-        set remotes "n/a"
-    }
-    puts stdout "- version control : $vc"
-    puts stdout "- revision        : $rev"
-    puts stdout "- remote"
-    foreach ln [split $rem \n] {
-    puts stdout "    $ln"
-    }
-    puts stdout "- -- --- --- --- --- --- --- --- --- -- -"
-
-    exit 0
-}
-
-
-
-
-if {$::punkboot::command eq "shell"} {
-    package require struct::list
-    package require punk
-    package require punk::repl
-    #todo - make procs vars etc from this file available?
-    puts stderr "punk boot shell not implemented - dropping into ordinary punk shell."
-
-
-    repl::init
-    set replresult [repl::start stdin -title make.tcl]
-    #review
-    if {[string is integer -strict $replresult]} {
-        exit $replresult
-    } else {
-        puts stdout $replresult
-        exit 0
-    }
-}
-
-if {$::punkboot::command eq "vfscommonupdate"} {
-    puts "projectroot: $projectroot"
-    puts "script: [info script]"
-    puts stdout "Updating vfs/_vfscommon.vfs"
-
-    puts stdout "REPLACE src/vfs/_vfscommon.vfs/* with project's modules and libs?? y|n"
-    if {[gets stdin] eq "y"} {
-        puts proceeding...
-
-        proc vfscommonupdate {projectroot} {
-            file delete -force $projectroot/src/vfs/_vfscommon.vfs/modules
-            file copy $projectroot/modules $projectroot/src/vfs/_vfscommon.vfs/
-            #temp? (avoid zipfs mkimg windows dotfile bug)
-            file delete $projectroot/src/vfs/_vfscommon.vfs/modules/.punkcheck
-
-            file delete -force $projectroot/src/vfs/_vfscommon.vfs/lib
-            file copy $projectroot/lib $projectroot/src/vfs/_vfscommon.vfs/
-            #temp?
-            file delete $projectroot/src/vfs/_vfscommon.vfs/lib/.punkcheck
-
-        }
-        vfscommonupdate $projectroot
-
-    }  else {
-        puts aborting...
-    }
-
-
-
-    puts stdout "\nvfscommonupdate  done "
-    flush stderr
-    flush stdout
-    ::exit 0
-}
-
-if {$::punkboot::command eq "vendorupdate"} {
-    puts "projectroot: $projectroot"
-    puts "script: [info script]"
-    #puts "-- [tcl::tm::list] --"
-    puts stdout "Updating vendor modules in src folder"
-
-    proc vendor_localupdate {projectroot} {
-        set local_modules [list]
-        set git_modules [list]
-        set fossil_modules [list]
-        set sourcefolder $projectroot/src
-        #todo vendor/lib
-        set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib_tcl*]
-        #todo platform folders under vendor/lib_tcl<v>
-
-
-        #todo platform folders under vendor/module_tcl<v> 
-        set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules vendormodules_tcl*]
-        #lappend vendormodulefolders vendormodules
-        foreach vf $vendormodulefolders {
-                lassign [split $vf _] _vm tclx
-                if {$tclx ne ""} {
-                    set which _$tclx
-                } else {
-                    set which ""
-                }
-
-                set vendor_config $sourcefolder/vendormodules$which/include_modules.config ;#todo - change to toml
-                if {[file exists $vendor_config]} {
-                    set targetroot $sourcefolder/vendormodules$which
-                    source $vendor_config ;#populate $local_modules $git_modules $fossil_modules with project-specific list
-                    if {![llength $local_modules]} {
-                        puts stderr "src/vendormodules$which No local vendor modules configured for updating (config file: $vendor_config)"
-                    } else {
-                        if {[catch {
-                            #----------
-                            set vendor_installer [punkcheck::installtrack new make.tcl $sourcefolder/vendormodules$which/.punkcheck]
-                            $vendor_installer set_source_target $projectroot $sourcefolder/vendormodules$which
-                            set installation_event [$vendor_installer start_event {-make_step vendorupdate}]
-                            #----------
-                        } errM]} {
-                            puts stderr "Unable to use punkcheck for vendormodules$which update.  Error: $errM"
-                            set installation_event ""
-                        }
-                        #todo - sync alg with bootsupport_localupdate!
-                        foreach {relpath requested_module} $local_modules {
-                            set requested_module [string trim $requested_module :]
-                            set module_subpath [string map {:: /} [namespace qualifiers $requested_module]]
-                            set srclocation [file join $projectroot $relpath $module_subpath]
-                            #puts stdout "$relpath  $module $module_subpath $srclocation"
-
-                            #todo - check if requested_module has version extension and allow explicit versions instead of just latest
-                            #allow modulename-* literal in .config to request all versions
-
-                            set pkgmatches [glob -nocomplain -dir $srclocation -tail [namespace tail $requested_module]-*]
-                            #lsort won't sort version numbers properly e.g with -dictionary 0.1.1 comes before 0.1
-                            if {![llength $pkgmatches]} {
-                                puts stderr "Missing local source for requested vendor module $requested_module - not found in $srclocation"
-                                continue
-                            }
-                            set latestfile [lindex $pkgmatches 0] ;#default 
-                            set latestver [lindex [split [file rootname $latestfile] -] 1]
-                            foreach m $pkgmatches {
-                                lassign [split [file rootname $m] -] _pkg ver
-                                #puts "comparing $ver vs $latestver"
-                                if {[package vcompare $ver $latestver] == 1} {
-                                    set latestver $ver
-                                    set latestfile $m
-                                } 
-                            }
-
-                            set srcfile [file join $srclocation $latestfile]
-                            set tgtfile [file join $targetroot $module_subpath $latestfile]
-                            if {$installation_event ne ""} {
-                                #----------
-                                $installation_event targetset_init INSTALL   $tgtfile
-                                $installation_event targetset_addsource      $srcfile
-                                #----------
-                                if {\
-                                        [llength [dict get [$installation_event targetset_source_changes] changed]]\
-                                    || [llength [$installation_event get_targets_exist]] < [llength [$installation_event get_targets]]\
-                                    } {
-                                    file mkdir [file dirname $tgtfile] ;#ensure containing folder for target exists
-                                    $installation_event targetset_started
-                                    # -- --- --- --- --- ---
-                                    puts "VENDORMODULES$which update: $srcfile -> $tgtfile"
-                                    if {[catch {
-                                        file copy -force $srcfile  $tgtfile
-                                    } errM]} {
-                                        $installation_event targetset_end FAILED
-                                    } else {
-                                        $installation_event targetset_end OK
-                                    }
-                                    # -- --- --- --- --- ---
-                                } else {
-                                    puts -nonewline stderr "."
-                                    $installation_event targetset_end SKIPPED
-                                }
-                                $installation_event end
-                            } else {
-                                file copy -force $srcfile  $tgtfile
-                            }
-                        }
-
-                    }
-                } else {
-                    puts stderr "No config at $vendor_config - nothing configured to update"
-                }
-        }
-    }
-
-    vendor_localupdate $projectroot
-
-    puts stdout " vendor package update done "
-    flush stderr
-    flush stdout
-    ::exit 0
-}
-
-if {$::punkboot::command eq "bootsupport"} {
-    puts "projectroot: $projectroot"
-    puts "script: [info script]"
-    #puts "-- [tcl::tm::list] --"
-    puts stdout "Updating bootsupport from local files"
-
-    proc modfile_sort {p1 p2} {
-        lassign [split [file rootname $p1] -] _ v1
-        lassign [split [file rootname $p2] -] _ v2
-        package vcompare $v1 $v2
-    }
-    proc bootsupport_localupdate {projectroot} {
-        set sourcefolder $projectroot/src
-
-        set bootmodulefolders [glob -nocomplain -dir $sourcefolder/bootsupport -type d -tails modules modules_tcl*]
-        foreach bm $bootmodulefolders {
-            lassign [split $bm _] _bm tclx
-            if {$tclx ne ""} {
-                set which _$tclx
-            } else {
-                set which ""
-            }
-            set bootsupport_config  $projectroot/src/bootsupport/modules$which/include_modules.config ;#
-            set bootsupport_modules [list] ;#variable populated by include_modules.config file - initialise empty for each bm folder
-            if {[file exists $bootsupport_config]} {
-                set targetroot $projectroot/src/bootsupport/modules$which
-                source $bootsupport_config ;#populate $bootsupport_modules with project-specific list
-                if {![llength $bootsupport_modules]} {
-                    puts stderr "bootsupport/modules$which - No local bootsupport modules configured for updating"
-                } else {
-
-                    if {[catch {
-                        #----------
-                        set boot_installer [punkcheck::installtrack new make.tcl $projectroot/src/bootsupport/.punkcheck]
-                        $boot_installer set_source_target $projectroot $projectroot/src/bootsupport
-                        set boot_event [$boot_installer start_event {-make_step bootsupport}]
-                        #----------
-                    } errM]} {
-                        puts stderr "Unable to use punkcheck for bootsupport error: $errM"
-                        set boot_event ""
-                    }
-
-                    foreach {relpath modulematch} $bootsupport_modules {
-                        set modulematch [string trim $modulematch :]
-                        set module_subpath [string map [list :: /] [namespace qualifiers $modulematch]]
-                        set srclocation [file join $projectroot $relpath $module_subpath]
-                        #puts stdout "$relpath  $modulematch $module_subpath $srclocation"
-                        #we must always glob using the dash - or we will match libraries that are suffixes of others
-                        #bare lib.tm with no version is not valid.
-                        if {[string first - $modulematch] != -1} {
-                            #version or part thereof is specified.
-                            set pkgmatches [glob -nocomplain -dir $srclocation -tail -type f [namespace tail $modulematch]*.tm]
-                        } else {
-                            set pkgmatches [glob -nocomplain -dir $srclocation -tail -type f [namespace tail $modulematch]-*.tm]
-                        }
-                        if {![llength $pkgmatches]} {
-                            puts stderr "Missing source for bootsupport module $modulematch - no matches in $srclocation"
-                            continue
-                        }
-
-                        set modulematch_is_glob [regexp {[*?\[\]]} $modulematch]
-                        if {!$modulematch_is_glob} {
-                            #if modulematch was specified without globs - only copy latest
-                            #lsort won't sort version numbers properly e.g with -dictionary 0.1.1 comes before 0.1b3 - use helper func
-                            set pkgmatches [lsort -command modfile_sort $pkgmatches]
-                            set latestfile [lindex $pkgmatches end]
-                            #set latestver [lindex [split [file rootname $latestfile] -] 1]
-                            set copy_files $latestfile
-                        } else {
-                            #globs in modulematch - may be different packages matched by glob - copy all versions of matches
-                            #review
-                            set copy_files $pkgmatches
-                        }
-                        #if a file added manually to target dir - there will be no .punkcheck record - will be detected as changed
-                        foreach cfile $copy_files {
-                            set srcfile [file join $srclocation $cfile]
-                            set tgtfile [file join $targetroot $module_subpath $cfile]
-                            if {$boot_event ne ""} {
-                                #----------
-                                $boot_event targetset_init INSTALL   $tgtfile
-                                $boot_event targetset_addsource      $srcfile
-                                #----------
-                                #
-                                #puts "bootsuport target $tgtfile record size: [dict size [$boot_event targetset_last_complete]]"
-                                if {\
-                                        [llength [dict get [$boot_event targetset_source_changes] changed]]\
-                                    || [llength [$boot_event get_targets_exist]] < [llength [$boot_event get_targets]]\
-                                    } {
-                                    file mkdir [file dirname $tgtfile] ;#ensure containing folder for target exists
-                                    $boot_event targetset_started
-                                    # -- --- --- --- --- ---
-                                    puts "\nBOOTSUPPORT module$which update: $srcfile -> $tgtfile"
-                                    if {[catch {
-                                        file copy -force $srcfile  $tgtfile
-                                    } errM]} {
-                                        $boot_event targetset_end FAILED
-                                    } else {
-                                        $boot_event targetset_end OK
-                                    }
-                                    # -- --- --- --- --- ---
-                                } else {
-                                    puts -nonewline stderr "."
-                                    $boot_event targetset_end SKIPPED
-                                }
-                                $boot_event end
-                            } else {
-                                file copy -force $srcfile  $tgtfile
-                            }
-                        }
-                    }
-                    if {$boot_event ne ""} {
-                        puts \n
-                        $boot_event destroy
-                        $boot_installer destroy
-                    }
-                }
-
-            }
-        }
-    }
-
-    bootsupport_localupdate $projectroot
-
-    #if this project has custom project layouts, and there is a bootsupport folder  - update their bootsupport 
-
-    set layout_bases [list\
-        $sourcefolder/project_layouts/custom/_project\
-    ]
-    foreach project_layout_base $layout_bases {
-        if {[file exists $project_layout_base]} {
-            set project_layouts [glob -nocomplain -dir $project_layout_base -type d -tail *]
-            foreach layoutname $project_layouts {
-                puts stdout "Processing layout $project_layout_base/$layoutname"
-                #don't auto-create src/bootsupport - just update it if it exists
-                if {[file exists  [file join $project_layout_base $layoutname/src/bootsupport]]} {
-                    set antipaths [list\
-                        README.md\
-                    ]
-                    #set boot_module_folders [list modules {*}[glob -nocomplain -dir $projectroot/src/bootsupport/modules_tcl*]]
-                    set  bootsupport_module_folders "modules"
-                    foreach bm $bootsupport_module_folders {
-                        if {[file exists $projectroot/src/bootsupport/$bm]} {
-                            lassign [split $bm _] _bm tclx
-                            if {$tclx ne ""} {
-                                set which _$tclx
-                            } else {
-                                set which ""
-                            }
-                            set sourcemodules $projectroot/src/bootsupport/modules$which
-                            set targetroot [file join $project_layout_base $layoutname/src/bootsupport/modules$which]
-                            file mkdir $targetroot
-
-                            puts stdout "BOOTSUPPORT$which layouts/$layoutname: copying from $sourcemodules to $targetroot (if source file changed)"
-
-                            set resultdict [punkcheck::install $sourcemodules $targetroot\
-                                -overwrite installedsourcechanged-targets\
-                                -antiglob_paths $antipaths\
-                                -installer "punkboot-bootsupport"\
-                                -progresschannel stdout\
-                                ]
-
-                            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-                            flush stdout
-                        }
-                    }
-                }
-                #make.tcl (to be boot.tcl?) is part of bootsupport
-                set source_bootscript [file join $projectroot src/make.tcl]
-                set targetroot_bootscript $project_layout_base/$layoutname/src
-                if {[file exists $source_bootscript]} {
-                    puts stdout "BOOTSUPPORT layouts/$layoutname: copying from $source_bootscript to $targetroot_bootscript (if source file changed)"
-                    set resultdict [punkcheck::install [file dirname $source_bootscript] $targetroot_bootscript\
-                            -glob make.tcl\
-                            -max_depth 1\
-                            -createempty 0\
-                            -overwrite installedsourcechanged-targets\
-                            -installer  "punkboot-bootsupport"\
-                            -progresschannel stdout\
-                            ]
-                    puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-                    flush stdout
-                }
-            }
-        } else {
-            puts stderr "No layout base at $project_layout_base"
-        }
-    }
-    puts stdout " bootsupport done "
-    flush stderr
-    flush stdout
-    #punk86 can hang if calling make.tcl via 'run' without this 'after' delay. punk87 unaffected. cause unknown.
-    #after 500
-    ::exit 0
-}
-
-
-
-if {$::punkboot::command ni {project modules libs packages vfs bin}} {
-    puts stderr "Command $::punkboot::command not implemented - aborting."
-    flush stderr
-    after 100
-    exit 1
-}
-
-
-
-#external libs and modules first - and any supporting files - no 'building' required
-
-#install src vendor contents (from version controlled src folder) to base of project (same target folders as our own src/modules etc ie to paths that go on the auto_path and in tcl::tm::list)
-
-if {$::punkboot::command in {project packages modules}} {
-    set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules vendormodules_tcl*]
-    foreach vf $vendormodulefolders {
-        lassign [split $vf _] _vm tclx
-        if {$tclx ne ""} {
-            set which _$tclx
-        } else {
-            set which ""
-        }
-        set target_module_folder $projectroot/modules$which
-        file mkdir $target_module_folder
-
-        #install .tm *and other files*
-        puts stdout "VENDORMODULES$which: copying from $sourcefolder/$vf to $target_module_folder (if source file changed)"
-        set resultdict [punkcheck::install $sourcefolder/$vf  $target_module_folder\
-            -installer make.tcl\
-            -overwrite installedsourcechanged-targets\
-            -antiglob_paths {README.md include_modules.config}\
-            -progresschannel stdout\
-            ]
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    }
-    if {![llength $vendormodulefolders]} {
-        puts stderr "VENDORMODULES: No src/vendormodules or src/vendormodules_tcl* folders found."
-    }
-}
-
-if {$::punkboot::command in {project packages libs}} {
-    #exclude README.md from source folder - but only the root one
-    #-antiglob_paths takes relative patterns e.g
-    # */test.txt  will only match test.txt exactly one level deep.
-    # */*/*.foo will match any path ending in .foo that is exactly 2 levels deep.
-    # **/test.txt will match at any level below the root (but not in the root)
-    set antipaths [list\
-        README.md\
-    ]
-    #step1 - vendorlib  - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral
-    set  vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib]
-    foreach lf $vendorlibfolders {
-        set source_lib_folder $sourcefolder/$lf
-        set target_lib_folder $projectroot/lib
-        file mkdir $target_lib_folder
-        puts stdout "VENDORLIB: copying tcl-version neutral and platform neutral libraries from $source_lib_folder to $target_lib_folder (if source file changed)"
-        set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
-            -overwrite installedsourcechanged-targets\
-            -antiglob_paths $antipaths\
-            -progresschannel stdout\
-            ]
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    }
-    if {![llength $vendorlibfolders]} {
-        puts stderr "VENDORLIB: No src/vendorlib folder found."
-    }
-    #step2 - vendorlib_tcl<majorv> - platform-neutral in 'allplatforms' folder + platform specific based on current platform
-    set  vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib_tcl*]
-    foreach lf $vendorlibfolders {
-        lassign [split $lf _] _vm which ;#which is tcl8|tcl9 etc
-
-        set source_lib_folder $sourcefolder/vendorlib_$which/allplatforms
-        set target_lib_folder $projectroot/lib_$which/allplatforms
-        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
-            file mkdir $target_lib_folder
-            puts stdout "VENDORLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
-            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
-                -overwrite installedsourcechanged-targets\
-                -antiglob_paths $antipaths\
-                -progresschannel stdout\
-                ]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "$A(BAD)VENDORLIB_$which - no platform neutral folder found at $source_lib_folder$A(RST)"
-        }
-        #this_platform_generic
-        set source_lib_folder $sourcefolder/vendorlib_$which/$this_platform_generic
-        set target_lib_folder $projectroot/lib_$which/$this_platform_generic
-        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
-            file mkdir $target_lib_folder
-            puts stdout "VENDORLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
-            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
-                -overwrite installedsourcechanged-targets\
-                -antiglob_paths $antipaths\
-                -progresschannel stdout\
-                ]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "$A(BAD)mVENDORLIB_$which - no platform specific folder found at $source_lib_folder$A(RST)"
-        }
-
-    }
-    if {![llength $vendorlibfolders]} {
-        puts stderr "$A(BAD)VENDORLIB: No src/vendorlib or src/vendorlib_tcl* folder found.$A(RST)"
-    }
-}
-
-if {$::punkboot::command in {project packages libs}} {
-    ########################################################
-    lappend projectlibfolders lib 
-    #exclude README.md from source folder - but only the root one
-    #-antiglob_paths takes relative patterns e.g
-    # */test.txt  will only match test.txt exactly one level deep.
-    # */*/*.foo will match any path ending in .foo that is exactly 2 levels deep.
-    # **/test.txt will match at any level below the root (but not in the root)
-    set antipaths [list\
-        README.md\
-    ]
-    #step1 - src/lib  - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral
-    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib]
-    foreach lf $projectlibfolders {
-        set target_lib_folder $projectroot/lib
-        file mkdir $target_lib_folder
-        puts stdout "PROJECTLIB: copying from $sourcefolder/$lf to $target_lib_folder (if source file changed)"
-        set resultdict [punkcheck::install $sourcefolder/$lf $target_lib_folder\
-            -overwrite installedsourcechanged-targets\
-            -antiglob_paths $antipaths\
-            -progresschannel stdout\
-            ]
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    }
-    if {![llength $projectlibfolders]} {
-        puts stderr "PROJECTLIB: No src/lib folder found."
-    }
-    #step2 - src/lib_<majorv> - platform-neutral in 'allplatforms' folder + platform specific based on current platform
-    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib_tcl*]
-    foreach lf $projectlibfolders {
-        lassign [split $lf _] _vm which
-        set source_lib_folder $sourcefolder/lib_$which/allplatforms
-        set target_lib_folder $projectroot/lib_$which/allplatforms
-        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
-            file mkdir $target_lib_folder
-            puts stdout "PROJECTLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
-            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
-                -overwrite installedsourcechanged-targets\
-                -antiglob_paths $antipaths\
-                -progresschannel stdout\
-                ]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "$A(BAD)mPROJECTLIB_$which - no platform neutral folder found at $source_lib_folder$A(RST)"
-        }
-
-        #this_platform_generic
-        set source_lib_folder $sourcefolder/lib_$which/$this_platform_generic
-        set target_lib_folder $projectroot/lib_$which/$this_platform_generic
-        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
-            file mkdir $target_lib_folder
-            puts stdout "PROJECTLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
-            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
-                -overwrite installedsourcechanged-targets\
-                -antiglob_paths $antipaths\
-                -progresschannel stdout\
-                ]
-            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-        } else {
-            puts stdout "$A(BAD)mPROJECTLIB_$which - no platform specific folder found at $source_lib_folder$A(RST)"
-        }
-
-
-    }
-    if {![llength $projectlibfolders]} {
-        puts stderr "PROJECTLIB: No src/lib_tcl* folder found."
-    }
-
-
-}
-
-if {$::punkboot::command in {project packages modules libs}} {
-    ########################################################
-    #templates
-    #e.g The default project layout is mainly folder structure and readme files - but has some scripts developed under the main src that we want to sync
-    #src to  src/modules/punk/mix/templates/layouts/project/src
-
-    set old_layout_update_list    [list\
-        [list project $sourcefolder/modules/punk/mix/templates]\
-        [list basic $sourcefolder/mixtemplates]\
-        ]
-    set layout_bases    [list\
-        $sourcefolder/project_layouts/custom/_project\
-        ]
-
-    foreach layoutbase $layout_bases {
-        if {![file exists $layoutbase]} {
-            continue
-        }
-        set project_layouts [glob -nocomplain -dir $layoutbase -type d -tail *]
-        foreach layoutname $project_layouts {
-            set config [dict create\
-                -make-step sync_layouts\
-            ]
-            #----------
-            set tpl_installer [punkcheck::installtrack new make.tcl $layoutbase/.punkcheck]
-            $tpl_installer set_source_target $sourcefolder $layoutbase
-            set tpl_event [$tpl_installer start_event $config]
-            #----------
-            set pairs [list]
-            set pairs [list\
-                [list $sourcefolder/build.tcl  $layoutbase/$layoutname/src/build.tcl]\
-                [list $sourcefolder/make.tcl  $layoutbase/$layoutname/src/make.tcl]\
-            ]
-
-            foreach filepair $pairs {
-                lassign $filepair srcfile tgtfile
-
-                file mkdir [file dirname $tgtfile]
-                #----------
-                $tpl_event targetset_init INSTALL   $tgtfile
-                $tpl_event targetset_addsource      $srcfile
-                #----------
-                if {\
-                    [llength [dict get [$tpl_event targetset_source_changes] changed]]\
-                    || [llength [$tpl_event get_targets_exist]] < [llength [$tpl_event get_targets]]\
-                    } {
-                    $tpl_event targetset_started
-                    # -- --- --- --- --- ---
-                    puts stdout "PROJECT LAYOUT update - layoutname: $layoutname Copying from $srcfile to $tgtfile"
-                    if {[catch {
-                        file copy -force $srcfile $tgtfile
-                    } errM]} {
-                        $tpl_event targetset_end FAILED -note "layout:$layoutname copy failed with err: $errM"
-                    } else {
-                        $tpl_event targetset_end OK -note "layout:$layoutname"
-                    }
-                    # -- --- --- --- --- ---
-                } else {
-                    puts stderr "."
-                    $tpl_event targetset_end SKIPPED
-                }
-            }
-
-            $tpl_event end
-            $tpl_event destroy
-            $tpl_installer destroy
-        }
-    }
-}
-
-
-if {$::punkboot::command in {project packages modules}} {
-    #consolidated /modules /modules_tclX folder used for target where X is tcl major version
-    #the make process will process for any _tclX not just the major version of the current interpreter
-
-    #default source module folders are at projectroot/src/modules and projectroot/src/modules_tclX (where X is tcl major version)
-    #There may be multiple other src module folders at same level (e.g folder not being other special-purpose folder and not matching name vendor* that contains at least one .tm file in its root) 
-    set source_module_folderlist [punk::mix::cli::lib::find_source_module_paths $projectroot]
-    puts stdout "SOURCEMODULES: scanning [llength $source_module_folderlist] folders"
-    foreach src_module_dir $source_module_folderlist {
-        set mtail [file tail $src_module_dir]
-        if {[string match "modules_tcl*" $mtail]} {
-            set target_modules_base $projectroot/$mtail
-        } else {
-            set target_modules_base $projectroot/modules
-        }
-        file mkdir $target_modules_base
-
-        puts stderr "Processing source module dir: $src_module_dir"
-        set dirtail [file tail $src_module_dir]
-        #modules and associated files belonging to this package/app
-        set copied [punk::mix::cli::lib::build_modules_from_source_to_base $src_module_dir $target_modules_base -glob *.tm] ;#will only accept a glob ending in .tm
-        #set copied [list]
-        puts stdout "--------------------------"
-        puts stderr "Copied [llength $copied] tm modules from src/$dirtail to $target_modules_base "
-        puts stdout "--------------------------"
-
-        set overwrite "installedsourcechanged-targets"
-        #set overwrite "ALL-TARGETS"
-        puts stdout "MODULEFOLDER non_tm_files $src_module_dir - copying to $target_modules_base (if source file changed)"
-        set resultdict [punkcheck::install_non_tm_files $src_module_dir $target_modules_base\
-            -installer make.tcl\
-            -overwrite $overwrite\
-            -antiglob_paths {README.md}\
-            -progresschannel stdout\
-            ]
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    }
-}
-
-if {$::punkboot::command in {project packages modules libs}} {
-    set installername "make.tcl"
-    # ----------------------------------------
-    if {[punk::repo::is_fossil_root $projectroot]} {
-        set config [dict create\
-            -make-step configure_fossil\
-        ]
-        #----------
-        set installer [punkcheck::installtrack new $installername $projectroot/.punkcheck]
-        $installer set_source_target $projectroot $projectroot
-
-        set event [$installer start_event $config]
-        $event targetset_init VIRTUAL fossil_settings_mainmenu ;#VIRTUAL - since there is no actual target file
-        set menufile $projectroot/.fossil-custom/mainmenu
-        $event targetset_addsource $menufile
-        #----------
-
-        if {\
-                [llength [dict get [$event targetset_source_changes] changed]]\
-            } {
-            $event targetset_started
-            # -- --- --- --- --- ---
-            puts stdout "Configuring fossil setting: mainmenu from: $menufile"
-            if {[catch {
-                set fd [open $menufile r]
-                fconfigure $fd -translation binary
-                set data [read $fd]
-                close $fd
-                exec fossil settings mainmenu $data
-            } errM]} {
-                $event targetset_end FAILED -note "fossil update failed: $errM"
-            } else {
-                $event targetset_end OK
-            }
-            # -- --- --- --- --- ---
-        } else {
-            puts stderr "."
-            $event targetset_end SKIPPED
-        }
-        $event end
-        $event destroy
-        $installer destroy
-    }
-}
-
-#review
-set installername "make.tcl"
-
-if {$::punkboot::command ni {project vfs bin}} {
-    #command = modules
-    puts stdout "vfs folders not checked"
-    puts stdout " - use 'make.tcl vfscommonupdate' to copy built modules into base vfs folder" 
-    puts stdout " - use 'make.tcl project' to build executable kits/zipkits from vfs folders as well if you have runtimes installed"
-    puts stdout "   Note that without the vfscommonupdate step, 'make.tcl project' will include any manual changes in the *custom* vfs folders but"
-    puts stdout "   without the latest built modules." 
-    puts stdout "   calling 'builtexename(.exe) dev' will allow testing of built modules before they are put into the kits/zipkits via 'vfscommonupdate' then 'project'"
-    puts stdout "-done-"
-    exit 0
-}
-
-
-set buildfolder [punk::mix::cli::lib::get_build_workdir $sourcefolder]
-if {$buildfolder ne "$sourcefolder/_build"} {
-    puts stderr "$sourcefolder/_build doesn't match the project buildfolder $buildfolder - check project filestructure"
-    puts stdout " -aborted- "
-    exit 2
-}
-
-if {$::punkboot::command eq "bin"} {
-    puts stdout "checking $sourcefolder/bin"
-    set resultdict [punkcheck::install $sourcefolder/bin $binfolder\
-        -overwrite synced-targets\
-        -installer "punkboot-bin"\
-        -progresschannel stdout\
-        ]
-
-    puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    flush stdout
-}
-
-#find runtimes
-#set rtfolder $sourcefolder/runtime
-#AAA
-
-switch -glob -- $this_platform_generic {
-    macosx-* {
-        #assuming universal binaries x86_64 and arm
-        set rt_os_arch macosx
-    }
-    default {
-        set rt_os_arch $this_platform_generic
-    }
-}
-set rtfolder $binfolder/runtime/$rt_os_arch
-set rt_sourcefolder $sourcefolder/runtime ;#where our config lives
-#review - when building kits for other platforms - it's unlikely runtime will be marked as executable - we should probably process all files in runtime folder except those with certain extensions
-
-
-set rtfolder_files [glob -nocomplain -dir $rtfolder -types {f} -tail *]
-set exclusions {.config .md .ico .txt .doc .pdf .htm .html} ;#we don't encourage other files in runtime folder aside from mapvfs.config - but lets ignore some common possibilities
-lappend exclusions .zip .7z .pea .bz2 .tar .gz .tgz .z .xz ;#don't allow archives to directly be treated as runtimes - tolerate presence but require user to unpack or rename if they're to be used as runtimes
-lappend exclusions .tail ;#result of running sdx mksplit on a kit - in theory the .head could be used - review/test
-set runtimes [list]
-foreach f $rtfolder_files {
-    if {[string tolower [file extension $f]] in $exclusions} {
-        continue
-    }
-    lappend runtimes $f
-}
-if {![llength $runtimes]} {
-    puts stderr "No executable runtimes found in $rtfolder - unable to build any .vfs folders into executables."
-    puts stderr "Add runtimes to $rtfolder if required"
-    #todo - don't exit - it is valid to use runtime of - to just build a .kit/.zipkit ?
-    exit 0
-}
-
-set have_sdx 1
-set sdxpath [auto_execok $binfolder/sdx]
-if {$sdxpath eq ""} {
-    set sdxpath [auto_execok [file dirname [info nameofexecutable]]/sdx]
-    if {$sdxpath eq ""} {
-        #last resort - look on path
-        set sdxpath [auto_execok sdx]
-    }
-    if {$sdxpath eq ""} {
-        #last resort - a tclkit and sdx.kit fine
-        if {[file exists $binfolder/sdx.kit]} {
-            set tclkitpath [auto_execok $binfolder/tclkit]
-            if {$tclkitpath eq ""} {
-                set tclkitpath [auto_execok tclkit]
-            }
-            set sdxpath [list {*}$tclkitpath $binfolder/sdx.kit]
-        }
-    }
-
-    if {$sdxpath eq "" || [catch {exec {*}$sdxpath help} errM]} {
-        puts stderr "FAILED to find usable sdx command or tclkit executable with sdx.bat"
-        puts stderr "If tclkit-based runtimes are required  - check that sdx executable is in bin folder of project or in same folder as tcl/punk executable or on path"
-        puts stderr "This is not a problem if tcl8.7/tcl9+ kits using the preferred method 'zipfs' are to be used, or if cookfs based kits are to be used."
-        puts stderr "err: $errM"
-        #exit 1
-        set have_sdx 0
-    }
-}
-
-# -- --- --- --- --- --- --- --- --- ---
-#load mapvfs.config file (if any) in runtime folder to map runtimes to vfs folders.
-#build a dict keyed on runtime executable name. 
-#If no mapfile (or no mapfile entry for that runtime) - the runtime will be paired with a matching .vfs folder in src folder.  e.g punk.exe to src/punk.vfs
-#If vfs folders or runtime executables which are explicitly listed in the mapfile don't exist - warn on stderr - but continue. if such nonexistants found; prompt user for whether to continue or abort.
-set mapfile $rt_sourcefolder/mapvfs.config
-set runtime_vfs_map [dict create]
-set vfs_runtime_map [dict create]
-if {[file exists $mapfile]} {
-    set fdmap [open $mapfile r]
-    fconfigure $fdmap -translation binary
-    set mapdata [read $fdmap]
-    close $fdmap
-    set mapdata [string map [list \r\n \n] $mapdata]
-    set missing [list]
-    foreach ln [split $mapdata \n] {
-        set ln [string trim $ln]
-        if {$ln eq "" || [string match #* $ln]} {
-            continue
-        }
-        set vfs_specs [lassign $ln runtime]
-        if {[string match *.exe $runtime]} {
-            #.exe is superfluous but allowed
-            #drop windows .exe suffix so same config can work cross platform - extension will be re-added if necessary later
-            set runtime [string range $runtime 0 end-4]
-        }
-        if {$runtime ne "-"} {
-            set runtime_test $runtime
-            if {"windows" eq $::tcl_platform(platform)} {
-                set runtime_test $runtime.exe
-            }
-            if {![file exists [file join $rtfolder $runtime_test]]} {
-                puts stderr "WARNING: Missing runtime file $rtfolder/$runtime_test (line in mapvfs.config: $ln)"
-                lappend missing $runtime
-            }
-        }
-        foreach vfsconfig $vfs_specs {
-            switch -- [llength $vfsconfig] {
-                1 - 2 - 3 {
-                    lassign $vfsconfig vfstail appname target_kit_type
-                    if {![file isdirectory [file join $sourcefolder vfs $vfstail]]} {
-                        puts stderr "WARNING: Missing vfs folder [file join $sourcefolder vfs $vfstail] specified in mapvfs.config for runtime $runtime"
-                        lappend missing $vfstail
-                    } else {
-                        if {$appname eq ""} {
-                            set appname [file rootname $vfstail]
-                        }
-                        dict lappend vfs_runtime_map $vfstail [list $runtime $appname $target_kit_type]
-                    }
-                }
-                default {
-                    puts stderr "bad entry in mapvfs.config - expected each entry after the runtime name to be of length 1 or length 2. got: $vfsconfig  ([llength $vfsconfig])"
-                }
-            }
-
-
-        }
-        if {[dict exists $runtime_vfs_map $runtime]} {
-            puts stderr "CONFIG FILE ERROR. runtime: $runtime was specified more than once in $mapfile."
-            exit 3
-        }
-        dict set runtime_vfs_map $runtime $vfs_specs
-    }
-    if {[llength $missing]} {
-        puts stderr "WARNING [llength $missing] missing items from $mapfile. (TODO - prompt user to continue/abort)"
-        foreach m $missing {
-            puts stderr "    $m"
-        }
-        puts stderr "continuing..."
-    }
-}
-# -- --- --- --- --- --- --- --- --- ---
-puts "-- runtime_vfs_map --"
-punk::lib::pdict runtime_vfs_map
-puts "---------------------"
-puts "-- vfs_runtime_map--"
-punk::lib::pdict vfs_runtime_map 
-puts "---------------------"
-
-
-#only test the runtime capabilities for runtimes that are actually in our map
-#how can we do this for runtimes from other platforms? 
-#method1 try to mount as zip and kit  - depends on current runtime to have mkzip - just because there is zip data doesn't mean the kit can mount it
-#method2 analyze executable to determine if its for another platform - then ask user and save answers in a config file.?
-#mthod3 qemu?
-set runtime_caps [dict create]
-foreach runtime [dict keys $runtime_vfs_map] {
-    set capscript {
-        set caps [dict create]
-        dict set caps patchlevel [info patchlevel]
-        if {[lsearch -index 1 [info loaded] tclkitpath] >=0} {
-            #for a bare kit that has had vfs removed (ie head made with sdx mksplit)
-            #we can't use package require starkit
-            dict set caps has_starkit 1
-        } else {
-            #fallback - review if necessary
-            if {![catch {
-                package require starkit
-            } errM]} {
-                dict set caps has_starkit 1
-            } else {
-                dict set caps has_starkit 0
-            }
-        }
-        if {![catch {
-            set cmd [info commands tcl::zipfs::root]
-            if {$cmd ne ""} {
-                dict set caps has_zipfs 1
-            } else {
-                dict set caps has_zipfs 0
-            }
-        } errM]}
-        if {![catch {
-            package require cookfs
-        } errM]} {
-            dict set caps has_cookfs 1
-        } else {
-            dict set caps has_cookfs 0
-        }
-        puts -nonewline stdout $caps
-        exit 0
-    }
-    #invoke can fail if runtime not an executable file for the current platform
-    if {![catch {
-        lassign [punk::lib::invoke [list $rtfolder/$runtime <<$capscript]] stdout stderr exitcode
-    } errM]} {
-        if {$exitcode == 0} {
-            dict set runtime_caps $runtime $stdout 
-        }
-        dict set runtime_caps $runtime exitcode $exitcode
-    } else {
-        dict set runtime_caps $runtime exitcode -1 error "launch-fail"
-    }
-}
-puts stdout "Runtime capabilities:"
-punk::lib::pdict runtime_caps
-
-set vfs_tails [glob -nocomplain -dir $sourcefolder/vfs -types d -tail *.vfs]
-#add any extra .vfs folders found in runtime/mapvfs.config file (e.g myotherruntimes/something.vfs)
-dict for {vfstail -} $vfs_runtime_map {
-    if {$vfstail ni $vfs_tails} {
-        lappend vfs_tails $vfstail
-    }
-}
-if {![llength $vfs_tails]} {
-    puts stdout "No .vfs folders found at '$sourcefolder/vfs' - no kits to build"
-    puts stdout " -done- "
-    exit 0
-}
-
-set vfs_folder_changes [dict create] ;#cache whether each .vfs folder has changes so we don't re-run tests if building from same .vfs with multiple runtime executables
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-#make build copy for all runtimes - not just those in the map - because even without a mapvfs.config file entry we build an exe for a runtime that matches .vfs folder name - REVIEW.
-foreach  runtimefile $runtimes {
-    #runtimefile e.g tclkit86bi.exe on windows tclkit86bi on other platforms
-
-    #sdx *may* be pointed to use the runtime we use to build the kit, or the user may manually use this runtime if they don't have tclsh
-    #sdx will complain if the same runtime is used for the shell as is used in the -runtime argument - so we make a copy (REVIEW)
-    #if {![file exists $buildfolder/buildruntime.exe]} {
-    #    file copy $rtfolder/$runtimefile $buildfolder/buildruntime.exe
-    #}
-
-    set basedir $buildfolder
-    set config [dict create\
-        -make-step copy_runtime\
-    ]
-    #----------
-    set installer [punkcheck::installtrack new $installername $basedir/.punkcheck]
-    $installer set_source_target $rtfolder $buildfolder
-    set event [$installer start_event $config]
-    $event targetset_init INSTALL $buildfolder/build_$runtimefile
-    $event targetset_addsource $rtfolder/$runtimefile
-    $event targetset_addsource $buildfolder/build_$runtimefile ;#self as source for change detection
-    #----------
-
-    #set changed_unchanged [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $file_record body] end]]
-    if {\
-            [llength [dict get [$event targetset_source_changes] changed]]\
-         || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
-        } {
-        $event targetset_started
-        # -- --- --- --- --- ---
-        #This is the full runtime - *possibly* with some sort of vfs attached.
-        puts stdout "Copying runtime (as is) from $rtfolder/$runtimefile to $buildfolder/build_$runtimefile"
-        if {[catch {
-            file copy -force $rtfolder/$runtimefile $buildfolder/build_$runtimefile ;#becomes building_runtime
-        } errM]} {
-            puts stderr " >> copy runtime to $buildfolder/build_$runtimefile FAILED"
-            $event targetset_end FAILED
-        } else {
-            $event targetset_end OK
-        }
-        # -- --- --- --- --- ---
-    } else {
-        puts stderr "unchanged: $runtimefile"
-        $event targetset_end SKIPPED
-    }
-    $event end
-
-}
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-set failed_kits [list]
-set installed_kits [list]
-set skipped_kits [list]
-set skipped_kit_installs [list]
-
-proc ::make_file_traversal_error {args} {
-    error "file_traverse error: $args"
-}
-
-#fauxlink aware recursive copy of files and folders
-#will follow fauxlinks with 'merge_over' tag, will copy other fauxlinks
-proc merge_over {sourcedir targetdir {depth 0}} {
-    package require fileutil
-    package require fauxlink
-    set margin [string repeat " " [expr {$depth * 4}]]
-
-    set ver [package require fileutil::traverse]
-    puts stdout "${margin}using fileutil::traverse $ver\n[package ifneeded fileutil::traverse $ver]" 
-    package require control
-
-    if {![file exists $sourcedir]} {
-        puts stderr "${margin}merge_over sourcedir '$sourcedir' not found"
-        return
-    }
-    if {![file exists $targetdir]} {
-        puts stderr "${margin}merge_over targetdir '$targetdir' not found - target folder must already exist"
-        return
-    }
-    puts stdout "${margin}merge vfs $sourcedir over $targetdir STARTING"
-
-    #The tails should be unique enough for clarity in progress emissions to stdout
-    set sourcename [file tail $sourcedir]
-    set targetname [file tail $targetdir]
-
-    set t [fileutil::traverse %AUTO% $sourcedir -errorcmd ::make_file_traversal_error]
-    set last_type "-"
-    $t foreach file_or_dir {
-        set relpath [fileutil::stripPath $sourcedir $file_or_dir]
-        set target [file join $targetdir $relpath] 
-        set this_type [file type $file_or_dir]
-        switch -exact -- $this_type {
-            directory {
-                if {$last_type ne "directory"} {
-                    puts -nonewline stdout \n
-                }
-                if {![file exists $target]} {
-                    #puts stdout "-- mkdir $target" 
-                    puts stdout "${margin}$sourcename -> $targetname mkdir $relpath"
-                    #puts stdout "calling: file mkdir $target"
-                    #note - file mkdir can fail on vfs mounts with non-existant intermediate paths.
-                    #e.g if mount is at: //cookfstemp:/subpath/file.exe
-                    #if mounted lower, e.g //cookfstemp:/file.exe it works
-                    #todo - determine where the bug lies - submit ticket?
-                    file mkdir $target
-                    file mtime $target [file mtime $file_or_dir]
-                } else {
-                    puts stdout "${margin}$sourcename -> $targetname existing dir $relpath" 
-                }
-            }
-            file {
-                if {[file extension $file_or_dir] in {.fxlnk .fauxlink}} {
-                    puts stdout "fauxlink: $file_or_dir"
-                    flush stdout
-                    if {[catch {
-                        puts stdout ">";flush stdout
-                        set linkinfo [fauxlink::resolve $file_or_dir]
-                    } errM]} {
-                        puts stdout ">>";flush stdout
-                        puts stdout "${margin}--->fauxlink::resolve error\n $errM"
-                        flush stdout
-                        error $errM
-                    }
-                    puts stdout ">>>";flush stdout
-                    puts stdout "--- '$linkinfo'"
-                    flush stdout
-                    set flinktags [dict get $linkinfo tags]
-                    puts stdout "fauxlink tags: $flinktags"
-                    flush stdout
-                    if {"punk::boot,merge_over" in $flinktags} {
-                        puts stdout "fauxlink got correct tag from $flinktags"
-                        flush stdout
-                        set linktarget [dict get $linkinfo targetpath]
-                        if {[file pathtype $linktarget] eq "relative"} {
-                            set actualsource [file join $sourcedir $linktarget] 
-                        } else {
-                            set actualsource $linktarget
-                        }
-                        set name [dict get $linkinfo name] ;#name the linked file will become
-                        set aliased_file_or_dir [file join [file dirname $file_or_dir] $name]
-                        set relpath [fileutil::stripPath $sourcedir $aliased_file_or_dir]
-                        set target [file join $targetdir $relpath]
-                        if {[file type $actualsource] eq "file"} {
-                            #fauxlink linktarget (source data) is a file
-                            puts -nonewline stdout "\x1b\[32m<fxlnk.targetfor.${name}>\x1b\[m"
-                            puts "file copy -force $actualsource $target"
-                            file copy -force $actualsource $target
-                        } else {
-                            #fauxlink linktarget (source data) is a folder
-                            puts stdout "${margin}RECURSING merge_over for link-target $actualsource due to fauxlink:[file tail $file_or_dir]"
-                            #merge_over initial target dir must exist - use file mkdir to ensure
-                            file mkdir $target
-                            puts stdout "merge_over $actualsource $target [expr {$depth + 1}]"
-                            merge_over $actualsource $target [expr {$depth + 1}]
-                        }
-                    } else {
-                        puts stdout "fauxlink tag not matched"
-                        flush stdout
-                        #tag not targetted at us - just copy the fauxlink as an ordinary file
-                        puts -nonewline stdout "<fxlnk>"
-                        file copy -force $file_or_dir $target
-                    }
-                } else {
-                    puts -nonewline stdout "."
-                    if {[file exists $target]} {
-                        puts stderr "Warning: merge_over is overwriting $target"
-                    }
-                    file copy -force $file_or_dir $target
-                }
-            }
-            default {
-                puts stderr "${margin}merge vfs $sourcedir !!! unhandled file type $this_type !!!"
-            }
-        }
-        set last_type $this_type 
-    }
-    $t destroy
-    puts stdout "\n${margin}merge vfs $sourcedir over $targetdir done."
-}
-set startdir [pwd]
-puts stdout "Found [llength $vfs_tails] .vfs folders -   checking each for executables that may need to be built"
-cd [file dirname $buildfolder] 
-#root folder mtime is insufficient for change detection. Tree mtime of folders only is a barely  passable mechanism for vfs change detection in some circumstances - e.g if files added/removed but never edited in place
-#a hash of full tree file & dir mtime may be more reasonable - but it remains to be seen if just tar & checksum is any/much slower.
-#Simply rebuilding all the time may be close the speed of detecting change anyway - and almost certainly much faster when there is a change.
-#Using first mtime encountered that is later than target is another option - but likely to be highly variable in speed. Last file in the tree could happen to be the latest, and this mechanism doesn't handle build on reversion to older source.
-set exe_names_seen [list]
-set path_cksum_cache [dict create]
-dict set path_cksum_cache {*}[punk::mix::base::lib::get_relativecksum_from_base $basedir $sourcefolder/vfs/_vfscommon.vfs]
-
-#
-# loop over vfs_tails and for each one, loop over configured (or matching)  runtimes - build with sdx or zipfs if source .vfs or source runtime exe has changed.
-# we are using punkcheck to install result to buildfolder so we create a .punkcheck file at the target folder to store metadata.
-# punkcheck allows us to not rely purely on timestamps (which may be unreliable)  
-#
-foreach vfstail $vfs_tails {
-
-    set vfsname [file rootname $vfstail]
-    puts stdout "  ------------------------------------"
-    puts stdout "  checking vfs $sourcefolder/vfs/$vfstail for configured runtimes"
-    set skipped_vfs_build 0
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-    set basedir $buildfolder
-    set config [dict create\
-        -make-step build_vfs\
-    ]
-
-
-    set runtimes  [list]
-    if {[dict exists $vfs_runtime_map $vfstail]} {
-        #set runtimes [dict get $vfs_runtime_map $vfstail] 
-        #runtimes in vfs_runtime_map_vfs dict are unsuffixed (.exe stripped or was not present)
-        set applist [dict get $vfs_runtime_map $vfstail]
-        if {"windows" eq $::tcl_platform(platform)} {
-            foreach rt_app $applist {
-                set rt [lindex $rt_app 0]
-                if {$rt ne "-" && [file exists $rtfolder/$rt.exe]} {
-                    lappend runtimes $rt.exe
-                }
-            }
-        } else {
-            foreach rt_app $applist {
-                set rt [lindex $rt_app 0]
-                if {[file exists $rtfolder/$rt]} {
-                    lappend runtimes $rt
-                }
-            }
-        }
-    } else {
-        #only match this vfs to a correspondingly named runtime if there was no explicit entry for that runtime
-        #review - should this only be done if there are NO explicit entries? how does a user stop builds of unneeded exes that match without renaming files/folders?
-        #but conversely, adding an extra entry shouldn't stop default builds that used to run..
-        set matchrt [file rootname [file tail $vfstail]] ;#e.g project.vfs -> project
-        if {![dict exists $runtime_vfs_map $matchrt]} {
-            if {"windows" eq $::tcl_platform(platform)} {
-                if {[file exists $rtfolder/$matchrt.exe]} {
-                    lappend runtimes $matchrt.exe
-                }
-            } else {
-                if {[file exists $rtfolder/$matchrt]} {
-                    lappend runtimes $matchrt
-                }
-            }
-        }
-    }
-    #assert $runtimes is a list of executable names suffixed with .exe if on windows - whether or not specified with .exe in the mapvfs.config
-
-    puts "  vfs: $vfstail runtimes to process ([llength $runtimes]): $runtimes"
-    #todo - non kit based - zipkit?
-    # $runtimes may now include a dash entry "-" (from mapvfs.config file)
-    foreach runtime_fullname $runtimes {
-        set rtname [file rootname $runtime_fullname]
-        #rtname of "-" indicates build a kit without a runtime
-
-        #first configured runtime will be the one to use the same name as .vfs folder for output executable. Additional runtimes on this .vfs will need to suffix the runtime name to disambiguate.
-        #review: This mechanism may not be great for multiplatform builds ? We may be better off consistently combining vfsname and rtname and letting a later platform-specific step choose ones to install in bin with simpler names.
-
-        set targetkits [list]
-
-        if {[dict exists $runtime_vfs_map $rtname]} {
-            set applist [dict get $runtime_vfs_map $rtname]
-            foreach vfs_app $applist {
-                lassign $vfs_app configured_vfs appname target_kit_type
-                if {$configured_vfs ne $vfstail} {
-                    continue
-                }
-                if {$appname eq ""} {
-                    set appname $vfsname
-                }
-                if {$target_kit_type eq ""} {
-                    set target_kit_type "kit" ;#review - we should probably move determining target_kit_type from that of source runtime, and if none, defaulting to zip (zipkit?)
-                }
-                if {$rtname eq "-"} {
-                    set targetkit $appname.kit
-                } else {
-                    if {$::tcl_platform(platform) eq "windows"} {
-                        set targetkit ${appname}.exe
-                    } else {
-                        set targetkit $appname
-                    }
-                    if {$targetkit in $exe_names_seen} {
-                        #duplicate appname configured?
-                        #todo - consider creating as ${appname}(2) etc?
-                        puts stderr "targetkit: $targetkit already seen - using name ${appname}_$rtname"
-                        set targetkit ${appname}_$rtname
-                    }
-                }
-                lappend exe_names_seen $targetkit
-                lappend targetkits [list $targetkit $target_kit_type]
-            }
-        }
-        puts stdout "    vfs: $vfstail runtime: $rtname targetkits: $targetkits"
-        foreach targetkit_info $targetkits {
-            puts stdout "    processing targetkit: $targetkit_info"
-            lassign $targetkit_info targetkit target_kit_type
-            # -- ----------
-            set vfs_installer [punkcheck::installtrack new $installername $basedir/.punkcheck]
-            $vfs_installer set_source_target $sourcefolder $buildfolder
-            set vfs_event [$vfs_installer start_event {-make-step build_vfs}]
-            $vfs_event targetset_init INSTALL $buildfolder/$targetkit
-            set relvfs [punkcheck::lib::path_relative $basedir $sourcefolder/vfs/$vfstail]
-            if {![dict exists $path_cksum_cache $relvfs]} {
-                #e.g ../vfs/punk87.vfs {cksum xxxx cksum_all_opts {-cksum_content 1 ... -cksum_algorithm sha1}}
-                dict set path_cksum_cache {*}[punk::mix::base::lib::get_relativecksum_from_base $basedir $sourcefolder/vfs/$vfstail]
-            }
-            $vfs_event targetset_cksumcache_set $path_cksum_cache ;#cached cksum entries for .vfs folder
-            $vfs_event targetset_addsource $sourcefolder/vfs/_config ;#some files linked via fauxlink - need to detect change
-            $vfs_event targetset_addsource $sourcefolder/vfs/_vfscommon.vfs
-            $vfs_event targetset_addsource $sourcefolder/vfs/$vfstail
-            if {$rtname ne "-"} {
-                set building_runtime $buildfolder/build_$runtime_fullname ;#working copy of runtime executable - (possibly with kit/zipfs/cookfs etc attached!)
-                $vfs_event targetset_addsource $building_runtime
-                set raw_runtime "" ;#building runtime with vfs (zip,kit,cookfs etc stripped)
-            } else {
-                set building_runtime "-" ;#REVIEW
-                set raw_runtime "-"
-            }
-            # -- ----------
-
-
-            set changed_unchanged [$vfs_event targetset_source_changes]
-            set vfs_or_runtime_changed [expr {[llength [dict get $changed_unchanged changed]] ||  [llength [$vfs_event get_targets_exist]] < [llength [$vfs_event get_targets]]}]
-
-            if {$vfs_or_runtime_changed} {
-                #source .vfs folder has changes
-                $vfs_event targetset_started
-                # -- --- --- --- --- ---
-
-                if {[file exists $buildfolder/$vfsname.new]} {
-                    puts stderr "deleting existing $buildfolder/$vfsname.new"
-                    file delete $buildfolder/$vfsname.new
-                }
-
-                package require fileutil
-                package require fileutil::traverse
-                package require control
-
-                #keep this a simple name - bin/punk script calls into src/_build/exename.vfs/main.tcl
-                set targetvfs $buildfolder/$targetkit.vfs
-                file delete -force $targetvfs
-
-                set extraction_done 0
-                #we switch on the target_kit_type. we could switch on source_kit_type..allowing extraction from one type but writing to another? 
-                #it usually won't make sense to try to convert a runtime kit type to another - unless the runtime happens to support multiple types -
-                # - but which location would main.tcl be run from?
-                #todo - check runtime's 'kit_type' and warn/disallow.
-                #to consider: - allow specifying runtime kits as if they are vfs folders in the normal xxx.vfs list - and autodetect and extract
-                #would need to detect UPX, cookfs,zipfs,tclkit
-                set rtmountpoint ""
-                set caps [dict get $runtime_caps $rtname]
-                set source_kit_caps [list]
-                if {[dict exists $caps has_zipfs]} {
-                    lappend source_kit_caps zip
-                }
-                if {[dict exists $caps has_starkit]} {
-                    lappend source_kit_caps kit
-                }
-                if {[dict exists $caps has_cookfs]} {
-                    lappend source_kit_caps cookfs
-                }
-
-                #make our first try at extraction based on the kit type we are targeting
-                switch -- $target_kit_type {
-                    zip - zipcat {
-                        set extraction_trylist zip
-                    }
-                    cookit - cookfs {
-                        set extraction_trylist cookfs
-                    }
-                    kit {
-                        set extraction_trylist kit
-                    }
-                    default {
-                        puts stderr "Unexpected target kit_type $kit_type - skipping $runtime_fullname"
-                        continue
-                    }
-                }
-                #also try extracting based on kit types the runtime seems to be capable of handling if the target_kit_type extraction doesn't work
-                foreach ktype $source_kit_caps {
-                    if {$ktype ni $extraction_trylist} {
-                        lappend extraction_trylist $ktype
-                    }
-                }
-
-                #Assumption: a source runtime can/will only have 1 type of vfs attached
-                #While a runtime may support mounting more than one type - it is highly unlikely to support booting based on the type of vfs attached!
-                # e.g a tcl9 tclkit will be likely to have zipfs capability as well as starkit - but will only initialize from a starkit vfs
-
-                #Unknown if it's possible for multiple vfs data segments of different types in the one executable - but such a monstrosity is probably undesirable(?).
-                #It is quite possible to have more than one zip at the end of an exe - but as the capabilities of zip utilities in the wild to handle such a situation
-                #vary as far as how they behave - this too is most likely best considered as something to avoid.
-
-                set extract_kit_type ""
-                while {!$extraction_done && [llength $extraction_trylist]} {
-                    set extract_kit_try [lpop extraction_trylist 0]
-                    switch -- $extract_kit_try {
-                        zip - zipcat {
-                            #for a zipkit - we need to extract the existing vfs from the runtime
-                            #zipfs mkimg replaces the entire zipped vfs in the runtime - so we need the original data to be part of our targetvfs.
-                            puts stdout "Attempting to extract zip vfs data from $runtime_fullname"
-                            file mkdir $targetvfs
-                            set raw_runtime $buildfolder/raw_$runtime_fullname
-
-                            if {[info commands ::tcl::zipfs::mount] ne ""} {
-                                #the driving tcl has zipfs
-                                set rtmountpoint //zipfs:/rtmounts/$runtime_fullname
-
-                                if {![file exists $rtmountpoint]} {
-                                    if {[catch {
-                                        tcl::zipfs::mount $building_runtime  rtmounts/$runtime_fullname
-                                    } errM]} {
-                                        puts stderr "Failed to mount $building_runtime using standard api. Err:$errM\n trying reverse args on tcl::zipfs::mount..."
-                                        if {[catch {
-                                        tcl::zipfs::mount rtmounts/$runtime_fullname $building_runtime
-                                        } errM]} {
-                                            puts stderr "ALSO Failed to mount $building_runtime using reverse args to api. Err:$errM - no mountable zipfs on runtime?"
-                                        }
-                                    }
-                                }
-
-                                #strip any existing zipfs on the runtime..
-                                #2024 - 'zipfs info //zipfs:/mountpoint' is supposed to give us the offset - but it doesn't if the exe has been 'adjusted' to use file offsets.
-                                #which unfortunately Tcl does by default after the 2021 'fix' :(
-                                #https://core.tcl-lang.org/tcl/tktview/aaa84fbbc5
-
-                                if {[file exists $rtmountpoint]} {
-                                    #merge_over source -> target
-                                    merge_over $rtmountpoint $targetvfs
-                                    set extraction_done 1
-                                    #see if we can extract the exe part
-                                    set baseoffset [lindex [tcl::zipfs::info $rtmountpoint] 3]
-                                    if {$baseoffset != 0} {
-                                        #tcl was able to determine the compressed-data offset
-                                        #either because runtime is a basic catted exe+zip, or Tcl fixed 'zipfs info'
-                                        set fdrt [open $building_runtime r]
-                                        chan configure $fdrt -translation binary
-                                        set exedata [read $fdrt $baseoffset] ;#may include stored password and ending header // REVIEW - strip it?
-                                        close $fdrt
-                                        set fdraw [open $raw_runtime w]
-                                        chan configure $fdraw -translation binary
-                                        puts -nonewline $fdraw $exedata
-                                        close $fdraw
-                                    } else {
-                                        #presumably the supplied building_runtime has had its offsets adjusted so that it all appears within offsets off the zip. (file relative offsets)
-                                        #due to zipfs info bug - zipfs now can't tell us the offset of the compressed data.
-                                        #we need to use a similarly assumptive method as tclZipfs.c uses to determine the start of the compressed contents
-                                        package require punk::zip
-                                        #we don't technically need to extract the raw exe for 'zip' - as zipfs mkimg can work on the combined file (ignores zip)
-                                        # - but for consistency we want raw_runtime to be emitted in the filesystem.
-                                        file delete $raw_runtime
-                                        punk::zip::extract_preamble $building_runtime $raw_runtime
-                                    }
-                                } else {
-                                    #the input building_runtime wasn't mountable as a zip - so presumably a plain executable
-                                    #runtime executable possibly with kit/cookfs etc attached?
-                                    #If not - init.tcl probably won't be found? should we even proceed ??
-                                    puts stderr "\x1b\[31mWARNING the runtime was not mountable as a zip - which means tcl_library was not extracted - the executable may not work with zipfs attached!\x1b\[m"
-                                    file copy -force $building_runtime $raw_runtime
-                                }
-                            } else {
-                                #The driving tcl we are calling with doesn't have zipfs - can't mount
-                                package require punk::zip
-                                puts stderr "WARNING: tcl shell '[info nameofexecutable]' being used to build doesn't have zipfs - falling back to punk::zip::extract_preamble"
-                                set extractedzipfile $buildfolder/extracted_$runtime_fullname.zip
-                                set extractedzipfolder $buildfolder/extracted_$runtime_fullname
-                                file delete $raw_runtime
-                                file delete $extractedzipfile
-                                file delete -force $extractedzipfolder
-                                if {![catch {
-                                punk::zip::extract_preamble $building_runtime $raw_runtime $extractedzipfile
-                                package require zipfile::decode
-                                zipfile::decode::open $extractedzipfile
-                                set archiveinfo [zipfile::decode::archive]
-                                zipfile::decode::unzip $archiveinfo $extractedzipfolder
-                                }]} {
-                                     set extraction_done 1
-                                     set extract_kit_type $extract_kit_try
-                                    #todo - verify that init.tcl etc are present?
-                                    merge_over $extractedzipfolder $targetvfs
-                                }
-                            }
-
-                        }
-                        cookit - cookfs {
-                            #upx easy enough to deal with if we have/install a upx executable (avail on windows via scoop, freshports for freebsd and presumably various for linux)
-                            # ------------------------------------------------------
-                            #we can't use cookfs with arbitrary tclsh/kits - needs cookit not just cookfs
-                            # ------------------------------------------------------
-                            #cookfs seems to need compilation - we would need to be able to build for windows,linux,freebsd,macosx at a minimum.
-                            #preferably vi cross-compile using zig.
-                            #cookit also
-
-                            #If our calling executable is also a cookit, or has cookfs package available we can manipulate the cookit runtime here
-                            #(e.g we have it as a loadable module for tcl9 on windows in some runtimes - todo)
-                            if {[catch {package require cookfs} version]} {
-                                puts stderr "cookit/cookvfs unsupported - unable to load cookfs"
-                                puts stderr " - Try running make.tcl using a cookkit binary (e.g put it in <projectdir>/bin) or installing the cookfs binary module or tcl-cookfs module"
-                            } else {
-                                puts stdout "Attempting to extract existing cookfs data from $runtime_fullname"
-                                file mkdir $targetvfs
-                                #Mount it in the currently running executable
-                                #REVIEW - it seems to work to pick a pseudovol name like //cookfstemp:/
-                                #unlike cookit's //cookit:/  it doesn't show up in file volumes
-                                #set rtmountpoint //cookfstemp:/rtmounts/$runtime_fullname ;#not writable with 'file mkdir' which doesn't seem to handle intermediate nonexistant path
-                                set rtmountpoint //cookfstemp:/$runtime_fullname
-                                cookfs::Mount $building_runtime $rtmountpoint
-                                if {[file exists $rtmountpoint]} {
-                                    #copy from mounted runtime's vfs to the filesystem vfs
-                                    merge_over $rtmountpoint $targetvfs
-                                    set extraction_done 1
-                                    set extract_kit_type $extract_kit_try
-                                }
-                            }
-                        }
-                        kit {
-                            if {!$have_sdx} {
-                                puts stderr "no sdx available to unwrap $targetkit"
-                                #don't add to failed_kits here
-                                #extraction fail for one type doesn't mean we have fully failed yet
-                                #lappend failed_kits [list kit $targetkit reason "sdx_executable_unavailable"]
-                                #$vfs_event targetset_end FAILED
-                                #$vfs_event destroy
-                                #$vfs_installer destroy
-                                continue ;#to next extraction attempt
-
-                            }
-                            set raw_runtime $buildfolder/raw_$runtime_fullname
-                            #for a kit, we shouldn't need to extract the existing vfs from the runtime.
-                            # - the sdx merge process should be able to merge our .vfs folder with the existing contents.
-                            #2025 - in practice this doesn't always seem to be the case? Review - could have been cwd issue?
-                            puts stdout "Attempting to split kitfile using: $::sdxpath mksplit $building_runtime"
-                            set prev_cwd [pwd]
-                            cd [file dirname $building_runtime] ;#make sure SDX is called with the same working dir as the files we're working on.
-                            if {[catch {exec {*}$::sdxpath mksplit $building_runtime} mksplitresult]} {
-                                #executable doesn't have kit vfs attached
-                                puts stderr "No kit data extracted from $building_runtime"
-                                file copy -force $building_runtime $raw_runtime
-                            } else {
-                                puts stdout "mksplitresult: $mksplitresult"
-                                if {![file exists [file rootname $building_runtime].tail]} {
-                                    error "mksplit didn't produce file at [file rootname $building_runtime].tail"
-                                }
-                                file delete -force [file rootname $building_runtime].vfs ;#ensure target for unwrap doesn't exist
-                                #set kit_bare_runtime [file rootname $building_runtime].head
-                                set building_runtime [file rootname $building_runtime].head
-                                exec {*}$::sdxpath unwrap [file rootname $building_runtime].tail ;#extracts to folder named [file rootname $building_runtime].vfs e.g build_tclkit9.0.2-win64-dyn.vfs
-                                #file rename to existing target dir would copy folder into target dir
-                                if {![file exists $targetvfs]} {
-                                    #delay
-                                    after 1000
-                                    file rename [file rootname $building_runtime].vfs $targetvfs
-                                } else {
-                                    merge_over [file rootname $building_runtime].vfs $targetvfs
-                                }
-                                set extraction_done 1
-                                set extract_kit_type $extract_kit_try
-                                file copy -force $building_runtime $raw_runtime
-                            }
-                            cd $prev_cwd
-
-                        }
-                    }
-                } ;#end while !$extraction_done && [llength $extraction_trylist]
-
-                if {!$extraction_done} {
-                    #TODO: if not extracted - use a default tcl_library for patchlevel and platform?
-                    puts stderr "--------------------------------------------"
-                    puts stderr "\x1b\31mWARNING: No extraction done from runtime $runtime_fullname\x1b\[m"
-                    puts stderr "If no init.tcl provided in the vfs at the proper location (containing init.tcl) - the resulting kit will probably not initialise properly!"
-                    puts stderr "--------------------------------------------"
-                    file mkdir $targetvfs
-                }
-
-                #set wrapvfs $sourcefolder/$vfs
-                set kit_type_mismatch 0
-                switch -- $extract_kit_type {
-                    zip {
-                        if {$target_kit_type ni {zip zipcat}} {
-                            set kit_type_mismatch 1
-                        }
-                    }
-                    kit {
-                        if {$target_kit_type ne "kit"} {
-                            set kit_type_mismatch 1
-                        }
-                    }
-                    cookfs {
-                        if {$target_kit_type ni {cookfs cookit}} {
-                            set kit_type_mismatch 1
-                        }
-                    }
-                }
-                if {$kit_type_mismatch} {
-                    puts stderr "--------------------------------------------"
-                    puts stderr "WARNING: mismatch between kit type of source runtime [punk::ansi::a brightyellow]$extract_kit_type[punk::ansi::a] and target kit type [punk::ansi::a brightyellow]$target_kit_type[punk::ansi::a]"
-                    puts stderr "The resulting kit is unlikely to initialise"
-                    puts stderr "--------------------------------------------"
-                    puts stdout "Continue to try to build $targetkit from $rtname anyway? y|n"
-                    if {[string tolower [gets stdin]] eq "y"} {
-                        puts proceeding...
-                    } else {
-                        #skip to next kit
-                        continue
-                    }
-                }
-
-                if {[file exists $sourcefolder/vfs/_vfscommon.vfs]} {
-                    puts stdout "Merging _vfscommon.vfs over $targetvfs"
-                    #the original boot.tcl and icon etc can be overridden by entries in our common and custom vfs folders
-                    #merge_over will emit warnings on stderr for overwritten files
-                    merge_over $sourcefolder/vfs/_vfscommon.vfs $targetvfs
-                }
-
-                set sourcevfs [file join $sourcefolder vfs $vfstail]
-                merge_over $sourcevfs $targetvfs
-
-                set wrapvfs $targetvfs
-                switch -- $target_kit_type {
-                    zip {
-                        #WARNING - 2024-10-08 - zipfs mkimg based exezips are not editable with 7z 
-                        # (central directory offset has been 'adjusted' to be file relative)
-                        #This makes finding the split between prefixed exe and zip-data harder for Tcl scripts 
-                        #- although zipfs mkimg does it in a somewhat wonky way.
-                        #tclZipfs.c as at 2024 assumes first file header in the CDR points to first local file header and assumes that is the top of the zipdata.
-                        #This is only *mostly* true. order of entries or completeness is not guaranteed. 
-                        #e.g topmost file data in zip may not be pointed to if deleted by certain tools.
-                        #for files created by zipfs mkimg and not externally edited - it shouldn't be an issue though.
-
-                        if {$rtname eq "-"} {
-                            #todo - just make a zip?
-                            error "runtime name of - unsupported for zip - (todo)"
-                        }
-                        if {[catch {
-                            if {[dict exists $runtime_caps $rtname]} {
-                                if {[dict get $runtime_caps $rtname exitcode] == 0} {
-                                    if {![dict get $runtime_caps $rtname has_zipfs]} {
-                                        error "runtime $rtname doesn't have zipfs capability"
-                                    }
-                                } else {
-                                    #could be runtime for another platform 
-                                    puts stderr "RUNTIME capabilities unknown. Unsure if zip supported. trying anyway.."
-                                }
-                            }
-                            #note - as at 2024-08 - there is some discussion about the interface to mkimg - it is considered unstable (may change to -option value syntax)
-                            puts stderr "calling: tcl::zipfs::mkimg $buildfolder/$vfsname.new $wrapvfs $wrapvfs \"\" $raw_runtime"
-                            tcl::zipfs::mkimg $buildfolder/$vfsname.new $wrapvfs $wrapvfs "" $raw_runtime
-                        } result ]} {
-                            set failmsg "zipfs mkimg failed with msg: $result"
-                            puts stderr "tcl::zipfs::mkimg $targetkit failed" 
-                            lappend failed_kits [list kit $targetkit reason $failmsg]
-                            $vfs_event targetset_end FAILED
-                            $vfs_event destroy
-                            $vfs_installer destroy
-                            continue
-                        } else {
-                            puts stdout "ok - finished tcl::zipfs::mkimg"
-                            set separator [string repeat = 40]
-                            puts stdout $separator
-                            puts stdout $result
-                            puts stdout $separator
-                        }
-                    }
-                    zipcat {
-                       #simple catenated runtime + zip - we need an exe runtime with no zipfs attached..
-                        if {$rtname eq "-"} {
-                            #todo - just make a zip?
-                            error "runtime name of - unsupported for zip - (todo)"
-                        }
-                        if {[catch {
-                            if {[dict exists $runtime_caps $rtname]} {
-                                if {[dict get $runtime_caps $rtname exitcode] == 0} {
-                                    if {![dict get $runtime_caps $rtname has_zipfs]} {
-                                        error "runtime $rtname doesn't have zipfs capability"
-                                    }
-                                } else {
-                                    #could be runtime for another platform 
-                                    puts stderr "RUNTIME capabilities unknown. Unsure if zip supported. trying anyway.."
-                                }
-                            }
-
-                            #'archive' based zip offsets - editable in 7z,peazip
-                            file copy $raw_runtime $buildfolder/$vfsname.new
-                            #runtime in runtime folder may not have write perm set - ensure the copy does as we need to append
-                            catch {exec chmod +w $buildfolder/$vfsname.new}
-                            file delete $buildfolder/$vfsname.zip
-
-                            if {[info commands ::tcl::zipfs] ne ""} {
-                                puts stdout "tcl::zipfs::mkzip $buildfolder/$vfsname.zip $wrapvfs $wrapvfs"
-                                ::tcl::zipfs::mkzip $buildfolder/$vfsname.zip $wrapvfs $wrapvfs
-                            } else {
-                                puts stdout "punk::zip::mkzip -directory $wrapvfs -base $wrapvfs $buildfolder/$vfsname.zip *"
-                                package require punk::zip
-                                punk::zip::mkzip -directory $wrapvfs -base $wrapvfs $buildfolder/$vfsname.zip *
-                            }
-
-
-                            puts stderr "concatenating executable to zip.."
-                            set fdout [open $buildfolder/$vfsname.new a]
-                            chan conf $fdout -translation binary
-                            puts stderr "runtime bytes: [tell $fdout]"
-                            set fdzip [open $buildfolder/$vfsname.zip r]
-                            chan conf $fdzip -translation binary
-                            set zipbytes [fcopy $fdzip $fdout]
-                            close $fdzip
-                            puts stderr "zip    bytes: $zipbytes"
-                            puts stderr "exezip bytes: [tell $fdout]"
-                            close $fdout
-                        } result ]} {
-                            set failmsg "creating zipcat image failed with msg: $result"
-                            puts stderr "creating image (zipcat) $targetkit failed" 
-                            lappend failed_kits [list kit $targetkit reason $failmsg]
-                            $vfs_event targetset_end FAILED
-                            $vfs_event destroy
-                            $vfs_installer destroy
-                            continue
-                        } else {
-                            puts stdout "ok - finished zipcat image"
-                            set separator [string repeat = 40]
-                            puts stdout $separator
-                            puts stdout $result
-                            puts stdout $separator
-                        }
-
-
-                    }
-                    cookit - cookfs {
-                        if {$rtmountpoint eq ""} {
-                            lappend failed_kits [list kit $targetkit reason mount_failed]
-                            $vfs_event targetset_end FAILED
-                            $vfs_event destroy
-                            $vfs_installer destroy
-                            continue
-                        } else {
-                            if {[catch {
-                                #we still have the $building_runtime mounted
-                                if {[catch {
-                                    merge_over $targetvfs $rtmountpoint
-                                } errM]} {
-                                    puts stderr "$target_kit_type 'merge_over $targetvfs $rtmountpoint' failed\n$errM"
-                                    error $errM
-                                }
-                                if {[catch {
-                                    cookfs::Unmount $rtmountpoint 
-                                } errM]} {
-                                    puts stderr "$target_kit_type 'cookfs::Unmount $rtmountpoint' failed\n$errM"
-                                    error $errM
-                                }
-
-                                #copy the version that is mounted in this runtime to vfsname.new 
-                                if {[catch {
-                                    file copy -force $building_runtime $buildfolder/$vfsname.new
-                                    catch {exec chmod +w $buildfolder/$vfsname.new}
-                                } errM]} {
-                                    puts stderr "$target_kit_type 'file copy -force $building_runtime $buildfolder/$vfsname.new' failed\n$errM"
-                                    error $errM
-                                }
-                            } result]} {
-                                puts stderr "Writing vfs data and opying cookfs file $building_runtime to $buildfolder/$vfsname.new failed\n $result"
-                                lappend failed_kits [list kit $targetkit reason copy_failed]
-                                $vfs_event targetset_end FAILED
-                                $vfs_event destroy
-                                $vfs_installer destroy
-                                continue
-                            } else {
-                                puts stdout "ok - finished for target kit type: $target_kit_type"
-                                set separator [string repeat = 40]
-                                puts stdout $separator
-                                puts stdout $result
-                                puts stdout $separator
-                            }
-                        }
-                    }
-                    kit {
-                        set verbose ""
-                        #set verbose "-verbose"
-                        #assert: building_runtime has been replaced with $kit_bare_runtime
-
-                        set prev_cwd [pwd]
-                        cd [file dirname $building_runtime] ;#make sure SDX is called with the same working dir as the files we're working on.
-                        if {[catch {
-                            if {$rtname ne "-"} {
-                                exec {*}$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs -runtime $raw_runtime {*}$verbose
-                            } else {
-                                exec {*}$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs {*}$verbose
-                            }
-                        } result]} {
-                            if {$rtname ne "-"} {
-                                set sdxmsg "$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs -runtime $raw_runtime {*}$verbose failed with msg: $result"
-                            } else {
-                                set sdxmsg "$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs {*}$verbose failed with msg: $result"
-                            }
-                            puts stderr "$::sdxpath wrap $targetkit failed" 
-                            lappend failed_kits [list kit $targetkit reason $sdxmsg]
-                            $vfs_event targetset_end FAILED
-                            $vfs_event destroy
-                            $vfs_installer destroy
-                            continue
-                        } else {
-                            puts stdout "ok - finished for target kit type: sdx"
-                            set separator [string repeat = 40]
-                            puts stdout $separator
-                            puts stdout $result
-                            puts stdout $separator
-                        }
-                        cd $prev_cwd
-                    }
-                }
-
-
-                if {![file exists $buildfolder/$vfsname.new]} {
-                    puts stderr "|err> make.tcl build didn't seem to produce output at $buildfolder/$vfsname.new"
-                    lappend failed_kits [list kit $targetkit reason "build failed to produce output at $buildfolder/$vfsname.new"]
-                    $vfs_event targetset_end FAILED
-                    $vfs_event destroy
-                    $vfs_installer destroy
-                    continue
-                }
-
-                # -- --- ---
-                #tasklist doesn't support getting full commandline of processname
-                #This means we can't be sure we're shutting down the exact required process
-                #to do this properly we should check the full path for both ps on unix and on windows. (TODO)
-                #(same exename could be installed somewhere else on the system running a process that shouldn't be shut down here)
-                #powershell 'get-process' can give us the full path.
-                #Getting the process list on windows, whether with tasklist or powershell is very slow compared to unix ps.
-                # e.g 100x slower - apparently that's just the nature of the OS differences (?)
-                #still - seems to be under 1s on a 2018 era i9 running in 2025 - which is not a big problem in this context.
-                #using a filter in tasklist or get-command can make things a little faster
-
-                if {$::tcl_platform(platform) eq "windows"} {
-                    set pscmd "tasklist"
-                } else {
-                    set pscmd "ps"
-                }
-
-                #killing process doesn't apply to .kit build 
-                if {$rtname ne "-"} {
-                    #exec $pscmd | grep $targetkit  ;#wrong - fails on at least some OSes because grep itself is in the list
-                    #exec ps | grep $targetkit | grep -v grep ;#exclude grep process
-                    if {![catch {
-                            exec $pscmd
-                        } ps_lines]} {
-                        #we will process without grep for for now - may not be avail on windows?
-                        set still_running_lines [list]
-                        foreach ln [split [string trim $ps_lines] \n] {
-                            if {[string match "* grep *" $ln]} {continue}
-                            if {[string match "*$targetkit*" $ln]} {
-                                lappend still_running_lines $ln
-                            }
-                        }
-
-                        #set still_running_lines [split [string trim $still_running] \n]
-                        puts stdout "found ([llength $still_running_lines]) $targetkit instances still running\n"
-                        set count_killed 0
-                        set num_to_kill [llength $still_running_lines]
-                        foreach ln $still_running_lines {
-                            puts stdout "    $ln"
-
-                            if {$::tcl_platform(platform) eq "windows"} {
-                                set pid [lindex $ln 1]
-                                if {$forcekill} {
-                                    set killcmd [list taskkill /F /PID $pid]
-                                } else {
-                                    set killcmd [list taskkill /PID $pid]
-                                }
-                            } else {
-                                set pid [lindex $ln 0]
-                                #review!
-                                if {$forcekill} {
-                                    set killcmd [list kill -9 $pid]
-                                } else {
-                                    set killcmd [list kill $pid]
-                                }
-                            }
-                            puts stdout "    pid: $pid (attempting to kill now using '$killcmd')"
-                            if {[catch {
-                                    exec {*}$killcmd
-                                    } errMsg]} {
-                                puts stderr "$killcmd returned an error:"
-                                puts stderr $errMsg
-                                if {!$forcekill} {
-                                    puts stderr "(try '[info script] -k' option to force kill)"
-                                }
-                                #avoid exiting if the kill failure was because the task has already exited
-                                #review - *no running instance* works with windows taskkill - "*No such process*" works with kill -9 on FreeBSD and linux - other platforms?
-                                if {![string match "*no running instance*" $errMsg] && ![string match "*No such process*" $errMsg]} {
-                                    lappend failed_kits [list kit $targetkit reason "could not kill running process for $targetkit (using '$killcmd')"]
-                                    continue
-                                }
-                            } else {
-                                puts stderr "$killcmd ran without error"
-                                incr count_killed
-                            }
-                        }
-                        if {$count_killed < $num_to_kill} {
-                            $vfs_event targetset_end FAILED
-                            $vfs_event destroy
-                            $vfs_installer destroy
-                            continue
-                        }
-
-                        puts stderr "\nKilled $count_killed processes. Waiting a short time before attempting to delete executable"
-                        after 1000
-                    } else {
-                        puts stderr "Ok.. no running '$targetkit' processes found"
-                    }
-                }
-
-                if {[file exists $buildfolder/$targetkit]} {
-                    puts stderr "deleting existing $buildfolder/$targetkit"
-                    if {[catch {
-                        file delete $buildfolder/$targetkit
-                    } msg]} {
-                        puts stderr "Failed to delete $buildfolder/$targetkit"
-                        lappend failed_kits [list kit $targetkit reason "could not delete buildfolder kit at $buildfolder/$targetkit"]
-                        $vfs_event targetset_end FAILED
-                        $vfs_event destroy
-                        $vfs_installer destroy
-                        continue
-                    }
-                }
-
-                #WINDOWS filesystem 'tunnelling' (file replacement within 15secs) could cause targetkit to copy ctime & shortname metadata from previous file!
-                #This is probably harmless - but worth being aware of.
-                file rename $buildfolder/$vfsname.new $buildfolder/$targetkit
-                # -- --- --- --- --- ---
-                $vfs_event targetset_end OK
-
-            } else {
-                set skipped_vfs_build 1
-                puts stderr "."
-                puts stdout "Skipping build for vfs $vfstail with runtime $rtname - no change detected"
-                lappend skipped_kits [list kit $targetkit reason "no change detected"]
-                $vfs_event targetset_end SKIPPED
-            }
-            $vfs_event destroy
-            $vfs_installer destroy
-
-            after 200
-            set deployment_folder [file dirname $sourcefolder]/bin
-            file mkdir $deployment_folder
-
-            # -- ----------
-            set bin_installer [punkcheck::installtrack new "make.tcl" $deployment_folder/.punkcheck]
-            $bin_installer set_source_target $buildfolder $deployment_folder
-            set bin_event [$bin_installer start_event {-make-step final_kit_install}]
-            $bin_event targetset_init INSTALL $deployment_folder/$targetkit
-            #todo - move final deployment step outside of the build vfs loop? (final deployment can fail and then isn't rerun even though _build and deployed versions differ, unless .vfs modified again)
-            #set last_completion [$bin_event targetset_last_complete]
-
-            $bin_event targetset_addsource $deployment_folder/$targetkit ;#add target as a source of metadata for change detection
-            $bin_event targetset_addsource $buildfolder/$targetkit
-            $bin_event targetset_started
-            # -- ----------
-
-            set changed_unchanged [$bin_event targetset_source_changes]
-            set built_or_installed_kit_changed [expr {[llength [dict get $changed_unchanged changed]] ||  [llength [$bin_event get_targets_exist]] < [llength [$bin_event get_targets]]}]
-            if {$built_or_installed_kit_changed} {
-
-                if {[file exists $deployment_folder/$targetkit]} {
-                    puts stderr "built or deployed kit changed - deleting existing deployed at $deployment_folder/$targetkit"
-                    if {[catch {
-                        file delete $deployment_folder/$targetkit
-                        } errMsg]} {
-                        puts stderr "deletion of deployed version at $deployment_folder/$targetkit failed: $errMsg"
-                        lappend failed_kits [list kit $targetkit reason "could not delete target binary at $deployment_folder/$targetkit"]
-                        $bin_event targetset_end FAILED -note "could not delete"
-                        $bin_event destroy
-                        $bin_installer destroy
-                        continue
-                    }
-                }
-
-                puts stdout "copying.."
-                puts stdout "$buildfolder/$targetkit"
-                puts stdout "to:"
-                puts stdout "$deployment_folder/$targetkit"
-                after 300
-                file copy $buildfolder/$targetkit $deployment_folder/$targetkit
-                lappend installed_kits $targetkit
-                # -- ----------
-                $bin_event targetset_end OK
-                # -- ----------
-            } else {
-                set skipped_kit_install 1
-                puts stderr "."
-                puts stdout "Skipping kit install for $targetkit with vfs $vfstail runtime $rtname - no change detected"
-                lappend skipped_kit_installs [list kit $targetkit reason "no change detected"]
-                $bin_event targetset_end SKIPPED
-            }
-            $bin_event destroy
-            $bin_installer destroy
-
-
-
-        } ;#end foreach targetkit
-    } ;#end foreach rtname in runtimes
-    # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
-}
-
-cd $startdir
-if {[llength $installed_kits]} {
-    puts stdout "INSTALLED KITS: ([llength $installed_kits])"
-    punk::lib::showdict -channel stdout -roottype list $installed_kits
-}
-if {[llength $failed_kits]} {
-    puts stderr "FAILED KITS:([llength $failed_kits])"
-    punk::lib::showdict -channel stderr -roottype list $failed_kits */@*.@*
-    #puts stderr [join $failed_kits \n]
-}
-set had_kits [expr {[llength $installed_kits] || [llength $failed_kits] || [llength $skipped_kits]}]
-if {$had_kits} {
-    puts stdout "   module builds and kit/zipkit builds processed (vfs config: src/runtime/mapvfs.config)"
-    puts stdout " - use 'make.tcl modules' to build modules without scanning/building the vfs folders into executable kits/zipkits"
-    puts stdout " - use 'make.tcl vfscommonupdate' to copy built modules into the base vfs folder <projectdir>/src/vfs/_vfscommon.vfs" 
-    puts stdout " - Note that without the vfscommonupdate step, 'make tcl vfs' (included in 'make tcl project') will build vfs based executables"
-    puts stdout "   that include your current custom vfs folders in src/vfs, but with a _vfscommon.vfs that doesn't have the latest built modules" 
-    puts stdout "   calling 'builtexename(.exe) dev' will allow testing of built modules before they are put into the kits/zipkits via 'vfscommonupdate' then 'project'"
-} else {
-    puts stdout "   module builds processed"
-    puts stdout ""
-    puts stdout "   If kit/zipkit based executables required - create src/vfs/<somename>.vfs folders containing lib,modules,modules_tcl9 etc folders"
-    puts stdout "   Also ensure appropriate executables exist in src/runtime along with src/runtime/mapvfs.config" 
-}
-puts stdout "-done-"
-exit 0
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fileutil-1.16.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/fileutil-1.16.1.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fileutil-1.16.1.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/fileutil-1.16.1.tm
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fileutil/paths-1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/fileutil/paths-1.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fileutil/paths-1.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/fileutil/paths-1.tm
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fileutil/traverse-0.6.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/fileutil/traverse-0.6.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/fileutil/traverse-0.6.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/fileutil/traverse-0.6.tm
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/flagfilter-0.3.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/flagfilter-0.3.1.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/flagfilter-0.3.1.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/flagfilter-0.3.1.tm
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/flagfilter-0.3.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/flagfilter-0.3.tm
deleted file mode 100644
index 1d37e215..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/flagfilter-0.3.tm
+++ /dev/null
@@ -1,2714 +0,0 @@
-#package provide flagfilter [namespace eval flagfilter {list [variable version 0.2.3]$version}]
-#package provide [set ::pkg flagfilter-0.2.3] [namespace eval [lindex [split $pkg -] 0] {list [variable version [lindex [split $pkg -] 1][set ::pkg {}]]$version}]
-#
-#package provide [lindex [set pkg {flagfilter 0.2.3}] 0] [namespace eval [lindex $pkg 0] {list [variable version [lindex $pkg 1][set pkg {}]]$version}]
-package provide [lassign {flagfilter 0.3} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $::ver[set ::ver {}]]$version}]
-
-#Note: this is ugly.. particularly when trying to classify flags that are not fully specified i.e raw passthrough.
-# - we can't know if a flag -x --x  etc is expecting a parameter or not.
-#0.2.2 2023-03  JN - added %match% placeholder support. Can be added to the dispatch command to tell it what command was actually matched. e.g tell xxx.tcl script that it was xxx.tcl when we matched on *.tcl
-
-
-namespace eval flagfilter {
-    package require oolib ;# make 'oolib::collection new' available
-
-    proc do_errorx {msg {code 1}} {
-        if {$::tcl_interactive} {
-            error $msg
-        } else {
-            puts stderr "|>err $msg"
-            exit $code
-        }
-    }
-
-    proc do_error {msg {then error}} {
-        set levels [list debug info notice warn error critical alert emergency]
-        #note we exit or error out even if debug selected - as every do_error call is meant to interrupt code processing at the site of call
-        #this is not just a 'logging' call even though it has syslog-like level descriptors
-        lassign $then type code
-        if {$code eq ""} {
-          set code 1
-        }
-        set type [string tolower $type]
-        if {$type in [concat $levels exit]} {
-            puts -nonewline stderr "|$type> $msg\n"
-        } else {
-            puts -nonewline stderr "|flagfilter> unable to interpret 2nd argument to do_error: '$then' should be one of '$levels'  or 'exit <numericcode>'\n"
-        }
-        flush stderr
-        if {$::tcl_interactive} {
-            #may not always be desirable - but assumed to be more useful not to exit despite request, to aid in debugging
-            if {[string tolower $type] eq "exit"} {
-              puts -nonewline stderr "    (exit suppressed due to tcl_interactive - raising error instead)\n"
-              if {![string is digit -strict $code]} {
-                puts -nonewline stderr "|flagfilter> unable to interpret 2nd argument to do_error: '$then' should be: 'exit <numericcode>'\n"
-              }
-            } 
-            flush stderr
-            return -code error $msg
-        } else {
-            if {$type ne "exit"} {
-              return -code error $msg
-            } else {
-              if {[string is digit -strict $code]} {
-                exit $code
-              } else {
-                puts -nonewline stderr "|flagfilter> unable to interpret 2nd argument to do_error: '$then' should be 'error' or 'exit <numericcode>'\n"
-                flush stderr
-                return -code error $msg
-              }
-            }
-        }
-    }
-    proc scriptdir {} {
-        set possibly_linked_script [file dirname [file normalize [file join [info script] ...]]]
-        if {[file isdirectory $possibly_linked_script]} {
-            return $possibly_linked_script
-        } else {
-            return [file dirname $possibly_linked_script]
-        }
-    }
-
-}
-
-package require overtype
-
-
-namespace eval flagfilter {
-    namespace export get_one_flag_value
-    #review. Tcl can handle args like: {-a -val1 -b -val2} as long as they pair up.
-    #this will ignore flag-like values if they follow a -flag
-    # positional values that happen to start with - can still cause issues
-    #get_flagged_only can return an unpaired list if there are solos, or if it finds no value for the last flaglike element
-    # e.g  from input {something -x -y -z}  we will get {-x -y -z}
-    #
-    #
-
-    #flagfilter::get_flagged_only may not always get things right when looking at a values list with command processors
-    #Even if all solos from commands are supplied in solodict - a flag might be solo only in the context of a particualar commandset
-    #The proper way to get flagged values from an arglist is to run the full parser.
-    #This then should be restricted to use for a specific subset of args where the supplied solodict is known to apply 
-    proc get_flagged_only {arglist solodict} {
-        #solodict - solo flags with defaults
-        set solo_accumulator [dict create] ;#if multiple instances of solo flag found - append defaults to the value to form a list as long as the number of occurrences
-        #puts ">>>get_flagged_only input $arglist solodict:'$solodict'"
-        set result [list]
-        set last_was_flag 0
-        set result [list]
-        set a_idx 0
-        set end_of_options 0
-        foreach a $arglist {
-            if {$a eq "--"} {
-                break
-            }
-            if {[dict exists $solodict $a]} {
-                set last_was_flag 0
-                if {[dict exists $solo_accumulator $a]} {
-                    set soloval [concat [dict get $solo_accumulator $a] [dict get $solodict $a]]
-                } else {
-                    set soloval [dict get $solodict $a]
-                }
-                dict set solo_accumulator $a $soloval
-                #we need to keep order of first appearance
-                set idx [lsearch $result $a]
-                if {$idx < 0} {
-                    lappend result $a $soloval
-                } else {
-                    lset result $idx+1 $soloval
-                }
-            } else {
-                if {!$last_was_flag} {
-                    if {$a eq "--"} {
-
-                    } else {
-                        if {[lindex $arglist $a_idx-1] eq "--"} {
-                            #end of options processing - none of the remaining are considered flags/options no matter what they look like
-                            set last_was_flag 0
-                            break
-                        } else {
-                            if {[string match -* $a]} {
-                                set last_was_flag 1
-                                lappend result $a ;#flag
-                            } else {
-                                #last wasnt, this isn't - don't output
-                                set last_was_flag 0
-                            }
-                        }
-                    }
-                } else {
-                    #we only look for single leading - in the value if last wasn't a flag - but we give -- and soloflags special treatment.
-                    if {$a eq "--"} {
-                        #last was flag
-                        set last_was_flag 0
-                    } else {
-                        lappend result $a ;#value
-                        set last_was_flag 0
-                    }
-                }
-            }
-            incr a_idx
-        }
-        if {([llength $result] % 2) != 0} {
-           set last [lindex $result end]
-           if {[string match -* $last] && ($last ni [dict keys $solodict])} {
-                lappend result 1
-           }
-        }
-        #puts ">>>get_flagged_only returning $result"
-        return $result
-    }
-
-
-    ## get_one_paired_flag_value
-    #best called with 'catch' unless flag known to be in arglist
-    #raises an error if no position available after the flag to retrieve value
-    #raises an error if flag not like -something
-    #raises an error if flag not found in list
-    proc get_one_paired_flag_value {arglist flag} {
-        if {![regexp -- {-{1}[^-]+|-{2}[^-]+} $flag]} {
-            #regexp excludes plain - and --
-            #if {![string match -* $flag]} {}
-            error "get_one_flag_value flag $flag does not look like a flag. Should be something like -$flag or --$flag"
-        }
-        set cindex [lsearch $arglist $flag]
-        if {$cindex >= 0} {
-            set valueindex [expr {$cindex + 1}]
-            if {$valueindex < [llength $arglist]} {
-                #puts stderr "++++++++++++++++++ get_one_flag_value flag '$flag' returning [lindex $arglist $valueindex]"
-                return [lindex $arglist $valueindex]
-            } else {
-                error "flagfilter::get_one_paired_flag_value no value corresponding to flag $flag (found flag, but reached end of list)"
-            }
-        } else {
-            error "flagfilter::get_one_paired_flag_value $flag not found in arglist: '$arglist'"
-        }
-    }
-}
-
-namespace eval flagfilter::obj {
-
-}
-
-
-namespace eval flagfilter {
-    variable run_counter 0  ;#Used by get_new_runid to form an id to represent run of main check_flags function.
-    #used as a basis for some object-instance names etc
-    proc get_new_runid {} {
-        variable run_counter
-        if {[catch {package require Thread}]} {
-            set tid 0
-        } else {
-            set tid [thread::id]
-        }
-        return "ff-[pid]-${tid}-[incr run_counter]"
-    }
-
-    namespace export check_flags
-    proc do_debug {lvl debugconfig msg} {
-        if {$lvl <= [dict get $debugconfig -debugargs]} {
-            foreach ln [split $msg \n] {
-                puts -nonewline stderr "|[dict get $debugconfig -source]> $ln\n"
-                flush stderr
-            }
-        }
-    }
-
-    #----------------------------------------------------------------------
-    #  DO NOT RELY ON tcl::unsupported - it's named that for a reason and is not meant to be parsed
-    #wiki.tcl-lang.org/page/dict+tips+and+tricks
-    proc isdict {v} {
-        if {[string match "value is a list *" [::tcl::unsupported::representation $v]]} {
-            return [expr {!([llength $v] % 2)}]
-        } else {
-            return [string match "value is a dict *" [::tcl::unsupported::representation $v]]
-        } 
-    }
-
-    proc dict_format {dict} {
-        dictformat_rec $dict "" "  "
-    }
-    proc dictformat_rec {dict indent indentstring} {
-        # unpack this dimension 
-        set is_empty 1
-        dict for {key value} $dict { 
-            set is_empty 0
-            if {[isdict $value]} { 
-                append result "$indent[list $key]\n$indent\{\n" 
-                append result "[dictformat_rec $value "$indentstring$indent" $indentstring]\n" 
-                append result "$indent\}\n" 
-            } else { 
-                append result "$indent[list $key] [list $value]\n" 
-            }
-        }
-        if {$is_empty} {
-            #experimental..
-            append result "$indent\n"
-            #append result ""
-        }
-       return $result 
-    }
-    #--------------------------------------------------------------------------
-
-    #solo 'category' includes longopts with value
-    #solo flags include the general list of -soloflags, and those specific to the current -commandprocessors spec (mashopts and singleopts)
-    proc is_this_flag_solo {f solos objp} {
-        if {![string match -* $f]} {
-            #not even flaglike
-            return 0
-        }
-
-
-        if {$f in $solos} {
-            #review! - global -soloflags shouldn't  override the requirements of a commandprocessor!
-            #but.. each commandprocessor needs to understand global solos occuring before our match so that we classify correctly..
-            #todo - this may need to reference v_map and current position in scanlist to do properly
-            return 1
-        }
-        if {$f eq "-"} {
-            #unless the caller declared it as a solo - treat this as a non flag element. (likely use is as a command match)
-            return 0
-        }
-        if {$f eq "--"} {
-            #this is it's own type endofoptions
-            return 0
-        }
-
-        set p_opts [$objp get_combined_opts]
-
-        set mashopts [dict get $p_opts mashopts]
-        set singleopts [dict get $p_opts singleopts]
-        set pairopts [dict get $p_opts pairopts]
-        set longopts [dict get $p_opts longopts]
-      
-        if {$f in $singleopts} {
-            return 1
-        }
-
-        #"any" keywords used by processors to consume anything - where we're not too worried about classifying a flagvalue vs an operand
-        #examine these last so that an explicit configuration of flags as pairopts,mashopts etc can still be classified correctly
-        if {"any" in $singleopts} {
-            return 1
-        }
-        if {[string first "=" $f] >=1} {
-            if {"any" in $longopts} {
-                return 1
-            }
-            #todo foreach longopt - split on = and search
-        }
-
-        #Flag could still be part of a solo if it is in mashopts *and* has a value following it as part of the mash  - but if it's a pairopt, but not mashable - we can rule it out now
-        if {($f in $pairopts) && ($f ni $mashopts)} {
-            return 0
-        }
-        #todo - suport mashes where one of the mashed flags takes an arg - review: only valid if it's last in the mash? 
-        #(presumably so - unless we there was some other value delimiter such as isnumeric or capitalised flags vs lowercase values - but that seems a step too far - would require some sort of mashspec/mash-strategy config)
-        #last part of mash may actually be the value too. which complicates things
-        #linux ls seems to do this for example: 
-        # ls -w 0
-        # ls -lw 0
-        # ls -lw0
-        # also man.. e.g
-        # man -Tdvi 
-        # man -Hlynx
-        # man -H 
-        #  - note this last one. '-H lynx' doesn't work - so it's a mashable opt that can take a value, but is not in pairopts! (-H with no value uses env value for browser)
-        # see also comments in is_this_flag_mash
-        #
-      
-        set flagletters [split [string range $f 1 end] ""]
-        set posn 1
-        set is_solo 1 ;#default assumption to disprove
-        #trailing letters may legitimately not be in mashopts if they are part of a mashed value
-        #we can return 0 if we hit a non-mash flag first.. but at each mashflag we need to test if we can classify as definitely solo or not, or else keep processing
-        foreach l $flagletters {
-            if {"-$l" ni $mashopts} {
-                #presumably an ordinary flag not-known to us
-                return 0
-            } else {
-                if {"-$l" in $pairopts} {
-                    if {$posn == [llength $flagletters]} {
-                        #in pairopts and mash - but no value for it in the mash - thefore not a solo
-                        return 0
-                    } else {
-                        #entire tail is the value - this letter is effectively solo
-                        return 1
-                    }
-                } elseif {"-$l" in $singleopts} {
-                    #not allowed to take a value - keep processing letters
-                } else {
-                    #can take a value! but not if at very end of mash. Either way This is a solo
-                    return 1
-                }
-            }
-        }
-        return $is_solo
-    } 
-    #todo? support global (non-processor specific) mash list?  -mashflags ?
-    proc is_this_flag_mash {f objp} {
-        if {![regexp -- {-{1}[^-]+|-{2}[^-]+} $f]} {
-            #not even flaglike
-            return 0
-        }
-        set optinfo [$objp get_combined_opts];#also applies to tail_processor - *usually* empty values for mashopts etc
-
-        #we look at singleopts because even if the flag is in mashopts - when it is alone we don't classify it as a mash
-        set singleopts pdict get $optinfo singleopts]
-        if {$f in $singleopts} {
-            return 0
-        }
-
-        set pairopts [dict get $optinfo pairopts]
-        if {$f in [dict keys $pairopts]} {
-            #here, the entire arg (f) we are testing is in pairopts - it could still however appear as part of a mash, with or without a trailing value, and with or without other flags before it in the mash (but if neither prefixed,nor tailed then obviously not a mash)
-            return 0
-        }
-        set mashopts [dict get $optinfo mashopts]
-        set flagletters [split [string range $f 1 end] ""]
-        set is_mash 1 ;#to disprove - all letters must be in mashopts to consider it a mash.. unless trailing one also takes a value
-        # .. in which case value could be at the tail of the mash.. or be the next arg in the list
-        # We will take absense from singleopts and pairopts to indicate the mashflag *optionally* takes a value
-        #    (ie such a mashopt is a solo that can take a value only as a mashtail)
-        # presence in pairopts indicates a mashflag must have a value
-        # presense in singleopts indicates mashflag takes no value ever.
-        # mashopt cannot be in both singleopts and pairopts. (NAND)
-        foreach l $flagletters {
-            if {-$l in $pairopts} {
-                if {"-$l" in $mashopts} {
-                    #need to consider any remainder in the mash as this value .. if no remainder - then this is a mash, but not 'solo' because this flag needs to consume the following arg. 
-                    # We are only concerned with mashness here so just stop processing mash elements when we hit the first one that is a pairopt
-                    break
-                } else {
-                    #we require the pairopt to explicitly be listed in mashopts as well as pairopts if it is to be allowed to be part of a mash
-                    set is_mash 0
-                }
-            } elseif {"-$l" in $singleopts} {
-                #singleopt & mashopt - cannot take a value, mashed or otherwise
-                if {"-$l" ni $mashopts} {
-                    set is_mash 0
-                } 
-            } else {
-                if {"-$l" ni $mashopts} {
-                    set is_mash 0
-                } else {
-                    #present only in mashopts - can take a value, but only immediately following in the mash
-                    break
-                }
-            }
-        }
-        return $is_mash
-    }
-    proc is_this_flag_for_me {f objp cf_args} {
-        set processorname [$objp name]
-        set optinfo [$objp get_combined_opts] ;#also applies to tail_processor - *usually* empty values for mashopts etc
-
-        if {$processorname in [list "tail_processor"]} {
-            return 1
-        }
-        if {$processorname in [list "global"]} {
-            #todo - mashflags for global?
-            set defaults [dict get $cf_args -defaults]
-            set extras [dict get $cf_args -extras]
-            set soloflags [dict get $cf_args -soloflags]
-            if {$f in [concat $extras $soloflags [dict keys $defaults]]} {
-                return 1
-            }
-        }
-
-        set singleopts [dict get $optinfo singleopts]
-        if {"any" in [string tolower $singleopts]} {
-            #review semantics of 'all' here. does it mean any -xxx.. will match, or only if also in global -soloflags?
-            return 1
-        }
-        set pairopts [dict get $optinfo pairopts]
-        set allopts [concat $singleopts [dict keys $pairopts]]
-        if {$f in $allopts} {
-            return 1
-        }
-
-        #process mashopts last
-        set mashopts [dict get $optinfo mashopts]
-        if {"any" in [string tolower $mashopts]} {
-            #if 'all' in mashopts - it can eat anything - review - is this even useful?
-            return 1
-        } else {
-            set flagletters [split [string range $f 1 end] ""]
-            set is_mash 1 ;#to disprove - all letters must be in mashopts to consider it a mash
-            foreach l $flagletters {
-                if {"-$l" ni $mashopts} {
-                    set is_mash 0
-                }
-            }
-            return $is_mash
-        }
-
-        return 0
-    }
-    
-
-
-    proc add_dispatch_raw {recordvar parentname v} {
-        upvar $recordvar drecord
-        if {[dict exists $drecord $parentname]} {
-            set dispatchinfo [dict get $drecord $parentname raw]
-            lappend dispatchinfo $v
-            dict set drecord $parentname raw $dispatchinfo
-        }
-    }
-    proc add_dispatch_argument {recordvar parentname k v} {
-        upvar $recordvar drecord
-        if {[dict exists $drecord $parentname]} {
-            set dispatchinfo [dict get $drecord $parentname arguments]
-            lappend dispatchinfo $k $v  ;#e.g  -opt 1
-            dict set drecord $parentname arguments $dispatchinfo
-        }
-    }
-    proc lsearch-all-stride-2 {l search} {
-        set posns [lmap i [lsearch -all $l $search] {expr {($i % 2) == 0 ? $i : [list x]}}]
-        return [lsearch -all -inline -not $posns x]
-    }
-    proc update_dispatch_argument {recordvar parentname k v} {
-        upvar $recordvar drecord
-        if {[dict exists $drecord $parentname]} {
-            set dispatchinfo [dict get $drecord $parentname arguments]
-            #can't assume there aren't repeat values e.g -v -v 
-            #dict set dispatchinfo $k $v
-            if {[package vcompare [info tclversion] 8.7a5] >= 0} {
-                set posns [lsearch -all -stride 2 $dispatchinfo $k]
-            } else {
-                set posns [lsearch-all-stride-2 $dispatchinfo $k]
-            }
-            set lastitem [lindex $posns end]
-            if {[string length $lastitem]} {
-                set val_idx [expr {$lastitem + 1}]
-                set dispatchinfo [lreplace $dispatchinfo[set dispatchinfo {}] $val_idx $val_idx $v] ;# inlineK
-                dict set drecord $parentname arguments $dispatchinfo
-            } else {
-                error "Unable to update dispatch argument $k with value $v in dispatch record for $parentname"
-            }
-            #dict set drecord $parentname $dispatchinfo
-        }
-    }
-
-    #Note the difference between this and is_command_match.
-    #Lack of a 'match' element does not cause a commandspec to skip allocating an operand it encounters
-    #Note that this isn't a general test to be applied to the entire argument list.
-    # - an arg may get matched by an earlier processor making it unavailable to be allocated by another processor
-    #  so this test only applies during the ordered examination of args
-    proc can_this_commandspec_allocate_this_arg {flag cspec cf_args} {
-        set cmdinfo [lindex $cspec 1]
-        if {$cmdinfo eq "tail_processor"} {
-            return 1
-        }
-        if {$cmdinfo eq "global"} {
-            set defaults  [dict get $cf_args -defaults]
-            set soloflags [dict get $cf_args -soloflags]
-            set extras    [dict get $cf_args -extras]
-            if {$flag in [concat $soloflags $extras [dict keys $defaults]]} {
-                return 1
-            }
-        }
-        if {![dict exists $cmdinfo match]} {
-            return 1
-        } 
-        set matchspeclist [dict get $cmdinfo match]
-        foreach matchspec $matchspeclist {
-             if {[regexp -- $matchspec $flag]} {
-                 return 1
-             }
-        }
-        #only block it if there was a match pattern specified but it didn't match
-        return 0
-    }
-    #Note - returns false for a cspec that has no match specified.
-    #A command/subcommand with no match specification is allowed to allocate any value - so be careful with this
-    # - it should not be used to *stop* an arg being allocated if the processor has no 'match' specified, or if it is another type of processor like 'tail_handler'.
-    proc is_command_match {flag cspec} {
-        set pinfo [lindex $cspec 1]
-        if {[dict exists $pinfo match]} {
-            set matchspeclist [dict get $pinfo match]
-            foreach matchspec $matchspeclist {
-                if {[regexp -- $matchspec $flag]} {
-                    return 1
-                }
-            }
-            return 0
-        } else {
-            return 0
-        }
-    }
-    proc is_command_match_any {f commandprocessors} {
-        foreach comspec $commandprocessors {
-            lassign $comspec cmdname cmdinfo
-            if {[dict exists $cmdinfo match]} {
-                set matchlist [dict get $cmdinfo match]
-                foreach matchspec $matchlist {
-                    if {[regexp -- $matchspec $f]} {
-                        #actually a command
-                        return true
-                    }
-                }
-            }
-        }
-        return false
-    }
-
-    #determine if f is potentially a flag that takes a parameter from the next argument.
-    #e.g --x=y  (longopt) does not consume following arg but --something  *might*
-    proc is_candidate_toplevel_param_flag {f solos commandprocessors} {
-      if {[is_command_match_any $f $commandprocessors]} {
-        return false
-      }
-      if {$f in $solos} {
-        return 0
-      }
-      if {$f in {- --}} {
-        return 0
-      }
-      #longopts (--x=blah) and alternative  --x blah
-      #possibly also -x=blah
-      if {[string match -* $f]} {
-          if {[string first "=" $f]>1} {
-              return 0
-          }
-      }
-      return [expr {[string match -* $f]}]
-    } 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-    #review - should we be using control::assert here?
-    #It depends if this is intended to raise error at runtime - would using control::assert and disabling assertions cause problems?
-    #todo - show caller info
-    proc assert_equal {a b} {
-        if {![expr {$a eq $b}]} {
-            error "assert_equal $a $b"
-        }
-    }
-
-
-
-
-
-    #{1 unallocated 2 unallocated 3 unallocated 4 unallocated 5 unallocated 6 unallocated} ;#initial v_map 
-    #1 2 3 4 5 6     ;#original list posns example
-    #  2       6     ;#map_remaining example  (scanlist)
-    #1   3 4 5       ;#map_allocated example
-    #{1 {cmd1 operand} 2 unallocated 3 {cmd2 operand} 4 {cmd2 flag} 5 {cmd2 flagvalue} 6 unallocated} ;#v_map updated example 
-    oo::class create class_vmap {
-        variable o_map
-        variable o_remaining
-        variable o_allocated
-        variable o_values
-        variable o_codemap
-        variable o_flagcategory
-        constructor {values} {
-            set o_codemap [dict create \
-                operand         op \
-                flagvalue       fv \
-                soloflag        so \
-                flag            fl \
-                unallocated     un \
-                endofoptions    eo \
-                ]
-            set o_flagcategory [list "flag" "flagvalue" "soloflag"]
-            set o_values $values
-            #set o_remaining [lsearch -all $values *] ;#create a list of indices e.g 0 1 2 3 4 5 6
-            #lsearch -all <list> * is fast for very small lists - but lseq wins from size around 30+
-            if {[llength $values]} {
-                if {[llength $values] < 30} {
-                    #common case is short lists - but we don't want to penalize large lists
-                    set o_remaining [lsearch -all $values *]
-                } else {
-                    #punk::lib::range wraps lseq if available
-                    set o_remaining [punk::lib::range 0 [llength $values]-1]
-                }
-            } else {
-                set o_remaining [list]
-            }
-            set o_allocated [list]
-            set o_map [list]
-            foreach posn $o_remaining {
-                lappend o_map $posn unallocated
-            }
-        }
-        method load {values rem alloc map} {
-            set o_values $values
-            set o_remaining $rem
-            set o_allocated $alloc
-            set o_map $map
-        }
-        method copy_to {obj} {
-            $obj load $o_values $o_remaining $o_allocated $o_map
-        }
-        method update_map_from {obj} {
-            #very basic sanity check first
-            if {[llength $o_values] ne [llength [$obj get_values]]} {
-                error "[self class].update_map_from cannot update. length of values mismatch"
-            }
-
-            set newmap [$obj get_map]
-        }
-
-        method get_codemap {} {
-            return $o_codemap
-        }
-        method get_values {} {
-            return $o_values
-        }
-        method get_remaining {} {
-            return $o_remaining
-        }
-        method get_allocated {} {
-            return $o_allocated
-        }
-        method get_map {} {
-            return $o_map
-        }
-        method argnum_from_remaining_posn {scanlist_posn} {
-            set vidx [lindex $o_remaining $scanlist_posn]
-            if {![string is digit -strict $vidx]} {
-                return -code error "[self class].argnum_from_remaining_posn cannot determine argnum from scanlist position:$scanlist_posn using unallocated list:'$o_remaining'"
-            }
-            return $vidx
-        }
-
-        method allocate {objp argnum type value} {
-            set processorname [$objp name]
-            if {$processorname eq "tail_processor"} {
-                set owner "unallocated"
-            } else {
-                set owner [$objp parentname]
-            }
-            if {$argnum > [llength $o_values]-1} {
-                return -code error "[self class].allocate cannot allocate argnum:$argnum. Only [llength $o_values] items in value list"
-            }
-            if {$argnum in $o_allocated} {
-                return -code error "[self class].allocate already allocated '$processorname' argnum:'$argnum' type:'$type' val:'$value'  remaining:$o_remaining allocated:$o_allocated map:$o_map"
-            }
-            lappend o_allocated $argnum
-            set o_allocated [lsort -dictionary $o_allocated]
-            dict set o_map $argnum [list $owner $type $value]
-            set scanlist_posn [lsearch $o_remaining $argnum]
-            set o_remaining [lreplace $o_remaining[set o_remaining {}] $scanlist_posn $scanlist_posn] ;#inlineK
-
-
-
-        }
-
-        method get_list_unflagged_by_class {classmatch} {
-            set resultlist [list]
-            dict for {k vinfo} $o_map {
-                lassign $vinfo class type val
-                if {[string match $classmatch $class]} {
-                    switch -- $type {
-                        flag - flagvalue - soloflag {}
-                        default {
-                            lappend resultlist $val
-                        }
-                    }
-                }
-            }
-            return $resultlist
-        }
-
-        method get_list_flagged_by_class {classmatch} {
-            set list_flagged [list]
-            dict for {k vinfo} $o_map {
-                lassign $vinfo class type val
-                if {[string match $classmatch $class]} {
-                    switch -- $type {
-                        flag - flagvalue - soloflag {
-                            lappend list_flagged $val
-                        }
-                    }
-                }
-            }
-            return $list_flagged 
-        }
-
-        method get_merged_flagged_by_class {classmatch} {
-            variable flagcategory
-            set all_flagged [list]
-            set seenflag [dict create] ;#key = -flagname val=earliest vindex
-            dict for {k vinfo} $o_map {
-                lassign $vinfo class type val
-                if {[string match $classmatch $class]} {
-                    set a [llength $all_flagged] ;#index into all_flagged list we are building
-                    switch -- $type {
-                        soloflag {
-                            if {[dict exists $seenflag $val]} {
-                                set seenindex [dict get $seenflag $val]
-                                set seenindexplus [expr {$seenindex+1}]
-                                set existingvals [lindex $all_flagged $seenindexplus]
-                                lappend existingvals 1  ;#1 indicating presence - stored as list rather than a count. todo: consider global or per-solo options to support incrementing instead?
-                                lset all_flagged $seenindexplus $existingvals
-                            } else {
-                                dict set seenflag $val $a
-                                lappend all_flagged $val 1
-                            }
-                        }
-                        flag {
-                            if {![dict exists $seenflag $val]} {
-                                dict set seenflag $val $a
-                                lappend all_flagged $val
-                            }
-                            #no need to do anything if already seen - flagvalue must be next, and it will work out where to go.
-                        }
-                        flagvalue {
-                            set idxflagfor [expr {$k -1}]
-                            set flagforinfo [dict get $o_map $idxflagfor]
-                            lassign $flagforinfo ffclass fftype ffval
-                            #jn "--" following a flag could result in us getting here accidentaly.. review
-                            set seenindex [dict get $seenflag $ffval] 
-                            if {$seenindex == [expr {$a-1}]} {
-                            #usual case - this is a flagvalue following the first instance of the flag
-                            lappend all_flagged $val
-                            } else {
-                                #write the value back to the seenindex+1
-                                set seenindexplus [expr {$seenindex+1}]
-                                set existingvals [lindex $all_flagged $seenindexplus]
-                                lappend existingvals $val  ;#we keep multiples as a list
-                                lset all_flagged $seenindexplus $existingvals
-                            }
-                        }
-                    }
-                }
-            }
-            return $all_flagged
-        }
-        method typedrange_class_type_from_arg {argclass argtype} {
-            #set o_flagcategory [list "flag" "flagvalue" "soloflag"]
-            if {$argclass eq "unallocated"} {
-                switch -- $argtype {
-                    flag - flagvalue - soloflag {
-                        return [list unallocated flagtype]
-                    }
-                    default {
-                        if {![string length $argtype]} {
-                            #should only happen if something wrong with the tail_processor - rather than error out, for now at least make it stand out in the .
-                            set argtype UNKNOWN
-                        }
-                        return [list unallocated ${argtype}type] ;#e.g unallocated_operand, unallocated_endofoptions
-                    }
-                }
-            } else {
-                return [list $argclass argtype] ;# e.g command something
-            }
-        }
-
-        method get_ranges_from_classifications {classifications} {
-            #puts stderr "get_ranges_from_classifications $classifications"
-            #examine classifications and create a list of ranges
-            set ranges [list];# e.g [list {unallocated 0 4} {cmd1 5 7} {unallocated 8 8} {cmd2 9 9} {cmd3 10 10} {unallocated 11 15}]
-            set seen_commands [list] 
-            dict for {posn arginfo} $classifications {
-                set is_new_cmd 0
-                set is_sub_cmd 0
-                set is_continuation 0
-                set rangename [lindex $ranges end 0]
-                set alloc [lindex $arginfo 0]  ;#e.g of form 0 {unallocated operand} 1 {lscmd operand} 2 {lscmd soloflag} 3 {lscmd.dir operand} 4 {unallocated flag}
-                set cmdname ""
-                if {$alloc ne "unallocated"} {
-                    if {$alloc ni $seen_commands} {
-                        if {![llength $seen_commands]} {
-                            set cmdname $alloc
-                            set is_new_cmd 1
-                        } else {
-                            set tail [lindex $seen_commands end]
-                            if {$tail eq "unallocated"} {
-                                set cmdname $alloc
-                                set is_new_cmd 1
-                            } else {
-                                if {[string first . $alloc] >= 0} {
-                                    set prefixcheck [lindex [split $alloc .] 0]
-                                    if {![string equal -length [string length $prefixcheck] $prefixcheck $tail]} {
-                                        #this is not unallocated, not a subcommand of the previous seen ie new command
-                                        set cmdname $alloc
-                                        set is_new_cmd 1
-                                    } else {
-                                        set cmdname $prefixcheck
-                                        set is_sub_cmd 1
-                                        set is_continuation 1
-                                    }
-                                } else {
-                                    set cmdname $alloc
-                                    set is_new_cmd 1
-                                }
-                            }
-                        }
-                    } else {
-                        set cmdname $alloc
-                        set is_continuation 1 
-                    }
-                    if {$is_continuation} {
-                        lassign [lindex $ranges end] _cmd n a b
-                        set ranges [lrange $ranges 0 end-1]
-                        lappend ranges [list command $n $a [incr b]]
-                        flagfilter::assert_equal $b $posn
-                    } elseif {$is_new_cmd} {
-                        lappend seen_commands $alloc
-                        if {$rangename eq ""} {
-                            lappend ranges [list command $cmdname $posn $posn]
-                        } else {
-                            lassign [lindex $ranges end] _cmd n a b
-                            lappend ranges [list command $cmdname [incr b] $posn]
-                            flagfilter::assert_equal $b $posn
-                        }
-                    } else {
-                        error "coding error during dispatch"
-                    }
-                } else {
-                    if {$rangename eq ""} {
-                        lappend ranges [list unallocated mixed 0 0]
-                    } else {
-                        lassign [lindex $ranges end] class n a b
-                        if {$class eq "unallocated"} {
-                            #continuation - extend
-                            set ranges [lrange $ranges 0 end-1]
-                            lappend ranges [list unallocated mixed $a [incr b]]
-                        } else {
-                            #change from allocated to unallocated
-                            lappend ranges [list unallocated mixed [incr b] $posn]
-                            flagfilter::assert_equal $b $posn
-                        }
-                    }
-                }
-            }
-            set rangesbytype [list]
-            foreach oldrange $ranges {
-                lassign $oldrange oldrangeclass oldrangetype A B  ;#A,B for original range bounds,  a,b for bounds of sub-ranges we are creating
-                set last_type ""
-                set newrangelist [list]
-                set inner_range [list 0 0]
-                if {$oldrangeclass ne "unallocated"} {
-                    #pass through - user can split commands further themselves by referencing the classifications map where each arg position is listed
-                    set last_type $oldrangeclass ;#note the deliberate slight misuse - we are using the 'class' here rather than the type as we aren't looking at types within a command range
-                    lappend rangesbytype $oldrange
-                } else {
-                    #puts stdout "???????????????????????????????????????????????A$A  B$B examining old range:'$oldrange'"
-                    for {set i $A} {$i <= $B} {incr i} {
-                        lassign [lindex $rangesbytype end] last_class last_type a b ;#enough just to use the type without the class
-                        set a_info [dict get $classifications $i]
-                        lassign $a_info argclass argtype v
-                        lassign [my typedrange_class_type_from_arg $argclass $argtype] newrangeclass newrangetype
-                        if {$last_type eq ""} {
-                            lappend rangesbytype [list "unallocated" $newrangetype 0 0]
-                        } else {
-                            if {$last_type eq $newrangetype} {
-                                set rangesbytype [lrange $rangesbytype 0 end-1]
-                                lappend rangesbytype [list $last_class $last_type $a $i]
-                            } else {
-                                lappend rangesbytype [list $newrangeclass $newrangetype $i $i]
-                            }
-                        }
-                    }
-                }
-            }
-
-            return [list -ranges $ranges -rangesbytype $rangesbytype]
-        }
-
-        method grid {} {
-            set posns [dict keys $o_map]
-            set col1 [string repeat " " 15]
-            set col [string repeat " " 4]
-            set pline "[overtype::left $col1 {var indices}] "
-            foreach p $posns {
-                append pline [overtype::left $col $p]
-            }
-            set remline "[overtype::left $col1 {unallocated}] "
-            foreach vidx $posns {
-                if {$vidx ni $o_remaining} {
-                    append remline [overtype::left $col "."]
-                } else {
-                    set tp [lindex [dict get $o_map $vidx] 1]
-                    #set tp [string map $o_codemap $tp]
-                    if {[dict exists $o_codemap $tp]} {
-                        set tp [dict get $o_codemap $tp]
-                    }
-                    append remline [overtype::left $col $tp] 
-                }
-            }
-            set cmdlist [list]
-            dict for {vidx info} $o_map {
-                if {[lindex $info 0] ne "unallocated"} {
-                    set c [lindex [split [lindex $info 0] .] 0] 
-                    if {$c ni $cmdlist} {
-                        lappend cmdlist $c
-                    }
-                }
-            }
-            set clinelist [list]
-            foreach c $cmdlist {
-                set cline "[overtype::left $col1 $c] "
-                dict for {vidx info} $o_map {
-                    lassign $info class type v
-                    if {($c eq $class) || [string equal -length [string length "$c."] "$c." $class]} {
-                        #set tp [string map $o_codemap $type]
-                        if {[dict exists $o_codemap $type]} {
-                            set tp [dict get $o_codemap $type]
-                        }
-                        append cline [overtype::left $col $tp]
-                    } else {
-                        append cline [overtype::left $col "."]
-                    }
-                }
-                lappend clinelist $cline
-            } 
-
-
-            set aline "[overtype::left $col1 {allocated}] "
-            foreach vidx $posns {
-                if {$vidx ni $o_allocated} {
-                    append aline [overtype::left $col "."]
-                } else {
-                    set tp [lindex [dict get $o_map $vidx] 1]
-                    #set tp [string map $o_codemap $tp]
-                    if {[dict exists $o_codemap $tp]} {
-                        set tp [dict get $o_codemap $tp]
-                    }
-                    append aline [overtype::left $col $tp]
-                }
-            }
-
-            return "$pline\n$remline\n[join $clinelist \n]\n$aline\n" 
-        }
-
-    }
-
-
-    #!todo - check if -commandprocessors members will collide with existing -flags in values before moving them
-    #!todo - skip optional sub-flag value if the next arg following its parent is a flag i.e proper handling of -commandprocessors {cmd {cmd sub "default}}   when only cmd supplied.
-    #!important to fix. At the moment it could eat a further unflagged item in values later in the list which was intended for a different -commandprocessors member!
-    #add support for -commandprocessors {-cmd {-cmd -othercmd "default"}}  to be a safe way to specify a linked -flag move that does the same.
-    proc allocate_arguments {PROCESSORS solos values cf_args caller} {
-        set runid [lindex [split [namespace tail $PROCESSORS] _] 1] ;# objname is of form PROCESSORS_pid-threadid-counter where "PROCESSORS_" is a literal
-        #puts stderr ">>>>>>> solos: $solos"
-        dict set debugc -debugargs [dict get $cf_args -debugargs]
-        dict set debugc -source "allocate_arguments $caller"
-
-        set defaults [dict get $cf_args -defaults]
-
-        set cmdprocessor_records [$PROCESSORS get_commandspecs]
-
-
-        set sep "\uFFFE" ;#argument-subargument separator (choose something else if this causes problems.. but we want something unlikely (or preferably impossible?) to be in a commandline, ideally a single character, and which at least shows something on screen during debug)
-        set sepstr "\\uFFFE" ;#for human readable error msg
-        #\u001E was tried and doesn't output on some terminals)
-
-        set remaining_unflagged [dict create]
-
-        set extra_flags_from_positionals [list] ;#values moved to -values
-        set moved_to_flagged [dict create]
-
-        #implied_ are values supplied from defaults when a flag or operand was not found
-        set implied_flagged [list]
-        set implied_unflagged [list]
-
-
-        set dispatch [dict create]
-        #sanitize and raise error if sep somehow in values
-        if {[string first $sep $cmdprocessor_records] >= 0} {
-            do_error "allocate_arguments flags error  separator '$sep' ($sepstr) found in values "
-        }
-        #--------------------------------------
-        set VMAP [flagfilter::class_vmap create flagfilter::VMAP_$runid $values]
-        #--------------------------------------
-
-        set unconsumed_flags_and_values [list]
-        set unflagged [dict create]
-
-        ######################
-        #main -commandprocessors loop which scans the valuelist
-        set values_index 0 ;#track where we are up to as we allocate values to unflagged elements
-        set source_values $values ;#start with all including -flagged
-
-        #todo - get rid of most of these flags last_x_was etc - and just do lookups into the v_map
-        # as this will probably involve *lots* of small functiona calls - keep this boolean version and check for performance issues.
-        set a_index 0
-        set is_args_flag 0
-        set last_arg_was_paramflag 0 ;#a flag that expects a parameter to follow
-        set last_arg_was_solo 0
-        set solo_flags [dict keys $solos] ;#solos is a dict of -flag <defaultval> (preprocessed)
-        set end_of_options 0
-        set end_of_options_index -1 ;#as later processors can rescan - we need to make sure they only look at arguments after this point
-        set last_p_found [dict create  by "" index "" item ""]
-        set sequence 0
-        set argerrors [list] ;#despite being a list - we will break out at first entry and return for now.
-        set parsestatus "ok"
-
-        #set LAUNCHED [oolib::collection create col_processors_launched_$runid]
-        #set MATCHED [oolib::collection create col_processors_matched_$runid]
-        #oo::objdefine col_processors_matched_$runid {
-        #    method test {} {
-        #        return 1
-        #    }
-        #}
-
-        #set objp [$PROCESSORS object_from_record $p]  ;#temp convenience
-
-        foreach objp [$PROCESSORS items] {
-            set objparent [$objp parent]
-            #$LAUNCHED add $objp [$objp name]
-            set p [$objp get_def] ;#individual record  e.g {mycmd {match run singleopts {-x}}}  or  {tail_processor {}}
-             
-            lassign $p parentname pinfo
-            set is_sub [$objp is_sub] ;#is subargument - should look to see if last related spec got a value and abort if not.
-            set is_p_flag [$objp is_flag] ;#sub can be a flag even if parent isn't
-            set processorname [$objp name]
-            if {[$objp is_sub]} {
-                if {![[$objp parent] found_match]} {
-                    continue
-                }
-                set p_sub [dict get $pinfo sub]
-            }
-            do_debug 3 $debugc " =========================>> p $p sequence:$sequence a_index $a_index"
-
-            if {$processorname in [list "global" "tail_processor"]} {
-                dict set last_p_found by $processorname
-                #dict set last_p_found index $a_index
-                #dict set last_p_found item $a
-            }
-            # -format {x {sub y  default "default"}} means y is dependent on x being present and shouldn't eat if the next value isn't flaglike
-            # -format {-x {sub -y}} does the same for moving positionals to the flagged list.
-
-
-            #set remaining_values [lrange $source_values $a_index end]
-            #####################################
-            # full rescans for later processors
-            set remaining_values $source_values  ;#source_values shrinks as commands take arguments
-            set a_index 0
-            #####################################
-
-            do_debug 3 $debugc "-------->________>p '$processorname' remaining vals $remaining_values"
-            
-            #!todo - use v_map as an extra determinant to stop sequence for a command-set. (don't extend beyond where args have already been snipped by another command)
-            if {[$objp name] eq "tail_processor"} {
-                set mapcopy [flagfilter::class_vmap new {}] ;#no need to supply values as we are copying data from $VMAP 
-                $VMAP copy_to $mapcopy
-                $objp set_map_object $mapcopy
-            } else { 
-                $objp set_map_object $VMAP
-            }
-            foreach a $remaining_values {
-              set argnum [[$objp get_map_object] argnum_from_remaining_posn $a_index]
-              if {![string is integer -strict $argnum]} {
-                  error "arg '$a'  scan_index:$a_index - calculated argnum:'$argnum' is invalid"
-
-              }
-              set sub_operand 0
-              do_debug 3 $debugc "$argnum        >eoptions_idx:$end_of_options_index a_index:$a_index __________________________________________________________a $a"
-              if {$end_of_options_index > -1} {
-                set end_of_options [expr {$a_index >= $end_of_options_index}]
-              }
-
-              #review - data with leading - may be unintentionally interpreted as a flag
-              if {[string trim $a] eq "--"} {
-                  #generally means end of options processing..
-                  #review - pass -- through??
-                  set last_arg_was_paramflag 0  ;#we don't treat first arg following end_of_options as belonging to the flag! - it is potentially an operand to the command
-                  set is_solo_flag 0
-                  set end_of_options 1
-                  set end_of_options_index $a_index
-                  #if {[lindex $p 0] eq "tail_processor"} {
-                    $objp allocate $argnum "endofoptions" $a
-                    set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                    incr a_index -1
-                  #}
-              } else {
-                      if {($last_arg_was_paramflag) && ([$objp  arg_is_defined_solo_to_me $a])} {
-                          #last flag expecting param - but this flag *known* to be solo
-                          #keep it simple and break out at first solo_flag related error ...unless it is trailing flag in the list
-                          lappend argerrors [list flagerror solo_flag_following_non_solo_flag bad_flag $a]
-                          set last_arg_was_solo 1
-                          break
-                      }
-                      #set is_solo_flag [expr {($a in $solo_flags)}]
-                      #set is_solo_flag [is_this_flag_solo $a $solo_flags $objp]
-                      set is_solo_flag [$objp arg_is_defined_solo_to_me $a]
-
-                      if {!$end_of_options} {
-                        if {!$last_arg_was_paramflag} {
-                          if {!$is_solo_flag} {
-                              set is_args_flag [is_candidate_toplevel_param_flag $a $solo_flags $cmdprocessor_records]
-                              #set is_args_flag [string match -* $a]
-                          }
-                          if {$is_args_flag || $is_solo_flag} {
-                            if {[dict get $last_p_found by] eq $processorname} {
-                              if {![is_this_flag_for_me $a $objp $cf_args]} {
-                                if {$processorname ne "globalXXX"} {
-                                    do_debug 3 $debugc "----breaking--- $processorname already found a value [dict get $last_p_found item] and has now hit an unrecognized option: $a"
-                                    break
-                                }
-                              }
-                            }
-                          }
-                        } else {
-                            #last was flag expecting a param
-                            set is_args_flag 0
-                            set is_solo_flag 0
-                        }
-                      } else {
-                          #end_of_options - ignore solo and other flags now.
-                          set is_args_flag 0
-                          set is_solo_flag 0
-                          set last_arg_was_paramflag 0
-
-                      }
-
-                  #puts stderr "!!!!!!!!!!!!!!!!!!1 here is_args_flag:$is_args_flag"
-                  do_debug 3 $debugc "        >________>________>is_p_flag: $is_p_flag last_arg_was_paramflag:$last_arg_was_paramflag is_args_flag:$is_args_flag is_solo: $is_solo_flag (soloflags:$solo_flags) a:$a "
-                  if {!$is_args_flag && !$is_solo_flag } {
-
-                      if {!$last_arg_was_paramflag} {
-                          if {[dict get $last_p_found by] eq $processorname} {
-                            if {$processorname ne "tail_processor"} {
-                              #we already found our unflagged value - and now we've hit another - time to break and hand it to a subcommand processor if any
-                              do_debug 3 $debugc "----breaking--- $processorname already found a value [dict get $last_p_found item] and has now hit another value: $a"
-                              break
-                            }
-                          }
-                          set sequence_ok 1  ;#default assumption
-                          set can_allocate [can_this_commandspec_allocate_this_arg $a $p $cf_args]
-
-                          if {$can_allocate} {
-                              if {$is_sub} {
-                                  #!todo - use v_map as sequence terminator
-                                  #check if our find is in sequence
-                                  #we are only hunting non-flagged items and the the previous finder removes 1 from the source_values list
-                                  #therefore the a_index of our find should be the same if we are processing the very next argument.
-                                  #we have already checked that it was a related entity which found the last one.
-                                  #todo - review if it matters when parents/siblings don't eat all the way up to the next -flag.
-                                  #todo - implement a 'gather' key to keep eating in sequence and accumulate the values as a list
-                                  if {$a_index > [dict get $last_p_found index]} {
-                                      do_debug 3 $debugc "OUT OF SEQUENCE a_index:$a_index vs last_found index:[dict get $last_p_found index], $processorname disengaging - ignoring value $a and leaving it to the next processor"
-                                      set last_arg_was_paramflag 0
-                                      do_debug 3 $debugc "<--- breaking --->"
-                                      break
-                                  } elseif {$a_index < [dict get $last_p_found index]} {
-                                      #too early.... found something before previous match
-                                      do_debug 3 $debugc "+++++++++++++++out of sequence $processorname - too early.. keeping scanning"
-                                      set sequence_ok 0
-                                  }
-                                  if {$sequence_ok} {
-                                      set sub_operand 1
-                                  }
-                              }
-                          }
-
-                          if {$can_allocate && $sequence_ok} {
-                              #found a non-flagged value in the argumentlist to either reallocate to flagged values or to positional values
-                              if {[dict exists $pinfo dispatch]} {
-                                  if {!$is_sub} {
-                                      #this must be the arg that caused the match
-                                      dict set dispatch $parentname [list command [dict get $pinfo dispatch] matched $a arguments [list] raw [list]]
-                                  } else {
-                                      #todo
-                                      lappend argerrors [list unsupported_dispatch $processorname]
-                                  }
-                              }
-                              if {$sub_operand} {
-                                  if {[dict exists $dispatch $parentname]} {
-                                      #todo - defaults?
-                                      add_dispatch_argument  "dispatch" $parentname $processorname $a
-                                      add_dispatch_raw       "dispatch" $parentname $a
-                                  } else {
-                                      #warning?
-                                      #lappend argerrors [list subcommand_unable_to_add_operand $processorname]
-                                      do_debug 3 $debugc "subcommand $processorname aborting scanning because parent command wasn't activated"
-                                      break
-                                  }
-                              }
-                              do_debug 2 $debugc "        >+++++++>++++++++>++++++++>setting $processorname [if {$is_p_flag} {list -} {}]value  $a"
-                              if {$processorname eq "tail_processor"} {
-                                  set argnum [[$objp get_map_object] argnum_from_remaining_posn $a_index]
-                                  set argname arg$argnum
-                                  lappend remaining_unflagged $argname $a
-                                  lappend unconsumed_flags_and_values $a
-                                  dict set unflagged $argname $a
-                              } elseif {$is_p_flag} {
-                                  $objp set_matched_argument $argnum $a
-                                  if {$is_sub} {
-                                      dict set extra_flags_from_positionals $p_sub $a
-                                  } else {
-                                      dict set extra_flags_from_positionals $parentname $a
-                                  }
-                                  lappend moved_to_flagged $processorname $a
-                                  #if has dependent commands ? - check for deep subcommand match?
-                              } else {
-                                  $objp set_matched_argument $argnum $a
-                                  #lappend positional_values $a
-                                  dict set unflagged $processorname $a
-                              }
-                              do_debug 4 $debugc "        >________>________>________>source_values :'$source_values'"
-                              do_debug 3 $debugc "        >________>________>________>source_values len:[llength $source_values] removing element $a_index val:[lindex $source_values $a_index]"
-
-                              #----------------------------
-                              dict set last_p_found by $processorname
-                              dict set last_p_found index $a_index
-                              dict set last_p_found item $a
-                              #------------------------------
-                              $objp allocate $argnum "operand" $a
-                              set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                              incr values_index       ;#only increment when we allocate a value to one of the members of -commandprocessors
-                              set last_arg_was_paramflag 0
-                              if {$processorname ne "tail_processor"} {
-                                  #don't break until we hit an unrecognized flag or another unflagged value
-                                  incr a_index -1 
-                                  #don't increment a_index before break, because we have shortened the list by 1.
-                                  #do_debug 3 $debugc "----breaking---"
-                                  #break
-                              } else {
-                                  #decrement to compensate for shortened list because tail_processor continues to end
-                                  incr a_index -1
-                              }
-                          }
-
-                      } else {
-                        #last_arg_was_paramflag
-                        set lastarg [dict get $last_p_found item]
-                        #puts stdout "+++ lastarg: $lastarg  source_values: [dict get $last_p_found source_values]  a_index: $a_index" 
-                        if {$processorname eq "tail_processor"} {
-                          lappend unconsumed_flags_and_values $a
-                        }
-                        if {([dict get $last_p_found by] eq $processorname) && [is_this_flag_for_me $lastarg $objp $cf_args]} {
-                          update_dispatch_argument "dispatch" $parentname $lastarg $a
-                          add_dispatch_raw         "dispatch" $parentname $a
-                          dict set last_p_found by $processorname
-                          dict set last_p_found index $a_index
-                          dict set last_p_found item $a
-                          $objp allocate $argnum "flagvalue" $a
-                          set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                          incr a_index -1
-                        }
-                        set last_arg_was_paramflag 0
-                      }
-                  } else {
-                    # is a flag of some sort ({!$is_args_flag && !$is_solo_flag} = false)
-                    if {$processorname eq "tail_processor"} {
-                      lappend unconsumed_flags_and_values $a
-                    }
-                    if {([dict get $last_p_found by] eq $processorname) && [is_this_flag_for_me $a $objp $cf_args]} {
-                      if {$is_solo_flag} {
-                        add_dispatch_argument "dispatch" $parentname $a 1
-                        add_dispatch_raw      "dispatch" $parentname $a
-                        set last_arg_was_solo 1
-                        set last_arg_was_paramflag 0
-                        $objp allocate $argnum "soloflag" $a
-                      } else {
-                        add_dispatch_argument "dispatch" $parentname $a "<pending>"
-                        add_dispatch_raw      "dispatch" $parentname $a
-                        set last_arg_was_solo 0
-                        set last_arg_was_paramflag 1
-                        $objp allocate $argnum "flag" $a
-                      }
-                      dict set last_p_found by $processorname
-                      dict set last_p_found index $a_index
-                      dict set last_p_found item $a
-                      do_debug 4 $debugc "        >2_______>________>________>source_values :'$source_values'"
-                      do_debug 3 $debugc "        >2_______>________>________>source_values len:[llength $source_values] removing element $a_index val:[lindex $source_values $a_index]"
-                      set source_values [lreplace $source_values[set source_values {}] $a_index $a_index] ;#inlineK
-                      incr a_index -1
-                    } else {
-                      #auto alternate based on last value.. unless end_of_options
-                      if {!$end_of_options} {
-                          if {$a in $solo_flags} {
-                              set last_arg_was_solo 1
-                              set last_arg_was_paramflag 0
-                          } else {
-                              set last_arg_was_paramflag 1
-                          }
-                      }
-                      if {$a_index eq ([llength $source_values]-1)} {
-                          #puts "XXXXXXXXXXXXXXXXXXX $a_index   source_values:'$source_values'"
-                          #if at end of list don't retain any last..was info.
-                          set last_arg_was_solo 0
-                          set last_arg_was_paramflag 0
-                      }
-                      #skip - don't eat
-                    }
-                  }
-              }
-              incr a_index
-            }
-
-            if {![$objp found_match]} {
-                
-                #after break - we have retained vars: $parent, $sub_operand $pinfo $processorname etc
-                #didn't find an unflagged var - set a default if one was specified.
-                #do nothing otherwise - check_args will determine if it was -required etc.
-                #review - should only apply if parent cmd found something?
-                if {[dict exists $pinfo default]} {
-                    set defaultval [dict get $pinfo default]
-                    if {$is_p_flag} {
-                        if {$is_sub} {
-                          dict set extra_flags_from_positionals $p_sub $defaultval
-                        } else {
-                          dict set extra_flags_from_positionals $processorname $defaultval
-                        }
-                        #lappend moved_to_flagged $processorname $defaultval
-                        lappend implied_flagged $processorname $defaultval
-                        do_debug 3 $debugc "SETTING DEFAULT varname:$processorname $defaultval implied_flagged: $implied_flagged "
-                    } else {
-                        lappend implied_unflagged $processorname $defaultval
-                        dict set unflagged $processorname $defaultval
-                        do_debug 3 $debugc "SETTING DEFAULT varname:$processorname $defaultval moved_to_flagged: $moved_to_flagged "
-                    }
-
-                    if {$is_sub && !$sub_operand} {
-                        if {[dict exists $dispatch $parentname]} {
-                            add_dispatch_argument "dispatch" $parentname $processorname $defaultval
-                        } else {
-                            lappend argerrors [list subcommand_unable_to_add_default_operand $processorname $defaultval]
-                        }
-                    }
-                }
-            }
-
-            if {[$objp name] eq "tail_processor"} {
-                $VMAP update_map_from [$objp get_map_object]
-            }
-
-            if {[llength $argerrors]} {
-                set parsestatus "error"
-                #abort processing at first error - we won't be able to make sense of the remaining args anyway
-                #even the tail_processor won't be able to classify reliably because flag meanings depend on the configured commands
-                break
-            }
-        }
-
-        #assertion - should be none?
-        #set remaining_values [lrange $source_values $a_index end]
-        #do_debug 3 $debugc "-------->________>end of processing - remaining vals $remaining_values"
-
-        do_debug 2 $debugc "========>=========>originals : $values"
-        do_debug 2 $debugc "[$VMAP get_map]"
-        do_debug 2 $debugc "========>=========>unconsumed: $unconsumed_flags_and_values"
-
-
-
-
-
-        set all_flagged  [$VMAP get_merged_flagged_by_class *]
-        set all_flagged_plus [concat $all_flagged $extra_flags_from_positionals]
-        
-        set all_flagged_list [$VMAP get_list_flagged_by_class *]
-        set all_flagged_list [concat $all_flagged_list $extra_flags_from_positionals]
-         
-        set remaining_flagged [$VMAP get_merged_flagged_by_class "unallocated"]
-
-        set remaining_flagged_list [$VMAP get_list_flagged_by_class "unallocated"]
-
-
-        set unflagged_list_in_processing_order [dict values $unflagged]
-        set unflagged_list [$VMAP get_list_unflagged_by_class *]
-
-        set unflagged_list_remaining [$VMAP get_list_unflagged_by_class "unallocated"]
-
-        return [dict create \
-            listremaining $unconsumed_flags_and_values \
-            parseerrors             $argerrors \
-            parsestatus             $parsestatus \
-            flagged                 $all_flagged_plus \
-            flaggedlist             $all_flagged_list \
-            flaggedremaining        $remaining_flagged \
-            flaggedlistremaining    $remaining_flagged_list \
-            unflagged               $unflagged \
-            unflaggedlist           $unflagged_list \
-            unflaggedremaining      $remaining_unflagged \
-            unflaggedlistremaining  $unflagged_list_remaining \
-            flaggednew              $extra_flags_from_positionals \
-            arglist                 [concat $unflagged_list_in_processing_order $all_flagged] \
-            arglistremaining        [concat $unflagged_list_remaining $remaining_flagged] \
-            impliedflagged          $implied_flagged \
-            impliedunflagged        $implied_unflagged \
-            dispatch                $dispatch \
-            classifications         [$VMAP get_map] \
-            gridstring              "\n[$VMAP grid]" \
-            vmapobject              "flagfilter::VMAP_$runid" \
-            ]
-    }
-
-
-
-
-
-
-
-    
-
-    
-
-    #specialisation for collection class to contain commandprocessors
-    # we expect to use only a single instance of this
-    oo::class create col_allprocessors {
-        superclass oolib::collection
-        variable o_commandspecs
-        method add_processor {p} {
-            my add $p [$p name]
-            if {[$p is_sub]} {
-                set parentname [$p parentname]
-                set obj_parent [my item $parentname]
-                set col_siblings [$obj_parent children]
-                $col_siblings add $p [$p name]
-            }
-        }
-        method set_commandspecs {cspecs} {
-            set o_commandspecs $cspecs
-        }
-        method get_commandspecs {} {
-            set o_commandspecs
-        }
-        #treating as singleton.. todo tidy
-        method name_from_record {rec} {
-            lassign $rec parentname pinfo
-            if {[dict exists $pinfo sub]} {
-                set name [join [list $parentname [dict get $pinfo sub]] .]
-            } else {
-                set name $parentname
-            }
-            return $name
-        }
-        method object_from_record {rec} {
-            set name [my name_from_record $rec]
-            return [my item $name]
-        }
-        #basic check if arg may consume the following one - not based on any specific info from processors
-        method arg_appears_standalone {f} {
-            if {(![string match "-*" $f]) && (![string match "/*" $f])} {
-                #not even flaglike
-                return 1
-            }
-            if {$f in {- --}} {
-               return 1 
-            }
-        }
-        #does any processor define it as solo
-        method flag_can_be_solo {f} {
-            foreach objp [my items] {
-                if {[$objp arg_is_defined_solo_to_me $f]} {
-                    return 1
-                }
-            }
-            return 0
-        }
-    }
-    oo::class create col_parents {
-        superclass oolib::collection
-        method add_parent {p} {
-            if {[$p is_sub]} {
-                error "cannot add a sub-processor to the main parents collection"
-            }
-            my add $p [$p name]
-        }
-    }
-    #each parent processor has a children collection which can only accept processors with sub defined.
-    oo::class create col_childprocessors {
-        superclass oolib::collection
-        variable o_ownername
-        method set_owner {parentname} {
-            set o_ownername $parentname
-        }
-        #owner of the collection (a parent processor)
-        method owner {} {
-            return $o_ownername
-        }
-        method add_processor {p} {
-            if {![$p is_sub]} {
-                error "processor must have 'sub' element to add to the parent's collection"
-            }
-            #check name matches this parent..
-            
-            my add $p [$p name]
-        }
-    }
-
-    oo::class create cprocessor {
-        variable o_runid
-        variable o_name
-        variable o_definition
-        variable o_pinfo
-        variable o_parentname
-        variable o_is_sub
-        variable o_col_children
-        variable o_mashopts
-        variable o_singleopts
-        variable o_pairopts
-        variable o_longopts
-        variable o_found_match  ;#we directly matched a command trigger or positional argument
-        variable o_matched_argument
-        variable o_matched_argnum
-        variable o_matchspec
-        variable o_vmap
-        constructor {definition runid} {
-            set o_vmap ""
-            set o_definition $definition
-            set o_runid $runid
-            if {([llength $o_definition] < 2) || ([llength [lindex $o_definition 0]] != 1)} {
-                error "[self class].constructor Unable to interpret definition '$o_definition'"
-            }
-            lassign $o_definition o_parentname o_pinfo
-            if {([llength $o_pinfo] %2) != 0} {
-                error "[self class].constructor second element of definition '$o_definition' not a dict"
-            } 
-            set o_is_sub [dict exists $o_pinfo sub]
-            if {!$o_is_sub} {
-                set o_name $o_parentname
-                set o_col_children [::flagfilter::col_childprocessors new]
-                $o_col_children set_owner $o_name
-            } else {
-                set o_name [join [list $o_parentname [dict get $o_pinfo sub]] .]
-            }
-            if {[dict exists $o_pinfo match]} {
-                set o_matchspec [dict get $o_pinfo match]
-            } else {
-                set o_matchspec {^[^-^/].*}  ;#match anything that isn't flaglike
-            }
-            set o_found_match 0
-            set o_matched_argument "" ;#need o_found_match to differentiate match of empty string
-            set o_matched_argnum -1
-            #load mashopts etc at construction time as they're static
-            set o_mashopts [list]
-            set o_singleopts [list]
-            set o_pairopts [list]
-            set o_longopts [list]
-            if {[dict exists $o_pinfo mashopts]} {
-                lappend o_mashopts {*}[dict get $o_pinfo mashopts]
-            }
-            if {[dict exists $o_pinfo singleopts]} {
-                lappend o_singleopts {*}[dict get $o_pinfo singleopts]
-            }
-            if {[dict exists $o_pinfo pairopts]} {
-                lappend o_pairopts {*}[dict get $o_pinfo pairopts]
-            }
-            if {[dict exists $o_pinfo longopts]} {
-                lappend o_longopts {*}[dict get $o_pinfo longopts]
-            }
-        }
-        destructor {
-            catch {$o_vmap destroy}
-            if {!$o_is_sub} {
-                $o_col_children destroy
-            }
-        }
-
-        method name {} {
-            return $o_name
-        }
-        #open things up during oo transition..
-        method get_def {} {
-            return $o_definition
-        }
-        method is_flag {} {
-            if {[my is_sub]} {
-                #sub can be a flag even if parent isn't
-                set subname [dict get $o_pinfo sub]
-                return [string match -* $subname]
-            } else {
-                return [string match -* $o_name]
-            }
-        }
-        method has_same_parent {other} {
-           return [expr {[other parentname] eq $o_parentname}]
-        }
-        method is_sub {} {
-            return $o_is_sub
-        }
-
-        method set_map_object {map} {
-            set o_vmap $map
-        }
-        method get_map_object {} {
-            return $o_vmap
-        }
-        method allocate {argnum type val} {
-            if {$o_vmap eq ""} {
-                error "[self class].allocate ($o_name) vmap is not set."
-            }
-            $o_vmap allocate [self object] $argnum $type $val
-        }
-
-        method found_match {} {
-            return $o_found_match
-        }
-        method matched_argument {} {
-            return $o_matched_argument
-        }
-        method matched_argnum {} {
-            return $o_matched_argnum
-        }
-        method set_matched_argument {argnum a} {
-            #could be empty string 
-            if {$o_found_match} {
-                error "[self object].set_matched_argument processor:$o_name already found match '$o_matched_argument' - cannot set again"
-            }
-            if {![my can_match $a]} {
-                error "error [self class].set_matched_argument processor:$o_name cannot match '$a' (matchspec: $o_matchspec)"
-            }
-            set o_found_match 1
-            set o_matched_argument $a
-            set o_matched_argnum $argnum
-        }
-        method has_explicit_matchspec {} {
-            return [dict exists $o_pinfo match]
-        }
-        method matchspec {} {
-            return $o_matchspec
-        }
-        method can_match {a} {
-            if {!$o_found_match} {
-                foreach m $o_matchspec {
-                    if {[regexp -- $m $a]} {
-                        return 1
-                    }
-                }
-                return 0
-            } else {
-                return 0
-            }
-        }
-        #??
-        method can_allocate_flags {} {
-        }
-
-
-
-
-
-        #if we are a parent - this is own name
-        method parentname {} {
-            return $o_parentname
-        }
-        method parent {} {
-            return  [::flagfilter::obj::PARENTS_$o_runid item $o_parentname]
-        }
-        method is_parent {} {
-            return [expr {!$o_is_sub}]
-        }
-        method children {} {
-            if {!$o_is_sub} {
-                return $o_col_children
-            } else {
-                #raise error?
-                return ""
-            }
-        }
-        method mashopts {} {
-            return $o_mashopts
-        }
-        method singleopts {} {
-            return $o_singleopts
-        }
-        method pairopts {} {
-            return $o_pairopts
-        }
-        method longopts {} {
-            return $o_longopts
-        }
-
-        #whether flag categorized as solo by this processor
-        method arg_is_defined_solo_to_me {a} {
-            if {(![string match "-*" $a]) && (![string match "/*" $a])} {
-                #not even flaglike
-                return 0
-            }
-            if {[my can_match $a]} {
-                return 0
-            }
-            if {$a in {- --}} {
-               #specials not defined as solos
-               return 0 
-            }
-
-           if {$o_name eq "global"} {
-
-           } elseif {$o_name eq "tail_processor"} {
-               
-           }
-
-           if {$a in $o_singleopts} {
-               return 1
-           } 
-           if {"any" in $o_singleopts} {
-               return 1
-           }
-           set equalposn [string first "=" $a]
-           if {$equalposn >=1} {
-               if {"any" in $o_longopts} {
-                   return 1
-               } else {
-                   set namepart [string range $a 0 $equalposn-1]
-                   foreach lo $o_longopts {
-                       if {[string match "${namepart}=*" $lo]} {
-                           return 1
-                       }
-                   }
-               }
-           }
-           #Flag could still be part of a solo if it is in mashopts *and* has a value following it as part of the mash  
-           #- but if it's a pairopt, but not mashable - we can rule it out now
-           if {($a in $o_pairopts) && ($a ni $o_mashopts)} {
-               return 0
-           }
-           set flagletters [split [string range $a 1 end] ""]
-           set posn 1
-            #trailing letters may legitimately not be in mashopts if they are part of a mashed value
-            #we can return 0 if we hit a non-mash flag first.. but at each mashflag we need to test if we can classify as definitely solo or not, or else keep processing
-            foreach l $flagletters {
-                if {"-$l" ni $o_mashopts} {
-                    #presumably an ordinary flag not-known to us
-                    return 0
-                } else {
-                    if {"-$l" in $o_pairopts} {
-                        if {$posn == [llength $flagletters]} {
-                            #in pairopts and mash - but no value for it in the mash - thefore not a solo
-                            return 0
-                        } else {
-                            #entire tail is the value - this letter is effectively solo
-                            return 1
-                        }
-                    } elseif {"-$l" in $o_singleopts} {
-                        #not allowed to take a value - keep processing letters
-                    } else {
-                        #can take a value! but not if at very end of mash. Either way This is a solo
-                        return 1
-                    }
-                }
-            }
-            #This object should not treat the flag as a known solo 
-            #- so if it is allowed to consume it, it may fall back on examining the subsequent argument's flaginess(?)
-            return 0
-        }
-
-
-        method get_opts {} {
-            return [list mashopts $o_mashopts singleopts $o_singleopts pairopts $o_pairopts longopts $o_longopts]
-        }
-        #include parent opts
-        #we use the terminology 'option' for "-" prefixed items belonging to a -commandprocessors spec as opposed to more general -flags
-        #Note - this may also be called on the default "tail_processor", which will return empty sets, or an overridden tail_processor which may have data
-        method get_combined_opts {} {
-            set objparent [::flagfilter::obj::PARENTS_$o_runid item $o_parentname]
-            set parentopts [$objparent get_opts]
-            set mashopts   [dict get $parentopts mashopts]
-            set singleopts [dict get $parentopts singleopts]
-            set pairopts   [dict get $parentopts pairopts]
-            set longopts   [dict get $parentopts longopts]
-            if {[my is_sub]} {
-                #this spec is a sub 
-                set subopts [my get_opts] 
-                #does order matter? could use struct::set union ?
-                foreach m [dict get $subopts mashopts] {
-                    if {$m ni $mashopts} {
-                        lappend mashopts $m
-                    }
-                }
-                foreach s [dict get $subopts singleopts] {
-                    if {$s ni $singleopts} {
-                        lappend singleopts $s
-                    }
-                }
-                foreach po [dict get $subopts pairopts] {
-                    if {$po ni $pairopts} {
-                        lappend pairopts $po
-                    }
-                }
-                foreach lo [dict get $subopts longopts] {
-                    if {$lo ni $longopts} {
-                        lappend longopts $lo
-                    }
-                }
-
-            }
-            return [list mashopts $mashopts singleopts $singleopts pairopts $pairopts longopts $longopts]
-        }
-
-    }
-
-
-
-
-
-
-
-
-
-
-
-    proc get_command_info {cmdname cspecs} {
-        foreach item $cspecs {
-            lassign $item cmd specinfo
-            if {$cmd eq $cmdname && [dict exists $specinfo dispatch]} {
-                return $specinfo
-            }
-        }
-        return [list]
-    }
-    #### check_flags
-    # does not support unvalued flags  - unless explicitly specified in -soloflags (global)  or in -singleopts for a commandprocessor
-    #e.g not supported:  v1 v2 -arg1 arg1val -debug -anotherflag anotherflagval
-    #  - unless -soloflags is something like -soloflags {-debug}  or -soloflags {{-debug 1}} where 1 is the default. In this case - we can no longer support accepting a value for -soloflags  - the processor will not assign it an argument from the commandline.
-    #e.g not supported (unless -debug in -soloflags):  v1 v2 -arg1 arg1val -anotherflag anotherflagval -debug
-    #e.g supported:      v2 v2 -arg1 arg1val -debug 1 -anotherflag anotherflagval
-    # supports positional arguments - but only if specified in -commandprocessors 
-    # todo
-    # - supports -- for treating following arg as value even if it looks like a flag
-    # - supports - for reading stdin
-    # expects at least -values
-    # other options -caller <name> -defaults <dict_keyed_on_dashed_flags> -required <list_of_dashed_flags &| ("all"|"none")>  -extras <list_of_dashed_flags|"all"> -commandprocessors
-    #  -soloflags <list of -flag and {-flag default}>  (these are flags that *must* be solo - ie they cannot take an argument ) if no default specified they are boolean defaulting to 1, repeated instances in -values will be appended to a list.
-    #  The only flag that can be a mix of solo or not, is the very last flag in the values list. In this case it must not be in the -soloflags list, but it will default to a boolean 1 to indicate presence.
-    proc check_flags {args} {
-        set runid [flagfilter::get_new_runid]
-        ####################################################
-        #puts "Entered checkflags, args $args"
-        set distanceToTop [info level]
-        set callerlist [list]
-        set was_dispatched_by_another 0  ;#used to 
-        for {set i 1} {$i < $distanceToTop} {incr i} {
-          set callerlevel [expr {$distanceToTop - $i}]
-          set callerinfo [info level $callerlevel]
-          set firstword [lindex $callerinfo 0]
-          if {[string match "*check_flags*" $firstword]} {
-              set was_dispatched_by_another 1
-          }
-          lappend callerlist $firstword
-        }
-        #puts stdout "callerlist: $callerlist"
-
-        #first handle args for check_flags itself
-        if {[catch {lindex [info level -1] 0} caller]} {
-            set caller "<global>"
-        }
-        #puts stderr ">>>>check_flags caller $caller"
-        get_one_paired_flag_value {-x 1} -x ;#
-
-        #manually check for -caller even if unbalanced args
-        #we only need to use get_one_paired_flag_value because we haven't yet checked args is a properly formed paired list and if -caller is present we want to use it for clearer error messages.
-        #use normal dict operations to retrieve other flags.
-        #if failed to retrieve.. fall through to checks below
-        if {![catch {get_one_paired_flag_value $args -caller} flag_value_result]} {
-            set caller $flag_value_result
-        }
-        #puts stderr ">>>>check_flags caller $caller"
-
-
-
-
-        set cf_defaults [dict create\
-            -caller $caller\
-            -return [list arglistremaining]\
-            -match  [list]\
-            -commandprocessors [list]\
-            -soloflags [list]\
-            -extras    [list]\
-            -defaults [list]\
-            -required [list]\
-            -values  \uFFFF\
-            -debugargs 0\
-        ] 
-        dict set cf_defaults -debugargsonerror 1 ;#error level to use when dispatch error occurs.. will not set lower than -debugargs
-
-
-
-        if {([llength $args] % 2) != 0} {
-            do_error "check_flags error when called from '$caller' :check_flags must be called with even number of arguments of form: -flag value  Valid flags are: '[dict keys $cf_defaults]' \n got: $args"
-        }
-        set cf_args $cf_defaults
-        foreach {k v} $args {
-            switch -- $k {
-                -caller - -return - -match - -commandprocessors - -soloflags - -extras - -defaults - -required - -values - -debugargs - -debugargsonerror {
-                    dict set cf_args $k $v
-                } 
-                default {
-                    do_error "check_flags error when called from ${caller}: Unknown option '$k': must be one of '[dict keys $cf_defaults]' \nIf calling check_flags directly, put args being checked in -values {...}"
-                }
-            }
-        }
-        unset args
-        ####################################################
-        #now look at -values  etc that check_flags is checking
-
-        set caller   [dict get $cf_args -caller]
-
-        set debugargs [dict get $cf_args -debugargs]
-        dict set debugc -debugargs [dict get $cf_args -debugargs]
-        dict set debugc -source "check_flags $caller"
-        do_debug 1 $debugc "DEBUG-START $caller"
-        
-        set returnkey [dict get $cf_args -return]
-        set defaults [dict get $cf_args -defaults]
-         if {([llength $defaults] % 2) != 0} {
-            do_error "check_flags error when called from '$caller' :-defaults  must be a list containing an even number of arguments of form: -flag value'"
-         }
-        set required [dict get $cf_args -required]
-
-
-        set acceptextra   [dict get $cf_args -extras]
-
-        set supplied [string trim [dict get $cf_args -values]]
-        set soloflags [dict get $cf_args -soloflags]  ;#By their nature - solo flags are unlikely to be  automatically 'required' - review
-        set solos_with_defaults [list]
-        foreach solo_spec $soloflags {
-            if {[llength $solo_spec] == 1} {
-                lappend solos_with_defaults  $solo_spec 1
-            } else {
-                lappend solos_with_defaults [lindex $solo_spec 0] [lindex $solo_spec 1]
-            }
-
-        }
-
-        if {$debugargs >= 3} {
-            set prefix "| $caller>"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            puts -nonewline stderr "$prefix input\n"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            #puts stderr "$caller $cf_args"
-            dict for {k v} $cf_args {
-                if {$k ne "-commandprocessors"} {
-                    puts -nonewline stderr "$prefix \[$k\]\n"
-                    puts -nonewline stderr "$prefix $v\n"
-                }
-            }
-            if {$debugargs >=4} {
-                puts -nonewline stderr "$prefix \[-commandprocessors\]\n"
-                foreach record [dict get $cf_args -commandprocessors] {
-                    puts -nonewline stderr "$prefix    $record\n"
-                }
-            }
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            #dict for {key val} $cf_args {
-            #    puts stderr "  $key"
-            #    puts stderr "    $val"
-            #}
-        }
-
-
-        ##################################################################################################
-        # allocate_arguments  does the main work of processing non-flagged items in the main supplied argument list into flagged versions depending on the specs in -commandprocessors
-        # It sets defaults only for those arguments processed by a '-commandprocessors' spec.
-        # We must supply it with the -soloflags info because the solo flags affect what is considered an operand.
-        set command_specs [dict get $cf_args -commandprocessors] ;#may be empty list - that's ok - it will still populate the 'flagged' and 'arglist' return-dict members.
-
-        #some of these are keys returned by allocate_arguments 
-        # - some (e.g supplied) are added by check_flags
-        # This list is the list of -return values that can be used with check_args
-        set flaginfo_returns [list \
-            parseerrors \
-            parsestatus \
-            flagged \
-            flaggedremaining \
-            flaggednew \
-            unflagged \
-            unflaggedremaining \
-            unflaggedlistremaining \
-            listremaining \
-            arglist \
-            arglistremaining \
-            impliedunflagged \
-            impliedflagged \
-            classifications \
-            gridstring \
-            ranges \
-            dispatch \
-            dispatchstatuslist \
-            dispatchresultlist \
-            dispatchstatus \
-            supplied \
-            defaults \
-            status \
-            vmapobject \
-            ]
-
-        set PROCESSORS  [col_allprocessors create ::flagfilter::obj::PROCESSORS_$runid]
-        set PARENTS     [col_parents create ::flagfilter::obj::PARENTS_$runid] 
-
-        #
-        #set command_specs [concat [list {global {}}] $command_specs]
-        lappend command_specs {tail_processor {}}
-
-        foreach cspec $command_specs {
-            set obj [cprocessor new $cspec $runid] ;#runid gives access to the context-objects PROCESSORS_runid & PARENTS_runid
-            if {[$obj is_parent]} {
-                $PARENTS add_parent $obj
-            }
-            #do_debug 1 $debugc "CONFIGURING OBJECT for commandprocessor [$obj name]"
-            $PROCESSORS add_processor $obj
-        }
-        do_debug 1 $debugc "ADDED [$PROCESSORS count] processors to main commandprocessor collection"
-        do_debug 1 $debugc "ADDED [$PARENTS count] processors to the parents collection"
-        $PROCESSORS set_commandspecs $command_specs
-
-        #allocate_arguments uses the PROCESSORS object
-        set processed_arguments [allocate_arguments $PROCESSORS $solos_with_defaults $supplied $cf_args $caller]
-        #set processed_arguments [allocate_arguments {} $supplied]
-
-        set newly_flagged_positionals [dict get $processed_arguments flaggednew]
-        set unflaggedremaining        [dict get $processed_arguments unflaggedremaining]
-        set unflaggedlistremaining    [dict get $processed_arguments unflaggedlistremaining]
-        set dispatch                  [dict get $processed_arguments dispatch]
-        set flaggedremaining          [dict get $processed_arguments flaggedremaining]
-        set RETURNED_VMAP             [dict get $processed_arguments vmapobject]
-
-
-
-        if {$debugargs >= 3} {
-            set prefix "| $caller>"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            puts -nonewline stderr "$prefix output\n"
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-            #puts stderr "processed_arguments: $processed_arguments"
-            dict for {key val} $processed_arguments {
-                puts -nonewline stderr "$prefix  $key\n"
-                puts -nonewline stderr "$prefix    $val\n"
-            }
-            puts -nonewline stderr "$prefix [string repeat - 30]\n"
-        }
-
-        ##################################################################################################
-
-
-
-
-
-        if {![llength $newly_flagged_positionals]} {
-            if {($supplied eq "\uFFFF") || ![llength $supplied]} {
-                #do_error "check_flags error when called from ${caller}: missing or empty -values"
-            }
-        }
-
-        #probably not something to enforce... we might pass on unbalanced lists to other check_args etc.
-        #if {([llength $supplied] % 2) != 0} {
-        #    do_error  "${caller}: Error. $caller must be called with even number of arguments of form: -flag value  Valid flags are: '[dict keys $defaults]'\n received values: $supplied"
-        #}
-
-
-
-        set new_arg_list [dict get $processed_arguments arglistremaining]
-        set flagged_list [dict get $processed_arguments flagged]
-        #set suppliedkeys_with_extrakeys [concat [dict keys $supplied] [dict keys $newly_flagged_positionals]]
-        #puts stdout "suppliedkeys and new keys: $suppliedkeys_with_extrakeys"
-
-        #todo - add flaggednew to required if all was specified?
-        #check invalid flags if not indicated in -extras  , either explicitly or with 'extra'
-        set flags_from_required [get_flagged_only $required {}]
-        #set known_flags [lsort -unique -nocase [concat [dict keys $defaults] $flags_from_required $soloflags]] ;#why -nocase? why should -l and -L collapse to the uppercase version?
-        set known_flags [punk::lib::lunique_unordered [concat [dict keys $defaults] $flags_from_required $soloflags ]]
-        foreach spec $command_specs {
-            lassign $spec parentname pinfo
-            if {[string match -* $parentname] && $parentname ni $known_flags} {
-                lappend known_flags $parentname
-            }
-            if {[dict exists $pinfo sub]} {
-                if {[string match -* [dict get $pinfo sub]]} {
-                    lappend known_flags [dict get $pinfo sub]
-                }
-            }
-        }
-        do_debug 2 $debugc "------------------->known_flags: $known_flags soloflags:$soloflags"
-        set invalid_flags [list]
-        if {"all" ni [string tolower $acceptextra]} {
-            if {"none" in [string tolower $acceptextra]} {
-                set ok_extras [list]
-            } elseif {[llength $acceptextra]} {
-                set ok_extras $acceptextra
-            }
-            #todo
-            #puts stderr " check_flags - temporary disable of checking for invalid flags"
-            set pairflagged $flagged_list
-            foreach {f v} $pairflagged {
-                if {$f ni $acceptextra && $f ni $known_flags} {
-                    lappend invalid_flags $f
-                }
-            }
-        }
-        if {[llength $invalid_flags]} {
-           do_error "check_flags $caller error when called from ${caller}: unknown flags '$invalid_flags'"
-        }
-
-        set calc_required [list]
-        set keywords_in_required [lsearch -inline -all -not $required -*]
-        set bad_keywords_in_required [lsearch -regexp -nocase -all -inline -not $keywords_in_required "all|none"]
-        if {[llength $bad_keywords_in_required]} {
-            do_error "check_flags error when called from ${caller}: bad flags in '-required' it must be a list of flags of the form -flagname or ONLY one of the keywords 'none' or 'all'"
-        }
-        #keywords_in_required now known to be only comprised of (possibly case variant) values of all|none
-        if {[llength $keywords_in_required] > 1} {
-            do_error "check_flags error when called from ${caller}: specifying both 'none' and 'all' in -required is not valid, and repeated values are not valid."
-        }
-        if {"none" eq [string tolower [lindex $keywords_in_required 0]]} {
-            set calc_required [list]
-        }
-        set flags [lsearch -inline -all $required -*]
-
-        if {[llength $required]} {
-            if {[lsearch -nocase $keywords_in_required "all"] >= 0} {
-                #'all' can be present with other flags - and indicates we also require all the flags from -defaults
-                dict for {k -} $defaults {
-                    if {$k ni $calc_required} {
-                        lappend calc_required $k
-                    }
-                }
-            }
-        }
-
-        set classifications [dict get $processed_arguments classifications] ;#assertion - ordered by numerically increasing key representing positions in supplied argument list
-        set rangesets [$RETURNED_VMAP get_ranges_from_classifications $classifications]
-        set ranges [dict get $rangesets -ranges]
-        set rangesbytype [dict get $rangesets -rangesbytype] ;#unallocated are split into flag,operand and endofoptions - further splitting is easy enough to do by looking up the classifications list for each position in the supplied arg list.
-        #tailflags are the same for all dispatch items
-        set tailflagspaired [tailflagspaired $defaults $supplied $classifications $rangesbytype]
-        
-
-        set dict_supplied [dict create supplied $supplied]
-        set dict_defaults [dict create defaults $defaults]
-        set dict_ranges   [dict create ranges   $ranges]
-        set dict_rangesbytype [dict create rangesbytype $rangesbytype]
-        set raise_dispatch_error_instead_of_return ""
-        set dict_dispatch_results [list dispatchstatuslist [list] dispatchresultlist [list] dispatchstatus "ok"]
-        #todo - only dispatch if no unallocated args (must get tail_processor to allocate known flags to 'global')
-        if {[llength $dispatch]} {
-            set dispatchstatuslist [list]
-            set dispatchresultlist [list]
-            set dispatchstatus "ok"
-            #each dispatch entry is a commandname and dict
-            #set dispatchrecord [lrange $dispatch 0 1]
-            set re_argnum {%arg([0-9^%]+)%}
-            set re_argtake {%argtake([0-9^%]+)%}
-            set re_dquotedparts {(?:(?:\"[^\"]*\")|(?:\"[^\"]*"))|(?:\S*[^ \"])} ;#for use with regexp -all -inline
-            #e.g {"a b" 'b x' "x  cd "e f" g a} -> {"a b"} 'b x' {"x  cd "} e f {" g a}
-            #dumb-editor rebalancing quote for above comment "
-            foreach  {parentname dispatchrecord} $dispatch {
-                set commandinfo [get_command_info $parentname $command_specs]
-
-                do_debug 1 $debugc  ">>>>>DISPATCHRECORD: $dispatchrecord"
-
-                # e.g lscmd lscmd natsortcommandline_ls lscmd.dir x
-
-                do_debug 2 $debugc "commandinfo for $parentname: $commandinfo"
-                set command  [dict get $dispatchrecord command] 
-                #support for  %x% placeholders in dispatchrecord command
-                set command [string map {%match% %matched%} $command] ;#alias
-                set command [string map [list %matched% [dict get $dispatchrecord matched]] $command]
-
-                set argnum_indices [regexp -indices -all -inline $re_argnum $command]
-                if {[llength $argnum_indices]} {
-                    foreach {argx_indices x_indices} $argnum_indices {
-                        #argx eg %arg12%
-                        set argx [string range $command {*}$argx_indices]
-                        set x [string range $command {*}$x_indices]
-                        set command [string map [list $argx [lindex [dict get $dispatchrecord arguments] $x]] $command]
-                    }
-                }
-
-                set argsreduced [dict get $dispatchrecord arguments]
-                #set rawparts [regexp -all -inline $re_dquotedparts [dict get $dispatchrecord raw]]
-
-                #review!
-                #how will this behave differently on unix
-                package require punk::winrun
-                set rawparts [punk::winrun::unquote_wintcl [dict get $dispatchrecord raw]]
-                #set argtake_indices [regexp -indices -all -inline $re_argtake $command]
-
-
-                set start 0
-                while {[regexp -start $start -indices $re_argtake $command argx_indices x_indices]} {
-                    #argx eg %argtake12%
-                    set argx [string range $command {*}$argx_indices]
-                    set x [string range $command {*}$x_indices]
-                    set argval [lindex [dict get $dispatchrecord arguments] $x]
-                    set replacementlen [string length $argval]
-                    set command [string map [list $argx $argval] $command]
-                    set start [expr {[lindex $argx_indices 0] + $replacementlen}]
-                    set argsreduced [lremove $argsreduced $x]
-                    set rawparts [lremove $rawparts $x]
-                }
-                dict set dispatchrecord arguments $argsreduced
-                if {$start > 0} {
-                    set rawreduced [join $rawparts]
-                    dict set dispatchrecord raw $rawreduced
-                }
-
-                set argvals [dict get $dispatchrecord arguments]
-                set matched_operands [list]
-                set matched_opts [list]
-                set matched_in_order [list]
-                set prefix "${parentname}."
-                set prefixlen [string length $prefix]
-                foreach {k v} $argvals {
-                    #puts "$$$$ $k"
-                    if {[string equal -length $prefixlen $prefix $k]} {
-                        #key is prefixed with "commandname."
-                        set k [string replace $k 0 $prefixlen-1]
-                    }
-                    #todo - -- ?
-                    if {[string match -* $k]} {
-                        lappend matched_opts $k $v
-                        lappend matched_in_order $k $v
-                    } else {
-                        set kparts [split $k .]
-                        lappend matched_operands $v
-                        lappend matched_in_order $v
-                    } 
-                }
-
-                if {![dict exists $commandinfo dispatchtype]} {
-                    set dispatchtype tcl
-                } else {
-                    set dispatchtype [dict get $commandinfo dispatchtype]
-                }
-                if {![dict exists $commandinfo dispatchglobal]} {
-                    if {$dispatchtype eq "tcl"} {
-                        set dispatchglobal 1
-                    } else {
-                        set dispatchglobal 0
-                    }
-                } else {
-                    set dispatchglobal [dict get $commandinfo dispatchglobal]
-                }
-                #generally we only want to dispatch remaining flagged, and only at the tail end.(as opposed to flags occurring between command groups)
-                # -It doesn't usually make much sense to dispatch remaining unflagged items, and it would be rare to require flags occurring before the command.
-                #however - there are potential commands such as help, dryrun or maybe an analysis command that may need to see unconsumed operands or even look 'back' at prior items
-                ##update 2023-03 - we definitely want to look back to prior non-matches when we match on a script e.g   <callingprocess> tclsh8.6 -someflag etc xxx.tcl scriptarg1 -etc
-                # if we match and dispatch on *.tcl - then we may need 'tclsh8.6 -someflag etc' as the interpreter (possibly with arguments) to use.
-                # we may need a 'script' dispatchtype  (as well as the option to just pass these prior arguments as additional options for some other dispatchtypes)
-                # 
-                # todo - add supported dispatchglobal values such as all, pre, post, allpre, allpost, and classifications
-                #  where pre & post are only those occurring directly before and after the command and its args, i.e not extending beyond any prior or subsequent other command.
-                # classifications would be flagged as -classifications $classifications whereas pre and post would be added directly if specified singly, or flagged with -pre, -post etc if multiple are specified
-                # Those beginning with 'all' should also be wrapped in flags, because potentially they come from disjointed sections of the argumentlist
-                # - and we generally shouldn't supply arguments next to each other that weren't contiguous in the original list
-                # The 1,true,yes,tailflagspaired value is designed for the usecase where a common set of tail flags e.g -debug can apply to any commands matched by the filter.
-                # tail = all unallocated args after final command, including operands and end-of-options '--' (todo)
-                # tailflags = all unallocated *contiguous* flags after the final command and final operands. (ie it will deliberately miss flags following last command if there is a later operand)  (todo)
-                # tailflagspaired = same as tailflags, but any solo-flags are defaulted to 1 (flags not merged, so there might be duplicate keys) so that it's a fully paired list 
-                # In other situations - post may make sense to get the very next set of unconsumed arguments.
-                if {[string tolower $dispatchglobal] in [list 1 true yes tailflagspaired]} {
-                    set command_range_posn [lsearch -index 1 $ranges $parentname]
-                    set extraflags $tailflagspaired
-                } else {
-                    set extraflags [list]
-                }
-
-                #jn  concat allows $command to itself be a list
-                ##tcl dispatchtype
-                dict set dispatchrecord dispatchtype $dispatchtype
-                switch -- $dispatchtype {
-                    tcl {
-                        do_debug 1 $debugc "DISPATCHING with tcl arg order: $command $matched_operands $matched_opts $extraflags"
-                        #set commandline  [list $command {*}$matched_operands {*}$matched_opts {*}$extraflags]
-                        set commandline  [concat $command $matched_operands $matched_opts $extraflags]
-                    }
-                    raw {
-                        do_debug 1 $debugc "DISPATCHING with raw args : $command [dict get $dispatchrecord raw]"
-                        #set commandline [list $command {*}[dict get $dispatchrecord raw] {*}$extraflags]
-                        set commandline [concat $command [dict get $dispatchrecord raw] $extraflags]
-                    }
-                    shell {
-                        do_debug 1 $debugc "DISPATCHING with shell args : $command [dict get $dispatchrecord raw]"
-                        #assume the shell arguments are in one quoted string?
-                        set commandline [concat $command [list [dict get $dispatchrecord raw]] $extraflags]
-                    }
-                    default {
-                        #non quoted shell? raw + defaults?
-                        do_debug 1 $debugc "DISPATCHING with given arg order: $command $matched_in_order $extraflags"
-                        #set commandline  [list $command {*}$matched_in_order {*}$extraflags]
-                        set commandline  [concat $command $matched_in_order $extraflags]
-                    }
-                }
-                
-                dict set dispatchrecord asdispatched $commandline
-                set dispatchresult ""
-                set dispatcherror ""
-                if {![catch {{*}$commandline} cmdresult]} {
-                    set dispatchresult $cmdresult
-                    lappend dispatchstatuslist [list status ok cmd $parentname outputlength [string length $cmdresult]]
-                    lappend dispatchresultlist $cmdresult
-                } else {
-                    set dispatchstatus "error"
-                    set dispatcherror $cmdresult
-                    #don't add to dispatchresultlist
-                    lappend dispatchstatuslist [list status err cmd $parentname outputlength 0 error $cmdresult]
-                    if {!$was_dispatched_by_another} {
-                        #this is the first (or a direct) call to check_flags - so make sure error gets raised in this proc rather than just storing the error in the data and returning
-                        set raise_dispatch_error_instead_of_return "dispatchstatuslist:\n[join $dispatchstatuslist \n] \nerrinfo:\n $::errorInfo"
-                        dict set dispatchrecord result $dispatchresult
-                        dict set dispatchrecord error  $dispatcherror
-                        dict set dispatch $parentname $dispatchrecord
-
-                        break
-                        #return -code error "check_flags error during command dispatch:\n$cmdresult"
-                    }
-                    #we've been dispatched from another check_flags - so ok to propagate the error up via the dispatchrecord/dispatchstatuslist
-                } 
-                dict set dispatchrecord result $dispatchresult
-                dict set dispatchrecord error  $dispatcherror
-                dict set dispatch $parentname $dispatchrecord
-            }
-
-            set dict_dispatch_results [list dispatchcaller $caller dispatchstatuslist $dispatchstatuslist dispatchresultlist $dispatchresultlist dispatchstatus $dispatchstatus]
-        } 
-        #end llength $dispatch
-
-
-        set combined [dict merge $dict_defaults $dict_supplied $processed_arguments $dict_ranges $dict_rangesbytype $dict_dispatch_results]
-        dict set combined dispatch $dispatch ;#update with asdispatched info
-        if {([dict get $combined parsestatus] eq "ok") && ([dict get $combined dispatchstatus] eq "ok")} {
-            dict set combined status "ok"
-        } else {
-            dict set combined status "error"
-        }
-        do_debug 1 $debugc "COMBINED:$combined"
-
-
-        set returnkey [string tolower $returnkey]
-        if {"all" in $returnkey} {
-            set returnval $combined
-            #set returnval [dict merge $combined $dict_dispatch_results]
-        } else {
-            if {[llength $returnkey] == 1} {
-                set invalid 0
-                #todo - support multiple merge?
-                set right ""
-                if {[regexp -all {\|} $returnkey] == 1} {
-                    lassign [split $returnkey |] left right
-                    set joinparts [split $left ,]
-                } else {
-                    set joinparts [split $returnkey ,]
-                } 
-                foreach j [concat $joinparts $right] {
-                    if {$j ni $flaginfo_returns} { 
-                        set invalid 1
-                    }
-                }
-                set returnval [list]
-                if {!$invalid} {
-                    foreach j $joinparts {
-                        lappend returnval {*}[dict get $combined $j]
-                    }
-                    if {[string length $right]} {
-                        set returnval [dict merge $returnval $defaults $returnval]
-                    }
-                } else {
-                    set returnval [list callerrors [list "-return '$returnkey' not valid"]]
-                }
-            } else {
-                set callerrors [list]
-                set returnval [dict create]
-                foreach rk $returnkey {
-                    if {$returnkey in $flaginfo_returns} {
-                        dict set returnval $rk [dict get $combined $returnkey]
-                    } else {
-                        lappend callerrors [list "-return '$returnkey' not valid"]
-                    }
-                }
-                if {[llength $callerrors]} {
-                    dict set returnval callerrors $callerrors
-                }
-            }
-        }
-
-        do_debug 1 $debugc "[string repeat = 40]"
-        do_debug 1 $debugc "dispatch_results: $dict_dispatch_results"
-        do_debug 1 $debugc "[string repeat - 40]"
-
-        if {[string length $raise_dispatch_error_instead_of_return]} {
-            set errdebug [dict get $cf_args -debugargsonerror]
-            if {$errdebug > [dict get $cf_args -debugargs]} {
-                dict set debugc -debugargs $errdebug
-            }
-        }
-
-        set debuglevel_return 2
-        set debugdict [concat {*}[lmap k [dict keys $combined] {list $k $debuglevel_return}]] ;#create a dict of keys from combined, all defaulted to $debuglevel_return
-        if {[llength [dict get $combined parseerrors]]} {
-            dict set debugdict "parseerrors" 0
-        } else {
-            dict set debugdict "parseerrors" 2
-        }
-        dict set debugdict "defaults" 1
-        dict set debugdict "supplied" 1
-        dict set debugdict "dispatch" 1
-        dict set debugdict "ranges" 1
-        dict set debugdict "rangesbytype" 1
-        dict set debugdict "dispatchstatus" 1
-        if {[dict get $combined "status"] eq "ok"} {
-            dict set debugdict "status" 1
-        } else {
-            dict set debugdict "status" 0
-        }
-
-        do_debug 1 $debugc "returning '$returnkey'"
-        do_debug 1 $debugc "returnval '$returnval'"
-        if {([llength $returnval] % 2) == 0} {
-            do_debug 1 $debugc "returnkeys '[dict keys $returnval]'"
-        }
-        do_debug 1 $debugc "[string repeat = 40]"
-        dict for {k v} $combined {
-            set dlev [dict get $debugdict $k]
-            switch -- $k {
-                dispatch {
-                    set col1 [string repeat " " 12]
-                    #process as paired list rather than dict (support repeated commands)
-                    set i 0
-                    foreach {cmdname cmdinfo} $v {
-                        set field1 [string repeat " " [expr {[string length $cmdname]}]]
-                        set col2_dispatch [string repeat " " [expr {[string length $cmdname] + 15}]]
-                        set j 0
-                        foreach {ckey cval} $cmdinfo {
-
-                            if {$i == 0 && $j == 0} {
-                                set c1 [overtype::left $col1 "dispatch"]
-                            } else {
-                                set c1 [overtype::left $col1 { ... }]
-                            }
-                            
-                            if {$j == 0} {
-                                set f1 [overtype::left $field1 $cmdname]
-                                set c2 [overtype::left $col2_dispatch "$f1 $ckey"]
-                            } else {
-                                set f1 [overtype::left $field1 ...]
-                                set c2 [overtype::left $col2_dispatch "$f1 $ckey"]
-                            }
-                            #leave at debug level 1 - because dispatch is generally important
-                            do_debug $dlev $debugc "${c1}${c2} $cval"
-
-                            incr j
-                        }
-                        incr i
-                    }
-                    
-                    #do_debug 1 $debugc "[overtype::left $col1 $k] [lindex $v 0] [list [lindex $v 1]]"
-                    #foreach {nm rem} [lrange $v 2 end] {
-                    #    do_debug 1 $debugc "[overtype::left $col1 { ... }] $nm [list $rem]"
-                    #}
-                }
-                dispatchresultlist {
-                    set col1 [string repeat " " 25]
-                    set i 0
-                    foreach dresult $v {
-                        if {$i == 0} {
-                            set c1 [overtype::left $col1 $k]
-                        } else {
-                            set c1 [overtype::left $col1 { ... }]
-                        }
-                        do_debug $dlev $debugc "$c1 $dresult"
-                        incr i
-                    }
-                }
-                classifications {
-                    set col1 [string repeat " " 25]
-                    set len [dict size $v]
-                    if {$len == 0} {
-                        do_debug $dlev $debugc "[overtype::left $col1 $k]"
-                        continue 
-                    }
-                    set max [expr {$len -1}]
-                    set numlines [expr $len / 3 + 1]
-                    if {($len % 3) == 0} {
-                        incr numlines -1
-                    }
-                    set j 0
-                    for {set ln 0} {$ln < $numlines} {incr ln} {
-                        if {$ln == 0} {
-                            set c1 "[overtype::left $col1 $k]"
-                        } else {
-                            set c1 "[overtype::left $col1 { ... }]"
-                        }
-                        set line ""
-                        for {set col 0} {$col < 3} {incr col} {
-                            if {$j <= $max} {
-                                append line "$j [list [dict get $v $j]] "
-                            }
-                            incr j
-                        }
-                        do_debug $dlev $debugc "$c1 [string trim $line]"
-                    }
-                }
-                gridstring {
-                    set col1 [string repeat " " 25]
-                    set i 0
-                    foreach ln [split $v \n] {
-                        if {$i == 0} {
-                            set c1 [overtype::left $col1 $k]
-                        } else {
-                            set c1 [overtype::left $col1 { ... }]
-                        }
-                        do_debug $dlev $debugc "$c1 $ln"
-                        incr i
-                    }
-                }
-                default {
-                    set col1 [string repeat " " 25]
-                    do_debug $dlev $debugc "[overtype::left $col1 $k] $v"
-                }
-            }
-        }
-
-
-        # ---------------------------------
-        foreach obj [$PARENTS items] {
-            catch {$obj destroy}
-        }
-        $PARENTS destroy
-        #puts "PROCESSORS: $PROCESSORS"
-        foreach obj [$PROCESSORS items] {
-            catch {$obj destroy}
-        }
-        $PROCESSORS destroy
-        catch {$RETURNED_VMAP destroy}
-        # ---------------------------------
-
-        do_debug 1 $debugc "[string repeat = 40]"
-        do_debug 1 $debugc "DEBUG-END $caller"
-        if {[string length $raise_dispatch_error_instead_of_return]} {
-            return -code error $raise_dispatch_error_instead_of_return
-        }
-
-        
-        return $returnval
-    }
-
-    proc tailflagspaired {defaults supplied classifications rangesbytype} {
-        lassign [lindex $rangesbytype end] c tp a b
-        if {($c eq "unallocated") && ($tp eq "flagtype")} {
-            set tail_unallocated [lrange $supplied $a $b]
-        } else {
-            set tail_unallocated [list]
-        }
-        #set extraflags [list]
-        set extraflags [punk::lib::dict_merge_ordered $defaults $tail_unallocated]
-        #dict merge based operation can't work if there are solo_flags? 
-        #review
-        if {[llength $tail_unallocated]} {
-            for {set i $a} {$i <=$b} {incr i} {
-                set arginfo [dict get $classifications $i]
-                lassign $arginfo class ftype v
-                switch -- $ftype {
-                    flag - flagvalue {
-                        lappend extraflags $v
-                    }
-                    soloflag {
-                        lappend extraflags $v
-                        if {[dict exists $defaults $v]} {
-                            lappend extraflags [dict get $defaults $v]
-                        } else {
-                            lappend extraflags 1
-                        }
-                    }
-                }
-            }
-            foreach {k v} [dict get $defaults] {
-                if {$k ni $extraflags} {
-                    lappend extraflags $k $v
-                } 
-            }
-        } else {
-            set extraflags $defaults
-        }
-        return $extraflags
-    }
-
-    proc tailflagspaired1 {defaults supplied classifications rangesbytype} {
-        lassign [lindex $rangesbytype end] c tp a b
-        if {($c eq "unallocated") && ($tp eq "flagtype")} {
-            set tail_unallocated [lrange $supplied $a $b]
-        } else {
-            set tail_unallocated [list]
-        }
-        #set all_post_unallocated_ranges [lsearch -all -inline -index 0 [lrange $rangesbytype $command_range_posn end] "unallocated"]
-
-        set extraflags [list]
-
-        #set extraflags [punk::lib::dict_merge_ordered $defaults $tail_unallocated]
-        #dict merge based operation can't work if there are solo_flags with no value set
-        if {[llength $tail_unallocated]} {
-            for {set i $a} {$i <=$b} {incr i} {
-                set arginfo [dict get $classifications $i]
-                lassign $arginfo class ftype v
-                switch -- $ftype {
-                    flag - flagvalue {
-                        lappend extraflags $v
-                    }
-                    soloflag {
-                        lappend extraflags $v
-                        if {[dict exists $defaults $v]} {
-                            lappend extraflags [dict get $defaults $v]
-                        } else {
-                            lappend extraflags 1
-                        }
-                    }
-                }
-            }
-            foreach {k v} [dict get $defaults] {
-                if {$k ni $extraflags} {
-                    lappend extraflags $k $v
-                } 
-            }
-        } else {
-            set extraflags $defaults
-        }
-
-    }
-
-
-
-}
-
-
-namespace eval flagfilter {
-
-    #punk::lib::dict_merge_ordered
-
-
-
-    #retrieve *only* names that are dependant on the provided namekey - not the key itself
-    # (query is sorted by the trailing numerical index which represents order the arguments were processed)
-    proc flag_array_get_sorted_subs {arrname sep namekey} {
-        upvar $arrname arr
-        set allsubs [array names arr ${namekey}.*${sep}name,*]
-        set rnames [lmap nm $allsubs {string reverse $nm}]
-        set sorted_rnames [lsort -dictionary $rnames]
-        set ordered [lmap nm $sorted_rnames {string reverse $nm}]
-        return $ordered
-    }
-
-    proc flag_array_get_sorted_siblings {arrname sep namekey} {
-        #determine parent by looking at dot - but confirm parent name is in array.
-
-    }
-
-
-
-    #dictionary based lsort of reversed names which are presumed to have a trailing separator of some sort and a number e.g:  name,0  name,1  ... name,10 etc.
-    #use -dictionary to ensure embedded numbers are sorted as integers
-    proc array_names_sorted_by_tail {arrname  nameglob} {
-        upvar $arrname arr
-        set matched_names  [array names arr $nameglob]
-        set rnames [lmap nm $matched_names {string reverse $nm}]
-        set sorted_rnames [lsort -dictionary $rnames]
-        return [lmap nm $sorted_rnames {string reverse $nm}]
-    }
-
-
-}
-
-
-
-
-
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/metaface-1.2.8.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/metaface-1.2.8.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/metaface-1.2.8.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/metaface-1.2.8.tm
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm
index 7f7c33cd..07c29895 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/natsort-0.1.1.6.tm
@@ -1,6 +1,7 @@
 #! /usr/bin/env tclsh
 
 
+#todo - remove flagfilter - use punk::args?
 package require flagfilter
 namespace import ::flagfilter::check_flags
 
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/oolib-0.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/oolib-0.1.tm
deleted file mode 100644
index 3756fceb..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/oolib-0.1.tm
+++ /dev/null
@@ -1,195 +0,0 @@
-#JMN - api should be kept in sync with package patternlib where possible
-#
-package provide oolib [namespace eval oolib {
-    variable version
-    set version 0.1
-}]
-
-namespace eval oolib {
-    oo::class create collection {
-        variable o_data ;#dict
-        variable o_alias
-        constructor {} {
-            set o_data [dict create]
-        }
-        method info {} {
-            return [dict info $o_data]
-        }
-        method count {} {
-            return [dict size $o_data]
-        }
-        method isEmpty {} {
-            expr {[dict size $o_data] == 0}
-        }
-        method names {{globOrIdx {}}} {
-            if {[llength $globOrIdx]} {
-                if {[string is integer -strict $globOrIdx]} {
-                    if {$idx < 0} {
-                        set idx "end-[expr {abs($idx + 1)}]"
-                    }
-                    if {[catch {lindex [dict keys $o_data] $idx} result]} {
-                        error "[self object] no such index : '$idx'"
-                    } else {
-                        return $result
-                    }
-                } else {
-                    #glob
-                    return [lsearch -glob -all -inline [dict keys $o_data] $globOrIdx]
-                }
-            } else {
-                return [dict keys $o_data]
-            }
-        }
-        #like names but without globbing
-        method keys {} {
-            dict keys $o_data
-        }
-        method key {{posn 0}} {
-            if {$posn < 0} {
-                set posn "end-[expr {abs($posn + 1)}]"
-            }
-            if {[catch {lindex [dict keys $o_data] $posn} result]} {
-                error "[self object] no such index : '$posn'"
-            } else {
-                return $result
-            }
-        }
-        method hasKey {key} {
-            dict exists $o_data $key
-        }
-        method get {} {
-            return $o_data
-        }
-        method items {} {
-            return [dict values $o_data]
-        }
-        method item {key} {
-            if {[string is integer -strict $key]} {
-                if {$key > 0} {
-                    set valposn [expr {(2*$key) +1}]
-                    return [lindex $o_data $valposn]
-                } else {
-                    set key "end-[expr {abs($key + 1)}]"
-                    return [lindex [dict keys $o_data] $key]
-                }
-            }
-            if {[dict exists $o_data $key]} {
-                return [dict get $o_data $key]
-            }
-        }
-        #inverse lookup
-        method itemKeys {value} {
-            set value_indices [lsearch -all [dict values $o_data] $value]
-            set keylist [list]
-            foreach i $value_indices {
-                set idx [expr {(($i + 1) *2) -2}]
-                lappend keylist [lindex $o_data $idx]
-            }
-            return $keylist
-        }
-        method search {value args} {
-            set matches [lsearch {*}$args [dict values $o_data] $value]
-            if {"-inline" in $args} {
-                return $matches
-            } else {
-                set keylist [list]
-                foreach i $matches {
-                    set idx [expr {(($i + 1) *2) -2}]
-                    lappend keylist [lindex $o_data $idx]
-                }
-                return $keylist
-            }
-        }
-        #review - see patternlib. Is the intention for aliases to be configurable independent of whether the target exists?
-        method alias {newAlias existingKeyOrAlias} {
-            if {[string is integer -strict $newAlias]} {
-                error "[self object] collection key alias cannot be integer"
-            }
-            if {[string length $existingKeyOrAlias]} {
-                set o_alias($newAlias) $existingKeyOrAlias
-            } else {
-                unset o_alias($newAlias)
-            }
-        }
-        method aliases {{key ""}} {
-            if {[string length $key]} {
-                set result [list]
-                foreach {n v} [array get o_alias] {
-                    if {$v eq $key} {
-                        lappend result $n $v
-                    }
-                }		
-                return $result
-            } else {
-                return [array get o_alias]
-            }
-        }
-        #if the supplied index is an alias, return the underlying key; else return the index supplied.
-        method realKey {idx} {
-            if {[catch {set o_alias($idx)} key]} {
-                return $idx
-            } else {
-                return $key
-            }
-        }
-        method add {value key} {
-            if {[string is integer -strict $key]} {
-                error "[self object] collection key must not be an integer. Use another structure if integer keys required"
-            }
-            if {[dict exists $o_data $key]} {
-                error "[self object] col_processors object error: key '$key' already exists in collection"
-            }
-            dict set o_data $key $value
-            return [expr {[dict size $o_data] - 1}] ;#return index of item
-        }
-        method remove {idx {endRange ""}} {
-            if {[string length $endRange]} {
-                error "[self object] collection error: ranged removal not yet implemented.. remove one item at a time"
-            }
-            if {[string is integer -strict $idx]} {
-                if {$idx < 0} {
-                    set idx "end-[expr {abs($idx+1)}]"
-                }
-                set key [lindex [dict keys $o_data] $idx]
-                set posn $idx
-            } else {
-                set key $idx
-                set posn [lsearch -exact [dict keys $o_data] $key]
-                if {$posn < 0} {
-                    error "[self object] no such index: '$idx' in this collection"
-                }
-            }
-            dict unset o_data $key
-            return
-        }
-        method clear {} {
-            set o_data [dict create]
-            return
-        }
-        method reverse {} {
-            set dictnew [dict create]
-            foreach k [lreverse [dict keys $o_data]] {
-                dict set dictnew $k [dict get $o_data $k]
-            }
-            set o_data $dictnew
-            return
-        }
-        #review - cmd as list vs cmd as script?
-        method map {cmd} {
-            set seed [list]
-            dict for {k v} $o_data {
-                lappend seed [uplevel #0 [list {*}$cmd $v]]
-            }
-            return $seed
-        }
-        method objectmap {cmd} {
-            set seed [list]
-            dict for {k v} $o_data {
-                lappend seed [uplevel #0 [list $v {*}$cmd]]
-            }
-            return $seed
-        }
-    }
-
-}
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/pattern-1.2.4.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/pattern-1.2.4.tm
deleted file mode 100644
index d6a9c932..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/pattern-1.2.4.tm
+++ /dev/null
@@ -1,1285 +0,0 @@
-#PATTERN
-# - A prototype-based Object system.
-#
-# Julian Noble 2003
-# License: Public domain
-#
-
-# "I need pattern"  - Lexx Series 1 Episode 3 - Eating Pattern.
-#
-#
-# Pattern uses a mixture of class-based and prototype-based object instantiation.
-#
-# A pattern object has 'properties' and 'methods'
-# The system makes a distinction between them with regards to the access syntax for write operations,
-# and yet provides unity in access syntax for read operations.
-# e.g  >object . myProperty
-# will return the value of the property 'myProperty'
-#      >ojbect . myMethod
-# will return the result of the method 'myMethod'
-# contrast this with the write operations:
-# set [>object . myProperty .] blah
-# >object . myMethod blah
-# however, the property can also be read using:
-# set [>object . myProperty .]
-# Note the trailing . to give us a sort of 'reference' to the property.
-# this is NOT equivalent to
-# set [>object . myProperty]
-# This last example is of course calling set against a standard variable whose name is whatever value is returned by reading the property
-# i.e it is equivalent in this case to: set blah
-
-#All objects are represented by a command, the name of which contains a leading ">".
-#Any commands in the interp which use this naming convention are assumed to be a pattern object.
-#Use of non-pattern commands containing this leading character is not supported. (Behaviour is undefined)
-
-#All user-added properties & methods of the wrapped object are accessed
-# using the separator character "."
-#Metamethods supplied by the patterm system are accessed with the object command using the metamethod separator ".."
-# e.g to instantiate a new object from an existing 'pattern' (the equivalent of a class or prototype)
-# you would use the 'Create' metamethod on the pattern object like so:
-# >MyFactoryClassOrPrototypeLikeThing .. Create >NameOfNewObject
-# '>NameOfNewObject' is now available as a command, with certain inherited methods and properties
-# of the object it was created from. (
-
-
-#The use of the access-syntax separator character "." allows objects to be kept
-# 'clean' in the sense that the only methods &/or properties that can be called this way are ones
-# the programmer(you!) put there. Existing metamethods such as 'Create' are accessed using a different syntax
-# so you are free to implement your own 'Create' method on your object that doesn't conflict with
-# the metamethod.
-
-#Chainability  (or how to violate the Law of Demeter!)
-#The . access-syntax gives TCL an OO syntax more closely in line with many OO systems in other
-# languages such as Python & VB, and allows left to right keyboard-entry of a deeply nested object-reference
-# structure, without the need to regress to enter matching brackets as is required when using
-# standard TCL command syntax.
-# ie instead of:
-# [[[object nextObject] getItem 4] getItem [chooseItemNumber]] doSomething
-# we can use:
-# >object . nextObject . getItem 4 . getItem [chooseItemNumber] . doSomething
-#
-# This separates out the object-traversal syntax from the TCL command syntax.
-
-# . is the 'traversal operator' when it appears between items in a commandlist
-# . is the 'reference operator' when it is the last item in a commandlist
-# , is the 'index traversal operator' (or 'nest operator') - mathematically it marks where there is a matrix 'partition'.
-#   It marks breaks in the multidimensional structure that correspond to how the data is stored.
-#   e.g  obj . arraydata x y , x1 y1 z1
-#   represents an element of a 5-dimensional array structured as a plane of cubes
-#   e.g2 obj . arraydata x y z , x1 y1
-#   represents an element of a 5-dimensional array structured as a cube of planes
-#   The underlying storage for e.g2 might  consist of something such as a Tcl array indexed such as cube($x,$y,$z) where each value is a patternlib::>matrix object with indices x1 y1
-# .. is the 'meta-traversal operator' when it appears between items in a commandlist
-# .. is the 'meta-info operator'(?) when it is the last item in a commandlist
-
-
-#!todo - Duck Typing: http://en.wikipedia.org/wiki/Duck_typing
-# implement iStacks & pStacks (interface stacks & pattern stacks)
-
-#see also: Using namsepace ensemble without a namespace: http://wiki.tcl.tk/16975
-
-
-#------------------------------------------------------------
-# System objects.
-#------------------------------------------------------------
-#::p::-1    ::p::internals::>metaface
-#::p::0     ::p::ifaces::>null
-#::p::1     ::>pattern
-#------------------------------------------------------------
-
-#TODO
-
-#investigate use of [namespace path ... ] to resolve command lookup (use it to chain iStacks?)
-
-
-#CHANGES
-#2018-09 - v 1.2.2
-# varied refactoring
-# Changed invocant datastructure curried into commands (the _ID_ structure)
-# Changed MAP structure to dict
-# Default Method no longer magic "item" - must be explicitly set with .. DefaultMethod (or  .. PatternDefaultMethod for patterns)
-# updated test suites
-#2018-08 - v 1.2.1
-# split ::p::predatorX functions into separate files (pkgs)
-# e.g patternpredator2-1.0.tm
-# patternpredator1-1.0 - split out but not updated/tested - probably obsolete and very broken
-#
-#2017-08 - v 1.1.6 Fairly big overhaul
-# New predator function using coroutines
-# Added bang operator !
-# Fixed Constructor chaining
-# Added a few tests to test::pattern
-#
-#2008-03  - preserve ::errorInfo during var writes
-
-#2007-11
-#Major overhaul + new functionality + new tests v 1.1
-# new dispatch system - 'predator'.
-# (preparing for multiple interface stacks, multiple invocants etc)
-#
-#
-#2006-05
-# Adjusted 'var' expansion to use the new tcl8.5 'namespace upvar $ns v1 n1 v2 n2 ... ' feature.
-#
-#2005-12
-# Adjusted 'var' expansion in method/constructor etc bodies to be done 'inline' where it appears rather than aggregated at top.
-#
-# Fixed so that PatternVariable default applied on Create.
-#
-# unified interface/object datastructures under ::p::<id>:: instead of seperate ::p::IFACE::<id>::
-#  - heading towards multiple-interface objects
-#
-#2005-10-28
-# 1.0.8.1 passes 80/80 tests
-# >object .. Destroy - improved cleanup of interfaces & namespaces.
-#
-#2005-10-26
-# fixes to refsync  (still messy!)
-# remove variable traces on REF vars during .. Destroy
-# passes 76/76
-#
-#2005-10-24
-# fix objectRef_TraceHandler so that reading a property via an object reference using array syntax will call a PropertyRead function if defined.
-# 1.0.8.0 now passes 75/76
-#
-#2005-10-19
-# Command alias introduced by @next@ is now placed in the interfaces namespace. (was unnamespaced before)
-# changed IFACE array names for level0 methods to be m-1 instead of just m.  (now consistent with higher level m-X names)
-# 1.0.8.0 (passes 74/76)
-#  tests now in own package
-#  usage:
-#  package require test::pattern
-#  test::p::list
-#  test::p::run ?nameglob? ?-version <value>?
-#
-#2005-09?-12
-#
-# fixed standalone 'var' statement in method bodies so that no implicit variable declarations added to proc.
-# fixed @next@ so that destination method resolved at interface compile time instead of call time
-# fixed @next@ so that on Create, .. PatternMethod x overlays existing method produced by a previous .. PatternMethod x.
-#  (before, the overlay only occured when '.. Method' was used to override.)
-#
-#
-# miscellaneous tidy-ups
-#
-# 1.0.7.8 (passes 71/73)
-#
-#2005-09-10
-# fix 'unknown' system such that unspecified 'unknown' handler represented by lack of (unknown) variable instead of empty string value
-# this is so that a mixin with an unspecified 'unknown' handler will not undo a lowerlevel 'unknown' specificier.
-#
-#2005-09-07
-# bugfix indexed write to list property
-# bugfix Variable default value
-# 1.0.7.7  (passes 70/72)
-# fails:
-# arrayproperty.test    - array-entire-reference
-# properties.test       - property_getter_filter_via_ObjectRef
-#
-#2005-04-22
-# basic fix to PatternPropertyRead dispatch code - updated tests (indexed case still not fixed!)
-#
-# 1.0.7.4
-#
-#2004-11-05
-# basic PropertyRead implementation (non-indexed - no tests!)
-#
-#2004-08-22
-# object creation speedups - (pattern::internals::obj simplified/indirected)
-#
-#2004-08-17
-# indexed property setter fixes + tests
-# meta::Create fixes - state preservation on overlay (correct constructor called, property defaults respect existing values)
-#
-#2004-08-16
-# PropertyUnset & PatternPropertyUnset metaMethods (filter method called on property unset)
-#
-#2004-08-15
-# reference syncing: ensure writes to properties always trigger traces on property references (+ tests)
-# - i.e method that updates o_myProp var in >myObj will cause traces on [>myObj . myProp .] to trigger
-# - also trigger on curried traces to indexed properties i.e list and array elements.
-# - This feature presumably adds some overhead to all property writes - !todo - investigate desirability of mechanism to disable on specific properties.
-#
-# fix (+ tests) for ref to multiple indices on object i.e  [>myObj key1 key2 .]
-#
-#2004-08-05
-# add PropertyWrite & PatternPropertyWrite metaMethods - (filter method called on property write)
-#
-# fix + add tests to support method & property of same name. (method precedence)
-#
-#2004-08-04
-# disallow attempt to use method reference as if it were a property (raise error instead of silently setting useless var)
-#
-# 1.0.7.1
-# use objectref array access to read properties even when some props unset; + test
-# unset property using array access on object reference; + test
-#
-#
-#2004-07-21
-# object reference changes - array property values appear as list value when accessed using upvared array.
-# bugfixes + tests - properties containing lists (multidimensional access)
-#
-#1.0.7
-#
-#2004-07-20
-# fix default property value append problem
-#
-#2004-07-17
-# add initial implementation of 'Unknown' and 'PatternUnknown' meta-methods
-#  (
-#
-#2004-06-18
-# better cleanup on '>obj .. Destroy' - recursively destroy objects under parents subnamespaces.
-#
-#2004-06-05
-#  change argsafety operator to be anything with leading -
-#  if standalone '-' then the dash itself is not added as a parameter, but if a string follows '-'
-#  i.e tkoption style; e.g -myoption ; then in addition to acting as an argsafety operator for the following arg,
-#  the entire dash-prefixed operator is also passed in as an argument.
-#  e.g >object . doStuff -window .
-#  will call the doStuff method with the 2 parameters -window .
-#  >object . doStuff - .
-#  will call doStuff with single parameter .
-#  >object . doStuff - -window .
-#  will result in a reference to the doStuff method with the argument -window 'curried' in.
-#
-#2004-05-19
-#1.0.6
-# fix so custom constructor code called.
-# update Destroy metamethod to unset $self
-#
-#1.0.4 - 2004-04-22
-# bug fixes regarding method specialisation - added test
-#
-#------------------------------------------------------------
-
-package provide pattern [namespace eval pattern {variable version; set version 1.2.4}]
-
-
-namespace eval pattern::util {
-
-    # Generally better to use 'package require $minver-'
-    # - this only gives us a different error
-    proc package_require_min {pkg minver} {
-        if {[package vsatisfies [lindex [set available [lsort -increasing [package versions $pkg]]] end] $minver-]} {
-            package require $pkg
-        } else {
-            error "Package pattern requires package $pkg of at least version $minver. Available: $available"
-        }
-    }
-}
-
-package require patterncmd   1.2.4-
-package require metaface     1.2.4-  ;#utility/system diagnostic commands (may be used by metaface lib etc)
-
-
-
-#package require cmdline
-package require overtype
-
-#package require md5 ;#will be loaded if/when needed
-#package require md4
-#package require uuid
-
-
-
-
-
-namespace eval pattern {
-    variable initialised 0
-
-
-    if 0 {
-    if {![catch {package require twapi_base} ]} {
-        #twapi is a windows only package
-        #MUCH faster to load just twapi_base than full 'package require twapi' IFF using the modular twapi distribution with multiple separately loadable dlls.
-        # If available - windows seems to provide a fast uuid generator..
-        #*IF* tcllibc is missing, then as at 2008-05 twapi::new_uuid is significantly faster than uuid::uuid generate ( e.g 19 usec vs 76thousand usec! on 2.4GHZ machine)
-        #  (2018 update - 15-30usec vs ~200usec  on core i9 @ ~2.6GHZ (time for a single call e.g time {pattern::new_uuid}))
-        interp alias {} ::pattern::new_uuid {} ::twapi::new_uuid -localok
-    } else {
-        #performance on freebsd seems not great, but adequate. (e.g 500usec on dualcore 1.6GHZ)
-        # (e.g 200usec 2018 corei9)
-        #(with or without tcllibc?)
-        #very first call is extremely slow though - 3.5seconds on 2018 corei9
-        package require uuid
-        interp alias {} ::pattern::new_uuid {} ::uuid::uuid generate
-    }
-    #variable fastobj 0  ;#precalculated invocant ID in method body (instead of call time ) - removed for now - see pattern 1.2.1  (a premature optimisation which was hampering refactoring & advancement)
-    }
-
-
-}
-
-
-
-
-
-
-namespace eval p {
-    #this is also the interp alias namespace. (object commands created here , then renamed into place)
-    #the object aliases are named as incrementing integers.. !todo - consider uuids?
-    variable ID 0
-    namespace eval internals {}
-
-
-    #!??
-    #namespace export ??
-    variable coroutine_instance 0
-}
-
-#-------------------------------------------------------------------------------------
-#review - what are these for?
-#note - this function is deliberately not namespaced
-# - it begins with the letters 'proc' (as do the created aliases) - to aid in editor's auto indexing/mapping features
-proc process_pattern_aliases {object args} {
-    set o [namespace tail $object]
-    interp alias {} process_patternmethod_$o {} [$object .. PatternMethod .]
-    interp alias {} process_method_$o {} [$object .. Method .]
-    interp alias {} process_constructor_$o {} [$object .. Constructor .]
-}
-#-------------------------------------------------------------------------------------
-
-
-
-
-#!store all interface objects here?
-namespace eval ::p::ifaces {}
-
-
-
-#K combinator - see http://wiki.tcl.tk/1923
-#proc ::p::K {x y} {set x}
-#- not used - use inline K if desired i.e set x [lreplace $x[set x{}] $a $b blah]
-
-
-
-
-
-
-
-
-proc ::p::internals::(VIOLATE) {_ID_ violation_script} {
-		#set out [::p::fixed_var_statements @IMPLICITDECLS@\n$violation_script]
-		set processed [dict create {*}[::p::predator::expand_var_statements $violation_script]]
-
-		if {![dict get $processed explicitvars]} {
-			#no explicit var statements - we need the implicit ones
-			set self [set ::p::${_ID_}::(self)]
-			set IFID [lindex [set $self] 1 0 end]
-			#upvar ::p::${IFID}:: self_IFINFO
-
-
-			set varDecls {}
-			set vlist [array get ::p::${IFID}:: v,name,*]
-			set _k ""; set v ""
-			if {[llength $vlist]} {
-				append varDecls "upvar #0 "
-				foreach {_k v} $vlist {
-					append varDecls "::p::\${_ID_}::$v $v "
-				}
-				append varDecls "\n"
-			}
-
-			#set violation_script [string map [::list @IMPLICITDECLS@ $varDecls] $out]
-			set violation_script $varDecls\n[dict get $processed body]
-
-			#tidy up
-			unset processed varDecls self IFID _k v
-		} else {
-			set violation_script [dict get $processed body]
-		}
-		unset processed
-
-
-
-
-		#!todo - review (& document) exactly what context this script runs in and what vars/procs are/should be visible.
-		eval "unset violation_script;$violation_script"
-}
-
-
-proc ::p::internals::DestroyObjectsBelowNamespace {ns} {
-	#puts "\n##################\n#################### destroyObjectsBelowNamespace $ns\n"
-
-	set nsparts [split [string trim [string map {:: :} $ns] :] :]
-	if { ! ( ([llength $nsparts] == 3) & ([lindex $nsparts 0] == "p")  & ([lindex $nsparts end] eq "_ref") )} {
-		#ns not of form  ::p::?::_ref
-
-		foreach obj [info commands ${ns}::>*] {
-			#catch {::p::meta::Destroy $obj}
-			#puts ">>found object $obj below ns $ns  - destroying $obj"
-			$obj .. Destroy
-		}
-	}
-
-	#set traces [trace info variable ${ns}::-->PATTERN_ANCHOR]
-	#foreach tinfo $traces {
-	#	trace remove variable ${ns}::-->PATTERN_ANCHOR {*}$tinfo
-	#}
-	#unset -nocomplain ${ns}::-->PATTERN_ANCHOR
-
-	foreach sub [namespace children $ns] {
-		::p::internals::DestroyObjectsBelowNamespace $sub
-	}
-}
-
-
-
-
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-#################################################
-
-
-
-
-
-
-
-
-
-proc ::p::get_new_object_id {} {
-	tailcall incr ::p::ID
-	#tailcall ::pattern::new_uuid
-}
-
-#create a new minimal object - with no interfaces or patterns.
-
-#proc ::p::internals::new_object [list cmd {wrapped ""} [list OID [expr {-2}]]] {}
-proc ::p::internals::new_object {cmd {wrapped ""} {OID "-2"}} {
-
-	#puts "-->new_object cmd:$cmd wrapped:$wrapped OID:$OID"
-
-    if {$OID eq "-2"} {
-        set OID [::p::get_new_object_id]
-        #set OID [incr ::p::ID] ;#!todo - use uuids? (too slow?) (use uuids as configurable option?,  pre-allocate a list of uuids?)
-        #set OID [pattern::new_uuid]
-    }
-    #if $wrapped provided it is assumed to be an existing namespace.
-    #if {[string length $wrapped]} {
-    #   #???
-    #}
-
-    #sanity check - alias must not exist for this OID
-    if {[llength [interp alias {} ::p::$OID]]} {
-        error "Object alias '::p::$OID' already exists - cannot create new object with this id"
-    }
-
-	#system 'varspaces' -
-
-    #until we have a version of Tcl that doesn't have 'creative writing' scope issues -
-    # - we should either explicity specify the whole namespace when setting variables or make sure we use the 'variable' keyword.
-    # (see http://wiki.tcl.tk/1030 'Dangers of creative writing')
-	#set o_open 1 - every object is initially also an open interface (?)
-	#NOTE! comments within namespace eval slow it down.
-    namespace eval ::p::$OID {
-        #namespace ensemble create
-        namespace eval _ref   {}
-        namespace eval _meta  {}
-        namespace eval _iface {
-						variable o_usedby;
-						variable o_open  1;
-						array set o_usedby  [list];
-						variable o_varspace "" ;
-						variable o_varspaces [list];
-						variable o_methods [dict create];
-						variable o_properties [dict create];
-						variable o_variables;
-						variable o_propertyunset_handlers;
-						set o_propertyunset_handlers [dict create]
-					}
-    }
-
-	#set alias ::p::$OID
-
-  #objectid alis default_method object_command wrapped_namespace
-	set INVOCANTDATA [list $OID ::p::$OID "" $cmd $wrapped]
-
-	#MAP is a dict
-	set MAP [list invocantdata $INVOCANTDATA interfaces {level0 {} level0_default "" level1 {} level1_default ""} patterndata {patterndefaultmethod ""}]
-
-
-
-	#NOTE 'interp alias' will prepend :: if chosen srccmd already exists as an alias token
-	#we've already checked that ::p::$OID doesn't pre-exist
-	# - so we know the return value of the [interp alias {} $alias {} ...] will be $alias
-	#interp alias {} ::p::$OID {} ::p::internals::predator $MAP
-
-
-	# _ID_ structure
-	set invocants_dict [dict create this [list $INVOCANTDATA] ]
-	#puts stdout "New _ID_structure: $interfaces_dict"
-	set _ID_ [dict create i $invocants_dict context ""]
-
-
-	interp alias {} ::p::$OID {} ::p::internals::predator $_ID_
-	#rename the command into place - thus the alias & the command name no longer match!
-	rename ::p::$OID $cmd
-
-  set ::p::${OID}::_meta::map $MAP
-
-	# called when no DefaultMethod has been set for an object, but it is called with indices e.g >x something
-	interp alias {} ::p::${OID}:: {} ::p::internals::no_default_method $_ID_
-
-  #set p2 [string map {> ?} $cmd]
-  #interp alias {} $p2 {} ::p::internals::alternative_predator $_ID_
-
-
-	#trace add command $cmd delete "$cmd .. Destroy ;#"
-	#puts "@@@ trace add command $cmd rename [list $cmd .. Rename]"
-
-	trace add command $cmd rename [list $cmd .. Rename]	 ;#will receive $oldname $newname "rename"
-	#trace add command $cmd rename [$cmd .. Rename .]  ;#EXTREMELY slow. (but why?)
-
-	#puts "@@@ trace added for $cmd -> '[trace info command $cmd]'"
-
-
-	#uplevel #0 "trace add command $cmd delete \"puts deleting$cmd ;#\""
-	#trace add command $cmd delete "puts deleting$cmd ;#"
-	#puts stdout "trace add command $cmd delete \"puts deleting$cmd ;#\""
-
-
-	#puts "--> new_object returning map $MAP"
-	return $MAP
-}
-
-
-
-
-#>x .. Create >y
-# ".." is special case equivalent to "._."
-#  (whereas in theory it would be ".default.")
-# "." is equivalent to ".default." is equivalent to ".default.default."         (.<iStack>.<iFace>.)
-
-#>x ._.         Create >y
-#>x ._.default.  Create >y    ???
-#
-#
-
-# create object using 'blah' as source interface-stack ?
-#>x .blah. ..     Create >y
-#>x .blah,_. ._.    Create .iStackDestination. >y
-
-
-
-#
-# ">x .blah,_."  is a reference(cast) to >x that contains only the iStacks in the order listed. i.e [list blah _]
-#  the 1st item, blah in this case becomes the 'default' iStack.
-#
-#>x .*.
-# cast to object with all iStacks
-#
-#>x .*,!_.
-# cast to object with all iStacks except _
-#
-# ---------------------
-#!todo - MultiMethod support via transient and persistent object conglomerations. Operators '&' & '@'
-# - a persistent conglomeration will have an object id (OID) and thus associated namespace, whereas a transient one will not.
-#
-#eg1: >x & >y . some_multi_method arg arg
-#    this is a call to the MultiMethod 'some_multi_method' with 2 objects as the invocants. ('>x & >y' is a transient conglomeration of the two objects)
-#    No explicit 'invocation role' is specified in this call - so it gets the default role for multiple invocants: 'these'
-#    The invocant signature is thus {these 2}
-#    (the default invocation role for a standard call on a method with a single object is 'this' - with the associated signature {this 1})
-#    Invocation roles can be specified in the call using the @ operator.
-#    e.g >x & >y @ points . some_multi_method arg arg
-#    The invocant signature for this is: {points 2}
-#
-#eg2: {*}[join $objects &] @ objects & >p @ plane . move $path
-#    This has the signature {objects n plane 1} where n depends on the length of the list $objects
-#
-#
-#    To get a persistent conglomeration we would need to get a 'reference' to the conglomeration.
-#    e.g set pointset [>x & >y .]
-#    We can now call multimethods  on $pointset
-#
-
-
-
-
-
-
-#set ::p::internals::predator to a particular predatorversion (from a patternpredatorX package)
-proc ::pattern::predatorversion {{ver ""}} {
-	variable active_predatorversion
-	set allowed_predatorversions {1 2}
-	set default_predatorversion [lindex $allowed_predatorversions end] ;#default to last in list of allowed_predatorversions
-
-	if {![info exists active_predatorversion]} {
-		set first_time_set 1
-	} else {
-		set first_time_set 0
-	}
-
-	if {$ver eq ""} {
-		#get version
-		if {$first_time_set} {
-			set active_predatorversions $default_predatorversion
-		}
-		return $active_predatorversion
-	} else {
-		#set version
-		if {$ver ni $allowed_predatorversions} {
-			error "Invalid attempt to set predatorversion - unknown value: $ver, try one of: $allowed_predatorversions"
-		}
-
-		if {!$first_time_set} {
-			if {$active_predatorversion eq $ver} {
-				#puts stderr "Active predator version is already '$ver'"
-				#ok - nothing to do
-				return $active_predatorversion
-			} else {
-                package require patternpredator$ver 1.2.4-
-				if {![llength [info commands ::p::predator$ver]]} {
-					error "Unable to set predatorversion - command ::p::predator$ver not found"
-				}
-				rename ::p::internals::predator ::p::predator$active_predatorversion
-			}
-		}
-        package require patternpredator$ver 1.2.4-
-		if {![llength [info commands ::p::predator$ver]]} {
-			error "Unable to set predatorversion - command ::p::predator$ver not found"
-		}
-
-		rename ::p::predator$ver ::p::internals::predator
-		set active_predatorversion $ver
-
-		return $active_predatorversion
-	}
-}
-::pattern::predatorversion 2
-
-
-
-
-
-
-
-
-
-
-
-
-# >pattern has object ID 1
-# meta interface has object ID 0
-proc ::pattern::init args {
-
-    if {[set ::pattern::initialised]} {
-    	if {[llength $args]} {
-    		#if callers want to avoid this error, they can do their own check of $::pattern::initialised
-    		error "pattern package is already initialised. Unable to apply args: $args"
-    	} else {
-    		return 1
-    	}
-    }
-
-    #this seems out of date.
-    # - where is PatternPropertyRead?
-    # - Object is obsolete
-    # - Coinjoin, Combine don't seem to exist
-	array set ::p::metaMethods {
-		Clone		object
-		Conjoin	object
-		Combine	object
-		Create	object
-		Destroy	simple
-		Info		simple
-		Object	simple
-		PatternProperty	simple
-		PatternPropertyWrite	simple
-		PatternPropertyUnset	simple
-		Property		simple
-		PropertyWrite		simple
-		PatternMethod	simple
-		Method		simple
-		PatternVariable	simple
-		Variable		simple
-		Digest		simple
-		PatternUnknown simple
-		Unknown		simple
-	}
-	array set ::p::metaProperties {
-		Properties			object
-		Methods			object
-		PatternProperties		object
-		PatternMethods		object
-	}
-
-
-
-
-
-	#create metaface - IID = -1 - also OID = -1
-	# all objects implement this special interface - accessed via the .. operator.
-
-
-
-
-
-	set ::p::ID 4 ;#0,1,2,3 reserved for null interface,>pattern, >ifinfo & ::p::>interface
-
-
-	#OID = 0
-	::p::internals::new_object ::p::ifaces::>null "" 0
-
-	#? null object has itself as level0 & level1 interfaces?
-	#set ::p::ifaces::>null [list [list 0 ::p::ifaces::>null item] [list [list 0] [list 0]] [list {} {}]]
-
-	#null interface should always have 'usedby' members. It should never be extended.
-	array set 	::p::0::_iface::o_usedby [list i-1 ::p::internals::>metaface i0 ::p::ifaces::>null i1 ::>pattern] ;#'usedby' array
-	set 		::p::0::_iface::o_open 0
-
-	set 	  	::p::0::_iface::o_constructor [list]
-	set 	  	::p::0::_iface::o_variables [list]
-	set 	  	::p::0::_iface::o_properties [dict create]
-	set 	  	::p::0::_iface::o_methods [dict create]
-	set 	  	::p::0::_iface::o_varspace ""
-	set       ::p::0::_iface::o_varspaces [list]
-	array set 	::p::0::_iface::o_definition [list]
-	set       ::p::0::_iface::o_propertyunset_handlers [dict create]
-
-
-
-
-	###############################
-	# OID = 1
-	# >pattern
-	###############################
-	::p::internals::new_object ::>pattern "" 1
-
-	#set ::>pattern [list [list 1 ::>pattern item]  [list [list 0] [list 0]]]
-
-
-	array set ::p::1::_iface::o_usedby [list] ;#'usedby' array
-
-	set _self ::pattern
-
-	#set IFID 	[::p::internals::new_interface 1] ;#level 0 interface usedby object 1
-	#set IFID_1 [::p::internals::new_interface 1] ;#level 1 interface usedby object 1
-
-
-
-	#1)this object references its interfaces
-	#lappend ID $IFID $IFID_1
-	#lset SELFMAP 1 0 $IFID
-	#lset SELFMAP 2 0 $IFID_1
-
-
-	#set body [string map [::list @self@ ::>pattern @_self@ ::pattern @self_ID@ 0 @itemCmd@ item]  $::p::internals::OBJECTCOMMAND]
-	#proc ::>pattern args $body
-
-
-
-
-	#######################################################################################
-	#OID = 2
-	# >ifinfo  interface for accessing interfaces.
-	#
-	::p::internals::new_object ::p::ifaces::>2 "" 2       ;#>ifinfo object
-		set 	  	::p::2::_iface::o_constructor [list]
-		set 	  	::p::2::_iface::o_variables [list]
-		set 	  	::p::2::_iface::o_properties [dict create]
-		set 	  	::p::2::_iface::o_methods    [dict create]
-		set       ::p::2::_iface::o_varspace ""
-		set       ::p::2::_iface::o_varspaces [list]
-		array set 	::p::2::_iface::o_definition [list]
-		set 		::p::2::_iface::o_open 1   ;#open for extending
-
-	::p::ifaces::>2 .. AddInterface 2
-
-	#Manually create a minimal >ifinfo implementation using the same general pattern we use for all method implementations
-	#(bootstrap because we can't yet use metaface methods on it)
-
-
-
-	proc ::p::2::_iface::isOpen.1 {_ID_} {
-		return $::p::2::_iface::o_open
-	}
-	interp alias {} ::p::2::_iface::isOpen {} ::p::2::_iface::isOpen.1
-
-	proc ::p::2::_iface::isClosed.1 {_ID_} {
-		return [expr {!$::p::2::_iface::o_open}]
-	}
-	interp alias {} ::p::2::_iface::isClosed {} ::p::2::_iface::isClosed.1
-
-	proc ::p::2::_iface::open.1 {_ID_} {
-		set ::p::2::_iface::o_open 1
-	}
-	interp alias {} ::p::2::_iface::open {} ::p::2::_iface::open.1
-
-	proc ::p::2::_iface::close.1 {_ID_} {
-		set ::p::2::_iface::o_open 0
-	}
-	interp alias {} ::p::2::_iface::close {} ::p::2::_iface::close.1
-
-
-	#proc ::p::2::_iface::(GET)properties.1 {_ID_} {
-	#	set ::p::2::_iface::o_properties
-	#}
-	#interp alias {} ::p::2::_iface::(GET)properties {} ::p::2::_iface::(GET)properties.1
-
- #interp alias {} ::p::2::properties {} ::p::2::_iface::(GET)properties
-
-
-	#proc ::p::2::_iface::(GET)methods.1 {_ID_} {
-	#	set ::p::2::_iface::o_methods
-	#}
-	#interp alias {} ::p::2::_iface::(GET)methods {} ::p::2::_iface::(GET)methods.1
-	#interp alias {} ::p::2::methods {} ::p::2::_iface::(GET)methods
-
-
-
-
-
-	#link from object to interface (which in this case are one and the same)
-
-	#interp alias {} ::p::2::isOpen {} ::p::2::_iface::isOpen  [::p::ifaces::>2 --]
-	#interp alias {} ::p::2::isClosed {} ::p::2::_iface::isClosed [::p::ifaces::>2 --]
-	#interp alias {} ::p::2::open {} ::p::2::_iface::open  [::p::ifaces::>2 --]
-	#interp alias {} ::p::2::close {} ::p::2::_iface::close  [::p::ifaces::>2 --]
-
-	interp alias {} ::p::2::isOpen {} ::p::2::_iface::isOpen
-	interp alias {} ::p::2::isClosed {} ::p::2::_iface::isClosed
-	interp alias {} ::p::2::open {} ::p::2::_iface::open
-	interp alias {} ::p::2::close {} ::p::2::_iface::close
-
-
-	#namespace eval ::p::2 "namespace export $method"
-
-	#######################################################################################
-
-
-
-
-
-
-	set ::pattern::initialised 1
-
-
-	::p::internals::new_object ::p::>interface "" 3
-	#create a convenience object on which to manipulate the >ifinfo interface
-	#set IF [::>pattern .. Create ::p::>interface]
-	set IF ::p::>interface
-
-
-    #!todo - put >ifinfo on a separate pStack so that end-user can more freely treat interfaces as objects?
-    # (or is forcing end user to add their own pStack/iStack ok .. ?)
-    #
-    ::p::>interface .. AddPatternInterface 2  ;#
-
-    ::p::>interface .. PatternVarspace _iface
-
-    ::p::>interface .. PatternProperty methods
-    ::p::>interface .. PatternPropertyRead methods {} {
-        varspace _iface
-        var {o_methods alias}
-        return  $alias
-    }
-    ::p::>interface  .. PatternProperty properties
-    ::p::>interface  .. PatternPropertyRead properties {} {
-        varspace _iface
-        var o_properties
-        return $o_properties
-    }
-    ::p::>interface  .. PatternProperty variables
-
-    ::p::>interface  .. PatternProperty varspaces
-
-    ::p::>interface  .. PatternProperty definition
-
-    ::p::>interface .. Constructor {{usedbylist {}}} {
-        #var this
-        #set this @this@
-        #set ns [$this .. Namespace]
-        #puts "-> creating ns ${ns}::_iface"
-        #namespace eval ${ns}::_iface {}
-
-        varspace _iface
-        var o_constructor o_variables o_properties o_methods o_definition o_usedby o_varspace o_varspaces
-
-        set o_constructor [list]
-        set o_variables [list]
-        set o_properties [dict create]
-        set o_methods [dict create]
-        set o_varspaces [list]
-        array set o_definition [list]
-
-        foreach usedby $usedbylist {
-            set	o_usedby(i$usedby) 1
-        }
-
-
-    }
-    ::p::>interface .. PatternMethod isOpen {} {
-        varspace _iface
-        var o_open
-
-        return $o_open
-    }
-    ::p::>interface  .. PatternMethod isClosed {} {
-        varspace _iface
-        var o_open
-
-        return [expr {!$o_open}]
-    }
-    ::p::>interface  .. PatternMethod open {} {
-        varspace _iface
-        var o_open
-        set o_open 1
-    }
-    ::p::>interface  .. PatternMethod close {} {
-        varspace _iface
-        var o_open
-        set o_open 0
-    }
-    ::p::>interface  .. PatternMethod refCount {} {
-        varspace _iface
-        var o_usedby
-        return [array size o_usedby]
-    }
-
-    set ::p::2::_iface::o_open 1
-
-
-
-
-    uplevel #0  {pattern::util::package_require_min patternlib 1.2.4}
-    #uplevel #0 {package require patternlib}
-    return 1
-}
-
-
-
-proc ::p::merge_interface {old new} {
-	#puts stderr " ** ** ** merge_interface $old $new"
-	set ns_old ::p::$old
-	set ns_new ::p::$new
-
-	upvar #0 ::p::${new}:: IFACE
-	upvar #0 ::p::${old}:: IFACEX
-
-	if {![catch {set c_arglist $IFACEX(c,args)}]} {
-		#constructor
-		#for now.. just add newer constructor regardless of any existing one
-		#set IFACE(c,args) $IFACEX(c,args)
-
-		#if {![info exists IFACE(c,args)]} {
-		#	#target interface didn't have a constructor
-		#
-		#} else {
-		#	#
-		#}
-	}
-
-
-	set methods [::list]
-	foreach nm [array names IFACEX m-1,name,*] {
-		lappend methods [lindex [split $nm ,] end] ;#use the method key-name not the value! (may have been overridden)
-	}
-
-	#puts " *** merge interface $old -> $new ****merging-in methods: $methods "
-
-	foreach method $methods {
-		if {![info exists IFACE(m-1,name,$method)]} {
-			#target interface doesn't yet have this method
-
-			set THISNAME $method
-
-			if {![string length [info command ${ns_new}::$method]]} {
-
-				if {![set ::p::${old}::_iface::o_open]} {
-					#interp alias {} ${ns_new}::$method {} ${ns_old}::$method
-					#namespace eval $ns_new "namespace export [namespace tail $method]"
-				} else {
-					#wait to compile
-				}
-
-			} else {
-				error "merge interface - command collision "
-			}
-			#set i 2 ???
-			set i 1
-
-		} else {
-			#!todo - handle how?
-			#error "command $cmd already exists in interface $new"
-
-
-			set i [incr IFACE(m-1,chain,$method)]
-
-			set THISNAME ___system___override_${method}_$i
-
-			#move metadata using  subindices for delegated methods
-			set IFACE(m-$i,name,$method)			$IFACE(m-1,name,$method)
-			set IFACE(m-$i,iface,$method)			$IFACE(m-1,iface,$method)
-			set IFACE(mp-$i,$method)				$IFACE(mp-1,$method)
-
-			set IFACE(m-$i,body,$method)			$IFACE(m-1,body,$method)
-			set IFACE(m-$i,args,$method) 			$IFACE(m-1,args,$method)
-
-
-			#set next [::p::next_script  $IFID0 $method]
-			if {![string length [info command ${ns_new}::$THISNAME]]} {
-				if {![set ::p::${old}::_iface::o_open]} {
-					interp alias {} ${ns_new}::$THISNAME {} ${ns_old}::$method
-					namespace eval $ns_new "namespace export $method"
-				} else {
-					#wait for compile
-				}
-			} else {
-				error "merge_interface - command collision "
-			}
-
-		}
-
-		array set IFACE [::list \
-			m-1,chain,$method		$i \
-			m-1,body,$method		$IFACEX(m-1,body,$method) \
-			m-1,args,$method		$IFACEX(m-1,args,$method) \
-			m-1,name,$method		$THISNAME \
-			m-1,iface,$method		$old \
-		]
-
-	}
-
-
-
-
-
-	#array set ${ns_new}:: [array get ${ns_old}::]
-
-
-	#!todo - review
-	#copy everything else across..
-
-	foreach {nm v} [array get IFACEX] {
-		#puts "-.- $nm"
-		if {([string first "m-1," $nm] != 0) && ($nm ne "usedby")} {
-			set IFACE($nm) $v
-		}
-	}
-
-	#!todo -write a test
-	set ::p::${new}::_iface::o_open 1
-
-	#!todo - is this done also when iface compiled?
-	#namespace eval ::p::$new {namespace ensemble create}
-
-
-	#puts stderr "copy_interface $old $new"
-
-	#assume that the (usedby) data is now obsolete
-	#???why?
-	#set ${ns_new}::(usedby) [::list]
-
-	#leave ::(usedby) reference in place
-
-	return
-}
-
-
-
-
-#detect attempt to treat a reference to a method as a property
-proc ::p::internals::commandrefMisuse_TraceHandler {OID field args} {
-#puts "commandrefMisuse_TraceHandler fired OID:$OID field:$field args:$args"
-	lassign [lrange $args end-2 end] vtraced vidx op
-	#NOTE! cannot rely on vtraced as it may have been upvared
-
-	switch -- $op {
-		write {
-			error "$field is not a property" "property ref write failure for property $field (OID: $OID refvariable: [lindex $args 0])"
-		}
-		unset {
-			#!todo - monitor stat of Tcl bug# 1911919 - when/(if?) fixed - reinstate 'unset' trace
-			#trace add variable $traced {read write unset} [concat ::p::internals::commandrefMisuse_TraceHandler $OID $field $args]
-
-			#!todo - don't use vtraced!
-			trace add variable $vtraced {read write unset array} [concat ::p::internals::commandrefMisuse_TraceHandler $OID $field $args]
-
-			#pointless raising an error as "Any errors in unset traces are ignored"
-			#error "cannot unset. $field is a method not a property"
-		}
-		read {
-			error "$field is not a property (args $args)" "property ref read failure for property $field (OID: $OID refvariable: [lindex $args 0])"
-		}
-		array {
-			error "$field is not a property (args $args)" "property ref use as array failure for property $field (OID: $OID refvariable: [lindex $args 0])"
-			#error "unhandled operation in commandrefMisuse_TraceHandler - got op:$op expected read,write,unset.  OID:$OID field:$field args:$args"
-		}
-	}
-
-	return
-}
-
-
-
-
-#!todo - review calling-points for make_dispatcher.. probably being called unnecessarily at some points.
-#
-# The 'dispatcher' is an object instance's underlying object command.
-#
-
-#proc ::p::make_dispatcher {obj ID IFID} {
-#	proc [string map {::> ::} $obj] {{methprop INFO} args}  [string map [::list @IID@ $IFID @oid@ $ID] {
-#		::p::@IID@ $methprop @oid@ {*}$args
-#	}]
-#	return
-#}
-
-
-
-
-################################################################################################################################################
-################################################################################################################################################
-################################################################################################################################################
-
-#aliased from ::p::${OID}::
-# called when no DefaultMethod has been set for an object, but it is called with indices e.g >x something
-proc ::p::internals::no_default_method {_ID_ args} {
-    puts stderr "p::internals::no_default_method _ID_:'$_ID_' args:'$args'"
-	lassign [lindex [dict get $_ID_ i this] 0] OID alias default_method object_command wrapped
-	tailcall error "No default method on object $object_command. (To get or set, use: $object_command .. DefaultMethod ?methodname? or use PatternDefaultMethod)"
-}
-
-#force 1 will extend an interface even if shared. (??? why is this necessary here?)
-#if IID empty string - create the interface.
-proc ::p::internals::expand_interface {IID {force 0}} {
-	#puts stdout ">>> expand_interface $IID [info level -1]<<<"
-	if {![string length $IID]} {
-		#return	[::p::internals::new_interface]  ;#new interface is by default open for extending (o_open = 1)
-		set iid [expr {$::p::ID + 1}]
-		::p::>interface .. Create ::p::ifaces::>$iid
-		return $iid
-	} else {
-		if {[set ::p::${IID}::_iface::o_open]} {
-			#interface open for extending - shared or not!
-			return $IID
-		}
-
-		if {[array size ::p::${IID}::_iface::o_usedby] > 1} {
-			#upvar #0 ::p::${IID}::_iface::o_usedby prev_usedby
-
-			#oops.. shared interface. Copy before specialising it.
-			set prev_IID $IID
-
-			#set IID [::p::internals::new_interface]
-			set IID [expr {$::p::ID + 1}]
-			::p::>interface .. Create ::p::ifaces::>$IID
-
-			::p::internals::linkcopy_interface $prev_IID $IID
-			#assert: prev_usedby contains at least one other element.
-		}
-
-		#whether copied or not - mark as open for extending.
-		set ::p::${IID}::_iface::o_open 1
-		return $IID
-	}
-}
-
-#params: old - old (shared) interface ID
-#		 new - new interface ID
-proc ::p::internals::linkcopy_interface {old new} {
-	#puts stderr " ** ** ** linkcopy_interface $old $new"
-	set ns_old ::p::${old}::_iface
-	set ns_new ::p::${new}::_iface
-
-
-
-	foreach nsmethod [info commands ${ns_old}::*.1] {
-		#puts ">>> adding $nsmethod to iface $new"
-		set tail [namespace tail $nsmethod]
-		set method [string range $tail 0 end-2] ;#strip .1
-
-		if {![llength [info commands ${ns_new}::$method]]} {
-
-			set oldhead [interp alias {} ${ns_old}::$method] ;#the 'head' of the cmdchain that it actually points to ie  $method.$x  where $x >=1
-
-			#link from new interface namespace to existing one.
-			#(we assume that since ${ns_new}::$method didn't exist, that all the $method.$x chain slots are empty too...)
-			#!todo? verify?
-			#- actual link is chainslot to chainslot
-			interp alias {} ${ns_new}::$method.1 {} $oldhead
-
-			#!todo - review. Shouldn't we be linking entire chain, not just creating a single .1 pointer to the old head?
-
-
-			#chainhead pointer within new interface
-			interp alias {} ${ns_new}::$method {} ${ns_new}::$method.1
-
-			namespace eval $ns_new "namespace export $method"
-
-			#if {[string range $method 0 4] ni {(GET) (SET) (UNSE (CONS }} {
-			#	lappend ${ns_new}::o_methods $method
-			#}
-		} else {
-			if {$method eq "(VIOLATE)"} {
-				#ignore for now
-				#!todo
-				continue
-			}
-
-			#!todo - handle how?
-			#error "command $cmd already exists in interface $new"
-
-			#warning - existing chainslot will be completely shadowed by linked method.
-			# - existing one becomes unreachable. #!todo review!?
-
-
-			error "linkcopy_interface $old -> $new - chainslot shadowing not implemented (method $method already exists on target interface $new)"
-
-		}
-	}
-
-
-	#foreach propinf [set ${ns_old}::o_properties] {
-	#		lassign $propinf prop _default
-	#		#interp alias {} ${ns_new}::(GET)$prop {} ::p::predator::getprop $prop
-	#		#interp alias {} ${ns_new}::(SET)$prop {} ::p::predator::setprop $prop
-	#		lappend ${ns_new}::o_properties $propinf
-	#}
-
-
-	set ${ns_new}::o_variables 		[set ${ns_old}::o_variables]
-	set ${ns_new}::o_properties 	[set ${ns_old}::o_properties]
-	set ${ns_new}::o_methods 		[set ${ns_old}::o_methods]
-	set ${ns_new}::o_constructor 	[set ${ns_old}::o_constructor]
-
-
-	set ::p::${old}::_iface::o_usedby(i$new) linkcopy
-
-
-	#obsolete.?
-	array set ::p::${new}::  [array get ::p::${old}::	]
-
-
-
-	#!todo - is this done also when iface compiled?
-	#namespace eval ::p::${new}::_iface {namespace ensemble create}
-
-
-	#puts stderr "copy_interface $old $new"
-
-	#assume that the (usedby) data is now obsolete
-	#???why?
-	#set ${ns_new}::(usedby) [::list]
-
-	#leave ::(usedby) reference in place for caller to change as appropriate - 'copy'
-
-	return
-}
-################################################################################################################################################
-################################################################################################################################################
-################################################################################################################################################
-
-pattern::init
-
-return $::pattern::version
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/pattern-1.2.8.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/pattern-1.2.8.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/pattern-1.2.8.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/pattern-1.2.8.tm
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk-0.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk-0.1.tm
index 6fb185a9..55408253 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk-0.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk-0.1.tm
@@ -237,7 +237,7 @@ namespace eval punk {
 
 
 
-            #winget is installed on all modern windows and is an example of the problem this addresses
+            #winget is installed on all modern windows (but not on windows sandbox!) and is an example of the problem this addresses
             #we target apps with same location
 
             #the main purpose of this override is to support windows app executables (installed as 'reparse points')
@@ -255,7 +255,7 @@ namespace eval punk {
                     #This path is probably something like C:/Users/username/AppData/Local/Microsoft/WindowsApps
                     if {!([info exists ::env(LOCALAPPDATA)] &&
                         [file exists [set testapp [file join $::env(LOCALAPPDATA) "Microsoft" "WindowsApps" "winget.exe"]]])} {
-                        #should be unlikely to get here - unless LOCALAPPDATA missing
+                        #should be unlikely to get here - unless LOCALAPPDATA missing (or winget.exe missing e.g windows sandbox)
                         set windowsappdir       [file dirname [lindex [::punk::auto_execok_windows winget.exe] 0]]
                         catch {puts stderr "(resolved winget by search)"}
                     } else {
@@ -6321,7 +6321,10 @@ namespace eval punk {
     #useful for aliases e.g treemore -> xmore tree
     proc xmore {args} {
         if {[llength $args]} {
-            uplevel #0 [list {*}$args | more]
+            #more is older and not as featureful as less
+            #more importantly - at least some implementations (msys on windows) can skip output lines - unknown as to why
+            #uplevel #0 [list {*}$args | more]
+            uplevel #0 [list {*}$args | less -X] ;#-X to avoid use of alternate-screen
         } else {
             error "usage: punk::xmore args where args are run as {*}\$args | more"
         }
@@ -6947,7 +6950,8 @@ namespace eval punk {
             set newrow {}
             foreach oldrow $list_rows {
                 if {$j >= [llength $oldrow]} {
-                    continue
+                    #continue 
+                    lappend newrow ""
                 } else {
                     lappend newrow [lindex $oldrow $j]
                 }
@@ -6956,6 +6960,19 @@ namespace eval punk {
         }
         return $res
     }
+    proc transpose_equal_lists {list_rows} {
+        set columns [list]
+        set rowidx -1
+        foreach l $list_rows {
+            set colidx -1
+            incr rowidx
+            foreach val $l {
+                incr colidx
+                lset columns $colidx $rowidx $val
+            }
+        }
+        return $columns
+    }
     proc transpose_strings {list_of_strings} {
         set charlists [lmap v $list_of_strings {split $v ""}]
         set tchars [transpose_lists $charlists]
@@ -7924,7 +7941,13 @@ namespace eval punk {
                 set t [textblock::class::table new -show_hseps 0 -show_header 1 -ansiborder_header [a+ web-green]]
                 foreach {v vinfo} $otherenv_config {
                     if {[info exists ::env($v)]} {
-                        set c2 [set ::env($v)]
+                        set env_val [set ::env($v)]
+                        if {[string match "*_TM_PATH" $v]} {
+                           set entries [split $env_val $::tcl_platform(pathSeparator)]
+                           set c2 [join $entries \n]
+                        } else {
+                            set c2 $::env($v)
+                        }
                     } else {
                         set c2 "(NOT SET)"
                     }
@@ -7935,7 +7958,8 @@ namespace eval punk {
 
                 set othertable [$t print]
                 $t destroy
-                append text [textblock::join -- $punktable " " $othertable]\n
+                #append text [textblock::join -- $punktable " " $othertable]\n
+                append text $punktable\n$othertable\n
             } else {
 
                 append text $linesep\n
@@ -8245,9 +8269,29 @@ namespace eval punk {
     interp alias {} d/~ {} punk::nav::fs::d/~
     interp alias "" x/ "" punk::nav::fs::x/
 
+    variable pshell_path ""
+    # ----------------------------------------
+    set pshell_path [auto_execok pwsh] ;#Still not installed by default on win10 11?
+    if {$pshell_path eq ""} {
+        #fallback to powershell 5
+        #set pshell_path [auto_execok powershell]
+        set pshell_path powershell ;#temp
+    } else {
+        set pshell_path pwsh ;#temp
+    }
+    #todo - review run commands and handling of paths with spaces
+    # ----------------------------------------
 
-    if {$::tcl_platform(platform) eq "windows"} {
+
+
+    if {$pshell_path eq ""} {
+        set has_powershell 0
+    } else {
+        #todo - review powershell detection on non-windows platforms
         set has_powershell 1
+    }
+
+    if {$::tcl_platform(platform) eq "windows"} {
         interp alias {} dl {} dir /q
         interp alias {} dw {} dir /W/D
     } else {
@@ -8255,24 +8299,30 @@ namespace eval punk {
         #interp alias {} dl {}
         interp alias {} dl {} puts stderr "not implemented"
         interp alias {} dw {} puts stderr "not implemented"
-        #todo - powershell detection on other platforms
-        set has_powershell 0
     }
+
+    #todo - distinguish non-preinstalled pwsh (powershell core) from powershell which is available by default
     if {$has_powershell} {
         #see also powershell runspaces etc:
         # powershell runspaces  e.g $rs=[RunspaceFactory]::CreateRunspace()
         # $ps = [Powershell]::Create()
 
-        interp alias {} ps   {} exec >@stdout pwsh -nolo -nop -c
-        interp alias {} psx  {} runx -n pwsh -nop -nolo -c
-        interp alias {} psr  {} run -n pwsh -nop -nolo -c
-        interp alias {} psout  {} runout -n pwsh -nop -nolo -c
-        interp alias {} pserr  {} runerr -n pwsh -nop -nolo -c
-        interp alias {} psls {} shellrun::runconsole pwsh -nop -nolo -c ls
-        interp alias {} psps {} shellrun::runconsole pwsh -nop -nolo -c ps
+        interp alias {} pse   {} exec >@stdout {*}$pshell_path -nolo -nop -c
+        interp alias {} psx  {} runx -n {*}$pshell_path -nop -nolo -c
+        interp alias {} psr  {} run -n {*}$pshell_path -nop -nolo -c
+        interp alias {} psout  {} runout -n {*}$pshell_path -nop -nolo -c
+        interp alias {} pserr  {} runerr -n {*}$pshell_path -nop -nolo -c
+        #interp alias {} psls {} shellrun::runconsole $pshell_path -nop -nolo -c ls
+        #interp alias {} psls {} shellrun::runconsole {*}$pshell_path -nop -nolo -c {ls | Select-Object Mode, @{Name='Owner';Expression={(Get-Acl $_.FullName).Owner}}, LastWriteTime, Length, Name | Format-Table}
+        proc psls args {
+            variable pshell_path
+            shellrun::runconsole {*}$pshell_path -nop -nolo -c  {*}[string map [list %a% $args] {{ls %a% | Select-Object Mode, @{Name='Owner';Expression={(Get-Acl $_.FullName).Owner}}, LastWriteTime, Length, Name | Format-Table}}]
+        }
+        interp alias {} psls {} punk::psls
+        interp alias {} psps {} shellrun::runconsole {*}$pshell_path -nop -nolo -c ps
     } else {
-        set ps_missing "powershell missing (powershell is open source and can be installed on windows and most unix-like platforms)"
-        interp alias {} ps {} puts stderr  $ps_missing
+        set ps_missing "powershell missing (powershell is MIT licensed open source and can be installed on windows and most unix-like platforms)"
+        interp alias {} pse {} puts stderr  $ps_missing
         interp alias {} psx {} puts stderr  $ps_missing
         interp alias {} psr {} puts stderr  $ps_missing
         interp alias {} psout {} puts stderr  $ps_missing
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm
index 255715ad..15421402 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ansi-0.1.1.tm
@@ -3130,10 +3130,10 @@ Brightblack 100   Brightred 101   Brightgreen 102   Brightyellow 103   Brightblu
                     }
                 }
                 undt {
-                    #CSI 58:5  UNDERLINE COLOR PALETTE INDEX
-                    #CSI 58 : 5 : INDEX m
-                    #variable TERM_colour_map
-                    #256 colour underline by Xterm name or by integer
+                    # CSI 58:5  UNDERLINE COLOR PALETTE INDEX
+                    # CSI 58 : 5 : INDEX m
+                    # variable TERM_colour_map
+                    # 256 colour underline by Xterm name or by integer
                     #name is xterm name or colour index from 0 - 255
                     set cc [tcl::string::tolower [tcl::string::range $i 5 end]]
                     if {[tcl::string::is integer -strict $cc] & $cc < 256} {
@@ -3785,7 +3785,7 @@ Brightblack 100   Brightred 101   Brightgreen 102   Brightyellow 103   Brightblu
         }
 
         set codestack [list]
-        if {[punk::ansi::ta::detect $text]} {
+        if {[punk::ansi::ta::detectcode $text]} {
             set emit ""
             #set parts [punk::ansi::ta::split_codes $text]
             set parts [punk::ansi::ta::split_codes_single $text]
@@ -3892,7 +3892,7 @@ Brightblack 100   Brightred 101   Brightgreen 102   Brightyellow 103   Brightblu
         }
 
         set codestack [list]
-        if {[punk::ansi::ta::detect $text]} {
+        if {[punk::ansi::ta::detectcode $text]} {
             set emit ""
             #set parts [punk::ansi::ta::split_codes $text]
             set parts [punk::ansi::ta::split_codes_single $text]
@@ -4158,7 +4158,8 @@ Brightblack 100   Brightred 101   Brightgreen 102   Brightyellow 103   Brightblu
     # where line and column are ascii codes whose values are +31
     # vt52 can be entered/exited via escapes
     # This means we probably need to to wrap enter/exit vt52 and keep this state - as we don't have a standard way to query for terminal type
-    # (vt52 supports ESC Z - but vt100 sometimes? doesn't - and querying at each output would be slow anyway, even if there was a common query :/ )
+    # (vt52 supports ESC Z (obs DECID) - but vt100 sometimes? doesn't - and querying at each output would be slow anyway, even if there was a common query :/ )
+    #ESC\[c - is more modern equiv of DECID
 
     lappend PUNKARGS [list {
         @id     -id     ::punk::ansi::vt52move
@@ -4946,6 +4947,8 @@ to 223 (=255 - 32)
         }
         if {[string length $text] < 2} {return $text}
         set parts [punk::ansi::ta::split_codes $text]
+        #review - if we have only one element of a paired codeset such as PM,SOS - it will not be found by split_codes
+        #The output technically then still contains ansi (which may for example be hidden by terminal despite lack of closing ST)
         if {[llength $parts] == 1} {return [lindex $parts 0]}
         set out ""
         #todo - try: join [lsearch -stride 2 -index 0 -subindices -all -inline  $parts *] ""
@@ -5199,9 +5202,10 @@ tcl::namespace::eval punk::ansi {
         #tcl::dict::set codestate_empty undersingle ""
         #tcl::dict::set codestate_empty underdouble ""
         #tcl::dict::set codestate_empty undercurly ""
-        #tcl::dict::set codestate_empty underdottedn ""
+        #tcl::dict::set codestate_empty underdotted ""
         #tcl::dict::set codestate_empty underdashed ""
 
+
         tcl::dict::set codestate_empty blink   ""    ;#5 or 6 for slow/fast, 25 for off
         tcl::dict::set codestate_empty reverse ""    ;#7 on 27 off
         tcl::dict::set codestate_empty hide  ""      ;#8 on 28 off
@@ -5231,6 +5235,8 @@ tcl::namespace::eval punk::ansi {
         tcl::dict::set codestate_empty fg ""        ;#30-37 + 90-97
         tcl::dict::set codestate_empty bg ""        ;#40-47 + 100-107
 
+        variable metastate_empty
+        tcl::dict::set metastate_empty underline_active "" ;#a meta state for whether underlines are on|off - values 1,0,""
 
         #misnomer should have been sgr_merge_args ? :/
         #as a common case optimisation - it will not merge a single element list, even if that code contains redundant elements
@@ -5266,6 +5272,7 @@ tcl::namespace::eval punk::ansi {
         #(use punk::ansi::ta::split_codes_single)
         proc sgr_merge_singles {codelist args} {
             variable codestate_empty
+            variable metastate_empty
             variable defaultopts_sgr_merge_singles
             set opts $defaultopts_sgr_merge_singles
             foreach {k v} $args {
@@ -5281,8 +5288,8 @@ tcl::namespace::eval punk::ansi {
             }
 
             set othercodes [list]
-            set codestate $codestate_empty
-            set codestate_initial $codestate_empty ;#keep a copy for resets.
+            set codestate $codestate_empty ;#take copy as we need the empty state for resets
+            set metastate $metastate_empty
             set did_reset 0
 
             #we should also handle 8bit CSI here?  mixed \x1b\[  and \x9b  ?  Which should be used in the merged result?
@@ -5342,7 +5349,8 @@ tcl::namespace::eval punk::ansi {
                             switch -- $codeint {
                                 "" - 0 {
                                     if {![tcl::dict::get $opts -filter_reset]} {
-                                        set codestate $codestate_initial
+                                        set codestate $codestate_empty
+                                        set metastate $metastate_empty
                                         set did_reset 1
                                     }
                                 }
@@ -5368,27 +5376,42 @@ tcl::namespace::eval punk::ansi {
                                     #e.g hyper on windows
                                     if {[llength $paramsplit] == 1} {
                                         tcl::dict::set codestate underline  4
+                                        if {[tcl::dict::get $codestate underextended] eq "4:0"} {
+                                            tcl::dict::set codestate underextended ""
+                                        }
+                                        tcl::dict::set metastate underline_active 1
                                     } else {
                                         switch -- [lindex $paramsplit 1] {
                                             0 {
                                                 #no *extended* underline
                                                 #tcl::dict::set codestate underline 24
                                                 tcl::dict::set codestate underextended 4:0  ;#will not turn off SGR standard underline if term doesn't support extended
+                                                tcl::dict::set metastate underline_active 0
                                             }
                                             1 {
+                                                #single
                                                 tcl::dict::set codestate underextended 4:1
+                                                tcl::dict::set metastate underline_active 1
                                             }
                                             2 {
+                                                #double
                                                 tcl::dict::set codestate underextended 4:2
+                                                tcl::dict::set metastate underline_active 1
                                             }
                                             3 {
+                                                #curly
                                                 tcl::dict::set codestate underextended "4:3"
+                                                tcl::dict::set metastate underline_active 1
                                             }
                                             4 {
+                                                #dotted
                                                 tcl::dict::set codestate underextended "4:4"
+                                                tcl::dict::set metastate underline_active 1
                                             }
                                             5 {
+                                                #dashed
                                                 tcl::dict::set codestate underextended "4:5"
+                                                tcl::dict::set metastate underline_active 1
                                             }
                                         }
 
@@ -5428,6 +5451,7 @@ tcl::namespace::eval punk::ansi {
                                 24 {
                                     tcl::dict::set codestate underline 24 ;#off
                                     tcl::dict::set codestate underextended "4:0"  ;#review
+                                    tcl::dict::set metastate underline_active 0
                                 }
                                 25 {
                                     tcl::dict::set codestate blink 25 ;#off
@@ -5516,11 +5540,11 @@ tcl::namespace::eval punk::ansi {
                                 }
                                 58 {
                                     #nonstandard
-                                    #256 colour or rgb
+                                    # 256 colour or rgb
                                     if {[tcl::string::first : $p] < 0} {
                                         switch -- [lindex $plist $i+1] {
                                             5 {
-                                                #256 - 1 more param
+                                                # 256 - 1 more param
                                                 tcl::dict::set codestate underlinecolour "58\;5\;[lindex $plist $i+2]"
                                                 incr i 2
                                             }
@@ -5541,10 +5565,12 @@ tcl::namespace::eval punk::ansi {
                                 60 {
                                     tcl::dict::set codestate ideogram_underline 60
                                     tcl::dict::set codestate ideogram_clear ""
+                                    #nounderline effect?  review!
                                 }
                                 61 {
                                     tcl::dict::set codestate ideogram_doubleunderline 61
                                     tcl::dict::set codestate ideogram_clear ""
+                                    #nounderline effect?  review!
                                 }
                                 62 {
                                     tcl::dict::set codestate ideogram_overline 62
@@ -5563,6 +5589,7 @@ tcl::namespace::eval punk::ansi {
                                     #review - we still need to pass through the ideogram_clear in case something understands it
                                     tcl::dict::set codestate ideogram_underline ""
                                     tcl::dict::set codestate ideogram_doubleunderline ""
+
                                     tcl::dict::set codestate ideogram_overline ""
                                     tcl::dict::set codestate ideogram_doubleoverline ""
                                 }
@@ -5620,6 +5647,7 @@ tcl::namespace::eval punk::ansi {
                                     }
                                 }
                                 underlinecolour - underextended {
+                                    #review
                                     append unmergeable "${v}\;"
                                 }
                                 default {
@@ -5637,7 +5665,11 @@ tcl::namespace::eval punk::ansi {
                         "" {}
                         default {
                             switch -- $k {
-                                underlinecolour - underextended {
+                                underlinecolour {
+                                    append unmergeable "${v}\;"
+                                }
+                                underextended {
+                                    #review
                                     append unmergeable "${v}\;"
                                 }
                                 default {
@@ -5686,21 +5718,106 @@ tcl::namespace::eval punk::ansi {
         #[list_end] [comment {--- end definitions namespace punk::ansi::codetype ---}]
     }
     tcl::namespace::eval sequence_type {
-        proc is_Fe {code} {
+        #first byte after ESC identifies code type
+        #NOTE - we are looking for valid start of a single sequence here
+        #- not whether it is complete or where it ends, unless it's a fixed number of bytes
+
+        #\u0020-\u002F
+        # ESC <sp>!"#$%&'()*+,-./
+
+        #\u0030-\u003F
+        #ESC 0-9:;<=>?
+
+        #\u0040-\u005F
+        # ESC  @A-Z[\]^
+
+        #\u0060-\u007E
+
+        proc is_Fe7 {code} {
             # C1 control codes
-            if {[regexp {^\033\[[\u0040-\u005F]}]} {
-                #7bit - typical case
-                return 1
-            }
+            #7bit - typical case
+            # ESC  @A-Z[\]^
+            return [regexp {^\033[\u0040-\u005F]} $code] 
+        }
+        proc is_Fe {code} {
+            #although Fe7 more common - we'll put the simpler regex for 8 first
+            return [expr {[is_Fe8 $code] || [is_Fe7 $code]}]
+        }
+        proc is_Fe8 {code} {
             #8bit
-            #review - all C1 escapes ? 0x80-0x90F
+            #review - all C1 escapes ? 0x80-0x9F
             #This is possibly problematic as it is affected by encoding.
             #According to https://en.wikipedia.org/wiki/ANSI_escape_code#8-bit
             #"However, in character encodings used on modern devices such as UTF-8 or CP-1252, those codes are often used for other purposes, so only the 2-byte sequence is typically used."
-            return 0
+            return [regexp {^[\u0080-\u09F]} $code]
         }
+        #ESC 0-9,:,;,<,=,>,?
+        proc is_Fp {code} {
+            #single byte following ESC
+            return [regexp {^\033[\u0030-\u003F]$} $code] 
+        }
+
+        #https://en.wikipedia.org/wiki/ISO/IEC_2022
+        #e.g
+        # ESC a (INT) interrupts the current process
+        # ESC c (RIS) reset terminal to initial state
+        #ESC `a-z{|}~
         proc is_Fs {code} {
-            puts stderr "is_Fs unimplemented"
+            #single byte following ESC
+            return [regexp {^\033[\u0060-\u007E]$} $code] 
+        }
+
+
+        proc is_nF {code} {
+            #2 bytes
+            #subcategorised by the low two bits of the first byte (n)
+            #further by whether the final byte is in \u0030-u003f (p) or not (t)
+            return [regexp {^\033[\u0020-\u002F]+[\u0030-\u007E]$} $code]
+        }
+
+        #review - test
+        #3Fp - private use 
+        #e.g vt100
+        # ESC#3 DECDHL double-height letters top half
+        # ESC#4 DECDHL double-height letters bottom half
+        # ESC#5 DECSWL single-width line
+        # ESC#6 DECDWL double-width line
+        proc is_3Fp {code} {
+            return [regexp {^\033#[\u0020-\u002F]*[\u0030-\u003F]$} $code] ;#check regexp
+        }
+
+        proc is_code7 {code} {
+            #Fe | Fs | Fp | nF | Fe
+            return [regexp {^\033[\u0040-\u005F]|^\033[\u0060-\u007e]$|^\033[\u0030-\u003F]$|^\033[\u0020-\u002F]+[\u0030-\u007E]$} $code]
+        }
+        proc is_code8 {code} {
+            return [regexp {^[\u0080-\u09F]} $code]
+        }
+        proc is_code {code} {
+            return [expr {[is_code8 $code] || [is_code7 $code]}]
+        }
+
+        proc classify {code} {
+            return [switch -regexp -- $code {
+                {^\033[\u0030-\u003F]$}                  {string cat Fp}
+                {^[\u0080-\u009F]|^\033[\u0040-\u005F]}  {string cat Fe}
+                {^\033[\u0060-\u007E]$}                  {string cat Fs}
+                {^\033[\u0020-\u002F]+[\u0030-\u007E]$} {
+                    #nF sequences
+                    set firstbytenum [scan [string index $code 1] %c]
+                    set lastbyte [string index $code end]
+
+                    set n [expr {$firstbytenum & 3}]
+                    if {[regexp {[\u0030-\u003F]} $lastbyte]} {
+                        set tp p
+                    } else {
+                        set tp t
+                    }
+                    string cat ${n}F$tp
+                }
+                {^\033#[\u0020-\u002F]*[\u0030-\u003F]$} {string cat 3Fp}
+                default                                  {string cat unknown}
+            }]
         }
     }
     # -- --- --- --- --- --- --- --- --- --- ---
@@ -5718,6 +5835,7 @@ tcl::namespace::eval punk::ansi::ta {
     #[para] https://github.com/perlancar/perl-Text-ANSI-Util/blob/master/lib/Text/ANSI/BaseUtil.pm
     #[list_begin definitions]
     tcl::namespace::path ::punk::ansi
+    namespace export detect detect_in_list detect_sgr extract length split_codes split_at_codes split_codes_single
 
     variable PUNKARGS
 
@@ -5748,20 +5866,27 @@ tcl::namespace::eval punk::ansi::ta {
     variable re_osc_open {(?:\x1b\]|\u009d).*}
 
 
+    #review - distinguishing standalone codes vs those that are paired with contents considered part of the code
+    #e.g PM,SOS are 'paired' ended by ST
+
     #variable standalone_code_map [list \x1bc "" \x1b7 "" \x1b8 "" \x1bM "" \x1bE "" \x1bD "" \x1bH "" \x1b= "" \x1b> "" \x1b#3 "" \x1b#4 "" \x1b#5 "" \x1b#6 "" \x1b#8 ""]
     variable re_standalones {(?:\x1bc|\x1b7|\x1b8|\x1bM|\x1bD|\x1bE|\x1bH|\x1b=|\x1b>|\x1b#3|\x1b#4|\x1b#5|\x1b#6|\x1b#8)}
     variable re_standalones_vt52 {(?:\x1bZ)}
 
-    #ESC Y move, ESC b foreground colour
+    # -- 
+    #ESC Y move                 - \x1bY<byte><byte> ie 2 bytes to close
+    #ESC b foreground colour    - \x1bb<byte>  1 byte to close
+    variable re_vt52_incomplete {(?:\x1bY(.){0,1}$|\x1bb$)}
+    #\x1bc vt52 bgcolour conflict ?
     #ESC F - gr-on ESC G - gr-off
-    variable re_vt52_open {(?:\x1bY|\x1bb|\x1bF)}
-    #\x1bc vt52 bgcolour conflict ??
+    # --
 
     #if we don't split on altgraphics too and separate them out - it's easy to get into a horrible mess
     variable re_g0_group {(?:\x1b\(0)(?:(?!\x1b\(B).)*\x1b\(B}
     variable re_g0_open  {(?:\x1b\(0)}
     variable re_g0_close {(?:\x1b\(B)}
 
+    #detect start of ansicode that is closed by ST
     # DCS "ESC P" or "0x90" is also terminated by ST
     set re_ST_open {(?:\033P|\u0090|\033X|\u0098|\033\^|\u009e|\033_|\u009f)}
     #ST terminators [list \007 \033\\ \u009c]
@@ -5777,12 +5902,15 @@ tcl::namespace::eval punk::ansi::ta {
     variable re_ST      {(?:\x1bP|\x1bX|\x1b\^|\x1b_)(?:(?!\x1b\\|\007).)*(?:\x1b\\|\007)|(?:\u0090|\u0098|\u009E|\u009F)(?:(?!\u009c).)*(?:\u009c)}
 
 
+    #variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_standalones}|${re_standalones_vt52}|${re_ST_open}|${re_g0_open}|${re_vt52_open}"
+    #variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_ST_open}|${re_g0_open}|${re_vt52_open}"
+    variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_ST_open}|${re_vt52_incomplete}"
 
     #consider standalones as self-opening/self-closing - therefore included in both ansi_detect and ansi_detect_open
 
     #default for regexes is non-newline-sensitive matching - ie matches can span lines
     # -- --- --- ---
-    variable re_ansi_detect1 "${re_csi_code}|${re_esc_osc1}|${re_esc_osc2}|${re_esc_osc3}|${re_standalones}|${re_ST}|${re_g0_open}|${re_g0_close}"
+    #variable re_ansi_detect1 "${re_csi_code}|${re_esc_osc1}|${re_esc_osc2}|${re_esc_osc3}|${re_standalones}|${re_ST}|${re_g0_open}|${re_g0_close}"
     # -- --- --- ---
     #handrafted TRIE version of above. Somewhat difficult to construct and maintain. TODO - find a regexp TRIE generator that works with Tcl regexes
     #This does make things quicker - but it's too early to finalise the detect/split regexes (e.g missing \U0090 ) - will need to be redone.
@@ -5802,20 +5930,24 @@ tcl::namespace::eval punk::ansi::ta {
     # plus more for auxiliary keypad codes in keypad application mode (and some in numeric mode)
 
     #regexp expanded syntax = ?x
+    #full detect - checking for closing sequences
     variable re_ansi_detect {(?x)
-            (?:\x1b(?:\[(?:[\x20-\x2f\x30-\x3f]*[\x40-\x7e])|c|7|8|M|D|E|H|=|>|<|A|B|C|I|J|K|L|M|Z|(?:Y(?:..))|(?:b(?:.))|\((?:0|B)|\](?:(?:[^\007]*)\007|(?:(?!\x1b\\).)*\x1b\\)|(?:P|X|\^|_)(?:(?:(?!\x1b\\|\007).)*(?:\x1b\\|\007))|(?:\#(?:3|4|5|6|8))))
+            (?:\x1b(?:\[(?:[\x20-\x3f]*[\x40-\x7e])|a|c|7|8|M|D|E|H|=|>|<|A|B|C|I|J|K|L|M|Z|(?:Y(?:..))|(?:b(?:.))|\((?:0|B)|\](?:(?:[^\007]*)\007|(?:(?!\x1b\\).)*\x1b\\)|(?:P|X|\^|_)(?:(?:(?!\x1b\\|\007).)*(?:\x1b\\|\007))|(?:\#(?:3|4|5|6|8))))
             |(?:\u0090|\u0098|\u009E|\u009F)(?:(?!\u009c).)*(?:\u009c)
-            |(?:\u009b)[\x20-\x2f\x30-\x3f]*[\x40-\x7e]
+            |(?:\u009b)[\x20-\x3f]*[\x40-\x7e]
             |(?:\u009d)(?:[^\u009c]*)?\u009c
     }
     #---
+    #todo
+    #variable re_ansi_detectcode $re_ansi_detect
+    #variable re_ansi_detectcode {\x1b[\u0040-\u005F]|\x1b[\u0060-\u007e]|\x1b[\u0030-\u003F]|\x1b[\u0020-\u002F]+[\u0030-\u007E]}
+    variable re_ansi_detectcode {(?:\x1b(?:[\u0030-\u007E]|[\u0020-\u002F]+[\u0030-\u007E]))|[\u0090-\u009F]}
 
     # -- --- --- ---
     #variable re_csi_code  {(?:\x1b\[|\u009b)[\x20-\x2f\x30-\x3f]*[\x40-\x7e]}
 
 
 
-    variable re_ansi_detect_open "${re_csi_open}|${re_osc_open}|${re_standalones}|${re_standalones_vt52}|${re_ST_open}|${re_g0_open}|${re_vt52_open}"
 
     #may be same as detect - kept in case detect needs to diverge
     #variable re_ansi_split "${re_csi_code}|${re_esc_osc1}|${re_esc_osc2}|${re_esc_osc3}|${re_standalones}|${re_ST}|${re_g0_open}|${re_g0_close}"
@@ -5827,20 +5959,6 @@ tcl::namespace::eval punk::ansi::ta {
         set re_ansi_split_multi "(?:${re_ansi_split})+"
     }
 
-    lappend PUNKARGS [list -dynamic 0 {
-            @id     -id ::punk::ansi::ta::detect
-            @cmd    -name punk::ansi::ta::detect -help\
-                "Return a boolean indicating whether Ansi codes were detected in text.
-                Important caveat:
-                When text is a tcl list made from splitting (or lappending) some ansi string
-                - individual elements may be braced or have certain chars escaped.
-                (one example is if a list element contains an unbalanced  brace)
-                This can cause square brackets that form part of the ansi to be backslash escaped
-                - and the function can fail to match it as an Ansi code.
-                "
-            @values -min 1
-            text -type string
-    } ]
 
     #*** !doctools
     #[call [fun detect] [arg text]]
@@ -5851,10 +5969,35 @@ tcl::namespace::eval punk::ansi::ta {
 
     #detect any ansi escapes
     #review - only detect 'complete' codes - or just use the opening escapes for performance?
+    lappend PUNKARGS [list {
+            @id     -id ::punk::ansi::ta::detect
+            @cmd    -name punk::ansi::ta::detect\
+                -summary\
+                "Test if text has completed ANSI codes"\
+                -help\
+                "Return a boolean indicating whether *complete* Ansi codes were detected in text.
+
+                By complete, it means that paired squences such as PM (privacy message) must be
+                closed. It also means that a truncated sequence such as \\x1b\\\[ or a lone escape
+                will not be detected as ANSI.
+
+                Use punk::ansi::ta::detectcode as a slightly faster detector for ANSI codes, that does
+                not require paired sequences to have both starting and end sequences to be detected.
+
+                Important caveat:
+                When text is a tcl list made from splitting (or lappending) some ansi string
+                - individual elements may be braced or have certain chars escaped.
+                (one example is if a list element contains an unbalanced  brace)
+                This can cause square brackets that form part of the ansi to be backslash escaped
+                - and the function can fail to match it as an Ansi code.
+                "
+            @values -min 1
+            text -type string -help\
+                "Block of text. See caveat above about lists."
+    } ]
     proc detect {text} [string map [list <re> [list $re_ansi_detect]] {
         regexp <re> $text
     }]
-
     #can be used on dicts - but will check keys too. keys could also contain ansi and have escapes
     proc detect_in_list {list} {
         #loop is commonly faster than using join. (certain ansi codes triggering list quoting? review)
@@ -5865,6 +6008,22 @@ tcl::namespace::eval punk::ansi::ta {
         }
         return 0
     }
+
+    #will detect for example lone opening or closing PM
+    proc detectcode {text} [string map [list <re> [list $re_ansi_detectcode]] {
+        regexp <re> $text
+    }]
+    proc detectcode_in_list {list} {
+        #loop is commonly faster than using join. (certain ansi codes triggering list quoting? review)
+        foreach item $list {
+            if {[detectcode $item]} {
+                return 1
+            }
+        }
+        return 0
+    }
+
+
     #surprisingly - the ::join operation can be (relatively) slow on lists containing ansi
     proc detect_in_list2 {list} {
         detect [join $list " "]
@@ -5915,6 +6074,8 @@ tcl::namespace::eval punk::ansi::ta {
         variable re_sgr
         expr {[regexp $re_sgr $text]}
     }
+
+    #perl: ta_strip
     proc strip {text} {
         #*** !doctools
         #[call [fun strip] [arg text]]
@@ -5922,6 +6083,39 @@ tcl::namespace::eval punk::ansi::ta {
         #[para]This is a tailcall to punk::ansi::ansistrip
         tailcall ansistrip $text
     }
+
+    lappend PUNKARGS [list {
+        @id     -id ::punk::ansi::ta::extract
+        @cmd    -name punk::ansi::ta::extract\
+            -summary\
+            "Return only the ANSI codes in text"\
+            -help\
+            "This is the opposite of strip,
+              returning only the ANSI codes in text."
+        @values -min 1 -max 1
+        text -type string 
+    } ]
+    proc extract {text} {
+        set parts [split_codes $text]
+        set out ""
+        foreach {pt code} $parts {
+            append out $code
+        }
+        return $out
+    }
+
+    lappend PUNKARGS [list {
+            @id     -id ::punk::ansi::ta::length
+            @cmd    -name punk::ansi::ta::length\
+                -summary\
+                "Calculate length of text (excluding the ANSI codes)"\
+                -help\
+                "Calculate length of text (excluding the ANSI codes)
+                This is not the printing length of the string on screen."
+            @values -min 1
+            text -type string 
+    } ]
+    #perl: ta_length
     proc length {text} {
         #*** !doctools
         #[call [fun length] [arg text]]
@@ -5936,6 +6130,8 @@ tcl::namespace::eval punk::ansi::ta {
     #
     #}
 
+    #perl: ta_trunc
+    #truncate $text to $width columns while still including all the ANSI colour codes.
     proc trunc {text width args} {
 
     }
@@ -8504,6 +8700,10 @@ tcl::namespace::eval punk::ansi::internal {
     }
 }
 
+tcl::namespace::eval punk::ansi {
+    namespace import ::punk::ansi::ta::detect
+}
+
 #inserting into global namespace like this should be kept to a minimum.. but this is considered a core aspect of punk::ansi
 #todo - document
 interp alias {} ansistring {} ::punk::ansi::ansistring
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args-0.2.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args-0.2.tm
index fc438d57..d8c43c45 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args-0.2.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args-0.2.tm
@@ -1364,6 +1364,11 @@ tcl::namespace::eval punk::args {
                                         #}
                                         tcl::dict::set tmp_optspec_defaults -type $v
                                     }
+                                    -defaultdisplaytype {
+                                        #how the -default is displayed
+                                        #-default doesn't have to be the same type as -type which validates user input that is not defaulted.
+                                        tcl::dict::set tmp_optspec_defaults -defaultdisplaytype $v
+                                    }
                                     -parsekey {
                                         tcl::dict::set tmp_optspec_defaults -parsekey $v
 
@@ -1441,7 +1446,7 @@ tcl::namespace::eval punk::args {
                                     default {
                                         set known   {   -parsekey -group -grouphelp\
                                                         -any -anyopts -arbitrary -form -minsize -maxsize -choices -choicegroups -choicemultiple -choicecolumns -choicelabels -choiceinfo\
-                                                        -type -range -typeranges -default -typedefaults
+                                                        -type -range -typeranges -default -defaultdisplaytype -typedefaults
                                                         -choiceprefix -choiceprefixdenylist -choiceprefixreservelist -choicerestricted -nocase\
                                                         -nominsize -nomaxsize -norange -nochoices -nochoicelabels\
                                                         -type -optional -allow_ansi -validate_ansistripped -strip_ansi -multiple -prefix\
@@ -2052,6 +2057,9 @@ tcl::namespace::eval punk::args {
                                 tcl::dict::set spec_merged -optional 1
                             }
                         }
+                        -defaultdisplaytype {
+                            tcl::dict::set spec_merged -defaultdisplaytype $specval
+                        }
                         -typedefaults {
                             set typecount [llength [tcl::dict::get $spec_merged -type]]
                             if {$typecount != [llength $specval]} {
@@ -2114,7 +2122,7 @@ tcl::namespace::eval punk::args {
                                                     -form -type\
                                                     -parsekey -group\
                                                     -range -typeranges\
-                                                    -default -typedefaults\
+                                                    -default -defaultdisplaytype -typedefaults\
                                                     -minsize -maxsize -choices -choicegroups\
                                                     -choicemultiple -choicecolumns -choiceprefix -choiceprefixdenylist -choiceprefixreservelist -choicerestricted\
                                                     -nocase -optional -multiple -validate_ansistripped -allow_ansi -strip_ansi -help\
@@ -3028,8 +3036,11 @@ tcl::namespace::eval punk::args {
     #This mechanism gets less-than-useful results for oo methods
     #e.g {$obj}
     proc Get_caller {} {
+        set depth [info level]
+        set maxd [expr {min($depth,4)}]
+        set call_level [expr {-1 * $maxd}]
         #set call_level -3 ;#for get_dict call
-        set call_level -4
+        #set call_level -4
         set cmdinfo [tcl::dict::get [tcl::info::frame $call_level] cmd]
         #puts "-->$cmdinfo"
         #puts "-->[tcl::info::frame -3]"
@@ -3597,7 +3608,12 @@ tcl::namespace::eval punk::args {
                         #A_PREFIX can resolve to empty string if colour off
                         #we then want to display underline instead
                         set A_PREFIX    [a+ underline]
-                        set A_PREFIXEND [a+ nounderline]\u200B ;#padding will take ANSI from last char - so add a zero width space
+                        #set A_PREFIXEND [a+ nounderline]\u200B ;#padding will take ANSI from last char - so add a zero width space (zwsp)
+                        set A_PREFIXEND [a+ nounderline]
+                        #review - zwsp problematic on older terminals that print it visibly
+                        #- especially if they also lie about cursor position after it's emitted.
+                        #so although the zwsp fixes the issue where the underline extends to rhs padding if all text was underlined,
+                        #It's probably best fixed in the padding functionality.
                 } else {
                         set A_PREFIXEND $RST
                 }
@@ -3784,7 +3800,32 @@ tcl::namespace::eval punk::args {
                         }
 
                         if {[dict exists $arginfo -default]} {
-                            set default "'$A_DEFAULT[dict get $arginfo -default]$RST'"
+                            #default isn't necessarily of same type as -type required for validation
+                            #Guessing at the type from the data is likely to be unsatisfactory.
+
+                            set defaultdisplaytype [Dict_getdef $arginfo -defaultdisplaytype string]
+                            switch -- $defaultdisplaytype {
+                                dict {
+                                    #single level
+                                    set rawdefault [dict get $arginfo -default]
+                                    set default     "{\n"
+                                    dict for {k v} $rawdefault {
+                                        append default "  \"$k\" \"$v\"\n"
+                                    }
+                                    append default  "}"
+                                }
+                                list {
+                                    set default     "{\n"
+                                    foreach v $rawdefault {
+                                        append default "  \"$v\"\n"
+                                    }
+                                    append default "}"
+                                }
+                                default {
+                                    #set default "'$A_DEFAULT[dict get $arginfo -default]$RST'"
+                                    set default "'[dict get $arginfo -default]'"
+                                }
+                            }
                         } else {
                             set default ""
                         }
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm
index 562bddd4..6a4cc626 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/args/tclcore-0.1.0.tm
@@ -1648,6 +1648,25 @@ tcl::namespace::eval punk::args::tclcore {
 
     }
     # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
+    lappend PUNKARGS [list {
+        @id     -id              ::tcl::namespace::children
+        @cmd    -name "Built-in: tcl::namespace::children"\
+            -summary\
+            "list child namespaces"\
+            -help\
+            "Returns a list of all child namespaces that belong to the namespace namespace.
+            If namespace is not specified, then the children are returned for the current
+            namespace. This command returns fully-qualified names, which start with a double
+            colon (::). If the optional pattern is given, then this command returns only the
+            names that match the glob-style pattern. The actual pattern used is determined as
+            follows: a pattern that starts with double colon (::) is used directly, otherwise
+            the namespace namespace (or the fully-qualified name of the current namespace) is
+            prepended onto the pattern."
+        @values
+        namespace -optional 1
+        pattern -optional 1
+    } "@doc -name Manpage: -url [manpage_tcl namespace]" ]
+
     lappend PUNKARGS [list {
         @id	-id ::tcl::namespace::origin
         @cmd -name "Built-in: tcl::namespace::origin" -help\
@@ -3479,7 +3498,7 @@ tcl::namespace::eval punk::args::tclcore {
                   example, in ${$B}-dictionary${$N} mode, bigBoy sorts between bigbang and bigboy,
                   and x10y sorts between x9y and x11y. Overrides the ${$B}-nocase${$N} option."
             -integer -type none -help\
-                "Convert list elements to integers and use integer comparsion."
+                "Convert list elements to integers and use integer comparison."
             -real -type none -help\
                 "Convert list elements to floating-point values and use floating comparison."
             -command -type string -help\
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm
index f8123b94..e6bf4b9d 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/char-0.1.0.tm
@@ -89,6 +89,108 @@ tcl::namespace::eval punk::char {
     variable invalid "???" ;# ideally this would be 0xFFFD - which should display as black diamond/rhombus with question mark. As at 2023 - this tends to display indistinguishably from other missing glyph boxes - so we use a longer sequence we can detect by length and to display obviously
     variable invalid_display_char \u25ab; #todo - change to 0xFFFD once diamond glyph more common?
 
+
+    #more useful for referring to ANSI documentation would be a proper 7-bit and 8-bit 'Code Table' layout
+    #as described in ECMA-35 5.2
+    # where the positions of the table are in one-to-one correspondence with the bit combinations of the code.
+    #-  for 7-bit: 8 columns 16 rows
+    #-  for 8-bit 16 columns 16 rows
+    proc codetable {which} {
+        set bits 8
+        switch -- $which {
+            ascii8 {
+                set which default
+            }
+            ascii {
+                set bits 7
+            }
+            default {
+                if {$which ni [encoding names]} {
+                    error "codetable unsupported - use 'ascii' or an entry from the result of the 'encoding names' command."
+                }
+            }
+        }
+        package require punk::ansi
+
+        set hibit_count [expr {$bits-4}]
+        set bitcolumns [expr {2**$hibit_count}] ;#always 4 bits for the rows - remaining bits for the columns
+        set columncount [expr {$bitcolumns + 6}]
+
+
+        #set header1 [list "" "b7\nb6\nb5" "0\n0\n0" "0\n0\n1" "0\n1\n0" "0\n1\n1" "1\n0\n0" "1\n0\n1" "1\n1\n0" "1\n1\n1"]
+        set header1 [list]
+        set hibits_label ""
+        set indent ""
+        for {set hb $bits} {$hb > 4} {incr hb -1} {
+            append hibits_label ${indent}b$hb\n
+            append indent "  "
+        }
+        set hibits_label [string range $hibits_label 0 end-1]
+        lappend header1 $hibits_label "" "" "" "" ""
+
+        for {set colidx 0} {$colidx < $bitcolumns} {incr colidx} {
+            set binval [format %0${hibit_count}b $colidx]
+            set binvalbits [split $binval ""]
+            set indent  ""
+            set display_hibits ""
+            foreach bb $binvalbits {
+                append display_hibits $indent$bb\n
+                append indent " "
+            }
+            set display_hibits [string range $display_hibits 0 end-1]
+            lappend header1 $display_hibits
+        }
+        #\u2193 down arrow
+        #right-down arrows
+        #\u2ba7
+        #\u21b4
+        #\u2b0e
+        set header2 [list "   Bits" b4 b3 b2 b1 "column \u2192\nrow \u2b0e" {*}[punk::lib::range 0 $bitcolumns-1]]
+        set headers [list $header1 $header2]
+
+        #set t [textblock::table -return tableobject -rows $rows]
+        set t [textblock::table -return tableobject]
+        #todo - fix textblock::table to allow configure -columncount
+        for {set c 0} {$c < $columncount} {incr c} {
+            $t add_column
+        }
+
+        set vheaders [punk::transpose_equal_lists $headers]
+        set hidx -1
+        foreach vh $vheaders {
+            incr hidx
+            $t configure_column $hidx -headers $vh
+        }
+        $t configure_header 0 -colspans [list 6 0 0 0 0 0 {*}[lrepeat $bitcolumns 1]]
+        $t configure_column 0 -blockalign left
+
+        #always 16 rows - remaining bits form the columns
+        for {set ridx 0} {$ridx <= 15} {incr ridx} {
+            set charlist [list]
+            set lowbits [format %04b $ridx]
+            for {set i 0} {$i < $bitcolumns} {incr i} {
+                set hibits [format %0${hibit_count}b $i]
+                set ch [format %c [scan ${hibits}${lowbits} %b]]
+                #puts "-->${hibits}${lowbits} ch:$ch"
+                if {$which ne "default"} {
+                    if {[catch {encoding convertfrom $which $ch} ch]} {
+                        set ch [punk::ansi::a red bold]-[punk::ansi::a]
+                        lappend charlist $ch
+                    } else {
+                        lappend charlist [punk::ansi::ansistring VIEW -lf 1 -vt 1 $ch]
+                    } 
+                } else {
+                    lappend charlist [punk::ansi::ansistring VIEW -lf 1 -vt 1 $ch]
+                }
+            }
+            set r [list "" {*}[split $lowbits ""] $ridx {*}$charlist]
+            $t add_row $r
+        }
+        set result [$t print]
+        $t destroy
+        return $result
+    }
+
     #just the 7-bit ascii. use [page ascii] for the 8-bit layout
     proc ascii {} {return {
         00 NUL  01 SOH  02 STX  03 ETX  04 EOT  05 ENQ  06 ACK  07 BEL
@@ -2660,6 +2762,69 @@ tcl::namespace::eval punk::char {
 }
 
 
+tcl::namespace::eval punk::char::lib {
+    variable num_superscript
+    #digits and a small set of related symbols
+    set num_superscript [list\
+        i   \u2071\
+        0   \u2070\
+        1   \u00B9\
+        2   \u00B2\
+        3   \u00B3\
+        4   \u2074\
+        5   \u2075\
+        6   \u2076\
+        7   \u2077\
+        8   \u2078\
+        9   \u2079\
+        +   \u207A\
+        -   \u207B\
+        =   \u207C\
+        (   \u207D\
+        )   \u207E\
+        n   \u207F\
+    ]
+    variable num_supersub_re
+    set num_supersub_re {^[0-9in+\-\(\)\=]+$}
+    proc superscript_number {n} {
+        if {$n eq ""} {return ""}
+        variable num_superscript
+        variable num_supersub_re
+        if {![regexp $num_supersub_re $n]} {
+            error "Cannot convert string '$n' to superscript. valid chars: [dict keys $num_superscript]"
+        }
+        return [string map $num_superscript $n]
+    }
+    set num_subscript [list\
+        i       \u1D62\
+        0       \u2080\
+        1       \u2081\
+        2       \u2082\
+        3       \u2083\
+        4       \u2084\
+        5       \u2085\
+        6       \u2086\
+        7       \u2087\
+        8       \u2088\
+        9       \u2089\
+        +       \u208A\
+        -       \u208B\
+        =       \u208C\
+        (       \u208D\
+        )       \u208E\
+        n       \u2099\
+    ]
+    proc subscript_number {n} {
+        if {$n eq ""} {return ""}
+        variable num_subscript
+        variable num_supersub_re
+        if {![regexp $num_supersub_re $n]} {
+            error "Cannot convert string '$n' to subcript. valid chars: [dict keys $num_subscript]"
+        }
+        return [string map $num_subscript $n]
+    }
+}
+
 
 
 # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm
index 4322ceaa..b8b56d23 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/console-0.1.1.tm
@@ -129,57 +129,362 @@ namespace eval punk::console {
         #e.g external utils system API's.
         namespace export *
     }
-    
+
     if {"windows" eq $::tcl_platform(platform)} {
         #accept args for all dummy/load functions so we don't have to match/update argument signatures here
+        set has_twapi [expr {! [catch {package require twapi}]}]
+
+        if {$has_twapi} {
+            #this is really enableAnsi *processing*
+            proc enableAnsi {} {
+                #output handle modes
+                #Enable virtual terminal processing (sometimes off in older windows terminals)
+                #ENABLE_PROCESSED_OUTPUT = 0x0001
+                #ENABLE_WRAP_AT_EOL_OUTPUT = 0x0002
+                #ENABLE_VIRTUAL_TERMINAL_PROCESSING = 0x0004
+                #DISABLE_NEWLINE_AUTO_RETURN = 0x0008
+                if {[catch {twapi::get_console_handle stdout} h_out]} {
+                    puts stderr "enableAnsi failed: twapi cannot get console handle for stdout"
+                    return
+                }
 
-        proc enableAnsi {args} {
-            #loopavoidancetoken (don't remove) 
-            internal::define_windows_procs
-            internal::abort_if_loop
-            tailcall enableAnsi {*}$args
-        }
-        #review what raw mode means with regard to a specific channel vs terminal as a whole
-        proc enableRaw {args} {
-            #loopavoidancetoken (don't remove) 
-            internal::define_windows_procs
-            internal::abort_if_loop
-            tailcall enableRaw {*}$args 
-        }
-        proc disableRaw {args} {
-            #loopavoidancetoken (don't remove) 
-            internal::define_windows_procs
-            internal::abort_if_loop
-            tailcall disableRaw {*}$args
-        }
-        proc enableVirtualTerminal {args} {
-            #loopavoidancetoken (don't remove) 
-            internal::define_windows_procs
-            internal::abort_if_loop
-            tailcall enableVirtualTerminal {*}$args
-        }
-        proc disableVirtualTerminal {args} {
-            #loopavoidancetoken (don't remove) 
-            internal::define_windows_procs
-            internal::abort_if_loop
-            tailcall disableVirtualTerminal {*}$args
-        }
-        set funcs [list disableAnsi enableProcessedInput disableProcessedInput]
-        foreach f $funcs {
-            proc $f {args} [string map [list %f% $f] {
-                set mybody [info body %f%]
-                internal::define_windows_procs
-                set newbody [info body %f%]
-                if {$newbody ne $mybody} {
-                    tailcall %f% {*}$args
+                set oldmode_out [twapi::GetConsoleMode $h_out]
+                set newmode_out [expr {$oldmode_out | 4}] ;#don't enable processed output too, even though it's required. keep symmetrical with disableAnsi?
+
+                twapi::SetConsoleMode $h_out $newmode_out
+
+                #what does window_input have to do with it??
+                #input handle modes
+                #ENABLE_PROCESSED_INPUT 0x0001  ;#set to zero will allow ctrl-c to be reported as keyboard input rather than as a signal
+                #ENABLE_LINE_INPUT 0x0002
+                #ENABLE_ECHO_INPUT 0x0004
+                #ENABLE_WINDOW_INPUT 0x0008  (default off when a terminal created)
+                #ENABLE_MOUSE_INPUT 0x0010
+                #ENABLE_INSERT_MODE 0X0020
+                #ENABLE_QUICK_EDIT_MODE 0x0040
+                #ENABLE_VIRTUAL_TERMINAL_INPUT 0x0200 (default off when a terminal created) (512)
+                set h_in [twapi::get_console_handle stdin]
+                set oldmode_in [twapi::GetConsoleMode $h_in]
+                set newmode_in [expr {$oldmode_in | 8}]
+                #set newmode_in [expr {$oldmode_in | 0x208}]
+
+                twapi::SetConsoleMode $h_in $newmode_in
+
+                return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
+            }
+            proc disableAnsi {} {
+                set h_out [twapi::get_console_handle stdout] 
+                set oldmode_out [twapi::GetConsoleMode $h_out]
+                set newmode_out [expr {$oldmode_out & ~4}]
+                twapi::SetConsoleMode $h_out $newmode_out
+
+                #??? review
+                set h_in [twapi::get_console_handle stdin]
+                set oldmode_in [twapi::GetConsoleMode $h_in]
+                set newmode_in [expr {$oldmode_in & ~8}]
+                twapi::SetConsoleMode $h_in $newmode_in
+
+
+                return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
+            }
+            proc enableVirtualTerminal {{channels {input output}}} {
+                set ins [list in input stdin]
+                set outs [list out output stdout stderr]
+                set known [concat $ins $outs both]
+                set directions [list]
+                foreach v $channels {
+                    if {$v in $ins} {
+                        lappend directions input
+                    } elseif {$v in $outs} {
+                        lappend directions output
+                    } elseif {$v eq "both"} {
+                        lappend directions input output
+                    }
+                    if {$v ni $known} {
+                        error "enableVirtualTerminal expected channel values to be one of '$known'. (all values mapped to input and/or output)"
+                    }
+                }
+                set channels $directions ;#don't worry about dups.
+                if {"both" in $channels} {
+                    lappend channels input output
+                }
+                set result [dict create]
+                if {"output" in $channels} {
+                    #note setting stdout makes stderr have the same settings - ie there is really only one output to configure
+                    set h_out [twapi::get_console_handle stdout]
+                    set oldmode [twapi::GetConsoleMode $h_out]
+                    set newmode [expr {$oldmode | 4}]
+                    twapi::SetConsoleMode $h_out $newmode
+                    dict set result output [list from $oldmode to $newmode]
+                }
+
+                if {"input" in $channels} {
+                    set h_in [twapi::get_console_handle stdin]
+                    set oldmode_in [twapi::GetConsoleMode $h_in]
+                    set newmode_in [expr {$oldmode_in | 0x200}]
+                    twapi::SetConsoleMode $h_in $newmode_in
+                    dict set result input [list from $oldmode_in to $newmode_in]
+                }
+
+                return $result
+            }
+
+            proc disableVirtualTerminal {{channels {input output}}} {
+                set ins [list in input stdin]
+                set outs [list out output stdout stderr]
+                set known [concat $ins $outs both]
+                set directions [list]
+                foreach v $channels {
+                    if {$v in $ins} {
+                        lappend directions input
+                    } elseif {$v in $outs} {
+                        lappend directions output
+                    } elseif {$v eq "both"} {
+                        lappend directions input output
+                    }
+                    if {$v ni $known} {
+                        error "disableVirtualTerminal expected channel values to be one of '$known'. (all values mapped to input and/or output)"
+                    }
+                }
+                set channels $directions ;#don't worry about dups.
+                if {"both" in $channels} {
+                    lappend channels input output
+                }
+                set result [dict create]
+                if {"output" in $channels} {
+                    #as above - configuring stdout does stderr too
+                    set h_out [twapi::get_console_handle stdout] 
+                    set oldmode [twapi::GetConsoleMode $h_out]
+                    set newmode [expr {$oldmode & ~4}]
+                    twapi::SetConsoleMode $h_out $newmode
+                    dict set result output [list from $oldmode to $newmode]
+                }
+                if {"input" in $channels} {
+                    set h_in [twapi::get_console_handle stdin]
+                    set oldmode_in [twapi::GetConsoleMode $h_in]
+                    set newmode_in [expr {$oldmode_in & ~0x200}]
+                    twapi::SetConsoleMode $h_in $newmode_in
+                    dict set result input [list from $oldmode_in to $newmode_in]
+                }
+
+                #return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
+                return $result
+            }
+            proc enableProcessedInput {} {
+                set h_in [twapi::get_console_handle stdin]
+                set oldmode_in [twapi::GetConsoleMode $h_in]
+                set newmode_in [expr {$oldmode_in | 1}]
+                twapi::SetConsoleMode $h_in $newmode_in
+                return [list stdin [list from $oldmode_in to $newmode_in]]
+            }
+            proc disableProcessedInput {} {
+                set h_in [twapi::get_console_handle stdin]
+                set oldmode_in [twapi::GetConsoleMode $h_in]
+                set newmode_in [expr {$oldmode_in & ~1}]
+                twapi::SetConsoleMode $h_in $newmode_in
+                return [list stdin [list from $oldmode_in to $newmode_in]]
+            }
+            proc enableRaw {{channel stdin}} {
+                #variable is_raw
+                variable previous_stty_state_$channel
+
+                if {[catch {twapi::get_console_handle stdin} console_handle]} {
+                    puts stderr "enableRaw error: twapi cannot get console handle for stdin"
+                    #review. If twapi couldn't get a console handle - no point trying other mechanisms(?)
+                    return
+                }
+                #returns dictionary
+                #e.g -processedinput 1 -lineinput 1 -echoinput 1 -windowinput 0 -mouseinput 0 -insertmode 1 -quickeditmode 1 -extendedmode 1 -autoposition 0
+                set oldmode [twapi::get_console_input_mode]
+                twapi::modify_console_input_mode $console_handle -lineinput 0 -echoinput 0
+                # Turn off the echo and line-editing bits
+                #set newmode [dict merge $oldmode [dict create -lineinput 0 -echoinput 0]]
+                set newmode [twapi::get_console_input_mode]
+
+                tsv::set console is_raw 1
+                #don't disable handler - it will detect is_raw
+                ###    twapi::set_console_control_handler {}
+                return [list stdin [list from $oldmode to $newmode]]
+            }
+
+            #note: twapi GetStdHandle & GetConsoleMode & SetConsoleCombo unreliable - fails with invalid handle (somewhat intermittent.. after stdin reopened?)
+            #could be we were missing a step in reopening stdin and console configuration?
+
+            proc disableRaw {{channel stdin}} {
+                #variable is_raw
+                variable previous_stty_state_$channel
+                set ch_state [chan conf $channel]
+                if {[dict exists $ch_state -inputmode]} {
+                    chan conf $channel -inputmode normal
+                    tsv::set console is_raw 0
+                    return [list $channel [list from [dict get $ch_state -inputmode] to normal]]
+                } else {
+                    if {[catch {twapi::get_console_handle stdin} console_handle]} {
+                        #e.g tkcon/wish
+                        puts stderr "disableRaw error: twapi cannot get console handle for stdin"
+                        return ;# ???
+                    }
+                    set oldmode [twapi::get_console_input_mode]
+                    # Turn on the echo and line-editing bits
+                    twapi::modify_console_input_mode $console_handle -lineinput 1 -echoinput 1
+                    set newmode [twapi::get_console_input_mode]
+                    tsv::set console is_raw 0
+                    return [list stdin [list from $oldmode to $newmode]]
+                }
+            }
+
+        } else {
+
+            variable ps_consolemode_pid
+            variable ps_consolemode_contents
+            variable ps_pipename
+            if {![info exists ps_consolemode_contents]} {
+                #start persistent powershell consolemode_server.ps1 named pipe server
+                if {$::argv0 ne ""} {
+                    set pstooldir [file dirname [file dirname [file normalize $::argv0]]]/scriptlib/utils/pwsh
                 } else {
-                    #error vs noop?
-                    puts stderr "Unable to set implementation for %f% - check twapi?"
+                    set pstooldir [pwd]
                 }
-            }]
+                #set ps_script $pstooldir/consolemode_server.ps1
+                set ps_script $pstooldir/consolemode_server_async.ps1
+                if {[file exists $ps_script]} {
+                    set fd [open $ps_script r]
+                    chan configure $fd -translation binary
+                    set ps_consoleid [pid]-[expr {int(999 * rand())+1}]
+                    set ps_consolemode_contents [string map [list "<punkshell_consoleid>" $ps_consoleid] [read $fd]]
+                    close $fd
+                    #set ps_consolemode_pipe [twapi::namedpipe_client {//./pipe/punkshell_ps_consolemode} -access write]
+                    #set ps_cmd [auto_execok pwsh.exe]
+                    set ps_cmd [auto_execok pwsh.exe]
+                    if {$ps_cmd eq ""} {
+                        set ps_cmd [auto_execok powershell.exe]
+                    }
+                    if {$ps_cmd ne ""} {
+                        set ps_consolemode_pid [exec {*}$ps_cmd -nop -nol -c $ps_consolemode_contents &]
+                        set ps_pipename {\\.\pipe\punkshell_ps_consolemode_}
+                        append ps_pipename $ps_consoleid
+                        puts stderr "twapi not present, using persistent powershell process: pipename: $ps_pipename pid: $ps_consolemode_pid"
+                        #todo -  taskkill /F /PID $ps_consolemode_pid
+                        #when?
+                        #review
+                        #if {[catch {puts "pidinfo: [::tcl::process::status $ps_consolemode_pid]"} errM]} {
+                        #    puts stderr "--- failed to get process status for $ps_consolemode_pid\n$errM"
+                        #}
+                        #set p [open {\\.\pipe\punkshell_ps_consolemode} w]
+                        #chan conf $p -buffering none -blocking 1
+                        #puts $p ""
+                        #close $p
+                    }
+                }
+
+            }
+
+
+            #enableRaw
+            proc enableRaw {{channel stdin}} {
+                #puts stderr "punk::console::enableRaw"
+                #variable is_raw
+                variable previous_stty_state_$channel
+                variable ps_consolemode_contents
+                variable ps_pipename
+
+
+                if {[info exists ps_consolemode_contents]} {
+                    #ps_pipename e.g \\.\pipe\punkwinshell_ps_consolemode_12345-1223456
+
+                    set trynum 0
+                    set wrote 0
+                    while {$trynum < 5} {
+                        incr trynum
+                        if {![catch {
+                            set pipe [open $ps_pipename w]
+                        } errMsg]} {
+                            chan conf $pipe -buffering line
+                            puts -nonewline $pipe "enableraw\r\n"
+                            #flush $pipe
+                            #after 10
+                            #close $pipe
+                            set wrote 1
+                            break
+                        } else {
+                            after 100
+                        }
+                    }
+                    if {$wrote} {
+                        tsv::set console is_raw 1
+                        #after 100
+                        close $pipe
+                    } else {
+                        puts stderr "write to $ps_pipename failed trynum: $trynum\n$errMsg"
+                    }
+                } elseif {[set sttycmd [auto_execok stty]] ne ""} {
+                    #todo - something else entirely
+                    #this approach does not work on windows
+                    #the msys/cygwin stty command is launched as a subprocess - can be used to retrieve info
+                    # but seems to be useless as far as affecting the calling process/console
+                    if {[set previous_stty_state_$channel] eq ""} {
+                        set previous_stty_state_$channel [exec {*}$sttycmd -g <@$channel]
+                    }
+
+                    exec {*}$sttycmd raw -echo <@$channel
+                    tsv::set console is_raw 1
+                    #review - inconsistent return dict
+                    return [dict create stdin [list from [set previous_stty_state_$channel] to "" note "fixme - to state not shown"]]
+                } else {
+                    error "punk::console::enableRaw Unable to use twapi or stty to set raw mode - aborting"
+                }
+            }
+
+
+            proc disableRaw {{channel stdin}} {
+                variable previous_stty_state_$channel
+                set ch_state [chan conf $channel]
+                if {[dict exists $ch_state -inputmode]} {
+                    chan conf $channel -inputmode normal
+                    tsv::set console is_raw 0
+                    return [list $channel [list from [dict get $ch_state -inputmode] to normal]]
+                } else {
+                    #tcl <= 8.6x doesn't support -inputmode
+                    if {[set sttycmd [auto_execok stty]] ne ""} {
+                        #this doesn't work on windows
+                        #It may seem to - only because running *any* external utility can exit raw mode
+                        set sttycmd [auto_execok stty]
+                        if {[set previous_stty_state_$channel] ne ""} {
+                            exec {*}$sttycmd [set previous_stty_state_$channel]
+                            set previous_stty_state_$channel ""
+                            return restored
+                        }
+                        exec {*}$sttycmd -raw echo <@$channel
+                        tsv::set console is_raw 0
+                        #do we really want to exec stty yet again to show final 'to' state? 
+                        #probably not. We should work out how to read the stty result flags and set a result.. or just limit from,to to showing echo and lineedit states.
+                        return [list stdin  [list from "[set previous_stty_state_$channel]" to "" note "fixme - to state not shown"]]
+                    } else {
+                        error "punk::console::disableRaw Unable to use twapi or stty to unset raw mode - aborting"
+                    }
+                }
+            }
+
+            #enableAnsi
+            proc enableAnsi {} {
+            }
+            #disableAnsi
+            proc enableAnsi {} {
+            }
+            #enableVirtualTerminal
+            proc enableVirtualTerminal {{channels {input output}}} {
+            }
+            #disableVirtualTerminal
+            proc disableVirtualTerminal {{channels {input output}}} {
+            }
+            #enableProcessedInput
+            #disableProcessedInput
+
         }
 
     } else {
+        #non-windows platforms
+
         proc enableAnsi {} {
             #todo?
         }
@@ -190,6 +495,13 @@ namespace eval punk::console {
         #todo - something better - the 'channel' concept may not really apply on unix, as raw mode is set for input and output modes currently - only valid to set on a readable channel?
         #on windows they can be set independently (but not with stty) - REVIEW
 
+        proc enableVirtualTerminal {{channels {input output}}} {
+
+        }
+        proc disableVirtualTerminal {args} {
+
+        }
+
         #NOTE - the is_raw is only being set in current interp - but the channel is shared.
         #this is problematic with the repl thread being separate. - must be a tsv?  REVIEW
         proc enableRaw {{channel stdin}} {
@@ -221,12 +533,6 @@ namespace eval punk::console {
             tsv::set console is_raw 0
             return done
         }
-        proc enableVirtualTerminal {{channels {input output}}} {
-
-        }
-        proc disableVirtualTerminal {args} {
-
-        }
     }
 
     #review - document and decide granularity required. should we enable/disable more than one at once? 
@@ -257,7 +563,6 @@ namespace eval punk::console {
         #puts -nonewline stdout \x1b\[?25l  ;#hide cursor
         puts -nonewline stdout \x1b\[?1003h\n
         enable_bracketed_paste
-        
     }
     #todo stop_application_mode {} {}
 
@@ -313,264 +618,8 @@ namespace eval punk::console {
             }
         }
         proc define_windows_procs {} {
-            package require zzzload
-            set loadstate [zzzload::pkg_require twapi]
-
-            #loadstate could also be stuck on loading? - review - zzzload not very ripe
-            #Twapi can be relatively slow to load (on some systems) - can be 1s plus in some cases - and much longer if there are disk performance issues.
-            if {$loadstate ni [list failed]} {
-                #possibly still 'loading'
-                #review zzzload usage
-                #puts stdout "=========== console loading twapi ============="
-                set loadstate [zzzload::pkg_wait twapi] ;#can return 'failed' will return version if already loaded or loaded during wait
-            }
-
-            if {$loadstate ni [list failed]} {
-                package require twapi ;#should be fast once twapi dll loaded in zzzload thread
-                set ::punk::console::has_twapi 1
-
-                #todo - move some of these to the punk::console::local sub-namespace - as they use APIs rather than in-band ANSI to do their work.
-                #enableAnsi seems like it should be directly under punk::console .. but then it seems inconsistent if other local console-mode setting functions aren't.
-                #Find a compromise to organise things somewhat sensibly..
-
-                #this is really enableAnsi *processing* 
-                proc [namespace parent]::enableAnsi {} {
-                    #output handle modes
-                    #Enable virtual terminal processing (sometimes off in older windows terminals)
-                    #ENABLE_PROCESSED_OUTPUT = 0x0001
-                    #ENABLE_WRAP_AT_EOL_OUTPUT = 0x0002
-                    #ENABLE_VIRTUAL_TERMINAL_PROCESSING = 0x0004
-                    #DISABLE_NEWLINE_AUTO_RETURN = 0x0008
-                    set h_out [twapi::get_console_handle stdout] 
-                    set oldmode_out [twapi::GetConsoleMode $h_out]
-                    set newmode_out [expr {$oldmode_out | 4}] ;#don't enable processed output too, even though it's required. keep symmetrical with disableAnsi?
-
-                    twapi::SetConsoleMode $h_out $newmode_out
-
-                    #what does window_input have to do with it??
-                    #input handle modes
-                    #ENABLE_PROCESSED_INPUT 0x0001  ;#set to zero will allow ctrl-c to be reported as keyboard input rather than as a signal
-                    #ENABLE_LINE_INPUT 0x0002
-                    #ENABLE_ECHO_INPUT 0x0004
-                    #ENABLE_WINDOW_INPUT 0x0008  (default off when a terminal created)
-                    #ENABLE_MOUSE_INPUT 0x0010
-                    #ENABLE_INSERT_MODE 0X0020
-                    #ENABLE_QUICK_EDIT_MODE 0x0040
-                    #ENABLE_VIRTUAL_TERMINAL_INPUT 0x0200 (default off when a terminal created) (512)
-                    set h_in [twapi::get_console_handle stdin]
-                    set oldmode_in [twapi::GetConsoleMode $h_in]
-                    set newmode_in [expr {$oldmode_in | 8}]
-                    #set newmode_in [expr {$oldmode_in | 0x208}]
-
-                    twapi::SetConsoleMode $h_in $newmode_in
-
-                    return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
-                }
-                proc [namespace parent]::disableAnsi {} {
-                    set h_out [twapi::get_console_handle stdout] 
-                    set oldmode_out [twapi::GetConsoleMode $h_out]
-                    set newmode_out [expr {$oldmode_out & ~4}]
-                    twapi::SetConsoleMode $h_out $newmode_out
-
-                    #??? review
-                    set h_in [twapi::get_console_handle stdin]
-                    set oldmode_in [twapi::GetConsoleMode $h_in]
-                    set newmode_in [expr {$oldmode_in & ~8}]
-                    twapi::SetConsoleMode $h_in $newmode_in
-
-
-                    return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
-                }
-
-                #
-                proc [namespace parent]::enableVirtualTerminal {{channels {input output}}} {
-                    set ins [list in input stdin]
-                    set outs [list out output stdout stderr]
-                    set known [concat $ins $outs both]
-                    set directions [list]
-                    foreach v $channels {
-                        if {$v in $ins} {
-                            lappend directions input
-                        } elseif {$v in $outs} {
-                            lappend directions output
-                        } elseif {$v eq "both"} {
-                            lappend directions input output
-                        }
-                        if {$v ni $known} {
-                            error "enableVirtualTerminal expected channel values to be one of '$known'. (all values mapped to input and/or output)"
-                        }
-                    }
-                    set channels $directions ;#don't worry about dups.
-                    if {"both" in $channels} {
-                        lappend channels input output
-                    }
-                    set result [dict create]
-                    if {"output" in $channels} {
-                        #note setting stdout makes stderr have the same settings - ie there is really only one output to configure
-                        set h_out [twapi::get_console_handle stdout] 
-                        set oldmode [twapi::GetConsoleMode $h_out]
-                        set newmode [expr {$oldmode | 4}] 
-                        twapi::SetConsoleMode $h_out $newmode
-                        dict set result output [list from $oldmode to $newmode]
-                    }
-
-                    if {"input" in $channels} {
-                        set h_in [twapi::get_console_handle stdin]
-                        set oldmode_in [twapi::GetConsoleMode $h_in]
-                        set newmode_in [expr {$oldmode_in | 0x200}]
-                        twapi::SetConsoleMode $h_in $newmode_in
-                        dict set result input [list from $oldmode_in to $newmode_in]
-                    }
-
-                    return $result
-                }
-                proc [namespace parent]::disableVirtualTerminal {{channels {input output}}} {
-                    set ins [list in input stdin]
-                    set outs [list out output stdout stderr]
-                    set known [concat $ins $outs both]
-                    set directions [list]
-                    foreach v $channels {
-                        if {$v in $ins} {
-                            lappend directions input
-                        } elseif {$v in $outs} {
-                            lappend directions output
-                        } elseif {$v eq "both"} {
-                            lappend directions input output
-                        }
-                        if {$v ni $known} {
-                            error "disableVirtualTerminal expected channel values to be one of '$known'. (all values mapped to input and/or output)"
-                        }
-                    }
-                    set channels $directions ;#don't worry about dups.
-                    if {"both" in $channels} {
-                        lappend channels input output
-                    }
-                    set result [dict create]
-                    if {"output" in $channels} {
-                        #as above - configuring stdout does stderr too
-                        set h_out [twapi::get_console_handle stdout] 
-                        set oldmode [twapi::GetConsoleMode $h_out]
-                        set newmode [expr {$oldmode & ~4}] 
-                        twapi::SetConsoleMode $h_out $newmode
-                        dict set result output [list from $oldmode to $newmode]
-                    }
-                    if {"input" in $channels} {
-                        set h_in [twapi::get_console_handle stdin]
-                        set oldmode_in [twapi::GetConsoleMode $h_in]
-                        set newmode_in [expr {$oldmode_in & ~0x200}]
-                        twapi::SetConsoleMode $h_in $newmode_in
-                        dict set result input [list from $oldmode_in to $newmode_in]
-                    }
-
-                    #return [list stdout [list from $oldmode_out to $newmode_out] stdin [list from $oldmode_in to $newmode_in]]
-                    return $result
-                }
-
-                proc [namespace parent]::enableProcessedInput {} {
-                    set h_in [twapi::get_console_handle stdin]
-                    set oldmode_in [twapi::GetConsoleMode $h_in]
-                    set newmode_in [expr {$oldmode_in | 1}]
-                    twapi::SetConsoleMode $h_in $newmode_in
-                    return [list stdin [list from $oldmode_in to $newmode_in]]
-                }
-                proc [namespace parent]::disableProcessedInput {} {
-                    set h_in [twapi::get_console_handle stdin]
-                    set oldmode_in [twapi::GetConsoleMode $h_in]
-                    set newmode_in [expr {$oldmode_in & ~1}]
-                    twapi::SetConsoleMode $h_in $newmode_in
-                    return [list stdin [list from $oldmode_in to $newmode_in]]
-                }
-
-
-
-            } else {
-            
-                puts stderr "punk::console falling back to stty because twapi load failed"
-                proc [namespace parent]::enableAnsi {} {
-                    puts stderr "punk::console::enableAnsi todo"
-                }
-                proc [namespace parent]::disableAnsi {} {
-                }
-                #?
-                proc [namespace parent]::enableVirtualTerminal {{channels {input output}}} {
-                }
-                proc [namespace parent]::disableVirtualTerminal {{channels {input output}}} {
-                }
-                proc [namespace parent]::enableProcessedInput {args} {
-
-                }
-                proc [namespace parent]::disableProcessedInput {args} {
-
-                }
-
-            }
-
-                proc [namespace parent]::enableRaw {{channel stdin}} {
-                    #variable is_raw
-                    variable previous_stty_state_$channel
-
-                    if {[package provide twapi] ne ""} {
-                        set console_handle [twapi::get_console_handle stdin]
-                        #returns dictionary
-                        #e.g -processedinput 1 -lineinput 1 -echoinput 1 -windowinput 0 -mouseinput 0 -insertmode 1 -quickeditmode 1 -extendedmode 1 -autoposition 0
-                        set oldmode [twapi::get_console_input_mode]
-                        twapi::modify_console_input_mode $console_handle -lineinput 0 -echoinput 0
-                        # Turn off the echo and line-editing bits
-                        #set newmode [dict merge $oldmode [dict create -lineinput 0 -echoinput 0]]
-                        set newmode [twapi::get_console_input_mode]
-
-                        tsv::set console is_raw 1
-                        #don't disable handler - it will detect is_raw
-                        ###    twapi::set_console_control_handler {}
-                        return [list stdin [list from $oldmode to $newmode]]
-                    } elseif {[set sttycmd [auto_execok stty]] ne ""} {
-                        if {[set previous_stty_state_$channel] eq ""} {
-                            set previous_stty_state_$channel [exec {*}$sttycmd -g <@$channel]
-                        }
-
-                        exec {*}$sttycmd raw -echo <@$channel
-                        tsv::set console is_raw 1
-                        #review - inconsistent return dict
-                        return [dict create stdin [list from [set previous_stty_state_$channel] to "" note "fixme - to state not shown"]]
-                    } else {
-                        error "punk::console::enableRaw Unable to use twapi or stty to set raw mode - aborting"
-                    }
-                }
 
-                #note: twapi GetStdHandle & GetConsoleMode & SetConsoleCombo unreliable - fails with invalid handle (somewhat intermittent.. after stdin reopened?)
-                #could be we were missing a step in reopening stdin and console configuration?
 
-                proc [namespace parent]::disableRaw {{channel stdin}} {
-                    #variable is_raw
-                    variable previous_stty_state_$channel
-
-                    if {[package provide twapi] ne ""} {
-                        set console_handle [twapi::get_console_handle stdin]
-                        set oldmode [twapi::get_console_input_mode]
-                        # Turn on the echo and line-editing bits
-                        twapi::modify_console_input_mode $console_handle -lineinput 1 -echoinput 1
-                        set newmode [twapi::get_console_input_mode]
-                        tsv::set console is_raw 0
-                        return [list stdin [list from $oldmode to $newmode]]
-                    } elseif {[set sttycmd [auto_execok stty]] ne ""} {
-                        #stty can return info on windows - but doesn't seem to be able to set anything.
-                        #review - is returned info even valid?
-
-                        set sttycmd [auto_execok stty]
-                        if {[set previous_stty_state_$channel] ne ""} {
-                            exec {*}$sttycmd [set previous_stty_state_$channel]
-                            set previous_stty_state_$channel ""
-                            return restored
-                        }
-                        exec {*}$sttycmd -raw echo <@$channel
-                        tsv::set console is_raw 0
-                        #do we really want to exec stty yet again to show final 'to' state? 
-                        #probably not. We should work out how to read the stty result flags and set a result.. or just limit from,to to showing echo and lineedit states.
-                        return [list stdin  [list from "[set previous_stty_state_$channel]" to "" note "fixme - to state not shown"]]
-                    } else {
-                        error "punk::console::disableRaw Unable to use twapi or stty to unset raw mode - aborting"
-                    }
-                }
 
 
         }
@@ -1336,6 +1385,7 @@ namespace eval punk::console {
     #https://vt100.net/docs/vt510-rm/DA1.html
     #
     proc get_device_attributes {{inoutchannels {stdin stdout}}} {
+        #Note the vt52 rough equivalen \x1bZ - commonly supported but probably best considered obsolete as it collides with ECMA 48 SCI Single Character Introducer
         #DA1
         variable last_da1_result
         #first element in result is the terminal's architectural class 61,62,63,64.. ?
@@ -1802,7 +1852,10 @@ namespace eval punk::console {
         #don't set ansi_avaliable here - we want to be able to change things, retest etc.
         if {"windows" eq "$::tcl_platform(platform)"} {
             if {[package provide twapi] ne ""} {
-                set h_out [twapi::get_console_handle stdout]
+                if {[catch {twapi::get_console_handle stdout} h_out]} {
+                    puts stderr "test_can_ansi: twapi cannot get console handle for stdout"
+                    return 0
+                }
                 set existing_mode [twapi::GetConsoleMode $h_out]
                 if {[expr {$existing_mode & 4}]} {
                     #virtual terminal processing happens to be enabled - so it's supported
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm
index 6ce76618..46cd5668 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/lib-0.1.2.tm
@@ -2242,6 +2242,121 @@ namespace eval punk::lib {
         }
     }
 
+
+    #review - compare to IMAP4 methods of specifying ranges?
+    punk::args::define {
+        @id     -id     ::punk::lib::indexset_resolve
+        @cmd    -name     punk::lib::indexset_resolve\
+            -summary\
+            "Resolve an indexset to a list of integers based on supplied list or string length."\
+            -help\
+            "Resolve an 'indexset' to a list of actual indices within the range of the provided numitems value.
+            An indexset consists of a comma delimited list of indexes or index-ranges.
+            The indexes are 0-based.
+            Ranges must be specified with .. as the separator.
+            Whitespace is ignored.
+            Each index (or endpoint of an index-range) can be of the forms accepted by Tcl list or string commands,
+            e.g end-2 or 2+2.
+
+            end means the last page.
+            end-1 means the second last page.
+            0.. is the same as 0..end.
+            examples:
+            1,3..
+                output the page index 1 (2nd page) followed by all from index 3 to the end.
+            0-2,end
+                output the first 3 pages, and the last page.
+            end-1..0
+            output the indexes in reverse order from 2nd last page to first page."
+        @values -min 2 -max 2
+        numitems -type integer
+        indexset -type string
+    }
+    proc indexset_resolve {numitems indexset} {
+        if {![string is integer -strict $numitems] || ![regexp {^[\-\+_end,\.0-9]*$} $indexset]} {
+            #use parser on unhappy path only
+            set errmsg [punk::args::usage -scheme error ::punk::lib::indexset_resolve]
+            uplevel 1 [list return -code error -errorcode {TCL WRONGARGS PUNK} $errmsg]
+        } 
+        set index_list [list] ;#list of actual indexes within the range 
+        set iparts [split $indexset ,]
+        set index_list [list]
+        foreach ipart $iparts {
+            set ipart [string trim $ipart]
+            set rposn [string first .. $ipart]
+            if {$rposn>=0} {
+                #range
+                lassign           [punk::lib::string_splitbefore_indices $ipart $rposn $rposn+2] rawa _ rawb 
+                set rawa [string trim $rawa]
+                set rawb [string trim $rawb]
+                if {$rawa eq ""} {set rawa 0}
+                set a             [punk::lib::lindex_resolve $numitems $rawa]
+                if {$a == -3} {
+                    #undershot - leave negative
+                } elseif {$a == -2 && $rawa ne "-2"} {
+                    #overshot
+                    set a [expr {$numitems}] ;#put it outside the range on the upper side
+                }
+
+                if {$rawb eq ""} {
+                    if {$a > $numitems-1} {
+                        set rawb $a ;#make sure <overshot>.. doesn't return last item - should return nothing
+                    } else {
+                        set rawb end
+                    }
+                }
+                set b             [punk::lib::lindex_resolve $numitems $rawb]
+                if {$b == -3} {
+                    #undershot  - leave negative
+                } elseif {$b == -2 && $rawb ne "-2"} {
+                    set b [expr {$numitems}] ;#overshot - put it outside the range on the upper side
+                }
+
+                #e.g make sure <overshot>.. doesn't return last item - should return nothing as both are above the range.
+                if {$a >= 0 && $a <= $numitems-1 && $b >=0 && $b <= $numitems-1} {
+                    lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
+                } else {
+                    if {$a >= 0 && $a <= $numitems-1} {
+                        #only a is in the range
+                        if {$b < 0} {
+                            set b 0
+                        } else {
+                            set b [expr {$numitems-1}]
+                        }
+                        lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
+                    } elseif {$b >=0 && $b <= $numitems-1} {
+                        #only b is in the range
+                        if {$a < 0} {
+                            set a 0
+                        } else {
+                            set a [expr {$numitems-1}]
+                        }
+                        lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
+                    } else {
+                        #both outside the range
+                        if {$a < 0 && $b > 0} {
+                            #spans the range in forward order
+                            set a 0 
+                            set b [expr {$numitems-1}]
+                            lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
+                        } elseif {$a > 0 && $b < 0} {
+                            #spans the range in reverse order
+                            set a [expr {$numitems-1}]
+                            set b 0
+                            lappend index_list {*}[punk::lib::range $a $b] ;#required for tcl8.6, on tcl9 this will call lseq internally.
+                        }
+                        #both outside of range on same side
+                    }
+                }
+            } else {
+                set idx [punk::lib::lindex_resolve_basic $numitems $ipart]
+                if {$idx >= 0} {
+                    lappend index_list $idx
+                }
+            }
+        }
+        return $index_list
+    }
     # showdict uses lindex_resolve results -2 & -3 to determine whether index is out of bounds on upper vs lower side
     #REVIEW: This shouldn't really need the list itself - just the length would suffice
     punk::args::define {
@@ -2305,7 +2420,8 @@ namespace eval punk::lib {
             #<0 ?
             error "lindex_resolve len must be an integer"
         }
-        set index [tcl::string::map {_ {}} $index] ;#forward compatibility with integers such as 1_000
+        set index [tcl::string::map {_ {}} $index] ;#basic forward compatibility with integers such as 1_000 for 8.6
+        #todo - be stricter about malformations such as 1000_
         if {[string is integer -strict $index]} {
             #can match +i -i
             if {$index < 0} {
@@ -3345,8 +3461,12 @@ namespace eval punk::lib {
             #NOTE: running ta::detect on a list (or dict) as a whole can be problematic if items in the list have backslash escapes due to Tcl list quoting and escaping behaviour.
             #This commonly happens if there is an unbalanced brace  (which is a normal occurrence and needs to be handled)
             #ta::detect on a list of ansi-containing string may appear to work for some simple inputs but is not reliable
-            #detect_in_list will check at first level. (not intended for detecting ansi in deeper structures)
-            if {![punk::ansi::ta::detect_in_list $linelist]} {
+            #detect_in_list/detectcode_in_list will check at first level. (not intended for detecting ansi in deeper structures)
+
+            #we use detectcode_in_list instead of detect_in_list
+            #detectcode_in_list will detect unclosed (or unopened) paired sequences such as PM (privacy message)
+            # - but the main reason is it is slightly faster.
+            if {![punk::ansi::ta::detectcode_in_list $linelist]} {
                 if {$opt_ansiresets} {
                     foreach ln $linelist {
                         lappend transformed $RST$ln$RST
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm
index 3b5d35b0..f9dfaf56 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/libunknown-0.1.tm
@@ -80,16 +80,7 @@ tcl::namespace::eval punk::libunknown {
             "Experimental set of replacements for default 'package unknown' entries."
         }]
 
-    variable epoch
-    #if {![info exists epoch]} {
-    #    set tmstate     [dict create 0 {}]
-    #    set pkgstate    [dict create 0 {}]
-    #    set tminfo  [dict create current 0 epochs $tmstate]
-    #    set pkginfo [dict create current 0 epochs $pkgstate]
-
-    #    set epoch [dict create tm $tminfo pkg $pkginfo]
-    #}
-
+    variable epoch ;#don't set - can be pre-set cooperatively
 
     variable has_package_files
     if {[catch {package files foobaz}]} {
@@ -111,6 +102,33 @@ tcl::namespace::eval punk::libunknown {
 
     #will use standard mechanism for non zipfs paths in the tm list.
     proc zipfs_tm_UnknownHandler {original name args} {
+        #------------------------------
+        #shortcircuit for builtin static libraries which have no 'package provide' info - review
+        #This occurs for example when running 'bin\runtime.cmd run src\make.tcl shell' with punk902z.exe
+        #
+        #------------------------------
+        set loaded [lsearch -inline -index 1 -nocase [info loaded] $name]
+        if {[llength $loaded] == 2 && [lindex $loaded 0] eq ""} {
+            lassign $loaded _ cased_name
+            interp create ptest
+            ptest eval [list load {} $cased_name]
+            set static_version [ptest eval [list package provide [string tolower $cased_name]]]
+            set pname [string tolower $cased_name]
+            if {$static_version eq ""} {
+                set static_version [ptest eval [list package provide $cased_name]]
+                set pname $cased_name
+            }
+            if {$static_version ne ""} {
+                if {[package vsatisfies $static_version {*}$args]} {
+                    package ifneeded $pname $static_version [list load {} $cased_name]
+                    interp delete ptest
+                    return
+                }
+            }
+            interp delete ptest
+        }
+        #------------------------------
+
         # Import the list of paths to search for packages in module form.
         # Import the pattern used to check package names in detail.
         variable epoch
@@ -1161,7 +1179,12 @@ tcl::namespace::eval punk::libunknown {
         set callerposn [lsearch $args -caller]
         if {$callerposn > -1} {
             set caller [lindex $args $callerposn+1]
-            #puts stderr "\x1b\[1\;33m punk::libunknown::init - caller:$caller\x1b\[m"
+            if {[package provide thread] ne ""} {
+                set tid [thread::id]
+            } else {
+                set tid "-"
+            }
+            #puts stderr "\x1b\[1\;33m punk::libunknown::init - caller:$caller tid:$tid\x1b\[m"
             #puts stderr "punk::libunknown::init auto_path    : $::auto_path"
             #puts stderr "punk::libunknown::init tcl::tm::list: [tcl::tm::list]"
         }
@@ -1184,17 +1207,17 @@ tcl::namespace::eval punk::libunknown {
             puts stderr "punk::libunknown::init - init while empty/unreadable tcl::tm::list and empty/unreadable ::auto_path"
         }
 
-        if {[namespace origin ::package] eq "::punk::libunknown::package"} {
-            #This is far from conclusive - there may be other renamers (e.g commandstack)
+        if {[info commands ::punk::libunknown::package] ne ""} {
+            puts stderr "punk::libunknown::init already done - unnecessary call? info frame -1: [info frame -1]"
             return
         }
+        #if {[namespace origin ::package] eq "::punk::libunknown::package"} {
+        #    #This is far from conclusive - there may be other renamers (e.g commandstack)
+        #    return
+        #}
 
 
 
-        if {[info commands ::punk::libunknown::package] ne ""} {
-            puts stderr "punk::libunknown::init already done - unnecessary call? info frame -1: [info frame -1]"
-            return
-        }
         variable epoch
         if {![info exists epoch]} {
             set tmstate     [dict create 0 {added {}}]
@@ -1222,6 +1245,7 @@ tcl::namespace::eval punk::libunknown {
         #   or suffer additional scans.. or document ??
         #ideally init should be called in each interp before any scans for packages so that the list of untracked is minimized.
         set pkgnames [package names]
+        #puts stderr "####### punk::libunknown init called with [llength $pkgnames] package names known"
         foreach p $pkgnames {
             if {[string tolower $p] in {punk::libunknown tcl::zlib tcloo tcl::oo tcl}} {
                 continue
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm
index afd06d2a..124c6cf2 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/cli-0.3.1.tm
@@ -507,6 +507,7 @@ namespace eval punk::mix::cli {
                 -punkcheck_eventobj "\uFFFF"\
                 -glob *.tm\
                 -podglob #modpod-*\
+                -tarjarglob #tarjar-*\
                 ]
             set opts [dict merge $defaults $args]
 
@@ -519,6 +520,7 @@ namespace eval punk::mix::cli {
             # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
             set fileglob                                [dict get $opts -glob]
             set podglob                                 [dict get $opts -podglob]
+            set tarjarglob                              [dict get $opts -tarjarglob]
             if {![string match "*.tm" $fileglob]} {
                 error "build_modules_from_source_to_base -glob '$fileglob' doesn't seem to target tcl modules."
             }
@@ -580,6 +582,10 @@ namespace eval punk::mix::cli {
             foreach podpath $src_pods {
                 dict set process_modules $podpath [dict create -type pod]
             }
+            set src_tarjars [glob -nocomplain -dir $current_source_dir -type d -tail $tarjarglob]
+            foreach tarjarpath $src_tarjars {
+                dict set process_modules $tarjarpath [dict create -type tarjar]
+            }
             set src_modules [glob -nocomplain -dir $current_source_dir -type f -tail $fileglob]
             foreach modulepath $src_modules {
                 dict set process_modules $modulepath [dict create -type file]
@@ -759,7 +765,7 @@ namespace eval punk::mix::cli {
                             }
 
                         } else {
-                            puts -nonewline stderr "P"
+                            puts -nonewline stderr "Z"
                             set did_skip 1
                             #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
                             $build_event targetset_end SKIPPED
@@ -791,7 +797,7 @@ namespace eval punk::mix::cli {
                                     $event targetset_end OK -note "zip modpod"
                                 }
                             } else {
-                                puts -nonewline stderr "p"
+                                puts -nonewline stderr "z"
                                 set did_skip 1
                                 if {$is_interesting} {
                                     puts stderr "$modulefile [$event targetset_source_changes]"
@@ -801,8 +807,187 @@ namespace eval punk::mix::cli {
                         }
                     }
                     tarjar {
+                        #maint - overall code structure same as pod - refactor?
                         #basename may still contain  #tarjar-
-                        #to be obsoleted - update modpod to (optionally) use vfs::tar
+                        #to be obsoleted - update modpod to (optionally) use vfs::tar ?
+                        if {[string match #tarjar-* $basename]} {
+                            set basename [string range $basename 8 end]
+                        } else {
+                            error "build_modules_from_source_to_base, tarjar, unexpected basename $basename" ;#shouldn't be possible with default tarjarglob - review - why is tarjarglob configurable?
+                        }
+                        set versionfile $current_source_dir/$basename-buildversion.txt ;#needs to be added in targetset_addsource to trigger rebuild if changed (only when magicversion in use)
+                        if {$tmfile_versionsegment eq $magicversion} {
+                            set versionfiledata ""
+                            if {![file exists $versionfile]} {
+                                puts stderr "\nWARNING: Missing buildversion text file: $versionfile"
+                                puts stderr "Using version 0.1 - create $versionfile containing the desired version number as the top line to avoid this warning\n"
+                                set module_build_version "0.1"
+                            } else {
+                                set fd [open $versionfile r]
+                                set versionfiledata [read $fd]; close $fd
+                                set ln0 [lindex [split $versionfiledata \n] 0]
+                                set ln0 [string trim $ln0]; set ln0 [string trim $ln0 \r]
+                                if {![util::is_valid_tm_version $ln0]} {
+                                    puts stderr "ERROR: build version '$ln0' specified in $versionfile is not suitable. Please ensure a proper version number is at first line of file"
+                                    exit 3
+                                }
+                                set module_build_version $ln0
+                            }
+                        } else {
+                            set module_build_version $tmfile_versionsegment
+                        }
+
+                        set buildfolder $current_source_dir/_build
+                        file mkdir $buildfolder
+                        # -- ---
+                        set config [dict create\
+                            -glob *\
+                            -max_depth 100\
+                        ]
+                        set had_error 0
+
+                        # -max_depth -1 for no limit
+                        set build_installername tarjars_in_$current_source_dir
+                        set build_installer [punkcheck::installtrack new $build_installername $buildfolder/.punkcheck]
+                        $build_installer set_source_target $current_source_dir/$modpath $buildfolder
+                        set build_event [$build_installer start_event $config]
+                        # -- ---
+                        set podtree_copy $buildfolder/#tarjar-$basename-$module_build_version
+                        set modulefile $buildfolder/$basename-$module_build_version.tm
+
+
+                        $build_event targetset_init INSTALL $podtree_copy
+                        $build_event targetset_addsource $current_source_dir/$modpath
+                        if {$tmfile_versionsegment eq $magicversion} {
+                            $build_event targetset_addsource $versionfile
+                        }
+                        if {\
+                                [llength [dict get [$build_event targetset_source_changes] changed]]\
+                            || [llength [$build_event get_targets_exist]] < [llength [$build_event get_targets]]\
+                            } {
+                            $build_event targetset_started
+                            if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
+
+                            set delete_failed 0
+                            if {[file exists $buildfolder/]} {
+                                puts stderr "deleting existing _build copy at $podtree_copy"
+                                if {[catch {
+                                    file delete -force $podtree_copy
+                                    } errMsg]} {
+                                    puts stderr "[punk::ansi::a+ red]deletion of _build copy at $podtree_copy failed: $errMsg[punk::ansi::a]"
+                                    set delete_failed 1
+                                }
+                            }
+                            if {!$delete_failed} {
+                                puts stdout "copying.."
+                                puts stdout "$current_source_dir/$modpath"
+                                puts stdout "to:"
+                                puts stdout "$podtree_copy"
+                                file copy $current_source_dir/$modpath $podtree_copy
+                                if {$tmfile_versionsegment eq $magicversion} {
+                                    set tmfile $buildfolder/#tarjar-$basename-$module_build_version/#tarjar-loadscript-$basename.tcl
+                                    #we don't need to modify version or name of the loadscript
+                                    if {![file exists $tmfile]} {
+                                        set had_error 1
+                                        lappend notes "tarjar_loadscript_missing"
+                                    } else {
+                                        #the loadscript must end in a line starting with # and ending with backslash - with no linefeed
+                                        set fd [open $tmfile r]
+                                        chan configure $fd -translation binary
+                                        #last line must be less than 1k long
+                                        chan seek $fd -1024 end
+                                        set script_tail [read $fd]
+                                        set lastlf [string last \n $script_tail]
+                                        set lastline [string range $script_tail $lastlf+1 end]
+                                        set lastline [string trimleft $lastline] ;#lhs whitespace is ok
+                                        if {[string index $lastline 0] ne "#" || [string index $lastline end] ne "\\" } {
+                                            set had_error 1
+                                            lappend notes "tarjar_loadscript_badtail"
+                                        }
+                                    }
+                                }
+                                #delete and regenerate .tm
+                                set notes [list]
+                                if {[catch {
+                                    file delete $buildfolder/$basename-$module_build_version.tm
+                                } err]} {
+                                    set had_error 1
+                                    lappend notes "tm_delete_failed"
+                                }
+                                #create ordinary tar file without using external executable
+                                package require tar ;#tcllib
+                                set tarfile $buildfolder/$basename-$module_build_version.tm ;#ordinary tar file (no compression - store)
+                                set wd [pwd]
+                                cd $buildfolder
+                                puts "tar::create $tarfile #tarjar-$basename-$module_build_version"
+                                if {[catch {
+                                    tar::create $tarfile #tarjar-$basename-$module_build_version
+                                } errMsg]} {
+                                    set had_error 1
+                                    puts stderr "tar::create $tarfile failed with msg\n $errMsg"
+                                    lappend notes "tar_create_failed"
+                                }
+                                cd $wd
+
+                                if {![file exists $tarfile]} {
+                                    set had_error 1
+                                    lappend notes "tar_result_missing"
+                                }
+
+
+                                if {$had_error} {
+                                    $build_event targetset_end FAILED -note [join $notes ,]
+                                } else {
+                                    # -- ----------
+                                    $build_event targetset_end OK
+                                    # -- ----------
+                                }
+                            } else {
+                                $build_event targetset_end FAILED -note "could not delete $podtree_copy"
+                            }
+
+                        } else {
+                            puts -nonewline stderr "T"
+                            set did_skip 1
+                            #set file_record [punkcheck::installfile_skipped_install $basedir $file_record]
+                            $build_event targetset_end SKIPPED
+                        }
+                        $build_event destroy
+                        $build_installer destroy
+
+                        #JMN - review
+                        if {!$had_error} {
+                            $event targetset_init INSTALL $target_module_dir/$basename-$module_build_version.tm
+                            $event targetset_addsource $modulefile
+                            if {\
+                                    [llength [dict get [$event targetset_source_changes] changed]]\
+                                || [llength [$event get_targets_exist]] < [llength [$event get_targets]]\
+                                } {
+
+                                $event targetset_started
+                                # -- --- --- --- --- ---
+                                if {$did_skip} {set did_skip 0; puts -nonewline stdout \n}
+                                lappend module_list $modulefile
+                                if {[catch {
+                                    file copy -force $modulefile $target_module_dir
+                                } errMsg]} {
+                                    puts stderr "FAILED to copy tarjar module $modulefile to $target_module_dir"
+                                    $event targetset_end FAILED -note "could not copy $modulefile"
+                                } else {
+                                    puts stderr "Copied tarjar module $modulefile to $target_module_dir"
+                                    # -- --- --- --- --- ---
+                                    $event targetset_end OK -note "tarjar"
+                                }
+                            } else {
+                                puts -nonewline stderr "t"
+                                set did_skip 1
+                                if {$is_interesting} {
+                                    puts stderr "$modulefile [$event targetset_source_changes]"
+                                }
+                                $event targetset_end SKIPPED
+                            }
+                        }
+
                     }
                     file {
                         set m $modpath
@@ -828,39 +1013,40 @@ namespace eval punk::mix::cli {
 
 
                             if {[file exists $current_source_dir/#tarjar-$basename-$magicversion]} {
-                                #rebuild the .tm from the #tarjar
+                                #rebuilding the .tm from the #tarjar already handled above
+                                puts -nonewline stderr "-"
 
-                                if {[file exists $current_source_dir/#tarjar-$basename-$magicversion/DESCRIPTION.txt]} {
+                                #if {[file exists $current_source_dir/#tarjar-$basename-$magicversion/DESCRIPTION.txt]} {
 
-                                } else {
+                                #} else {
 
-                                }
-                                #REVIEW - should be in same structure/depth as $target_module_dir  in _build?
+                                #}
+                                ##REVIEW - should be in same structure/depth as $target_module_dir  in _build?
 
-                                #TODO
-                                set buildfolder $current_sourcedir/_build
-                                file mkdir $buildfolder
+                                ##TODO
+                                #set buildfolder $current_sourcedir/_build
+                                #file mkdir $buildfolder
 
-                                set tmfile $buildfolder/$basename-$module_build_version.tm
-                                file delete -force $buildfolder/#tarjar-$basename-$module_build_version
-                                file delete -force $tmfile
+                                #set tmfile $buildfolder/$basename-$module_build_version.tm
+                                #file delete -force $buildfolder/#tarjar-$basename-$module_build_version
+                                #file delete -force $tmfile
 
 
-                                file copy -force $current_source_dir/#tarjar-$basename-$magicversion $buildfolder/#tarjar-$basename-$module_build_version
-                                #
-                                #bsdtar doesn't seem to work.. or I haven't worked out the right options?
-                                #exec tar -cvf $buildfolder/$basename-$module_build_version.tm $buildfolder/#tarjar-$basename-$module_build_version
-                                package require tar
-                                tar::create $tmfile $buildfolder/#tarjar-$basename-$module_build_version
-                                if {![file exists $tmfile]} {
-                                    puts stdout "ERROR: failed to build tarjar file $tmfile"
-                                    exit 4
-                                }
-                                #copy the file?
-                                #set target $target_module_dir/$basename-$module_build_version.tm
-                                #file copy -force $tmfile $target
+                                #file copy -force $current_source_dir/#tarjar-$basename-$magicversion $buildfolder/#tarjar-$basename-$module_build_version
+                                ##
+                                ##bsdtar doesn't seem to work.. or I haven't worked out the right options?
+                                ##exec tar -cvf $buildfolder/$basename-$module_build_version.tm $buildfolder/#tarjar-$basename-$module_build_version
+                                #package require tar
+                                #tar::create $tmfile $buildfolder/#tarjar-$basename-$module_build_version
+                                #if {![file exists $tmfile]} {
+                                #    puts stdout "ERROR: failed to build tarjar file $tmfile"
+                                #    exit 4
+                                #}
+                                ##copy the file?
+                                ##set target $target_module_dir/$basename-$module_build_version.tm
+                                ##file copy -force $tmfile $target
 
-                                lappend module_list $tmfile
+                                #lappend module_list $tmfile
                             } else {
                                 #assume that either the .tm is not a tarjar - or the tarjar dir is capped (trailing #) and the .tm has been manually tarred.
                                 if {[file exists $current_source_dir/#tarjar-$basename-${magicversion}#]} {
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm
index 723ce06e..30120a7e 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/module-0.1.0.tm
@@ -99,32 +99,23 @@ namespace eval punk::mix::commandset::module {
         set names [dict keys $tdict]
         set paths [list]
         set pathtypes [list]
+        set providers [list]
         dict for {nm tinfo} $tdict {
-            lappend paths [dict get $tinfo path]
-            lappend pathtypes [dict get $tinfo sourceinfo pathtype]
+            lappend paths       [dict get $tinfo path]
+            lappend pathtypes   [dict get $tinfo sourceinfo pathtype]
+            lappend providers   [dict get $tinfo sourceinfo source] ;#name of provider module of punk.templates capability for this path
         }
 
-        set title(path) "Path"
-        set widest(path) [tcl::mathfunc::max {*}[lmap v [concat [list $title(path)] $paths] {punk::strlen $v}]]
-        set col(path) [string repeat " " $widest(path)] 
-
-        set title(pathtype) "[a+ green]Path Type[a]"
-        set widest(pathtype) [tcl::mathfunc::max {*}[lmap v [concat [list $title(pathtype)] $pathtypes] {string length $v}]]
-        set col(pathtype)    [string repeat " " $widest(pathtype)]
-
         set title(name) "Template Name"
-        set widest(name) [tcl::mathfunc::max {*}[lmap v [concat [list $title(name)] $names] {string length $v}]]
-        set col(name) [string repeat " " $widest(name)]
-
-        set tablewidth [expr {$widest(name) + 1 + $widest(pathtype) + 1 + $widest(name)}]
-        set table ""
-        append table [string repeat - $tablewidth] \n
-        append table "[textblock::join -- [overtype::left $col(name) $title(name)] " " [overtype::left $col(pathtype) $title(pathtype)] " " [overtype::left $col(path) $title(path)]]" \n
-        append table [string repeat - $tablewidth] \n
+        set title(pathtype) "[a+ italic]Provider[a]\n[a+ green]Path Type[a]"
+        set title(path) "Path"
 
-        foreach n $names pt $pathtypes p $paths {
-           append table "[overtype::left $col(name) $n] [overtype::left $col(pathtype) $pt] [overtype::left $col(path) $p]" \n 
+        set data [list]
+        foreach n $names pt $pathtypes pv $providers p $paths {
+            #append table "[textblock::join -- [overtype::left $col(name) $n] $vsep [overtype::left $col(pathtype) $pt] $vsep [overtype::left $col(path) $p]]" \n 
+            lappend data $n "[a+ italic]$pv[a]\n$pt" $p
         }
+        set table [textblock::list_as_table -columns 3 -header [list $title(name) $title(pathtype) $title(path)] $data]
 
         return $table
     }
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm
index d0dd3eb0..8384197a 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/project-0.1.0.tm
@@ -433,20 +433,26 @@ namespace eval punk::mix::commandset::project {
         #scan all files in template
         #
         #TODO - deck command to substitute templates?
-        set templatefiles [punk::mix::commandset::layout::lib::layout_scan_for_template_files $opt_layout]
+        set templateinfo_list [punk::mix::commandset::layout::lib::layout_scan_for_template_files $opt_layout]
         set stripprefix [file normalize $layout_path]
 
         set tagmap [list [lib::template_tag project] $projectname]
-        if {[llength $templatefiles]} {
+        if {[llength $templateinfo_list]} {
             puts stdout "Filling template file placeholders with the following tag map:"
             foreach {placeholder value} $tagmap {
                 puts stdout "  $placeholder -> $value"
             }
         }
-        foreach templatefullpath $templatefiles {
+        foreach templateinfo $templateinfo_list {
+            lassign $templateinfo templatefullpath template_tagnames_found 
             set templatetail [punk::repo::path_strip_alreadynormalized_prefixdepth $templatefullpath $stripprefix]
-
             set fpath [file join $projectdir $templatetail]
+            foreach t $template_tagnames_found {
+                if {"%$t%" ni [dict keys $tagmap]} {
+                    puts stderr "warning: No substitution available for tag: %$t% in $fpath"
+                }
+            }
+
             if {[file exists $fpath]} {
                 set fd [open $fpath r]; fconfigure $fd -translation binary; set data [read $fd]; close $fd
                 set data2 [string map $tagmap $data]
@@ -458,7 +464,6 @@ namespace eval punk::mix::commandset::project {
                 puts stderr "warning: Missing template file $fpath"
             }
         }
-        #todo - tag substitutions in src/doc tree
 
         ::cd $projectdir
 
@@ -1117,6 +1122,12 @@ namespace eval punk::mix::commandset::project {
             #list of repositories of the form repo:<path>
             #eg repo:C:/Users/someone/.fossils/tcl.fossil
 
+            #the command:
+            # fossil all ignore <path>/repo.fossil
+            #will remove the {repo:<path>/repo.fossil 1} record from global_config
+            #but it leaves {ckout:<checkoutpath> <path>/repo.fossil} records, even if such checkouts are closed
+            #when the folder itself at <checkoutpath> is removed - then commands such as 'fossil all ls -c' automatically remove the corresponding ckout: record. 
+
             set project_repos [fosconf eval {select name from global_config where name like 'repo:%';}]
             set paths_and_names [list]
             foreach pr $project_repos {
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm
index 4f1af2bc..84dca1df 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/commandset/scriptwrap-0.1.0.tm
@@ -53,6 +53,7 @@ package require punk::args
 package require punk::mix
 package require punk::mix::base
 package require punk::fileline
+package require punk::ansi
 
 
 #*** !doctools
@@ -78,6 +79,7 @@ namespace eval punk::mix::commandset::scriptwrap {
     #[list_begin definitions]
 
     namespace export {[a-z]*}
+    namespace import ::punk::ansi::a ::punk::ansi::a+
 
     namespace eval fileline {
         namespace import ::punk::fileline::lib::*
@@ -255,6 +257,24 @@ namespace eval punk::mix::commandset::scriptwrap {
         set target_labels_found [dict create]
         set possible_target_labels_found [dict create]
         set warning_target_labels_found [dict create]
+
+        #todo - allow analysis of colon-less call. May need to check list of internal commands - but what about external ones?
+        #set searchregexex [list {(.*\s+|^)(@*call\s*:*)(\S.*)} {(.*\s+|^)(@*CALL\s*:*)(\S.*)} {(.*\s+|^)(@*goto\s*:*)(\S.*)} {(.*\s+|^)(@*GOTO\s*:*)(\S.*)}]
+
+        #order of regex testing is important - test more specific entries with colon/comment before we test whitespace only version of goto/call
+        set searchregexes [list {(.*\s+|^)(@*call\s*:)(\S.*)} {(.*\s+|^)(@*CALL\s*:)(\S.*)} {(.*\s+|^)(@*goto\s*:)(\S.*)} {(.*\s*|.*\s+|^)(@*GOTO\s*:)(\S.*)}]
+        lappend searchregexes {(.*\|\|.*)(@*GOTO\s*:)(\S.*)}           ;#review
+        lappend searchregexes {(.*\s+|^)(@*goto\s+%=.*=%\s*:)(\S.*)}
+        lappend searchregexes {(.*\s+|^)(@*goto\s+%=.*=%\s+)(\S.*)}
+        lappend searchregexes {(.*\s+|^)(@*goto\s+)(\S.*)}
+
+        lappend searchregexes {(.*\s+|^)(@*GOTO\s+%=.*=%\s*:)(\S.*)}
+        lappend searchregexes {(.*\s+|^)(@*GOTO\s+%=.*=%\s+)(\S.*)}
+        lappend searchregexes {(.*\s+|^)(@*GOTO\s+)(\S.*)}
+        #review
+        #todo - better callsite analysis. There can be data between @GOTO or @CALL and : other than just whitespace
+        #e.g for @goto %= possible comment=% :mylabe%%l etc
+
         for {set callingline_index 0} {$callingline_index < $line_count} {incr callingline_index} {
             set callingline_info [$objFile lineinfo $callingline_index]
             set callingline_payload [dict get $callingline_info payload]
@@ -271,18 +291,15 @@ namespace eval punk::mix::commandset::scriptwrap {
 
                 }
                 default {
-                    #todo - better callsite analysis. There can be data between @GOTO or @CALL and : other than just whitespace!
 
-                    #todo - allow analysis of colon-less call. May need to check list of internal commands - but what about external ones?
-                    #foreach search_regex [list {(.*\s+|^)(@*call\s*:*)(\S.*)} {(.*\s+|^)(@*CALL\s*:*)(\S.*)} {(.*\s+|^)(@*goto\s*:*)(\S.*)} {(.*\s+|^)(@*GOTO\s*:*)(\S.*)}] {}
-                    foreach search_regex [list {(.*\s+|^)(@*call\s*:)(\S.*)} {(.*\s+|^)(@*CALL\s*:)(\S.*)} {(.*\s+|^)(@*goto\s*:)(\S.*)} {(.*\s*|.*\s+|^)(@*GOTO\s*:)(\S.*)} {(.*\|\|.*)(@*GOTO\s*:)(\S.*)}] {
+                    foreach search_regex $searchregexes {
                         if {[regexp $search_regex $callingline_payload _m precall call labelplus]} {
                             #todo further checks to see if it's actually a batch script line
                             # - - - - work out what cmd.exe considers start of 512B boundaries when scanning from a callsite
                             #callposn affected by newlines?
                             #set callposn [expr {$file_offset + [string length $callingline_payload]}] ;#take callposn as end of line .. review - multiline statements?
-                            set callposn [expr {$file_offset + $callingline_len}] 
-                            
+                            set callposn [expr {$file_offset + $callingline_len -1}]
+
                             #Note there are anomalies around target labels in bracketed sections such as IF blocks
                             #this is bad practice - as it can lead to unbalanced braces - but batch files can still work under cmd.exe with them in some cases
                             #e.g unbalanced trailing bracket may be ignored.
@@ -807,7 +824,7 @@ namespace eval punk::mix::commandset::scriptwrap {
         }
         return $result
     }
-    #specific filepath to just wrap one script at the  xxx-pre-launch-suprocess site
+    #specific filepath to just wrap one script at the  xxx-payload site
     #scriptset name to substitute multiple scriptset.xxx files at the default locations - or as specified in scriptset.wrapconf
         #set usage ""
         #append usage "Use directly with the script file to wrap, or supply the name of a scriptset" \n
@@ -830,6 +847,17 @@ namespace eval punk::mix::commandset::scriptwrap {
         if {[tomlish::dict::path::exists $tomldict {.application.template}]} {
             dict set resultd template [tomlish::dict::path::get $tomldict {.application.template.value}]
         }
+
+        if {[tomlish::dict::path::exists $tomldict {.application.as_admin}]} {
+            set val [tomlish::dict::path::get $tomldict {.application.as_admin.value}]
+            if {$val && 1} {
+                dict set resultd as_admin 1
+            } else {
+                dict set resultd as_admin 0
+            }
+        } else {
+            dict set resultd as_admin 0
+        }
         set scripts [list] 
         if {[tomlish::dict::path::exists $tomldict {.application.scripts.value}]} {
             set arrvalues [tomlish::dict::path::get $tomldict {.application.scripts.value}]
@@ -872,6 +900,60 @@ namespace eval punk::mix::commandset::scriptwrap {
 
         return $resultd
     }
+    proc _default_configd {} {
+        set configd [dict create]
+        dict set configd template ""
+        dict set configd as_admin 0
+        dict set configd scripts [list]
+        dict set configd default_outputfile ""
+        dict set configd default_nextshellpath ""
+        dict set configd default_nextshelltype "none"
+        foreach os {win32 dragonflybsd freebsd netbsd linux macosx other} {
+            dict set configd $os outputfile ""
+            dict set configd $os nextshellpath ""
+            dict set configd $os nextshelltype "none"
+        }
+        return $configd
+    }
+    proc _get_nextshell_script {configd} {
+        #@SET "nextshellpath[win32___________]=tclsh___________________________________________________________________________________________________________________________"
+        #@SET "nextshelltype[win32___________]=tcl_____________"
+        #@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
+        #@SET "nextshelltype[dragonflybsd____]=tcl_____________"
+        #@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
+        #@SET "nextshelltype[freebsd_________]=tcl_____________"
+        #@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
+        #@SET "nextshelltype[netbsd__________]=tcl_____________"
+        #@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
+        #@SET "nextshelltype[linux___________]=tcl_____________"
+        #@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
+        #@SET "nextshelltype[macosx__________]=tcl_____________"
+        #@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
+        #@SET "nextshelltype[other___________]=tcl_____________"
+
+        #delimeters
+        #: <<nextshell_start>>
+        #: <<nextshell_end>>
+        set script ""
+        dict for {k v} $configd {
+            if {[llength $v] % 2 == 0 && [dict exists $v nextshelltype]} {
+                set os $k
+                set n [expr {16 - [string length $os]}]
+                set _os [string repeat _ $n]
+                set path [dict get $v nextshellpath]
+                set n [expr {128 - [string length $path]}]
+                set _path [string repeat _ $n]
+                set type [dict get $v nextshelltype]
+                set n [expr {16 - [string length $type]}]
+                set _type [string repeat _ $n]
+                append script "@SET \"nextshellpath\[$os$_os\]=$path$_path\"" \n
+                append script "@SET \"nextshelltype\[$os$_os\]=$type$_type\"" \n
+            }
+        }
+        set script [string trimright $script \n]
+        return $script
+    }
+
     punk::args::define {
         @id     -id ::punk::mix::commandset::scriptwrap::multishell
         @cmd    -name punk::mix::commandset::scriptwrap::multishell\
@@ -914,22 +996,22 @@ namespace eval punk::mix::commandset::scriptwrap {
         -returnextra    -type boolean -default 0
         @values -minvalues 0 -maxvalues 0
     }
-    #: <nextshell>
-    #@SET "nextshellpath[win32___________]=tclsh___________________________"
+    #: <<nextshell_start>>
+    #@SET "nextshellpath[win32___________]=tclsh___________________________________________________________"
     #@SET "nextshelltype[win32___________]=tcl_____________"
-    #@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________"
+    #@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________________________________________"
     #@SET "nextshelltype[dragonflybsd____]=tcl_____________"
-    #@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________"
+    #@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________________________________________"
     #@SET "nextshelltype[freebsd_________]=tcl_____________"
-    #@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________"
+    #@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________________________________________"
     #@SET "nextshelltype[netbsd__________]=tcl_____________"
-    #@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________"
+    #@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________________________________________"
     #@SET "nextshelltype[linux___________]=tcl_____________"
-    #@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________"
+    #@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________________________________________"
     #@SET "nextshelltype[macosx__________]=tcl_____________"
-    #@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________"
+    #@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________________________________________"
     #@SET "nextshelltype[other___________]=tcl_____________"
-    #: </nextshell>
+    #: <<nextshell_end>>
     proc multishell {args} {
         set argd [punk::args::parse $args withid ::punk::mix::commandset::scriptwrap::multishell]
         lassign [dict values $argd] leaders opts values received
@@ -947,7 +1029,7 @@ namespace eval punk::mix::commandset::scriptwrap {
         set startdir [pwd]
         set allowed_extensions [list tcl ps1 sh bash pl]
         #TODO - distinct sections for sh vs bash? needs experiments..
-        #for now we use shell-pre-launch-subprocess etc
+        #for now we use shell-payload etc
         #set extension_langs [list tcl tcl ps1 powershell sh sh bash bash pl perl]
         set extension_langs [list tcl tcl ps1 powershell sh shell bash shell pl perl]
 
@@ -990,13 +1072,15 @@ namespace eval punk::mix::commandset::scriptwrap {
         }
 
         set list_input_files [list]
+        set has_config 0
         set configd [dict create]
         if {$scriptset ne ""} {
             puts stdout "Attempting to process all scripts belonging to scriptset '$scriptset'"
             #.toml file may or may not exist
             if {[file exists ${scriptset}_wrap.toml]} {
-                puts stdout "Loading configuration from $scriptdir/${scriptset}_wrap.toml"
+                puts stdout "[a bold green]Loading configuration from $scriptdir/${scriptset}_wrap.toml[a]"
                 set configd [_read_scriptset_wrap_tomlfile $scriptdir/${scriptset}_wrap.toml]
+                set has_config 1
                 if {[dict exists $configd scripts]} {
                     set configured_scripts [dict get $configd scripts]
                     foreach s $configured_scripts {
@@ -1008,6 +1092,7 @@ namespace eval punk::mix::commandset::scriptwrap {
                     return false
                 }
             } else {
+                set configd [_default_configd]
                 puts stdout "No config file for scriptset (must be named ${scriptset}_wrap.toml"
                 puts stdout "Will look for the following scripts in $scriptdir"
                 foreach e $allowed_extensions {
@@ -1018,12 +1103,17 @@ namespace eval punk::mix::commandset::scriptwrap {
                         lappend list_input_files $scriptdir/$scriptset.$e
                     }
                 }
+                dict set configd scripts $list_input_files
             }
         } else {
+            set configd [_default_configd]
             #expect a single script
             if {[file exists $specified_path]} {
                 lappend list_input_files $specified_path
             }
+            dict set configd scripts [lmap f $list_input_files {file tail $f}]
+            set ftail [file tail $specified_path]
+            dict set configd default_outputfile [file rootname $ftail]
         }
         set found_script [expr {[llength $list_input_files] > 0}]
 
@@ -1061,8 +1151,9 @@ namespace eval punk::mix::commandset::scriptwrap {
             if {$scriptset ne ""} {
                 #.toml file may or may not exist
                 if {[file exists $scriptroot/${scriptset}_wrap.toml]} {
-                    puts stdout "Loading configuration from $scriptroot/${scriptset}_wrap.toml"
+                    puts stdout "[a green]Loading configuration from $scriptroot/${scriptset}_wrap.toml[a]"
                     set configd [_read_scriptset_wrap_tomlfile $scriptroot/${scriptset}_wrap.toml]
+                    set has_config 1
                     if {[dict exists $configd scripts]} {
                         set configured_scripts [dict get $configd scripts]
                         foreach s $configured_scripts {
@@ -1084,6 +1175,8 @@ namespace eval punk::mix::commandset::scriptwrap {
                             lappend list_input_files $scriptroot/$scriptset.$e
                         }
                     }
+                    set configd [_default_configd]
+                    dict set configd scripts [lmap f $list_input_files {file tail $f}]
                 }
             } else {
                 #expect a single script
@@ -1094,6 +1187,8 @@ namespace eval punk::mix::commandset::scriptwrap {
                     }
                     lappend list_input_files $scriptroot/$filepath_or_scriptset
                 }
+                set configd [_default_configd]
+                dict set configd scripts [lmap f $list_input_files {file tail $f}]
             }
             set found_script [expr {[llength $list_input_files] > 0}]
 
@@ -1111,7 +1206,7 @@ namespace eval punk::mix::commandset::scriptwrap {
         }
         #assertion - customwrapper_folder var exists - but might be empty
 
-        if {[dict exists $configd template]} {
+        if {[dict get $configd template] ne ""} {
             set templatename [dict get $configd template]
         } else {
             if {$opt_template eq "\uFFFF"} {
@@ -1119,6 +1214,7 @@ namespace eval punk::mix::commandset::scriptwrap {
             } else {
                 set templatename $opt_template
             }
+            dict set configd template $templatename
         }
         set templatename_root [file rootname [file tail $templatename]]
 
@@ -1199,21 +1295,26 @@ namespace eval punk::mix::commandset::scriptwrap {
         #todo
         #output_file extension may also depend on the template being used.. and/or the <scriptset>_wrap.toml config
 
-        if {[dict size $configd]} {
-            package require platform
-            set thisplatform  [string tolower [platform::identify]]
-            set ptype [lindex [split $thisplatform -] 0]
-            switch -- $ptype {
-                win32 - dragonflybsd - freebsd - netbsd - linux - macosx {}
-                default {
-                    set ptype other
-                }
+        package require platform
+        set thisplatform  [string tolower [platform::identify]]
+        set ptype [lindex [split $thisplatform -] 0]
+        switch -- $ptype {
+            win32 - dragonflybsd - freebsd - netbsd - linux - macosx {}
+            default {
+                set ptype other
             }
+        }
+        if {$has_config} {
             set out [dict get $configd $ptype outputfile]
-            set output_file [file join $output_folder $out]
+            if {[string trim $out] ne ""} {
+                set output_file [file join $output_folder $out]
+            } else {
+                #can be empty for this os if configured that way in xxx_wrap.toml
+                set output_file ""
+            }
         } else {
             #no _wrap.toml file available
-            if {$::tcl_platform(platform) eq "windows"} {
+            if {$ptype eq "win32"} {
                 set output_extension .cmd
             } else {
                 set output_extension .sh
@@ -1224,6 +1325,11 @@ namespace eval punk::mix::commandset::scriptwrap {
                 set infile [lindex $list_input_files 0]
                 set output_file [file join $output_folder [file rootname [file tail $infile]]$output_extension]
             }
+            dict set configd $ptype outputfile [file tail $output_file]
+        }
+        if {$output_file eq ""} {
+            puts stderr "No output file configured for platform $ptype"
+            return
         }
 
 
@@ -1236,7 +1342,7 @@ namespace eval punk::mix::commandset::scriptwrap {
             puts stdout "wrap_in_multishell: target file $output_file already exists. File size: [$objFile_existing chunklen] Line count: [$objFile_existing linecount]"
             if {!$opt_force} {
                 if {$opt_askme} {
-                    set answer [util::askuser "Do you want to overwrite $output_file? Y|N"]
+                    set answer [util::askuser "Do you want to [a bold white Red]overwrite[a] [a bold red]$output_file[a]? Y|N"]
                     if {[string tolower $answer] ne "y"} {
                         puts stderr "aborting due to user response '$answer' (required Y or y to proceed) use -force 1 or -askme 0 to avoid prompts."
                         $objFile_existing destroy
@@ -1264,92 +1370,122 @@ namespace eval punk::mix::commandset::scriptwrap {
             puts stdout $ln
         }
         puts stdout "-----------------------------------------------\n"
-        #foreach  ln $template_lines {
-        #}
-
-        if {[llength $list_input_files] > 1} {
-            #todo
-            puts stderr "Sorry - only single input file supported. Supply a file extension or use a <scriptset>_wrap.toml config with a single input file for now - implementation incomplete"
-            return false
-        }
-
-        #todo - split template at each <ext-*-subprocess> etc marker and build a dict of parts
 
+        #if {[llength $list_input_files] > 1} {
+        #    #todo
+        #    puts stderr "Sorry - only single input file supported. Supply a file extension or use a <scriptset>_wrap.toml config with a single input file for now - implementation incomplete"
+        #    return false
+        #}
 
-        #hack - process one input
-        set filepath [lindex $list_input_files 0]
-        set fdscript [open $filepath r]
-        fconfigure $fdscript -translation binary
-        set script_data [read $fdscript]
-        close $fdscript
-        puts stdout "Read [string length $script_data] bytes of template data.."
-        set script_lines [split $script_data \n]
-        puts stdout "Displaying first 3 lines of your script between dashed lines..."
-        puts stdout "-----------------------------------------------"
-        foreach ln [lrange $script_lines 0 3] {
-            puts stdout $ln
-        }
-        puts stdout "-----------------------------------------------\n"
-        puts stdout "Target for above script data is '$output_file'"
-        set script_ext [string trim [file extension $filepath] .]
-        set lang [dict get $extension_langs [string tolower $script_ext]]
-        puts stdout "Language of script being wrapped is $lang"
-        if {$opt_askme} {
-            set answer [util::askuser "Does this look correct? Y|N"]
-            if {[string tolower $answer] ne "y"} {
-                puts stderr "mix new aborting due to user response '$answer' (required Y or y to proceed)  use -askme 0 to avoid prompts."
-                return
+        set lang_data [dict create]
+        foreach filepath $list_input_files {
+            set script_ext [string trim [file extension $filepath] .]
+            set lang [dict get $extension_langs [string tolower $script_ext]]
+            set fdscript [open $filepath r]
+            fconfigure $fdscript -translation binary
+            set script_data [read $fdscript]
+            close $fdscript
+            puts stdout "Read [string length $script_data] bytes of template data for lang: $lang"
+            set script_lines [split $script_data \n]
+            dict set lang_data $lang $script_lines
+            puts stdout "Displaying first 3 lines of your script [file tail $filepath] between dashed lines..."
+            puts stdout "[a green]$filepath[a]"
+            puts stdout "-----------------------------------------------"
+            foreach ln [lrange $script_lines 0 3] {
+                puts stdout $ln
+            }
+            puts stdout "-----------------------------------------------\n"
+            puts stdout "Target for script data is '$output_file'"
+            puts stdout "Language of script being wrapped is [a bold yellow]$lang[a]"
+            if {$opt_askme} {
+                set answer [util::askuser "Does this look correct? Y|N"]
+                if {[string tolower $answer] ne "y"} {
+                    puts stderr "mix new aborting due to user response '$answer' (required Y or y to proceed)  use -askme 0 to avoid prompts."
+                    return
+                }
             }
         }
 
-        set start_idx 0
-        set end_idx 0
-        set line_idx 0
-        set existing_payload [list]
+        set template_ranges [list]
+        set data_items [list]
+        set trange [list 0]
+        set line_idx -1
+        set opentag ""
         foreach ln $template_lines {
-
-            if {[string match  "#<$lang-pre-launch-subprocess>*" $ln]} {
-                set start_idx $line_idx
-            } elseif {[string match "#</$lang-pre-launch-subprocess>*" $ln]} {
-                set end_idx $line_idx
-                break
-            } elseif {$start_idx > 0} {
-                 if {$end_idx > 0} {
-                     lappend existing_payload [string trim $ln]
-                 }   
+            incr line_idx
+            if {$opentag eq ""} {
+                if {[string match ": <<asadmin_start>>*" $ln]} {
+                    set opentag asadmin
+                    lset trange 1 $line_idx ;#include tag in template
+                    lappend template_ranges $trange
+                    set trange [list $line_idx]
+                    set asadmin [dict get $configd as_admin]
+                    set scr "@SET \"asadmin=$asadmin\""
+                    lappend data_items $scr
+                } elseif {[string match ": <<nextshell_start>>*" $ln]} {
+                    set opentag nextshell
+                    lset trange 1 $line_idx
+                    lappend template_ranges $trange
+                    set trange [list $line_idx]
+                    set nextshell_script [_get_nextshell_script $configd]
+                    #puts stderr "-------------------"
+                    #puts stderr "$nextshell_script"
+                    lappend data_items $nextshell_script
+                } elseif {[string match  "#<*-payload>*" $ln]} {
+                    regexp {#<(.*)-payload>.*} $ln _ lang
+                    if {[dict exists $lang_data $lang]} {
+                        set script_lines [dict get $lang_data $lang]
+                        set opentag payload-$lang
+                        lset trange 1 $line_idx
+                        lappend template_ranges $trange
+                        lappend data_items [join $script_lines \n]
+                    }
+                }
             } else {
-
+                switch -- [string range $opentag 0 6] {
+                    asadmin {
+                        if {[string match ": <<asadmin_end>>*" $ln]} {
+                            set trange [list $line_idx]
+                            set opentag ""
+                        }
+                    }
+                    nextshe {
+                        if {[string match ": <<nextshell_end>>*" $ln]} {
+                            set trange [list $line_idx]
+                            set opentag ""
+                        }
+                    }
+                    payload {
+                        set lang [string range $opentag 8 end] ;#payload-xxx
+                        if {[string match "#</$lang-payload>*" $ln]} {
+                            set trange [list $line_idx]
+                            set opentag ""
+                        }
+                    }
+                }
             }
-            incr line_idx
         }
-        if {($start_idx == 0) || ($end_idx == 0)} {
-            error "wrap_in_multishell was unable to find payload area in template marked with #<$lang-pre-launch-subprocess>  and #</$lang-pre-launch-subprocess> on separate lines"
+        if {$opentag eq ""} {
+            lset trange 1 end
+            lappend template_ranges $trange
+        } else {
+            error "multishell - unable to find closing tag for '$opentag'"
         }
-        set existing_string [join $existing_payload \n]
-        if {[string length [string trim $existing_string]]} {
-            puts stdout "EXISTING <$lang-pre-launch-subprocess> PAYLOAD!!"
-            puts stdout "-----------------------------------------------\n"
-            puts stdout $existing_string
-            puts stdout "-----------------------------------------------\n"
-            error "wrap_in_multishell found existing payload for language $lang ... aborting."
-            #todo - allow overwrite only in files outside of punkshell distribution?
-            if 0 {
-                puts stderr "Found existing $lang payload.. overwrite?" 
-                if {$opt_askme} {
-                    set answer [util::askuser "Are you sure you want to replace the $lang payload shown above? Y|N"]
-                    if {[string tolower $answer] ne "y"} {
-                        puts stderr "mix new aborting due to user response '$answer' (required Y|y to proceed)  use -askme 0 to avoid prompts."
-                        return
-                    }
-                }
+        set newscript ""
+        foreach trange $template_ranges item $data_items {
+            append newscript [join [lrange $template_lines {*}$trange] \n]
+            if {$item ne ""} {
+                append newscript \n $item \n
+            } else {
+                append newscript \n
             }
         }
 
-        set tpl_head_lines [lrange $template_lines 0 $start_idx] ;#include tag line
-        set tpl_tail_lines [lrange $template_lines $end_idx end]
-        set newscript [join $tpl_head_lines \n]\n[join $script_lines \n]\n[join $tpl_tail_lines \n]
+
+
         puts stdout "New script is [string length $newscript] bytes"
         puts stdout $newscript
+
         set fdtarget [open $output_file w]
         fconfigure $fdtarget -translation binary
         puts -nonewline $fdtarget $newscript
@@ -1620,7 +1756,7 @@ namespace eval punk::mix::commandset::scriptwrap {
             #note that:
             #@REM -----
             #@goto ^
-            #:label 
+            #:label
             #@REM-----
             # is a valid callsite - but doesn't appear to be found by the label scanner as it's own target label even though :label is on it's own line from non-batch perspective
             # so the caller will have to do some batch-style line processing to find all call sites
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd
deleted file mode 100644
index 1cb9e0ef..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/multishell-old.cmd
+++ /dev/null
@@ -1,270 +0,0 @@
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide s {proc $s args {}}; Hide :;rename set s2;Hide set;s2 1 list]"; set -- : "$@"; $1 = @'
-: heredoc1 - hide from powershell (close sqote for unix shells) ' \
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo]#not necessary but can help avoid errs in testing"
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-@REM {
-@REM DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required and will reduce functionality.
-@REM Even comment lines can be part of the functionality of this script - modify with care.
-@REM Change the value of nextshell in the next line if desired, and code within payload sections as appropriate.
-@SET "nextshell=pwsh"
-@REM nextshell set to pwsh,sh,bash or tclsh
-@REM @ECHO nextshell is %nextshell%
-@SET "validshells=pwsh,sh,bash,tclsh"
-@CALL SET keyRemoved=%%validshells:%nextshell%=%%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix)
-@REM  -- This section intended only to launch the next shell
-@REM  -- Avoid customising this if possible. cmd/batch script is probably the least expressive language.
-@REM  -- custom windows payloads should be in powershell,tclsh or sh/bash code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@IF %nextshell%==pwsh (
-    CALL pwsh -nop -c set-executionpolicy -Scope CurrentUser RemoteSigned
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-    REM test availability of preferred option of powershell7+ pwsh
-    CALL pwsh -nop -nol -c write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    IF !pwshtest_exitcode!==0 CALL pwsh -nop -nol "%~dp0%~n0.ps1" %* & SET task_exitcode=!errorlevel!
-    REM fallback to powershell if pwsh failed 
-    IF NOT !pwshtest_exitcode!==0 (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        CALL powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF %nextshell%==bash (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        CALL %nextshell% "!wslpath!%fname%" %* & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            CALL %nextshell% "%~dp0%fname%" %* & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value %nextshell% valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit
-        )
-    )
-)
-@GOTO :endlib
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@GOTO :eof
-:endlib
-
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit
-@GOTO :exit
-# }
-# rem call %nextshell% "%~dp0%~n0.cmd" %* 
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s2 set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup
-Hide :exit;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    :
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# unbal }
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: cmd exit label - return exitcode 
-:exit
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat
deleted file mode 100644
index aa9039a9..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/basic/shellbat.bat
+++ /dev/null
@@ -1,112 +0,0 @@
-: "[proc : args {}]" ;# *tcl shellbat - call with sh,bash,tclsh on any platform, or with cmd on windows.
-: <<'HIDE_FROM_BASH_AND_SH'
-: ;# leading colon hides from .bat, trailing slash hides next line from tcl \
-@call tclsh "%~dp0%~n0.bat" %*
-: ;#\
-@set taskexitcode=%errorlevel% & goto :exit
-# -*- tcl -*-
-# #################################################################################################
-# This is a tcl shellbat file
-# It is tuned to run when called as a batch file, a tcl script, an sh script or a bash script,
-# so the specific layout and characters used are quite sensitive to change.
-# It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# e.g ./filename.sh.bat in sh or bash or powershell
-# e.g filename.sh or filename.sh.bat at windows command prompt
-# e.g tclsh filename.sh.bat |  sh filename.sh.bat  | bash filename.sh.bat
-# In all cases an arbitrary number of arguments are accepted
-# To avoid the initial commandline on stdout when calling as a batch file on windows, use:
-# cmd /Q /c filename.sh.bat
-# (because we cannot use @if to silence it, as this isn't understood by tcl,sh or bash)
-# #################################################################################################
-#fconfigure stdout -translation crlf
-# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-
-
-#<tcl-payload>
-#<tcl-payload/>
-
-# --- --- --- --- --- --- --- --- --- --- --- --- ---
-# only exit if needed. see exitcode notes at bottom of file and exit there for consistency across invocation methods
-# --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-#--
-#-- bash/sh code follows. 
-#-- protect from tcl using line continuation char on the previous comment for each line, like so: \
-printf "etc"
-#-- or alternatively place sh/bash script within the false==false block
-#-- whilst being careful to balance braces {}
-#-- For more complex needs you should call out to external scripts
-#--
-#-- END marker for hide_from_bash_and_sh\
-HIDE_FROM_BASH_AND_SH
-
-#---------------------------------------------------------
-#-- This if statement hides(mostly) a sh/bash code block from Tcl
-if false==false # else { 
-then
-:
-#---------------------------------------------------------
-    #-- leave as is if all that's required is launching the Tcl payload"
-    #--
-    #-- Note that sh/bash script isn't called when running a .bat from cmd.exe on windows by default
-    #-- adjust line 4:  @call tclsh ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-    #--   if sh/bash scripting needs to run on windows too.
-    #--
-    #printf "start of bash or sh code"
-    
-    #<shell-payload-pre-tcl>
-    #</shell-payload-pre-tcl>
-
-
-    #-- sh/bash launches Tcl here instead of shebang line at top
-    #<shell-launch-tcl>
-    #-- use exec to use exitcode (if any) directly from the tcl script
-    exec /usr/bin/env tclsh "$0" "$@"
-    #</shell-launch-tcl>
-    
-    #-- alternative - if sh/bash script required to run after the tcl call.
-    #/usr/bin/env tclsh "$0" "$@"
-    #tcl_exitcode=$?
-    #echo "tcl_exitcode: ${tcl_exitcode}"
-    
-    #<shell-payload-post-tcl>
-    #</shell-payload-post-tcl>
-    
-    #-- override exitcode example
-    #exit 66
-    
-    #printf "No need for trailing slashes for sh/bash code here\n"
-#---------------------------------------------------------
-fi
-# closing brace for Tcl }
-#---------------------------------------------------------
-
-#-- tcl and shell script now both active
-
-#-- comment for line sample 1 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 1 \n"
-
-#-- comment for line sample 2 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 2 \n"
-
-
-#-- Consistent exitcode from sh,bash,tclsh or cmd
-#-- Call exit in tcl (or sh/bash) code only if explicitly required, otherwise leave this commented out.
-#-- (script might be more widely useable without explicit exit. e.g in tcl: set ::argc 1; set ::argv "val"; source filename.sh.bat )
-#-- exit line unprotected by trailing slash will work for tcl and/or sh/bash
-#exit 0 
-#exit 42
-
-
-
-#-- make sure sh/bash/tcl all skip over .bat style exit \
-: <<'shell_end'
-#-- .bat exit with exitcode from tcl process \
-:exit
-: ;# \
-@exit /B %taskexitcode%
-# .bat has exited \
-shell_end
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd
index 9de4c125..3bf8e0b1 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell.cmd
@@ -1,5 +1,5 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
+: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh zsh/bash cmd pwsh powershell" + "[rename set S;proc Hide shell_not_supported {proc $shell_not_supported args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
+set -- "$@" "a=[Hide <#;Hide set;S 1 list]"; set -- : "$@";$1 = @'
 : heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
 : .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
 : "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
@@ -13,52 +13,113 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 : Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
 :  {
 @REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, (some sh) and/or powershelll (powershell.exe or pwsh.exe)
+@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, zsh, bash, (sh diversion) and/or powershelll (powershell.exe or pwsh.exe)
 @REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
 @REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: deck scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
+@rem -------------------------------------------------------------------------------------------------------------------------------
+@rem return from endlocal macro - courtesy of jeb
+@rem This allows return of values containing special characters from subroutines
+@rem https://stackoverflow.com/questions/3262287/make-an-environment-variable-survive-endlocal/8257951#8257951
+@rem -------------------------------------------------------------------------------------------------------------------------------
+@setlocal DisableDelayedExpansion
+@echo off
+%= 2 blank lines after next are required =%
+set LF=^
+
+
+set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"
+%=   I use EDE for EnableDelayeExpansion and DDE for DisableDelayedExpansion =%
+set ^"endlocal=for %%# in (1 2) do if %%#==2 (%\n%
+   setlocal EnableDelayedExpansion%\n%
+ %=       Take all variable names into the varName array       =%%\n%
+   set varName_count=0%\n%
+   for %%C in (!args!) do set "varName[!varName_count!]=%%~C" ^& set /a varName_count+=1%\n%
+ %= Build one variable with a list of set statements for each variable delimited by newlines =%%\n%
+ %= The lists looks like --> set result1=myContent\n"set result1=myContent1"\nset result2=content2\nset result2=content2\n     =%%\n%
+ %= Each result exists two times, the first for the case returning to DDE, the second for EDE =%%\n%
+ %= The correct line will be detected by the (missing) enclosing quotes  =%%\n%
+   set "retContent=1!LF!"%\n%
+   for /L %%n in (0 1 !varName_count!) do (%\n%
+      for /F "delims=" %%C in ("!varName[%%n]!") DO (%\n%
+         set "content=!%%C!"%\n%
+         set "retContent=!retContent!"set !varName[%%n]!=!content!"!LF!"%\n%
+         if defined content (%\n%
+ %=      This complex block is only for replacing '!' with '^!'      =%%\n%
+ %=    First replacing   '"'->'""q'   '^'->'^^' =%%\n%
+         set ^"content_EDE=!content:"=""q!"%\n%
+         set "content_EDE=!content_EDE:^=^^!"%\n%
+ %= Now it's poosible to use CALL SET and replace '!'->'""e!' =%%\n%
+         call set "content_EDE=%%content_EDE:^!=""e^!%%"%\n%
+         %= Now it's possible to replace '""e' to '^', this is effectivly '!' -> '^!'  =%%\n%
+         set "content_EDE=!content_EDE:""e=^!"%\n%
+         %= Now restore the quotes  =%%\n%
+         set ^"content_EDE=!content_EDE:""q="!"%\n%
+         ) ELSE set "content_EDE="%\n%
+         set "retContent=!retContent!set "!varName[%%n]!=!content_EDE!"!LF!"%\n%
+      )%\n%
+   )%\n%
+ %= Now return all variables from retContent over the barrier =%%\n%
+   for /F "delims=" %%V in ("!retContent!") DO (%\n%
+ %= Only the first line can contain a single 1 =%%\n%
+      if "%%V"=="1" (%\n%
+ %= We need to call endlocal twice, as there is one more setlocal in the macro itself =%%\n%
+         endlocal%\n%
+         endlocal%\n%
+      ) ELSE (%\n%
+ %= This is true in EDE             =%%\n%
+         if "!"=="" (%\n%
+            if %%V==%%~V (%\n%
+               %%V !%\n%
+            )%\n%
+         ) ELSE IF not %%V==%%~V (%\n%
+            %%~V%\n%
+         )%\n%
+      )%\n%
+   )%\n%
+ ) else set args="
+
+@rem -------------------------------------------------------------------------------------------------------------------------------
+@SETLOCAL EnableExtensions EnableDelayedExpansion
+@REM Change the value of nextshell to one of the supported types, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
+@REM This wrapper can be edited manually (carefully!) - or bash,tcl,perl,powershell scripts can be wrapped using the Tcl-based punkshell system
+@REM e.g from within a running punkshell: dev scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
+@REM Call with sh, bash, perl, or tclsh. (powershell untested on unix)
+@REM Due to lack of shebang (#! line) Unix-like systems will hopefully default to a flavour of sh that can divert to bash if the script is called without an interpreter - but it may depend on the shell in use when called.
 @REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
 @REM in batch scripts - array syntax with square brackets is a simulation of arrays or associative arrays.
 @REM note that many shells linked as sh do not support substition syntax and may fail - e.g dash etc - generally bash should be used in this context
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshelltypes= powershell______ sh______________ wslbash_________ bash____________ tcl_____________ perl____________"
+@SET "validshelltypes= pwsh____________ powershell______ sh______________ wslbash_________ bash____________ tcl_____________ perl____________ none____________"
 @REM for batch - only win32 is relevant - but other scripts on other platforms also parse the nextshell block to determine next shell to launch
 @REM nextshellpath and nextshelltype indices (underscore-padded to 16wide) are "other" plus those returned by Tcl platform pkg e.g win32,linux,freebsd,macosx
 @REM The horrible underscore-padded fixed-widths are to keep the batch labels aligned whilst allowing values to be set
-@REM If more than 32 chars needed for a target, it can still be done but overall script padding may need checking/adjusting
+@REM If more than 64 chars needed for a target, it can still be done but overall script padding may need checking/adjusting
 @REM Supporting more explicit oses than those listed may also require script padding adjustment
-: <nextshell>
-@SET "nextshellpath[win32___________]=tclsh___________________________"
+: <<nextshell_start>>
+@SET "nextshellpath[win32___________]=tclsh___________________________________________________________________________________________________________________________"
 @SET "nextshelltype[win32___________]=tcl_____________"
-@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[dragonflybsd____]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[dragonflybsd____]=tcl_____________"
-@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[freebsd_________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[freebsd_________]=tcl_____________"
-@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[netbsd__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[netbsd__________]=tcl_____________"
-@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[linux___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[linux___________]=tcl_____________"
-@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[macosx__________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[macosx__________]=tcl_____________"
-@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________"
+@SET "nextshellpath[other___________]=/usr/bin/env tclsh______________________________________________________________________________________________________________"
 @SET "nextshelltype[other___________]=tcl_____________"
-: </nextshell>
+: <<nextshell_end>>
 @rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
+: <<asadmin_start>>
 @SET "asadmin=0"
-: </asadmin>
-@REM @ECHO nextshelltype is %nextshelltype[win32___________]%
-@REM @SET "selected_shelltype=%nextshelltype[win32___________]%"
+: <<asadmin_end>>
 @SET "selected_shelltype=%nextshelltype[win32___________]%"
 @REM @ECHO selected_shelltype %selected_shelltype%
 @CALL :stringTrimTrailingUnderscores %selected_shelltype% selected_shelltype_trimmed
 @REM @ECHO selected_shelltype_trimmed %selected_shelltype_trimmed%
 @SET "selected_shellpath=%nextshellpath[win32___________]%"
-@CALL :stringTrimTrailingUnderscores %selected_shellpath% selected_shellpath_trimmed
+@CALL :stringTrimTrailingUnderscores "%selected_shellpath%" selected_shellpath_trimmed
 @CALL SET "keyRemoved=%%validshelltypes:!selected_shelltype!=%%"
 @REM @ECHO keyremoved %keyRemoved%
 @REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
@@ -73,7 +134,7 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
 @REM  -- Even something as simple as adding or removing an @REM
 @REM  -- From within punkshell - use:
-@REM  --     deck scriptwrap.checkfile <filepath>
+@REM  --     deck scriptwrap.checkfile filepath
 @REM  -- to check your templates or final wrapped scripts for byte boundary issues
 @REM  -- It will report any labels that are on boundaries
 @REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
@@ -83,12 +144,14 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
 @REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
 @REM  -- It is unknown what versions of cmd interpreters behave this way - and deck scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
+@REM  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
 @REM ############################################################################################################################
 @REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
 @REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
+@SET "winpath=%~dp0"            %= e.g c:\punkshell\bin\ %=
 @SET "fname=%~nx0"
+@SET "scriptrootname=%~dp0%~n0" %= e.g c:\punkshell\bin\runtime (full path without extension) unavailable after shift, so store it =%
+@SET "fullscriptname=%~dp0%~n0%~x0" 
 @REM @ECHO fname %fname%
 @REM @ECHO winpath %winpath%
 @REM @ECHO commandlineascalled %0
@@ -100,6 +163,62 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @CALL :stringToUpper %~nx0 capscripttail
 @REM @ECHO capscriptname: %capscripttail%
 
+@goto skip_parameter_wrangling
+@set argCount=30
+@rem This is the max number of args we are willing to handle. also bounded by approx 8k char limit of cmd.exe
+@rem We do not loop over %* to count args as it is brittle for some inputs e.g will always skip cmd.exe separators e.g comma and semicolon
+@rem Set argCount higher if desired, but there is a small amount of additional looping overhead.
+@set tmpfile_base=%TEMP%\punkbatch_params
+@call :getUniqueFile %tmpfile_base% ".txt" paramfile
+@echo %paramfile%
+
+%= NOTE when we loop like this using the percent-n args and shift, we lose unquoted separators such as comma and semicolon %=
+@rem https://stackoverflow.com/questions/26551/how-can-i-pass-arguments-to-a-batch-file/5493124#5493124
+@rem outer loop  required to redirect all rem lines at once to file
+@for %%x in (1) do @(
+    @for /L %%f in (1,1,%argCount%) do @(
+        @set "argnum=%%~nf"
+        @set "a1=%%1"
+        @rem @set "argname=%%!argnum!"
+        @rem @echo argname: !argname!
+        @call :rem_output !argnum! !a1!
+        @shift
+    ) 
+) > %paramfile%
+@echo off
+
+@set "newcommandline= "
+
+@(set target=cmd_pwsh)
+@if "%target%"=="cmd_pwsh" (
+    @for /F "delims=" %%L in (%paramfile%) do @(
+        SETLOCAL DisableDelayedExpansion
+        set "param=%%L"
+        @REM @echo ######### %%L
+        @rem call :buildcmdline newcommandline param "{" "}"
+        @rem call :buildcmdline newcommandline param ' ' %= cmd.exe /c powershell ... -c %=
+        call :buildcmdline newcommandline param   %= cmd.exe /c powershell ... -f %=
+        @rem @echo .
+    )
+) ELSE  (
+    @for /F "delims=" %%L in (%paramfile%) do @(
+        SETLOCAL DisableDelayedExpansion
+        set "param=%%L"
+        call :buildcmdline newcommandline param 
+    )
+)
+@REM padding
+SETLOCAL EnableDelayedExpansion 
+@echo off
+@IF EXIST %paramfile% (
+    @DEL /F /Q %paramfile%
+)
+@IF EXIST %paramfile% (
+    echo failed to delete %paramfile%
+    cat %paramfile%
+)
+:skip_parameter_wrangling
+
 @IF "%nftail%"=="%capscripttail%" (
     @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
     @SET "asadmin=1"
@@ -123,46 +242,116 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
 )
 @REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
-@REM padding
 @GOTO skip_privileges
 :getPrivileges
 @IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
 @ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
+@ECHO pre = "/c %fullscriptname% PUNK-ELEVATED " >> "%vbsGetPrivileges%"
+@REM @echo pre = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
+@echo args = pre                                 >> "%vbsGetPrivileges%"
 @ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
+@ECHO     args = args ^& Chr(34) ^& strArg ^& Chr(34) ^& " " >> "%vbsGetPrivileges%"
 @ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
+@GOTO skiptest
+
+%= Option Explicit =%
+%= We need a child process to locate the current script. =%
+@ECHO Const FLAG_PROCESS = "winver.exe" >> "%vbsGetPrivileges%"
+
+%= ' WMI constants %=
+@ECHO Const wbemFlagForwardOnly = 32 >> "%vbsGetPrivileges%"
+
+%=' Generate a unique value to be used as a flag =%
+@ECHO Dim guid >> "%vbsGetPrivileges%
+@ECHO    guid = Left(CreateObject("Scriptlet.TypeLib").GUID,38) >> "%vbsGetPrivileges%"
+
+%= ' Start a process using the indicated flag inside its command line =%
+@ECHO   WScript.CreateObject("WScript.Shell").Run """" ^& FLAG_PROCESS ^& """ " ^& guid, 0, False >> "%vbsGetPrivileges%"
+
+%= ' To retrieve process information a WMI reference is needed    =%
+@ECHO Dim wmi >> "%vbsGetPrivileges%"
+@ECHO    Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}^!\\.\root\cimv2") >> "%vbsGetPrivileges%"
+
+%= ' Query the list of processes with the flag in its command line, retrieve the =%
+%= ' process ID of its parent process ( our script! ) and terminate the process =%
+@ECHO Dim colProcess, process, myProcessID >> "%vbsGetPrivileges%"
+@ECHO    Set colProcess = wmi.ExecQuery( _>> "%vbsGetPrivileges%"
+@ECHO       "SELECT ParentProcessID From Win32_Process " ^& _>> "%vbsGetPrivileges%"
+@ECHO        "WHERE Name='" ^& FLAG_PROCESS ^& "' " ^& _>> "%vbsGetPrivileges%"
+@ECHO        "AND CommandLine LIKE '%%" ^& guid ^& "%%'" _>> "%vbsGetPrivileges%"
+@ECHO       ,"WQL" , wbemFlagForwardOnly _>> "%vbsGetPrivileges%"
+@ECHO    ) >> "%vbsGetPrivileges%"
+@ECHO    For Each process In colProcess >> "%vbsGetPrivileges%"
+@ECHO        myProcessID = process.ParentProcessID >> "%vbsGetPrivileges%"
+@ECHO        process.Terminate >> "%vbsGetPrivileges%"
+@ECHO    Next >> "%vbsGetPrivileges%"
+
+%= ' Knowing the process id of our script we can query the process list =%
+%= ' and retrieve its command line =%
+@ECHO Dim commandLine                                       >> "%vbsGetPrivileges%"
+@ECHO    set colProcess = wmi.ExecQuery( _>>                   "%vbsGetPrivileges%"
+@ECHO        "SELECT CommandLine From Win32_Process " ^& _>>   "%vbsGetPrivileges%"
+@ECHO        "WHERE ProcessID=" ^& myProcessID _>>             "%vbsGetPrivileges%"
+@ECHO        ,"WQL" , wbemFlagForwardOnly _>>                  "%vbsGetPrivileges%"
+@ECHO    )                                                  >> "%vbsGetPrivileges%"
+@ECHO    For Each process In colProcess                     >> "%vbsGetPrivileges%" 
+@ECHO        commandLine = process.CommandLine              >> "%vbsGetPrivileges%"
+@ECHO    Next                                               >> "%vbsGetPrivileges%"
+@ECHO WScript.Echo "raw commandline: " ^& commandLine                             >>"%vbsGetPrivileges%"
+
+%= ' Done =%
+@ECHO intpos = 0                                            >> "%vbsGetPrivileges%"
+@ECHO intCount = 0                                          >> "%vbsGetPrivileges%"
+@ECHO intstartsearch = 1                                    >> "%vbsGetPrivileges%"
+@ECHO intmax = 100                                          >> "%vbsGetPrivileges%"
+@ECHO do While intCount ^< 4 and intmax ^> 0                >> "%vbsGetPrivileges%"
+@ECHO   intpos = InStr(intstartsearch, commandline, """")   >> "%vbsGetPrivileges%"
+@ECHO   if intpos ^<^> 0 then                               >> "%vbsGetPrivileges%"
+@ECHO       intCount = intCount + 1                         >> "%vbsGetPrivileges%"
+@ECHO       if intcount = 4 then                            >> "%vbsGetPrivileges%"
+@ECHO           ' wscript.echo "position: " ^& intpos       >> "%vbsGetPrivileges%"
+@ECHO           commandline = Mid(commandline,intpos+1)     >> "%vbsGetPrivileges%"
+@ECHO           exit do                                     >> "%vbsGetPrivileges%"
+@ECHO       else                                            >> "%vbsGetPrivileges%"
+@ECHO           intstartsearch = intpos + 1                 >> "%vbsGetPrivileges%"
+@ECHO       end if                                          >> "%vbsGetPrivileges%"
+@ECHO   end if                                              >> "%vbsGetPrivileges%"
+@ECHO   intmax = intmax -1                                  >> "%vbsGetPrivileges%"
+@ECHO Loop                                                  >> "%vbsGetPrivileges%"
+@ECHO if intcount ^< 4 then                                 >> "%vbsGetPrivileges%"
+@ECHO     err.raise vbObjectError + 1001, "vbsGetPrivileges", "failed to parse commandline" >> "%vbsGetPrivileges%"
+@ECHO end if                                                >> "%vbsGetPrivileges%"
+@ECHO commandline = pre ^& commandline                     >> "%vbsGetPrivileges%"
+@ECHO WScript.Echo "commandline: " ^& commandLine                             >>"%vbsGetPrivileges%"
+@ECHO WScript.Echo "args: " ^& args                                    >>"%vbsGetPrivileges%"
+:skiptest
+
+@ECHO UAC.ShellExecute "cmd.exe", args, "", "runas", 1 >> "%vbsGetPrivileges%"
+@REM @ECHO UAC.ShellExecute "%fullscriptname%", commandline, "", "runas", 1 >> "%vbsGetPrivileges%"
+@ECHO Launching script "%fullscriptname%" in new window due to administrator elevation with args: "%*"
 @"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
+@REM @"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" !newcommandline!
 @EXIT /B
 
+@REM buffer
+@REM buffer
 :gotPrivileges
 @REM setlocal & pushd .
 @PUSHD .
-@cd /d %~dp0
+@cd /d %winpath%
 @IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
     @DEL "%vbsGetPrivileges%" 1>nul 2>nul
     @SET arglist=%arglist:~14%
+    @SHIFT
 )
 
 :skip_privileges
 @SET need_ps1=0
 @REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
+@if not exist "%scriptrootname%.ps1" (
     @SET need_ps1=1
 ) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
+    fc "%fullscriptname%" "%scriptrootname%.ps1" >nul || goto different
     @REM @ECHO "files same"
     @SET need_ps1=0
 )
@@ -172,58 +361,224 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 @SET need_ps1=1
 :pscontinue
 @IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
+    COPY "%fullscriptname%" "%scriptrootname%.ps1" >NUL 
 )
 @REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "%selected_shelltype_trimmed%"=="powershell" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
+@IF "!selected_shelltype_trimmed!"=="none" (
+    SET selected_shelltype_trimmed=pwsh
+)
+
+@REM @SET "squoted_args="
+@REM @for %%a in (%*) do @(
+@REM     set "v=%%a"
+@REM     set "v=!v:'=''!"
+@REM     SET "squoted_args=!squoted_args!'!v!' "
+@REM )
+@REM @SET "squoted_args=%squoted_args:~0,-1%"
+@REM @ECHO %squoted_args%
+
+
+@IF "!selected_shelltype_trimmed!"=="pwsh" (
+    REM pwsh vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
     REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
+    REM when run without cmd.exe - pwsh will receive the semicolon (for cmd.exe unquoted semicolon and comma are separators that aren't seen in positional arguments)
+    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted 2>NUL; write-host "statusmessage: pwsh-found" >NUL
     SET pwshtest_exitcode=!errorlevel!
     REM ECHO pwshtest_exitcode !pwshtest_exitcode!
     REM fallback to powershell if pwsh failed 
     IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
+        @rem pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%scriptrootname%.ps1" %arglist%
+        @rem pwsh -nop -nologo -ExecutionPolicy bypass -f "%scriptrootname%.ps1" %arglist%  %= ok =%
+        @rem cmd /c pwsh -nop -nologo -ExecutionPolicy bypass -f "%scriptrootname%.ps1" !newcommandline! 
+        !selected_shellpath_trimmed! "%scriptrootname%.ps1" %arglist%
         SET task_exitcode=!errorlevel!
     ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
+        REM TODO prompt user with option to call script to install pwsh using winget
+        %= powershell with -file flag treats it's arguments differently to pwsh - we need cmd /c to preserve args with spaces =%
+        cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" %arglist%
+        @rem cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" !newcommandline! 
         SET task_exitcode=!errorlevel!
     )
 ) ELSE ( 
-    IF "%selected_shelltype_trimmed%"=="wslbash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        %selected_shellpath_trimmed% "!wslpath!%fname%" %arglist%
+    IF "!selected_shelltype_trimmed!"=="powershell" (
+        %= powershell with -file flag treats it's arguments differently to pwsh - we need cmd /c to preserve args with spaces =%
+        @rem @echo powershell - !selected_shellpath_trimmed! "%scriptrootname%.ps1" %arglist%
+        @rem cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" %arglist%  %= ok - this works =%
+        !selected_shellpath_trimmed! "%scriptrootname%.ps1" %arglist%
+        @rem cmd /c powershell -nop -nologo -ExecutionPolicy Bypass -f "%scriptrootname%.ps1" !newcommandline! 
         SET task_exitcode=!errorlevel!
     ) ELSE (
-        REM  perl or tcl or sh or bash
-        IF NOT "x%keyRemoved%"=="x%validshelltypes%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            REM The compound statement with trailing call is required to stop batch termination confirmation, whilst still capturing exitcode
-            %selected_shellpath_trimmed% "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel! & Call;
+        IF "!selected_shelltype_trimmed!"=="wslbash" (
+            CALL :getWslPath %winpath% wslpath
+            REM ECHO wslfullpath "!wslpath!%fname%"
+            %selected_shellpath_trimmed% "!wslpath!%fname%" %arglist%
+            SET task_exitcode=!errorlevel!
         ) ELSE (
-            ECHO %fname% has invalid nextshelltype value %selected_shelltype% valid options are %validshelltypes%
-            SET task_exitcode=66
-            @REM boundary padding
-            @REM boundary padding
-            GOTO :exit_multishell
+            REM  perl or tcl or sh or bash
+            IF NOT "x%keyRemoved%"=="x%validshelltypes%" (
+                REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
+                REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
+                REM The compound statement with trailing call is required to stop batch termination confirmation, whilst still capturing exitcode
+                @REM @ECHO HERE "!selected_shelltype_trimmed!" "!selected_shellpath_trimmed!"
+                !selected_shellpath_trimmed! "%winpath%%fname%" %arglist% & SET task_exitcode=!errorlevel! & Call;
+            ) ELSE (
+                ECHO %fname% has invalid nextshelltype value %selected_shelltype% valid options are %validshelltypes%
+                SET task_exitcode=66
+                @REM boundary padding
+            )
         )
     )
 )
 @REM batch file library functions
-@REM boundary padding
 @GOTO :endlib
 
+@REM padding
+@REM padding
+@REM padding
+@REM padding
+
+%= ---------------------------------------------------------------------- =%
+@rem courtesy of dbenham
+:: Example usage
+@rem call :getUniqueFile "d:\test\myFile" ".txt" myFile
+@rem echo myFile="%myFile%"
+
+:getUniqueFile  baseName  extension  rtnVar
+setlocal
+:getUniqueFileLoop
+for /f "skip=1" %%A in ('wmic os get localDateTime') do for %%B in (%%A) do set "rtn=%~1_%%B%~2"
+if exist "%rtn%" (
+  goto :getUniqueFileLoop
+) else (
+  2>nul >nul (9>"%rtn%" timeout /nobreak 1) || goto :getUniqueFileLoop
+)
+endlocal & set "%~3=%rtn%"
+exit /b
+%= ---------------------------------------------------------------------- =%
+
+@REM padding
+:buildcmdline cmdlinevar paramvar wrapA wrapB
+    %= quoting for cmd.exe /c pwsh -nop !args! =%
+    @SETLOCAL EnableDelayedExpansion
+
+    @REM @echo =====================
+    set "pval=!%~2:*#=!"
+    set "pval=!pval:~0,-2!"
+    @REM set "pval=!pval:~0,-1!"
+    set "wrapa=%~3"
+    set "wrapb=%~4"
+
+    @call :strlen pval slen
+    @rem @echo strlen: !slen!
+    if "!slen!"=="0" (
+        goto :eof
+    )
+    @set /A n = !slen! - 1
+    @(set str=)
+    @set "dq=""
+    @set "bang=^!"
+    @(set carat=^^)
+    @for /l %%i in (0,1,!n!) do @(
+        (set c=!pval:~%%i,1!)
+        if "!c!"=="|" (
+            set "ch=^^!pval:~%%i,1!"
+        ) ELSE IF "!c!"=="(" (
+            set "ch=^("
+        ) ELSE if "!c!"==")" (
+            set "ch=^)"
+        ) ELSE if "!c!"=="&" (
+            set "ch=^^&"
+        ) ELSE if "!c!"=="!dq!" (
+            set "ch=^""
+        ) ELSE if "!c!"=="!bang!" (
+            @rem - double caret - first for initial parsing, second to ensure remains escaped during delayed expansion phase 
+            @rem - REVIEW
+            set "ch=^^!bang!"
+        ) ELSE if "!c!"=="^carat" (
+            set "ch=^^^^"
+        ) ELSE if "!c!"=="'" (
+            set "ch=''"
+        ) ELSE (
+            set "ch=!c!"
+        )
+        @rem @echo - !ch!
+        set "str=!str!!ch!"
+    )
+    echo +++++ %~1 = !%1! !str!
+
+    set "%~1=!%1! !wrapa!!str!!wrapb!"
+
+    @rem old method of return - failes to preserve exclamation marks
+    @rem for /f "delims=" %%A in (""!str!"") do endlocal & set "%~1=!%1! '%%~A'"
+    @rem macro method of endlocal return - preserving !val!
+    @echo off
+    %endlocal% %~1
+
+    @exit /b
+
+:rem_output
+    @rem ---------------------------------------------
+    @rem rem_output is called for each n in the number of args we process - as we don't have a non-destructive way to count args whilst accepting special chars
+    @rem we therefore need a way to stop processing on the last received arg so we don't write argCount entries to param.txt if less are received
+    @rem see 'disappearing quotes' technique
+    @rem https://stackoverflow.com/questions/4643376/how-to-split-double-quoted-line-into-multiple-lines-in-windows-batch-file/4645113#4645113
+    @rem and
+    @rem https://groups.google.com/g/alt.msdos.batch.nt/c/J71F17Bve9Y  (sponge belly)
+    @echo off
+    setlocal enableextensions disabledelayedexpansion
+    set "param1=%~2"
+    rem do must not be indented
+    for %%^" in ("") ^
+do if not defined param1 set %%~"param1=%2%%~"
+    if not defined param1 goto :eof
+    endlocal
+    @rem ---------------------------------------------
+
+    @PROMPT @
+    @echo on
+    rem %1 #%2#
+@exit /b
+
+@rem padding
+@REM courtesy of: https://stackoverflow.com/users/463115/jeb
+:strlen  stringVar returnVar
+@(   
+    setlocal EnableDelayedExpansion
+    @SET "rtrn=%~2"
+    (set^ tmp=!%~1!)
+    @rem @echo jjjjj !tmp!
+    @if defined tmp (
+        set "len=1"
+        @for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do @(
+            @if "!tmp:~%%P,1!" NEQ "" ( 
+                set /a "len+=%%P"
+                set "tmp=!tmp:~%%P!"
+            )
+        )
+    ) ELSE (
+        set len=0
+    )
+)
+@( 
+    endlocal
+    @IF "%~2" neq "" (
+        @SET "%rtrn%=%len%"
+    ) ELSE (
+        @ECHO :strlen result: %len%
+    )
+    exit /b
+)
+
+
 :getWslPath
 @SETLOCAL
     @SET "_path=%~p1"
     @SET "name=%~nx1"
     @SET "drive=%~d1"
     @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
+    @REM Although drive letters on windows are normally upper case wslbash seems to expect lower case drive letters
+    @CALL :stringToLower %drive ldrive
+    @SET "result=/mnt/%ldrive:~0,1%%_path:\=/%%name%"
 @ENDLOCAL & (
     @if "%~2" neq "" (
         SET "%rtrn%=%result%"
@@ -233,6 +588,8 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 )
 @EXIT /B
 
+@REM padding
+@REM padding
 :getFileTail
 @REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
 @REM we can't use things such as %~nx1 as it can change capitalisation
@@ -270,7 +627,8 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     )
 )
 @EXIT /B
-@REM  boundary padding
+@REM boundary padding
+@REM boundary padding
 @REM boundary padding
 :getNormalizedScriptTail
 @SETLOCAL
@@ -285,13 +643,12 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 )
 @EXIT /B
 
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
 @REM boundary padding
 @REM boundary padding
 @REM boundary padding
+:getNormalizedFileTailFromPath
+@REM warn via echo, and do not set return variable if path not found
+@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
 @SETLOCAL
     @CALL :stringContains %~1 "\" hasBackSlash
     @CALL :stringContains %~1 "/" hasForwardSlash
@@ -317,6 +674,10 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 )
 @EXIT /B
 
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+
 :stringContains
 @REM usage: @CALL:stringContains string needle returnvarname
 @SETLOCAL
@@ -336,8 +697,9 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     )
 )
 @EXIT /B
-
-:stringToUpper
+@REM boundary padding
+@REM boundary padding
+:stringToUpper strvar returnvar
 @SETLOCAL
     @SET "rtrn=%~2"
     @SET "string=%~1"
@@ -354,19 +716,44 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
     )
 )
 @EXIT /B
+:stringToLower
+@SETLOCAL
+    @SET "rtrn=%~2"
+    @SET "string=%~1"
+    @SET "retstring=%~1"
+    @FOR %%A in (a b c d e f g h i j k l m n o p q r s t u v w x y z) DO @(
+        @SET "retstring=!retstring:%%A=%%A!"
+    )
+    @SET "result=!retstring!"
+@ENDLOCAL & (
+    @IF "%~2" neq "" (
+        @SET "%rtrn%=%result%"
+    ) ELSE (
+        @ECHO stringToLower %string% result: %result%
+    )
+)
+@EXIT /B
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
+@REM boundary padding
 :stringTrimTrailingUnderscores
 @SETLOCAL
     @SET "rtrn=%~2"
     @SET "string=%~1"
     @SET "trimstring=%~1"
-    @REM trim up to 31 underscores from the end of a string using string substitution
-    @SET trimstring=%trimstring%###
-    @SET trimstring=%trimstring:________________###=###%
-    @SET trimstring=%trimstring:________###=###%
-    @SET trimstring=%trimstring:____###=###%
-    @SET trimstring=%trimstring:__###=###%
-    @SET trimstring=%trimstring:_###=###%
-    @SET trimstring=%trimstring:###=%
+    @REM trim up to 127 underscores from the end of a string using string substitution
+    @SET "trimstring=%trimstring%###"
+    @SET "trimstring=%trimstring:________________________________________________________________###=###%"
+    @SET "trimstring=%trimstring:________________________________###=###%"
+    @SET "trimstring=%trimstring:________________###=###%"
+    @SET "trimstring=%trimstring:________###=###%"
+    @SET "trimstring=%trimstring:____###=###%"
+    @SET "trimstring=%trimstring:__###=###%"
+    @SET "trimstring=%trimstring:_###=###%"
+    @SET "trimstring=%trimstring:###=%"
     @SET "result=!trimstring!"
 @ENDLOCAL & (
     @IF "%~2" neq "" (
@@ -397,6 +784,7 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 :endlib
 : \
 @REM padding
+@REM padding
 @REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
 @GOTO :exit_multishell
 # }
@@ -404,22 +792,214 @@ set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
 # -- tcl script section
 # -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
+# -- It is tuned to run (and possibly divert to different payload shell) when called from cmd.exe as a batch file, tclsh,sh,zsh,bash,perl or pwsh/powershell script
 # -- i.e it is a polyglot file.
+# -- The payload target (by os) is defined in the nextshell block at the top which is constructed when generating the polyglot
+# -- using the tcl 'dev scriptwrap.multishell' command in a tcl punk shell
+# -- The payload can be tcl,perl,powershell/pwsh or zsh/bash.
 # -- The specific layout including some lines that appear just as comments is quite sensitive to change.
 # -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
+# -- e.g ./scriptname.cmd in sh or zsh or bash
+# -- e.g tclsh scriptname.cmd
 # -- 
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
+rename set ""; rename S set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
 Hide :exit_multishell;Hide {<#};Hide '@
+#---------------------------------------------------------------------
+puts "info script   : [info script]"
+#puts "argcount : $::argc"
+#puts "argvalues: $::argv"
+#puts "argv0    : $::argv0"
+# -- --- --- --- --- --- --- --- --- --- --- ---
+#divert to configured nextshell
+set script_as_called [info script]
+package require platform
+set plat_full [platform::generic]
+set plat [lindex [split $plat_full -] 0]
+#may be old tcl - not assuming readFile available
+set fd [open [info script] r]
+set scriptdata [read $fd]
+close $fd
+set scriptdata [string map [list \r\n \n] $scriptdata]
+set in_data 0
+set nextshellpath ""
+set nextshelltype ""
+puts stderr "PLAT: $plat"
+switch -glob -- $plat {
+    "msys" - "mingw*" {
+        set os "win32"
+    }
+    default {
+        set os $plat
+    }
+}
+foreach ln [split $scriptdata \n] {
+    if {[string trim $ln] eq ""} {continue}
+    if {!$in_data} {
+        if {[string match ": <<nextshell_start>>*" $ln]} {
+            set in_data 1
+        }
+    } else {
+        if {[string match "*@SET*nextshellpath?${os}_*" $ln]} {
+            set lineparts [split $ln =]
+            set tail [lindex $lineparts 1]
+            set nextshellpath [string trimright $tail {_"}]
+            if {$nextshellpath ne "" && $nextshelltype ne ""} {
+                break
+            }
+        } elseif {[string match "*@SET*nextshelltype?${os}_*" $ln]} {
+            set lineparts [split $ln =]
+            set tail [lindex $lineparts 1]
+            set nextshelltype [string trimright $tail {_"}]
+            if {$nextshellpath ne "" && $nextshelltype ne ""} {
+                break
+            }
+        } elseif {[string match ": <<nextshell_end>>*" $ln]} {
+            break
+        }
+    }
+}
+if {$nextshelltype ne "tcl" && $nextshelltype ne "none"} {
+    set script_rootname [file rootname $script_as_called]
+    if {$nextshelltype in "pwsh powershell"} {
+        # experimental
+        set script_ps1 $script_rootname.ps1
+        set arglist $::argv
+
+        if {[file extension $script_as_called] ne ".ps1"} {
+            #we need to ensure .ps1 is up to date
+            set needs_updating 0
+            if {![file exists $script_ps1]} {
+                set needs_updating 1
+            } else {
+                #both exist 
+                if {[file size $script_as_called] != [file size $script_ps1]} {
+                    set needs_updating 1 
+                } else {
+                    #both exist with same size - do full check that they're identical
+                    catch {package require sha256}
+                    if {[package provide sha256] ne ""} {
+                        set h1 [sha2::sha256 -hex -file $script_as_called]
+                        set h2 [sha2::sha256 -hex -file $script_ps1]
+                        if {[string length $h1] != 64 || [string length $h2] != 64} {
+                            set needs_updating 1
+                        } elseif {$h1 ne $h2} {
+                            set needs_updating 1
+                        }
+                    } else {
+                        #manually compare - scripts aren't too big, so slurp and string compare is fine
+                        set fd [open $script_as_called]
+                        chan configure $fd -translation binary
+                        set data1 [read $fd]
+                        close $fd
+                        set fd [open $script_ps1]
+                        chan configure $fd -translation binary
+                        set data2 [read $fd]
+                        close $fd
+                        if {![string equal $data1 $data2]} {
+                            set needs_updating 1
+                        }
+                    }
+                }
+            }
+
+            if {$needs_updating} {
+                file copy -force $script_as_called $script_ps1
+            }
+        } else {
+            #when called on the .ps1 - we assume it's up to date - review
+        }
+        set scrname $script_ps1
+
+        #set arglist [list]
+        #foreach a $::argv {
+        #    set a "'$a'"
+        #    lappend arglist $a
+        #}
+    } else {
+        set scrname $script_as_called
+        set arglist $::argv
+    }
+    #todo - handle /usr/bin/env
+    #todo - exitcode
+    #review - test spaced quoted words in nextshellpath?
+    #
+    #if {[llength $nextshellpath] == 1 && [string index $nextshellpath 0] eq {"} && [string index $nextshellpath end] eq {"}} {
+    #    set nextshell_words [list $nextshellpath]
+    #} else {
+    #    set nextshell_words $nextshellpath
+    #}
+
+    #perform any msys argument munging on a cmd/cmd.exe based nextshellpath before we convert the first word to an auto_exec path
+    switch -glob -- $plat {
+        "msys" - "mingw*" {
+            set cmdword [lindex $nextshellpath 0]
+            #we only act on cmd or cmd.exe - not a full path such as c:/WINDOWS/system32/cmd.exe
+            #the nextshellpath should generally be configured as cmd /c ... or cmd.exe ... but specifying it as a path could allow bypassing this un-munging.
+            #The un-munging only applies to msys/mingw, so such bypassing should be unnecessary - review
+            #maint: keep this munging in sync with zsh/bash and perl blocks which must also do msys mangling
+            if {[regexp {^cmd$|^cmd[.]exe$} $cmdword]} {
+                #need to deal with msys argument munging 
+                puts stderr "cmd call via msys detected. performing translation of /c to //C" 
+                #for now we only deal with /C or /c - todo - other cmd.exe flags?
+                #In this context we would usually only be using cmd.exe /c to launch older 'desktop' powershell to avoid spaced-argument problems - so we aren't expecting other flags 
+                set new_nextshellpath [list $cmdword]
+                #for now - just do what zsh munging does - bash regex/string/array processing is tedious and footgunny for the unfamiliar (me),
+                #so determine the minimum viable case for code there, then port behaviour to perl/tcl msys munging sections. 
+                foreach w [lrange $nextshellpath 1 end] {
+                    if {[regexp {^/[Cc]$} $w]} {
+                        lappend new_nextshellpath {//C}
+                    } else {
+                        lappend new_nextshellpath $w
+                    }
+                }
+                set nextshellpath $new_nextshellpath
+            }
+        }
+    }
+
+    set ns_firstword [lindex $nextshellpath 0]
+    #review - is this test for extra layer of double quoting on first word really necessary?
+    #if we are treaing $nextshellpath as a tcl list - the first layer of double quotes will already have disappeared
+    ##if {[string index $ns_firstword 0] eq {"} && [string index $ns_firstword end] eq {"}} {
+    ##    set ns_firstword [string range $ns_firstword 1 end-1]
+    ##}
+
+    if {$::tcl_platform(platform) ne "windows" && [string match {/*/env} $ns_firstword]} {
+        set exec_part $nextshellpath
+    } else {
+        set epath [auto_execok $ns_firstword]
+        if {$epath eq ""} {
+            error "unable to find executable path for first word '$ns_firstword' of nextshellpath '$nextshellpath'"
+        } else {
+            set exec_part [list {*}$epath {*}[lrange $nextshellpath 1 end]]
+        }
+    }
+
+
+    puts stdout "tclsh launching subshell of type: $nextshelltype shellpath: $nextshellpath on script $scrname with args: $arglist"
+    puts stdout "exec: $exec_part $scrname $arglist"
+    catch {exec {*}$exec_part $scrname {*}$arglist <@stdin >@stdout 2>@stderr} emsg eopts
+
+    if {[dict exists $eopts -errorcode]} {
+        set ecode [dict get $eopts -errorcode]
+        if {[lindex $ecode 0] eq "CHILDSTATUS"} {
+            exit [lindex $ecode 2]
+        } else {
+            puts stderr "error  calling next shell $nextshelltype :"
+            puts stderr $emsg
+            exit 1
+        }
+    } else {
+        exit 0
+    }
+}
+#---------------------------------------------------------------------
+
 namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
+    set last_script_root    [file dirname [file normalize ${::argv0}/__]]
     set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
+    if {[info exists ::argv0] &&
         $last_script eq $last_script_root
         } {
         set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
@@ -434,7 +1014,7 @@ namespace eval ::punk::multishell {
             if {![info exists ::punk::multishell::is_main($script_name)]} {
                 #e.g a .dll or something else unanticipated
                 puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
+                puts stderr "Info: script_root: [file dirname [file normalize ${::argv0}/__]]"
                 return 0
             }
             return [set ::punk::multishell::is_main($script_name)]
@@ -442,22 +1022,10 @@ namespace eval ::punk::multishell {
     }
 }
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
 
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subprocess>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subprocess>
+#<tcl-payload>
+puts stderr "No tcl code for this script. Try another program such as zsh or bash or perl"
+#</tcl-payload>
 
 
 # -- --- --- --- --- --- --- --- --- --- --- ---
@@ -477,49 +1045,238 @@ if {[::punk::multishell::is_main]} {
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
 # end hide from unix shells \
 HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
+# Be wary of any non-trivial sed/awk etc - can be brittle to maintain across linux,freebsd,macosx due to differing implementations \
+echo "var0: $0  @: $@"
+#  use oldschool backticks and sed (posix - lowest common denominator) \
+# ps_shellname=`ps -p $$ | awk '$1 != "PID" {print $(NF)}' | tr -d '()' | sed -E 's/^.*\/|^-//'` \
+# some ps impls will return arguments - so last field not always appropriate \
+# some ps impls don't have -o (e.g cygwin) so ps_shellname may remain empty and emit an error \
+ps_shellname=`ps -o pid,comm -p $$ | awk '$1 != "PID" {print $2}'`
+# \
+echo "shell from ps: $ps_shellname"
+# \
+echo "args: $@"
+# ------------------------------------------------------------------------------
+# -- This if block wraps posix sh diversion section - only needed if Tcl didn't exit or return above.
+if false==false # else {
+    then
+    : #
+
+# https://gist.github.com/fcard/e26c5a1f7c8b0674c17c7554fb0cd35c0  (MIT lic)
+# https://stackoverflow.com/questions/63864755/remove-last-argument-in-shell-script-posix
+# posix compliant pop
+pop() {
+  __pop_n=$(($1 - ${2:-1}))
+  if [ -n "$ZSH_VERSION" -o -n "$BASH_VERSION" ]; then
+    POP_EXPR='set -- "${@:1:'$__pop_n'}"'
+  elif [ $__pop_n -ge 500 ]; then
+    POP_EXPR="set -- $(seq -s " " 1 $__pop_n | sed 's/[0-9]\+/"${\0}"/g')"
+  else
+    __pop_index=0
+    __pop_arguments=""
+    while [ $__pop_index -lt $__pop_n ]; do
+      __pop_index=$((__pop_index+1))
+      __pop_arguments="$__pop_arguments \"\${$__pop_index}\""
+    done
+    POP_EXPR="set -- $__pop_arguments"
+  fi
+}
+# ------------------------------------------------------------------------------
+
+# non-bash-like posix diversion 
+# we don't use $BASH_VERSION/$ZSH_VERSION as these can still be set when  for example
+# sh is a symlink to bash (posix-mode bash - reduced bashism capabilities?)
+# if our ps_shellname didn't contain a result, don't divert and risk looping 
+if [ -n "$ps_shellname" ] && [ "$ps_shellname" != "bash" ] && [ "$ps_shellname" != "zsh" ] ; then 
+    shift
+    pop $#
+    eval "$POP_EXPR"
+    echo "divert to bash $0 $@"
+
+    /usr/bin/env bash "$0" "$@"
+    exit $?
+fi
+# close false==false block
+fi
+# close tcl wrap  }
+# ------------------------------------------------------
+# -- This if block wraps whole zsh/bash and perl sections - only needed if Tcl didn't exit or return above.
 if false==false # else {
     then
     : #
+
+# zsh/bash \
+shift && set -- "${@:1:$((${#@}-1))}"
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
+# -- zsh/bash script section
 # --
+# -- review - for zsh do we want to use: setopt KSH_ARRAYS ?
+# -- arrays in bash 0-based vs 1-based in zsh
+# -- stick to the @:i:len syntax which is same for both
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
+
+plat=$(uname -s) #platform/system
+if [[ "$plat" == "Linux"* ]]; then
+    os="linux"
+elif [[ "$plat" == "Darwin"* ]]; then
+    os="macosx"
+elif [[ "$plat" == "FreeBSD"* ]]; then
+    os="freebsd"
+elif [[ "$plat" == "DragonFly"* ]]; then
+    os="dragonflybsd"
+elif [[ "$plat" == "NetBSD"* ]]; then
+    os="netbsd"
+elif [[ "$plat" == "OpenBSD"* ]]; then
+    os="openbsd"
+elif [[ "$plat" == "MINGW32"* ]]; then
+    os="win32"
+elif [[ "$plat" == "MINGW64"* ]]; then
+    os="win32"
+elif [[ "$plat" == "CYGWIN_NT"* ]]; then
+    os="win32"
+elif [[ "$plat" == "MSYS_NT"* ]]; then
+    #review..  
+    
+    #Need to consider the difference between when msys2 was launched (which strips some paths and sets up the environment)
+    # vs if the msys2 sh was called - (actually bash) in which case paths will be different
+
+    #wsl and cygwin or msys2 can commonly be problematic combinations - primarily due to path issues
+    #e.g "c:/windows/system32/" is quite likely in the path ahead of msys,git etc.
+    #e.g It means a /usr/bin/env bash call may launch the (linux elf) bash for wsl rather than the msys bash
+    #
+
+    #msys provides win32 binaries - but e.g tclsh installed in msys reports ::tcl_platform(platform) as 'unix'
+    #bash reports $OSTYPE msys
+
+    #there are statements around the web that cmd /c ..  will work under msys2
+    # - but from experience, it can be required to use cmd //c ...
+    # or MSYS2_ARG_CONV_ECL='*' cmd /c ..
+    # This seems to be because process arguments that look like unix paths are converted to windows paths :/
+    #review!
+
+    os="win32"
+    #review - need ps/sed/awk to determine shell?
+    interp=`ps -p $$ | awk '$1 != "PID" {print $(NF)}' | tr -d '()' | sed -E 's/^.*\/|^-//'`
+    #use 'command -v' (shell builtin preferred over external which)
+    shellpath=`command -v $interp`
+    shellfolder="${shellpath%/*}"    #avoid dependency on basename or dirname
+    export PATH="$shellfolder${PATH:+:${PATH}}"
+elif [[ "$OSTYPE" == "win32" ]]; then
+    os="win32"
+else
+    #os="$OSTYPE"
+    os="other"
+fi
+echo ostype: $OSTYPE
+## This is the sort of sed that will not work across implementations
+## shellconfiglines=$( sed -n "/: <<nextshell_start>>/{:a;n;/: <<nextshell_end>>/q;p;ba}" "$0" | grep $os)
+#awk tested on linux & freebsd
+shellconfiglines=$( awk '/^:.*<<nextshell_start>>.*$/,/^:.*<<nextshell_end>>.*$/' "$0" | grep $os)
+# echo $shellconfiglines;
+# readarray requires bash 4.0
+if [[ "$ps_shellname" == "bash" ]]; then 
+    readarray -t arr_oslines <<<"$shellconfiglines"
+elif [[ "$ps_shellname" == "zsh" ]]; then
+    arr_oslines=("${(f)shellconfiglines}")
+else
+    #fallback - doesn't seem to work in zsh - untested in early bash
+    IFS=$'\n' arr_oslines=($shellconfiglines)
+    IFS=$' \t\n' 
+    # review
+fi
+nextshellpath=""
+nextshelltype=""
+for ln in "${arr_oslines[@]}"; do
+    # echo "---- $ln"
+    if [[ "$ln" == *"nextshellpath"* ]]; then
+        splitln="${ln#*=}"  #remove everything through the first '='
+        pathraw="${splitln%%\"*}" #take everything before the quote - use %% to get longest match
+        #remove trailing underscores (% means must match at end)
+        nextshellpath="${pathraw/%_*/}"  
+        # echo "nextshellpath: $nextshellpath"
+    elif [[ "$ln" == *"nextshelltype"* ]]; then
+        splitln="${ln#*=}"
+        typeraw="${splitln%%\"*}"
+        nextshelltype="${typeraw/%_*/}"
+        # echo "nextshelltype: $nextshelltype"
+    fi
+done
+
 exitcode=0
-#printf "start of bash or sh code"
+#-- sh/bash launches nextscript here instead of shebang line at top
+if [[ "$nextshelltype" != "bash" && "$nextshelltype" != "none" ]]; then 
+    echo zsh/bash launching subshell of type: $nextshelltype shellpath: $nextshellpath on "$0" with args "$@"
 
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
+    script="$0"
+    if [[ "$nextshelltype" == "pwsh" || "$nextshelltype" == "powershell" ]]; then
+        #powershell requires the file extension to be .ps1 (always - on windows)
+        #on other platforms it's not required if a shebang line is used - but this script must be shebangless for portability and to maintain polyglot capabilities.
+        cmdpattern="[.]cmd$"
+        if [[ "$script" =~ $cmdpattern ]]; then
+            ps1script="${script%????}.ps1"
+            if ! cmp -s  "$script" "$ps1script" ; then
+                #ps1script either different or missing
+                #on windows - batch script copies .cmd -> .ps1 if not identical
+                cp -f "$script" "$ps1script" 
+            fi
+            script=$ps1script
+        fi
+    fi
+    if [[ "$plat" == "MSYS_NT"* ]]; then
 
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
+        #we need to deal with MSYS argument munging 
+        cmdpattern="^cmd.exe |^cmd "
+        #do not double quote cmdpattern - or it will be treated as literal string
+        if [[ "$nextshellpath" =~ $cmdpattern ]]; then
+            #for now - tell the user what's going on
+            echo "cmd call via msys detected. performing translation of /c to //c and escaping backslashes in script path" >&2
+            #flags to cmd.exe such as /c are interpreted by msys as looking like a unix path
+            #review - for nextshellpath targets specified in the block for win32 - we don't expect unix paths (?)
+            #what about other flags? - can we just double up all forward slashes?
+            #maint: keep this munging in sync with the tcl block and perl block which must also do msys munging
+            nextshellpath="${nextshellpath// \/[cC] / \/\/c }"
+            # echo "new nextshellpath: ${nextshellpath}"
+            #review - 
+            #don't double quote this
+            script=${script//\\/\\\\}
+        fi
+        echo "calling ${nextshellpath} $script $@"
+
+        #load into array
+        cmd_array=($nextshellpath) 
+        cmd_array+=("$script") #add script, which may contain spaces as a single entry ?
+        cmd_array+=( "$@" ) #add each element of args to array as a separate entry (equiv ? "${arr[@]}")
+        # printf "%s\n" "${cmd_array[@]}"
+        "${cmd_array[@]}"
+
+        # this works to make nextshellpath run - but joins $@ members incorrectly
+        #eval ${nextshellpath} "$script" "$@"
+    else
+        #e.g /usr/bin/env tclsh "$0" "$@"
+        ${nextshellpath} "$script" "$@"
+    fi
 
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subprocess>
+    
+    exitcode=$?
+    #echo "zsh/bash reporting exitcode: ${exitcode}"
+    exit $exitcode
+    #-- override exitcode example 
+    #exit 66
+else 
+    #already in bash - don't launch another process or we would loop
+    #echo "zsh/bash payload"
+    :
+fi
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin zsh Payload
+#printf "start of bash or zsh code"
+
+#<shell-payload>
+echo "No bash code for this script. Try another program such as perl or tcl" >&2
+#</shell-payload>
 
 
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
+#printf "zsh/bash done \n"
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end zsh Payload
 #------------------------------------------------------
 fi
 exit ${exitcode}
@@ -533,8 +1290,18 @@ exit ${exitcode}
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
 =cut
 #!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
 my $exit_code = 0;
+use Cwd qw(abs_path);
+my $scriptname = abs_path($0);
+#print "perl $scriptname\n";
+my $os = "$^O";
+if ($os eq "MSWin32") {
+    $os = "win32";
+} elsif ($os eq "darwin") {
+    $os = "macosx";
+}
+print "os $os\n";
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
 #use ExtUtils::Installed;
 #my $installed = ExtUtils::Installed->new();
 #my @modules = $installed->modules();
@@ -545,29 +1312,20 @@ my $exit_code = 0;
 # -- --- ---
 
 
-
-my $scriptname = $0;
-print "perl $scriptname\n";
 my $i =1;
 foreach my $a(@ARGV) {
     print "Arg # $i: $a\n";
 }
 
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
+#<perl-payload>
+print STDERR "No perl code for this script. Try another program such as tcl or bash";
+#</perl-payload>
 
 # -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
+#$exit_code=system("tclsh", $scriptname, @ARGV);
 #print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
 # -- --- --- --- --- --- --- ---
 
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
 
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
 exit $exit_code;
@@ -587,8 +1345,33 @@ if 0 {
 # -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
 # -- custom script should generally go below the begin_powershell_payload line
 # ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
+#$MyInvocation.ScriptName should probably be considered deprecated
+# https://stackoverflow.com/questions/78511229/how-can-i-choose-between-myinvocation-scriptname-and-myinvocation-pscommandpat
+$runningscriptname = $PSCommandPath
+if (-not $MyInvocation.PSCommandPath) {
+    $callingscriptname = ''
+} else {
+    $callingscriptname = $MyInvocation.PSCommandPath
+}
+#The problem with psmodulepath
+#https://github.com/PowerShell/PowerShell/issues/18108
+# psmodulepath is shared by powershell and pwsh despite not all ps modules being compatible.
+# It is futzed with by powershell/pwsh based on detecting the child process type.
+# a psmodulepath that has been futzed with by pwsh will not work for a child powershell 5 process that isn't launched directly
+#This is inherently unfriendly to situations where an intervening process may be something else such as cmd.exe,tcl,perl etc
+# nevertheless, powershell/pwsh maintainers seem to have taken the MS-centric view of the world that such situations don't exist :/
+#
+#symptoms of these shenannigans not working include things like Get-FileHash failing in powershell desktop
+#
+#We don't know if the original console was pwsh/powershell or cmd.exe, and we need to potentially divert to powershell 5 (desktop) 
+#via tcl or perl etc - or cmd.exe
+if ($PSVersionTable.PSVersion.Major -le 5) {
+    # For Windows PowerShell, we want to remove any PowerShell 7 paths from PSModulePath
+    #snipped from https://github.com/PowerShell/DSC/pull/777/commits/af9b99a4d38e0cf1e54c4bbd89cbb6a8a8598c4e
+    #Presumably users are supposed to know not to have custom paths for powershell desktop containing a 'powershell' subfolder??
+    $env:PSModulePath = ($env:PSModulePath -split ';' | Where-Object { $_ -notlike '*\powershell\*' }) -join ';'
+}
+
 function GetDynamicParamDictionary {
     [CmdletBinding()]
     param(
@@ -623,12 +1406,14 @@ function GetDynamicParamDictionary {
         return $DynParamDictionary
     }
 }
+# Example usage:
 # GetDynamicParamDictionary 
 # - This can make it easier to share a single set of param definitions between functions
 # - sample usage
 #function ParameterDefinitions {
 #    param(
-#        [Parameter(Mandatory)][string] $myargument
+#        [Parameter(Mandatory)][string] $myargument,
+#        [Parameter(ValueFromRemainingArguments)] $opts
 #    )
 #}
 #function psmain {
@@ -639,10 +1424,15 @@ function GetDynamicParamDictionary {
 #       #called once with $PSBoundParameters dictionary
 #       #can be used to validate arguments, or set a simpler variable name for access
 #       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
+#           'myargument' { 
 #               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
 #           }
-#           #...
+#           'opts' {
+#               write-warning "Unused parameters: $($PSBoundParameters.$_)" 
+#           }
+#           Default {
+#               write-warning "Unhandled parameter -> [$($_)]"
+#           }
 #       }
 #       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
 #           #...
@@ -650,32 +1440,135 @@ function GetDynamicParamDictionary {
 #   }
 #   end {
 #       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
+#       Write-Host "myargument value is: $myargument"
 #       #myotherfunction @PSBoundParameters
 #   }
 #}
 #psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
 #"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
+#"Running Script Name       :    {0}"    -f $runningscriptname                          | write-host
+"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
 #"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
 # -- --- --- ---
+$thisfileContent = Get-Content $runningscriptname -Raw
+$startTag = ": <<asadmin_start>>"
+$endTag = ": <<asadmin_end>>"
+$pattern = "(?s)`n$startTag[^`n]*`n(.*?)`n$endTag"
+$match = [regex]::Match($thisfileContent,$pattern)
+$asadmin = 0
+if ($match.Success) {
+    $admininfo = $match.Groups[1].Value
+    $asadmin = $admininfo.Contains("asadmin=1")
+    if ($asadmin) {
+        if ($args[0] -eq "PUNK-ELEVATED") {
+            # May be present if launch and elevation was done via cmd.exe script
+            # shift away first arg
+            $newargs = $args | Select-Object -Skip 1
+        } else {
+            $newargs = $args
+        }
+        # -Wait e.g for starting a service or other operations which remainder of script may depend on
+        $arguments = @("-NoProfile","-NoLogo", "-NoExit", "-ExecutionPolicy", "Bypass")
+        $arguments += @("-File", $($MyInvocation.MyCommand.Path))
+        foreach ($a in $newargs) {
+            if ($a -match '\s') {
+                $arguments += "`"$a`""
+            } else {
+                $arguments += $a
+            }
+        }
+        if (-not ([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator)) {
+            # If not elevated, relaunch with elevated privileges
+            Write-Host "Powershell elevating using start-process with -Verb RunAs"
+            if ($PSVersionTable.PSEdition -eq 'Core') { 
+                Start-Process -FilePath "pwsh.exe" -ArgumentList $arguments -Wait -Verb RunAs
+            } else {
+                Start-Process -FilePath "powershell.exe" -ArgumentList $arguments -Wait -Verb RunAs
+            }
+            Exit # Exit the current non-elevated process
+        } else {
+            if ($args[0] -eq "PUNK-ELEVATED") {
+                #Already elevated (by cmd.exe)
+                #.. but it is impossible to modify or reassign the automatic $args variable
+                # so let's start yet another whole new process just to remove one leading argument so the custom  script can operate on parameters cleanly - thanks powershell :/
+                if ($PSVersionTable.PSEdition -eq 'Core') { 
+                    Start-Process -FilePath "pwsh.exe" -ArgumentList $arguments -NoNewWindow -Wait
+                } else {
+                    Start-Process -FilePath "powershell.exe" -ArgumentList $arguments -NoNewWindow -Wait
+                }
+                Exit
+            }
+        }
+    }
+}
+#
+$startTag = ": <<nextshell_start>>"
+$endTag =   ": <<nextshell_end>>"
+$pattern = "(?s)`n$startTag[^`n]*`n(.*?)`n$endTag"
+$match = [regex]::Match($thisfileContent,$pattern)
+if ($match.Success) {
+    $plat =  [System.Environment]::OSVersion.Platform
+    if ($plat -eq "Unix") {
+        $runtime_ident = [System.Runtime.InteropServices.RuntimeInformation]::RuntimeIdentifier
+        switch ($runtime_ident.split("-")[0]) {
+            "freebsd" {
+                # untested
+                $os = "freebsd"
+            }
+            "linux" {
+                $os = "linux"
+            }
+            "osx" {
+                # osx-x64 or osx-arm64 ?
+                $os = "macosx"
+            }
+            default {
+                #openbsd, netbsd ?
+                $os = "other"
+            }
+        }
+    } else {
+        $os = "win32"
+    }
 
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
+    $matchedlines = $match.Groups[1].Value
+    $nextshell_type = ""
+    $nextshell_path = ""
+    ForEach ($line in $($matchedlines -split "\r?\n")) {
+        $m = [regex]::Match($line,".*nextshelltype\[${os}[_]+\]=([^_]*)[_]*") 
+        if ($m.Success) {
+            $nextshell_type = $m.Groups[1].Value 
+        }
+        $m = [regex]::Match($line,".*nextshellpath\[${os}[_]+\]=([^_]*)[_]*") 
+        if ($m.Success) {
+            $nextshell_path = $m.Groups[1].Value
+        }
+        if ($nextshell_type -ne "" -and $nextshell_path -ne "") {
+            break
+        } 
+    }
+    if (-not (("pwsh", "powershell", "") -contains $nextshell_type)) {
+        #nextshell diversion exists for this platform
+        write-host "os: $os pwsh/powershell launching subshell of type: $nextshell_type shellpath: $nextshell_path on script $runningscriptname"
 
+        # $arguments = @($($MyInvocation.MyCommand.Path))
+        # $arguments += $args
+        # NOTE - this gives incorrect argument quoting e.g wrong number of arguments received by launched process for arguments: a "b c" 
+        # $process = (Start-Process -FilePath $nextshell_path -ArgumentList $arguments -NoNewWindow -Wait)
+        # Exit $process.ExitCode
 
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
+        & $nextshell_path $runningscriptname $args
+        exit $LASTEXITCODE
+    }
+}
+
+# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
 
+#<powershell-payload>
+Write-Error "No powershell code for this script. Try another program such as tcl or bash`n"
+"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
+#</powershell-payload>
 
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
 
 # -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
 Exit $LASTEXITCODE
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell1.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell1.cmd
deleted file mode 100644
index 17fe4c15..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell1.cmd
+++ /dev/null
@@ -1,524 +0,0 @@
-: "[rename set s;proc Hide x {proc $x args {}};Hide :]" "\$(function : {<#pwsh#>})" ^
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide x {proc $x args {}}; Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. (close sqote for unix shells) ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo; Hide @REM]#not necessary but can help avoid errs in testing"
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0.cmd", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd
deleted file mode 100644
index a9688b6a..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/multishell2.cmd
+++ /dev/null
@@ -1,680 +0,0 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
-: "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT - except for first double quoted section.
-: shebang line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@GOTO :skip_perl_pod_start ^;
-=begin excludeperl 
-: skip_perl_pod_start
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: deck scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh' (^14^) 'perl'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-@SET "shells[14]=perl"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     deck scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using deck scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and deck scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@SET "qstrippedargs=args%arglist%"
-@SET "qstrippedargs=%qstrippedargs:"=%"
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@REM
-@GOTO skip_privileges
-:getPrivileges
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist%
-            SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            @REM boundary padding
-            @REM boundary padding
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@REM boundary padding
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-@REM boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subproces>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subproces>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-exitcode=0
-#printf "start of bash or sh code"
-
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subproces>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- Perl script section
-# -- leave the script below as is, if all that is required is launching the Tcl payload"
-# --
-# -- Note that perl script isn't called by default when simply running this script by name
-# -- adjust  the nextshell value at the top of the script to point to perl
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-=cut
-#!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
-my $exit_code = 0;
-#use ExtUtils::Installed;
-#my $installed = ExtUtils::Installed->new();
-#my @modules = $installed->modules();
-#print "Modules:\n";
-#foreach my $m (@modules) {
-#    print "$m\n";
-#}
-# -- --- ---
-
-
-
-my $scriptname = $0;
-print "perl $scriptname\n";
-my $i =1;
-foreach my $a(@ARGV) {
-    print "Arg # $i: $a\n";
-}
-
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
-
-# -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
-#print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
-exit $exit_code;
-__END__
-
-# end hide sh/bash/perl block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# -- custom script should generally go below the begin_powershell_payload line
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
-function GetDynamicParamDictionary {
-    [CmdletBinding()]
-    param(
-        [Parameter(ValueFromPipeline=$true, Mandatory=$true)]
-        [string] $CommandName
-    )
-
-    begin {
-        # Get a list of params that should be ignored (they're common to all advanced functions)
-        $CommonParameterNames = [System.Runtime.Serialization.FormatterServices]::GetUninitializedObject([type] [System.Management.Automation.Internal.CommonParameters]) | 
-            Get-Member -MemberType Properties | 
-            Select-Object -ExpandProperty Name
-    }
-
-    process {
-        # Create the dictionary that this scriptblock will return:
-        $DynParamDictionary = New-Object System.Management.Automation.RuntimeDefinedParameterDictionary
-
-        # Convert to object array and get rid of Common params:
-        (Get-Command $CommandName | select -exp Parameters).GetEnumerator() | 
-            Where-Object { $CommonParameterNames -notcontains $_.Key } |
-            ForEach-Object {
-                $DynamicParameter = New-Object System.Management.Automation.RuntimeDefinedParameter (
-                    $_.Key,
-                    $_.Value.ParameterType,
-                    $_.Value.Attributes
-                )
-                $DynParamDictionary.Add($_.Key, $DynamicParameter)
-            }
-
-        # Return the dynamic parameters
-        return $DynParamDictionary
-    }
-}
-# GetDynamicParamDictionary 
-# - This can make it easier to share a single set of param definitions between functions
-# - sample usage
-#function ParameterDefinitions {
-#    param(
-#        [Parameter(Mandatory)][string] $myargument
-#    )
-#}
-#function psmain {
-#   [CmdletBinding()]
-#   param()
-#   dynamicparam { GetDynamicParamDictionary ParameterDefinitions }
-#   process {
-#       #called once with $PSBoundParameters dictionary
-#       #can be used to validate arguments, or set a simpler variable name for access
-#       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
-#               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
-#           }
-#           #...
-#       }
-#       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
-#           #...
-#       }
-#   }
-#   end {
-#       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
-#       #myotherfunction @PSBoundParameters
-#   }
-#}
-#psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "is%qstrippedargs:~4,13%"=="isPUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-no script engine should try to run me
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell-old.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell-old.cmd
deleted file mode 100644
index 1cb9e0ef..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell-old.cmd
+++ /dev/null
@@ -1,270 +0,0 @@
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide s {proc $s args {}}; Hide :;rename set s2;Hide set;s2 1 list]"; set -- : "$@"; $1 = @'
-: heredoc1 - hide from powershell (close sqote for unix shells) ' \
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo]#not necessary but can help avoid errs in testing"
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-@REM {
-@REM DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required and will reduce functionality.
-@REM Even comment lines can be part of the functionality of this script - modify with care.
-@REM Change the value of nextshell in the next line if desired, and code within payload sections as appropriate.
-@SET "nextshell=pwsh"
-@REM nextshell set to pwsh,sh,bash or tclsh
-@REM @ECHO nextshell is %nextshell%
-@SET "validshells=pwsh,sh,bash,tclsh"
-@CALL SET keyRemoved=%%validshells:%nextshell%=%%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix)
-@REM  -- This section intended only to launch the next shell
-@REM  -- Avoid customising this if possible. cmd/batch script is probably the least expressive language.
-@REM  -- custom windows payloads should be in powershell,tclsh or sh/bash code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@IF %nextshell%==pwsh (
-    CALL pwsh -nop -c set-executionpolicy -Scope CurrentUser RemoteSigned
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-    REM test availability of preferred option of powershell7+ pwsh
-    CALL pwsh -nop -nol -c write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    IF !pwshtest_exitcode!==0 CALL pwsh -nop -nol "%~dp0%~n0.ps1" %* & SET task_exitcode=!errorlevel!
-    REM fallback to powershell if pwsh failed 
-    IF NOT !pwshtest_exitcode!==0 (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        CALL powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF %nextshell%==bash (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        CALL %nextshell% "!wslpath!%fname%" %* & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            CALL %nextshell% "%~dp0%fname%" %* & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value %nextshell% valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit
-        )
-    )
-)
-@GOTO :endlib
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@GOTO :eof
-:endlib
-
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit
-@GOTO :exit
-# }
-# rem call %nextshell% "%~dp0%~n0.cmd" %* 
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s2 set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup
-Hide :exit;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    :
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# unbal }
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: cmd exit label - return exitcode 
-:exit
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell.cmd
deleted file mode 100644
index 0e6b9ff9..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell.cmd
+++ /dev/null
@@ -1,661 +0,0 @@
-: "punk MULTISHELL - shebangless polyglot for Tcl Perl sh bash cmd pwsh powershell" + "[rename set s;proc Hide x {proc $x args {}};Hide :]" + "\$(function : {<#pwsh#>})" + "perlhide" + qw^
-set -- "$@" "a=[Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. close sqote for unix shells + ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl + \
-: "[Hide @GOTO; Hide =begin; Hide @REM] #not necessary but can help avoid errs in testing" +
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT - except for first double quoted section.
-: shebang line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@GOTO :skip_perl_pod_start ^;
-=begin excludeperl 
-: skip_perl_pod_start
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh' (^14^) 'perl'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-@SET "shells[14]=perl"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0%~x0", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0%~x0" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist%
-        SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist%
-            SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            @REM boundary padding
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@REM boundary padding
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-@REM boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-pre-launch-subprocess>
-#</tcl-pre-launch-subprocess>
-
-#<tcl-launch-subprocess>
-#</tcl-launch-subproces>
-
-
-#<tcl-post-launch-subprocess>
-#</tcl-post-launch-subproces>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust the %nextshell% value above 
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-exitcode=0
-#printf "start of bash or sh code"
-
-#<shell-pre-launch-subprocess>
-#</shell-pre-launch-subprocess>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-subprocess>
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "sh/bash reporting tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<shell-post-launch-subprocess>
-#</shell-post-launch-subproces>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- Perl script section
-# -- leave the script below as is, if all that is required is launching the Tcl payload"
-# --
-# -- Note that perl script isn't called by default when simply running this script by name
-# -- adjust  the nextshell value at the top of the script to point to perl
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-=cut
-#!/user/bin/perl
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin perl Payload
-my $exit_code = 0;
-#use ExtUtils::Installed;
-#my $installed = ExtUtils::Installed->new();
-#my @modules = $installed->modules();
-#print "Modules:\n";
-#foreach my $m (@modules) {
-#    print "$m\n";
-#}
-# -- --- ---
-
-
-
-my $scriptname = $0;
-print "perl $scriptname\n";
-my $i =1;
-foreach my $a(@ARGV) {
-    print "Arg # $i: $a\n";
-}
-
-#<perl-pre-launch-subprocess>
-#</perl-pre-launch-subprocess>
-
-
-
-# -- --- --- --- --- --- --- ---
-#<perl-launch-subprocess>
-$exit_code=system("tclsh", $scriptname, @ARGV);
-#print "perl reporting tcl exitcode: $exit_code";
-#</perl-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-#<perl-post-launch-subprocess>
-#</perl-post-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end perl Payload
-exit $exit_code;
-__END__
-
-# end hide sh/bash/perl block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# -- custom script should generally go below the begin_powershell_payload line
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = GetScriptName
-function GetDynamicParamDictionary {
-    [CmdletBinding()]
-    param(
-        [Parameter(ValueFromPipeline=$true, Mandatory=$true)]
-        [string] $CommandName
-    )
-
-    begin {
-        # Get a list of params that should be ignored (they're common to all advanced functions)
-        $CommonParameterNames = [System.Runtime.Serialization.FormatterServices]::GetUninitializedObject([type] [System.Management.Automation.Internal.CommonParameters]) | 
-            Get-Member -MemberType Properties | 
-            Select-Object -ExpandProperty Name
-    }
-
-    process {
-        # Create the dictionary that this scriptblock will return:
-        $DynParamDictionary = New-Object System.Management.Automation.RuntimeDefinedParameterDictionary
-
-        # Convert to object array and get rid of Common params:
-        (Get-Command $CommandName | select -exp Parameters).GetEnumerator() | 
-            Where-Object { $CommonParameterNames -notcontains $_.Key } |
-            ForEach-Object {
-                $DynamicParameter = New-Object System.Management.Automation.RuntimeDefinedParameter (
-                    $_.Key,
-                    $_.Value.ParameterType,
-                    $_.Value.Attributes
-                )
-                $DynParamDictionary.Add($_.Key, $DynamicParameter)
-            }
-
-        # Return the dynamic parameters
-        return $DynParamDictionary
-    }
-}
-# GetDynamicParamDictionary 
-# - This can make it easier to share a single set of param definitions between functions
-# - sample usage
-#function ParameterDefinitions {
-#    param(
-#        [Parameter(Mandatory)][string] $myargument
-#    )
-#}
-#function psmain {
-#   [CmdletBinding()]
-#   param()
-#   dynamicparam { GetDynamicParamDictionary ParameterDefinitions }
-#   process {
-#       #called once with $PSBoundParameters dictionary
-#       #can be used to validate arguments, or set a simpler variable name for access
-#       switch ($PSBoundParameters.keys) {
-#           'myargumentname' { 
-#               Set-Variable -Name $_ -Value $PSBoundParameters."$_"
-#           }
-#           #...
-#       }
-#       foreach ($boundparam in $PSBoundParameters.GetEnumerator()) {
-#           #...
-#       }
-#   }
-#   end {
-#       #Main function logic
-#       Write-Host "myargumentname value is: $myargumentname"
-#       #myotherfunction @PSBoundParameters
-#   }
-#}
-#psmain @args
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-pre-launch-subprocess>
-#</powershell-pre-launch-subprocess>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-subprocess>
-tclsh $scriptname $args
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-#</powershell-launch-subprocess>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-post-launch-subprocess>
-#</powershell-post-launch-subprocess>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-no script engine should try to run me
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell1.cmd b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell1.cmd
deleted file mode 100644
index 17fe4c15..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-multishell1.cmd
+++ /dev/null
@@ -1,524 +0,0 @@
-: "[rename set s;proc Hide x {proc $x args {}};Hide :]" "\$(function : {<#pwsh#>})" ^
-set -- "$@" "a=[list shebangless punk MULTISHELL tclsh sh bash cmd pwsh powershell;proc Hide x {proc $x args {}}; Hide <#;Hide set;s 1 list]"; set -- : "$@";$1 = @'
-: heredoc1 - hide from powershell using @ and squote above. (close sqote for unix shells) ' \
-: .bat/.cmd launch section, leading colon hides from cmd, trailing slash hides next line from tcl \
-: "[Hide @ECHO; Hide ); Hide (;Hide echo; Hide @REM]#not necessary but can help avoid errs in testing"
-: << 'HEREDOC1B_HIDE_FROM_BASH_AND_SH'
-: Continuation char at end of this line and rem with curly-braces used to exlude Tcl from the whole cmd block \
-:  {
-: STRONG SUGGESTION: DO NOT MODIFY FIRST LINE OF THIS SCRIPT. shebang #! line is not required on unix or windows and will reduce functionality and/or portability.
-: Even comment lines can be part of the functionality of this script (both on unix and windows) - modify with care.
-@REM ############################################################################################################################
-@REM THIS IS A POLYGLOT SCRIPT - supporting payloads in Tcl, bash, sh and/or powershelll (powershell.exe or pwsh.exe)
-@REM It should remain portable between unix-like OSes & windows if the proper structure is maintained.
-@REM ############################################################################################################################
-@REM On windows, change the value of nextshell to one of the listed 2 digit values if desired, and add code within payload sections for tcl,sh,bash,powershell as appropriate.
-@REM This wrapper can be edited manually (carefully!) - or sh,bash,tcl,powershell scripts can be wrapped using the Tcl-based punkshell system
-@REM e.g from within a running punkshell: pmix scriptwrap.multishell <inputfilepath> -outputfolder <folderpath> 
-@REM On unix-like systems, call with sh, bash or tclsh. (powershell untested on unix - and requires wscript if security elevation is used)
-@REM Due to lack of shebang (#! line) Unix-like systems will probably (hopefully) default to sh if the script is called without an interpreter - but it may depend on the shell in use when called.
-@REM If you find yourself really wanting/needing to add a shebang line - do so on the basis that the script will exist on unix-like systems only. 
-@SETLOCAL EnableExtensions EnableDelayedExpansion
-@SET "validshells= ^(10^) 'pwsh' ^(11^) 'sh' (^12^) 'bash' (^13^) 'tclsh'"
-@SET "shells[10]=pwsh"
-@SET "shells[11]=sh"
-@set "shells[12]=bash"
-@SET "shells[13]=tclsh"
-: <nextshell>
-@SET "nextshell=13"
-: </nextshell>
-@rem asadmin is for automatic elevation to administrator. Separate window will be created (seems unavoidable with current elevation mechanism) and user will still get security prompt (probably reasonable).
-: <asadmin>
-@SET "asadmin=0"
-: </asadmin>
-@REM nextshell set to index for validshells .eg 10 for pwsh  
-@REM @ECHO nextshell is %nextshell%
-@SET "selected=!shells[%nextshell%]!"
-@REM @ECHO selected %selected%
-@CALL SET "keyRemoved=%%validshells:'!selected!'=%%"
-@REM @ECHO keyremoved %keyRemoved%
-@REM Note that 'powershell' e.g v5 is just a fallback for when pwsh is not available
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@REM  -- cmd/batch file section (ignored on unix but should be left in place)
-@REM  -- This section intended mainly to launch the next shell (and to escalate privileges if necessary)
-@REM  -- Avoid customising this if you are not familiar with batch scripting. cmd/batch script can be useful, but is probably the least expressive language and most error prone.
-@REM  -- For example - as this file needs to use unix-style lf line-endings - the label scanner is susceptible to the 512Byte boundary issue: https://www.dostips.com/forum/viewtopic.php?t=8988#p58888
-@REM  -- This label issue can be triggered/abused in files with crlf line endings too - but it is less likely to happen accidentaly.
-@REm  -- See also: https://stackoverflow.com/questions/4094699/how-does-the-windows-command-interpreter-cmd-exe-parse-scripts/4095133#4095133
-@REM ############################################################################################################################
-@REM  -- Due to this issue -seemingly trivial edits of the batch file section can break the script! (for Windows anyway)
-@REM  -- Even something as simple as adding or removing an @REM
-@REM  -- From within punkshell - use:
-@REM  --     pmix scriptwrap.checkfile <filepath>
-@REM  -- to check your templates or final wrapped scripts for byte boundary issues
-@REM  -- It will report any labels that are on boundaries
-@REM  -- This is why the nextshell value above is a 2 digit key instead of a string - so that editing the value doesn't change the byte offsets.
-@REM  -- Editing your sh,bash,tcl,pwsh payloads is much less likely to cause an issue. There is the possibility of the final batch :exit_multishell label spanning a boundary - so testing using pmix scriptwrap.checkfile is still recommended.
-@REM  -- Alternatively, as you should do anyway - test the final script on windows   
-@REM  -- Aside from adding comments/whitespace to tweak the location of labels - you can try duplicating the label (e.g just add the label on a line above) but this is not guaranteed to work in all situations.
-@REM  -- '@REM' is a safer comment mechanism than a leading colon - which is used sparingly here.
-@REM  -- A colon anywhere in the script that happens to land on a 512 Byte boundary (from file start or from a callsite) could be misinterpreted as a label
-@REM  -- It is unknown what versions of cmd interpreters behave this way - and pmix scriptwrap.checkfile doesn't check all such boundaries.
-@REm  -- For this reason, batch labels should be chosen to be relatively unlikely to collide with other strings in the file, and simple names such as :exit or :end should probably be avoided
-@REM ############################################################################################################################
-@REM  -- custom windows payloads should be in powershell,tclsh (or sh/bash if available) code sections
-@REM  ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-@SET "winpath=%~dp0"
-@SET "fname=%~nx0"
-@REM @ECHO fname %fname%
-@REM @ECHO winpath %winpath%
-@REM @ECHO commandlineascalled %0
-@REM @ECHO commandlineresolved %~f0
-@CALL :getNormalizedScriptTail nftail
-@REM @ECHO normalizedscripttail %nftail%
-@CALL :getFileTail %0 clinetail
-@REM @ECHO clinetail %clinetail%
-@CALL :stringToUpper %~nx0 capscripttail
-@REM @ECHO capscriptname: %capscripttail%
-
-@IF "%nftail%"=="%capscripttail%" (
-    @ECHO forcing asadmin=1 due to file name on filesystem being uppercase
-    @SET "asadmin=1"
-) else (
-    @CALL :stringToUpper %clinetail% capcmdlinetail
-    @REM @ECHO capcmdlinetail !capcmdlinetail!
-    IF "%clinetail%"=="!capcmdlinetail!" (
-        @ECHO forcing asadmin=1 due to cmdline scriptname in uppercase
-        @set "asadmin=1"
-    )
-)
-@SET "vbsGetPrivileges=%temp%\punk_bat_elevate_%fname%.vbs"
-@SET arglist=%*
-@IF "%1"=="PUNK-ELEVATED" (
-    GOTO :gotPrivileges
-)
-@IF !asadmin!==1 (
-    net file 1>NUL 2>NUL
-    @IF '!errorlevel!'=='0' ( GOTO :gotPrivileges ) else ( GOTO :getPrivileges )
-)
-@GOTO skip_privileges
-:getPrivileges
-@IF '%1'=='PUNK-ELEVATED' (echo PUNK-ELEVATED & shift /1 & goto :gotPrivileges )
-@ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
-@ECHO args = "PUNK-ELEVATED " >> "%vbsGetPrivileges%"
-@ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
-@ECHO args = args ^& strArg ^& " " >> "%vbsGetPrivileges%"
-@ECHO Next >> "%vbsGetPrivileges%"
-@ECHO UAC.ShellExecute "%~dp0%~n0.cmd", args, "", "runas", 1 >> "%vbsGetPrivileges%"
-@ECHO Launching script in new windows due to administrator elevation
-@"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
-@EXIT /B
-
-:gotPrivileges
-@REM setlocal & pushd .
-@PUSHD .
-@cd /d %~dp0
-@IF "%1"=="PUNK-ELEVATED" (
-    @DEL "%vbsGetPrivileges%" 1>nul 2>nul
-    @SET arglist=%arglist:~14%
-)
-
-:skip_privileges
-@SET need_ps1=0
-@REM we want the ps1 to exist even if the nextshell isn't powershell
-@if not exist "%~dp0%~n0.ps1" (
-    @SET need_ps1=1
-) ELSE (
-    fc "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >nul || goto different
-    @REM @ECHO "files same"
-    @SET need_ps1=0
-)
-@GOTO :pscontinue
-:different
-@REM @ECHO "files differ"
-@SET need_ps1=1
-:pscontinue
-@IF !need_ps1!==1 (
-    COPY "%~dp0%~n0.cmd" "%~dp0%~n0.ps1" >NUL 
-)
-@REM avoid using CALL to launch pwsh,tclsh etc - it will intercept some args such as /?
-@IF "!shells[%nextshell%]!"=="pwsh" (
-    REM pws vs powershell hasn't been tested because we didn't need to copy cmd to ps1 this time
-    REM test availability of preferred option of powershell7+ pwsh
-    pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; write-host "statusmessage: pwsh-found" >NUL
-    SET pwshtest_exitcode=!errorlevel!
-    REM ECHO pwshtest_exitcode !pwshtest_exitcode!
-    REM fallback to powershell if pwsh failed 
-    IF !pwshtest_exitcode!==0 (
-        pwsh -nop -nol -c set-executionpolicy -Scope Process Unrestricted; "%~dp0%~n0.ps1" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM CALL powershell -nop -nol -c write-host powershell-found
-        REM powershell -nop -nol -file "%~dp0%~n0.ps1" %*
-        powershell -nop -nol -c set-executionpolicy -Scope Process Unrestricted; %~dp0%~n0.ps1" %arglist%
-        SET task_exitcode=!errorlevel!
-    )
-) ELSE ( 
-    IF "!shells[%nextshell%]!"=="bash" (
-        CALL :getWslPath %winpath% wslpath
-        REM ECHO wslfullpath "!wslpath!%fname%"
-        !shells[%nextshell%]! "!wslpath!%fname%" %arglist% & SET task_exitcode=!errorlevel!
-    ) ELSE (
-        REM  probably tclsh or sh
-        IF NOT "x%keyRemoved%"=="x%validshells%" (
-            REM sh on windows uses /c/ instead of /mnt/c - at least if using msys. Todo, review what is the norm on windows with and without msys2,cygwin,wsl
-            REM and what logic if any may be needed. For now sh with /c/xxx seems to work the same as sh with c:/xxx
-            !shells[%nextshell%]! "%~dp0%fname%" %arglist% & SET task_exitcode=!errorlevel!
-        ) ELSE (
-            ECHO %fname% has invalid nextshell value ^(%nextshell%^) !shells[%nextshell%]! valid options are %validshells%
-            SET task_exitcode=66
-            GOTO :exit_multishell
-        )
-    )
-)
-@REM batch file library functions
-@GOTO :endlib
-
-:getWslPath
-@SETLOCAL
-    @SET "_path=%~p1"
-    @SET "name=%~nx1"
-    @SET "drive=%~d1"
-    @SET "rtrn=%~2"
-    @SET "result=/mnt/%drive:~0,1%%_path:\=/%%name%"
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        ECHO %result%
-    )
-)
-@EXIT /B
-
-:getFileTail
-@REM return tail of file without any normalization e.g c:/punkshell/bin/Punk.cmd returns Punk.cmd even if file is punk.cmd
-@REM we can't use things such as %~nx1 as it can change capitalisation
-@REM This function is designed explicitly to preserve capitalisation
-@REM accepts full paths with either / or \ as delimiters - or 
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "arg=%~1"
-    @REM @SET "result=%_arg:*/=%"
-    @REM @SET "result=%~1"
-    @SET LF=^
-
-
-    : The above 2 empty lines are important. Don't remove
-    @CALL :stringContains "!arg!" "\" hasBackSlash
-    @IF "!hasBackslash!"=="true" (
-        @for %%A in ("!LF!") do @(
-            @FOR /F %%B in ("!arg:\=%%~A!") do @set "result=%%B"
-        )
-    ) ELSE (
-        @CALL :stringContains "!arg!" "/" hasForwardSlash
-        @IF "!hasForwardSlash!"=="true" (
-            @FOR %%A in ("!LF!") do @(
-                @FOR /F %%B in ("!arg:/=%%~A!") do @set "result=%%B"
-            )
-        ) ELSE (
-            @set "result=%arg%"
-        )
-    )
-@ENDLOCAL & (
-    @if "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-@REM  boundary padding
-:getNormalizedScriptTail
-@SETLOCAL
-    @SET "result=%~nx0"
-    @SET "rtrn=%~1"
-@ENDLOCAL & (
-    @IF "%~1" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:getNormalizedFileTailFromPath
-@REM warn via echo, and do not set return variable if path not found
-@REM note that %~nx1 does not preserve case of provided path - hence the name 'normalized'
-@REM boundary padding
-@REM boundary padding
-@SETLOCAL
-    @CALL :stringContains %~1 "\" hasBackSlash
-    @CALL :stringContains %~1 "/" hasForwardSlash
-    @IF "%hasBackslash%-%hasForwardslash%"=="false-false" (
-        @SET "P=%cd%%~1"
-        @CALL :getNormalizedFileTailFromPath "!P!" ftail2
-        @SET "result=!ftail2!"
-    ) else (
-        @IF EXIST "%~1" (
-            @SET "result=%~nx1"
-        ) else (
-            @ECHO error getNormalizedFileTailFromPath file not found: %~1
-            @EXIT /B 1
-        )
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO getNormalizedFileTailFromPath %1 result: %result%
-    )
-)
-@EXIT /B
-
-:stringContains
-@REM usage: @CALL:stringContains string needle returnvarname
-@SETLOCAL
-    @SET "rtrn=%~3"
-    @SET "string=%~1"
-    @SET "needle=%~2"
-    @IF "!string:%needle%=!"=="!string!" @(
-        @SET "result=false"
-    ) ELSE (
-        @SET "result=true"
-    )
-@ENDLOCAL & (
-    @IF "%~3" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringContains %string% %needle% result: %result%
-    )
-)
-@EXIT /B
-
-:stringToUpper
-@SETLOCAL
-    @SET "rtrn=%~2"
-    @SET "string=%~1"
-    @SET "capstring=%~1"
-    @FOR %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO @(
-        @SET "capstring=!capstring:%%A=%%A!"
-    )
-    @SET "result=!capstring!"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO stringToUpper %string% result: %result%
-    )
-)
-@EXIT /B
-
-:isNumeric
-@SETLOCAL
-    @SET "notnumeric="&FOR /F "delims=0123456789" %%i in ("%1") do set "notnumeric=%%i"
-    @IF defined notnumeric (
-        @SET "result=false"
-    ) else (
-        @SET "result=true"
-    )
-    @SET "rtrn=%~2"
-@ENDLOCAL & (
-    @IF "%~2" neq "" (
-        @SET "%rtrn%=%result%"
-    ) ELSE (
-        @ECHO %result%
-    )
-)
-@EXIT /B
-
-:endlib
-: \
-@REM @SET taskexit_code=!errorlevel! & goto :exit_multishell
-@GOTO :exit_multishell
-# }
-# -*- tcl -*-
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- tcl script section
-# -- This is a punk multishell file
-# -- Primary payload target is Tcl, with sh,bash,powershell as helpers
-# -- but it may equally be used with any of these being the primary script.
-# -- It is tuned to run when called as a batch file, a tcl script a sh/bash script or a pwsh/powershell script
-# -- i.e it is a polyglot file.
-# -- The specific layout including some lines that appear just as comments is quite sensitive to change.
-# -- It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# -- e.g ./filename.polypunk.cmd in sh or bash
-# -- e.g tclsh filename.cmd
-# -- 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-rename set ""; rename s set; set k {-- "$@" "a}; if {[info exists ::env($k)]} {unset ::env($k)} ;# tidyup and restore
-Hide :exit_multishell;Hide {<#};Hide '@
-namespace eval ::punk::multishell {
-    set last_script_root    [file dirname [file normalize ${argv0}/__]]
-    set last_script         [file dirname [file normalize [info script]/__]] 
-    if {[info exists argv0] &&
-        $last_script eq $last_script_root
-        } {
-        set ::punk::multishell::is_main($last_script) 1 ;#run as executable/script - likely desirable to launch application and return an exitcode
-    } else {
-        set ::punk::multishell::is_main($last_script) 0 ;#sourced - likely to be being used as a library - no launch, no exit. Can use return.
-    }
-    if {"::punk::multishell::is_main" ni [info commands ::punk::multishell::is_main]} {
-        proc ::punk::multishell::is_main {{script_name {}}} {
-            if {$script_name eq ""} {
-                set script_name [file dirname [file normalize [info script]/--]]
-            }
-            if {![info exists ::punk::multishell::is_main($script_name)]} {
-                #e.g a .dll or something else unanticipated
-                puts stderr "Warning punk::multishell didn't recognize info script result: $script_name - will treat as if sourced and return instead of exiting"
-                puts stderr "Info: script_root: [file dirname [file normalize ${argv0}/__]]"
-                return 0
-            }
-            return [set ::punk::multishell::is_main($script_name)]
-        }
-    }
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-#puts "argv0    : $::argv0"
-# -- --- --- --- --- --- --- --- --- --- --- ---
-
-
-#<tcl-payload>
-#</tcl-payload>
-
-
-
-# -- --- --- --- --- --- --- --- --- --- --- ---
-# -- Best practice is to always return or exit above, or just by leaving the below defaults in place.
-# -- If the multishell script is modified to have Tcl below the Tcl Payload section,
-# -- then Tcl bracket balancing needs to be carefully managed in the shell and powershell sections below.
-# -- Only the # in front of the two relevant if statements below needs to be removed to enable Tcl below
-# -- but the sh/bash 'then' and 'fi' would also need to be uncommented.
-# -- This facility left in place for experiments on whether configuration payloads etc can be appended
-# -- to tail of file - possibly binary with ctrl-z char - but utility is dependent on which other interpreters/shells
-# -- can be made to ignore/cope with such data.
-if {[::punk::multishell::is_main]} {
-    exit 0
-} else {
-    return 
-}
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-# end hide from unix shells \
-HEREDOC1B_HIDE_FROM_BASH_AND_SH
-# sh/bash \
-shift && set -- "${@:1:$#-1}"
-#------------------------------------------------------
-# -- This if block only needed if Tcl didn't exit or return above.
-if false==false # else {
-    then
-    : #
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- sh/bash script section
-# -- leave as is if all that is required is launching the Tcl payload"
-# --
-# -- Note that sh/bash script isn't called when running a .bat/.cmd from cmd.exe on windows by default
-# -- adjust  @call line above ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-# --   if sh/bash scripting needs to run on windows too.
-# --
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin sh Payload
-#printf "start of bash or sh code"
-
-#<shell-payload-pre-tcl>
-#</shell-payload-pre-tcl>
-
-# -- --- --- --- --- --- --- ---
-#<shell-launch-tcl>
-exitcode=0 ;#default assumption
-#-- sh/bash launches Tcl here instead of shebang line at top
-#-- use exec to use exitcode (if any) directly from the tcl script
-#exec /usr/bin/env tclsh "$0" "$@"
-#-- alternative - can run sh/bash script after the tcl call.
-/usr/bin/env tclsh "$0" "$@"
-exitcode=$?
-#echo "tcl exitcode: ${exitcode}"
-#-- override exitcode example 
-#exit 66
-#</shell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-#<shell-payload-post-tcl>
-#</shell-payload-post-tcl>
-
-
-#printf "sh/bash done \n"
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end sh Payload
-#------------------------------------------------------
-fi
-exit ${exitcode}
-# end hide sh/bash block from Tcl
-# This comment with closing brace should stay in place whether if commented or not }
-#------------------------------------------------------
-# begin hide powershell-block from Tcl - only needed if Tcl didn't exit or return above
-if 0 {
-: end heredoc1 - end hide from powershell \
-'@ 
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-# -- powershell/pwsh section
-# -- Do not edit if current file is the .ps1
-# -- Edit the corresponding .cmd and it will autocopy 
-# -- unbalanced braces { } here *even in comments* will cause problems if there was no Tcl exit or return above
-# ## ### ### ### ### ### ### ### ### ### ### ### ### ###
-function GetScriptName { $myInvocation.ScriptName }
-$scriptname = getScriptName
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---begin powershell Payload
-#"Timestamp         :    {0,10:yyyy-MM-dd HH:mm:ss}"    -f $(Get-Date)   | write-host
-#"Script Name       :    {0}"    -f $scriptname                          | write-host
-#"Powershell Version:    {0}"    -f $PSVersionTable.PSVersion.Major      | write-host
-#"powershell args   :    {0}"    -f ($args -join ", ")                   | write-host
-# -- --- --- ---
-
-#<powershell-payload-pre-tcl>
-#</powershell-payload-pre-tcl>
-
-
-# -- --- --- --- --- --- --- ---
-#<powershell-launch-tcl>
-tclsh $scriptname $args
-#</powershell-launch-tcl>
-# -- --- --- --- --- --- --- ---
-
-
-#<powershell-payload-post-tcl>
-#</powershell-payload-post-tcl>
-
-# -- --- --- --- --- --- --- --- --- --- --- --- --- ---end powershell Payload
-#"powershell reporting exitcode: {0}" -f $LASTEXITCODE | write-host
-Exit $LASTEXITCODE
-# heredoc2 for powershell to ignore block below
-$1 = @'
-'
-: comment end hide powershell-block from Tcl \
-# This comment with closing brace should stay in place whether 'if' commented or not }
-: multishell doubled-up cmd exit label - return exitcode 
-:exit_multishell
-:exit_multishell
-: \
-@REM @ECHO exitcode: !task_exitcode!
-: \
-@IF "%1"=="PUNK-ELEVATED" (echo. & @cmd /k echo elevated prompt: type exit to quit)
-: \
-@EXIT /B !task_exitcode!
-# cmd has exited
-: comment end heredoc2 \
-'@
-<#
-# id:tailblock0
-# -- powershell multiline comment 
-#>
-<#
-# id:tailblock1
-# <ctrl-z>
-
-# </ctrl-z>
-# -- unreachable by tcl directly if ctrl-z character is in the <ctrl-z> section above. (but file can be read and split on \x1A)
-# -- Potential for zip and/or base64 contents, but we can't stop pwsh parser from slurping in the data
-# -- so for example a plain text tar archive could cause problems depending on the content.
-# -- final line in file must be the powershell multiline comment terminator or other data it can handle.
-# -- e.g plain # comment lines will work too
-# -- (for example a powershell digital signature is a # commented block of data at the end of the file)
-#>
-
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-shellbat.bat b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-shellbat.bat
deleted file mode 100644
index aa9039a9..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/mix/templates/utility/scriptappwrappers/punk-shellbat.bat
+++ /dev/null
@@ -1,112 +0,0 @@
-: "[proc : args {}]" ;# *tcl shellbat - call with sh,bash,tclsh on any platform, or with cmd on windows.
-: <<'HIDE_FROM_BASH_AND_SH'
-: ;# leading colon hides from .bat, trailing slash hides next line from tcl \
-@call tclsh "%~dp0%~n0.bat" %*
-: ;#\
-@set taskexitcode=%errorlevel% & goto :exit
-# -*- tcl -*-
-# #################################################################################################
-# This is a tcl shellbat file
-# It is tuned to run when called as a batch file, a tcl script, an sh script or a bash script,
-# so the specific layout and characters used are quite sensitive to change.
-# It can be called on unix or windows platforms with or without the interpreter being specified on the commandline.
-# e.g ./filename.sh.bat in sh or bash or powershell
-# e.g filename.sh or filename.sh.bat at windows command prompt
-# e.g tclsh filename.sh.bat |  sh filename.sh.bat  | bash filename.sh.bat
-# In all cases an arbitrary number of arguments are accepted
-# To avoid the initial commandline on stdout when calling as a batch file on windows, use:
-# cmd /Q /c filename.sh.bat
-# (because we cannot use @if to silence it, as this isn't understood by tcl,sh or bash)
-# #################################################################################################
-#fconfigure stdout -translation crlf
-# --- --- --- --- --- --- --- --- --- --- --- --- ---begin Tcl Payload
-#puts "script   : [info script]"
-#puts "argcount : $::argc"
-#puts "argvalues: $::argv"
-
-
-#<tcl-payload>
-#<tcl-payload/>
-
-# --- --- --- --- --- --- --- --- --- --- --- --- ---
-# only exit if needed. see exitcode notes at bottom of file and exit there for consistency across invocation methods
-# --- --- --- --- --- --- --- --- --- --- --- --- ---end Tcl Payload
-#--
-#-- bash/sh code follows. 
-#-- protect from tcl using line continuation char on the previous comment for each line, like so: \
-printf "etc"
-#-- or alternatively place sh/bash script within the false==false block
-#-- whilst being careful to balance braces {}
-#-- For more complex needs you should call out to external scripts
-#--
-#-- END marker for hide_from_bash_and_sh\
-HIDE_FROM_BASH_AND_SH
-
-#---------------------------------------------------------
-#-- This if statement hides(mostly) a sh/bash code block from Tcl
-if false==false # else { 
-then
-:
-#---------------------------------------------------------
-    #-- leave as is if all that's required is launching the Tcl payload"
-    #--
-    #-- Note that sh/bash script isn't called when running a .bat from cmd.exe on windows by default
-    #-- adjust line 4:  @call tclsh ...  to something like @call sh ... @call bash ..  or @call env sh ... etc as appropriate
-    #--   if sh/bash scripting needs to run on windows too.
-    #--
-    #printf "start of bash or sh code"
-    
-    #<shell-payload-pre-tcl>
-    #</shell-payload-pre-tcl>
-
-
-    #-- sh/bash launches Tcl here instead of shebang line at top
-    #<shell-launch-tcl>
-    #-- use exec to use exitcode (if any) directly from the tcl script
-    exec /usr/bin/env tclsh "$0" "$@"
-    #</shell-launch-tcl>
-    
-    #-- alternative - if sh/bash script required to run after the tcl call.
-    #/usr/bin/env tclsh "$0" "$@"
-    #tcl_exitcode=$?
-    #echo "tcl_exitcode: ${tcl_exitcode}"
-    
-    #<shell-payload-post-tcl>
-    #</shell-payload-post-tcl>
-    
-    #-- override exitcode example
-    #exit 66
-    
-    #printf "No need for trailing slashes for sh/bash code here\n"
-#---------------------------------------------------------
-fi
-# closing brace for Tcl }
-#---------------------------------------------------------
-
-#-- tcl and shell script now both active
-
-#-- comment for line sample 1 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 1 \n"
-
-#-- comment for line sample 2 with trailing continuation slash \
-#printf "tcl-invisible sh/bash line sample 2 \n"
-
-
-#-- Consistent exitcode from sh,bash,tclsh or cmd
-#-- Call exit in tcl (or sh/bash) code only if explicitly required, otherwise leave this commented out.
-#-- (script might be more widely useable without explicit exit. e.g in tcl: set ::argc 1; set ::argv "val"; source filename.sh.bat )
-#-- exit line unprotected by trailing slash will work for tcl and/or sh/bash
-#exit 0 
-#exit 42
-
-
-
-#-- make sure sh/bash/tcl all skip over .bat style exit \
-: <<'shell_end'
-#-- .bat exit with exitcode from tcl process \
-:exit
-: ;# \
-@exit /B %taskexitcode%
-# .bat has exited \
-shell_end
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/nav/fs-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/nav/fs-0.1.0.tm
index b40be865..6bd4e5a1 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/nav/fs-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/nav/fs-0.1.0.tm
@@ -948,7 +948,7 @@ tcl::namespace::eval punk::nav::fs {
             set flaggedhidden [punk::lib::lunique_unordered $flaggedhidden]
         }
 
-        set dirs [lsort $dirs] ;#todo - natsort
+        set dirs [lsort -dictionary $dirs] ;#todo - natsort
 
 
 
@@ -965,10 +965,10 @@ tcl::namespace::eval punk::nav::fs {
         #Note - the sort by index would convert an empty filesizes list to a list of empty strings - one for each entry in files
         #We want to preserve the empty list if that's what the dirlisting mechanism returned (presumably because -with_sizes was 0 or explicitly excluded files)
         if {[llength $filesizes] == 0} {
-            set sorted_files [lsort $files]
+            set sorted_files [lsort -dictionary $files]
             set sorted_filesizes [list]
         } else {
-            set sortorder [lsort -indices $files]
+            set sortorder [lsort -indices -dictionary $files]
             set sorted_files [list]
             set sorted_filesizes [list]
             foreach i $sortorder {
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm
index f8e55b02..3de09e5e 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/ns-0.1.0.tm
@@ -13,6 +13,9 @@
 # @@ Meta End
 
 
+#BUGS
+# 2025-08
+# n// and n/// won't output info about 'namespace path' if there are no commands in the namespace
 
 # ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
 ##  Requirements
@@ -70,7 +73,7 @@ tcl::namespace::eval punk::ns {
             set out [nslist -types $types -nspathcommands $nspathcommands [nsjoin $ns_current *]]
         } else {
             set is_absolute [string match ::* $ns_or_glob]
-            set has_globchars [regexp {[*?]} $ns_or_glob]
+            set has_globchars [regexp {[*?]} $ns_or_glob] ;#basic globs only?
             if {$is_absolute} {
                 if {!$has_globchars} {
                     if {![nsexists $ns_or_glob]} {
@@ -308,7 +311,17 @@ tcl::namespace::eval punk::ns {
     }
 
 
-    proc nschildren {ns} {
+    punk::args::define {
+        @id     -id     ::punk::ns::nschildren
+        @cmd    -name     punk::ns::nschildren
+        @opts
+        -sort -default "natural" -choices {none natural ascii dictionary}
+        ns
+    }
+    proc nschildren {args} {
+        set argd [punk::args::parse $args withid ::punk::ns::nschildren]
+        set opt_sort [dict get $argd opts -sort]
+        set ns       [dict get $argd values ns]
         set parts [nsparts $ns]
         if {[lindex $parts 0] ne ""} {
             #relative
@@ -326,7 +339,21 @@ tcl::namespace::eval punk::ns {
         #set nslist [nseval $parent [list ::namespace children $tail]]
         #set nslist [tcl::namespace::eval $parent [list ::tcl::namespace::children $tail]]
         set nslist [nseval_ifexists $parent [list ::tcl::namespace::children $tail]]
-        return [lsort $nslist]
+        switch -- $opt_sort {
+            ascii {
+                return [lsort $nslist]
+            }
+            dictionary {
+                return [lsort -dictionary $nslist]
+            }
+            natural {
+                package require natsort
+                return [natsort::sort $nslist]
+            }
+            default {
+                return $nslist
+            }
+        }
     }
 
     #Note nsjoin,nsjoinall,nsprefix,nstail are string functions that don't care about namespaces in existence.
@@ -720,7 +747,13 @@ tcl::namespace::eval punk::ns {
         return $nslist
     }
 
-    variable usageinfo_char \U1f6c8
+    #The information symbol - usually i in a circle
+    #punkargs    " symbol \U1f6c8" ;#problematic on terminals that lie about cursor position after emitting this character
+    #The older \u2139 could be used - but it is sometimes a boxed i, sometimes a bold stylized i, sometimes a pre-coloured boxed i
+    #\u24d8 (circled latein small letter i) seems more consistent and can have our own colour applied.
+    #variable usageinfo_char \U1f6c8
+    variable usageinfo_char \u24d8
+
     # command has usageinfo e.g from punk::args. todo cmdline, argp, tepam etc?
     proc Usageinfo_mark {{ansicodes \UFFEF}} {
         variable usageinfo_char
@@ -733,6 +766,7 @@ tcl::namespace::eval punk::ns {
         }
     }
 
+
     punk::args::define {
         @id -id ::punk::ns::Cmark
         @cmd -name punk::ns::Cmark
@@ -741,7 +775,7 @@ tcl::namespace::eval punk::ns {
             oo          " symbol \u25c6"
             ooc         " symbol \u25c7"
             ooo         " symbol \u25c8"
-            punkargs    " symbol \U1f6c8"
+            punkargs    " symbol \u24d8"
             ensemble    " symbol \u24ba"
             native      " symbol \u24c3"
             unknown     " symbol \u2370"
@@ -770,7 +804,7 @@ tcl::namespace::eval punk::ns {
                 return; #should be unreachable - parse should raise usage error
             }
         }
-        set marks [dict create oo \u25c6 ooc \u25c7 ooo \u25c8 punkargs \U1f6c8 ensemble \u24ba native \u24c3 unknown \U2370]
+        set marks [dict create oo \u25c6 ooc \u25c7 ooo \u25c8 punkargs \u24d8 ensemble \u24ba native \u24c3 unknown \U2370]
         if {[llength $ansinames]} {
             return "[punk::ansi::a+ {*}$ansinames][dict get $marks $type]\x1b\[0m"
         } else {
@@ -1235,7 +1269,7 @@ tcl::namespace::eval punk::ns {
             if {[dict size [dict get $nsdict namespacepath]]} {
                 set path_text ""
                 if {!$opt_nspathcommands} {
-                    append path_text \n "  Also resolving cmds in namespace paths: [dict keys [dict get $nsdict namespacepath]]"
+                    append path_text \n "  Also resolving cmds in namespace paths: [dict keys [dict get $nsdict namespacepath]] (use n/// to display)"
                 } else {
                     append path_text \n "  Also resolving cmds in namespace paths:"
                     set nspathdict [dict get $nsdict namespacepath]
@@ -1246,9 +1280,18 @@ tcl::namespace::eval punk::ns {
                             append path_text \n "    cmds: $cmds"
                         }
                     } else {
-                        #todo - change to display in column order to be same as main command listing
+                        #todo - change to display in column order - so as to be same as main command listing
+                        set parentcommands [dict get $nsdict commands]
                         dict for {k v} $nspathdict {
-                            set pathcommands [dict get $v commands]
+                            set rawpathcommands [dict get $v commands]
+                            set pathcommands [list]
+                            foreach c $rawpathcommands {
+                                if {$c in $parentcommands} {
+                                    lappend pathcommands [punk::ansi::a strike]$c[a]
+                                } else {
+                                    lappend pathcommands $c
+                                }
+                            }
                             set columns 6
                             if {[llength $pathcommands] < 6} {
                                 set columns [llength $v]
@@ -1392,7 +1435,7 @@ tcl::namespace::eval punk::ns {
             if {$allbelow == 0 && !$has_globchars} {
                 set allchildren [list]
             } else {
-                set allchildren [nschildren $ch] ; #sorted, only returns 1 level deeper
+                set allchildren [nschildren -sort none $ch] ; #only returns 1 level deeper. leave sorting til after filtering
             }
 
             #nscommands returns exactly one line per entry + a trailing newline. If there is an empty line other than at the end - that is because there is a command named as the empty string.
@@ -1772,10 +1815,17 @@ tcl::namespace::eval punk::ns {
                     }
                 }
             }
+            #catch {package require natsort}
+            #if {[package provide natsort] ne ""} {
+            #    set childtailmatches [natsort::sort $childtailmatches]
+            #} else {
+            #    set childtailmatches [lsort $childtailmatches]
+            #}
+            set childtailmatches [lsort -dictionary $childtailmatches]
 
             set nsdict [dict create\
                 location $location\
-                children [lsort $childtailmatches]\
+                children $childtailmatches\
                 commands $commands\
                 procs $procs\
                 exported $exported\
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
index 0268dd75..7fc79bfe 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
@@ -686,6 +686,7 @@ namespace eval punk::path {
         -directory       -type directory  -help\
             "folder in which to begin recursive scan for files."
         -call-depth-internal    -default 0 -type integer
+        -sort -type any -default natural -choices {none ascii dictionary natural}
         -antiglob_paths         -default {} -help\
             "list of path patterns to exclude
               may include * and ** path segments e.g
@@ -718,6 +719,7 @@ namespace eval punk::path {
         lassign [dict values $argd] leaders opts values received
         set tailglobs [dict get $values tailglobs]
         # -- --- --- --- --- --- ---
+        set opt_sort           [dict get $opts -sort]
         set opt_antiglob_paths [dict get $opts -antiglob_paths]
         set opt_antiglob_files [dict get $opts -antiglob_files]
         set CALLDEPTH [dict get $opts -call-depth-internal]
@@ -726,6 +728,9 @@ namespace eval punk::path {
 
         set files [list]
         if {$CALLDEPTH == 0} {
+            if {$opt_sort eq "natural"} {
+                package require natsort
+            }
             #set opts [dict merge $opts [list -directory $opt_dir]]
             if {![dict exists $received -directory]} {
                 set opt_dir [pwd]
@@ -779,7 +784,20 @@ namespace eval punk::path {
             } else {
                 set retained $matches
             }
-            set dirfiles [lsort $retained]
+            switch -- $opt_sort {
+                ascii {
+                    set dirfiles [lsort $retained]
+                }
+                dictionary {
+                    set dirfiles [lsort -dictionary $retained]
+                }
+                natural {
+                    set dirfiles [natsort::sort $retained]
+                }
+                default {
+                    set dirfiles $retained
+                }
+            }
         }
 
         lappend files  {*}$dirfiles
@@ -787,7 +805,7 @@ namespace eval punk::path {
             puts stderr "treefilenames error while listing subdirs in dir $opt_dir\n $dirdirs"
             set dirdirs [list]
         }
-
+        set okdirs [list]
         foreach dir $dirdirs {
             set skip 0
             foreach anti $opt_antiglob_paths {
@@ -796,11 +814,29 @@ namespace eval punk::path {
                     break
                 }
             }
-            if {$skip} {
-                continue
+            if {!$skip} {
+                lappend okdirs $dir
+            }
+        }
+        if {[llength $okdirs]} {
+            switch -- $opt_sort {
+                ascii {
+                    set finaldirs [lsort $okdirs]
+                }
+                dictionary {
+                    set finaldirs [lsort -dictionary $okdirs]
+                }
+                natural {
+                    set finaldirs [natsort::sort $okdirs]
+                }
+                default {
+                    set finaldirs $okdirs
+                }
+            }
+            foreach dir $finaldirs {
+                set nextopts [dict merge $opts [list -directory $dir -call-depth-internal [incr CALLDEPTH]]]
+                lappend files {*}[treefilenames {*}$nextopts {*}$tailglobs]
             }
-            set nextopts [dict merge $opts [list -directory $dir -call-depth-internal [incr CALLDEPTH]]]
-            lappend files {*}[treefilenames {*}$nextopts {*}$tailglobs]
         }
         return $files
     }
@@ -813,12 +849,16 @@ namespace eval punk::path {
         # -- --- --- --- --- --- ---
         set opt_antiglob_paths [dict get $opts -antiglob_paths]
         set opt_antiglob_files [dict get $opts -antiglob_files]
+        set opt_sort           [dict get $opts -sort]
         set CALLDEPTH [dict get $opts -call-depth-internal]
         # -- --- --- --- --- --- ---
         # -- --- --- --- --- --- ---
 
         set files [list]
         if {$CALLDEPTH == 0} {
+            if {$opt_sort eq "natural"} {
+                package require natsort
+            }
             #set opts [dict merge $opts [list -directory $opt_dir]]
             if {![dict exists $received -directory]} {
                 set opt_dir [pwd]
@@ -934,7 +974,21 @@ namespace eval punk::path {
                 }
             }
         }
-        return $filelist
+        switch -- $opt_sort {
+            ascii {
+                set finalfilelist [lsort $filelist]
+            }
+            dictionary {
+                set finalfilelist [lsort -dictionary $filelist]
+            }
+            natural {
+                set finalfilelist [natsort::sort $filelist]
+            }
+            default {
+                set finalfilelist $filelist
+            }
+        }
+        return $finalfilelist
     }
 
     #maint warning - also in punkcheck
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm
index 731e263e..7d93d529 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl-0.1.2.tm
@@ -20,18 +20,6 @@ if {[dict exists $stdin_info -mode]} {
 #give up for now
 set tcl_interactive 1
 
-#if {[info commands ::tcl::zipfs::root] ne ""} {
-#    set zr [::tcl::zipfs::root]
-#    if {[file join $zr app modules] in [tcl::tm::list]} {
-#        #todo - better way to find latest version - without package require
-#        set lib [file join $zr app modules punk libunknown.tm]
-#        if {[file exists $lib]} {
-#            source $lib
-#            punk::libunknown::init
-#            #package unknown {punk::libunknown::zipfs_tm_UnknownHandler punk::libunknown::zipfs_tclPkgUnknown}
-#        }
-#    }
-#}
 #-------------------------------------------------------------------------------------
 if {[package provide punk::libunknown] eq ""} {
     #maintenance - also in src/vfs/_config/punk_main.tcl
@@ -59,7 +47,7 @@ if {[package provide punk::libunknown] eq ""} {
     }
     if {$libunknown ne ""} {
         source $libunknown
-        if {[catch {punk::libunknown::init -caller repl} errM]} {
+        if {[catch {punk::libunknown::init -caller triggered_by_repl_package_require} errM]} {
             puts "error initialising punk::libunknown\n$errM"
         }
     }
@@ -525,11 +513,11 @@ proc repl::start {inchan args} {
     set donevalue [set [namespace current]::done]
     if {[lindex $donevalue 0] eq "quit"} {
         puts "-->repl::start end $inchan $args result:'$donevalue'"
-        puts stderr "--> returning [lindex $donevalue 1]"
+        #puts stderr "repl quit --> returning [lindex $donevalue 1]"
         return [lindex $donevalue 1]
     }
     puts "-->repl::start end $inchan $args result:'$donevalue'"
-    puts stderr "__> returning 0"
+    #puts stderr "__> returning 0"
     return 0
 }
 proc repl::post_operations {} {
@@ -1408,7 +1396,6 @@ proc repl::repl_handler {inputchan prompt_config} {
         if {[dict get $original_input_conf -inputmode] eq "raw"} {
             #user or script has apparently put stdin into raw mode - update punk::console::is_raw to match
             set rawmode 1
-            #set ::punk::console::is_raw 1
             tsv::set console is_raw 1
         } else {
             #set ::punk::console::is_raw 0
@@ -1420,9 +1407,6 @@ proc repl::repl_handler {inputchan prompt_config} {
         #if it's been set to raw - assume it is deliberately done this way as the user could have alternatively called punk::mode raw or punk::console::enableVirtualTerminal
         #by not doing this automatically - we assume the caller has a reason.
     } else {
-        #JMN FIX!
-        #this returns 0 in rawmode on 8.6 after repl thread changes
-        #set rawmode [set ::punk::console::is_raw]
         set rawmode [tsv::get console is_raw]
     }
 
@@ -1811,8 +1795,6 @@ proc repl::repl_process_data {inputchan chunktype chunk stdinlines prompt_config
         set infoprompt      [dict get $prompt_config infoprompt]
         set debugprompt     [dict get $prompt_config debugprompt]
 
-
-        #set rawmode [set ::punk::console::is_raw]
         set rawmode [tsv::get console is_raw]
         if {!$rawmode} {
             #puts stderr "-->got [ansistring VIEW -lf 1 $stdinlines]<--"
@@ -1894,7 +1876,9 @@ proc repl::repl_process_data {inputchan chunktype chunk stdinlines prompt_config
                 #ctrl-c
                 if {$chunk eq "\x03"} {
                     #::punk::repl::handler_console_control "ctrl-c_via_rawloop"
-                    error "character 03 -> ctrl-c"
+                    puts stderr "ctrl-c via rawloop - not signal"
+                    ::punk::repl::handler_console_control ctrl-c via_rawloop
+                    #error "character 03 -> ctrl-c"
                 }
 
                 if {$chunk eq "\x7f"} {
@@ -1916,8 +1900,9 @@ proc repl::repl_process_data {inputchan chunktype chunk stdinlines prompt_config
                     #for now - exit with small delay for tidyup
                     #ctrl-z
                     #::punk::repl::handler_console_control "ctrl-z_via_rawloop"
-                    if {[catch {mode line}]} {
-                        interp eval code {mode line}
+                    if {[catch {punk::console::mode line}]} {
+                        #REVIEW
+                        interp eval code {punk::console::mode line}
                     }
                     after 1000 {exit 43}
                     return
@@ -2418,6 +2403,8 @@ proc repl::repl_process_data {inputchan chunktype chunk stdinlines prompt_config
                 #if {[lindex $command 0] eq "runx"} {}
 
 
+                #temporary hack.
+                #todo - use happy path return options for non-primary result (like www package) ?
                 if  {
                         [string equal -length [string length "d/ "] "d/ " $commandstr] || \
                         [string equal "d/\n" $commandstr] || \
@@ -2613,6 +2600,34 @@ proc repl::repl_process_data {inputchan chunktype chunk stdinlines prompt_config
                 }
                 #editbuf
 
+
+                #after any external command - raw mode as the console sees it can be disabled
+                #set it to match current state of the tsv 
+                if {[tsv::get console is_raw]} {
+                    if {$::tcl_platform(platform) eq "windows"} {
+                        #review
+                        #we are in parent process - twapi might not be loaded here - even if it is in the code interp
+                        catch {package require twapi}
+                    }
+                    set sinfo [chan configure stdin]
+                    if {[dict exists $sinfo -inputmode]} {
+                        if {[dict get $sinfo -inputmode] ne "raw"} {
+                            set re_enable_required 1
+                        } else {
+                            set re_enable_required 0
+                        }
+                    } else {
+                        # -inputmode unavailable
+                        #tcl 8.6 doesn't have -inputmode - meaning it has to call punk:console::enableRaw each time
+                        #enableRaw on windows without twapi involves launching a pwsh process - which gives a noticeable lag in keyboard input.
+                        #enableRaw on Unix involves a call to stty - which is generally fast - but still to be avoided if not required.
+                        set re_enable_required 1
+                    }
+                    #puts stderr "-here- re-enabling raw"
+                    if {$re_enable_required} {
+                        punk::console::enableRaw
+                    }
+                }
             } else {
                 #append commandstr \n
                 if {$::punk::repl::signal_control_c} {
@@ -2826,7 +2841,7 @@ namespace eval repl {
             }
             if {$libunknown ne ""} {
                 source $libunknown
-                if {[catch {punk::libunknown::init -caller "repl init_script"} errM]} {
+                if {[catch {punk::libunknown::init -caller "repl::init init_script parent interp"} errM]} {
                     puts "repl::init problem - error initialising punk::libunknown\n$errM"
                 }
                 #package require punk::lib
@@ -2856,10 +2871,10 @@ namespace eval repl {
             #thread::send to caller defined interp targets (reference?)
             #snit required for icomm
             if {[catch {package require snit} errM]} {
-                puts stdout "punk::repl::initscript lib load fail ---snit $errM"
+                #puts stdout "punk::repl::initscript: lib load fail ---snit $errM"
             }
             if {[catch {package require punk::icomm} errM]} {
-                puts stdout "punk::repl::initscript lib load fail ---icomm $errM"
+                #puts stdout "punk::repl::initscript: lib load fail ---icomm $errM"
             }
             #-----
 
@@ -2870,7 +2885,7 @@ namespace eval repl {
                     #first use can raise error being a version number e.g 0.1.0  - why?
                     lassign [tcl::chan::fifo2] ::punk::repl::codethread::repltalk replside
                     } errMsg]} {
-                puts stdout "punk::repl::initscript tcl::chan::fifo2 error: $errM"
+                puts stdout "punk::repl::initscript tcl::chan::fifo2 error: $errMsg"
             } else {
                 #experimental?
                 #puts stdout "transferring chan $replside to thread %replthread%"
@@ -3517,6 +3532,8 @@ namespace eval repl {
 
                         #-----------------------------------------------------------------------------
                         if {[package provide punk::libunknown] eq ""} {
+                            namespace eval ::punk::libunknown {}
+                            set ::punk::libunknown::epoch %lib_epoch%
                             set libunks [list]
                             foreach tm_path [tcl::tm::list] {
                                 set punkdir [file join $tm_path punk]
@@ -3541,7 +3558,7 @@ namespace eval repl {
                             }
                             if {$libunknown ne ""} {
                                 source $libunknown
-                                if {[catch {punk::libunknown::init -caller "repl init_script punk"} errM]} {
+                                if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} {
                                     puts "error initialising punk::libunknown\n$errM"
                                 }
                             }
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl/codethread-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl/codethread-0.1.0.tm
deleted file mode 100644
index bb769b48..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repl/codethread-0.1.0.tm
+++ /dev/null
@@ -1,276 +0,0 @@
-# -*- tcl -*-
-# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake  to update from <pkg>-buildversion.txt
-# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.2.tm
-#
-# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem.
-# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository.
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# (C) 2024
-#
-# @@ Meta Begin
-# Application punk::repl::codethread 0.1.0
-# Meta platform     tcl
-# Meta license      <unspecified>
-# @@ Meta End
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# doctools header
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[manpage_begin shellspy_module_punk::repl::codethread 0 0.1.0]
-#[copyright "2024"]
-#[titledesc {Module repl codethread}]  [comment {-- Name section and table of contents description --}]
-#[moddesc {codethread for repl - root interpreter}]             [comment {-- Description at end of page heading --}] 
-#[require punk::repl::codethread]
-#[keywords module repl]
-#[description]
-#[para] This is part of the infrastructure required for the punk::repl to operate 
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section Overview]
-#[para] overview of punk::repl::codethread
-#[subsection Concepts]
-#[para] -
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Requirements
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[subsection dependencies]
-#[para] packages used by punk::repl::codethread
-#[list_begin itemized]
-
-package require Tcl 8.6-
-package require punk::config
-#*** !doctools
-#[item] [package {Tcl 8.6}]
-
-# #package require frobz
-# #*** !doctools
-# #[item] [package {frobz}]
-
-#*** !doctools
-#[list_end]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-#*** !doctools
-#[section API]
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# oo::class namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#tcl::namespace::eval punk::repl::codethread::class {
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread::class}]
-    #[para] class definitions
-    #if {[info commands [tcl::namespace::current]::interface_sample1] eq ""} {
-        #*** !doctools
-        #[list_begin enumerated]
-
-        # oo::class create interface_sample1 {
-        #     #*** !doctools
-        #     #[enum] CLASS [class interface_sample1]
-        #     #[list_begin definitions]
-
-        #     method test {arg1} {
-        #         #*** !doctools
-        #         #[call class::interface_sample1    [method test] [arg arg1]]
-        #         #[para] test method
-        #         puts "test: $arg1"
-        #     }
-
-        #     #*** !doctools
-        #     #[list_end] [comment {-- end definitions interface_sample1}]
-        # }
-
-        #*** !doctools
-        #[list_end] [comment {--- end class enumeration ---}]
-    #}
-#}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Base namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::repl::codethread {
-    tcl::namespace::export *
-    variable replthread
-    variable replthread_cond
-    variable running 0
-
-    variable output_stdout  ""
-    variable output_stderr  ""
-
-    #variable xyz
-
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread}]
-    #[para] Core API functions for punk::repl::codethread 
-    #[list_begin definitions]
-
-
-
-    #proc sample1 {p1 n args} {
-    #    #*** !doctools
-    #    #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]]
-    #    #[para]Description of sample1 
-    #    #[para] Arguments:
-    #    #   [list_begin arguments]
-    #    #   [arg_def tring p1]       A description of string argument p1.
-    #    #   [arg_def integer n]      A description of integer argument n.
-    #    #   [list_end]
-    #    return "ok" 
-    #}
-
-    variable run_command_cache
-
-    proc is_running {} {
-        variable running
-        return $running
-    }
-    proc runscript {script} {
-        
-        #puts stderr "->runscript"
-        variable replthread_cond 
-        #variable output_stdout 
-        #set output_stdout ""
-        #variable output_stderr 
-        #set output_stderr ""
-        #expecting to be called from a thread::send in parent repl - ie in the toplevel interp so that the sub-interp "code" is available
-        #if a thread::send is done from the commandline in a codethread - Tcl will 
-        if {"code" ni [interp children] || ![info exists replthread_cond]} {
-            #in case someone tries calling from codethread directly - don't do anything or change any state
-            #(direct caller could create an interp named code at the level "" -> "code" -"code" and add a replthread_cond value to avoid this check - but it probably won't do anything useful)
-            #if called directly - the context will be within the first 'code' interp.
-            #inappropriate caller could add superfluous entries to shellfilter stack if function errors out
-            #inappropriate caller could affect tsv vars (if their interp allows that anyway)
-            puts stderr "runscript is meant to be called from the parent repl thread via a thread::send to the codethread"
-            return
-        }
-        interp eval code [list set ::punk::repl::codethread::output_stdout ""]
-        interp eval code [list set ::punk::repl::codethread::output_stderr ""]
-
-        set outstack [list]
-        set errstack [list]
-        upvar ::punk::config::running running_config
-        if {[string length [dict get $running_config color_stdout_repl]] && [interp eval code punk::console::colour]} {
-            lappend outstack [interp eval code [list shellfilter::stack::add stdout ansiwrap -settings [list -colour [dict get $running_config color_stdout_repl]]]]
-        }
-        lappend outstack [interp eval code [list shellfilter::stack::add stdout tee_to_var -settings {-varname ::punk::repl::codethread::output_stdout}]]
-
-        if {[string length [dict get $running_config color_stderr_repl]] && [interp eval code punk::console::colour]} {
-            lappend errstack [interp eval code [list shellfilter::stack::add stderr ansiwrap -settings [list -colour [dict get $running_config color_stderr_repl]]]]
-        #    #lappend errstack [shellfilter::stack::add stderr ansiwrap -settings [list -colour cyan]]
-        }
-        lappend errstack [interp eval code [list shellfilter::stack::add stderr tee_to_var -settings {-varname ::punk::repl::codethread::output_stderr}]]
-
-        #an experiment
-        #set errhandle [shellfilter::stack::item_tophandle stderr]
-        #interp transfer "" $errhandle code
-
-        set status [catch {
-            #shennanigans to keep compiled script around after call.
-            #otherwise when $script goes out of scope - internal rep of vars set in script changes.
-            #The shimmering may be no big deal(?) - but debug/analysis using tcl::unsupported::representation becomes impossible.
-            interp eval code [list ::punk::lib::set_clone ::codeinterp::clonescript $script] ;#like objclone
-            interp eval code {
-                lappend ::codeinterp::run_command_cache $::codeinterp::clonescript
-                if {[llength $::codeinterp::run_command_cache] > 2000} {
-                    set ::codeinterp::run_command_cache [lrange $::codeinterp::run_command_cache 1750 end][unset ::codeinterp::run_command_cache]
-                }
-                tcl::namespace::inscope $::punk::ns::ns_current $::codeinterp::clonescript
-            }
-        } result]
-
-
-        flush stdout
-        flush stderr
-
-        #interp transfer code $errhandle ""
-        #flush $errhandle 
-        set lastoutchar [string index [punk::ansi::ansistrip [interp eval code set ::punk::repl::codethread::output_stdout]] end]
-        set lasterrchar [string index [punk::ansi::ansistrip [interp eval code set ::punk::repl::codethread::output_stderr]] end]
-        #puts stderr "-->[ansistring VIEW -lf 1 $lastoutchar$lasterrchar]"
-
-        set tid [thread::id]
-        tsv::set codethread_$tid info [list lastoutchar $lastoutchar lasterrchar $lasterrchar] 
-        tsv::set codethread_$tid status $status
-        tsv::set codethread_$tid result $result
-        tsv::set codethread_$tid errorcode $::errorCode
-
-
-        #only remove from shellfilter::stack the items we added to stack in this function
-        foreach s [lreverse $outstack] {
-            interp eval code [list shellfilter::stack::remove stdout $s]
-        }
-        foreach s [lreverse $errstack] {
-            interp eval code [list shellfilter::stack::remove stderr $s]
-        }
-        thread::cond notify $replthread_cond
-    }
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::repl::codethread ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-# Secondary API namespace
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-tcl::namespace::eval punk::repl::codethread::lib {
-    tcl::namespace::export *
-    tcl::namespace::path [tcl::namespace::parent]
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread::lib}]
-    #[para] Secondary functions that are part of the API 
-    #[list_begin definitions]
-
-    #proc utility1 {p1 args} {
-    #    #*** !doctools
-    #    #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]]
-    #    #[para]Description of utility1 
-    #    return 1 
-    #}
-
-
-
-    #*** !doctools
-    #[list_end] [comment {--- end definitions namespace punk::repl::codethread::lib ---}]
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-
-
-
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-#*** !doctools
-#[section Internal]
-tcl::namespace::eval punk::repl::codethread::system {
-    #*** !doctools
-    #[subsection {Namespace punk::repl::codethread::system}]
-    #[para] Internal functions that are not part of the API 
-
-
-
-}
-# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
-##  Ready   
-package provide punk::repl::codethread [tcl::namespace::eval punk::repl::codethread {
-    variable pkg punk::repl::codethread
-    variable version
-    set version 0.1.0 
-}]
-return
-
-#*** !doctools
-#[manpage_end]
-
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm
index 2ab1fb01..5d2a2725 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/repo-0.1.1.tm
@@ -92,6 +92,9 @@ namespace eval punk::repo {
             }
             lappend maincommands {*}$ln
         }
+        #fossil output was ordered in columns, but we loaded list in row-wise, messing up the order
+        set maincommands [lsort $maincommands]
+        set allcmds [lsort $allcmds]
         set othercmds [punk::lib::ldiff $allcmds $maincommands]
 
         set result "@leaders -min 0\n"
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
index 87863f88..02415ccd 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
@@ -283,9 +283,47 @@ tcl::namespace::eval punk::zip {
 
     #if there is an external preamble - extract that. (if there is also an internal preamble - ignore and consider part of the archive-data)
     #Otherwise extract an internal preamble.
-    #if neither - 
+    #if neither -?
     #review - reconsider auto-determination of internal vs external preamble
-    proc extract_preamble {infile outfile_preamble {outfile_zip ""}} {
+    punk::args::define {
+        @id     -id ::punk::zip::extract_preamble
+        @cmd    -name punk::zip::extract_preamble -help\
+            "Split a zipfs based executable or library into its constituent
+            binary and zip parts.
+
+            Note that the binary preamble might be either 'within' the zip offsets,
+            or simply catenated prior to an unadjusted zip.
+            Some build processes may have 'adjusted' the zip offsets to make the zip cover the entire file
+            ('file based' offset) whilst the more modern approach is to simply concatenate the binary and the zip
+            ('archive based' offset). An archive-based offset is simpler and more reliably points to the proper
+            split location. It also allows 'zipfs info //zipfs:/app' to return the correct offset information.
+
+            Either way, extract_preamble can usually separate them, but in the unusual case that there is both an
+            external preamble and a preamble within the zip, only the external preamble will be split, with the
+            internal one remaining in the zip.
+
+            The inverse of this process would be to extract the .zip file created by this split to a folder,
+            e.g extracted_zip_folder (adjusting contents as required) and then to run:
+             zipfs mkimg newbinaryname.exe extracted_zip_folder <prefix> \"\" <extracted_preamble_or_alternative exe>
+             "
+        @values -min 2 -max 3
+        infile -type file -optional 0 -help\
+            "Name of existing tcl executable or shared lib with attached zipfs filesystem"
+        outfile_preamble  -optional 0 -type file -help\
+            "Name of output file for binary preamble to be extracted to.
+              If this file already exists, an error will be raised"
+        outfile_zip -default "" -type file -help\
+            "Name of output file for zip data to be extracted to.
+              If this file already exists, an error will be raised"
+    }
+    proc extract_preamble {args} {
+        set argd [punk::args::parse $args withid ::punk::zip::extract_preamble]
+        lassign [dict values $argd] leaders opts values received
+
+        set infile              [dict get $values infile]
+        set outfile_preamble    [dict get $values outfile_preamble]
+        set outfile_zip         [dict get $values outfile_zip]
+
         set inzip [open $infile r]
         fconfigure $inzip -encoding iso8859-1 -translation binary
         if {[file exists $outfile_preamble]} {
@@ -346,7 +384,7 @@ tcl::namespace::eval punk::zip {
                     #we could scan from top (ugly) - and with binary prefixes we could get false positives in the data that look like PK\3\4 headers
                     #we could either work out the format for all possible executables that could be appended (across all platforms) and understand where they end?
                     #or we just look for the topmost PK\3\4 header pointed to by a CDR record - and assume the CDR is complete 
-                    
+
                     #step one - read all the CD records and find the highest pointed to local file record (which isn't necessarily the first - but should get us above most if not all of the zip data)
                     #we can't assume they're ordered in any particular way - so we in theory have to look at them all.
                     set baseoffset "unknown"
@@ -400,7 +438,7 @@ tcl::namespace::eval punk::zip {
                 #todo - if it was internal preamble - need to adjust offsets to fix the split off zipfile
                 set zout [open $outfile_zip w]
                 fconfigure $zout -encoding iso8859-1 -translation binary
-                chan copy $inzip $zout 
+                chan copy $inzip $zout
                 close $zout
             }
             close $inzip
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.1.9.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.1.9.tm
deleted file mode 100644
index 73ea752c..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.1.9.tm
+++ /dev/null
@@ -1,3209 +0,0 @@
-#copyright 2023 Julian Marcel Noble
-#license: BSD (revised 3-clause)
-#
-#Note shellfilter is currently only directly useful for unidirectional channels e.g stdin,stderr,stdout, or for example fifo2 where only one direction is being used.
-#To generalize this to bidrectional channels would require shifting around read & write methods on transform objects in a very complicated manner.
-#e.g each transform would probably be a generic transform container which holds sub-objects to which read & write are indirected.
-#This is left as a future exercise...possibly it's best left as a concept for uni-directional channels anyway 
-# - as presumably the reads/writes from a bidirectional channel could be diverted off to unidirectional pipelines for processing with less work
-# (and maybe even better speed/efficiency if the data volume is asymmetrical and there is significant processing on one direction)
-#
-
-
-tcl::namespace::eval shellfilter::log {
-    variable allow_adhoc_tags 1
-    variable open_logs [tcl::dict::create]
-    variable is_enabled 0
-
-    proc disable {} {
-        variable is_enabled
-        set is_enabled 0
-        proc ::shellfilter::log::open     {tag settingsdict} {}
-        proc ::shellfilter::log::write    {tag msg} {}
-        proc ::shellfilter::log::write_sync    {tag msg} {}
-        proc ::shellfilter::log::close    {tag} {}
-    }
-
-    proc enable {} {
-        variable is_enabled
-        set is_enabled 1
-        #'tag' is an identifier for the log source. 
-        # each tag will use it's own thread to write to the configured log target
-        proc ::shellfilter::log::open {tag {settingsdict {}}} {
-            upvar ::shellfilter::sources sourcelist
-            if {![dict exists $settingsdict -tag]} {
-                tcl::dict::set settingsdict -tag $tag
-            } else {
-                #review
-                if {$tag ne [tcl::dict::get $settingsdict -tag]} {
-                    error "shellfilter::log::open first argument tag: '$tag' does not match -tag '[tcl::dict::get $settingsdict -tag]' omit -tag, or supply same value"
-                }
-            }
-            if {$tag ni $sourcelist} {
-                lappend sourcelist $tag
-            }
-
-            #note new_worker 
-            set worker_tid [shellthread::manager::new_worker $tag $settingsdict]
-            #puts stderr "shellfilter::log::open this_threadid: [thread::id] tag: $tag worker_tid: $worker_tid"
-            return $worker_tid
-        }
-        proc ::shellfilter::log::write {tag msg} {
-            upvar ::shellfilter::sources sourcelist
-            variable allow_adhoc_tags
-            if {!$allow_adhoc_tags} {
-                if {$tag ni $sourcelist} {
-                    error "shellfilter::log::write tag '$tag' hasn't been initialised with a call to shellfilter::log::open $tag <settings>, and allow_adhoc_tags has been set false. use shellfilter::log::require_open false to allow adhoc tags"
-                }
-            }
-            shellthread::manager::write_log $tag $msg
-        }
-        #write_sync - synchronous processing with logging thread, slower but potentially useful for debugging/testing or forcing delay til log written
-        proc ::shellfilter::log::write_sync {tag msg} {
-            shellthread::manager::write_log $tag $msg -async 0
-        }
-        proc ::shellfilter::log::close {tag} {
-            #shellthread::manager::close_worker $tag
-            shellthread::manager::unsubscribe [list $tag]; #workertid will be added back to free list if no tags remain subscribed
-        }
-
-    }
-
-    #review
-    #configure whether we can call shellfilter::log::write without having called open first
-    proc require_open {{is_open_required {}}} {
-        variable allow_adhoc_tags
-        if {![string length $is_open_required]} {
-            return $allow_adhoc_tags
-        } else {
-            set truevalues [list y yes true 1]
-            set falsevalues [list n no false 0]
-            if {[string tolower $is_open_required] in $truevalues} {
-                set allow_adhoc_tags 1
-            } elseif {[string tolower $is_open_required] in $falsevalues} {
-                set allow_adhoc_tags 0
-            } else {
-                error "shellfilter::log::require_open unrecognised value '$is_open_required' try one of $truevalues or $falsevalues"
-            }
-        }
-    }
-    if {[catch {package require shellthread}]} {
-        shellfilter::log::disable
-    } else {
-        shellfilter::log::enable
-    }
-
-}
-namespace eval shellfilter::pipe {
-    #write channel for program. workerthread reads other end of fifo2 and writes data somewhere
-    proc open_out {tag_pipename {pipesettingsdict {}}} {
-        set defaultsettings {-buffering full}
-        set settingsdict [dict merge $defaultsettings $pipesettingsdict]
-        package require shellthread
-        #we are only using the fifo in a single direction to pipe to another thread
-        # - so whilst wchan and rchan could theoretically each be both read & write we're only using them for one operation each
-        if {![catch {package require Memchan}]} {
-            lassign [fifo2] wchan rchan
-        } else {
-            package require tcl::chan::fifo2
-            lassign [tcl::chan::fifo2] wchan rchan
-        }
-        #default -translation for both types of fifo on windows is {auto crlf}
-        # -encoding is as per '[encoding system]' on the platform - e.g utf-8 (e.g windows when beta-utf8 enabled)
-        chan configure $wchan -buffering [dict get $settingsdict -buffering] ;#
-        #application end must not be binary for our filters to operate on it
-
-
-        #chan configure $rchan -buffering [dict get $settingsdict -buffering] -translation binary ;#works reasonably..
-        chan configure $rchan -buffering [dict get $settingsdict -buffering] -translation lf 
-
-        set worker_tid [shellthread::manager::new_pipe_worker $tag_pipename $settingsdict]
-        #puts stderr "worker_tid: $worker_tid"
-
-        #set_read_pipe does the thread::transfer of the rchan end. -buffering setting is maintained during thread transfer
-        shellthread::manager::set_pipe_read_from_client $tag_pipename $worker_tid $rchan
-
-        set pipeinfo [list localchan $wchan remotechan $rchan workertid $worker_tid direction out]
-        return $pipeinfo
-    }
-
-    #read channel for program.  workerthread writes to other end of fifo2 from whereever it's reading (stdin, file?)
-    proc open_in {tag_pipename {settingsdict {} }} {
-        package require shellthread
-        package require tcl::chan::fifo2
-        lassign [tcl::chan::fifo2] wchan rchan
-        set program_chan $rchan
-        set worker_chan $wchan
-        chan configure $worker_chan     -buffering [dict get $settingsdict -buffering]
-        chan configure $program_chan    -buffering [dict get $settingsdict -buffering]
-
-        chan configure $program_chan -blocking 0
-        chan configure $worker_chan -blocking 0
-        set worker_tid [shellthread::manager::new_worker $tag_pipename $settingsdict]
-
-        shellthread::manager::set_pipe_write_to_client $tag_pipename $worker_tid $worker_chan
-
-        set pipeinfo [list localchan $program_chan remotechan $worker_chan workertid $worker_tid direction in]
-        puts stderr "|jn>pipe::open_in returning $pipeinfo"
-        puts stderr "program_chan: [chan conf $program_chan]"
-        return $pipeinfo
-    }
-
-}
-
-
-
-namespace eval shellfilter::ansi {
-    #maint warning - 
-    #ansistrip from punk::ansi is better/more comprehensive
-    proc stripcodes {text} {
-        #obsolete?
-        #single "final byte" in the range 0x40–0x7E (ASCII @A–Z[\]^_`a–z{|}~).
-        dict set escape_terminals CSI [list @ \\ ^ _ ` | ~ a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z "\{" "\}"]
-        #dict set escape_terminals CSI [list J K m n A B C D E F G s u] ;#basic 
-        dict set escape_terminals OSC [list \007 \033\\] ;#note mix of 1 and 2-byte terminals 
-        #we process char by char - line-endings whether \r\n or \n should be processed as per any other character.
-        #line endings can theoretically occur within an ansi escape sequence (review e.g title?)
-        set inputlist [split $text ""]
-        set outputlist [list] 
-
-        #self-contained 2 byte ansi escape sequences - review more?
-        set  2bytecodes_dict [dict create\
-            "reset_terminal" "\033c"\
-            "save_cursor_posn" "\u001b7"\
-            "restore_cursor_posn" "\u001b8"\
-            "cursor_up_one" "\u001bM"\
-            ]
-        set 2bytecodes [dict values $2bytecodes_dict]
-
-        set in_escapesequence 0
-        #assumption - undertext already 'rendered' - ie no backspaces or carriagereturns or other cursor movement controls
-        set i 0
-        foreach u $inputlist {
-            set v [lindex $inputlist $i+1]
-            set uv ${u}${v}
-            if {$in_escapesequence eq "2b"} {
-                #2nd byte - done.
-                set in_escapesequence 0
-            } elseif {$in_escapesequence != 0} {
-                set escseq [dict get $escape_terminals $in_escapesequence]
-                if {$u in $escseq} {
-                    set in_escapesequence 0
-                } elseif {$uv in $escseq} {
-                    set in_escapseequence 2b ;#flag next byte as last in sequence
-                }
-            } else {
-                #handle both 7-bit and 8-bit CSI and OSC
-                if {[regexp {^(?:\033\[|\u009b)} $uv]} {
-                    set in_escapesequence CSI
-                } elseif {[regexp {^(?:\033\]|\u009c)} $uv]} {
-                    set in_escapesequence OSC
-                } elseif {$uv in $2bytecodes} {
-                    #self-contained e.g terminal reset - don't pass through.
-                    set in_escapesequence 2b
-                } else {
-                    lappend outputlist $u
-                }
-            }
-            incr i
-        }
-        return [join $outputlist ""]
-    }
-
-}
-namespace eval shellfilter::chan {
-    set testobj ::shellfilter::chan::var
-    if {$testobj ni [info commands $testobj]} {
-
-    oo::class create var {
-        variable o_datavar
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            set varname [dict get $settingsdict -varname] 
-            set o_datavar $varname
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 1  ;# as a var is diversionary - default it to be a jucntion
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {ch} {
-            my destroy
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {ch count} {
-        #  return ?
-        #}
-        method write {ch bytes} {
-            set stringdata [encoding convertfrom $o_enc $bytes]
-            append $o_datavar $stringdata
-            return ""
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction 
-        }
-        method meta_buffering_supported {} {
-            return [list line full none]
-        }
-    }
-
-    #todo - something similar for multiple grep specs each with own -pre & -post .. store to dict?
-    oo::class create tee_grep_to_var {
-        variable o_datavar
-        variable o_lastxlines 
-        variable o_trecord 
-        variable o_grepfor
-        variable o_prelines
-        variable o_postlines
-        variable o_postcountdown 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set o_lastxlines [list]
-            set o_postcountdown 0
-            set defaults [tcl::dict::create -pre 1 -post 1]
-            set settingsdict [tcl::dict::get $tf -settings]
-            set settings [tcl::dict::merge $defaults $settingsdict]
-            set o_datavar [tcl::dict::get $settings -varname]
-            set o_grepfor [tcl::dict::get $settings -grep]
-            set o_prelines [tcl::dict::get $settings -pre]
-            set o_postlines [tcl::dict::get $settings -post]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #method read {transform_handle count} {
-        #  return ?
-        #}
-        method write {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            set lastx $o_lastxlines 
-            lappend o_lastxlines $logdata
-
-            if {$o_postcountdown > 0} {
-                append $o_datavar $logdata
-                if {[regexp $o_grepfor $logdata]} {
-                    #another match in postlines
-                    set o_postcountdown $o_postlines
-                } else {
-                    incr o_postcountdown -1
-                }
-            } else {
-                if {[regexp $o_grepfor $logdata]} {
-                    append $o_datavar [join $lastx]
-                    append $o_datavar $logdata
-                    set o_postcountdown $o_postlines
-                }
-            }
-
-            if {[llength $o_lastxlines] > $o_prelines} {
-                set o_lastxlines [lrange $o_lastxlines 1 end]
-            }
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-        method meta_buffering_supported {} {
-            return [list line]
-        }
-    }
-
-    oo::class create tee_to_var {
-        variable o_datavars
-        variable o_trecord
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            set varname [tcl::dict::get $settingsdict -varname]
-            set o_datavars $varname
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize finalize write flush clear]
-        }
-        method finalize {ch} {
-            my destroy
-        }
-        method clear {ch} {
-            return
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {ch count} {
-        #  return ?
-        #}
-        method flush {ch} {
-            return ""
-        }
-        method write {ch bytes} {
-            set stringdata [tcl::encoding::convertfrom $o_enc $bytes]
-            foreach v $o_datavars {
-                append $v $stringdata
-            }
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    oo::class create tee_to_pipe {
-        variable o_logsource
-        variable o_localchan
-        variable o_enc
-        variable o_trecord
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {![dict exists $settingsdict -tag]} {
-                error "tee_to_pipe constructor settingsdict missing -tag"
-            }
-            set o_localchan [tcl::dict::get $settingsdict -pipechan]
-            set o_logsource [tcl::dict::get $settingsdict -tag]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read drain write flush clear finalize]
-        }
-        method finalize {transform_handle} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {transform_handle events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        method clear {transform_handle} {
-            return
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            #::shellfilter::log::write $o_logsource $logdata
-            puts -nonewline $o_localchan $logdata
-            return  $bytes
-        }
-        method flush {transform_handle} {
-            return ""
-        }
-        method write {transform_handle bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            #::shellfilter::log::write $o_logsource $logdata
-            puts -nonewline $o_localchan $logdata
-            return $bytes
-        }
-        #a tee is not a redirection - because data still flows along the main path
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-
-    }
-    oo::class create tee_to_log  {
-        variable o_tid 
-        variable o_logsource
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {![tcl::dict::exists $settingsdict -tag]} {
-                error "tee_to_log constructor settingsdict missing -tag"
-            }
-            set o_logsource [tcl::dict::get $settingsdict -tag]
-            set o_tid [::shellfilter::log::open $o_logsource $settingsdict]
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {ch mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {ch} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {ch events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        method read {ch bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            ::shellfilter::log::write $o_logsource $logdata
-            return  $bytes
-        }
-        method write {ch bytes} {
-            set logdata [tcl::encoding::convertfrom $o_enc $bytes] 
-            ::shellfilter::log::write $o_logsource $logdata
-            return $bytes
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-
-
-    oo::class create logonly  {
-        variable o_tid
-        variable o_logsource
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {![dict exists $settingsdict -tag]} {
-                error "logonly constructor settingsdict missing -tag"
-            }
-            set o_logsource [dict get $settingsdict -tag]
-            set o_tid [::shellfilter::log::open $o_logsource $settingsdict]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize finalize write]
-        }
-        method finalize {transform_handle} {
-            ::shellfilter::log::close $o_logsource
-            my destroy
-        }
-        method watch {transform_handle events} {
-            # must be present but we ignore it because we do not
-            # post any events
-        }
-        #method read {transform_handle count} {
-        #  return ?
-        #}
-        method write {transform_handle bytes} {
-            set logdata [encoding convertfrom $o_enc $bytes] 
-            if 0 {
-                if {"utf-16le" in [encoding names]} {
-                    set logdata [encoding convertfrom utf-16le $bytes]
-                } else {
-                    set logdata [encoding convertto utf-8 $bytes]
-                    #set logdata [encoding convertfrom unicode $bytes]
-                    #set logdata $bytes
-                }
-            }
-            #set logdata $bytes
-            #set logdata [string map [list \r -r- \n -n-] $logdata]
-            #if {[string equal [string range $logdata end-1 end] "\r\n"]} {
-            #  set logdata [string range $logdata 0 end-2]
-            #}
-            #::shellfilter::log::write_sync $o_logsource $logdata
-            ::shellfilter::log::write $o_logsource $logdata
-            #return $bytes
-            return 
-        }
-        method meta_is_redirection {} {
-            return 1
-        }
-    }
-
-    #review - we should probably provide a more narrow filter than only strips color - and one that strips most(?) 
-    # - but does it ever really make sense to strip things like "esc(0" and "esc(B" which flip to the G0 G1 characters? (once stripped - things like box-lines become ordinary letters - unlikely to be desired?)
-    #punk::ansi::ansistrip converts at least some of the box drawing G0 chars to unicode - todo - more complete conversion
-    #assumes line-buffering. a more advanced filter required if ansicodes can arrive split across separate read or write operations!
-    oo::class create ansistrip {
-        variable o_trecord 
-        variable o_enc
-        variable o_is_junction
-        constructor {tf} {
-            package require punk::ansi
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write clear flush drain finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method clear {transform_handle} {
-            return
-        }
-        method watch {transform_handle events} {
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            set outstring [punk::ansi::ansistrip $instring]
-            return [encoding convertto $o_enc $outstring]
-        }
-        method flush {transform_handle} {
-            return ""
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            set outstring [punk::ansi::ansistrip $instring]
-            return [encoding convertto $o_enc $outstring]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-
-    #a test
-    oo::class create reconvert {
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-    }
-    oo::define reconvert {
-        method meta_is_redirection {} {
-            return 0
-        }
-    }
-
-    
-    #this isn't a particularly nice thing to do to a stream - especially if someone isn't expecting ansi codes sprinkled through it.
-    #It can be useful for test/debugging
-    #Due to chunking at random breaks - we have to check if an ansi code in the underlying stream has been split - otherwise our wrapping will break the existing ansi
-    #
-    set sixelstart_re {\x1bP([;0-9]*)q} ;#7-bit  - todo 8bit
-    #todo kitty graphics  \x1b_G...
-    #todo iterm graphics
-
-    oo::class create ansiwrap {
-        variable o_trecord
-        variable o_enc
-        variable o_colour
-        variable o_do_colour
-        variable o_do_normal
-        variable o_is_junction
-        variable o_codestack
-        variable o_gx_state  ;#on/off alt graphics
-        variable o_buffered
-        constructor {tf} {
-            package require punk::ansi
-            set o_trecord $tf
-            set o_enc [tcl::dict::get $tf -encoding]
-            set settingsdict [tcl::dict::get $tf -settings]
-            if {[tcl::dict::exists $settingsdict -colour]} {
-                set o_colour [tcl::dict::get $settingsdict -colour]
-                set o_do_colour [punk::ansi::a+ {*}$o_colour]
-                set o_do_normal [punk::ansi::a]
-            } else {
-                set o_colour {}
-                set o_do_colour ""
-                set o_do_normal ""
-            }
-            set o_codestack [list]
-            set o_gx_state [expr {off}]
-            set o_buffered "" ;#hold back data that potentially contains partial ansi codes
-            if {[tcl::dict::exists $tf -junction]} {
-                set o_is_junction [tcl::dict::get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-        }
-
-
-        #todo - track when in sixel,iterm,kitty graphics data - can be very large
-        method Trackcodes {chunk} {
-            #note - caller can use 2 resets in a single unit to temporarily reset to no sgr (override ansiwrap filter)
-            #e.g [a+ reset reset] (<esc><lb>0;0m   vs <esc><lb>0;m)
-
-            #puts stdout "===[ansistring VIEW -lf 1 $o_buffered]"
-            set buf $o_buffered$chunk
-            set emit ""
-            if {[string last \x1b $buf] >= 0} {
-                #detect will detect ansi SGR and gron groff and other codes
-                if {[punk::ansi::ta::detect $buf]} {
-                    #split_codes_single regex faster than split_codes - but more resulting parts
-                    #'single' refers to number of escapes - but can still contain e.g multiple SGR codes (or mode set operations etc)
-                    set parts [punk::ansi::ta::split_codes_single $buf]
-                    #process all pt/code pairs except for trailing pt
-                    foreach {pt code} [lrange $parts 0 end-1] {
-                        #puts "<==[ansistring VIEW -lf 1 $pt]==>"
-                        switch -- [llength $o_codestack] {
-                            0 {
-                                append emit $o_do_colour$pt$o_do_normal
-                            }
-                            1 {
-                                if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                    append emit $o_do_colour$pt$o_do_normal
-                                    set o_codestack [list]
-                                } else {
-                                    #append emit [lindex $o_codestack 0]$pt
-                                    append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$pt
-                                }
-                            }
-                            default {
-                                append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$pt
-                            }
-                        }
-                        #if {( ![llength $o_codestack] || ([llength $o_codestack] == 1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]))} {
-                        #    append emit $o_do_colour$pt$o_do_normal
-                        #    #append emit $pt
-                        #} else {
-                        #    append emit $pt
-                        #}
-
-                        set c1c2 [tcl::string::range $code 0 1]
-                        set leadernorm [tcl::string::range [tcl::string::map [list\
-                            \x1b\[      7CSI\
-                            \x9b        8CSI\
-                            \x1b\(      7GFX\
-                        ] $c1c2] 0 3]
-                        switch -- $leadernorm {
-                            7CSI - 8CSI {
-                                if {[punk::ansi::codetype::is_sgr_reset $code]} {
-                                    set o_codestack [list "\x1b\[m"]
-                                } elseif {[punk::ansi::codetype::has_sgr_leadingreset $code]} {
-                                    set o_codestack [list $code]
-                                } elseif {[punk::ansi::codetype::is_sgr $code]} {
-                                    #todo - make caching is_sgr method
-                                    set dup_posns [lsearch -all -exact $o_codestack $code]
-                                    set o_codestack [lremove $o_codestack {*}$dup_posns]
-                                    lappend o_codestack $code
-                                } else {
-
-                                }
-                            }
-                            7GFX {
-                                switch -- [tcl::string::index $code 2] {
-                                    "0" {
-                                        set o_gx_state on 
-                                    }
-                                    "B" {
-                                        set o_gx_state off 
-                                    }
-                                }
-                            }
-                            default {
-                                #other ansi codes
-                            }
-                        }
-                        append emit $code
-                    }
-
-
-                    set trailing_pt [lindex $parts end]
-                    if {[string first \x1b $trailing_pt] >= 0} {
-                        #puts  stdout "...[ansistring VIEW -lf 1 $trailing_pt]...buffered:<[ansistring VIEW $o_buffered]> '[ansistring VIEW -lf 1 $emit]'"
-                        #may not be plaintext after all
-                        set o_buffered $trailing_pt
-                        #puts stdout "=-=[ansistring VIEWCODES $o_buffered]"
-                    } else {
-                        #puts [a+ yellow]???[ansistring VIEW "'$o_buffered'<+>'$trailing_pt'"]???[a]
-                        switch -- [llength $o_codestack] {
-                            0 {
-                                append emit $o_do_colour$trailing_pt$o_do_normal
-                            }
-                            1 {
-                                if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                    append emit $o_do_colour$trailing_pt$o_do_normal
-                                    set o_codestack [list]
-                                } else {
-                                    #append emit [lindex $o_codestack 0]$trailing_pt
-                                    append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$trailing_pt
-                                }
-                            }
-                            default {
-                                append emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$trailing_pt
-                            }
-                        }
-                        #if {![llength $o_codestack] || ([llength $o_codestack] ==1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]])} {
-                        #    append emit $o_do_colour$trailing_pt$o_do_normal
-                        #} else {
-                        #    append emit $trailing_pt
-                        #}
-                        #the previous o_buffered formed the data we emitted - nothing new to buffer because we emitted all parts including the trailing plaintext
-                        set o_buffered ""
-                    }
-
-
-                } else {
-                    #REVIEW - this holding a buffer without emitting as we go is ugly.
-                    # - we may do better to detect and retain the opener, then use that opener to avoid false splits within the sequence.
-                    # - we'd then need to detect the appropriate close to restart splitting and codestacking 
-                    # - we may still need to retain and append the data to the opener (in some cases?) - which is a slight memory issue - but at least we would emit everything immediately.
-
-
-                    #puts "-->esc but no detect"
-                    #no complete ansi codes - but at least one esc is present
-                    if {[string index $buf end] eq "\x1b" && [string first \x1b $buf] == [string length $buf]-1} {
-                        #string index in first part of && clause to avoid some unneeded scans of whole string for this test
-                        #we can't use 'string last' - as we need to know only esc is last char in buf
-                        #puts ">>trailing-esc<<"
-                        set o_buffered \x1b
-                        set emit $o_do_colour[string range $buf 0 end-1]$o_do_normal
-                        #set emit [string range $buf 0 end-1]
-                        set buf ""
-                    } else {
-                        set emit_anyway 0
-                        #todo - ensure non-ansi escapes in middle of chunks don't lead to ever growing buffer
-                        if {[punk::ansi::ta::detect_st_open $buf]} {
-                            #no detect - but we have an ST open (privacy msg etc) - allow a larger chunk before we give up - could include newlines (and even nested codes - although not widely interpreted that way in terms)
-                            set st_partial_len [expr {[string length $buf] - [string last \x1b $buf]}] ;#length of unclosed ST code
-                            #todo - configurable ST max - use 1k for now
-                            if {$st_partial_len < 1001} {
-                                append o_buffered $chunk
-                                set emit ""
-                                set buf ""
-                            } else {
-                                set emit_anyway 1
-                                set o_buffered ""
-                            }
-                        } else {
-                            set possible_code_len [expr {[string length $buf] - [string last \x1b $buf]}] ;#length of possible code 
-                            #most opening sequences are 1,2 or 3 chars - review?
-                            set open_sequence_detected [punk::ansi::ta::detect_open $buf]
-                            if {$possible_code_len > 10 && !$open_sequence_detected} {
-                                set emit_anyway 1
-                                set o_buffered ""
-                            } else {
-                                #could be composite sequence with params - allow some reasonable max sequence length
-                                #todo - configurable max sequence length
-                                #len 40-50 quite possible for SGR sequence using coloured underlines etc, even without redundancies
-                                # - allow some headroom for redundant codes when the caller didn't merge.
-                                if {$possible_code_len < 101} {
-                                    append o_buffered $chunk
-                                    set buf ""
-                                    set emit ""
-                                } else {
-                                    #allow a little more grace if we at least have an opening ansi sequence of any type..
-                                    if {$open_sequence_detected && $possible_code_len < 151} {
-                                        append o_buffered $chunk
-                                        set buf ""
-                                        set emit ""
-                                    } else {
-                                        set emit_anyway 1
-                                        set o_buffered ""
-                                    }
-                                }
-                            }
-                        }
-                        if {$emit_anyway} {
-                            #assert: any time emit_anyway == 1 buf already contains all of previous o_buffered and o_buffered has been cleared.
-
-                            #looked ansi-like - but we've given enough length without detecting close..
-                            #treat as possible plain text with some esc or unrecognised ansi sequence
-                            switch -- [llength $o_codestack] {
-                                0 {
-                                    set emit $o_do_colour$buf$o_do_normal
-                                }
-                                1 {
-                                    if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                                        set emit $o_do_colour$buf$o_do_normal
-                                        set o_codestack [list]
-                                    } else {
-                                        #set emit [lindex $o_codestack 0]$buf
-                                        set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                                    }
-                                }
-                                default {
-                                    #set emit [punk::ansi::codetype::sgr_merge_singles $o_codestack]$buf
-                                    set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                                }
-                            }
-                            #if {( ![llength $o_codestack] || ([llength $o_codestack] == 1 && [punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]))} {
-                            #    set emit $o_do_colour$buf$o_do_normal
-                            #} else {
-                            #    set emit $buf
-                            #}
-                        }
-                    }
-                }
-            } else {
-                #no esc
-                #puts stdout [a+ yellow]...[a]
-                #test!
-                switch -- [llength $o_codestack] {
-                    0 {
-                        set emit $o_do_colour$buf$o_do_normal
-                    }
-                    1 {
-                        if {[punk::ansi::codetype::is_sgr_reset [lindex $o_codestack 0]]} {
-                            set emit $o_do_colour$buf$o_do_normal
-                            set o_codestack [list]
-                        } else {
-                            #set emit [lindex $o_codestack 0]$buf
-                            set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                        }
-                    }
-                    default {
-                        #set emit [punk::ansi::codetype::sgr_merge_singles $o_codestack]$buf
-                        set emit [punk::ansi::codetype::sgr_merge_singles [list $o_do_colour {*}$o_codestack]]$buf
-                    }
-                }
-                set o_buffered ""
-            }
-            return [dict create emit $emit stacksize [llength $o_codestack]]
-        }
-        method initialize {transform_handle mode} {
-            #clear undesirable in terminal output channels (review)
-            return [list initialize write flush read drain finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method clear {transform_handle} {
-            #In the context of stderr/stdout - we probably don't want clear to run.
-            #Terminals might call it in the middle of a split ansi code - resulting in broken output.
-            #Leave clear of it the init call
-            puts stdout "<clear>"
-            set emit [tcl::encoding::convertto $o_enc $o_buffered]
-            set o_buffered ""
-            return $emit 
-        }
-        method flush {transform_handle} {
-            #puts stdout "<flush>"
-            set emit [tcl::encoding::convertto $o_enc $o_buffered]
-            set o_buffered ""
-            return $emit
-            return
-        }
-        method write {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set streaminfo [my Trackcodes $instring]
-            set emit        [dict get $streaminfo emit]
-
-            #review - wrapping already done in Trackcodes
-            #if {[dict get $streaminfo stacksize] == 0} {
-            #    #no ansi on the stack - we can wrap
-            #    #review
-            #    set outstring "$o_do_colour$emit$o_do_normal"
-            #} else {
-            #}
-            #if {[llength $o_codestack]} {
-            #    set outstring [punk::ansi::codetype::sgr_merge_singles $o_codestack]$emit
-            #} else {
-            #    set outstring $emit
-            #}
-
-            set outstring $emit
-
-            #puts stdout "decoded   >>>[ansistring VIEWCODES $outstring]<<<"
-            #puts stdout "re-encoded>>>[ansistring VIEW [tcl::encoding::convertto $o_enc $outstring]]<<<"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method Write_naive {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set outstring "$o_do_colour$instring$o_do_normal"
-            #set outstring ">>>$instring"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method drain {transform_handle} {
-            return ""
-        }
-        method read {transform_handle bytes} {
-            set instring [tcl::encoding::convertfrom $o_enc $bytes]
-            set outstring "$o_do_colour$instring$o_do_normal"
-            return [tcl::encoding::convertto $o_enc $outstring]
-        }
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    #todo - something 
-    oo::class create rebuffer {
-        variable o_trecord 
-        variable o_enc
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize read write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            #set outstring [string map [list \n <N>] $instring]
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define rebuffer {
-        method meta_is_redirection {} {
-            return 0
-        }
-    }
-
-    #has slight buffering/withholding of lone training cr - we can't be sure that a cr at end of chunk is part of \r\n sequence 
-    oo::class create tounix {
-        variable o_trecord 
-        variable o_enc
-        variable o_last_char_was_cr
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-            set o_last_char_was_cr 0
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #don't use read
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            #set outstring [string map [list \n <N>] $instring]
-
-            if {$o_last_char_was_cr} {
-                set instring "\r$instring"
-            }
-
-            set outstring [string map {\r\n \n} $instring]
-            set lastchar [string range $outstring end end] 
-            if {$lastchar eq "\r"} {
-                set o_last_char_was_cr 1
-                set outstring [string range $outstring 0 end-1]
-            } else {
-                set o_last_char_was_cr 0
-            }
-            #review! can we detect eof here on the transform_handle?
-            #if eof, we don't want to strip a trailing \r
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define tounix {
-        method meta_is_redirection {} {
-            return $o_is_junction
-        }
-    }
-    #write to handle case where line-endings already \r\n too
-    oo::class create towindows  {
-        variable o_trecord 
-        variable o_enc
-        variable o_last_char_was_cr
-        variable o_is_junction
-        constructor {tf} {
-            set o_trecord $tf
-            set o_enc [dict get $tf -encoding]
-            set settingsdict [dict get $tf -settings]
-            if {[dict exists $tf -junction]} {
-                set o_is_junction [dict get $tf -junction]
-            } else {
-                set o_is_junction 0
-            }
-            set o_last_char_was_cr 0
-        }
-        method initialize {transform_handle mode} {
-            return [list initialize write finalize]
-        }
-        method finalize {transform_handle} {
-            my destroy
-        }
-        method watch {transform_handle events} {
-        }
-        #don't use read
-        method read {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-
-            set outstring $instring
-
-            return [encoding convertto $o_enc $outstring]
-        }
-        method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            #set outstring [string map [list \n <N>] $instring]
-
-            if {$o_last_char_was_cr} {
-                set instring "\r$instring"
-            }
-
-            set outstring [string map {\r\n \uFFFF} $instring]
-            set outstring [string map {\n \r\n} $outstring]
-            set outstring [string map {\uFFFF \r\n} $outstring]
-
-            set lastchar [string range $outstring end end] 
-            if {$lastchar eq "\r"} {
-                set o_last_char_was_cr 1
-                set outstring [string range $outstring 0 end-1]
-            } else {
-                set o_last_char_was_cr 0
-            }
-            #review! can we detect eof here on the transform_handle?
-            #if eof, we don't want to strip a trailing \r
-
-            return [encoding convertto $o_enc $outstring]
-            #return [encoding convertto utf-16le $outstring]
-        }
-    }
-    oo::define towindows {
-        method meta_is_redirection {} {
-            return $o_is_junction 
-        }
-    }
-
-    }
-}
-
-# ----------------------------------------------------------------------------
-#review float/sink metaphor.
-#perhaps something with the concept of upstream and downstream?
-#need concepts for push towards data, sit in middle where placed, and lag at tail of data stream. 
-## upstream for stdin is at the bottom of the stack and for stdout is the top of the stack.
-#upstream,neutral-upstream,downstream,downstream-aside,downstream-replace  (default neutral-upstream - require action 'stack' to use standard channel stacking concept and ignore other actions)
-#This is is a bit different from the float/sink metaphor which refers to the channel stacking order as opposed to the data-flow direction.
-#The idea would be that whether input or output 
-# upstream additions go to the side closest to the datasource
-# downstream additions go furthest from the datasource 
-# - all new additions go ahead of any diversions as the most upstream diversion is the current end of the stream in a way.
-# - this needs review regarding subsequent removal of the diversion and whether filters re-order in response.. 
-#    or if downstream & neutral additions are reclassified upon insertion if they land among existing upstreams(?) 
-# neutral-upstream goes to the datasource side of the neutral-upstream list. 
-#   No 'neutral' option provided so that we avoid the need to think forwards or backwards when adding stdin vs stdout shellfilter does the necessary pop/push reordering.
-#   No 'neutral-downstream' to reduce complexity.
-# downstream-replace & downstream-aside head downstream to the first diversion they encounter. ie these actions are no longer referring to the stack direction but only the dataflow direction.
-#
-# ----------------------------------------------------------------------------
-#
-# 'filters' are transforms that don't redirect
-# - limited range of actions to reduce complexity.
-# - any requirement not fulfilled by float,sink,sink-replace,sink-sideline should be done by multiple pops and pushes
-#
-#actions can float to top of filters or sink to bottom of filters
-#when action is of type sink, it can optionally replace or sideline the first non-filter it encounters (highest redirection on the stack.. any lower are starved of the stream anyway)
-# - sideline means to temporarily replace the item and keep a record, restoring if/when we are removed from the transform stack
-#
-##when action is of type float it can't replace or sideline anything. A float is added above any existing floats and they stay in the same order relative to each other,
-#but non-floats added later will sit below all floats.
-#(review - float/sink initially designed around output channels. For stdin the dataflow is reversed. implement float-aside etc?)
-#
-#
-#action: float sink sink-replace,sink-sideline
-#
-#
-## note - whether stack is for input or output we maintain it in the same direction - which is in sync with the tcl chan pop chan push concept.
-## 
-namespace eval shellfilter::stack {
-    namespace export {[a-z]*}
-    namespace ensemble create
-    #todo - implement as oo ?
-    variable pipelines [list]
-
-    proc items {} {
-        #review - stdin,stdout,stderr act as pre-existing pipelines, and we can't create a new one with these names - so they should probably be autoconfigured and listed..
-        # - but in what contexts? only when we find them in [chan names]?
-        variable pipelines
-        return [dict keys $pipelines]
-    }
-    proc item {pipename} {
-        variable pipelines
-        return [dict get $pipelines $pipename]
-    }
-    proc item_tophandle {pipename} {
-        variable pipelines
-        set handle "" 
-        if {[dict exists $pipelines $pipename stack]} {
-            set stack [dict get $pipelines $pipename stack]
-            set topstack [lindex $stack end] ;#last item in stack is top (for output channels anyway) review comment. input chans?
-            if {$topstack ne ""} {
-                if {[dict exists $topstack -handle]} {
-                    set handle [dict get $topstack -handle]
-                }
-            }
-        }
-        return $handle
-    }
-    proc status {{pipename *} args} {
-        variable pipelines
-        set pipecount [dict size $pipelines]
-        set tabletitle "$pipecount pipelines active"
-        set t [textblock::class::table new $tabletitle]
-        $t add_column -headers [list channel-ident]
-        $t add_column -headers [list device-info localchan]
-        $t configure_column 1 -header_colspans {3}
-        $t add_column -headers [list "" remotechan]
-        $t add_column -headers [list "" tid]
-        $t add_column -headers [list stack-info]
-        foreach k [dict keys $pipelines $pipename] {
-            set lc [dict get $pipelines $k device localchan]
-            set rc [dict get $pipelines $k device remotechan]
-            if {[dict exists $k device workertid]} {
-                set tid [dict get $pipelines $k device workertid]
-            } else {
-                set tid "-"
-            }
-            set stack [dict get $pipelines $k stack]
-            if {![llength $stack]} {
-                    set  stackinfo "" 
-            } else {
-                set tbl_inner [textblock::class::table new]
-                $tbl_inner configure -show_edge 0
-                foreach rec $stack {
-                    set handle      [punk::lib::dict_getdef $rec -handle ""]
-                    set id          [punk::lib::dict_getdef $rec -id ""]
-                    set transform   [namespace tail [punk::lib::dict_getdef $rec -transform ""]]
-                    set settings    [punk::lib::dict_getdef $rec -settings ""]
-                    $tbl_inner add_row [list $id $transform $handle $settings]
-                }
-                set stackinfo [$tbl_inner print]
-                $tbl_inner destroy
-            }
-            $t add_row [list $k $lc $rc $tid $stackinfo]
-        }
-        set result [$t print]
-        $t destroy
-        return $result
-    }
-    proc status1 {{pipename *} args} {
-        variable pipelines
-
-        set pipecount [dict size $pipelines]
-        set tableprefix "$pipecount pipelines active\n"
-        foreach p [dict keys $pipelines] {
-            append tableprefix "    " $p \n
-        }
-        package require overtype
-        #todo -verbose
-        set table ""
-        set ac1 [string repeat " " 15]
-        set ac2 [string repeat " " 42]
-        set ac3 [string repeat " " 70]
-        append table "[overtype::left $ac1 channel-ident] "
-        append table "[overtype::left $ac2 device-info] "
-        append table "[overtype::left $ac3 stack-info]"
-        append table \n
-
-
-        set bc1 [string repeat " " 5]  ;#stack id
-        set bc2 [string repeat " " 25] ;#transform
-        set bc3 [string repeat " " 50] ;#settings
-
-        foreach k [dict keys $pipelines $pipename] {
-            set lc [dict get $pipelines $k device localchan]
-            if {[dict exists $k device workertid]} {
-                set tid [dict get $pipelines $k device workertid]
-            } else {
-                set tid ""
-            }
-
-
-            set col1 [overtype::left $ac1 $k]
-            set col2 [overtype::left $ac2 "localchan: $lc tid:$tid"]
-
-            set stack [dict get $pipelines $k stack]
-            if {![llength $stack]} {
-                    set col3 $ac3
-            } else {
-                set rec [lindex $stack 0]
-                set bcol1 [overtype::left $bc1 [dict get $rec -id]]
-                set bcol2 [overtype::left $bc2 [namespace tail [dict get $rec -transform]]]
-                set bcol3 [overtype::left $bc3 [dict get $rec -settings]]
-                set stackrow "$bcol1 $bcol2 $bcol3"
-                set col3 [overtype::left $ac3 $stackrow]
-            }
-
-            append table  "$col1 $col2 $col3\n"
-
-
-            foreach rec [lrange $stack 1 end] {
-                set col1 $ac1
-                set col2 $ac2
-                if {[llength $rec]} {
-                    set bc1 [overtype::left $bc1 [dict get $rec -id]]
-                    set bc2 [overtype::left $bc2 [namespace tail [dict get $rec -transform]]]
-                    set bc3 [overtype::left $bc3 [dict get $rec -settings]]
-                    set stackrow "$bc1 $bc2 $bc3"
-                    set col3 [overtype::left $ac3 $stackrow]
-                } else {
-                    set col3 $ac3
-                }
-                append table  "$col1 $col2 $col3\n"
-            }
-
-        }
-        return $tableprefix$table
-    }
-    #used for output channels - we usually want to sink redirections below the floaters and down to topmost existing redir 
-    proc _get_stack_floaters {stack} {
-        set floaters [list]
-        foreach t [lreverse $stack] {
-            switch -- [dict get $t -action] {
-                float {
-                    lappend floaters $t
-                }
-                default {
-                    break
-                }
-            }
-        }
-        return [lreverse $floaters]
-    }
-
-
-
-    #for output-channel sinking
-    proc _get_stack_top_redirection {stack} {
-        set r 0 ;#reverse index
-        foreach t [lreverse $stack] {
-            set obj [dict get $t -obj]
-            if {[$obj meta_is_redirection]} {
-                set idx [expr {[llength $stack] - ($r + 1) }] ;#forward index
-                return [list index $idx record $t]
-            }
-            incr r
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-    #exclude float-locked, locked, sink-locked
-    proc _get_stack_top_redirection_replaceable {stack} {
-        set r 0 ;#reverse index
-        foreach t [lreverse $stack] {
-            set action [dict get $t -action]
-            if {![string match "*locked*" $action]} {
-                set obj [dict get $t -obj]
-                if {[$obj meta_is_redirection]} {
-                    set idx [expr {[llength $stack] - ($r + 1) }] ;#forward index
-                    return [list index $idx record $t]
-                }
-            }
-            incr r
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-
-
-    #for input-channels ? 
-    proc _get_stack_bottom_redirection {stack} {
-        set i 0 
-        foreach t $stack {
-            set obj [dict get $t -obj]
-            if {[$obj meta_is_redirection]} {
-                return [linst index $i record $t]
-            }
-            incr i
-        }
-        #not found
-        return [list index -1 record {}]
-    }
-
-
-    proc get_next_counter {pipename} {
-        variable pipelines
-        #use dictn incr ?
-        set counter [dict get $pipelines $pipename counter]
-        incr counter
-        dict set pipelines $pipename counter $counter
-        return $counter
-    }
-
-    proc unwind {pipename} {
-        variable pipelines
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $pipelines $pipename device localchan]
-        foreach tf [lreverse $stack] {
-            chan pop $localchan
-        }
-        dict set pipelines $pipename [list]
-    }
-    #todo
-    proc delete {pipename {wait 0}} {
-        variable pipelines
-        set pipeinfo [dict get $pipelines $pipename]
-        set deviceinfo [dict get $pipeinfo device] 
-        set localchan [dict get $deviceinfo localchan]
-        unwind $pipename
-
-        #release associated thread
-        set tid       [dict get $deviceinfo workertid]
-        if {$wait} {
-            thread::release -wait $tid
-        } else {
-            thread::release $tid
-        }
-
-        #Memchan closes without error - tcl::chan::fifo2 raises something like 'can not find channel named "rc977"' - REVIEW. why?
-        catch {chan close $localchan}
-    }
-    #review - proc name clarity is questionable. remove_stackitem? 
-    proc remove {pipename remove_id} {
-        variable pipelines
-        if {![dict exists $pipelines $pipename]} {
-            puts stderr "WARNING: shellfilter::stack::remove pipename '$pipename' not found in pipelines dict: '$pipelines' [info level -1]"
-            return
-        }
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $pipelines $pipename device localchan]
-        set posn 0
-        set idposn -1
-        set asideposn -1
-        foreach  t $stack {
-            set id [dict get $t -id]
-            if {$id eq $remove_id} {
-                set idposn $posn
-                break
-            }
-            #look into asides (only can be one for now)
-            if {[llength [dict get $t -aside]]} {
-                set a [dict get $t -aside]
-                if {[dict get $a -id] eq $remove_id} {
-                    set asideposn $posn 
-                    break
-                }
-            }
-            incr posn
-        }
-
-        if {$asideposn > 0} {
-            #id wasn't found directly in stack, but in an -aside. we don't need to pop anything - just clear this aside record
-            set container [lindex $stack $asideposn]
-            dict set container -aside {}
-            lset stack $asideposn $container 
-            dict set pipelines $pipename stack $stack
-        } else {
-            if {$idposn < 0} {
-                ::shellfilter::log::write shellfilter "ERROR shellfilter::stack::remove $pipename id '$remove_id' not found"
-                puts stderr "|WARNING>shellfilter::stack::remove $pipename id '$remove_id' not found"
-                return 0
-            }
-            set removed_item [lindex $stack $idposn] 
-
-            #include idposn in poplist
-            set poplist [lrange $stack $idposn end]
-            set stack [lreplace $stack $idposn end]
-            #pop all chans before adding anything back in!
-            foreach p $poplist {
-                chan pop $localchan
-            }
-
-            if {[llength [dict get $removed_item -aside]]} {
-                set restore [dict get $removed_item -aside]
-                set t [dict get $restore -transform]
-                set tsettings [dict get $restore -settings]
-                set obj [$t new $restore]
-                set h [chan push $localchan $obj]
-                dict set restore -handle $h
-                dict set restore -obj $obj
-                lappend stack $restore
-            }
-
-            #put popped back except for the first one, which we want to remove
-            foreach p [lrange $poplist 1 end] {
-                set t [dict get $p -transform]
-                set tsettings [dict get $p -settings]
-                set obj [$t new $p]
-                set h [chan push $localchan $obj]
-                dict set p -handle $h
-                dict set p -obj $obj
-                lappend stack $p
-            }
-            dict set pipelines $pipename stack $stack
-        }
-        #JMNJMN 2025 review!
-        #show_pipeline $pipename -note "after_remove $remove_id"
-        return 1
-    }
-
-    #pop a number of items of the top of the stack, add our transform record, and add back all (or the tail of poplist if pushstartindex > 0)
-    proc insert_transform {pipename stack transformrecord poplist {pushstartindex 0}} {
-        variable pipelines
-        set bottom_pop_posn [expr {[llength $stack] - [llength $poplist]}]
-        set poplist [lrange $stack $bottom_pop_posn end]
-        set stack [lreplace $stack $bottom_pop_posn end]
-
-        set localchan [dict get $pipelines $pipename device localchan]
-        foreach p [lreverse $poplist] {
-            chan pop $localchan
-        }
-        set transformname [dict get $transformrecord -transform]
-        set transformsettings [dict get $transformrecord -settings]
-        set obj [$transformname new $transformrecord]
-        set h [chan push $localchan $obj] 
-        dict set transformrecord -handle $h
-        dict set transformrecord -obj $obj
-        dict set transformrecord -note "insert_transform"
-        lappend stack $transformrecord
-        foreach p [lrange $poplist $pushstartindex end] {
-            set t [dict get $p -transform]
-            set tsettings [dict get $p -settings]
-            set obj [$t new $p]
-            set h [chan push $localchan $obj]
-            #retain previous -id  - code that added it may have kept reference and not expecting it to change
-            dict set p -handle $h
-            dict set p -obj $obj
-            dict set p -note "re-added"
-
-            lappend stack $p
-        }
-        return $stack
-    }
-
-    #fifo2 
-    proc new {pipename args} {
-        variable pipelines
-        if {($pipename in [dict keys $pipelines]) || ($pipename in [chan names])} {
-            error "shellfilter::stack::new error: pipename '$pipename' already exists"
-        }
-
-        set opts [dict merge {-settings {}} $args] 
-        set defaultsettings [dict create -raw 1 -buffering line -direction out]
-        set targetsettings [dict merge $defaultsettings [dict get $opts -settings]]
-
-        set direction [dict get $targetsettings -direction]
-
-        #pipename is the source/facility-name ?
-        if {$direction eq "out"} {
-            set pipeinfo [shellfilter::pipe::open_out $pipename $targetsettings]
-        } else {
-            puts stderr "|jn> pipe::open_in $pipename $targetsettings"
-            set pipeinfo [shellfilter::pipe::open_in $pipename $targetsettings]
-        }
-        #open_out/open_in will configure buffering based on targetsettings
-
-        set program_chan [dict get $pipeinfo localchan]
-        set worker_chan [dict get $pipeinfo remotechan]
-        set workertid [dict get $pipeinfo workertid]
-
-
-        set deviceinfo [dict create pipename $pipename localchan $program_chan remotechan $worker_chan workertid $workertid direction $direction]
-        dict set pipelines $pipename [list counter 0 device $deviceinfo stack [list]]
-
-        return $deviceinfo
-    }
-    #we 'add' rather than 'push' because transforms can float,sink and replace/sideline so they don't necessarily go to the top of the transform stack
-    proc add {pipename transformname args} {
-        variable pipelines
-        #chan names doesn't reflect available channels when transforms are in place
-        #e.g stdout may exist but show as something like file191f5b0dd80
-        if {($pipename ni [dict keys $pipelines])} {
-            if {[catch {eof $pipename} is_eof]} {
-                error "shellfilter::stack::add no existing chan or pipename matching '$pipename' in channels:[chan names] or pipelines:$pipelines use stdin/stderr/stdout or shellfilter::stack::new <pipename>"
-            }
-        }
-        set args [dict merge {-action "" -settings {}} $args]
-        set action [dict get $args -action]
-        set transformsettings [dict get $args -settings]
-        if {[string first "::" $transformname] < 0} {
-            set transformname ::shellfilter::chan::$transformname
-        }
-        if {![llength [info commands $transformname]]} {
-            error "shellfilter::stack::push unknown transform '$transformname'"
-        }
-
-
-        if {![dict exists $pipelines $pipename]} {
-            #pipename must be in chan names - existing device/chan
-            #record a -read and -write end even if the device is only being used as one or the other
-            set deviceinfo [dict create pipename $pipename localchan $pipename remotechan {}]
-            dict set pipelines $pipename [list counter 0 device $deviceinfo stack [list]]
-        } else {
-            set deviceinfo [dict get $pipelines $pipename device]
-        }
-
-        set id [get_next_counter $pipename] 
-        set stack [dict get $pipelines $pipename stack]
-        set localchan [dict get $deviceinfo localchan]
-
-        #we redundantly store chan in each transform -  makes debugging clearer
-        # -encoding similarly could be stored only at the pipeline level (or even queried directly each filter-read/write),
-        # but here it may help detect unexpected changes during lifetime of the stack and avoids the chance of callers incorrectly using the transform handle?)
-        # jn
-        set transform_record [list -id $id -chan $pipename -encoding [chan configure $localchan -encoding] -transform $transformname -aside {} {*}$args]
-        switch -glob -- $action {
-            float - float-locked {
-                set obj [$transformname new $transform_record]
-                set h [chan push $localchan $obj]
-                dict set transform_record -handle $h
-                dict set transform_record -obj $obj
-                lappend stack $transform_record
-            }
-            "" - locked {
-                set floaters [_get_stack_floaters $stack]
-                if {![llength $floaters]} {
-                    set obj [$transformname new $transform_record]
-                    set h [chan push $localchan $obj]
-                    dict set transform_record -handle $h
-                    dict set transform_record -obj $obj
-                    lappend stack $transform_record
-                } else {
-                    set poplist $floaters
-                    set stack [insert_transform $pipename $stack $transform_record $poplist]
-                }
-            }
-            "sink*" {
-                set redirinfo [_get_stack_top_redirection $stack]
-                set idx_existing_redir [dict get $redirinfo index]
-                if {$idx_existing_redir == -1} {
-                    #no existing redirection transform on the stack
-                    #pop everything.. add this record as the first redirection on the stack
-                    set poplist $stack
-                    set stack [insert_transform $pipename $stack $transform_record $poplist]
-                } else {
-                    switch -glob -- $action {
-                        "sink-replace" {
-                            #include that index in the poplist
-                            set poplist [lrange $stack $idx_existing_redir end]
-                            #pop all from idx_existing_redir  to end, but put back 'lrange $poplist 1 end'
-                            set stack [insert_transform $pipename $stack $transform_record $poplist 1]
-                        }
-                        "sink-aside*" {
-                            set existing_redir_record [lindex $stack $idx_existing_redir]
-                            if {[string match "*locked*" [dict get $existing_redir_record -action]]} {
-                                set put_aside 0
-                                #we can't aside this one - sit above it instead.
-                                set poplist [lrange $stack $idx_existing_redir+1 end]
-                                set stack [lrange $stack 0 $idx_existing_redir]
-                            } else {
-                                set put_aside 1
-                                dict set transform_record -aside [lindex $stack $idx_existing_redir]
-                                set poplist [lrange $stack $idx_existing_redir end]
-                                set stack [lrange $stack 0 $idx_existing_redir-1]
-                            }
-                            foreach p $poplist {
-                                chan pop $localchan
-                            }
-                            set transformname [dict get $transform_record -transform]
-                            set transform_settings [dict get $transform_record -settings]
-                            set obj [$transformname new $transform_record]
-                            set h [chan push $localchan $obj] 
-                            dict set transform_record -handle $h
-                            dict set transform_record -obj $obj
-                            dict set transform_record -note "insert_transform-with-aside"
-                            lappend stack $transform_record
-                            #add back poplist *except* the one we transferred into -aside (if we were able)
-                            foreach p [lrange $poplist $put_aside end] {
-                                set t [dict get $p -transform]
-                                set tsettings [dict get $p -settings]
-                                set obj [$t new $p]
-                                set h [chan push $localchan $obj]
-                                #retain previous -id  - code that added it may have kept reference and not expecting it to change
-                                dict set p -handle $h
-                                dict set p -obj $obj
-                                dict set p -note "re-added-after-sink-aside"
-                                lappend stack $p
-                            }
-                        }
-                        default {
-                            #plain "sink"
-                            #we only sink to the topmost redirecting filter - which makes sense for an output channel
-                            #For stdin.. this is more problematic as we're more likely to want to intercept the bottom most redirection.
-                            #todo - review. Consider making default insert position for input channels to be at the source... and float/sink from there.
-                            # - we don't currently know from the stack api if adding input vs output channel - so this needs work to make intuitive.
-                            # consider splitting stack::add to stack::addinput stack::addoutput to split the different behaviour
-                            set poplist [lrange $stack $idx_existing_redir+1 end]
-                            set stack [insert_transform $pipename $stack $transform_record $poplist]
-                        }
-                    }
-                }
-            }
-            default {
-                error "shellfilter::stack::add unimplemented action '$action'"
-            }
-        }
-
-        dict set pipelines $pipename stack $stack
-        #puts stdout "=="
-        #puts stdout "==>stack: $stack"
-        #puts stdout "=="
-
-        #JMNJMN
-        #show_pipeline $pipename -note "after_add $transformname $args"
-        return $id
-    }
-    proc show_pipeline {pipename args} {
-        variable pipelines
-        set stack [dict get $pipelines $pipename stack]
-        set tag "SHELLFILTER::STACK"
-        #JMN - load from config
-        #::shellfilter::log::open $tag {-syslog 127.0.0.1:514}
-        if {[catch {
-            ::shellfilter::log::open $tag {-syslog ""}
-        } err]} {
-            #e.g safebase interp can't load required modules such as shellthread (or Thread)
-            puts stderr "shellfilter::show_pipeline cannot open log"
-            return
-        }
-        ::shellfilter::log::write $tag "transform stack for $pipename $args"
-        foreach tf $stack {
-            ::shellfilter::log::write $tag " $tf"
-        }
-
-    }
-}
-
-
-namespace eval shellfilter {
-    variable sources [list]
-    variable stacks [dict create]
-
-    proc ::shellfilter::redir_channel_to_log {chan args} {
-        variable sources
-        set default_logsettings [dict create \
-            -tag redirected_$chan -syslog "" -file ""\
-            ]
-        if {[dict exists $args -action]} {
-            set action [dict get $args -action]
-        } else {
-            # action "sink" is a somewhat reasonable default for an output redirection transform
-            # but it can make it harder to configure a plain ordered stack if the user is not expecting it, so we'll default to stack 
-            # also.. for stdin transform sink makes less sense.. 
-            #todo - default "stack" instead of empty string
-            set action ""
-        }
-        if {[dict exists $args -settings]} {
-            set logsettings [dict get $args -settings]
-        } else {
-            set logsettings {}
-        }
-
-        set logsettings [dict merge $default_logsettings $logsettings]
-        set tag [dict get $logsettings -tag]
-        if {$tag ni $sources} {
-            lappend sources $tag
-        }
-
-        set id [shellfilter::stack::add $chan logonly -action $action -settings $logsettings]
-        return $id
-    }
-
-    proc ::shellfilter::redir_output_to_log {tagprefix args} {
-        variable sources
-
-        set default_settings [list -tag ${tagprefix} -syslog "" -file ""]
-
-        set opts [dict create -action "" -settings {}]
-        set opts [dict merge $opts $args]
-        set optsettings [dict get $opts -settings]
-        set settings [dict merge $default_settings $optsettings]
-
-        set tag [dict get $settings -tag]
-        if {$tag ne $tagprefix} {
-            error "shellfilter::redir_output_to_log -tag value must match supplied tagprefix:'$tagprefix'. Omit -tag, or make it the same. It will automatically be suffixed with stderr and stdout. Use redir_channel_to_log if you want to separately configure each channel" 
-        }
-        lappend sources ${tagprefix}stdout ${tagprefix}stderr 
-
-        set stdoutsettings $settings
-        dict set stdoutsettings -tag ${tagprefix}stdout
-        set stderrsettings $settings
-        dict set stderrsettings -tag ${tagprefix}stderr
-
-        set idout [redir_channel_to_log stdout -action [dict get $opts -action] -settings $stdoutsettings]
-        set iderr [redir_channel_to_log stderr -action [dict get $opts -action] -settings $stderrsettings]
-
-        return [list $idout $iderr]
-    } 
-
-    #eg try: set v [list #a b c]
-    #vs set v {#a b c}
-    proc list_is_canonical l {
-        #courtesy DKF via wiki https://wiki.tcl-lang.org/page/BNF+for+Tcl
-        if {[catch {llength $l}]} {return 0}
-        string equal $l [list {*}$l]
-    }
-
-    #return a dict keyed on numerical list index showing info about each element 
-    # - particularly 
-    #  'wouldbrace' to indicate that the item would get braced by Tcl when added to another list
-    #  'head_tail_chars' to show current first and last character  (in case it's wrapped e.g in double or single quotes or an existing set of braces)
-    proc list_element_info {inputlist} {
-        set i 0
-        set info [dict create]
-        set testlist [list]
-        foreach original_item $inputlist {
-            #---
-            # avoid sharing internal rep with original items in the list (avoids shimmering of rep in original list for certain items such as paths)
-            unset -nocomplain item
-            append item $original_item {}
-            #---
-
-            set iteminfo [dict create]
-            set itemlen [string length $item]
-            lappend testlist $item
-            set tcl_len [string length $testlist]
-            set diff [expr {$tcl_len - $itemlen}]
-            if {$diff == 0} {
-                dict set iteminfo wouldbrace 0
-                dict set iteminfo wouldescape 0
-            } else {
-                #test for escaping vs bracing!
-                set testlistchars [split $testlist ""]
-                if {([lindex $testlistchars 0] eq "\{") && ([lindex $testlistchars end] eq "\}")} {
-                    dict set iteminfo wouldbrace 1
-                    dict set iteminfo wouldescape 0
-                } else {
-                    dict set iteminfo wouldbrace 0
-                    dict set iteminfo wouldescape 1
-                }
-            }
-            set testlist [list]
-            set charlist [split $item ""]
-            set char_a [lindex $charlist 0]
-            set char_b [lindex $charlist 1]
-            set char_ab ${char_a}${char_b}
-            set char_y [lindex $charlist end-1]
-            set char_z [lindex $charlist end]
-            set char_yz ${char_y}${char_z}
-
-            if { ("{" in $charlist) || ("}" in $charlist) } {
-                dict set iteminfo has_braces 1
-                set innerchars [lrange $charlist 1 end-1]
-                if {("{" in $innerchars) || ("}" in $innerchars)} {
-                    dict set iteminfo has_inner_braces 1
-                } else {
-                    dict set iteminfo has_inner_braces 0
-                }
-            } else {
-                dict set iteminfo has_braces 0
-                dict set iteminfo has_inner_braces 0
-            }
-
-            #todo - brace/char counting to determine if actually 'wrapped'
-            #e.g we could have list element {((abc)} - which appears wrapped if only looking at first and last chars.
-            #also {(x) (y)} as a list member.. how to treat?
-            if {$itemlen <= 1} {
-                dict set iteminfo apparentwrap "not"
-            } else {
-                #todo - switch on $char_a$char_z
-                if {($char_a eq {"}) && ($char_z eq {"})} {
-                    dict set iteminfo apparentwrap "doublequotes"
-                } elseif {($char_a eq "'") && ($char_z eq "'")} {
-                    dict set iteminfo apparentwrap "singlequotes"
-                } elseif {($char_a eq "(") && ($char_z eq ")")} {
-                    dict set iteminfo apparentwrap "brackets"
-                } elseif {($char_a eq "\{") && ($char_z eq "\}")} {
-                    dict set iteminfo apparentwrap "braces"
-                } elseif {($char_a eq "^") && ($char_z eq "^")} {
-                    dict set iteminfo apparentwrap "carets"
-                } elseif {($char_a eq "\[") && ($char_z eq "\]")} {
-                    dict set iteminfo apparentwrap "squarebrackets"
-                } elseif {($char_a eq "`") && ($char_z eq "`")} {
-                    dict set iteminfo apparentwrap "backquotes"
-                } elseif {($char_a eq "\n") && ($char_z eq "\n")} {
-                    dict set iteminfo apparentwrap "lf-newline"
-                } elseif {($char_ab eq "\r\n") && ($char_yz eq "\r\n")} {
-                    dict set iteminfo apparentwrap "crlf-newline"
-                } else {
-                    dict set iteminfo apparentwrap "not-determined"
-                }
-
-            }
-            dict set iteminfo wrapbalance "unknown"  ;#a hint to caller that apparentwrap is only a guide. todo - possibly make wrapbalance indicate 0 for unbalanced.. and positive numbers for outer-count of wrappings.
-            #e.g {((x)} == 0  {((x))} == 1 {(x) (y (z))} == 2
-            dict set iteminfo head_tail_chars [list $char_a $char_z]
-            set namemap [list \
-                 \r cr\
-                 \n lf\
-                 {"} doublequote\
-                 {'} singlequote\
-                 "`" backquote\
-                 "^" caret\
-                 \t tab\
-                 " " sp\
-                 "\[" lsquare\
-                 "\]" rsquare\
-                 "(" lbracket\
-                 ")" rbracket\
-                 "\{" lbrace\
-                 "\}" rbrace\
-                 \\ backslash\
-                 / forwardslash\
-                 ]
-            if {[string length $char_a]} {
-                set char_a_name [string map $namemap $char_a]
-            } else {
-                set char_a_name "emptystring"
-            }
-            if {[string length $char_z]} {
-                set char_z_name [string map $namemap $char_z]
-            } else {
-                set char_z_name "emptystring"
-            }
-
-            dict set iteminfo head_tail_names [list $char_a_name $char_z_name]
-            dict set iteminfo len $itemlen
-            dict set iteminfo difflen $diff ;#2 for braces, 1 for quoting?, or 0.
-            dict set info $i $iteminfo
-            incr i
-        }
-        return $info
-    }
-
-
-    #parse bracketed expression (e.g produced by vim "shellxquote=(" ) into a tcl (nested) list
-    #e.g {(^c:/my spacey/path^ >^somewhere^)} 
-    #e.g {(blah (etc))}"  
-    #Result is always a list - even if only one toplevel set of brackets - so it may need [lindex $result 0] if input is the usual case of {( ...)}  
-    # - because it also supports the perhaps less likely case of: {( ...) unbraced (...)} etc
-    # Note that 
-    #maintenance warning - duplication in branches for bracketed vs unbracketed!
-    proc parse_cmd_brackets {str} {
-        #wordwrappers currently best suited to non-bracket entities - no bracket matching within - anything goes until end-token reached.
-        # - but.. they only take effect where a word can begin. so a[x y]  may be split at the space unless it's within some other wraper e.g " a[x y]" will not break at the space
-        # todo - consider extending the in-word handling of word_bdepth which is currently only applied to ()  i.e aaa(x y) is supported but aaa[x y] is not as the space breaks the word up.
-        set wordwrappers [list \
-            "\"" [list "\"" "\"" "\""]\
-            {^} [list "\"" "\"" "^"]\
-            "'" [list "'" "'" "'"]\
-            "\{" [list "\{" "\}" "\}"]\
-            {[} [list {[} {]} {]}]\
-            ] ;#dict mapping start_character to {replacehead replacetail expectedtail}
-        set shell_specials [list "|" "|&" "<" "<@" "<<" ">" "2>" ">&" ">>" "2>>" ">>&" ">@" "2>@" "2>@1" ">&@" "&" "&&" ] ;#words/chars that may precede an opening bracket but don't merge with the bracket to form a word.    
-        #puts "pb:$str"
-        set in_bracket 0
-        set in_word 0
-        set word ""
-        set result {}
-        set word_bdepth 0 
-        set word_bstack [list]
-        set wordwrap "" ;#only one active at a time
-        set bracketed_elements [dict create]
-        foreach char [split $str ""] {
-            #puts "c:$char bracketed:$bracketed_elements"
-            if {$in_bracket > 0} {
-                if {$in_word} {
-                    if {[string length $wordwrap]} {
-                        #anything goes until end-char
-                        #todo - lookahead and only treat as closing if before a space or ")" ?
-                        lassign [dict get $wordwrappers $wordwrap] _open closing endmark
-                        if {$char eq $endmark} {
-                            set wordwrap ""
-                            append word $closing
-                            dict lappend bracketed_elements $in_bracket $word
-                            set word ""
-                            set in_word 0
-                        } else {
-                            append word $char
-                        }
-                    } else {
-                        if {$word_bdepth == 0} {
-                            #can potentially close off a word - or start a new one if word-so-far is a shell-special
-                            if {$word in $shell_specials} {
-                                if {$char eq ")"} {
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set  subresult [dict get $bracketed_elements $in_bracket]
-                                    dict set bracketed_elements $in_bracket [list]
-                                    incr in_bracket -1
-                                    if {$in_bracket == 0} {
-                                        lappend result $subresult
-                                    } else {
-                                        dict lappend bracketed_elements $in_bracket $subresult
-                                    }
-                                    set word ""
-                                    set in_word 0
-                                } elseif {[regexp {[\s]} $char]} {
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {    
-                                    dict lappend bracketed_elements $in_bracket $word 
-                                    set word ""
-                                    set in_word 0
-                                    incr in_bracket
-                                } else {
-                                    #at end of shell-specials is another point to look for word started by a wordwrapper char
-                                    #- expect common case of things like >^/my/path^
-                                    if {$char in [dict keys $wordwrappers]} {
-                                        dict lappend bracketed_elements $in_bracket $word 
-                                        set word ""
-                                        set in_word 1 ;#just for explicitness.. we're straight into the next word.
-                                        set wordwrap $char
-                                        set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                                    } else {
-                                        #something unusual.. keep going with word!
-                                        append word $char
-                                    }
-                                }
-                            } else {
-                            
-                                if {$char eq ")"} {
-                                    dict lappend bracketed_elements $in_bracket $word
-                                    set  subresult [dict get $bracketed_elements $in_bracket]
-                                    dict set bracketed_elements $in_bracket [list]
-                                    incr in_bracket -1
-                                    if {$in_bracket == 0} {
-                                        lappend result $subresult
-                                    } else {
-                                        dict lappend bracketed_elements $in_bracket $subresult
-                                    }
-                                    set word ""
-                                    set in_word 0
-                                } elseif {[regexp {[\s]} $char]} {
-                                    dict lappend bracketed_elements $in_bracket $word
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {
-                                    #ordinary word up-against and opening bracket - brackets are part of word.
-                                    incr word_bdepth 
-                                    append word "("
-                                } else {
-                                    append word $char
-                                }
-                            }
-                        } else {
-                            #currently only () are used for word_bdepth - todo  add all or some wordwrappers chars so that the word_bstack can have multiple active.
-                            switch -- $char {
-                                "(" {
-                                    incr word_bdepth
-                                    lappend word_bstack $char
-                                    append word $char 
-                                }
-                                ")" {
-                                    incr word_bdepth -1
-                                    set word_bstack [lrange $word_bstack 0 end-1]
-                                    append word $char 
-                                }
-                                default {
-                                    #spaces and chars added to word as it's still in a bracketed section
-                                    append word $char
-                                }
-                            }
-                        }
-                    }
-                } else {
-                    
-                    if {$char eq "("} {
-                        incr in_bracket
-                        
-                    } elseif {$char eq ")"} {
-                        set subresult [dict get $bracketed_elements $in_bracket]
-                        dict set bracketed_elements $in_bracket [list]
-                        incr in_bracket -1
-                        if {$in_bracket == 0} {
-                            lappend result $subresult
-                        } else {
-                            dict lappend bracketed_elements $in_bracket $subresult
-                        }
-                    } elseif {[regexp {[\s]} $char]} {
-                        #
-                    } else {
-                        #first char of word - look for word-wrappers
-                        if {$char in [dict keys $wordwrappers]} {
-                            set wordwrap $char
-                            set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                        } else {
-                            set word $char
-                        }
-                        set in_word 1
-                    }
-                }
-            } else {
-                if {$in_word} {
-                    if {[string length $wordwrap]} {
-                        lassign [dict get $wordwrappers $wordwrap] _open closing endmark
-                        if {$char eq $endmark} {
-                            set wordwrap ""
-                            append word $closing
-                            lappend result $word
-                            set word ""
-                            set in_word 0
-                        } else {
-                            append word $char
-                        }
-                    } else {
-                        
-                        if {$word_bdepth == 0} {
-                            if {$word in $shell_specials} {
-                                if {[regexp {[\s]} $char]} {
-                                    lappend result $word 
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {    
-                                    lappend result $word 
-                                    set word ""
-                                    set in_word 0
-                                    incr in_bracket
-                                } else {
-                                    #at end of shell-specials is another point to look for word started by a wordwrapper char
-                                    #- expect common case of things like >^/my/path^
-                                    if {$char in [dict keys $wordwrappers]} {
-                                        lappend result $word 
-                                        set word ""
-                                        set in_word 1 ;#just for explicitness.. we're straight into the next word.
-                                        set wordwrap $char
-                                        set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                                    } else {
-                                        #something unusual.. keep going with word!
-                                        append word $char
-                                    }
-                                }
-                        
-                            } else {
-                                if {[regexp {[\s)]} $char]} {
-                                    lappend result $word
-                                    set word ""
-                                    set in_word 0
-                                } elseif {$char eq "("} {
-                                    incr word_bdepth
-                                    append word $char
-                                } else {
-                                append word $char
-                                }
-                            }
-                        } else {
-                            switch -- $char {
-                                "(" {
-                                    incr word_bdepth
-                                    append word $char
-                                }
-                                ")" {
-                                    incr word_bdepth -1
-                                    append word $char
-                                }
-                                default {
-                                    append word $char
-                                }
-                            }
-                        }
-                    }
-                } else {
-                    if {[regexp {[\s]} $char]} {
-                        #insig whitespace(?)
-                    } elseif {$char eq "("} {
-                        incr in_bracket
-                        dict set bracketed_elements $in_bracket [list]
-                    } elseif {$char eq ")"} {
-                        error "unbalanced bracket - unable to proceed result so far: $result bracketed_elements:$bracketed_elements"
-                    } else {
-                        #first char of word - look for word-wrappers
-                        if {$char in [dict keys $wordwrappers]} {
-                            set wordwrap $char
-                            set word [lindex [dict get $wordwrappers $char] 0] ;#replace trigger char with the start value it maps to.
-                        } else {
-                            set word $char
-                        }
-                        set in_word 1
-                    }
-                }
-            }
-            #puts "----$bracketed_elements"
-        }
-        if {$in_bracket > 0} {
-            error "shellfilter::parse_cmd_brackets missing close bracket. input was '$str'"
-        }
-        if {[dict exists $bracketed_elements 0]} {
-            #lappend result [lindex [dict get $bracketed_elements 0] 0]
-            lappend result [dict get $bracketed_elements 0]
-        }
-        if {$in_word} {
-            lappend result $word
-        }
-        return $result
-    }
-
-    #only double quote if argument not quoted with single or double quotes
-    proc dquote_if_not_quoted {a} {
-        set wrapchars [string cat [string range $a 0 0] [string range $a end end]]
-        switch -- $wrapchars {
-            {""} - {''} {
-                return $a
-            }
-            default {
-                set newinner [string map [list {"} "\\\""] $a]
-                return "\"$newinner\""
-            }
-        }
-    }
-
-    #proc dquote_if_not_bracketed/braced? 
-
-    #wrap in double quotes if not double-quoted
-    proc dquote_if_not_dquoted {a} {
-        set wrapchars [string cat [string range $a 0 0] [string range $a end end]]
-        switch -- $wrapchars {
-            {""} {
-                return $a
-            }
-            default {
-                #escape any inner quotes..
-                set newinner [string map [list {"} "\\\""] $a]
-                return "\"$newinner\""
-            }
-        }
-    }
-    proc dquote {a} {
-        #escape any inner quotes..
-        set newinner [string map [list {"} "\\\""] $a]
-        return "\"$newinner\""
-    }
-    proc get_scriptrun_from_cmdlist_dquote_if_not {cmdlist {shellcmdflag ""}} {
-        set scr [auto_execok "script"]
-        if {[string length $scr]} {
-            #set scriptrun "( $c1 [lrange $cmdlist 1 end] )"
-            set arg1 [lindex $cmdlist 0]
-            if {[string first " " $arg1]>0} {
-                set c1 [dquote_if_not_quoted $arg1]
-                #set c1 "\"$arg1\""
-            } else {
-                set c1 $arg1
-            }
-
-            if {[string length $shellcmdflag]} {
-                set scriptrun "$shellcmdflag \$($c1 "
-            } else {
-                set scriptrun "\$($c1 "
-            }
-            #set scriptrun "$c1 "
-            foreach a [lrange $cmdlist 1 end] {
-                #set a [string map [list "/" "//"] $a]
-                #set a [string map [list "\"" "\\\""] $a]
-                if {[string first " " $a] > 0} {
-                    append scriptrun [dquote_if_not_quoted $a]
-                } else {
-                    append scriptrun $a
-                }
-                append scriptrun " "
-            }
-            set scriptrun [string trim $scriptrun]
-            append scriptrun ")"
-            #return [list $scr -q -e -c $scriptrun /dev/null]
-            return [list $scr -e -c $scriptrun /dev/null]
-        } else {
-            return $cmdlist
-        }
-    }
-
-    proc ::shellfilter::trun {commandlist args} {
-        #jmn
-    }
-
-
-    # run a command (or tcl script) with tees applied to stdout/stderr/stdin (or whatever channels are being used) 
-    # By the point run is called - any transforms should already be in place on the channels if they're needed.
-    # The tees will be inline with none,some or all of those transforms depending on how the stack was configured
-    #  (upstream,downstream configured via -float,-sink etc)
-    proc ::shellfilter::run {commandlist args} {
-        #must be a list. If it was a shell commandline string. convert it elsewhere first.
-
-        variable sources
-        set runtag "shellfilter-run"
-        #set tid [::shellfilter::log::open $runtag [list -syslog 127.0.0.1:514]]
-        set tid [::shellfilter::log::open $runtag [list -syslog ""]]
-        if {[catch {llength $commandlist} listlen]} {
-            set listlen "<not-a-tcl-list>"
-        }
-        ::shellfilter::log::write $runtag " commandlist:'$commandlist' listlen:$listlen strlen:[string length $commandlist]"
-
-        #flush stdout
-        #flush stderr 
-
-        #adding filters with sink-aside will temporarily disable the existing redirection
-        #All stderr/stdout from the shellcommand will now tee to the underlying stderr/stdout as well as the configured syslog
-
-        set defaults [dict create \
-            -teehandle command \
-            -outchan stdout \
-            -errchan stderr \
-            -inchan stdin \
-            -tclscript 0 \
-            ]
-        set opts                    [dict merge $defaults $args]
-
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set outchan                 [dict get $opts -outchan]
-        set errchan                 [dict get $opts -errchan]
-        set inchan                  [dict get $opts -inchan]
-        set teehandle               [dict get $opts -teehandle]
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set is_script               [dict get $opts -tclscript]
-        dict unset opts -tclscript ;#don't pass it any further
-        # -- --- --- --- --- --- --- --- --- --- --- --- --- ---
-        set teehandle_out ${teehandle}out   ;#default commandout
-        set teehandle_err ${teehandle}err
-        set teehandle_in ${teehandle}in
-
-
-        #puts stdout "shellfilter initialising tee_to_pipe transforms for in/out/err"
-
-        # sources should be added when stack::new called instead(?)
-        foreach source [list $teehandle_out $teehandle_err] {
-            if {$source ni $sources} {
-                lappend sources $source
-            }
-        }
-        set outdeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_out device]
-        set outpipechan [dict get $outdeviceinfo localchan]
-        set errdeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_err device]
-        set errpipechan [dict get $errdeviceinfo localchan]
-
-        #set indeviceinfo [dict get $::shellfilter::stack::pipelines $teehandle_in device]
-        #set inpipechan [dict get $indeviceinfo localchan]
-
-        #NOTE:These transforms are not necessarily at the top of each stack! 
-        #The float/sink mechanism, along with whether existing transforms are diversionary decides where they sit.
-        set id_out [shellfilter::stack::add $outchan tee_to_pipe -action sink-aside -settings [list -tag $teehandle_out -pipechan $outpipechan]]
-        set id_err [shellfilter::stack::add $errchan tee_to_pipe -action sink-aside -settings [list -tag $teehandle_err -pipechan $errpipechan]]
-
-        # need to use os level channel handle for stdin - try named pipes (or even sockets) instead of fifo2 for this
-        # If non os-level channel - the command can't be run with the redirection
-        # stderr/stdout can be run with non-os handles in the call - 
-        # but then it does introduce issues with terminal-detection and behaviour for stdout at least
-        #
-        # input is also a tee - we never want to change the source at this point - just log/process a side-channel of it.
-        #
-        #set id_in  [shellfilter::stack::add $inchan  tee_to_pipe -action sink-aside -settings [list -tag commandin -pipechan $inpipechan]]
-
-
-        #set id_out [shellfilter::stack::add stdout tee_to_log -action sink-aside -settings [list -tag shellstdout -syslog 127.0.0.1:514 -file ""]]
-        #set id_err [shellfilter::stack::add stderr tee_to_log -action sink-aside -settings [list -tag shellstderr -syslog 127.0.0.1:514 -file "stderr.txt"]]
-
-        #we need to catch errors - and ensure stack::remove calls occur.
-        #An error can be raised if the command couldn't even launch, as opposed to a non-zero exitcode and stderr output from the command itself.
-        #
-        if {!$is_script} { 
-            set experiment 0
-            if {$experiment} {
-                try {
-                    set results [exec {*}$commandlist]
-                    set exitinfo [list exitcode 0]
-                } trap CHILDSTATUS {results options} {
-                    set exitcode [lindex [dict get $options -errorcode] 2]
-                    set exitinfo [list exitcode $exitcode]
-                }
-            } else {
-                if {[catch { 
-                    #run process with stdout/stderr/stdin or with configured channels
-                    #set exitinfo [shellcommand_stdout_stderr $commandlist $outchan $errchan $inpipechan {*}$opts]
-                    set exitinfo [shellcommand_stdout_stderr $commandlist $outchan $errchan stdin {*}$opts]
-                    #puts stderr "---->exitinfo $exitinfo"
-
-                    #subprocess result should usually have an "exitcode" key
-                    #but for background execution we will get a "pids" key of process ids.
-                } errMsg]} {
-                    set exitinfo [list error "$errMsg" source shellcommand_stdout_stderr]
-                }
-            }
-        } else {
-            if {[catch {
-                #script result
-                set exitinfo [list result [uplevel #0 [list eval $commandlist]]]
-            } errMsg]} {
-                set exitinfo [list error "$errMsg" errorCode $::errorCode errorInfo "$::errorInfo"]
-            }
-        }
-
-
-        #the previous redirections on the underlying inchan/outchan/errchan items will be restored from the -aside setting during removal
-        #Remove execution-time Tees from stack
-        shellfilter::stack::remove stdout $id_out
-        shellfilter::stack::remove stderr $id_err
-        #shellfilter::stack::remove stderr $id_in
-
-
-        #chan configure stderr -buffering line
-        #flush stdout
-
-
-        ::shellfilter::log::write $runtag " return '$exitinfo'"
-        ::shellfilter::log::close $runtag
-        return $exitinfo
-    }
-    proc ::shellfilter::logtidyup { {tags {}} } {
-        variable sources
-        set worker_errorlist [list]
-        set tidied_sources [list]
-        set tidytag "logtidy"
-
-
-        # opening a thread or writing to a log/syslog close to possible process exit is probably not a great idea.
-        # we should ensure the thread already exists early on if we really need logging here.
-        # 
-        #set tid [::shellfilter::log::open $tidytag {-syslog 127.0.0.1:514}]
-        #::shellfilter::log::write $tidytag " logtidyuptags '$tags'"
-
-        foreach s $sources {
-            if {$s eq $tidytag} {
-                continue
-            }
-            #puts "logtidyup source $s"
-            set close 1
-            if {[llength $tags]} {
-                if {$s ni $tags} {
-                    set close 0
-                }
-            }
-            if {$close} {
-                lappend tidied_sources $s
-                shellfilter::log::close $s
-                lappend worker_errorlist {*}[shellthread::manager::get_and_clear_errors $s]
-            }
-        }
-        set remaining_sources [list]
-        foreach s $sources {
-            if {$s ni $tidied_sources} {
-                lappend remaining_sources $s
-            }
-        } 
-
-        #set sources [concat $remaining_sources $tidytag]
-        set sources $remaining_sources
-
-        #shellfilter::stack::unwind stdout
-        #shellfilter::stack::unwind stderr
-        return [list tidied $tidied_sources errors $worker_errorlist]
-    }
-
-    #package require tcl::chan::null
-    # e.g set errchan [tcl::chan::null]
-    # e.g chan push stdout [shellfilter::chan::var new ::some_var]
-    proc  ::shellfilter::shellcommand_stdout_stderr {commandlist outchan errchan inchan args} {
-        set valid_flags [list \
-            -timeout \
-            -outprefix \
-            -errprefix \
-            -debug \
-            -copytempfile \
-            -outbuffering \
-            -errbuffering \
-            -inbuffering \
-            -readprocesstranslation \
-            -outtranslation \
-            -stdinhandler \
-            -outchan \
-            -errchan \
-            -inchan \
-            -teehandle\
-            ]
-
-        set runtag shellfilter-run2
-        #JMN - load from config
-        #set tid [::shellfilter::log::open $runtag [list -syslog "127.0.0.1:514"]]
-        set tid [::shellfilter::log::open $runtag [list -syslog ""]]
-
-        if {[llength $args] % 2} {
-            error "Trailing arguments after any positional arguments must be in pairs of the form -argname argvalue. Valid flags are:'$valid_flags'"
-        }
-        set invalid_flags [list]
-        foreach {k -} $args {
-            switch -- $k {
-                -timeout -
-                -outprefix -
-                -errprefix -
-                -debug -
-                -copytempfile -
-                -outbuffering -
-                -errbuffering -
-                -inbuffering -
-                -readprocesstranslation -
-                -outtranslation -
-                -stdinhandler -
-                -outchan -
-                -errchan -
-                -inchan -
-                -teehandle {
-                }
-                default {
-                    lappend invalid_flags $k
-                }
-            }
-        }
-        if {[llength $invalid_flags]} {
-            error "Unknown option(s)'$invalid_flags': must be one of '$valid_flags'"
-        }
-        #line buffering generally best for output channels.. keeps relative output order of stdout/stdin closer to source order
-        #there may be data where line buffering is inappropriate, so it's configurable per std channel 
-        #reading inputs with line buffering can result in extraneous newlines as we can't detect trailing data with no newline before eof.
-        set defaults [dict create \
-            -outchan stdout \
-            -errchan stderr \
-            -inchan stdin \
-            -outbuffering none \
-            -errbuffering none \
-            -readprocesstranslation auto \
-            -outtranslation lf \
-            -inbuffering none \
-            -timeout 900000\
-            -outprefix ""\
-            -errprefix ""\
-            -debug 0\
-            -copytempfile 0\
-            -stdinhandler ""\
-            ]
-
-
-
-        set args [dict merge $defaults $args]
-        set outbuffering   [dict get $args -outbuffering]
-        set errbuffering   [dict get $args -errbuffering]
-        set inbuffering               [dict get $args -inbuffering]
-        set readprocesstranslation    [dict get $args -readprocesstranslation]
-        set outtranslation            [dict get $args -outtranslation]
-        set timeout                   [dict get $args -timeout]
-        set outprefix   [dict get $args -outprefix]
-        set errprefix   [dict get $args -errprefix]
-        set debug       [dict get $args -debug]
-        set copytempfile [dict get $args -copytempfile]
-        set stdinhandler [dict get $args -stdinhandler]
-
-        set debugname "shellfilter-debug"
-
-        if {$debug} {
-            set tid [::shellfilter::log::open $debugname [list -syslog "127.0.0.1:514"]]
-            ::shellfilter::log::write $debugname " commandlist '$commandlist'"
-        }
-        #'clock micros' good enough id for shellcommand calls unless one day they can somehow be called concurrently or sequentially within a microsecond and within the same interp.
-        # a simple counter would probably work too
-        #consider other options if an alternative to the single vwait in this function is used.
-        set call_id [tcl::clock::microseconds] ;
-        set ::shellfilter::shellcommandvars($call_id,exitcode) ""
-        set waitvar ::shellfilter::shellcommandvars($call_id,waitvar)
-        if {$debug} {
-            ::shellfilter::log::write $debugname " waitvar '$waitvar'"
-        }
-        lassign [chan pipe] rderr wrerr
-        chan configure $wrerr -blocking 0
-
-        set custom_stderr ""
-        set lastitem [lindex $commandlist end]
-        #todo - ensure we can handle 2> file  (space after >)
-
-        #review - reconsider the handling of redirections such that tcl-style are handled totally separately to other shell syntaxes!
-        #
-        #note 2>@1 must ocur as last word for tcl - but 2@stdout can occur elsewhere
-        #(2>@stdout echoes to main stdout - not into pipeline)
-        #To properly do pipelines it looks like we will have to split on | and call this proc multiple times and wire it up accordingly (presumably in separate threads)
-
-        switch -- [string trim $lastitem] {
-            {&} {
-                set name [lindex $commandlist 0]
-                #background execution - stdout and stderr from child still comes here - but process is backgrounded 
-                #FIX! - this is broken for paths with backslashes for example
-                #set pidlist [exec {*}[concat $name [lrange $commandlist 1 end]]]
-                set pidlist [exec {*}$commandlist]
-                return [list pids $pidlist]
-            }
-            {2>&1} - {2>@1} {
-                set custom_stderr {2>@1}  ;#use the tcl style
-                set commandlist [lrange $commandlist 0 end-1]
-            }
-            default {
-                # 2> filename 
-                # 2>> filename
-                # 2>@ openfileid
-                set redir2test [string range $lastitem 0 1]
-                if {$redir2test eq "2>"} {
-                    set custom_stderr $lastitem
-                    set commandlist [lrange $commandlist 0 end-1]
-                }
-            }
-        }
-        set lastitem [lindex $commandlist end]
-
-        set teefile "" ;#empty string, write, append
-        #an ugly hack.. because redirections seem to arrive wrapped  - review!
-        #There be dragons here..
-        #Be very careful with list manipulation of the commandlist string.. backslashes cause havoc. commandlist must always be a well-formed list. generally avoid string manipulations on entire list or accidentally breaking a list element into parts if it shouldn't be..
-        #The problem here - is that we can't always know what was intended on the commandline regarding quoting
-
-        ::shellfilter::log::write $runtag "checking for redirections in $commandlist"
-        #sometimes we see a redirection without a following space  e.g >C:/somewhere 
-        #normalize
-        switch -regexp -- $lastitem\
-            {^>[/[:alpha:]]+} {
-                set lastitem "> [string range $lastitem 1 end]"
-            }\
-            {^>>[/[:alpha:]]+} {
-                set lastitem ">> [string range $lastitem 2 end]"
-            }
-        
-
-        #for a redirection, we assume either a 2-element list at tail of form {> {some path maybe with spaces}}
-        #or that the tail redirection is not wrapped..  x y z > {some path maybe with spaces}
-        #we can't use list methods such as llenth on a member of commandlist
-        set wordlike_parts [regexp -inline -all {\S+} $lastitem]
-
-        if {([llength $wordlike_parts] >= 2) && ([lindex $wordlike_parts 0] in [list ">>" ">"])} {
-            #wrapped redirection - but maybe not 'well' wrapped (unquoted filename)
-            set lastitem [string trim $lastitem]  ;#we often see { > something}
-
-            #don't use lassign or lrange on the element itself without checking first
-            #we can treat the commandlist as a whole as a well formed list but not neccessarily each element within.
-            #lassign $lastitem redir redirtarget 
-            #set commandlist [lrange $commandlist 0 end-1]
-            #
-            set itemchars [split $lastitem ""]
-            set firstchar [lindex $itemchars 0]
-            set lastchar [lindex $itemchars end]
-
-            #NAIVE test for double quoted only!
-            #consider for example {"a" x="b"} 
-            #testing first and last is not decisive
-            #We need to decide what level of drilling down is even appropriate here.. 
-            #if something was double wrapped - it was perhaps deliberate so we don't interpret it as something(?)
-            set head_tail_chars [list $firstchar $lastchar]
-            set doublequoted [expr {[llength [lsearch -all $head_tail_chars "\""]] == 2}]
-            if {[string equal "\{" $firstchar] && [string equal "\}" $lastchar]} {
-                set curlyquoted 1
-            } else {
-                set curlyquoted 0
-            }
-
-            if {$curlyquoted} {
-                #these are not the tcl protection brackets but ones supplied in the argument
-                #it's still not valid to use list operations on a member of the commandlist
-                set inner [string range $lastitem 1 end-1]
-                #todo - fix! we still must assume there could be list-breaking data!
-                set innerwords [regexp -inline -all {\S+} $inner] ;#better than [split $inner] because we don't get extra empty elements for each whitespace char
-                set redir [lindex $innerwords 0] ;#a *potential* redir - to be tested below
-                set redirtarget [lrange $innerwords 1 end] ;#all the rest
-            } elseif {$doublequoted} {
-                ::shellfilter::log::write $debugname "doublequoting at tail of command '$commandlist'" 
-                set inner [string range $lastitem 1 end-1]
-                set innerwords [regexp -inline -all {\S+} $inner]
-                set redir [lindex $innerwords 0]
-                set redirtarget [lrange $innerwords 1 end] 
-            } else {
-                set itemwords [regexp -inline -all {\S+} $lastitem]
-                # e.g > c:\test   becomes > {c:\test}
-                # but > c/mnt/c/test/temp.txt stays as > /mnt/c/test/temp.txt
-                set redir [lindex $itemwords 0]
-                set redirtarget [lrange $itemwords 1 end]
-            }
-            set commandlist [lrange $commandlist 0 end-1]
-        
-        } elseif {[lindex $commandlist end-1] in [list ">>" ">"]} {
-            #unwrapped redirection
-            #we should be able to use list operations like lindex and lrange here as the command itself is hopefully still a well formed list
-            set redir [lindex $commandlist end-1]
-            set redirtarget [lindex $commandlist end]
-            set commandlist [lrange $commandlist 0 end-2]
-        } else {
-            #no redirection 
-            set redir ""
-            set redirtarget ""
-            #no change to command list
-        }
-
-
-        switch -- $redir {
-            ">>" - ">" {
-                set redirtarget [string trim $redirtarget "\""]
-                ::shellfilter::log::write $runtag " have redirection '$redir' to '$redirtarget'"
-
-                set winfile $redirtarget ;#default assumption
-                switch -glob -- $redirtarget {
-                    "/c/*" {
-                        set winfile "c:/[string range $redirtarget 3 end]"
-                    }
-                    "/mnt/c/*" {
-                        set winfile "c:/[string range $redirtarget 7 end]"
-                    }
-                }
-
-                if {[file exists [file dirname $winfile]]} {
-                    #containing folder for target exists
-                    if {$redir eq ">"} {
-                    set teefile "write"
-                    } else {
-                    set teefile "append"
-                    }
-                    ::shellfilter::log::write $runtag "Directory exists '[file dirname $winfile]' operation:$teefile"
-                } else {
-                    #we should be writing to a file.. but can't
-                    ::shellfilter::log::write $runtag "cannot verify directory exists '[file dirname $winfile]'"
-                }
-            }
-            default {
-                ::shellfilter::log::write $runtag "No redir found!!" 
-            }
-        }
-
-      #often first element of command list is wrapped and cannot be run directly
-      #e.g {{ls -l} {> {temp.tmp}}}
-      #we will assume that if there is a single element which is a pathname containing a space - it is doubly wrapped.
-      # this may not be true - and the command may fail if it's just {c:\program files\etc}  but it is the less common case and we currently have no way to detect.
-      #unwrap first element.. will not affect if not wrapped anyway (subject to comment above re spaces)
-      set commandlist [concat [lindex $commandlist 0] [lrange $commandlist 1 end]]
-
-      #todo?
-      #child process environment.
-      # - to pass a different environment to the child - we would need to save the env array, modify as required, and then restore the env array.
-
-      #to restore buffering states after run
-      set remember_in_out_err_buffering [list \
-         [chan configure $inchan -buffering] \
-         [chan configure $outchan -buffering] \
-         [chan configure $errchan -buffering] \
-         ]
-
-      set remember_in_out_err_translation [list \
-          [chan configure $inchan -translation] \
-          [chan configure $outchan -translation] \
-          [chan configure $errchan -translation] \
-          ]
-          
-      
-      
-
-
-      chan configure $inchan -buffering  $inbuffering -blocking 0  ;#we are setting up a readable handler for this - so non-blocking ok
-      chan configure $errchan -buffering $errbuffering
-      #chan configure $outchan -blocking 0
-      chan configure $outchan -buffering $outbuffering ;#don't configure non-blocking. weird duplicate of *second* line occurs if you do.
-      #
-
-      #--------------------------------------------
-      #Tested on windows. Works to stop <cr><cr><lf> in output when buffering is none, reading from channel with -translation auto
-      #cmd, pwsh, tcl 
-      #chan configure $outchan -translation lf
-      #chan configure $errchan -translation lf
-      #--------------------------------------------
-      chan configure $outchan -translation $outtranslation
-      chan configure $errchan -translation $outtranslation
-
-      #puts stderr "chan configure $wrerr [chan configure $wrerr]"
-      if {$debug} {
-        ::shellfilter::log::write $debugname "COMMAND  [list $commandlist] strlen:[string length $commandlist] llen:[llength $commandlist]"
-      }
-      #todo - handle custom redirection of stderr to a file?
-      if {[string length $custom_stderr]} {
-        #::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist $custom_stderr] a+"
-        #set rdout [open |[concat $commandlist $custom_stderr] a+] 
-        ::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist [list $custom_stderr <@$inchan]] [list RDONLY]"
-        set rdout [open |[concat $commandlist [list <@$inchan $custom_stderr]] [list RDONLY]] 
-        set rderr "bogus" ;#so we don't wait for it
-      } else {
-        ::shellfilter::log::write $runtag "LAUNCH open |[concat $commandlist [list 2>@$wrerr <@$inchan]] [list RDONLY]"
-        #set rdout [open |[concat $commandlist [list 2>@$wrerr]] a+]
-        #set rdout [open |[concat $commandlist [list 2>@$wrerr]] [list RDWR]]
-
-        # If we don't redirect stderr to our own tcl-based channel - then the transforms don't get applied. 
-        # This is the whole reason we need these file-event loops.
-        # Ideally we need something like exec,open in tcl that interacts with transformed channels directly and emits as it runs, not only at termination
-        #  - and that at least appears like a terminal to the called command.
-        #set rdout [open |[concat $commandlist [list 2>@stderr <@$inchan]] [list RDONLY]]
-        
-
-        set rdout [open |[concat $commandlist [list 2>@$wrerr <@$inchan]] [list RDONLY]]
-
-        chan configure $rderr -buffering $errbuffering -blocking 0
-        chan configure $rderr -translation $readprocesstranslation
-      }
-
-
-
-      set command_pids [pid $rdout]
-        #puts stderr "command_pids: $command_pids"
-        #tcl::process ensemble only available in 8.7+ - and it didn't prove useful here anyway
-        # the child process generally won't shut down until channels are closed.
-        # premature EOF on grandchild process launch seems to be due to lack of terminal emulation when redirecting stdin/stdout.
-        # worked around in punk/repl using 'script' command as a fake tty.
-        #set subprocesses [tcl::process::list]
-        #puts stderr "subprocesses: $subprocesses"
-        #if {[lindex $command_pids 0] ni $subprocesses} {
-        #    puts stderr "pid [lindex $command_pids 0] not running $errMsg"
-        #} else {
-        #    puts stderr "pid [lindex $command_pids 0] is running"
-        #}
-
-      
-      if {$debug} {
-          ::shellfilter::log::write $debugname "pipeline pids: $command_pids"
-      }
-
-      #jjj
-
-
-      chan configure $rdout -buffering $outbuffering -blocking 0
-      chan configure $rdout -translation $readprocesstranslation 
-
-      if {![string length $custom_stderr]} { 
-        chan event $rderr readable [list apply {{chan other wrerr outchan errchan waitfor errprefix errbuffering debug debugname pids} {
-            if {$errbuffering eq "line"} {
-                set countchunk [chan gets $chan chunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                #errprefix only applicable to line buffered output
-                if {$countchunk >= 0} {
-                    if {[chan eof $chan]} {
-                        puts -nonewline $errchan ${errprefix}$chunk
-                    } else {
-                        puts $errchan "${errprefix}$chunk"
-                    }
-                }
-            } else {
-                set chunk [chan read $chan]
-                if  {[string length $chunk]} {
-                    puts -nonewline $errchan $chunk
-                }
-            } 
-            if {[chan eof $chan]} {
-                flush $errchan ;#jmn
-                #set subprocesses [tcl::process::list]
-                #puts stderr "subprocesses: $subprocesses"
-                #if {[lindex $pids 0] ni $subprocesses} {
-                #    puts stderr "stderr reader: pid [lindex $pids 0] no longer running"
-                #} else {
-                #    puts stderr "stderr reader: pid [lindex $pids 0] still running"
-                #}
-                chan close $chan
-                #catch {chan close $wrerr}
-                if {$other ni [chan names]} {
-                    set $waitfor stderr
-                }
-            }
-        }} $rderr $rdout $wrerr $outchan $errchan $waitvar $errprefix $errbuffering $debug $debugname $command_pids]
-      }
-
-        #todo - handle case where large amount of stdin coming in faster than rdout can handle
-        #as is - arbitrary amount of memory could be used because we aren't using a filevent for rdout being writable
-        # - we're just pumping it in to the non-blocking rdout buffers 
-        # ie there is no backpressure and stdin will suck in as fast as possible.
-        # for most commandlines this probably isn't too big a deal.. but it could be a problem for multi-GB disk images etc
-        #
-        #
-        
-        ## Note - detecting trailing missing nl before eof is basically the same  here as when reading rdout from executable
-        # - but there is a slight difference in that with rdout we get an extra blocked state just prior to the final read.
-        # Not known if that is significant
-        ## with inchan configured -buffering line 
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl -r cat
-        #warning reading input with -buffering line. Cannot detect missing trailing-newline at eof
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl -r cat
-        #warning reading input with -buffering line. Cannot detect missing trailing-newline at eof
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:1 pend:-1 count:3
-        #etc
-
-        if 0 {
-            chan event $inchan readable [list apply {{chan wrchan inbuffering waitfor} {
-                #chan copy stdin $chan ;#doesn't work in a chan event
-                if {$inbuffering eq "line"} {
-                    set countchunk [chan gets $chan chunk]
-                    #puts $wrchan "stdinstate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                    if {$countchunk >= 0} {
-                        if {[chan eof $chan]} {
-                            puts -nonewline $wrchan $chunk
-                        } else {
-                            puts $wrchan $chunk
-                        }
-                    }
-                } else {
-                    set chunk [chan read $chan]
-                    if {[string length $chunk]} {
-                        puts -nonewline $wrchan $chunk
-                    } 
-                }
-                if {[chan eof $chan]} {
-                    puts stderr "|stdin_reader>eof [chan configure stdin]"
-                    chan event $chan readable {}
-                    #chan close $chan 
-                    chan close $wrchan write ;#half close
-                    #set $waitfor "stdin"
-                }
-            }} $inchan $rdout $inbuffering $waitvar]
-       
-            if {[string length $stdinhandler]} {
-                chan configure stdin -buffering line -blocking 0
-                chan event stdin readable $stdinhandler
-            }
-       } 
-
-        set actual_proc_out_buffering [chan configure $rdout -buffering]
-        set actual_outchan_buffering [chan configure $outchan -buffering]
-        #despite whatever is configured - we match our reading to how we need to output
-        set read_proc_out_buffering $actual_outchan_buffering
-      
-
-
-      if {[string length $teefile]} {
-        set logname "redir_[string map {: _} $winfile]_[tcl::clock::microseconds]"
-        set tid [::shellfilter::log::open $logname {-syslog 127.0.0.1:514}]
-        if {$teefile eq "write"} {
-          ::shellfilter::log::write $logname "opening '$winfile' for write" 
-          set fd [open $winfile w]
-        } else {
-          ::shellfilter::log::write $logname "opening '$winfile' for appending" 
-          set fd [open $winfile a]
-        }
-        #chan configure $fd -translation lf 
-        chan configure $fd -translation $outtranslation
-        chan configure $fd -encoding utf-8 
-
-        set tempvar_bytetotal [namespace current]::totalbytes[tcl::clock::microseconds] 
-        set $tempvar_bytetotal 0
-        chan event $rdout readable [list apply {{chan other wrerr outchan errchan read_proc_out_buffering waitfor outprefix call_id debug debugname writefile writefilefd copytempfile bytevar logtag} {
-            #review - if we write outprefix to normal stdout.. why not to redirected file?  
-            #usefulness of outprefix is dubious
-            upvar $bytevar totalbytes
-            if {$read_proc_out_buffering eq "line"} {
-                #set outchunk [chan read $chan]
-                set countchunk [chan gets $chan outchunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                if  {$countchunk >= 0} {
-                    if {![chan eof $chan]} {
-                        set numbytes [expr {[string length $outchunk] + 1}]  ;#we are assuming \n not \r\n - but count won't/can't be completely accurate(?) - review
-                        puts $writefilefd $outchunk
-                    } else {
-                        set numbytes [string length $outchunk]
-                        puts -nonewline $writefilefd $outchunk
-                    }
-                    incr totalbytes $numbytes
-                    ::shellfilter::log::write $logtag "${outprefix} wrote $numbytes  bytes to $writefile"
-                    #puts $outchan "${outprefix} wrote $numbytes  bytes to $writefile"
-                }
-            } else {
-                set outchunk [chan read $chan]
-                if {[string length $outchunk]} {
-                    puts -nonewline $writefilefd $outchunk
-                    set numbytes [string length $outchunk]
-                    incr totalbytes $numbytes
-                    ::shellfilter::log::write $logtag "${outprefix} wrote $numbytes  bytes to $writefile"
-                }
-            }
-            if {[chan eof $chan]} {
-                flush $writefilefd ;#jmn
-                #set blocking so we can get exit code
-                chan configure $chan -blocking 1 
-                catch {::shellfilter::log::write $logtag "${outprefix} total bytes $totalbytes written to $writefile"}
-                #puts $outchan "${outprefix} total bytes $totalbytes written to $writefile"
-                catch {close $writefilefd}
-                if {$copytempfile} {
-                  catch {file copy $writefile "[file rootname $writefile]_copy[file extension $writefile]"}
-                }
-                try {
-                    chan close $chan
-                    set ::shellfilter::shellcommandvars($call_id,exitcode) 0
-                    if {$debug} {
-                        ::shellfilter::log::write $debugname "(teefile) -- child process returned no error. (exit code 0) --"
-                    }
-                } trap CHILDSTATUS {result options} {
-                    set code [lindex [dict get $options -errorcode] 2]
-                    if {$debug} {
-                        ::shellfilter::log::write $debugname "(teefile) CHILD PROCESS EXITED with code: $code"
-                    }
-                    set ::shellfilter::shellcommandvars($call_id,exitcode) $code
-                }
-                catch {chan close $wrerr}
-                if {$other ni [chan names]} {
-                    set $waitfor stdout
-                }
-            }
-        }} $rdout $rderr $wrerr $outchan $errchan $read_proc_out_buffering $waitvar $outprefix $call_id $debug $debugname $winfile $fd $copytempfile $tempvar_bytetotal $logname]
-        
-      } else {
-
-        # This occurs when we have outbuffering set to 'line' - as the 'input' from rdout which comes from the executable is also configured to 'line'
-        # where b:0|1 is whether chan blocked $chan returns 0 or 1
-        # pend is the result of chan pending $chan
-        # eof is the resot of chan eof $chan
-
-
-        ##-------------------------
-        ##If we still read with gets,to retrieve line by line for output to line-buffered output - but the input channel is configured with -buffering none
-        ## then we can detect the difference
-        # there is an extra blocking read - but we can stil use eof with data to detect the absent newline and avoid passing an extra one on.
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl /u/c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:1 eof:0 pend:-1 count:-1
-        #instate  b:0 eof:1 pend:-1 count:3
-        #etc
-        ##------------------------
-
-
-        #this should only occur if upstream is coming from stdin reader that has  line buffering and hasn't handled the difference properly..
-        ###reading with gets from line buffered input with trailing newline
-        #c:\repo\jn\punk\test>printf "test\netc\n" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-
-        ###reading with gets from line buffered input with trailing newline
-        ##No detectable difference!
-        #c:\repo\jn\punk\test>printf "test\netc" | tclsh punk.vfs/main.tcl /c cat
-        #instate  b:0 eof:0 pend:-1 count:4
-        #test
-        #instate  b:0 eof:0 pend:-1 count:3
-        #etc
-        #instate  b:0 eof:1 pend:-1 count:-1
-        ##-------------------------
-
-        #Note that reading from -buffering none and writing straight out gives no problem because we pass the newlines through as is
-
-        
-        #set ::shellfilter::chan::lastreadblocked_nodata_noeof($rdout) 0 ;#a very specific case of readblocked prior to eof.. possibly not important
-        #this detection is disabled for now - but left for debugging in case it means something.. or changes 
-        chan event $rdout readable [list apply {{chan other wrerr outchan errchan read_proc_out_buffering waitfor outprefix call_id debug debugname pids} {
-            #set outchunk [chan read $chan]
-            
-            if {$read_proc_out_buffering eq "line"} {
-                set countchunk [chan gets $chan outchunk] ;#only get one line so that order between stderr and stdout is more likely to be preserved
-                #countchunk can be -1 before eof e.g when blocked
-                #debugging output inline with data - don't leave enabled
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                if {$countchunk >= 0} {
-                    if {![chan eof $chan]} { 
-                        puts $outchan ${outprefix}$outchunk
-                    } else {
-                        puts -nonewline $outchan ${outprefix}$outchunk
-                        #if {$::shellfilter::chan::lastreadblocked_nodata_noeof($chan)} {
-                        #   seems to be the usual case
-                        #} else {
-                        #    #false alarm, or ? we've reached eof with data but didn't get an empty blocking read just prior
-                        #    #Not known if this occurs
-                        #    #debugging output inline with data - don't leave enabled
-                        #    puts $outchan "!!!prev read didn't block: instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:$countchunk"
-                        #}
-                    }
-                    #set ::shellfilter::chan::lastreadblocked_nodata_noeof($chan) 0
-                } else {
-                    #set ::shellfilter::chan::lastreadblocked_nodata_noeof($chan) [expr {[chan blocked $chan] && ![chan eof $chan]}]
-                }
-            } else {
-                #puts $outchan "read  CHANNEL $chan  [chan configure $chan]"
-                #puts $outchan "write CHANNEL $outchan b:[chan configure $outchan -buffering] t:[chan configure $outchan -translation] e:[chan configure $outchan -encoding]"
-                set outchunk [chan read $chan]
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan] count:[string length $outchunk]"
-                if  {[string length $outchunk]} {
-                    #set stringrep [encoding convertfrom utf-8 $outchunk] 
-                    #set newbytes [encoding convertto utf-16 $stringrep]
-                    #puts -nonewline $outchan $newbytes
-                    puts -nonewline $outchan $outchunk
-                }
-            }
-
-            if {[chan eof $chan]} {
-                flush $outchan ;#jmn
-                #for now just look for first element in the pid list..
-                #set subprocesses [tcl::process::list]
-                #puts stderr "subprocesses: $subprocesses"
-                #if {[lindex $pids 0] ni $subprocesses} {
-                #    puts stderr "stdout reader pid: [lindex $pids 0] no longer running"
-                #} else {
-                #    puts stderr "stdout reader pid: [lindex $pids 0] still  running"
-                #}
-
-                #puts $outchan "instate  b:[chan blocked $chan] eof:[chan eof $chan] pend:[chan pending output $chan]"
-                    chan configure $chan -blocking 1 ;#so we can get exit code
-                    try {
-                        chan close $chan
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) 0
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " -- child process returned no error. (exit code 0) --"
-                        }
-                    } trap CHILDSTATUS {result options} {
-                        set code [lindex [dict get $options -errorcode] 2]
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) $code
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " CHILD PROCESS EXITED with code: $code"
-                        }
-                    } trap CHILDKILLED {result options} {
-                        #set code [lindex [dict get $options -errorcode] 2]
-                        #set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                        set ::shellfilter::shellcommandvars($call_id,exitcode) "childkilled"
-                        if {$debug} {
-                            ::shellfilter::log::write $debugname " CHILD PROCESS EXITED with result:'$result' options:'$options'"
-                        }
-
-                    } finally {
-                        #puts stdout "HERE"
-                        #flush stdout
-
-                    }
-                    catch {chan close $wrerr}
-                    if {$other ni [chan names]} {
-                        set $waitfor stdout
-                    } 
-
-            }
-        }} $rdout $rderr $wrerr $outchan $errchan $read_proc_out_buffering $waitvar $outprefix $call_id $debug $debugname $command_pids]
-      }
-
-      #todo - add ability to detect activity/data-flow and change timeout to only apply for period with zero data
-      #e.g x hrs with no data(?)
-      #reset timeout when data detected. 
-      after $timeout [string map [list %w% $waitvar %id% $call_id %wrerr% $wrerr %rdout% $rdout %rderr% $rderr %debug% $debug %debugname% $debugname] {
-          if {[info exists ::shellfilter::shellcommandvars(%id%,exitcode)]} {
-              if {[set  ::shellfilter::shellcommandvars(%id%,exitcode)] ne ""} {
-                  catch { chan close %wrerr% }
-                  catch { chan close %rdout%}
-                  catch { chan close %rderr%}
-              } else {
-                  chan configure %rdout% -blocking 1
-                  try {
-                      chan close %rdout%
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) 0
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) -- child process returned no error. (exit code 0) --"
-                      }
-                  } trap CHILDSTATUS {result options} {
-                      set code [lindex [dict get $options -errorcode] 2]
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) CHILD PROCESS EXITED with code: $code"
-                      }
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                  } trap CHILDKILLED {result options} {
-                      set code [lindex [dict get $options -errorcode] 2]
-                      #set code [dict get $options -code]
-                      #set ::shellfilter::shellcommandvars(%id%,exitcode) $code
-                      #set ::shellfilter::shellcommandvars($call_id,exitcode) "childkilled-timeout"
-                      set ::shellfilter::shellcommandvars(%id%,exitcode) "childkilled-timeout"
-                      if {%debug%} {
-                          ::shellfilter::log::write %debugname% "(timeout) CHILDKILLED with code: $code"
-                          ::shellfilter::log::write %debugname% "(timeout) result:$result options:$options"
-                      }
-
-                  }
-                  catch { chan close %wrerr% }
-                  catch { chan close %rderr%}
-              }
-              set %w% "timeout"
-          }
-      }]
-     
-
-      vwait $waitvar
-
-      set exitcode [set ::shellfilter::shellcommandvars($call_id,exitcode)]
-      if {![string is digit -strict $exitcode]} {
-          puts stderr "Process exited with non-numeric code: $exitcode"
-          flush stderr
-      }
-      if {[string length $teefile]} {
-          #cannot be called from within an event handler above.. vwait reentrancy etc
-          catch {::shellfilter::log::close $logname}
-      }
-
-      if {$debug} {
-          ::shellfilter::log::write $debugname " closed by: [set $waitvar] with exitcode: $exitcode"
-          catch {::shellfilter::log::close $debugname}
-      }
-      array unset ::shellfilter::shellcommandvars $call_id,*
-
-
-      #restore buffering to pre shellfilter::run state
-      lassign $remember_in_out_err_buffering bin bout berr
-      chan configure $inchan  -buffering $bin
-      chan configure $outchan -buffering $bout
-      chan configure $errchan -buffering $berr
-
-      lassign $remember_in_out_err_translation tin tout terr
-      chan configure $inchan  -translation $tin
-      chan configure $outchan -translation $tout
-      chan configure $errchan -translation $terr
-
-
-      #in channel probably closed..(? review - should it be?)
-      catch {
-        chan configure $inchan  -buffering $bin
-      }
-
-
-      return [list exitcode $exitcode]
-  }
-
-}
-
-package provide shellfilter [namespace eval shellfilter {
-    variable version
-    set version 0.1.9
-}]
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.2.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.2.tm
index e04e5107..8017d3f5 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.2.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellfilter-0.2.tm
@@ -579,13 +579,15 @@ namespace eval shellfilter::chan {
     #punk::ansi::ansistrip converts at least some of the box drawing G0 chars to unicode - todo - more complete conversion
     #assumes line-buffering. a more advanced filter required if ansicodes can arrive split across separate read or write operations!
     oo::class create ansistrip {
-        variable o_trecord 
+        variable o_trecord
         variable o_enc
+        variable o_encbuf
         variable o_is_junction
         constructor {tf} {
             package require punk::ansi
             set o_trecord $tf
             set o_enc [dict get $tf -encoding]
+            set o_encbuf ""
             if {[dict exists $tf -junction]} {
                 set o_is_junction [dict get $tf -junction]
             } else {
@@ -614,10 +616,36 @@ namespace eval shellfilter::chan {
         method flush {transform_handle} {
             return ""
         }
+        #method write {transform_handle bytes} {
+        #    #broken due to occasional unexpected byte sequence
+        #    set instring [encoding convertfrom $o_enc $bytes] 
+        #    set outstring [punk::ansi::ansistrip $instring]
+        #    return [encoding convertto $o_enc $outstring]
+        #}
         method write {transform_handle bytes} {
-            set instring [encoding convertfrom $o_enc $bytes] 
-            set outstring [punk::ansi::ansistrip $instring]
-            return [encoding convertto $o_enc $outstring]
+            #set instring [tcl::encoding::convertfrom $o_enc $bytes] ;naive approach will break due to unexpected byte sequence - occasionally
+            #bytes can break at arbitrary points making encoding conversions invalid.
+
+            set inputbytes $o_encbuf$bytes
+            set o_encbuf ""
+            set tail_offset 0
+            while {$tail_offset < [string length $inputbytes] && [catch {tcl::encoding::convertfrom $o_enc [string range $inputbytes 0 end-$tail_offset]} stringdata]} {
+                incr tail_offset
+            }
+            if {$tail_offset > 0} {
+                if {$tail_offset < [string length $inputbytes]} {
+                    #stringdata from catch statement must be a valid result
+                    set t [expr {$tail_offset - 1}]
+                    set o_encbuf [string range $inputbytes end-$t end]
+                } else {
+                    set stringdata ""
+                    set o_encbuf $inputbytes
+                    return ""
+                }
+            }
+
+            set outstring [punk::ansi::ansistrip $stringdata]
+            return [tcl::encoding::convertto $o_enc $outstring]
         }
         method meta_is_redirection {} {
             return $o_is_junction
@@ -724,6 +752,8 @@ namespace eval shellfilter::chan {
             set emit ""
             if {[string last \x1b $buf] >= 0} {
                 #detect will detect ansi SGR and gron groff and other codes
+                #REVIEW - ta::detect won't detect SOS without paired ST for things like PM
+                # ta::detectcode will - but then split_codes_single will treat unpaired SOS as text?
                 if {[punk::ansi::ta::detect $buf]} {
                     #split_codes_single regex faster than split_codes - but more resulting parts
                     #'single' refers to number of escapes - but can still contain e.g multiple SGR codes (or mode set operations etc)
@@ -1035,7 +1065,7 @@ namespace eval shellfilter::chan {
     }
     #todo - something 
     oo::class create rebuffer {
-        variable o_trecord 
+        variable o_trecord
         variable o_enc
         constructor {tf} {
             set o_trecord $tf
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm
index b2ce1feb..478c70fa 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/shellrun-0.1.1.tm
@@ -222,6 +222,9 @@ namespace eval shellrun {
         }
 
         set resolved_cmdname [auto_execok $cmdname]
+        if {$resolved_cmdname eq ""} {
+            error "Cannot find path for executable '$cmdname'"
+        }
         set repl_runid [punk::get_repl_runid]
         #set ::punk::last_run_display [list]
 
@@ -427,7 +430,7 @@ namespace eval shellrun {
         cmdarg -type any -multiple 1 -optional 1
     }]
     proc runerr {args} {
-        set argd [punk::args::parse $args withid ::shellrun::runout]
+        set argd [punk::args::parse $args withid ::shellrun::runerr]
         lassign [dict values $argd] leaders opts values received
 
         if {[dict exists $received "-nonewline"]} {
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/textblock-0.1.3.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/textblock-0.1.3.tm
index de0164cd..43311b9e 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/textblock-0.1.3.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/textblock-0.1.3.tm
@@ -2528,7 +2528,7 @@ tcl::namespace::eval textblock {
                         set ansiborder_final $ansiborder_body_col_row
                         #$c will always have ansi resets due to overtype behaviour ?
                         #todo - review overtype
-                        if {[punk::ansi::ta::detect $c]} {
+                        if {[punk::ansi::ta::detectcode $c]} {
                             #use only the last ansi sequence in the cell value
                             #Filter out foreground and use background for ansiborder override
                             set parts [punk::ansi::ta::split_codes_single $c]
@@ -4206,7 +4206,7 @@ tcl::namespace::eval textblock {
         }
 
         #examples ptable.com
-        set elements [list\
+        set elements_layout [list\
             1   H   ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  He\
             2   Li  Be  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  B   C   N   O   F   Ne\
             3   Na  Mg  ""  ""  ""  ""  ""  ""  ""  ""  ""  ""  Al  Si  P   S   Cl  Ar\
@@ -4218,6 +4218,76 @@ tcl::namespace::eval textblock {
             ""  ""  ""  6   La  Ce  Pr  Nd  Pm  Sm  Eu  Gd  Tb  Dy  Ho  Er  Tm  Yb  Lu\
             ""  ""  ""  7   Ac  Th  Pa  U   Np  Pu  Am  Cm  Bk  Cf  Es  Fm  Md  No  Lr\
         ]
+        #generate list of elements ordered by atomic number from the layout table (0 based - so atomic number is +1)
+        #create a lookup dict from symbol to atomic number at same time
+        set elements [list]
+        set e_atomic [dict create]
+        set e_group  [dict create]
+        set e_period [dict create]
+        set atomic 0 ;#first, H, will be 1
+        set period 0
+        set group 0
+        foreach e $elements_layout {
+            if {[string trim $e] eq ""} {
+                switch -- $period {
+                    6a {
+                        set period "6c"
+                        set atomic 71 ;#next is Hf=72
+                    }
+                    7a {
+                        set period "7c"
+                        set atomic 103 ;#next is Rf=104
+                    }
+                }
+                if {$group == 18} {
+                    #handle rows of blanks
+                    set group 0
+                } else {
+                    incr group
+                }
+                continue
+            }
+            if {[string is digit -strict $e]} {
+                if {$period in {0 1 2 3 4}} {
+                    set period $e
+                } else {
+                    switch -- $period {
+                        5 {
+                            set period 6a
+                        }
+                        6c {
+                            set period 7a
+                        }
+                        6b {
+                            set period 7b
+                            set atomic 88 ;#next is Ac=89
+                        }
+                        7c {
+                            set period 6b
+                            set atomic 56 ;#next is La=57
+                        }
+                    }
+                }
+                incr group
+                continue
+            }
+
+            incr atomic
+            lappend elements $e
+            dict set e_atomic $e $atomic
+            dict set e_group $e $group
+            dict set e_period $e [string index $period 0]
+            if {$group == 18} {
+                set group 0 ;#false group 0 for first column of period numbers
+            } else {
+                incr group
+            }
+        }
+        #test no screwup above
+        if {[dict get $e_atomic Og] ne "118" || [dict get $e_atomic Lr] ne "103"} {
+            error "textblock::periodic programming error Og->[dict get $e_atomic Og] Lr->[dict get $e_atomic Lr] should be Og->118 Lr->103"
+        }
+
 
         set type_colours [list]
 
@@ -4297,20 +4367,35 @@ tcl::namespace::eval textblock {
             tcl::dict::set ecat $e $val
         }
 
-        set elements1 [list]
+        set elements_layout_coloured [list]
         set RST [a+]
-        foreach e $elements {
-            if {[tcl::dict::exists $ecat $e]} {
-                set ansi [tcl::dict::get $ecat $e ansi]
-                #lappend elements1 [textblock::pad $ansi$e -width 2 -which right]
-                #no need to pad here - table column_configure -textalign default of left will do the work of padding right anyway
-                lappend elements1 $ansi$e
-            } else {
-                lappend elements1 $e
+        if {[tcl::dict::get $opts -compact]} {
+            foreach e $elements_layout {
+                if {[tcl::dict::exists $ecat $e]} {
+                    set ansi [tcl::dict::get $ecat $e ansi]
+                    #lappend elements_layout_coloured [textblock::pad $ansi$e -width 2 -which right]
+                    #no need to pad here - table column_configure -textalign default of left will do the work of padding right anyway
+                    lappend elements_layout_coloured $ansi$e
+                } else {
+                    lappend elements_layout_coloured $e
+                }
             }
+        } else {
+            foreach e $elements_layout {
+                if {[tcl::dict::exists $ecat $e]} {
+                    set ansi [tcl::dict::get $ecat $e ansi]
+                    #the atomic number should be a superscript as is the norm
+                    #use subscript on line above
+                    set a [punk::char::lib::subscript_number [tcl::dict::get $e_atomic $e]]
+                    lappend elements_layout_coloured "$ansi$a\n $e "
+                } else {
+                    lappend elements_layout_coloured $e
+                }
+            }
+
         }
 
-        set t [list_as_table -columns 19 -return tableobject $elements1]
+        set t [list_as_table -columns 19 -return tableobject $elements_layout_coloured]
         #(defaults to show_hseps 0)
 
         #todo - keep simple table with symbols as base -  map symbols to descriptions etc for more verbose table options
@@ -4377,6 +4462,7 @@ tcl::namespace::eval textblock {
             if {![punk::ansi::ta::detect $block]} {
                 return $block
             }
+            #could be newine in SOS/PM? review - terminal should theoretically ignore all chars til close of string
             foreach ln [split $block \n] {
                 set parts [punk::ansi::ta::split_codes $ln]
                 if {[lindex $parts 0] eq ""} {
@@ -4894,7 +4980,9 @@ tcl::namespace::eval textblock {
             }
             set textblock [textutil::tabify::untabify2 $textblock $tw]
         }
-        if {[string length $textblock] > 1 && [punk::ansi::ta::detect $textblock]} {
+        #review detectcode vs detect. detectcode won't look for completness of all codes to give a positive result
+        #ansistripraw splits on complete codes..
+        if {[string length $textblock] > 1 && [punk::ansi::ta::detectcode $textblock]} {
             #ansistripraw slightly faster than ansistrip - and won't affect width (avoid detect_g0/conversions)
             set textblock [punk::ansi::ansistripraw $textblock]
         }
@@ -4917,7 +5005,9 @@ tcl::namespace::eval textblock {
         } else {
             set tl $textblock
         }
-        if {[punk::ansi::ta::detect $tl]} {
+        #review detectcode vs detect. detectcode won't look for completness of all codes to give a positive result
+        #ansistripraw splits on complete codes..
+        if {[punk::ansi::ta::detectcode $tl]} {
             set tl [punk::ansi::ansistripraw $tl]
         }
         return [punk::char::ansifreestring_width $tl]
@@ -4964,7 +5054,7 @@ tcl::namespace::eval textblock {
             set textblock [textutil::tabify::untabify2 $textblock $tw]
         }
         #ansistripraw on entire block in one go rather than line by line - result should be the same - review - make tests
-        if {[string length $textblock] > 1 && [punk::ansi::ta::detect $textblock]} {
+        if {[string length $textblock] > 1 && [punk::ansi::ta::detectcode $textblock]} {
             set textblock [punk::ansi::ansistripraw $textblock]
         }
         if {[tcl::string::last \n $textblock] >= 0} {
@@ -5211,7 +5301,7 @@ tcl::namespace::eval textblock {
 
         set known_hasansi [tcl::dict::get $opts -known_hasansi]
         if {$known_hasansi eq ""} {
-            set block_has_ansi [punk::ansi::ta::detect $block]
+            set block_has_ansi [punk::ansi::ta::detectcode $block]
         } else {
             set block_has_ansi $known_hasansi
         }
@@ -5648,7 +5738,7 @@ tcl::namespace::eval textblock {
         set rowcount 0
         set blocklists [list]
         foreach b $blocks {
-            if {[punk::ansi::ta::detect $b]} {
+            if {[punk::ansi::ta::detectcode $b]} {
                 #-ansireplays 1 quite expensive e.g 7ms in 2024
                 set bl [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b]
             } else {
@@ -5676,7 +5766,7 @@ tcl::namespace::eval textblock {
         set i -1
         foreach b $args {
             incr i
-            if {[punk::ansi::ta::detect $b]} {
+            if {[punk::ansi::ta::detectcode $b]} {
                 #-ansireplays 1 quite expensive e.g 7ms in 2024
                 set blines [punk::lib::lines_as_list -ansireplays 1 -ansiresets auto -- $b]
             } else {
@@ -5799,7 +5889,7 @@ tcl::namespace::eval textblock {
             #testing of any decent size block line by line - even with max_string_length_line is slower than ta::detect anyway.
 
             #blocks passed to join can be ragged - so we can't pass -known_samewidth to pad
-            if {[punk::ansi::ta::detect $b]} {
+            if {[punk::ansi::ta::detectcode $b]} {
                 # - we need to join to use pad - even though we then need to immediately resplit REVIEW (make line list version of pad?)
                 set replay_block [::join [punk::lib::lines_as_list -ansireplays 1 -ansiresets $ansiresets -- $b] \n]
                 #set blines [split [textblock::pad $replay_block -known_hasansi 1 -known_samewidth $is_samewidth -known_blockwidth $bwidth -width $bwidth -which right -padchar " "] \n]
@@ -8650,7 +8740,7 @@ tcl::namespace::eval textblock {
                 set cache_inner [overtype::block -blockalign $opt_blockalign -ellipsis $opt_ellipsis $underlay $cache_contentpattern]
                 #puts "frame--->ansiwrap -rawansi [ansistring VIEW $opt_ansibase] $cache_inner"
                 if {$opt_ansibase ne ""} {
-                    if {[punk::ansi::ta::detect $cache_inner]} {
+                    if {[punk::ansi::ta::detectcode $cache_inner]} {
                         #set cache_inner [punk::ansi::ansiwrap -rawansi $opt_ansibase $cache_inner]
                         #set cache_inner [punk::ansi::ansiwrap_raw $opt_ansibase "" "" $cache_inner]
                         #jjj ??? review
@@ -8745,7 +8835,7 @@ tcl::namespace::eval textblock {
 
             #set cwidth [textblock::width $contents]
             #JJJ
-            set contents_has_ansi [punk::ansi::ta::detect $contents]
+            set contents_has_ansi [punk::ansi::ta::detectcode $contents]
             if {$opt_ansibase ne ""} {
                 if {$contents_has_ansi} {
                     #set contents [punk::ansi::ansiwrap -rawansi $opt_ansibase $contents]
@@ -8799,8 +8889,9 @@ tcl::namespace::eval textblock {
                 if {$subposn >= 0} {
                     set content_line [lindex $clines $contentindex]
                     #review - different forms of reset e.g \x1b\[m ??
-                    if {[string range $content_line 0 3] eq "\x1b\[0m"} {
+                    if {[tcl::string::range $content_line 0 3] eq "\x1b\[0m"} {
                         set content_line [tcl::string::range $content_line 4 end]
+                        #::tcl::string::replace content_line 0 3
                     }
                     append content_line $opt_ansibase
                     append fs [tcl::string::replace $tline $subposn $subposn+$pattern_offset $content_line] \n
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm
index d7d1f131..af632c36 100644
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm
+++ b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/tomlish-1.1.6.tm
@@ -8542,6 +8542,7 @@ namespace eval tomlish::path {
     }
 
 }
+
 namespace eval tomlish::dict::path {
 
     #access tomlish dict structure
@@ -8549,11 +8550,12 @@ namespace eval tomlish::dict::path {
 
     #access with path such as: @@k @@k 0 @@k end  where dict keys marked with @@ and plain values are list indices into <list> in {type ARRAY value <list>}
     #leaf elements returned as structured {type <t> value <v>}
-    proc get {dictval {path {}}} {
+
+    proc get {dictval {path {} } } {
         if {$path eq ""} {
             return $dictval
         }
-        if {[string index $path 0] in [list . "\["]} {
+        if {[string index $path 0] in [list . "\[" ] } {
             set path [tomlish::utils::jq_to_path $path]
         }
 
@@ -8562,7 +8564,7 @@ namespace eval tomlish::dict::path {
         ::set i 0
         foreach p $path {
             ::lappend pathsofar $p
-            if {[string range $p 0 1] eq "@@"} {
+            if {[string range $p 0 1] eq "@@" } {
                 #dict key
                 ::set data [dict get $data [string range $p 2 end]]
             } else {
@@ -8592,9 +8594,10 @@ namespace eval tomlish::dict::path {
         return $data
     }
 
+
     proc exists {dictval path} {
         #completely empty path considered to exist - review
-        if {[string index $path 0] in [list . {[}]} {
+        if {[string index $path 0] in [list . "\[" ] } {
             set path [tomlish::utils::jq_to_path $path]
         }
         ::set data $dictval
@@ -8668,7 +8671,7 @@ namespace eval tomlish::dict::path {
             BOOL {
                 #toml only accepts lower case true and false
                 #review
-                if {$rawval ni {true false}} {
+                if {$rawval ni {true false} } {
                     return -code error -errorcode {TOML TYPE NOT_INT} "validate_typeval value is not a valid toml boolean (true|false): '$rawval'"
                 }
             }
@@ -8737,9 +8740,21 @@ namespace eval tomlish::dict::path {
     # can replace an existing {type <type> value <val} entry, when new val is also a {type <type> value <val>}
     #  with added restriction that if <type> is ARRAY the new <type> must also be ARRAY
 
+
+    # vscode tcl syntax highlighter is unable to handle (in some cases!) some simple constructs like left square bracket in curly braces,
+    # yet it is ok in comments. i.e  {[} is prolematic for the highlighter, so we use "\[" instead :/
+    #e.g ------------------------------------------------
+    #    if {[string index $path 0] in [list . {[}] } {
+    #       # ...
+    #    }
+    #    ------------------------------------------------
+    #This may highlight ok - and even text immediately following can be ok - but
+    # the subsequent code block at global scope, perhaps *many* lines distant from where the syntax highlighting issue started, may then be completely miscoloured 
+    # This is a big timewaster - a decent syntax highlighter is really needed for Tcl in vscode (2025-09)
+
     package require struct::list
     proc setleaf {dictvariable path value {validate 1}} {
-        if {[string index $path 0] in [list . {[}]} {
+        if {[string index $path 0] in [list . "\[" ] } {
             set path [tomlish::utils::jq_to_path $path]
         }
 
@@ -8764,9 +8779,9 @@ namespace eval tomlish::dict::path {
             if {[string range $p 0 1] eq "@@"} {
                 ::set k [string range $p 2 end]
 
-                #if {![dict exists $data $k]} {
-                #    error "tomlish::dict:path::set error bad path $path. Attempt to access nonexistent element at subpath $pathsofar."
-                #}
+                # if {![dict exists $data $k]} {
+                #     error "tomlish::dict:path::set error bad path $path. Attempt to access nonexistent element at subpath $pathsofar."
+                # }
                 ::set varname v[incr v]
 
                 if {[struct::list equal $pathsofar $path]} {
@@ -8866,6 +8881,7 @@ namespace eval tomlish::dict::path {
         #    puts "        '[::set $varname]'\n"
         #    puts ""
         #}
+
         ::set i 0
         ::set reverse [lreverse $vdict]
         foreach {varname path} $reverse {
@@ -8899,7 +8915,7 @@ namespace eval tomlish::dict::path {
     #path must be to a {type ARRAY value <list>}
     #REVIEW - how to lappend to deep mixed dict/array structure without rewriting whole datastructure?
     proc lappend {dictvariable path args} {
-        if {[string index $path 0] in [list . {[}]} {
+        if {[string index $path 0] in [list . "\[" ]} {
             set path [tomlish::utils::jq_to_path $path]
         }
         upvar $dictvariable dict_being_edited
@@ -8985,12 +9001,12 @@ namespace eval tomlish::dict::path {
                 }
             }
         }
-        #todo tomlish::log::debug ?
-        #dict for {path varname} $vdict {
-        #    puts "$path   $varname\n"
-        #    puts "        [::set $varname]\n"
-        #    puts ""
-        #}
+        # todo tomlish::log::debug ?
+        # dict for {path varname} $vdict {
+        #     puts "$path   $varname\n"
+        #     puts "        [::set $varname]\n"
+        #     puts ""
+        # }
         ::set i 0
         ::set reverse [lreverse $vdict]
         foreach {varname path} $reverse {
@@ -9020,8 +9036,8 @@ namespace eval tomlish::dict::path {
         return $dict_being_edited
     }
 }
-tcl::namespace::eval tomlish::to_dict {
 
+tcl::namespace::eval tomlish::to_dict {
 
     proc @@path {dictkeys} {
         lmap v $dictkeys {string cat @@ $v}
@@ -9029,7 +9045,6 @@ tcl::namespace::eval tomlish::to_dict {
 
 }
 
-
 tcl::namespace::eval tomlish::app {
     #*** !doctools
     #[subsection {Namespace tomlish::app}]
@@ -9047,14 +9062,15 @@ tcl::namespace::eval tomlish::app {
 
     package require punk::args
     punk::args::define {
-        @id         -id ::tomlish::app::decoder
-        @cmd        -name tomlish::app::decoder -help\
+        @id         -id ::tomlish::app::decode_to_typedjson
+        @cmd        -name tomlish::app::decode_to_typedjson -help\
             "Read toml on stdin until EOF
             on error   - returns non-zero exit code and writes error to
              the errorchannel.
-            on success - returns zero exit code and writes JSON encoding
+            on success - returns zero exit code and writes typed JSON encoding
              of the data to the outputchannel.
-            This decoder is intended to be compatble with toml-test."
+            This decoder is intended to be compatble with toml-test.
+            toml-test defines the typed JSON format."
         @leaders -min 0 -max 0
         @opts
         -help -type none -help\
@@ -9067,14 +9083,14 @@ tcl::namespace::eval tomlish::app {
         -errorchannel -default stderr
         @values -min 0 -max 0
     }
-    proc decoder {args} {
-        set argd [punk::args::parse $args withid ::tomlish::app::decoder]
+    proc decode_to_typedjson {args} {
+        set argd [punk::args::parse $args withid ::tomlish::app::decode_to_typedjson]
         set ch_input        [dict get $argd opts -inputchannel]
         set ch_input_enc    [dict get $argd opts -inputencoding]
         set ch_output       [dict get $argd opts -outputchannel]
         set ch_error        [dict get $argd opts -errorchannel]
         if {[dict exists $argd received -help]} {
-            return [punk::args::usage -scheme info ::tomlish::app::decoder]
+            return [punk::args::usage -scheme info ::tomlish::app::decode_to_typedjson]
         }
 
         chan configure $ch_input -encoding $ch_input_enc
@@ -9108,14 +9124,15 @@ tcl::namespace::eval tomlish::app {
 
     package require punk::args
     punk::args::define {
-        @id         -id ::tomlish::app::encoder
-        @cmd        -name tomlish::app::encoder -help\
-            "Read JSON on input until EOF
+        @id         -id ::tomlish::app::encode_from_typedjson
+        @cmd        -name tomlish::app::encode_from_typedjson -help\
+            "Read typed JSON on input until EOF
             return non-zero exitcode if JSON data cannot be converted to
             a valid TOML representation.
             return zero exitcode and TOML data on output if JSON data can
             be converted.
-            This encoder is intended to be compatible with toml-test."
+            This encoder is intended to be compatible with toml-test.
+            toml-test defines the typed JSON format."
         @leaders -min 0 -max 0
         @opts
         -help -type none -help \
@@ -9132,15 +9149,15 @@ tcl::namespace::eval tomlish::app {
         -errorchannel -default stderr
         @values -min 0 -max 0
     }
-    proc encoder {args} {
-        set argd [punk::args::parse $args withid ::tomlish::app::encoder]
+    proc encode_from_typedjson {args} {
+        set argd [punk::args::parse $args withid ::tomlish::app::encode_from_typedjson]
         set restrict_barekeys   [dict get $argd opts -restrict_barekeys]
         set ch_input            [dict get $argd opts -inputchannel]
         set ch_input_enc        [dict get $argd opts -inputencoding]
         set ch_output           [dict get $argd opts -outputchannel]
         set ch_error            [dict get $argd opts -errorchannel]
         if {[dict exists $argd received -help]} {
-            return [punk::args::usage -scheme info ::tomlish::app::encoder]
+            return [punk::args::usage -scheme info ::tomlish::app::encode_from_typedjson]
         }
         #review
         if {$ch_input_enc ne ""} {
@@ -9171,7 +9188,8 @@ tcl::namespace::eval tomlish::app {
     punk::args::define {
         @dynamic
         @id     -id ::tomlish::app::test
-        @cmd    -name tomlish::app::test
+        @cmd    -name tomlish::app::test -help\
+            "Run the internal tests on the tomlish library."
         @leaders
         @opts -any 1
         -help -type none -help\
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.7.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.7.tm
deleted file mode 100644
index fbd43f3d..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.7.tm
+++ /dev/null
@@ -1,245 +0,0 @@
-# uuid.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# UUIDs are 128 bit values that attempt to be unique in time and space.
-#
-# Reference:
-#   http://www.opengroup.org/dce/info/draft-leach-uuids-guids-01.txt
-#
-# uuid: scheme:
-# http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html
-#
-# Usage: uuid::uuid generate
-#        uuid::uuid equal $idA $idB
-
-package require Tcl 8.5
-
-namespace eval uuid {
-    variable accel
-    array set accel {critcl 0}
-
-    namespace export uuid
-
-    variable uid
-    if {![info exists uid]} {
-        set uid 1
-    }
-
-    proc K {a b} {set a}
-}
-
-###
-# Optimization
-# Caches machine info after the first pass
-###
-
-proc ::uuid::generate_tcl_machinfo {} {
-  variable machinfo
-  if {[info exists machinfo]} {
-    return $machinfo
-  }
-  lappend machinfo [clock seconds]; # timestamp
-  lappend machinfo [clock clicks];  # system incrementing counter
-  lappend machinfo [info hostname]; # spatial unique id (poor)
-  lappend machinfo [pid];           # additional entropy
-  lappend machinfo [array get ::tcl_platform]
-
-  ###
-  # If we have /dev/urandom just stream 128 bits from that
-  ###
-  if {[file exists /dev/urandom]} {
-    set fin [open /dev/urandom r]
-    binary scan [read $fin 128] H* machinfo
-    close $fin
-  } elseif {[catch {package require nettool}]} {
-    # More spatial information -- better than hostname.
-    # bug 1150714: opening a server socket may raise a warning messagebox
-    #   with WinXP firewall, using ipconfig will return all IP addresses
-    #   including ipv6 ones if available. ipconfig is OK on win98+
-    if {[string equal $::tcl_platform(platform) "windows"]} {
-      catch {exec ipconfig} config
-      lappend machinfo $config
-    } else {
-      catch {
-          set s [socket -server void -myaddr [info hostname] 0]
-          K [fconfigure $s -sockname] [close $s]
-      } r
-      lappend machinfo $r
-    }
-
-    if {[package provide Tk] != {}} {
-      lappend machinfo [winfo pointerxy .]
-      lappend machinfo [winfo id .]
-    }
-  } else {
-    ###
-    # If the nettool package works on this platform
-    # use the stream of hardware ids from it
-    ###
-    lappend machinfo {*}[::nettool::hwid_list]
-  }
-  return $machinfo
-}
-
-# Generates a binary UUID as per the draft spec. We generate a pseudo-random
-# type uuid (type 4). See section 3.4
-#
-proc ::uuid::generate_tcl {} {
-    package require md5 2
-    variable uid
-
-    set tok [md5::MD5Init]
-    md5::MD5Update $tok [incr uid];      # package incrementing counter
-    foreach string [generate_tcl_machinfo] {
-      md5::MD5Update $tok $string
-    }
-    set r [md5::MD5Final $tok]
-    binary scan $r c* r
-
-    # 3.4: set uuid versioning fields
-    lset r 8 [expr {([lindex $r 8] & 0x3F) | 0x80}]
-    lset r 6 [expr {([lindex $r 6] & 0x0F) | 0x40}]
-
-    return [binary format c* $r]
-}
-
-if {[string equal $tcl_platform(platform) "windows"]
-        && [package provide critcl] != {}} {
-    namespace eval uuid {
-        critcl::ccode {
-            #define WIN32_LEAN_AND_MEAN
-            #define STRICT
-            #include <windows.h>
-            #include <ole2.h>
-            typedef long (__stdcall *LPFNUUIDCREATE)(UUID *);
-            typedef const unsigned char cu_char;
-        }
-        critcl::cproc generate_c {Tcl_Interp* interp} ok {
-            HRESULT hr = S_OK;
-            int r = TCL_OK;
-            UUID uuid = {0};
-            HMODULE hLib;
-            LPFNUUIDCREATE lpfnUuidCreate = NULL;
-            hLib = LoadLibraryA(("rpcrt4.dll"));
-            if (hLib)
-                lpfnUuidCreate = (LPFNUUIDCREATE)
-                    GetProcAddress(hLib, "UuidCreate");
-            if (lpfnUuidCreate) {
-                Tcl_Obj *obj;
-                lpfnUuidCreate(&uuid);
-                obj = Tcl_NewByteArrayObj((cu_char *)&uuid, sizeof(uuid));
-                Tcl_SetObjResult(interp, obj);
-            } else {
-                Tcl_SetResult(interp, "error: failed to create a guid",
-                              TCL_STATIC);
-                r = TCL_ERROR;
-            }
-            return r;
-        }
-    }
-}
-
-# Convert a binary uuid into its string representation.
-#
-proc ::uuid::tostring {uuid} {
-    binary scan $uuid H* s
-    foreach {a b} {0 7 8 11 12 15 16 19 20 end} {
-        append r [string range $s $a $b] -
-    }
-    return [string tolower [string trimright $r -]]
-}
-
-# Convert a string representation of a uuid into its binary format.
-#
-proc ::uuid::fromstring {uuid} {
-    return [binary format H* [string map {- {}} $uuid]]
-}
-
-# Compare two uuids for equality.
-#
-proc ::uuid::equal {left right} {
-    set l [fromstring $left]
-    set r [fromstring $right]
-    return [string equal $l $r]
-}
-
-# Call our generate uuid implementation
-proc ::uuid::generate {} {
-    variable accel
-    if {$accel(critcl)} {
-        return [generate_c]
-    } else {
-        return [generate_tcl]
-    }
-}
-
-# uuid generate -> string rep of a new uuid
-# uuid equal uuid1 uuid2
-#
-proc uuid::uuid {cmd args} {
-    switch -exact -- $cmd {
-        generate {
-            if {[llength $args] != 0} {
-                return -code error "wrong # args:\
-                    should be \"uuid generate\""
-            }
-            return [tostring [generate]]
-        }
-        equal {
-            if {[llength $args] != 2} {
-                return -code error "wrong \# args:\
-                    should be \"uuid equal uuid1 uuid2\""
-            }
-            return [eval [linsert $args 0 equal]]
-        }
-        default {
-            return -code error "bad option \"$cmd\":\
-                must be generate or equal"
-        }
-    }
-}
-
-# -------------------------------------------------------------------------
-
-# LoadAccelerator --
-#
-#	This package can make use of a number of compiled extensions to
-#	accelerate the digest computation. This procedure manages the
-#	use of these extensions within the package. During normal usage
-#	this should not be called, but the test package manipulates the
-#	list of enabled accelerators.
-#
-proc ::uuid::LoadAccelerator {name} {
-    variable accel
-    set r 0
-    switch -exact -- $name {
-        critcl {
-            if {![catch {package require tcllibc}]} {
-                set r [expr {[info commands ::uuid::generate_c] != {}}]
-            }
-        }
-        default {
-            return -code error "invalid accelerator package:\
-                must be one of [join [array names accel] {, }]"
-        }
-    }
-    set accel($name) $r
-}
-
-# -------------------------------------------------------------------------
-
-# Try and load a compiled extension to help.
-namespace eval ::uuid {
-    variable e {}
-    foreach e {critcl} {
-        if {[LoadAccelerator $e]} break
-    }
-    unset e
-}
-
-package provide uuid 1.0.7
-
-# -------------------------------------------------------------------------
-# Local variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.8.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.8.tm
deleted file mode 100644
index c5cffa67..00000000
--- a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.8.tm
+++ /dev/null
@@ -1,246 +0,0 @@
-# uuid.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
-#
-# UUIDs are 128 bit values that attempt to be unique in time and space.
-#
-# Reference:
-#   http://www.opengroup.org/dce/info/draft-leach-uuids-guids-01.txt
-#
-# uuid: scheme:
-# http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html
-#
-# Usage: uuid::uuid generate
-#        uuid::uuid equal $idA $idB
-
-package require Tcl 8.5 9
-
-namespace eval uuid {
-    variable accel
-    array set accel {critcl 0}
-
-    namespace export uuid
-
-    variable uid
-    if {![info exists uid]} {
-        set uid 1
-    }
-
-    proc K {a b} {set a}
-}
-
-###
-# Optimization
-# Caches machine info after the first pass
-###
-
-proc ::uuid::generate_tcl_machinfo {} {
-  variable machinfo
-  if {[info exists machinfo]} {
-    return $machinfo
-  }
-  lappend machinfo [clock seconds]; # timestamp
-  lappend machinfo [clock clicks];  # system incrementing counter
-  lappend machinfo [info hostname]; # spatial unique id (poor)
-  lappend machinfo [pid];           # additional entropy
-  lappend machinfo [array get ::tcl_platform]
-
-  ###
-  # If we have /dev/urandom just stream 128 bits from that
-  ###
-  if {[file exists /dev/urandom]} {
-    set fin [open /dev/urandom r]
-    fconfigure $fin -encoding binary  
-    binary scan [read $fin 128] H* machinfo
-    close $fin
-  } elseif {[catch {package require nettool}]} {
-    # More spatial information -- better than hostname.
-    # bug 1150714: opening a server socket may raise a warning messagebox
-    #   with WinXP firewall, using ipconfig will return all IP addresses
-    #   including ipv6 ones if available. ipconfig is OK on win98+
-    if {[string equal $::tcl_platform(platform) "windows"]} {
-      catch {exec ipconfig} config
-      lappend machinfo $config
-    } else {
-      catch {
-          set s [socket -server void -myaddr [info hostname] 0]
-          K [fconfigure $s -sockname] [close $s]
-      } r
-      lappend machinfo $r
-    }
-
-    if {[package provide Tk] != {}} {
-      lappend machinfo [winfo pointerxy .]
-      lappend machinfo [winfo id .]
-    }
-  } else {
-    ###
-    # If the nettool package works on this platform
-    # use the stream of hardware ids from it
-    ###
-    lappend machinfo {*}[::nettool::hwid_list]
-  }
-  return $machinfo
-}
-
-# Generates a binary UUID as per the draft spec. We generate a pseudo-random
-# type uuid (type 4). See section 3.4
-#
-proc ::uuid::generate_tcl {} {
-    package require md5 2
-    variable uid
-
-    set tok [md5::MD5Init]
-    md5::MD5Update $tok [incr uid];      # package incrementing counter
-    foreach string [generate_tcl_machinfo] {
-      md5::MD5Update $tok $string
-    }
-    set r [md5::MD5Final $tok]
-    binary scan $r c* r
-
-    # 3.4: set uuid versioning fields
-    lset r 8 [expr {([lindex $r 8] & 0x3F) | 0x80}]
-    lset r 6 [expr {([lindex $r 6] & 0x0F) | 0x40}]
-
-    return [binary format c* $r]
-}
-
-if {[string equal $tcl_platform(platform) "windows"]
-        && [package provide critcl] != {}} {
-    namespace eval uuid {
-        critcl::ccode {
-            #define WIN32_LEAN_AND_MEAN
-            #define STRICT
-            #include <windows.h>
-            #include <ole2.h>
-            typedef long (__stdcall *LPFNUUIDCREATE)(UUID *);
-            typedef const unsigned char cu_char;
-        }
-        critcl::cproc generate_c {Tcl_Interp* interp} ok {
-            HRESULT hr = S_OK;
-            int r = TCL_OK;
-            UUID uuid = {0};
-            HMODULE hLib;
-            LPFNUUIDCREATE lpfnUuidCreate = NULL;
-            hLib = LoadLibraryA(("rpcrt4.dll"));
-            if (hLib)
-                lpfnUuidCreate = (LPFNUUIDCREATE)
-                    GetProcAddress(hLib, "UuidCreate");
-            if (lpfnUuidCreate) {
-                Tcl_Obj *obj;
-                lpfnUuidCreate(&uuid);
-                obj = Tcl_NewByteArrayObj((cu_char *)&uuid, sizeof(uuid));
-                Tcl_SetObjResult(interp, obj);
-            } else {
-                Tcl_SetResult(interp, "error: failed to create a guid",
-                              TCL_STATIC);
-                r = TCL_ERROR;
-            }
-            return r;
-        }
-    }
-}
-
-# Convert a binary uuid into its string representation.
-#
-proc ::uuid::tostring {uuid} {
-    binary scan $uuid H* s
-    foreach {a b} {0 7 8 11 12 15 16 19 20 end} {
-        append r [string range $s $a $b] -
-    }
-    return [string tolower [string trimright $r -]]
-}
-
-# Convert a string representation of a uuid into its binary format.
-#
-proc ::uuid::fromstring {uuid} {
-    return [binary format H* [string map {- {}} $uuid]]
-}
-
-# Compare two uuids for equality.
-#
-proc ::uuid::equal {left right} {
-    set l [fromstring $left]
-    set r [fromstring $right]
-    return [string equal $l $r]
-}
-
-# Call our generate uuid implementation
-proc ::uuid::generate {} {
-    variable accel
-    if {$accel(critcl)} {
-        return [generate_c]
-    } else {
-        return [generate_tcl]
-    }
-}
-
-# uuid generate -> string rep of a new uuid
-# uuid equal uuid1 uuid2
-#
-proc uuid::uuid {cmd args} {
-    switch -exact -- $cmd {
-        generate {
-            if {[llength $args] != 0} {
-                return -code error "wrong # args:\
-                    should be \"uuid generate\""
-            }
-            return [tostring [generate]]
-        }
-        equal {
-            if {[llength $args] != 2} {
-                return -code error "wrong \# args:\
-                    should be \"uuid equal uuid1 uuid2\""
-            }
-            return [eval [linsert $args 0 equal]]
-        }
-        default {
-            return -code error "bad option \"$cmd\":\
-                must be generate or equal"
-        }
-    }
-}
-
-# -------------------------------------------------------------------------
-
-# LoadAccelerator --
-#
-#	This package can make use of a number of compiled extensions to
-#	accelerate the digest computation. This procedure manages the
-#	use of these extensions within the package. During normal usage
-#	this should not be called, but the test package manipulates the
-#	list of enabled accelerators.
-#
-proc ::uuid::LoadAccelerator {name} {
-    variable accel
-    set r 0
-    switch -exact -- $name {
-        critcl {
-            if {![catch {package require tcllibc}]} {
-                set r [expr {[info commands ::uuid::generate_c] != {}}]
-            }
-        }
-        default {
-            return -code error "invalid accelerator package:\
-                must be one of [join [array names accel] {, }]"
-        }
-    }
-    set accel($name) $r
-}
-
-# -------------------------------------------------------------------------
-
-# Try and load a compiled extension to help.
-namespace eval ::uuid {
-    variable e {}
-    foreach e {critcl} {
-        if {[LoadAccelerator $e]} break
-    }
-    unset e
-}
-
-package provide uuid 1.0.8
-
-# -------------------------------------------------------------------------
-# Local variables:
-#   mode: tcl
-#   indent-tabs-mode: nil
-# End:
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.9.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.9.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/uuid-1.0.9.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/uuid-1.0.9.tm
diff --git a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/zipper-0.12.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/zipper-0.12.tm
index 1983211c..99a566c7 100644
Binary files a/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/zipper-0.12.tm and b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/zipper-0.12.tm differ
diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/zzzload-0.1.0.tm b/src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/zzzload-0.1.0.tm
similarity index 100%
rename from src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/zzzload-0.1.0.tm
rename to src/project_layouts/vendor/punk/project-0.1/src/bootsupport/modules/zzzload-0.1.0.tm
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 f2aa3155..fb2a5353 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
@@ -2,12 +2,15 @@
 #
 # punkboot - make any tclkits and modules in <projectdir>/src folders and place them and associated data files/scripts in the parent folder of src.
 #e.g in 'bin' and 'modules' folders at same level as 'src' folder.
+if {[info exists ::env(NO_COLOR)]} {
+    namespace eval ::punk::console {variable colour_disabled 1}
+}
 set hashline "# ## ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###"
 puts $hashline
-puts "    Punk Boot" 
+puts "    Punk Boot"
 puts $hashline\n
 
-package prefer latest 
+package prefer latest
 lassign [split [info tclversion] .] tclmajorv tclminorv
 
 global A  ;#UI Ansi code array
@@ -19,12 +22,38 @@ namespace eval ::punkboot {
     variable pkg_requirements [list]; variable pkg_missing [list];variable pkg_loaded [list]
     variable non_help_flags [list -k]
     variable help_flags     [list -help --help /? -h]
-    variable known_commands [list project modules vfs info check shell vendorupdate bootsupport vfscommonupdate]
+    variable known_commands [list project modules libs packages vfs bin info check shell vendorupdate bootsupport vfscommonupdate ]
 }
 
 
 
 namespace eval ::punkboot::lib {
+    #for some purposes (whether a source folder is likely to have any useful content) we are interested in non dotfile/dotfolder immediate contents of a folder, but not whether a particular platform
+    #considers them hidden or not.
+    proc folder_nondotted_children {folder} {
+        set normfolder [file normalize $folder]
+        if {![file isdirectory $normfolder]} {error "punkboot::lib::folder_nondotted_children error. Supplied folder '$folder' is not a directory"}
+        set contents [glob -nocomplain -dir $folder -tails *]
+        #some platforms (windows) return dotted entries with *, although most don't
+        set nondotted_tails [lsearch -all -inline -not $contents .*]
+        return [lmap ftail $nondotted_tails {file join $folder $ftail}]
+    }
+    proc folder_nondotted_folders {folder} {
+        set normfolder [file normalize $folder]
+        if {![file isdirectory $normfolder]} {error "punkboot::lib::folder_nondotted_folders error. Supplied folder '$folder' is not a directory"}
+        set contents [glob -nocomplain -dir $folder -types d -tails *]
+        #some platforms (windows) return dotted entries with *, although most don't
+        set nondotted_tails [lsearch -all -inline -not $contents .*]
+        return [lmap ftail $nondotted_tails {file join $folder $ftail}]
+    }
+    proc folder_nondotted_files {folder} {
+        set normfolder [file normalize $folder]
+        if {![file isdirectory $normfolder]} {error "punkboot::lib::folder_nondotted_files error. Supplied folder '$folder' is not a directory"}
+        set contents [glob -nocomplain -dir $folder -types f $folder -tails *]
+        #some platforms (windows) return dotted entries with *, although most don't
+        set nondotted_tails [lsearch -all -inline -not $contents .*]
+        return [lmap ftail $nondotted_tails {file join $folder $ftail}]
+    }
     proc tm_version_isvalid {versionpart} {
         #Needs to be suitable for use with Tcl's 'package vcompare'
         if {![catch [list package vcompare $versionpart $versionpart]]} {
@@ -104,7 +133,7 @@ namespace eval ::punkboot::lib {
             }
         }
         return [join $newparts .]
-    } 
+    }
     proc tm_version_required_canonical {versionspec} {
         #also trim leading zero from any dottedpart?
         #Tcl *allows* leading zeros in any of the dotted parts - but they are not significant.
@@ -112,10 +141,10 @@ namespace eval ::punkboot::lib {
         #also 1b3 == 1b0003
 
         if {[string trim $versionspec] eq ""} {return ""}  ;#unspecified = any version
-        set errmsg "punkboot::lib::tm_version_required_canonical - invalid version specification" 
+        set errmsg "punkboot::lib::tm_version_required_canonical - invalid version specification"
         if {[string first - $versionspec] < 0} {
-            #no dash  
-            #looks like a minbounded version (ie a single version with no dash)  convert to min-max form 
+            #no dash
+            #looks like a minbounded version (ie a single version with no dash)  convert to min-max form
             set from $versionspec
             if {![::punkboot::lib::tm_version_isvalid $from]} {
                 error "$errmsg '$versionpec'"
@@ -127,7 +156,7 @@ namespace eval ::punkboot::lib {
                 error "$errmsg '$versionspec'"
             }
         } else {
-            # min- or min-max 
+            # min- or min-max
             #validation and canonicalisation (strip leading zeroes from each segment, including either side of a or b)
             set parts [split $versionspec -] ;#we expect only 2 parts
             lassign $parts from to
@@ -151,6 +180,105 @@ namespace eval ::punkboot::lib {
             error "tm_version_required_canonical should have already returned a canonicalised versionspec - or produced an error with reason before this point"
         }
     }
+    #This is somewhat ugly - but we don't want to do any 'package require' operations at this stage
+    # even for something that is available in tcl_library.
+    #review
+    proc platform_generic {} {
+        #platform::generic - snipped straight from platform package
+        global tcl_platform
+
+        set plat [string tolower [lindex $tcl_platform(os) 0]]
+        set cpu  $tcl_platform(machine)
+
+        switch -glob -- $cpu {
+        sun4* {
+            set cpu sparc
+        }
+        intel -
+        ia32* -
+        i*86* {
+            set cpu ix86
+        }
+        x86_64 {
+            if {$tcl_platform(wordSize) == 4} {
+                # See Example <1> at the top of this file.
+                set cpu ix86
+            }
+        }
+        ppc -
+        "Power*" {
+            set cpu powerpc
+        }
+        "arm*" {
+            set cpu arm
+        }
+        ia64 {
+            if {$tcl_platform(wordSize) == 4} {
+            append cpu _32
+            }
+        }
+        }
+
+        switch -glob -- $plat {
+        windows {
+            if {$tcl_platform(platform) == "unix"} {
+                set plat cygwin
+            } else {
+                set plat win32
+            }
+            if {$cpu eq "amd64"} {
+                # Do not check wordSize, win32-x64 is an IL32P64 platform.
+                set cpu x86_64
+            }
+        }
+        sunos {
+            set plat solaris
+            if {[string match "ix86" $cpu]} {
+                if {$tcl_platform(wordSize) == 8} {
+                    set cpu x86_64
+                }
+            } elseif {![string match "ia64*" $cpu]} {
+                # sparc
+                if {$tcl_platform(wordSize) == 8} {
+                    append cpu 64
+                }
+            }
+        }
+        darwin {
+            set plat macosx
+            # Correctly identify the cpu when running as a 64bit
+            # process on a machine with a 32bit kernel
+            if {$cpu eq "ix86"} {
+                if {$tcl_platform(wordSize) == 8} {
+                    set cpu x86_64
+                }
+            }
+        }
+        aix {
+            set cpu powerpc
+            if {$tcl_platform(wordSize) == 8} {
+                append cpu 64
+            }
+        }
+        hp-ux {
+            set plat hpux
+            if {![string match "ia64*" $cpu]} {
+                set cpu parisc
+                if {$tcl_platform(wordSize) == 8} {
+                    append cpu 64
+                }
+            }
+        }
+        osf1 {
+            set plat tru64
+        }
+        default {
+            set plat [lindex [split $plat _-] 0]
+        }
+        }
+
+        return "${plat}-${cpu}"
+    }
 
 }
 
@@ -162,32 +290,45 @@ if {"::try" ni [info commands ::try]} {
 #------------------------------------------------------------------------------
 #Module loading from src/bootsupport or [pwd]/modules if pwd is a 'src' folder
 #------------------------------------------------------------------------------
-#If there is a folder under the current directory, in the subpath  src/bootsupport/modules which contains .tm files 
+#If there is a folder under the current directory, in the subpath  src/bootsupport/modules which contains .tm files
 # - then it will attempt to preference these modules
 # This allows a source update via 'fossil update' 'git pull' etc to pull in a minimal set of support modules for the boot script
 # and load these in preference to ones that may have been in the interp's tcl::tm::list or auto_path due to environment variables
 set startdir [pwd]
+
+set scriptdir [file dirname [file normalize [info script]]]
+#puts "SCRIPTDIR: $scriptdir"
+
 #we are focussed on pure-tcl libs/modules in bootsupport for now.
-#There may be cases where we want to use compiled packages from src/bootsupport/modules_tcl9 etc 
+#There may be cases where we want to use compiled packages from src/bootsupport/modules_tcl9 etc
 #REVIEW - punkboot can really speed up with appropriate accelerators and/or external binaries
 #       - we need to support that without binary downloads from repos unless the user explicitly asks for that.
 #       - They may already be available in the vfs (or pointed to package paths) of the running executable.
 #       - todo: some user prompting regarding installs with platform-appropriate package managers
-#       - todo: some user prompting regarding building accelerators from source. 
+#       - todo: some user prompting regarding building accelerators from source.
 
 # -------------------------------------------------------------------------------------
 set bootsupport_module_paths    [list]
 set bootsupport_library_paths   [list]
-if {[file exists [file join $startdir src bootsupport]]} {
-    lappend bootsupport_module_paths    [file join $startdir src bootsupport modules]
-    lappend bootsupport_module_paths    [file join $startdir src bootsupport modules_tcl$::tclmajorv]
-    lappend bootsupport_library_paths   [file join $startdir src bootsupport lib]
-    lappend bootsupport_library_paths   [file join $startdir src bootsupport lib_tcl$::tclmajorv]
+set this_platform_generic [punkboot::lib::platform_generic]
+#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 $scriptdir bootsupport]]} {
+    set bootsupportdir [file join $scriptdir bootsupport]
+    puts stderr "Using bootsupport dir $bootsupportdir"
+
+    lappend bootsupport_module_paths    [file join $bootsupportdir modules_tcl$::tclmajorv] ;#more version-specific modules slightly higher in precedence order
+    lappend bootsupport_module_paths    [file join $bootsupportdir modules]
+    lappend bootsupport_library_paths   [file join $bootsupportdir lib_tcl$::tclmajorv/allplatforms] ;#more version-specific pkgs slightly higher in precedence order
+    lappend bootsupport_library_paths   [file join $bootsupportdir lib_tcl$::tclmajorv/$this_platform_generic] ;#more version-specific pkgs slightly higher in precedence order
+    lappend bootsupport_library_paths   [file join $bootsupportdir lib]
 } else {
-    lappend bootsupport_module_paths    [file join $startdir bootsupport modules]
-    lappend bootsupport_module_paths    [file join $startdir bootsupport modules_tcl$::tclmajorv]
-    lappend bootsupport_library_paths   [file join $startdir bootsupport lib]
-    lappend bootsupport_library_paths   [file join $startdir bootsupport lib_tcl$::tclmajorv]
+    puts stderr "No bootsupport dir for script [info script] at [file join $scriptdir bootsupport]"
+    #lappend bootsupport_module_paths    [file join $startdir bootsupport modules_tcl$::tclmajorv]
+    #lappend bootsupport_module_paths    [file join $startdir bootsupport modules]
+    #lappend bootsupport_library_paths   [file join $startdir bootsupport lib_tcl$::tclmajorv/allplatforms]
+    #lappend bootsupport_library_paths   [file join $startdir bootsupport lib_tcl$::tclmajorv/$this_platform_generic]
+    #lappend bootsupport_library_paths   [file join $startdir bootsupport lib]
 }
 set bootsupport_paths_exist 0
 foreach p [list {*}$bootsupport_module_paths {*}$bootsupport_library_paths] {
@@ -207,13 +348,13 @@ set sourcesupport_paths_exist 0
 #(most?) Modules in src/modules etc should still be runnable directly in certain cases like this where we point to them.
 if {[file tail $startdir] eq "src"} {
     #todo - other src 'module' dirs..
-    foreach p [list $startdir/modules $startdir/modules_tcl$::tclmajorv $startdir/vendormodules $startdir/vendormodules_tcl$::tclmajorv]  {
+    foreach p [list $startdir/modules_tcl$::tclmajorv $startdir/modules  $startdir/vendormodules_tcl$::tclmajorv $startdir/vendormodules]  {
         if {[file exists $p]} {
-            lappend sourcesupport_module_paths $p 
+            lappend sourcesupport_module_paths $p
         }
     }
     # -- -- --
-    foreach p [list $startdir/lib $startdir/lib_tcl$::tclmajorv $startdir/vendorlib $startdir/vendorlib_tcl$::tclmajorv] {
+    foreach p [list $startdir/lib_tcl$::tclmajorv/allplatforms $startdir/lib_tcl$::tclmajorv/$this_platform_generic $startdir/lib $startdir/vendorlib_tcl$::tclmajorv/allplatforms $startdir/vendorlib_tcl$::tclmajorv/$this_platform_generic $startdir/vendorlib] {
         if {[file exists $p]} {
             lappend sourcesupport_library_paths $p
         }
@@ -228,7 +369,7 @@ if {[file tail $startdir] eq "src"} {
     }
 
     if {$sourcesupport_paths_exist} {
-        #launch from <projectdir/src is also likely to be common 
+        #launch from <projectdir/src is also likely to be common
         # but we need to be loud about what's going on.
         puts stderr "------------------------------------------------------------------"
         puts stderr "Launched from within a folder ending in 'src'"
@@ -237,24 +378,29 @@ if {[file tail $startdir] eq "src"} {
     }
 }
 # -------------------------------------------------------------------------------------
+set original_tm_list [tcl::tm::list]
+set original_auto_path $::auto_path
 
-set package_paths_modified 0 
+set package_paths_modified 0
 if {$bootsupport_paths_exist || $sourcesupport_paths_exist} {
-    set original_tm_list [tcl::tm::list]
     tcl::tm::remove {*}$original_tm_list
-    set original_auto_path $::auto_path
 
     #very basic test there is something there..
     set support_contents_exist 0
     foreach p [list {*}$bootsupport_module_paths {*}$bootsupport_library_paths {*}$sourcesupport_module_paths {*}$sourcesupport_library_paths] {
-        set contents [glob -nocomplain -dir $p -tail *]
+        #set contents [glob -nocomplain -dir $p -tail *]
+        if {![file exists $p]} {continue}
+        set contents [punkboot::lib::folder_nondotted_children $p]
+        set readmeposn [lsearch -nocase $contents readme.md]
+        #don't assume 'ledit' available
+        set contents [lreplace $contents $readmeposn $readmeposn] ;#list unchanged if -1
         if {[llength $contents]} {
             set support_contents_exist 1
             break
         }
     }
 
-    set tcl_core_packages [list tcl::zlib zlib tcl::oo TclOO tcl::tommath tcl::zipfs Tcl Tk] ;#packages we 
+    set tcl_core_packages [list tcl::zlib zlib tcl::oo TclOO tcl::tommath tcl::zipfs Tcl Tk]
     if {$support_contents_exist} {
         #only forget all *unloaded* package names
         foreach pkg [package names] {
@@ -270,48 +416,91 @@ if {$bootsupport_paths_exist || $sourcesupport_paths_exist} {
                 package forget $pkg
             }
         }
-        #tcl::tm::add {*}$original_tm_list {*}$bootsupport_module_paths {*}$sourcesupport_module_paths 
-        #set ::auto_path [list {*}$original_auto_path {*}$bootsupport_library_paths {*}$sourcesupport_library_paths]
-        tcl::tm::add  {*}$bootsupport_module_paths {*}$sourcesupport_module_paths 
-        set ::auto_path [list  {*}$bootsupport_library_paths {*}$sourcesupport_library_paths]
+        #Deliberately omit original_tm_list and original_auto_path
+        tcl::tm::add  {*}[lreverse $bootsupport_module_paths] {*}[lreverse $sourcesupport_module_paths] ;#tm::add works like LIFO. sourcesupport_module_paths end up earliest in resulting tm list.
+        set ::auto_path [list  {*}$sourcesupport_library_paths {*}$bootsupport_library_paths]
+    }
+    #puts "----> auto_path     $::auto_path"
+    #puts "----> tcl::tm::list [tcl::tm::list]"
+
+    #maint: also in punk::repl package
+    #--------------------------------------------------------
+    set libunks [list]
+    foreach tm_path [tcl::tm::list] {
+        set punkdir [file join $tm_path punk]
+        if {![file exists $punkdir]} {continue}
+        lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm]
+    }
+    set libunknown ""
+    set libunknown_version_sofar ""
+    foreach lib $libunks {
+        #expecting to be of form libunknown-<tclversion>.tm
+        set vtail [lindex [split [file tail $lib] -] 1]
+        set thisver [file rootname $vtail] ;#file rootname x.y.z.tm
+        if {$libunknown_version_sofar eq ""} {
+            set libunknown_version_sofar $thisver
+            set libunknown $lib
+        } else {
+            if {[package vcompare $thisver $libunknown_version_sofar] == 1} {
+                set libunknown_version_sofar $thisver
+                set libunknown $lib
+            }
+        }
     }
-    puts "----> auto_path $::auto_path"
-
-
+    if {$libunknown ne ""} {
+        source $libunknown
+        if {[catch {punk::libunknown::init -caller make.tcl} errM]} {
+            puts stderr "error initialising punk::libunknown\n$errM"
+        }
+        #puts stdout " *** [package names]"
+        #puts stdout " **** [dict get $::punk::libunknown::epoch pkg untracked]"
+    } else {
+        puts stderr "Failed to find punk::libunknown"
+    }
+    #--------------------------------------------------------
 
     #package require Thread
+    #puts "---->tcl_library [info library]"
+    #puts "---->loaded      [info loaded]"
     # - the full repl requires Threading and punk,shellfilter,shellrun to call and display properly.
-    
-    
+
     # tm list already indexed - need 'package forget' to find modules based on current tcl::tm::list
-    #These are strong dependencies 
-    package forget  punk::mix
-    package forget  punk::repo 
-    package forget  punkcheck 
+    #These are strong dependencies
+    #package forget  punk::mix
+    #package forget  punk::repo
+    #package forget  punkcheck
 
     package require punk::repo ;#todo - push our requirements to a smaller punk::repo::xxx package with minimal dependencies
     package require punk::mix
     package require punkcheck
     package require punk::lib
+    package require punk::args
+    package require punk::ansi
+    package require textblock
+
 
     set package_paths_modified 1
 
     #------------------------------------------------------------------------------
+    #puts "----> llength package names [llength [package names]]"
 }
 
 set ::punkboot::pkg_requirements_found [list]
 
 #we will treat 'package require <mver>.<etc>' (minbounded) as  <mver>.<etc>-<mver+1> ie explicitly convert to corresponding bounded form
-#put some with leading zeros to test normalisation 
+#put some with leading zeros to test normalisation
 set ::punkboot::bootsupport_requirements [dict create\
     punk::repo              [list version "00.01.01-"]\
     punk::mix               [list version ""]\
     punk::ansi              [list]\
+    punk::args              [list]\
     overtype                [list version "1.6.5-"]\
     punkcheck               [list]\
     fauxlink                [list version "0.1.1-"]\
     textblock               [list version 0.1.1-]\
+    fileutil                [list]\
     fileutil::traverse      [list]\
+    struct::list            [list]\
     md5                     [list version 2-]\
 ]
 
@@ -322,7 +511,7 @@ dict for {pkg pkginfo} $::punkboot::bootsupport_requirements {
         if {![catch {::punkboot::lib::tm_version_required_canonical $ver} canonical]} {
             if {$canonical ne $ver} {
                 dict set pkginfo version $canonical  ;# plain ver mapped to min-max. min- and min-max and empty left as is
-                dict set ::punkboot::bootsupport_requirements $pkg $pkginfo 
+                dict set ::punkboot::bootsupport_requirements $pkg $pkginfo
             }
         } else {
             puts stderr "punkboot::bootsupport_requirements - package $pkg has invalid version specification '$ver'"
@@ -331,9 +520,9 @@ dict for {pkg pkginfo} $::punkboot::bootsupport_requirements {
     } else {
         #make sure each has a blank version entry if nothing was there.
         dict set pkginfo version ""
-        dict set ::punkboot::bootsupport_requirements $pkg $pkginfo 
+        dict set ::punkboot::bootsupport_requirements $pkg $pkginfo
     }
-} 
+}
 #Assert - our bootsupport_requirement version numbers should now be either empty or of the form min- or min-max
 #dict for {k v} $::punkboot::bootsupport_requirements {
 #    puts "- $k $v"
@@ -356,7 +545,7 @@ set ::punkboot::bootsupport_recommended [dict create\
 # create an interp in which we hijack package command
 # This allows us to auto-gather some dependencies (not necessarily all and not necessarily strictly required)
 # Note: even in a separate interp we could still possibly get side-effects if a package has compiled components - REVIEW
-# Hopefully the only side-effect is that a subsequent load of the package will be faster... 
+# Hopefully the only side-effect is that a subsequent load of the package will be faster...
 # (punk boot is intended to operate without compiled components - but some could be pulled in by tcl modules if they're found)
 # (tcllibc is also highly desirable as the performance impact when not available can be dramatic.)
 # ... but if the binary is loaded with a different path name when we come to actually use it - there could be issues.
@@ -378,7 +567,7 @@ proc  ::punkboot::check_package_availability {args} {
     #best effort at auto-determinining packages required (dependencies) based on top-level packages in the list.
     #Without fully parsing the package-loading Tcl scripts and examining all side-effects (an unlikely capability),
     # this is not going to be as accurate as the package developer providing a definitive list of which packages are required and which are optional.
-    # 'optionality' is a contextual concept anyway depending on how the package is intended to be used. 
+    # 'optionality' is a contextual concept anyway depending on how the package is intended to be used.
     # The package developer may consider a feature optional - but it may not be optional in a particular usecase.
 
     set bootsupport_requirements [lindex $args end]
@@ -484,7 +673,7 @@ proc  ::punkboot::check_package_availability {args} {
                     #should still distinguish: {pkgname {}} -valid vs {pkgname {{}}} due to empty string supplied in call - invalid - but leave for underlying package command to error on
                     set pkgrequest [list $pkgname $requirements_list]
                     if {$pkgrequest ni $::test::pkg_requested} {
-                        lappend ::test::pkg_requested $pkgrequest 
+                        lappend ::test::pkg_requested $pkgrequest
                     }
 
                     # -- -- --- --- --- --- --- -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
@@ -507,13 +696,13 @@ proc  ::punkboot::check_package_availability {args} {
                     }
                     if {[llength $::test::pkg_stack]} {
                         set caller [lindex $::test::pkg_stack end]
-                        set required_by [dict get $pinfo required_by] 
+                        set required_by [dict get $pinfo required_by]
                         if {$caller ni $required_by} {
                             lappend required_by $caller
                         }
                         dict set pinfo required_by $required_by
                     }
-                    lappend ::test::pkg_stack $pkgname 
+                    lappend ::test::pkg_stack $pkgname
 
                     #At this point we could short circuit if we've already classified this package/requirements combo as missing/broken from a previous require
                     #review - there is some chance the exact pkg/requirements combo may succeed after an earlier failure if some package adjusted search paths..
@@ -527,23 +716,23 @@ proc  ::punkboot::check_package_availability {args} {
                     #use our normalised requirements instead of original args
                     #if {[catch [list ::package_orig {*}$args] result]} {}
                     if {[catch [list ::package_orig require $pkgname {*}$requirements_list] result]} {
-                        dict set pinfo testerror $result 
+                        dict set pinfo testerror $result
                         #package missing - or exists - but failing to initialise
                         if {!$::opt_quiet} {
                             set parent_path [lrange $::test::pkg_stack 0 end-1]
                             puts stderr "\x1b\[32m $pkgname versions: $versions error: $result\x1b\[m"
                             set parent_path [join $parent_path " -> "]
-                            puts stderr "pkg requirements: $parent_path" 
+                            puts stderr "pkg requirements: $parent_path"
                             puts stderr "error during    : '$args'"
                             puts stderr "    \x1b\[93m$result\x1b\[m"
                         }
 
                         #the failed package may still exist - so we could check 'package files' and 'package ifneeded' here too - REVIEW
-                        #to determine the version that we attempted to load, 
+                        #to determine the version that we attempted to load,
                         #- we need to look at 'pkg versions' vs -exact  / ver / ver-ver (using package vsatisfies)
                         if {![llength $versions]} {
                             #no versions *and* we had an error - missing is our best guess. review.
-                            #'package versions Tcl' never shows any results 
+                            #'package versions Tcl' never shows any results
                             #so requests for old versions will show as missing not broken.
                             #This is probably better anyway.
                             if {$pkgrequest ni $::test::pkg_missing} {
@@ -572,21 +761,21 @@ proc  ::punkboot::check_package_availability {args} {
                                     lappend selectable_versions $v
                                 }
                             } else {
-                                #we are operating under 'package prefer' = latest 
+                                #we are operating under 'package prefer' = latest
                                 set selectable_versions $ordered_versions
                             }
 
                             if {[llength $requirements_list]} {
                                 #add one or no entry for each requirement.
                                 #pick highest at end
-                                set satisfiers [list] 
+                                set satisfiers [list]
                                 foreach requirement $requirements_list {
                                     foreach ver [lreverse $selectable_versions] {
                                         if {[package vsatisfies $ver $requirement]} {
                                             lappend satisfiers $ver
                                             break
-                                        } 
-                                    } 
+                                        }
+                                    }
                                 }
                                 if {[llength $satisfiers]} {
                                     set satisfiers [lsort -command {::package_orig vcompare} $satisfiers]
@@ -622,7 +811,7 @@ proc  ::punkboot::check_package_availability {args} {
                         if {![catch {::package_orig files Tcl} ]} {
                             #tcl9 (also some 8.6/8.7)  has 'package files' subcommand.
                             #unfortunately, in some cases (e.g md5 when no accelerators available) this can be a huge list (1000+) showing all scanned pkgIndex.tcl files from unrelated packages.
-                            #We expect this to be fixed - but early Tcl9 (and some 8.6/8.7) versions may persist and have this behaviour 
+                            #We expect this to be fixed - but early Tcl9 (and some 8.6/8.7) versions may persist and have this behaviour
                             #see: https://core.tcl-lang.org/tcl/tktview/209fd9adce
                             set all_files [::package_orig files $pkgname]
                             #some arbitrary threshold? REVIEW
@@ -637,7 +826,7 @@ proc  ::punkboot::check_package_availability {args} {
                             dict set pinfo packagefiles {} ;#default
                             #there are all sorts of scripts, so this is not predictably structured
                             #e.g using things like apply
-                            #we will attempt to get a trailing source .. <file> 
+                            #we will attempt to get a trailing source .. <file>
                             set parts [split [string trim $ifneeded_script] {;}]
                             set trimparts [list]
                             foreach p $parts {
@@ -648,7 +837,7 @@ proc  ::punkboot::check_package_availability {args} {
                             if {$last_with_text ne "" && [regexp -- {\S+$} $last_with_text lastword]} {
                                 #if it's a file or dir - close enough (?)
                                 #e.g tcllibc uses apply and the last entry is actuall a folder used to find the file..
-                                #we aren't brave enough to try to work out the actual file(s)  
+                                #we aren't brave enough to try to work out the actual file(s)
                                 if {[file exists $lastword]} {
                                     dict set pinfo packagefiles $lastword
                                 }
@@ -662,10 +851,10 @@ proc  ::punkboot::check_package_availability {args} {
                     return [uplevel 1 [list ::package_orig {*}$args]]
                 }
             }
-            
+
             set ::test::pkg_stack [list]
             catch {::package_orig require zzz-non-existant} ;#scan so we get 'package versions' results
-            dict for {pkg pkgdict} $::test::bootsupport_requirements { 
+            dict for {pkg pkgdict} $::test::bootsupport_requirements {
                 #set nsquals [namespace qualifiers $pkg]
                 #if {$nsquals ne ""} {
                 #    catch {::package_orig require ${nsquals}::zzz-non-existant} ;#force scan of every level encountered
@@ -690,7 +879,7 @@ proc  ::punkboot::check_package_availability {args} {
         #    set ver [package provide $pkg]
         #    if {$ver eq ""} {
         #        #puts stderr "missing pkg: $pkg"
-        #        lappend ::test::pkg_missing $pkg 
+        #        lappend ::test::pkg_missing $pkg
         #    } else {
         #        if {[string tolower $pkg] eq "tcl"} {
         #            #ignore
@@ -849,7 +1038,7 @@ proc ::punkboot::get_display_missing_packages {pkg_availability} {
     array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
     global A
     if {![array size A]} {
-        punkboot::define_global_ansi $pkg_availability 
+        punkboot::define_global_ansi
     }
     set missing_rows [list]
     set fields_blank_missing [dict create\
@@ -897,7 +1086,7 @@ proc ::punkboot::get_display_broken_packages {pkg_availability} {
     array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
     global A
     if {![array size A]} {
-        punkboot::define_global_ansi $pkg_availability 
+        punkboot::define_global_ansi
     }
     set broken_rows [list]
     set fields_blank_broken [dict create\
@@ -997,22 +1186,33 @@ proc ::punkboot::get_display_broken_packages {pkg_availability} {
     }
     return $broken_out
 }
-proc ::punkboot::define_global_ansi {pkg_availability} {
+proc ::punkboot::define_global_ansi {} {
     #stick to basic colours for themable aspects ?
     #
-    array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
+    set has_ansi [expr {[package provide punk::ansi] ne ""}]
+
     global A
-    set A(RST)             \x1b\[m
-    if {!$haspkg(punk::ansi)} {
-        set A(HIGHLIGHT)       \x1b\[93m        ;#brightyellow
-        set A(BWHITE)          \x1b\[97m        ;#brightwhite
-        set A(OK)              \x1b\[92m        ;#brightgreen 
-        set A(BAD)             \x1b\[33m        ;# orange
-        set A(ERR)             \x1b\[31m        ;# red
+    if {!$has_ansi} {
+        if {[info exists ::punk::console::colour_disabled] && $::punk::console::colour_disabled} {
+            set A(RST)              ""
+            set A(HIGHLIGHT)        ""
+            set A(BWHITE)           ""
+            set A(OK)               ""
+            set A(BAD)              ""
+            set A(ERR)              ""
+        } else {
+            set A(RST)             \x1b\[m
+            set A(HIGHLIGHT)       \x1b\[93m        ;#brightyellow
+            set A(BWHITE)          \x1b\[97m        ;#brightwhite
+            set A(OK)              \x1b\[92m        ;#brightgreen 
+            set A(BAD)             \x1b\[33m        ;# orange
+            set A(ERR)             \x1b\[31m        ;# red
+        }
     } else {
         namespace eval ::punkboot {
             namespace import ::punk::ansi::a+ ::punk::ansi::a
         }
+        set A(RST)             \x1b\[m
         set A(HIGHLIGHT)       [a+ brightyellow]
         set A(BWHITE)          [a+ brightwhite]
         set A(OK)              [a+ web-lawngreen]     ;#brightgreen 
@@ -1025,7 +1225,7 @@ proc ::punkboot::punkboot_gethelp {args} {
     #gather details on what is missing so that the info is always reported in help output.
     variable pkg_availability
     global A
-    punkboot::define_global_ansi $pkg_availability
+    punkboot::define_global_ansi
 
     array set haspkg  [punkboot::package_bools $pkg_availability] ;#convenience e.g if {$haspkg(textblock)} ...
 
@@ -1036,10 +1236,16 @@ proc ::punkboot::punkboot_gethelp {args} {
     append h "    - This help." \n \n
     append h "  $scriptname project ?-k?" \n
     append h "    - this is the literal word project - and confirms you want to run the project build - which includes src/vfs/* checks and builds" \n
-    append h "    - the optional -k flag will terminate running processes matching the executable being built (if applicable)" \n 
-    append h "    - built modules go into <projectdir>/modules <projectdir>/lib etc." \n \n
+    append h "    - the optional -k flag will terminate running processes matching the executable being built (if applicable)" \n
+    append h "    - builds/copies .tm modules from src to <projectdir>/modules etc and pkgIndex.tcl based libraries from src to <projectdir>/lib etc." \n \n
     append h "  $scriptname modules"  \n
-    append h "    - build modules from src/modules src/vendormodules etc to their corresponding locations under <projectdir>" \n
+    append h "    - build (or copy if build not required) .tm modules from src/modules src/vendormodules etc to their corresponding locations under <projectdir>" \n
+    append h "      This does not scan src/runtime and src/vfs folders to build kit/zipkit/cookfs executables" \n \n
+    append h "  $scriptname libs"  \n
+    append h "    - build (or copy if build not required) pkgIndex.tcl based libraries from src/lib src/vendorlib etc to their corresponding locations under <projectdir>" \n
+    append h "      This does not scan src/runtime and src/vfs folders to build kit/zipkit/cookfs executables" \n \n
+    append h "  $scriptname packages"  \n
+    append h "    - build (or copy if build not required) both .tm and pkgIndex.tcl based packages from src to their corresponding locations under <projectdir>" \n
     append h "      This does not scan src/runtime and src/vfs folders to build kit/zipkit/cookfs executables" \n \n
     append h "  $scriptname bootsupport"  \n
     append h "    - update the src/bootsupport modules as well as the mixtemplates/layouts/<layoutname>/src/bootsupport modules if the folder exists" \n
@@ -1048,6 +1254,7 @@ proc ::punkboot::punkboot_gethelp {args} {
     append h "    - bootsupport modules are available to make.tcl" \n \n
     append h "  $scriptname vendorupdate"  \n
     append h "    - update the src/vendormodules based on src/vendormodules/include_modules.config" \n \n
+    append h "    - update the src/vendorlib based on src/vendorlib/config.toml (todo)" \n \n
     append h "  $scriptname vfscommonupdate"  \n
     append h "    - update the src/vfs/_vfscommon.vfs from compiled src/modules and src/lib etc" \n
     append h "    - before calling this (followed by make project) - you can test using '<builtexe>(.exe) dev'" \n
@@ -1056,6 +1263,8 @@ proc ::punkboot::punkboot_gethelp {args} {
     append h "    - show the name and base folder of the project to be built" \n \n
     append h "  $scriptname check" \n
     append h "    - show module/library paths and any potentially problematic packages for running this script" \n
+    append h "  $scriptname shell" \n
+    append h "    - run the punk shell using bootsupport libraries." \n
     append h "" \n
     if {[llength [dict get $pkg_availability missing]] || [llength [dict get $pkg_availability broken]]} {
         set has_recommended 0
@@ -1096,7 +1305,42 @@ proc ::punkboot::punkboot_gethelp {args} {
     return $h
 }
 
+
+
+
 set scriptargs $::argv
+punk::args::define {
+    @id     -id     punkmake
+    @cmd    -name   punkmake\
+        -summary\
+        "Project builder"\
+        -help\
+        ""
+    @form -form help
+    @leaders
+    subcommand -type "literal(help)"
+    @opts
+    @values
+    what -type string -choices {modules libs shell}
+
+    @form -form modules
+    subcommand -type "literal(modules)"
+
+    @form -form libs
+    subcommand -type "literal(libs)"
+
+    @form -form shell
+    subcommand -type "literal(shell)"
+    arg -type any -optional 1 -multiple 1
+}
+
+#set argd [punk::args::parse $scriptargs -form 0 withid punkmake]
+###lassign [dict values $argd] leaders opts values received
+#
+#puts stdout [punk::args::usage -scheme nocolour punkmake]
+#exit 1
+
+
 set do_help 0
 if {![llength $scriptargs]} {
     set do_help 1
@@ -1108,6 +1352,8 @@ if {![llength $scriptargs]} {
         }
     }
 }
+
+
 set commands_found [list]
 foreach a $scriptargs {
     if {![string match -* $a]} {
@@ -1124,6 +1370,8 @@ if {[llength $commands_found] != 1 } {
     puts stderr "Unknown command: [lindex $commands_found 0]\n\n"
     set do_help 1
 }
+
+
 if {$do_help} {
     puts stdout "Checking package availability..."
     set ::punkboot::pkg_availability [::punkboot::check_package_availability -quiet 1 $::punkboot::bootsupport_requirements] 
@@ -1139,6 +1387,8 @@ if {$do_help} {
     exit 0
 }
 
+
+
 set ::punkboot::command [lindex $commands_found 0]
 
 
@@ -1156,6 +1406,10 @@ set scriptfolder $::punkboot::scriptfolder
 
 #first look for a project root (something under fossil or git revision control AND matches punk project folder structure)
 #If that fails - just look for a 'project shaped folder' ie meets minimum requirements of /src /src/lib /src/modules /lib /modules
+#test
+if {[catch {punk::repo::find_project}]} {
+    puts stderr "punk::repo [package provide punk::repo]"
+}
 if {![string length [set projectroot [punk::repo::find_project $scriptfolder]]]} {
     if {![string length [set projectroot [punk::repo::find_candidate $scriptfolder]]]} {
         puts stderr "punkboot script unable to determine an approprite project root at or above the path '$scriptfolder' ensure the make script is within a project folder structure"
@@ -1172,6 +1426,8 @@ if {![string length [set projectroot [punk::repo::find_project $scriptfolder]]]}
 }
 
 set sourcefolder $projectroot/src
+set binfolder    $projectroot/bin
+
 if {$::punkboot::command eq "check"} {
     set sep [string repeat - 75]
     puts stdout $sep
@@ -1212,19 +1468,48 @@ if {$::punkboot::command eq "check"} {
     #don't exit yet - 2nd part of "check" below package path restore
 }
 # -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-# - package path restore original module paths and auto_path entries to take effect in addition to bootsupport paths 
+# - package path restore original module paths and auto_path entries to take effect in addition to bootsupport paths
+# - Order such that bootsupport entries are always higher priority (if same version number - prefer bootsupport)
 # - This must be done between the two "check" command sections
+
+#   Ideally we would be running make.tcl purely from bootsupport packages - but binary packages such as Thread are required,
+#   and without accelerators the performance is abysmal (e.g minutes vs seconds for common sha1 operations)
+
 if {$package_paths_modified} {
-    set tm_list_now [tcl::tm::list]
+    set tm_list_boot [tcl::tm::list]
+    tcl::tm::remove {*}$tm_list_boot
+
+    set lower_prio [list]
     foreach p $original_tm_list {
-        if {$p ni $tm_list_now} {
-            tcl::tm::add $p
+        if {$p ni $tm_list_boot} {
+            lappend lower_prio $p
         }
     }
+    tcl::tm::add {*}[lreverse $lower_prio] {*}[lreverse $tm_list_boot]
+
     #set ::auto_path [list $bootsupport_lib {*}$original_auto_path]
     lappend ::auto_path {*}$original_auto_path
 }
 # -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
+
+
+# -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
+#The problem with forcing our main packages to load only from bootsupport/sourcesupport is that if they require packages that use accelerators
+# and no acceleration is available in bootsupport/sourcesupport - then they will stay unaccelerated even if the os packages provide it
+# Also - some packages such as struct::set don't seem to handle reloading after forget (at least - not without destroying the command first)
+#Packages that provide acceleration don't use a consistent API for testing acceleration e.g md5, sha1, struct::set in tcllib all differ in
+#whether they provide functions such as Loaded, Implementations, SwitchTo
+set acceleratable [list sha1 md5]
+lappend acceleratable {*}[lsearch -all -inline [package names] struct::*]
+foreach p $acceleratable {
+    package forget $p
+    if {[string match struct::* $p]} {
+        catch {rename $p ""}
+    }
+}
+# -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
+
+
 #2nd part of "check"
 if {$::punkboot::command eq "check"} {
     set sep [string repeat - 75]
@@ -1265,11 +1550,36 @@ if {$::punkboot::command eq "check"} {
     exit 0
 }
 
+if {![array size A]} {
+    punkboot::define_global_ansi
+}
 
+#puts stderr ">>>>>>+ loaded:[info loaded]"
+#puts stderr "llength package names: [llength [package names]]"
+if {[info exists ::punk::libunknown::epoch]} {
+    set untracked [dict get $::punk::libunknown::epoch pkg untracked]
+    #puts stderr "punk::libunknown::epoch exists"
+} else {
+    set untracked [list]
+    #puts stderr "punk::libunknown::epoch does not exist"
+}
+#REVIEW - we shouldn't need to manually set the untracked packages - punk::libunknown::init should have done it?
+foreach p [package names] {
+    if {![dict exists $untracked $p]} {
+        dict set untracked $p ""
+    }
+}
+dict set ::punk::libunknown::epoch pkg untracked $untracked
+
+if {[package provide punk::libunknown] eq ""} {
+    puts "punk::libunknown not loaded"
+} else {
+    puts "punk::libunknown loaded"
+}
 dict for {pkg pkginfo} $::punkboot::bootsupport_requirements {
     set verspec [dict get $pkginfo version] ;#version wanted specification always exists and is empty or normalised 
     if {[catch {package require $pkg {*}$verspec} errM]} {
-        puts stdout "\x1b\[33m$errM\x1b\[m"
+        puts stdout "$A(BAD)$errM$A(RST)"
     }
 }
 
@@ -1279,23 +1589,29 @@ if {$::punkboot::command eq "info"} {
     puts stdout "- -- --- --- --- --- --- --- --- --- -- -"
     puts stdout "- projectroot     : $projectroot"
     set sourcefolder $projectroot/src
-    set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib_tcl*]
-    set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules_tcl*]
+    #todo show all but highlight the one that matches $this_platform_generic
+    set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib vendorlib_tcl*]
     puts stdout "- vendorlib folders: ([llength $vendorlibfolders])"
     foreach fld $vendorlibfolders {
         puts stdout "    src/$fld"
     }
+    set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules vendormodules_tcl*]
     puts stdout "- vendormodule folders: ([llength $vendormodulefolders])"
     foreach fld $vendormodulefolders {
         puts stdout "    src/$fld"
     }
-    set source_module_folderlist [punk::mix::cli::lib::find_source_module_paths $projectroot]
-    puts stdout "- source module paths: [llength $source_module_folderlist]"
-    foreach fld $source_module_folderlist {
+    #set source_module_folderlist [punk::mix::cli::lib::find_source_module_paths $projectroot] ;#returns only those containing .tm files
+    #foreach fld $source_module_folderlist {
+    #    set relpath [punkcheck::lib::path_relative $projectroot $fld]
+    #    puts stdout "    $relpath"
+    #}
+    set  projectmodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails modules_tcl* modules]
+    puts stdout "- source module paths: [llength $projectmodulefolders]"
+    #JJJ
+    foreach fld $projectmodulefolders {
         puts stdout "    $fld"
     }
-    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib_tcl*]
-    lappend projectlibfolders lib 
+    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib_tcl* lib]
     puts stdout "- source libary paths: [llength $projectlibfolders]"
     foreach fld $projectlibfolders {
         puts stdout "    src/$fld"
@@ -1328,16 +1644,22 @@ if {$::punkboot::command eq "info"} {
 
 
 if {$::punkboot::command eq "shell"} {
+    package require struct::list
     package require punk
     package require punk::repl
-    puts stderr "punk boot shell not implemented - dropping into ordinary punk shell"
-
     #todo - make procs vars etc from this file available?
+    puts stderr "punk boot shell not implemented - dropping into ordinary punk shell."
 
-    repl::init
-    repl::start stdin
 
-    exit 1
+    repl::init
+    set replresult [repl::start stdin -title make.tcl]
+    #review
+    if {[string is integer -strict $replresult]} {
+        exit $replresult
+    } else {
+        puts stdout $replresult
+        exit 0
+    }
 }
 
 if {$::punkboot::command eq "vfscommonupdate"} {
@@ -1386,9 +1708,12 @@ if {$::punkboot::command eq "vendorupdate"} {
         set git_modules [list]
         set fossil_modules [list]
         set sourcefolder $projectroot/src
-        #todo vendor/lib 
+        #todo vendor/lib
         set vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib_tcl*]
+        #todo platform folders under vendor/lib_tcl<v>
+
 
+        #todo platform folders under vendor/module_tcl<v> 
         set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules vendormodules_tcl*]
         #lappend vendormodulefolders vendormodules
         foreach vf $vendormodulefolders {
@@ -1399,7 +1724,7 @@ if {$::punkboot::command eq "vendorupdate"} {
                     set which ""
                 }
 
-                set vendor_config $sourcefolder/vendormodules$which/include_modules.config
+                set vendor_config $sourcefolder/vendormodules$which/include_modules.config ;#todo - change to toml
                 if {[file exists $vendor_config]} {
                     set targetroot $sourcefolder/vendormodules$which
                     source $vendor_config ;#populate $local_modules $git_modules $fossil_modules with project-specific list
@@ -1499,11 +1824,10 @@ if {$::punkboot::command eq "bootsupport"} {
 
     proc modfile_sort {p1 p2} {
         lassign [split [file rootname $p1] -] _ v1
-        lassign [split [file rootname $p1] -] _ v2
+        lassign [split [file rootname $p2] -] _ v2
         package vcompare $v1 $v2
     }
     proc bootsupport_localupdate {projectroot} {
-        set bootsupport_modules [list] ;#variable populated by include_modules.config file - review
         set sourcefolder $projectroot/src
 
         set bootmodulefolders [glob -nocomplain -dir $sourcefolder/bootsupport -type d -tails modules modules_tcl*]
@@ -1515,6 +1839,7 @@ if {$::punkboot::command eq "bootsupport"} {
                 set which ""
             }
             set bootsupport_config  $projectroot/src/bootsupport/modules$which/include_modules.config ;#
+            set bootsupport_modules [list] ;#variable populated by include_modules.config file - initialise empty for each bm folder
             if {[file exists $bootsupport_config]} {
                 set targetroot $projectroot/src/bootsupport/modules$which
                 source $bootsupport_config ;#populate $bootsupport_modules with project-specific list
@@ -1538,7 +1863,10 @@ if {$::punkboot::command eq "bootsupport"} {
                         set module_subpath [string map [list :: /] [namespace qualifiers $modulematch]]
                         set srclocation [file join $projectroot $relpath $module_subpath]
                         #puts stdout "$relpath  $modulematch $module_subpath $srclocation"
-                        if {[string first - $modulematch]} {
+                        #we must always glob using the dash - or we will match libraries that are suffixes of others
+                        #bare lib.tm with no version is not valid.
+                        if {[string first - $modulematch] != -1} {
+                            #version or part thereof is specified.
                             set pkgmatches [glob -nocomplain -dir $srclocation -tail -type f [namespace tail $modulematch]*.tm]
                         } else {
                             set pkgmatches [glob -nocomplain -dir $srclocation -tail -type f [namespace tail $modulematch]-*.tm]
@@ -1561,6 +1889,7 @@ if {$::punkboot::command eq "bootsupport"} {
                             #review
                             set copy_files $pkgmatches
                         }
+                        #if a file added manually to target dir - there will be no .punkcheck record - will be detected as changed
                         foreach cfile $copy_files {
                             set srcfile [file join $srclocation $cfile]
                             set tgtfile [file join $targetroot $module_subpath $cfile]
@@ -1569,6 +1898,8 @@ if {$::punkboot::command eq "bootsupport"} {
                                 $boot_event targetset_init INSTALL   $tgtfile
                                 $boot_event targetset_addsource      $srcfile
                                 #----------
+                                #
+                                #puts "bootsuport target $tgtfile record size: [dict size [$boot_event targetset_last_complete]]"
                                 if {\
                                         [llength [dict get [$boot_event targetset_source_changes] changed]]\
                                     || [llength [$boot_event get_targets_exist]] < [llength [$boot_event get_targets]]\
@@ -1576,7 +1907,7 @@ if {$::punkboot::command eq "bootsupport"} {
                                     file mkdir [file dirname $tgtfile] ;#ensure containing folder for target exists
                                     $boot_event targetset_started
                                     # -- --- --- --- --- ---
-                                    puts "BOOTSUPPORT module$which update: $srcfile -> $tgtfile"
+                                    puts "\nBOOTSUPPORT module$which update: $srcfile -> $tgtfile"
                                     if {[catch {
                                         file copy -force $srcfile  $tgtfile
                                     } errM]} {
@@ -1642,7 +1973,8 @@ if {$::punkboot::command eq "bootsupport"} {
                             set resultdict [punkcheck::install $sourcemodules $targetroot\
                                 -overwrite installedsourcechanged-targets\
                                 -antiglob_paths $antipaths\
-                                -installer "punkboot-bootsupport"
+                                -installer "punkboot-bootsupport"\
+                                -progresschannel stdout\
                                 ]
 
                             puts stdout [punkcheck::summarize_install_resultdict $resultdict]
@@ -1660,7 +1992,8 @@ if {$::punkboot::command eq "bootsupport"} {
                             -max_depth 1\
                             -createempty 0\
                             -overwrite installedsourcechanged-targets\
-                            -installer  "punkboot-bootsupport"
+                            -installer  "punkboot-bootsupport"\
+                            -progresschannel stdout\
                             ]
                     puts stdout [punkcheck::summarize_install_resultdict $resultdict]
                     flush stdout
@@ -1680,7 +2013,7 @@ if {$::punkboot::command eq "bootsupport"} {
 
 
 
-if {$::punkboot::command ni {project modules vfs}} {
+if {$::punkboot::command ni {project modules libs packages vfs bin}} {
     puts stderr "Command $::punkboot::command not implemented - aborting."
     flush stderr
     after 100
@@ -1693,33 +2026,7 @@ if {$::punkboot::command ni {project modules vfs}} {
 
 #install src vendor contents (from version controlled src folder) to base of project (same target folders as our own src/modules etc ie to paths that go on the auto_path and in tcl::tm::list)
 
-if {$::punkboot::command in {project modules}} { 
-    set  vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib vendorlib_tcl*]
-    foreach lf $vendorlibfolders {
-        lassign [split $lf _] _vm tclx
-        if {$tclx ne ""} {
-            set which _$tclx
-        } else {
-            set which ""
-        }
-        set target_lib_folder $projectroot/lib$which
-        file mkdir $projectroot/lib$which
-        #exclude README.md from source folder - but only the root one
-        #-antiglob_paths takes relative patterns e.g
-        # */test.txt  will only match test.txt exactly one level deep.
-        # */*/*.foo will match any path ending in .foo that is exactly 2 levels deep.
-        # **/test.txt will match at any level below the root (but not in the root)
-        set antipaths [list\
-            README.md\
-        ]
-        puts stdout "VENDORLIB$which: copying from $sourcefolder/$lf to $target_lib_folder (if source file changed)"
-        set resultdict [punkcheck::install $sourcefolder/$lf $target_lib_folder -overwrite installedsourcechanged-targets -antiglob_paths $antipaths]
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    }
-    if {![llength $vendorlibfolders]} {
-        puts stderr "VENDORLIB: No src/vendorlib or src/vendorlib_tcl* folder found."
-    }
-
+if {$::punkboot::command in {project packages modules}} {
     set vendormodulefolders [glob -nocomplain -dir $sourcefolder -type d -tails vendormodules vendormodules_tcl*]
     foreach vf $vendormodulefolders {
         lassign [split $vf _] _vm tclx
@@ -1733,13 +2040,158 @@ if {$::punkboot::command in {project modules}} {
 
         #install .tm *and other files*
         puts stdout "VENDORMODULES$which: copying from $sourcefolder/$vf to $target_module_folder (if source file changed)"
-        set resultdict [punkcheck::install $sourcefolder/$vf  $target_module_folder -installer make.tcl -overwrite installedsourcechanged-targets -antiglob_paths {README.md include_modules.config}]
+        set resultdict [punkcheck::install $sourcefolder/$vf  $target_module_folder\
+            -installer make.tcl\
+            -overwrite installedsourcechanged-targets\
+            -antiglob_paths {README.md include_modules.config}\
+            -progresschannel stdout\
+            ]
         puts stdout [punkcheck::summarize_install_resultdict $resultdict]
     }
     if {![llength $vendormodulefolders]} {
         puts stderr "VENDORMODULES: No src/vendormodules or src/vendormodules_tcl* folders found."
     }
+}
+
+if {$::punkboot::command in {project packages libs}} {
+    #exclude README.md from source folder - but only the root one
+    #-antiglob_paths takes relative patterns e.g
+    # */test.txt  will only match test.txt exactly one level deep.
+    # */*/*.foo will match any path ending in .foo that is exactly 2 levels deep.
+    # **/test.txt will match at any level below the root (but not in the root)
+    set antipaths [list\
+        README.md\
+    ]
+    #step1 - vendorlib  - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral
+    set  vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib]
+    foreach lf $vendorlibfolders {
+        set source_lib_folder $sourcefolder/$lf
+        set target_lib_folder $projectroot/lib
+        file mkdir $target_lib_folder
+        puts stdout "VENDORLIB: copying tcl-version neutral and platform neutral libraries from $source_lib_folder to $target_lib_folder (if source file changed)"
+        set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
+            -overwrite installedsourcechanged-targets\
+            -antiglob_paths $antipaths\
+            -progresschannel stdout\
+            ]
+        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+    }
+    if {![llength $vendorlibfolders]} {
+        puts stderr "VENDORLIB: No src/vendorlib folder found."
+    }
+    #step2 - vendorlib_tcl<majorv> - platform-neutral in 'allplatforms' folder + platform specific based on current platform
+    set  vendorlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails vendorlib_tcl*]
+    foreach lf $vendorlibfolders {
+        lassign [split $lf _] _vm which ;#which is tcl8|tcl9 etc
+
+        set source_lib_folder $sourcefolder/vendorlib_$which/allplatforms
+        set target_lib_folder $projectroot/lib_$which/allplatforms
+        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
+            file mkdir $target_lib_folder
+            puts stdout "VENDORLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
+            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
+                -overwrite installedsourcechanged-targets\
+                -antiglob_paths $antipaths\
+                -progresschannel stdout\
+                ]
+            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+        } else {
+            puts stdout "$A(BAD)VENDORLIB_$which - no platform neutral folder found at $source_lib_folder$A(RST)"
+        }
+        #this_platform_generic
+        set source_lib_folder $sourcefolder/vendorlib_$which/$this_platform_generic
+        set target_lib_folder $projectroot/lib_$which/$this_platform_generic
+        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
+            file mkdir $target_lib_folder
+            puts stdout "VENDORLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
+            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
+                -overwrite installedsourcechanged-targets\
+                -antiglob_paths $antipaths\
+                -progresschannel stdout\
+                ]
+            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+        } else {
+            puts stdout "$A(BAD)mVENDORLIB_$which - no platform specific folder found at $source_lib_folder$A(RST)"
+        }
+
+    }
+    if {![llength $vendorlibfolders]} {
+        puts stderr "$A(BAD)VENDORLIB: No src/vendorlib or src/vendorlib_tcl* folder found.$A(RST)"
+    }
+}
 
+if {$::punkboot::command in {project packages libs}} {
+    ########################################################
+    lappend projectlibfolders lib 
+    #exclude README.md from source folder - but only the root one
+    #-antiglob_paths takes relative patterns e.g
+    # */test.txt  will only match test.txt exactly one level deep.
+    # */*/*.foo will match any path ending in .foo that is exactly 2 levels deep.
+    # **/test.txt will match at any level below the root (but not in the root)
+    set antipaths [list\
+        README.md\
+    ]
+    #step1 - src/lib  - pkgIndex.tcl based libraries that are platform neutral and tcl-majorversion neutral
+    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib]
+    foreach lf $projectlibfolders {
+        set target_lib_folder $projectroot/lib
+        file mkdir $target_lib_folder
+        puts stdout "PROJECTLIB: copying from $sourcefolder/$lf to $target_lib_folder (if source file changed)"
+        set resultdict [punkcheck::install $sourcefolder/$lf $target_lib_folder\
+            -overwrite installedsourcechanged-targets\
+            -antiglob_paths $antipaths\
+            -progresschannel stdout\
+            ]
+        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+    }
+    if {![llength $projectlibfolders]} {
+        puts stderr "PROJECTLIB: No src/lib folder found."
+    }
+    #step2 - src/lib_<majorv> - platform-neutral in 'allplatforms' folder + platform specific based on current platform
+    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib_tcl*]
+    foreach lf $projectlibfolders {
+        lassign [split $lf _] _vm which
+        set source_lib_folder $sourcefolder/lib_$which/allplatforms
+        set target_lib_folder $projectroot/lib_$which/allplatforms
+        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
+            file mkdir $target_lib_folder
+            puts stdout "PROJECTLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
+            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
+                -overwrite installedsourcechanged-targets\
+                -antiglob_paths $antipaths\
+                -progresschannel stdout\
+                ]
+            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+        } else {
+            puts stdout "$A(BAD)mPROJECTLIB_$which - no platform neutral folder found at $source_lib_folder$A(RST)"
+        }
+
+        #this_platform_generic
+        set source_lib_folder $sourcefolder/lib_$which/$this_platform_generic
+        set target_lib_folder $projectroot/lib_$which/$this_platform_generic
+        if {[file exists $source_lib_folder] && [llength [punkboot::lib::folder_nondotted_folders $source_lib_folder]]} {
+            file mkdir $target_lib_folder
+            puts stdout "PROJECTLIB_$which: copying from $source_lib_folder to $target_lib_folder (if source file changed)"
+            set resultdict [punkcheck::install $source_lib_folder $target_lib_folder\
+                -overwrite installedsourcechanged-targets\
+                -antiglob_paths $antipaths\
+                -progresschannel stdout\
+                ]
+            puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+        } else {
+            puts stdout "$A(BAD)mPROJECTLIB_$which - no platform specific folder found at $source_lib_folder$A(RST)"
+        }
+
+
+    }
+    if {![llength $projectlibfolders]} {
+        puts stderr "PROJECTLIB: No src/lib_tcl* folder found."
+    }
+
+
+}
+
+if {$::punkboot::command in {project packages modules libs}} {
     ########################################################
     #templates
     #e.g The default project layout is mainly folder structure and readme files - but has some scripts developed under the main src that we want to sync
@@ -1807,34 +2259,10 @@ if {$::punkboot::command in {project modules}} {
             $tpl_installer destroy
         }
     }
-    ########################################################
-    set  projectlibfolders [glob -nocomplain -dir $sourcefolder -type d -tails lib_tcl*]
-    lappend projectlibfolders lib 
-    foreach lf $projectlibfolders {
-        lassign [split $lf _] _vm tclx
-        if {$tclx ne ""} {
-            set which _$tclx
-        } else {
-            set which ""
-        }
-        set target_lib_folder $projectroot/lib$which
-        file mkdir $projectroot/lib$which
-        #exclude README.md from source folder - but only the root one
-        #-antiglob_paths takes relative patterns e.g
-        # */test.txt  will only match test.txt exactly one level deep.
-        # */*/*.foo will match any path ending in .foo that is exactly 2 levels deep.
-        # **/test.txt will match at any level below the root (but not in the root)
-        set antipaths [list\
-            README.md\
-        ]
-        puts stdout "PROJECTLIB$which: copying from $sourcefolder/$lf to $target_lib_folder (if source file changed)"
-        set resultdict [punkcheck::install $sourcefolder/$lf $target_lib_folder -overwrite installedsourcechanged-targets -antiglob_paths $antipaths]
-        puts stdout [punkcheck::summarize_install_resultdict $resultdict]
-    }
-    if {![llength $projectlibfolders]} {
-        puts stderr "PROJECTLIB: No src/lib or src/lib_tcl* folder found."
-    }
+}
 
+
+if {$::punkboot::command in {project packages modules}} {
     #consolidated /modules /modules_tclX folder used for target where X is tcl major version
     #the make process will process for any _tclX not just the major version of the current interpreter
 
@@ -1863,12 +2291,18 @@ if {$::punkboot::command in {project modules}} {
         set overwrite "installedsourcechanged-targets"
         #set overwrite "ALL-TARGETS"
         puts stdout "MODULEFOLDER non_tm_files $src_module_dir - copying to $target_modules_base (if source file changed)"
-        set resultdict [punkcheck::install_non_tm_files $src_module_dir $target_modules_base -installer make.tcl -overwrite $overwrite -antiglob_paths {README.md}]
+        set resultdict [punkcheck::install_non_tm_files $src_module_dir $target_modules_base\
+            -installer make.tcl\
+            -overwrite $overwrite\
+            -antiglob_paths {README.md}\
+            -progresschannel stdout\
+            ]
         puts stdout [punkcheck::summarize_install_resultdict $resultdict]
     }
+}
 
+if {$::punkboot::command in {project packages modules libs}} {
     set installername "make.tcl"
-
     # ----------------------------------------
     if {[punk::repo::is_fossil_root $projectroot]} {
         set config [dict create\
@@ -1915,7 +2349,7 @@ if {$::punkboot::command in {project modules}} {
 #review
 set installername "make.tcl"
 
-if {$::punkboot::command ni {project vfs}} {
+if {$::punkboot::command ni {project vfs bin}} {
     #command = modules
     puts stdout "vfs folders not checked"
     puts stdout " - use 'make.tcl vfscommonupdate' to copy built modules into base vfs folder" 
@@ -1935,10 +2369,36 @@ if {$buildfolder ne "$sourcefolder/_build"} {
     exit 2
 }
 
+if {$::punkboot::command eq "bin"} {
+    puts stdout "checking $sourcefolder/bin"
+    set resultdict [punkcheck::install $sourcefolder/bin $binfolder\
+        -overwrite synced-targets\
+        -installer "punkboot-bin"\
+        -progresschannel stdout\
+        ]
+
+    puts stdout [punkcheck::summarize_install_resultdict $resultdict]
+    flush stdout
+}
 
 #find runtimes
-set rtfolder $sourcefolder/runtime
+#set rtfolder $sourcefolder/runtime
+#AAA
+
+switch -glob -- $this_platform_generic {
+    macosx-* {
+        #assuming universal binaries x86_64 and arm
+        set rt_os_arch macosx
+    }
+    default {
+        set rt_os_arch $this_platform_generic
+    }
+}
+set rtfolder $binfolder/runtime/$rt_os_arch
+set rt_sourcefolder $sourcefolder/runtime ;#where our config lives
 #review - when building kits for other platforms - it's unlikely runtime will be marked as executable - we should probably process all files in runtime folder except those with certain extensions
+
+
 set rtfolder_files [glob -nocomplain -dir $rtfolder -types {f} -tail *]
 set exclusions {.config .md .ico .txt .doc .pdf .htm .html} ;#we don't encourage other files in runtime folder aside from mapvfs.config - but lets ignore some common possibilities
 lappend exclusions .zip .7z .pea .bz2 .tar .gz .tgz .z .xz ;#don't allow archives to directly be treated as runtimes - tolerate presence but require user to unpack or rename if they're to be used as runtimes
@@ -1952,17 +2412,38 @@ foreach f $rtfolder_files {
 }
 if {![llength $runtimes]} {
     puts stderr "No executable runtimes found in $rtfolder - unable to build any .vfs folders into executables."
-    puts stderr "Add runtimes to $sourcefolder/runtime if required"
+    puts stderr "Add runtimes to $rtfolder if required"
     #todo - don't exit - it is valid to use runtime of - to just build a .kit/.zipkit ?
     exit 0
 }
 
-set has_sdx 1
-if {[catch {exec sdx help} errM]} {
-    puts stderr "FAILED to find usable sdx command - check that sdx executable is on path"
-    puts stderr "err: $errM"
-    #exit 1
-    set has_sdx 0
+set have_sdx 1
+set sdxpath [auto_execok $binfolder/sdx]
+if {$sdxpath eq ""} {
+    set sdxpath [auto_execok [file dirname [info nameofexecutable]]/sdx]
+    if {$sdxpath eq ""} {
+        #last resort - look on path
+        set sdxpath [auto_execok sdx]
+    }
+    if {$sdxpath eq ""} {
+        #last resort - a tclkit and sdx.kit fine
+        if {[file exists $binfolder/sdx.kit]} {
+            set tclkitpath [auto_execok $binfolder/tclkit]
+            if {$tclkitpath eq ""} {
+                set tclkitpath [auto_execok tclkit]
+            }
+            set sdxpath [list {*}$tclkitpath $binfolder/sdx.kit]
+        }
+    }
+
+    if {$sdxpath eq "" || [catch {exec {*}$sdxpath help} errM]} {
+        puts stderr "FAILED to find usable sdx command or tclkit executable with sdx.bat"
+        puts stderr "If tclkit-based runtimes are required  - check that sdx executable is in bin folder of project or in same folder as tcl/punk executable or on path"
+        puts stderr "This is not a problem if tcl8.7/tcl9+ kits using the preferred method 'zipfs' are to be used, or if cookfs based kits are to be used."
+        puts stderr "err: $errM"
+        #exit 1
+        set have_sdx 0
+    }
 }
 
 # -- --- --- --- --- --- --- --- --- ---
@@ -1970,7 +2451,7 @@ if {[catch {exec sdx help} errM]} {
 #build a dict keyed on runtime executable name. 
 #If no mapfile (or no mapfile entry for that runtime) - the runtime will be paired with a matching .vfs folder in src folder.  e.g punk.exe to src/punk.vfs
 #If vfs folders or runtime executables which are explicitly listed in the mapfile don't exist - warn on stderr - but continue. if such nonexistants found; prompt user for whether to continue or abort.
-set mapfile $rtfolder/mapvfs.config
+set mapfile $rt_sourcefolder/mapvfs.config
 set runtime_vfs_map [dict create]
 set vfs_runtime_map [dict create]
 if {[file exists $mapfile]} {
@@ -2004,7 +2485,7 @@ if {[file exists $mapfile]} {
         foreach vfsconfig $vfs_specs {
             switch -- [llength $vfsconfig] {
                 1 - 2 - 3 {
-                    lassign $vfsconfig vfstail appname kit_type
+                    lassign $vfsconfig vfstail appname target_kit_type
                     if {![file isdirectory [file join $sourcefolder vfs $vfstail]]} {
                         puts stderr "WARNING: Missing vfs folder [file join $sourcefolder vfs $vfstail] specified in mapvfs.config for runtime $runtime"
                         lappend missing $vfstail
@@ -2012,7 +2493,7 @@ if {[file exists $mapfile]} {
                         if {$appname eq ""} {
                             set appname [file rootname $vfstail]
                         }
-                        dict lappend vfs_runtime_map $vfstail [list $runtime $appname $kit_type]
+                        dict lappend vfs_runtime_map $vfstail [list $runtime $appname $target_kit_type]
                     }
                 }
                 default {
@@ -2044,21 +2525,30 @@ puts "-- vfs_runtime_map--"
 punk::lib::pdict vfs_runtime_map 
 puts "---------------------"
 
+
 #only test the runtime capabilities for runtimes that are actually in our map
 #how can we do this for runtimes from other platforms? 
 #method1 try to mount as zip and kit  - depends on current runtime to have mkzip - just because there is zip data doesn't mean the kit can mount it
 #method2 analyze executable to determine if its for another platform - then ask user and save answers in a config file.?
+#mthod3 qemu?
 set runtime_caps [dict create]
 foreach runtime [dict keys $runtime_vfs_map] {
     set capscript {
         set caps [dict create]
         dict set caps patchlevel [info patchlevel]
-        if {![catch {
-            package require starkit
-        } errM]} {
-            dict set caps has_starkit 1 
+        if {[lsearch -index 1 [info loaded] tclkitpath] >=0} {
+            #for a bare kit that has had vfs removed (ie head made with sdx mksplit)
+            #we can't use package require starkit
+            dict set caps has_starkit 1
         } else {
-            dict set caps has_starkit 0
+            #fallback - review if necessary
+            if {![catch {
+                package require starkit
+            } errM]} {
+                dict set caps has_starkit 1
+            } else {
+                dict set caps has_starkit 0
+            }
         }
         if {![catch {
             set cmd [info commands tcl::zipfs::root]
@@ -2129,6 +2619,7 @@ foreach  runtimefile $runtimes {
     set event [$installer start_event $config]
     $event targetset_init INSTALL $buildfolder/build_$runtimefile
     $event targetset_addsource $rtfolder/$runtimefile
+    $event targetset_addsource $buildfolder/build_$runtimefile ;#self as source for change detection
     #----------
 
     #set changed_unchanged [punkcheck::recordlist::file_install_record_source_changes [lindex [dict get $file_record body] end]]
@@ -2248,11 +2739,11 @@ proc merge_over {sourcedir targetdir {depth 0}} {
                         set name [dict get $linkinfo name] ;#name the linked file will become
                         set aliased_file_or_dir [file join [file dirname $file_or_dir] $name]
                         set relpath [fileutil::stripPath $sourcedir $aliased_file_or_dir]
-                        set target [file join $targetdir $relpath] 
+                        set target [file join $targetdir $relpath]
                         if {[file type $actualsource] eq "file"} {
-                            #fauxlink linktarget (source data) is a file 
+                            #fauxlink linktarget (source data) is a file
                             puts -nonewline stdout "\x1b\[32m<fxlnk.targetfor.${name}>\x1b\[m"
-                            #puts "file copy -force $actualsource $target"
+                            puts "file copy -force $actualsource $target"
                             file copy -force $actualsource $target
                         } else {
                             #fauxlink linktarget (source data) is a folder
@@ -2271,6 +2762,9 @@ proc merge_over {sourcedir targetdir {depth 0}} {
                     }
                 } else {
                     puts -nonewline stdout "."
+                    if {[file exists $target]} {
+                        puts stderr "Warning: merge_over is overwriting $target"
+                    }
                     file copy -force $file_or_dir $target
                 }
             }
@@ -2300,7 +2794,7 @@ dict set path_cksum_cache {*}[punk::mix::base::lib::get_relativecksum_from_base
 # punkcheck allows us to not rely purely on timestamps (which may be unreliable)  
 #
 foreach vfstail $vfs_tails {
-    
+
     set vfsname [file rootname $vfstail]
     puts stdout "  ------------------------------------"
     puts stdout "  checking vfs $sourcefolder/vfs/$vfstail for configured runtimes"
@@ -2317,21 +2811,25 @@ foreach vfstail $vfs_tails {
         #set runtimes [dict get $vfs_runtime_map $vfstail] 
         #runtimes in vfs_runtime_map_vfs dict are unsuffixed (.exe stripped or was not present)
         set applist [dict get $vfs_runtime_map $vfstail]
-        foreach rt_app $applist {
-            lappend runtimes [lindex $rt_app 0]
-        }
         if {"windows" eq $::tcl_platform(platform)} {
-            set runtimes_raw $runtimes
-            set runtimes [list]
-            foreach rt $runtimes_raw {
-                if {![string match *.exe $rt] && $rt ne "-"} {
-                    set rt $rt.exe
+            foreach rt_app $applist {
+                set rt [lindex $rt_app 0]
+                if {$rt ne "-" && [file exists $rtfolder/$rt.exe]} {
+                    lappend runtimes $rt.exe
+                }
+            }
+        } else {
+            foreach rt_app $applist {
+                set rt [lindex $rt_app 0]
+                if {[file exists $rtfolder/$rt]} {
+                    lappend runtimes $rt
                 }
-                lappend runtimes $rt
             }
         }
     } else {
         #only match this vfs to a correspondingly named runtime if there was no explicit entry for that runtime
+        #review - should this only be done if there are NO explicit entries? how does a user stop builds of unneeded exes that match without renaming files/folders?
+        #but conversely, adding an extra entry shouldn't stop default builds that used to run..
         set matchrt [file rootname [file tail $vfstail]] ;#e.g project.vfs -> project
         if {![dict exists $runtime_vfs_map $matchrt]} {
             if {"windows" eq $::tcl_platform(platform)} {
@@ -2339,7 +2837,9 @@ foreach vfstail $vfs_tails {
                     lappend runtimes $matchrt.exe
                 }
             } else {
-                lappend runtimes $matchrt
+                if {[file exists $rtfolder/$matchrt]} {
+                    lappend runtimes $matchrt
+                }
             }
         }
     }
@@ -2360,15 +2860,15 @@ foreach vfstail $vfs_tails {
         if {[dict exists $runtime_vfs_map $rtname]} {
             set applist [dict get $runtime_vfs_map $rtname]
             foreach vfs_app $applist {
-                lassign $vfs_app configured_vfs appname kit_type 
+                lassign $vfs_app configured_vfs appname target_kit_type
                 if {$configured_vfs ne $vfstail} {
                     continue
                 }
                 if {$appname eq ""} {
                     set appname $vfsname
                 }
-                if {$kit_type eq ""} {
-                    set kit_type "kit" ;#review - we should probably move to defaulting to zip (zipkit)
+                if {$target_kit_type eq ""} {
+                    set target_kit_type "kit" ;#review - we should probably move determining target_kit_type from that of source runtime, and if none, defaulting to zip (zipkit?)
                 }
                 if {$rtname eq "-"} {
                     set targetkit $appname.kit
@@ -2386,13 +2886,13 @@ foreach vfstail $vfs_tails {
                     }
                 }
                 lappend exe_names_seen $targetkit
-                lappend targetkits [list $targetkit $kit_type]
+                lappend targetkits [list $targetkit $target_kit_type]
             }
         }
         puts stdout "    vfs: $vfstail runtime: $rtname targetkits: $targetkits"
         foreach targetkit_info $targetkits {
             puts stdout "    processing targetkit: $targetkit_info"
-            lassign $targetkit_info targetkit kit_type
+            lassign $targetkit_info targetkit target_kit_type
             # -- ----------
             set vfs_installer [punkcheck::installtrack new $installername $basedir/.punkcheck]
             $vfs_installer set_source_target $sourcefolder $buildfolder
@@ -2403,7 +2903,7 @@ foreach vfstail $vfs_tails {
                 #e.g ../vfs/punk87.vfs {cksum xxxx cksum_all_opts {-cksum_content 1 ... -cksum_algorithm sha1}}
                 dict set path_cksum_cache {*}[punk::mix::base::lib::get_relativecksum_from_base $basedir $sourcefolder/vfs/$vfstail]
             }
-            $vfs_event targetset_cksumcache_set $path_cksum_cache ;#cached cksum entries for .vfs folder 
+            $vfs_event targetset_cksumcache_set $path_cksum_cache ;#cached cksum entries for .vfs folder
             $vfs_event targetset_addsource $sourcefolder/vfs/_config ;#some files linked via fauxlink - need to detect change
             $vfs_event targetset_addsource $sourcefolder/vfs/_vfscommon.vfs
             $vfs_event targetset_addsource $sourcefolder/vfs/$vfstail
@@ -2439,122 +2939,283 @@ foreach vfstail $vfs_tails {
                 set targetvfs $buildfolder/$targetkit.vfs
                 file delete -force $targetvfs
 
-                #we switch on the target kit_type. we could switch on source kit_type..allowing extraction from one type but writing to another? 
-                #it usually won't make sense to try to convert a runtime kit_type to another - unless the runtime happens to support multiple types -
+                set extraction_done 0
+                #we switch on the target_kit_type. we could switch on source_kit_type..allowing extraction from one type but writing to another? 
+                #it usually won't make sense to try to convert a runtime kit type to another - unless the runtime happens to support multiple types -
                 # - but which location would main.tcl be run from?
                 #todo - check runtime's 'kit_type' and warn/disallow.
                 #to consider: - allow specifying runtime kits as if they are vfs folders in the normal xxx.vfs list - and autodetect and extract
                 #would need to detect UPX, cookfs,zipfs,tclkit
                 set rtmountpoint ""
-                switch -- $kit_type {
+                set caps [dict get $runtime_caps $rtname]
+                set source_kit_caps [list]
+                if {[dict exists $caps has_zipfs]} {
+                    lappend source_kit_caps zip
+                }
+                if {[dict exists $caps has_starkit]} {
+                    lappend source_kit_caps kit
+                }
+                if {[dict exists $caps has_cookfs]} {
+                    lappend source_kit_caps cookfs
+                }
+
+                #make our first try at extraction based on the kit type we are targeting
+                switch -- $target_kit_type {
                     zip - zipcat {
-                        #for a zipkit - we need to extract the existing vfs from the runtime
-                        #zipfs mkimg replaces the entire zipped vfs in the runtime - so we need the original data to be part of our targetvfs.
-                        puts stdout "building $vfsname.new with zipfs vfsdir:$vfstail cwd: [pwd]"
-                        file mkdir $targetvfs
-                        set rtmountpoint //zipfs:/rtmounts/$runtime_fullname 
+                        set extraction_trylist zip
+                    }
+                    cookit - cookfs {
+                        set extraction_trylist cookfs
+                    }
+                    kit {
+                        set extraction_trylist kit
+                    }
+                    default {
+                        puts stderr "Unexpected target kit_type $kit_type - skipping $runtime_fullname"
+                        continue
+                    }
+                }
+                #also try extracting based on kit types the runtime seems to be capable of handling if the target_kit_type extraction doesn't work
+                foreach ktype $source_kit_caps {
+                    if {$ktype ni $extraction_trylist} {
+                        lappend extraction_trylist $ktype
+                    }
+                }
 
-                        if {![file exists $rtmountpoint]} {
-                            if {[catch {
-                                tcl::zipfs::mount $building_runtime  rtmounts/$runtime_fullname
-                            } errM]} {
-                                puts stderr "Failed to mount $building_runtime using standard api. Err:$errM\n trying reverse args on tcl::zipfs::mount..."
-                                if {[catch {
-                                tcl::zipfs::mount rtmounts/$runtime_fullname $building_runtime
-                                } errM]} {
-                                    puts stderr "ALSO Failed to mount $building_runtime using reverse args to api. Err:$errM - no mountable zipfs on runtime?"
+                #Assumption: a source runtime can/will only have 1 type of vfs attached
+                #While a runtime may support mounting more than one type - it is highly unlikely to support booting based on the type of vfs attached!
+                # e.g a tcl9 tclkit will be likely to have zipfs capability as well as starkit - but will only initialize from a starkit vfs
+
+                #Unknown if it's possible for multiple vfs data segments of different types in the one executable - but such a monstrosity is probably undesirable(?).
+                #It is quite possible to have more than one zip at the end of an exe - but as the capabilities of zip utilities in the wild to handle such a situation
+                #vary as far as how they behave - this too is most likely best considered as something to avoid.
+
+                set extract_kit_type ""
+                while {!$extraction_done && [llength $extraction_trylist]} {
+                    set extract_kit_try [lpop extraction_trylist 0]
+                    switch -- $extract_kit_try {
+                        zip - zipcat {
+                            #for a zipkit - we need to extract the existing vfs from the runtime
+                            #zipfs mkimg replaces the entire zipped vfs in the runtime - so we need the original data to be part of our targetvfs.
+                            puts stdout "Attempting to extract zip vfs data from $runtime_fullname"
+                            file mkdir $targetvfs
+                            set raw_runtime $buildfolder/raw_$runtime_fullname
+
+                            if {[info commands ::tcl::zipfs::mount] ne ""} {
+                                #the driving tcl has zipfs
+                                set rtmountpoint //zipfs:/rtmounts/$runtime_fullname
+
+                                if {![file exists $rtmountpoint]} {
+                                    if {[catch {
+                                        tcl::zipfs::mount $building_runtime  rtmounts/$runtime_fullname
+                                    } errM]} {
+                                        puts stderr "Failed to mount $building_runtime using standard api. Err:$errM\n trying reverse args on tcl::zipfs::mount..."
+                                        if {[catch {
+                                        tcl::zipfs::mount rtmounts/$runtime_fullname $building_runtime
+                                        } errM]} {
+                                            puts stderr "ALSO Failed to mount $building_runtime using reverse args to api. Err:$errM - no mountable zipfs on runtime?"
+                                        }
+                                    }
                                 }
-                            }
-                        }
 
-                        #strip any existing zipfs on the runtime..
-                        #2024 - 'zipfs info //zipfs:/mountpoint' is supposed to give us the offset - but it doesn't if the exe has been 'adjusted' to use file offsets.
-                        #which unfortunately Tcl does by default after the 2021 'fix' :(
-                        #https://core.tcl-lang.org/tcl/tktview/aaa84fbbc5
-
-                        set raw_runtime $buildfolder/raw_$runtime_fullname
-                        if {[file exists $rtmountpoint]} {
-                            merge_over $rtmountpoint $targetvfs
-                            #see if we can extract the exe part 
-                            set baseoffset [lindex [tcl::zipfs::info $rtmountpoint] 3]
-                            if {$baseoffset != 0} {
-                                #tcl was able to determine the compressed-data offset
-                                #either because runtime is a basic catted exe+zip, or Tcl fixed 'zipfs info'
-                                set fdrt [open $building_runtime r]
-                                chan configure $fdrt -translation binary
-                                set exedata [read $fdrt $baseoffset] ;#may include stored password and ending header // REVIEW - strip it?
-                                close $fdrt
-                                set fdraw [open $raw_runtime w]
-                                chan configure $fdraw -translation binary
-                                puts -nonewline $fdraw $exedata
-                                close $fdraw
+                                #strip any existing zipfs on the runtime..
+                                #2024 - 'zipfs info //zipfs:/mountpoint' is supposed to give us the offset - but it doesn't if the exe has been 'adjusted' to use file offsets.
+                                #which unfortunately Tcl does by default after the 2021 'fix' :(
+                                #https://core.tcl-lang.org/tcl/tktview/aaa84fbbc5
+
+                                if {[file exists $rtmountpoint]} {
+                                    #merge_over source -> target
+                                    merge_over $rtmountpoint $targetvfs
+                                    set extraction_done 1
+                                    #see if we can extract the exe part
+                                    set baseoffset [lindex [tcl::zipfs::info $rtmountpoint] 3]
+                                    if {$baseoffset != 0} {
+                                        #tcl was able to determine the compressed-data offset
+                                        #either because runtime is a basic catted exe+zip, or Tcl fixed 'zipfs info'
+                                        set fdrt [open $building_runtime r]
+                                        chan configure $fdrt -translation binary
+                                        set exedata [read $fdrt $baseoffset] ;#may include stored password and ending header // REVIEW - strip it?
+                                        close $fdrt
+                                        set fdraw [open $raw_runtime w]
+                                        chan configure $fdraw -translation binary
+                                        puts -nonewline $fdraw $exedata
+                                        close $fdraw
+                                    } else {
+                                        #presumably the supplied building_runtime has had its offsets adjusted so that it all appears within offsets off the zip. (file relative offsets)
+                                        #due to zipfs info bug - zipfs now can't tell us the offset of the compressed data.
+                                        #we need to use a similarly assumptive method as tclZipfs.c uses to determine the start of the compressed contents
+                                        package require punk::zip
+                                        #we don't technically need to extract the raw exe for 'zip' - as zipfs mkimg can work on the combined file (ignores zip)
+                                        # - but for consistency we want raw_runtime to be emitted in the filesystem.
+                                        file delete $raw_runtime
+                                        punk::zip::extract_preamble $building_runtime $raw_runtime
+                                    }
+                                } else {
+                                    #the input building_runtime wasn't mountable as a zip - so presumably a plain executable
+                                    #runtime executable possibly with kit/cookfs etc attached?
+                                    #If not - init.tcl probably won't be found? should we even proceed ??
+                                    puts stderr "\x1b\[31mWARNING the runtime was not mountable as a zip - which means tcl_library was not extracted - the executable may not work with zipfs attached!\x1b\[m"
+                                    file copy -force $building_runtime $raw_runtime
+                                }
                             } else {
-                                #presumably the supplied building_runtime has had its offsets adjusted so that it all appears within offsets off the zip. (file relative offsets)
-                                #due to zipfs info bug - zipfs now can't tell us the offset of the compressed data.
-                                #we need to use a similarly assumptive method as tclZipfs.c uses to determine the start of the compressed contents
+                                #The driving tcl we are calling with doesn't have zipfs - can't mount
                                 package require punk::zip
-                                #we don't technically need to extract the raw exe for 'zip' - as zipfs mkimg can work on the combined file (ignores zip)
-                                # - but for consistency we want raw_runtime to be emitted in the filesystem.
-                                punk::zip::extract_preamble $building_runtime $raw_runtime
+                                puts stderr "WARNING: tcl shell '[info nameofexecutable]' being used to build doesn't have zipfs - falling back to punk::zip::extract_preamble"
+                                set extractedzipfile $buildfolder/extracted_$runtime_fullname.zip
+                                set extractedzipfolder $buildfolder/extracted_$runtime_fullname
+                                file delete $raw_runtime
+                                file delete $extractedzipfile
+                                file delete -force $extractedzipfolder
+                                if {![catch {
+                                punk::zip::extract_preamble $building_runtime $raw_runtime $extractedzipfile
+                                package require zipfile::decode
+                                zipfile::decode::open $extractedzipfile
+                                set archiveinfo [zipfile::decode::archive]
+                                zipfile::decode::unzip $archiveinfo $extractedzipfolder
+                                }]} {
+                                     set extraction_done 1
+                                     set extract_kit_type $extract_kit_try
+                                    #todo - verify that init.tcl etc are present?
+                                    merge_over $extractedzipfolder $targetvfs
+                                }
+                            }
+
+                        }
+                        cookit - cookfs {
+                            #upx easy enough to deal with if we have/install a upx executable (avail on windows via scoop, freshports for freebsd and presumably various for linux)
+                            # ------------------------------------------------------
+                            #we can't use cookfs with arbitrary tclsh/kits - needs cookit not just cookfs
+                            # ------------------------------------------------------
+                            #cookfs seems to need compilation - we would need to be able to build for windows,linux,freebsd,macosx at a minimum.
+                            #preferably vi cross-compile using zig.
+                            #cookit also
+
+                            #If our calling executable is also a cookit, or has cookfs package available we can manipulate the cookit runtime here
+                            #(e.g we have it as a loadable module for tcl9 on windows in some runtimes - todo)
+                            if {[catch {package require cookfs} version]} {
+                                puts stderr "cookit/cookvfs unsupported - unable to load cookfs"
+                                puts stderr " - Try running make.tcl using a cookkit binary (e.g put it in <projectdir>/bin) or installing the cookfs binary module or tcl-cookfs module"
+                            } else {
+                                puts stdout "Attempting to extract existing cookfs data from $runtime_fullname"
+                                file mkdir $targetvfs
+                                #Mount it in the currently running executable
+                                #REVIEW - it seems to work to pick a pseudovol name like //cookfstemp:/
+                                #unlike cookit's //cookit:/  it doesn't show up in file volumes
+                                #set rtmountpoint //cookfstemp:/rtmounts/$runtime_fullname ;#not writable with 'file mkdir' which doesn't seem to handle intermediate nonexistant path
+                                set rtmountpoint //cookfstemp:/$runtime_fullname
+                                cookfs::Mount $building_runtime $rtmountpoint
+                                if {[file exists $rtmountpoint]} {
+                                    #copy from mounted runtime's vfs to the filesystem vfs
+                                    merge_over $rtmountpoint $targetvfs
+                                    set extraction_done 1
+                                    set extract_kit_type $extract_kit_try
+                                }
                             }
-                        } else {
-                            #the input building_runtime wasn't mountable - so presumably a plain executable
-                            #set building_runtime $buildfolder/build_$runtime_fullname ;#working copy of runtime executable - (possibly with kit/zipfs/cookfs etc attached!)
-                            #set raw_runtime $buildfolder/raw_$runtime_fullname
-                            file copy -force $building_runtime $raw_runtime 
                         }
+                        kit {
+                            if {!$have_sdx} {
+                                puts stderr "no sdx available to unwrap $targetkit"
+                                #don't add to failed_kits here
+                                #extraction fail for one type doesn't mean we have fully failed yet
+                                #lappend failed_kits [list kit $targetkit reason "sdx_executable_unavailable"]
+                                #$vfs_event targetset_end FAILED
+                                #$vfs_event destroy
+                                #$vfs_installer destroy
+                                continue ;#to next extraction attempt
 
-                        merge_over $sourcefolder/vfs/_vfscommon.vfs $targetvfs
+                            }
+                            set raw_runtime $buildfolder/raw_$runtime_fullname
+                            #for a kit, we shouldn't need to extract the existing vfs from the runtime.
+                            # - the sdx merge process should be able to merge our .vfs folder with the existing contents.
+                            #2025 - in practice this doesn't always seem to be the case? Review - could have been cwd issue?
+                            puts stdout "Attempting to split kitfile using: $::sdxpath mksplit $building_runtime"
+                            set prev_cwd [pwd]
+                            cd [file dirname $building_runtime] ;#make sure SDX is called with the same working dir as the files we're working on.
+                            if {[catch {exec {*}$::sdxpath mksplit $building_runtime} mksplitresult]} {
+                                #executable doesn't have kit vfs attached
+                                puts stderr "No kit data extracted from $building_runtime"
+                                file copy -force $building_runtime $raw_runtime
+                            } else {
+                                puts stdout "mksplitresult: $mksplitresult"
+                                if {![file exists [file rootname $building_runtime].tail]} {
+                                    error "mksplit didn't produce file at [file rootname $building_runtime].tail"
+                                }
+                                file delete -force [file rootname $building_runtime].vfs ;#ensure target for unwrap doesn't exist
+                                #set kit_bare_runtime [file rootname $building_runtime].head
+                                set building_runtime [file rootname $building_runtime].head
+                                exec {*}$::sdxpath unwrap [file rootname $building_runtime].tail ;#extracts to folder named [file rootname $building_runtime].vfs e.g build_tclkit9.0.2-win64-dyn.vfs
+                                #file rename to existing target dir would copy folder into target dir
+                                if {![file exists $targetvfs]} {
+                                    #delay
+                                    after 1000
+                                    file rename [file rootname $building_runtime].vfs $targetvfs
+                                } else {
+                                    merge_over [file rootname $building_runtime].vfs $targetvfs
+                                }
+                                set extraction_done 1
+                                set extract_kit_type $extract_kit_try
+                                file copy -force $building_runtime $raw_runtime
+                            }
+                            cd $prev_cwd
 
+                        }
                     }
-                    cookit - cookfs {
-                        #upx easy enough to deal with if we have/install a upx executable (avail on windows via scoop, freshports for freebsd and presumably various for linux)
-                        # ------------------------------------------------------
-                        #we can't use cookfs with arbitrary tclsh/kits etc yet..
-                        # ------------------------------------------------------
-                        #cookfs seems to need compilation - we would need to be able to build for windows,linux,freebsd at a minimum. 
-                        #preferably vi cross-compile using zig. 
-
-                        #However, if our calling executable is also a cookit, or the user has cookfs package installed - we may have it available
-                        if {[catch {package require cookfs} version]} {
-                            puts stderr "cookit/cookvfs unsupported - unable to load cookfs"
-                            puts stderr " - Try running make.tcl using a cookkit binary (e.g put it in <projectdir>/bin) or installing the tcl-cookfs module"
-                        } else {
-                            puts stdout "building $vfsname.new with cookfs.. vfsdir:$vfstail cwd: [pwd]" ;flush stdout
-                            file mkdir $targetvfs
-                            #Mount it in the currently running executable
-                            #REVIEW - it seems to work to pick a pseudovol name like //cookfstemp:/ 
-                            #unlike cookit's //cookit:/  it doesn't show up in file volumes
-                            #set rtmountpoint //cookfstemp:/rtmounts/$runtime_fullname ;#not writable with 'file mkdir' which doesn't seem to handle intermediate nonexistant path
-                            set rtmountpoint //cookfstemp:/$runtime_fullname
-                            cookfs::Mount $building_runtime $rtmountpoint 
-                            if {[file exists $rtmountpoint]} {
-                                #copy from mounted runtime's vfs to the filesystem vfs
-                                merge_over $rtmountpoint $targetvfs
-                            }
-                            merge_over $sourcefolder/vfs/_vfscommon.vfs $targetvfs
+                } ;#end while !$extraction_done && [llength $extraction_trylist]
+
+                if {!$extraction_done} {
+                    #TODO: if not extracted - use a default tcl_library for patchlevel and platform?
+                    puts stderr "--------------------------------------------"
+                    puts stderr "\x1b\31mWARNING: No extraction done from runtime $runtime_fullname\x1b\[m"
+                    puts stderr "If no init.tcl provided in the vfs at the proper location (containing init.tcl) - the resulting kit will probably not initialise properly!"
+                    puts stderr "--------------------------------------------"
+                    file mkdir $targetvfs
+                }
+
+                #set wrapvfs $sourcefolder/$vfs
+                set kit_type_mismatch 0
+                switch -- $extract_kit_type {
+                    zip {
+                        if {$target_kit_type ni {zip zipcat}} {
+                            set kit_type_mismatch 1
                         }
                     }
                     kit {
-                        #for a kit, we don't need to extract the existing vfs from the runtime.
-                        # - the sdx merge process can merge our .vfs folder with the existing contents.
-                        puts stdout "building $vfsname.new with sdx.. vfsdir:$vfstail cwd: [pwd]"
-                        if {[file exists $sourcefolder/vfs/_vfscommon.vfs]} {
-                            file copy $sourcefolder/vfs/_vfscommon.vfs $targetvfs
-                        } else {
-                            file mkdir $targetvfs
+                        if {$target_kit_type ne "kit"} {
+                            set kit_type_mismatch 1
+                        }
+                    }
+                    cookfs {
+                        if {$target_kit_type ni {cookfs cookit}} {
+                            set kit_type_mismatch 1
                         }
                     }
                 }
+                if {$kit_type_mismatch} {
+                    puts stderr "--------------------------------------------"
+                    puts stderr "WARNING: mismatch between kit type of source runtime [punk::ansi::a brightyellow]$extract_kit_type[punk::ansi::a] and target kit type [punk::ansi::a brightyellow]$target_kit_type[punk::ansi::a]"
+                    puts stderr "The resulting kit is unlikely to initialise"
+                    puts stderr "--------------------------------------------"
+                    puts stdout "Continue to try to build $targetkit from $rtname anyway? y|n"
+                    if {[string tolower [gets stdin]] eq "y"} {
+                        puts proceeding...
+                    } else {
+                        #skip to next kit
+                        continue
+                    }
+                }
 
+                if {[file exists $sourcefolder/vfs/_vfscommon.vfs]} {
+                    puts stdout "Merging _vfscommon.vfs over $targetvfs"
+                    #the original boot.tcl and icon etc can be overridden by entries in our common and custom vfs folders
+                    #merge_over will emit warnings on stderr for overwritten files
+                    merge_over $sourcefolder/vfs/_vfscommon.vfs $targetvfs
+                }
 
                 set sourcevfs [file join $sourcefolder vfs $vfstail]
                 merge_over $sourcevfs $targetvfs
 
-                #set wrapvfs $sourcefolder/$vfs
-
                 set wrapvfs $targetvfs
-                switch -- $kit_type {
+                switch -- $target_kit_type {
                     zip {
                         #WARNING - 2024-10-08 - zipfs mkimg based exezips are not editable with 7z 
                         # (central directory offset has been 'adjusted' to be file relative)
@@ -2619,6 +3280,8 @@ foreach vfstail $vfs_tails {
 
                             #'archive' based zip offsets - editable in 7z,peazip
                             file copy $raw_runtime $buildfolder/$vfsname.new
+                            #runtime in runtime folder may not have write perm set - ensure the copy does as we need to append
+                            catch {exec chmod +w $buildfolder/$vfsname.new}
                             file delete $buildfolder/$vfsname.zip
 
                             if {[info commands ::tcl::zipfs] ne ""} {
@@ -2657,7 +3320,7 @@ foreach vfstail $vfs_tails {
                             puts stdout $result
                             puts stdout $separator
                         }
-                       
+
 
                     }
                     cookit - cookfs {
@@ -2673,21 +3336,22 @@ foreach vfstail $vfs_tails {
                                 if {[catch {
                                     merge_over $targetvfs $rtmountpoint
                                 } errM]} {
-                                    puts stderr "$kit_type 'merge_over $targetvfs $rtmountpoint' failed\n$errM"
+                                    puts stderr "$target_kit_type 'merge_over $targetvfs $rtmountpoint' failed\n$errM"
                                     error $errM
                                 }
                                 if {[catch {
                                     cookfs::Unmount $rtmountpoint 
                                 } errM]} {
-                                    puts stderr "$kit_type 'cookfs::Unmount $rtmountpoint' failed\n$errM"
+                                    puts stderr "$target_kit_type 'cookfs::Unmount $rtmountpoint' failed\n$errM"
                                     error $errM
                                 }
 
                                 #copy the version that is mounted in this runtime to vfsname.new 
                                 if {[catch {
                                     file copy -force $building_runtime $buildfolder/$vfsname.new
+                                    catch {exec chmod +w $buildfolder/$vfsname.new}
                                 } errM]} {
-                                    puts stderr "$kit_type 'file copy -force $building_runtime $buildfolder/$vfsname.new' failed\n$errM"
+                                    puts stderr "$target_kit_type 'file copy -force $building_runtime $buildfolder/$vfsname.new' failed\n$errM"
                                     error $errM
                                 }
                             } result]} {
@@ -2698,7 +3362,7 @@ foreach vfstail $vfs_tails {
                                 $vfs_installer destroy
                                 continue
                             } else {
-                                puts stdout "ok - finished $kit_type"
+                                puts stdout "ok - finished for target kit type: $target_kit_type"
                                 set separator [string repeat = 40]
                                 puts stdout $separator
                                 puts stdout $result
@@ -2707,43 +3371,38 @@ foreach vfstail $vfs_tails {
                         }
                     }
                     kit {
-                        if {!$has_sdx} {
-                            puts stderr "no sdx available to wrap $targetkit" 
-                            lappend failed_kits [list kit $targetkit reason "sdx_executable_unavailable"]
+                        set verbose ""
+                        #set verbose "-verbose"
+                        #assert: building_runtime has been replaced with $kit_bare_runtime
+
+                        set prev_cwd [pwd]
+                        cd [file dirname $building_runtime] ;#make sure SDX is called with the same working dir as the files we're working on.
+                        if {[catch {
+                            if {$rtname ne "-"} {
+                                exec {*}$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs -runtime $raw_runtime {*}$verbose
+                            } else {
+                                exec {*}$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs {*}$verbose
+                            }
+                        } result]} {
+                            if {$rtname ne "-"} {
+                                set sdxmsg "$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs -runtime $raw_runtime {*}$verbose failed with msg: $result"
+                            } else {
+                                set sdxmsg "$::sdxpath wrap $buildfolder/$vfsname.new -vfs $wrapvfs {*}$verbose failed with msg: $result"
+                            }
+                            puts stderr "$::sdxpath wrap $targetkit failed" 
+                            lappend failed_kits [list kit $targetkit reason $sdxmsg]
                             $vfs_event targetset_end FAILED
                             $vfs_event destroy
                             $vfs_installer destroy
                             continue
-                        } else { 
-                            set verbose ""
-                            #set verbose "-verbose"
-
-                            if {[catch {
-                                if {$rtname ne "-"} {
-                                    exec sdx wrap $buildfolder/$vfsname.new -vfs $wrapvfs -runtime $building_runtime {*}$verbose 
-                                } else {
-                                    exec sdx wrap $buildfolder/$vfsname.new -vfs $wrapvfs {*}$verbose 
-                                }
-                            } result]} {
-                                if {$rtname ne "-"} {
-                                    set sdxmsg "sdx wrap $buildfolder/$vfsname.new -vfs $wrapvfs -runtime $buildfolder/build_$runtime_fullname {*}$verbose failed with msg: $result"
-                                } else {
-                                    set sdxmsg "sdx wrap $buildfolder/$vfsname.new -vfs $wrapvfs {*}$verbose failed with msg: $result"
-                                }
-                                puts stderr "sdx wrap $targetkit failed" 
-                                lappend failed_kits [list kit $targetkit reason $sdxmsg]
-                                $vfs_event targetset_end FAILED
-                                $vfs_event destroy
-                                $vfs_installer destroy
-                                continue
-                            } else {
-                                puts stdout "ok - finished sdx"
-                                set separator [string repeat = 40]
-                                puts stdout $separator
-                                puts stdout $result
-                                puts stdout $separator
-                            }
+                        } else {
+                            puts stdout "ok - finished for target kit type: sdx"
+                            set separator [string repeat = 40]
+                            puts stdout $separator
+                            puts stdout $result
+                            puts stdout $separator
                         }
+                        cd $prev_cwd
                     }
                 }
 
@@ -2758,6 +3417,16 @@ foreach vfstail $vfs_tails {
                 }
 
                 # -- --- ---
+                #tasklist doesn't support getting full commandline of processname
+                #This means we can't be sure we're shutting down the exact required process
+                #to do this properly we should check the full path for both ps on unix and on windows. (TODO)
+                #(same exename could be installed somewhere else on the system running a process that shouldn't be shut down here)
+                #powershell 'get-process' can give us the full path.
+                #Getting the process list on windows, whether with tasklist or powershell is very slow compared to unix ps.
+                # e.g 100x slower - apparently that's just the nature of the OS differences (?)
+                #still - seems to be under 1s on a 2018 era i9 running in 2025 - which is not a big problem in this context.
+                #using a filter in tasklist or get-command can make things a little faster
+
                 if {$::tcl_platform(platform) eq "windows"} {
                     set pscmd "tasklist"
                 } else {
@@ -2766,16 +3435,27 @@ foreach vfstail $vfs_tails {
 
                 #killing process doesn't apply to .kit build 
                 if {$rtname ne "-"} {
+                    #exec $pscmd | grep $targetkit  ;#wrong - fails on at least some OSes because grep itself is in the list
+                    #exec ps | grep $targetkit | grep -v grep ;#exclude grep process
                     if {![catch {
-                            exec $pscmd | grep $targetkit
-                        } still_running]} {
-                        set still_running_lines [split [string trim $still_running] \n]
+                            exec $pscmd
+                        } ps_lines]} {
+                        #we will process without grep for for now - may not be avail on windows?
+                        set still_running_lines [list]
+                        foreach ln [split [string trim $ps_lines] \n] {
+                            if {[string match "* grep *" $ln]} {continue}
+                            if {[string match "*$targetkit*" $ln]} {
+                                lappend still_running_lines $ln
+                            }
+                        }
+
+                        #set still_running_lines [split [string trim $still_running] \n]
                         puts stdout "found ([llength $still_running_lines]) $targetkit instances still running\n"
                         set count_killed 0
                         set num_to_kill [llength $still_running_lines]
-                        foreach ln [split $still_running \n] {
+                        foreach ln $still_running_lines {
                             puts stdout "    $ln"
-                            
+
                             if {$::tcl_platform(platform) eq "windows"} {
                                 set pid [lindex $ln 1]
                                 if {$forcekill} {
@@ -2875,7 +3555,7 @@ foreach vfstail $vfs_tails {
 
             set changed_unchanged [$bin_event targetset_source_changes]
             set built_or_installed_kit_changed [expr {[llength [dict get $changed_unchanged changed]] ||  [llength [$bin_event get_targets_exist]] < [llength [$bin_event get_targets]]}]
-            if {$built_or_installed_kit_changed} { 
+            if {$built_or_installed_kit_changed} {
 
                 if {[file exists $deployment_folder/$targetkit]} {
                     puts stderr "built or deployed kit changed - deleting existing deployed at $deployment_folder/$targetkit"
@@ -2917,6 +3597,7 @@ foreach vfstail $vfs_tails {
     } ;#end foreach rtname in runtimes
     # -- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
 }
+
 cd $startdir
 if {[llength $installed_kits]} {
     puts stdout "INSTALLED KITS: ([llength $installed_kits])"